procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert last change.

Browse source 
From-SVN: r22306
This commit is contained in:
Dave Love 1998-09-07 02:45:11 +00:00
parent 40d72cefa2
commit ccea2926bd
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
libf2c/libI77/dfe.c
View file

@ -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))

1
libf2c/libI77/sfe.c
View file

@ -35,6 +35,5 @@ integer e_wsfe(Void)
integer e_wdfe(Void)
{
f__init = 1;
return en_fio();
}