mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Recognize the `x86_64.*-gnux32' triplet.

Browse source 
* module/system/base/target.scm (triplet-pointer-size): Add case for
  "^x64_64-.*-gnux32".
* test-suite/tests/asm-to-bytecode.test ("cross-compilation"):
  ["x86_64-unknown-linux-gnux32"]: New test.
This commit is contained in:
Ludovic Courtès 2013-02-27 20:39:51 +01:00
parent 9130ec74cf
commit b946e08a6a
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -92,6 +92,8 @@
((string-match "^mips64.*-gnuabi64" triplet) 8) ; n64 ABI
((string-match "^mips64" cpu) 4) ; n32 or o32
((string-match "^x64_64-.*-gnux32" triplet) 4) ; x32
((string-match "64$" cpu) 8)
((string-match "64[lbe][lbe]$" cpu) 8)
((member cpu '("sparc" "powerpc" "mips" "mipsel")) 4)

2
test-suite/tests/asm-to-bytecode.test
View file

@ -198,6 +198,8 @@
(endianness little) 4)
(test-target "mips64el-unknown-linux-gnuabi64" ; n64 ABI (Debian tuplet)
(endianness little) 8)
(test-target "x86_64-unknown-linux-gnux32" ; x32 ABI (Debian tuplet)
(endianness little) 4)
(pass-if-exception "unknown target"
exception:miscellaneous-error