X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FAdjustor.c;h=841c6603be05e35d426a175dbf8489414f16ab30;hb=1d026619ef5f098a0349ba2fa1b29d5697718bad;hp=2cdbacbf410516b944076f0155c5fa1eaa2edb5f;hpb=4cdf5e86721fc672233c5268dc866492d5921ec6;p=ghc-hetmet.git

diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index 2cdbacb..841c660 100644
--- a/rts/Adjustor.c
+++ b/rts/Adjustor.c
@@ -1024,7 +1024,7 @@ freeHaskellFunctionPtr(void* ptr)
  } else {
     freeStablePtr(*((StgStablePtr*)((unsigned char*)ptr + 0x02)));
  }
-#elif defined(x86_HOST_ARCH) && defined(darwin_HOST_OS)
+#elif defined(i386_HOST_ARCH) && defined(darwin_HOST_OS)
 if ( *(unsigned char*)ptr != 0xe8 ) {
    errorBelch("freeHaskellFunctionPtr: not for me, guv! %p\n", ptr);
    return;