diff options
Diffstat (limited to 'stm/spawned.ml')
-rw-r--r-- | stm/spawned.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/spawned.ml b/stm/spawned.ml index 21902f71d..e2d07ef5b 100644 --- a/stm/spawned.ml +++ b/stm/spawned.ml @@ -44,7 +44,7 @@ let controller h p = | Hello _ -> prerr_endline "internal protocol error"; exit 1 | ReqDie -> prerr_endline "death sentence received"; exit 0 | ReqStats -> - output_value oc (RespStats (Gc.stat ())); flush oc; loop () + output_value oc (RespStats (Gc.quick_stat ())); flush oc; loop () with | e -> prerr_endline ("control channel broken: " ^ Printexc.to_string e); |