From 6b1bbec0f721306451626538f2f5bb95e153f912 Mon Sep 17 00:00:00 2001
From: gareuselesinge
Date: Fri, 11 Oct 2013 09:10:55 +0000
Subject: STM: prefix debug messages with slave-id

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16880 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/stm.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/toplevel/stm.ml b/toplevel/stm.ml
index 838497da25..7086ff722c 100644
--- a/toplevel/stm.ml
+++ b/toplevel/stm.ml
@@ -6,7 +6,10 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-let prerr_endline s = if !Flags.debug then prerr_endline s else ()
+let prerr_endline s =
+  if !Flags.debug then
+    prerr_endline (Printf.sprintf "%d] %s" !Flags.coq_slave_mode s)
+  else ()
 
 open Vernacexpr
 open Errors
-- 
cgit v1.2.3