diff options
-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); |