OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Dave Love 1998-07-01 10:30:22 +00:00 committed by Dave Love
parent fbc6d36336
commit a752ed6510
3 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libf2c/ChangeLog
View File

@ -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,

1
libf2c/libI77/rsfe.c
View File

@ -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;

1
libf2c/libI77/wsfe.c
View File

@ -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;