diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-12-18 18:57:56 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-18 18:57:56 +0100 |
commit | 7e2f9861f3d38829baf246883e4925d48c9e2998 (patch) | |
tree | 17407cece435ac715b7918e1d5abf5e480ae74f6 /test-suite/output-modulo-time | |
parent | 6af0969228e57c611e5a0876efe613055de342cd (diff) | |
parent | a60a49f545499f29f067148668b8ec1bc7b55895 (diff) |
Merge PR #6406: Make [abstract] nodes show up in the Ltac profile
Diffstat (limited to 'test-suite/output-modulo-time')
-rw-r--r-- | test-suite/output-modulo-time/ltacprof_abstract.out | 14 | ||||
-rw-r--r-- | test-suite/output-modulo-time/ltacprof_abstract.v | 8 |
2 files changed, 22 insertions, 0 deletions
diff --git a/test-suite/output-modulo-time/ltacprof_abstract.out b/test-suite/output-modulo-time/ltacprof_abstract.out new file mode 100644 index 000000000..c60c5abdd --- /dev/null +++ b/test-suite/output-modulo-time/ltacprof_abstract.out @@ -0,0 +1,14 @@ +total time: 0.964s + + tactic local total calls max +────────────────────────────────────────┴──────┴──────┴───────┴─────────┘ +─sleep' -------------------------------- 100.0% 100.0% 1 0.964s +─abstract (sleep; constructor) --------- 0.0% 100.0% 1 0.964s +─constructor --------------------------- 0.0% 0.0% 1 0.000s + + tactic local total calls max +────────────────────────────────────────┴──────┴──────┴───────┴─────────┘ +─abstract (sleep; constructor) --------- 0.0% 100.0% 1 0.964s + ├─sleep' ------------------------------ 100.0% 100.0% 1 0.964s + └─constructor ------------------------- 0.0% 0.0% 1 0.000s + diff --git a/test-suite/output-modulo-time/ltacprof_abstract.v b/test-suite/output-modulo-time/ltacprof_abstract.v new file mode 100644 index 000000000..10a76309e --- /dev/null +++ b/test-suite/output-modulo-time/ltacprof_abstract.v @@ -0,0 +1,8 @@ +(* -*- coq-prog-args: ("-profile-ltac-cutoff" "0.0") -*- *) +Ltac sleep' := do 100 (do 100 (do 100 idtac)). +Ltac sleep := sleep'. + +Theorem x : True. +Proof. + idtac. idtac. abstract (sleep; constructor). +Defined. |