From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 27 Aug 2010 10:28:18 +0000 (+0000)
Subject: Fix for nursery resizing: the first block's back pointer should be NULL
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=33167a5bdcd6a487a8f212c6757c4f8901bc067c;p=ghc-hetmet.git

Fix for nursery resizing: the first block's back pointer should be NULL
I'm not sure if this could lead to a crash or not, but it upsets +RTS -DS
Might be related to #4265
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 10a0a38..2172f9b 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -353,6 +353,8 @@ allocNursery (bdescr *tail, nat blocks)
 
             if (i > 0) {
                 bd[i].u.back = &bd[i-1];
+            } else {
+                bd[i].u.back = NULL;
             }
 
             if (i+1 < n) {