diff options
| author | Dave Love <d.love@dl.ac.uk> | 1998-07-01 10:30:22 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-07-01 10:30:22 +0000 |
| commit | a752ed65103481729e9072869942458f487199b2 (patch) | |
| tree | a629d9de8e45a317e3f615d23f87904aa3b54337 /libf2c/libI77/rsfe.c | |
| parent | fbc6d36336e57d7af07b3f49877c270c59410b83 (diff) | |
| download | gcc-a752ed65103481729e9072869942458f487199b2.zip gcc-a752ed65103481729e9072869942458f487199b2.tar.gz gcc-a752ed65103481729e9072869942458f487199b2.tar.bz2 | |
wsfe.c (s_wsfe): Fix setting of f__curunit lost in previous change.
1998-06-29 Dave Love <d.love@dl.ac.uk>
* libI77/wsfe.c (s_wsfe): Fix setting of f__curunit lost in
previous change.
* libI77/rsfe.c (s_rsfe): Likewise.
From-SVN: r20871
Diffstat (limited to 'libf2c/libI77/rsfe.c')
| -rw-r--r-- | libf2c/libI77/rsfe.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libf2c/libI77/rsfe.c b/libf2c/libI77/rsfe.c index 6660462..a79cd79 100644 --- a/libf2c/libI77/rsfe.c +++ b/libf2c/libI77/rsfe.c @@ -60,6 +60,7 @@ integer s_rsfe(cilist *a) /* start */ f__cursor=f__recpos=0; f__scale=0; f__fmtbuf=a->cifmt; + f__curunit= &f__units[a->ciunit]; f__cf=f__curunit->ufd; if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio"); f__getn= x_getc; |