diff options
| author | Dave Love <d.love@dl.ac.uk> | 1998-07-01 10:30:22 +0000 |
|---|---|---|
| committer | Dave Love <d.love@dl.ac.uk> | 1998-07-01 10:30:22 +0000 |
| commit | ba9a248c8958a73302304a608b4deb7d74afadf6 (patch) | |
| tree | a629d9de8e45a317e3f615d23f87904aa3b54337 | |
| parent | ec1baaa71638bf3643c0c184827a751c2c729127 (diff) | |
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.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@20871 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 a8cc3813c46..575c18af148 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 66604624691..a79cd79f03c 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 b55b1429ee7..babfb3479d9 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; |