From: simonmar@microsoft.com <unknown>
Date: Tue, 15 Jan 2008 09:57:36 +0000 (+0000)
Subject: small rearrangement
X-Git-Tag: Before_cabalised-GHC~258
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=15b6daa6d8e35e34ad077049c1f76d9f5966be9a

small rearrangement
---

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 6510e77..fe26cf9 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -207,12 +207,12 @@ GarbageCollect ( rtsBool force_major_gc )
   }
 #endif
 
-  // tell the STM to discard any cached closures it's hoping to re-use
-  stmPreGCHook();
-
   // tell the stats department that we've started a GC 
   stat_startGC();
 
+  // tell the STM to discard any cached closures it's hoping to re-use
+  stmPreGCHook();
+
 #ifdef DEBUG
   // check for memory leaks if DEBUG is on 
   memInventory();