diff options
| author | Dimitrios Vytiniotis <dimitris@microsoft.com> | 2012-03-28 10:56:29 +0200 |
|---|---|---|
| committer | Dimitrios Vytiniotis <dimitris@microsoft.com> | 2012-03-28 10:56:29 +0200 |
| commit | b4b7647fedf0feab41d417c4e980bd08445ce559 (patch) | |
| tree | 004f4e966e1a1e3a5457b11c57cb7f9abf43a108 /includes/RtsAPI.h | |
| parent | cc2d2e1d44405630fb34311dc3f5e42eadc5c6b1 (diff) | |
| parent | 9606231dd203163c8ca839b3f58c6e40a3805fa8 (diff) | |
| download | haskell-b4b7647fedf0feab41d417c4e980bd08445ce559.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc into ghc-new-flavor
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 |