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 | |
| 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
| -rw-r--r-- | libf2c/ChangeLog | 6 | ||||
| -rw-r--r-- | libf2c/libI77/rsfe.c | 1 | ||||
| -rw-r--r-- | libf2c/libI77/wsfe.c | 1 |
3 files changed, 8 insertions, 0 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index a8cc381..575c18a 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +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. + 1998-06-23 Dave Love <d.love@dl.ac.uk> * libI77/backspace.c, libI77/dfe.c, libI77/due.c, libI77/iio.c, 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; diff --git a/libf2c/libI77/wsfe.c b/libf2c/libI77/wsfe.c index b55b142..babfb34 100644 --- a/libf2c/libI77/wsfe.c +++ b/libf2c/libI77/wsfe.c @@ -57,6 +57,7 @@ integer s_wsfe(cilist *a) /*start*/ f__nonl = 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__putn= x_putc; |