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

Fix FOR..NEXT

Browse Source
This commit is contained in:
Brad Nelson
2021-01-09 06:59:05 -08:00
parent c5ef901574
commit d360c6eaf9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ueforth/common/opcodes.h
View File

@ -57,7 +57,7 @@ typedef uint64_t udcell_t;
X("BRANCH", BRANCH, ip = (cell_t *) (*ip | 0)) \
X("0BRANCH", ZBRANCH, if (!tos) ip = (cell_t *) (*ip | 0); else ++ip; DROP) \
X("DONEXT", DONEXT, *rp = ((*rp|0) - 1) | 0; \
if ((*rp|0)) ip = (cell_t *) (*ip | 0); else (--rp, ++ip)) \
if (~(*rp|0)) ip = (cell_t *) (*ip | 0); else (--rp, ++ip)) \
X("DOLIT", DOLIT, DUP; tos = (*ip | 0); ++ip) \
X("ALITERAL", ALITERAL, COMMA(g_sys.DOLIT_XT | 0); COMMA(tos | 0); DROP) \
X("CELL", CELL, DUP; tos = sizeof(cell_t)) \