guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 3dcaa3a0e5e0674d26ef784e157c94ad5bcef4f7
Author: Andreas Enge <[email protected]>
AuthorDate: Wed Mar 18 18:28:39 2026 +0100
gnu: Remove raspi-arm64-chainloader.
* gnu/packages/raspberry-pi.scm (raspi-arm64-chainloader): Delete variable.
Change-Id: Ib5a97071c544df861952f7a0db2c5eb5638dc4a0
---
gnu/packages/raspberry-pi.scm | 70 -------------------------------------------
1 file changed, 70 deletions(-)
diff --git a/gnu/packages/raspberry-pi.scm b/gnu/packages/raspberry-pi.scm
index faaf568d82..3863935783 100644
--- a/gnu/packages/raspberry-pi.scm
+++ b/gnu/packages/raspberry-pi.scm
@@ -185,76 +185,6 @@ Raspberry Pi. Note: It does not work on Raspberry Pi 1.")
(home-page "https://github.com/librerpi/rpi-open-firmware/";)
(license license:gpl2+)))
-(define-public raspi-arm64-chainloader
- (package
- (inherit raspi-arm-chainloader)
- (name "raspi-arm64-chainloader")
- ;; These native-inputs especially don't contain a libc.
- (native-inputs
- `(("bash" ,bash)
- ("binutils" ,binutils)
- ("coreutils" ,coreutils)
- ("file" ,file)
- ("ld-wrapper" ,(module-ref (resolve-interface
- '(gnu packages commencement))
- 'ld-wrapper))
- ("make" ,gnu-make)
- ("gcc" ,gcc-6)
- ("locales" ,(libc-utf8-locales-for-target))))
- (inputs
- `())
- (arguments
- `(#:implicit-inputs? #f
- ,@(substitute-keyword-arguments (package-arguments
raspi-arm-chainloader)
- ((#:phases phases)
- `(modify-phases ,phases
- (replace 'setenv
- (lambda _
- (setenv "AS" "as") ; TODO: as-for-target
- (setenv "OBJCOPY" "objcopy")
- (setenv "CC" ,(cc-for-target))
- (setenv "CXX" ,(cc-for-target))
- (setenv "BAREMETAL" "1")
- #t))
- (add-after 'setenv 'build-tlsf
- (lambda _
- (with-directory-excursion "tlsf"
- (invoke "make"
- "CFLAGS=-I../common -I../notc/include"))))
- (replace 'build-common
- (lambda _
- (with-directory-excursion "common"
- ;; Autodetection uses the CC filename for detecting the
architecture.
- ;; Since we are not using a cross-compiler, we side-step
that.
- (invoke "make"
- "CFLAGS=-Ilib -I. -Iinclude -ffunction-sections
-Wall -g -nostdlib -nostartfiles -ffreestanding -DBAREMETAL"))))
- (replace 'build-notc
- (lambda _
- (with-directory-excursion "notc"
- ;; Autodetection uses the CC filename for detecting the
architecture.
- ;; Since we are not using a cross-compiler, we side-step
that.
- (invoke "make"
- "CFLAGS=-Iinclude -g"))))
- (replace 'chdir
- (lambda _
- (chdir "arm64")
- (substitute* "Makefile"
- (("CFLAGS =")
- "CFLAGS = -I../common -I../common/include -I../notc/include
-I.. -DBAREMETAL")
- (("-lcommon")
- "-L../common -L../notc -lcommon"))
- #t))
- (replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (libexec (string-append out "/libexec")))
- (mkdir-p libexec)
- (install-file "arm64.elf" libexec)
- (install-file "arm64.map" libexec)
- (install-file "arm64.bin" libexec)
- #t))))))))
- (supported-systems '("aarch64-linux"))))
-
(define (raspi-config-file name content)
"Make a configuration file like config.txt for the Raspberry Pi firmware.
CONTENT can be a list of strings, which are concatenated with a newline
