sig
type t = {
mutable nb_calls : int;
mutable nb_effective_calls : int;
mutable total_duration : float;
mutable since : float list;
}
val create : unit -> Value_perf.Call_info.t
val main : Value_perf.Call_info.t
val total_duration : float -> Value_perf.Call_info.t -> float
val print :
Format.formatter ->
Kernel_function.t -> Value_perf.Call_info.t -> float -> unit
val cmp : float -> Value_perf.Call_info.t -> Value_perf.Call_info.t -> int
val filter_and_sort :
(('a -> unit) -> 'b) ->
('a -> Value_perf.Call_info.t) -> 'c -> float -> 'a list
val before_call : Value_perf.Call_info.t -> float -> unit
val after_call : Value_perf.Call_info.t -> float -> unit
end