* spark pool and the spark pool only contains sparkable closures
* -------------------------------------------------------------------------- */
* spark pool and the spark pool only contains sparkable closures
* -------------------------------------------------------------------------- */
{
StgClosure *spark, **sparkp, **to_sparkp;
nat n, pruned_sparks; // stats only
{
StgClosure *spark, **sparkp, **to_sparkp;
nat n, pruned_sparks; // stats only
ASSERT(*sparkp!=NULL);
ASSERT(LOOKS_LIKE_CLOSURE_PTR(((StgClosure *)*sparkp)));
// ToDo?: statistics gathering here (also for GUM!)
ASSERT(*sparkp!=NULL);
ASSERT(LOOKS_LIKE_CLOSURE_PTR(((StgClosure *)*sparkp)));
// ToDo?: statistics gathering here (also for GUM!)
- debugTrace(DEBUG_sched,
- "marked %d sparks, pruned %d sparks",
- n, pruned_sparks);
+ debugTrace(DEBUG_sched, "pruned %d sparks", pruned_sparks);