/[mldonkey]/mldonkey/src/utils/lib/md4.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/md4.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by spiralvoice, Fri Aug 26 21:12:23 2005 UTC revision 1.15 by spiralvoice, Sun Oct 16 20:42:55 2005 UTC
# Line 387  module Make(M: sig Line 387  module Make(M: sig
387            
388            
389      let up s = int_of_char s.[0]      let up s = int_of_char s.[0]
390      let up2 s = (int_of_char s.[0])*256+(int_of_char s.[1])      let up2 s = ((int_of_char s.[0]) lsl 8) lor (int_of_char s.[1])
391      let up3 s = (int_of_char s.[0])*65536+(int_of_char s.[1])*256+(int_of_char s.[2])      let up3 s = ((int_of_char s.[0]) lsl 16) lor
392                    ((int_of_char s.[1]) lsl 8) lor (int_of_char s.[2])
393        
394      let enabled = true      let enabled = true
395    end    end

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26