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

Compile QUIT

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:19:56 +00:00
parent bf65c7470a
commit 2fafd02e28
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
wipforth.wat
View File

@@ -1638,6 +1638,19 @@
;; : QUIT R0 RSP! INTERPRET BRANCH [-8] ; ;; : QUIT R0 RSP! INTERPRET BRANCH [-8] ;
(data (i32.const 0x0b78)
"\b4\0a\00\00"
"\04QUIT\00\00\00"
"\00\00\00\00"
"\10\05\00\00" ;; R0
"\50\04\00\00" ;; RSP!
"\c4\0a\00\00" ;; INTERPRET
"\a4\04\00\00" ;; BRANCH
"\f8\ff\ff\ff" ;; -8
"\0c\04\00\00") ;; EXIT
;; => 0x28 bytes
;; 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