mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:30:21 +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 Ludovic Courtès
parent 00b57d0ee8
commit e18251e3ba
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

@ -65,7 +65,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"))
@ -104,7 +104,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)))))