From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 4 Jun 2010 20:59:33 +0000 (+0000)
Subject: fix warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=81090f01f17719f7c01072e2fea8d41062a3015e

fix warning
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 2e43bff..c9422e6 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -331,7 +331,7 @@ newDynCAF (StgRegTable *reg STG_UNUSED, StgClosure *caf)
 static bdescr *
 allocNursery (bdescr *tail, nat blocks)
 {
-    bdescr *bd;
+    bdescr *bd = NULL;
     nat i, n;
 
     // We allocate the nursery as a single contiguous block and then