Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-27 09:59:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Defragment dictionary & remove obsolete entries

Browse source
This commit is contained in:
Remko Tronçon 2022-05-28 18:26:11 +02:00
parent c267b5d1a5
commit c055a70e01
2 changed files with 182 additions and 190 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

360
src/waforth.wat
View file

File diff suppressed because it is too large Load diff

12
src/web/tests/suite.js
View file

@ -970,21 +970,21 @@ function loadTests() {
it("should find a word", () => { it("should find a word", () => {
loadString("DUP"); loadString("DUP");
run("FIND"); run("FIND");
expect(stackValues()[0]).to.eql(136120); expect(stackValues()[0]).to.eql(132236); // FIXME: Make test more robust against dict changes
expect(stackValues()[1]).to.eql(-1); expect(stackValues()[1]).to.eql(-1);
}); });
it("should find a short word", () => { it("should find a short word", () => {
loadString("!"); loadString("!");
run("FIND"); run("FIND");
expect(stackValues()[0]).to.eql(135168); expect(stackValues()[0]).to.eql(131240); // FIXME: Make test more robust against dict changes
expect(stackValues()[1]).to.eql(-1); expect(stackValues()[1]).to.eql(-1);
}); });
it("should find an immediate word", () => { it("should find an immediate word", () => {
loadString("+LOOP"); loadString("+LOOP");
run("FIND"); run("FIND");
expect(stackValues()[0]).to.eql(135304); expect(stackValues()[0]).to.eql(131376); // FIXME: Make test more robust against dict changes
expect(stackValues()[1]).to.eql(1); expect(stackValues()[1]).to.eql(1);
}); });
@ -1480,19 +1480,19 @@ function loadTests() {
it("should work", () => { it("should work", () => {
run(': FOO 0 0 S" 123AB" >NUMBER ;'); run(': FOO 0 0 S" 123AB" >NUMBER ;');
run("FOO"); run("FOO");
expect(stackValues()).to.eql([123, 0, 137515, 2]); expect(stackValues()).to.eql([123, 0, 133459, 2]); // FIXME: Make test more robust against dictionary changes
}); });
it("should work with init", () => { it("should work with init", () => {
run(': FOO 1 0 S" 1" >NUMBER ;'); run(': FOO 1 0 S" 1" >NUMBER ;');
run("FOO"); run("FOO");
expect(stackValues()).to.eql([11, 0, 137513, 0]); expect(stackValues()).to.eql([11, 0, 133457, 0]); // FIXME: Make test more robust against dictionary changes
}); });
it("should not parse sign", () => { it("should not parse sign", () => {
run(': FOO 0 0 S" -" >NUMBER ;'); run(': FOO 0 0 S" -" >NUMBER ;');
run("FOO"); run("FOO");
expect(stackValues()).to.eql([0, 0, 137512, 1]); expect(stackValues()).to.eql([0, 0, 133456, 1]); // FIXME: Make test more robust against dictionary changes
}); });
}); });