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

More shuffling.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-14 11:04:18 -07:00
parent 3da2f4bfd3
commit 8066bfb2e8
14 changed files with 53 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
web/web.template.js
View File

@ -83,7 +83,7 @@ function TONAME(xt) {
? u8[TOLINK(xt)] : TOLINK(xt) - CELL_ALIGNED(u8[TONAMELEN(xt)]);
}
function TOBODY(xt) {
return xt + (i32[xt>>2] === OP_DOCREATE || i32[xt>>2] === OP_DODOES ? 2 : 1);
return xt + (i32[xt>>2] === OP_DOCREATE || i32[xt>>2] === OP_DODOES ? 2 : 1) * 4;
}
function DOES(ip) {
@ -437,6 +437,7 @@ function VM(stdlib, foreign, heap) {
var DOES = foreign.DOES;
var DOIMMEDIATE = foreign.DOIMMEDIATE;
var UNSMUDGE = foreign.UNSMUDGE;
var TOBODY = foreign.TOBODY;
var create = foreign.create;
var find = foreign.find;
var parse = foreign.parse;
@ -533,6 +534,7 @@ var ffi = {
'COMMA': function(n) { COMMA(n); },
'CCOMMA': function(n) { COMMA(n); },
'SSMOD': function(sp) { SSMOD(sp); },
'TOBODY': function(tos) { return TOBODY(tos); },
'DOES': function(ip) { DOES(ip); },
'DOIMMEDIATE': function() { DOIMMEDIATE(); },
'UNSMUDGE': function() { UNSMUDGE(); },
@ -549,6 +551,7 @@ var module = VM(globalObj, ffi, heap);
Init();
setTimeout(function() {
module.run();
console.log('yield');
}, 10);
})();