From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 9 Sep 2008 13:34:53 +0000 (+0000)
Subject: Move checkGlobalTSOList() call from GarbageCollect() to checkSanity()
X-Git-Tag: 2008-09-12~41
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=886d3dbfc27a159da9c38cc237517a3036ac3a8f;p=ghc-hetmet.git

Move checkGlobalTSOList() call from GarbageCollect() to checkSanity()
---

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index c254fcb..f8a0980 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -494,8 +494,6 @@ GarbageCollect ( rtsBool force_major_gc )
           sweep(&oldest_gen->steps[0]);
   }
 
-  IF_DEBUG(sanity, checkGlobalTSOList(rtsFalse));
-
   /* run through all the generations/steps and tidy up 
    */
   copied = 0;
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 9e820ff..6cccf34 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -1395,6 +1395,14 @@ checkSanity( void )
 	    
 	checkFreeListSanity();
     }
+
+#if defined(THREADED_RTS)
+    // check the stacks too in threaded mode, because we don't do a
+    // full heap sanity check in this case (see checkHeap())
+    checkGlobalTSOList(rtsTrue);
+#else
+    checkGlobalTSOList(rtsFalse);
+#endif
 }
 
 /* Nursery sanity check */