mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +02:00
Code Activity

Recognize sh3 as compilation targets

Browse source 
* module/system/base/target.scm (cpu-endianness, triplet-pointer-size):
  Add case for "sh3".

Signed-off-by: John Paul Adrian Glaubitz <glaubitz@physik.fu-berlin.de>
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
John Paul Adrian Glaubitz 2017-01-21 12:49:31 +01:00 • committed by Andy Wingo
parent 7c5f38fe6d
commit 92222727f8
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/base/target.scm
View file

@ -63,7 +63,7 @@
(cond ((string-match "^i[0-9]86$" cpu) (cond ((string-match "^i[0-9]86$" cpu)
(endianness little)) (endianness little))
((member cpu '("x86_64" "ia64" ((member cpu '("x86_64" "ia64"
"powerpcle" "powerpc64le" "mipsel" "mips64el" "nios2" "sh4" "alpha")) "powerpcle" "powerpc64le" "mipsel" "mips64el" "nios2" "sh3" "sh4" "alpha"))
(endianness little)) (endianness little))
((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu" ((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu"
"mips" "mips64" "m68k" "s390x")) "mips" "mips64" "m68k" "s390x"))
@ -102,7 +102,7 @@
((string-match "64$" cpu) 8) ((string-match "64$" cpu) 8)
((string-match "64_?[lbe][lbe]$" cpu) 8) ((string-match "64_?[lbe][lbe]$" cpu) 8)
((member cpu '("sparc" "powerpc" "mips" "mipsel" "nios2" "m68k" "sh4")) 4) ((member cpu '("sparc" "powerpc" "mips" "mipsel" "nios2" "m68k" "sh3" "sh4")) 4)
((member cpu '("s390x" "alpha")) 8) ((member cpu '("s390x" "alpha")) 8)
((string-match "^arm.*" cpu) 4) ((string-match "^arm.*" cpu) 4)
(else (error "unknown CPU word size" cpu))))) (else (error "unknown CPU word size" cpu)))))