From: simonmar@microsoft.com <unknown>
Date: Fri, 14 Dec 2007 10:32:23 +0000 (+0000)
Subject: bugfix: check for NULL before testing isPartiallyFull(stp->blocks)
X-Git-Tag: Before_cabalised-GHC~271
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8311cc9208c6d6e1d9ad0458dab62e49bd154ae2

bugfix: check for NULL before testing isPartiallyFull(stp->blocks)
---

diff --git a/rts/sm/GC.c b/rts/sm/GC.c
index af35150..244da13 100644
--- a/rts/sm/GC.c
+++ b/rts/sm/GC.c
@@ -1237,7 +1237,7 @@ init_uncollected_gen (nat g, nat threads)
 
 	    // If the block at the head of the list in this generation
 	    // is less than 3/4 full, then use it as a todo block.
-	    if (isPartiallyFull(stp->blocks))
+	    if (stp->blocks && isPartiallyFull(stp->blocks))
 	    {
 		ws->todo_bd = stp->blocks;
                 ws->todo_free = ws->todo_bd->free;