Module Value_perf.Perf_by_callstack

module Perf_by_callstack: Imperative_callstack_trie(sig
type t = Value_perf.perf_info 
val default : unit -> Value_perf.perf_info
end)

module Hashtbl: Hashtbl.Make(Value_perf.Call_site)
type elt = {
   mutable self : M.t;
   subtree : t;
}
type t = elt
Hashtbl.t
val empty : unit -> 'a Hashtbl.t
val reset : 'a Hashtbl.t -> unit
val create_node : M.t -> elt
val find_subtree : elt
Hashtbl.t ->
Hashtbl.key list ->
elt
val find_subtree : elt
Hashtbl.t ->
Hashtbl.key list ->
elt
val find : elt
Hashtbl.t ->
Hashtbl.key list -> M.t
val _add : elt
Hashtbl.t ->
Hashtbl.key list -> M.t -> unit
val _update : elt
Hashtbl.t ->
Hashtbl.key list -> (M.t -> M.t) -> unit