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

Adding import + fix bug in web Find.

Browse Source
This commit is contained in:
Brad Nelson
2022-11-18 20:11:19 -08:00
parent 5437048f33
commit 8ee1eafef6
4 changed files with 96 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
web/web.template.js
View File

@ -82,10 +82,10 @@ function UPPER(ch) {
function TOFLAGS(xt) { return xt - 1 * 4; }
function TONAMELEN(xt) { return TOFLAGS(xt) + 1; }
function TOPARAMS(xt) { return TOFLAGS(xt) + 2; }
function TOSIZE(xt) { return CELL_ALIGNED(u8[TONAMELEN(xt)>>2]) + 4 * i32[TOPARAMS(xt)>>2]; }
function TOSIZE(xt) { return CELL_ALIGNED(u8[TONAMELEN(xt)>>2]) + 4 * u16[TOPARAMS(xt)>>1]; }
function TOLINK(xt) { return xt - 2 * 4; }
function TONAME(xt) {
return (u8[TOFLAGS(xt)>>2] & BUILTIN_MARK)
return (u8[TOFLAGS(xt)] & BUILTIN_MARK)
? i32[TOLINK(xt)] : TOLINK(xt) - CELL_ALIGNED(u8[TONAMELEN(xt)]);
}
function TOBODY(xt) {