Subject: guile: Add ARC support
From: Vineet Gupta <[email-masked]>
To: "[email-masked]" <[email-masked]>
Cc: Helmut Grohne <[email-masked]>, arcml <[email-masked]>, Guillem Jover <[email-masked]>
Date: Thu, 3 Jun 2021 19:35:38 +0000
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

I'm trying to bootstrap Debian on ARC and need to add arc support in 
guile 2.x and 3.x. Patch attached.

Thx,
-Vineet
From d7229d384e503d7a3893e13e71fe0ad16c2e8003 Mon Sep 17 00:00:00 2001
From: Vineet Gupta <[email-masked]>
Date: Tue, 6 Apr 2021 15:03:07 -0700
Subject: [PATCH] add support for arc

Signed-off-by: Vineet Gupta <[email-masked]>
---
 module/system/base/target.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index 2088cd86697a..8bdcd66039e4 100644
--- a/module/system/base/target.scm
+++ b/module/system/base/target.scm
@@ -77,7 +77,7 @@
       (cond ((string-match "^i[0-9]86$" cpu)
              (endianness little))
             ((member cpu '("x86_64" "ia64"
-                           "powerpcle" "powerpc64le" "mipsel" "mips64el" "nios2" "sh3" "sh4" "alpha"))
+                           "powerpcle" "powerpc64le" "mipsel" "mips64el" "nios2" "sh3" "sh4" "alpha" "arc"))
              (endianness little))
             ((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu"
                            "mips" "mips64" "m68k" "s390x"))
@@ -118,7 +118,7 @@
 
           ((string-match "64$" cpu) 8)
           ((string-match "64_?[lbe][lbe]$" cpu) 8)
-          ((member cpu '("sparc" "powerpc" "mips" "mipsel" "nios2" "m68k" "sh3" "sh4")) 4)
+          ((member cpu '("sparc" "powerpc" "mips" "mipsel" "nios2" "m68k" "sh3" "sh4" "arc")) 4)
           ((member cpu '("s390x" "alpha")) 8)
           ((string-match "^arm.*" cpu) 4)
           (else (error "unknown CPU word size" cpu)))))
-- 
2.25.1