Wrap a Parrot detail up in a QAST::VM.

Raku · Feb 22, 2013 · 1cc0d94 · 1cc0d94
1 parent 883fd06
commit 1cc0d94
Showing 1 changed file with 16 additions and 10 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -362,11 +362,14 @@ class NQP::Actions is HLL::Actions {
                 $block,
                 QAST::Op.new( :op('exception') ),
             ),
-            QAST::Op.new(
-                :op('bindkey_i'),
-                QAST::Op.new( :op('exception') ),
-                QAST::SVal.new( :value('handled') ),
-                QAST::IVal.new( :value(1) )
+            QAST::VM.new(
+                :parrot(QAST::Op.new(
+                    :op('bindkey_i'),
+                    QAST::Op.new( :op('exception') ),
+                    QAST::SVal.new( :value('handled') ),
+                    QAST::IVal.new( :value(1) )
+                )),
+                :jvm(QAST::Op.new( :op('null') ))
             ),
             default_for('$'));
     }
@@ -396,11 +399,14 @@ class NQP::Actions is HLL::Actions {
             $past,
             'CATCH',
             QAST::Stmts.new(
-                QAST::Op.new(
-                    :op('bindkey_i'),
-                    QAST::Op.new( :op('exception') ),
-                    QAST::SVal.new( :value('handled') ),
-                    QAST::IVal.new( :value(1) )
+                QAST::VM.new(
+                    :parrot(QAST::Op.new(
+                        :op('bindkey_i'),
+                        QAST::Op.new( :op('exception') ),
+                        QAST::SVal.new( :value('handled') ),
+                        QAST::IVal.new( :value(1) )
+                    )),
+                    :jvm(QAST::Op.new( :op('null') ))
                 ),
                 default_for('$')
             ));