From 12c7ad877a75172186bd408dbc2d5b883dfc1361 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 3 Dec 2009 08:59:30 +0000 Subject: [PATCH] Fix profiling build --- rts/LdvProfile.c | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index b5c0e63..a1eef17 100644 --- a/rts/LdvProfile.c +++ b/rts/LdvProfile.c @@ -233,27 +233,6 @@ processNurseryForDead( void ) } /* -------------------------------------------------------------------------- - * Calls processHeapClosureForDead() on every *dead* closures in the - * small object pool. - * ----------------------------------------------------------------------- */ -static void -processSmallObjectPoolForDead( void ) -{ - bdescr *bd; - StgPtr p; - - for (bd = g0s0->blocks; bd != NULL; bd = bd->link) { - p = bd->start; - while (p < bd->free) { - p += processHeapClosureForDead((StgClosure *)p); - while (p < bd->free && !*p) // skip slop - p++; - } - ASSERT(p == bd->free); - } -} - -/* -------------------------------------------------------------------------- * Calls processHeapClosureForDead() on every *dead* closures in the closure * chain. * ----------------------------------------------------------------------- */ @@ -295,7 +274,6 @@ LdvCensusForDead( nat N ) for (g = 0; g <= N; g++) for (s = 0; s < generations[g].n_steps; s++) { if (g == 0 && s == 0) { - processSmallObjectPoolForDead(); processNurseryForDead(); processChainForDead(generations[g].steps[s].large_objects); } else{ -- 1.7.10.4