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 /rts/StgMiscClosures.cmm | |
| 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 'rts/StgMiscClosures.cmm')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index e4b128f96e..763c85b3b6 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -576,7 +576,7 @@ INFO_TABLE_CONSTR(stg_MVAR_TSO_QUEUE,2,0,0,PRIM,"MVAR_TSO_QUEUE","MVAR_TSO_QUEUE replace them with references to the static objects. ------------------------------------------------------------------------- */ -#if defined(__PIC__) && defined(mingw32_HOST_OS) +#if defined(__PIC__) && defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH) /* * When sticking the RTS in a Windows DLL, we delay populating the * Charlike and Intlike tables until load-time, which is only @@ -601,7 +601,7 @@ INFO_TABLE_CONSTR(stg_MVAR_TSO_QUEUE,2,0,0,PRIM,"MVAR_TSO_QUEUE","MVAR_TSO_QUEUE * on the fact that static closures live in the data section. */ -#if !(defined(__PIC__) && defined(mingw32_HOST_OS)) +#if !(defined(__PIC__) && defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH)) section "data" { stg_CHARLIKE_closure: CHARLIKE_HDR(0) @@ -899,4 +899,4 @@ section "data" { INTLIKE_HDR(16) /* MAX_INTLIKE == 16 */ } -#endif // !(defined(__PIC__) && defined(mingw32_HOST_OS)) +#endif // !(defined(__PIC__) && defined(mingw32_HOST_OS) && defined(i386_HOST_ARCH)) |