From: simonmar Date: Tue, 15 Mar 2005 16:15:46 +0000 (+0000) Subject: [project @ 2005-03-15 16:15:46 by simonmar] X-Git-Tag: Initial_conversion_from_CVS_complete~908 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=c1b3fa59a78c59cee44af9a39040eb81ab6ff04e;p=ghc-hetmet.git [project @ 2005-03-15 16:15:46 by simonmar] TARGET->HOST --- diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c index 3341c58..f6ea61c 100644 --- a/ghc/rts/Adjustor.c +++ b/ghc/rts/Adjustor.c @@ -131,7 +131,7 @@ __asm__ ( extern void obscure_ccall_ret_code(void); #endif -#if defined(x86_64_TARGET_ARCH) +#if defined(x86_64_HOST_ARCH) __asm__ ( ".globl " UNDERSCORE "obscure_ccall_ret_code\n" UNDERSCORE "obscure_ccall_ret_code:\n\t" @@ -238,7 +238,7 @@ void* createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr, char *typeString -#if !defined(powerpc_HOST_ARCH) && !defined(powerpc64_HOST_ARCH) && !defined(x86_64_TARGET_ARCH) +#if !defined(powerpc_HOST_ARCH) && !defined(powerpc64_HOST_ARCH) && !defined(x86_64_HOST_ARCH) STG_UNUSED #endif )