SCP: Avoid flushing active asynch I/O devices
This commit is contained in:
parent
d7e116f81a
commit
c408d0a8fa
1 changed files with 5 additions and 2 deletions
5
scp.c
5
scp.c
|
@ -7713,8 +7713,11 @@ for (i = 1; (dptr = sim_devices[i]) != NULL; i++) { /* flush attached files
|
|||
for (j = 0; j < dptr->numunits; j++) { /* if not buffered in mem */
|
||||
uptr = dptr->units + j;
|
||||
if (uptr->flags & UNIT_ATT) { /* attached, */
|
||||
if (uptr->io_flush) /* unit specific flush routine */
|
||||
if (uptr->io_flush) { /* unit specific flush routine? */
|
||||
if (!sim_asynch_enabled || /* and asynch I/O not possible? */
|
||||
!sim_is_running)
|
||||
uptr->io_flush (uptr); /* call it */
|
||||
}
|
||||
else {
|
||||
if (!(uptr->flags & UNIT_BUF) && /* not buffered, */
|
||||
(uptr->fileref) && /* real file, */
|
||||
|
|
Loading…
Add table
Reference in a new issue