Small fix to slop skipping.
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $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.
*
*
* Sanity checking code for the heap and stack.
*
/* This is the smallest size of closure that can live in the heap. */
ASSERT( size >= MIN_NONUPD_SIZE + sizeofW(StgHeader) );
p += size;
/* This is the smallest size of closure that can live in the heap. */
ASSERT( size >= MIN_NONUPD_SIZE + sizeofW(StgHeader) );
p += size;
- *p && !LOOKS_LIKE_GHC_INFO(*p)) { p++; } /* skip over slop */
+ (*p == 0 || !LOOKS_LIKE_GHC_INFO(*p))) { p++; }
}
bd = bd->link;
if (bd != NULL) {
}
bd = bd->link;
if (bd != NULL) {