From b946e08a6ae6e73bda1f76017fcb75f41cd4b288 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 27 Feb 2013 20:39:51 +0100 Subject: [PATCH] Recognize the `x86_64.*-gnux32' triplet. * 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. --- module/system/base/target.scm | 2 ++ test-suite/tests/asm-to-bytecode.test | 2 ++ 2 files changed, 4 insertions(+) diff --git a/module/system/base/target.scm b/module/system/base/target.scm index 5cc0c1d75..762894ca3 100644 --- a/module/system/base/target.scm +++ b/module/system/base/target.scm @@ -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) diff --git a/test-suite/tests/asm-to-bytecode.test b/test-suite/tests/asm-to-bytecode.test index 6b1449d6e..3bd8a929b 100644 --- a/test-suite/tests/asm-to-bytecode.test +++ b/test-suite/tests/asm-to-bytecode.test @@ -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