11
11
(***********************************************************************)
15
15
external global_data : unit -> Obj.t array = "caml_get_global_data"
16
16
external realloc_global_data : int -> unit = "caml_realloc_global"
17
17
external static_alloc : int -> string = "caml_static_alloc"
18
18
external static_free : string -> unit = "caml_static_free"
19
19
external static_resize : string -> int -> string = "caml_static_resize"
21
22
type closure = unit -> Obj.t
22
23
external reify_bytecode : string -> int -> closure = "caml_reify_bytecode"
23
24
external invoke_traced_function : Obj.t -> Obj.t -> Obj.t -> Obj.t
24
25
= "caml_invoke_traced_function"
25
26
external get_section_table : unit -> (string * Obj.t) list