projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-07-25 20:43:49 by partain]
[ghc-hetmet.git]
/
ghc
/
runtime
/
storage
/
SM1s.lc
diff --git
a/ghc/runtime/storage/SM1s.lc
b/ghc/runtime/storage/SM1s.lc
index
e58bc83
..
57822b5
100644
(file)
--- 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(GRAN)
LinkEvents();
#endif
-#if defined(CONCURRENT) /* && !defined(GRAN) */
+#if defined(CONCURRENT)
LinkSparks();
#endif
#ifdef PAR
LinkSparks();
#endif
#ifdef PAR
@@
-148,10
+148,8
@@
collectHeap(reqsize, sm, do_full_collection)
LINK_LOCATION_TO_CLOSURE(&sm->StablePointerTable);
*/
LINK_LOCATION_TO_CLOSURE(&sm->StablePointerTable);
*/
-# if /* !defined(GRAN) */ /* HWL */
LinkAStack( MAIN_SpA, stackInfo.botA );
LinkBStack( MAIN_SuB, stackInfo.botB );
LinkAStack( MAIN_SpA, stackInfo.botA );
LinkBStack( MAIN_SuB, stackInfo.botB );
-# endif
#endif /* parallel */
/* Do Inplace Compaction */
#endif /* parallel */
/* Do Inplace Compaction */