Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c35d8c362ff553ee2c1952a388e64c761be89469 >--------------------------------------------------------------- commit c35d8c362ff553ee2c1952a388e64c761be89469 Author: Simon Marlow <[email protected]> Date: Thu Jul 14 16:20:27 2011 +0100 remove some dead code >--------------------------------------------------------------- rts/Adjustor.c | 17 ++--------------- 1 files changed, 2 insertions(+), 15 deletions(-) diff --git a/rts/Adjustor.c b/rts/Adjustor.c index 038c649..0f038c4 100644 --- a/rts/Adjustor.c +++ b/rts/Adjustor.c @@ -152,7 +152,8 @@ createAdjustor (int cconv, #else #define UNDERSCORE "" #endif -#if defined(i386_HOST_ARCH) && !defined(darwin_HOST_OS) + +#if defined(x86_64_HOST_ARCH) /* Now here's something obscure for you: @@ -170,20 +171,6 @@ createAdjustor (int cconv, returning in some static piece of memory and arrange to return to it before tail jumping from the adjustor thunk. */ -static void GNUC3_ATTRIBUTE(used) obscure_ccall_wrapper(void) -{ - __asm__ ( - ".globl " UNDERSCORE "obscure_ccall_ret_code\n" - UNDERSCORE "obscure_ccall_ret_code:\n\t" - "addl $0x4, %esp\n\t" - "ret" - ); -} -extern void obscure_ccall_ret_code(void); - -#endif - -#if defined(x86_64_HOST_ARCH) static void GNUC3_ATTRIBUTE(used) obscure_ccall_wrapper(void) { __asm__ ( _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
