Gcc 3.3.1-pre 2003-07-11 libf2c bits.

1 files changed, 22 insertions, 34 deletions

diff --git a/contrib/libf2c/libI77/ftell_.c b/contrib/libf2c/libI77/ftell_.c
index 250a0cc..6315342 100644
--- a/contrib/libf2c/libI77/ftell_.c
+++ b/contrib/libf2c/libI77/ftell_.c
@@ -2,46 +2,34 @@
 #include "f2c.h"
 #include "fio.h"
 
- static FILE *
-#ifdef KR_headers
-unit_chk(Unit, who) integer Unit; char *who;
-#else
-unit_chk(integer Unit, char *who)
-#endif
+static FILE *
+unit_chk (integer Unit, char *who)
 {
-	if (Unit >= MXUNIT || Unit < 0)
-		f__fatal(101, who);
-	return f__units[Unit].ufd;
-	}
+  if (Unit >= MXUNIT || Unit < 0)
+    f__fatal (101, who);
+  return f__units[Unit].ufd;
+}
 
- integer
-#ifdef KR_headers
-G77_ftell_0 (Unit) integer *Unit;
-#else
-G77_ftell_0 (integer *Unit)
-#endif
+integer
+G77_ftell_0 (integer * Unit)
 {
-	FILE *f;
-	return (f = unit_chk(*Unit, "ftell")) ? (integer) FTELL(f) : -1L;
-	}
+  FILE *f;
+  return (f = unit_chk (*Unit, "ftell")) ? (integer) FTELL (f) : -1L;
+}
 
- integer
-#ifdef KR_headers
-G77_fseek_0 (Unit, offset, xwhence) integer *Unit, *offset, *xwhence;
-#else
-G77_fseek_0 (integer *Unit, integer *offset, integer *xwhence)
-#endif
+integer
+G77_fseek_0 (integer * Unit, integer * offset, integer * xwhence)
 {
-	FILE *f;
-	int w = (int)*xwhence;
+  FILE *f;
+  int w = (int) *xwhence;
 #ifdef SEEK_SET
-	static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END };
+  static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END };
 #endif
-	if (w < 0 || w > 2)
-		w = 0;
+  if (w < 0 || w > 2)
+    w = 0;
 #ifdef SEEK_SET
-	w = wohin[w];
+  w = wohin[w];
 #endif
-	return	!(f = unit_chk(*Unit, "fseek"))
-		|| FSEEK(f, (off_t) *offset, w) ? 1 : 0;
-	}
+  return !(f = unit_chk (*Unit, "fseek"))
+    || FSEEK (f, (off_t) * offset, w) ? 1 : 0;
+}