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.

diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index 5cc0c1d..762894c 100644 (file)
--- 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 6b1449d..3bd8a92 100644 (file)
--- 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