Implement p6getouterctx op.

rakudo · Jun 30, 2013 · 85a4d9a · 85a4d9a
1 parent 2fb22ef
commit 85a4d9a
Showing 1 changed file with 12 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
@@ -4,6 +4,7 @@
 import java.util.Comparator;
 import org.perl6.nqp.runtime.*;
 import org.perl6.nqp.sixmodel.*;
+import org.perl6.nqp.sixmodel.reprs.ContextRefInstance;
 import org.perl6.nqp.sixmodel.reprs.LexoticInstance;
 import org.perl6.nqp.sixmodel.reprs.VMArrayInstance;
 
@@ -446,6 +447,17 @@ public static SixModelObject p6capturelex(SixModelObject codeObj, ThreadContext
         return codeObj;
     }
 
+    public static SixModelObject p6getouterctx(SixModelObject codeObj, ThreadContext tc) {
+        GlobalExt gcx = key.getGC(tc);
+        codeObj = org.perl6.nqp.runtime.Ops.decont(codeObj, tc);
+        CodeRef closure = (CodeRef)codeObj.get_attribute_boxed(tc,
+                gcx.Code, "$!do", HINT_CODE_DO);
+        SixModelObject ContextRef = tc.gc.ContextRef;
+        SixModelObject wrap = ContextRef.st.REPR.allocate(tc, ContextRef.st);
+        ((ContextRefInstance)wrap).context = closure.outer;
+        return wrap;
+    }
+
     public static SixModelObject p6captureouters(SixModelObject capList, ThreadContext tc) {
         GlobalExt gcx = key.getGC(tc);
         CallFrame cf = tc.curFrame;