summaryrefslogtreecommitdiff
path: root/module/system/base
diff options
context:
space:
mode:
authorRob Browning <rlb@defaultvalue.org>2014-09-24 16:47:55 -0500
committerLudovic Courtès <ludo@gnu.org>2014-11-19 14:07:10 +0100
commit136c3a4c4a42f72331f5d18c592ef003bf894178 (patch)
treedbb578b0f16336ba8215a3b6562bf98e17deed99 /module/system/base
parentae6f77ddfaf8e752589d9050c9e517cb1c52cbf0 (diff)
Recognize m68k, s390x, and sh4 as compilation targets
* module/system/base/target.scm (cpu-endianness, triplet-pointer-size): Add cases for "m68k", "sh4", and "s390x". Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'module/system/base')
-rw-r--r--module/system/base/target.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index 31e3fea79..0022dc804 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)))))