gforth/hash.fs - diff

Return to hash.fs CVS log

Up to [gforth] / gforth

version 1.19, 1997/09/13 12:04:56	version 1.20, 1998/05/02 21:28:42
Line 175 has? cross 0=	Line 175 has? cross 0=
base @ >r hex HashTable Hashlen 0	base @ >r hex HashTable Hashlen 0
DO cr i 2 .r ." : " dup i cells +	DO cr i 2 .r ." : " dup i cells +
BEGIN @ dup WHILE	BEGIN @ dup WHILE
dup cell+ @ head>string type space REPEAT drop	dup cell+ @ name>string type space REPEAT drop
LOOP drop r> base ! ;	LOOP drop r> base ! ;

\ \ this stuff is for evaluating the hash function	\ \ this stuff is for evaluating the hash function