From: simonmar <unknown>
Date: Fri, 3 Jun 2005 08:47:58 +0000 (+0000)
Subject: [project @ 2005-06-03 08:47:58 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~461
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=712ab7c768423fe61f01573239ea4e792517fee8;p=ghc-hetmet.git

[project @ 2005-06-03 08:47:58 by simonmar]
Fix crash in LDV profiling on the HEAD
---

diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c
index 9d21f6a..ec91b1a 100644
--- a/ghc/rts/LdvProfile.c
+++ b/ghc/rts/LdvProfile.c
@@ -289,7 +289,7 @@ processNurseryForDead( void )
     StgPtr p, bdLimit;
     bdescr *bd;
 
-    bd = MainCapability.r.rNursery;
+    bd = MainCapability.r.rNursery->blocks;
     while (bd->start < bd->free) {
 	p = bd->start;
 	bdLimit = bd->start + BLOCK_SIZE_W;