X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fstorage%2FSM1s.lc;h=57822b5d965bd92ab21f13dd45b96a35aca96435;hp=e58bc834037814c4ac158208eca3c014562e825b;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/runtime/storage/SM1s.lc b/ghc/runtime/storage/SM1s.lc
index e58bc83..57822b5 100644
--- a/ghc/runtime/storage/SM1s.lc
+++ b/ghc/runtime/storage/SM1s.lc
@@ -133,7 +133,7 @@ collectHeap(reqsize, sm, do_full_collection)
 #if defined(GRAN)
     LinkEvents();
 #endif
-#if defined(CONCURRENT) /* && !defined(GRAN) */
+#if defined(CONCURRENT)
     LinkSparks();
 #endif
 #ifdef PAR
@@ -148,10 +148,8 @@ collectHeap(reqsize, sm, do_full_collection)
     LINK_LOCATION_TO_CLOSURE(&sm->StablePointerTable);
 
     */
-# if /* !defined(GRAN) */  /* HWL */
     LinkAStack( MAIN_SpA, stackInfo.botA );
     LinkBStack( MAIN_SuB, stackInfo.botB );
-# endif
 #endif /* parallel */
 
     /* Do Inplace Compaction */