mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-25 03:54:00 +08:00
fix BACKSPACE
From-SVN: r27541
This commit is contained in:
parent
afada1498f
commit
8c225122ff
@ -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:
|
||||
|
@ -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
|
||||
|
@ -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");
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user