Compile NAME-LEN

2026-02-27 16:17:49 +00:00
parent 938bd98ef6
commit a4e7673b7a
1 changed files with 13 additions and 0 deletions
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1238,6 +1238,19 @@

 ;; : NAME-LEN 4+ C@ 31 AND ;

+ (data (i32.const 0x0760)
+       "\e8\06\00\00"
+       "\08NAME-LEN\00\00\00"
+       "\00\00\00\00"
+       "\a8\02\00\00"  ;; 4+
+       "\fc\03\00\00"  ;; C@
+       "\18\04\00\00"  ;; LIT
+       "\1f\00\00\00"  ;; 31
+       "\8c\03\00\00"  ;; AND
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x2c bytes
+
 ;; : FIND ( len -- entry )
 ;;   LATEST @                      \ Initial entry
 ;;