guix - Wojtek's customized Guix

path: root/gnu/packages/patches/lierolibre-check-unaligned-access.patch

diff options

Diffstat (limited to 'gnu/packages/patches/lierolibre-check-unaligned-access.patch')

0 files changed, 0 insertions, 0 deletions

m64-efi" . "BOOTAA64.EFI")))))) ;; grub-mkstandalone requires a TMPDIR to prepare the firmware image. (setenv "TMPDIR" esp) (mkdir-p efi-directory) (invoke grub-mkstandalone "-O" (car efi-targets) "-o" (string-append efi-directory "/" (cdr efi-targets)) ;; Graft the configuration file onto the image. (string-append "boot/grub/grub.cfg=" grub-config)))) (define* (install-efi-loader grub-efi esp #:key targets) "Install in ESP directory the given GRUB-EFI bootloader. Configure it to load the Grub bootloader located in the 'Guix_image' root partition. If TARGETS is set, use its car as the GRUB image format and its cdr as the output filename. Otherwise, use defaults for the host platform." (let ((grub-config "grub.cfg")) (call-with-output-file grub-config (lambda (port) ;; Create a tiny configuration file telling the embedded grub where to ;; load the real thing. XXX This is quite fragile, and can prevent ;; the image from booting when there's more than one volume with this ;; label present. Reproducible almost-UUIDs could reduce the risk ;; (not eliminate it). (format port "insmod part_msdos~@ insmod part_gpt~@ search --set=root --label Guix_image~@ configfile /boot/grub/grub.cfg~%"))) (install-efi grub-efi grub-config esp #:targets targets) (delete-file grub-config)))


context:
space:
mode: