X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FAdjustor.c;h=e93f361aee9611fa6b0ba892c1be0b5d690deef3;hb=aaf192c3fba95ba4adf3e128551b7cb579890ad1;hp=e02148740dfd344806fde79763734837db859d0f;hpb=5fcfdb3b853b5fd751e4552e1f774cb74d933c50;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;