[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: cuirass: Create just as many threads as needed.
From: |
guix-commits |
Subject: |
04/05: cuirass: Create just as many threads as needed. |
Date: |
Thu, 26 May 2022 06:26:36 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit d90bd5642a3663cc7d5124068fadbf8fa28b3207
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu May 26 00:17:56 2022 +0200
cuirass: Create just as many threads as needed.
* build-aux/cuirass/evaluate.scm (command-line): Change second argument
to 'n-par-for-each'.
---
build-aux/cuirass/evaluate.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/build-aux/cuirass/evaluate.scm b/build-aux/cuirass/evaluate.scm
index 5beac1b37c..7ae5c266d1 100644
--- a/build-aux/cuirass/evaluate.scm
+++ b/build-aux/cuirass/evaluate.scm
@@ -85,7 +85,8 @@
(open-inferior (derivation->output-path
derivation)))
%cuirass-supported-systems)))
(n-par-for-each
- (/ (current-processor-count) 2)
+ (min (length %cuirass-supported-systems)
+ (current-processor-count))
(lambda (system inferior)
(with-store store
(let ((channels (map channel-instance->sexp instances)))