[commit: ghc] master: Only support stdcall in Adjustor.c on i386 (7641d61)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7641d6160a049252e402ea2b2864969a839ce711

>---------------------------------------------------------------

commit 7641d6160a049252e402ea2b2864969a839ce711
Author: Ian Lynagh <igloo at earth.li>
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;