Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d0e2364b88238dae2bf5450f513fefec5faa7aff >--------------------------------------------------------------- commit d0e2364b88238dae2bf5450f513fefec5faa7aff Author: Erik de Castro Lopo <[email protected]> Date: Fri May 18 21:59:17 2012 +1000 Fix #6109 : error Unknown mingw32 arch. >--------------------------------------------------------------- utils/runghc/runghc.hs | 14 +++++++++----- 1 files changed, 9 insertions(+), 5 deletions(-) diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs index 6dae543..d5dec28 100644 --- a/utils/runghc/runghc.hs +++ b/utils/runghc/runghc.hs @@ -32,12 +32,16 @@ import Foreign import Foreign.C.String #endif -#if defined(i386_HOST_ARCH) -# define WINDOWS_CCONV stdcall -#elif defined(x86_64_HOST_ARCH) -# define WINDOWS_CCONV ccall +#if defined(mingw32_HOST_OS) +# if defined(i386_HOST_ARCH) +# define WINDOWS_CCONV stdcall +# elif defined(x86_64_HOST_ARCH) +# define WINDOWS_CCONV ccall +# else +# error Unknown mingw32 arch +# endif #else -# error Unknown mingw32 arch +# define WINDOWS_CCONV #endif main :: IO () _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
