guile-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH 1/1] Recognize m68k, s390x, and sh4 as compilation targets


From: Rob Browning
Subject: [PATCH 1/1] Recognize m68k, s390x, and sh4 as compilation targets
Date: Wed, 24 Sep 2014 16:47:55 -0500

---

 Though note that this is necessary, but not sufficient for sh4:

   http://buildd.debian-ports.org/status/package.php?p=guile-2.0&suite=sid

 Thanks

 module/system/base/target.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index 9d65184..a035abe 100644
--- a/module/system/base/target.scm
+++ b/module/system/base/target.scm
@@ -65,10 +65,10 @@
       (cond ((string-match "^i[0-9]86$" cpu)
              (endianness little))
             ((member cpu '("x86_64" "ia64"
-                           "powerpcle" "powerpc64le" "mipsel" "mips64el"))
+                           "powerpcle" "powerpc64le" "mipsel" "mips64el" 
"sh4"))
              (endianness little))
             ((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu"
-                           "mips" "mips64"))
+                           "mips" "mips64" "m68k" "s390x"))
              (endianness big))
             ((string-match "^arm.*el" cpu)
              (endianness little))
@@ -104,7 +104,8 @@
 
           ((string-match "64$" cpu) 8)
           ((string-match "64_?[lbe][lbe]$" cpu) 8)
-          ((member cpu '("sparc" "powerpc" "mips" "mipsel")) 4)
+          ((member cpu '("sparc" "powerpc" "mips" "mipsel" "m68k" "sh4")) 4)
+          ((member cpu '("s390x")) 8)
           ((string-match "^arm.*" cpu) 4)
           (else (error "unknown CPU word size" cpu)))))
 
-- 
2.1.0




reply via email to

[Prev in Thread] Current Thread [Next in Thread]