Eliminate one more pirop usage.

rakudo · Jul 9, 2012 · 8903cfe · 8903cfe
1 parent 9c3235c
commit 8903cfe
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/QPerl6/Actions.pm b/src/QPerl6/Actions.pm
@@ -2227,8 +2227,8 @@ class QPerl6::Actions is HLL::Actions {
         $block[0].push(QAST::Op.new(
             :op('bind'),
             QAST::Var.new(:name<$?REGEX>, :scope<lexical>, :decl('var')),
-            PAST::Op.new(
-                :pirop('perl6_code_object_from_parrot_sub PP'),
+            QAST::Op.new(
+                :op('p6vmcodetoobj'),
                 PAST::Op.new( :pirop('set PQs'), PAST::Op.new( :pirop('getinterp P') ), 'sub')
             )));
         $block.symbol('$?REGEX', :scope<lexical>);

diff --git a/src/QPerl6/Ops.pm b/src/QPerl6/Ops.pm
@@ -28,3 +28,4 @@ $ops.add_hll_pirop_mapping('perl6', 'p6bindsig', 'bind_signature', 'v');
 $ops.add_hll_pirop_mapping('perl6', 'p6typecheckrv', 'perl6_type_check_return_value', '0P');
 $ops.add_hll_pirop_mapping('perl6', 'p6decontrv', 'perl6_decontainerize_return_value', 'PP');
 $ops.add_hll_pirop_mapping('perl6', 'p6capturelex', 'perl6_capture_lex', '0P');
+$ops.add_hll_pirop_mapping('perl6', 'p6vmcodetoobj', 'perl6_code_object_from_parrot_sub', 'PP');