From 1446bc7d943c6a92dbd48acf6a2e8fb408cdc6fb Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 12 Oct 2005 12:57:23 +0000
Subject: [PATCH] [project @ 2005-10-12 12:57:23 by simonmar] checkHeap: just
 return on SMP, we can't do heap sanity checking because we
 can't zero slop words safely.

---
 ghc/rts/Sanity.c |    6 ++++++
 1 file changed, 6 insertions(+)

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) {
-- 
1.7.10.4