summaryrefslogtreecommitdiff
path: root/rts/Adjustor.c
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2009-05-20 22:36:10 +0000
committerIan Lynagh <igloo@earth.li>2009-05-20 22:36:10 +0000
commitaaf192c3fba95ba4adf3e128551b7cb579890ad1 (patch)
tree34cf3fed6be9fc41927759e6c3ae08a6290b2fea /rts/Adjustor.c
parent5fcfdb3b853b5fd751e4552e1f774cb74d933c50 (diff)
downloadhaskell-aaf192c3fba95ba4adf3e128551b7cb579890ad1.tar.gz
OS X / amd64 fixes
Diffstat (limited to 'rts/Adjustor.c')
-rw-r--r--rts/Adjustor.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index e02148740d..e93f361aee 100644
--- a/rts/Adjustor.c
+++ b/rts/Adjustor.c
@@ -294,7 +294,7 @@ typedef struct AdjustorStub {
} AdjustorStub;
#endif
-#if defined(darwin_HOST_OS) || defined(powerpc_HOST_ARCH) || defined(powerpc64_HOST_ARCH)
+#if (defined(i386_HOST_ARCH) && defined(darwin_HOST_OS)) || defined(powerpc_HOST_ARCH) || defined(powerpc64_HOST_ARCH)
static int totalArgumentSize(char *typeString)
{
int sz = 0;