Implement nqp::p6stateinit.

rakudo · Jun 21, 2013 · 36f36de · 36f36de
1 parent e742323
commit 36f36de
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java b/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java
@@ -548,4 +548,8 @@ public int compare(SixModelObject a, SixModelObject b) {
             indices.bind_pos_boxed(tc, i, sortable[i]);
         return indices;
     }
+
+    public static long p6stateinit(ThreadContext tc) {
+        return tc.curFrame.stateInit ? 1 : 0;
+    }
 }