SCP: Assure that library unit tests are run under reasonable conditions.
This commit is contained in:
parent
f64a32d0e8
commit
dca1c45e80
1 changed files with 4 additions and 0 deletions
4
scp.c
4
scp.c
|
@ -15509,6 +15509,10 @@ int32 saved_switches = sim_switches & ~SWMASK ('T');
|
||||||
t_stat stat = SCPE_OK;
|
t_stat stat = SCPE_OK;
|
||||||
char gbuf[CBUFSIZE];
|
char gbuf[CBUFSIZE];
|
||||||
|
|
||||||
|
if (sim_time != 0.0)
|
||||||
|
return sim_messagef (SCPE_UNK, "Library tests can not be performed after instructions have been executed.\n");
|
||||||
|
detach_all (0, 0); /* Assure that all units are unattached */
|
||||||
|
|
||||||
cptr = get_glyph (cptr, gbuf, 0);
|
cptr = get_glyph (cptr, gbuf, 0);
|
||||||
if (gbuf[0] == '\0')
|
if (gbuf[0] == '\0')
|
||||||
strcpy (gbuf, "ALL");
|
strcpy (gbuf, "ALL");
|
||||||
|
|
Loading…
Add table
Reference in a new issue