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

Comments

Browse source
This commit is contained in:
Remko Tronçon 2022-12-27 17:03:29 +01:00
parent 2a6d7618e6
commit 8b85b7f787
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/waforth.wat
View file

@ -112,6 +112,8 @@
(br_if $endLoop (i32.eqz (local.get $wordLen)))
;; Find the name in the dictionary
;; Besides the code address (aka token), also returns a constant whether the word
;; was found (!= 0), and if so, whether it was immediate (1) or not (-1).
(local.set $findToken (local.set $findResult (call $find (local.get $wordAddr) (local.get $wordLen))))
(if (local.get $findResult)
(then