lag/drag/void profiling fix

We were searching the wrong part of the heap for dead objects, this
was broken by recent changes to the step structure: from-space is now
in step->old_blocks, not step->blocks.  Fortunately some assertions in
ProfHeap picked up the problem.

diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c
index 18daf5a..19ebe42 100644 (file)
--- a/ghc/rts/LdvProfile.c
+++ b/ghc/rts/LdvProfile.c
@@ -320,7 +320,7 @@ LdvCensusForDead( nat N )
                    processNurseryForDead();
                    processChainForDead(generations[g].steps[s].large_objects);
                } else{
-                   processHeapForDead(generations[g].steps[s].blocks);
+                   processHeapForDead(generations[g].steps[s].old_blocks);
                    processChainForDead(generations[g].steps[s].large_objects);
                }
            }