diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-06 06:15:14 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-06 06:15:14 +0000 |
| commit | 1c79b9d7dffb9966103d4fc05a6b3a79703fce07 (patch) | |
| tree | 44b5e6d14ea52f3151412f2ce490e08f652e1082 /libf2c | |
| parent | 742736930112612726d6bc153288ad1a136bba76 (diff) | |
| download | gcc-1c79b9d7dffb9966103d4fc05a6b3a79703fce07.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@22294 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog | 8 | ||||
| -rw-r--r-- | libf2c/libI77/dfe.c | 6 | ||||
| -rw-r--r-- | libf2c/libI77/sfe.c | 1 |
3 files changed, 11 insertions, 4 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index d31f9a654b7..f95142c02dc 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -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. diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c index f8c1fc14675..dfc23dce62b 100644 --- a/libf2c/libI77/dfe.c +++ b/libf2c/libI77/dfe.c @@ -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)) diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c index c7d891804b3..eb6260fec08 100644 --- a/libf2c/libI77/sfe.c +++ b/libf2c/libI77/sfe.c @@ -35,5 +35,6 @@ integer e_wsfe(Void) integer e_wdfe(Void) { + f__init = 1; return en_fio(); } |