From 8311cc9208c6d6e1d9ad0458dab62e49bd154ae2 Mon Sep 17 00:00:00 2001
From: "simonmar@microsoft.com" <unknown>
Date: Fri, 14 Dec 2007 10:32:23 +0000
Subject: [PATCH] bugfix: check for NULL before testing
 isPartiallyFull(stp->blocks)

---
 rts/sm/GC.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
1.7.10.4