cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Move definition of $execute function

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-28 13:09:22 +00:00
parent fa5a6dbb1d
commit aceeebd3ff
1 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
wipforth.wat
View File

@@ -535,6 +535,13 @@
global.set $ip global.set $ip
call $next) call $next)
(func $execute
call $pop
global.set $cfa
global.get $cfa
i32.load
global.set $fn)
;; Return and parameter stack primitives ;; Return and parameter stack primitives
(func $tor (func $tor
@@ -660,15 +667,6 @@
global.set $ip global.set $ip
call $next) call $next)
;; Execution
(func $execute
call $pop
global.set $cfa
global.get $cfa
i32.load
global.set $fn)
;; The codewords function table must contain every codeword we want ;; The codewords function table must contain every codeword we want
;; to be able to run, as it's indices into this table that can be ran ;; to be able to run, as it's indices into this table that can be ran
;; with call_indirect in the $trampoline loop. Fantastically, there ;; with call_indirect in the $trampoline loop. Fantastically, there