diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-12-03 08:59:30 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-03 08:59:30 +0000 |
| commit | 12c7ad877a75172186bd408dbc2d5b883dfc1361 (patch) | |
| tree | f02420112d55a126b3e03e87e15740d8836e4a0c /rts/LdvProfile.c | |
| parent | c86161c5cf11de77e911fcb9e1e2bd1f8bd80b42 (diff) | |
| download | haskell-12c7ad877a75172186bd408dbc2d5b883dfc1361.tar.gz | |
Fix profiling build
Diffstat (limited to 'rts/LdvProfile.c')
| -rw-r--r-- | rts/LdvProfile.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index b5c0e63f01..a1eef17ef1 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{ |