diff options
| author | Craig Burley <burley@gnu.org> | 1999-06-18 08:13:55 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gnu.org> | 1999-06-18 08:13:55 +0000 |
| commit | e7f003f295ce676ca61925d9944445d39876d120 (patch) | |
| tree | b9afd59e1da895ca0065adc9c28008dd4cfa33bc | |
| parent | 1f1b4b0abc70084e17805acc580c77250b901966 (diff) | |
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
| -rw-r--r-- | libf2c/libI77/Version.c | 3 | ||||
| -rw-r--r-- | 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); |