fix BACKSPACE

From-SVN: r27541

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 43ebb7a6c390f4ab3237069cb7d3ee114b053444..360c91f3db72bab97b6885a127a37667d1b621ad 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 12da19b1915df59fffde847227207b1ac6e2fe30..b501174b79005594a8e0ec2c4f6fad15b2d15fe0 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 1da686dbb488e94caab44d7b61eb4bcd98e96c97..eca1708a3c89cdb3777147e874c7b1de62ef5c66 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");
                }