d6
/
uxn11
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added instruction code to error report

This commit is contained in:
neauoire 2022-04-10 10:31:18 -07:00
parent c704491d79
commit 1acef2aaed
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/devices/system.c
View File

@ -41,14 +41,16 @@ system_inspect(Uxn *u)
int
uxn_halt(Uxn *u, Uint8 instr, Uint8 err, Uint16 addr)
{
Stack *origin = (instr & 0x40) ? u->wst : u->rst;
Uint8 *d = &u->dev[0x00];
origin->err = err;
if(instr & 0x40)
u->rst->err = err;
else
u->wst->err = err;
if(GETVEC(d))
uxn_eval(u, GETVEC(d));
else {
system_inspect(u);
fprintf(stderr, "%s %s, at 0x%04x.\n", (instr & 0x40) ? "Return-stack" : "Working-stack", errors[err - 1], addr);
fprintf(stderr, "%s %s, by %02x at 0x%04x.\n", (instr & 0x40) ? "Return-stack" : "Working-stack", errors[err - 1], instr, addr);
}
return 0;
}