diff options
| -rw-r--r-- | ghc/rts/Schedule.c | 6 | ||||
| -rw-r--r-- | ghc/rts/Storage.c | 14 |
2 files changed, 2 insertions, 18 deletions
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c index 63abd17c2e..9e6b057d1a 100644 --- a/ghc/rts/Schedule.c +++ b/ghc/rts/Schedule.c @@ -1,5 +1,5 @@ /* --------------------------------------------------------------------------- - * $Id: Schedule.c,v 1.87 2001/01/24 15:46:19 simonmar Exp $ + * $Id: Schedule.c,v 1.88 2001/01/31 11:04:29 simonmar Exp $ * * (c) The GHC Team, 1998-2000 * @@ -2006,10 +2006,6 @@ static void GetRoots(void) #if defined(SMP) || defined(PAR) || defined(GRAN) markSparkQueue(); #endif - -#if defined(GHCI) - markCafs(); -#endif } /* ----------------------------------------------------------------------------- diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c index caca81c239..eb9e98960d 100644 --- a/ghc/rts/Storage.c +++ b/ghc/rts/Storage.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Storage.c,v 1.34 2001/01/29 17:23:41 simonmar Exp $ + * $Id: Storage.c,v 1.35 2001/01/31 11:04:29 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -268,18 +268,6 @@ newCAF(StgClosure* caf) RELEASE_LOCK(&sm_mutex); } -#ifdef GHCI -void -markCafs( void ) -{ - StgClosure *p; - - for (p = caf_list; p != NULL; p = STATIC_LINK2(get_itbl(p),p)) { - MarkRoot(p); - } -} -#endif /* GHCI */ - /* ----------------------------------------------------------------------------- Nursery management. -------------------------------------------------------------------------- */ |