Return to hash.fs CVS log | Up to [gforth] / gforth |
version 1.29, 2002/11/24 19:49:45 | version 1.30, 2002/12/07 18:07:19 |
---|---|
Line 166 const Create (hashsearch-map) | Line 166 const Create (hashsearch-map) |
[ [IFUNDEF] allocate ] | [ [IFUNDEF] allocate ] |
ABORT" no more space in hashtable" | ABORT" no more space in hashtable" |
[ [ELSE] ] | [ [ELSE] ] |
HashPop @ 1 hashbits lshift >= or | HashPop @ hashlen 2* >= or |
IF hashdouble THEN | IF hashdouble THEN |
[ [THEN] ] ; is hash-alloc | [ [THEN] ] ; is hash-alloc |