[cage] Clear constant flag during thawing PMC from PBC.

git-svn-id: https://svn.parrot.org/parrot/trunk@40080 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Jul 14, 2009 · 929b7cb · 929b7cb
1 parent 7c6761a
commit 929b7cb
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/pmc_freeze.c b/src/pmc_freeze.c
@@ -1661,6 +1661,11 @@ visit_loop_todo_list(PARROT_INTERP, ARGIN_NULLOK(PMC *current),
 
         PARROT_ASSERT(current->vtable);
 
+        /* Workaround for thawing constants. Clear constant flag */
+        /* See src/packfile.c:3999 */
+        if (thawing)
+            PObj_constant_CLEAR(current);
+
         VTABLE_visit(interp, current, info);
 
         if (thawing) {