X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FAdjustor.c;h=e93f361aee9611fa6b0ba892c1be0b5d690deef3;hb=6d13a90527ff607bd969a0f9af70a32c3316ae9b;hp=e02148740dfd344806fde79763734837db859d0f;hpb=c3062251034f54944061e816ed018b0b2db1b849;p=ghc-hetmet.git

diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index e021487..e93f361 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;