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

SCP: Exit if disk or tape initialization routines return a failure

Browse Source
This commit is contained in:
Mark Pizzolato 2023-09-10 08:45:54 -10:00
parent 62c0daf8f8
commit 1f9881734a
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scp.c
View File

@ -3059,8 +3059,20 @@ sim_on_inherit = sim_switches & SWMASK ('O'); /* -o means inherit on s
sim_init_sock (); /* init socket capabilities */
AIO_INIT; /* init Asynch I/O */
sim_finit (); /* init fio package */
sim_disk_init (); /* init disk package */
sim_tape_init (); /* init tape package */
if (sim_disk_init () != SCPE_OK) { /* init disk package */
fprintf (stderr, "Fatal sim_disk initialization error\n");
if (sim_ttisatty())
read_line_p ("Hit Return to exit: ", cbuf, sizeof (cbuf) - 1, stdin);
free (targv);
return EXIT_FAILURE;
}
if (sim_tape_init () != SCPE_OK) { /* init tape package */
fprintf (stderr, "Fatal sim_tape initialization error\n");
if (sim_ttisatty())
read_line_p ("Hit Return to exit: ", cbuf, sizeof (cbuf) - 1, stdin);
free (targv);
return EXIT_FAILURE;
}
sim_exp_initialize (); /* init expect package regex support */
if ((argc > 2) &&
(sim_strcasecmp (argv[1], "CheckSourceCode") == 0)) {