X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FStorage.c;h=6cccf34121c3563357adc78cdb315185618704aa;hb=886d3dbfc27a159da9c38cc237517a3036ac3a8f;hp=9e820ff0f6c0718e199d81a1ab1cb0bdf1ada900;hpb=128a7fae5da321c24008b1d53ece0a8b58912c82;p=ghc-hetmet.git

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 */