Module Value_perf.Call_info

module Call_info: sig .. end

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