jnthn/foo.nqp

## foo.nqp
class A {
    has $!a;

    method BUILD(:$a) {
        $!a := $a;
    }

    method a() { $!a }
}

sub foo($obj) {
    $obj.a == 42 || nqp::die('oops');
}

my int $i := 0;
my $x := A.new(a => 42);
while $i < 10000000 {
    foo($x);
    $i++;
}

## results
No spesh:           5.31
Spesh (no inline):  4.73
Spesh (inline):     3.83
	class A {
	has $!a;

	method BUILD(:$a) {
	$!a := $a;
	}

	method a() { $!a }
	}

	sub foo($obj) {
	$obj.a == 42 \|\| nqp::die('oops');
	}

	my int $i := 0;
	my $x := A.new(a => 42);
	while $i < 10000000 {
	foo($x);
	$i++;
	}