[project @ 2005-10-12 12:57:23 by simonmar]

[ghc-hetmet.git] / ghc / rts / Sanity.c

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index d6b04a1..43200d2 100644 (file)
--- 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) {
@@ -937,15 +943,4 @@ checkLAGAtable(rtsBool check_closures)
 }
 #endif
 
-int
-onMutList(StgMutClosure *p, StgMutClosure *mut)
-{
-    int i;
-    for (i=0; mut != END_MUT_LIST; i++) {
-       if (mut == p) return i;
-       mut = mut->mut_link;
-    }
-    return -1;
-}
-
 #endif /* DEBUG */