| |
|
| \ forward declarations |
\ forward declarations |
| 0 Value hashsearch-map |
0 Value hashsearch-map |
| Defer hash-alloc |
Defer hash-alloc ( addr -- addr ) |
| |
|
| \ DelFix and NewFix are from bigFORTH 15jul94py |
\ DelFix and NewFix are from bigFORTH 15jul94py |
| |
|
| DO I @ |
DO I @ |
| BEGIN dup WHILE |
BEGIN dup WHILE |
| dup @ swap HashPointer DelFix |
dup @ swap HashPointer DelFix |
| REPEAT I ! |
REPEAT |
| cell +LOOP HashIndex off |
I ! |
| |
cell +LOOP |
| |
HashIndex off |
| voclink |
voclink |
| BEGIN @ dup WHILE |
BEGIN ( wordlist-link-addr ) |
| dup 0 wordlist-link - |
@ dup |
| |
WHILE ( wordlist-link ) |
| |
dup 0 wordlist-link - ( wordlist-link wid ) |
| dup wordlist-map @ hashsearch-map = |
dup wordlist-map @ hashsearch-map = |
| IF 0 swap wordlist-extend ! ELSE drop THEN |
IF ( wordlist-link wid ) |
| REPEAT drop ; |
0 swap wordlist-extend ! |
| |
ELSE |
| |
drop |
| |
THEN |
| |
REPEAT |
| |
drop ; |
| |
|
| : rehashall ( wid -- ) |
: rehashall ( wid -- ) |
| drop revealed @ |
drop revealed @ |
| |
|
| \ hash allocate and vocabulary initialization 10oct94py |
\ hash allocate and vocabulary initialization 10oct94py |
| |
|
| :noname ( hash-alloc ) ( addr -- addr ) |
:noname ( addr -- addr ) |
| HashTable 0= |
HashTable 0= |
| IF Hashlen cells reserve-mem TO HashTable |
IF Hashlen cells reserve-mem TO HashTable |
| HashTable Hashlen cells erase THEN |
HashTable Hashlen cells erase THEN |
