diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-07 02:45:11 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-07 02:45:11 +0000 |
| commit | 1b4c5165310b26a8816407884102979bbc0fc225 (patch) | |
| tree | c072939c05b1badb0327e85fd4de5f40768f86f9 /libf2c/libI77/dfe.c | |
| parent | fb2a2b3d3400760c611fe006babb0f092cc7b4e6 (diff) | |
| download | gcc-1b4c5165310b26a8816407884102979bbc0fc225.tar.gz | |
Revert last change.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@22306 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libI77/dfe.c')
| -rw-r--r-- | libf2c/libI77/dfe.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c index dfc23dce62b..bcf2c8016a6 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)) |