Source file bench_config.ml
1 2 3 4 5type benchmark_ctx = unit type arg = unit let[@inline] around_benchmark ~f = (f [@inlined hint]) () let[@inline] around_measurement () ~f = (f [@inlined hint]) ()
bench_config.ml1 2 3 4 5type benchmark_ctx = unit type arg = unit let[@inline] around_benchmark ~f = (f [@inlined hint]) () let[@inline] around_measurement () ~f = (f [@inlined hint]) ()