From 69ccf53d0e15365947c88b9607c3df0651052ed2 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 28 Apr 2005 15:44:16 +0000 Subject: [PATCH] [project @ 2005-04-28 15:44:16 by simonmar] calcAllocated: fix small mis-calculation in the SMP case --- ghc/rts/Storage.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; } -- 1.7.10.4