diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-03-21 16:07:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-03-21 16:07:14 +0000 |
| commit | 7641d6160a049252e402ea2b2864969a839ce711 (patch) | |
| tree | 640d751b614862c3984bd64c9926593b0a99de2a /rts/Adjustor.c | |
| parent | c65867049f452b2f2cfcfbd5d7aedd3d6096b1ca (diff) | |
| download | haskell-7641d6160a049252e402ea2b2864969a839ce711.tar.gz | |
Only support stdcall in Adjustor.c on i386
Diffstat (limited to 'rts/Adjustor.c')
| -rw-r--r-- | rts/Adjustor.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Adjustor.c b/rts/Adjustor.c index 1dc7eef0c7..f7a7fc6c79 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; |