41/42: system: Add riscv64 support.

[guix-commits]

efraim pushed a commit to branch wip-riscv
in repository guix.

commit 18dcdf5e63418d6d1da4de349f2cad6d23b4f6a4
Author: Efraim Flashner <efraim@flashner.co.il>
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.