diff options
Diffstat (limited to 'gnu/bootloader/u-boot.scm')
| -rw-r--r-- | gnu/bootloader/u-boot.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gnu/bootloader/u-boot.scm b/gnu/bootloader/u-boot.scm index 712db15b02..d20aabd538 100644 --- a/gnu/bootloader/u-boot.scm +++ b/gnu/bootloader/u-boot.scm @@ -5,6 +5,7 @@ ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <[email protected]> ;;; Copyright © 2022 Maxim Cournoyer <[email protected]> ;;; Copyright © 2023 Efraim Flashner <[email protected]> +;;; Copyright © 2023 Herman Rimm <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -37,6 +38,7 @@ u-boot-mx6cuboxi-bootloader u-boot-nintendo-nes-classic-edition-bootloader u-boot-novena-bootloader + u-boot-orangepi-r1-plus-lts-rk3328-bootloader u-boot-pine64-plus-bootloader u-boot-pine64-lts-bootloader u-boot-pinebook-bootloader @@ -93,6 +95,15 @@ (write-file-on-device u-boot (stat:size (stat u-boot)) image (* 69 1024))))) +(define install-orangepi-r1-plus-lts-rk3328-u-boot + #~(lambda (bootloader root-index image) + (let ((idb (string-append bootloader "/libexec/idbloader.img")) + (u-boot (string-append bootloader "/libexec/u-boot.itb"))) + (write-file-on-device idb (stat:size (stat idb)) + image (* 64 512)) + (write-file-on-device u-boot (stat:size (stat u-boot)) + image (* 16384 512))))) + (define install-puma-rk3399-u-boot #~(lambda (bootloader root-index image) (let ((spl (string-append bootloader "/libexec/idbloader.img")) @@ -233,6 +244,12 @@ (inherit u-boot-imx-bootloader) (package u-boot-novena))) +(define u-boot-orangepi-r1-plus-lts-rk3328-bootloader + (bootloader + (inherit u-boot-bootloader) + (package u-boot-orangepi-r1-plus-lts-rk3328) + (disk-image-installer install-orangepi-r1-plus-lts-rk3328-u-boot))) + (define u-boot-pine64-plus-bootloader (bootloader (inherit u-boot-allwinner64-bootloader) |