1 files changed, 12 insertions, 15 deletions
diff --git a/contrib/libf2c/libU77/rename_.c b/contrib/libf2c/libU77/rename_.c
index 9583001..59759bc 100644
--- a/contrib/libf2c/libU77/rename_.c
+++ b/contrib/libf2c/libU77/rename_.c
@@ -29,28 +29,25 @@ Boston, MA 02111-1307, USA.  */
 #include <errno.h>
 #include "f2c.h"
 
-#ifdef KR_headers
-void g_char ();
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_rename_0 (path1, path2, Lpath1, Lpath2)
-     char *path1, *path2; ftnlen Lpath1, Lpath2;
-#else
-void g_char(const char *a, ftnlen alen, char *b);
-
-integer G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1, const ftnlen Lpath2)
-#endif
+integer
+G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1,
+	      const ftnlen Lpath2)
 {
   char *buff1, *buff2;
-  char *bp, *blast;
   int i;
 
-  buff1 = malloc (Lpath1+1);
-  if (buff1 == NULL) return -1;
+  buff1 = malloc (Lpath1 + 1);
+  if (buff1 == NULL)
+    return -1;
   g_char (path1, Lpath1, buff1);
-  buff2 = malloc (Lpath2+1);
-  if (buff2 == NULL) return -1;
+  buff2 = malloc (Lpath2 + 1);
+  if (buff2 == NULL)
+    return -1;
   g_char (path2, Lpath2, buff2);
   i = rename (buff1, buff2);
-  free (buff1); free (buff2);
+  free (buff1);
+  free (buff2);
   return i ? errno : 0;
 }