X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FStorage.c;h=f9e32f288a93989b72afc05834726999be5e301e;hb=0981e24e9980b8b26e6f20fc56bebc1c7416cc4f;hp=097c727ca7e9f0adc1d86e3dacf52072cfa29c83;hpb=e943c43f3d673beebff117b660ba45cefc246ad0;p=ghc-hetmet.git

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 097c727..f9e32f2 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -115,6 +115,8 @@ initStorage( void )
       return;
   }
 
+  initMBlocks();
+
   /* Sanity check to make sure the LOOKS_LIKE_ macros appear to be
    * doing something reasonable.
    */