|
@@ -26,14 +26,14 @@ use Parrot::Test tests => 11; |
|
|
# 8_16_le=>4_8_le fails, but 8_16_le=>8_8_le passes
|
|
|
my $testmatrix = <<EOF;
|
|
|
8_le 10_le 16_le 8_be 16_be 4_le 4_be 16PPC_be
|
|
|
-8_le 1 1 1 1 ? 1 ? 1
|
|
|
-10_le 1 1 1 ? ? 1 ? 0
|
|
|
-16_le S4 1 1 ? ? 1 ? 0
|
|
|
-8_be 1 1 1 1 1 1 ? 1
|
|
|
+8_le 1 1 0 1 ? 1 ? 1
|
|
|
+10_le 1 1 0 ? ? 1 ? 0
|
|
|
+16_le S4 0 0 ? ? 1 ? 0
|
|
|
+8_be 1 1 0 1 1 1 ? 1
|
|
|
16_be ? ? ? ? 1 ? ? ?
|
|
|
-4_le ? ? ? ? ? ? ? 1
|
|
|
-4_be ? ? ? ? ? 1 ? ?
|
|
|
-16PPC_be 1 ? 1 1 ? 1 ? 1
|
|
|
+4_le 1 1 0 ? ? S8 ? 1
|
|
|
+4_be 1 1 0 ? ? 1 ? ?
|
|
|
+16PPC_be 1 1 0 1 ? 1 ? 1
|
|
|
EOF
|
|
|
|
|
|
my $arch = t::native_pbc::Test::num_arch();
|
|
@@ -161,11 +161,14 @@ test_pbc_number('8_16_le', "little-endian 64 bit opcode_t, 8 byte intval, 16 byt |
|
|
|
|
|
# PowerPC64 -m64
|
|
|
# floattype = 0 (interpreter's NUMVAL_SIZE = 8)
|
|
|
-test_pbc_number('8_8_be', "big-endian 64 bit opcode_t, 8 byte intval, 8 byte double");
|
|
|
-
|
|
|
+#test_pbc_number('8_8_be', "big-endian 64 bit opcode_t, 8 byte intval, 8 byte double");
|
|
|
# sparc64/__float128 --floatval="long double"
|
|
|
# floattype = 2 (interpreter's NUMVAL_SIZE = 8)
|
|
|
-test_pbc_number('8_16_be', "big-endian 64 bit opcode_t, 8 byte intval, 16 byte long double");
|
|
|
+#test_pbc_number('8_16_be', "big-endian 64 bit opcode_t, 8 byte intval, 16 byte __float128");
|
|
|
+
|
|
|
+# ppc -m32 with double and macports gcc46 __float128
|
|
|
+test_pbc_number('4_8_be', "big-endian 32 bit opcode_t, 4 byte intval, 8 byte double");
|
|
|
+test_pbc_number('4_16_be', "big-endian 32 bit opcode_t, 4 byte intval, 16 byte __float128");
|
|
|
|
|
|
# i386 --floatval=float
|
|
|
# floattype = 3 (interpreter's NUMVAL_SIZE = 4)
|
|
|
0 comments on commit
6bbb3b2