Symtable (ocaml.Symtable)

module Compunit : sig ... end

module Predef : sig ... end

module Global : sig ... end

val init : unit -> unit

val patch_object : 
  (char, Stdlib.Bigarray.int8_unsigned_elt, Stdlib.Bigarray.c_layout)
    Stdlib.Bigarray.Array1.t ->
  (Cmo_format.reloc_info * int) list ->
  unit

val require_primitive : string -> unit

val initial_global_table : unit -> Stdlib.Obj.t array

val output_global_map : out_channel -> unit

val output_primitive_names : out_channel -> unit

val output_primitive_table : out_channel -> unit

val data_global_map : unit -> Stdlib.Obj.t

val data_primitive_names : unit -> string list

val transl_const : Lambda.structured_constant -> Stdlib.Obj.t

val init_toplevel : unit -> (string * Stdlib.Digest.t option) list

val update_global_table : unit -> unit

val get_global_value : Global.t -> Stdlib.Obj.t

val is_global_defined : Global.t -> bool

val assign_global_value : Global.t -> Stdlib.Obj.t -> unit

val get_global_position : Global.t -> int

val check_global_initialized : (Cmo_format.reloc_info * int) list -> unit

val initialized_compunits : 
  (Cmo_format.reloc_info * int) list ->
  Cmo_format.compunit list

val required_compunits : 
  (Cmo_format.reloc_info * int) list ->
  Cmo_format.compunit list

type global_map

val empty_global_map : global_map

val current_state : unit -> global_map

val restore_state : global_map -> unit

val hide_additions : global_map -> unit

val filter_global_map : (Global.t -> bool) -> global_map -> global_map

val iter_global_map : (Global.t -> int -> unit) -> global_map -> unit

val is_defined_in_global_map : global_map -> Global.t -> bool

type error =

| Undefined_global of Global.t
| Unavailable_primitive of string
| Wrong_vm of string
| Uninitialized_global of Global.t

exception Error of error

val report_error : error Format_doc.format_printer

val report_error_doc : error Format_doc.printer

val reset : unit -> unit