X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSanity.c;h=43200d2ba969ddd41b442fb346227e3e3d57be26;hb=524a6f8bdf35c37998072fc1692c681c45a336f7;hp=ae40bbea60676c50d5757bebbb58892de4cf7422;hpb=7177663c27f00f7bbeb222f2c92c43d9da0ec308;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) {