Skip to content

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

* All files: PROTO -> PARAMS. 

From-SVN: r31456
parent 97715246
Showing with 235 additions and 231 deletions
gcc/ch/ChangeLog
2000-01-17 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* All files: PROTO -> PARAMS.
2000-01-10 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* lex.c: Include tm_p.h.
......
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];
......
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));
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));
static tree
convert_to_reference (reftype, expr)
......
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));
/* Look for implied types (enumeral types) implied by TYPE (a decl or type).
Add these to list.
......
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
......
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;
......
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;
......
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 */
......
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 *));
/* return 1 if the expression tree given has all
constant nodes as its leaves; return 0 otherwise. */
......
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);
}
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
......
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));
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
/* In terms of the parameters passed to build_loop_iterator,
......
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));
/* In terms of the parameters passed to build_loop_iterator,
* there are several types of loops. They are encoded by
......
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)
......
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. */
......
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));
/* Build a chill string type.
For a character string, ELT_TYPE==char_type_node;
......
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 *));
/*
* 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);
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment