x86_64-link.c

   1 #ifdef TARGET_DEFS_ONLY
   2
   3 #define EM_TCC_TARGET EM_X86_64
   4
   5 /* relocation type for 32 bit data relocation */
   6 #define R_DATA_32   R_X86_64_32
   7 #define R_DATA_PTR  R_X86_64_64
   8 #define R_JMP_SLOT  R_X86_64_JUMP_SLOT
   9 #define R_GLOB_DAT  R_X86_64_GLOB_DAT
  10 #define R_COPY      R_X86_64_COPY
  11
  12 #define R_NUM       R_X86_64_NUM
  13
  14 #define ELF_START_ADDR 0x400000
  15 #define ELF_PAGE_SIZE  0x200000
  16
  17 #define HAVE_SECTION_RELOC
  18
  19 #else /* !TARGET_DEFS_ONLY */
  20
  21 #include "tcc.h"
  22
  23 static ElfW_Rel *qrel; /* ptr to next reloc entry reused */
  24 ST_DATA struct reloc_info relocs_info[R_NUM] = {
  25     INIT_RELOC_INFO (R_X86_64_64, 0, AUTO_GOTPLT_ENTRY, 0)
  26     INIT_RELOC_INFO (R_X86_64_32, 0, AUTO_GOTPLT_ENTRY, 0)
  27     INIT_RELOC_INFO (R_X86_64_32S, 0, AUTO_GOTPLT_ENTRY, 0)
  28     INIT_RELOC_INFO (R_X86_64_PC32, 1, AUTO_GOTPLT_ENTRY, 0)
  29     INIT_RELOC_INFO (R_X86_64_PLT32, 1, ALWAYS_GOTPLT_ENTRY, 1)
  30     INIT_RELOC_INFO (R_X86_64_GLOB_DAT, 0, NO_GOTPLT_ENTRY, 0)
  31     INIT_RELOC_INFO (R_X86_64_JUMP_SLOT, 1, NO_GOTPLT_ENTRY, 0)
  32     INIT_RELOC_INFO (R_X86_64_GOTPCREL, 0, ALWAYS_GOTPLT_ENTRY, 0)
  33     INIT_RELOC_INFO (R_X86_64_GOTPCRELX, 0, ALWAYS_GOTPLT_ENTRY, 0)
  34     INIT_RELOC_INFO (R_X86_64_REX_GOTPCRELX, 0, ALWAYS_GOTPLT_ENTRY, 0)
  35     INIT_RELOC_INFO (R_X86_64_GOTTPOFF, 0, BUILD_GOT_ONLY, 0)
  36     INIT_RELOC_INFO (R_X86_64_GOT32, 0, ALWAYS_GOTPLT_ENTRY, 0)
  37 };
  38
  39 void relocate_init(Section *sr)
  40 {
  41     qrel = (ElfW_Rel *) sr->data;
  42 }
  43
  44 void relocate(TCCState *s1, ElfW_Rel *rel, int type, char *ptr, addr_t addr, addr_t val)
  45 {
  46     int sym_index, esym_index;
  47
  48     sym_index = ELFW(R_SYM)(rel->r_info);
  49
  50     switch (type) {
  51         case R_X86_64_64:
  52             if (s1->output_type == TCC_OUTPUT_DLL) {
  53                 esym_index = s1->symtab_to_dynsym[sym_index];
  54                 qrel->r_offset = rel->r_offset;
  55                 if (esym_index) {
  56                     qrel->r_info = ELFW(R_INFO)(esym_index, R_X86_64_64);
  57                     qrel->r_addend = rel->r_addend;
  58                     qrel++;
  59                     break;
  60                 } else {
  61                     qrel->r_info = ELFW(R_INFO)(0, R_X86_64_RELATIVE);
  62                     qrel->r_addend = read64le(ptr) + val;
  63                     qrel++;
  64                 }
  65             }
  66             add64le(ptr, val);
  67             break;
  68         case R_X86_64_32:
  69         case R_X86_64_32S:
  70             if (s1->output_type == TCC_OUTPUT_DLL) {
  71                 /* XXX: this logic may depend on TCC's codegen
  72                    now TCC uses R_X86_64_32 even for a 64bit pointer */
  73                 qrel->r_info = ELFW(R_INFO)(0, R_X86_64_RELATIVE);
  74                 /* Use sign extension! */
  75                 qrel->r_addend = (int)read32le(ptr) + val;
  76                 qrel++;
  77             }
  78             add32le(ptr, val);
  79             break;
  80
  81         case R_X86_64_PC32:
  82             if (s1->output_type == TCC_OUTPUT_DLL) {
  83                 /* DLL relocation */
  84                 esym_index = s1->symtab_to_dynsym[sym_index];
  85                 if (esym_index) {
  86                     qrel->r_offset = rel->r_offset;
  87                     qrel->r_info = ELFW(R_INFO)(esym_index, R_X86_64_PC32);
  88                     /* Use sign extension! */
  89                     qrel->r_addend = (int)read32le(ptr) + rel->r_addend;
  90                     qrel++;
  91                     break;
  92                 }
  93             }
  94             goto plt32pc32;
  95
  96         case R_X86_64_PLT32:
  97             /* fallthrough: val already holds the PLT slot address */
  98
  99         plt32pc32:
 100         {
 101             long long diff;
 102             diff = (long long)val - addr;
 103             if (diff < -2147483648LL || diff > 2147483647LL) {
 104                 tcc_error("internal error: relocation failed");
 105             }
 106             add32le(ptr, diff);
 107         }
 108             break;
 109         case R_X86_64_GLOB_DAT:
 110         case R_X86_64_JUMP_SLOT:
 111             /* They don't need addend */
 112             write64le(ptr, val - rel->r_addend);
 113             break;
 114         case R_X86_64_GOTPCREL:
 115         case R_X86_64_GOTPCRELX:
 116         case R_X86_64_REX_GOTPCRELX:
 117             add32le(ptr, s1->got->sh_addr - addr +
 118                          s1->sym_attrs[sym_index].got_offset - 4);
 119             break;
 120         case R_X86_64_GOTTPOFF:
 121             add32le(ptr, val - s1->got->sh_addr);
 122             break;
 123         case R_X86_64_GOT32:
 124             /* we load the got offset */
 125             add32le(ptr, s1->sym_attrs[sym_index].got_offset);
 126             break;
 127     }
 128 }
 129
 130 #endif /* !TARGET_DEFS_ONLY */