diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2004-07-15 18:52:49 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2004-07-15 16:52:49 +0000 |
| commit | 3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9 (patch) | |
| tree | 5f8cfd6717d2fc2edd87b592618718293587582c /libf2c/libI77/rewind.c | |
| parent | 48b456474c69a132da15996c61009e35efa59492 (diff) | |
| download | gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.zip gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.gz gcc-3e4035f83334aa30c12825dc3c3a1fa1b5b2f9f9.tar.bz2 | |
libf2c: Removed.
2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>
* libf2c: Removed.
* gcc/gccbug.in: Updated because of libf2c removal.
* maintainer-scripts/gcc_release: Ditto.
From-SVN: r84759
Diffstat (limited to 'libf2c/libI77/rewind.c')
| -rw-r--r-- | libf2c/libI77/rewind.c | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/libf2c/libI77/rewind.c b/libf2c/libI77/rewind.c deleted file mode 100644 index d7a9b76..0000000 --- a/libf2c/libI77/rewind.c +++ /dev/null @@ -1,25 +0,0 @@ -#include "config.h" -#include "f2c.h" -#include "fio.h" -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; - } - FSEEK (b->ufd, 0, SEEK_SET); - b->uend = 0; - return (0); -} |