ocaml-parmap/x.patch

16 lines
360 B
Diff

--- a/tests/floatscale.ml
+++ b/tests/floatscale.ml
@@ -30,7 +30,11 @@ let env_string = env_param (fun x -> x)
let nIters = env_int "nIters" 1
-let nData = env_int "nData" 10000000
+let nData_default =
+ let default = 10000000 in
+ min (Sys.max_array_length / 2) default
+
+let nData = env_int "nData" nData_default
let nProcs = env_int "nProcs" 8