module Stats: sig .. end
Utilities for maintaining timing statistics
val reset : bool -> unit
Resets all the timings. Invoke with "true" if you want to switch to using
the hardware performance counters from now on. You get an exception if
there are not performance counters available
exception NoPerfCount
val has_performance_counters : unit -> bool
Check if we have performance counters
val sample_pentium_perfcount_20 : unit -> int
Sample the current cycle count, in megacycles.
val sample_pentium_perfcount_10 : unit -> int
Sample the current cycle count, in kilocycles.
val time : string -> ('a -> 'b) -> 'a -> 'b
Time a function and associate the time with the given string. If some
timing information is already associated with that string, then accumulate
the times. If this function is invoked within another timed function then
you can have a hierarchy of timings
val repeattime : float -> string -> ('a -> 'b) -> 'a -> 'b
repeattime is like time but runs the function several times until the total
running time is greater or equal to the first argument. The total time is
then divided by the number of times the function was run.
val print : Pervasives.out_channel -> string -> unit
Print the current stats preceeded by a message
val lastTime : float Pervasives.ref
Time a function and set lastTime to the time it took
val timethis : ('a -> 'b) -> 'a -> 'b