Stub in Decoder REPR on JVM.

Author: jnthn

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

@@ -40,6 +40,7 @@
 import org.perl6.nqp.sixmodel.reprs.AsyncTask;
 import org.perl6.nqp.sixmodel.reprs.NativeRef;
 import org.perl6.nqp.sixmodel.reprs.MultiDimArray;
+import org.perl6.nqp.sixmodel.reprs.Decoder;
 
 public class REPRRegistry {
     private static HashMap<String, Integer> reprIdMap = new HashMap<String, Integer>();
@@ -104,5 +105,6 @@ private static void addREPR(String name, REPR REPR) {
         addREPR("AsyncTask", new AsyncTask());
         addREPR("NativeRef", new NativeRef());
         addREPR("MultiDimArray", new MultiDimArray());
+        addREPR("Decoder", new Decoder());
     }
 }

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

@@ -0,0 +1,34 @@
+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 Decoder 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) {
+        DecoderInstance obj = new DecoderInstance();
+        obj.st = st;
+        return obj;
+    }
+
+    public SixModelObject deserialize_stub(ThreadContext tc, STable st) {
+        throw ExceptionHandling.dieInternal(tc, "Cannot deserialize a Decoder");
+    }
+
+    public void deserialize_finish(ThreadContext tc, STable st,
+            SerializationReader reader, SixModelObject obj) {
+        throw ExceptionHandling.dieInternal(tc, "Cannot deserialize a Decoder");
+    }
+}

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

@@ -0,0 +1,6 @@
+package org.perl6.nqp.sixmodel.reprs;
+
+import org.perl6.nqp.sixmodel.SixModelObject;
+
+public class DecoderInstance extends SixModelObject {
+}