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

1998-09-06 Dave Love <d.love@dl.ac.uk>

Browse source 
From Toon to fix spurious recursive i/o errors:
	* libI77/sfe.c (e_wdfe): Set f__init.
	* libI77/dfe.c (c_dfe): Check and set f__init.
	(s_rdfe, s_wdfe): Don't check and set f__init.

From-SVN: r22294
This commit is contained in:
Dave Love 1998-09-06 06:15:14 +00:00 • committed by Dave Love
parent 114791ea10
commit b76d335291
3 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
libf2c/ChangeLog
View file

@ -1,3 +1,11 @@
1998-09-06 Dave Love <d.love@dl.ac.uk>
From Toon to fix spurious recursive i/o errors:
* libI77/sfe.c (e_wdfe): Set f__init.
* libI77/dfe.c (c_dfe): Check and set f__init.
(s_rdfe, s_wdfe): Don't check and set f__init.
Fri Sep 4 18:40:32 1998 Craig Burley <burley@gnu.org>
* libU77/sys_clock_.c (G77_system_clock_0): Fix indentation.

6
libf2c/libI77/dfe.c
View file

@ -66,6 +66,8 @@ 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;
@ -92,8 +94,6 @@ 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,8 +115,6 @@ 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,5 +35,6 @@ integer e_wsfe(Void)
integer e_wdfe(Void)
{
f__init = 1;
return en_fio();
}