X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2Fsm%2FGC.c;h=244da13489b6747bfda3cf681895c84bcd82fa86;hb=8311cc9208c6d6e1d9ad0458dab62e49bd154ae2;hp=af35150072da9db7781299f8996a0a0a935abc46;hpb=313734473b419f55ee39d2df442f93a49b709aa4;p=ghc-hetmet.git

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;