ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add u-boot-pine64-plus.

Browse source 
* gnu/packages/bootloaders.scm (u-boot-pine64-plus): New variable.
This commit is contained in:
Efraim Flashner 2018-01-31 21:10:47 +02:00
parent 9a1c4a6cb8
commit 29be6cfb20
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/packages/bootloaders.scm
View file

@ -35,6 +35,7 @@ (define-module (gnu packages bootloaders)
#:use-module (gnu packages cdrom)
#:use-module (gnu packages cross-base)
#:use-module (gnu packages disk)
#:use-module (gnu packages firmware)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gcc)
@ -445,6 +446,27 @@ (define-public u-boot-beagle-bone-black
(define-public u-boot-odroid-c2
(make-u-boot-package "odroid-c2" "aarch64-linux-gnu"))
(define-public u-boot-pine64-plus
(let ((base (make-u-boot-package "pine64_plus" "aarch64-linux-gnu")))
(package
(inherit base)
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'set-environment
(lambda* (#:key inputs #:allow-other-keys)
(let ((bl31 (string-append (assoc-ref inputs "firmware")
"/bl31.bin")))
(setenv "BL31" bl31)
;; This is necessary while we're using the bundled dtc.
(setenv "PATH" (string-append (getenv "PATH") ":"
"scripts/dtc")))
#t))))))
(native-inputs
`(("firmware" ,arm-trusted-firmware-pine64-plus)
,@(package-native-inputs base))))))
(define-public u-boot-banana-pi-m2-ultra
(make-u-boot-package "Bananapi_M2_Ultra" "arm-linux-gnueabihf"))