efraim pushed a commit to branch wip-riscv
in repository guix.
commit 18dcdf5e63418d6d1da4de349f2cad6d23b4f6a4
Author: Efraim Flashner <[email protected]>
AuthorDate: Sat Sep 4 21:41:10 2021 +0300
system: Add riscv64 support.
* gnu/system/image.scm (riscv64-disk-image, riscv64-image-type): New
variables.
---
gnu/system/image.scm | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 1012fa6..568570d 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -68,6 +68,7 @@
iso9660-image
arm32-disk-image
arm64-disk-image
+ riscv64-disk-image
image-with-os
efi-raw-image-type
@@ -76,6 +77,7 @@
uncompressed-iso-image-type
arm32-image-type
arm64-image-type
+ riscv64-image-type
image-with-label
system-image
@@ -145,6 +147,15 @@
(inherit (arm32-disk-image offset))
(target "aarch64-linux-gnu")))
+(define* (riscv64-disk-image #:optional (offset root-offset))
+ (image
+ (format 'disk-image)
+ (target "riscv64-linux-gnu")
+ (partitions
+ (list (partition
+ (inherit root-partition)
+ (offset offset))))))
+
;;;
;;; Images types.
@@ -196,6 +207,11 @@ set to the given OS."
(name 'arm64-raw)
(constructor (cut image-with-os (arm64-disk-image) <>))))
+(define riscv64-image-type
+ (image-type
+ (name 'riscv64-raw)
+ (constructor (cut image-with-os (riscv64-disk-image) <>))))
+
;;
;; Helpers.
