From b93be35be02a8d9ac4e6e7f0b7695f6b4ed50045 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 23 Jun 1998 14:37:15 +0000 Subject: backspace.c, [...]: Update to Netlib version of 1998-06-18. 1998-06-23 Dave Love * 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 --- libf2c/libI77/backspace.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libf2c/libI77/backspace.c') 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); -- cgit v1.2.1