Up

module Translobj

: sig
#
val oo_prim : string -> Lambda.lambda
#
val meth : Lambda.lambda -> string -> Lambda.lambda * Lambda.lambda list
#
val reset_labels : unit -> unit
#
val transl_label_init : Lambda.lambda -> Lambda.lambda
#
val transl_store_label_init : Ident.t -> int -> ('a -> Lambda.lambda) -> 'a -> int * Lambda.lambda
#
val method_ids : Lambda.IdentSet.t Pervasives.ref
#
val oo_wrap : Env.t -> bool -> ('a -> Lambda.lambda) -> 'a -> Lambda.lambda
#
val oo_add_class : Ident.t -> Env.t * bool
#
val reset : unit -> unit
end