Handle HIDDEN flag

2026-02-28 13:56:27 +00:00
parent 66188f6984
commit c0b2c7d7d2
1 changed files with 6 additions and 2 deletions
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -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