Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.6
http://hackage.haskell.org/trac/ghc/changeset/914ba8b1831f376aae473a4007da77a975f6ea30 >--------------------------------------------------------------- commit 914ba8b1831f376aae473a4007da77a975f6ea30 Author: Ian Lynagh <i...@well-typed.com> Date: Sat Nov 17 00:17:14 2012 +0000 OS X build fixes >--------------------------------------------------------------- rts/sm/Sanity.c | 14 +++++++------- 1 files changed, 7 insertions(+), 7 deletions(-) diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index cd3db29..709c5fa 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -918,20 +918,20 @@ memInventory (rtsBool show) debugBelch("Memory inventory:\n"); } for (g = 0; g < RtsFlags.GcFlags.generations; g++) { - debugBelch(" gen %d blocks : %5" FMT_SizeT " blocks (%" FMT_SizeT " MB)\n", g, + debugBelch(" gen %d blocks : %5" FMT_Word " blocks (%" FMT_SizeT " MB)\n", g, gen_blocks[g], MB(gen_blocks[g])); } - debugBelch(" nursery : %5" FMT_SizeT " blocks (%" FMT_SizeT " MB)\n", + debugBelch(" nursery : %5" FMT_Word " blocks (%" FMT_SizeT " MB)\n", nursery_blocks, MB(nursery_blocks)); - debugBelch(" retainer : %5" FMT_SizeT " blocks (%" FMT_SizeT " MB)\n", + debugBelch(" retainer : %5" FMT_Word " blocks (%" FMT_SizeT " MB)\n", retainer_blocks, MB(retainer_blocks)); - debugBelch(" arena blocks : %5" FMT_SizeT " blocks (%" FMT_SizeT " MB)\n", + debugBelch(" arena blocks : %5" FMT_Word " blocks (%" FMT_SizeT " MB)\n", arena_blocks, MB(arena_blocks)); - debugBelch(" exec : %5" FMT_SizeT " blocks (%" FMT_SizeT " MB)\n", + debugBelch(" exec : %5" FMT_Word " blocks (%" FMT_SizeT " MB)\n", exec_blocks, MB(exec_blocks)); - debugBelch(" free : %5" FMT_SizeT " blocks (%" FMT_SizeT " MB)\n", + debugBelch(" free : %5" FMT_Word " blocks (%" FMT_SizeT " MB)\n", free_blocks, MB(free_blocks)); - debugBelch(" total : %5" FMT_SizeT " blocks (%" FMT_SizeT " MB)\n", + debugBelch(" total : %5" FMT_Word " blocks (%" FMT_SizeT " MB)\n", live_blocks + free_blocks, MB(live_blocks+free_blocks)); if (leak) { debugBelch("\n in system : %5" FMT_Word " blocks (%" FMT_Word " MB)\n", _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
