Unbust build on JVM.

jnthn · jnthn · commit ce92c5b59387 · 2014-02-08T21:44:34.000+01:00
diff --git a/src/NQP/Optimizer.nqp b/src/NQP/Optimizer.nqp
@@ -35,7 +35,7 @@ class NQP::Optimizer {
             ?? nqp::substr($opname, nqp::chars($opname) - 2, 2)
             !! "";
         my int $und := nqp::index($opname, '_');
-        my str $asm := $und ?? nqp::substr($opname, 0, $und) !! '';
+        my str $asm := $und > 0 ?? nqp::substr($opname, 0, $und) !! '';
         if $typeinfo eq '_n' && nqp::existskey(%opt_n_i, $asm) {
             self.num_to_int($op, $asm);
         }

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,7 @@ class NQP::Optimizer {`
`35`	`35`	`?? nqp::substr($opname, nqp::chars($opname) - 2, 2)`
`36`	`36`	`!! "";`
`37`	`37`	`my int $und := nqp::index($opname, '_');`
`38`		`- my str $asm := $und ?? nqp::substr($opname, 0, $und) !! '';`
	`38`	`+ my str $asm := $und > 0 ?? nqp::substr($opname, 0, $und) !! '';`
`39`	`39`	`if $typeinfo eq '_n' && nqp::existskey(%opt_n_i, $asm) {`
`40`	`40`	`self.num_to_int($op, $asm);`
`41`	`41`	`}`