/[mldonkey]/mldonkey/src/networks/donkey/donkeyMftp.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyMftp.ml

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

revision 1.10 by spiralvoice, Thu Aug 18 14:12:30 2005 UTC revision 1.11 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC
# Line 28  open CommonTypes Line 28  open CommonTypes
28  open CommonGlobals  open CommonGlobals
29  open CommonOptions  open CommonOptions
30        
 let const_int32_255 = Int64.of_int 255  
31  let output_int32_8 oc i =  let output_int32_8 oc i =
32    output_char oc (char_of_int (Int64.to_int (    output_char oc (char_of_int (Int64.to_int (Int64.logand i 255L)))
         Int64.logand i const_int32_255)))  
33    
34  let output_int32_32 oc i =  let output_int32_32 oc i =
35    output_int32_8 oc i;    output_int32_8 oc i;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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