Implement nqp::throw.

Author: jnthn

src/vm/jvm/QAST/Compiler.nqp

@@ -1555,7 +1555,7 @@ QAST::OperationsJAST.map_classlib_core_op('getmessage', $TYPE_OPS, 'getmessage',
 QAST::OperationsJAST.map_classlib_core_op('setmessage', $TYPE_OPS, 'setmessage', [$RT_OBJ, $RT_STR], $RT_STR, :tc);
 QAST::OperationsJAST.map_classlib_core_op('newexception', $TYPE_OPS, 'newexception', [], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('backtracestrings', $TYPE_OPS, 'backtracestrings', [$RT_OBJ], $RT_OBJ, :tc);
-QAST::OperationsJAST.map_classlib_core_op('throw', $TYPE_OPS, 'throw', [$RT_OBJ], $RT_OBJ, :tc);
+QAST::OperationsJAST.map_classlib_core_op('throw', $TYPE_OPS, '_throw', [$RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('rethrow', $TYPE_OPS, 'rethrow', [$RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('resume', $TYPE_OPS, 'resume', [$RT_OBJ], $RT_OBJ, :tc);
 my %handler_names := nqp::hash(

src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java

@@ -3239,6 +3239,16 @@ public static SixModelObject backtracestrings(SixModelObject obj, ThreadContext
             throw ExceptionHandling.dieInternal(tc, "backtracestring needs an object with VMException representation");
         }
     }
+    public static SixModelObject _throw(SixModelObject obj, ThreadContext tc) {
+        if (obj instanceof VMExceptionInstance) {
+            VMExceptionInstance ex = (VMExceptionInstance)obj;
+            ex.origin = tc.curFrame;
+            return ExceptionHandling.handlerDynamic(tc, ex.category, ex);
+        }
+        else {
+            throw ExceptionHandling.dieInternal(tc, "throw needs an object with VMException representation");
+        }
+    }
     public static SixModelObject rethrow(SixModelObject obj, ThreadContext tc) {
         if (obj instanceof VMExceptionInstance) {
             VMExceptionInstance ex = (VMExceptionInstance)obj;