/[mldonkey]/mldonkey/src/utils/lib/int64ops.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/int64ops.ml

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

revision 1.1 by mldonkey, Sun Mar 7 09:34:28 2004 UTC revision 1.2 by spiralvoice, Sun Oct 16 20:42:55 2005 UTC
# Line 17  Line 17 
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
# Line 28  let and64 x y = Int64.logand x y Line 30  let and64 x y = Int64.logand 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
# Line 42  let int64_of_uint32 v = Line 39  let int64_of_uint32 v =
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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