[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyMftp.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyMftp.ml
diff -u mldonkey/src/networks/donkey/donkeyMftp.ml:1.10 
mldonkey/src/networks/donkey/donkeyMftp.ml:1.11
--- mldonkey/src/networks/donkey/donkeyMftp.ml:1.10     Thu Aug 18 14:12:30 2005
+++ mldonkey/src/networks/donkey/donkeyMftp.ml  Sun Oct 16 20:42:54 2005
@@ -28,10 +28,8 @@
 open CommonGlobals
 open CommonOptions
   
-let const_int32_255 = Int64.of_int 255
 let output_int32_8 oc i =
-  output_char oc (char_of_int (Int64.to_int (
-        Int64.logand i const_int32_255)))
+  output_char oc (char_of_int (Int64.to_int (Int64.logand i 255L)))
 
 let output_int32_32 oc i =
   output_int32_8 oc i;