ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: image: Introduce arm32-raw image type.

Browse source 
* gnu/system/image.scm (arm32-disk-image, arm32-image-type): New variables.
(arm64-disk-image): Inherit from arm32-disk-image.
(arm64-image-type): Change name to 'arm64-raw.
This commit is contained in:
Mathieu Othacehe 2020-11-02 17:16:05 +01:00
parent 794928a906
commit c045801117
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/system/image.scm
View file

@ -66,6 +66,7 @@ (define-module (gnu system image)
efi-disk-image efi-disk-image
iso9660-image iso9660-image
arm32-disk-image
arm64-disk-image arm64-disk-image
image-with-os image-with-os
@ -73,6 +74,7 @@ (define-module (gnu system image)
qcow2-image-type qcow2-image-type
iso-image-type iso-image-type
uncompressed-iso-image-type uncompressed-iso-image-type
arm32-image-type
arm64-image-type arm64-image-type
image-with-label image-with-label
@ -126,10 +128,10 @@ (define iso9660-image
(label "GUIX_IMAGE") (label "GUIX_IMAGE")
(flags '(boot))))))) (flags '(boot)))))))
(define arm64-disk-image (define arm32-disk-image
(image (image
(format 'disk-image) (format 'disk-image)
(target "aarch64-linux-gnu") (target "arm-linux-gnueabihf")
(partitions (partitions
(list (partition (list (partition
(inherit root-partition) (inherit root-partition)
@ -138,6 +140,11 @@ (define arm64-disk-image
;; fails. ;; fails.
(volatile-root? #f))) (volatile-root? #f)))
(define arm64-disk-image
(image
(inherit arm32-disk-image)
(target "aarch64-linux-gnu")))
;;; ;;;
;;; Images types. ;;; Images types.
@ -179,9 +186,14 @@ (define uncompressed-iso-image-type
(compression? #f)) (compression? #f))
<>)))) <>))))
(define arm32-image-type
(image-type
(name 'arm32-raw)
(constructor (cut image-with-os arm32-disk-image <>))))
(define arm64-image-type (define arm64-image-type
(image-type (image-type
(name 'arm) (name 'arm64-raw)
(constructor (cut image-with-os arm64-disk-image <>)))) (constructor (cut image-with-os arm64-disk-image <>))))