This commit was generated by cvs2svn to compensate for changes in r117401,

which included commits to RCS files with non-trunk default branches.

1 files changed, 6 insertions, 12 deletions

diff --git a/contrib/libf2c/libU77/unlink_.c b/contrib/libf2c/libU77/unlink_.c
index cd00559..08222d9 100644
--- a/contrib/libf2c/libU77/unlink_.c
+++ b/contrib/libf2c/libU77/unlink_.c
@@ -33,23 +33,17 @@ Boston, MA 02111-1307, USA.  */
 #endif
 #include "f2c.h"
 
-#ifdef KR_headers
-void g_char ();
+void g_char (const char *a, ftnlen alen, char *b);
 
-integer G77_unlink_0 (str, Lstr)
-     char *str; ftnlen  Lstr;
-#else
-void g_char(const char *a, ftnlen alen, char *b);
-
-integer G77_unlink_0 (const char *str, const ftnlen Lstr)
-#endif
+integer
+G77_unlink_0 (const char *str, const ftnlen Lstr)
 {
   char *buff;
-  char *bp, *blast;
   int i;
 
-  buff = malloc (Lstr+1);
-  if (buff == NULL) return -1;
+  buff = malloc (Lstr + 1);
+  if (buff == NULL)
+    return -1;
   g_char (str, Lstr, buff);
   i = unlink (buff);
   free (buff);