aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/raspberry-pi.scm
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2020-10-29 15:23:44 +0100
committerDanny Milosavljevic <dannym@scratchpost.org>2020-10-29 15:24:15 +0100
commit2ea99f4e84eeb166daea082bb9b1cf179d68efee (patch)
tree282d7d72354b00c04f12285d45bb5b7492bd90d2 /gnu/packages/raspberry-pi.scm
parentbda1359b8e2ff36e10bce92475ce615211925342 (diff)
downloadguix-2ea99f4e84eeb166daea082bb9b1cf179d68efee.tar
guix-2ea99f4e84eeb166daea082bb9b1cf179d68efee.tar.gz
gnu: Add raspi-arm64-chainloader.
* gnu/packages/raspberry-pi.scm (raspi-arm64-chainloader): New variable.
Diffstat (limited to 'gnu/packages/raspberry-pi.scm')
-rw-r--r--gnu/packages/raspberry-pi.scm70
1 files changed, 70 insertions, 0 deletions
diff --git a/gnu/packages/raspberry-pi.scm b/gnu/packages/raspberry-pi.scm
index 4840614dfe..78871f795e 100644
--- a/gnu/packages/raspberry-pi.scm
+++ b/gnu/packages/raspberry-pi.scm
@@ -21,8 +21,12 @@
#:use-module (gnu packages admin)
#:use-module (gnu packages algebra)
#:use-module (gnu packages base)
+ #:use-module (gnu packages bash)
+ #:use-module (gnu packages commencement)
#:use-module (gnu packages cross-base)
#:use-module (gnu packages documentation)
+ #:use-module (gnu packages file)
+ #:use-module (gnu packages gcc)
#:use-module (gnu packages embedded)
#:use-module (guix build-system gnu)
#:use-module (guix download)
@@ -161,3 +165,69 @@ used in the Raspberry Pi")
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" ,ld-wrapper)
+ ("make" ,gnu-make)
+ ("gcc" ,gcc-6)
+ ("locales" ,glibc-utf8-locales)))
+ (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 "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"))
+ (copy-file "../common/hardware.h" "hardware.h")
+ #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)))))))))
+ (supported-systems '("aarch64-linux"))))