Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a >--------------------------------------------------------------- commit 9042f34904f63a6d0a1ac66d9d1a8c4acab21d4a Author: Simon Marlow <[email protected]> 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
