folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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; struct tape_context *ctx = (struct tape_context *)uptr->tape_ctx;
uint32 f = MT_GET_FMT (uptr); uint32 f = MT_GET_FMT (uptr);
t_stat r; t_stat r;
t_bool auto_format; t_bool auto_format = FALSE;
if ((uptr == NULL) || !(uptr->flags & UNIT_ATT)) if ((uptr == NULL) || !(uptr->flags & UNIT_ATT))
return SCPE_IERR; return SCPE_IERR;
if (uptr->io_flush) if (uptr->io_flush)
uptr->io_flush (uptr); /* flush buffered data */ uptr->io_flush (uptr); /* flush buffered data */
auto_format = ctx->auto_format; if (ctx)
auto_format = ctx->auto_format;
sim_tape_clr_async (uptr); sim_tape_clr_async (uptr);