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

Define HIDDEN

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-28 18:53:32 +00:00
parent 0645640f20
commit 7c9e99d666
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
wipforth.wat
View File

@@ -1820,6 +1820,24 @@
;; => 0x48 bytes ;; => 0x48 bytes
;; : HIDDEN 4+ DUP C@ 32 XOR SWAP C! ;
(data (i32.const 0x0c98)
"\50\0c\00\00"
"\06HIDDEN\00"
"\00\00\00\00"
"\a8\02\00\00" ;; 4+
"\08\02\00\00" ;; DUP
"\fc\03\00\00" ;; C@
"\18\04\00\00" ;; LIT
"\20\00\00\00" ;; 32
"\a4\03\00\00" ;; XOR
"\28\02\00\00" ;; SWAP
"\f0\03\00\00" ;; C!
"\0c\04\00\00") ;; EXIT
;; => 0x34 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