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

Refining asm.js version.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-12 21:25:14 -07:00
parent 9d874a08fb
commit 550050d9c3
4 changed files with 137 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
common/opcodes.h
View File

@ -46,7 +46,7 @@ typedef uintptr_t ucell_t;
(void *) *((cell_t *) xt) == ADDROF(DODOES) ? 2 : 1))
#ifndef COMMA
# define COMMA(n) *g_sys->heap++ = (n)
# define COMMA(n) *g_sys->heap++ = (cell_t) (n)
# define CCOMMA(n) *(uint8_t *) g_sys->heap = (n); \
g_sys->heap = (cell_t *) (1 + ((cell_t) g_sys->heap));
# define DOES(ip) **g_sys->current = (cell_t) ADDROF(DODOES); (*g_sys->current)[1] = (cell_t) ip