Stub permit handling on the JVM.

Author: jnthn

src/vm/jvm/QAST/Compiler.nqp

@@ -2814,6 +2814,7 @@ QAST::OperationsJAST.map_classlib_core_op('queuepoll', $TYPE_OPS, 'queuepoll', [
 
 # asynchrony related ops
 QAST::OperationsJAST.map_classlib_core_op('timer', $TYPE_OPS, 'timer', [$RT_OBJ, $RT_OBJ, $RT_INT, $RT_INT, $RT_OBJ], $RT_OBJ, :tc);
+QAST::OperationsJAST.map_classlib_core_op('permit', $TYPE_OPS, 'permit', [$RT_OBJ, $RT_INT, $RT_INT], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('cancel', $TYPE_OPS, 'cancel', [$RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('cancelnotify', $TYPE_OPS, 'cancelnotify', [$RT_OBJ, $RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('signal', $TYPE_IO_OPS, 'signal', [$RT_OBJ, $RT_OBJ, $RT_INT, $RT_OBJ], $RT_OBJ, :tc);

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

@@ -5592,6 +5592,12 @@ public static SixModelObject timer(SixModelObject queue, SixModelObject schedule
         handle.handle = tt;
         return handle;
     }
+    public static SixModelObject permit(SixModelObject handle, long channel, long permits,
+                                        ThreadContext tc) {
+        AsyncTaskInstance task = (AsyncTaskInstance) handle;
+        // TODO Implement permit handling properly
+        return handle;
+    }
     public static SixModelObject cancel(SixModelObject handle, ThreadContext tc) {
         AsyncTaskInstance task = (AsyncTaskInstance) handle;
         if (task.handle instanceof IIOCancelable) {