From: burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 16 Jun 1999 09:00:35 +0000 (+0000)
Subject: fix BACKSPACE
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=422d5a3a2747e4d3ecfd29f6bbf74f4fda90dbbb;p=platform%2Fupstream%2Flinaro-gcc.git

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
--- 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");
 		}