Ensure SC is cleared when cloning P6opaque.

jnthn · Apr 14, 2013 · 4c3618d · 4c3618d
1 parent 9ceb63a
commit 4c3618d
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/org/perl6/nqp/sixmodel/reprs/P6OpaqueBaseInstance.java b/src/org/perl6/nqp/sixmodel/reprs/P6OpaqueBaseInstance.java
@@ -32,10 +32,13 @@ public final SixModelObject autoViv(int slot) {
 
 	public SixModelObject clone(ThreadContext tc) {
 		try {
+			SixModelObject cloned;
 			if (this.delegate != null)
-				return this.delegate.clone(tc);
+				cloned = this.delegate.clone(tc);
 			else
-				return (SixModelObject)this.clone();
+				cloned = (SixModelObject)this.clone();
+			cloned.sc = null;
+			return cloned;
 		} catch (CloneNotSupportedException e) {
 			throw new RuntimeException(e);
 		}