Decontainerize on marshal out of objects.

Means that we can use assignment as well as binding when using Java objects in Perl 6.
Raku · Aug 6, 2013 · 9d33bb1 · 9d33bb1
1 parent b6257b3
commit 9d33bb1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/BootJavaInterop.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/BootJavaInterop.java
@@ -600,6 +600,8 @@ else if (what == ThreadContext.class) {
             mv.visitLabel(done);
         }
         else {
+            mv.visitVarInsn(Opcodes.ALOAD, c.tcLoc);
+            mv.visitMethodInsn(Opcodes.INVOKESTATIC, "org/perl6/nqp/runtime/Ops", "decont", Type.getMethodDescriptor(TYPE_SMO, TYPE_SMO, TYPE_TC));
             mv.visitMethodInsn(Opcodes.INVOKESTATIC, "org/perl6/nqp/runtime/BootJavaInterop$RuntimeSupport", "unboxJava", Type.getMethodDescriptor(TYPE_OBJ, TYPE_SMO));
             mv.visitTypeInsn(Opcodes.CHECKCAST, Type.getInternalName(what));
         }