Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/2edae7aa71d25a9df8da18867c707314f99bf332 >--------------------------------------------------------------- commit 2edae7aa71d25a9df8da18867c707314f99bf332 Author: Ian Lynagh <ig...@earth.li> Date: Thu May 3 12:20:05 2012 +0100 Tweak 4038 for Win64 Windows has a smaller C stack than other OSes >--------------------------------------------------------------- tests/ffi/should_run/4038.hs | 9 +++++++-- 1 files changed, 7 insertions(+), 2 deletions(-) diff --git a/tests/ffi/should_run/4038.hs b/tests/ffi/should_run/4038.hs index 9250fb9..8f52745 100644 --- a/tests/ffi/should_run/4038.hs +++ b/tests/ffi/should_run/4038.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE ForeignFunctionInterface #-} +{-# LANGUAGE ForeignFunctionInterface, CPP #-} import Foreign import Foreign.C @@ -21,8 +21,13 @@ foreign import ccall "dynamic" f_io :: FunPtr IOF -> IOF -- -- On *nix systems, the C stack size can be examined and changed by -- the "ulimit -s" command. >--------------------------------------------------------------- + +-- Stack size on Windows isn't as generous as on other OSes +#if defined(mingw32_HOST_OS) && defined(x86_64_HOST_ARCH) +n = 100 +#else n = 300 +#endif f :: Int -> IO Int f 0 = return 42 _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
