X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGC.c;h=e4b5098e2484950971e5982b43ffda7a9ddaad8d;hp=216d3cbe4475fdc969cee081e60c3fadc81c673d;hb=45202530612593a0ba7a6c559a38dc1ff26670a4;hpb=f71b024714320a3f1606b3fda36610ac3f043774;ds=sidebyside

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 216d3cb..e4b5098 100644
--- 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;
 
-  ACQUIRE_SM_LOCK;
-
 #ifdef PROFILING
   CostCentreStack *prev_CCS;
 #endif
 
+  ACQUIRE_SM_LOCK;
+
   debugTrace(DEBUG_gc, "starting GC");
 
 #if defined(RTS_USER_SIGNALS)