12345678910111213141516171819202122232425 |
- Fix support for ARM endianness, otherwise it gives the error
- "unknown CPU endianness"
- Signed-off-by: Pedro Aguilar <paguilar@paguilar.org>
- diff -Nau guile-2.0.11.orig/module/system/base/target.scm guile-2.0.11/module/system/base/target.scm
- --- guile-2.0.11.orig/module/system/base/target.scm 2013-02-28 09:42:45.000000000 +0100
- +++ guile-2.0.11/module/system/base/target.scm 2014-11-03 23:05:01.789338997 +0100
- @@ -70,7 +70,15 @@
- ((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu"
- "mips" "mips64"))
- (endianness big))
- - ((string-match "^arm.*el" cpu)
- + ((string-match "^arm.*el" cpu)
- + (endianness little))
- + ((string-match "^arm.*eb" cpu)
- + (endianness big))
- + ((string-prefix? "arm" cpu) ;ARMs are LE by default
- + (endianness little))
- + ((string-match "^aarch64.*be" cpu)
- + (endianness big))
- + ((string=? "aarch64" cpu)
- (endianness little))
- (else
- (error "unknown CPU endianness" cpu)))))
|