Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/31f16fab381e54a857eed30fb371014a3b5e67e7 >--------------------------------------------------------------- commit 31f16fab381e54a857eed30fb371014a3b5e67e7 Author: Ian Lynagh <[email protected]> Date: Fri Apr 27 01:28:26 2012 +0100 Win32 build fix >--------------------------------------------------------------- rts/Linker.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/Linker.c b/rts/Linker.c index 6085f9c..7a1f550 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -2461,8 +2461,8 @@ addSection ( ObjectCode* oc, SectionKind kind, s->next = oc->sections; oc->sections = s; - IF_DEBUG(linker, debugBelch("addSection: %p-%p (size %" FMT_Int "), kind %d\n", - start, ((char*)end)-1, (StgInt)end - (StgInt)start + 1, kind )); + IF_DEBUG(linker, debugBelch("addSection: %p-%p (size %lld), kind %d\n", + start, ((char*)end)-1, ((long long)(size_t)end) - ((long long)(size_t)start) + 1, kind )); } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
