[pmc] key, task: manual WBs for shift_*, pop_*

parrot · May 23, 2014 · eb4e321 · eb4e321
1 parent 1d8b9be
commit eb4e321
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/src/pmc/key.pmc b/src/pmc/key.pmc
@@ -224,10 +224,12 @@ chain.
 
 */
 
-    VTABLE PMC *shift_pmc() {
+    VTABLE PMC *shift_pmc() :manual_wb {
         PMC *next_key;
 
         GET_ATTR_next_key(INTERP, SELF, next_key);
+        PARROT_GC_WRITE_BARRIER(INTERP, SELF);
+
         return next_key;
     }
 

diff --git a/src/pmc/task.pmc b/src/pmc/task.pmc
@@ -326,8 +326,12 @@ Return a proxy for the last shared PMC.
 
 */
 
-    VTABLE PMC *pop_pmc() {
-        return VTABLE_pop_pmc(interp, PARROT_TASK(SELF)->shared);
+    VTABLE PMC *pop_pmc() :manual_wb {
+        PMC *temp;
+        temp = VTABLE_pop_pmc(interp, PARROT_TASK(SELF)->shared);
+        PARROT_GC_WRITE_BARRIER(INTERP, SELF);
+
+        return temp;
     }
 
 /*