X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSanity.c;h=43200d2ba969ddd41b442fb346227e3e3d57be26;hb=1446bc7d943c6a92dbd48acf6a2e8fb408cdc6fb;hp=ae40bbea60676c50d5757bebbb58892de4cf7422;hpb=a3a331064b5020f77bf676a3d4eb74650ae7b8c3;p=ghc-hetmet.git

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index ae40bbe..43200d2 100644
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -547,6 +547,12 @@ checkHeap(bdescr *bd)
 {
     StgPtr p;
 
+#if defined(SMP)
+    // heap sanity checking doesn't work with SMP, because we can't
+    // zero the slop (see Updates.h).
+    return;
+#endif
+
     for (; bd != NULL; bd = bd->link) {
 	p = bd->start;
 	while (p < bd->free) {