me
/
guix
Archived
1
0
Fork 0
Code

gnu: make-u-boot-package: Allow disabling cross-compilation. 

* gnu/packages/bootloaders.scm (make-u-boot-package): Accept #f for the
TRIPLET argument to disable cross-compilation.  Update doc.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Maxim Cournoyer 2022-12-20 14:03:47 -05:00
parent c6a8b1384d
commit 980abad24d
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/bootloaders.scm
View File

@ -860,12 +860,14 @@ def test_ctrl_c"))
(u-boot u-boot)) (u-boot u-boot))
"Return a U-Boot package for BOARD cross-compiled for TRIPLET with the "Return a U-Boot package for BOARD cross-compiled for TRIPLET with the
optional DEFCONFIG file and optional configuration changes from CONFIGS. optional DEFCONFIG file and optional configuration changes from CONFIGS.
NAME-SUFFIX is appended to the package name, while APPEND-DESCRIPTION is TRIPLET may also be set to #f to disable cross-compilation. NAME-SUFFIX is
appended to the package description. U-BOOT can be used when a fork or a appended to the package name, while APPEND-DESCRIPTION is appended to the
different version of U-Boot must be used." package description. U-BOOT can be used when a fork or a different version of
U-Boot must be used."
(let ((native-build? (lambda () (let ((native-build? (lambda ()
(string=? (%current-system) (or (not triplet) ;disable cross-compilation
(gnu-triplet->nix-system triplet))))) (string=? (%current-system)
(gnu-triplet->nix-system triplet))))))
(package (package
(inherit u-boot) (inherit u-boot)
(name (string-append "u-boot-" (name (string-append "u-boot-"