diff options
| author | Emilio Jesus Gallego Arias | 2017-04-26 03:12:21 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-05-18 04:58:18 +0200 |
| commit | 2e735eb94b7324c0e149fb4e884a7b405581eb4a (patch) | |
| tree | a90de9bec28eb0fc651da7ce8e2078d9844af2bd /lib | |
| parent | 6d770156669dd9868ae7623b8f4302866e2cc8c7 (diff) | |
[stm] Tweak debug options.
We allow for a dynamic setting of the STM debug flag, and we print
some more information about the result of `process_transaction`.
We also fix a printing bug due to mixing `Printf` and `Format`, which
are not compatible.
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 *) |