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

reduce variable count

Browse Source
This commit is contained in:
Brad Nelson
2020-12-30 13:20:25 -08:00
parent c60bee6fd8
commit 718cd8de8b
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
ueforth/ueforth.c
View File

@ -32,12 +32,9 @@ typedef uint64_t udcell_t;
X("UM/MOD", OP_UMSMOD, ud = *(udcell_t *) &sp[-1]; \ X("UM/MOD", OP_UMSMOD, ud = *(udcell_t *) &sp[-1]; \
*--sp = (cell_t) (ud % tos); \ *--sp = (cell_t) (ud % tos); \
tos = (cell_t) (ud / tos)) \ tos = (cell_t) (ud / tos)) \
X("*/MOD", OP_SSMOD, d = (dcell_t) tos; \ X("*/MOD", OP_SSMOD, d = (dcell_t) *sp * (dcell_t) sp[-1]; \
m = (dcell_t) *sp; \ *--sp = (cell_t) (d % tos); \
n = (dcell_t) sp[-1]; \ tos = (cell_t) (d / tos)) \
n *= m; \
tos = (cell_t) (n / d); \
*--sp = (cell_t) (n % d)) \
X("AND", OP_AND, tos &= *sp--) \ X("AND", OP_AND, tos &= *sp--) \
X("OR", OP_OR, tos |= *sp--) \ X("OR", OP_OR, tos |= *sp--) \
X("XOR", OP_XOR, tos ^= *sp--) \ X("XOR", OP_XOR, tos ^= *sp--) \
@ -348,7 +345,7 @@ int main(int argc, char *argv[]) {
register cell_t *sp = g_heap; g_heap += STACK_SIZE; register cell_t *sp = g_heap; g_heap += STACK_SIZE;
register cell_t *rp = g_heap; g_heap += STACK_SIZE; register cell_t *rp = g_heap; g_heap += STACK_SIZE;
register cell_t tos = 0, *ip, t, w; register cell_t tos = 0, *ip, t, w;
dcell_t m, n, d; dcell_t d;
udcell_t ud; udcell_t ud;
cell_t tmp; cell_t tmp;
#define X(name, op, code) create(name, sizeof(name) - 1, name[0] == ';', && op); #define X(name, op, code) create(name, sizeof(name) - 1, name[0] == ';', && op);