From 2e735eb94b7324c0e149fb4e884a7b405581eb4a Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Wed, 26 Apr 2017 03:12:21 +0200
Subject: [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.
---
 lib/flags.ml  | 2 ++
 lib/flags.mli | 3 +++
 2 files changed, 5 insertions(+)

(limited to 'lib')

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 *)
-- 
cgit v1.2.3