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

Export state symbols

Browse source
This commit is contained in:
Remko Tronçon 2019-03-08 22:05:34 +01:00
parent b23d7ec689
commit 6a3c1d96b4
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/waforth.wat
View file

@ -815,7 +815,7 @@
(!def_word "FIND" "$find")
;; 6.1.1650
(func $here
(func $here (export "HERE")
(i32.store (get_global $tos) (get_global $here))
(set_global $tos (i32.add (get_global $tos) (i32.const 4))))
(!def_word "HERE" "$here")
@ -1907,6 +1907,11 @@ EOF
(call $shell_emit (i32.const 10))
(get_local $result))
;; Used for experiments
(func (export "set_state") (param $latest i32) (param $here i32)
(set_global $latest (get_local $latest))
(set_global $here (get_local $here)))
(table (export "table") !tableStartIndex anyfunc)
(global $latest (mut i32) (i32.const !dictionaryLatest))
(global $here (mut i32) (i32.const !dictionaryTop))