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

Cleaning up throw values around division + faults.

Browse Source
This commit is contained in:
Brad Nelson
2023-01-22 15:08:14 -08:00
parent cfd70d6712
commit 40400b873e
9 changed files with 165 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
common/tier1_opcodes.h
View File

@ -17,9 +17,9 @@
Y(rdrop, --rp) \
XV(forth, "*/", STARSLASH, SSMOD_FUNC; NIP) \
X("*", STAR, tos *= *sp--) \
X("/mod", SLASHMOD, DUP; *sp = 1; SSMOD_FUNC) \
X("/", SLASH, DUP; *sp = 1; SSMOD_FUNC; NIP) \
Y(mod, DUP; *sp = 1; SSMOD_FUNC; DROP) \
X("/mod", SLASHMOD, SLASHMOD_FUNC) \
X("/", SLASH, SLASH_FUNC) \
X("mod", MOD, MOD_FUNC) \
Y(invert, tos = ~tos) \
Y(negate, tos = -tos) \
X("-", MINUS, tos = (*sp--) - tos) \
@ -44,7 +44,7 @@
X("+!", PLUSSTORE, *((cell_t *) tos) += *sp--; DROP) \
X("cell+", CELLPLUS, tos += sizeof(cell_t)) \
Y(cells, tos *= sizeof(cell_t)) \
X("cell/", CELLSLASH, DUP; tos = sizeof(cell_t); DUP; *sp = 1; SSMOD_FUNC; NIP) \
X("cell/", CELLSLASH, CELLSLASH_FUNC) \
X("2drop", TWODROP, NIP; DROP) \
X("2dup", TWODUP, DUP; tos = sp[-1]; DUP; tos = sp[-1]) \
X("2@", TWOAT, DUP; *sp = *(cell_t *) tos; tos = ((cell_t *) tos)[1]) \