1*4882a593SmuzhiyunFix support for ARM endianness, otherwise it gives the error 2*4882a593Smuzhiyun"unknown CPU endianness" 3*4882a593Smuzhiyun 4*4882a593SmuzhiyunSigned-off-by: Pedro Aguilar <paguilar@paguilar.org> 5*4882a593Smuzhiyun 6*4882a593Smuzhiyundiff -Nau guile-2.0.11.orig/module/system/base/target.scm guile-2.0.11/module/system/base/target.scm 7*4882a593Smuzhiyun--- guile-2.0.11.orig/module/system/base/target.scm 2013-02-28 09:42:45.000000000 +0100 8*4882a593Smuzhiyun+++ guile-2.0.11/module/system/base/target.scm 2014-11-03 23:05:01.789338997 +0100 9*4882a593Smuzhiyun@@ -70,7 +70,15 @@ 10*4882a593Smuzhiyun ((member cpu '("sparc" "sparc64" "powerpc" "powerpc64" "spu" 11*4882a593Smuzhiyun "mips" "mips64")) 12*4882a593Smuzhiyun (endianness big)) 13*4882a593Smuzhiyun- ((string-match "^arm.*el" cpu) 14*4882a593Smuzhiyun+ ((string-match "^arm.*el" cpu) 15*4882a593Smuzhiyun+ (endianness little)) 16*4882a593Smuzhiyun+ ((string-match "^arm.*eb" cpu) 17*4882a593Smuzhiyun+ (endianness big)) 18*4882a593Smuzhiyun+ ((string-prefix? "arm" cpu) ;ARMs are LE by default 19*4882a593Smuzhiyun+ (endianness little)) 20*4882a593Smuzhiyun+ ((string-match "^aarch64.*be" cpu) 21*4882a593Smuzhiyun+ (endianness big)) 22*4882a593Smuzhiyun+ ((string=? "aarch64" cpu) 23*4882a593Smuzhiyun (endianness little)) 24*4882a593Smuzhiyun (else 25*4882a593Smuzhiyun (error "unknown CPU endianness" cpu))))) 26