Use LSB to signify object vs. STable repossession.

Raku · Feb 28, 2012 · d83bff9 · d83bff9
1 parent d3c7cd7
commit d83bff9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/6model/serialization_context.c b/src/6model/serialization_context.c
@@ -138,7 +138,7 @@ void SC_repossess_object(PARROT_INTERP, PMC *target_sc, PMC *orig_sc, PMC *objec
     /* Add repossession entry. */
     GETATTR_SerializationContext_rep_indexes(interp, target_sc, rep_indexes);
     GETATTR_SerializationContext_rep_scs(interp, target_sc, rep_scs);
-    VTABLE_push_integer(interp, rep_indexes, new_slot);
+    VTABLE_push_integer(interp, rep_indexes, new_slot << 1);
     VTABLE_push_pmc(interp, rep_scs, orig_sc);
 }
 
@@ -157,6 +157,6 @@ void SC_repossess_stable(PARROT_INTERP, PMC *target_sc, PMC *orig_sc, PMC *st_pm
     /* Add repossession entry. */
     GETATTR_SerializationContext_rep_indexes(interp, target_sc, rep_indexes);
     GETATTR_SerializationContext_rep_scs(interp, target_sc, rep_scs);
-    VTABLE_push_integer(interp, rep_indexes, new_slot);
+    VTABLE_push_integer(interp, rep_indexes, (new_slot << 1) | 1);
     VTABLE_push_pmc(interp, rep_scs, orig_sc);
 }