From c3d9b5637fd00510809a7bb0bdcbcf521636706b Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 19 Jan 1999 16:56:50 +0000
Subject: [PATCH] [project @ 1999-01-19 16:56:50 by simonm] Small fix to slop
 skipping.

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

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