[commit: ghc] master: avoid 32-bit integer overflow (#5831) (bf456a0)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/bf456a09f9ef68436db48eb5ea25193d3b2f2ed5

>---------------------------------------------------------------

commit bf456a09f9ef68436db48eb5ea25193d3b2f2ed5
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Feb 2 10:28:34 2012 +0000

    avoid 32-bit integer overflow (#5831)

>---------------------------------------------------------------

 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;
     }