Remove now-unnecessary markCAFs().
/* ---------------------------------------------------------------------------
- * $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
*
#if defined(SMP) || defined(PAR) || defined(GRAN)
markSparkQueue();
#endif
-
-#if defined(GHCI)
- markCafs();
-#endif
}
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $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
*
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.
-------------------------------------------------------------------------- */