gnu: Remove raspi-arm64-chainloader.

* gnu/packages/raspberry-pi.scm (raspi-arm64-chainloader): Delete variable.

Change-Id: Ib5a97071c544df861952f7a0db2c5eb5638dc4a0

1 files changed, 0 insertions, 70 deletions

diff --git a/gnu/packages/raspberry-pi.scm b/gnu/packages/raspberry-pi.scm
index faaf568d821..38639357833 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