[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 (file)
--- 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;
       }