#445: [bug] Darwin string buffering segfault in examples/shootout/revcomp.pir
---------------------+------------------------------------------------------
 Reporter:  allison  |       Owner:     
     Type:  bug      |      Status:  new
 Priority:  normal   |   Milestone:     
Component:  none     |     Version:     
 Severity:  medium   |    Keywords:     
     Lang:           |       Patch:     
 Platform:  all      |  
---------------------+------------------------------------------------------

Comment(by jkeenan):

 Replying to [comment:2 mikehh]:
 > I don't know if this bug still exists - at r42089 with Ubuntu 9.10 (beta
 updated) amd64 the test passes for me.
 >
 > In fact I can unskip all tests in t/examples/shootout.t and the test
 passes - I left the skip test for GMP (I have gmp so it doesn't skip) but
 removed (commented out) the others and all sub-tests pass (for me).

 Likewise for me on Linux/i386 and Darwin/PPC.

 But when I see output like this on Darwin/PPC ...
 {{{
 ok 14 # skip recursive-2.pir float JIT broken on non-x86
 ok 15 # skip recursive.pir float JIT broken on non-x86
 examples/shootout/regexdna.pir  < examples/shootout/regexdna.pir_input
 ok 16 - examples/shootout/regexdna.pir
 ok 17 # skip revcomp.pir string buffering segfault, TT #445
 }}}
 I have to wonder:  Are tests 14 and 15 passing only because we have, for
 all practical purposes, zeroed out our JIT system pending reconstruction?

 If not, then the following patch could be applied:
 {{{
 Index: t/examples/shootout.t
 ===================================================================
 --- t/examples/shootout.t       (revision 42176)
 +++ t/examples/shootout.t       (working copy)
 @@ -47,9 +47,6 @@

  my %skips = (
      'pidigits.pir'    => [ 'not exists $PConfig{HAS_GMP}', 'needs GMP' ],
 -    'recursive.pir'   => [ '$PConfig{cpuarch} !~ /86/',    'float JIT
 broken on non-x86' ],
 -    'recursive-2.pir' => [ '$PConfig{cpuarch} !~ /86/',    'float JIT
 broken on non-x86' ],
 -    'revcomp.pir'     => [ '1',              'string buffering segfault,
 TT #445' ],
  );
  my $INPUT_EXT = '_input';
  foreach my $script (@shootouts) {
 }}}

 kid51

-- 
Ticket URL: <https://trac.parrot.org/parrot/ticket/445#comment:3>
Parrot <https://trac.parrot.org/parrot/>
Parrot Development
_______________________________________________
parrot-tickets mailing list
[email protected]
http://lists.parrot.org/mailman/listinfo/parrot-tickets

Reply via email to