me
/
guix
Archived
1
0
Fork 0
Code

gnu: SeaBIOS: Build in parallel. 

* gnu/packages/firmware.scm (seabios)[arguments]: Use N-PAR-FOR-EACH to build
the various targets.
Marius Bakke 2022-12-19 07:46:47 +01:00
parent 5877dc88a2
commit 145aa7f04b
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gnu/packages/firmware.scm
View File

@ -426,6 +426,7 @@ executing in M-mode.")
#~'("EXTRAVERSION=-guix" ;upstream wants distros to set this #~'("EXTRAVERSION=-guix" ;upstream wants distros to set this
"V=1") ;build verbosely "V=1") ;build verbosely
#:modules `(,@%gnu-build-system-modules #:modules `(,@%gnu-build-system-modules
(ice-9 threads)
(ice-9 match)) (ice-9 match))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
@ -477,7 +478,7 @@ executing in M-mode.")
("isavga" . ("VGA_BOCHS=y" "VGA_PCI=n")) ("isavga" . ("VGA_BOCHS=y" "VGA_PCI=n"))
("ramfb" . ("VGA_RAMFB=y" "VGA_PCI=n"))))) ("ramfb" . ("VGA_RAMFB=y" "VGA_PCI=n")))))
(mkdir "out") (mkdir "out")
(for-each (n-par-for-each (parallel-job-count)
(match-lambda (match-lambda
((target . config) ((target . config)
(let* ((dot-config (string-append (getcwd) "/" target (let* ((dot-config (string-append (getcwd) "/" target