diff options
| author | Maxime Dénès | 2017-05-25 16:07:46 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-25 16:07:46 +0200 |
| commit | 9c8cdd5f6c1cb4bda2f8558c17df3ffe69c49264 (patch) | |
| tree | f52316ae3b0da316a44bb5bb352be99bd77c680f /lib | |
| parent | 4ad6dbef69f9fd4cb1b55efc252d67325068e6b1 (diff) | |
| parent | 2e735eb94b7324c0e149fb4e884a7b405581eb4a (diff) | |
Merge PR#645: [stm] Tweak debug options.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 2 | ||||
| -rw-r--r-- | lib/flags.mli | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 00f515b5a6..b2671e5b60 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -80,6 +80,8 @@ let async_proofs_is_master () = let async_proofs_delegation_threshold = ref 0.03 let debug = ref false +let stm_debug = ref false + let in_debugger = ref false let in_toplevel = ref false diff --git a/lib/flags.mli b/lib/flags.mli index 0b00ac13c2..7ce808041a 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -49,6 +49,9 @@ val debug : bool ref val in_debugger : bool ref val in_toplevel : bool ref +(** Enable STM debugging *) +val stm_debug : bool ref + val profile : bool (* Legacy flags *) |