Fix code-gen thinko in p6return.

Unbusts given/when as an l-value, which all kinds of things depended upon.
rakudo · Jun 22, 2013 · 01fc34b · 01fc34b
1 parent d02067f
commit 01fc34b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/vm/jvm/Perl6/Ops.nqp b/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);
 });