Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |