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