type t = unit C.ptr
val t : t C.typval create : (int -> t G.return) G.resultval destroy : (t -> unit G.return) G.resultval set_capacity : (t -> int -> unit G.return) G.resultval get_usage : (t -> int G.return) G.resultval get_pinned_usage : (t -> int G.return) G.result