diff options
author | Simon Marlow <marlowsd@gmail.com> | 2012-08-20 15:13:45 +0100 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2013-01-12 14:41:35 +0000 |
commit | 42729f43823193fe727274ae26f29fdfd9e1f169 (patch) | |
tree | d5804666723bac5b3928f090700d0610bec8ea09 | |
parent | 1eda0b78a907e44c655f757448ec0499d494b328 (diff) | |
download | haskell-42729f43823193fe727274ae26f29fdfd9e1f169.tar.gz |
add X86_64_GOTTPOFF relocation for errno
Submitted by: Markus Pfeiffer <markus.pfeiffer@morphism.de> on cvs-ghc
-rw-r--r-- | rts/Linker.c | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index a2a3b3b19a..56003fb746 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -132,6 +132,10 @@ #define ALWAYS_PIC #endif +#if defined(dragonfly_HOST_OS) +#include <sys/tls.h> +#endif + /* Hash table mapping symbol names to Symbol */ static /*Str*/HashTable *symhash; @@ -5202,6 +5206,27 @@ do_Elf_Rela_relocations ( ObjectCode* oc, char* ehdrC, *(Elf64_Word *)P = (Elf64_Word)off; break; } +#if defined(dragonfly_HOST_OS) + case R_X86_64_GOTTPOFF: + { +#if defined(ALWAYS_PIC) + barf("R_X86_64_GOTTPOFF relocation, but ALWAYS_PIC."); +#else + /* determine the offset of S to the current thread's tls + area + XXX: Move this to the beginning of function */ + struct tls_info ti; + get_tls_area(0, &ti, sizeof(ti)); + /* make entry in GOT that contains said offset */ + StgInt64 gotEntry = (StgInt64) &makeSymbolExtra(oc, ELF_R_SYM(info), + (S - (Elf64_Addr)(ti.base)))->addr; + *(Elf64_Word *)P = gotEntry + A - P; +#endif + break; + } +#endif + + case R_X86_64_PLT32: { |