Merge pull request #282 from yallop/restore-of_int64

Restore Signed.S.(of|to)_int64.

src/ctypes/ctypes_ptr.ml

@@ -32,6 +32,9 @@ struct
   let of_nativeint x = x
   let to_nativeint x = x
 
+  let of_int64 = Int64.to_nativeint
+  let to_int64  = Int64.of_nativeint
+
   let null = zero
 end
 

src/ctypes/signed.ml

@@ -15,6 +15,8 @@ module type S = sig
   val shift_right_logical : t -> int -> t
   val of_nativeint : nativeint -> t
   val to_nativeint : t -> nativeint
+  val of_int64 : int64 -> t
+  val to_int64 : t -> int64
 end
 
 module type Basics = sig
@@ -55,6 +57,8 @@ struct
   module Infix = MakeInfix(Int32)
   let of_nativeint = Nativeint.to_int32
   let to_nativeint = Nativeint.of_int32
+  let of_int64 = Int64.to_int32
+  let to_int64 = Int64.of_int32
 end
 
 module Int64 = 

src/ctypes/signed.mli

@@ -31,6 +31,12 @@ module type S = sig
 
   val to_nativeint : t -> nativeint
   (** Convert the given signed integer to a nativeint value. *)
+
+  val of_int64 : int64 -> t
+  (** Convert the given int64 value to a signed integer. *)
+
+  val to_int64 : t -> int64
+  (** Convert the given signed integer to an int64 value. *)
 end
 (** Signed integer operations *)