Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix code-gen thinko in p6return.

Unbusts given/when as an l-value, which all kinds of things depended
upon.
  • Loading branch information...
commit 01fc34b8c10ba12c4cfb5635f7f2b1e4e7eb4958 1 parent d02067f
@jnthn jnthn authored
Showing with 3 additions and 0 deletions.
  1. +3 −0  src/vm/jvm/Perl6/Ops.nqp
View
3  src/vm/jvm/Perl6/Ops.nqp
@@ -77,6 +77,9 @@ $ops.add_hll_op('perl6', 'p6return', -> $qastcomp, $op {
$il.append(JAST::Instruction.new( :op('aload'), 'cf' ));
$il.append(JAST::Instruction.new( :op('invokestatic'), $TYPE_OPS,
'return_o', 'Void', $TYPE_SMO, $TYPE_CF ));
+ $il.append(JAST::Instruction.new( :op('aload'), 'cf' ));
+ $il.append(JAST::Instruction.new( :op('invokevirtual'),
+ $TYPE_CF, 'leave', 'Void' ));
$il.append(JAST::Instruction.new( :op('return') ));
$ops.result($il, $RT_OBJ);
});
Please sign in to comment.
Something went wrong with that request. Please try again.