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

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index a8cc3813c46f520372fa0ed107949bc826ee64a7..575c18af1488498a109bd756e0d8b50696ea750f 100644 (file)
--- 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 666046246918df6490b5a29590bb49e2693bed67..a79cd79f03c59c72efd014ecee53dc27512e691d 100644 (file)
--- 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 b55b1429ee70df38951dbfd276cd66ebf07c6e43..babfb3479d9a5b95d753d576f13a894d47ba8348 100644 (file)
--- 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;