X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FMBlock.c;fp=rts%2Fsm%2FMBlock.c;h=f5b61c6547588363f3c9742cb093f9bff40b6ecc;hb=9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a;hp=b9d71f68c9ca64054a9c1d6e585431b1ef09625b;hpb=ff5e4de4e3f3bcd04739ca77ca4c5dda375b85f2;p=ghc-hetmet.git

diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c
index b9d71f6..f5b61c6 100644
--- a/rts/sm/MBlock.c
+++ b/rts/sm/MBlock.c
@@ -271,10 +271,12 @@ freeAllMBlocks(void)
 
     osFreeAllMBlocks();
 
+#if SIZEOF_VOID_P == 8
     for (n = 0; n < mblock_map_count; n++) {
         stgFree(mblock_maps[n]);
     }
     stgFree(mblock_maps);
+#endif
 }
 
 void