summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorsimonmar@microsoft.com <unknown>2008-01-15 09:57:36 +0000
committersimonmar@microsoft.com <unknown>2008-01-15 09:57:36 +0000
commit15b6daa6d8e35e34ad077049c1f76d9f5966be9a (patch)
treec9b90943f8609140fed4419b0adb3a99ed92491f /rts
parent4603b94abac3f36609af5b3b98d34b5b52905c36 (diff)
downloadhaskell-15b6daa6d8e35e34ad077049c1f76d9f5966be9a.tar.gz
small rearrangement
Diffstat (limited to 'rts')
-rw-r--r--rts/sm/GC.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index 6510e77798..fe26cf9e53 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();