mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-19 07:38:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

close.c (f_exit): Reset f__init so that f_clos does not (incorrectly) think there is an I/O...

Browse Source 
* libI77/close.c (f_exit): Reset f__init so that f_clos does not
        (incorrectly) think there is an I/O recursion when program is
        interrupted.

From-SVN: r16565
This commit is contained in:
Mumit Khan 1997-11-18 16:48:12 +00:00 committed by Jeff Law
parent 8baa713c4f
commit 68660571fc
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/f/runtime/ChangeLog.egcs
View File

@ -1,3 +1,9 @@
Tue Nov 18 09:49:04 1997 Mumit Khan (kahn@xraylity.wisc.edu)
* libI77/close.c (f_exit): Reset f__init so that f_clos does not
(incorrectly) think there is an I/O recursion when program is
interrupted.
Sat Nov 1 18:03:42 1997 Jeffrey A Law (law@cygnus.com)
* libF77/signal_.c: Undo last change until we can fix it right.

4
gcc/f/runtime/libI77/close.c
View File

@ -75,6 +75,10 @@ f_exit(void)
static cllist xx;
if (! (f__init & 1))
return; /* Not initialized, so no open units. */
/* no more I/O to be done. If this is not done, then if the
program is interrupted during I/O, f_clos thinks, incorrectly,
that there is an I/O recursion. */
f__init &= ~2;
if (!xx.cerr) {
xx.cerr=1;
xx.csta=NULL;