Skip to content

Commit 5bb409d

Browse files
committed
Convert some exit() calls to nqp::exit() for nqp microbenchmarks; remove nqp-moarvm skip for several microbenchmarks
1 parent 564d244 commit 5bb409d

File tree

1 file changed

+2
-6
lines changed

1 file changed

+2
-6
lines changed

microbenchmarks.pl

Lines changed: 2 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -55,15 +55,13 @@
5555
},
5656
{
5757
name => 'while_push_join',
58-
skip => [qw( nqp-moarvm )],
5958
scale => 1 << 7,
6059
perl5 => 'my @a; my $i = 0; while (++$i <= SCALE) { push @a, "x" }; my $s = join "" => @a;',
6160
perl6 => 'my @a; my $i = 0; while (++$i <= SCALE) { @a.push("x") }; my $s; $s = @a.join;',
6261
nqp => 'my @a; my $i := 0; while ($i := $i + 1) <= SCALE { @a.push("x"); }; my $s := nqp::join("",@a);',
6362
},
6463
{
6564
name => 'while_push',
66-
skip => [qw( nqp-moarvm )],
6765
scale => 1 << 7,
6866
perl5 => 'my @a; my $i = 0; while (++$i <= SCALE) { push @a, 1 }',
6967
perl6 => 'my @a; my $i = 0; while (++$i <= SCALE) { push @a, 1 }',
@@ -85,19 +83,17 @@
8583
},
8684
{
8785
name => 'postwhile_nil',
88-
skip => [qw( nqp-moarvm )],
8986
scale => 1 << 10,
9087
perl5 => 'my $i = -SCALE || exit(0); () while ++$i;',
9188
perl6 => 'my $i = -SCALE || exit(0); Nil while ++$i;',
92-
nqp => 'my $i := -SCALE || exit(0); () while $i := $i + 1;',
89+
nqp => 'my $i := -SCALE || nqp::exit(0); () while $i := $i + 1;',
9390
},
9491
{
9592
name => 'postwhile_nil_native',
96-
skip => [qw( nqp-moarvm )],
9793
scale => 1 << 10,
9894
perl5 => 'use integer; my $i = -SCALE || exit(0); () while ++$i;',
9995
perl6 => 'my int $i = -SCALE || exit(0); Nil while ++$i;',
100-
nqp => 'my int $i := -SCALE || exit(0); () while $i := $i + 1;',
96+
nqp => 'my int $i := -SCALE || nqp::exit(0); () while $i := $i + 1;',
10197
},
10298
{
10399
name => 'loop_empty',

0 commit comments

Comments
 (0)