diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-06-23 14:37:15 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-06-23 14:37:15 +0000 |
| commit | b93be35be02a8d9ac4e6e7f0b7695f6b4ed50045 (patch) | |
| tree | 2e4adca262ff4a1b9e43c7c416227974de44e228 /libf2c/libI77/backspace.c | |
| parent | d2f8cffa1d0ce734ce4a465bcef76f9c41748045 (diff) | |
| download | gcc-b93be35be02a8d9ac4e6e7f0b7695f6b4ed50045.tar.gz | |
backspace.c, [...]: Update to Netlib version of 1998-06-18.
1998-06-23 Dave Love <d.love@dl.ac.uk>
* libI77/backspace.c, libI77/dfe.c, libI77/due.c, libI77/iio.c,
libI77/lread.c, libI77/ sfe.c, libI77/sue.c, libI77/wsfe.c: Update
to Netlib version of 1998-06-18.
From-SVN: r20678
Diffstat (limited to 'libf2c/libI77/backspace.c')
| -rw-r--r-- | libf2c/libI77/backspace.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libf2c/libI77/backspace.c b/libf2c/libI77/backspace.c index 8456a7f8c6f..1da686dbb48 100644 --- a/libf2c/libI77/backspace.c +++ b/libf2c/libI77/backspace.c @@ -11,11 +11,11 @@ integer f_back(alist *a) uiolen n; FILE *f; + f__curunit = b = &f__units[a->aunit]; /* curunit for error messages */ if (f__init & 2) f__fatal (131, "I/O recursion"); if(a->aunit >= MXUNIT || a->aunit < 0) err(a->aerr,101,"backspace"); - f__curunit = b = &f__units[a->aunit]; /* curunit for error messages */ if(b->useek==0) err(a->aerr,106,"backspace"); if((f = b->ufd) == NULL) { fk_open(1, 1, a->aunit); |