Module Profile_tactic

Ltac profiling primitives

val do_profile_gen : ('a -> Pp.t option) -> 'a -> ?count_call:bool -> 'b Proofview.tactic -> 'b Proofview.tactic
val set_profiling : bool -> unit
val get_profiling : unit -> bool
val print_results : cutoff:float option -> 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
val set_get_printing_width : (unit -> int) -> unit

Internal hook