diff options
Diffstat (limited to 'libf2c/libI77/close.c')
| -rw-r--r-- | libf2c/libI77/close.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/libf2c/libI77/close.c b/libf2c/libI77/close.c index 93e9198..5c3af4c 100644 --- a/libf2c/libI77/close.c +++ b/libf2c/libI77/close.c @@ -75,9 +75,12 @@ 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. */ + /* I/O no longer in progress. If, during an I/O operation (such + as waiting for the user to enter a line), there is an + interrupt (such as ^C to stop the program on a UNIX system), + f_exit() is called, but there is no longer any I/O in + progress. Without turning off this flag, f_clos() would + think that there is an I/O recursion in this circumstance. */ f__init &= ~2; if (!xx.cerr) { xx.cerr=1; |