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

SCP: Fix SHOW writeenable MTAB entries

Browse source 
As discussed in #1034
This commit is contained in:
Mark Pizzolato 2021-04-20 09:28:41 -07:00
parent 68e407ba0f
commit 7008edc561
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scp.c
View file

@ -569,6 +569,7 @@ t_stat set_runlimit (int32 flag, CONST char *cptr);
t_stat sim_set_asynch (int32 flag, CONST char *cptr); t_stat sim_set_asynch (int32 flag, CONST char *cptr);
static const char *_get_dbg_verb (uint32 dbits, DEVICE* dptr, UNIT *uptr); static const char *_get_dbg_verb (uint32 dbits, DEVICE* dptr, UNIT *uptr);
static t_stat sim_sanity_check_register_declarations (void); static t_stat sim_sanity_check_register_declarations (void);
static void fix_writelock_mtab (DEVICE *dptr);
static t_stat _sim_debug_flush (void); static t_stat _sim_debug_flush (void);
/* Global data */ /* Global data */
@ -7520,6 +7521,7 @@ for (i = start; (dptr = sim_devices[i]) != NULL; i++) {
if (sim_switches & SWMASK ('P')) { if (sim_switches & SWMASK ('P')) {
tmxr_add_debug (dptr); /* Add TMXR debug to MUX devices */ tmxr_add_debug (dptr); /* Add TMXR debug to MUX devices */
sim_tape_add_debug (dptr); /* Add TAPE debug to TAPE devices */ sim_tape_add_debug (dptr); /* Add TAPE debug to TAPE devices */
fix_writelock_mtab (dptr);
} }
if (dptr->reset != NULL) { if (dptr->reset != NULL) {
reason = dptr->reset (dptr); reason = dptr->reset (dptr);
@ -7628,6 +7630,16 @@ fprintf (st, "write %s", (uptr->flags & UNIT_WPRT) ? "locked" : "enabled");
return SCPE_OK; return SCPE_OK;
} }
static void fix_writelock_mtab (DEVICE *dptr)
{
MTAB *mtab;
for (mtab = dptr->modifiers; (mtab != NULL) && (mtab->mstring != NULL); ++mtab) {
if (mtab->disp == &show_writelock)
mtab->pstring = "WRITEENABLED";
}
}
/* Load and dump commands /* Load and dump commands
lo[ad] filename {arg} load specified file lo[ad] filename {arg} load specified file