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

Implement UNUSED

Browse source
This commit is contained in:
Remko Tronçon 2018-06-03 20:08:03 +02:00
parent f038f31ba0
commit d481a1cdb1
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/waforth.wat
View file

@ -1182,6 +1182,11 @@
(i32.const 2))))))
(!def_word "PICK" "$PICK")
;; 6.1.2395
(func $UNUSED (param i32)
(call $push (i32.shr_s (i32.sub (i32.const !memorySize) (get_global $here)) (i32.const 2))))
(!def_word "UNUSED" "$UNUSED")
;; 6.1.2250
(func $SOURCE-ID (param i32)
(call $push (get_global $sourceID)))