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