From 0f3dd21e3e1d3ce8038e6dd85834decbe4ee3dca Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 7 Dec 2009 09:23:14 +0000 Subject: [PATCH] Fix profiling build --- rts/LdvProfile.c | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index a1eef17..c2e7d7e 100644 --- a/rts/LdvProfile.c +++ b/rts/LdvProfile.c @@ -259,7 +259,7 @@ processChainForDead( bdescr *bd ) void LdvCensusForDead( nat N ) { - nat g, s; + nat g; // ldvTime == 0 means that LDV profiling is currently turned off. if (era == 0) @@ -271,16 +271,11 @@ LdvCensusForDead( nat N ) // barf("Lag/Drag/Void profiling not supported with -G1"); } else { - for (g = 0; g <= N; g++) - for (s = 0; s < generations[g].n_steps; s++) { - if (g == 0 && s == 0) { - processNurseryForDead(); - processChainForDead(generations[g].steps[s].large_objects); - } else{ - processHeapForDead(generations[g].steps[s].old_blocks); - processChainForDead(generations[g].steps[s].large_objects); - } - } + processNurseryForDead(); + for (g = 0; g <= N; g++) { + processHeapForDead(generations[g].old_blocks); + processChainForDead(generations[g].large_objects); + } } } -- 1.7.10.4