Module Ltac_plugin.Profile_ltac

val do_profile : ('a * Tacexpr.ltac_call_kind) list -> ?⁠count_call:bool -> 'b Proofview.tactic -> 'b Proofview.tactic
val do_profile_gen : ('a -> Pp.t option) -> 'a -> ?⁠count_call:bool -> 'b Proofview.tactic -> 'b Proofview.tactic
val set_profiling : bool -> unit
val print_results : cutoff:float -> unit
val print_results_tactic : string -> unit
val reset_profile : unit -> unit
val restart_timer : string option -> unit
val finish_timing : prefix:string -> string option -> unit
val do_print_results_at_close : unit -> unit
type treenode = {
name : string;
total : float;
local : float;
ncalls : int;
max_total : float;
children : treenode CString.Map.t;
}
val get_local_profiling_results : unit -> treenode
val feedback_results : treenode -> unit