* pa.md: Fix typo from last change. Remove DFmode move to and from

[pf3gnuchains/gcc-fork.git] / libf2c / libI77 / rewind.c

diff --git a/libf2c/libI77/rewind.c b/libf2c/libI77/rewind.c
index 9ba4b23..d7a9b76 100644 (file)
--- a/libf2c/libI77/rewind.c
+++ b/libf2c/libI77/rewind.c
@@ -1,26 +1,25 @@
+#include "config.h"
 #include "f2c.h"
 #include "fio.h"
-#ifdef KR_headers
-integer f_rew(a) alist *a;
-#else
-integer f_rew(alist *a)
-#endif
+integer
+f_rew (alist * a)
 {
-       unit *b;
-       if (f__init & 2)
-               f__fatal (131, "I/O recursion");
-       if(a->aunit>=MXUNIT || a->aunit<0)
-               err(a->aerr,101,"rewind");
-       b = &f__units[a->aunit];
-       if(b->ufd == NULL || b->uwrt == 3)
-               return(0);
-       if(!b->useek)
-               err(a->aerr,106,"rewind");
-       if(b->uwrt) {
-               (void) t_runc(a);
-               b->uwrt = 3;
-               }
-       rewind(b->ufd);
-       b->uend=0;
-       return(0);
+  unit *b;
+  if (f__init & 2)
+    f__fatal (131, "I/O recursion");
+  if (a->aunit >= MXUNIT || a->aunit < 0)
+    err (a->aerr, 101, "rewind");
+  b = &f__units[a->aunit];
+  if (b->ufd == NULL || b->uwrt == 3)
+    return (0);
+  if (!b->useek)
+    err (a->aerr, 106, "rewind");
+  if (b->uwrt)
+    {
+      (void) t_runc (a);
+      b->uwrt = 3;
+    }
+  FSEEK (b->ufd, 0, SEEK_SET);
+  b->uend = 0;
+  return (0);
 }