From bc9ac61d5ddfa2b749e548fceb0c14ba71f69bc1 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Tue, 29 Dec 2020 23:23:15 -0800 Subject: [PATCH] fix --- forth.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/forth.c b/forth.c index cee366e..0c7884d 100644 --- a/forth.c +++ b/forth.c @@ -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) \