From 68cfba79fa2803252e9d79159aec8c92f06578b7 Mon Sep 17 00:00:00 2001 From: aj Date: Sun, 6 Jul 2003 20:32:17 +0000 Subject: [PATCH] * bad.c: Convert () to (void) in function definitions. * bld.c: Likewise. * data.c: Likewise. * equiv.c: Likewise. * expr.c: Likewise. * global.c: Likewise. * implic.c: Likewise. * info.c: Likewise. * intdoc.c: Likewise. * intrin.c: Likewise. * lab.c: Likewise. * lex.c: Likewise. * malloc.c: Likewise. * src.c: Likewise. * st.c: Likewise. * sta.c: Likewise. * stb.c: Likewise. * stc.c: Likewise. * std.c: Likewise. * ste.c: Likewise. * storag.c: Likewise. * stt.c: Likewise. * stw.c: Likewise. * symbol.c: Likewise. * top.c: Likewise. * where.c: Likewise. * com.c: Convert prototypes to ISO C90. * com.h: Likewise. * g77spec.c: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@69014 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/f/ChangeLog | 33 ++++++++++ gcc/f/bad.c | 6 +- gcc/f/bld.c | 8 +-- gcc/f/com.c | 148 ++++++++++++++++++++----------------------- gcc/f/com.h | 14 ++--- gcc/f/data.c | 6 +- gcc/f/equiv.c | 9 +-- gcc/f/expr.c | 8 +-- gcc/f/g77spec.c | 22 +++---- gcc/f/global.c | 4 +- gcc/f/implic.c | 8 +-- gcc/f/info.c | 4 +- gcc/f/intdoc.c | 9 +-- gcc/f/intrin.c | 2 +- gcc/f/lab.c | 4 +- gcc/f/lex.c | 26 ++++---- gcc/f/malloc.c | 4 +- gcc/f/src.c | 4 +- gcc/f/st.c | 34 +++++----- gcc/f/sta.c | 18 +++--- gcc/f/stb.c | 24 +++---- gcc/f/stc.c | 190 ++++++++++++++++++++++++++++---------------------------- gcc/f/std.c | 78 +++++++++++------------ gcc/f/ste.c | 26 ++++---- gcc/f/storag.c | 4 +- gcc/f/stt.c | 12 ++-- gcc/f/stw.c | 4 +- gcc/f/symbol.c | 24 +++---- gcc/f/top.c | 23 +++---- gcc/f/where.c | 4 +- 30 files changed, 386 insertions(+), 374 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 34483fe06ff..ee22ec6c821 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,36 @@ +2003-07-06 Andreas Jaeger + + * bad.c: Convert () to (void) in function definitions. + * bld.c: Likewise. + * data.c: Likewise. + * equiv.c: Likewise. + * expr.c: Likewise. + * global.c: Likewise. + * implic.c: Likewise. + * info.c: Likewise. + * intdoc.c: Likewise. + * intrin.c: Likewise. + * lab.c: Likewise. + * lex.c: Likewise. + * malloc.c: Likewise. + * src.c: Likewise. + * st.c: Likewise. + * sta.c: Likewise. + * stb.c: Likewise. + * stc.c: Likewise. + * std.c: Likewise. + * ste.c: Likewise. + * storag.c: Likewise. + * stt.c: Likewise. + * stw.c: Likewise. + * symbol.c: Likewise. + * top.c: Likewise. + * where.c: Likewise. + + * com.c: Convert prototypes to ISO C90. + * com.h: Likewise. + * g77spec.c: Likewise. + Sun Jul 6 20:01:29 2003 Neil Booth * top.c (ffe_handle_option): Don't handle filenames. diff --git a/gcc/f/bad.c b/gcc/f/bad.c index deed12433cd..bed9734ecc7 100644 --- a/gcc/f/bad.c +++ b/gcc/f/bad.c @@ -1,5 +1,5 @@ /* bad.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 2002 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -132,7 +132,7 @@ ffebad_bufputs_ (char buf[], int bufi, const char *s) ffebad_init_0(); */ void -ffebad_init_0 () +ffebad_init_0 (void) { assert (FFEBAD == ARRAY_SIZE (ffebad_messages_)); } @@ -348,7 +348,7 @@ ffebad_string (const char *string) to actually get it to print (to stderr). */ void -ffebad_finish () +ffebad_finish (void) { #define MAX_SPACES 132 static const char *const spaces diff --git a/gcc/f/bld.c b/gcc/f/bld.c index bf2d1c69b2e..6f96f5bf9c5 100644 --- a/gcc/f/bld.c +++ b/gcc/f/bld.c @@ -2380,7 +2380,7 @@ ffebld_constantarray_put (ffebldConstantArray array, ffeinfoBasictype bt, ffebld_init_0(); */ void -ffebld_init_0 () +ffebld_init_0 (void) { assert (FFEBLD_op == ARRAY_SIZE (ffebld_op_string_)); assert (FFEBLD_op == ARRAY_SIZE (ffebld_arity_op_)); @@ -2391,7 +2391,7 @@ ffebld_init_0 () ffebld_init_1(); */ void -ffebld_init_1 () +ffebld_init_1 (void) { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstFILE_ int i; @@ -2452,7 +2452,7 @@ ffebld_init_1 () ffebld_init_2(); */ void -ffebld_init_2 () +ffebld_init_2 (void) { #if FFEBLD_whereconstCURRENT_ == FFEBLD_whereconstPROGUNIT_ int i; @@ -2726,7 +2726,7 @@ ffebld_new_two (ffebldOp o, ffebld left, ffebld right) ffebld_pool_pop(); */ void -ffebld_pool_pop () +ffebld_pool_pop (void) { ffebldPoolstack_ ps; diff --git a/gcc/f/com.c b/gcc/f/com.c index e9a20532404..7480cd33dda 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -264,14 +264,14 @@ struct _ffecom_concat_list_ /* Static functions (internal). */ -static tree ffe_type_for_mode PARAMS ((enum machine_mode, int)); -static tree ffe_type_for_size PARAMS ((unsigned int, int)); -static tree ffe_unsigned_type PARAMS ((tree)); -static tree ffe_signed_type PARAMS ((tree)); -static tree ffe_signed_or_unsigned_type PARAMS ((int, tree)); -static bool ffe_mark_addressable PARAMS ((tree)); -static tree ffe_truthvalue_conversion PARAMS ((tree)); -static void ffecom_init_decl_processing PARAMS ((void)); +static tree ffe_type_for_mode (enum machine_mode, int); +static tree ffe_type_for_size (unsigned int, int); +static tree ffe_unsigned_type (tree); +static tree ffe_signed_type (tree); +static tree ffe_signed_or_unsigned_type (int, tree); +static bool ffe_mark_addressable (tree); +static tree ffe_truthvalue_conversion (tree); +static void ffecom_init_decl_processing (void); static tree ffecom_arglist_expr_ (const char *argstring, ffebld args); static tree ffecom_widest_expr_type_ (ffebld list); static bool ffecom_overlap_ (tree dest_decl, tree dest_offset, @@ -1530,8 +1530,7 @@ ffecom_possible_partial_overlap_ (ffebld expr1, ffebld expr2 ATTRIBUTE_UNUSED) static bool ffecom_overlap_ (tree dest_decl, tree dest_offset, tree dest_size, - tree source_tree, ffebld source UNUSED, - bool scalar_arg) + tree source_tree, ffebld source UNUSED, bool scalar_arg) { tree source_decl; tree source_offset; @@ -1712,9 +1711,8 @@ ffecom_overlap_ (tree dest_decl, tree dest_offset, tree dest_size, in a COMMON area the callee might know about (and thus modify). */ static bool -ffecom_args_overlapping_ (tree dest_tree, ffebld dest UNUSED, - tree args, tree callee_commons, - bool scalar_args) +ffecom_args_overlapping_ (tree dest_tree, ffebld dest UNUSED, tree args, + tree callee_commons, bool scalar_args) { tree arg; tree dest_decl; @@ -1788,10 +1786,9 @@ ffecom_build_f2c_string_ (int i, const char *s) to the arglist a pointer to a temporary to receive the return value. */ static tree -ffecom_call_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex, - tree type, tree args, tree dest_tree, - ffebld dest, bool *dest_used, tree callee_commons, - bool scalar_args, tree hook) +ffecom_call_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex, tree type, + tree args, tree dest_tree, ffebld dest, bool *dest_used, + tree callee_commons, bool scalar_args, tree hook) { tree item; tree tempvar; @@ -1849,9 +1846,9 @@ ffecom_call_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex, static tree ffecom_call_binop_ (tree fn, ffeinfoKindtype kt, bool is_f2c_complex, - tree type, ffebld left, ffebld right, - tree dest_tree, ffebld dest, bool *dest_used, - tree callee_commons, bool scalar_args, bool ref, tree hook) + tree type, ffebld left, ffebld right, tree dest_tree, + ffebld dest, bool *dest_used, tree callee_commons, + bool scalar_args, bool ref, tree hook) { tree left_tree; tree right_tree; @@ -2929,8 +2926,8 @@ ffecom_do_entry_ (ffesymbol fn, int entrynum) made, destination used instead, and dest_used flag set TRUE. */ static tree -ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest, - bool *dest_used, bool assignp, bool widenp) +ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest, bool *dest_used, + bool assignp, bool widenp) { tree item; tree list; @@ -3795,8 +3792,8 @@ ffecom_expr_ (ffebld expr, tree dest_tree, ffebld dest, subroutines. */ static tree -ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree, - ffebld dest, bool *dest_used) +ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree, ffebld dest, + bool *dest_used) { tree expr_tree; tree saved_expr1; /* For those who need it. */ @@ -5901,8 +5898,7 @@ ffecom_f2c_make_type_ (tree *type, int tcode, const char *name) given size. */ static void -ffecom_f2c_set_lio_code_ (ffeinfoBasictype bt, int size, - int code) +ffecom_f2c_set_lio_code_ (ffeinfoBasictype bt, int size, int code) { int j; tree t; @@ -6308,8 +6304,7 @@ ffecom_init_zero_ (tree decl) } static tree -ffecom_intrinsic_ichar_ (tree tree_type, ffebld arg, - tree *maybe_tree) +ffecom_intrinsic_ichar_ (tree tree_type, ffebld arg, tree *maybe_tree) { tree expr_tree; tree length_tree; @@ -7052,7 +7047,7 @@ ffecom_push_dummy_decls_ (ffebld dummy_list, bool stmtfunc) equivalent of a Fortran program unit. */ static void -ffecom_start_progunit_ () +ffecom_start_progunit_ (void) { ffesymbol fn = ffecom_primary_entry_; ffebld arglist; @@ -8764,8 +8759,7 @@ ffecom_transform_namelist_ (ffesymbol s) taking into account different units of measurements for offsets. */ static void -ffecom_tree_canonize_ptr_ (tree *decl, tree *offset, - tree t) +ffecom_tree_canonize_ptr_ (tree *decl, tree *offset, tree t) { switch (TREE_CODE (t)) { @@ -8850,8 +8844,7 @@ ffecom_tree_canonize_ptr_ (tree *decl, tree *offset, reveal the overlap. */ static void -ffecom_tree_canonize_ref_ (tree *decl, tree *offset, - tree *size, tree t) +ffecom_tree_canonize_ref_ (tree *decl, tree *offset, tree *size, tree t) { /* The default path is to report a nonexistant decl. */ *decl = NULL_TREE; @@ -9004,9 +8997,8 @@ ffecom_tree_canonize_ref_ (tree *decl, tree *offset, /* Do divide operation appropriate to type of operands. */ static tree -ffecom_tree_divide_ (tree tree_type, tree left, tree right, - tree dest_tree, ffebld dest, bool *dest_used, - tree hook) +ffecom_tree_divide_ (tree tree_type, tree left, tree right, tree dest_tree, + ffebld dest, bool *dest_used, tree hook) { if ((left == error_mark_node) || (right == error_mark_node)) @@ -9093,8 +9085,7 @@ ffecom_tree_divide_ (tree tree_type, tree left, tree right, /* Build type info for non-dummy variable. */ static tree -ffecom_type_localvar_ (ffesymbol s, ffeinfoBasictype bt, - ffeinfoKindtype kt) +ffecom_type_localvar_ (ffesymbol s, ffeinfoBasictype bt, ffeinfoKindtype kt) { tree type; ffebld dl; @@ -9152,7 +9143,7 @@ ffecom_type_localvar_ (ffesymbol s, ffeinfoBasictype bt, static GTY(()) tree ffecom_type_namelist_var; static tree -ffecom_type_namelist_ () +ffecom_type_namelist_ (void) { if (ffecom_type_namelist_var == NULL_TREE) { @@ -9183,7 +9174,7 @@ ffecom_type_namelist_ () static GTY(()) tree ffecom_type_vardesc_var; static tree -ffecom_type_vardesc_ () +ffecom_type_vardesc_ (void) { if (ffecom_type_vardesc_var == NULL_TREE) { @@ -9547,8 +9538,7 @@ ffecom_1_fn (tree node) checking for certain housekeeping things. */ tree -ffecom_2 (enum tree_code code, tree type, tree node1, - tree node2) +ffecom_2 (enum tree_code code, tree type, tree node1, tree node2) { tree item; @@ -9903,8 +9893,7 @@ ffecom_2pass_do_entrypoint (ffesymbol entry) TREE_SIDE_EFFECTS. */ tree -ffecom_2s (enum tree_code code, tree type, tree node1, - tree node2) +ffecom_2s (enum tree_code code, tree type, tree node1, tree node2) { tree item; @@ -9922,8 +9911,7 @@ ffecom_2s (enum tree_code code, tree type, tree node1, checking for certain housekeeping things. */ tree -ffecom_3 (enum tree_code code, tree type, tree node1, - tree node2, tree node3) +ffecom_3 (enum tree_code code, tree type, tree node1, tree node2, tree node3) { tree item; @@ -9945,8 +9933,7 @@ ffecom_3 (enum tree_code code, tree type, tree node1, TREE_SIDE_EFFECTS. */ tree -ffecom_3s (enum tree_code code, tree type, tree node1, - tree node2, tree node3) +ffecom_3s (enum tree_code code, tree type, tree node1, tree node2, tree node3) { tree item; @@ -10561,8 +10548,8 @@ ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt, /* Transform constant-union to tree, with the type known. */ tree -ffecom_constantunion_with_type (ffebldConstantUnion *cu, - tree tree_type, ffebldConst ct) +ffecom_constantunion_with_type (ffebldConstantUnion *cu, tree tree_type, + ffebldConst ct) { tree item; @@ -10675,8 +10662,7 @@ ffecom_const_expr (ffebld expr) /* Handy way to make a field in a struct/union. */ tree -ffecom_decl_field (tree context, tree prevfield, - const char *name, tree type) +ffecom_decl_field (tree context, tree prevfield, const char *name, tree type) { tree field; @@ -10711,7 +10697,7 @@ ffecom_end_compstmt (void) Calls ffecom_sym_end_transition for each global and local symbol. */ void -ffecom_end_transition () +ffecom_end_transition (void) { ffebld item; @@ -10787,7 +10773,7 @@ ffecom_end_transition () Make sure error updating not inhibited. */ void -ffecom_exec_transition () +ffecom_exec_transition (void) { bool inhibited; @@ -10977,7 +10963,7 @@ ffecom_expr_w (tree type, ffebld expr) /* Do global stuff. */ void -ffecom_finish_compile () +ffecom_finish_compile (void) { assert (ffecom_outer_function_decl_ == NULL_TREE); assert (current_function_decl == NULL_TREE); @@ -10997,7 +10983,7 @@ ffecom_finish_decl (tree decl, tree init, bool is_top_level) /* Finish a program unit. */ void -ffecom_finish_progunit () +ffecom_finish_progunit (void) { ffecom_end_compstmt (); @@ -11121,7 +11107,7 @@ ffecom_gfrt_kindtype (ffecomGfrt gfrt) } void -ffecom_init_0 () +ffecom_init_0 (void) { tree endlink; int i; @@ -11889,7 +11875,7 @@ ffecom_init_0 () ffecom_init_2(); */ void -ffecom_init_2 () +ffecom_init_2 (void) { assert (ffecom_outer_function_decl_ == NULL_TREE); assert (current_function_decl == NULL_TREE); @@ -12049,8 +12035,7 @@ ffecom_lookup_label (ffelab label) the MODIFY_EXPR. */ tree -ffecom_modify (tree newtype, tree lhs, - tree rhs) +ffecom_modify (tree newtype, tree lhs, tree rhs) { if (lhs == error_mark_node || rhs == error_mark_node) return error_mark_node; @@ -12992,7 +12977,7 @@ ffecom_sym_retract (ffesymbol s UNUSED) /* Create temporary gcc label. */ tree -ffecom_temp_label () +ffecom_temp_label (void) { tree glabel; static int mynumber = 0; @@ -13106,7 +13091,7 @@ ffecom_type_expr (ffebld expr) first ENTRY statement, and so on). */ tree -ffecom_which_entrypoint_decl () +ffecom_which_entrypoint_decl (void) { assert (ffecom_which_entrypoint_decl_ != NULL_TREE); @@ -13129,7 +13114,7 @@ ffecom_which_entrypoint_decl () "bison_rule_foo_" so they are easy to find. */ static void -bison_rule_pushlevel_ () +bison_rule_pushlevel_ (void) { emit_line_note (input_filename, input_line); pushlevel (0); @@ -13138,7 +13123,7 @@ bison_rule_pushlevel_ () } static tree -bison_rule_compstmt_ () +bison_rule_compstmt_ (void) { tree t; int keep = kept_level_p (); @@ -13165,8 +13150,7 @@ bison_rule_compstmt_ () tree builtin_function (const char *name, tree type, int function_code, - enum built_in_class class, - const char *library_name, + enum built_in_class class, const char *library_name, tree attrs ATTRIBUTE_UNUSED) { tree decl = build_decl (FUNCTION_DECL, get_identifier (name), type); @@ -13742,7 +13726,7 @@ lookup_name_current_level (tree name) /* Create a new `struct f_binding_level'. */ static struct f_binding_level * -make_binding_level () +make_binding_level (void) { /* NOSTRICT */ return ggc_alloc (sizeof (struct f_binding_level)); @@ -13765,7 +13749,7 @@ struct f_function *f_function_chain; /* Restore the variables used during compilation of a C function. */ static void -pop_f_function_context () +pop_f_function_context (void) { struct f_function *p = f_function_chain; tree link; @@ -13801,7 +13785,7 @@ pop_f_function_context () used during compilation of a C function. */ static void -push_f_function_context () +push_f_function_context (void) { struct f_function *p = (struct f_function *) xmalloc (sizeof (struct f_function)); @@ -14067,7 +14051,7 @@ convert (tree type, tree expr) store the result back using `storedecls' or you will lose. */ tree -getdecls () +getdecls (void) { return current_binding_level->names; } @@ -14075,13 +14059,13 @@ getdecls () /* Nonzero if we are currently in the global binding level. */ int -global_bindings_p () +global_bindings_p (void) { return current_binding_level == global_binding_level; } static void -ffecom_init_decl_processing () +ffecom_init_decl_processing (void) { malloc_init (); @@ -14120,10 +14104,10 @@ insert_block (tree block) } /* Each front end provides its own. */ -static bool ffe_init PARAMS ((void)); -static void ffe_finish PARAMS ((void)); -static bool ffe_post_options PARAMS ((const char **)); -static void ffe_print_identifier PARAMS ((FILE *, tree, int)); +static bool ffe_init (void); +static void ffe_finish (void); +static bool ffe_post_options (const char **); +static void ffe_print_identifier (FILE *, tree, int); struct language_function GTY(()) { @@ -14208,8 +14192,7 @@ const char *const tree_code_name[] = { #undef DEFTREECODE static bool -ffe_post_options (pfilename) - const char **pfilename; +ffe_post_options (const char **pfilename) { const char *filename = *pfilename; @@ -14230,7 +14213,7 @@ ffe_post_options (pfilename) static bool -ffe_init () +ffe_init (void) { #ifdef IO_BUFFER_SIZE setvbuf (finput, (char *) xmalloc (IO_BUFFER_SIZE), _IOFBF, IO_BUFFER_SIZE); @@ -14254,7 +14237,7 @@ ffe_init () } static void -ffe_finish () +ffe_finish (void) { ffe_terminate_0 (); @@ -14596,7 +14579,7 @@ pushdecl (tree x) /* Nonzero if the current level needs to have a BLOCK made. */ static int -kept_level_p () +kept_level_p (void) { tree decl; @@ -15153,7 +15136,8 @@ static struct file_name_map *read_name_map (const char *dirname); FIRST is the beginning of the chain to append, and LAST is the end. */ static void -append_include_chain (struct file_name_list *first, struct file_name_list *last) +append_include_chain (struct file_name_list *first, + struct file_name_list *last) { struct file_name_list *dir; diff --git a/gcc/f/com.h b/gcc/f/com.h index 50362517264..4a120afde15 100644 --- a/gcc/f/com.h +++ b/gcc/f/com.h @@ -152,13 +152,13 @@ struct _ffecom_symbol_ #include "storag.h" #include "symbol.h" -extern int global_bindings_p PARAMS ((void)); -extern tree getdecls PARAMS ((void)); -extern void pushlevel PARAMS ((int)); -extern tree poplevel PARAMS ((int,int, int)); -extern void insert_block PARAMS ((tree)); -extern void set_block PARAMS ((tree)); -extern tree pushdecl PARAMS ((tree)); +extern int global_bindings_p (void); +extern tree getdecls (void); +extern void pushlevel (int); +extern tree poplevel (int,int, int); +extern void insert_block (tree); +extern void set_block (tree); +extern tree pushdecl (tree); /* Global objects accessed by users of this module. */ diff --git a/gcc/f/data.c b/gcc/f/data.c index 91b835dbc60..39e7ff8956e 100644 --- a/gcc/f/data.c +++ b/gcc/f/data.c @@ -314,7 +314,7 @@ ffedata_value (ffetargetIntegerDefault rpt, ffebld value, ffelexToken token) CHARTYPE is CHARACTER*3, for example. */ static bool -ffedata_advance_ () +ffedata_advance_ (void) { ffebld next; @@ -1457,7 +1457,7 @@ ffedata_gather_ (ffestorag mst, ffestorag st) ffedata_pop_(); */ static void -ffedata_pop_ () +ffedata_pop_ (void) { ffedataImpdo_ victim = ffedata_stack_; @@ -1473,7 +1473,7 @@ ffedata_pop_ () ffedata_push_(); */ static void -ffedata_push_ () +ffedata_push_ (void) { ffedataImpdo_ baby; diff --git a/gcc/f/equiv.c b/gcc/f/equiv.c index f58de9c4379..bd7ac6d4d24 100644 --- a/gcc/f/equiv.c +++ b/gcc/f/equiv.c @@ -1,5 +1,6 @@ /* equiv.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1998, 2003 + Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -918,7 +919,7 @@ ffeequiv_add (ffeequiv eq, ffebld list, ffelexToken t) ffeequiv_exec_transition(); */ void -ffeequiv_exec_transition () +ffeequiv_exec_transition (void) { while (ffeequiv_list_.first != (ffeequiv) &ffeequiv_list_.first) ffeequiv_layout_local_ (ffeequiv_list_.first); @@ -931,7 +932,7 @@ ffeequiv_exec_transition () Initializes the list of equivalences. */ void -ffeequiv_init_2 () +ffeequiv_init_2 (void) { ffeequiv_list_.first = (ffeequiv) &ffeequiv_list_.first; ffeequiv_list_.last = (ffeequiv) &ffeequiv_list_.first; @@ -1312,7 +1313,7 @@ ffeequiv_merge (ffeequiv eq1, ffeequiv eq2, ffelexToken t) objects. */ ffeequiv -ffeequiv_new () +ffeequiv_new (void) { ffeequiv eq; diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 1777592de06..0c22fb978ee 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -6319,7 +6319,7 @@ ffeexpr_convert_to_sym (ffebld source, ffelexToken source_token, /* Initializes the module. */ void -ffeexpr_init_2 () +ffeexpr_init_2 (void) { ffeexpr_stack_ = NULL; ffeexpr_level_ = 0; @@ -8484,7 +8484,7 @@ ffeexpr_expr_kill_ (ffeexprExpr_ e) Allocates and initializes a new expression object, returns it. */ static ffeexprExpr_ -ffeexpr_expr_new_ () +ffeexpr_expr_new_ (void) { ffeexprExpr_ e; @@ -8792,7 +8792,7 @@ again: requisite type-assignment. */ static void -ffeexpr_reduce_ () +ffeexpr_reduce_ (void) { ffeexprExpr_ operand; /* This is B in -B or A+B. */ ffeexprExpr_ left_operand; /* When operator is binary, this is A in A+B. */ @@ -18534,7 +18534,7 @@ ffeexpr_token_anything_ (ffelexToken ft UNUSED, ffebld expr UNUSED, /* Terminate module. */ void -ffeexpr_terminate_2 () +ffeexpr_terminate_2 (void) { assert (ffeexpr_stack_ == NULL); assert (ffeexpr_level_ == 0); diff --git a/gcc/f/g77spec.c b/gcc/f/g77spec.c index 4e6e53cea70..dc8347c88bb 100644 --- a/gcc/f/g77spec.c +++ b/gcc/f/g77spec.c @@ -93,9 +93,8 @@ typedef enum /* The original argument list and related info is copied here. */ static int g77_xargc; static const char *const *g77_xargv; -static void lookup_option PARAMS ((Option *, int *, const char **, - const char *)); -static void append_arg PARAMS ((const char *)); +static void lookup_option (Option *, int *, const char **, const char *); +static void append_arg (const char *); /* The new argument list will be built here. */ static int g77_newargc; @@ -118,11 +117,7 @@ static const char **g77_newargv; to short ones, where available, has already been run. */ static void -lookup_option (xopt, xskip, xarg, text) - Option *xopt; - int *xskip; - const char **xarg; - const char *text; +lookup_option (Option *xopt, int *xskip, const char **xarg, const char *text) { Option opt = OPTION_; int skip; @@ -202,8 +197,7 @@ lookup_option (xopt, xskip, xarg, text) the new arg count. Otherwise allocate a new list, etc. */ static void -append_arg (arg) - const char *arg; +append_arg (const char *arg) { static int newargsize; @@ -239,10 +233,8 @@ append_arg (arg) } void -lang_specific_driver (in_argc, in_argv, in_added_libraries) - int *in_argc; - const char *const **in_argv; - int *in_added_libraries ATTRIBUTE_UNUSED; +lang_specific_driver (int *in_argc, const char *const **in_argv, + int *in_added_libraries ATTRIBUTE_UNUSED) { int argc = *in_argc; const char *const *argv = *in_argv; @@ -532,7 +524,7 @@ or type the command `info -f g77 Copying'.\n\ } /* Called before linking. Returns 0 on success and -1 on failure. */ -int lang_specific_pre_link () /* Not used for F77. */ +int lang_specific_pre_link (void) /* Not used for F77. */ { return 0; } diff --git a/gcc/f/global.c b/gcc/f/global.c index 73c6ec50cb3..f175f1e6d0f 100644 --- a/gcc/f/global.c +++ b/gcc/f/global.c @@ -124,7 +124,7 @@ ffeglobal_new_ (ffename n) ffeglobal_init_1(); */ void -ffeglobal_init_1 () +ffeglobal_init_1 (void) { #if FFEGLOBAL_ENABLED if (ffeglobal_filewide_ != NULL) @@ -1584,6 +1584,6 @@ ffeglobal_size_common (ffesymbol s, ffetargetOffset size) #endif void -ffeglobal_terminate_1 () +ffeglobal_terminate_1 (void) { } diff --git a/gcc/f/implic.c b/gcc/f/implic.c index 6fe4606e357..c7a28cbc42a 100644 --- a/gcc/f/implic.c +++ b/gcc/f/implic.c @@ -1,5 +1,5 @@ /* implic.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 2002 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -220,7 +220,7 @@ ffeimplic_establish_symbol (ffesymbol s) Allows for holes in the sequence of letters (i.e. EBCDIC). */ void -ffeimplic_init_2 () +ffeimplic_init_2 (void) { ffeimplic_ imp; char c; @@ -312,7 +312,7 @@ ffeimplic_init_2 () Assigns null type information to all initial letters. */ void -ffeimplic_none () +ffeimplic_none (void) { ffeimplic_ imp; @@ -378,6 +378,6 @@ ffeimplic_peek_symbol_type (ffesymbol s, const char *name) Kills info object for each entry in table. */ void -ffeimplic_terminate_2 () +ffeimplic_terminate_2 (void) { } diff --git a/gcc/f/info.c b/gcc/f/info.c index 1bedaa0772d..3c0030f27f8 100644 --- a/gcc/f/info.c +++ b/gcc/f/info.c @@ -1,5 +1,5 @@ /* info.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 2002 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -141,7 +141,7 @@ ffeinfo_basictype_string (ffeinfoBasictype basictype) ffeinfo_init_0(); */ void -ffeinfo_init_0 () +ffeinfo_init_0 (void) { ffeinfoBasictype i; ffeinfoBasictype j; diff --git a/gcc/f/intdoc.c b/gcc/f/intdoc.c index 0ad83e4428e..b24c79a4811 100644 --- a/gcc/f/intdoc.c +++ b/gcc/f/intdoc.c @@ -1,5 +1,6 @@ /* intdoc.c - Copyright (C) 1997, 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 1997, 2000, 2001, 2003 + Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -237,13 +238,13 @@ dumpif (ffeintrinFamily fam) } static void -dumpendif () +dumpendif (void) { in_ifset = 2; } static void -dumpclearif () +dumpclearif (void) { if ((in_ifset == 2) || (latest_family != FFEINTRIN_familyNONE)) @@ -253,7 +254,7 @@ dumpclearif () } static void -dumpem () +dumpem (void) { int i; diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c index cc100bf9e51..a379684ae4c 100644 --- a/gcc/f/intrin.c +++ b/gcc/f/intrin.c @@ -1589,7 +1589,7 @@ ffeintrin_gfrt_indirect (ffeintrinImp imp) } void -ffeintrin_init_0 () +ffeintrin_init_0 (void) { int i; const char *p1; diff --git a/gcc/f/lab.c b/gcc/f/lab.c index dcfb8830680..8691897c21c 100644 --- a/gcc/f/lab.c +++ b/gcc/f/lab.c @@ -94,7 +94,7 @@ ffelab_find (ffelabValue v) Kill all the labels on the list. */ void -ffelab_finish () +ffelab_finish (void) { ffelab l; ffelab pl; @@ -115,7 +115,7 @@ ffelab_finish () unit is going to be processed. */ void -ffelab_init_3 () +ffelab_init_3 (void) { ffelab_list_ = NULL; ffelab_num_news_ = 0; diff --git a/gcc/f/lex.c b/gcc/f/lex.c index 39b9c62803d..478d76777ca 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -834,7 +834,7 @@ ffelex_file_push_ (int old_lineno, const char *filename) typical fixed-form cases. */ static void -ffelex_prepare_eos_ () +ffelex_prepare_eos_ (void) { if (ffelex_token_->type != FFELEX_typeNONE) { @@ -883,7 +883,7 @@ ffelex_prepare_eos_ () } static void -ffelex_finish_statement_ () +ffelex_finish_statement_ (void) { if ((ffelex_number_of_tokens_ == 0) && (ffelex_token_->type == FFELEX_typeNONE)) @@ -1398,7 +1398,7 @@ ffelex_image_char_ (int c, ffewhereColumnNumber column) } static void -ffelex_include_ () +ffelex_include_ (void) { ffewhereFile include_wherefile = ffelex_include_wherefile_; FILE *include_file = ffelex_include_file_; @@ -1508,7 +1508,7 @@ ffelex_is_free_nonc_ctx_contin_ (ffewhereColumnNumber col) } static void -ffelex_next_line_ () +ffelex_next_line_ (void) { ffelex_linecount_current_ = ffelex_linecount_next_; ++ffelex_linecount_next_; @@ -1516,7 +1516,7 @@ ffelex_next_line_ () } static void -ffelex_send_token_ () +ffelex_send_token_ (void) { ++ffelex_number_of_tokens_; @@ -1590,7 +1590,7 @@ ffelex_swallow_tokens_ (ffelexToken t) } static ffelexToken -ffelex_token_new_ () +ffelex_token_new_ (void) { ffelexToken t; @@ -1688,7 +1688,7 @@ ffelex_display_token (ffelexToken t) return FALSE. */ bool -ffelex_expecting_character () +ffelex_expecting_character (void) { return (ffelex_raw_mode_ != 0); } @@ -3825,7 +3825,7 @@ ffelex_hash_kludge (FILE *finput) } void -ffelex_init_1 () +ffelex_init_1 (void) { unsigned int i; @@ -3906,7 +3906,7 @@ ffelex_init_1 () Must be called while lexer is active, obviously. */ bool -ffelex_is_names_expected () +ffelex_is_names_expected (void) { return ffelex_names_; } @@ -3915,7 +3915,7 @@ ffelex_is_names_expected () ffelex_linecount_current_. */ char * -ffelex_line () +ffelex_line (void) { return ffelex_card_image_; } @@ -3927,7 +3927,7 @@ ffelex_line () Must be called while lexer is active, obviously. */ ffewhereColumnNumber -ffelex_line_length () +ffelex_line_length (void) { return ffelex_card_length_; } @@ -3936,7 +3936,7 @@ ffelex_line_length () is current. */ ffewhereLineNumber -ffelex_line_number () +ffelex_line_number (void) { return ffelex_linecount_current_; } @@ -4371,7 +4371,7 @@ ffelex_token_new_character (const char *s, ffewhereLine l, ffewhereColumn c) /* Make a new EOF token right after end of file. */ ffelexToken -ffelex_token_new_eof () +ffelex_token_new_eof (void) { ffelexToken t; diff --git a/gcc/f/malloc.c b/gcc/f/malloc.c index 77e2e4a12e2..7a84781d9ef 100644 --- a/gcc/f/malloc.c +++ b/gcc/f/malloc.c @@ -1,5 +1,5 @@ /* malloc.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -136,7 +136,7 @@ malloc_verify_area_ (mallocPool pool UNUSED, mallocArea_ a UNUSED) Call malloc_init before you do anything else. */ void -malloc_init () +malloc_init (void) { if (malloc_reserve_ != NULL) return; diff --git a/gcc/f/src.c b/gcc/f/src.c index 28c55cccf4f..54fc7773fef 100644 --- a/gcc/f/src.c +++ b/gcc/f/src.c @@ -1,5 +1,5 @@ /* src.c -- Implementation File - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -93,7 +93,7 @@ bool ffesrc_ok_match_noninit_lower_; /* Initialize table of alphabetic matches. */ void -ffesrc_init_1 () +ffesrc_init_1 (void) { int i; diff --git a/gcc/f/st.c b/gcc/f/st.c index 8f27f89fbfd..cdfdfb596a8 100644 --- a/gcc/f/st.c +++ b/gcc/f/st.c @@ -1,5 +1,5 @@ /* st.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -141,7 +141,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA yet been set. */ void -ffest_confirmed () +ffest_confirmed (void) { ffesta_confirmed (); } @@ -160,7 +160,7 @@ ffest_confirmed () processing a statement (make and destroy pools, et cetera). */ void -ffest_eof () +ffest_eof (void) { ffesta_eof (); } @@ -242,7 +242,7 @@ ffest_first (ffelexToken t) this list. Initializes the executable and nonexecutable lists. */ void -ffest_init_0 () +ffest_init_0 (void) { ffesta_init_0 (); ffestb_init_0 (); @@ -271,7 +271,7 @@ ffest_init_0 () this list. Initializes the executable and nonexecutable lists. */ void -ffest_init_1 () +ffest_init_1 (void) { ffesta_init_1 (); ffestb_init_1 (); @@ -300,7 +300,7 @@ ffest_init_1 () this list. Initializes the executable and nonexecutable lists. */ void -ffest_init_2 () +ffest_init_2 (void) { ffesta_init_2 (); ffestb_init_2 (); @@ -321,7 +321,7 @@ ffest_init_2 () ffest_init_3(); */ void -ffest_init_3 () +ffest_init_3 (void) { ffesta_init_3 (); ffestb_init_3 (); @@ -344,7 +344,7 @@ ffest_init_3 () ffest_init_4(); */ void -ffest_init_4 () +ffest_init_4 (void) { ffesta_init_4 (); ffestb_init_4 (); @@ -366,7 +366,7 @@ ffest_init_4 () Else returns FALSE. */ bool -ffest_is_entry_valid () +ffest_is_entry_valid (void) { return ffesta_is_entry_valid; } @@ -396,7 +396,7 @@ ffest_is_entry_valid () the ffestb call would be completely dropped without this mechanism. */ bool -ffest_is_inhibited () +ffest_is_inhibited (void) { return ffesta_is_inhibited (); } @@ -412,7 +412,7 @@ ffest_is_inhibited () is being run. */ bool -ffest_seen_first_exec () +ffest_seen_first_exec (void) { return ffesta_seen_first_exec; } @@ -421,7 +421,7 @@ ffest_seen_first_exec () user with a diagnostic if we're not inhibited. */ void -ffest_shutdown () +ffest_shutdown (void) { ffesta_shutdown (); } @@ -453,7 +453,7 @@ ffest_sym_exec_transition (ffesymbol s) ffest_terminate_0(); */ void -ffest_terminate_0 () +ffest_terminate_0 (void) { ffesta_terminate_0 (); ffestb_terminate_0 (); @@ -474,7 +474,7 @@ ffest_terminate_0 () ffest_terminate_1(); */ void -ffest_terminate_1 () +ffest_terminate_1 (void) { ffesta_terminate_1 (); ffestb_terminate_1 (); @@ -495,7 +495,7 @@ ffest_terminate_1 () ffest_terminate_2(); */ void -ffest_terminate_2 () +ffest_terminate_2 (void) { ffesta_terminate_2 (); ffestb_terminate_2 (); @@ -516,7 +516,7 @@ ffest_terminate_2 () ffest_terminate_3(); */ void -ffest_terminate_3 () +ffest_terminate_3 (void) { ffesta_terminate_3 (); ffestb_terminate_3 (); @@ -537,7 +537,7 @@ ffest_terminate_3 () ffest_terminate_4(); */ void -ffest_terminate_4 () +ffest_terminate_4 (void) { ffesta_terminate_4 (); ffestb_terminate_4 (); diff --git a/gcc/f/sta.c b/gcc/f/sta.c index 765425aae2d..885f44c9912 100644 --- a/gcc/f/sta.c +++ b/gcc/f/sta.c @@ -183,7 +183,7 @@ ffesta_add_possible_ (ffelexHandler fn, bool exec, bool named) invocation of ffestc_exec_transition. */ static bool -ffesta_inhibited_exec_transition_ () +ffesta_inhibited_exec_transition_ (void) { bool result; @@ -208,7 +208,7 @@ ffesta_inhibited_exec_transition_ () Clears the lists of executable and nonexecutable statements. */ static void -ffesta_reset_possibles_ () +ffesta_reset_possibles_ (void) { ffesta_num_possibles_ = 0; @@ -1123,7 +1123,7 @@ ffesta_send_two_ (ffelexToken t) yet been set. */ void -ffesta_confirmed () +ffesta_confirmed (void) { if (ffesta_inhibit_confirmation_) return; @@ -1147,7 +1147,7 @@ ffesta_confirmed () processing a statement (make and destroy pools, et cetera). */ void -ffesta_eof () +ffesta_eof (void) { ffesta_tokens[0] = ffelex_token_new_eof (); @@ -1314,7 +1314,7 @@ ffesta_first (ffelexToken t) this list. Initializes the executable and nonexecutable lists. */ void -ffesta_init_0 () +ffesta_init_0 (void) { ffestaPossible_ ptr; int i; @@ -1339,7 +1339,7 @@ ffesta_init_0 () ffesta_init_3(); */ void -ffesta_init_3 () +ffesta_init_3 (void) { ffesta_output_pool = NULL; /* May be doing this just before reaching */ ffesta_scratch_pool = NULL; /* ffesta_zero or ffesta_two. */ @@ -1376,7 +1376,7 @@ ffesta_init_3 () the ffestb call would be completely dropped without this mechanism. */ bool -ffesta_is_inhibited () +ffesta_is_inhibited (void) { assert (ffesta_confirmed_current_ || ffesta_inhibit_confirmation_); return ffesta_is_inhibited_; @@ -1525,7 +1525,7 @@ ffesta_ffebad_2t (ffebad errnum, ffelexToken t1, ffelexToken t2) } ffestaPooldisp -ffesta_outpooldisp () +ffesta_outpooldisp (void) { return ffesta_outpooldisp_; } @@ -1540,7 +1540,7 @@ ffesta_set_outpooldisp (ffestaPooldisp d) user with a diagnostic if we're not inhibited. */ void -ffesta_shutdown () +ffesta_shutdown (void) { if (ffesta_is_inhibited_) ffesta_current_shutdown_ = TRUE; diff --git a/gcc/f/stb.c b/gcc/f/stb.c index 2264a703027..673f96c23c5 100644 --- a/gcc/f/stb.c +++ b/gcc/f/stb.c @@ -815,7 +815,7 @@ ffestb_subr_ambig_nope_ (ffelexToken t) in _ents_ (perform housekeeping tasks). */ static void -ffestb_subr_ambig_to_ents_ () +ffestb_subr_ambig_to_ents_ (void) { ffelexToken nt; @@ -9460,7 +9460,7 @@ ffestb_subr_kill_easy_ (ffestpInquireIx max) #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_accept_ () +ffestb_subr_kill_accept_ (void) { ffestpAcceptIx ix; @@ -9486,7 +9486,7 @@ ffestb_subr_kill_accept_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_beru_ () +ffestb_subr_kill_beru_ (void) { ffestpBeruIx ix; @@ -9511,7 +9511,7 @@ ffestb_subr_kill_beru_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_close_ () +ffestb_subr_kill_close_ (void) { ffestpCloseIx ix; @@ -9536,7 +9536,7 @@ ffestb_subr_kill_close_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_delete_ () +ffestb_subr_kill_delete_ (void) { ffestpDeleteIx ix; @@ -9561,7 +9561,7 @@ ffestb_subr_kill_delete_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_inquire_ () +ffestb_subr_kill_inquire_ (void) { ffestpInquireIx ix; @@ -9586,7 +9586,7 @@ ffestb_subr_kill_inquire_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_open_ () +ffestb_subr_kill_open_ (void) { ffestpOpenIx ix; @@ -9611,7 +9611,7 @@ ffestb_subr_kill_open_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_print_ () +ffestb_subr_kill_print_ (void) { ffestpPrintIx ix; @@ -9636,7 +9636,7 @@ ffestb_subr_kill_print_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_read_ () +ffestb_subr_kill_read_ (void) { ffestpReadIx ix; @@ -9661,7 +9661,7 @@ ffestb_subr_kill_read_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_rewrite_ () +ffestb_subr_kill_rewrite_ (void) { ffestpRewriteIx ix; @@ -9686,7 +9686,7 @@ ffestb_subr_kill_rewrite_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_type_ () +ffestb_subr_kill_type_ (void) { ffestpTypeIx ix; @@ -9711,7 +9711,7 @@ ffestb_subr_kill_type_ () #if !FFESTB_KILL_EASY_ static void -ffestb_subr_kill_write_ () +ffestb_subr_kill_write_ (void) { ffestpWriteIx ix; diff --git a/gcc/f/stc.c b/gcc/f/stc.c index 19639c1498a..f859fac89df 100644 --- a/gcc/f/stc.c +++ b/gcc/f/stc.c @@ -599,7 +599,7 @@ ffestc_establish_impletter_ (ffelexToken first, ffelexToken last) ffestc_init_3(); */ void -ffestc_init_3 () +ffestc_init_3 (void) { ffestv_save_state_ = FFESTV_savestateNONE; ffestc_entry_num_ = 0; @@ -614,7 +614,7 @@ ffestc_init_3 () defs, and statement function defs. */ void -ffestc_init_4 () +ffestc_init_4 (void) { ffestc_saved_entry_num_ = ffestc_entry_num_; ffestc_entry_num_ = 0; @@ -683,7 +683,7 @@ ffestc_kindtype_star_ (ffeinfoBasictype bt, ffetargetCharacterSize val) /* Define label as usable for anything without complaint. */ static void -ffestc_labeldef_any_ () +ffestc_labeldef_any_ (void) { if ((ffesta_label_token == NULL) || !ffestc_labeldef_begin_ ()) @@ -700,7 +700,7 @@ ffestc_labeldef_any_ () ffestc_labeldef_begin_(); */ static bool -ffestc_labeldef_begin_ () +ffestc_labeldef_begin_ (void) { ffelabValue label_value; ffelab label; @@ -757,7 +757,7 @@ ffestc_labeldef_begin_ () ffestc_labeldef_branch_begin_(); */ static void -ffestc_labeldef_branch_begin_ () +ffestc_labeldef_branch_begin_ (void) { if ((ffesta_label_token == NULL) || (ffestc_shriek_after1_ != NULL) @@ -841,7 +841,7 @@ ffestc_labeldef_branch_begin_ () which case they must issue a diagnostic). */ static void -ffestc_labeldef_branch_end_ () +ffestc_labeldef_branch_end_ (void) { if (ffesta_label_token == NULL) return; @@ -865,7 +865,7 @@ ffestc_labeldef_branch_end_ () ffestc_labeldef_endif_(); */ static void -ffestc_labeldef_endif_ () +ffestc_labeldef_endif_ (void) { if ((ffesta_label_token == NULL) || (ffestc_shriek_after1_ != NULL) @@ -954,7 +954,7 @@ ffestc_labeldef_endif_ () ffestc_labeldef_format_(); */ static void -ffestc_labeldef_format_ () +ffestc_labeldef_format_ (void) { if ((ffesta_label_token == NULL) || (ffestc_shriek_after1_ != NULL)) @@ -1037,7 +1037,7 @@ ffestc_labeldef_format_ () ffestc_labeldef_invalid_(); */ static void -ffestc_labeldef_invalid_ () +ffestc_labeldef_invalid_ (void) { if ((ffesta_label_token == NULL) || (ffestc_shriek_after1_ != NULL) @@ -1062,7 +1062,7 @@ ffestc_labeldef_invalid_ () be in the "then" part of a logical IF, such as a block-IF statement. */ static void -ffestc_labeldef_notloop_ () +ffestc_labeldef_notloop_ (void) { if (ffesta_label_token == NULL) return; @@ -1156,7 +1156,7 @@ ffestc_labeldef_notloop_ () loop-ending label. */ static void -ffestc_labeldef_notloop_begin_ () +ffestc_labeldef_notloop_begin_ (void) { if ((ffesta_label_token == NULL) || (ffestc_shriek_after1_ != NULL) @@ -1244,7 +1244,7 @@ ffestc_labeldef_notloop_begin_ () ffestc_labeldef_useless_(); */ static void -ffestc_labeldef_useless_ () +ffestc_labeldef_useless_ (void) { if ((ffesta_label_token == NULL) || (ffestc_shriek_after1_ != NULL) @@ -1750,7 +1750,7 @@ ffestc_labelref_is_loopend_ (ffelexToken label_token, ffelab *x_label) return; */ static ffestcOrder_ -ffestc_order_actiondo_ () +ffestc_order_actiondo_ (void) { recurse: @@ -1795,7 +1795,7 @@ ffestc_order_actiondo_ () return; */ static ffestcOrder_ -ffestc_order_actionif_ () +ffestc_order_actionif_ (void) { bool update; @@ -1879,7 +1879,7 @@ recurse: return; */ static ffestcOrder_ -ffestc_order_actionwhere_ () +ffestc_order_actionwhere_ (void) { bool update; @@ -1961,7 +1961,7 @@ recurse: doesn't produce any diagnostics. */ static void -ffestc_order_any_ () +ffestc_order_any_ (void) { bool update; @@ -2047,7 +2047,7 @@ recurse: now. */ static void -ffestc_order_bad_ () +ffestc_order_bad_ (void) { if (ffewhere_line_is_unknown (ffestw_line (ffestw_stack_top ()))) { @@ -2073,7 +2073,7 @@ ffestc_order_bad_ () return; */ static ffestcOrder_ -ffestc_order_blockdata_ () +ffestc_order_blockdata_ (void) { recurse: @@ -2111,7 +2111,7 @@ ffestc_order_blockdata_ () return; */ static ffestcOrder_ -ffestc_order_blockspec_ () +ffestc_order_blockspec_ (void) { recurse: @@ -2186,7 +2186,7 @@ ffestc_order_blockspec_ () return; */ static ffestcOrder_ -ffestc_order_data_ () +ffestc_order_data_ (void) { recurse: @@ -2263,7 +2263,7 @@ ffestc_order_data_ () return; */ static ffestcOrder_ -ffestc_order_data77_ () +ffestc_order_data77_ (void) { recurse: @@ -2341,7 +2341,7 @@ ffestc_order_data77_ () return; */ static ffestcOrder_ -ffestc_order_do_ () +ffestc_order_do_ (void) { switch (ffestw_state (ffestw_stack_top ())) { @@ -2369,7 +2369,7 @@ ffestc_order_do_ () return; */ static ffestcOrder_ -ffestc_order_entry_ () +ffestc_order_entry_ (void) { recurse: @@ -2434,7 +2434,7 @@ ffestc_order_entry_ () return; */ static ffestcOrder_ -ffestc_order_exec_ () +ffestc_order_exec_ (void) { bool update; @@ -2519,7 +2519,7 @@ recurse: return; */ static ffestcOrder_ -ffestc_order_format_ () +ffestc_order_format_ (void) { recurse: @@ -2587,7 +2587,7 @@ ffestc_order_format_ () return; */ static ffestcOrder_ -ffestc_order_function_ () +ffestc_order_function_ (void) { recurse: @@ -2625,7 +2625,7 @@ ffestc_order_function_ () return; */ static ffestcOrder_ -ffestc_order_iface_ () +ffestc_order_iface_ (void) { switch (ffestw_state (ffestw_stack_top ())) { @@ -2658,7 +2658,7 @@ ffestc_order_iface_ () return; */ static ffestcOrder_ -ffestc_order_ifthen_ () +ffestc_order_ifthen_ (void) { switch (ffestw_state (ffestw_stack_top ())) { @@ -2686,7 +2686,7 @@ ffestc_order_ifthen_ () return; */ static ffestcOrder_ -ffestc_order_implicit_ () +ffestc_order_implicit_ (void) { recurse: @@ -2757,7 +2757,7 @@ ffestc_order_implicit_ () return; */ static ffestcOrder_ -ffestc_order_implicitnone_ () +ffestc_order_implicitnone_ (void) { recurse: @@ -2821,7 +2821,7 @@ ffestc_order_implicitnone_ () return; */ static ffestcOrder_ -ffestc_order_parameter_ () +ffestc_order_parameter_ (void) { recurse: @@ -2901,7 +2901,7 @@ ffestc_order_parameter_ () return; */ static ffestcOrder_ -ffestc_order_program_ () +ffestc_order_program_ (void) { recurse: @@ -2943,7 +2943,7 @@ ffestc_order_program_ () return; */ static ffestcOrder_ -ffestc_order_progspec_ () +ffestc_order_progspec_ (void) { recurse: @@ -3025,7 +3025,7 @@ ffestc_order_progspec_ () return; */ static ffestcOrder_ -ffestc_order_selectcase_ () +ffestc_order_selectcase_ (void) { switch (ffestw_state (ffestw_stack_top ())) { @@ -3054,7 +3054,7 @@ ffestc_order_selectcase_ () return; */ static ffestcOrder_ -ffestc_order_sfunc_ () +ffestc_order_sfunc_ (void) { recurse: @@ -3113,7 +3113,7 @@ ffestc_order_sfunc_ () return; */ static ffestcOrder_ -ffestc_order_subroutine_ () +ffestc_order_subroutine_ (void) { recurse: @@ -3151,7 +3151,7 @@ ffestc_order_subroutine_ () return; */ static ffestcOrder_ -ffestc_order_typedecl_ () +ffestc_order_typedecl_ (void) { recurse: @@ -3226,7 +3226,7 @@ ffestc_order_typedecl_ () return; */ static ffestcOrder_ -ffestc_order_unit_ () +ffestc_order_unit_ (void) { switch (ffestw_state (ffestw_stack_top ())) { @@ -3563,7 +3563,7 @@ ffestc_promote_sfdummy_ (ffelexToken t) of a main program unit. */ static void -ffestc_shriek_begin_program_ () +ffestc_shriek_begin_program_ (void) { ffestw b; ffesymbol s; @@ -4107,7 +4107,7 @@ ffestc_subr_unit_ (ffestpFile *spec) like "DO 10", "IF (...) THEN", "10 ELSE", "END IF", "END". */ static void -ffestc_try_shriek_do_ () +ffestc_try_shriek_do_ (void) { ffelab lab; ffelabType ty; @@ -4236,7 +4236,7 @@ ffestc_decl_item (ffelexToken name, ffebld kind, ffelexToken kindt, Gonna specify values for the object now. */ void -ffestc_decl_itemstartvals () +ffestc_decl_itemstartvals (void) { switch (ffestc_local_.decl.is_R426) { @@ -4298,7 +4298,7 @@ ffestc_decl_itemendvals (ffelexToken t) Just wrap up any local activities. */ void -ffestc_decl_finish () +ffestc_decl_finish (void) { switch (ffestc_local_.decl.is_R426) { @@ -4339,7 +4339,7 @@ ffestc_elsewhere (ffelexToken where) it. */ void -ffestc_end () +ffestc_end (void) { ffestw b; @@ -4422,7 +4422,7 @@ recurse: block's shriek function to clean up to state NIL. */ void -ffestc_eof () +ffestc_eof (void) { if (ffestw_state (ffestw_stack_top ()) != FFESTV_stateNIL) { @@ -4457,7 +4457,7 @@ ffestc_eof () seeing the unrecognized statement? we do the former at the moment). */ bool -ffestc_exec_transition () +ffestc_exec_transition (void) { bool update; @@ -4561,7 +4561,7 @@ ffestc_ffebad_here_doiter (ffebadIndex i, ffesymbol s) is the R1219 function-stmt case). */ bool -ffestc_is_decl_not_R1219 () +ffestc_is_decl_not_R1219 (void) { switch (ffestw_state (ffestw_stack_top ())) { @@ -4591,7 +4591,7 @@ ffestc_is_decl_not_R1219 () if the ENTRY is in a function context. */ bool -ffestc_is_entry_in_subr () +ffestc_is_entry_in_subr (void) { ffestvState s; @@ -4630,7 +4630,7 @@ recurse: explicit typing of name. */ bool -ffestc_is_let_not_V027 () +ffestc_is_let_not_V027 (void) { switch (ffestw_state (ffestw_stack_top ())) { @@ -4659,7 +4659,7 @@ ffestc_is_let_not_V027 () defs, and statement function defs. */ void -ffestc_terminate_4 () +ffestc_terminate_4 (void) { ffestc_entry_num_ = ffestc_saved_entry_num_; } @@ -5023,7 +5023,7 @@ ffestc_R501_item (ffelexToken name, ffebld kind, ffelexToken kindt, Gonna specify values for the object now. */ void -ffestc_R501_itemstartvals () +ffestc_R501_itemstartvals (void) { ffestc_check_item_startvals_ (); @@ -5091,7 +5091,7 @@ ffestc_R501_itemendvals (ffelexToken t) Just wrap up any local activities. */ void -ffestc_R501_finish () +ffestc_R501_finish (void) { ffestc_check_finish_ (); } @@ -5103,7 +5103,7 @@ ffestc_R501_finish () Verify that SAVE is valid here, and flag everything as SAVEd. */ void -ffestc_R522 () +ffestc_R522 (void) { ffestc_check_simple_ (); if (ffestc_order_blockspec_ () != FFESTC_orderOK_) @@ -5153,7 +5153,7 @@ ffestc_R522 () Verify that SAVE is valid here, and begin accepting items in the list. */ void -ffestc_R522start () +ffestc_R522start (void) { ffestc_check_start_ (); if (ffestc_order_blockspec_ () != FFESTC_orderOK_) @@ -5315,7 +5315,7 @@ ffestc_R522item_cblock (ffelexToken name) Just wrap up any local activities. */ void -ffestc_R522finish () +ffestc_R522finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -5487,7 +5487,7 @@ ffestc_R524_item (ffelexToken name, ffesttDimList dims) Just wrap up any local activities. */ void -ffestc_R524_finish () +ffestc_R524_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -5503,7 +5503,7 @@ ffestc_R524_finish () Verify that DATA is valid here, and begin accepting items in the list. */ void -ffestc_R528_start () +ffestc_R528_start (void) { ffestcOrder_ order; @@ -5561,7 +5561,7 @@ ffestc_R528_item_object (ffebld expr, ffelexToken expr_token UNUSED) No more objects, gonna specify values for the list of objects now. */ void -ffestc_R528_item_startvals () +ffestc_R528_item_startvals (void) { ffestc_check_item_startvals_ (); if (!ffestc_ok_) @@ -5644,7 +5644,7 @@ ffestc_R528_item_endvals (ffelexToken t) Just wrap up any local activities. */ void -ffestc_R528_finish () +ffestc_R528_finish (void) { ffestc_check_finish_ (); @@ -5662,7 +5662,7 @@ ffestc_R528_finish () list. */ void -ffestc_R537_start () +ffestc_R537_start (void) { ffestc_check_start_ (); if (ffestc_order_parameter_ () != FFESTC_orderOK_) @@ -5745,7 +5745,7 @@ ffestc_R537_item (ffebld dest, ffelexToken dest_token, ffebld source, Just wrap up any local activities. */ void -ffestc_R537_finish () +ffestc_R537_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -5761,7 +5761,7 @@ ffestc_R537_finish () Verify that the IMPLICIT NONE statement is ok here and implement. */ void -ffestc_R539 () +ffestc_R539 (void) { ffestc_check_simple_ (); if (ffestc_order_implicitnone_ () != FFESTC_orderOK_) @@ -5780,7 +5780,7 @@ ffestc_R539 () Verify that the IMPLICIT statement is ok here and implement. */ void -ffestc_R539start () +ffestc_R539start (void) { ffestc_check_start_ (); if (ffestc_order_implicit_ () != FFESTC_orderOK_) @@ -5835,7 +5835,7 @@ ffestc_R539item (ffestpType type, ffebld kind, ffelexToken kindt, Finish up any local activities. */ void -ffestc_R539finish () +ffestc_R539finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -5852,7 +5852,7 @@ ffestc_R539finish () list. */ void -ffestc_R542_start () +ffestc_R542_start (void) { ffestc_check_start_ (); if (ffestc_order_progspec_ () != FFESTC_orderOK_) @@ -6017,7 +6017,7 @@ ffestc_R542_item_nitem (ffelexToken name) Just wrap up any local activities. */ void -ffestc_R542_finish () +ffestc_R542_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -6036,7 +6036,7 @@ ffestc_R542_finish () list. */ void -ffestc_R544_start () +ffestc_R544_start (void) { ffestc_check_start_ (); if (ffestc_order_blockspec_ () != FFESTC_orderOK_) @@ -6163,7 +6163,7 @@ ffestc_R544_equiv_ (ffebld expr, ffelexToken t) Just wrap up any local activities. */ void -ffestc_R544_finish () +ffestc_R544_finish (void) { ffestc_check_finish_ (); } @@ -6175,7 +6175,7 @@ ffestc_R544_finish () Verify that COMMON is valid here, and begin accepting items in the list. */ void -ffestc_R547_start () +ffestc_R547_start (void) { ffestc_check_start_ (); if (ffestc_order_blockspec_ () != FFESTC_orderOK_) @@ -6444,7 +6444,7 @@ ffestc_R547_item_cblock (ffelexToken name) Just wrap up any local activities. */ void -ffestc_R547_finish () +ffestc_R547_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -6875,7 +6875,7 @@ ffestc_R810 (ffesttCaseList cases, ffelexToken name) && ((ffeinfo_basictype (ffebld_info (caseobj->expr1)) != s->type) || ((ffeinfo_kindtype (ffebld_info (caseobj->expr1)) - != s->kindtype) + != s->kindtype) && (ffeinfo_kindtype (ffebld_info (caseobj->expr1)) != FFEINFO_kindtypeINTEGER1 )) || ((caseobj->range) && (caseobj->expr2 != NULL) @@ -7788,7 +7788,7 @@ ffestc_R840 (ffebld expr, ffelexToken expr_token UNUSED, ffestc_R841(); */ void -ffestc_R841 () +ffestc_R841 (void) { ffestc_check_simple_ (); @@ -7860,7 +7860,7 @@ ffestc_R843 (ffebld expr, ffelexToken expr_token UNUSED) Make sure an OPEN is valid in the current context, and implement it. */ void -ffestc_R904 () +ffestc_R904 (void) { int i; int expect_file; @@ -8105,7 +8105,7 @@ ffestc_R904 () Make sure a CLOSE is valid in the current context, and implement it. */ void -ffestc_R907 () +ffestc_R907 (void) { static const char *const status_strs[] = { @@ -8497,7 +8497,7 @@ ffestc_R909_item (ffebld expr, ffelexToken expr_token) Just wrap up any local activities. */ void -ffestc_R909_finish () +ffestc_R909_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -8518,7 +8518,7 @@ ffestc_R909_finish () list. */ void -ffestc_R910_start () +ffestc_R910_start (void) { ffestvUnit unit; ffestvFormat format; @@ -8737,7 +8737,7 @@ ffestc_R910_item (ffebld expr, ffelexToken expr_token) Just wrap up any local activities. */ void -ffestc_R910_finish () +ffestc_R910_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -8758,7 +8758,7 @@ ffestc_R910_finish () list. */ void -ffestc_R911_start () +ffestc_R911_start (void) { ffestvFormat format; @@ -8822,7 +8822,7 @@ ffestc_R911_item (ffebld expr, ffelexToken expr_token) Just wrap up any local activities. */ void -ffestc_R911_finish () +ffestc_R911_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -8842,7 +8842,7 @@ ffestc_R911_finish () Make sure a BACKSPACE is valid in the current context, and implement it. */ void -ffestc_R919 () +ffestc_R919 (void) { ffestc_check_simple_ (); if (ffestc_order_actionif_ () != FFESTC_orderOK_) @@ -8867,7 +8867,7 @@ ffestc_R919 () Make sure a ENDFILE is valid in the current context, and implement it. */ void -ffestc_R920 () +ffestc_R920 (void) { ffestc_check_simple_ (); if (ffestc_order_actionif_ () != FFESTC_orderOK_) @@ -8892,7 +8892,7 @@ ffestc_R920 () Make sure a REWIND is valid in the current context, and implement it. */ void -ffestc_R921 () +ffestc_R921 (void) { ffestc_check_simple_ (); if (ffestc_order_actionif_ () != FFESTC_orderOK_) @@ -8917,7 +8917,7 @@ ffestc_R921 () Make sure an INQUIRE is valid in the current context, and implement it. */ void -ffestc_R923A () +ffestc_R923A (void) { bool by_file; bool by_unit; @@ -8994,7 +8994,7 @@ ffestc_R923A () list. */ void -ffestc_R923B_start () +ffestc_R923B_start (void) { ffestc_check_start_ (); if (ffestc_order_actionif_ () != FFESTC_orderOK_) @@ -9032,7 +9032,7 @@ ffestc_R923B_item (ffebld expr, ffelexToken expr_token UNUSED) Just wrap up any local activities. */ void -ffestc_R923B_finish () +ffestc_R923B_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -9254,7 +9254,7 @@ ffestc_R1112 (ffelexToken name) Verify that EXTERNAL is valid here, and begin accepting items in the list. */ void -ffestc_R1207_start () +ffestc_R1207_start (void) { ffestc_check_start_ (); if (ffestc_order_progspec_ () != FFESTC_orderOK_) @@ -9328,7 +9328,7 @@ ffestc_R1207_item (ffelexToken name) Just wrap up any local activities. */ void -ffestc_R1207_finish () +ffestc_R1207_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -9344,7 +9344,7 @@ ffestc_R1207_finish () Verify that INTRINSIC is valid here, and begin accepting items in the list. */ void -ffestc_R1208_start () +ffestc_R1208_start (void) { ffestc_check_start_ (); if (ffestc_order_progspec_ () != FFESTC_orderOK_) @@ -9447,7 +9447,7 @@ ffestc_R1208_item (ffelexToken name) Just wrap up any local activities. */ void -ffestc_R1208_finish () +ffestc_R1208_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -10232,7 +10232,7 @@ ffestc_S3P4 (ffebld filename, ffelexToken filename_token UNUSED) list. */ void -ffestc_V014_start () +ffestc_V014_start (void) { ffestc_check_start_ (); if (ffestc_order_progspec_ () != FFESTC_orderOK_) @@ -10288,7 +10288,7 @@ ffestc_V014_item_cblock (ffelexToken name) Just wrap up any local activities. */ void -ffestc_V014_finish () +ffestc_V014_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -10305,7 +10305,7 @@ ffestc_V014_finish () list. */ void -ffestc_V020_start () +ffestc_V020_start (void) { ffestvFormat format; @@ -10369,7 +10369,7 @@ ffestc_V020_item (ffebld expr, ffelexToken expr_token) Just wrap up any local activities. */ void -ffestc_V020_finish () +ffestc_V020_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -10389,7 +10389,7 @@ ffestc_V020_finish () Verify that PARAMETER is valid here, and begin accepting items in the list. */ void -ffestc_V027_start () +ffestc_V027_start (void) { ffestc_check_start_ (); if (ffestc_order_parameter_ () != FFESTC_orderOK_) @@ -10429,7 +10429,7 @@ ffestc_V027_item (ffelexToken dest_token, ffebld source, Just wrap up any local activities. */ void -ffestc_V027_finish () +ffestc_V027_finish (void) { ffestc_check_finish_ (); if (!ffestc_ok_) @@ -10442,7 +10442,7 @@ ffestc_V027_finish () like the statement for a logical IF are reset. */ void -ffestc_any () +ffestc_any (void) { ffestc_check_simple_ (); diff --git a/gcc/f/std.c b/gcc/f/std.c index d225d1c9724..863214e9292 100644 --- a/gcc/f/std.c +++ b/gcc/f/std.c @@ -555,7 +555,7 @@ ffestd_stmt_new_ (ffestdStmtId_ id) ffestd_stmt_pass_(); */ static void -ffestd_stmt_pass_ () +ffestd_stmt_pass_ (void) { ffestdStmt_ stmt; ffestdExprItem_ expr; /* For traversing lists. */ @@ -1102,7 +1102,7 @@ ffestd_subr_labels_ (bool unexpected) ffestd_subr_vxt_(); */ static void -ffestd_subr_vxt_ () +ffestd_subr_vxt_ (void) { ffebad_start (FFEBAD_VXT_UNSUPPORTED); ffebad_here (0, ffelex_token_where_line (ffesta_tokens[0]), @@ -1121,7 +1121,7 @@ ffestd_subr_vxt_ () handling them as a single block rather than one statement at a time). */ void -ffestd_begin_uses () +ffestd_begin_uses (void) { } @@ -1177,7 +1177,7 @@ ffestd_end_R807 (bool ok UNUSED) ffestd_exec_begin(); */ void -ffestd_exec_begin () +ffestd_exec_begin (void) { ffecom_exec_transition (); @@ -1209,7 +1209,7 @@ ffestd_exec_begin () ffestd_exec_end(); */ void -ffestd_exec_end () +ffestd_exec_end (void) { location_t old_loc = input_location; @@ -1251,7 +1251,7 @@ ffestd_exec_end () ffestd_init_3(); */ void -ffestd_init_3 () +ffestd_init_3 (void) { ffestd_stmt_list_.first = (ffestdStmt_) &ffestd_stmt_list_.first; ffestd_stmt_list_.last = (ffestdStmt_) &ffestd_stmt_list_.first; @@ -1312,7 +1312,7 @@ ffestd_labeldef_useless (ffelab label UNUSED) Verify that SAVE is valid here, and flag everything as SAVEd. */ void -ffestd_R522 () +ffestd_R522 (void) { ffestd_check_simple_ (); } @@ -1324,7 +1324,7 @@ ffestd_R522 () Verify that SAVE is valid here, and begin accepting items in the list. */ void -ffestd_R522start () +ffestd_R522start (void) { ffestd_check_start_ (); } @@ -1360,7 +1360,7 @@ ffestd_R522item_cblock (ffelexToken name UNUSED) Just wrap up any local activities. */ void -ffestd_R522finish () +ffestd_R522finish (void) { ffestd_check_finish_ (); } @@ -1396,7 +1396,7 @@ ffestd_R524_item (ffelexToken name UNUSED, ffesttDimList dims UNUSED) Just wrap up any local activities. */ void -ffestd_R524_finish () +ffestd_R524_finish (void) { ffestd_check_finish_ (); } @@ -1408,7 +1408,7 @@ ffestd_R524_finish () Verify that PARAMETER is valid here, and begin accepting items in the list. */ void -ffestd_R537_start () +ffestd_R537_start (void) { ffestd_check_start_ (); } @@ -1433,7 +1433,7 @@ ffestd_R537_item (ffebld dest UNUSED, ffebld source UNUSED) Just wrap up any local activities. */ void -ffestd_R537_finish () +ffestd_R537_finish (void) { ffestd_check_finish_ (); } @@ -1445,7 +1445,7 @@ ffestd_R537_finish () Verify that the IMPLICIT NONE statement is ok here and implement. */ void -ffestd_R539 () +ffestd_R539 (void) { ffestd_check_simple_ (); } @@ -1457,7 +1457,7 @@ ffestd_R539 () Verify that the IMPLICIT statement is ok here and implement. */ void -ffestd_R539start () +ffestd_R539start (void) { ffestd_check_start_ (); } @@ -1483,7 +1483,7 @@ ffestd_R539item (ffestpType type UNUSED, ffebld kind UNUSED, Finish up any local activities. */ void -ffestd_R539finish () +ffestd_R539finish (void) { ffestd_check_finish_ (); } @@ -1495,7 +1495,7 @@ ffestd_R539finish () Verify that NAMELIST is valid here, and begin accepting items in the list. */ void -ffestd_R542_start () +ffestd_R542_start (void) { ffestd_check_start_ (); } @@ -1531,7 +1531,7 @@ ffestd_R542_item_nitem (ffelexToken name UNUSED) Just wrap up any local activities. */ void -ffestd_R542_finish () +ffestd_R542_finish (void) { ffestd_check_finish_ (); } @@ -1543,7 +1543,7 @@ ffestd_R542_finish () Verify that COMMON is valid here, and begin accepting items in the list. */ void -ffestd_R547_start () +ffestd_R547_start (void) { ffestd_check_start_ (); } @@ -1580,7 +1580,7 @@ ffestd_R547_item_cblock (ffelexToken name UNUSED) Just wrap up any local activities. */ void -ffestd_R547_finish () +ffestd_R547_finish (void) { ffestd_check_finish_ (); } @@ -2096,7 +2096,7 @@ ffestd_R843 (ffebld expr) Make sure an OPEN is valid in the current context, and implement it. */ void -ffestd_R904 () +ffestd_R904 (void) { ffestdStmt_ stmt; @@ -2151,7 +2151,7 @@ ffestd_R904 () Make sure a CLOSE is valid in the current context, and implement it. */ void -ffestd_R907 () +ffestd_R907 (void) { ffestdStmt_ stmt; @@ -2246,7 +2246,7 @@ ffestd_R909_item (ffebld expr, ffelexToken expr_token) Just wrap up any local activities. */ void -ffestd_R909_finish () +ffestd_R909_finish (void) { ffestd_check_finish_ (); } @@ -2323,7 +2323,7 @@ ffestd_R910_item (ffebld expr, ffelexToken expr_token) Just wrap up any local activities. */ void -ffestd_R910_finish () +ffestd_R910_finish (void) { ffestd_check_finish_ (); } @@ -2383,7 +2383,7 @@ ffestd_R911_item (ffebld expr, ffelexToken expr_token) Just wrap up any local activities. */ void -ffestd_R911_finish () +ffestd_R911_finish (void) { ffestd_check_finish_ (); } @@ -2395,7 +2395,7 @@ ffestd_R911_finish () Make sure a BACKSPACE is valid in the current context, and implement it. */ void -ffestd_R919 () +ffestd_R919 (void) { ffestdStmt_ stmt; @@ -2416,7 +2416,7 @@ ffestd_R919 () Make sure a ENDFILE is valid in the current context, and implement it. */ void -ffestd_R920 () +ffestd_R920 (void) { ffestdStmt_ stmt; @@ -2437,7 +2437,7 @@ ffestd_R920 () Make sure a REWIND is valid in the current context, and implement it. */ void -ffestd_R921 () +ffestd_R921 (void) { ffestdStmt_ stmt; @@ -2506,7 +2506,7 @@ ffestd_R923A (bool by_file) list. */ void -ffestd_R923B_start () +ffestd_R923B_start (void) { ffestdStmt_ stmt; @@ -2551,7 +2551,7 @@ ffestd_R923B_item (ffebld expr) Just wrap up any local activities. */ void -ffestd_R923B_finish () +ffestd_R923B_finish (void) { ffestd_check_finish_ (); } @@ -3168,7 +3168,7 @@ ffestd_R1112 (bool ok UNUSED) Verify that EXTERNAL is valid here, and begin accepting items in the list. */ void -ffestd_R1207_start () +ffestd_R1207_start (void) { ffestd_check_start_ (); } @@ -3193,7 +3193,7 @@ ffestd_R1207_item (ffelexToken name) Just wrap up any local activities. */ void -ffestd_R1207_finish () +ffestd_R1207_finish (void) { ffestd_check_finish_ (); } @@ -3205,7 +3205,7 @@ ffestd_R1207_finish () Verify that INTRINSIC is valid here, and begin accepting items in the list. */ void -ffestd_R1208_start () +ffestd_R1208_start (void) { ffestd_check_start_ (); } @@ -3230,7 +3230,7 @@ ffestd_R1208_item (ffelexToken name) Just wrap up any local activities. */ void -ffestd_R1208_finish () +ffestd_R1208_finish (void) { ffestd_check_finish_ (); } @@ -3495,7 +3495,7 @@ ffestd_S3P4 (ffebld filename) Verify that VOLATILE is valid here, and begin accepting items in the list. */ void -ffestd_V014_start () +ffestd_V014_start (void) { ffestd_check_start_ (); } @@ -3531,7 +3531,7 @@ ffestd_V014_item_cblock (ffelexToken name UNUSED) Just wrap up any local activities. */ void -ffestd_V014_finish () +ffestd_V014_finish (void) { ffestd_check_finish_ (); } @@ -3569,7 +3569,7 @@ ffestd_V020_item (ffebld expr UNUSED) Just wrap up any local activities. */ void -ffestd_V020_finish () +ffestd_V020_finish (void) { ffestd_check_finish_ (); } @@ -3581,7 +3581,7 @@ ffestd_V020_finish () Verify that PARAMETER is valid here, and begin accepting items in the list. */ void -ffestd_V027_start () +ffestd_V027_start (void) { ffestd_check_start_ (); ffestd_subr_vxt_ (); @@ -3607,7 +3607,7 @@ ffestd_V027_item (ffelexToken dest_token UNUSED, ffebld source UNUSED) Just wrap up any local activities. */ void -ffestd_V027_finish () +ffestd_V027_finish (void) { ffestd_check_finish_ (); } @@ -3615,7 +3615,7 @@ ffestd_V027_finish () /* Any executable statement. */ void -ffestd_any () +ffestd_any (void) { ffestdStmt_ stmt; diff --git a/gcc/f/ste.c b/gcc/f/ste.c index 66ee92c54db..53a20d89c23 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -335,7 +335,7 @@ static void ffeste_subr_beru_ (ffestpBeruStmt *info, ffecomGfrt rt); tree exq = (Exp); \ tree lenexq = (Lenexp); \ int need_exq = (! exq); \ - int need_lenexq = (! lenexq); \ + int need_lenexq = (! lenexq); \ if (need_exq || need_lenexq) \ { \ exq = ffecom_arg_ptr_to_expr ((Spec)->u.expr, &lenexq); \ @@ -2368,7 +2368,7 @@ ffeste_do (ffestw block) Applies to *only* logical IF, not to IF-THEN. */ void -ffeste_end_R807 () +ffeste_end_R807 (void) { ffeste_emit_line_note_ (); @@ -2824,7 +2824,7 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr) ending an iterative DO statement, even one that ends at a label. */ void -ffeste_R825 () +ffeste_R825 (void) { ffeste_check_simple_ (); @@ -3097,7 +3097,7 @@ ffeste_R840 (ffebld expr, ffelab neg, ffelab zero, ffelab pos) /* CONTINUE statement. */ void -ffeste_R841 () +ffeste_R841 (void) { ffeste_check_simple_ (); @@ -3638,7 +3638,7 @@ ffeste_R909_item (ffebld expr, ffelexToken expr_token) /* READ statement -- end. */ void -ffeste_R909_finish () +ffeste_R909_finish (void) { ffeste_check_finish_ (); @@ -3869,7 +3869,7 @@ ffeste_R910_item (ffebld expr, ffelexToken expr_token) /* WRITE statement -- end. */ void -ffeste_R910_finish () +ffeste_R910_finish (void) { ffeste_check_finish_ (); @@ -3996,7 +3996,7 @@ ffeste_R911_item (ffebld expr, ffelexToken expr_token) /* PRINT statement -- end. */ void -ffeste_R911_finish () +ffeste_R911_finish (void) { ffeste_check_finish_ (); @@ -4167,7 +4167,7 @@ ffeste_R923B_item (ffebld expr UNUSED) /* INQUIRE(IOLENGTH=expr) statement -- end. */ void -ffeste_R923B_finish () +ffeste_R923B_finish (void) { ffeste_check_finish_ (); } @@ -4227,14 +4227,14 @@ ffeste_R1001 (ffests s) /* END PROGRAM. */ void -ffeste_R1103 () +ffeste_R1103 (void) { } /* END BLOCK DATA. */ void -ffeste_R1112 () +ffeste_R1112 (void) { } @@ -4363,14 +4363,14 @@ ffeste_R1212 (ffebld expr) /* END FUNCTION. */ void -ffeste_R1221 () +ffeste_R1221 (void) { } /* END SUBROUTINE. */ void -ffeste_R1225 () +ffeste_R1225 (void) { } @@ -4456,7 +4456,7 @@ ffeste_V020_item (ffebld expr UNUSED) /* TYPE statement -- end. */ void -ffeste_V020_finish () +ffeste_V020_finish (void) { ffeste_check_finish_ (); } diff --git a/gcc/f/storag.c b/gcc/f/storag.c index 60570fc4df3..db3382725f9 100644 --- a/gcc/f/storag.c +++ b/gcc/f/storag.c @@ -162,7 +162,7 @@ ffestorag_dump (ffestorag s) ffestorag_init_2(); */ void -ffestorag_init_2 () +ffestorag_init_2 (void) { ffestorag_list_.first = ffestorag_list_.last = (ffestorag) &ffestorag_list_.first; @@ -431,7 +431,7 @@ ffestorag_new (ffestoragList sl) /* Report info on LOCAL non-sym-assoc'ed entities if needed. */ void -ffestorag_report () +ffestorag_report (void) { ffestorag s; diff --git a/gcc/f/stt.c b/gcc/f/stt.c index c48a505b48b..455f4e1b621 100644 --- a/gcc/f/stt.c +++ b/gcc/f/stt.c @@ -1,5 +1,5 @@ /* stt.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1997 Free Software Foundation, Inc. + Copyright (C) 1995, 1997, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -99,7 +99,7 @@ ffestt_caselist_append (ffesttCaseList list, bool range, ffebld case1, The list is allocated out of the scratch pool. */ ffesttCaseList -ffestt_caselist_create () +ffestt_caselist_create (void) { ffesttCaseList new; @@ -396,7 +396,7 @@ ffestt_dimlist_as_expr (ffesttDimList list, ffeinfoRank *rank, The list is allocated out of the scratch pool. */ ffesttDimList -ffestt_dimlist_create () +ffestt_dimlist_create (void) { ffesttDimList new; @@ -521,7 +521,7 @@ ffestt_exprlist_append (ffesttExprList list, ffebld expr, ffelexToken t) The list is allocated out of the scratch pool. */ ffesttExprList -ffestt_exprlist_create () +ffestt_exprlist_create (void) { ffesttExprList new; @@ -738,7 +738,7 @@ ffestt_implist_append (ffesttImpList list, ffelexToken first, ffelexToken last) The list is allocated out of the scratch pool. */ ffesttImpList -ffestt_implist_create () +ffestt_implist_create (void) { ffesttImpList new; @@ -825,7 +825,7 @@ ffestt_tokenlist_append (ffesttTokenList tl, ffelexToken t) The list is allocated out of the scratch pool. */ ffesttTokenList -ffestt_tokenlist_create () +ffestt_tokenlist_create (void) { ffesttTokenList tl; diff --git a/gcc/f/stw.c b/gcc/f/stw.c index 058b1eb952a..af68522d2e8 100644 --- a/gcc/f/stw.c +++ b/gcc/f/stw.c @@ -1,5 +1,5 @@ /* stw.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -278,7 +278,7 @@ ffestw_display_state (void) ffestw_init_0(); */ void -ffestw_init_0 () +ffestw_init_0 (void) { ffestw b; diff --git a/gcc/f/symbol.c b/gcc/f/symbol.c index af452203ba3..addacc8f144 100644 --- a/gcc/f/symbol.c +++ b/gcc/f/symbol.c @@ -178,7 +178,7 @@ ffesymbol_check_token_ (ffelexToken t, char *c) /* Kill manifest (g77-picked) names. */ static void -ffesymbol_kill_manifest_ () +ffesymbol_kill_manifest_ (void) { if (ffesymbol_token_blank_common_ != NULL) ffelex_token_kill (ffesymbol_token_blank_common_); @@ -822,7 +822,7 @@ ffesymbol_error (ffesymbol s, ffelexToken t) } void -ffesymbol_init_0 () +ffesymbol_init_0 (void) { ffesymbolAttrs attrs = FFESYMBOL_attrsetNONE; @@ -834,7 +834,7 @@ ffesymbol_init_0 () } void -ffesymbol_init_1 () +ffesymbol_init_1 (void) { #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalFILE_ ffesymbol_global_ = ffename_space_new (ffe_pool_file ()); @@ -842,12 +842,12 @@ ffesymbol_init_1 () } void -ffesymbol_init_2 () +ffesymbol_init_2 (void) { } void -ffesymbol_init_3 () +ffesymbol_init_3 (void) { #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalPROGUNIT_ ffesymbol_global_ = ffename_space_new (ffe_pool_program_unit ()); @@ -856,7 +856,7 @@ ffesymbol_init_3 () } void -ffesymbol_init_4 () +ffesymbol_init_4 (void) { ffesymbol_sfunc_ = ffename_space_new (ffe_pool_program_unit ()); } @@ -1060,7 +1060,7 @@ ffesymbol_retract (bool retract) /* Return retractable flag. */ bool -ffesymbol_retractable () +ffesymbol_retractable (void) { return ffesymbol_retractable_; } @@ -1134,12 +1134,12 @@ ffesymbol_state_string (ffesymbolState state) } void -ffesymbol_terminate_0 () +ffesymbol_terminate_0 (void) { } void -ffesymbol_terminate_1 () +ffesymbol_terminate_1 (void) { #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalFILE_ ffename_space_drive_symbol (ffesymbol_global_, ffesymbol_unhook_); @@ -1151,7 +1151,7 @@ ffesymbol_terminate_1 () } void -ffesymbol_terminate_2 () +ffesymbol_terminate_2 (void) { #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalPROGUNIT_ ffesymbol_kill_manifest_ (); @@ -1159,7 +1159,7 @@ ffesymbol_terminate_2 () } void -ffesymbol_terminate_3 () +ffesymbol_terminate_3 (void) { #if FFESYMBOL_globalCURRENT_ == FFESYMBOL_globalPROGUNIT_ ffename_space_drive_symbol (ffesymbol_global_, ffesymbol_unhook_); @@ -1174,7 +1174,7 @@ ffesymbol_terminate_3 () } void -ffesymbol_terminate_4 () +ffesymbol_terminate_4 (void) { ffename_space_drive_symbol (ffesymbol_sfunc_, ffesymbol_unhook_); ffename_space_kill (ffesymbol_sfunc_); diff --git a/gcc/f/top.c b/gcc/f/top.c index 81d6c68988f..ce39dd09bf4 100644 --- a/gcc/f/top.c +++ b/gcc/f/top.c @@ -1,5 +1,6 @@ /* top.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1999, 2001, 2003 + Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -629,7 +630,7 @@ ffe_file (ffewhereFile wf, FILE *f) Performs per-image invocation. */ void -ffe_init_0 () +ffe_init_0 (void) { ++ffe_count_0; ffe_in_0 = TRUE; @@ -664,7 +665,7 @@ ffe_init_0 () Performs per-source-file invocation (not including INCLUDEd files). */ void -ffe_init_1 () +ffe_init_1 (void) { ++ffe_count_1; ffe_in_1 = TRUE; @@ -704,7 +705,7 @@ ffe_init_1 () Performs per-program-unit invocation. */ void -ffe_init_2 () +ffe_init_2 (void) { ++ffe_count_2; ffe_in_2 = TRUE; @@ -748,7 +749,7 @@ ffe_init_2 () of inits, from 0-3, breaks here; level 4 must be invoked independently). */ void -ffe_init_3 () +ffe_init_3 (void) { ++ffe_count_3; ffe_in_3 = TRUE; @@ -784,7 +785,7 @@ ffe_init_3 () ffe_init_4(); */ void -ffe_init_4 () +ffe_init_4 (void) { ++ffe_count_4; ffe_in_4 = TRUE; @@ -817,7 +818,7 @@ ffe_init_4 () ffe_terminate_0(); */ void -ffe_terminate_0 () +ffe_terminate_0 (void) { ffe_count_1 = 0; ffe_in_0 = FALSE; @@ -850,7 +851,7 @@ ffe_terminate_0 () ffe_terminate_1(); */ void -ffe_terminate_1 () +ffe_terminate_1 (void) { ffe_count_2 = 0; ffe_in_1 = FALSE; @@ -889,7 +890,7 @@ ffe_terminate_1 () ffe_terminate_2(); */ void -ffe_terminate_2 () +ffe_terminate_2 (void) { ffe_count_3 = 0; ffe_in_2 = FALSE; @@ -928,7 +929,7 @@ ffe_terminate_2 () ffe_terminate_3(); */ void -ffe_terminate_3 () +ffe_terminate_3 (void) { ffe_count_4 = 0; ffe_in_3 = FALSE; @@ -965,7 +966,7 @@ ffe_terminate_3 () ffe_terminate_4(); */ void -ffe_terminate_4 () +ffe_terminate_4 (void) { ffe_in_4 = FALSE; diff --git a/gcc/f/where.c b/gcc/f/where.c index b16f965721e..b409a4681f5 100644 --- a/gcc/f/where.c +++ b/gcc/f/where.c @@ -1,5 +1,5 @@ /* where.c -- Implementation File (module.c template V1.0) - Copyright (C) 1995, 2002 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003 Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -161,7 +161,7 @@ ffewhere_file_set (ffewhereFile wf, bool have_num, ffewhereLineNumber ln) /* Do initializations. */ void -ffewhere_init_1 () +ffewhere_init_1 (void) { ffewhere_root_line_.first = ffewhere_root_line_.last = (ffewhereLine) &ffewhere_root_line_.first; -- 2.11.4.GIT