fix BACKSPACE

From-SVN: r27541
This commit is contained in:
Craig Burley 1999-06-16 09:00:35 +00:00 committed by Craig Burley
parent afada1498f
commit 8c225122ff
3 changed files with 9 additions and 1 deletions

View File

@ -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:

View File

@ -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

View File

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