Ensure boot types go in the core SC.

jnthn · Mar 9, 2013 · 3ee9559 · 3ee9559
1 parent b2d6b35
commit 3ee9559
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/org/perl6/nqp/sixmodel/KnowHOWBootstrapper.java b/src/org/perl6/nqp/sixmodel/KnowHOWBootstrapper.java
@@ -139,6 +139,15 @@ private static SixModelObject bootType(ThreadContext tc, String typeName, String
         SixModelObject type_obj = repr.type_object_for(tc, meta_obj);
         type_obj.st.MethodCache = meta_obj.methods;
         type_obj.st.ModeFlags = STable.METHOD_CACHE_AUTHORITATIVE;
+
+        SerializationContext sc = tc.gc.scs.get("__6MODEL_CORE__");
+        sc.root_objects.add(type_obj);
+        type_obj.sc = sc;
+        sc.root_objects.add(type_obj.st.HOW);
+        type_obj.st.HOW.sc = sc;
+        sc.root_stables.add(type_obj.st);
+        type_obj.st.sc = sc;
+
         return type_obj;
     }