diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-07-14 16:20:27 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-07-20 09:17:13 +0100 |
| commit | c35d8c362ff553ee2c1952a388e64c761be89469 (patch) | |
| tree | 4d9b88c5bd78c00198a89475dfd3938c4598eeeb /rts/Adjustor.c | |
| parent | 14d5e04a87717eab39007c4b329553b55f53ad35 (diff) | |
| download | haskell-c35d8c362ff553ee2c1952a388e64c761be89469.tar.gz | |
remove some dead code
Diffstat (limited to 'rts/Adjustor.c')
| -rw-r--r-- | rts/Adjustor.c | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/rts/Adjustor.c b/rts/Adjustor.c index 038c649578..0f038c4396 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__ ( |