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

Adding U<.

Browse Source
This commit is contained in:
Brad Nelson
2023-11-11 14:46:27 -08:00
parent 564a8fc68b
commit fa56ecf59d
4 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
web/fuse_web.js
View File

@ -43,6 +43,7 @@ cases = ReplaceAll(cases, 'tos *= sizeof(cell_t)', 'tos = (tos * 4)|0');
cases = ReplaceAll(cases, 'tos += *sp--', 'tos = (tos + *sp)|0; --sp');
cases = ReplaceAll(cases, 'tos = (*sp--) - tos', 'tos = (*sp - tos)|0; --sp');
cases = ReplaceAll(cases, 'tos *= *sp--', 'tos = imul(tos, *sp); --sp');
cases = ReplaceAll(cases, '((ucell_t) *sp)', '(i32[sp>>2]>>>0)');
cases = ReplaceAll(cases, '(((ucell_t) *sp) >> tos)', 'i32[sp>>2]>>>tos');
cases = ReplaceAll(cases, '*((cell_t *) tos) += *sp--',
'i32[tos>>2] = ((i32[tos>>2]|0) + (i32[sp>>2]|0))|0; --sp');