From b05302725141dd9f422c918bec6d02e1572448a1 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 24 May 2006 12:20:22 +0000 Subject: [PATCH] fix a _TARGET_ARCH that should be _HOST_ARCH --- rts/Adjustor.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 1.7.10.4