amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ovmf-arm: Update to 202402.

Browse source 
* gnu/packages/firmware.scm (ovmf-arm): Update to 202402.  Build using
make-ovmf-firmware.

Change-Id: I1adf1afc9ceb29db373c2e0d05d42a3c68232cb5
This commit is contained in:
Efraim Flashner 2024-04-30 16:30:40 +03:00
parent 15d4cca1a8
commit e0caba9cb8
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 17 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

52
gnu/packages/firmware.scm
View file

@ -1054,6 +1054,23 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.")
"RELEASE_GCC/FV/QEMU_EFI.fd") "RELEASE_GCC/FV/QEMU_EFI.fd")
(string-append fmw "/ovmf_aarch64.bin")))))))))))) (string-append fmw "/ovmf_aarch64.bin"))))))))))))
(define-public ovmf-arm
(let ((base (make-ovmf-firmware "armhf")))
(package
(inherit base)
(name "ovmf-arm")
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
#~(modify-phases #$phases
(replace 'install
(lambda _
(let ((fmw (string-append #$output "/share/firmware")))
(mkdir-p fmw)
(copy-file (string-append "Build/ArmVirtQemu-ARM/"
"RELEASE_GCC/FV/QEMU_EFI.fd")
(string-append fmw "/ovmf_arm.bin"))))))))))))
(define-public ovmf (define-public ovmf
(let ((toolchain-ver "GCC5")) (let ((toolchain-ver "GCC5"))
(package (package
@ -1154,41 +1171,6 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.")
(license (list license:expat (license (list license:expat
license:bsd-2 license:bsd-3 license:bsd-4))))) license:bsd-2 license:bsd-3 license:bsd-4)))))
(define-public ovmf-arm
(let ((toolchain-ver "GCC5"))
(package
(inherit ovmf)
(name "ovmf-arm")
(native-inputs
(append (package-native-inputs ovmf)
(if (not (string-prefix? "armhf" (%current-system)))
`(("cross-gcc" ,(cross-gcc "arm-linux-gnueabihf"))
("cross-binutils" ,(cross-binutils "arm-linux-gnueabihf")))
'())))
(arguments
(substitute-keyword-arguments (package-arguments ovmf)
((#:phases phases)
#~(modify-phases #$phases
#$@(if (string-prefix? "armhf" (%current-system))
'()
#~((add-before 'configure 'set-env
(lambda _
(setenv (string-append #$toolchain-ver "_ARM_PREFIX")
"arm-linux-gnueabihf-")))))
(replace 'build
(lambda _
(invoke "build" "-a" "ARM" "-t" #$toolchain-ver
"-p" "ArmVirtPkg/ArmVirtQemu.dsc")))
(delete 'build-x64)
(replace 'install
(lambda _
(let ((fmw (string-append #$output "/share/firmware")))
(mkdir-p fmw)
(copy-file (string-append "Build/ArmVirtQemu-ARM/RELEASE_"
#$toolchain-ver "/FV/QEMU_EFI.fd")
(string-append fmw "/ovmf_arm.bin")))))))))
(supported-systems %supported-systems))))
(define-public ovmf-riscv64 (define-public ovmf-riscv64
(let ((toolchain-ver "GCC5")) (let ((toolchain-ver "GCC5"))
(package (package