alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding exception handling for windows.

Browse Source
This commit is contained in:
Brad Nelson
2022-12-31 22:13:19 -08:00
parent 1c500c2233
commit b720575fb2
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
windows/interp.h
View File

@ -47,16 +47,28 @@ static cell_t *forth_run(cell_t *init_rp) {
register float *fp, ft; register float *fp, ft;
rp = init_rp; UNPARK; rp = init_rp; UNPARK;
for (;;) { for (;;) {
__try {
for (;;) {
next: next:
w = *ip++; w = *ip++;
work: work:
switch (*(cell_t *) w & 0xff) { switch (*(cell_t *) w & 0xff) {
#define Z(flags, name, op, code) case OP_ ## op: { code; } NEXT; #define Z(flags, name, op, code) case OP_ ## op: { code; } NEXT;
PLATFORM_OPCODE_LIST PLATFORM_OPCODE_LIST
TIER2_OPCODE_LIST TIER2_OPCODE_LIST
TIER1_OPCODE_LIST TIER1_OPCODE_LIST
TIER0_OPCODE_LIST TIER0_OPCODE_LIST
#undef Z #undef Z
}
}
} __except (1) {
rp = *g_sys->throw_handler;
*g_sys->throw_handler = (cell_t *) *rp--;
sp = (cell_t *) *rp--;
fp = (float *) *rp--;
ip = (cell_t *) *rp--;
--sp;
tos = GetExceptionCode();
} }
} }
} }