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

Fix FIND

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 22:40:15 +00:00
parent c57792f7c7
commit 4f50321c26
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
wipforth.wat
View File

@@ -1255,16 +1255,16 @@
;; LATEST @ \ Initial entry ;; LATEST @ \ Initial entry
;; ;;
;; TUCK NAME-LEN \ Get name length ;; TUCK NAME-LEN \ Get name length
;; OVER <> 0BRANCH [52] \ Check for length mismatch ;; OVER = 0BRANCH [52] \ Check for length mismatch
;; OVER 5 + \ Get name address ;; OVER 5 + \ Get name address
;; OVER SWAP WORDBUF STRING= \ Check if name matches ;; OVER SWAP WORDBUF STRING= \ Check if name matches
;; 0BRANCH [12] ;; 0BRANCH [12]
;; DROP EXIT ;; DROP EXIT
;; ;;
;; \ Name doesn't match ;; \ Name doesn't match
;; OVER @ 0= 0BRANCH [12] \ Check for nil link ;; OVER @ 0<> 0BRANCH [20] \ Check for nil link
;; DROP EXIT ;; SWAP @ BRANCH [-104] \ Follow link and loop
;; SWAP @ BRANCH [-112] \ Follow link and loop ;; 2DROP FALSE \ Return false
;; ; ;; ;
(data (i32.const 0x078c) (data (i32.const 0x078c)
@@ -1276,7 +1276,7 @@
"\f0\05\00\00" ;; TUCK "\f0\05\00\00" ;; TUCK
"\70\07\00\00" ;; NAME-LEN "\70\07\00\00" ;; NAME-LEN
"\54\02\00\00" ;; OVER "\54\02\00\00" ;; OVER
"\08\03\00\00" ;; <> "\fc\02\00\00" ;; =
"\b4\04\00\00" ;; 0BRANCH "\b4\04\00\00" ;; 0BRANCH
"\30\00\00\00" ;; 52 "\30\00\00\00" ;; 52
"\54\02\00\00" ;; OVER "\54\02\00\00" ;; OVER
@@ -1293,15 +1293,15 @@
"\0c\04\00\00" ;; EXIT "\0c\04\00\00" ;; EXIT
"\54\02\00\00" ;; OVER "\54\02\00\00" ;; OVER
"\cc\03\00\00" ;; @ "\cc\03\00\00" ;; @
"\44\03\00\00" ;; 0= "\50\03\00\00" ;; 0<>
"\b4\04\00\00" ;; 0BRANCH "\b4\04\00\00" ;; 0BRANCH
"\0c\00\00\00" ;; 12 "\14\00\00\00" ;; 20
"\18\02\00\00" ;; DROP
"\0c\04\00\00" ;; EXIT
"\28\02\00\00" ;; SWAP "\28\02\00\00" ;; SWAP
"\cc\03\00\00" ;; @ "\cc\03\00\00" ;; @
"\a4\04\00\00" ;; BRANCH "\a4\04\00\00" ;; BRANCH
"\90\ff\ff\ff" ;; -112 "\98\ff\ff\ff" ;; -104
"\74\02\00\00" ;; 2DROP
"\48\05\00\00" ;; FALSE
"\0c\04\00\00") ;; EXIT "\0c\04\00\00") ;; EXIT
;; => 0x90 bytes ;; => 0x90 bytes