[Mldonkey-commits] Changes to mldonkey/src/utils/lib/md4.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/md4.ml
diff -u mldonkey/src/utils/lib/md4.ml:1.14 mldonkey/src/utils/lib/md4.ml:1.15
--- mldonkey/src/utils/lib/md4.ml:1.14  Fri Aug 26 21:12:23 2005
+++ mldonkey/src/utils/lib/md4.ml       Sun Oct 16 20:42:55 2005
@@ -387,8 +387,9 @@
     
     
     let up s = int_of_char s.[0]
-    let up2 s = (int_of_char s.[0])*256+(int_of_char s.[1])
-    let up3 s = (int_of_char s.[0])*65536+(int_of_char s.[1])*256+(int_of_char 
s.[2])
+    let up2 s = ((int_of_char s.[0]) lsl 8) lor (int_of_char s.[1])
+    let up3 s = ((int_of_char s.[0]) lsl 16) lor 
+                ((int_of_char s.[1]) lsl 8) lor (int_of_char s.[2])
   
     let enabled = true
   end