lag/drag/void profiling fix

[ghc-hetmet.git] / ghc / rts / LdvProfile.c

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);
                }
            }