From 0ab99517d50639e62dc9bcc9dd2ee3f04f3e2753 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 9 Jul 2025 16:41:05 -0400 Subject: [PATCH] benchs: no preprocessor anymore --- benchs/dune | 3 --- benchs/pi.ml | 9 --------- 2 files changed, 12 deletions(-) diff --git a/benchs/dune b/benchs/dune index 6d2ec5ff..909b0a26 100644 --- a/benchs/dune +++ b/benchs/dune @@ -1,6 +1,3 @@ (executables (names fib_rec pi primes) - (preprocess - (action - (run %{project_root}/src/cpp/cpp.exe %{input-file}))) (libraries moonpool moonpool.forkjoin unix trace trace-tef domainslib)) diff --git a/benchs/pi.ml b/benchs/pi.ml index e9d333f5..2f63c45b 100644 --- a/benchs/pi.ml +++ b/benchs/pi.ml @@ -66,8 +66,6 @@ let run_par1 ~kind (num_steps : int) : float = let pi = step *. Lock.get global_sum in pi -[@@@ifge 5.0] - let run_fork_join ~kind num_steps : float = let@ pool = with_pool ~kind () in @@ -92,13 +90,6 @@ let run_fork_join ~kind num_steps : float = let pi = step *. Lock.get global_sum in pi -[@@@else_] - -let run_fork_join _ = - failwith "fork join not available on this version of OCaml" - -[@@@endif] - type mode = | Sequential | Par1