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