From: stolz <unknown>
Date: Thu, 12 May 2005 11:36:50 +0000 (+0000)
Subject: [project @ 2005-05-12 11:36:50 by stolz]
X-Git-Tag: Initial_conversion_from_CVS_complete~568
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b024717f2be4326cb11ced4e2d703ebcced05f96;p=ghc-hetmet.git

[project @ 2005-05-12 11:36:50 by stolz]
C89ify recent change
---

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 8643972..7bb6e39 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -828,6 +828,7 @@ calcAllocated( void )
   allocated = allocated_bytes();
   allocated += countNurseryBlocks() * BLOCK_SIZE_W;
   
+  {
 #ifdef SMP
   nat i;
   for (i = 0; i < n_nurseries; i++) {
@@ -854,6 +855,7 @@ calcAllocated( void )
 	  - current_nursery->free;
   }
 #endif
+  }
 
   total_allocated += allocated;
   return allocated;