From e4ec08ed1808aa8b75e79d4a9261aaeb3df5df24 Mon Sep 17 00:00:00 2001 From: Aaron Tomb Date: Mon, 29 Oct 2007 20:26:36 +0000 Subject: [PATCH] Fix freeHaskellFunctionPtr for Darwin/i386 --- rts/Adjustor.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 1.7.10.4