From a752ed65103481729e9072869942458f487199b2 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 1 Jul 1998 10:30:22 +0000 Subject: [PATCH] wsfe.c (s_wsfe): Fix setting of f__curunit lost in previous change. 1998-06-29 Dave Love * libI77/wsfe.c (s_wsfe): Fix setting of f__curunit lost in previous change. * libI77/rsfe.c (s_rsfe): Likewise. From-SVN: r20871 --- libf2c/ChangeLog | 6 ++++++ libf2c/libI77/rsfe.c | 1 + libf2c/libI77/wsfe.c | 1 + 3 files changed, 8 insertions(+) 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 + + * 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 * 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; -- 2.30.2