From a752ed65103481729e9072869942458f487199b2 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 1 Jul 1998 10:30:22 +0000 Subject: 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(+) (limited to 'libf2c') 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 + + * 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 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; -- cgit v1.1