fix BACKSPACE

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@27541 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 43ebb7a..360c91f 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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");
                }