diff options
| author | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-19 20:11:50 -0700 |
|---|---|---|
| committer | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-19 20:11:50 -0700 |
| commit | deed56f4473d93a40159ea5422d1840512952f3f (patch) | |
| tree | 1e8363871d12bbf18f4899bae4f5b6e9124278a6 /includes/RtsAPI.h | |
| parent | 62b25ec4d4654151ff36641b23adb7422e36da00 (diff) | |
| parent | d7bd9ee63968f6e4df6b32eff8ff11d866dca794 (diff) | |
| download | haskell-deed56f4473d93a40159ea5422d1840512952f3f.tar.gz | |
Merge remote-tracking branch 'origin/master' into type-nats
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 |