Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/11b56ff206bfa99cee641a44d07831914f788c8a >--------------------------------------------------------------- commit 11b56ff206bfa99cee641a44d07831914f788c8a Author: Simon Marlow <[email protected]> Date: Thu Feb 2 10:28:34 2012 +0000 avoid 32-bit integer overflow (#5838) MERGED from commit bf456a09f9ef68436db48eb5ea25193d3b2f2ed5 >--------------------------------------------------------------- rts/RtsUtils.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c index e04b984..b880f8c 100644 --- a/rts/RtsUtils.c +++ b/rts/RtsUtils.c @@ -130,7 +130,7 @@ heapOverflow(void) { /* don't fflush(stdout); WORKAROUND bug in Linux glibc */ OutOfHeapHook(0/*unknown request size*/, - RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE); + (lnat)RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE); heap_overflow = rtsTrue; } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
