diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-05-24 12:20:22 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-05-24 12:20:22 +0000 |
| commit | b05302725141dd9f422c918bec6d02e1572448a1 (patch) | |
| tree | 49c829a4797024607378f46bc41038ca49358b61 /rts/Adjustor.c | |
| parent | bb1cdf565e46ff8367fb08ec998007d054e0f02f (diff) | |
| download | haskell-b05302725141dd9f422c918bec6d02e1572448a1.tar.gz | |
fix a _TARGET_ARCH that should be _HOST_ARCH
Diffstat (limited to 'rts/Adjustor.c')
| -rw-r--r-- | rts/Adjustor.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Adjustor.c b/rts/Adjustor.c index f3e5bfe6aa..fc4182e731 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; |