diff options
| author | James Clarke <jrtc27@jrtc27.com> | 2016-08-07 21:24:22 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-08-08 22:20:10 +0200 |
| commit | b434ea36d3c264da32ec6fc49b57baadeee704e6 (patch) | |
| tree | ac685951102785780950c34f52a1a231c98d8bf7 /module/system/base | |
| parent | 24502780eb1711d9f2ac550da0a16b78a24eae27 (diff) | |
Recognize alpha as compilation target
* module/system/base/target.scm (cpu-endianness): Add case for "alpha".
(triplet-pointer-size): Likewise.
Diffstat (limited to 'module/system/base')
| -rw-r--r-- | module/system/base/target.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/base/target.scm b/module/system/base/target.scm index d1f6cff79..02febf8e4 100644 --- a/module/system/base/target.scm +++ b/module/system/base/target.scm @@ -63,7 +63,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")) @@ -103,7 +103,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))))) |