me/guix
Archived
1
0
Fork 0
Code Activity

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