gforth/hash.fs - diff

Return to hash.fs CVS log

Up to [gforth] / gforth

version 1.29, 2002/11/24 19:49:45	version 1.35, 2006/12/31 13:39:13
Line 1	Line 1
\ Hashed dictionaries 15jul94py	\ Hashed dictionaries 15jul94py

\ Copyright (C) 1995,1998,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2000,2003,2006 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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

Line 193 has? cross 0=	Line 193 has? cross 0=
\ REPEAT drop	\ REPEAT drop
[ has? ec [IF] ] ." Done" cr [ [THEN] ] ;	[ has? ec [IF] ] ." Done" cr [ [THEN] ] ;

' hash-cold INIT8 chained	:noname ( -- )
	defers 'cold
	hash-cold
	; is 'cold

: .words ( -- )	: .words ( -- )
base @ >r hex HashTable Hashlen 0	base @ >r hex HashTable Hashlen 0