version 1.16, 1996/10/20 20:35:24
|
version 1.17, 1996/11/15 21:19:29
|
Line 103 Create hashsearch-map ( -- wordlist-map
|
Line 103 Create hashsearch-map ( -- wordlist-map
|
HashTable Hashlen cells erase THEN |
HashTable Hashlen cells erase THEN |
HashIndex @ over ! 1 HashIndex +! |
HashIndex @ over ! 1 HashIndex +! |
HashIndex @ Hashlen >= |
HashIndex @ Hashlen >= |
IF clearhash |
IF HashTable >r clearhash |
1 hashbits 1+ dup to hashbits lshift to hashlen |
1 hashbits 1+ dup to hashbits lshift to hashlen |
HashTable free |
r> free >r 0 to HashTable |
addall |
addall r> throw |
THEN ; |
THEN ; |
|
|
: (initvoc) ( addr -- ) |
: (initvoc) ( addr -- ) |