module CamlinternalOO: sig end
Run-time support for objects and classes.
All functions in this module are for system use only, not for the
casual user.
type label
val new_method : string -> label val public_method_label : string -> label
type table
type meth
type t
type obj
val new_variable : table -> string -> int val get_variable : table -> string -> int val get_method_label : table -> string -> label val get_method : table -> label -> meth val set_method : table -> label -> meth -> unit val narrow : table -> string list -> string list -> string list -> unit val widen : table -> unit val add_initializer : table -> (obj -> unit) -> unit val create_table : string list -> table val init_class : table -> unit
val copy : (< .. > as 'a) -> 'a val create_object : table -> obj val create_object_opt : obj -> table -> obj val run_initializers : obj -> table -> unit val run_initializers_opt : obj -> obj -> table -> obj val create_object_and_run_initializers : obj -> table -> obj val send : obj -> label -> t
type params = {
|
mutable compact_table : bool ; |
|
mutable copy_parent : bool ; |
|
mutable clean_when_copying : bool ; |
|
mutable retry_count : int ; |
|
mutable bucket_small_size : int ; |
}
val params : params
type stats = {
|
classes : int ; |
|
labels : int ; |
|
methods : int ; |
|
inst_vars : int ; |
|
buckets : int ; |
|
distrib : int array ; |
|
small_bucket_count : int ; |
|
small_bucket_max : int ; |
}
|