From acc142fcee47cd8202dd1ad67e39fd569b09bbd7 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <Enrico.Tassi@inria.fr>
Date: Fri, 15 Jun 2018 13:54:26 +0200
Subject: [spawn] don't create a control socket on Unix (Fix #7713)

---
 stm/spawned.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'stm')

diff --git a/stm/spawned.ml b/stm/spawned.ml
index 3833c8026..a5d6ea96f 100644
--- a/stm/spawned.ml
+++ b/stm/spawned.ml
@@ -28,13 +28,11 @@ let controller h pr pw =
   prerr_endline "starting controller thread";
   let main () =
     let ic, oc = open_bin_connection h pr pw in
-    let rec loop () =
+    let loop () =
       try
         match CThread.thread_friendly_input_value ic with
         | Hello _ -> prerr_endline "internal protocol error"; exit 1
         | ReqDie -> prerr_endline "death sentence received"; exit 0
-        | ReqStats ->
-            output_value oc (RespStats (Gc.quick_stat ())); flush oc; loop ()
       with
       | e ->
         prerr_endline ("control channel broken: " ^ Printexc.to_string e);
-- 
cgit v1.2.3