Patch: f/{com,lex}.c Convert the few K&R decls to ISO

[rbrown64 at csc dot com dot au]

NB based on 3.1.1 20020610 snapshot sources. No g77 testsuite regressions
on i586-pc-linux-gnu. I'm Copyright assigned but have no CVS-write access.

2002-06-16  Rodney Brown  <rbrown64@csc.com.au>

      * f/com.c: Convert the few K&R function declarations to ISO.
      * f/lex.c: Convert K&R pragma_ungetc declaration to ISO.

--- f.bu/com.c    Tue Apr 23 15:59:00 2002
+++ f/com.c Sat Jun 15 23:27:06 2002
@@ -1082,8 +1082,7 @@
 /* Like gcc's convert(), but crashes if widening might happen.  */

 static tree
-ffecom_convert_narrow_ (type, expr)
-     tree type, expr;
+ffecom_convert_narrow_ (tree type, tree expr)
 {
   register tree e = expr;
   register enum tree_code code = TREE_CODE (type);
@@ -1153,8 +1152,7 @@
 /* Like gcc's convert(), but crashes if narrowing might happen.  */

 static tree
-ffecom_convert_widen_ (type, expr)
-     tree type, expr;
+ffecom_convert_widen_ (tree type, tree expr)
 {
   register tree e = expr;
   register enum tree_code code = TREE_CODE (type);
@@ -13829,8 +13827,7 @@
 /* Like pushdecl, only it places X in GLOBAL_BINDING_LEVEL, if appropriate.  */

 static tree
-pushdecl_top_level (x)
-     tree x;
+pushdecl_top_level (tree x)
 {
   register tree t;
   register struct binding_level *b = current_binding_level;
@@ -13849,8 +13846,7 @@
    after they are modified in the light of any missing parameters.  */

 static tree
-storedecls (decls)
-     tree decls;
+storedecls (tree decls)
 {
   return current_binding_level->names = decls;
 }
@@ -14014,8 +14010,7 @@
 /* Here are the public functions the GNU back end needs.  */

 tree
-convert (type, expr)
-     tree type, expr;
+convert (tree type, tree expr)
 {
   register tree e = expr;
   register enum tree_code code = TREE_CODE (type);
@@ -14714,8 +14709,7 @@
    (the one we are currently in).  */

 void
-set_block (block)
-     register tree block;
+set_block (register tree block)
 {
   current_binding_level->this_block = block;
   current_binding_level->names = chainon (current_binding_level->names,
@@ -14725,9 +14719,7 @@
 }

 tree
-signed_or_unsigned_type (unsignedp, type)
-     int unsignedp;
-     tree type;
+signed_or_unsigned_type (int unsignedp, tree type)
 {
   tree type2;

@@ -14753,8 +14745,7 @@
 }

 tree
-signed_type (type)
-     tree type;
+signed_type (tree type)
 {
   tree type1 = TYPE_MAIN_VARIANT (type);
   ffeinfoKindtype kt;
@@ -14808,8 +14799,7 @@
    The resulting type should always be `integer_type_node'.  */

 tree
-truthvalue_conversion (expr)
-     tree expr;
+truthvalue_conversion (tree expr)
 {
   if (TREE_CODE (expr) == ERROR_MARK)
     return expr;
@@ -14980,9 +14970,7 @@
 }

 tree
-type_for_mode (mode, unsignedp)
-     enum machine_mode mode;
-     int unsignedp;
+type_for_mode (enum machine_mode mode, int unsignedp)
 {
   int i;
   int j;
@@ -15037,9 +15025,7 @@
 }

 tree
-type_for_size (bits, unsignedp)
-     unsigned bits;
-     int unsignedp;
+type_for_size (unsigned bits, int unsignedp)
 {
   ffeinfoKindtype kt;
   tree type_node;
@@ -15073,8 +15059,7 @@
 }

 tree
-unsigned_type (type)
-     tree type;
+unsigned_type (tree type)
 {
   tree type1 = TYPE_MAIN_VARIANT (type);
   ffeinfoKindtype kt;
@@ -15117,8 +15102,7 @@
 }

 void
-lang_mark_tree (t)
-     union tree_node *t ATTRIBUTE_UNUSED;
+lang_mark_tree (union tree_node *t)
 {
   if (TREE_CODE (t) == IDENTIFIER_NODE)
     {
@@ -15229,8 +15213,7 @@
    FIRST is the beginning of the chain to append, and LAST is the end.  */

 static void
-append_include_chain (first, last)
-     struct file_name_list *first, *last;
+append_include_chain (struct file_name_list *first, struct file_name_list *last)
 {
   struct file_name_list *dir;

@@ -15260,9 +15243,7 @@
    read_name_map.  */

 static FILE *
-open_include_file (filename, searchptr)
-     char *filename;
-     struct file_name_list *searchptr;
+open_include_file (char *filename, struct file_name_list *searchptr)
 {
   register struct file_name_map *map;
   register char *from;
@@ -15399,9 +15380,7 @@
    file.  */

 static char *
-read_filename_string (ch, f)
-     int ch;
-     FILE *f;
+read_filename_string (int ch, FILE *f)
 {
   char *alloc, *set;
   int len;
@@ -15430,8 +15409,7 @@
 /* Read the file name map file for DIRNAME.  */

 static struct file_name_map *
-read_name_map (dirname)
-     const char *dirname;
+read_name_map (const char *dirname)
 {
   /* This structure holds a linked list of file name maps, one per
      directory.  */
--- f.bu/lex.c    Tue Feb  5 15:35:52 2002
+++ f/lex.c Sat Jun 15 23:33:01 2002
@@ -1050,8 +1050,7 @@
 }

 static void
-pragma_ungetc (arg)
-     int arg;
+pragma_ungetc (int arg)
 {
   ungetc (arg, finput);
 }