me
/
guix
Archived
1
0
Fork 0
Code

gnu: Add u-boot-pine64-plus. 

* gnu/packages/bootloaders.scm (u-boot-pine64-plus): New variable.
master
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 @@
#:use-module (gnu packages cdrom) #:use-module (gnu packages cdrom)
#:use-module (gnu packages cross-base) #:use-module (gnu packages cross-base)
#:use-module (gnu packages disk) #:use-module (gnu packages disk)
#:use-module (gnu packages firmware)
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
#:use-module (gnu packages fontutils) #:use-module (gnu packages fontutils)
#:use-module (gnu packages gcc) #:use-module (gnu packages gcc)
@ -445,6 +446,27 @@ also initializes the boards (RAM etc).")
(define-public u-boot-odroid-c2 (define-public u-boot-odroid-c2
(make-u-boot-package "odroid-c2" "aarch64-linux-gnu")) (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 (define-public u-boot-banana-pi-m2-ultra
(make-u-boot-package "Bananapi_M2_Ultra" "arm-linux-gnueabihf")) (make-u-boot-package "Bananapi_M2_Ultra" "arm-linux-gnueabihf"))