package core_bench

  1. Overview
  2. Docs

Source file run_config.ml

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
30
31
32
open Core

type t =
  { verbosity : Verbosity.t
  ; no_compactions : bool
  ; quota : Quota.t
  ; sampling_type : [ `Geometric of float | `Linear of int ]
  ; stabilize_gc_between_runs : bool
  ; fork_each_benchmark : bool
  ; thin_overhead : int option
  }
[@@deriving fields, sexp]

let create
      ?(verbosity = Verbosity.Low)
      ?(no_compactions = Defaults.no_compactions)
      ?(quota = Defaults.quota)
      ?(sampling_type = `Geometric Defaults.geometric_scale)
      ?(stabilize_gc_between_runs = Defaults.stabilize_gc_between_runs)
      ?(fork_each_benchmark = Defaults.fork_each_benchmark)
      ?thin_overhead
      ()
  =
  { verbosity
  ; no_compactions
  ; quota
  ; sampling_type
  ; stabilize_gc_between_runs
  ; fork_each_benchmark
  ; thin_overhead
  }
;;