From: simonm <unknown>
Date: Tue, 19 Jan 1999 16:56:50 +0000 (+0000)
Subject: [project @ 1999-01-19 16:56:50 by simonm]
X-Git-Tag: Approx_2487_patches~43
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c3d9b5637fd00510809a7bb0bdcbcf521636706b;p=ghc-hetmet.git

[project @ 1999-01-19 16:56:50 by simonm]
Small fix to slop skipping.
---

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