Fix building RTS with gcc 2.*; declare all variables at the top of a block

[ghc-hetmet.git] / rts / sm / GC.c

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 216d3cb..e4b5098 100644 (file)
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -199,12 +199,12 @@ GarbageCollect ( rtsBool force_major_gc )
   lnat oldgen_saved_blocks = 0;
   nat g, s, i;
 
   lnat oldgen_saved_blocks = 0;
   nat g, s, i;
 

-  ACQUIRE_SM_LOCK;
-

 #ifdef PROFILING
   CostCentreStack *prev_CCS;
 #endif
 
 #ifdef PROFILING
   CostCentreStack *prev_CCS;
 #endif
 

+  ACQUIRE_SM_LOCK;
+

   debugTrace(DEBUG_gc, "starting GC");
 
 #if defined(RTS_USER_SIGNALS)
   debugTrace(DEBUG_gc, "starting GC");
 
 #if defined(RTS_USER_SIGNALS)