From e1df1b77f8c72636b6e347f41f6f38976c86e909 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <Enrico.Tassi@inria.fr>
Date: Wed, 28 Sep 2016 16:32:42 +0200
Subject: -profile-ltac-cutoff alike Show Ltac Profile Cutoff (#5100)

With this command line flag one can profile ltac in files
/and/ trim the results without actually touching the files.
---
 lib/flags.ml  | 1 +
 lib/flags.mli | 1 +
 2 files changed, 2 insertions(+)

(limited to 'lib')

diff --git a/lib/flags.ml b/lib/flags.ml
index 13525165a..d29064c97 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -226,6 +226,7 @@ let print_mod_uid = ref false
 
 let tactic_context_compat = ref false
 let profile_ltac = ref false
+let profile_ltac_cutoff = ref 0.0
 
 let dump_bytecode = ref false
 let set_dump_bytecode = (:=) dump_bytecode
diff --git a/lib/flags.mli b/lib/flags.mli
index 8fe64d24f..839c252cb 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -149,6 +149,7 @@ val tactic_context_compat : bool ref
     context vs. appcontext) is set. *)
 
 val profile_ltac : bool ref
+val profile_ltac_cutoff : float ref
 
 (** Dump the bytecode after compilation (for debugging purposes) *)
 val dump_bytecode : bool ref
-- 
cgit v1.2.3