diff options
Diffstat (limited to 'ghc/runtime/storage/SM1s.lc')
-rw-r--r-- | ghc/runtime/storage/SM1s.lc | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ghc/runtime/storage/SM1s.lc b/ghc/runtime/storage/SM1s.lc index e58bc83403..57822b5d96 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 */ |