summaryrefslogtreecommitdiff
path: root/gnu/packages/bootloaders.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2018-01-31 21:10:47 +0200
committerEfraim Flashner <efraim@flashner.co.il>2018-03-24 22:15:12 +0300
commit29be6cfb205d1af5e786a872ee62faa22fd06f32 (patch)
tree8e74f3353cfebc7f0843828007c6888d7c030f92 /gnu/packages/bootloaders.scm
parent9a1c4a6cb83e5b8aa0a88191567c14a15deceb3f (diff)
downloadguix-patches-29be6cfb205d1af5e786a872ee62faa22fd06f32.tar
guix-patches-29be6cfb205d1af5e786a872ee62faa22fd06f32.tar.gz
gnu: Add u-boot-pine64-plus.
* gnu/packages/bootloaders.scm (u-boot-pine64-plus): New variable.
Diffstat (limited to 'gnu/packages/bootloaders.scm')
-rw-r--r--gnu/packages/bootloaders.scm22
1 files changed, 22 insertions, 0 deletions
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 063e9c3e68..2ea78c9bac 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -35,6 +35,7 @@
#: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 @@ also initializes the boards (RAM etc).")
(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"))