Export 'insertSymbol' and 'insertStableSymbol'.

[ghc-hetmet.git] / rts / GC.c

diff --git a/rts/GC.c b/rts/GC.c
index d71eaee..b75c549 100644 (file)
--- 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.