Benchmarks: record uname, Eio backend, and number of cores

ocaml-multicore · Mar 24, 2024 · 5b68ba2 · 5b68ba2
1 parent 911ccc8
commit 5b68ba2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/bench/main.ml b/bench/main.ml
@@ -45,6 +45,12 @@ let () =
       "metrics", `List metrics;
     ]
   in
+  let uname = Eio.Process.parse_out env#process_mgr Eio.Buf_read.take_all ["uname"; "-a"] in
   Fmt.pr "%a@." (Yojson.Safe.pretty_print ~std:true) @@ `Assoc [
+    "config", `Assoc [
+      "uname", `String uname;
+      "backend", `String env#backend_id;
+      "recommended_domain_count", `Int (Domain.recommended_domain_count ());
+    ];
     "results", `List (List.map run benchmarks);
   ]