From: simonmar <unknown>
Date: Mon, 25 Jul 2005 14:01:42 +0000 (+0000)
Subject: [project @ 2005-07-25 14:01:42 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~320
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fcb34f7bb31145fb2639b4410415d796ca43114b;p=ghc-hetmet.git

[project @ 2005-07-25 14:01:42 by simonmar]
catching up with GC tweaks.
---

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index f30ef5d..2593d1e 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -1063,7 +1063,7 @@ heapCensus( void )
 
   // Now traverse the heap in each generation/step.
   if (RtsFlags.GcFlags.generations == 1) {
-      heapCensusChain( census, g0s0->to_blocks );
+      heapCensusChain( census, g0s0->blocks );
   } else {
       for (g = 0; g < RtsFlags.GcFlags.generations; g++) {
 	  for (s = 0; s < generations[g].n_steps; s++) {