Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2025-01-14 08:01:34 +01:00
Code Issues Projects Releases Packages Wiki Activity

Remove obsolete environment queries

Browse source
This commit is contained in:
Remko Tronçon 2022-05-01 16:58:33 +02:00
parent ed469cbef4
commit f5df37a12f
2 changed files with 2 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/waforth.wat
View file

@ -176,8 +176,6 @@
(data (i32.const 0x20084) "\0F" "not implemented") (data (i32.const 0x20084) "\0F" "not implemented")
(data (i32.const 0x20090) "\11" "ADDRESS-UNIT-BITS") (data (i32.const 0x20090) "\11" "ADDRESS-UNIT-BITS")
(data (i32.const 0x200A2) "\0F" "/COUNTED-STRING") (data (i32.const 0x200A2) "\0F" "/COUNTED-STRING")
(data (i32.const 0x200B2) "\04" "CORE")
(data (i32.const 0x200B7) "\08" "CORE-EXT")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Built-in words ;; Built-in words
@ -997,20 +995,8 @@
(i32.store (local.get $btos) (i32.const -1)) (i32.store (local.get $btos) (i32.const -1))
(return (local.get $tos))) (return (local.get $tos)))
(else (else
(if (call $stringEqual (local.get $addr) (local.get $len) (i32.const 0x200B3) (i32.const 0x04) (; "CORE" ;)) (i32.store (local.get $bbtos) (i32.const 0))
(then (return (local.get $btos))))))
(i32.store (local.get $bbtos) (i32.const 0))
(i32.store (local.get $btos) (i32.const -1))
(return (local.get $tos)))
(else
(if (call $stringEqual (local.get $addr) (local.get $len) (i32.const 0x200B8) (i32.const 0x08) (; "CORE-EXT" ;))
(then
(i32.store (local.get $bbtos) (i32.const 0))
(i32.store (local.get $btos) (i32.const -1))
(return (local.get $tos)))
(else
(i32.store (local.get $bbtos) (i32.const 0))
(return (local.get $btos))))))))))
(unreachable)) (unreachable))
(data (i32.const 0x218ac) "\9c\18\02\00" "\0c" "ENVIRONMENT?000" "\a9\00\00\00") (data (i32.const 0x218ac) "\9c\18\02\00" "\0c" "ENVIRONMENT?000" "\a9\00\00\00")
(elem (i32.const 0xa9) $ENVIRONMENT?) (elem (i32.const 0xa9) $ENVIRONMENT?)

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

@ -1509,12 +1509,6 @@ function loadTests() {
expect(stackValues()).to.eql([255, -1]); expect(stackValues()).to.eql([255, -1]);
}); });
it("should return CORE", () => {
run(': FOO S" CORE" ENVIRONMENT? ;');
run("FOO");
expect(stackValues()).to.eql([0, -1]);
});
it("should work for unsupported queries", () => { it("should work for unsupported queries", () => {
run(': FOO S" UNSUPPORTED" ENVIRONMENT? ;'); run(': FOO S" UNSUPPORTED" ENVIRONMENT? ;');
run("FOO"); run("FOO");