Return to hash.fs CVS log | Up to [gforth] / gforth |
version 1.5, 1994/11/15 15:55:36 | version 1.6, 1994/11/24 16:55:15 |
---|---|
Line 93 addall \ Baum aufbauen | Line 93 addall \ Baum aufbauen |
: hash-cold ( -- ) Defers 'cold | : hash-cold ( -- ) Defers 'cold |
HashPointer off HashTable off HashIndex off | HashPointer off HashTable off HashIndex off |
addall ; | voclink |
BEGIN @ dup @ WHILE | |
dup cell - @ >r | |
dup 'initvoc | |
r> over cell - ! | |
REPEAT drop ; | |
' hash-cold IS 'cold | ' hash-cold IS 'cold |
: .words ( -- ) | : .words ( -- ) |