[commit: ghc] ghc-7.4: avoid 32-bit integer overflow (#5838) (11b56ff)

[Paolo Capriotti]

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 <marlowsd at gmail.com>
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;
     }