X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSanity.c;h=00ebb3ccaffbbf391b40db6c77dcd5be6f09169b;hb=c4b1e8cd3900152d6e38e0b6acf702d2e3f6efc7;hp=cef528a661d686dd72476b079f64818920e620fe;hpb=59f3fefdf72e008be49066c62c7419b11c6cfcf1;p=ghc-hetmet.git

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index cef528a..00ebb3c 100644
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Sanity.c,v 1.5 1999/01/18 15:18:06 simonm Exp $
+ * $Id: Sanity.c,v 1.6 1999/01/19 16:56:50 simonm Exp $
  *
  * Sanity checking code for the heap and stack.
  *
@@ -340,8 +340,10 @@ checkHeap(bdescr *bd, StgPtr start)
         /* This is the smallest size of closure that can live in the heap. */
         ASSERT( size >= MIN_NONUPD_SIZE + sizeofW(StgHeader) );
 	p += size;
+
+	/* skip over slop */
 	while (p < bd->free &&
-	       *p && !LOOKS_LIKE_GHC_INFO(*p)) { p++; } /* skip over slop */
+	       (*p == 0 || !LOOKS_LIKE_GHC_INFO(*p))) { p++; } 
       }
       bd = bd->link;
       if (bd != NULL) {