[PATCH] guix: add riscv64 support

[Ekaitz Zarraga]

>From af4fabcd642297dd46a3e5f43427a25ab6ce45ec Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sat, 14 Oct 2023 11:36:55 +0200
Subject: [PATCH] guix: add riscv64 support

* guix/git/mes.scm (mes): Add riscv64-linux to supported systems and add
  riscv64 cross-compiler toolchain
---
 guix/git/mes.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guix/git/mes.scm b/guix/git/mes.scm
index a688a682..6d67fcef 100644
--- a/guix/git/mes.scm
+++ b/guix/git/mes.scm
@@ -198,7 +198,8 @@ extensive examples, including parsers for the Javascript 
and C99 languages.")
               (sha256
                (base32 #!mes!# 
"0vp8v88zszh1imm3dvdfi3m8cywshdj7xcrsq4cgmss69s2y1nkx"))))
     (build-system gnu-build-system)
-    (supported-systems '("aarch64-linux" "armhf-linux" "i686-linux" 
"x86_64-linux"))
+    (supported-systems '("aarch64-linux" "armhf-linux" "i686-linux"
+                         "x86_64-linux" "riscv64-linux"))
     (propagated-inputs (list mescc-tools nyacc))
     (native-inputs
      (append
@@ -206,6 +207,11 @@ extensive examples, including parsers for the Javascript 
and C99 languages.")
       (let ((target-system (or (%current-target-system)
                                (%current-system))))
         (cond
+         ((string-prefix? "riscv64-linux" target-system)
+          ;; Use cross-compiler rather than #:system "i686-linux" to get
+          ;; MesCC 64 bit .go files installed ready for use with Guile.
+          (list (cross-binutils "riscv64-linux-gnu")
+                (cross-gcc "riscv64-linux-gnu")))
          ((string-prefix? "x86_64-linux" target-system)
           ;; Use cross-compiler rather than #:system "i686-linux" to get
           ;; MesCC 64 bit .go files installed ready for use with Guile.
-- 
2.41.0