mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 23:06:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: arm-trusted-firmware: Reformat.

Browse source 
* gnu/packages/firmware.scm (arm-trusted-firmware)[source]: Use modules.
[synopsis]: Mention supported architectures.
[description]: Fix "ARMv7A" typo.  Remove newline.

Change-Id: I52d1a02f27e1c8ebbe5b48ea9a69e4c008ff5b9c
Signed-off-by: Vagrant Cascadian <vagrant@debian.org>
This commit is contained in:
Herman Rimm 2024-12-19 23:10:31 +01:00 committed by Vagrant Cascadian
parent 442c218c18
commit c514002bd7
No known key found for this signature in database
GPG key ID: DC518FC87F9716AA
1 changed files with 49 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/firmware.scm
View file

@ -1101,12 +1101,11 @@ (define-public ovmf
(define* (make-arm-trusted-firmware platform
#:key (triplet "aarch64-linux-gnu"))
(let ((native-build? (lambda ()
;; Note: %current-system is a *triplet*, unlike its
;; name would suggest.
(or (not triplet) ;disable cross-compilation
(string=? (%current-system)
(gnu-triplet->nix-system triplet))))))
(define (native-build?)
"Return #t if the host and target platforms differ."
(or (not triplet)
;;%current-system is a *triplet*, unlike its name would suggest.
(string=? (%current-system) (gnu-triplet->nix-system triplet))))
(package
(name (string-append "arm-trusted-firmware-" platform))
(version "2.9")
@ -1114,21 +1113,15 @@ (define* (make-arm-trusted-firmware platform
(origin
(method git-fetch)
(uri (git-reference
;; There are only GitHub generated release snapshots.
(url "https://git.trustedfirmware.org/TF-A/trusted-firmware-a.git/")
(url (string-append "https://git.trustedfirmware.org"
"/TF-A/trusted-firmware-a.git/"))
(commit (string-append "v" version))))
(file-name (git-file-name "arm-trusted-firmware" version))
(sha256
(base32
"16fjbn1zck0d8b554h8lk1svqqn0zlawvrlkjxry9l71s9h4vd0p"))
(snippet
#~(begin
(use-modules (guix build utils))
;; Remove binary blobs which do not contain source or proper
;; license.
(for-each (lambda (file)
(delete-file file))
(find-files "." "\\.bin$"))))))
(base32 "16fjbn1zck0d8b554h8lk1svqqn0zlawvrlkjxry9l71s9h4vd0p"))
(modules '((guix build utils)))
;; Remove binary blobs: they don't reference a source or license.
(snippet #~(for-each delete-file (find-files "." "\\.bin$")))))
(build-system gnu-build-system)
(arguments
(list
@ -1141,28 +1134,29 @@ (define* (make-arm-trusted-firmware platform
(for-each (lambda (file)
(install-file file #$output))
(find-files "." "\\.(bin|elf)$")))))
#:make-flags #~(list (string-append "PLAT=" #$platform)
#:make-flags
#~(list (string-append "PLAT=" #$platform)
#$@(if (not (native-build?))
(list (string-append "CROSS_COMPILE=" triplet "-"))
'())
"DEBUG=1")
#:tests? #f)) ;no test suite
(home-page "https://www.trustedfirmware.org/")
(synopsis "Implementation of \"secure world software\"")
(synopsis "Secure world software for ARMv7-A and ARMv8-A")
(description
"ARM Trusted Firmware provides a reference implementation of secure world
software for ARMv7A and ARMv8-A, including a Secure Monitor executing at
@dfn{Exception Level 3} (EL3). It implements various ARM interface standards,
such as:
"ARM Trusted Firmware provides a reference implementation of secure
world software for ARMv7-A and ARMv8-A, including a Secure Monitor
executing at @dfn{Exception Level 3} (EL3). It implements various ARM
interface standards, such as:
@enumerate
@item The Power State Coordination Interface (PSCI)
@item Trusted Board Boot Requirements (TBBR, ARM DEN0006C-1)
@item SMC Calling Convention
@item System Control and Management Interface
@item Software Delegated Exception Interface (SDEI)
@end enumerate\n")
@end enumerate")
(license (list license:bsd-3
license:bsd-2))))) ; libfdt
license:bsd-2)))) ; libfdt
(define-public arm-trusted-firmware-sun50i-a64
(let ((base (make-arm-trusted-firmware "sun50i_a64")))