gforth/hash.fs - diff

Return to hash.fs CVS log

Up to [gforth] / gforth

version 1.20, 1998/05/02 21:28:42	version 1.21, 1998/10/10 10:28:34
Line 88 Defer hash-alloc	Line 88 Defer hash-alloc

: inithash ( wid -- )	: inithash ( wid -- )
wordlist-extend	wordlist-extend
insRule @ >r insRule off hash-alloc 3 cells - dup	insRule @ >r insRule off hash-alloc 3 cells -
	dup wordlist-id
BEGIN @ dup WHILE 2dup swap (reveal REPEAT	BEGIN @ dup WHILE 2dup swap (reveal REPEAT
2drop r> insRule ! ;	2drop r> insRule ! ;

Line 150 to hashsearch-map	Line 151 to hashsearch-map
has? cross 0=	has? cross 0=
[IF]	[IF]
: make-hash	: make-hash
hashsearch-map forth-wordlist cell+ !	hashsearch-map forth-wordlist wordlist-map !
addall ;	addall ;
make-hash \ Baumsuche ist installiert.	make-hash \ Baumsuche ist installiert.
[ELSE]	[ELSE]
hashsearch-map forth-wordlist cell+ !	hashsearch-map forth-wordlist wordlist-map !
[THEN]	[THEN]

\ for ec version display that vocabulary goes hashed	\ for ec version display that vocabulary goes hashed