diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-09-07 02:45:11 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-09-07 02:45:11 +0000 |
| commit | ccea2926bdb384423f58364d341a24cc698fbc08 (patch) | |
| tree | c072939c05b1badb0327e85fd4de5f40768f86f9 | |
| parent | 40d72cefa27a604db4315b4a005335128b90c3d1 (diff) | |
| download | gcc-ccea2926bdb384423f58364d341a24cc698fbc08.zip gcc-ccea2926bdb384423f58364d341a24cc698fbc08.tar.gz gcc-ccea2926bdb384423f58364d341a24cc698fbc08.tar.bz2 | |
Revert last change.
From-SVN: r22306
| -rw-r--r-- | libf2c/libI77/dfe.c | 8 | ||||
| -rw-r--r-- | libf2c/libI77/sfe.c | 1 |
2 files changed, 5 insertions, 4 deletions
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c index dfc23dc..bcf2c80 100644 --- a/libf2c/libI77/dfe.c +++ b/libf2c/libI77/dfe.c @@ -66,8 +66,6 @@ c_dfe(a) cilist *a; c_dfe(cilist *a) #endif { - if(f__init != 1) f_init(); - f__init = 3; f__sequential=0; f__formatted=f__external=1; f__elist=a; @@ -83,7 +81,7 @@ c_dfe(cilist *a) f__fmtbuf=a->cifmt; if(a->cirec <= 0) err(a->cierr,130,"dfe"); - fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET); + (void) fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET); f__curunit->uend = 0; return(0); } @@ -94,6 +92,8 @@ integer s_rdfe(cilist *a) #endif { int n; + if(f__init != 1) f_init(); + f__init = 3; f__reading=1; if(n=c_dfe(a))return(n); if(f__curunit->uwrt && f__nowreading(f__curunit)) @@ -115,6 +115,8 @@ integer s_wdfe(cilist *a) #endif { int n; + if(f__init != 1) f_init(); + f__init = 3; f__reading=0; if(n=c_dfe(a)) return(n); if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit)) diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c index eb6260f..c7d8918 100644 --- a/libf2c/libI77/sfe.c +++ b/libf2c/libI77/sfe.c @@ -35,6 +35,5 @@ integer e_wsfe(Void) integer e_wdfe(Void) { - f__init = 1; return en_fio(); } |