module Call_info:sig
..end
type
t = {
|
mutable nb_calls : |
|
mutable nb_effective_calls : |
|
mutable total_duration : |
|
mutable since : |
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