From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 23 Feb 2006 15:50:46 +0000 (+0000)
Subject: lag/drag/void profiling fix
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6a8f124fd1b9ccd3ed9715bc7d89efa98405c2c9

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