move markSparkQueue into GC.c, as it needs the register variable defined

[ghc-hetmet.git] / rts / sm / BlockAlloc.c

diff --git a/rts/sm/BlockAlloc.c b/rts/sm/BlockAlloc.c
index 1c4899e..8b85956 100644 (file)
--- a/rts/sm/BlockAlloc.c
+++ b/rts/sm/BlockAlloc.c
@@ -310,7 +310,8 @@ allocGroup (nat n)
 {
     bdescr *bd, *rem;
 
-    ASSERT_SM_LOCK();
+    // Todo: not true in multithreaded GC, where we use allocBlock_sync().
+    // ASSERT_SM_LOCK();
 
     if (n == 0) barf("allocGroup: requested zero blocks");
     
@@ -439,7 +440,8 @@ freeGroup(bdescr *p)
 {
   nat p_on_free_list = 0;
 
-  ASSERT_SM_LOCK();
+  // Todo: not true in multithreaded GC
+  // ASSERT_SM_LOCK();
 
   ASSERT(p->free != (P_)-1);