[Guile-commits] 03/07: Recognize sh3 as compilation targets

[Ludovic Courtès]

civodul pushed a commit to branch stable-2.0
in repository guile.

commit e18251e3ba8836e0c44c52b65b122a7ad79a45bc
Author: John Paul Adrian Glaubitz <address@hidden>
Date:   Sat Jan 21 12:49:31 2017 +0100

    Recognize sh3 as compilation targets
    
    * module/system/base/target.scm (cpu-endianness, triplet-pointer-size):
      Add case for "sh3".
    
    Signed-off-by: John Paul Adrian Glaubitz <address@hidden>
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 module/system/base/target.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index 6350bde..fbead44 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" "alpha"))
+                           "powerpcle" "powerpc64le" "mipsel" "mips64el" 
"nios2" "sh3" "sh4" "alpha"))
              (endianness little))
             ((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu"
                            "mips" "mips64" "m68k" "s390x"))
@@ -104,7 +104,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 '("sparc" "powerpc" "mips" "mipsel" "nios2" "m68k" 
"sh3" "sh4")) 4)
           ((member cpu '("s390x" "alpha")) 8)
           ((string-match "^arm.*" cpu) 4)
           (else (error "unknown CPU word size" cpu)))))