sig
  val code : Gccjit.result -> string -> ('a -> 'b) Ctypes.fn -> 'a -> 'b
  val global : Gccjit.result -> string -> 'a Ctypes.typ -> 'a Ctypes.ptr
  val release : Gccjit.result -> unit
end