Be more eager about owning STables.

jnthn · Mar 9, 2013 · 5c9264f · 5c9264f
1 parent 6e9482f
commit 5c9264f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/org/perl6/nqp/runtime/Ops.java b/src/org/perl6/nqp/runtime/Ops.java
@@ -2267,11 +2267,16 @@ public static SixModelObject createsc(String handle, ThreadContext tc) {
     }
     public static SixModelObject scsetobj(SixModelObject scRef, long idx, SixModelObject obj, ThreadContext tc) {
     	if (scRef instanceof SCRefInstance) {
-    		ArrayList<SixModelObject> roots = ((SCRefInstance)scRef).referencedSC.root_objects; 
+    		SerializationContext sc = ((SCRefInstance)scRef).referencedSC;
+    		ArrayList<SixModelObject> roots = sc.root_objects; 
     		if (roots.size() == idx)
     			roots.add(obj);
     		else
     			roots.set((int)idx, obj);
+    		if (obj.st.sc == null) {
+    			sc.root_stables.add(obj.st);
+    			obj.st.sc = sc;
+    		}
     		return obj;
     	}
     	else {