Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/7641d6160a049252e402ea2b2864969a839ce711 >--------------------------------------------------------------- commit 7641d6160a049252e402ea2b2864969a839ce711 Author: Ian Lynagh <[email protected]> Date: Wed Mar 21 16:07:14 2012 +0000 Only support stdcall in Adjustor.c on i386 >--------------------------------------------------------------- rts/Adjustor.c | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/rts/Adjustor.c b/rts/Adjustor.c index 1dc7eef..f7a7fc6 100644 --- a/rts/Adjustor.c +++ b/rts/Adjustor.c @@ -111,7 +111,7 @@ createAdjustor (int cconv, arg_types[i] = char_to_ffi_type(typeString[i+1]); } switch (cconv) { -#ifdef mingw32_HOST_OS +#if defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH) case 0: /* stdcall */ abi = FFI_STDCALL; break; _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
