Some serialization/SC management fixes.

Raku · Apr 15, 2013 · 2afee8f · 2afee8f
1 parent 598d177
commit 2afee8f
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/SerializationReader.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/SerializationReader.java
@@ -86,6 +86,7 @@ public void deserialize() {
 
 		// Put code refs in place.
 		for (int i = 0; i < cr.length; i++) {
+			cr[i].isStaticCodeRef = true;
 			cr[i].sc = sc;
 			sc.root_codes.add(cr[i]);
 		}

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance.java
@@ -253,6 +253,7 @@ private void memmove(SixModelObject[] slots, long dest_start, long src_start, lo
     public SixModelObject clone(ThreadContext tc) {
 		try {
 			VMArrayInstance clone = (VMArrayInstance)this.clone();
+			clone.sc = null;
 			if (this.slots != null)
 				clone.slots = this.slots.clone();
 			return clone;

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance_i.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance_i.java
@@ -258,6 +258,7 @@ private void memmove(long[] slots, long dest_start, long src_start, long l_n) {
     public SixModelObject clone(ThreadContext tc) {
 		try {
 			VMArrayInstance_i clone = (VMArrayInstance_i)this.clone();
+			clone.sc = null;
 			if (clone.slots != null)
 				clone.slots = this.slots.clone();
 			return clone;

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance_n.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance_n.java
@@ -258,6 +258,7 @@ private void memmove(double[] slots, long dest_start, long src_start, long l_n)
     public SixModelObject clone(ThreadContext tc) {
 		try {
 			VMArrayInstance_n clone = (VMArrayInstance_n)this.clone();
+			clone.sc = null;
 			if (clone.slots != null)
 				clone.slots = this.slots.clone();
 			return clone;

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance_s.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMArrayInstance_s.java
@@ -258,6 +258,7 @@ private void memmove(String[] slots, long dest_start, long src_start, long l_n)
     public SixModelObject clone(ThreadContext tc) {
 		try {
 			VMArrayInstance_s clone = (VMArrayInstance_s)this.clone();
+			clone.sc = null;
 			if (clone.slots != null)
 				clone.slots = this.slots.clone();
 			return clone;

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMHashInstance.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/VMHashInstance.java
@@ -36,6 +36,7 @@ public long elems(ThreadContext tc) {
 	public SixModelObject clone(ThreadContext tc) {
     	try {
     		VMHashInstance copy = (VMHashInstance)this.clone();
+    		copy.sc = null;
     		copy.storage = (HashMap<String, SixModelObject>)storage.clone();
     		return copy;
     	} catch (CloneNotSupportedException e) {