limit build parallelism to 4 on a 32-bit machine

Merge to 5.1.2
This commit is contained in:
Matthew Flatt 2011-07-16 06:27:38 -06:00
parent 429c3b0d93
commit e57b7b9e54

View File

@ -27,7 +27,10 @@
(define setup-program-name (make-parameter "raco setup")) (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 verbose #f)
(define-flag-param make-verbose #f) (define-flag-param make-verbose #f)
(define-flag-param compiler-verbose #f) (define-flag-param compiler-verbose #f)