Updated version 8.9.0 from 'upstream/8.9.0'

with Debian dir 81a4f85bc45e59aa1eadb4797f0eb0b8039efb63

1 files changed, 1 insertions, 3 deletions

diff --git a/stm/spawned.ml b/stm/spawned.ml
index 3833c802..a5d6ea96 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);