![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hash.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |