Module Translobj

val oo_prim : string -> Lambda.lambda

val share : Lambda.structured_constant -> 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