Implement p6reprname op on JVM.

rakudo · Oct 21, 2013 · e9830d3 · e9830d3
1 parent e55c66b
commit e9830d3
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/rakudo/RakOps.java b/src/vm/jvm/runtime/org/perl6/rakudo/RakOps.java
@@ -525,6 +525,14 @@ public static SixModelObject p6var(SixModelObject cont, ThreadContext tc) {
             return cont;
         }
     }
+
+    public static SixModelObject p6reprname(SixModelObject obj, ThreadContext tc) {
+        GlobalExt gcx = key.getGC(tc);
+        obj = Ops.decont(obj, tc);
+        SixModelObject name = gcx.Str.st.REPR.allocate(tc, gcx.Str.st);
+        name.set_str(tc, obj.st.REPR.name);
+        return name;
+    }
 
     private static final CallSiteDescriptor rvThrower = new CallSiteDescriptor(
         new byte[] { CallSiteDescriptor.ARG_OBJ, CallSiteDescriptor.ARG_OBJ }, null);