diff options
author | Dave Love <d.love@dl.ac.uk> | 1998-09-06 06:15:14 +0000 |
---|---|---|
committer | Dave Love <fx@gcc.gnu.org> | 1998-09-06 06:15:14 +0000 |
commit | b76d335291f7807b8f6aab62b8cca601b318af1b (patch) | |
tree | 44b5e6d14ea52f3151412f2ce490e08f652e1082 /libf2c/libI77 | |
parent | 114791ea106f70baadc38ba90e2de769da211333 (diff) | |
download | gcc-b76d335291f7807b8f6aab62b8cca601b318af1b.zip gcc-b76d335291f7807b8f6aab62b8cca601b318af1b.tar.gz gcc-b76d335291f7807b8f6aab62b8cca601b318af1b.tar.bz2 |
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.
From-SVN: r22294
Diffstat (limited to 'libf2c/libI77')
-rw-r--r-- | libf2c/libI77/dfe.c | 6 | ||||
-rw-r--r-- | libf2c/libI77/sfe.c | 1 |
2 files changed, 3 insertions, 4 deletions
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c index f8c1fc1..dfc23dc 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 c7d8918..eb6260f 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(); } |