From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 24 May 2006 12:20:22 +0000 (+0000)
Subject: fix a _TARGET_ARCH that should be _HOST_ARCH
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b05302725141dd9f422c918bec6d02e1572448a1;p=ghc-hetmet.git

fix a _TARGET_ARCH that should be _HOST_ARCH
---

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