1 #ifdef TARGET_DEFS_ONLY
3 #define EM_TCC_TARGET EM_AARCH64
5 #define R_DATA_32 R_AARCH64_ABS32
6 #define R_DATA_PTR R_AARCH64_ABS64
7 #define R_JMP_SLOT R_AARCH64_JUMP_SLOT
8 #define R_GLOB_DAT R_AARCH64_GLOB_DAT
9 #define R_COPY R_AARCH64_COPY
10 #define R_RELATIVE R_AARCH64_RELATIVE
12 #define R_NUM R_AARCH64_NUM
14 #define ELF_START_ADDR 0x00400000
15 #define ELF_PAGE_SIZE 0x10000
17 #define PCRELATIVE_DLLPLT 1
18 #define RELOCATE_DLLPLT 1
20 #else /* !TARGET_DEFS_ONLY */
24 /* Returns 1 for a code relocation, 0 for a data relocation. For unknown
25 relocations, returns -1. */
26 int code_reloc (int reloc_type
)
31 case R_AARCH64_PREL32
:
32 case R_AARCH64_MOVW_UABS_G0_NC
:
33 case R_AARCH64_MOVW_UABS_G1_NC
:
34 case R_AARCH64_MOVW_UABS_G2_NC
:
35 case R_AARCH64_MOVW_UABS_G3
:
36 case R_AARCH64_ADR_PREL_PG_HI21
:
37 case R_AARCH64_ADD_ABS_LO12_NC
:
38 case R_AARCH64_ADR_GOT_PAGE
:
39 case R_AARCH64_LD64_GOT_LO12_NC
:
40 case R_AARCH64_LDST128_ABS_LO12_NC
:
41 case R_AARCH64_LDST64_ABS_LO12_NC
:
42 case R_AARCH64_LDST32_ABS_LO12_NC
:
43 case R_AARCH64_LDST16_ABS_LO12_NC
:
44 case R_AARCH64_LDST8_ABS_LO12_NC
:
45 case R_AARCH64_GLOB_DAT
:
49 case R_AARCH64_JUMP26
:
50 case R_AARCH64_CALL26
:
51 case R_AARCH64_JUMP_SLOT
:
57 /* Returns an enumerator to describe whether and when the relocation needs a
58 GOT and/or PLT entry to be created. See tcc.h for a description of the
60 int gotplt_entry_type (int reloc_type
)
63 case R_AARCH64_PREL32
:
64 case R_AARCH64_MOVW_UABS_G0_NC
:
65 case R_AARCH64_MOVW_UABS_G1_NC
:
66 case R_AARCH64_MOVW_UABS_G2_NC
:
67 case R_AARCH64_MOVW_UABS_G3
:
68 case R_AARCH64_ADR_PREL_PG_HI21
:
69 case R_AARCH64_ADD_ABS_LO12_NC
:
70 case R_AARCH64_LDST128_ABS_LO12_NC
:
71 case R_AARCH64_LDST64_ABS_LO12_NC
:
72 case R_AARCH64_LDST32_ABS_LO12_NC
:
73 case R_AARCH64_LDST16_ABS_LO12_NC
:
74 case R_AARCH64_LDST8_ABS_LO12_NC
:
75 case R_AARCH64_GLOB_DAT
:
76 case R_AARCH64_JUMP_SLOT
:
78 return NO_GOTPLT_ENTRY
;
82 case R_AARCH64_JUMP26
:
83 case R_AARCH64_CALL26
:
84 return AUTO_GOTPLT_ENTRY
;
86 case R_AARCH64_ADR_GOT_PAGE
:
87 case R_AARCH64_LD64_GOT_LO12_NC
:
88 return ALWAYS_GOTPLT_ENTRY
;
93 ST_FUNC
unsigned create_plt_entry(TCCState
*s1
, unsigned got_offset
, struct sym_attr
*attr
)
95 Section
*plt
= s1
->plt
;
99 if (plt
->data_offset
== 0) {
100 section_ptr_add(plt
, 32);
102 plt_offset
= plt
->data_offset
;
104 p
= section_ptr_add(plt
, 16);
105 write32le(p
, got_offset
);
106 write32le(p
+ 4, (uint64_t) got_offset
>> 32);
110 /* relocate the PLT: compute addresses and offsets in the PLT now that final
111 address for PLT and GOT are known (see fill_program_header) */
112 ST_FUNC
void relocate_plt(TCCState
*s1
)
120 p_end
= p
+ s1
->plt
->data_offset
;
123 uint64_t plt
= s1
->plt
->sh_addr
;
124 uint64_t got
= s1
->got
->sh_addr
+ 16;
125 uint64_t off
= (got
>> 12) - (plt
>> 12);
126 if ((off
+ ((uint32_t)1 << 20)) >> 21)
127 tcc_error("Failed relocating PLT (off=0x%lx, got=0x%lx, plt=0x%lx)", (long)off
, (long)got
, (long)plt
);
128 write32le(p
, 0xa9bf7bf0); // stp x16,x30,[sp,#-16]!
129 write32le(p
+ 4, (0x90000010 | // adrp x16,...
130 (off
& 0x1ffffc) << 3 | (off
& 3) << 29));
131 write32le(p
+ 8, (0xf9400211 | // ldr x17,[x16,#...]
132 (got
& 0xff8) << 7));
133 write32le(p
+ 12, (0x91000210 | // add x16,x16,#...
134 (got
& 0xfff) << 10));
135 write32le(p
+ 16, 0xd61f0220); // br x17
136 write32le(p
+ 20, 0xd503201f); // nop
137 write32le(p
+ 24, 0xd503201f); // nop
138 write32le(p
+ 28, 0xd503201f); // nop
140 got
= s1
->got
->sh_addr
;
142 uint64_t pc
= plt
+ (p
- s1
->plt
->data
);
143 uint64_t addr
= got
+ read64le(p
);
144 uint64_t off
= (addr
>> 12) - (pc
>> 12);
145 if ((off
+ ((uint32_t)1 << 20)) >> 21)
146 tcc_error("Failed relocating PLT (off=0x%lx, addr=0x%lx, pc=0x%lx)", (long)off
, (long)addr
, (long)pc
);
147 write32le(p
, (0x90000010 | // adrp x16,...
148 (off
& 0x1ffffc) << 3 | (off
& 3) << 29));
149 write32le(p
+ 4, (0xf9400211 | // ldr x17,[x16,#...]
150 (addr
& 0xff8) << 7));
151 write32le(p
+ 8, (0x91000210 | // add x16,x16,#...
152 (addr
& 0xfff) << 10));
153 write32le(p
+ 12, 0xd61f0220); // br x17
158 if (s1
->plt
->reloc
) {
161 for_each_elem(s1
->plt
->reloc
, 0, rel
, ElfW_Rel
) {
162 write64le(p
+ rel
->r_offset
, s1
->plt
->sh_addr
);
167 void relocate(TCCState
*s1
, ElfW_Rel
*rel
, int type
, unsigned char *ptr
, addr_t addr
, addr_t val
)
169 int sym_index
= ELFW(R_SYM
)(rel
->r_info
), esym_index
;
171 ElfW(Sym
) *sym
= &((ElfW(Sym
) *)symtab_section
->data
)[sym_index
];
175 case R_AARCH64_ABS64
:
176 if (s1
->output_type
== TCC_OUTPUT_DLL
) {
177 esym_index
= get_sym_attr(s1
, sym_index
, 0)->dyn_index
;
178 qrel
->r_offset
= rel
->r_offset
;
180 qrel
->r_info
= ELFW(R_INFO
)(esym_index
, R_AARCH64_ABS64
);
181 qrel
->r_addend
= rel
->r_addend
;
185 qrel
->r_info
= ELFW(R_INFO
)(0, R_AARCH64_RELATIVE
);
186 qrel
->r_addend
= read64le(ptr
) + val
;
192 case R_AARCH64_ABS32
:
193 if (s1
->output_type
== TCC_OUTPUT_DLL
) {
194 /* XXX: this logic may depend on TCC's codegen
195 now TCC uses R_AARCH64_RELATIVE even for a 64bit pointer */
196 qrel
->r_offset
= rel
->r_offset
;
197 qrel
->r_info
= ELFW(R_INFO
)(0, R_AARCH64_RELATIVE
);
198 /* Use sign extension! */
199 qrel
->r_addend
= (int)read32le(ptr
) + val
;
204 case R_AARCH64_PREL32
:
205 if (s1
->output_type
== TCC_OUTPUT_DLL
) {
207 esym_index
= get_sym_attr(s1
, sym_index
, 0)->dyn_index
;
209 qrel
->r_offset
= rel
->r_offset
;
210 qrel
->r_info
= ELFW(R_INFO
)(esym_index
, R_AARCH64_PREL32
);
211 /* Use sign extension! */
212 qrel
->r_addend
= (int)read32le(ptr
) + rel
->r_addend
;
217 write32le(ptr
, val
- addr
);
219 case R_AARCH64_MOVW_UABS_G0_NC
:
220 write32le(ptr
, ((read32le(ptr
) & 0xffe0001f) |
221 (val
& 0xffff) << 5));
223 case R_AARCH64_MOVW_UABS_G1_NC
:
224 write32le(ptr
, ((read32le(ptr
) & 0xffe0001f) |
225 (val
>> 16 & 0xffff) << 5));
227 case R_AARCH64_MOVW_UABS_G2_NC
:
228 write32le(ptr
, ((read32le(ptr
) & 0xffe0001f) |
229 (val
>> 32 & 0xffff) << 5));
231 case R_AARCH64_MOVW_UABS_G3
:
232 write32le(ptr
, ((read32le(ptr
) & 0xffe0001f) |
233 (val
>> 48 & 0xffff) << 5));
235 case R_AARCH64_ADR_PREL_PG_HI21
: {
236 uint64_t off
= (val
>> 12) - (addr
>> 12);
237 if ((off
+ ((uint64_t)1 << 20)) >> 21)
238 tcc_error("R_AARCH64_ADR_PREL_PG_HI21 relocation failed");
239 write32le(ptr
, ((read32le(ptr
) & 0x9f00001f) |
240 (off
& 0x1ffffc) << 3 | (off
& 3) << 29));
243 case R_AARCH64_ADD_ABS_LO12_NC
:
244 case R_AARCH64_LDST8_ABS_LO12_NC
:
245 write32le(ptr
, ((read32le(ptr
) & 0xffc003ff) |
246 (val
& 0xfff) << 10));
248 case R_AARCH64_LDST16_ABS_LO12_NC
:
249 write32le(ptr
, ((read32le(ptr
) & 0xffc003ff) |
250 (val
& 0xffe) << 9));
252 case R_AARCH64_LDST32_ABS_LO12_NC
:
253 write32le(ptr
, ((read32le(ptr
) & 0xffc003ff) |
254 (val
& 0xffc) << 8));
256 case R_AARCH64_LDST64_ABS_LO12_NC
:
257 write32le(ptr
, ((read32le(ptr
) & 0xffc003ff) |
258 (val
& 0xff8) << 7));
260 case R_AARCH64_LDST128_ABS_LO12_NC
:
261 write32le(ptr
, ((read32le(ptr
) & 0xffc003ff) |
262 (val
& 0xff0) << 6));
264 case R_AARCH64_JUMP26
:
265 case R_AARCH64_CALL26
:
267 printf ("reloc %d @ 0x%lx: val=0x%lx name=%s\n", type
, addr
, val
,
268 (char *) symtab_section
->link
->data
+ sym
->st_name
);
270 if (((val
- addr
) + ((uint64_t)1 << 27)) & ~(uint64_t)0xffffffc)
271 tcc_error("R_AARCH64_(JUMP|CALL)26 relocation failed"
272 " (val=%lx, addr=%lx)", (long)val
, (long)addr
);
273 write32le(ptr
, (0x14000000 |
274 (uint32_t)(type
== R_AARCH64_CALL26
) << 31 |
275 ((val
- addr
) >> 2 & 0x3ffffff)));
277 case R_AARCH64_ADR_GOT_PAGE
: {
279 (((s1
->got
->sh_addr
+
280 get_sym_attr(s1
, sym_index
, 0)->got_offset
) >> 12) - (addr
>> 12));
281 if ((off
+ ((uint64_t)1 << 20)) >> 21)
282 tcc_error("R_AARCH64_ADR_GOT_PAGE relocation failed");
283 write32le(ptr
, ((read32le(ptr
) & 0x9f00001f) |
284 (off
& 0x1ffffc) << 3 | (off
& 3) << 29));
287 case R_AARCH64_LD64_GOT_LO12_NC
:
289 ((read32le(ptr
) & 0xfff803ff) |
291 get_sym_attr(s1
, sym_index
, 0)->got_offset
) & 0xff8) << 7));
295 case R_AARCH64_GLOB_DAT
:
296 case R_AARCH64_JUMP_SLOT
:
297 /* They don't need addend */
299 printf ("reloc %d @ 0x%lx: val=0x%lx name=%s\n", type
, addr
,
301 (char *) symtab_section
->link
->data
+ sym
->st_name
);
303 write64le(ptr
, val
- rel
->r_addend
);
305 case R_AARCH64_RELATIVE
:
307 add32le(ptr
, val
- s1
->pe_imagebase
);
312 fprintf(stderr
, "FIXME: handle reloc type %x at %x [%p] to %x\n",
313 type
, (unsigned)addr
, ptr
, (unsigned)val
);
318 #endif /* !TARGET_DEFS_ONLY */