crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

retro.c: -v now mentioned in help text; show sp, rp, core as part of verbose output

Browse source 
FossilOrigin-Name: a78c3d5b49a7f0dd484a8a42ff6b1dd263572bd6b73b787d2481d222c0fe0354
This commit is contained in:
crc 2023-10-10 09:50:07 +00:00
parent fbfba0630b
commit 490fd83cb0
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
vm/nga-c/retro.c
View file

@ -181,6 +181,7 @@ void inst_iq(NgaState *); void inst_ii(NgaState *);
/* Global Variables -------------------------------------------------- */
int verbose;
void guard(NgaState *vm, int n, int m, int diff) {
if (vm->cpu[vm->active].sp < n) {
#ifdef ENABLE_ERROR
@ -965,6 +966,8 @@ void help(char *exename) {
printf(" Use the image in the specified file instead of the internal one and run the code in it\n");
printf(" -t filename\n");
printf(" Run the contents of the specified file, including any tests (in ``` blocks)\n\n");
printf(" -v\n");
printf(" Run in verbose mode\n");
}
/* Signal Handler -----------------------------------------------------*/
@ -1585,10 +1588,18 @@ int validate_opcode_bundle(CELL opcode) {
return valid;
}
void verbose_details(NgaState *vm, CELL opcode) {
printf("ip: %lld ", vm->cpu[vm->active].ip);
printf("sp: %lld ", vm->cpu[vm->active].sp);
printf("rp: %lld ", vm->cpu[vm->active].rp);
printf("core: %d ", vm->active);
printf("opcode: %lld\n", opcode);
}
void process_opcode_bundle(NgaState *vm, CELL opcode) {
CELL raw = opcode;
int i;
if (verbose) { printf("ip: %lld <%lld>\n", vm->cpu[vm->active].ip, opcode); }
if (verbose) { verbose_details(vm, opcode); }
for (i = 0; i < 4; i++) {
process_opcode(vm, raw & 0xFF);
raw = raw >> 8;