summaryrefslogtreecommitdiff
path: root/rts/LdvProfile.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/LdvProfile.c')
-rw-r--r--rts/LdvProfile.c23
1 files changed, 0 insertions, 23 deletions
diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index 608961e246..c918be55a8 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -173,28 +173,6 @@ processHeapForDead( bdescr *bd )
}
/* --------------------------------------------------------------------------
- * Calls processHeapClosureForDead() on every *dead* closures in the nursery.
- * ----------------------------------------------------------------------- */
-static void
-processNurseryForDead( void )
-{
- StgPtr p;
- bdescr *bd;
-
- if (MainCapability.r.rNursery == NULL)
- return;
-
- for (bd = MainCapability.r.rNursery->blocks; bd != NULL; bd = bd->link) {
- p = bd->start;
- while (p < bd->free) {
- while (p < bd->free && !*p) p++; // skip slop
- if (p >= bd->free) break;
- p += processHeapClosureForDead((StgClosure *)p);
- }
- }
-}
-
-/* --------------------------------------------------------------------------
* Calls processHeapClosureForDead() on every *dead* closures in the closure
* chain.
* ----------------------------------------------------------------------- */
@@ -233,7 +211,6 @@ LdvCensusForDead( uint32_t N )
//
barf("Lag/Drag/Void profiling not supported with -G1");
} else {
- processNurseryForDead();
for (g = 0; g <= N; g++) {
processHeapForDead(generations[g].old_blocks);
processChainForDead(generations[g].large_objects);