diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-06-16 09:00:35 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-06-16 05:00:35 -0400 |
| commit | 8c225122ffcee090ea1afa0b333afbf09241e19c (patch) | |
| tree | c2da84d1333f5ea66218c04c03b578eed6d59b5c /libf2c | |
| parent | afada1498f7468c7b78a1c3e1a39c2c08f87350b (diff) | |
| download | gcc-8c225122ffcee090ea1afa0b333afbf09241e19c.zip gcc-8c225122ffcee090ea1afa0b333afbf09241e19c.tar.gz gcc-8c225122ffcee090ea1afa0b333afbf09241e19c.tar.bz2 | |
fix BACKSPACE
From-SVN: r27541
Diffstat (limited to 'libf2c')
| -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"); } |