Add a JavaWrap representation and associated code

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

@@ -92,6 +92,11 @@ public class GlobalContext {
      * BOOTIO type; a basic, method-less type with the IOHandle REPR.
      */
     public SixModelObject BOOTIO;
+
+    /**
+     * BOOTJava type; a basic, method-less type with the JavaWrap REPR.
+     */
+    public SixModelObject BOOTJava;
 
     /**
      * Typed VMArrays.

src/vm/jvm/runtime/org/perl6/nqp/sixmodel/KnowHOWBootstrapper.java

@@ -41,6 +41,7 @@ public static void bootstrap(ThreadContext tc)
 
         tc.gc.Continuation = bootType(tc, "Continuation", "Continuation");
         tc.gc.Lexotic = bootType(tc, "Lexotic", "Lexotic");
+        tc.gc.BOOTJava = bootType(tc, "BOOTJavaObject", "JavaWrap");
 
         Ops.setboolspec(tc.gc.BOOTIter, BoolificationSpec.MODE_ITER, null, tc);
         Ops.setboolspec(tc.gc.BOOTInt, BoolificationSpec.MODE_UNBOX_INT, null, tc);

src/vm/jvm/runtime/org/perl6/nqp/sixmodel/REPRRegistry.java

@@ -8,6 +8,7 @@
 import org.perl6.nqp.sixmodel.reprs.ContextRef;
 import org.perl6.nqp.sixmodel.reprs.Continuation;
 import org.perl6.nqp.sixmodel.reprs.IOHandle;
+import org.perl6.nqp.sixmodel.reprs.JavaWrap;
 import org.perl6.nqp.sixmodel.reprs.KnowHOWAttribute;
 import org.perl6.nqp.sixmodel.reprs.KnowHOWREPR;
 import org.perl6.nqp.sixmodel.reprs.Lexotic;
@@ -62,6 +63,7 @@ private static void addREPR(String name, REPR REPR) {
         addREPR("P6num", new P6num());
         addREPR("Uninstantiable", new Uninstantiable());
         addREPR("SCRef", new SCRef());
+        addREPR("JavaWrap", new JavaWrap());
         addREPR("ContextRef", new ContextRef());
         addREPR("Continuation", new Continuation());
         addREPR("Lexotic", new Lexotic());

src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/JavaObjectWrapper.java

@@ -0,0 +1,7 @@
+package org.perl6.nqp.sixmodel.reprs;
+
+import org.perl6.nqp.sixmodel.SixModelObject;
+
+public class JavaObjectWrapper extends SixModelObject {
+    public Object theObject;
+}

src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/JavaWrap.java

@@ -0,0 +1,32 @@
+package org.perl6.nqp.sixmodel.reprs;
+
+import org.perl6.nqp.runtime.ExceptionHandling;
+import org.perl6.nqp.runtime.ThreadContext;
+import org.perl6.nqp.sixmodel.REPR;
+import org.perl6.nqp.sixmodel.STable;
+import org.perl6.nqp.sixmodel.SerializationReader;
+import org.perl6.nqp.sixmodel.SixModelObject;
+import org.perl6.nqp.sixmodel.TypeObject;
+
+public class JavaWrap extends REPR {
+    public SixModelObject type_object_for(ThreadContext tc, SixModelObject HOW) {
+        STable st = new STable(this, HOW);
+        SixModelObject obj = new TypeObject();
+        obj.st = st;
+        st.WHAT = obj;
+        return st.WHAT;
+    }
+
+    public SixModelObject allocate(ThreadContext tc, STable st) {
+        throw ExceptionHandling.dieInternal(tc, "Java wrappers may not be directly instantiated");
+    }
+
+    public SixModelObject deserialize_stub(ThreadContext tc, STable st) {
+        throw ExceptionHandling.dieInternal(tc, "Java objects do not participate in serialization");
+    }
+
+    public void deserialize_finish(ThreadContext tc, STable st,
+            SerializationReader reader, SixModelObject obj) {
+        throw ExceptionHandling.dieInternal(tc, "Java objects do not participate in serialization");
+    }
+}