Add nqp::p6invokehandler.

Hides away a Parrot specific detail. Cleans up one place in Actions,
but the debugger is the main beneficiary.

src/Perl6/Actions.nqp

@@ -5826,10 +5826,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
         # as argument and returns the result. The install the handler.
         %*HANDLERS{$type} := QAST::Stmts.new(
             :node($/),
-            QAST::VM.new(
-                :parrot(QAST::VM.new( :pirop('perl6_invoke_catchhandler__vPP'), $handler, $ex )),
-                :jvm(QAST::Op.new( :op('call'), $handler, $ex ))
-            ),
+            QAST::Op.new( :op('p6invokehandler'), $handler, $ex ),
             QAST::Var.new( :scope('lexical'), :name('Nil') )
         );
     }

src/vm/jvm/Perl6/Ops.nqp

@@ -154,6 +154,9 @@ my $p6bool := -> $qastcomp, $op {
 };
 $ops.add_hll_op('perl6', 'p6bool', $p6bool);
 $ops.map_classlib_hll_op('perl6', 'p6scalarfromdesc', $TYPE_P6OPS, 'p6scalarfromdesc', [$RT_OBJ], $RT_OBJ, :tc);
+$ops.add_hll_op('perl6', 'p6invokehandler', -> $qastcomp, $op {
+    $qastcomp.as_jast(QAST::Op.new( :op('call'), $op[0], $op[1] ));
+});
 
 $ops.add_hll_op('perl6', 'p6invokeflat', -> $qastcomp, $op {
     $op[1].flat(1);

src/vm/parrot/Perl6/Ops.nqp

@@ -69,6 +69,7 @@ $ops.add_hll_op('perl6', 'p6staticouter', -> $qastcomp, $op {
     ))
 });
 $ops.add_hll_pirop_mapping('perl6', 'p6scalarfromdesc', 'p6scalarfromdesc', 'PP', :inlinable(1));
+$ops.add_hll_pirop_mapping('perl6', 'p6invokehandler', 'perl6_invoke_catchhandler', 'vPP');
 
 # Make some of them also available from NQP land, since we use them in the
 # metamodel and bootstrap.