V1.CPtr
type 'a t = 'a cptr
val null : 'a kind -> 'a t
val create : ?default:'a -> 'a kind -> 'a t
val free : 'a t -> unit
val get : 'a t -> 'a
val set : 'a t -> 'a -> unit
val cast : 'b kind -> 'a t -> 'b t
val add : 'a t -> int -> 'a t
val sub : 'a t -> int -> 'a t
val diff : 'a t -> 'a t -> int