Tracetype traced_function = {path : Path.t;closure : Stdlib.Obj.t;actual_code : codeptr;instrumented_fun : codeptr -> Stdlib.Obj.t -> Stdlib.Obj.t -> Stdlib.Obj.t;}val traced_functions : traced_function list refval is_traced : Stdlib.Obj.t -> Path.t optionval get_code_pointer : Stdlib.Obj.t -> codeptrval set_code_pointer : Stdlib.Obj.t -> codeptr -> unitval instrument_closure :
Env.t ->
Longident.t ->
Stdlib.Format.formatter ->
Types.type_expr ->
codeptr ->
Stdlib.Obj.t ->
Stdlib.Obj.t ->
Stdlib.Obj.tval print_trace : Stdlib.Obj.t -> Stdlib.Obj.t -> Stdlib.Obj.t