/[mldonkey]/mldonkey/src/utils/cdk/zlib.ml
ViewVC logotype

Diff of /mldonkey/src/utils/cdk/zlib.ml

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

revision 1.4 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC revision 1.5 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC
# Line 117  let gzip_string ?(level = 6) inbuf = Line 117  let gzip_string ?(level = 6) inbuf =
117    let write_int32 wbuf n =    let write_int32 wbuf n =
118      let r = ref n in      let r = ref n in
119      for i = 1 to 4 do      for i = 1 to 4 do
120        Buffer.add_char wbuf (char_of_int (Int32.to_int (Int32.logand !r (Int32.of_int 255))));        Buffer.add_char wbuf (char_of_int (Int32.to_int (Int32.logand !r 0xffl)));
121        r := Int32.shift_right_logical !r 8        r := Int32.shift_right_logical !r 8
122      done      done
123    in    in

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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