[commit: ghc] master: 32-bit fix (9042f34)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a

>---------------------------------------------------------------

commit 9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Oct 13 15:42:00 2010 +0000

    32-bit fix

>---------------------------------------------------------------

 rts/sm/MBlock.c |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

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