[project @ 2005-04-28 15:44:16 by simonmar]

calcAllocated: fix small mis-calculation in the SMP case

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