Changes by: Aleksey Nogin (nogin at metaprl.org)
Date: 2007-03-20 12:40:53 -0700 (Tue, 20 Mar 2007)
Revision: 10253
Log message:

      With the current hash_data approach, even a simple
     
     let new_digest = old_digest lxor (Array.unsafe_get hash_data code)
     
     is good enough; there is no need for
     
     let new_digest = (old_digest lsl 3) lxor (old_digest lsr 1) lxor (Array.unsafe_get hash_data code)