From ccea2926bdb384423f58364d341a24cc698fbc08 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 7 Sep 1998 02:45:11 +0000 Subject: [PATCH] Revert last change. From-SVN: r22306 --- libf2c/libI77/dfe.c | 8 +++++--- 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 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)) diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c index eb6260fec08..c7d891804b3 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(); }