1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
open Eio.Std
let n_fibers = [1; 2; (* 3; 4; 5; 10; 20; 30; 40; 50; *) 100; 500; 1000; 10000]
let main ~clock =
n_fibers |> List.map (fun n_fibers ->
let n_iters = 1000000 / n_fibers in
Gc.full_major ();
let t0 = Eio.Time.now clock in
Switch.run (fun sw ->
for _ = 1 to n_fibers do
Fiber.fork ~sw (fun () ->
for _ = 1 to n_iters do
Fiber.yield ()
done
)
done
);
let t1 = Eio.Time.now clock in
let time_total = t1 -. t0 in
let n_total = n_fibers * n_iters in
let time_per_iter = time_total /. float n_total in
Metric.create
(Printf.sprintf "fibers:%d" n_fibers)
(`Float (1e9 *. time_per_iter)) "ns" "Time to yield"
)
let run env =
main ~clock:(Eio.Stdenv.clock env)
|
