From: simonmar <unknown>
Date: Thu, 28 Apr 2005 15:44:16 +0000 (+0000)
Subject: [project @ 2005-04-28 15:44:16 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~647
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=69ccf53d0e15365947c88b9607c3df0651052ed2;p=ghc-hetmet.git

[project @ 2005-04-28 15:44:16 by simonmar]
calcAllocated: fix small mis-calculation in the SMP case
---

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 84232e7..f466a58 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -747,7 +747,7 @@ calcAllocated( void )
 #ifdef SMP
   for (i = 0; i < n_nurseries; i++) {
       Capability *cap;
-      for ( bd = capabilities[i].r.rCurrentNursery; 
+      for ( bd = capabilities[i].r.rCurrentNursery->link; 
 	    bd != NULL; bd = bd->link ) {
 	  allocated -= BLOCK_SIZE_W;
       }