* All files: PROTO -> PARAMS.

From-SVN: r31456

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index b88227f545667d03ed5b0c0106330579f64e6273..b1b9bad40c1e16ec7c59fc906033bc95b87fdeb2 100644 (file)
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,7 @@
+2000-01-17  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * All files: PROTO -> PARAMS.
+
 2000-01-10  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * lex.c: Include tm_p.h.

diff --git a/gcc/ch/actions.c b/gcc/ch/actions.c
index 215557b195fef5f6a52e72379447a402af69ea4e..b07a532735be3259d611f157881d7abb01cac001 100644 (file)
--- a/gcc/ch/actions.c
+++ b/gcc/ch/actions.c
@@ -32,21 +32,21 @@ Boston, MA 02111-1307, USA.  */
 #include "assert.h"
 #include "toplev.h"
 
-static int id_cmp PROTO ((tree *, tree *));
-static void warn_unhandled PROTO ((const char *));
-static tree adjust_return_value PROTO ((tree, const char *));
-static tree update_else_range_for_int_const PROTO ((tree, tree));
-static tree update_else_range_for_range PROTO ((tree, tree, tree));
-static tree update_else_range_for_range_expr PROTO ((tree, tree));
-static tree update_else_range_for_type PROTO ((tree, tree));
-static tree compute_else_range PROTO ((tree, tree, int));
-static tree check_case_value PROTO ((tree, tree));
-static void chill_handle_case_label_range PROTO ((tree, tree, tree));
-static tree chill_handle_multi_case_label_range PROTO ((tree, tree, tree));
-static tree chill_handle_multi_case_else_label PROTO ((tree));
-static tree chill_handle_multi_case_label PROTO ((tree, tree));
-static tree chill_handle_multi_case_label_list PROTO ((tree, tree));
-static void print_missing_cases PROTO ((tree, const unsigned char *, long));
+static int id_cmp PARAMS ((tree *, tree *));
+static void warn_unhandled PARAMS ((const char *));
+static tree adjust_return_value PARAMS ((tree, const char *));
+static tree update_else_range_for_int_const PARAMS ((tree, tree));
+static tree update_else_range_for_range PARAMS ((tree, tree, tree));
+static tree update_else_range_for_range_expr PARAMS ((tree, tree));
+static tree update_else_range_for_type PARAMS ((tree, tree));
+static tree compute_else_range PARAMS ((tree, tree, int));
+static tree check_case_value PARAMS ((tree, tree));
+static void chill_handle_case_label_range PARAMS ((tree, tree, tree));
+static tree chill_handle_multi_case_label_range PARAMS ((tree, tree, tree));
+static tree chill_handle_multi_case_else_label PARAMS ((tree));
+static tree chill_handle_multi_case_label PARAMS ((tree, tree));
+static tree chill_handle_multi_case_label_list PARAMS ((tree, tree));
+static void print_missing_cases PARAMS ((tree, const unsigned char *, long));
 
 #define obstack_chunk_alloc xmalloc
 #define obstack_chunk_free free
@@ -172,7 +172,7 @@ build_exception_variant (type, raises)
       /* NULL terminator for list.  */
       a[i] = NULL_TREE;
       qsort (a, i, sizeof (tree),
-            (int (*) PROTO((const void*, const void*))) id_cmp);
+            (int (*) PARAMS ((const void*, const void*))) id_cmp);
       while (i--)
        TREE_CHAIN (a[i]) = a[i+1];
       raises = a[0];

diff --git a/gcc/ch/actions.h b/gcc/ch/actions.h
index 1059e5fd5f7e18c06ea87d9d9231729bdc461b10..f47039856c00d63bf3137a7cc08ca9e8fc8bb980 100644 (file)
--- a/gcc/ch/actions.h
+++ b/gcc/ch/actions.h
@@ -20,15 +20,15 @@ Boston, MA 02111-1307, USA.  */
 
 /* used by compile_file */
 
-void init_chill PROTO((void));
+void init_chill PARAMS ((void));
 
 extern int grant_count;
 
-extern void push_handler PROTO((void));
-extern void pop_handler PROTO((int));
-extern void push_action PROTO((void));
+extern void push_handler PARAMS ((void));
+extern void pop_handler PARAMS ((int));
+extern void push_action PARAMS ((void));
 
-extern int  chill_handle_single_dimension_case_label PROTO((tree, tree, int *, int *));
-extern tree build_chill_multi_dimension_case_expr    PROTO((tree, tree, tree));
-extern tree build_multi_case_selector_expression     PROTO((tree, tree));
-extern void compute_else_ranges                      PROTO((tree, tree));
+extern int  chill_handle_single_dimension_case_label PARAMS ((tree, tree, int *, int *));
+extern tree build_chill_multi_dimension_case_expr    PARAMS ((tree, tree, tree));
+extern tree build_multi_case_selector_expression     PARAMS ((tree, tree));
+extern void compute_else_ranges                      PARAMS ((tree, tree));

diff --git a/gcc/ch/ch-tree.h b/gcc/ch/ch-tree.h
index 956dcb281a58d3dd0f8c74a320a822bd5b144fef..b5a56aeb8b9cce9dad7c736a0be8a704bfe66f8d 100644 (file)
--- a/gcc/ch/ch-tree.h
+++ b/gcc/ch/ch-tree.h
@@ -100,7 +100,7 @@ extern tree ALL_POSTFIX;
    In this case, the USE_SEIZE_FILE directive will not be copied
    into the grant file */
 #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 */
 #define CH_ALREADY_GRANTED(NODE) TREE_LANG_FLAG_4(NODE)
@@ -620,17 +620,17 @@ extern tree case_else_node;
 #endif
 
 /* 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 */
-extern tree combine_strings                     PROTO((tree));
-extern void constant_expression_warning         PROTO((tree));
-extern void decl_attributes                     PROTO((tree, tree));
-extern void declare_function_name               PROTO((void));
+extern tree combine_strings                     PARAMS ((tree));
+extern void constant_expression_warning         PARAMS ((tree));
+extern void decl_attributes                     PARAMS ((tree, tree));
+extern void declare_function_name               PARAMS ((void));
 #ifdef BUFSIZ
-extern char *get_directive_line                 PROTO((FILE *));
+extern char *get_directive_line                 PARAMS ((FILE *));
 #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 */
 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;
 extern tree global_function_decl;
 
 /* in except.c */
-extern void except_init_pass_2                  PROTO((void));
-extern void push_handler                       PROTO((void));
-extern void pop_handler                                PROTO((int));
+extern void except_init_pass_2                  PARAMS ((void));
+extern void push_handler                       PARAMS ((void));
+extern void pop_handler                                PARAMS ((int));
 
 /* in ch-loop.c */
 extern int flag_local_loop_counter;
-extern void push_loop_block                     PROTO((void));
-extern void pop_loop_block                      PROTO((void));
-extern void build_loop_start                    PROTO((tree));
-extern void top_loop_end_check                 PROTO((tree));
-extern void build_loop_end                      PROTO((void));
-extern void build_loop_iterator                 PROTO((tree, tree, tree, tree, int, int, int));
-extern void begin_loop_scope                    PROTO((void));
-extern void end_loop_scope                      PROTO((tree));
-extern void nonvalue_begin_loop_scope           PROTO((void));
-extern void nonvalue_end_loop_scope             PROTO((void));
-
-extern tree build_enumerator                    PROTO((tree, tree));
-extern tree c_build_type_variant                PROTO((tree, int, int));
-extern int  c_decode_option                     PROTO((int, char **));
-extern void c_mark_varargs                      PROTO((void));
-extern void clear_parm_order                    PROTO((void));
-extern tree combine_parm_decls                  PROTO((tree, tree, int));
-extern int  complete_array_type                 PROTO((tree, tree, int));
-extern void declare_parm_level                  PROTO((int));
-extern tree define_label                        PROTO((char *, int, tree));
-extern void delete_block                        PROTO((tree));
-extern void finish_decl                         PROTO((tree));
-extern tree finish_enum                         PROTO((tree, tree));
-extern void finish_function                     PROTO((int));
-extern tree finish_struct                       PROTO((tree, tree));
-extern tree get_parm_decls                      PROTO((void));
-extern tree get_parm_info                       PROTO((int));
-extern tree getdecls                            PROTO((void));
-extern tree gettags                             PROTO((void));
-extern int  global_bindings_p                   PROTO((void));
-extern tree grokfield                           PROTO((char *, int, tree, tree, tree));
-extern tree groktypename                        PROTO((tree));
-extern tree groktypename_in_parm_context        PROTO((tree));
-extern tree implicitly_declare                  PROTO((tree));
-extern void init_decl_processing                PROTO((void));
-extern void insert_block                        PROTO((tree));
-extern void keep_next_level                     PROTO((void));
-extern int  kept_level_p                        PROTO((void));
-extern tree lookup_label                        PROTO((tree));
-extern tree lookup_name                         PROTO((tree));
-extern tree maybe_build_cleanup                 PROTO((tree));
-extern void parmlist_tags_warning               PROTO((void));
-extern void pending_xref_error                  PROTO((void));
-extern void pop_chill_function_context          PROTO((void));
-extern tree poplevel                            PROTO((int, int, int));
+extern void push_loop_block                     PARAMS ((void));
+extern void pop_loop_block                      PARAMS ((void));
+extern void build_loop_start                    PARAMS ((tree));
+extern void top_loop_end_check                 PARAMS ((tree));
+extern void build_loop_end                      PARAMS ((void));
+extern void build_loop_iterator                 PARAMS ((tree, tree, tree, tree, int, int, int));
+extern void begin_loop_scope                    PARAMS ((void));
+extern void end_loop_scope                      PARAMS ((tree));
+extern void nonvalue_begin_loop_scope           PARAMS ((void));
+extern void nonvalue_end_loop_scope             PARAMS ((void));
+
+extern tree build_enumerator                    PARAMS ((tree, tree));
+extern tree c_build_type_variant                PARAMS ((tree, int, int));
+extern int  c_decode_option                     PARAMS ((int, char **));
+extern void c_mark_varargs                      PARAMS ((void));
+extern void clear_parm_order                    PARAMS ((void));
+extern tree combine_parm_decls                  PARAMS ((tree, tree, int));
+extern int  complete_array_type                 PARAMS ((tree, tree, int));
+extern void declare_parm_level                  PARAMS ((int));
+extern tree define_label                        PARAMS ((char *, int, tree));
+extern void delete_block                        PARAMS ((tree));
+extern void finish_decl                         PARAMS ((tree));
+extern tree finish_enum                         PARAMS ((tree, tree));
+extern void finish_function                     PARAMS ((int));
+extern tree finish_struct                       PARAMS ((tree, tree));
+extern tree get_parm_decls                      PARAMS ((void));
+extern tree get_parm_info                       PARAMS ((int));
+extern tree getdecls                            PARAMS ((void));
+extern tree gettags                             PARAMS ((void));
+extern int  global_bindings_p                   PARAMS ((void));
+extern tree grokfield                           PARAMS ((char *, int, tree, tree, tree));
+extern tree groktypename                        PARAMS ((tree));
+extern tree groktypename_in_parm_context        PARAMS ((tree));
+extern tree implicitly_declare                  PARAMS ((tree));
+extern void init_decl_processing                PARAMS ((void));
+extern void insert_block                        PARAMS ((tree));
+extern void keep_next_level                     PARAMS ((void));
+extern int  kept_level_p                        PARAMS ((void));
+extern tree lookup_label                        PARAMS ((tree));
+extern tree lookup_name                         PARAMS ((tree));
+extern tree maybe_build_cleanup                 PARAMS ((tree));
+extern void parmlist_tags_warning               PARAMS ((void));
+extern void pending_xref_error                  PARAMS ((void));
+extern void pop_chill_function_context          PARAMS ((void));
+extern tree poplevel                            PARAMS ((int, int, int));
 #ifdef BUFSIZ
-extern void print_lang_decl                     PROTO((FILE *,tree, int));
-extern void print_lang_identifier               PROTO((FILE *,tree, int));
-extern void print_lang_type                     PROTO((FILE *,tree, int));
+extern void print_lang_decl                     PARAMS ((FILE *,tree, int));
+extern void print_lang_identifier               PARAMS ((FILE *,tree, int));
+extern void print_lang_type                     PARAMS ((FILE *,tree, int));
 #endif
-extern void push_chill_function_context         PROTO((void));
-extern void push_parm_decl                      PROTO((tree));
-extern tree pushdecl                            PROTO((tree));
-extern tree pushdecl_top_level                  PROTO((tree));
-extern void pushlevel                           PROTO((int));
-extern void set_block                           PROTO((tree));
-extern tree shadow_label                        PROTO((tree));
-extern void shadow_record_fields                PROTO((tree));
-extern void shadow_tag                          PROTO((tree));
-extern void shadow_tag_warned                   PROTO((tree, int));
-extern tree start_enum                          PROTO((tree));
-extern int  start_function                      PROTO((tree, tree, int));
-extern tree start_decl                          PROTO((tree, tree, int));
-extern tree start_struct                        PROTO((enum tree_code, tree));
-extern void store_parm_decls                    PROTO((void));
-extern tree xref_tag                            PROTO((enum tree_code, tree));
+extern void push_chill_function_context         PARAMS ((void));
+extern void push_parm_decl                      PARAMS ((tree));
+extern tree pushdecl                            PARAMS ((tree));
+extern tree pushdecl_top_level                  PARAMS ((tree));
+extern void pushlevel                           PARAMS ((int));
+extern void set_block                           PARAMS ((tree));
+extern tree shadow_label                        PARAMS ((tree));
+extern void shadow_record_fields                PARAMS ((tree));
+extern void shadow_tag                          PARAMS ((tree));
+extern void shadow_tag_warned                   PARAMS ((tree, int));
+extern tree start_enum                          PARAMS ((tree));
+extern int  start_function                      PARAMS ((tree, tree, int));
+extern tree start_decl                          PARAMS ((tree, tree, int));
+extern tree start_struct                        PARAMS ((enum tree_code, tree));
+extern void store_parm_decls                    PARAMS ((void));
+extern tree xref_tag                            PARAMS ((enum tree_code, tree));
 
 /* in c-typeck.c */
-extern tree build_array_ref                     PROTO((tree, tree));
-extern tree build_c_cast                        PROTO((tree, tree));
-extern tree build_chill_modify_expr             PROTO((tree, tree));
-extern tree build_chill_component_ref           PROTO((tree, tree));
-extern tree build_component_ref                 PROTO((tree, tree));
-extern tree build_compound_expr                 PROTO((tree));
-extern tree build_conditional_expr              PROTO((tree, tree, tree));
-extern tree build_function_call                 PROTO((tree, tree));
-extern tree build_indirect_ref                  PROTO((tree, char *));
-extern tree build_modify_expr                   PROTO((tree, enum tree_code, tree));
-extern tree build_unary_op                      PROTO((enum tree_code, tree, int));
-extern tree c_alignof                           PROTO((tree));
-extern tree c_alignof_expr                      PROTO((tree));
-extern void c_expand_asm_operands               PROTO((tree, tree, tree, tree, int, char *, int));
-extern tree c_sizeof                            PROTO((tree));
-extern void c_expand_return                     PROTO((tree));
-extern tree c_expand_start_case                 PROTO((tree));
-extern tree common_type                         PROTO((tree, tree));
-extern tree copy_novelty                        PROTO((tree, tree));
-extern tree default_conversion                  PROTO((tree));
-extern void finish_init                         PROTO((void));
-extern tree parser_build_binary_op              PROTO((enum tree_code, tree, tree));
-extern tree pop_init_level                      PROTO((int));
-extern void process_init_default                PROTO((tree));
-extern void process_init_element                PROTO((tree));
-extern void push_init_level                     PROTO((int));
-extern void really_start_incremental_init       PROTO((tree));
-extern void set_init_index                      PROTO((tree, tree));
-extern void set_init_label                      PROTO((tree));
-extern void start_init                          PROTO((tree, tree, int));
-extern void store_init_value                    PROTO((tree, tree));
-extern tree valid_array_index_p                 PROTO((tree, tree, const char *, int));
+extern tree build_array_ref                     PARAMS ((tree, tree));
+extern tree build_c_cast                        PARAMS ((tree, tree));
+extern tree build_chill_modify_expr             PARAMS ((tree, tree));
+extern tree build_chill_component_ref           PARAMS ((tree, tree));
+extern tree build_component_ref                 PARAMS ((tree, tree));
+extern tree build_compound_expr                 PARAMS ((tree));
+extern tree build_conditional_expr              PARAMS ((tree, tree, tree));
+extern tree build_function_call                 PARAMS ((tree, tree));
+extern tree build_indirect_ref                  PARAMS ((tree, char *));
+extern tree build_modify_expr                   PARAMS ((tree, enum tree_code, tree));
+extern tree build_unary_op                      PARAMS ((enum tree_code, tree, int));
+extern tree c_alignof                           PARAMS ((tree));
+extern tree c_alignof_expr                      PARAMS ((tree));
+extern void c_expand_asm_operands               PARAMS ((tree, tree, tree, tree, int, char *, int));
+extern tree c_sizeof                            PARAMS ((tree));
+extern void c_expand_return                     PARAMS ((tree));
+extern tree c_expand_start_case                 PARAMS ((tree));
+extern tree common_type                         PARAMS ((tree, tree));
+extern tree copy_novelty                        PARAMS ((tree, tree));
+extern tree default_conversion                  PARAMS ((tree));
+extern void finish_init                         PARAMS ((void));
+extern tree parser_build_binary_op              PARAMS ((enum tree_code, tree, tree));
+extern tree pop_init_level                      PARAMS ((int));
+extern void process_init_default                PARAMS ((tree));
+extern void process_init_element                PARAMS ((tree));
+extern void push_init_level                     PARAMS ((int));
+extern void really_start_incremental_init       PARAMS ((tree));
+extern void set_init_index                      PARAMS ((tree, tree));
+extern void set_init_label                      PARAMS ((tree));
+extern void start_init                          PARAMS ((tree, tree, int));
+extern void store_init_value                    PARAMS ((tree, tree));
+extern tree valid_array_index_p                 PARAMS ((tree, tree, const char *, int));
 
 /* in ch/actions.c */
 extern int grant_only_flag;
-extern void allocate_lang_decl                  PROTO((tree));
-extern tree build_chill_abs                     PROTO((tree));
-extern tree build_chill_array_ref_1             PROTO((tree, tree));
-extern tree build_chill_array_ref               PROTO((tree, tree));
-extern tree build_chill_bin_type                PROTO((tree));
-extern tree build_chill_binary_op               PROTO((enum chill_tree_code, tree, tree));
-extern tree build_chill_card                    PROTO((tree));
-extern tree build_chill_case_expr               PROTO((tree, tree, tree)); 
-extern tree build_cause_exception               PROTO((tree, int));
-extern tree build_chill_exception_decl          PROTO((const char *));
-extern tree build_chill_function_call           PROTO((tree, tree));
-extern tree build_chill_length                  PROTO((tree));
-extern tree build_chill_indirect_ref            PROTO((tree, tree, int));
-extern tree build_chill_lower                   PROTO((tree));
-extern tree build_chill_max                     PROTO((tree));
-extern tree build_chill_min                     PROTO((tree));
-extern tree build_chill_num                     PROTO((tree));
-extern tree build_chill_repetition_op           PROTO((tree, tree));
-extern tree build_chill_sizeof                  PROTO((tree));
-extern tree build_chill_slice                  PROTO((tree, tree, tree));
-extern tree build_chill_slice_with_range        PROTO((tree, tree, tree));
-extern tree build_chill_slice_with_length       PROTO((tree, tree, tree));
-extern tree build_chill_struct_type             PROTO((tree));
-extern tree build_chill_unary_op                PROTO((enum chill_tree_code, tree));
-extern tree build_chill_upper                   PROTO((tree));
-extern tree build_exception_variant             PROTO((tree, tree));
-extern tree build_generalized_call              PROTO((tree, tree));
-extern tree build_lang_decl                     PROTO((enum chill_tree_code, tree, tree));
-extern tree build_rts_call                      PROTO((const char *, tree, tree));
-extern tree build_varying_struct                PROTO((tree));
-extern void chill_check_decl                    PROTO((tree));
-extern tree chill_convert_for_assignment        PROTO((tree, tree, const char *));
-extern void chill_expand_return                 PROTO((tree, int));
-extern void chill_expand_result                 PROTO((tree, int));
-extern void chill_handle_case_default           PROTO((void));
-extern void chill_handle_case_label            PROTO((tree, tree));
-extern int  chill_varying_string_type_p         PROTO((tree));
-extern int  chill_varying_type_p                PROTO((tree));
-extern int  ch_singleton_set                    PROTO((tree));
-extern tree check_expression                    PROTO((tree, tree, tree));
-extern void check_missing_cases                 PROTO((tree));
-extern tree check_non_null                      PROTO((tree));
-extern tree check_range                         PROTO((tree, tree, tree,tree));
-extern void cond_type_range_exception           PROTO((tree));
-extern void expand_cause_exception              PROTO((tree));
-extern tree finish_chill_binary_op              PROTO((tree));
-extern tree finish_chill_unary_op               PROTO((tree));
-extern tree high_domain_value                   PROTO((tree));
-extern tree low_domain_value                    PROTO((tree));
-extern tree maybe_array_ref                    PROTO((tree, tree));
-extern void maybe_chill_check_decl              PROTO((tree));
-extern tree powersetlen                         PROTO((tree));
-extern tree test_range                          PROTO((tree, tree, tree));
+extern void allocate_lang_decl                  PARAMS ((tree));
+extern tree build_chill_abs                     PARAMS ((tree));
+extern tree build_chill_array_ref_1             PARAMS ((tree, tree));
+extern tree build_chill_array_ref               PARAMS ((tree, tree));
+extern tree build_chill_bin_type                PARAMS ((tree));
+extern tree build_chill_binary_op               PARAMS ((enum chill_tree_code, tree, tree));
+extern tree build_chill_card                    PARAMS ((tree));
+extern tree build_chill_case_expr               PARAMS ((tree, tree, tree)); 
+extern tree build_cause_exception               PARAMS ((tree, int));
+extern tree build_chill_exception_decl          PARAMS ((const char *));
+extern tree build_chill_function_call           PARAMS ((tree, tree));
+extern tree build_chill_length                  PARAMS ((tree));
+extern tree build_chill_indirect_ref            PARAMS ((tree, tree, int));
+extern tree build_chill_lower                   PARAMS ((tree));
+extern tree build_chill_max                     PARAMS ((tree));
+extern tree build_chill_min                     PARAMS ((tree));
+extern tree build_chill_num                     PARAMS ((tree));
+extern tree build_chill_repetition_op           PARAMS ((tree, tree));
+extern tree build_chill_sizeof                  PARAMS ((tree));
+extern tree build_chill_slice                  PARAMS ((tree, tree, tree));
+extern tree build_chill_slice_with_range        PARAMS ((tree, tree, tree));
+extern tree build_chill_slice_with_length       PARAMS ((tree, tree, tree));
+extern tree build_chill_struct_type             PARAMS ((tree));
+extern tree build_chill_unary_op                PARAMS ((enum chill_tree_code, tree));
+extern tree build_chill_upper                   PARAMS ((tree));
+extern tree build_exception_variant             PARAMS ((tree, tree));
+extern tree build_generalized_call              PARAMS ((tree, tree));
+extern tree build_lang_decl                     PARAMS ((enum chill_tree_code, tree, tree));
+extern tree build_rts_call                      PARAMS ((const char *, tree, tree));
+extern tree build_varying_struct                PARAMS ((tree));
+extern void chill_check_decl                    PARAMS ((tree));
+extern tree chill_convert_for_assignment        PARAMS ((tree, tree, const char *));
+extern void chill_expand_return                 PARAMS ((tree, int));
+extern void chill_expand_result                 PARAMS ((tree, int));
+extern void chill_handle_case_default           PARAMS ((void));
+extern void chill_handle_case_label            PARAMS ((tree, tree));
+extern int  chill_varying_string_type_p         PARAMS ((tree));
+extern int  chill_varying_type_p                PARAMS ((tree));
+extern int  ch_singleton_set                    PARAMS ((tree));
+extern tree check_expression                    PARAMS ((tree, tree, tree));
+extern void check_missing_cases                 PARAMS ((tree));
+extern tree check_non_null                      PARAMS ((tree));
+extern tree check_range                         PARAMS ((tree, tree, tree,tree));
+extern void cond_type_range_exception           PARAMS ((tree));
+extern void expand_cause_exception              PARAMS ((tree));
+extern tree finish_chill_binary_op              PARAMS ((tree));
+extern tree finish_chill_unary_op               PARAMS ((tree));
+extern tree high_domain_value                   PARAMS ((tree));
+extern tree low_domain_value                    PARAMS ((tree));
+extern tree maybe_array_ref                    PARAMS ((tree, tree));
+extern void maybe_chill_check_decl              PARAMS ((tree));
+extern tree powersetlen                         PARAMS ((tree));
+extern tree test_range                          PARAMS ((tree, tree, tree));
 /* in ch/convert.c */
-extern tree build_array_type_for_scalar         PROTO((tree));
-extern tree convert                             PROTO((tree, tree));
-extern tree convert_from_reference              PROTO((tree));
-extern tree convert_to_class                    PROTO((ch_class, tree));
-extern const char *display_int_cst             PROTO((tree));
+extern tree build_array_type_for_scalar         PARAMS ((tree));
+extern tree convert                             PARAMS ((tree, tree));
+extern tree convert_from_reference              PARAMS ((tree));
+extern tree convert_to_class                    PARAMS ((ch_class, tree));
+extern const char *display_int_cst             PARAMS ((tree));
 
 /* in ch/decl.c */
-extern tree build_enumerator                   PROTO((tree, tree));
-extern tree chill_munge_params                  PROTO((tree, tree, tree));
-extern tree build_chill_function_type           PROTO((tree, tree, tree, tree));
-extern tree decl_temp1                          PROTO((tree, tree, int, tree, int, int));
-extern void do_based_decls                      PROTO((tree, tree, tree));
-extern void do_chill_outparms                   PROTO((void));
-extern tree do_decl                             PROTO((tree, tree, int, int, tree, int));
-extern void do_decls                            PROTO((tree, tree, int, int, tree, int));
-extern void expand_chill_outparms               PROTO((void));
-extern void find_granted_decls                 PROTO((void));
-extern void finish_chill_function               PROTO((void));
-extern tree finish_enum                                PROTO((tree, tree));
-extern void fixup_chill_parms                   PROTO((tree));
-extern void finish_outer_function               PROTO((void));
-extern unsigned get_type_precision              PROTO((tree, tree));
-extern tree grok_chill_fixedfields              PROTO((tree, tree, tree));
-extern tree grok_chill_variantdefs              PROTO((tree, tree, tree));
-extern void layout_enum                         PROTO((tree));
-/* extern tree lookup_remembered_decl PROTO((HOST_WIDE_INT, tree)); */
-extern void lookup_and_expand_goto             PROTO((tree));
-extern tree lookup_tag_fields                  PROTO((tree, tree));
-extern void lookup_and_handle_exit              PROTO((tree));
-extern tree massage_param_node                 PROTO((tree, tree));
-extern void pop_module                          PROTO((void));
-extern void print_mode                          PROTO((tree));
-extern tree push_extern_function                PROTO((tree, tree, tree, tree, int));
-extern void push_extern_process                 PROTO((tree, tree, tree, int));
-extern void push_extern_signal                  PROTO((tree, tree, tree));
-extern void push_granted                        PROTO((tree, tree));
-extern tree push_modedef                        PROTO((tree, tree, int));
-extern tree push_module                         PROTO((tree, int));
-extern void push_parms                          PROTO((tree, tree, tree));
-extern void push_syndecl                        PROTO((tree, tree, tree));
+extern tree build_enumerator                   PARAMS ((tree, tree));
+extern tree chill_munge_params                  PARAMS ((tree, tree, tree));
+extern tree build_chill_function_type           PARAMS ((tree, tree, tree, tree));
+extern tree decl_temp1                          PARAMS ((tree, tree, int, tree, int, int));
+extern void do_based_decls                      PARAMS ((tree, tree, tree));
+extern void do_chill_outparms                   PARAMS ((void));
+extern tree do_decl                             PARAMS ((tree, tree, int, int, tree, int));
+extern void do_decls                            PARAMS ((tree, tree, int, int, tree, int));
+extern void expand_chill_outparms               PARAMS ((void));
+extern void find_granted_decls                 PARAMS ((void));
+extern void finish_chill_function               PARAMS ((void));
+extern tree finish_enum                                PARAMS ((tree, tree));
+extern void fixup_chill_parms                   PARAMS ((tree));
+extern void finish_outer_function               PARAMS ((void));
+extern unsigned get_type_precision              PARAMS ((tree, tree));
+extern tree grok_chill_fixedfields              PARAMS ((tree, tree, tree));
+extern tree grok_chill_variantdefs              PARAMS ((tree, tree, tree));
+extern void layout_enum                         PARAMS ((tree));
+/* extern tree lookup_remembered_decl PARAMS ((HOST_WIDE_INT, tree)); */
+extern void lookup_and_expand_goto             PARAMS ((tree));
+extern tree lookup_tag_fields                  PARAMS ((tree, tree));
+extern void lookup_and_handle_exit              PARAMS ((tree));
+extern tree massage_param_node                 PARAMS ((tree, tree));
+extern void pop_module                          PARAMS ((void));
+extern void print_mode                          PARAMS ((tree));
+extern tree push_extern_function                PARAMS ((tree, tree, tree, tree, int));
+extern void push_extern_process                 PARAMS ((tree, tree, tree, int));
+extern void push_extern_signal                  PARAMS ((tree, tree, tree));
+extern void push_granted                        PARAMS ((tree, tree));
+extern tree push_modedef                        PARAMS ((tree, tree, int));
+extern tree push_module                         PARAMS ((tree, int));
+extern void push_parms                          PARAMS ((tree, tree, tree));
+extern void push_syndecl                        PARAMS ((tree, tree, tree));
 extern int result_never_set;
-extern void save_expr_under_name                PROTO((tree, tree));
-extern tree set_module_name                     PROTO((tree));
-extern int  start_chill_function                PROTO((tree, tree, tree, tree, tree));
-extern void start_outer_function               PROTO((void));
-extern void switch_to_pass_2                   PROTO((void));
+extern void save_expr_under_name                PARAMS ((tree, tree));
+extern tree set_module_name                     PARAMS ((tree));
+extern int  start_chill_function                PARAMS ((tree, tree, tree, tree, tree));
+extern void start_outer_function               PARAMS ((void));
+extern void switch_to_pass_2                   PARAMS ((void));
 
 /* in ch/except.c */
-extern void chill_check_no_handlers             PROTO((void));
-extern void chill_finish_on                     PROTO((void));
-extern void chill_handle_on_labels              PROTO((tree));
-extern void chill_reraise_exceptions            PROTO((tree));
-extern void chill_start_default_handler         PROTO((void));
-extern void chill_start_on                      PROTO((void));
-extern void expand_goto_except_cleanup          PROTO((int));
-extern int is_handled                          PROTO((tree));
+extern void chill_check_no_handlers             PARAMS ((void));
+extern void chill_finish_on                     PARAMS ((void));
+extern void chill_handle_on_labels              PARAMS ((tree));
+extern void chill_reraise_exceptions            PARAMS ((tree));
+extern void chill_start_default_handler         PARAMS ((void));
+extern void chill_start_on                      PARAMS ((void));
+extern void expand_goto_except_cleanup          PARAMS ((int));
+extern int is_handled                          PARAMS ((tree));
 
 /* in ch/expr.c */
-extern tree build_chill_addr_expr               PROTO((tree, const char *));
-extern tree build_chill_arrow_expr              PROTO((tree, int));
-extern tree build_component_ref                        PROTO((tree, tree));
-extern tree build_chill_compound_expr           PROTO((tree));
-extern tree build_chill_descr                   PROTO((tree));
-extern void build_chill_descr_type              PROTO((void));
-extern void build_chill_inttime_type            PROTO((void));
-extern tree build_compare_expr                 PROTO((enum tree_code,
+extern tree build_chill_addr_expr               PARAMS ((tree, const char *));
+extern tree build_chill_arrow_expr              PARAMS ((tree, int));
+extern tree build_component_ref                        PARAMS ((tree, tree));
+extern tree build_chill_compound_expr           PARAMS ((tree));
+extern tree build_chill_descr                   PARAMS ((tree));
+extern void build_chill_descr_type              PARAMS ((void));
+extern void build_chill_inttime_type            PARAMS ((void));
+extern tree build_compare_expr                 PARAMS ((enum tree_code,
                                                       tree, tree));
-extern tree build_compare_discrete_expr                PROTO((enum tree_code,
+extern tree build_compare_discrete_expr                PARAMS ((enum tree_code,
                                                       tree, tree));
-extern tree check_case_selector                 PROTO((tree));
-extern tree check_case_selector_list            PROTO((tree));
-extern tree check_have_mode                     PROTO((tree, const char *));
-extern void init_chill_expand                   PROTO((void));
-extern void chill_expand_assignment             PROTO((tree, enum chill_tree_code, tree));
-extern void expand_assignment_action            PROTO((tree, enum chill_tree_code, tree));
-extern int compare_int_csts                    PROTO((enum chill_tree_code,
+extern tree check_case_selector                 PARAMS ((tree));
+extern tree check_case_selector_list            PARAMS ((tree));
+extern tree check_have_mode                     PARAMS ((tree, const char *));
+extern void init_chill_expand                   PARAMS ((void));
+extern void chill_expand_assignment             PARAMS ((tree, enum chill_tree_code, tree));
+extern void expand_assignment_action            PARAMS ((tree, enum chill_tree_code, tree));
+extern int compare_int_csts                    PARAMS ((enum chill_tree_code,
                                                       tree, tree));
-extern void expand_varying_length_assignment    PROTO((tree, tree));
-extern tree force_addr_of                      PROTO((tree));
-extern tree resolve_component_ref               PROTO((tree));
-extern tree truthvalue_conversion               PROTO((tree));
-extern tree varying_to_slice                   PROTO((tree));
+extern void expand_varying_length_assignment    PARAMS ((tree, tree));
+extern tree force_addr_of                      PARAMS ((tree));
+extern tree resolve_component_ref               PARAMS ((tree));
+extern tree truthvalue_conversion               PARAMS ((tree));
+extern tree varying_to_slice                   PARAMS ((tree));
 
 /* in ch/grant.c */
-extern void chill_finish_compile                PROTO((void));
-extern void chill_seize                         PROTO((tree, tree, tree));
-extern void start_outer_function               PROTO((void));
-extern void finish_chill_seize                  PROTO((tree));
-extern void chill_grant                         PROTO((tree,tree, tree, tree));
-extern void set_default_grant_file              PROTO((void));
-extern void set_identifier_size                 PROTO((int));
-extern void write_grant_file                    PROTO((void));
-extern void write_spec_module                   PROTO((tree, tree));
+extern void chill_finish_compile                PARAMS ((void));
+extern void chill_seize                         PARAMS ((tree, tree, tree));
+extern void start_outer_function               PARAMS ((void));
+extern void finish_chill_seize                  PARAMS ((tree));
+extern void chill_grant                         PARAMS ((tree,tree, tree, tree));
+extern void set_default_grant_file              PARAMS ((void));
+extern void set_identifier_size                 PARAMS ((int));
+extern void write_grant_file                    PARAMS ((void));
+extern void write_spec_module                   PARAMS ((tree, tree));
 
 /* in ch/lang.c */
 extern tree string_index_type_dummy;
 extern tree integer_minus_one_node;
 extern int  flag_old_strings;
-extern void GNU_xref_begin                      PROTO((void));
-extern void GNU_xref_end                        PROTO((void));
-extern tree build_chill_array_type              PROTO((tree, tree, int, tree));
-extern tree build_chill_struct_type             PROTO((tree));
-extern tree build_chill_pointer_type            PROTO((tree));
-extern tree build_chill_range_type              PROTO((tree, tree, tree));
-extern tree build_chill_reference_type          PROTO((tree));
-extern tree build_simple_array_type             PROTO((tree, tree, tree));
-extern tree const_expr                          PROTO((tree));
-extern tree get_identifier3                    PROTO((const char *, const char *, const char *));
-extern tree layout_chill_array_type             PROTO((tree));
-extern tree layout_chill_range_type             PROTO((tree, int));
-extern tree layout_chill_pointer_type           PROTO((tree));
-extern tree layout_chill_struct_type            PROTO((tree));
-extern tree layout_chill_variants               PROTO((tree));
-extern tree layout_powerset_type                PROTO((tree));
-extern tree lookup_interface                    PROTO((tree));
-extern tree maybe_building_objc_message_expr    PROTO((void));
-extern void maybe_objc_check_decl               PROTO((tree));
-extern int  maybe_objc_comptypes                PROTO((tree, tree));
-extern int  recognize_objc_keyword              PROTO((void));
+extern void GNU_xref_begin                      PARAMS ((void));
+extern void GNU_xref_end                        PARAMS ((void));
+extern tree build_chill_array_type              PARAMS ((tree, tree, int, tree));
+extern tree build_chill_struct_type             PARAMS ((tree));
+extern tree build_chill_pointer_type            PARAMS ((tree));
+extern tree build_chill_range_type              PARAMS ((tree, tree, tree));
+extern tree build_chill_reference_type          PARAMS ((tree));
+extern tree build_simple_array_type             PARAMS ((tree, tree, tree));
+extern tree const_expr                          PARAMS ((tree));
+extern tree get_identifier3                    PARAMS ((const char *, const char *, const char *));
+extern tree layout_chill_array_type             PARAMS ((tree));
+extern tree layout_chill_range_type             PARAMS ((tree, int));
+extern tree layout_chill_pointer_type           PARAMS ((tree));
+extern tree layout_chill_struct_type            PARAMS ((tree));
+extern tree layout_chill_variants               PARAMS ((tree));
+extern tree layout_powerset_type                PARAMS ((tree));
+extern tree lookup_interface                    PARAMS ((tree));
+extern tree maybe_building_objc_message_expr    PARAMS ((void));
+extern void maybe_objc_check_decl               PARAMS ((tree));
+extern int  maybe_objc_comptypes                PARAMS ((tree, tree));
+extern int  recognize_objc_keyword              PARAMS ((void));
 
 /* in ch/lex.l */
 extern tree use_seizefile_name;
 extern tree current_seizefile_name;
-extern tree build_chill_string                  PROTO((int, const char *));
-extern int  check_newline                       PROTO((void));
-extern tree get_chill_filename                  PROTO((void)); 
-extern tree get_chill_linenumber                PROTO((void));       
-extern void register_seize_path                 PROTO((const char *));
-extern void reinit_parse_for_function           PROTO((void));
-extern void mark_use_seizefile_written          PROTO((tree));
+extern tree build_chill_string                  PARAMS ((int, const char *));
+extern int  check_newline                       PARAMS ((void));
+extern tree get_chill_filename                  PARAMS ((void)); 
+extern tree get_chill_linenumber                PARAMS ((void));       
+extern void register_seize_path                 PARAMS ((const char *));
+extern void reinit_parse_for_function           PARAMS ((void));
+extern void mark_use_seizefile_written          PARAMS ((tree));
 
 /* in ch/loop.c */
-extern void begin_chill_loop                    PROTO((tree, tree));
-extern tree build_chill_iterator                PROTO((tree, tree, tree, int, int, int));
-extern void end_chill_loop                      PROTO((void));
-extern tree get_unique_identifier               PROTO((const char *));
+extern void begin_chill_loop                    PARAMS ((tree, tree));
+extern tree build_chill_iterator                PARAMS ((tree, tree, tree, int, int, int));
+extern void end_chill_loop                      PARAMS ((void));
+extern tree get_unique_identifier               PARAMS ((const char *));
 
 /* in ch/inout.c */
-extern tree access_recordmode                   PROTO((tree));
-extern void invalidate_access_recordmode        PROTO((tree));
-extern tree access_indexmode                    PROTO((tree));
-extern tree access_dynamic                      PROTO((tree));
+extern tree access_recordmode                   PARAMS ((tree));
+extern void invalidate_access_recordmode        PARAMS ((tree));
+extern tree access_indexmode                    PARAMS ((tree));
+extern tree access_dynamic                      PARAMS ((tree));
 extern tree association_init_value;
 extern tree association_type_node;
-extern tree build_access_mode                   PROTO((tree, tree, int));
-extern tree build_chill_associate               PROTO((tree, tree, tree));
-extern tree build_chill_connect                 PROTO((tree, tree, tree, tree));
-extern tree build_chill_create                  PROTO((tree));
-extern tree build_chill_delete                  PROTO((tree));
-extern tree build_chill_disconnect              PROTO((tree));
-extern tree build_chill_dissociate              PROTO((tree));
-extern tree build_chill_eoln                    PROTO((tree)); 
-extern tree build_chill_existing                PROTO((tree));
-extern tree build_chill_gettextaccess           PROTO((tree)); 
-extern tree build_chill_getassociation          PROTO((tree)); 
-extern tree build_chill_gettextindex            PROTO((tree)); 
-extern tree build_chill_gettextrecord           PROTO((tree)); 
-extern tree build_chill_getusage                PROTO((tree)); 
-extern tree build_chill_indexable               PROTO((tree)); 
-extern tree build_chill_isassociated            PROTO((tree)); 
-extern tree build_chill_modify                  PROTO((tree, tree));
-extern tree build_chill_outoffile               PROTO((tree)); 
-extern tree build_chill_readable                PROTO((tree));
-extern tree build_chill_readrecord              PROTO((tree, tree));
-extern tree build_chill_readtext                PROTO((tree, tree));
-extern tree build_chill_sequencible             PROTO((tree)); 
-extern tree build_chill_settextaccess           PROTO((tree, tree));
-extern tree build_chill_settextindex            PROTO((tree, tree));
-extern tree build_chill_settextrecord           PROTO((tree, tree));
-extern tree build_chill_variable                PROTO((tree)); 
-extern tree build_chill_writeable               PROTO((tree));
-extern tree build_chill_writerecord             PROTO((tree, tree));
-extern tree build_chill_writetext               PROTO((tree, tree));
-extern void build_enum_tables                   PROTO((void));
-extern tree build_text_mode                     PROTO((tree, tree, int));
-extern tree check_text_length                   PROTO((tree));
-extern void init_access_location                PROTO((tree, tree));
-extern void init_text_location                  PROTO((tree, tree));
-extern void inout_init                          PROTO((void));
-extern tree text_dynamic                        PROTO((tree));
-extern tree text_indexmode                      PROTO((tree));
-extern tree text_length                         PROTO((tree));
+extern tree build_access_mode                   PARAMS ((tree, tree, int));
+extern tree build_chill_associate               PARAMS ((tree, tree, tree));
+extern tree build_chill_connect                 PARAMS ((tree, tree, tree, tree));
+extern tree build_chill_create                  PARAMS ((tree));
+extern tree build_chill_delete                  PARAMS ((tree));
+extern tree build_chill_disconnect              PARAMS ((tree));
+extern tree build_chill_dissociate              PARAMS ((tree));
+extern tree build_chill_eoln                    PARAMS ((tree)); 
+extern tree build_chill_existing                PARAMS ((tree));
+extern tree build_chill_gettextaccess           PARAMS ((tree)); 
+extern tree build_chill_getassociation          PARAMS ((tree)); 
+extern tree build_chill_gettextindex            PARAMS ((tree)); 
+extern tree build_chill_gettextrecord           PARAMS ((tree)); 
+extern tree build_chill_getusage                PARAMS ((tree)); 
+extern tree build_chill_indexable               PARAMS ((tree)); 
+extern tree build_chill_isassociated            PARAMS ((tree)); 
+extern tree build_chill_modify                  PARAMS ((tree, tree));
+extern tree build_chill_outoffile               PARAMS ((tree)); 
+extern tree build_chill_readable                PARAMS ((tree));
+extern tree build_chill_readrecord              PARAMS ((tree, tree));
+extern tree build_chill_readtext                PARAMS ((tree, tree));
+extern tree build_chill_sequencible             PARAMS ((tree)); 
+extern tree build_chill_settextaccess           PARAMS ((tree, tree));
+extern tree build_chill_settextindex            PARAMS ((tree, tree));
+extern tree build_chill_settextrecord           PARAMS ((tree, tree));
+extern tree build_chill_variable                PARAMS ((tree)); 
+extern tree build_chill_writeable               PARAMS ((tree));
+extern tree build_chill_writerecord             PARAMS ((tree, tree));
+extern tree build_chill_writetext               PARAMS ((tree, tree));
+extern void build_enum_tables                   PARAMS ((void));
+extern tree build_text_mode                     PARAMS ((tree, tree, int));
+extern tree check_text_length                   PARAMS ((tree));
+extern void init_access_location                PARAMS ((tree, tree));
+extern void init_text_location                  PARAMS ((tree, tree));
+extern void inout_init                          PARAMS ((void));
+extern tree text_dynamic                        PARAMS ((tree));
+extern tree text_indexmode                      PARAMS ((tree));
+extern tree text_length                         PARAMS ((tree));
 extern tree usage_type_node;
 extern tree where_type_node;
 
 /* in ch/parse.c */
-extern tree get_type_of                         PROTO((tree));
-extern void set_yydebug                         PROTO((int));
-extern void yyerror                             PROTO((char *));
+extern tree get_type_of                         PARAMS ((tree));
+extern void set_yydebug                         PARAMS ((int));
+extern void yyerror                             PARAMS ((char *));
 extern int  pass;
 extern int ignoring;
 extern int seen_action;
 extern int build_constructor;
-extern void possibly_define_exit_label          PROTO((tree));
-extern void to_global_binding_level             PROTO((void));
+extern void possibly_define_exit_label          PARAMS ((tree));
+extern void to_global_binding_level             PARAMS ((void));
 
 /* in ch/satisfy.c */
-extern tree satisfy_decl                       PROTO((tree, int));
+extern tree satisfy_decl                       PARAMS ((tree, int));
 
 /* in ch/tasking.c */
-extern void add_taskstuff_to_list               PROTO((tree, const char *, tree, tree, tree));
-extern void process_buffer_decls                PROTO((tree, tree, int));
-extern tree buffer_element_mode                 PROTO((tree));
-extern void invalidate_buffer_element_mode      PROTO((tree));
-extern tree build_buffer_descriptor             PROTO((tree, tree, tree));
-extern tree build_buffer_type                   PROTO((tree, tree));
-extern void build_delay_action                  PROTO((tree, tree));
-extern tree build_delay_case_start              PROTO((tree, tree));
-extern void build_delay_case_end                PROTO((tree));
-extern void build_delay_case_label              PROTO((tree, int));
-extern tree build_event_type                    PROTO((tree));
-extern void build_receive_case_end              PROTO((tree, tree));
-extern int  build_receive_case_if_generated     PROTO((void));
-extern tree build_receive_case_label            PROTO((tree, tree));
-extern tree build_receive_case_start            PROTO((tree));
-extern void expand_continue_event               PROTO((tree));
-extern void expand_send_buffer                  PROTO((tree, tree, tree, tree, tree));
-extern void expand_send_signal                  PROTO((tree, tree, tree, tree, tree));
-extern void build_start_process                 PROTO((tree, tree, tree, tree));
-extern tree build_copy_number                   PROTO((tree));
-extern tree build_gen_code                      PROTO((tree));
-extern tree build_gen_inst                      PROTO((tree, tree));
-extern tree build_gen_ptype                     PROTO((tree));
-extern void build_instance_type                 PROTO((void));
-extern tree build_process_header                PROTO((tree, tree));
-extern void build_process_wrapper               PROTO((tree, tree));
-extern tree build_proc_type                     PROTO((tree));
-extern tree build_queue_length                  PROTO((tree));
-extern tree build_signal_descriptor             PROTO((tree, tree));
-extern tree build_signal_struct_type            PROTO((tree, tree, tree));
-extern tree build_tasking_struct                PROTO((void));
+extern void add_taskstuff_to_list               PARAMS ((tree, const char *, tree, tree, tree));
+extern void process_buffer_decls                PARAMS ((tree, tree, int));
+extern tree buffer_element_mode                 PARAMS ((tree));
+extern void invalidate_buffer_element_mode      PARAMS ((tree));
+extern tree build_buffer_descriptor             PARAMS ((tree, tree, tree));
+extern tree build_buffer_type                   PARAMS ((tree, tree));
+extern void build_delay_action                  PARAMS ((tree, tree));
+extern tree build_delay_case_start              PARAMS ((tree, tree));
+extern void build_delay_case_end                PARAMS ((tree));
+extern void build_delay_case_label              PARAMS ((tree, int));
+extern tree build_event_type                    PARAMS ((tree));
+extern void build_receive_case_end              PARAMS ((tree, tree));
+extern int  build_receive_case_if_generated     PARAMS ((void));
+extern tree build_receive_case_label            PARAMS ((tree, tree));
+extern tree build_receive_case_start            PARAMS ((tree));
+extern void expand_continue_event               PARAMS ((tree));
+extern void expand_send_buffer                  PARAMS ((tree, tree, tree, tree, tree));
+extern void expand_send_signal                  PARAMS ((tree, tree, tree, tree, tree));
+extern void build_start_process                 PARAMS ((tree, tree, tree, tree));
+extern tree build_copy_number                   PARAMS ((tree));
+extern tree build_gen_code                      PARAMS ((tree));
+extern tree build_gen_inst                      PARAMS ((tree, tree));
+extern tree build_gen_ptype                     PARAMS ((tree));
+extern void build_instance_type                 PARAMS ((void));
+extern tree build_process_header                PARAMS ((tree, tree));
+extern void build_process_wrapper               PARAMS ((tree, tree));
+extern tree build_proc_type                     PARAMS ((tree));
+extern tree build_queue_length                  PARAMS ((tree));
+extern tree build_signal_descriptor             PARAMS ((tree, tree));
+extern tree build_signal_struct_type            PARAMS ((tree, tree, tree));
+extern tree build_tasking_struct                PARAMS ((void));
 extern tree chill_taskingcode_type_node;
-extern tree check_queue_size                    PROTO((tree));
-extern tree generate_tasking_code_variable      PROTO((tree, tree *, int));
-extern tree get_signal_type_name                PROTO((tree));
-extern tree get_struct_type_name                PROTO((tree));
-extern tree get_tasking_code_name               PROTO((tree));
-extern tree make_process_struct                 PROTO((tree, tree));
-extern tree make_signal_struct                  PROTO((tree));
-extern tree max_queue_size                      PROTO((tree));
-extern void tasking_init                        PROTO((void));
-extern void tasking_registry                    PROTO((void));
-extern void tasking_setup                       PROTO((void));
+extern tree check_queue_size                    PARAMS ((tree));
+extern tree generate_tasking_code_variable      PARAMS ((tree, tree *, int));
+extern tree get_signal_type_name                PARAMS ((tree));
+extern tree get_struct_type_name                PARAMS ((tree));
+extern tree get_tasking_code_name               PARAMS ((tree));
+extern tree make_process_struct                 PARAMS ((tree, tree));
+extern tree make_signal_struct                  PARAMS ((tree));
+extern tree max_queue_size                      PARAMS ((tree));
+extern void tasking_init                        PARAMS ((void));
+extern void tasking_registry                    PARAMS ((void));
+extern void tasking_setup                       PARAMS ((void));
 
 /* in ch/timing.c */
 extern tree abs_timing_type_node;
 extern tree after_stack;
-extern void build_after_end                     PROTO((void));
-extern void build_after_start                   PROTO((tree, int));
-extern void build_after_timeout_start           PROTO((void));
-extern void build_at_action                     PROTO((tree));
-extern void build_cycle_end                     PROTO((tree));
-extern tree build_cycle_start                   PROTO((tree));
-extern tree build_timeout_preface               PROTO((void));
-extern void build_timesupervised_call           PROTO((tree, tree));
+extern void build_after_end                     PARAMS ((void));
+extern void build_after_start                   PARAMS ((tree, int));
+extern void build_after_timeout_start           PARAMS ((void));
+extern void build_at_action                     PARAMS ((tree));
+extern void build_cycle_end                     PARAMS ((tree));
+extern tree build_cycle_start                   PARAMS ((tree));
+extern tree build_timeout_preface               PARAMS ((void));
+extern void build_timesupervised_call           PARAMS ((tree, tree));
 extern tree duration_timing_type_node;
-extern void timing_init                         PROTO((void));
+extern void timing_init                         PARAMS ((void));
 
 /* in ch/tree.c */
-extern tree build_alias_decl                   PROTO((tree, tree, tree));
-extern tree build_bitstring_type                PROTO((tree));
-extern tree build_powerset_type                 PROTO((tree));
-extern tree build_string_type                   PROTO((tree, tree));
-extern tree decl_check_rename                  PROTO((tree, tree));
-extern tree discrete_count                      PROTO((tree));
-extern int  list_length                         PROTO((tree));
-extern tree munge_exit_label                   PROTO((tree));
-extern tree save_if_needed                     PROTO((tree));
+extern tree build_alias_decl                   PARAMS ((tree, tree, tree));
+extern tree build_bitstring_type                PARAMS ((tree));
+extern tree build_powerset_type                 PARAMS ((tree));
+extern tree build_string_type                   PARAMS ((tree, tree));
+extern tree decl_check_rename                  PARAMS ((tree, tree));
+extern tree discrete_count                      PARAMS ((tree));
+extern int  list_length                         PARAMS ((tree));
+extern tree munge_exit_label                   PARAMS ((tree));
+extern tree save_if_needed                     PARAMS ((tree));
 
 /* in ch/typeck.c */
-extern tree build_array_from_set                PROTO((tree));
-extern tree build_chill_array_ref               PROTO((tree, tree));
-extern tree build_chill_bitref                  PROTO((tree, tree));
-extern tree build_chill_cast                    PROTO((tree, tree));
-extern tree chill_equivalent                   PROTO((tree, tree, struct mode_chain*));
-extern tree build_init_struct                   PROTO((void));
-extern tree build_readonly_type                 PROTO((tree));
-extern int  chill_compatible                    PROTO((tree, tree));
-extern int  chill_compatible_classes            PROTO((tree, tree));
-extern ch_class chill_expr_class                PROTO((tree));
-extern tree chill_give_type_to_expr             PROTO((tree, tree));
-extern tree chill_expand_tuple                  PROTO((tree, tree));
-extern ch_class chill_expr_class                PROTO((tree));
-extern int  chill_location                      PROTO((tree));
-extern tree chill_max_vary_array_index         PROTO((tree));
-extern int  chill_read_compatible               PROTO((tree, tree));
-extern int  chill_referable                     PROTO((tree));
-extern tree chill_root_mode                    PROTO((tree));
-extern ch_class chill_resulting_class           PROTO((ch_class, ch_class));
-extern tree chill_resulting_mode                PROTO((tree, tree));
-extern int  chill_similar                      PROTO((tree, tree, struct mode_chain*));
-extern int  discrete_type_p                    PROTO((tree));
-extern tree convert_to_discrete                 PROTO((tree));
-extern tree smash_dummy_type                    PROTO((tree));
-extern tree string_assignment_condition         PROTO((tree, tree));
-extern tree type_for_mode                       PROTO((enum machine_mode, int));
-extern tree type_for_size                       PROTO((unsigned, int));
-extern int  valid_array_index                   PROTO((tree, tree));
-extern void validate_varying_array_ref          PROTO((tree, tree));
+extern tree build_array_from_set                PARAMS ((tree));
+extern tree build_chill_array_ref               PARAMS ((tree, tree));
+extern tree build_chill_bitref                  PARAMS ((tree, tree));
+extern tree build_chill_cast                    PARAMS ((tree, tree));
+extern tree chill_equivalent                   PARAMS ((tree, tree, struct mode_chain*));
+extern tree build_init_struct                   PARAMS ((void));
+extern tree build_readonly_type                 PARAMS ((tree));
+extern int  chill_compatible                    PARAMS ((tree, tree));
+extern int  chill_compatible_classes            PARAMS ((tree, tree));
+extern ch_class chill_expr_class                PARAMS ((tree));
+extern tree chill_give_type_to_expr             PARAMS ((tree, tree));
+extern tree chill_expand_tuple                  PARAMS ((tree, tree));
+extern ch_class chill_expr_class                PARAMS ((tree));
+extern int  chill_location                      PARAMS ((tree));
+extern tree chill_max_vary_array_index         PARAMS ((tree));
+extern int  chill_read_compatible               PARAMS ((tree, tree));
+extern int  chill_referable                     PARAMS ((tree));
+extern tree chill_root_mode                    PARAMS ((tree));
+extern ch_class chill_resulting_class           PARAMS ((ch_class, ch_class));
+extern tree chill_resulting_mode                PARAMS ((tree, tree));
+extern int  chill_similar                      PARAMS ((tree, tree, struct mode_chain*));
+extern int  discrete_type_p                    PARAMS ((tree));
+extern tree convert_to_discrete                 PARAMS ((tree));
+extern tree smash_dummy_type                    PARAMS ((tree));
+extern tree string_assignment_condition         PARAMS ((tree, tree));
+extern tree type_for_mode                       PARAMS ((enum machine_mode, int));
+extern tree type_for_size                       PARAMS ((unsigned, int));
+extern int  valid_array_index                   PARAMS ((tree, tree));
+extern void validate_varying_array_ref          PARAMS ((tree, tree));
 
 /* in function.c */
-extern void expand_function_end                 PROTO((char *, int, int));
-extern void expand_function_start               PROTO((tree, int));
-extern void init_function_start                 PROTO((tree, char *, int));
-extern void pop_function_context                PROTO((void));
-extern void push_function_context               PROTO((void));
+extern void expand_function_end                 PARAMS ((char *, int, int));
+extern void expand_function_start               PARAMS ((tree, int));
+extern void init_function_start                 PARAMS ((tree, char *, int));
+extern void pop_function_context                PARAMS ((void));
+extern void push_function_context               PARAMS ((void));
 
 /* in integrate.c */
-extern void output_inline_function              PROTO((tree));
+extern void output_inline_function              PARAMS ((tree));
 
 /* in toplev.c */
-extern void announce_function                   PROTO((tree));
-extern int  floor_log2_wide                     PROTO((unsigned HOST_WIDE_INT));
-extern void rest_of_compilation                 PROTO((tree));
+extern void announce_function                   PARAMS ((tree));
+extern int  floor_log2_wide                     PARAMS ((unsigned HOST_WIDE_INT));
+extern void rest_of_compilation                 PARAMS ((tree));
 
 /* in varasm.c */
-extern void make_function_rtl                   PROTO((tree));
+extern void make_function_rtl                   PARAMS ((tree));
 
 /* in ???? */
-extern void init_iterators                      PROTO((void));
-extern int  mark_addressable                   PROTO((tree));
+extern void init_iterators                      PARAMS ((void));
+extern int  mark_addressable                   PARAMS ((tree));
 extern tree chill_result_decl;
 #ifdef RTX_CODE
-extern rtx label_rtx                            PROTO((tree));
+extern rtx label_rtx                            PARAMS ((tree));
 #endif
-extern void permanent_allocation                PROTO((int));
+extern void permanent_allocation                PARAMS ((int));
 
 #ifndef SET_WORD_SIZE
 #define SET_WORD_SIZE BITS_PER_WORD
@@ -1164,7 +1164,7 @@ struct module
 extern struct module *current_module;
 
 /* 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;
 

diff --git a/gcc/ch/convert.c b/gcc/ch/convert.c
index 137a2d579f89b6ba29b1168a0166c0555b23b7d7..7ad914b9f33393dff6cf6635393ecb02623129e0 100644 (file)
--- a/gcc/ch/convert.c
+++ b/gcc/ch/convert.c
@@ -38,18 +38,18 @@ extern tree bit_one_node, bit_zero_node;
 extern tree string_one_type_node;
 extern tree bitstring_one_type_node;
 
-static tree convert_to_reference       PROTO ((tree, tree));
-static tree convert_to_boolean         PROTO ((tree, tree));
-static tree convert_to_char            PROTO ((tree, tree));
+static tree convert_to_reference       PARAMS ((tree, tree));
+static tree convert_to_boolean         PARAMS ((tree, tree));
+static tree convert_to_char            PARAMS ((tree, tree));
 #if 0
-static tree base_type_size_in_bytes    PROTO ((tree));
+static tree base_type_size_in_bytes    PARAMS ((tree));
 #endif
-static tree remove_tree_element                PROTO ((tree, tree *));
-static tree check_ps_range             PROTO ((tree, tree, tree));
-static tree digest_powerset_tuple      PROTO ((tree, tree));
-static tree digest_structure_tuple     PROTO ((tree, tree));
-static tree digest_array_tuple         PROTO ((tree, tree, int));
-static tree convert1                   PROTO ((tree, tree));
+static tree remove_tree_element                PARAMS ((tree, tree *));
+static tree check_ps_range             PARAMS ((tree, tree, tree));
+static tree digest_powerset_tuple      PARAMS ((tree, tree));
+static tree digest_structure_tuple     PARAMS ((tree, tree));
+static tree digest_array_tuple         PARAMS ((tree, tree, int));
+static tree convert1                   PARAMS ((tree, tree));
 \f
 static tree
 convert_to_reference (reftype, expr)

diff --git a/gcc/ch/decl.c b/gcc/ch/decl.c
index 01cf6c48188636b11fa82136c84201aa64cceb4e..6e1cf730aac17f284d8f686c98d4bdcb3c8e0545 100644 (file)
--- a/gcc/ch/decl.c
+++ b/gcc/ch/decl.c
@@ -205,12 +205,12 @@ extern struct obstack *saveable_obstack;
 extern tree signal_code;
 extern int special_UC;
 
-static tree get_next_decl             PROTO((void));
-static tree lookup_name_for_seizing   PROTO((tree));
+static tree get_next_decl             PARAMS ((void));
+static tree lookup_name_for_seizing   PARAMS ((tree));
 #if 0
-static tree lookup_name_current_level PROTO((tree));
+static tree lookup_name_current_level PARAMS ((tree));
 #endif
-static void save_decl                 PROTO((tree));
+static void save_decl                 PARAMS ((tree));
 
 extern struct obstack permanent_obstack;
 extern int in_pseudo_module;
@@ -240,21 +240,21 @@ tree chill_result_decl;
 int result_never_set;
 
 /* forward declarations */
-static void pushdecllist                     PROTO((tree, int));
-static int  init_nonvalue_struct             PROTO((tree));
-static int  init_nonvalue_array              PROTO((tree));
-static void set_nesting_level                PROTO((tree, int));
-static tree make_chill_variants              PROTO((tree, tree, tree));
-static tree fix_identifier                   PROTO((tree));
-static void proclaim_decl                    PROTO((tree, int));
-static tree maybe_acons                      PROTO((tree, tree));
-static void push_scope_decls                 PROTO((int));
-static void pop_scope_decls                  PROTO((tree, tree));
-static tree build_implied_names              PROTO((tree));
-static void bind_sub_modules                 PROTO((int));
-static void layout_array_type                PROTO((tree));
-static void do_based_decl                    PROTO((tree, tree, tree));
-static void handle_one_level                 PROTO((tree, tree));
+static void pushdecllist                     PARAMS ((tree, int));
+static int  init_nonvalue_struct             PARAMS ((tree));
+static int  init_nonvalue_array              PARAMS ((tree));
+static void set_nesting_level                PARAMS ((tree, int));
+static tree make_chill_variants              PARAMS ((tree, tree, tree));
+static tree fix_identifier                   PARAMS ((tree));
+static void proclaim_decl                    PARAMS ((tree, int));
+static tree maybe_acons                      PARAMS ((tree, tree));
+static void push_scope_decls                 PARAMS ((int));
+static void pop_scope_decls                  PARAMS ((tree, tree));
+static tree build_implied_names              PARAMS ((tree));
+static void bind_sub_modules                 PARAMS ((int));
+static void layout_array_type                PARAMS ((tree));
+static void do_based_decl                    PARAMS ((tree, tree, tree));
+static void handle_one_level                 PARAMS ((tree, tree));
 
 int current_nesting_level = BUILTIN_NESTING_LEVEL;
 int current_module_nesting_level = 0;
@@ -1545,7 +1545,7 @@ struct tree_pair
   tree decl;
 };
 
-static int  label_value_cmp                  PROTO((struct tree_pair *,
+static int  label_value_cmp                  PARAMS ((struct tree_pair *,
                                                    struct tree_pair *));
 
 /* Function to help qsort sort variant labels by value order.  */
@@ -1739,7 +1739,7 @@ layout_chill_variants (utype)
       int limit;
       qsort (label_value_array,
             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;
       for (label_index = 0; label_index < limit; label_index++)
        {
@@ -2493,7 +2493,7 @@ struct path
   tree node;
 };
 
-static tree find_implied_types            PROTO((tree, struct path *, tree));
+static tree find_implied_types            PARAMS ((tree, struct path *, tree));
 \f
 /* Look for implied types (enumeral types) implied by TYPE (a decl or type).
    Add these to list.

diff --git a/gcc/ch/except.c b/gcc/ch/except.c
index 7870a397b11b6ca948bec4bdb5fb660d46a2dc49..92a94258022ae0f5aa169817e78cfd966329e807 100644 (file)
--- a/gcc/ch/except.c
+++ b/gcc/ch/except.c
@@ -60,10 +60,10 @@ static tree link_handler_decl;
 static tree handler_link_pointer_type;
 static tree unlink_handler_decl;
 static int exceptions_initialized = 0;
-static void emit_setup_handler PROTO((void));
-static void initialize_exceptions PROTO((void));
-static tree start_handler_array PROTO((void));
-static void finish_handler_array PROTO((void));
+static void emit_setup_handler PARAMS ((void));
+static void initialize_exceptions PARAMS ((void));
+static tree start_handler_array PARAMS ((void));
+static void finish_handler_array PARAMS ((void));
 static tree char_pointer_type_for_handler;
 
 /* If this is 1, operations to push and pop on the __exceptionStack

diff --git a/gcc/ch/expr.c b/gcc/ch/expr.c
index 89ff5738c1f3be5f57e210ffbb6190ce4e732eeb..84a409af4b33f0e64732c12a4750bbb59e6df1ae 100644 (file)
--- a/gcc/ch/expr.c
+++ b/gcc/ch/expr.c
@@ -52,42 +52,42 @@ extern int  special_UC;
 #define DAYS_MAX                                            49
 
 /* 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));
-static tree chill_expand_case_expr     PROTO ((tree));
-static int check_arglist_length                PROTO ((tree, int, int, tree));
-static tree internal_build_compound_expr PROTO ((tree, int));
-static int is_really_instance          PROTO ((tree));
-static int invalid_operand             PROTO ((enum chill_tree_code,
+static tree chill_expand_case_expr     PARAMS ((tree));
+static int check_arglist_length                PARAMS ((tree, int, int, tree));
+static tree internal_build_compound_expr PARAMS ((tree, int));
+static int is_really_instance          PARAMS ((tree));
+static int invalid_operand             PARAMS ((enum chill_tree_code,
                                                tree, int));
-static int invalid_right_operand       PROTO ((enum chill_tree_code, tree));
-static tree build_chill_abstime                PROTO ((tree));
-static tree build_allocate_memory_call PROTO ((tree, tree));
-static tree build_allocate_global_memory_call PROTO ((tree, tree));
-static tree build_return_memory                PROTO ((tree));
-static tree build_chill_duration       PROTO ((tree, unsigned long,
+static int invalid_right_operand       PARAMS ((enum chill_tree_code, tree));
+static tree build_chill_abstime                PARAMS ((tree));
+static tree build_allocate_memory_call PARAMS ((tree, tree));
+static tree build_allocate_global_memory_call PARAMS ((tree, tree));
+static tree build_return_memory                PARAMS ((tree));
+static tree build_chill_duration       PARAMS ((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 *));
-static tree build_allocate_getstack    PROTO ((tree, tree, const char *,
+static tree build_allocate_getstack    PARAMS ((tree, tree, const char *,
                                                const char *, tree, tree));
-static tree build_chill_allocate       PROTO ((tree, tree));
-static tree build_chill_getstack       PROTO ((tree, tree));
-static tree build_chill_terminate      PROTO ((tree));
-static tree build_chill_inttime                PROTO ((tree, tree));
-static tree build_chill_lower_or_upper PROTO ((tree, int));
-static tree build_max_min              PROTO ((tree, int));
-static tree build_chill_pred_or_succ   PROTO ((tree, enum tree_code));
-static tree expand_packed_set          PROTO ((const char *, int, tree));
-static tree fold_set_expr              PROTO ((enum chill_tree_code,
+static tree build_chill_allocate       PARAMS ((tree, tree));
+static tree build_chill_getstack       PARAMS ((tree, tree));
+static tree build_chill_terminate      PARAMS ((tree));
+static tree build_chill_inttime                PARAMS ((tree, tree));
+static tree build_chill_lower_or_upper PARAMS ((tree, int));
+static tree build_max_min              PARAMS ((tree, int));
+static tree build_chill_pred_or_succ   PARAMS ((tree, enum tree_code));
+static tree expand_packed_set          PARAMS ((const char *, int, tree));
+static tree fold_set_expr              PARAMS ((enum chill_tree_code,
                                                tree, tree));
-static tree build_compare_set_expr     PROTO ((enum tree_code, tree, tree));
-static tree scalar_to_string           PROTO ((tree));
-static tree build_concat_expr          PROTO ((tree, tree));
-static tree build_compare_string_expr  PROTO ((enum tree_code, tree, tree));
-static tree compare_records            PROTO ((tree, tree));
-static tree string_char_rep            PROTO ((int, tree));
-static tree build_boring_bitstring     PROTO ((long, int));
+static tree build_compare_set_expr     PARAMS ((enum tree_code, tree, tree));
+static tree scalar_to_string           PARAMS ((tree));
+static tree build_concat_expr          PARAMS ((tree, tree));
+static tree build_compare_string_expr  PARAMS ((enum tree_code, tree, tree));
+static tree compare_records            PARAMS ((tree, tree));
+static tree string_char_rep            PARAMS ((int, tree));
+static tree build_boring_bitstring     PARAMS ((long, int));
 
 /* variable to hold the type the DESCR built-in returns */
 static tree descr_type = NULL_TREE;

diff --git a/gcc/ch/grant.c b/gcc/ch/grant.c
index 6fc357d93820c718c69e8c8d5556967172692d84..4784ce6dc00a488e02cb8f947ca1f7be4d502f32 100644 (file)
--- a/gcc/ch/grant.c
+++ b/gcc/ch/grant.c
@@ -73,44 +73,44 @@ char        *grant_file_name;
 MYSTRING       *gstring = NULL;
 MYSTRING        *selective_gstring = NULL;
 
-static MYSTRING *decode_decl                PROTO((tree));
-static MYSTRING *decode_constant            PROTO((tree));
-static void      grant_one_decl             PROTO((tree));
-static MYSTRING *get_type                   PROTO((tree));
-static MYSTRING *decode_mode                PROTO((tree));
-static MYSTRING *decode_prefix_rename       PROTO((tree));
-static MYSTRING *decode_constant_selective  PROTO((tree, tree));
-static MYSTRING *decode_mode_selective      PROTO((tree, tree));
-static MYSTRING *get_type_selective         PROTO((tree, tree));
-static MYSTRING *decode_decl_selective      PROTO((tree, tree));
-static MYSTRING *newstring                  PROTO((const char *));
-static void strfree                         PROTO((MYSTRING *));
-static MYSTRING *append                     PROTO((MYSTRING *, const char *));
-static MYSTRING *prepend                    PROTO((MYSTRING *, const char *));
-static void grant_use_seizefile             PROTO((const char *));
-static MYSTRING *decode_layout              PROTO((tree));
-static MYSTRING *grant_array_type           PROTO((tree));
-static MYSTRING *grant_array_type_selective PROTO((tree, tree));
-static MYSTRING *get_tag_value              PROTO((tree));
-static MYSTRING *get_tag_value_selective    PROTO((tree, tree));
-static MYSTRING *print_enumeral             PROTO((tree));
-static MYSTRING *print_enumeral_selective   PROTO((tree, tree));
-static MYSTRING *print_integer_type         PROTO((tree));
-static tree find_enum_parent                PROTO((tree, tree));
-static MYSTRING *print_integer_selective    PROTO((tree, tree));
-static MYSTRING *print_struct               PROTO((tree));
-static MYSTRING *print_struct_selective     PROTO((tree, tree));
-static MYSTRING *print_proc_exceptions      PROTO((tree));
-static MYSTRING *print_proc_tail            PROTO((tree, tree, int));
-static MYSTRING *print_proc_tail_selective  PROTO((tree, tree, tree));
-static tree find_in_decls                   PROTO((tree, tree));
-static int in_ridpointers                   PROTO((tree));
-static void grant_seized_identifier         PROTO((tree));
-static void globalize_decl                  PROTO((tree));
-static void grant_one_decl_selective        PROTO((tree, tree));
-static int compare_memory_file              PROTO((const char *, const char *));
-static int search_in_list                   PROTO((tree, tree));
-static int really_grant_this                PROTO((tree, tree));
+static MYSTRING *decode_decl                PARAMS ((tree));
+static MYSTRING *decode_constant            PARAMS ((tree));
+static void      grant_one_decl             PARAMS ((tree));
+static MYSTRING *get_type                   PARAMS ((tree));
+static MYSTRING *decode_mode                PARAMS ((tree));
+static MYSTRING *decode_prefix_rename       PARAMS ((tree));
+static MYSTRING *decode_constant_selective  PARAMS ((tree, tree));
+static MYSTRING *decode_mode_selective      PARAMS ((tree, tree));
+static MYSTRING *get_type_selective         PARAMS ((tree, tree));
+static MYSTRING *decode_decl_selective      PARAMS ((tree, tree));
+static MYSTRING *newstring                  PARAMS ((const char *));
+static void strfree                         PARAMS ((MYSTRING *));
+static MYSTRING *append                     PARAMS ((MYSTRING *, const char *));
+static MYSTRING *prepend                    PARAMS ((MYSTRING *, const char *));
+static void grant_use_seizefile             PARAMS ((const char *));
+static MYSTRING *decode_layout              PARAMS ((tree));
+static MYSTRING *grant_array_type           PARAMS ((tree));
+static MYSTRING *grant_array_type_selective PARAMS ((tree, tree));
+static MYSTRING *get_tag_value              PARAMS ((tree));
+static MYSTRING *get_tag_value_selective    PARAMS ((tree, tree));
+static MYSTRING *print_enumeral             PARAMS ((tree));
+static MYSTRING *print_enumeral_selective   PARAMS ((tree, tree));
+static MYSTRING *print_integer_type         PARAMS ((tree));
+static tree find_enum_parent                PARAMS ((tree, tree));
+static MYSTRING *print_integer_selective    PARAMS ((tree, tree));
+static MYSTRING *print_struct               PARAMS ((tree));
+static MYSTRING *print_struct_selective     PARAMS ((tree, tree));
+static MYSTRING *print_proc_exceptions      PARAMS ((tree));
+static MYSTRING *print_proc_tail            PARAMS ((tree, tree, int));
+static MYSTRING *print_proc_tail_selective  PARAMS ((tree, tree, tree));
+static tree find_in_decls                   PARAMS ((tree, tree));
+static int in_ridpointers                   PARAMS ((tree));
+static void grant_seized_identifier         PARAMS ((tree));
+static void globalize_decl                  PARAMS ((tree));
+static void grant_one_decl_selective        PARAMS ((tree, tree));
+static int compare_memory_file              PARAMS ((const char *, const char *));
+static int search_in_list                   PARAMS ((tree, tree));
+static int really_grant_this                PARAMS ((tree, tree));
 
 /* list of the VAR_DECLs of the module initializer entries */
 tree      module_init_list = NULL_TREE;

diff --git a/gcc/ch/inout.c b/gcc/ch/inout.c
index 6a8e9bc58c123b5edeecf4d96758f204b6d274e6..ad5f971f2987582675dc0ae819de3612a28f988c 100644 (file)
--- a/gcc/ch/inout.c
+++ b/gcc/ch/inout.c
@@ -35,26 +35,26 @@ extern int ignore_case;
 /* set non-zero if special words are to be entered in uppercase */
 extern int special_UC;
 
-static int intsize_of_charsexpr                PROTO ((tree));
-static tree add_enum_to_list           PROTO ((tree, tree));
-static void build_chill_io_list_type   PROTO ((void));
-static void build_io_types             PROTO ((void));
-static void declare_predefined_file    PROTO ((const char *, const char *));
-static tree build_access_part          PROTO ((void));
-static tree textlocation_mode          PROTO ((tree));
-static int check_assoc                 PROTO ((tree, int, const char *));
-static tree assoc_call                 PROTO ((tree, tree, const char *));
-static int check_transfer              PROTO ((tree, int, const char *));
-static int connect_process_optionals   PROTO ((tree, tree *, tree *, tree));
-static tree connect_text               PROTO ((tree, tree, tree, tree));
-static tree connect_access             PROTO ((tree, tree, tree, tree));
-static int check_access                        PROTO ((tree, int, const char *));
-static int check_text                  PROTO ((tree, int, const char *));
-static tree get_final_type_and_range   PROTO ((tree, tree *, tree *));
-static void process_io_list            PROTO ((tree, tree *, tree *, rtx *,
+static int intsize_of_charsexpr                PARAMS ((tree));
+static tree add_enum_to_list           PARAMS ((tree, tree));
+static void build_chill_io_list_type   PARAMS ((void));
+static void build_io_types             PARAMS ((void));
+static void declare_predefined_file    PARAMS ((const char *, const char *));
+static tree build_access_part          PARAMS ((void));
+static tree textlocation_mode          PARAMS ((tree));
+static int check_assoc                 PARAMS ((tree, int, const char *));
+static tree assoc_call                 PARAMS ((tree, tree, const char *));
+static int check_transfer              PARAMS ((tree, int, const char *));
+static int connect_process_optionals   PARAMS ((tree, tree *, tree *, tree));
+static tree connect_text               PARAMS ((tree, tree, tree, tree));
+static tree connect_access             PARAMS ((tree, tree, tree, tree));
+static int check_access                        PARAMS ((tree, int, const char *));
+static int check_text                  PARAMS ((tree, int, const char *));
+static tree get_final_type_and_range   PARAMS ((tree, tree *, tree *));
+static void process_io_list            PARAMS ((tree, tree *, tree *, rtx *,
                                                int, int));
-static void check_format_string                PROTO ((tree, tree, int));
-static int get_max_size                        PROTO ((tree));
+static void check_format_string                PARAMS ((tree, tree, int));
+static int get_max_size                        PARAMS ((tree));
 
 /* association mode */
 tree association_type_node;
@@ -3807,7 +3807,7 @@ typedef enum
 } convcode_t;
 static convcode_t     convcode;
 
-static tree check_exprlist             PROTO ((convcode_t, tree, int,
+static tree check_exprlist             PARAMS ((convcode_t, tree, int,
                                                unsigned long));
 
 typedef enum
@@ -3844,7 +3844,7 @@ typedef enum {
   NormalEnd, EndAtParen, TextFailEnd 
 } formatexit_t;
 
-static formatexit_t scanformcont       PROTO ((char *, int, char **, int *,
+static formatexit_t scanformcont       PARAMS ((char *, int, char **, int *,
                                                tree, tree *, int, int *));
 
 /* NOTE: varibale have to be set to False before calling check_format_string */

diff --git a/gcc/ch/lang.c b/gcc/ch/lang.c
index 8abecf712cbd0222168413cae4e107c3f486d402..fdc7f4ca2a3d652ce4cc8538a9a2809d80005999 100644 (file)
--- a/gcc/ch/lang.c
+++ b/gcc/ch/lang.c
@@ -52,8 +52,8 @@ extern FILE* finput;
 
 extern int maximum_field_alignment;
 
-static int deep_const_expr                     PROTO ((tree));
-static void chill_print_error_function         PROTO ((const char *));
+static int deep_const_expr                     PARAMS ((tree));
+static void chill_print_error_function         PARAMS ((const char *));
 \f
 /* return 1 if the expression tree given has all
    constant nodes as its leaves; return 0 otherwise. */

diff --git a/gcc/ch/lex.c b/gcc/ch/lex.c
index 5a5bc6db8db396dac6f8b4711fc5c7522b728d7f..21a9aa0d60e2b68851513cb31d7b1fb3c39627a0 100644 (file)
--- a/gcc/ch/lex.c
+++ b/gcc/ch/lex.c
@@ -68,26 +68,26 @@ extern struct obstack permanent_obstack;
 extern struct obstack temporary_obstack;
 
 /* forward declarations */
-static void close_input_file         PROTO((const char *));
-static tree convert_bitstring        PROTO((char *));
-static tree convert_integer          PROTO((char *));
-static void maybe_downcase           PROTO((char *));
-static int  maybe_number             PROTO((const char *));
-static tree equal_number             PROTO((void));
-static void handle_use_seizefile_directive PROTO((int));
-static int  handle_name                     PROTO((tree));
-static char *readstring              PROTO((int, int *));
-static void read_directive          PROTO((void));
-static tree read_identifier         PROTO((int));
-static tree read_number              PROTO((int));
-static void skip_c_comment           PROTO((void));
-static void skip_line_comment        PROTO((void));
-static int  skip_whitespace          PROTO((void));
-static tree string_or_char           PROTO((int, const char *));
-static void ch_lex_init              PROTO((void));
-static void skip_directive           PROTO((void));
-static int same_file                 PROTO((const char *, const char *));
-static int getlc                     PROTO((FILE *));
+static void close_input_file         PARAMS ((const char *));
+static tree convert_bitstring        PARAMS ((char *));
+static tree convert_integer          PARAMS ((char *));
+static void maybe_downcase           PARAMS ((char *));
+static int  maybe_number             PARAMS ((const char *));
+static tree equal_number             PARAMS ((void));
+static void handle_use_seizefile_directive PARAMS ((int));
+static int  handle_name                     PARAMS ((tree));
+static char *readstring              PARAMS ((int, int *));
+static void read_directive          PARAMS ((void));
+static tree read_identifier         PARAMS ((int));
+static tree read_number              PARAMS ((int));
+static void skip_c_comment           PARAMS ((void));
+static void skip_line_comment        PARAMS ((void));
+static int  skip_whitespace          PARAMS ((void));
+static tree string_or_char           PARAMS ((int, const char *));
+static void ch_lex_init              PARAMS ((void));
+static void skip_directive           PARAMS ((void));
+static int same_file                 PARAMS ((const char *, const char *));
+static int getlc                     PARAMS ((FILE *));
 
 /* next variables are public, because ch-actions uses them */
 
@@ -294,8 +294,8 @@ finish_parse ()
     fclose (finput);
 }
 \f
-static int yywrap PROTO ((void));
-static int yy_refill PROTO ((void));
+static int yywrap PARAMS ((void));
+static int yy_refill PARAMS ((void));
 
 #define YY_PUTBACK_SIZE 5
 #define YY_BUF_SIZE 1000

diff --git a/gcc/ch/lex.h b/gcc/ch/lex.h
index fd7c4b92131b4482a9730a985bb7f77ca3f4a601..466ba285db6f1f816e4e14725ea4828f742cbcd7 100644 (file)
--- a/gcc/ch/lex.h
+++ b/gcc/ch/lex.h
@@ -82,9 +82,9 @@ extern tree ridpointers[(int) RID_MAX];
 
 extern char *token_buffer;     /* Pointer to token buffer.  */
 
-extern tree make_pointer_declarator PROTO((tree, tree));
-extern void reinit_parse_for_function PROTO((void));
-extern int yylex PROTO((void));
+extern tree make_pointer_declarator PARAMS ((tree, tree));
+extern void reinit_parse_for_function PARAMS ((void));
+extern int yylex PARAMS ((void));
 
 extern tree default_grant_file;
 extern tree current_grant_file;
@@ -94,4 +94,4 @@ extern tree current_seize_file;
 extern int chill_at_module_level;
 extern tree chill_initializer_name;
 
-extern void prepare_paren_colon PROTO((void));
+extern void prepare_paren_colon PARAMS ((void));

diff --git a/gcc/ch/loop.c b/gcc/ch/loop.c
index 5a1385e916e5b65098014115ec9c6033b3854bed..c23138ad0ee2827a8264231919905aabffb2d35f 100644 (file)
--- a/gcc/ch/loop.c
+++ b/gcc/ch/loop.c
@@ -36,15 +36,15 @@ Boston, MA 02111-1307, USA.  */
 int flag_local_loop_counter = 1;
 
 /* forward declarations */
-static int  declare_temps            PROTO((void));
-static int  initialize_iter_var      PROTO((void));
-static void maybe_skip_loop          PROTO((void));
-static int  bottom_loop_end_check    PROTO((void));
-static int  increment_temps          PROTO((void));
-static tree build_temporary_variable PROTO((const char *, tree));
-static tree maybe_make_for_temp      PROTO((tree, const char *, tree));
+static int  declare_temps            PARAMS ((void));
+static int  initialize_iter_var      PARAMS ((void));
+static void maybe_skip_loop          PARAMS ((void));
+static int  bottom_loop_end_check    PARAMS ((void));
+static int  increment_temps          PARAMS ((void));
+static tree build_temporary_variable PARAMS ((const char *, tree));
+static tree maybe_make_for_temp      PARAMS ((tree, const char *, tree));
 #if 0
-static tree chill_unsigned_type      PROTO((tree));
+static tree chill_unsigned_type      PARAMS ((tree));
 #endif
 \f
 /* In terms of the parameters passed to build_loop_iterator,

diff --git a/gcc/ch/nloop.c b/gcc/ch/nloop.c
index f011703cd33482a09da2a57be4af22e148ed28fd..0bd935200eb48908fbe78f8430bce1ba6b5bc297 100644 (file)
--- a/gcc/ch/nloop.c
+++ b/gcc/ch/nloop.c
@@ -35,26 +35,26 @@ Boston, MA 02111-1307, USA.  */
    ch-actions.c (lang_decode_option) will set this flag. */
 int flag_local_loop_counter = 0;
 
-extern tree chill_truthvalue_conversion PROTO((tree));
-extern rtx  emit_line_note              PROTO((char *, int)); 
-extern void error                       PROTO((char *, ...));
-extern rtx  expand_assignment           PROTO((tree, tree, int, int));
-extern void save_expr_under_name        PROTO((tree, tree));
-extern void stamp_nesting_label         PROTO((tree));
-extern int  int_fits_type_p             PROTO((tree, tree));
-extern void warning                     PROTO((char *, ...));
+extern tree chill_truthvalue_conversion PARAMS ((tree));
+extern rtx  emit_line_note              PARAMS ((char *, int)); 
+extern void error                       PARAMS ((char *, ...));
+extern rtx  expand_assignment           PARAMS ((tree, tree, int, int));
+extern void save_expr_under_name        PARAMS ((tree, tree));
+extern void stamp_nesting_label         PARAMS ((tree));
+extern int  int_fits_type_p             PARAMS ((tree, tree));
+extern void warning                     PARAMS ((char *, ...));
 
 /* forward declarations */
-static int  classify_loop            PROTO((void));
-static int  declare_temps            PROTO((void));
-static int  initialize_iter_var      PROTO((void));
-static int  maybe_skip_loop          PROTO((void));
-static int  top_loop_end_check       PROTO((void));
-static int  bottom_loop_end_check    PROTO((void));
-static int  increment_temps          PROTO((void));
-static tree build_temporary_variable PROTO((char *, tree));
-static tree maybe_make_for_temp      PROTO((tree, char *, tree));
-static tree chill_unsigned_type      PROTO((tree));
+static int  classify_loop            PARAMS ((void));
+static int  declare_temps            PARAMS ((void));
+static int  initialize_iter_var      PARAMS ((void));
+static int  maybe_skip_loop          PARAMS ((void));
+static int  top_loop_end_check       PARAMS ((void));
+static int  bottom_loop_end_check    PARAMS ((void));
+static int  increment_temps          PARAMS ((void));
+static tree build_temporary_variable PARAMS ((char *, tree));
+static tree maybe_make_for_temp      PARAMS ((tree, char *, tree));
+static tree chill_unsigned_type      PARAMS ((tree));
 \f
 /* In terms of the parameters passed to build_loop_iterator,
  *   there are several types of loops.  They are encoded by

diff --git a/gcc/ch/parse.c b/gcc/ch/parse.c
index e3593df559c2779c6a7efcaa34a5b8a4b0e8ad1c..a2cad5ba78875eea4455d0c5c6f9c46a0ee128b3 100644 (file)
--- a/gcc/ch/parse.c
+++ b/gcc/ch/parse.c
@@ -70,28 +70,28 @@ const char * const language_string = "GNU CHILL";
 /* Cause the `yydebug' variable to be defined.  */
 #define YYDEBUG 1
 
-extern struct rtx_def* gen_label_rtx         PROTO((void));
-extern void emit_jump                         PROTO((struct rtx_def *));
-extern struct rtx_def* emit_label             PROTO((struct rtx_def *));
+extern struct rtx_def* gen_label_rtx         PARAMS ((void));
+extern void emit_jump                         PARAMS ((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
    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));
 
-static int parse_action                                PROTO((void));
-static void ch_parse_init                      PROTO((void));
-static void check_end_label                    PROTO((tree, tree));
-static void end_function                               PROTO((void));
-static tree build_prefix_clause                        PROTO((tree));
-static enum terminal PEEK_TOKEN                        PROTO((void));
-static int peek_token_                         PROTO((int));
-static void pushback_token                     PROTO((int, tree));
-static void forward_token_                     PROTO((void));
-static void require                            PROTO((enum terminal));
-static int check_token                         PROTO((enum terminal));
-static int expect                              PROTO((enum terminal, const char *));
-static void define__PROCNAME__                 PROTO((void));
+static int parse_action                                PARAMS ((void));
+static void ch_parse_init                      PARAMS ((void));
+static void check_end_label                    PARAMS ((tree, tree));
+static void end_function                               PARAMS ((void));
+static tree build_prefix_clause                        PARAMS ((tree));
+static enum terminal PEEK_TOKEN                        PARAMS ((void));
+static int peek_token_                         PARAMS ((int));
+static void pushback_token                     PARAMS ((int, tree));
+static void forward_token_                     PARAMS ((void));
+static void require                            PARAMS ((enum terminal));
+static int check_token                         PARAMS ((enum terminal));
+static int expect                              PARAMS ((enum terminal, const char *));
+static void define__PROCNAME__                 PARAMS ((void));
 
 extern int  lineno;
 extern char *input_filename;
@@ -386,114 +386,114 @@ define__PROCNAME__ ()
 }
 
 /* Forward declarations. */
-static tree parse_expression PROTO((void));
-static tree parse_primval PROTO((void));
-static tree parse_mode PROTO((void));
-static tree parse_opt_mode PROTO((void));
-static tree parse_untyped_expr PROTO((void));
-static tree parse_opt_untyped_expr PROTO((void));
-static int parse_definition PROTO((int));
-static void parse_opt_actions PROTO((void));
-static void parse_body PROTO((void));
-static tree parse_if_expression_body PROTO((void));
-static tree parse_opt_handler PROTO((void));
-static tree parse_opt_name_string PROTO((int));
-static tree parse_simple_name_string PROTO((void));
-static tree parse_name_string PROTO((void));
-static tree parse_defining_occurrence PROTO((void));
-static tree parse_name PROTO((void));
-static tree parse_optlabel PROTO((void));
-static void parse_opt_end_label_semi_colon PROTO((tree));
-static void parse_modulion PROTO((tree));
-static void parse_spec_module PROTO((tree));
-static void parse_semi_colon PROTO((void));
-static tree parse_defining_occurrence_list PROTO((void));
-static void parse_mode_definition PROTO((int));
-static void parse_mode_definition_statement PROTO((int));
-static void parse_synonym_definition PROTO((void));
-static void parse_synonym_definition_statement PROTO((void));
-static tree parse_on_exception_list PROTO((void));
-static void parse_on_alternatives PROTO((void));
-static void parse_loc_declaration PROTO((int));
-static void parse_declaration_statement PROTO((int));
-static tree parse_optforbid PROTO((void));
-static tree parse_postfix PROTO((enum terminal));
-static tree parse_postfix_list PROTO((enum terminal));
-static void parse_rename_clauses PROTO((enum terminal));
-static tree parse_opt_prefix_clause PROTO((void));
-static void parse_grant_statement PROTO((void));
-static void parse_seize_statement PROTO((void));
-static tree parse_param_name_list PROTO((void));
-static tree parse_param_attr PROTO((void));
-static tree parse_formpar PROTO((void));
-static tree parse_formparlist PROTO((void));
-static tree parse_opt_result_spec PROTO((void));
-static tree parse_opt_except PROTO((void));
-static tree parse_opt_recursive PROTO((void));
-static tree parse_procedureattr PROTO((void));
-static void parse_proc_body PROTO((tree, tree));
-static void parse_procedure_definition PROTO((int));
-static tree parse_processpar PROTO((void));
-static tree parse_processparlist PROTO((void));
-static void parse_process_definition PROTO((int));
-static void parse_signal_definition PROTO((void));
-static void parse_signal_definition_statement PROTO((void));
-static void parse_then_clause PROTO((void));
-static void parse_opt_else_clause PROTO((void));
-static tree parse_expr_list PROTO((void));
-static tree parse_range_list_clause PROTO((void));
-static void pushback_paren_expr PROTO((tree));
-static tree parse_case_label PROTO((void));
-static tree parse_case_label_list PROTO((tree, int));
-static tree parse_case_label_specification PROTO((tree));
-static void parse_single_dimension_case_action PROTO((tree));
-static void parse_multi_dimension_case_action PROTO((tree));
-static void parse_case_action PROTO((tree));
-static tree parse_asm_operands PROTO((void));
-static tree parse_asm_clobbers PROTO((void));
-static void ch_expand_asm_operands PROTO((tree, tree, tree, tree, int, char *, int));
-static void parse_asm_action PROTO((void));
-static void parse_begin_end_block PROTO((tree));
-static void parse_if_action PROTO((tree));
-static void parse_iteration PROTO((void));
-static tree parse_delay_case_event_list PROTO((void));
-static void parse_delay_case_action PROTO((tree));
-static void parse_do_action PROTO((tree));
-static tree parse_receive_spec PROTO((void));
-static void parse_receive_case_action PROTO((tree));
-static void parse_send_action PROTO((void));
-static void parse_start_action PROTO((void));
-static tree parse_call PROTO((tree));
-static tree parse_tuple_fieldname_list PROTO((void));
-static tree parse_tuple_element PROTO((void));
-static tree parse_opt_element_list PROTO((void));
-static tree parse_tuple PROTO((tree));
-static tree parse_operand6 PROTO((void));
-static tree parse_operand5 PROTO((void));
-static tree parse_operand4 PROTO((void));
-static tree parse_operand3 PROTO((void));
-static tree parse_operand2 PROTO((void));
-static tree parse_operand1 PROTO((void));
-static tree parse_operand0 PROTO((void));
-static tree parse_case_expression PROTO((void));
-static tree parse_then_alternative PROTO((void));
-static tree parse_else_alternative PROTO((void));
-static tree parse_if_expression PROTO((void));
-static tree parse_index_mode PROTO((void));
-static tree parse_set_mode PROTO((void));
-static tree parse_pos PROTO((void));
-static tree parse_step PROTO((void));
-static tree parse_opt_layout PROTO((int));
-static tree parse_field_name_list PROTO((void));
-static tree parse_fixed_field PROTO((void));
-static tree parse_variant_field_list PROTO((void));
-static tree parse_variant_alternative PROTO((void));
-static tree parse_field PROTO((void));
-static tree parse_structure_mode PROTO((void));
-static tree parse_opt_queue_size PROTO((void));
-static tree parse_procedure_mode PROTO((void));
-static void parse_program PROTO((void));
-static void parse_pass_1_2 PROTO((void));
+static tree parse_expression PARAMS ((void));
+static tree parse_primval PARAMS ((void));
+static tree parse_mode PARAMS ((void));
+static tree parse_opt_mode PARAMS ((void));
+static tree parse_untyped_expr PARAMS ((void));
+static tree parse_opt_untyped_expr PARAMS ((void));
+static int parse_definition PARAMS ((int));
+static void parse_opt_actions PARAMS ((void));
+static void parse_body PARAMS ((void));
+static tree parse_if_expression_body PARAMS ((void));
+static tree parse_opt_handler PARAMS ((void));
+static tree parse_opt_name_string PARAMS ((int));
+static tree parse_simple_name_string PARAMS ((void));
+static tree parse_name_string PARAMS ((void));
+static tree parse_defining_occurrence PARAMS ((void));
+static tree parse_name PARAMS ((void));
+static tree parse_optlabel PARAMS ((void));
+static void parse_opt_end_label_semi_colon PARAMS ((tree));
+static void parse_modulion PARAMS ((tree));
+static void parse_spec_module PARAMS ((tree));
+static void parse_semi_colon PARAMS ((void));
+static tree parse_defining_occurrence_list PARAMS ((void));
+static void parse_mode_definition PARAMS ((int));
+static void parse_mode_definition_statement PARAMS ((int));
+static void parse_synonym_definition PARAMS ((void));
+static void parse_synonym_definition_statement PARAMS ((void));
+static tree parse_on_exception_list PARAMS ((void));
+static void parse_on_alternatives PARAMS ((void));
+static void parse_loc_declaration PARAMS ((int));
+static void parse_declaration_statement PARAMS ((int));
+static tree parse_optforbid PARAMS ((void));
+static tree parse_postfix PARAMS ((enum terminal));
+static tree parse_postfix_list PARAMS ((enum terminal));
+static void parse_rename_clauses PARAMS ((enum terminal));
+static tree parse_opt_prefix_clause PARAMS ((void));
+static void parse_grant_statement PARAMS ((void));
+static void parse_seize_statement PARAMS ((void));
+static tree parse_param_name_list PARAMS ((void));
+static tree parse_param_attr PARAMS ((void));
+static tree parse_formpar PARAMS ((void));
+static tree parse_formparlist PARAMS ((void));
+static tree parse_opt_result_spec PARAMS ((void));
+static tree parse_opt_except PARAMS ((void));
+static tree parse_opt_recursive PARAMS ((void));
+static tree parse_procedureattr PARAMS ((void));
+static void parse_proc_body PARAMS ((tree, tree));
+static void parse_procedure_definition PARAMS ((int));
+static tree parse_processpar PARAMS ((void));
+static tree parse_processparlist PARAMS ((void));
+static void parse_process_definition PARAMS ((int));
+static void parse_signal_definition PARAMS ((void));
+static void parse_signal_definition_statement PARAMS ((void));
+static void parse_then_clause PARAMS ((void));
+static void parse_opt_else_clause PARAMS ((void));
+static tree parse_expr_list PARAMS ((void));
+static tree parse_range_list_clause PARAMS ((void));
+static void pushback_paren_expr PARAMS ((tree));
+static tree parse_case_label PARAMS ((void));
+static tree parse_case_label_list PARAMS ((tree, int));
+static tree parse_case_label_specification PARAMS ((tree));
+static void parse_single_dimension_case_action PARAMS ((tree));
+static void parse_multi_dimension_case_action PARAMS ((tree));
+static void parse_case_action PARAMS ((tree));
+static tree parse_asm_operands PARAMS ((void));
+static tree parse_asm_clobbers PARAMS ((void));
+static void ch_expand_asm_operands PARAMS ((tree, tree, tree, tree, int, char *, int));
+static void parse_asm_action PARAMS ((void));
+static void parse_begin_end_block PARAMS ((tree));
+static void parse_if_action PARAMS ((tree));
+static void parse_iteration PARAMS ((void));
+static tree parse_delay_case_event_list PARAMS ((void));
+static void parse_delay_case_action PARAMS ((tree));
+static void parse_do_action PARAMS ((tree));
+static tree parse_receive_spec PARAMS ((void));
+static void parse_receive_case_action PARAMS ((tree));
+static void parse_send_action PARAMS ((void));
+static void parse_start_action PARAMS ((void));
+static tree parse_call PARAMS ((tree));
+static tree parse_tuple_fieldname_list PARAMS ((void));
+static tree parse_tuple_element PARAMS ((void));
+static tree parse_opt_element_list PARAMS ((void));
+static tree parse_tuple PARAMS ((tree));
+static tree parse_operand6 PARAMS ((void));
+static tree parse_operand5 PARAMS ((void));
+static tree parse_operand4 PARAMS ((void));
+static tree parse_operand3 PARAMS ((void));
+static tree parse_operand2 PARAMS ((void));
+static tree parse_operand1 PARAMS ((void));
+static tree parse_operand0 PARAMS ((void));
+static tree parse_case_expression PARAMS ((void));
+static tree parse_then_alternative PARAMS ((void));
+static tree parse_else_alternative PARAMS ((void));
+static tree parse_if_expression PARAMS ((void));
+static tree parse_index_mode PARAMS ((void));
+static tree parse_set_mode PARAMS ((void));
+static tree parse_pos PARAMS ((void));
+static tree parse_step PARAMS ((void));
+static tree parse_opt_layout PARAMS ((int));
+static tree parse_field_name_list PARAMS ((void));
+static tree parse_fixed_field PARAMS ((void));
+static tree parse_variant_field_list PARAMS ((void));
+static tree parse_variant_alternative PARAMS ((void));
+static tree parse_field PARAMS ((void));
+static tree parse_structure_mode PARAMS ((void));
+static tree parse_opt_queue_size PARAMS ((void));
+static tree parse_procedure_mode PARAMS ((void));
+static void parse_program PARAMS ((void));
+static void parse_pass_1_2 PARAMS ((void));
 
 static tree
 parse_opt_name_string (allow_all)

diff --git a/gcc/ch/satisfy.c b/gcc/ch/satisfy.c
index 8ab22f24b01d78f22a36615597c06d21c244b916..6e7e7363f385191c160117b227b00823225bbb27 100644 (file)
--- a/gcc/ch/satisfy.c
+++ b/gcc/ch/satisfy.c
@@ -36,11 +36,11 @@ struct decl_chain
 };
 
 /* forward declarations */
-static tree satisfy            PROTO ((tree, struct decl_chain *));
-static void cycle_error_print  PROTO ((struct decl_chain *, tree));
-static tree safe_satisfy_decl  PROTO ((tree, struct decl_chain *));
-static void satisfy_list       PROTO ((tree, struct decl_chain *));
-static void satisfy_list_values        PROTO ((tree, struct decl_chain *));
+static tree satisfy            PARAMS ((tree, struct decl_chain *));
+static void cycle_error_print  PARAMS ((struct decl_chain *, tree));
+static tree safe_satisfy_decl  PARAMS ((tree, struct decl_chain *));
+static void satisfy_list       PARAMS ((tree, struct decl_chain *));
+static void satisfy_list_values        PARAMS ((tree, struct decl_chain *));
 
 static struct decl_chain dummy_chain;
 #define LOOKUP_ONLY (chain==&dummy_chain)

diff --git a/gcc/ch/tasking.c b/gcc/ch/tasking.c
index 265572fd5e9e3d7cf7a047b523dbfba72777c49c..eb6465dbeea95971fc13b28a98d6c4f058e4ea29 100644 (file)
--- a/gcc/ch/tasking.c
+++ b/gcc/ch/tasking.c
@@ -45,18 +45,18 @@ tree chill_taskingcode_type_node;
 
 /* forward declarations */
 #if 0
-static void validate_process_parameters                PROTO((tree));
-static tree get_struct_variable_name           PROTO((tree));
-static tree decl_tasking_code_variable         PROTO((tree, tree *, int));
+static void validate_process_parameters                PARAMS ((tree));
+static tree get_struct_variable_name           PARAMS ((tree));
+static tree decl_tasking_code_variable         PARAMS ((tree, tree *, int));
 #endif
-static tree get_struct_debug_type_name         PROTO((tree));
-static tree get_process_wrapper_name           PROTO((tree));
-static tree build_tasking_enum                 PROTO((void));
-static void build_tasking_message_type         PROTO((void));
-static tree build_receive_signal_case_label    PROTO((tree, tree));
-static tree build_receive_buffer_case_label    PROTO((tree, tree));
-static void build_receive_buffer_case_end      PROTO((tree, tree));
-static void build_receive_signal_case_end      PROTO((tree, tree));
+static tree get_struct_debug_type_name         PARAMS ((tree));
+static tree get_process_wrapper_name           PARAMS ((tree));
+static tree build_tasking_enum                 PARAMS ((void));
+static void build_tasking_message_type         PARAMS ((void));
+static tree build_receive_signal_case_label    PARAMS ((tree, tree));
+static tree build_receive_buffer_case_label    PARAMS ((tree, tree));
+static void build_receive_buffer_case_end      PARAMS ((tree, tree));
+static void build_receive_signal_case_end      PARAMS ((tree, tree));
 
 /* list of this module's process, buffer, etc. decls.
  This is a list of TREE_VECs, chain by their TREE_CHAINs. */

diff --git a/gcc/ch/tree.c b/gcc/ch/tree.c
index 6d4f9bdf06c7527e1e5db4a478c634902e79e6d1..17cbd8ef52d1c0b184f1b7615b000d8e081a5daa 100644 (file)
--- a/gcc/ch/tree.c
+++ b/gcc/ch/tree.c
@@ -34,7 +34,7 @@ extern struct obstack permanent_obstack;
    to layout_chill_range_type for the index range of a string. */
 tree string_index_type_dummy;
 
-static tree make_powerset_type                         PROTO ((tree));
+static tree make_powerset_type                         PARAMS ((tree));
 \f
 /* Build a chill string type.
    For a character string, ELT_TYPE==char_type_node; 

diff --git a/gcc/ch/typeck.c b/gcc/ch/typeck.c
index fb2a228424302b3e5d8d4d056473269fa91771c1..fd91227a0f080fa639bfa0f76ba9ec56df4891c6 100644 (file)
--- a/gcc/ch/typeck.c
+++ b/gcc/ch/typeck.c
@@ -40,16 +40,16 @@ Boston, MA 02111-1307, USA.  */
 #include "output.h"
 
 /* forward declarations */
-static int chill_l_equivalent PROTO((tree, tree, struct mode_chain*));
-static tree extract_constant_from_buffer PROTO((tree, const unsigned char *, int));
-static int expand_constant_to_buffer PROTO((tree, unsigned char *, int));
-static tree build_empty_string PROTO((tree));
-static tree make_chill_pointer_type PROTO((tree, enum tree_code));
-static tree make_chill_range_type PROTO((tree, tree, tree));
-static void apply_chill_array_layout PROTO((tree));
-static int field_decl_cmp PROTO((tree *, tree*));
-static tree make_chill_struct_type PROTO((tree));
-static int apply_chill_field_layout PROTO((tree, int *));
+static int chill_l_equivalent PARAMS ((tree, tree, struct mode_chain*));
+static tree extract_constant_from_buffer PARAMS ((tree, const unsigned char *, int));
+static int expand_constant_to_buffer PARAMS ((tree, unsigned char *, int));
+static tree build_empty_string PARAMS ((tree));
+static tree make_chill_pointer_type PARAMS ((tree, enum tree_code));
+static tree make_chill_range_type PARAMS ((tree, tree, tree));
+static void apply_chill_array_layout PARAMS ((tree));
+static int field_decl_cmp PARAMS ((tree *, tree*));
+static tree make_chill_struct_type PARAMS ((tree));
+static int apply_chill_field_layout PARAMS ((tree, int *));
 \f
 /*
  * This function checks an array access.
@@ -3292,7 +3292,7 @@ layout_chill_struct_type (t)
          field_array[len++] = x;
 
        qsort (field_array, len, sizeof (tree),
-              (int (*) PROTO ((const void *, const void *))) field_decl_cmp);
+              (int (*) PARAMS ((const void *, const void *))) field_decl_cmp);
       }
   }