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

fix

Browse Source
This commit is contained in:
Brad Nelson
2020-12-29 23:23:15 -08:00
parent 9a4609a520
commit bc9ac61d5d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
forth.c
View File

@ -32,7 +32,6 @@ typedef uint64_t udcell_t;
X("UM/MOD", OP_UMSMOD, ud = *(udcell_t *) &sp[-1]; \
*--sp = (cell_t) (ud % tos); \
tos = (cell_t) (ud / tos)) \
X("DONEXT", OP_DONEXT, if ((*rp)--) ip = (cell_t *) *ip; else (--rp, ++ip)) \
X("*/MOD", OP_SSMOD, d = (dcell_t) tos; \
m = (dcell_t) *sp; \
n = (dcell_t) sp[-1]; \
@ -66,6 +65,7 @@ typedef uint64_t udcell_t;
X("C!", OP_CSTORE, *(uint8_t *) tos = *sp; --sp; DROP) \
X("BRANCH", OP_BRANCH, ip = (cell_t *) *ip) \
X("0BRANCH", OP_ZBRANCH, if (!tos) ip = (cell_t *) *ip; else ++ip; DROP) \
X("DONEXT", OP_DONEXT, if ((*rp)--) ip = (cell_t *) *ip; else (--rp, ++ip)) \
X("DOLIT", OP_DOLIT, DUP; tos = *(cell_t *) ip++) \
X("ALITERAL", OP_ALITERAL, *g_heap++ = g_DOLIT_XT; *g_heap++ = tos; DROP) \
X("EXECUTE", OP_EXECUTE, w = tos; DROP; goto **(void **) w) \