diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-02-02 10:28:34 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-02-07 13:23:56 +0000 |
| commit | bf456a09f9ef68436db48eb5ea25193d3b2f2ed5 (patch) | |
| tree | 6a3bfb2a278516fbddca7286076fac7c7dd14239 /rts/RtsUtils.c | |
| parent | e46d26686034448a311f48f7e685f159af865d7c (diff) | |
| download | haskell-bf456a09f9ef68436db48eb5ea25193d3b2f2ed5.tar.gz | |
avoid 32-bit integer overflow (#5831)
Diffstat (limited to 'rts/RtsUtils.c')
| -rw-r--r-- | rts/RtsUtils.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsUtils.c b/rts/RtsUtils.c index e04b9846be..b880f8c9e5 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; } |