gforth/hash.fs - diff

Return to hash.fs CVS log

Up to [gforth] / gforth

version 1.5, 1994/11/15 15:55:36	version 1.7, 1994/12/21 14:26:24
Line 58 Variable HashIndex	Line 58 Variable HashIndex
REPEAT I !	REPEAT I !
cell +LOOP HashIndex off ;	cell +LOOP HashIndex off ;

: rehash clearhash addall ;	: re-hash clearhash addall ;
: (rehash) ( addr -- )	: (rehash) ( addr -- )
drop revealed @ IF rehash revealed off THEN ;	drop revealed @ IF re-hash revealed off THEN ;

Create hashsearch ' hash-find A, ' hash-reveal A, ' (rehash) A,	Create hashsearch ' hash-find A, ' hash-reveal A, ' (rehash) A,

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 ( -- )