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

Replaced XV with Z to make things uniform + fixed remaining non-valid asm.js.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-12 18:13:56 -07:00
parent cd9228a609
commit 9d874a08fb
9 changed files with 67 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
common/interp.h
View File

@ -18,13 +18,13 @@
static cell_t *forth_run(cell_t *init_rp) {
static const BUILTIN_WORD builtins[] = {
#define XV(flags, name, op, code) \
#define Z(flags, name, op, code) \
name, ((VOC_ ## flags >> 8) & 0xff) | BUILTIN_MARK, \
sizeof(name) - 1, (VOC_ ## flags & 0xff), && OP_ ## op,
PLATFORM_OPCODE_LIST
EXTRA_OPCODE_LIST
OPCODE_LIST
#undef XV
#undef Z
0, 0, 0, 0, 0,
};
@ -36,9 +36,9 @@ static cell_t *forth_run(cell_t *init_rp) {
register cell_t *ip, *rp, *sp, tos, w;
register float *fp, ft;
rp = init_rp; UNPARK; NEXT;
#define XV(flags, name, op, code) OP_ ## op: { code; } NEXT;
#define Z(flags, name, op, code) OP_ ## op: { code; } NEXT;
PLATFORM_OPCODE_LIST
EXTRA_OPCODE_LIST
OPCODE_LIST
#undef XV
#undef Z
}