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

	* 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

1 files changed, 66 insertions, 82 deletions

diff --git a/gcc/f/com.c b/gcc/f/com.c
index e9a2053..7480cd3 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;