From e57b7b9e54b1081d94c41913735d01a72e281aa0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 16 Jul 2011 06:27:38 -0600 Subject: [PATCH] limit build parallelism to 4 on a 32-bit machine Merge to 5.1.2 --- collects/setup/option-unit.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/setup/option-unit.rkt b/collects/setup/option-unit.rkt index 88650880e0..30c5d6c468 100644 --- a/collects/setup/option-unit.rkt +++ b/collects/setup/option-unit.rkt @@ -27,7 +27,10 @@ (define setup-program-name (make-parameter "raco setup")) - (define-flag-param parallel-workers (min (processor-count) 8)) + (define-flag-param parallel-workers (min (processor-count) + (if (fixnum? (arithmetic-shift 1 40)) + 8 ; 64-bit machine + 4))) ; 32-bit machine (define-flag-param verbose #f) (define-flag-param make-verbose #f) (define-flag-param compiler-verbose #f)