X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGC.c;h=30361401cc0b26a06ae9b366198a866f43cb16a4;hp=05bc8f22fb9e325488f9f97ecc9a983f2f5914ad;hb=cc2ea98ac4a15e40a15e89de9e47f33e191ba393;hpb=25297a13bd6be722a74ee87237498a5626b298ef

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 05bc8f2..3036140 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -597,11 +597,6 @@ GarbageCollect (rtsBool force_major_gc,
   // update the max size of older generations after a major GC
   resize_generations();
   
-  // Start a new pinned_object_block
-  for (n = 0; n < n_capabilities; n++) {
-      capabilities[n].pinned_object_block = NULL;
-  }
-
   // Free the mark stack.
   if (mark_stack_top_bd != NULL) {
       debugTrace(DEBUG_gc, "mark stack: %d blocks",