gforth/hash.fs - diff

Return to hash.fs CVS log

Up to [gforth] / gforth

version 1.15, 1996/07/16 20:57:10	version 1.16, 1996/10/20 20:35:24
Line 111 Create hashsearch-map ( -- wordlist-map	Line 111 Create hashsearch-map ( -- wordlist-map

: (initvoc) ( addr -- )	: (initvoc) ( addr -- )
cell+ dup @ 0< IF drop EXIT THEN	cell+ dup @ 0< IF drop EXIT THEN
insRule @ >r insRule off hash-alloc	dup 2 cells - @ hashsearch-map <> IF drop EXIT THEN
3 cells - hashsearch-map over cell+ ! dup	insRule @ >r insRule off hash-alloc 3 cells - dup
BEGIN @ dup WHILE 2dup swap (reveal REPEAT	BEGIN @ dup WHILE 2dup swap (reveal REPEAT
2drop r> insRule ! ;	2drop r> insRule ! ;

' (initvoc) ' 'initvoc >body !	' (initvoc) IS 'initvoc

\ Hash-Find 01jan93py	\ Hash-Find 01jan93py

addall \ Baum aufbauen	: make-hash
\ Baumsuche ist installiert.	Root hashsearch-map context @ cell+ !
	Forth hashsearch-map context @ cell+ !
	addall \ Baum aufbauen
	;

	make-hash \ Baumsuche ist installiert.

: hash-cold ( -- ) Defers 'cold	: hash-cold ( -- ) Defers 'cold
HashPointer off 0 TO HashTable HashIndex off	HashPointer off 0 TO HashTable HashIndex off