From: simonmar <unknown>
Date: Wed, 12 Oct 2005 12:57:23 +0000 (+0000)
Subject: [project @ 2005-10-12 12:57:23 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~177
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1446bc7d943c6a92dbd48acf6a2e8fb408cdc6fb;p=ghc-hetmet.git

[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.
---

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