17 |
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
18 |
*) |
*) |
19 |
|
|
|
let ( *.. ) x y = Int64.mul x (Int64.of_int y) |
|
|
let ( ** ) x y = Int64.mul x y |
|
20 |
let ( ++ ) x y = Int64.add x y |
let ( ++ ) x y = Int64.add x y |
21 |
let ( -- ) x y = Int64.sub x y |
let ( -- ) x y = Int64.sub x y |
22 |
|
let ( ** ) x y = Int64.mul x y |
23 |
|
let ( // ) x y = Int64.div x y |
24 |
|
let ( *.. ) x y = Int64.mul x (Int64.of_int y) |
25 |
|
|
26 |
let left64 x y = Int64.shift_left x y |
let left64 x y = Int64.shift_left x y |
27 |
let right64 x y = Int64.shift_right_logical x y |
let right64 x y = Int64.shift_right_logical x y |
28 |
let or64 x y = Int64.logor x y |
let or64 x y = Int64.logor x y |
30 |
|
|
31 |
let zero = Int64.zero |
let zero = Int64.zero |
32 |
let one = Int64.one |
let one = Int64.one |
|
let ( // ) x y = Int64.div x y |
|
|
|
|
33 |
|
|
34 |
let const_int32_255 = Int32.of_int 255 |
let bits32_64 = 0xffffffffL |
|
let const_int64_255 = Int64.of_int 255 |
|
|
|
|
|
let bits32_64 = Int64.of_string "0xffffffff" |
|
35 |
|
|
36 |
let int64_of_uint32 v = |
let int64_of_uint32 v = |
37 |
and64 (Int64.of_int32 v) bits32_64 |
and64 (Int64.of_int32 v) bits32_64 |
39 |
let int32_of_int64 v = Int64.to_int32 |
let int32_of_int64 v = Int64.to_int32 |
40 |
|
|
41 |
let megabyte = Int64.of_int (1024 * 1024) |
let megabyte = Int64.of_int (1024 * 1024) |
42 |
let kilobyte = Int64.of_int 1024 |
let kilobyte = 1024L |
43 |
let kilobytes256 = Int64.of_int (256 * 1024) |
let kilobytes256 = Int64.of_int (256 * 1024) |
44 |
let kilobytes x = kilobyte *.. x |
let kilobytes x = kilobyte *.. x |
45 |
let megabytes x = megabyte *.. x |
let megabytes x = megabyte *.. x |