From 4b8902cd06b3056b6e147e37452190355ac619a4 Mon Sep 17 00:00:00 2001 From: Mark Pizzolato Date: Fri, 10 Nov 2023 15:47:15 -1000 Subject: [PATCH] SCP: When debugging, add output of EXAMINE commands to debug data --- scp.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/scp.c b/scp.c index c42e8285..537db3aa 100644 --- a/scp.c +++ b/scp.c @@ -2326,7 +2326,7 @@ static const char simh_help2[] = " The syntax of the regular expressions available are those supported\n" " by the Perl Compatible Regular Expression package (aka PCRE). As\n" " the name implies, the syntax is generally the same as Perl regular\n" - " expressions. See http://perldoc.perl.org/perlre.html for more\n\n" + " expressions. See http://perldoc.perl.org/perlre.html for more\n" " details.\n\n" "5-i\n" " If a regular expression expect rule is defined with the -i switch,\n" @@ -10148,6 +10148,9 @@ for (gptr = gbuf, reason = SCPE_OK; if ((!sim_oline) && (sim_log && (ofile == stdout))) exdep_reg_loop (sim_log, sim_schrptr, EX_E, cptr, lowr, --highr, 0, 0xFFFFFFFF); + if (sim_deb && (sim_deb != stdout) && (sim_deb != sim_log)) + exdep_reg_loop (sim_deb, sim_schrptr, EX_E, cptr, + lowr, --highr, 0, 0xFFFFFFFF); continue; } @@ -10180,6 +10183,9 @@ for (gptr = gbuf, reason = SCPE_OK; if ((flag & EX_E) && (!sim_oline) && (sim_log && (ofile == stdout))) exdep_reg_loop (sim_log, sim_schrptr, EX_E, cptr, lowr, highr, (uint32) low, (uint32) high); + if ((flag & EX_E) && (!sim_oline) && (sim_deb && (sim_deb != stdout) && (sim_deb != sim_log))) + exdep_reg_loop (sim_deb, sim_schrptr, EX_E, cptr, + lowr, highr, (uint32) low, (uint32) high); continue; } @@ -10202,6 +10208,9 @@ for (gptr = gbuf, reason = SCPE_OK; if ((flag & EX_E) && (!sim_oline) && (sim_log && (ofile == stdout))) exdep_addr_loop (sim_log, sim_schaptr, EX_E, cptr, low, high, sim_dfdev, sim_dfunit); + if ((flag & EX_E) && (!sim_oline) && (sim_deb && (sim_deb != stdout) && (sim_deb != sim_log))) + exdep_addr_loop (sim_deb, sim_schaptr, EX_E, cptr, low, high, + sim_dfdev, sim_dfunit); } /* end for */ if (sim_ofile) /* close output file */ fclose (sim_ofile);