KnowHOWAttribute serialization.

jnthn · Mar 9, 2013 · ec4d91f · ec4d91f
1 parent 975f9b0
commit ec4d91f
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/org/perl6/nqp/sixmodel/reprs/KnowHOWAttribute.java b/src/org/perl6/nqp/sixmodel/reprs/KnowHOWAttribute.java
@@ -1,9 +1,11 @@
 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.SerializationWriter;
 import org.perl6.nqp.sixmodel.SixModelObject;
 import org.perl6.nqp.sixmodel.TypeObject;
 
@@ -34,4 +36,9 @@ public void deserialize_finish(ThreadContext tc, STable st,
 		data.name = reader.readStr();
 		data.type = tc.gc.KnowHOW; // Not serialized yet
 	}
+
+    public void serialize(ThreadContext tc, SerializationWriter writer, SixModelObject obj) {
+    	KnowHOWAttributeInstance data = (KnowHOWAttributeInstance)obj;
+    	writer.writeStr(data.name);
+    }
 }