simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-05 19:00:33 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

benchs: no preprocessor anymore

Browse source
This commit is contained in:
Simon Cruanes 2025-07-09 16:41:05 -04:00
parent 41561c3bff
commit 0ab99517d5
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
benchs/dune
View file

@ -1,6 +1,3 @@
(executables (executables
(names fib_rec pi primes) (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)) (libraries moonpool moonpool.forkjoin unix trace trace-tef domainslib))

9
benchs/pi.ml
View file

@ -66,8 +66,6 @@ let run_par1 ~kind (num_steps : int) : float =
let pi = step *. Lock.get global_sum in let pi = step *. Lock.get global_sum in
pi pi
[@@@ifge 5.0]
let run_fork_join ~kind num_steps : float = let run_fork_join ~kind num_steps : float =
let@ pool = with_pool ~kind () in 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 let pi = step *. Lock.get global_sum in
pi pi
[@@@else_]
let run_fork_join _ =
failwith "fork join not available on this version of OCaml"
[@@@endif]
type mode = type mode =
| Sequential | Sequential
| Par1 | Par1