procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bad.c: Convert () to (void) in function definitions.

Browse source 
* 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.

From-SVN: r69014
This commit is contained in:
Andreas Jaeger 2003-07-06 22:32:17 +02:00 • committed by Andreas Jaeger
parent 313dd50435
commit 77f9b92ca4
30 changed files with 386 additions and 374 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gcc/f/ChangeLog
View file

@ -1,3 +1,36 @@
2003-07-06 Andreas Jaeger <aj@suse.de>
* 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 <neil@daikokuya.co.uk>
* top.c (ffe_handle_option): Don't handle filenames.

6
gcc/f/bad.c
View file

@ -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

8
gcc/f/bld.c
View file

@ -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;

148
gcc/f/com.c
View file

@ -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;

14
gcc/f/com.h
View file

@ -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. */

6
gcc/f/data.c
View file

@ -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;

9
gcc/f/equiv.c
View file

@ -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;

8
gcc/f/expr.c
View file

@ -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);

22
gcc/f/g77spec.c
View file

@ -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;
}

4
gcc/f/global.c
View file

@ -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)
{
}

8
gcc/f/implic.c
View file

@ -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)
{
}

4
gcc/f/info.c
View file

@ -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;

9
gcc/f/intdoc.c
View file

@ -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;

2
gcc/f/intrin.c
View file

@ -1589,7 +1589,7 @@ ffeintrin_gfrt_indirect (ffeintrinImp imp)
}
void
ffeintrin_init_0 ()
ffeintrin_init_0 (void)
{
int i;
const char *p1;

4
gcc/f/lab.c
View file

@ -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;

26
gcc/f/lex.c
View file

@ -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;

4
gcc/f/malloc.c
View file

@ -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;

4
gcc/f/src.c
View file

@ -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;

34
gcc/f/st.c
View file

@ -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 ();

18
gcc/f/sta.c
View file

@ -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;

24
gcc/f/stb.c
View file

@ -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;

190
gcc/f/stc.c
View file

@ -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_ ();

78
gcc/f/std.c
View file

@ -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;

26
gcc/f/ste.c
View file

@ -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_ ();
}

4
gcc/f/storag.c
View file

@ -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;

12
gcc/f/stt.c
View file

@ -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;

4
gcc/f/stw.c
View file

@ -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;

24
gcc/f/symbol.c
View file

@ -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_);

23
gcc/f/top.c
View file

@ -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;

4
gcc/f/where.c
View file

@ -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;