1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
From Stdlib Require Import ZArith.
Ltac profile_constr tac :=
let dummy := match goal with _ => reset ltac profile; start ltac profiling end in
let ret := match goal with _ => tac () end in
let dummy := match goal with _ => stop ltac profiling; show ltac profile end in
pose 1.
Ltac slow _ := eval vm_compute in (Z.div_eucl, Z.div_eucl, Z.div_eucl, Z.div_eucl, Z.div_eucl).
Ltac manipulate_ltac_prof :=
start ltac profiling;
reset ltac profile;
try ((idtac + reset ltac profile + idtac); fail);
try ((idtac + start ltac profiling + idtac); fail);
try ((idtac + stop ltac profiling + idtac); fail).
Goal True.
start ltac profiling.
reset ltac profile.
manipulate_ltac_prof.
reset ltac profile.
stop ltac profiling.
Set Warnings Append "+profile-invalid-stack-no-self".
time profile_constr slow.
show ltac profile cutoff 0.
show ltac profile "slow".
Abort.
|
