[gforth] / gforth / hash.fs  

gforth: gforth/hash.fs

Diff for /gforth/hash.fs between version 1.5 and 1.7

version 1.5, Tue Nov 15 15:55:36 1994 UTC version 1.7, Wed Dec 21 14:26:24 1994 UTC
Line 58 
Line 58 
         REPEAT  I !          REPEAT  I !
     cell +LOOP  HashIndex off ;      cell +LOOP  HashIndex off ;
   
 : rehash  clearhash addall ;  : re-hash  clearhash addall ;
 : (rehash) ( addr -- )  : (rehash) ( addr -- )
   drop revealed @ IF  rehash revealed off  THEN ;    drop revealed @ IF  re-hash revealed off  THEN ;
   
 Create hashsearch  ' hash-find A, ' hash-reveal A, ' (rehash) A,  Create hashsearch  ' hash-find A, ' hash-reveal A, ' (rehash) A,
   
Line 93 
Line 93 
   
 : hash-cold  ( -- ) Defers 'cold  : hash-cold  ( -- ) Defers 'cold
   HashPointer off  HashTable off  HashIndex off    HashPointer off  HashTable off  HashIndex off
   addall ;    voclink
     BEGIN  @ dup @  WHILE
            dup cell - @ >r
            dup 'initvoc
            r> over cell - !
     REPEAT  drop ;
 ' hash-cold IS 'cold  ' hash-cold IS 'cold
   
 : .words  ( -- )  : .words  ( -- )

Generate output suitable for use with a patch program
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help