[svn:parrot] r36770 - trunk/t/native_pbc
rurban at svn.parrot.org
rurban at svn.parrot.org
Sun Feb 15 20:05:29 UTC 2009
Author: rurban
Date: Sun Feb 15 20:05:28 2009
New Revision: 36770
URL: https://trac.parrot.org/parrot/changeset/36770
Log:
[t] update release native_pbcs and test, darwin/ppc missing
Added:
trunk/t/native_pbc/integer_5.pbc (contents, props changed)
Modified:
trunk/t/native_pbc/integer.t
trunk/t/native_pbc/integer_1.pbc
trunk/t/native_pbc/integer_2.pbc
trunk/t/native_pbc/integer_4.pbc
trunk/t/native_pbc/number.t
trunk/t/native_pbc/number_1.pbc
trunk/t/native_pbc/number_2.pbc
trunk/t/native_pbc/number_4.pbc
trunk/t/native_pbc/number_5.pbc
trunk/t/native_pbc/string.t
trunk/t/native_pbc/string_1.pbc
trunk/t/native_pbc/string_2.pbc
Modified: trunk/t/native_pbc/integer.t
==============================================================================
--- trunk/t/native_pbc/integer.t Sun Feb 15 19:07:28 2009 (r36769)
+++ trunk/t/native_pbc/integer.t Sun Feb 15 20:05:28 2009 (r36770)
@@ -32,7 +32,7 @@
_1 i386 32 bit opcode_t, 32 bit intval (linux-gcc-ix86, freebsd-gcc, cygwin)
_2 i386 32 bit opcode_t, 32 bit intval, 12 bit long double (linux-gcc-ix86)
_3 PPC BE 32 bit opcode_t, 32 bit intval (darwin-ppc)
- _4 x86_64 double float 64 bit opcode_t (linux-gcc-x86_64, solaris-cc-64int)
+ _4 x86_64 12-bit double 64 bit opcode_t (linux-gcc-x86_64 -m96bit-long-double)
_5 x86_64 16 bit long double 64 bit opcode_t (linux-gcc-x86_64, solaris-cc-64int)
_6 big-endian 64-bit (MIPS irix or similar)
@@ -97,7 +97,7 @@
# no endianize, no opcode, no numval transform
# dirformat = 1
# ]
-pbc_output_is( undef, '270544960', "i386 32 bit opcode_t, 32 bit intval long double" )
+pbc_output_is( undef, '270544960', "i386 32 bit opcode_t, 32 bit intval 12-byte long double" )
or diag "May need to regenerate t/native_pbc/integer_2.pbc; read test file";
# darwin/ppc:
@@ -117,8 +117,12 @@
}
TODO: {
-local $TODO = "devel versions are not guaranteed to succeed"
- if $PConfig{DEVEL};
+ local $TODO;
+ if ($PConfig{ptrsize} == 4) {
+ $TODO = "Known problem on 32bit with reading 64bit dirs. See TT #254"
+ } elsif ($PConfig{DEVEL}) {
+ $TODO = "devel versions are not guaranteed to succeed";
+ }
# any ordinary 64-bit intel unix:
# HEADER => [
@@ -144,7 +148,7 @@
# dirformat = 1
# ]
-pbc_output_is(undef, '270544960', "i86_64 LE 64 bit opcode_t, 64 bit intval, long double")
+pbc_output_is(undef, '270544960', "i86_64 LE 64 bit opcode_t, 64 bit intval, 16-byte long double")
or diag "May need to regenerate t/native_pbc/integer_5.pbc; read test file";
# Formerly following tests had been set up:
Modified: trunk/t/native_pbc/integer_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/integer_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/integer_4.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Added: trunk/t/native_pbc/integer_5.pbc
==============================================================================
Binary file. No diff available.
Modified: trunk/t/native_pbc/number.t
==============================================================================
--- trunk/t/native_pbc/number.t Sun Feb 15 19:07:28 2009 (r36769)
+++ trunk/t/native_pbc/number.t Sun Feb 15 20:05:28 2009 (r36770)
@@ -31,8 +31,8 @@
_1 i386 32 bit opcode_t, 32 bit intval (linux-gcc-ix86, freebsd-gcc, cygwin)
_2 i386 32 bit opcode_t, 32 bit intval, 12 bit long double (linux-gcc-ix86)
- _3 PPC BE 32 bit opcode_t, 32 bit intval (darwin-ppc)
- _4 x86_64 double float 64 bit opcode_t (linux-gcc-x86_64, solaris-cc-64int)
+ _3 PPC BE 32 bit opcode_t, 32 bit intval (darwin-ppc)
+ _4 x86_64 12-bit double 64 bit opcode_t (linux-gcc-x86_64 -m96bit-long-double)
_5 x86_64 16 bit long double 64 bit opcode_t (linux-gcc-x86_64, solaris-cc-64int)
_6 big-endian 64-bit (MIPS irix or similar)
@@ -145,8 +145,12 @@
}
TODO: {
-local $TODO = "devel versions are not guaranteed to succeed"
- if $PConfig{DEVEL};
+ local $TODO;
+ if ($PConfig{ptrsize} == 4) {
+ $TODO = "Known problem on 32bit with reading 64bit dirs. See TT #254"
+ } elsif ($PConfig{DEVEL}) {
+ $TODO = "devel versions are not guaranteed to succeed";
+ }
# any ordinary 64-bit intel unix:
# HEADER => [
Modified: trunk/t/native_pbc/number_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/number_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/number_4.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/number_5.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/string.t
==============================================================================
--- trunk/t/native_pbc/string.t Sun Feb 15 19:07:28 2009 (r36769)
+++ trunk/t/native_pbc/string.t Sun Feb 15 20:05:28 2009 (r36770)
@@ -66,11 +66,23 @@
# dirformat = 1
# ]
TODO: {
-local $TODO = "devel versions are not guaranteed to succeed"
- if $PConfig{DEVEL};
+ local $TODO;
+ if ($PConfig{ptrsize} == 8) {
+ $TODO = "Known problem on 64bit with reading 32bit dirs. See TT #254"
+ } elsif ($PConfig{DEVEL}) {
+ $TODO = "devel versions are not guaranteed to succeed";
+ } else {
+ $TODO = "currently broken. See TT #254";
+ }
pbc_output_is( undef, $output, "i386 32 bit opcode_t, 32 bit intval" );
+#pbc_output_is( undef, $output, "i386 32 bit opcode_t, 32 bit intval 12-byte long double" );
+#pbc_output_is( undef, $output, "PPC BE 32 bit opcode_t, 32 bit intval" );
+#pbc_output_is( undef, $output, "i86_64 LE 64 bit opcode_t, 64 bit intval" );
+#pbc_output_is( undef, $output, "i86_64 LE 64 bit opcode_t, 64 bit intval, 16-byte long double" );
+#pbc_output_is( undef, $output, "64bit BE 64 bit opcode_t, 64 bit intval" );
+
}
# Local Variables:
Modified: trunk/t/native_pbc/string_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: trunk/t/native_pbc/string_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.
More information about the parrot-commits
mailing list