github.com/open-simh.simh
1
0
Fork 0
mirror of https://github.com/open-simh/simh.git synced 2026-01-13 15:27:46 +00:00
Code Issues Projects Releases Wiki Activity

TAPE: Properly report a tape format error when a TPC format tape fails the record structure validation checks.

Browse Source
This commit is contained in:
Mark Pizzolato 2015-11-22 21:52:42 -08:00
parent 0f43551d8c
commit 00a8b74b66
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
sim_tape.c
View File

@ -525,14 +525,15 @@ t_stat sim_tape_detach (UNIT *uptr)
struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx;
uint32 f = MT_GET_FMT (uptr);
t_stat r;
t_bool auto_format;
t_bool auto_format = FALSE;
if ((uptr == NULL) || !(uptr->flags & UNIT_ATT))
return SCPE_IERR;
if (uptr->io_flush)
uptr->io_flush (uptr); /* flush buffered data */
auto_format = ctx->auto_format;
if (ctx)
auto_format = ctx->auto_format;
sim_tape_clr_async (uptr);