diff options
author | Ian Lynagh <igloo@earth.li> | 2012-03-16 23:03:02 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-03-16 23:03:02 +0000 |
commit | 7a60d63582cfb54dac941c0c7bc96343503f4f7e (patch) | |
tree | 1bd34a3aea1889f313de4ce5b8ab09dc067190a5 /includes/RtsAPI.h | |
parent | d66b9cb07b0e03282c8010bcf76168e64cb4acde (diff) | |
download | haskell-7a60d63582cfb54dac941c0c7bc96343503f4f7e.tar.gz |
Soem more Wind64 fixes
We may need to do this differently once we get as far as building the
RTS in the dyn ways.
Diffstat (limited to 'includes/RtsAPI.h')
-rw-r--r-- | includes/RtsAPI.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/includes/RtsAPI.h b/includes/RtsAPI.h index e3b3f7d5f5..7f41ebc421 100644 --- a/includes/RtsAPI.h +++ b/includes/RtsAPI.h @@ -232,7 +232,7 @@ SchedulerStatus rts_getSchedStatus (Capability *cap); // Note that RtsAPI.h is also included by foreign export stubs in // the base package itself. // -#if defined(mingw32_HOST_OS) && defined(__PIC__) && !defined(COMPILING_BASE_PACKAGE) +#if defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH) && defined(__PIC__) && !defined(COMPILING_BASE_PACKAGE) __declspec(dllimport) extern StgWord base_GHCziTopHandler_runIO_closure[]; __declspec(dllimport) extern StgWord base_GHCziTopHandler_runNonIO_closure[]; #else |