github.com/open-simh.simh
1
0
Fork 0
mirror of https://github.com/open-simh/simh.git synced 2026-01-14 07:40:35 +00:00
Code Issues Projects Releases Wiki Activity

PDP11: Fix RL, HK and TQ I/O Error path to properly clear observed errors

Browse Source
This commit is contained in:
Mark Pizzolato 2019-03-08 12:28:07 -08:00
parent c408d0a8fa
commit 72451ba202
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PDP11/pdp11_hk.c
View File

@ -1231,7 +1231,7 @@ switch (fnc) { /* case on function */
if (err != 0) { /* error? */
hk_err (CS1_ERR|CS1_DONE, 0, ER_PAR, drv); /* set drive error */
sim_perror ("HK I/O error");
clearerr (uptr->fileref);
sim_disk_clearerr (uptr);
return SCPE_IOERR;
}

2
PDP11/pdp11_rl.c
View File

@ -970,7 +970,7 @@ rl_set_done (0);
if (err != 0) { /* error? */
sim_perror ("RL I/O error");
clearerr (uptr->fileref);
sim_disk_clearerr (uptr);
return SCPE_IOERR;
}
return SCPE_OK;

2
PDP11/pdp11_tq.c
View File

@ -1503,8 +1503,6 @@ t_stat tq_mot_err (UNIT *uptr, uint32 rsiz)
uptr->flags = (uptr->flags | UNIT_SXC) & ~UNIT_TMK; /* serious exception */
if (tq_dte (uptr, ST_DRV)) /* post err log */
tq_mot_end (uptr, EF_LOG, ST_DRV, rsiz); /* if ok, report err */
sim_perror ("TQ I/O error");
clearerr (uptr->fileref);
return SCPE_IOERR;
}