diff options
| author | Jeff Law <law@gcc.gnu.org> | 1998-02-22 12:36:33 -0700 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-02-22 12:36:33 -0700 |
| commit | 56a0044b23379c1b4129f7d97d4abb444f3df175 (patch) | |
| tree | 896df8a7767510a09f2791565643d25b1dc6ef2f /libf2c/libI77/close.c | |
| parent | 86fc7a6c5d2fc7f9a5daa5e48f94cbfb87ca6db1 (diff) | |
| download | gcc-56a0044b23379c1b4129f7d97d4abb444f3df175.zip gcc-56a0044b23379c1b4129f7d97d4abb444f3df175.tar.gz gcc-56a0044b23379c1b4129f7d97d4abb444f3df175.tar.bz2 | |
Another bunch of patches from Craig. See ChangeLogs for details.
From-SVN: r18188
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; |