From 422d5a3a2747e4d3ecfd29f6bbf74f4fda90dbbb Mon Sep 17 00:00:00 2001 From: burley Date: Wed, 16 Jun 1999 09:00:35 +0000 Subject: [PATCH] fix BACKSPACE git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@27541 138bc75d-0d04-0410-961f-82ee72b054a4 --- libf2c/ChangeLog | 7 +++++++ libf2c/libI77/Version.c | 2 +- libf2c/libI77/backspace.c | 1 + 3 files changed, 9 insertions(+), 1 deletion(-) 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 + + From Ian Watson 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 * 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"); } -- 2.7.4