Diff for /gforth/hash.fs between versions 1.16 and 1.17

version 1.16, 1996/10/20 20:35:24 version 1.17, 1996/11/15 21:19:29
Line 103  Create hashsearch-map ( -- wordlist-map Line 103  Create hashsearch-map ( -- wordlist-map
   HashTable Hashlen cells erase THEN    HashTable Hashlen cells erase THEN
   HashIndex @ over !  1 HashIndex +!    HashIndex @ over !  1 HashIndex +!
   HashIndex @ Hashlen >=    HashIndex @ Hashlen >=
   IF  clearhash    IF  HashTable >r clearhash
       1 hashbits 1+ dup  to hashbits  lshift  to hashlen        1 hashbits 1+ dup  to hashbits  lshift  to hashlen
       HashTable free        r> free >r  0 to HashTable
       addall        addall r> throw
   THEN ;    THEN ;
   
 : (initvoc) ( addr -- )  : (initvoc) ( addr -- )

Removed from v.1.16  
changed lines
  Added in v.1.17


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>