simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-13 14:30:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

test t_tree_futs: run GC stats thread, for trace

Browse source
This commit is contained in:
Simon Cruanes 2023-06-12 22:55:04 -04:00
parent df0dae23db
commit 9a922088fd
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
test/t_tree_futs.ml
View file

@ -49,11 +49,24 @@ let run ~pool n : (int * int) Fut.t =
let default_n = 16 let default_n = 16
let stat_thread () =
Moonpool.start_thread_on_some_domain
(fun () ->
while true do
Thread.delay 0.1;
let stat = Gc.quick_stat () in
Trace.counter_int "gc.minor" stat.minor_collections;
Trace.counter_int "gc.major" stat.major_collections;
Trace.counter_float "gc.minor.words" stat.minor_words
done)
()
let () = let () =
(* (*
Tracy_client_trace.setup (); Tracy_client_trace.setup ();
*) *)
let pool = Pool.create ~per_domain:1 ~min:2 () in let pool = Pool.create ~per_domain:1 ~min:2 () in
ignore (stat_thread () : Thread.t);
let start = Unix.gettimeofday () in let start = Unix.gettimeofday () in
let n = try int_of_string (Sys.getenv "N") with _ -> default_n in let n = try int_of_string (Sys.getenv "N") with _ -> default_n in