X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FGC.c;h=b75c54948059e76367cf41945e983ef1b13f6db1;hb=47936fa626f195b057de16b35c0e6ca40666fc62;hp=d71eaee2e30b710545063e2b5f310de4b3df30f3;hpb=693342ffbb61e1da4c009059755fa0b9b1396bb8;p=ghc-hetmet.git

diff --git a/rts/GC.c b/rts/GC.c
index d71eaee..b75c549 100644
--- a/rts/GC.c
+++ b/rts/GC.c
@@ -666,6 +666,10 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
    */
   markStablePtrTable(mark_root);
 
+  /* Mark the root pointer table.
+   */
+  markRootPtrTable(mark_root);
+
   /* -------------------------------------------------------------------------
    * Repeatedly scavenge all the areas we know about until there's no
    * more scavenging to be done.