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

Implement cold start

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:20:11 +00:00
parent 2fafd02e28
commit ca6ac0f9bf
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
wipforth.wat
View File

@@ -1651,6 +1651,10 @@
;; => 0x28 bytes ;; => 0x28 bytes
;; Cold start
(data (i32.const 0x0ba0) "\78\0b\00\00") ;; QUIT
;; The trampoline is a workaround for WebAssembly's lack of indirect ;; The trampoline is a workaround for WebAssembly's lack of indirect
;; jumps and code addresses. Instead of jumping into the next ;; jumps and code addresses. Instead of jumping into the next
;; codeword, NEXT sets the $fn global to the function index of the ;; codeword, NEXT sets the $fn global to the function index of the
@@ -1668,8 +1672,7 @@
end) end)
(func (export "reset") (func (export "reset")
i32.const 0xf000 global.set $sp ;; Set the stack pointer i32.const 0xf000 global.set $sp ;; Set the stack pointer
;; i32.const 0x???? global.set $ip ;; Set the IP to point at QUIT i32.const 0x0ba0 global.set $ip ;; Set the IP to the cold start
;; call $next call $next
;; call $trampoline call $trampoline))
))