Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/dd96644c9001fe3f6f78ed48caaad84f7a6820ec >--------------------------------------------------------------- commit dd96644c9001fe3f6f78ed48caaad84f7a6820ec Author: Ian Lynagh <[email protected]> Date: Thu Apr 26 18:39:15 2012 +0100 Win64 build fix >--------------------------------------------------------------- ghc/hschooks.c | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/ghc/hschooks.c b/ghc/hschooks.c index 037d4e1..ab689fd 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); } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
