diff options
| -rw-r--r-- | libf2c/ChangeLog | 7 | ||||
| -rw-r--r-- | libf2c/libI77/Version.c | 2 | ||||
| -rw-r--r-- | libf2c/libI77/backspace.c | 1 |
3 files changed, 9 insertions, 1 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 43ebb7a..360c91f 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,10 @@ +Wed Jun 16 11:38:58 1999 Craig Burley <craig@jcb-sc.com> + + From Ian Watson <WATSON_IAN_A@Lilly.com> 1999-06-12: + * libI77/backspace.c: Reload file descriptor after + calling t_runc. + * libI77/Version.c: Bump libg2c version. + Wed May 26 14:26:35 1999 Craig Burley <craig@jcb-sc.com> * libF77/Version.c, libI77/Version.c, libU77/Version.c: diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c index 12da19b..b501174 100644 --- a/libf2c/libI77/Version.c +++ b/libf2c/libI77/Version.c @@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n"; /* */ -char __G77_LIBI77_VERSION__[] = "0.5.25 19981012 (prerelease)"; +char __G77_LIBI77_VERSION__[] = "0.5.25 19990616 (prerelease)"; /* 2.01 $ format added diff --git a/libf2c/libI77/backspace.c b/libf2c/libI77/backspace.c index 1da686d..eca1708 100644 --- a/libf2c/libI77/backspace.c +++ b/libf2c/libI77/backspace.c @@ -27,6 +27,7 @@ integer f_back(alist *a) } if(b->uwrt) { (void) t_runc(a); + f = b->ufd; /* t_runc might change b->ufd */ if (f__nowreading(b)) err(a->aerr,errno,"backspace"); } |