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

Handle HIDDEN flag

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-28 13:56:27 +00:00
parent 66188f6984
commit c0b2c7d7d2
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
wipforth.wat
View File

@@ -1291,7 +1291,11 @@
;; => 0x78 bytes
;; : NAME-LEN 4+ C@ 31 AND ;
;; : NAME-LEN 4+ C@ 63 AND ;
;; The 0x3f mask we use here includes the hidden flag, so that FIND
;; never matches a hidden entry as its length will appear to be
;; greater than the maximum length returned by WORD.
(data (i32.const 0x0760)
"\e8\06\00\00"
@@ -1300,7 +1304,7 @@
"\a8\02\00\00" ;; 4+
"\fc\03\00\00" ;; C@
"\18\04\00\00" ;; LIT
"\1f\00\00\00" ;; 31
"\3f\00\00\00" ;; 63
"\8c\03\00\00" ;; AND
"\0c\04\00\00") ;; EXIT