From e7f003f295ce676ca61925d9944445d39876d120 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Fri, 18 Jun 1999 08:13:55 +0000 Subject: Update to Netlib version of 1999-06-18 git-svn-id: https://gcc.gnu.org/svn/gcc/branches/Netlib_branch@27591 138bc75d-0d04-0410-961f-82ee72b054a4 --- libf2c/libI77/Version.c | 3 ++- libf2c/libI77/backspace.c | 5 +++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c index 3a9fa2e0de4..7cdb9ab4644 100644 --- a/libf2c/libI77/Version.c +++ b/libf2c/libI77/Version.c @@ -1,4 +1,4 @@ -static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n"; +static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990618\n"; /* 2.01 $ format added @@ -296,3 +296,4 @@ wrtfmt.c: rdfmt.c: omit fixed-length buffer that could be overwritten by formats Inn or Lnn with nn > 83. */ /* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */ +/* 18 June 1999: backspace.c: allow for b->ufd changing in t_runc */ diff --git a/libf2c/libI77/backspace.c b/libf2c/libI77/backspace.c index c3fa545df2e..cbc5e1bd393 100644 --- a/libf2c/libI77/backspace.c +++ b/libf2c/libI77/backspace.c @@ -14,7 +14,7 @@ integer f_back(alist *a) if(a->aunit >= MXUNIT || a->aunit < 0) err(a->aerr,101,"backspace") if(b->useek==0) err(a->aerr,106,"backspace") - if((f = b->ufd) == NULL) { + if(b->ufd == NULL) { fk_open(1, 1, a->aunit); return(0); } @@ -23,10 +23,11 @@ integer f_back(alist *a) return(0); } if(b->uwrt) { - (void) t_runc(a); + t_runc(a); if (f__nowreading(b)) err(a->aerr,errno,"backspace") } + f = b->ufd; /* may have changed in t_runc() */ if(b->url>0) { x=ftell(f); -- cgit v1.2.3