undo Wednesday's change

From-SVN: r27592

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 360c91f3db72bab97b6885a127a37667d1b621ad..c8666c674d8bef523141e4978d21267e1ab8c1a2 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+Fri Jun 18 11:15:24 1999  Craig Burley  <craig@jcb-sc.com>
+
+       * libI77/backspace.c: Undo Wednesday's change, in
+       preparation for slightly different Netlib change.
+
 Wed Jun 16 11:38:58 1999  Craig Burley  <craig@jcb-sc.com>
 
        From Ian Watson <WATSON_IAN_A@Lilly.com> 1999-06-12:

diff --git a/libf2c/libI77/backspace.c b/libf2c/libI77/backspace.c
index eca1708a3c89cdb3777147e874c7b1de62ef5c66..1da686dbb488e94caab44d7b61eb4bcd98e96c97 100644 (file)
--- a/libf2c/libI77/backspace.c
+++ b/libf2c/libI77/backspace.c
@@ -27,7 +27,6 @@ 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");
                }