diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-04-26 18:39:15 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-04-26 18:39:15 +0100 |
| commit | dd96644c9001fe3f6f78ed48caaad84f7a6820ec (patch) | |
| tree | cc93441c79e32dea6beee8cfb96986b3ce20877d /ghc/hschooks.c | |
| parent | 1dbe6d59b621ab9bd836241d633b3a8d99812cb3 (diff) | |
| download | haskell-dd96644c9001fe3f6f78ed48caaad84f7a6820ec.tar.gz | |
Win64 build fix
Diffstat (limited to 'ghc/hschooks.c')
| -rw-r--r-- | ghc/hschooks.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/hschooks.c b/ghc/hschooks.c index 037d4e18be..ab689fd8ff 100644 --- a/ghc/hschooks.c +++ b/ghc/hschooks.c @@ -4,6 +4,7 @@ for various bits of the RTS. They are linked in instead of the defaults. */ +#include "../rts/PosixSource.h" #include "Rts.h" #include "HsFFI.h" @@ -31,8 +32,8 @@ defaultsHook (void) } void -StackOverflowHook (unsigned long stack_size) /* in bytes */ +StackOverflowHook (lnat stack_size) /* in bytes */ { - fprintf(stderr, "GHC stack-space overflow: current limit is %ld bytes.\nUse the `-K<size>' option to increase it.\n", stack_size); + fprintf(stderr, "GHC stack-space overflow: current limit is %" FMT_SizeT " bytes.\nUse the `-K<size>' option to increase it.\n", stack_size); } |