From b024717f2be4326cb11ced4e2d703ebcced05f96 Mon Sep 17 00:00:00 2001
From: stolz <unknown>
Date: Thu, 12 May 2005 11:36:50 +0000
Subject: [PATCH] [project @ 2005-05-12 11:36:50 by stolz] C89ify recent
 change

---
 ghc/rts/Storage.c |    2 ++
 1 file changed, 2 insertions(+)

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