X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FMBlock.c;h=1801086c2a445a3a2be7acf2b2dce8ae6eded2d5;hb=bef3da1e26639303fccbf26c312d2833eedb486e;hp=b9d71f68c9ca64054a9c1d6e585431b1ef09625b;hpb=d63ba79a6dde7a5616d3b532589ff09d3820f794;p=ghc-hetmet.git

diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c
index b9d71f6..1801086 100644
--- a/rts/sm/MBlock.c
+++ b/rts/sm/MBlock.c
@@ -265,16 +265,17 @@ freeMBlocks(void *addr, nat n)
 void
 freeAllMBlocks(void)
 {
-    nat n;
-
     debugTrace(DEBUG_gc, "freeing all megablocks");
 
     osFreeAllMBlocks();
 
+#if SIZEOF_VOID_P == 8
+    nat n;
     for (n = 0; n < mblock_map_count; n++) {
         stgFree(mblock_maps[n]);
     }
     stgFree(mblock_maps);
+#endif
 }
 
 void