summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJames Clarke <jrtc27@jrtc27.com>2016-08-07 21:24:22 +0100
committerAndy Wingo <wingo@pobox.com>2016-08-08 22:21:09 +0200
commit664586aff49b944d73e2c8d4a749fd670ed3b777 (patch)
tree494bee7d50bee0c6eb059fa94fa2bb964e5bcdce
parentc5f00813e92cd365cd13020ad268d9f235bbdaf9 (diff)
downloadguile-664586aff49b944d73e2c8d4a749fd670ed3b777.tar.gz
Recognize alpha as compilation target
* module/system/base/target.scm (cpu-endianness): Add case for "alpha". (triplet-pointer-size): Likewise.
-rw-r--r--module/system/base/target.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index 40994aacc..6350bde5b 100644
--- a/module/system/base/target.scm
+++ b/module/system/base/target.scm
@@ -65,7 +65,7 @@
(cond ((string-match "^i[0-9]86$" cpu)
(endianness little))
((member cpu '("x86_64" "ia64"
- "powerpcle" "powerpc64le" "mipsel" "mips64el" "nios2" "sh4"))
+ "powerpcle" "powerpc64le" "mipsel" "mips64el" "nios2" "sh4" "alpha"))
(endianness little))
((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu"
"mips" "mips64" "m68k" "s390x"))
@@ -105,7 +105,7 @@
((string-match "64$" cpu) 8)
((string-match "64_?[lbe][lbe]$" cpu) 8)
((member cpu '("sparc" "powerpc" "mips" "mipsel" "nios2" "m68k" "sh4")) 4)
- ((member cpu '("s390x")) 8)
+ ((member cpu '("s390x" "alpha")) 8)
((string-match "^arm.*" cpu) 4)
(else (error "unknown CPU word size" cpu)))))