projects / deliverable / binutils-gdb.git / blob
? search:


5f80a2d7d7e71185eec639ad181b1bc285d6fe3e
[deliverable/binutils-gdb.git] / bfd / elfnn-aarch64.c
1 /* AArch64-specific support for NN-bit ELF.
2 Copyright (C) 2009-2015 Free Software Foundation, Inc.
3 Contributed by ARM Ltd.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; see the file COPYING3. If not,
19 see <http://www.gnu.org/licenses/>. */
20
21 /* Notes on implementation:
22
23 Thread Local Store (TLS)
24
25 Overview:
26
27 The implementation currently supports both traditional TLS and TLS
28 descriptors, but only general dynamic (GD).
29
30 For traditional TLS the assembler will present us with code
31 fragments of the form:
32
33 adrp x0, :tlsgd:foo
34 R_AARCH64_TLSGD_ADR_PAGE21(foo)
35 add x0, :tlsgd_lo12:foo
36 R_AARCH64_TLSGD_ADD_LO12_NC(foo)
37 bl __tls_get_addr
38 nop
39
40 For TLS descriptors the assembler will present us with code
41 fragments of the form:
42
43 adrp x0, :tlsdesc:foo R_AARCH64_TLSDESC_ADR_PAGE21(foo)
44 ldr x1, [x0, #:tlsdesc_lo12:foo] R_AARCH64_TLSDESC_LD64_LO12(foo)
45 add x0, x0, #:tlsdesc_lo12:foo R_AARCH64_TLSDESC_ADD_LO12(foo)
46 .tlsdesccall foo
47 blr x1 R_AARCH64_TLSDESC_CALL(foo)
48
49 The relocations R_AARCH64_TLSGD_{ADR_PREL21,ADD_LO12_NC} against foo
50 indicate that foo is thread local and should be accessed via the
51 traditional TLS mechanims.
52
53 The relocations R_AARCH64_TLSDESC_{ADR_PAGE21,LD64_LO12_NC,ADD_LO12_NC}
54 against foo indicate that 'foo' is thread local and should be accessed
55 via a TLS descriptor mechanism.
56
57 The precise instruction sequence is only relevant from the
58 perspective of linker relaxation which is currently not implemented.
59
60 The static linker must detect that 'foo' is a TLS object and
61 allocate a double GOT entry. The GOT entry must be created for both
62 global and local TLS symbols. Note that this is different to none
63 TLS local objects which do not need a GOT entry.
64
65 In the traditional TLS mechanism, the double GOT entry is used to
66 provide the tls_index structure, containing module and offset
67 entries. The static linker places the relocation R_AARCH64_TLS_DTPMOD
68 on the module entry. The loader will subsequently fixup this
69 relocation with the module identity.
70
71 For global traditional TLS symbols the static linker places an
72 R_AARCH64_TLS_DTPREL relocation on the offset entry. The loader
73 will subsequently fixup the offset. For local TLS symbols the static
74 linker fixes up offset.
75
76 In the TLS descriptor mechanism the double GOT entry is used to
77 provide the descriptor. The static linker places the relocation
78 R_AARCH64_TLSDESC on the first GOT slot. The loader will
79 subsequently fix this up.
80
81 Implementation:
82
83 The handling of TLS symbols is implemented across a number of
84 different backend functions. The following is a top level view of
85 what processing is performed where.
86
87 The TLS implementation maintains state information for each TLS
88 symbol. The state information for local and global symbols is kept
89 in different places. Global symbols use generic BFD structures while
90 local symbols use backend specific structures that are allocated and
91 maintained entirely by the backend.
92
93 The flow:
94
95 elfNN_aarch64_check_relocs()
96
97 This function is invoked for each relocation.
98
99 The TLS relocations R_AARCH64_TLSGD_{ADR_PREL21,ADD_LO12_NC} and
100 R_AARCH64_TLSDESC_{ADR_PAGE21,LD64_LO12_NC,ADD_LO12_NC} are
101 spotted. One time creation of local symbol data structures are
102 created when the first local symbol is seen.
103
104 The reference count for a symbol is incremented. The GOT type for
105 each symbol is marked as general dynamic.
106
107 elfNN_aarch64_allocate_dynrelocs ()
108
109 For each global with positive reference count we allocate a double
110 GOT slot. For a traditional TLS symbol we allocate space for two
111 relocation entries on the GOT, for a TLS descriptor symbol we
112 allocate space for one relocation on the slot. Record the GOT offset
113 for this symbol.
114
115 elfNN_aarch64_size_dynamic_sections ()
116
117 Iterate all input BFDS, look for in the local symbol data structure
118 constructed earlier for local TLS symbols and allocate them double
119 GOT slots along with space for a single GOT relocation. Update the
120 local symbol structure to record the GOT offset allocated.
121
122 elfNN_aarch64_relocate_section ()
123
124 Calls elfNN_aarch64_final_link_relocate ()
125
126 Emit the relevant TLS relocations against the GOT for each TLS
127 symbol. For local TLS symbols emit the GOT offset directly. The GOT
128 relocations are emitted once the first time a TLS symbol is
129 encountered. The implementation uses the LSB of the GOT offset to
130 flag that the relevant GOT relocations for a symbol have been
131 emitted. All of the TLS code that uses the GOT offset needs to take
132 care to mask out this flag bit before using the offset.
133
134 elfNN_aarch64_final_link_relocate ()
135
136 Fixup the R_AARCH64_TLSGD_{ADR_PREL21, ADD_LO12_NC} relocations. */
137
138 #include "sysdep.h"
139 #include "bfd.h"
140 #include "libiberty.h"
141 #include "libbfd.h"
142 #include "bfd_stdint.h"
143 #include "elf-bfd.h"
144 #include "bfdlink.h"
145 #include "objalloc.h"
146 #include "elf/aarch64.h"
147 #include "elfxx-aarch64.h"
148
149 #define ARCH_SIZE NN
150
151 #if ARCH_SIZE == 64
152 #define AARCH64_R(NAME) R_AARCH64_ ## NAME
153 #define AARCH64_R_STR(NAME) "R_AARCH64_" #NAME
154 #define HOWTO64(...) HOWTO (__VA_ARGS__)
155 #define HOWTO32(...) EMPTY_HOWTO (0)
156 #define LOG_FILE_ALIGN 3
157 #endif
158
159 #if ARCH_SIZE == 32
160 #define AARCH64_R(NAME) R_AARCH64_P32_ ## NAME
161 #define AARCH64_R_STR(NAME) "R_AARCH64_P32_" #NAME
162 #define HOWTO64(...) EMPTY_HOWTO (0)
163 #define HOWTO32(...) HOWTO (__VA_ARGS__)
164 #define LOG_FILE_ALIGN 2
165 #endif
166
167 #define IS_AARCH64_TLS_RELOC(R_TYPE) \
168 ((R_TYPE) == BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21 \
169 || (R_TYPE) == BFD_RELOC_AARCH64_TLSGD_ADR_PREL21 \
170 || (R_TYPE) == BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC \
171 || (R_TYPE) == BFD_RELOC_AARCH64_TLSIE_MOVW_GOTTPREL_G1 \
172 || (R_TYPE) == BFD_RELOC_AARCH64_TLSIE_MOVW_GOTTPREL_G0_NC \
173 || (R_TYPE) == BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21 \
174 || (R_TYPE) == BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC \
175 || (R_TYPE) == BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC \
176 || (R_TYPE) == BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19 \
177 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12 \
178 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12 \
179 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC \
180 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2 \
181 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1 \
182 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC \
183 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0 \
184 || (R_TYPE) == BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC \
185 || (R_TYPE) == BFD_RELOC_AARCH64_TLS_DTPMOD \
186 || (R_TYPE) == BFD_RELOC_AARCH64_TLS_DTPREL \
187 || (R_TYPE) == BFD_RELOC_AARCH64_TLS_TPREL \
188 || IS_AARCH64_TLSDESC_RELOC ((R_TYPE)))
189
190 #define IS_AARCH64_TLSDESC_RELOC(R_TYPE) \
191 ((R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_LD_PREL19 \
192 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21 \
193 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21 \
194 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC \
195 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC \
196 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC \
197 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_OFF_G1 \
198 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_OFF_G0_NC \
199 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_LDR \
200 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_ADD \
201 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC_CALL \
202 || (R_TYPE) == BFD_RELOC_AARCH64_TLSDESC)
203
204 #define ELIMINATE_COPY_RELOCS 0
205
206 /* Return size of a relocation entry. HTAB is the bfd's
207 elf_aarch64_link_hash_entry. */
208 #define RELOC_SIZE(HTAB) (sizeof (ElfNN_External_Rela))
209
210 /* GOT Entry size - 8 bytes in ELF64 and 4 bytes in ELF32. */
211 #define GOT_ENTRY_SIZE (ARCH_SIZE / 8)
212 #define PLT_ENTRY_SIZE (32)
213 #define PLT_SMALL_ENTRY_SIZE (16)
214 #define PLT_TLSDESC_ENTRY_SIZE (32)
215
216 /* Encoding of the nop instruction */
217 #define INSN_NOP 0xd503201f
218
219 #define aarch64_compute_jump_table_size(htab) \
220 (((htab)->root.srelplt == NULL) ? 0 \
221 : (htab)->root.srelplt->reloc_count * GOT_ENTRY_SIZE)
222
223 /* The first entry in a procedure linkage table looks like this
224 if the distance between the PLTGOT and the PLT is < 4GB use
225 these PLT entries. Note that the dynamic linker gets &PLTGOT[2]
226 in x16 and needs to work out PLTGOT[1] by using an address of
227 [x16,#-GOT_ENTRY_SIZE]. */
228 static const bfd_byte elfNN_aarch64_small_plt0_entry[PLT_ENTRY_SIZE] =
229 {
230 0xf0, 0x7b, 0xbf, 0xa9, /* stp x16, x30, [sp, #-16]! */
231 0x10, 0x00, 0x00, 0x90, /* adrp x16, (GOT+16) */
232 #if ARCH_SIZE == 64
233 0x11, 0x0A, 0x40, 0xf9, /* ldr x17, [x16, #PLT_GOT+0x10] */
234 0x10, 0x42, 0x00, 0x91, /* add x16, x16,#PLT_GOT+0x10 */
235 #else
236 0x11, 0x0A, 0x40, 0xb9, /* ldr w17, [x16, #PLT_GOT+0x8] */
237 0x10, 0x22, 0x00, 0x11, /* add w16, w16,#PLT_GOT+0x8 */
238 #endif
239 0x20, 0x02, 0x1f, 0xd6, /* br x17 */
240 0x1f, 0x20, 0x03, 0xd5, /* nop */
241 0x1f, 0x20, 0x03, 0xd5, /* nop */
242 0x1f, 0x20, 0x03, 0xd5, /* nop */
243 };
244
245 /* Per function entry in a procedure linkage table looks like this
246 if the distance between the PLTGOT and the PLT is < 4GB use
247 these PLT entries. */
248 static const bfd_byte elfNN_aarch64_small_plt_entry[PLT_SMALL_ENTRY_SIZE] =
249 {
250 0x10, 0x00, 0x00, 0x90, /* adrp x16, PLTGOT + n * 8 */
251 #if ARCH_SIZE == 64
252 0x11, 0x02, 0x40, 0xf9, /* ldr x17, [x16, PLTGOT + n * 8] */
253 0x10, 0x02, 0x00, 0x91, /* add x16, x16, :lo12:PLTGOT + n * 8 */
254 #else
255 0x11, 0x02, 0x40, 0xb9, /* ldr w17, [x16, PLTGOT + n * 4] */
256 0x10, 0x02, 0x00, 0x11, /* add w16, w16, :lo12:PLTGOT + n * 4 */
257 #endif
258 0x20, 0x02, 0x1f, 0xd6, /* br x17. */
259 };
260
261 static const bfd_byte
262 elfNN_aarch64_tlsdesc_small_plt_entry[PLT_TLSDESC_ENTRY_SIZE] =
263 {
264 0xe2, 0x0f, 0xbf, 0xa9, /* stp x2, x3, [sp, #-16]! */
265 0x02, 0x00, 0x00, 0x90, /* adrp x2, 0 */
266 0x03, 0x00, 0x00, 0x90, /* adrp x3, 0 */
267 #if ARCH_SIZE == 64
268 0x42, 0x00, 0x40, 0xf9, /* ldr x2, [x2, #0] */
269 0x63, 0x00, 0x00, 0x91, /* add x3, x3, 0 */
270 #else
271 0x42, 0x00, 0x40, 0xb9, /* ldr w2, [x2, #0] */
272 0x63, 0x00, 0x00, 0x11, /* add w3, w3, 0 */
273 #endif
274 0x40, 0x00, 0x1f, 0xd6, /* br x2 */
275 0x1f, 0x20, 0x03, 0xd5, /* nop */
276 0x1f, 0x20, 0x03, 0xd5, /* nop */
277 };
278
279 #define elf_info_to_howto elfNN_aarch64_info_to_howto
280 #define elf_info_to_howto_rel elfNN_aarch64_info_to_howto
281
282 #define AARCH64_ELF_ABI_VERSION 0
283
284 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value. */
285 #define ALL_ONES (~ (bfd_vma) 0)
286
287 /* Indexed by the bfd interal reloc enumerators.
288 Therefore, the table needs to be synced with BFD_RELOC_AARCH64_*
289 in reloc.c. */
290
291 static reloc_howto_type elfNN_aarch64_howto_table[] =
292 {
293 EMPTY_HOWTO (0),
294
295 /* Basic data relocations. */
296
297 #if ARCH_SIZE == 64
298 HOWTO (R_AARCH64_NULL, /* type */
299 0, /* rightshift */
300 3, /* size (0 = byte, 1 = short, 2 = long) */
301 0, /* bitsize */
302 FALSE, /* pc_relative */
303 0, /* bitpos */
304 complain_overflow_dont, /* complain_on_overflow */
305 bfd_elf_generic_reloc, /* special_function */
306 "R_AARCH64_NULL", /* name */
307 FALSE, /* partial_inplace */
308 0, /* src_mask */
309 0, /* dst_mask */
310 FALSE), /* pcrel_offset */
311 #else
312 HOWTO (R_AARCH64_NONE, /* type */
313 0, /* rightshift */
314 3, /* size (0 = byte, 1 = short, 2 = long) */
315 0, /* bitsize */
316 FALSE, /* pc_relative */
317 0, /* bitpos */
318 complain_overflow_dont, /* complain_on_overflow */
319 bfd_elf_generic_reloc, /* special_function */
320 "R_AARCH64_NONE", /* name */
321 FALSE, /* partial_inplace */
322 0, /* src_mask */
323 0, /* dst_mask */
324 FALSE), /* pcrel_offset */
325 #endif
326
327 /* .xword: (S+A) */
328 HOWTO64 (AARCH64_R (ABS64), /* type */
329 0, /* rightshift */
330 4, /* size (4 = long long) */
331 64, /* bitsize */
332 FALSE, /* pc_relative */
333 0, /* bitpos */
334 complain_overflow_unsigned, /* complain_on_overflow */
335 bfd_elf_generic_reloc, /* special_function */
336 AARCH64_R_STR (ABS64), /* name */
337 FALSE, /* partial_inplace */
338 ALL_ONES, /* src_mask */
339 ALL_ONES, /* dst_mask */
340 FALSE), /* pcrel_offset */
341
342 /* .word: (S+A) */
343 HOWTO (AARCH64_R (ABS32), /* type */
344 0, /* rightshift */
345 2, /* size (0 = byte, 1 = short, 2 = long) */
346 32, /* bitsize */
347 FALSE, /* pc_relative */
348 0, /* bitpos */
349 complain_overflow_unsigned, /* complain_on_overflow */
350 bfd_elf_generic_reloc, /* special_function */
351 AARCH64_R_STR (ABS32), /* name */
352 FALSE, /* partial_inplace */
353 0xffffffff, /* src_mask */
354 0xffffffff, /* dst_mask */
355 FALSE), /* pcrel_offset */
356
357 /* .half: (S+A) */
358 HOWTO (AARCH64_R (ABS16), /* type */
359 0, /* rightshift */
360 1, /* size (0 = byte, 1 = short, 2 = long) */
361 16, /* bitsize */
362 FALSE, /* pc_relative */
363 0, /* bitpos */
364 complain_overflow_unsigned, /* complain_on_overflow */
365 bfd_elf_generic_reloc, /* special_function */
366 AARCH64_R_STR (ABS16), /* name */
367 FALSE, /* partial_inplace */
368 0xffff, /* src_mask */
369 0xffff, /* dst_mask */
370 FALSE), /* pcrel_offset */
371
372 /* .xword: (S+A-P) */
373 HOWTO64 (AARCH64_R (PREL64), /* type */
374 0, /* rightshift */
375 4, /* size (4 = long long) */
376 64, /* bitsize */
377 TRUE, /* pc_relative */
378 0, /* bitpos */
379 complain_overflow_signed, /* complain_on_overflow */
380 bfd_elf_generic_reloc, /* special_function */
381 AARCH64_R_STR (PREL64), /* name */
382 FALSE, /* partial_inplace */
383 ALL_ONES, /* src_mask */
384 ALL_ONES, /* dst_mask */
385 TRUE), /* pcrel_offset */
386
387 /* .word: (S+A-P) */
388 HOWTO (AARCH64_R (PREL32), /* type */
389 0, /* rightshift */
390 2, /* size (0 = byte, 1 = short, 2 = long) */
391 32, /* bitsize */
392 TRUE, /* pc_relative */
393 0, /* bitpos */
394 complain_overflow_signed, /* complain_on_overflow */
395 bfd_elf_generic_reloc, /* special_function */
396 AARCH64_R_STR (PREL32), /* name */
397 FALSE, /* partial_inplace */
398 0xffffffff, /* src_mask */
399 0xffffffff, /* dst_mask */
400 TRUE), /* pcrel_offset */
401
402 /* .half: (S+A-P) */
403 HOWTO (AARCH64_R (PREL16), /* type */
404 0, /* rightshift */
405 1, /* size (0 = byte, 1 = short, 2 = long) */
406 16, /* bitsize */
407 TRUE, /* pc_relative */
408 0, /* bitpos */
409 complain_overflow_signed, /* complain_on_overflow */
410 bfd_elf_generic_reloc, /* special_function */
411 AARCH64_R_STR (PREL16), /* name */
412 FALSE, /* partial_inplace */
413 0xffff, /* src_mask */
414 0xffff, /* dst_mask */
415 TRUE), /* pcrel_offset */
416
417 /* Group relocations to create a 16, 32, 48 or 64 bit
418 unsigned data or abs address inline. */
419
420 /* MOVZ: ((S+A) >> 0) & 0xffff */
421 HOWTO (AARCH64_R (MOVW_UABS_G0), /* type */
422 0, /* rightshift */
423 2, /* size (0 = byte, 1 = short, 2 = long) */
424 16, /* bitsize */
425 FALSE, /* pc_relative */
426 0, /* bitpos */
427 complain_overflow_unsigned, /* complain_on_overflow */
428 bfd_elf_generic_reloc, /* special_function */
429 AARCH64_R_STR (MOVW_UABS_G0), /* name */
430 FALSE, /* partial_inplace */
431 0xffff, /* src_mask */
432 0xffff, /* dst_mask */
433 FALSE), /* pcrel_offset */
434
435 /* MOVK: ((S+A) >> 0) & 0xffff [no overflow check] */
436 HOWTO (AARCH64_R (MOVW_UABS_G0_NC), /* type */
437 0, /* rightshift */
438 2, /* size (0 = byte, 1 = short, 2 = long) */
439 16, /* bitsize */
440 FALSE, /* pc_relative */
441 0, /* bitpos */
442 complain_overflow_dont, /* complain_on_overflow */
443 bfd_elf_generic_reloc, /* special_function */
444 AARCH64_R_STR (MOVW_UABS_G0_NC), /* name */
445 FALSE, /* partial_inplace */
446 0xffff, /* src_mask */
447 0xffff, /* dst_mask */
448 FALSE), /* pcrel_offset */
449
450 /* MOVZ: ((S+A) >> 16) & 0xffff */
451 HOWTO (AARCH64_R (MOVW_UABS_G1), /* type */
452 16, /* rightshift */
453 2, /* size (0 = byte, 1 = short, 2 = long) */
454 16, /* bitsize */
455 FALSE, /* pc_relative */
456 0, /* bitpos */
457 complain_overflow_unsigned, /* complain_on_overflow */
458 bfd_elf_generic_reloc, /* special_function */
459 AARCH64_R_STR (MOVW_UABS_G1), /* name */
460 FALSE, /* partial_inplace */
461 0xffff, /* src_mask */
462 0xffff, /* dst_mask */
463 FALSE), /* pcrel_offset */
464
465 /* MOVK: ((S+A) >> 16) & 0xffff [no overflow check] */
466 HOWTO64 (AARCH64_R (MOVW_UABS_G1_NC), /* type */
467 16, /* rightshift */
468 2, /* size (0 = byte, 1 = short, 2 = long) */
469 16, /* bitsize */
470 FALSE, /* pc_relative */
471 0, /* bitpos */
472 complain_overflow_dont, /* complain_on_overflow */
473 bfd_elf_generic_reloc, /* special_function */
474 AARCH64_R_STR (MOVW_UABS_G1_NC), /* name */
475 FALSE, /* partial_inplace */
476 0xffff, /* src_mask */
477 0xffff, /* dst_mask */
478 FALSE), /* pcrel_offset */
479
480 /* MOVZ: ((S+A) >> 32) & 0xffff */
481 HOWTO64 (AARCH64_R (MOVW_UABS_G2), /* type */
482 32, /* rightshift */
483 2, /* size (0 = byte, 1 = short, 2 = long) */
484 16, /* bitsize */
485 FALSE, /* pc_relative */
486 0, /* bitpos */
487 complain_overflow_unsigned, /* complain_on_overflow */
488 bfd_elf_generic_reloc, /* special_function */
489 AARCH64_R_STR (MOVW_UABS_G2), /* name */
490 FALSE, /* partial_inplace */
491 0xffff, /* src_mask */
492 0xffff, /* dst_mask */
493 FALSE), /* pcrel_offset */
494
495 /* MOVK: ((S+A) >> 32) & 0xffff [no overflow check] */
496 HOWTO64 (AARCH64_R (MOVW_UABS_G2_NC), /* type */
497 32, /* rightshift */
498 2, /* size (0 = byte, 1 = short, 2 = long) */
499 16, /* bitsize */
500 FALSE, /* pc_relative */
501 0, /* bitpos */
502 complain_overflow_dont, /* complain_on_overflow */
503 bfd_elf_generic_reloc, /* special_function */
504 AARCH64_R_STR (MOVW_UABS_G2_NC), /* name */
505 FALSE, /* partial_inplace */
506 0xffff, /* src_mask */
507 0xffff, /* dst_mask */
508 FALSE), /* pcrel_offset */
509
510 /* MOVZ: ((S+A) >> 48) & 0xffff */
511 HOWTO64 (AARCH64_R (MOVW_UABS_G3), /* type */
512 48, /* rightshift */
513 2, /* size (0 = byte, 1 = short, 2 = long) */
514 16, /* bitsize */
515 FALSE, /* pc_relative */
516 0, /* bitpos */
517 complain_overflow_unsigned, /* complain_on_overflow */
518 bfd_elf_generic_reloc, /* special_function */
519 AARCH64_R_STR (MOVW_UABS_G3), /* name */
520 FALSE, /* partial_inplace */
521 0xffff, /* src_mask */
522 0xffff, /* dst_mask */
523 FALSE), /* pcrel_offset */
524
525 /* Group relocations to create high part of a 16, 32, 48 or 64 bit
526 signed data or abs address inline. Will change instruction
527 to MOVN or MOVZ depending on sign of calculated value. */
528
529 /* MOV[ZN]: ((S+A) >> 0) & 0xffff */
530 HOWTO (AARCH64_R (MOVW_SABS_G0), /* type */
531 0, /* rightshift */
532 2, /* size (0 = byte, 1 = short, 2 = long) */
533 16, /* bitsize */
534 FALSE, /* pc_relative */
535 0, /* bitpos */
536 complain_overflow_signed, /* complain_on_overflow */
537 bfd_elf_generic_reloc, /* special_function */
538 AARCH64_R_STR (MOVW_SABS_G0), /* name */
539 FALSE, /* partial_inplace */
540 0xffff, /* src_mask */
541 0xffff, /* dst_mask */
542 FALSE), /* pcrel_offset */
543
544 /* MOV[ZN]: ((S+A) >> 16) & 0xffff */
545 HOWTO64 (AARCH64_R (MOVW_SABS_G1), /* type */
546 16, /* rightshift */
547 2, /* size (0 = byte, 1 = short, 2 = long) */
548 16, /* bitsize */
549 FALSE, /* pc_relative */
550 0, /* bitpos */
551 complain_overflow_signed, /* complain_on_overflow */
552 bfd_elf_generic_reloc, /* special_function */
553 AARCH64_R_STR (MOVW_SABS_G1), /* name */
554 FALSE, /* partial_inplace */
555 0xffff, /* src_mask */
556 0xffff, /* dst_mask */
557 FALSE), /* pcrel_offset */
558
559 /* MOV[ZN]: ((S+A) >> 32) & 0xffff */
560 HOWTO64 (AARCH64_R (MOVW_SABS_G2), /* type */
561 32, /* rightshift */
562 2, /* size (0 = byte, 1 = short, 2 = long) */
563 16, /* bitsize */
564 FALSE, /* pc_relative */
565 0, /* bitpos */
566 complain_overflow_signed, /* complain_on_overflow */
567 bfd_elf_generic_reloc, /* special_function */
568 AARCH64_R_STR (MOVW_SABS_G2), /* name */
569 FALSE, /* partial_inplace */
570 0xffff, /* src_mask */
571 0xffff, /* dst_mask */
572 FALSE), /* pcrel_offset */
573
574 /* Relocations to generate 19, 21 and 33 bit PC-relative load/store
575 addresses: PG(x) is (x & ~0xfff). */
576
577 /* LD-lit: ((S+A-P) >> 2) & 0x7ffff */
578 HOWTO (AARCH64_R (LD_PREL_LO19), /* type */
579 2, /* rightshift */
580 2, /* size (0 = byte, 1 = short, 2 = long) */
581 19, /* bitsize */
582 TRUE, /* pc_relative */
583 0, /* bitpos */
584 complain_overflow_signed, /* complain_on_overflow */
585 bfd_elf_generic_reloc, /* special_function */
586 AARCH64_R_STR (LD_PREL_LO19), /* name */
587 FALSE, /* partial_inplace */
588 0x7ffff, /* src_mask */
589 0x7ffff, /* dst_mask */
590 TRUE), /* pcrel_offset */
591
592 /* ADR: (S+A-P) & 0x1fffff */
593 HOWTO (AARCH64_R (ADR_PREL_LO21), /* type */
594 0, /* rightshift */
595 2, /* size (0 = byte, 1 = short, 2 = long) */
596 21, /* bitsize */
597 TRUE, /* pc_relative */
598 0, /* bitpos */
599 complain_overflow_signed, /* complain_on_overflow */
600 bfd_elf_generic_reloc, /* special_function */
601 AARCH64_R_STR (ADR_PREL_LO21), /* name */
602 FALSE, /* partial_inplace */
603 0x1fffff, /* src_mask */
604 0x1fffff, /* dst_mask */
605 TRUE), /* pcrel_offset */
606
607 /* ADRP: ((PG(S+A)-PG(P)) >> 12) & 0x1fffff */
608 HOWTO (AARCH64_R (ADR_PREL_PG_HI21), /* type */
609 12, /* rightshift */
610 2, /* size (0 = byte, 1 = short, 2 = long) */
611 21, /* bitsize */
612 TRUE, /* pc_relative */
613 0, /* bitpos */
614 complain_overflow_signed, /* complain_on_overflow */
615 bfd_elf_generic_reloc, /* special_function */
616 AARCH64_R_STR (ADR_PREL_PG_HI21), /* name */
617 FALSE, /* partial_inplace */
618 0x1fffff, /* src_mask */
619 0x1fffff, /* dst_mask */
620 TRUE), /* pcrel_offset */
621
622 /* ADRP: ((PG(S+A)-PG(P)) >> 12) & 0x1fffff [no overflow check] */
623 HOWTO64 (AARCH64_R (ADR_PREL_PG_HI21_NC), /* type */
624 12, /* rightshift */
625 2, /* size (0 = byte, 1 = short, 2 = long) */
626 21, /* bitsize */
627 TRUE, /* pc_relative */
628 0, /* bitpos */
629 complain_overflow_dont, /* complain_on_overflow */
630 bfd_elf_generic_reloc, /* special_function */
631 AARCH64_R_STR (ADR_PREL_PG_HI21_NC), /* name */
632 FALSE, /* partial_inplace */
633 0x1fffff, /* src_mask */
634 0x1fffff, /* dst_mask */
635 TRUE), /* pcrel_offset */
636
637 /* ADD: (S+A) & 0xfff [no overflow check] */
638 HOWTO (AARCH64_R (ADD_ABS_LO12_NC), /* type */
639 0, /* rightshift */
640 2, /* size (0 = byte, 1 = short, 2 = long) */
641 12, /* bitsize */
642 FALSE, /* pc_relative */
643 10, /* bitpos */
644 complain_overflow_dont, /* complain_on_overflow */
645 bfd_elf_generic_reloc, /* special_function */
646 AARCH64_R_STR (ADD_ABS_LO12_NC), /* name */
647 FALSE, /* partial_inplace */
648 0x3ffc00, /* src_mask */
649 0x3ffc00, /* dst_mask */
650 FALSE), /* pcrel_offset */
651
652 /* LD/ST8: (S+A) & 0xfff */
653 HOWTO (AARCH64_R (LDST8_ABS_LO12_NC), /* type */
654 0, /* rightshift */
655 2, /* size (0 = byte, 1 = short, 2 = long) */
656 12, /* bitsize */
657 FALSE, /* pc_relative */
658 0, /* bitpos */
659 complain_overflow_dont, /* complain_on_overflow */
660 bfd_elf_generic_reloc, /* special_function */
661 AARCH64_R_STR (LDST8_ABS_LO12_NC), /* name */
662 FALSE, /* partial_inplace */
663 0xfff, /* src_mask */
664 0xfff, /* dst_mask */
665 FALSE), /* pcrel_offset */
666
667 /* Relocations for control-flow instructions. */
668
669 /* TBZ/NZ: ((S+A-P) >> 2) & 0x3fff */
670 HOWTO (AARCH64_R (TSTBR14), /* type */
671 2, /* rightshift */
672 2, /* size (0 = byte, 1 = short, 2 = long) */
673 14, /* bitsize */
674 TRUE, /* pc_relative */
675 0, /* bitpos */
676 complain_overflow_signed, /* complain_on_overflow */
677 bfd_elf_generic_reloc, /* special_function */
678 AARCH64_R_STR (TSTBR14), /* name */
679 FALSE, /* partial_inplace */
680 0x3fff, /* src_mask */
681 0x3fff, /* dst_mask */
682 TRUE), /* pcrel_offset */
683
684 /* B.cond: ((S+A-P) >> 2) & 0x7ffff */
685 HOWTO (AARCH64_R (CONDBR19), /* type */
686 2, /* rightshift */
687 2, /* size (0 = byte, 1 = short, 2 = long) */
688 19, /* bitsize */
689 TRUE, /* pc_relative */
690 0, /* bitpos */
691 complain_overflow_signed, /* complain_on_overflow */
692 bfd_elf_generic_reloc, /* special_function */
693 AARCH64_R_STR (CONDBR19), /* name */
694 FALSE, /* partial_inplace */
695 0x7ffff, /* src_mask */
696 0x7ffff, /* dst_mask */
697 TRUE), /* pcrel_offset */
698
699 /* B: ((S+A-P) >> 2) & 0x3ffffff */
700 HOWTO (AARCH64_R (JUMP26), /* type */
701 2, /* rightshift */
702 2, /* size (0 = byte, 1 = short, 2 = long) */
703 26, /* bitsize */
704 TRUE, /* pc_relative */
705 0, /* bitpos */
706 complain_overflow_signed, /* complain_on_overflow */
707 bfd_elf_generic_reloc, /* special_function */
708 AARCH64_R_STR (JUMP26), /* name */
709 FALSE, /* partial_inplace */
710 0x3ffffff, /* src_mask */
711 0x3ffffff, /* dst_mask */
712 TRUE), /* pcrel_offset */
713
714 /* BL: ((S+A-P) >> 2) & 0x3ffffff */
715 HOWTO (AARCH64_R (CALL26), /* type */
716 2, /* rightshift */
717 2, /* size (0 = byte, 1 = short, 2 = long) */
718 26, /* bitsize */
719 TRUE, /* pc_relative */
720 0, /* bitpos */
721 complain_overflow_signed, /* complain_on_overflow */
722 bfd_elf_generic_reloc, /* special_function */
723 AARCH64_R_STR (CALL26), /* name */
724 FALSE, /* partial_inplace */
725 0x3ffffff, /* src_mask */
726 0x3ffffff, /* dst_mask */
727 TRUE), /* pcrel_offset */
728
729 /* LD/ST16: (S+A) & 0xffe */
730 HOWTO (AARCH64_R (LDST16_ABS_LO12_NC), /* type */
731 1, /* rightshift */
732 2, /* size (0 = byte, 1 = short, 2 = long) */
733 12, /* bitsize */
734 FALSE, /* pc_relative */
735 0, /* bitpos */
736 complain_overflow_dont, /* complain_on_overflow */
737 bfd_elf_generic_reloc, /* special_function */
738 AARCH64_R_STR (LDST16_ABS_LO12_NC), /* name */
739 FALSE, /* partial_inplace */
740 0xffe, /* src_mask */
741 0xffe, /* dst_mask */
742 FALSE), /* pcrel_offset */
743
744 /* LD/ST32: (S+A) & 0xffc */
745 HOWTO (AARCH64_R (LDST32_ABS_LO12_NC), /* type */
746 2, /* rightshift */
747 2, /* size (0 = byte, 1 = short, 2 = long) */
748 12, /* bitsize */
749 FALSE, /* pc_relative */
750 0, /* bitpos */
751 complain_overflow_dont, /* complain_on_overflow */
752 bfd_elf_generic_reloc, /* special_function */
753 AARCH64_R_STR (LDST32_ABS_LO12_NC), /* name */
754 FALSE, /* partial_inplace */
755 0xffc, /* src_mask */
756 0xffc, /* dst_mask */
757 FALSE), /* pcrel_offset */
758
759 /* LD/ST64: (S+A) & 0xff8 */
760 HOWTO (AARCH64_R (LDST64_ABS_LO12_NC), /* type */
761 3, /* rightshift */
762 2, /* size (0 = byte, 1 = short, 2 = long) */
763 12, /* bitsize */
764 FALSE, /* pc_relative */
765 0, /* bitpos */
766 complain_overflow_dont, /* complain_on_overflow */
767 bfd_elf_generic_reloc, /* special_function */
768 AARCH64_R_STR (LDST64_ABS_LO12_NC), /* name */
769 FALSE, /* partial_inplace */
770 0xff8, /* src_mask */
771 0xff8, /* dst_mask */
772 FALSE), /* pcrel_offset */
773
774 /* LD/ST128: (S+A) & 0xff0 */
775 HOWTO (AARCH64_R (LDST128_ABS_LO12_NC), /* type */
776 4, /* rightshift */
777 2, /* size (0 = byte, 1 = short, 2 = long) */
778 12, /* bitsize */
779 FALSE, /* pc_relative */
780 0, /* bitpos */
781 complain_overflow_dont, /* complain_on_overflow */
782 bfd_elf_generic_reloc, /* special_function */
783 AARCH64_R_STR (LDST128_ABS_LO12_NC), /* name */
784 FALSE, /* partial_inplace */
785 0xff0, /* src_mask */
786 0xff0, /* dst_mask */
787 FALSE), /* pcrel_offset */
788
789 /* Set a load-literal immediate field to bits
790 0x1FFFFC of G(S)-P */
791 HOWTO (AARCH64_R (GOT_LD_PREL19), /* type */
792 2, /* rightshift */
793 2, /* size (0 = byte,1 = short,2 = long) */
794 19, /* bitsize */
795 TRUE, /* pc_relative */
796 0, /* bitpos */
797 complain_overflow_signed, /* complain_on_overflow */
798 bfd_elf_generic_reloc, /* special_function */
799 AARCH64_R_STR (GOT_LD_PREL19), /* name */
800 FALSE, /* partial_inplace */
801 0xffffe0, /* src_mask */
802 0xffffe0, /* dst_mask */
803 TRUE), /* pcrel_offset */
804
805 /* Get to the page for the GOT entry for the symbol
806 (G(S) - P) using an ADRP instruction. */
807 HOWTO (AARCH64_R (ADR_GOT_PAGE), /* type */
808 12, /* rightshift */
809 2, /* size (0 = byte, 1 = short, 2 = long) */
810 21, /* bitsize */
811 TRUE, /* pc_relative */
812 0, /* bitpos */
813 complain_overflow_dont, /* complain_on_overflow */
814 bfd_elf_generic_reloc, /* special_function */
815 AARCH64_R_STR (ADR_GOT_PAGE), /* name */
816 FALSE, /* partial_inplace */
817 0x1fffff, /* src_mask */
818 0x1fffff, /* dst_mask */
819 TRUE), /* pcrel_offset */
820
821 /* LD64: GOT offset G(S) & 0xff8 */
822 HOWTO64 (AARCH64_R (LD64_GOT_LO12_NC), /* type */
823 3, /* rightshift */
824 2, /* size (0 = byte, 1 = short, 2 = long) */
825 12, /* bitsize */
826 FALSE, /* pc_relative */
827 0, /* bitpos */
828 complain_overflow_dont, /* complain_on_overflow */
829 bfd_elf_generic_reloc, /* special_function */
830 AARCH64_R_STR (LD64_GOT_LO12_NC), /* name */
831 FALSE, /* partial_inplace */
832 0xff8, /* src_mask */
833 0xff8, /* dst_mask */
834 FALSE), /* pcrel_offset */
835
836 /* LD32: GOT offset G(S) & 0xffc */
837 HOWTO32 (AARCH64_R (LD32_GOT_LO12_NC), /* type */
838 2, /* rightshift */
839 2, /* size (0 = byte, 1 = short, 2 = long) */
840 12, /* bitsize */
841 FALSE, /* pc_relative */
842 0, /* bitpos */
843 complain_overflow_dont, /* complain_on_overflow */
844 bfd_elf_generic_reloc, /* special_function */
845 AARCH64_R_STR (LD32_GOT_LO12_NC), /* name */
846 FALSE, /* partial_inplace */
847 0xffc, /* src_mask */
848 0xffc, /* dst_mask */
849 FALSE), /* pcrel_offset */
850
851 /* Get to the page for the GOT entry for the symbol
852 (G(S) - P) using an ADRP instruction. */
853 HOWTO (AARCH64_R (TLSGD_ADR_PAGE21), /* type */
854 12, /* rightshift */
855 2, /* size (0 = byte, 1 = short, 2 = long) */
856 21, /* bitsize */
857 TRUE, /* pc_relative */
858 0, /* bitpos */
859 complain_overflow_dont, /* complain_on_overflow */
860 bfd_elf_generic_reloc, /* special_function */
861 AARCH64_R_STR (TLSGD_ADR_PAGE21), /* name */
862 FALSE, /* partial_inplace */
863 0x1fffff, /* src_mask */
864 0x1fffff, /* dst_mask */
865 TRUE), /* pcrel_offset */
866
867 HOWTO (AARCH64_R (TLSGD_ADR_PREL21), /* type */
868 0, /* rightshift */
869 2, /* size (0 = byte, 1 = short, 2 = long) */
870 21, /* bitsize */
871 TRUE, /* pc_relative */
872 0, /* bitpos */
873 complain_overflow_dont, /* complain_on_overflow */
874 bfd_elf_generic_reloc, /* special_function */
875 AARCH64_R_STR (TLSGD_ADR_PREL21), /* name */
876 FALSE, /* partial_inplace */
877 0x1fffff, /* src_mask */
878 0x1fffff, /* dst_mask */
879 TRUE), /* pcrel_offset */
880
881 /* ADD: GOT offset G(S) & 0xff8 [no overflow check] */
882 HOWTO (AARCH64_R (TLSGD_ADD_LO12_NC), /* type */
883 0, /* rightshift */
884 2, /* size (0 = byte, 1 = short, 2 = long) */
885 12, /* bitsize */
886 FALSE, /* pc_relative */
887 0, /* bitpos */
888 complain_overflow_dont, /* complain_on_overflow */
889 bfd_elf_generic_reloc, /* special_function */
890 AARCH64_R_STR (TLSGD_ADD_LO12_NC), /* name */
891 FALSE, /* partial_inplace */
892 0xfff, /* src_mask */
893 0xfff, /* dst_mask */
894 FALSE), /* pcrel_offset */
895
896 HOWTO64 (AARCH64_R (TLSIE_MOVW_GOTTPREL_G1), /* type */
897 16, /* rightshift */
898 2, /* size (0 = byte, 1 = short, 2 = long) */
899 16, /* bitsize */
900 FALSE, /* pc_relative */
901 0, /* bitpos */
902 complain_overflow_dont, /* complain_on_overflow */
903 bfd_elf_generic_reloc, /* special_function */
904 AARCH64_R_STR (TLSIE_MOVW_GOTTPREL_G1), /* name */
905 FALSE, /* partial_inplace */
906 0xffff, /* src_mask */
907 0xffff, /* dst_mask */
908 FALSE), /* pcrel_offset */
909
910 HOWTO64 (AARCH64_R (TLSIE_MOVW_GOTTPREL_G0_NC), /* type */
911 0, /* rightshift */
912 2, /* size (0 = byte, 1 = short, 2 = long) */
913 16, /* bitsize */
914 FALSE, /* pc_relative */
915 0, /* bitpos */
916 complain_overflow_dont, /* complain_on_overflow */
917 bfd_elf_generic_reloc, /* special_function */
918 AARCH64_R_STR (TLSIE_MOVW_GOTTPREL_G0_NC), /* name */
919 FALSE, /* partial_inplace */
920 0xffff, /* src_mask */
921 0xffff, /* dst_mask */
922 FALSE), /* pcrel_offset */
923
924 HOWTO (AARCH64_R (TLSIE_ADR_GOTTPREL_PAGE21), /* type */
925 12, /* rightshift */
926 2, /* size (0 = byte, 1 = short, 2 = long) */
927 21, /* bitsize */
928 FALSE, /* pc_relative */
929 0, /* bitpos */
930 complain_overflow_dont, /* complain_on_overflow */
931 bfd_elf_generic_reloc, /* special_function */
932 AARCH64_R_STR (TLSIE_ADR_GOTTPREL_PAGE21), /* name */
933 FALSE, /* partial_inplace */
934 0x1fffff, /* src_mask */
935 0x1fffff, /* dst_mask */
936 FALSE), /* pcrel_offset */
937
938 HOWTO64 (AARCH64_R (TLSIE_LD64_GOTTPREL_LO12_NC), /* type */
939 3, /* rightshift */
940 2, /* size (0 = byte, 1 = short, 2 = long) */
941 12, /* bitsize */
942 FALSE, /* pc_relative */
943 0, /* bitpos */
944 complain_overflow_dont, /* complain_on_overflow */
945 bfd_elf_generic_reloc, /* special_function */
946 AARCH64_R_STR (TLSIE_LD64_GOTTPREL_LO12_NC), /* name */
947 FALSE, /* partial_inplace */
948 0xff8, /* src_mask */
949 0xff8, /* dst_mask */
950 FALSE), /* pcrel_offset */
951
952 HOWTO32 (AARCH64_R (TLSIE_LD32_GOTTPREL_LO12_NC), /* type */
953 2, /* rightshift */
954 2, /* size (0 = byte, 1 = short, 2 = long) */
955 12, /* bitsize */
956 FALSE, /* pc_relative */
957 0, /* bitpos */
958 complain_overflow_dont, /* complain_on_overflow */
959 bfd_elf_generic_reloc, /* special_function */
960 AARCH64_R_STR (TLSIE_LD32_GOTTPREL_LO12_NC), /* name */
961 FALSE, /* partial_inplace */
962 0xffc, /* src_mask */
963 0xffc, /* dst_mask */
964 FALSE), /* pcrel_offset */
965
966 HOWTO (AARCH64_R (TLSIE_LD_GOTTPREL_PREL19), /* type */
967 2, /* rightshift */
968 2, /* size (0 = byte, 1 = short, 2 = long) */
969 19, /* bitsize */
970 FALSE, /* pc_relative */
971 0, /* bitpos */
972 complain_overflow_dont, /* complain_on_overflow */
973 bfd_elf_generic_reloc, /* special_function */
974 AARCH64_R_STR (TLSIE_LD_GOTTPREL_PREL19), /* name */
975 FALSE, /* partial_inplace */
976 0x1ffffc, /* src_mask */
977 0x1ffffc, /* dst_mask */
978 FALSE), /* pcrel_offset */
979
980 HOWTO64 (AARCH64_R (TLSLE_MOVW_TPREL_G2), /* type */
981 32, /* rightshift */
982 2, /* size (0 = byte, 1 = short, 2 = long) */
983 16, /* bitsize */
984 FALSE, /* pc_relative */
985 0, /* bitpos */
986 complain_overflow_unsigned, /* complain_on_overflow */
987 bfd_elf_generic_reloc, /* special_function */
988 AARCH64_R_STR (TLSLE_MOVW_TPREL_G2), /* name */
989 FALSE, /* partial_inplace */
990 0xffff, /* src_mask */
991 0xffff, /* dst_mask */
992 FALSE), /* pcrel_offset */
993
994 HOWTO (AARCH64_R (TLSLE_MOVW_TPREL_G1), /* type */
995 16, /* rightshift */
996 2, /* size (0 = byte, 1 = short, 2 = long) */
997 16, /* bitsize */
998 FALSE, /* pc_relative */
999 0, /* bitpos */
1000 complain_overflow_dont, /* complain_on_overflow */
1001 bfd_elf_generic_reloc, /* special_function */
1002 AARCH64_R_STR (TLSLE_MOVW_TPREL_G1), /* name */
1003 FALSE, /* partial_inplace */
1004 0xffff, /* src_mask */
1005 0xffff, /* dst_mask */
1006 FALSE), /* pcrel_offset */
1007
1008 HOWTO64 (AARCH64_R (TLSLE_MOVW_TPREL_G1_NC), /* type */
1009 16, /* rightshift */
1010 2, /* size (0 = byte, 1 = short, 2 = long) */
1011 16, /* bitsize */
1012 FALSE, /* pc_relative */
1013 0, /* bitpos */
1014 complain_overflow_dont, /* complain_on_overflow */
1015 bfd_elf_generic_reloc, /* special_function */
1016 AARCH64_R_STR (TLSLE_MOVW_TPREL_G1_NC), /* name */
1017 FALSE, /* partial_inplace */
1018 0xffff, /* src_mask */
1019 0xffff, /* dst_mask */
1020 FALSE), /* pcrel_offset */
1021
1022 HOWTO (AARCH64_R (TLSLE_MOVW_TPREL_G0), /* type */
1023 0, /* rightshift */
1024 2, /* size (0 = byte, 1 = short, 2 = long) */
1025 16, /* bitsize */
1026 FALSE, /* pc_relative */
1027 0, /* bitpos */
1028 complain_overflow_dont, /* complain_on_overflow */
1029 bfd_elf_generic_reloc, /* special_function */
1030 AARCH64_R_STR (TLSLE_MOVW_TPREL_G0), /* name */
1031 FALSE, /* partial_inplace */
1032 0xffff, /* src_mask */
1033 0xffff, /* dst_mask */
1034 FALSE), /* pcrel_offset */
1035
1036 HOWTO (AARCH64_R (TLSLE_MOVW_TPREL_G0_NC), /* type */
1037 0, /* rightshift */
1038 2, /* size (0 = byte, 1 = short, 2 = long) */
1039 16, /* bitsize */
1040 FALSE, /* pc_relative */
1041 0, /* bitpos */
1042 complain_overflow_dont, /* complain_on_overflow */
1043 bfd_elf_generic_reloc, /* special_function */
1044 AARCH64_R_STR (TLSLE_MOVW_TPREL_G0_NC), /* name */
1045 FALSE, /* partial_inplace */
1046 0xffff, /* src_mask */
1047 0xffff, /* dst_mask */
1048 FALSE), /* pcrel_offset */
1049
1050 HOWTO (AARCH64_R (TLSLE_ADD_TPREL_HI12), /* type */
1051 12, /* rightshift */
1052 2, /* size (0 = byte, 1 = short, 2 = long) */
1053 12, /* bitsize */
1054 FALSE, /* pc_relative */
1055 0, /* bitpos */
1056 complain_overflow_unsigned, /* complain_on_overflow */
1057 bfd_elf_generic_reloc, /* special_function */
1058 AARCH64_R_STR (TLSLE_ADD_TPREL_HI12), /* name */
1059 FALSE, /* partial_inplace */
1060 0xfff, /* src_mask */
1061 0xfff, /* dst_mask */
1062 FALSE), /* pcrel_offset */
1063
1064 HOWTO (AARCH64_R (TLSLE_ADD_TPREL_LO12), /* type */
1065 0, /* rightshift */
1066 2, /* size (0 = byte, 1 = short, 2 = long) */
1067 12, /* bitsize */
1068 FALSE, /* pc_relative */
1069 0, /* bitpos */
1070 complain_overflow_dont, /* complain_on_overflow */
1071 bfd_elf_generic_reloc, /* special_function */
1072 AARCH64_R_STR (TLSLE_ADD_TPREL_LO12), /* name */
1073 FALSE, /* partial_inplace */
1074 0xfff, /* src_mask */
1075 0xfff, /* dst_mask */
1076 FALSE), /* pcrel_offset */
1077
1078 HOWTO (AARCH64_R (TLSLE_ADD_TPREL_LO12_NC), /* type */
1079 0, /* rightshift */
1080 2, /* size (0 = byte, 1 = short, 2 = long) */
1081 12, /* bitsize */
1082 FALSE, /* pc_relative */
1083 0, /* bitpos */
1084 complain_overflow_dont, /* complain_on_overflow */
1085 bfd_elf_generic_reloc, /* special_function */
1086 AARCH64_R_STR (TLSLE_ADD_TPREL_LO12_NC), /* name */
1087 FALSE, /* partial_inplace */
1088 0xfff, /* src_mask */
1089 0xfff, /* dst_mask */
1090 FALSE), /* pcrel_offset */
1091
1092 HOWTO (AARCH64_R (TLSDESC_LD_PREL19), /* type */
1093 2, /* rightshift */
1094 2, /* size (0 = byte, 1 = short, 2 = long) */
1095 19, /* bitsize */
1096 TRUE, /* pc_relative */
1097 0, /* bitpos */
1098 complain_overflow_dont, /* complain_on_overflow */
1099 bfd_elf_generic_reloc, /* special_function */
1100 AARCH64_R_STR (TLSDESC_LD_PREL19), /* name */
1101 FALSE, /* partial_inplace */
1102 0x0ffffe0, /* src_mask */
1103 0x0ffffe0, /* dst_mask */
1104 TRUE), /* pcrel_offset */
1105
1106 HOWTO (AARCH64_R (TLSDESC_ADR_PREL21), /* type */
1107 0, /* rightshift */
1108 2, /* size (0 = byte, 1 = short, 2 = long) */
1109 21, /* bitsize */
1110 TRUE, /* pc_relative */
1111 0, /* bitpos */
1112 complain_overflow_dont, /* complain_on_overflow */
1113 bfd_elf_generic_reloc, /* special_function */
1114 AARCH64_R_STR (TLSDESC_ADR_PREL21), /* name */
1115 FALSE, /* partial_inplace */
1116 0x1fffff, /* src_mask */
1117 0x1fffff, /* dst_mask */
1118 TRUE), /* pcrel_offset */
1119
1120 /* Get to the page for the GOT entry for the symbol
1121 (G(S) - P) using an ADRP instruction. */
1122 HOWTO (AARCH64_R (TLSDESC_ADR_PAGE21), /* type */
1123 12, /* rightshift */
1124 2, /* size (0 = byte, 1 = short, 2 = long) */
1125 21, /* bitsize */
1126 TRUE, /* pc_relative */
1127 0, /* bitpos */
1128 complain_overflow_dont, /* complain_on_overflow */
1129 bfd_elf_generic_reloc, /* special_function */
1130 AARCH64_R_STR (TLSDESC_ADR_PAGE21), /* name */
1131 FALSE, /* partial_inplace */
1132 0x1fffff, /* src_mask */
1133 0x1fffff, /* dst_mask */
1134 TRUE), /* pcrel_offset */
1135
1136 /* LD64: GOT offset G(S) & 0xff8. */
1137 HOWTO64 (AARCH64_R (TLSDESC_LD64_LO12_NC), /* type */
1138 3, /* rightshift */
1139 2, /* size (0 = byte, 1 = short, 2 = long) */
1140 12, /* bitsize */
1141 FALSE, /* pc_relative */
1142 0, /* bitpos */
1143 complain_overflow_dont, /* complain_on_overflow */
1144 bfd_elf_generic_reloc, /* special_function */
1145 AARCH64_R_STR (TLSDESC_LD64_LO12_NC), /* name */
1146 FALSE, /* partial_inplace */
1147 0xff8, /* src_mask */
1148 0xff8, /* dst_mask */
1149 FALSE), /* pcrel_offset */
1150
1151 /* LD32: GOT offset G(S) & 0xffc. */
1152 HOWTO32 (AARCH64_R (TLSDESC_LD32_LO12_NC), /* type */
1153 2, /* rightshift */
1154 2, /* size (0 = byte, 1 = short, 2 = long) */
1155 12, /* bitsize */
1156 FALSE, /* pc_relative */
1157 0, /* bitpos */
1158 complain_overflow_dont, /* complain_on_overflow */
1159 bfd_elf_generic_reloc, /* special_function */
1160 AARCH64_R_STR (TLSDESC_LD32_LO12_NC), /* name */
1161 FALSE, /* partial_inplace */
1162 0xffc, /* src_mask */
1163 0xffc, /* dst_mask */
1164 FALSE), /* pcrel_offset */
1165
1166 /* ADD: GOT offset G(S) & 0xfff. */
1167 HOWTO (AARCH64_R (TLSDESC_ADD_LO12_NC), /* type */
1168 0, /* rightshift */
1169 2, /* size (0 = byte, 1 = short, 2 = long) */
1170 12, /* bitsize */
1171 FALSE, /* pc_relative */
1172 0, /* bitpos */
1173 complain_overflow_dont, /* complain_on_overflow */
1174 bfd_elf_generic_reloc, /* special_function */
1175 AARCH64_R_STR (TLSDESC_ADD_LO12_NC), /* name */
1176 FALSE, /* partial_inplace */
1177 0xfff, /* src_mask */
1178 0xfff, /* dst_mask */
1179 FALSE), /* pcrel_offset */
1180
1181 HOWTO64 (AARCH64_R (TLSDESC_OFF_G1), /* type */
1182 16, /* rightshift */
1183 2, /* size (0 = byte, 1 = short, 2 = long) */
1184 12, /* bitsize */
1185 FALSE, /* pc_relative */
1186 0, /* bitpos */
1187 complain_overflow_dont, /* complain_on_overflow */
1188 bfd_elf_generic_reloc, /* special_function */
1189 AARCH64_R_STR (TLSDESC_OFF_G1), /* name */
1190 FALSE, /* partial_inplace */
1191 0xffff, /* src_mask */
1192 0xffff, /* dst_mask */
1193 FALSE), /* pcrel_offset */
1194
1195 HOWTO64 (AARCH64_R (TLSDESC_OFF_G0_NC), /* type */
1196 0, /* rightshift */
1197 2, /* size (0 = byte, 1 = short, 2 = long) */
1198 12, /* bitsize */
1199 FALSE, /* pc_relative */
1200 0, /* bitpos */
1201 complain_overflow_dont, /* complain_on_overflow */
1202 bfd_elf_generic_reloc, /* special_function */
1203 AARCH64_R_STR (TLSDESC_OFF_G0_NC), /* name */
1204 FALSE, /* partial_inplace */
1205 0xffff, /* src_mask */
1206 0xffff, /* dst_mask */
1207 FALSE), /* pcrel_offset */
1208
1209 HOWTO64 (AARCH64_R (TLSDESC_LDR), /* type */
1210 0, /* rightshift */
1211 2, /* size (0 = byte, 1 = short, 2 = long) */
1212 12, /* bitsize */
1213 FALSE, /* pc_relative */
1214 0, /* bitpos */
1215 complain_overflow_dont, /* complain_on_overflow */
1216 bfd_elf_generic_reloc, /* special_function */
1217 AARCH64_R_STR (TLSDESC_LDR), /* name */
1218 FALSE, /* partial_inplace */
1219 0x0, /* src_mask */
1220 0x0, /* dst_mask */
1221 FALSE), /* pcrel_offset */
1222
1223 HOWTO64 (AARCH64_R (TLSDESC_ADD), /* type */
1224 0, /* rightshift */
1225 2, /* size (0 = byte, 1 = short, 2 = long) */
1226 12, /* bitsize */
1227 FALSE, /* pc_relative */
1228 0, /* bitpos */
1229 complain_overflow_dont, /* complain_on_overflow */
1230 bfd_elf_generic_reloc, /* special_function */
1231 AARCH64_R_STR (TLSDESC_ADD), /* name */
1232 FALSE, /* partial_inplace */
1233 0x0, /* src_mask */
1234 0x0, /* dst_mask */
1235 FALSE), /* pcrel_offset */
1236
1237 HOWTO (AARCH64_R (TLSDESC_CALL), /* type */
1238 0, /* rightshift */
1239 2, /* size (0 = byte, 1 = short, 2 = long) */
1240 0, /* bitsize */
1241 FALSE, /* pc_relative */
1242 0, /* bitpos */
1243 complain_overflow_dont, /* complain_on_overflow */
1244 bfd_elf_generic_reloc, /* special_function */
1245 AARCH64_R_STR (TLSDESC_CALL), /* name */
1246 FALSE, /* partial_inplace */
1247 0x0, /* src_mask */
1248 0x0, /* dst_mask */
1249 FALSE), /* pcrel_offset */
1250
1251 HOWTO (AARCH64_R (COPY), /* type */
1252 0, /* rightshift */
1253 2, /* size (0 = byte, 1 = short, 2 = long) */
1254 64, /* bitsize */
1255 FALSE, /* pc_relative */
1256 0, /* bitpos */
1257 complain_overflow_bitfield, /* complain_on_overflow */
1258 bfd_elf_generic_reloc, /* special_function */
1259 AARCH64_R_STR (COPY), /* name */
1260 TRUE, /* partial_inplace */
1261 0xffffffff, /* src_mask */
1262 0xffffffff, /* dst_mask */
1263 FALSE), /* pcrel_offset */
1264
1265 HOWTO (AARCH64_R (GLOB_DAT), /* type */
1266 0, /* rightshift */
1267 2, /* size (0 = byte, 1 = short, 2 = long) */
1268 64, /* bitsize */
1269 FALSE, /* pc_relative */
1270 0, /* bitpos */
1271 complain_overflow_bitfield, /* complain_on_overflow */
1272 bfd_elf_generic_reloc, /* special_function */
1273 AARCH64_R_STR (GLOB_DAT), /* name */
1274 TRUE, /* partial_inplace */
1275 0xffffffff, /* src_mask */
1276 0xffffffff, /* dst_mask */
1277 FALSE), /* pcrel_offset */
1278
1279 HOWTO (AARCH64_R (JUMP_SLOT), /* type */
1280 0, /* rightshift */
1281 2, /* size (0 = byte, 1 = short, 2 = long) */
1282 64, /* bitsize */
1283 FALSE, /* pc_relative */
1284 0, /* bitpos */
1285 complain_overflow_bitfield, /* complain_on_overflow */
1286 bfd_elf_generic_reloc, /* special_function */
1287 AARCH64_R_STR (JUMP_SLOT), /* name */
1288 TRUE, /* partial_inplace */
1289 0xffffffff, /* src_mask */
1290 0xffffffff, /* dst_mask */
1291 FALSE), /* pcrel_offset */
1292
1293 HOWTO (AARCH64_R (RELATIVE), /* type */
1294 0, /* rightshift */
1295 2, /* size (0 = byte, 1 = short, 2 = long) */
1296 64, /* bitsize */
1297 FALSE, /* pc_relative */
1298 0, /* bitpos */
1299 complain_overflow_bitfield, /* complain_on_overflow */
1300 bfd_elf_generic_reloc, /* special_function */
1301 AARCH64_R_STR (RELATIVE), /* name */
1302 TRUE, /* partial_inplace */
1303 ALL_ONES, /* src_mask */
1304 ALL_ONES, /* dst_mask */
1305 FALSE), /* pcrel_offset */
1306
1307 HOWTO (AARCH64_R (TLS_DTPMOD), /* type */
1308 0, /* rightshift */
1309 2, /* size (0 = byte, 1 = short, 2 = long) */
1310 64, /* bitsize */
1311 FALSE, /* pc_relative */
1312 0, /* bitpos */
1313 complain_overflow_dont, /* complain_on_overflow */
1314 bfd_elf_generic_reloc, /* special_function */
1315 #if ARCH_SIZE == 64
1316 AARCH64_R_STR (TLS_DTPMOD64), /* name */
1317 #else
1318 AARCH64_R_STR (TLS_DTPMOD), /* name */
1319 #endif
1320 FALSE, /* partial_inplace */
1321 0, /* src_mask */
1322 ALL_ONES, /* dst_mask */
1323 FALSE), /* pc_reloffset */
1324
1325 HOWTO (AARCH64_R (TLS_DTPREL), /* type */
1326 0, /* rightshift */
1327 2, /* size (0 = byte, 1 = short, 2 = long) */
1328 64, /* bitsize */
1329 FALSE, /* pc_relative */
1330 0, /* bitpos */
1331 complain_overflow_dont, /* complain_on_overflow */
1332 bfd_elf_generic_reloc, /* special_function */
1333 #if ARCH_SIZE == 64
1334 AARCH64_R_STR (TLS_DTPREL64), /* name */
1335 #else
1336 AARCH64_R_STR (TLS_DTPREL), /* name */
1337 #endif
1338 FALSE, /* partial_inplace */
1339 0, /* src_mask */
1340 ALL_ONES, /* dst_mask */
1341 FALSE), /* pcrel_offset */
1342
1343 HOWTO (AARCH64_R (TLS_TPREL), /* type */
1344 0, /* rightshift */
1345 2, /* size (0 = byte, 1 = short, 2 = long) */
1346 64, /* bitsize */
1347 FALSE, /* pc_relative */
1348 0, /* bitpos */
1349 complain_overflow_dont, /* complain_on_overflow */
1350 bfd_elf_generic_reloc, /* special_function */
1351 #if ARCH_SIZE == 64
1352 AARCH64_R_STR (TLS_TPREL64), /* name */
1353 #else
1354 AARCH64_R_STR (TLS_TPREL), /* name */
1355 #endif
1356 FALSE, /* partial_inplace */
1357 0, /* src_mask */
1358 ALL_ONES, /* dst_mask */
1359 FALSE), /* pcrel_offset */
1360
1361 HOWTO (AARCH64_R (TLSDESC), /* type */
1362 0, /* rightshift */
1363 2, /* size (0 = byte, 1 = short, 2 = long) */
1364 64, /* bitsize */
1365 FALSE, /* pc_relative */
1366 0, /* bitpos */
1367 complain_overflow_dont, /* complain_on_overflow */
1368 bfd_elf_generic_reloc, /* special_function */
1369 AARCH64_R_STR (TLSDESC), /* name */
1370 FALSE, /* partial_inplace */
1371 0, /* src_mask */
1372 ALL_ONES, /* dst_mask */
1373 FALSE), /* pcrel_offset */
1374
1375 HOWTO (AARCH64_R (IRELATIVE), /* type */
1376 0, /* rightshift */
1377 2, /* size (0 = byte, 1 = short, 2 = long) */
1378 64, /* bitsize */
1379 FALSE, /* pc_relative */
1380 0, /* bitpos */
1381 complain_overflow_bitfield, /* complain_on_overflow */
1382 bfd_elf_generic_reloc, /* special_function */
1383 AARCH64_R_STR (IRELATIVE), /* name */
1384 FALSE, /* partial_inplace */
1385 0, /* src_mask */
1386 ALL_ONES, /* dst_mask */
1387 FALSE), /* pcrel_offset */
1388
1389 EMPTY_HOWTO (0),
1390 };
1391
1392 static reloc_howto_type elfNN_aarch64_howto_none =
1393 HOWTO (R_AARCH64_NONE, /* type */
1394 0, /* rightshift */
1395 3, /* size (0 = byte, 1 = short, 2 = long) */
1396 0, /* bitsize */
1397 FALSE, /* pc_relative */
1398 0, /* bitpos */
1399 complain_overflow_dont,/* complain_on_overflow */
1400 bfd_elf_generic_reloc, /* special_function */
1401 "R_AARCH64_NONE", /* name */
1402 FALSE, /* partial_inplace */
1403 0, /* src_mask */
1404 0, /* dst_mask */
1405 FALSE); /* pcrel_offset */
1406
1407 /* Given HOWTO, return the bfd internal relocation enumerator. */
1408
1409 static bfd_reloc_code_real_type
1410 elfNN_aarch64_bfd_reloc_from_howto (reloc_howto_type *howto)
1411 {
1412 const int size
1413 = (int) ARRAY_SIZE (elfNN_aarch64_howto_table);
1414 const ptrdiff_t offset
1415 = howto - elfNN_aarch64_howto_table;
1416
1417 if (offset > 0 && offset < size - 1)
1418 return BFD_RELOC_AARCH64_RELOC_START + offset;
1419
1420 if (howto == &elfNN_aarch64_howto_none)
1421 return BFD_RELOC_AARCH64_NONE;
1422
1423 return BFD_RELOC_AARCH64_RELOC_START;
1424 }
1425
1426 /* Given R_TYPE, return the bfd internal relocation enumerator. */
1427
1428 static bfd_reloc_code_real_type
1429 elfNN_aarch64_bfd_reloc_from_type (unsigned int r_type)
1430 {
1431 static bfd_boolean initialized_p = FALSE;
1432 /* Indexed by R_TYPE, values are offsets in the howto_table. */
1433 static unsigned int offsets[R_AARCH64_end];
1434
1435 if (initialized_p == FALSE)
1436 {
1437 unsigned int i;
1438
1439 for (i = 1; i < ARRAY_SIZE (elfNN_aarch64_howto_table) - 1; ++i)
1440 if (elfNN_aarch64_howto_table[i].type != 0)
1441 offsets[elfNN_aarch64_howto_table[i].type] = i;
1442
1443 initialized_p = TRUE;
1444 }
1445
1446 if (r_type == R_AARCH64_NONE || r_type == R_AARCH64_NULL)
1447 return BFD_RELOC_AARCH64_NONE;
1448
1449 /* PR 17512: file: b371e70a. */
1450 if (r_type >= R_AARCH64_end)
1451 {
1452 _bfd_error_handler (_("Invalid AArch64 reloc number: %d"), r_type);
1453 bfd_set_error (bfd_error_bad_value);
1454 return BFD_RELOC_AARCH64_NONE;
1455 }
1456
1457 return BFD_RELOC_AARCH64_RELOC_START + offsets[r_type];
1458 }
1459
1460 struct elf_aarch64_reloc_map
1461 {
1462 bfd_reloc_code_real_type from;
1463 bfd_reloc_code_real_type to;
1464 };
1465
1466 /* Map bfd generic reloc to AArch64-specific reloc. */
1467 static const struct elf_aarch64_reloc_map elf_aarch64_reloc_map[] =
1468 {
1469 {BFD_RELOC_NONE, BFD_RELOC_AARCH64_NONE},
1470
1471 /* Basic data relocations. */
1472 {BFD_RELOC_CTOR, BFD_RELOC_AARCH64_NN},
1473 {BFD_RELOC_64, BFD_RELOC_AARCH64_64},
1474 {BFD_RELOC_32, BFD_RELOC_AARCH64_32},
1475 {BFD_RELOC_16, BFD_RELOC_AARCH64_16},
1476 {BFD_RELOC_64_PCREL, BFD_RELOC_AARCH64_64_PCREL},
1477 {BFD_RELOC_32_PCREL, BFD_RELOC_AARCH64_32_PCREL},
1478 {BFD_RELOC_16_PCREL, BFD_RELOC_AARCH64_16_PCREL},
1479 };
1480
1481 /* Given the bfd internal relocation enumerator in CODE, return the
1482 corresponding howto entry. */
1483
1484 static reloc_howto_type *
1485 elfNN_aarch64_howto_from_bfd_reloc (bfd_reloc_code_real_type code)
1486 {
1487 unsigned int i;
1488
1489 /* Convert bfd generic reloc to AArch64-specific reloc. */
1490 if (code < BFD_RELOC_AARCH64_RELOC_START
1491 || code > BFD_RELOC_AARCH64_RELOC_END)
1492 for (i = 0; i < ARRAY_SIZE (elf_aarch64_reloc_map); i++)
1493 if (elf_aarch64_reloc_map[i].from == code)
1494 {
1495 code = elf_aarch64_reloc_map[i].to;
1496 break;
1497 }
1498
1499 if (code > BFD_RELOC_AARCH64_RELOC_START
1500 && code < BFD_RELOC_AARCH64_RELOC_END)
1501 if (elfNN_aarch64_howto_table[code - BFD_RELOC_AARCH64_RELOC_START].type)
1502 return &elfNN_aarch64_howto_table[code - BFD_RELOC_AARCH64_RELOC_START];
1503
1504 if (code == BFD_RELOC_AARCH64_NONE)
1505 return &elfNN_aarch64_howto_none;
1506
1507 return NULL;
1508 }
1509
1510 static reloc_howto_type *
1511 elfNN_aarch64_howto_from_type (unsigned int r_type)
1512 {
1513 bfd_reloc_code_real_type val;
1514 reloc_howto_type *howto;
1515
1516 #if ARCH_SIZE == 32
1517 if (r_type > 256)
1518 {
1519 bfd_set_error (bfd_error_bad_value);
1520 return NULL;
1521 }
1522 #endif
1523
1524 if (r_type == R_AARCH64_NONE)
1525 return &elfNN_aarch64_howto_none;
1526
1527 val = elfNN_aarch64_bfd_reloc_from_type (r_type);
1528 howto = elfNN_aarch64_howto_from_bfd_reloc (val);
1529
1530 if (howto != NULL)
1531 return howto;
1532
1533 bfd_set_error (bfd_error_bad_value);
1534 return NULL;
1535 }
1536
1537 static void
1538 elfNN_aarch64_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED, arelent *bfd_reloc,
1539 Elf_Internal_Rela *elf_reloc)
1540 {
1541 unsigned int r_type;
1542
1543 r_type = ELFNN_R_TYPE (elf_reloc->r_info);
1544 bfd_reloc->howto = elfNN_aarch64_howto_from_type (r_type);
1545 }
1546
1547 static reloc_howto_type *
1548 elfNN_aarch64_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1549 bfd_reloc_code_real_type code)
1550 {
1551 reloc_howto_type *howto = elfNN_aarch64_howto_from_bfd_reloc (code);
1552
1553 if (howto != NULL)
1554 return howto;
1555
1556 bfd_set_error (bfd_error_bad_value);
1557 return NULL;
1558 }
1559
1560 static reloc_howto_type *
1561 elfNN_aarch64_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1562 const char *r_name)
1563 {
1564 unsigned int i;
1565
1566 for (i = 1; i < ARRAY_SIZE (elfNN_aarch64_howto_table) - 1; ++i)
1567 if (elfNN_aarch64_howto_table[i].name != NULL
1568 && strcasecmp (elfNN_aarch64_howto_table[i].name, r_name) == 0)
1569 return &elfNN_aarch64_howto_table[i];
1570
1571 return NULL;
1572 }
1573
1574 #define TARGET_LITTLE_SYM aarch64_elfNN_le_vec
1575 #define TARGET_LITTLE_NAME "elfNN-littleaarch64"
1576 #define TARGET_BIG_SYM aarch64_elfNN_be_vec
1577 #define TARGET_BIG_NAME "elfNN-bigaarch64"
1578
1579 /* The linker script knows the section names for placement.
1580 The entry_names are used to do simple name mangling on the stubs.
1581 Given a function name, and its type, the stub can be found. The
1582 name can be changed. The only requirement is the %s be present. */
1583 #define STUB_ENTRY_NAME "__%s_veneer"
1584
1585 /* The name of the dynamic interpreter. This is put in the .interp
1586 section. */
1587 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
1588
1589 #define AARCH64_MAX_FWD_BRANCH_OFFSET \
1590 (((1 << 25) - 1) << 2)
1591 #define AARCH64_MAX_BWD_BRANCH_OFFSET \
1592 (-((1 << 25) << 2))
1593
1594 #define AARCH64_MAX_ADRP_IMM ((1 << 20) - 1)
1595 #define AARCH64_MIN_ADRP_IMM (-(1 << 20))
1596
1597 static int
1598 aarch64_valid_for_adrp_p (bfd_vma value, bfd_vma place)
1599 {
1600 bfd_signed_vma offset = (bfd_signed_vma) (PG (value) - PG (place)) >> 12;
1601 return offset <= AARCH64_MAX_ADRP_IMM && offset >= AARCH64_MIN_ADRP_IMM;
1602 }
1603
1604 static int
1605 aarch64_valid_branch_p (bfd_vma value, bfd_vma place)
1606 {
1607 bfd_signed_vma offset = (bfd_signed_vma) (value - place);
1608 return (offset <= AARCH64_MAX_FWD_BRANCH_OFFSET
1609 && offset >= AARCH64_MAX_BWD_BRANCH_OFFSET);
1610 }
1611
1612 static const uint32_t aarch64_adrp_branch_stub [] =
1613 {
1614 0x90000010, /* adrp ip0, X */
1615 /* R_AARCH64_ADR_HI21_PCREL(X) */
1616 0x91000210, /* add ip0, ip0, :lo12:X */
1617 /* R_AARCH64_ADD_ABS_LO12_NC(X) */
1618 0xd61f0200, /* br ip0 */
1619 };
1620
1621 static const uint32_t aarch64_long_branch_stub[] =
1622 {
1623 #if ARCH_SIZE == 64
1624 0x58000090, /* ldr ip0, 1f */
1625 #else
1626 0x18000090, /* ldr wip0, 1f */
1627 #endif
1628 0x10000011, /* adr ip1, #0 */
1629 0x8b110210, /* add ip0, ip0, ip1 */
1630 0xd61f0200, /* br ip0 */
1631 0x00000000, /* 1: .xword or .word
1632 R_AARCH64_PRELNN(X) + 12
1633 */
1634 0x00000000,
1635 };
1636
1637 static const uint32_t aarch64_erratum_835769_stub[] =
1638 {
1639 0x00000000, /* Placeholder for multiply accumulate. */
1640 0x14000000, /* b <label> */
1641 };
1642
1643 /* Section name for stubs is the associated section name plus this
1644 string. */
1645 #define STUB_SUFFIX ".stub"
1646
1647 enum elf_aarch64_stub_type
1648 {
1649 aarch64_stub_none,
1650 aarch64_stub_adrp_branch,
1651 aarch64_stub_long_branch,
1652 aarch64_stub_erratum_835769_veneer,
1653 };
1654
1655 struct elf_aarch64_stub_hash_entry
1656 {
1657 /* Base hash table entry structure. */
1658 struct bfd_hash_entry root;
1659
1660 /* The stub section. */
1661 asection *stub_sec;
1662
1663 /* Offset within stub_sec of the beginning of this stub. */
1664 bfd_vma stub_offset;
1665
1666 /* Given the symbol's value and its section we can determine its final
1667 value when building the stubs (so the stub knows where to jump). */
1668 bfd_vma target_value;
1669 asection *target_section;
1670
1671 enum elf_aarch64_stub_type stub_type;
1672
1673 /* The symbol table entry, if any, that this was derived from. */
1674 struct elf_aarch64_link_hash_entry *h;
1675
1676 /* Destination symbol type */
1677 unsigned char st_type;
1678
1679 /* Where this stub is being called from, or, in the case of combined
1680 stub sections, the first input section in the group. */
1681 asection *id_sec;
1682
1683 /* The name for the local symbol at the start of this stub. The
1684 stub name in the hash table has to be unique; this does not, so
1685 it can be friendlier. */
1686 char *output_name;
1687
1688 /* The instruction which caused this stub to be generated (only valid for
1689 erratum 835769 workaround stubs at present). */
1690 uint32_t veneered_insn;
1691 };
1692
1693 /* Used to build a map of a section. This is required for mixed-endian
1694 code/data. */
1695
1696 typedef struct elf_elf_section_map
1697 {
1698 bfd_vma vma;
1699 char type;
1700 }
1701 elf_aarch64_section_map;
1702
1703
1704 typedef struct _aarch64_elf_section_data
1705 {
1706 struct bfd_elf_section_data elf;
1707 unsigned int mapcount;
1708 unsigned int mapsize;
1709 elf_aarch64_section_map *map;
1710 }
1711 _aarch64_elf_section_data;
1712
1713 #define elf_aarch64_section_data(sec) \
1714 ((_aarch64_elf_section_data *) elf_section_data (sec))
1715
1716 /* A fix-descriptor for erratum 835769. */
1717 struct aarch64_erratum_835769_fix
1718 {
1719 bfd *input_bfd;
1720 asection *section;
1721 bfd_vma offset;
1722 uint32_t veneered_insn;
1723 char *stub_name;
1724 enum elf_aarch64_stub_type stub_type;
1725 };
1726
1727 /* The size of the thread control block which is defined to be two pointers. */
1728 #define TCB_SIZE (ARCH_SIZE/8)*2
1729
1730 struct elf_aarch64_local_symbol
1731 {
1732 unsigned int got_type;
1733 bfd_signed_vma got_refcount;
1734 bfd_vma got_offset;
1735
1736 /* Offset of the GOTPLT entry reserved for the TLS descriptor. The
1737 offset is from the end of the jump table and reserved entries
1738 within the PLTGOT.
1739
1740 The magic value (bfd_vma) -1 indicates that an offset has not be
1741 allocated. */
1742 bfd_vma tlsdesc_got_jump_table_offset;
1743 };
1744
1745 struct elf_aarch64_obj_tdata
1746 {
1747 struct elf_obj_tdata root;
1748
1749 /* local symbol descriptors */
1750 struct elf_aarch64_local_symbol *locals;
1751
1752 /* Zero to warn when linking objects with incompatible enum sizes. */
1753 int no_enum_size_warning;
1754
1755 /* Zero to warn when linking objects with incompatible wchar_t sizes. */
1756 int no_wchar_size_warning;
1757 };
1758
1759 #define elf_aarch64_tdata(bfd) \
1760 ((struct elf_aarch64_obj_tdata *) (bfd)->tdata.any)
1761
1762 #define elf_aarch64_locals(bfd) (elf_aarch64_tdata (bfd)->locals)
1763
1764 #define is_aarch64_elf(bfd) \
1765 (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
1766 && elf_tdata (bfd) != NULL \
1767 && elf_object_id (bfd) == AARCH64_ELF_DATA)
1768
1769 static bfd_boolean
1770 elfNN_aarch64_mkobject (bfd *abfd)
1771 {
1772 return bfd_elf_allocate_object (abfd, sizeof (struct elf_aarch64_obj_tdata),
1773 AARCH64_ELF_DATA);
1774 }
1775
1776 #define elf_aarch64_hash_entry(ent) \
1777 ((struct elf_aarch64_link_hash_entry *)(ent))
1778
1779 #define GOT_UNKNOWN 0
1780 #define GOT_NORMAL 1
1781 #define GOT_TLS_GD 2
1782 #define GOT_TLS_IE 4
1783 #define GOT_TLSDESC_GD 8
1784
1785 #define GOT_TLS_GD_ANY_P(type) ((type & GOT_TLS_GD) || (type & GOT_TLSDESC_GD))
1786
1787 /* AArch64 ELF linker hash entry. */
1788 struct elf_aarch64_link_hash_entry
1789 {
1790 struct elf_link_hash_entry root;
1791
1792 /* Track dynamic relocs copied for this symbol. */
1793 struct elf_dyn_relocs *dyn_relocs;
1794
1795 /* Since PLT entries have variable size, we need to record the
1796 index into .got.plt instead of recomputing it from the PLT
1797 offset. */
1798 bfd_signed_vma plt_got_offset;
1799
1800 /* Bit mask representing the type of GOT entry(s) if any required by
1801 this symbol. */
1802 unsigned int got_type;
1803
1804 /* A pointer to the most recently used stub hash entry against this
1805 symbol. */
1806 struct elf_aarch64_stub_hash_entry *stub_cache;
1807
1808 /* Offset of the GOTPLT entry reserved for the TLS descriptor. The offset
1809 is from the end of the jump table and reserved entries within the PLTGOT.
1810
1811 The magic value (bfd_vma) -1 indicates that an offset has not
1812 be allocated. */
1813 bfd_vma tlsdesc_got_jump_table_offset;
1814 };
1815
1816 static unsigned int
1817 elfNN_aarch64_symbol_got_type (struct elf_link_hash_entry *h,
1818 bfd *abfd,
1819 unsigned long r_symndx)
1820 {
1821 if (h)
1822 return elf_aarch64_hash_entry (h)->got_type;
1823
1824 if (! elf_aarch64_locals (abfd))
1825 return GOT_UNKNOWN;
1826
1827 return elf_aarch64_locals (abfd)[r_symndx].got_type;
1828 }
1829
1830 /* Get the AArch64 elf linker hash table from a link_info structure. */
1831 #define elf_aarch64_hash_table(info) \
1832 ((struct elf_aarch64_link_hash_table *) ((info)->hash))
1833
1834 #define aarch64_stub_hash_lookup(table, string, create, copy) \
1835 ((struct elf_aarch64_stub_hash_entry *) \
1836 bfd_hash_lookup ((table), (string), (create), (copy)))
1837
1838 /* AArch64 ELF linker hash table. */
1839 struct elf_aarch64_link_hash_table
1840 {
1841 /* The main hash table. */
1842 struct elf_link_hash_table root;
1843
1844 /* Nonzero to force PIC branch veneers. */
1845 int pic_veneer;
1846
1847 /* Fix erratum 835769. */
1848 int fix_erratum_835769;
1849
1850 /* The number of bytes in the initial entry in the PLT. */
1851 bfd_size_type plt_header_size;
1852
1853 /* The number of bytes in the subsequent PLT etries. */
1854 bfd_size_type plt_entry_size;
1855
1856 /* Short-cuts to get to dynamic linker sections. */
1857 asection *sdynbss;
1858 asection *srelbss;
1859
1860 /* Small local sym cache. */
1861 struct sym_cache sym_cache;
1862
1863 /* For convenience in allocate_dynrelocs. */
1864 bfd *obfd;
1865
1866 /* The amount of space used by the reserved portion of the sgotplt
1867 section, plus whatever space is used by the jump slots. */
1868 bfd_vma sgotplt_jump_table_size;
1869
1870 /* The stub hash table. */
1871 struct bfd_hash_table stub_hash_table;
1872
1873 /* Linker stub bfd. */
1874 bfd *stub_bfd;
1875
1876 /* Linker call-backs. */
1877 asection *(*add_stub_section) (const char *, asection *);
1878 void (*layout_sections_again) (void);
1879
1880 /* Array to keep track of which stub sections have been created, and
1881 information on stub grouping. */
1882 struct map_stub
1883 {
1884 /* This is the section to which stubs in the group will be
1885 attached. */
1886 asection *link_sec;
1887 /* The stub section. */
1888 asection *stub_sec;
1889 } *stub_group;
1890
1891 /* Assorted information used by elfNN_aarch64_size_stubs. */
1892 unsigned int bfd_count;
1893 int top_index;
1894 asection **input_list;
1895
1896 /* The offset into splt of the PLT entry for the TLS descriptor
1897 resolver. Special values are 0, if not necessary (or not found
1898 to be necessary yet), and -1 if needed but not determined
1899 yet. */
1900 bfd_vma tlsdesc_plt;
1901
1902 /* The GOT offset for the lazy trampoline. Communicated to the
1903 loader via DT_TLSDESC_GOT. The magic value (bfd_vma) -1
1904 indicates an offset is not allocated. */
1905 bfd_vma dt_tlsdesc_got;
1906
1907 /* Used by local STT_GNU_IFUNC symbols. */
1908 htab_t loc_hash_table;
1909 void * loc_hash_memory;
1910 };
1911
1912 /* Create an entry in an AArch64 ELF linker hash table. */
1913
1914 static struct bfd_hash_entry *
1915 elfNN_aarch64_link_hash_newfunc (struct bfd_hash_entry *entry,
1916 struct bfd_hash_table *table,
1917 const char *string)
1918 {
1919 struct elf_aarch64_link_hash_entry *ret =
1920 (struct elf_aarch64_link_hash_entry *) entry;
1921
1922 /* Allocate the structure if it has not already been allocated by a
1923 subclass. */
1924 if (ret == NULL)
1925 ret = bfd_hash_allocate (table,
1926 sizeof (struct elf_aarch64_link_hash_entry));
1927 if (ret == NULL)
1928 return (struct bfd_hash_entry *) ret;
1929
1930 /* Call the allocation method of the superclass. */
1931 ret = ((struct elf_aarch64_link_hash_entry *)
1932 _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
1933 table, string));
1934 if (ret != NULL)
1935 {
1936 ret->dyn_relocs = NULL;
1937 ret->got_type = GOT_UNKNOWN;
1938 ret->plt_got_offset = (bfd_vma) - 1;
1939 ret->stub_cache = NULL;
1940 ret->tlsdesc_got_jump_table_offset = (bfd_vma) - 1;
1941 }
1942
1943 return (struct bfd_hash_entry *) ret;
1944 }
1945
1946 /* Initialize an entry in the stub hash table. */
1947
1948 static struct bfd_hash_entry *
1949 stub_hash_newfunc (struct bfd_hash_entry *entry,
1950 struct bfd_hash_table *table, const char *string)
1951 {
1952 /* Allocate the structure if it has not already been allocated by a
1953 subclass. */
1954 if (entry == NULL)
1955 {
1956 entry = bfd_hash_allocate (table,
1957 sizeof (struct
1958 elf_aarch64_stub_hash_entry));
1959 if (entry == NULL)
1960 return entry;
1961 }
1962
1963 /* Call the allocation method of the superclass. */
1964 entry = bfd_hash_newfunc (entry, table, string);
1965 if (entry != NULL)
1966 {
1967 struct elf_aarch64_stub_hash_entry *eh;
1968
1969 /* Initialize the local fields. */
1970 eh = (struct elf_aarch64_stub_hash_entry *) entry;
1971 eh->stub_sec = NULL;
1972 eh->stub_offset = 0;
1973 eh->target_value = 0;
1974 eh->target_section = NULL;
1975 eh->stub_type = aarch64_stub_none;
1976 eh->h = NULL;
1977 eh->id_sec = NULL;
1978 }
1979
1980 return entry;
1981 }
1982
1983 /* Compute a hash of a local hash entry. We use elf_link_hash_entry
1984 for local symbol so that we can handle local STT_GNU_IFUNC symbols
1985 as global symbol. We reuse indx and dynstr_index for local symbol
1986 hash since they aren't used by global symbols in this backend. */
1987
1988 static hashval_t
1989 elfNN_aarch64_local_htab_hash (const void *ptr)
1990 {
1991 struct elf_link_hash_entry *h
1992 = (struct elf_link_hash_entry *) ptr;
1993 return ELF_LOCAL_SYMBOL_HASH (h->indx, h->dynstr_index);
1994 }
1995
1996 /* Compare local hash entries. */
1997
1998 static int
1999 elfNN_aarch64_local_htab_eq (const void *ptr1, const void *ptr2)
2000 {
2001 struct elf_link_hash_entry *h1
2002 = (struct elf_link_hash_entry *) ptr1;
2003 struct elf_link_hash_entry *h2
2004 = (struct elf_link_hash_entry *) ptr2;
2005
2006 return h1->indx == h2->indx && h1->dynstr_index == h2->dynstr_index;
2007 }
2008
2009 /* Find and/or create a hash entry for local symbol. */
2010
2011 static struct elf_link_hash_entry *
2012 elfNN_aarch64_get_local_sym_hash (struct elf_aarch64_link_hash_table *htab,
2013 bfd *abfd, const Elf_Internal_Rela *rel,
2014 bfd_boolean create)
2015 {
2016 struct elf_aarch64_link_hash_entry e, *ret;
2017 asection *sec = abfd->sections;
2018 hashval_t h = ELF_LOCAL_SYMBOL_HASH (sec->id,
2019 ELFNN_R_SYM (rel->r_info));
2020 void **slot;
2021
2022 e.root.indx = sec->id;
2023 e.root.dynstr_index = ELFNN_R_SYM (rel->r_info);
2024 slot = htab_find_slot_with_hash (htab->loc_hash_table, &e, h,
2025 create ? INSERT : NO_INSERT);
2026
2027 if (!slot)
2028 return NULL;
2029
2030 if (*slot)
2031 {
2032 ret = (struct elf_aarch64_link_hash_entry *) *slot;
2033 return &ret->root;
2034 }
2035
2036 ret = (struct elf_aarch64_link_hash_entry *)
2037 objalloc_alloc ((struct objalloc *) htab->loc_hash_memory,
2038 sizeof (struct elf_aarch64_link_hash_entry));
2039 if (ret)
2040 {
2041 memset (ret, 0, sizeof (*ret));
2042 ret->root.indx = sec->id;
2043 ret->root.dynstr_index = ELFNN_R_SYM (rel->r_info);
2044 ret->root.dynindx = -1;
2045 *slot = ret;
2046 }
2047 return &ret->root;
2048 }
2049
2050 /* Copy the extra info we tack onto an elf_link_hash_entry. */
2051
2052 static void
2053 elfNN_aarch64_copy_indirect_symbol (struct bfd_link_info *info,
2054 struct elf_link_hash_entry *dir,
2055 struct elf_link_hash_entry *ind)
2056 {
2057 struct elf_aarch64_link_hash_entry *edir, *eind;
2058
2059 edir = (struct elf_aarch64_link_hash_entry *) dir;
2060 eind = (struct elf_aarch64_link_hash_entry *) ind;
2061
2062 if (eind->dyn_relocs != NULL)
2063 {
2064 if (edir->dyn_relocs != NULL)
2065 {
2066 struct elf_dyn_relocs **pp;
2067 struct elf_dyn_relocs *p;
2068
2069 /* Add reloc counts against the indirect sym to the direct sym
2070 list. Merge any entries against the same section. */
2071 for (pp = &eind->dyn_relocs; (p = *pp) != NULL;)
2072 {
2073 struct elf_dyn_relocs *q;
2074
2075 for (q = edir->dyn_relocs; q != NULL; q = q->next)
2076 if (q->sec == p->sec)
2077 {
2078 q->pc_count += p->pc_count;
2079 q->count += p->count;
2080 *pp = p->next;
2081 break;
2082 }
2083 if (q == NULL)
2084 pp = &p->next;
2085 }
2086 *pp = edir->dyn_relocs;
2087 }
2088
2089 edir->dyn_relocs = eind->dyn_relocs;
2090 eind->dyn_relocs = NULL;
2091 }
2092
2093 if (ind->root.type == bfd_link_hash_indirect)
2094 {
2095 /* Copy over PLT info. */
2096 if (dir->got.refcount <= 0)
2097 {
2098 edir->got_type = eind->got_type;
2099 eind->got_type = GOT_UNKNOWN;
2100 }
2101 }
2102
2103 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2104 }
2105
2106 /* Destroy an AArch64 elf linker hash table. */
2107
2108 static void
2109 elfNN_aarch64_link_hash_table_free (bfd *obfd)
2110 {
2111 struct elf_aarch64_link_hash_table *ret
2112 = (struct elf_aarch64_link_hash_table *) obfd->link.hash;
2113
2114 if (ret->loc_hash_table)
2115 htab_delete (ret->loc_hash_table);
2116 if (ret->loc_hash_memory)
2117 objalloc_free ((struct objalloc *) ret->loc_hash_memory);
2118
2119 bfd_hash_table_free (&ret->stub_hash_table);
2120 _bfd_elf_link_hash_table_free (obfd);
2121 }
2122
2123 /* Create an AArch64 elf linker hash table. */
2124
2125 static struct bfd_link_hash_table *
2126 elfNN_aarch64_link_hash_table_create (bfd *abfd)
2127 {
2128 struct elf_aarch64_link_hash_table *ret;
2129 bfd_size_type amt = sizeof (struct elf_aarch64_link_hash_table);
2130
2131 ret = bfd_zmalloc (amt);
2132 if (ret == NULL)
2133 return NULL;
2134
2135 if (!_bfd_elf_link_hash_table_init
2136 (&ret->root, abfd, elfNN_aarch64_link_hash_newfunc,
2137 sizeof (struct elf_aarch64_link_hash_entry), AARCH64_ELF_DATA))
2138 {
2139 free (ret);
2140 return NULL;
2141 }
2142
2143 ret->plt_header_size = PLT_ENTRY_SIZE;
2144 ret->plt_entry_size = PLT_SMALL_ENTRY_SIZE;
2145 ret->obfd = abfd;
2146 ret->dt_tlsdesc_got = (bfd_vma) - 1;
2147
2148 if (!bfd_hash_table_init (&ret->stub_hash_table, stub_hash_newfunc,
2149 sizeof (struct elf_aarch64_stub_hash_entry)))
2150 {
2151 _bfd_elf_link_hash_table_free (abfd);
2152 return NULL;
2153 }
2154
2155 ret->loc_hash_table = htab_try_create (1024,
2156 elfNN_aarch64_local_htab_hash,
2157 elfNN_aarch64_local_htab_eq,
2158 NULL);
2159 ret->loc_hash_memory = objalloc_create ();
2160 if (!ret->loc_hash_table || !ret->loc_hash_memory)
2161 {
2162 elfNN_aarch64_link_hash_table_free (abfd);
2163 return NULL;
2164 }
2165 ret->root.root.hash_table_free = elfNN_aarch64_link_hash_table_free;
2166
2167 return &ret->root.root;
2168 }
2169
2170 static bfd_boolean
2171 aarch64_relocate (unsigned int r_type, bfd *input_bfd, asection *input_section,
2172 bfd_vma offset, bfd_vma value)
2173 {
2174 reloc_howto_type *howto;
2175 bfd_vma place;
2176
2177 howto = elfNN_aarch64_howto_from_type (r_type);
2178 place = (input_section->output_section->vma + input_section->output_offset
2179 + offset);
2180
2181 r_type = elfNN_aarch64_bfd_reloc_from_type (r_type);
2182 value = _bfd_aarch64_elf_resolve_relocation (r_type, place, value, 0, FALSE);
2183 return _bfd_aarch64_elf_put_addend (input_bfd,
2184 input_section->contents + offset, r_type,
2185 howto, value);
2186 }
2187
2188 static enum elf_aarch64_stub_type
2189 aarch64_select_branch_stub (bfd_vma value, bfd_vma place)
2190 {
2191 if (aarch64_valid_for_adrp_p (value, place))
2192 return aarch64_stub_adrp_branch;
2193 return aarch64_stub_long_branch;
2194 }
2195
2196 /* Determine the type of stub needed, if any, for a call. */
2197
2198 static enum elf_aarch64_stub_type
2199 aarch64_type_of_stub (struct bfd_link_info *info,
2200 asection *input_sec,
2201 const Elf_Internal_Rela *rel,
2202 unsigned char st_type,
2203 struct elf_aarch64_link_hash_entry *hash,
2204 bfd_vma destination)
2205 {
2206 bfd_vma location;
2207 bfd_signed_vma branch_offset;
2208 unsigned int r_type;
2209 struct elf_aarch64_link_hash_table *globals;
2210 enum elf_aarch64_stub_type stub_type = aarch64_stub_none;
2211 bfd_boolean via_plt_p;
2212
2213 if (st_type != STT_FUNC)
2214 return stub_type;
2215
2216 globals = elf_aarch64_hash_table (info);
2217 via_plt_p = (globals->root.splt != NULL && hash != NULL
2218 && hash->root.plt.offset != (bfd_vma) - 1);
2219
2220 if (via_plt_p)
2221 return stub_type;
2222
2223 /* Determine where the call point is. */
2224 location = (input_sec->output_offset
2225 + input_sec->output_section->vma + rel->r_offset);
2226
2227 branch_offset = (bfd_signed_vma) (destination - location);
2228
2229 r_type = ELFNN_R_TYPE (rel->r_info);
2230
2231 /* We don't want to redirect any old unconditional jump in this way,
2232 only one which is being used for a sibcall, where it is
2233 acceptable for the IP0 and IP1 registers to be clobbered. */
2234 if ((r_type == AARCH64_R (CALL26) || r_type == AARCH64_R (JUMP26))
2235 && (branch_offset > AARCH64_MAX_FWD_BRANCH_OFFSET
2236 || branch_offset < AARCH64_MAX_BWD_BRANCH_OFFSET))
2237 {
2238 stub_type = aarch64_stub_long_branch;
2239 }
2240
2241 return stub_type;
2242 }
2243
2244 /* Build a name for an entry in the stub hash table. */
2245
2246 static char *
2247 elfNN_aarch64_stub_name (const asection *input_section,
2248 const asection *sym_sec,
2249 const struct elf_aarch64_link_hash_entry *hash,
2250 const Elf_Internal_Rela *rel)
2251 {
2252 char *stub_name;
2253 bfd_size_type len;
2254
2255 if (hash)
2256 {
2257 len = 8 + 1 + strlen (hash->root.root.root.string) + 1 + 16 + 1;
2258 stub_name = bfd_malloc (len);
2259 if (stub_name != NULL)
2260 snprintf (stub_name, len, "%08x_%s+%" BFD_VMA_FMT "x",
2261 (unsigned int) input_section->id,
2262 hash->root.root.root.string,
2263 rel->r_addend);
2264 }
2265 else
2266 {
2267 len = 8 + 1 + 8 + 1 + 8 + 1 + 16 + 1;
2268 stub_name = bfd_malloc (len);
2269 if (stub_name != NULL)
2270 snprintf (stub_name, len, "%08x_%x:%x+%" BFD_VMA_FMT "x",
2271 (unsigned int) input_section->id,
2272 (unsigned int) sym_sec->id,
2273 (unsigned int) ELFNN_R_SYM (rel->r_info),
2274 rel->r_addend);
2275 }
2276
2277 return stub_name;
2278 }
2279
2280 /* Look up an entry in the stub hash. Stub entries are cached because
2281 creating the stub name takes a bit of time. */
2282
2283 static struct elf_aarch64_stub_hash_entry *
2284 elfNN_aarch64_get_stub_entry (const asection *input_section,
2285 const asection *sym_sec,
2286 struct elf_link_hash_entry *hash,
2287 const Elf_Internal_Rela *rel,
2288 struct elf_aarch64_link_hash_table *htab)
2289 {
2290 struct elf_aarch64_stub_hash_entry *stub_entry;
2291 struct elf_aarch64_link_hash_entry *h =
2292 (struct elf_aarch64_link_hash_entry *) hash;
2293 const asection *id_sec;
2294
2295 if ((input_section->flags & SEC_CODE) == 0)
2296 return NULL;
2297
2298 /* If this input section is part of a group of sections sharing one
2299 stub section, then use the id of the first section in the group.
2300 Stub names need to include a section id, as there may well be
2301 more than one stub used to reach say, printf, and we need to
2302 distinguish between them. */
2303 id_sec = htab->stub_group[input_section->id].link_sec;
2304
2305 if (h != NULL && h->stub_cache != NULL
2306 && h->stub_cache->h == h && h->stub_cache->id_sec == id_sec)
2307 {
2308 stub_entry = h->stub_cache;
2309 }
2310 else
2311 {
2312 char *stub_name;
2313
2314 stub_name = elfNN_aarch64_stub_name (id_sec, sym_sec, h, rel);
2315 if (stub_name == NULL)
2316 return NULL;
2317
2318 stub_entry = aarch64_stub_hash_lookup (&htab->stub_hash_table,
2319 stub_name, FALSE, FALSE);
2320 if (h != NULL)
2321 h->stub_cache = stub_entry;
2322
2323 free (stub_name);
2324 }
2325
2326 return stub_entry;
2327 }
2328
2329
2330 /* Create a stub section. */
2331
2332 static asection *
2333 _bfd_aarch64_create_stub_section (asection *section,
2334 struct elf_aarch64_link_hash_table *htab)
2335 {
2336 size_t namelen;
2337 bfd_size_type len;
2338 char *s_name;
2339
2340 namelen = strlen (section->name);
2341 len = namelen + sizeof (STUB_SUFFIX);
2342 s_name = bfd_alloc (htab->stub_bfd, len);
2343 if (s_name == NULL)
2344 return NULL;
2345
2346 memcpy (s_name, section->name, namelen);
2347 memcpy (s_name + namelen, STUB_SUFFIX, sizeof (STUB_SUFFIX));
2348 return (*htab->add_stub_section) (s_name, section);
2349 }
2350
2351
2352 /* Find or create a stub section in the stub group for an input
2353 section. */
2354
2355 static asection *
2356 _bfd_aarch64_create_or_find_stub_sec (asection *section,
2357 struct elf_aarch64_link_hash_table *htab)
2358 {
2359 asection *link_sec;
2360 asection *stub_sec;
2361
2362 link_sec = htab->stub_group[section->id].link_sec;
2363 BFD_ASSERT (link_sec != NULL);
2364 stub_sec = htab->stub_group[section->id].stub_sec;
2365
2366 if (stub_sec == NULL)
2367 {
2368 stub_sec = htab->stub_group[link_sec->id].stub_sec;
2369 if (stub_sec == NULL)
2370 {
2371 stub_sec = _bfd_aarch64_create_stub_section (link_sec, htab)
2372 if (stub_sec == NULL)
2373 return NULL;
2374 htab->stub_group[link_sec->id].stub_sec = stub_sec;
2375 }
2376 htab->stub_group[section->id].stub_sec = stub_sec;
2377 }
2378
2379 return stub_sec;
2380 }
2381
2382
2383 /* Add a new stub entry in the stub group associated with an input
2384 section to the stub hash. Not all fields of the new stub entry are
2385 initialised. */
2386
2387 static struct elf_aarch64_stub_hash_entry *
2388 _bfd_aarch64_add_stub_entry_in_group (const char *stub_name,
2389 asection *section,
2390 struct elf_aarch64_link_hash_table *htab)
2391 {
2392 asection *link_sec;
2393 asection *stub_sec;
2394 struct elf_aarch64_stub_hash_entry *stub_entry;
2395
2396 link_sec = htab->stub_group[section->id].link_sec;
2397 stub_sec = _bfd_aarch64_create_or_find_stub_sec (section, htab);
2398
2399 /* Enter this entry into the linker stub hash table. */
2400 stub_entry = aarch64_stub_hash_lookup (&htab->stub_hash_table, stub_name,
2401 TRUE, FALSE);
2402 if (stub_entry == NULL)
2403 {
2404 (*_bfd_error_handler) (_("%s: cannot create stub entry %s"),
2405 section->owner, stub_name);
2406 return NULL;
2407 }
2408
2409 stub_entry->stub_sec = stub_sec;
2410 stub_entry->stub_offset = 0;
2411 stub_entry->id_sec = link_sec;
2412
2413 return stub_entry;
2414 }
2415
2416 static bfd_boolean
2417 aarch64_build_one_stub (struct bfd_hash_entry *gen_entry,
2418 void *in_arg ATTRIBUTE_UNUSED)
2419 {
2420 struct elf_aarch64_stub_hash_entry *stub_entry;
2421 asection *stub_sec;
2422 bfd *stub_bfd;
2423 bfd_byte *loc;
2424 bfd_vma sym_value;
2425 bfd_vma veneered_insn_loc;
2426 bfd_vma veneer_entry_loc;
2427 bfd_signed_vma branch_offset = 0;
2428 unsigned int template_size;
2429 const uint32_t *template;
2430 unsigned int i;
2431
2432 /* Massage our args to the form they really have. */
2433 stub_entry = (struct elf_aarch64_stub_hash_entry *) gen_entry;
2434
2435 stub_sec = stub_entry->stub_sec;
2436
2437 /* Make a note of the offset within the stubs for this entry. */
2438 stub_entry->stub_offset = stub_sec->size;
2439 loc = stub_sec->contents + stub_entry->stub_offset;
2440
2441 stub_bfd = stub_sec->owner;
2442
2443 /* This is the address of the stub destination. */
2444 sym_value = (stub_entry->target_value
2445 + stub_entry->target_section->output_offset
2446 + stub_entry->target_section->output_section->vma);
2447
2448 if (stub_entry->stub_type == aarch64_stub_long_branch)
2449 {
2450 bfd_vma place = (stub_entry->stub_offset + stub_sec->output_section->vma
2451 + stub_sec->output_offset);
2452
2453 /* See if we can relax the stub. */
2454 if (aarch64_valid_for_adrp_p (sym_value, place))
2455 stub_entry->stub_type = aarch64_select_branch_stub (sym_value, place);
2456 }
2457
2458 switch (stub_entry->stub_type)
2459 {
2460 case aarch64_stub_adrp_branch:
2461 template = aarch64_adrp_branch_stub;
2462 template_size = sizeof (aarch64_adrp_branch_stub);
2463 break;
2464 case aarch64_stub_long_branch:
2465 template = aarch64_long_branch_stub;
2466 template_size = sizeof (aarch64_long_branch_stub);
2467 break;
2468 case aarch64_stub_erratum_835769_veneer:
2469 template = aarch64_erratum_835769_stub;
2470 template_size = sizeof (aarch64_erratum_835769_stub);
2471 break;
2472 default:
2473 abort ();
2474 }
2475
2476 for (i = 0; i < (template_size / sizeof template[0]); i++)
2477 {
2478 bfd_putl32 (template[i], loc);
2479 loc += 4;
2480 }
2481
2482 template_size = (template_size + 7) & ~7;
2483 stub_sec->size += template_size;
2484
2485 switch (stub_entry->stub_type)
2486 {
2487 case aarch64_stub_adrp_branch:
2488 if (aarch64_relocate (AARCH64_R (ADR_PREL_PG_HI21), stub_bfd, stub_sec,
2489 stub_entry->stub_offset, sym_value))
2490 /* The stub would not have been relaxed if the offset was out
2491 of range. */
2492 BFD_FAIL ();
2493
2494 _bfd_final_link_relocate
2495 (elfNN_aarch64_howto_from_type (AARCH64_R (ADD_ABS_LO12_NC)),
2496 stub_bfd,
2497 stub_sec,
2498 stub_sec->contents,
2499 stub_entry->stub_offset + 4,
2500 sym_value,
2501 0);
2502 break;
2503
2504 case aarch64_stub_long_branch:
2505 /* We want the value relative to the address 12 bytes back from the
2506 value itself. */
2507 _bfd_final_link_relocate (elfNN_aarch64_howto_from_type
2508 (AARCH64_R (PRELNN)), stub_bfd, stub_sec,
2509 stub_sec->contents,
2510 stub_entry->stub_offset + 16,
2511 sym_value + 12, 0);
2512 break;
2513
2514 case aarch64_stub_erratum_835769_veneer:
2515 veneered_insn_loc = stub_entry->target_section->output_section->vma
2516 + stub_entry->target_section->output_offset
2517 + stub_entry->target_value;
2518 veneer_entry_loc = stub_entry->stub_sec->output_section->vma
2519 + stub_entry->stub_sec->output_offset
2520 + stub_entry->stub_offset;
2521 branch_offset = veneered_insn_loc - veneer_entry_loc;
2522 branch_offset >>= 2;
2523 branch_offset &= 0x3ffffff;
2524 bfd_putl32 (stub_entry->veneered_insn,
2525 stub_sec->contents + stub_entry->stub_offset);
2526 bfd_putl32 (template[1] | branch_offset,
2527 stub_sec->contents + stub_entry->stub_offset + 4);
2528 break;
2529
2530 default:
2531 abort ();
2532 }
2533
2534 return TRUE;
2535 }
2536
2537 /* As above, but don't actually build the stub. Just bump offset so
2538 we know stub section sizes. */
2539
2540 static bfd_boolean
2541 aarch64_size_one_stub (struct bfd_hash_entry *gen_entry,
2542 void *in_arg ATTRIBUTE_UNUSED)
2543 {
2544 struct elf_aarch64_stub_hash_entry *stub_entry;
2545 int size;
2546
2547 /* Massage our args to the form they really have. */
2548 stub_entry = (struct elf_aarch64_stub_hash_entry *) gen_entry;
2549
2550 switch (stub_entry->stub_type)
2551 {
2552 case aarch64_stub_adrp_branch:
2553 size = sizeof (aarch64_adrp_branch_stub);
2554 break;
2555 case aarch64_stub_long_branch:
2556 size = sizeof (aarch64_long_branch_stub);
2557 break;
2558 case aarch64_stub_erratum_835769_veneer:
2559 size = sizeof (aarch64_erratum_835769_stub);
2560 break;
2561 default:
2562 abort ();
2563 }
2564
2565 size = (size + 7) & ~7;
2566 stub_entry->stub_sec->size += size;
2567 return TRUE;
2568 }
2569
2570 /* External entry points for sizing and building linker stubs. */
2571
2572 /* Set up various things so that we can make a list of input sections
2573 for each output section included in the link. Returns -1 on error,
2574 0 when no stubs will be needed, and 1 on success. */
2575
2576 int
2577 elfNN_aarch64_setup_section_lists (bfd *output_bfd,
2578 struct bfd_link_info *info)
2579 {
2580 bfd *input_bfd;
2581 unsigned int bfd_count;
2582 int top_id, top_index;
2583 asection *section;
2584 asection **input_list, **list;
2585 bfd_size_type amt;
2586 struct elf_aarch64_link_hash_table *htab =
2587 elf_aarch64_hash_table (info);
2588
2589 if (!is_elf_hash_table (htab))
2590 return 0;
2591
2592 /* Count the number of input BFDs and find the top input section id. */
2593 for (input_bfd = info->input_bfds, bfd_count = 0, top_id = 0;
2594 input_bfd != NULL; input_bfd = input_bfd->link.next)
2595 {
2596 bfd_count += 1;
2597 for (section = input_bfd->sections;
2598 section != NULL; section = section->next)
2599 {
2600 if (top_id < section->id)
2601 top_id = section->id;
2602 }
2603 }
2604 htab->bfd_count = bfd_count;
2605
2606 amt = sizeof (struct map_stub) * (top_id + 1);
2607 htab->stub_group = bfd_zmalloc (amt);
2608 if (htab->stub_group == NULL)
2609 return -1;
2610
2611 /* We can't use output_bfd->section_count here to find the top output
2612 section index as some sections may have been removed, and
2613 _bfd_strip_section_from_output doesn't renumber the indices. */
2614 for (section = output_bfd->sections, top_index = 0;
2615 section != NULL; section = section->next)
2616 {
2617 if (top_index < section->index)
2618 top_index = section->index;
2619 }
2620
2621 htab->top_index = top_index;
2622 amt = sizeof (asection *) * (top_index + 1);
2623 input_list = bfd_malloc (amt);
2624 htab->input_list = input_list;
2625 if (input_list == NULL)
2626 return -1;
2627
2628 /* For sections we aren't interested in, mark their entries with a
2629 value we can check later. */
2630 list = input_list + top_index;
2631 do
2632 *list = bfd_abs_section_ptr;
2633 while (list-- != input_list);
2634
2635 for (section = output_bfd->sections;
2636 section != NULL; section = section->next)
2637 {
2638 if ((section->flags & SEC_CODE) != 0)
2639 input_list[section->index] = NULL;
2640 }
2641
2642 return 1;
2643 }
2644
2645 /* Used by elfNN_aarch64_next_input_section and group_sections. */
2646 #define PREV_SEC(sec) (htab->stub_group[(sec)->id].link_sec)
2647
2648 /* The linker repeatedly calls this function for each input section,
2649 in the order that input sections are linked into output sections.
2650 Build lists of input sections to determine groupings between which
2651 we may insert linker stubs. */
2652
2653 void
2654 elfNN_aarch64_next_input_section (struct bfd_link_info *info, asection *isec)
2655 {
2656 struct elf_aarch64_link_hash_table *htab =
2657 elf_aarch64_hash_table (info);
2658
2659 if (isec->output_section->index <= htab->top_index)
2660 {
2661 asection **list = htab->input_list + isec->output_section->index;
2662
2663 if (*list != bfd_abs_section_ptr)
2664 {
2665 /* Steal the link_sec pointer for our list. */
2666 /* This happens to make the list in reverse order,
2667 which is what we want. */
2668 PREV_SEC (isec) = *list;
2669 *list = isec;
2670 }
2671 }
2672 }
2673
2674 /* See whether we can group stub sections together. Grouping stub
2675 sections may result in fewer stubs. More importantly, we need to
2676 put all .init* and .fini* stubs at the beginning of the .init or
2677 .fini output sections respectively, because glibc splits the
2678 _init and _fini functions into multiple parts. Putting a stub in
2679 the middle of a function is not a good idea. */
2680
2681 static void
2682 group_sections (struct elf_aarch64_link_hash_table *htab,
2683 bfd_size_type stub_group_size,
2684 bfd_boolean stubs_always_before_branch)
2685 {
2686 asection **list = htab->input_list + htab->top_index;
2687
2688 do
2689 {
2690 asection *tail = *list;
2691
2692 if (tail == bfd_abs_section_ptr)
2693 continue;
2694
2695 while (tail != NULL)
2696 {
2697 asection *curr;
2698 asection *prev;
2699 bfd_size_type total;
2700
2701 curr = tail;
2702 total = tail->size;
2703 while ((prev = PREV_SEC (curr)) != NULL
2704 && ((total += curr->output_offset - prev->output_offset)
2705 < stub_group_size))
2706 curr = prev;
2707
2708 /* OK, the size from the start of CURR to the end is less
2709 than stub_group_size and thus can be handled by one stub
2710 section. (Or the tail section is itself larger than
2711 stub_group_size, in which case we may be toast.)
2712 We should really be keeping track of the total size of
2713 stubs added here, as stubs contribute to the final output
2714 section size. */
2715 do
2716 {
2717 prev = PREV_SEC (tail);
2718 /* Set up this stub group. */
2719 htab->stub_group[tail->id].link_sec = curr;
2720 }
2721 while (tail != curr && (tail = prev) != NULL);
2722
2723 /* But wait, there's more! Input sections up to stub_group_size
2724 bytes before the stub section can be handled by it too. */
2725 if (!stubs_always_before_branch)
2726 {
2727 total = 0;
2728 while (prev != NULL
2729 && ((total += tail->output_offset - prev->output_offset)
2730 < stub_group_size))
2731 {
2732 tail = prev;
2733 prev = PREV_SEC (tail);
2734 htab->stub_group[tail->id].link_sec = curr;
2735 }
2736 }
2737 tail = prev;
2738 }
2739 }
2740 while (list-- != htab->input_list);
2741
2742 free (htab->input_list);
2743 }
2744
2745 #undef PREV_SEC
2746
2747 #define AARCH64_BITS(x, pos, n) (((x) >> (pos)) & ((1 << (n)) - 1))
2748
2749 #define AARCH64_RT(insn) AARCH64_BITS (insn, 0, 5)
2750 #define AARCH64_RT2(insn) AARCH64_BITS (insn, 10, 5)
2751 #define AARCH64_RA(insn) AARCH64_BITS (insn, 10, 5)
2752 #define AARCH64_RD(insn) AARCH64_BITS (insn, 0, 5)
2753 #define AARCH64_RN(insn) AARCH64_BITS (insn, 5, 5)
2754 #define AARCH64_RM(insn) AARCH64_BITS (insn, 16, 5)
2755
2756 #define AARCH64_MAC(insn) (((insn) & 0xff000000) == 0x9b000000)
2757 #define AARCH64_BIT(insn, n) AARCH64_BITS (insn, n, 1)
2758 #define AARCH64_OP31(insn) AARCH64_BITS (insn, 21, 3)
2759 #define AARCH64_ZR 0x1f
2760
2761 /* All ld/st ops. See C4-182 of the ARM ARM. The encoding space for
2762 LD_PCREL, LDST_RO, LDST_UI and LDST_UIMM cover prefetch ops. */
2763
2764 #define AARCH64_LD(insn) (AARCH64_BIT (insn, 22) == 1)
2765 #define AARCH64_LDST(insn) (((insn) & 0x0a000000) == 0x08000000)
2766 #define AARCH64_LDST_EX(insn) (((insn) & 0x3f000000) == 0x08000000)
2767 #define AARCH64_LDST_PCREL(insn) (((insn) & 0x3b000000) == 0x18000000)
2768 #define AARCH64_LDST_NAP(insn) (((insn) & 0x3b800000) == 0x28000000)
2769 #define AARCH64_LDSTP_PI(insn) (((insn) & 0x3b800000) == 0x28800000)
2770 #define AARCH64_LDSTP_O(insn) (((insn) & 0x3b800000) == 0x29000000)
2771 #define AARCH64_LDSTP_PRE(insn) (((insn) & 0x3b800000) == 0x29800000)
2772 #define AARCH64_LDST_UI(insn) (((insn) & 0x3b200c00) == 0x38000000)
2773 #define AARCH64_LDST_PIIMM(insn) (((insn) & 0x3b200c00) == 0x38000400)
2774 #define AARCH64_LDST_U(insn) (((insn) & 0x3b200c00) == 0x38000800)
2775 #define AARCH64_LDST_PREIMM(insn) (((insn) & 0x3b200c00) == 0x38000c00)
2776 #define AARCH64_LDST_RO(insn) (((insn) & 0x3b200c00) == 0x38200800)
2777 #define AARCH64_LDST_UIMM(insn) (((insn) & 0x3b000000) == 0x39000000)
2778 #define AARCH64_LDST_SIMD_M(insn) (((insn) & 0xbfbf0000) == 0x0c000000)
2779 #define AARCH64_LDST_SIMD_M_PI(insn) (((insn) & 0xbfa00000) == 0x0c800000)
2780 #define AARCH64_LDST_SIMD_S(insn) (((insn) & 0xbf9f0000) == 0x0d000000)
2781 #define AARCH64_LDST_SIMD_S_PI(insn) (((insn) & 0xbf800000) == 0x0d800000)
2782
2783 /* Classify an INSN if it is indeed a load/store.
2784
2785 Return TRUE if INSN is a LD/ST instruction otherwise return FALSE.
2786
2787 For scalar LD/ST instructions PAIR is FALSE, RT is returned and RT2
2788 is set equal to RT.
2789
2790 For LD/ST pair instructions PAIR is TRUE, RT and RT2 are returned.
2791
2792 */
2793
2794 static bfd_boolean
2795 aarch64_mem_op_p (uint32_t insn, unsigned int *rt, unsigned int *rt2,
2796 bfd_boolean *pair, bfd_boolean *load)
2797 {
2798 uint32_t opcode;
2799 unsigned int r;
2800 uint32_t opc = 0;
2801 uint32_t v = 0;
2802 uint32_t opc_v = 0;
2803
2804 /* Bail out quickly if INSN doesn't fall into the the load-store
2805 encoding space. */
2806 if (!AARCH64_LDST (insn))
2807 return FALSE;
2808
2809 *pair = FALSE;
2810 *load = FALSE;
2811 if (AARCH64_LDST_EX (insn))
2812 {
2813 *rt = AARCH64_RT (insn);
2814 *rt2 = *rt;
2815 if (AARCH64_BIT (insn, 21) == 1)
2816 {
2817 *pair = TRUE;
2818 *rt2 = AARCH64_RT2 (insn);
2819 }
2820 *load = AARCH64_LD (insn);
2821 return TRUE;
2822 }
2823 else if (AARCH64_LDST_NAP (insn)
2824 || AARCH64_LDSTP_PI (insn)
2825 || AARCH64_LDSTP_O (insn)
2826 || AARCH64_LDSTP_PRE (insn))
2827 {
2828 *pair = TRUE;
2829 *rt = AARCH64_RT (insn);
2830 *rt2 = AARCH64_RT2 (insn);
2831 *load = AARCH64_LD (insn);
2832 return TRUE;
2833 }
2834 else if (AARCH64_LDST_PCREL (insn)
2835 || AARCH64_LDST_UI (insn)
2836 || AARCH64_LDST_PIIMM (insn)
2837 || AARCH64_LDST_U (insn)
2838 || AARCH64_LDST_PREIMM (insn)
2839 || AARCH64_LDST_RO (insn)
2840 || AARCH64_LDST_UIMM (insn))
2841 {
2842 *rt = AARCH64_RT (insn);
2843 *rt2 = *rt;
2844 if (AARCH64_LDST_PCREL (insn))
2845 *load = TRUE;
2846 opc = AARCH64_BITS (insn, 22, 2);
2847 v = AARCH64_BIT (insn, 26);
2848 opc_v = opc | (v << 2);
2849 *load = (opc_v == 1 || opc_v == 2 || opc_v == 3
2850 || opc_v == 5 || opc_v == 7);
2851 return TRUE;
2852 }
2853 else if (AARCH64_LDST_SIMD_M (insn)
2854 || AARCH64_LDST_SIMD_M_PI (insn))
2855 {
2856 *rt = AARCH64_RT (insn);
2857 *load = AARCH64_BIT (insn, 22);
2858 opcode = (insn >> 12) & 0xf;
2859 switch (opcode)
2860 {
2861 case 0:
2862 case 2:
2863 *rt2 = *rt + 3;
2864 break;
2865
2866 case 4:
2867 case 6:
2868 *rt2 = *rt + 2;
2869 break;
2870
2871 case 7:
2872 *rt2 = *rt;
2873 break;
2874
2875 case 8:
2876 case 10:
2877 *rt2 = *rt + 1;
2878 break;
2879
2880 default:
2881 return FALSE;
2882 }
2883 return TRUE;
2884 }
2885 else if (AARCH64_LDST_SIMD_S (insn)
2886 || AARCH64_LDST_SIMD_S_PI (insn))
2887 {
2888 *rt = AARCH64_RT (insn);
2889 r = (insn >> 21) & 1;
2890 *load = AARCH64_BIT (insn, 22);
2891 opcode = (insn >> 13) & 0x7;
2892 switch (opcode)
2893 {
2894 case 0:
2895 case 2:
2896 case 4:
2897 *rt2 = *rt + r;
2898 break;
2899
2900 case 1:
2901 case 3:
2902 case 5:
2903 *rt2 = *rt + (r == 0 ? 2 : 3);
2904 break;
2905
2906 case 6:
2907 *rt2 = *rt + r;
2908 break;
2909
2910 case 7:
2911 *rt2 = *rt + (r == 0 ? 2 : 3);
2912 break;
2913
2914 default:
2915 return FALSE;
2916 }
2917 return TRUE;
2918 }
2919
2920 return FALSE;
2921 }
2922
2923 /* Return TRUE if INSN is multiply-accumulate. */
2924
2925 static bfd_boolean
2926 aarch64_mlxl_p (uint32_t insn)
2927 {
2928 uint32_t op31 = AARCH64_OP31 (insn);
2929
2930 if (AARCH64_MAC (insn)
2931 && (op31 == 0 || op31 == 1 || op31 == 5)
2932 /* Exclude MUL instructions which are encoded as a multiple accumulate
2933 with RA = XZR. */
2934 && AARCH64_RA (insn) != AARCH64_ZR)
2935 return TRUE;
2936
2937 return FALSE;
2938 }
2939
2940 /* Some early revisions of the Cortex-A53 have an erratum (835769) whereby
2941 it is possible for a 64-bit multiply-accumulate instruction to generate an
2942 incorrect result. The details are quite complex and hard to
2943 determine statically, since branches in the code may exist in some
2944 circumstances, but all cases end with a memory (load, store, or
2945 prefetch) instruction followed immediately by the multiply-accumulate
2946 operation. We employ a linker patching technique, by moving the potentially
2947 affected multiply-accumulate instruction into a patch region and replacing
2948 the original instruction with a branch to the patch. This function checks
2949 if INSN_1 is the memory operation followed by a multiply-accumulate
2950 operation (INSN_2). Return TRUE if an erratum sequence is found, FALSE
2951 if INSN_1 and INSN_2 are safe. */
2952
2953 static bfd_boolean
2954 aarch64_erratum_sequence (uint32_t insn_1, uint32_t insn_2)
2955 {
2956 uint32_t rt;
2957 uint32_t rt2;
2958 uint32_t rn;
2959 uint32_t rm;
2960 uint32_t ra;
2961 bfd_boolean pair;
2962 bfd_boolean load;
2963
2964 if (aarch64_mlxl_p (insn_2)
2965 && aarch64_mem_op_p (insn_1, &rt, &rt2, &pair, &load))
2966 {
2967 /* Any SIMD memory op is independent of the subsequent MLA
2968 by definition of the erratum. */
2969 if (AARCH64_BIT (insn_1, 26))
2970 return TRUE;
2971
2972 /* If not SIMD, check for integer memory ops and MLA relationship. */
2973 rn = AARCH64_RN (insn_2);
2974 ra = AARCH64_RA (insn_2);
2975 rm = AARCH64_RM (insn_2);
2976
2977 /* If this is a load and there's a true(RAW) dependency, we are safe
2978 and this is not an erratum sequence. */
2979 if (load &&
2980 (rt == rn || rt == rm || rt == ra
2981 || (pair && (rt2 == rn || rt2 == rm || rt2 == ra))))
2982 return FALSE;
2983
2984 /* We conservatively put out stubs for all other cases (including
2985 writebacks). */
2986 return TRUE;
2987 }
2988
2989 return FALSE;
2990 }
2991
2992 /* Used to order a list of mapping symbols by address. */
2993
2994 static int
2995 elf_aarch64_compare_mapping (const void *a, const void *b)
2996 {
2997 const elf_aarch64_section_map *amap = (const elf_aarch64_section_map *) a;
2998 const elf_aarch64_section_map *bmap = (const elf_aarch64_section_map *) b;
2999
3000 if (amap->vma > bmap->vma)
3001 return 1;
3002 else if (amap->vma < bmap->vma)
3003 return -1;
3004 else if (amap->type > bmap->type)
3005 /* Ensure results do not depend on the host qsort for objects with
3006 multiple mapping symbols at the same address by sorting on type
3007 after vma. */
3008 return 1;
3009 else if (amap->type < bmap->type)
3010 return -1;
3011 else
3012 return 0;
3013 }
3014
3015
3016 /* Scan for cortex-a53 erratum 835769 sequence.
3017
3018 Return TRUE else FALSE on abnormal termination. */
3019
3020 static bfd_boolean
3021 erratum_835769_scan (bfd *input_bfd,
3022 struct bfd_link_info *info,
3023 struct aarch64_erratum_835769_fix **fixes_p,
3024 unsigned int *num_fixes_p,
3025 unsigned int *fix_table_size_p)
3026 {
3027 asection *section;
3028 struct elf_aarch64_link_hash_table *htab = elf_aarch64_hash_table (info);
3029 struct aarch64_erratum_835769_fix *fixes = *fixes_p;
3030 unsigned int num_fixes = *num_fixes_p;
3031 unsigned int fix_table_size = *fix_table_size_p;
3032
3033 if (htab == NULL)
3034 return TRUE;
3035
3036 for (section = input_bfd->sections;
3037 section != NULL;
3038 section = section->next)
3039 {
3040 bfd_byte *contents = NULL;
3041 struct _aarch64_elf_section_data *sec_data;
3042 unsigned int span;
3043
3044 if (elf_section_type (section) != SHT_PROGBITS
3045 || (elf_section_flags (section) & SHF_EXECINSTR) == 0
3046 || (section->flags & SEC_EXCLUDE) != 0
3047 || (section->sec_info_type == SEC_INFO_TYPE_JUST_SYMS)
3048 || (section->output_section == bfd_abs_section_ptr))
3049 continue;
3050
3051 if (elf_section_data (section)->this_hdr.contents != NULL)
3052 contents = elf_section_data (section)->this_hdr.contents;
3053 else if (! bfd_malloc_and_get_section (input_bfd, section, &contents))
3054 return FALSE;
3055
3056 sec_data = elf_aarch64_section_data (section);
3057
3058 qsort (sec_data->map, sec_data->mapcount,
3059 sizeof (elf_aarch64_section_map), elf_aarch64_compare_mapping);
3060
3061 for (span = 0; span < sec_data->mapcount; span++)
3062 {
3063 unsigned int span_start = sec_data->map[span].vma;
3064 unsigned int span_end = ((span == sec_data->mapcount - 1)
3065 ? sec_data->map[0].vma + section->size
3066 : sec_data->map[span + 1].vma);
3067 unsigned int i;
3068 char span_type = sec_data->map[span].type;
3069
3070 if (span_type == 'd')
3071 continue;
3072
3073 for (i = span_start; i + 4 < span_end; i += 4)
3074 {
3075 uint32_t insn_1 = bfd_getl32 (contents + i);
3076 uint32_t insn_2 = bfd_getl32 (contents + i + 4);
3077
3078 if (aarch64_erratum_sequence (insn_1, insn_2))
3079 {
3080 char *stub_name = NULL;
3081 stub_name = (char *) bfd_malloc
3082 (strlen ("__erratum_835769_veneer_") + 16);
3083 if (stub_name != NULL)
3084 sprintf
3085 (stub_name,"__erratum_835769_veneer_%d", num_fixes);
3086 else
3087 return FALSE;
3088
3089 if (num_fixes == fix_table_size)
3090 {
3091 fix_table_size *= 2;
3092 fixes =
3093 (struct aarch64_erratum_835769_fix *)
3094 bfd_realloc (fixes,
3095 sizeof (struct aarch64_erratum_835769_fix)
3096 * fix_table_size);
3097 if (fixes == NULL)
3098 return FALSE;
3099 }
3100
3101 fixes[num_fixes].input_bfd = input_bfd;
3102 fixes[num_fixes].section = section;
3103 fixes[num_fixes].offset = i + 4;
3104 fixes[num_fixes].veneered_insn = insn_2;
3105 fixes[num_fixes].stub_name = stub_name;
3106 fixes[num_fixes].stub_type = aarch64_stub_erratum_835769_veneer;
3107 num_fixes++;
3108 }
3109 }
3110 }
3111 if (elf_section_data (section)->this_hdr.contents == NULL)
3112 free (contents);
3113 }
3114
3115 *fixes_p = fixes;
3116 *num_fixes_p = num_fixes;
3117 *fix_table_size_p = fix_table_size;
3118 return TRUE;
3119 }
3120
3121 /* Determine and set the size of the stub section for a final link.
3122
3123 The basic idea here is to examine all the relocations looking for
3124 PC-relative calls to a target that is unreachable with a "bl"
3125 instruction. */
3126
3127 bfd_boolean
3128 elfNN_aarch64_size_stubs (bfd *output_bfd,
3129 bfd *stub_bfd,
3130 struct bfd_link_info *info,
3131 bfd_signed_vma group_size,
3132 asection * (*add_stub_section) (const char *,
3133 asection *),
3134 void (*layout_sections_again) (void))
3135 {
3136 bfd_size_type stub_group_size;
3137 bfd_boolean stubs_always_before_branch;
3138 bfd_boolean stub_changed = 0;
3139 struct elf_aarch64_link_hash_table *htab = elf_aarch64_hash_table (info);
3140 struct aarch64_erratum_835769_fix *erratum_835769_fixes = NULL;
3141 unsigned int num_erratum_835769_fixes = 0;
3142 unsigned int erratum_835769_fix_table_size = 10;
3143 unsigned int i;
3144
3145 if (htab->fix_erratum_835769)
3146 {
3147 erratum_835769_fixes
3148 = (struct aarch64_erratum_835769_fix *)
3149 bfd_zmalloc
3150 (sizeof (struct aarch64_erratum_835769_fix) *
3151 erratum_835769_fix_table_size);
3152 if (erratum_835769_fixes == NULL)
3153 goto error_ret_free_local;
3154 }
3155
3156 /* Propagate mach to stub bfd, because it may not have been
3157 finalized when we created stub_bfd. */
3158 bfd_set_arch_mach (stub_bfd, bfd_get_arch (output_bfd),
3159 bfd_get_mach (output_bfd));
3160
3161 /* Stash our params away. */
3162 htab->stub_bfd = stub_bfd;
3163 htab->add_stub_section = add_stub_section;
3164 htab->layout_sections_again = layout_sections_again;
3165 stubs_always_before_branch = group_size < 0;
3166 if (group_size < 0)
3167 stub_group_size = -group_size;
3168 else
3169 stub_group_size = group_size;
3170
3171 if (stub_group_size == 1)
3172 {
3173 /* Default values. */
3174 /* AArch64 branch range is +-128MB. The value used is 1MB less. */
3175 stub_group_size = 127 * 1024 * 1024;
3176 }
3177
3178 group_sections (htab, stub_group_size, stubs_always_before_branch);
3179
3180 while (1)
3181 {
3182 bfd *input_bfd;
3183 asection *stub_sec;
3184 unsigned prev_num_erratum_835769_fixes = num_erratum_835769_fixes;
3185
3186 num_erratum_835769_fixes = 0;
3187 for (input_bfd = info->input_bfds;
3188 input_bfd != NULL; input_bfd = input_bfd->link.next)
3189 {
3190 Elf_Internal_Shdr *symtab_hdr;
3191 asection *section;
3192 Elf_Internal_Sym *local_syms = NULL;
3193
3194 /* We'll need the symbol table in a second. */
3195 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3196 if (symtab_hdr->sh_info == 0)
3197 continue;
3198
3199 /* Walk over each section attached to the input bfd. */
3200 for (section = input_bfd->sections;
3201 section != NULL; section = section->next)
3202 {
3203 Elf_Internal_Rela *internal_relocs, *irelaend, *irela;
3204
3205 /* If there aren't any relocs, then there's nothing more
3206 to do. */
3207 if ((section->flags & SEC_RELOC) == 0
3208 || section->reloc_count == 0
3209 || (section->flags & SEC_CODE) == 0)
3210 continue;
3211
3212 /* If this section is a link-once section that will be
3213 discarded, then don't create any stubs. */
3214 if (section->output_section == NULL
3215 || section->output_section->owner != output_bfd)
3216 continue;
3217
3218 /* Get the relocs. */
3219 internal_relocs
3220 = _bfd_elf_link_read_relocs (input_bfd, section, NULL,
3221 NULL, info->keep_memory);
3222 if (internal_relocs == NULL)
3223 goto error_ret_free_local;
3224
3225 /* Now examine each relocation. */
3226 irela = internal_relocs;
3227 irelaend = irela + section->reloc_count;
3228 for (; irela < irelaend; irela++)
3229 {
3230 unsigned int r_type, r_indx;
3231 enum elf_aarch64_stub_type stub_type;
3232 struct elf_aarch64_stub_hash_entry *stub_entry;
3233 asection *sym_sec;
3234 bfd_vma sym_value;
3235 bfd_vma destination;
3236 struct elf_aarch64_link_hash_entry *hash;
3237 const char *sym_name;
3238 char *stub_name;
3239 const asection *id_sec;
3240 unsigned char st_type;
3241 bfd_size_type len;
3242
3243 r_type = ELFNN_R_TYPE (irela->r_info);
3244 r_indx = ELFNN_R_SYM (irela->r_info);
3245
3246 if (r_type >= (unsigned int) R_AARCH64_end)
3247 {
3248 bfd_set_error (bfd_error_bad_value);
3249 error_ret_free_internal:
3250 if (elf_section_data (section)->relocs == NULL)
3251 free (internal_relocs);
3252 goto error_ret_free_local;
3253 }
3254
3255 /* Only look for stubs on unconditional branch and
3256 branch and link instructions. */
3257 if (r_type != (unsigned int) AARCH64_R (CALL26)
3258 && r_type != (unsigned int) AARCH64_R (JUMP26))
3259 continue;
3260
3261 /* Now determine the call target, its name, value,
3262 section. */
3263 sym_sec = NULL;
3264 sym_value = 0;
3265 destination = 0;
3266 hash = NULL;
3267 sym_name = NULL;
3268 if (r_indx < symtab_hdr->sh_info)
3269 {
3270 /* It's a local symbol. */
3271 Elf_Internal_Sym *sym;
3272 Elf_Internal_Shdr *hdr;
3273
3274 if (local_syms == NULL)
3275 {
3276 local_syms
3277 = (Elf_Internal_Sym *) symtab_hdr->contents;
3278 if (local_syms == NULL)
3279 local_syms
3280 = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
3281 symtab_hdr->sh_info, 0,
3282 NULL, NULL, NULL);
3283 if (local_syms == NULL)
3284 goto error_ret_free_internal;
3285 }
3286
3287 sym = local_syms + r_indx;
3288 hdr = elf_elfsections (input_bfd)[sym->st_shndx];
3289 sym_sec = hdr->bfd_section;
3290 if (!sym_sec)
3291 /* This is an undefined symbol. It can never
3292 be resolved. */
3293 continue;
3294
3295 if (ELF_ST_TYPE (sym->st_info) != STT_SECTION)
3296 sym_value = sym->st_value;
3297 destination = (sym_value + irela->r_addend
3298 + sym_sec->output_offset
3299 + sym_sec->output_section->vma);
3300 st_type = ELF_ST_TYPE (sym->st_info);
3301 sym_name
3302 = bfd_elf_string_from_elf_section (input_bfd,
3303 symtab_hdr->sh_link,
3304 sym->st_name);
3305 }
3306 else
3307 {
3308 int e_indx;
3309
3310 e_indx = r_indx - symtab_hdr->sh_info;
3311 hash = ((struct elf_aarch64_link_hash_entry *)
3312 elf_sym_hashes (input_bfd)[e_indx]);
3313
3314 while (hash->root.root.type == bfd_link_hash_indirect
3315 || hash->root.root.type == bfd_link_hash_warning)
3316 hash = ((struct elf_aarch64_link_hash_entry *)
3317 hash->root.root.u.i.link);
3318
3319 if (hash->root.root.type == bfd_link_hash_defined
3320 || hash->root.root.type == bfd_link_hash_defweak)
3321 {
3322 struct elf_aarch64_link_hash_table *globals =
3323 elf_aarch64_hash_table (info);
3324 sym_sec = hash->root.root.u.def.section;
3325 sym_value = hash->root.root.u.def.value;
3326 /* For a destination in a shared library,
3327 use the PLT stub as target address to
3328 decide whether a branch stub is
3329 needed. */
3330 if (globals->root.splt != NULL && hash != NULL
3331 && hash->root.plt.offset != (bfd_vma) - 1)
3332 {
3333 sym_sec = globals->root.splt;
3334 sym_value = hash->root.plt.offset;
3335 if (sym_sec->output_section != NULL)
3336 destination = (sym_value
3337 + sym_sec->output_offset
3338 +
3339 sym_sec->output_section->vma);
3340 }
3341 else if (sym_sec->output_section != NULL)
3342 destination = (sym_value + irela->r_addend
3343 + sym_sec->output_offset
3344 + sym_sec->output_section->vma);
3345 }
3346 else if (hash->root.root.type == bfd_link_hash_undefined
3347 || (hash->root.root.type
3348 == bfd_link_hash_undefweak))
3349 {
3350 /* For a shared library, use the PLT stub as
3351 target address to decide whether a long
3352 branch stub is needed.
3353 For absolute code, they cannot be handled. */
3354 struct elf_aarch64_link_hash_table *globals =
3355 elf_aarch64_hash_table (info);
3356
3357 if (globals->root.splt != NULL && hash != NULL
3358 && hash->root.plt.offset != (bfd_vma) - 1)
3359 {
3360 sym_sec = globals->root.splt;
3361 sym_value = hash->root.plt.offset;
3362 if (sym_sec->output_section != NULL)
3363 destination = (sym_value
3364 + sym_sec->output_offset
3365 +
3366 sym_sec->output_section->vma);
3367 }
3368 else
3369 continue;
3370 }
3371 else
3372 {
3373 bfd_set_error (bfd_error_bad_value);
3374 goto error_ret_free_internal;
3375 }
3376 st_type = ELF_ST_TYPE (hash->root.type);
3377 sym_name = hash->root.root.root.string;
3378 }
3379
3380 /* Determine what (if any) linker stub is needed. */
3381 stub_type = aarch64_type_of_stub
3382 (info, section, irela, st_type, hash, destination);
3383 if (stub_type == aarch64_stub_none)
3384 continue;
3385
3386 /* Support for grouping stub sections. */
3387 id_sec = htab->stub_group[section->id].link_sec;
3388
3389 /* Get the name of this stub. */
3390 stub_name = elfNN_aarch64_stub_name (id_sec, sym_sec, hash,
3391 irela);
3392 if (!stub_name)
3393 goto error_ret_free_internal;
3394
3395 stub_entry =
3396 aarch64_stub_hash_lookup (&htab->stub_hash_table,
3397 stub_name, FALSE, FALSE);
3398 if (stub_entry != NULL)
3399 {
3400 /* The proper stub has already been created. */
3401 free (stub_name);
3402 continue;
3403 }
3404
3405 stub_entry = _bfd_aarch64_add_stub_entry_in_group
3406 (stub_name, section, htab);
3407 if (stub_entry == NULL)
3408 {
3409 free (stub_name);
3410 goto error_ret_free_internal;
3411 }
3412
3413 stub_entry->target_value = sym_value;
3414 stub_entry->target_section = sym_sec;
3415 stub_entry->stub_type = stub_type;
3416 stub_entry->h = hash;
3417 stub_entry->st_type = st_type;
3418
3419 if (sym_name == NULL)
3420 sym_name = "unnamed";
3421 len = sizeof (STUB_ENTRY_NAME) + strlen (sym_name);
3422 stub_entry->output_name = bfd_alloc (htab->stub_bfd, len);
3423 if (stub_entry->output_name == NULL)
3424 {
3425 free (stub_name);
3426 goto error_ret_free_internal;
3427 }
3428
3429 snprintf (stub_entry->output_name, len, STUB_ENTRY_NAME,
3430 sym_name);
3431
3432 stub_changed = TRUE;
3433 }
3434
3435 /* We're done with the internal relocs, free them. */
3436 if (elf_section_data (section)->relocs == NULL)
3437 free (internal_relocs);
3438 }
3439
3440 if (htab->fix_erratum_835769)
3441 {
3442 /* Scan for sequences which might trigger erratum 835769. */
3443 if (!erratum_835769_scan (input_bfd, info, &erratum_835769_fixes,
3444 &num_erratum_835769_fixes,
3445 &erratum_835769_fix_table_size))
3446 goto error_ret_free_local;
3447 }
3448 }
3449
3450 if (prev_num_erratum_835769_fixes != num_erratum_835769_fixes)
3451 stub_changed = TRUE;
3452
3453 if (!stub_changed)
3454 break;
3455
3456 /* OK, we've added some stubs. Find out the new size of the
3457 stub sections. */
3458 for (stub_sec = htab->stub_bfd->sections;
3459 stub_sec != NULL; stub_sec = stub_sec->next)
3460 {
3461 /* Ignore non-stub sections. */
3462 if (!strstr (stub_sec->name, STUB_SUFFIX))
3463 continue;
3464 stub_sec->size = 0;
3465 }
3466
3467 bfd_hash_traverse (&htab->stub_hash_table, aarch64_size_one_stub, htab);
3468
3469 /* Add erratum 835769 veneers to stub section sizes too. */
3470 if (htab->fix_erratum_835769)
3471 for (i = 0; i < num_erratum_835769_fixes; i++)
3472 {
3473 stub_sec = _bfd_aarch64_create_or_find_stub_sec
3474 (erratum_835769_fixes[i].section, htab);
3475
3476 if (stub_sec == NULL)
3477 goto error_ret_free_local;
3478
3479 stub_sec->size += 8;
3480 }
3481
3482 /* Ask the linker to do its stuff. */
3483 (*htab->layout_sections_again) ();
3484 stub_changed = FALSE;
3485 }
3486
3487 /* Add stubs for erratum 835769 fixes now. */
3488 if (htab->fix_erratum_835769)
3489 {
3490 for (i = 0; i < num_erratum_835769_fixes; i++)
3491 {
3492 struct elf_aarch64_stub_hash_entry *stub_entry;
3493 char *stub_name = erratum_835769_fixes[i].stub_name;
3494 asection *section = erratum_835769_fixes[i].section;
3495 unsigned int section_id = erratum_835769_fixes[i].section->id;
3496 asection *link_sec = htab->stub_group[section_id].link_sec;
3497 asection *stub_sec = htab->stub_group[section_id].stub_sec;
3498
3499 stub_entry = aarch64_stub_hash_lookup (&htab->stub_hash_table,
3500 stub_name, TRUE, FALSE);
3501 if (stub_entry == NULL)
3502 {
3503 (*_bfd_error_handler) (_("%s: cannot create stub entry %s"),
3504 section->owner,
3505 stub_name);
3506 return FALSE;
3507 }
3508
3509 stub_entry->stub_sec = stub_sec;
3510 stub_entry->stub_offset = 0;
3511 stub_entry->id_sec = link_sec;
3512 stub_entry->stub_type = erratum_835769_fixes[i].stub_type;
3513 stub_entry->target_section = section;
3514 stub_entry->target_value = erratum_835769_fixes[i].offset;
3515 stub_entry->veneered_insn = erratum_835769_fixes[i].veneered_insn;
3516 stub_entry->output_name = erratum_835769_fixes[i].stub_name;
3517 }
3518 }
3519
3520 return TRUE;
3521
3522 error_ret_free_local:
3523 return FALSE;
3524 }
3525
3526 /* Build all the stubs associated with the current output file. The
3527 stubs are kept in a hash table attached to the main linker hash
3528 table. We also set up the .plt entries for statically linked PIC
3529 functions here. This function is called via aarch64_elf_finish in the
3530 linker. */
3531
3532 bfd_boolean
3533 elfNN_aarch64_build_stubs (struct bfd_link_info *info)
3534 {
3535 asection *stub_sec;
3536 struct bfd_hash_table *table;
3537 struct elf_aarch64_link_hash_table *htab;
3538
3539 htab = elf_aarch64_hash_table (info);
3540
3541 for (stub_sec = htab->stub_bfd->sections;
3542 stub_sec != NULL; stub_sec = stub_sec->next)
3543 {
3544 bfd_size_type size;
3545
3546 /* Ignore non-stub sections. */
3547 if (!strstr (stub_sec->name, STUB_SUFFIX))
3548 continue;
3549
3550 /* Allocate memory to hold the linker stubs. */
3551 size = stub_sec->size;
3552 stub_sec->contents = bfd_zalloc (htab->stub_bfd, size);
3553 if (stub_sec->contents == NULL && size != 0)
3554 return FALSE;
3555 stub_sec->size = 0;
3556 }
3557
3558 /* Build the stubs as directed by the stub hash table. */
3559 table = &htab->stub_hash_table;
3560 bfd_hash_traverse (table, aarch64_build_one_stub, info);
3561
3562 return TRUE;
3563 }
3564
3565
3566 /* Add an entry to the code/data map for section SEC. */
3567
3568 static void
3569 elfNN_aarch64_section_map_add (asection *sec, char type, bfd_vma vma)
3570 {
3571 struct _aarch64_elf_section_data *sec_data =
3572 elf_aarch64_section_data (sec);
3573 unsigned int newidx;
3574
3575 if (sec_data->map == NULL)
3576 {
3577 sec_data->map = bfd_malloc (sizeof (elf_aarch64_section_map));
3578 sec_data->mapcount = 0;
3579 sec_data->mapsize = 1;
3580 }
3581
3582 newidx = sec_data->mapcount++;
3583
3584 if (sec_data->mapcount > sec_data->mapsize)
3585 {
3586 sec_data->mapsize *= 2;
3587 sec_data->map = bfd_realloc_or_free
3588 (sec_data->map, sec_data->mapsize * sizeof (elf_aarch64_section_map));
3589 }
3590
3591 if (sec_data->map)
3592 {
3593 sec_data->map[newidx].vma = vma;
3594 sec_data->map[newidx].type = type;
3595 }
3596 }
3597
3598
3599 /* Initialise maps of insn/data for input BFDs. */
3600 void
3601 bfd_elfNN_aarch64_init_maps (bfd *abfd)
3602 {
3603 Elf_Internal_Sym *isymbuf;
3604 Elf_Internal_Shdr *hdr;
3605 unsigned int i, localsyms;
3606
3607 /* Make sure that we are dealing with an AArch64 elf binary. */
3608 if (!is_aarch64_elf (abfd))
3609 return;
3610
3611 if ((abfd->flags & DYNAMIC) != 0)
3612 return;
3613
3614 hdr = &elf_symtab_hdr (abfd);
3615 localsyms = hdr->sh_info;
3616
3617 /* Obtain a buffer full of symbols for this BFD. The hdr->sh_info field
3618 should contain the number of local symbols, which should come before any
3619 global symbols. Mapping symbols are always local. */
3620 isymbuf = bfd_elf_get_elf_syms (abfd, hdr, localsyms, 0, NULL, NULL, NULL);
3621
3622 /* No internal symbols read? Skip this BFD. */
3623 if (isymbuf == NULL)
3624 return;
3625
3626 for (i = 0; i < localsyms; i++)
3627 {
3628 Elf_Internal_Sym *isym = &isymbuf[i];
3629 asection *sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3630 const char *name;
3631
3632 if (sec != NULL && ELF_ST_BIND (isym->st_info) == STB_LOCAL)
3633 {
3634 name = bfd_elf_string_from_elf_section (abfd,
3635 hdr->sh_link,
3636 isym->st_name);
3637
3638 if (bfd_is_aarch64_special_symbol_name
3639 (name, BFD_AARCH64_SPECIAL_SYM_TYPE_MAP))
3640 elfNN_aarch64_section_map_add (sec, name[1], isym->st_value);
3641 }
3642 }
3643 }
3644
3645 /* Set option values needed during linking. */
3646 void
3647 bfd_elfNN_aarch64_set_options (struct bfd *output_bfd,
3648 struct bfd_link_info *link_info,
3649 int no_enum_warn,
3650 int no_wchar_warn, int pic_veneer,
3651 int fix_erratum_835769)
3652 {
3653 struct elf_aarch64_link_hash_table *globals;
3654
3655 globals = elf_aarch64_hash_table (link_info);
3656 globals->pic_veneer = pic_veneer;
3657 globals->fix_erratum_835769 = fix_erratum_835769;
3658
3659 BFD_ASSERT (is_aarch64_elf (output_bfd));
3660 elf_aarch64_tdata (output_bfd)->no_enum_size_warning = no_enum_warn;
3661 elf_aarch64_tdata (output_bfd)->no_wchar_size_warning = no_wchar_warn;
3662 }
3663
3664 static bfd_vma
3665 aarch64_calculate_got_entry_vma (struct elf_link_hash_entry *h,
3666 struct elf_aarch64_link_hash_table
3667 *globals, struct bfd_link_info *info,
3668 bfd_vma value, bfd *output_bfd,
3669 bfd_boolean *unresolved_reloc_p)
3670 {
3671 bfd_vma off = (bfd_vma) - 1;
3672 asection *basegot = globals->root.sgot;
3673 bfd_boolean dyn = globals->root.dynamic_sections_created;
3674
3675 if (h != NULL)
3676 {
3677 BFD_ASSERT (basegot != NULL);
3678 off = h->got.offset;
3679 BFD_ASSERT (off != (bfd_vma) - 1);
3680 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
3681 || (info->shared
3682 && SYMBOL_REFERENCES_LOCAL (info, h))
3683 || (ELF_ST_VISIBILITY (h->other)
3684 && h->root.type == bfd_link_hash_undefweak))
3685 {
3686 /* This is actually a static link, or it is a -Bsymbolic link
3687 and the symbol is defined locally. We must initialize this
3688 entry in the global offset table. Since the offset must
3689 always be a multiple of 8 (4 in the case of ILP32), we use
3690 the least significant bit to record whether we have
3691 initialized it already.
3692 When doing a dynamic link, we create a .rel(a).got relocation
3693 entry to initialize the value. This is done in the
3694 finish_dynamic_symbol routine. */
3695 if ((off & 1) != 0)
3696 off &= ~1;
3697 else
3698 {
3699 bfd_put_NN (output_bfd, value, basegot->contents + off);
3700 h->got.offset |= 1;
3701 }
3702 }
3703 else
3704 *unresolved_reloc_p = FALSE;
3705
3706 off = off + basegot->output_section->vma + basegot->output_offset;
3707 }
3708
3709 return off;
3710 }
3711
3712 /* Change R_TYPE to a more efficient access model where possible,
3713 return the new reloc type. */
3714
3715 static bfd_reloc_code_real_type
3716 aarch64_tls_transition_without_check (bfd_reloc_code_real_type r_type,
3717 struct elf_link_hash_entry *h)
3718 {
3719 bfd_boolean is_local = h == NULL;
3720
3721 switch (r_type)
3722 {
3723 case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
3724 case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
3725 return (is_local
3726 ? BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1
3727 : BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21);
3728
3729 case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
3730 return (is_local
3731 ? BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC
3732 : r_type);
3733
3734 case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
3735 return (is_local
3736 ? BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1
3737 : BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19);
3738
3739 case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
3740 case BFD_RELOC_AARCH64_TLSDESC_LDNN_LO12_NC:
3741 return (is_local
3742 ? BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC
3743 : BFD_RELOC_AARCH64_TLSIE_LDNN_GOTTPREL_LO12_NC);
3744
3745 case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
3746 return is_local ? BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1 : r_type;
3747
3748 case BFD_RELOC_AARCH64_TLSIE_LDNN_GOTTPREL_LO12_NC:
3749 return is_local ? BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC : r_type;
3750
3751 case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
3752 return r_type;
3753
3754 case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
3755 return (is_local
3756 ? BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12
3757 : BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19);
3758
3759 case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
3760 case BFD_RELOC_AARCH64_TLSDESC_CALL:
3761 /* Instructions with these relocations will become NOPs. */
3762 return BFD_RELOC_AARCH64_NONE;
3763
3764 default:
3765 break;
3766 }
3767
3768 return r_type;
3769 }
3770
3771 static unsigned int
3772 aarch64_reloc_got_type (bfd_reloc_code_real_type r_type)
3773 {
3774 switch (r_type)
3775 {
3776 case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
3777 case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
3778 case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
3779 case BFD_RELOC_AARCH64_GOT_LD_PREL19:
3780 return GOT_NORMAL;
3781
3782 case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
3783 case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
3784 case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
3785 return GOT_TLS_GD;
3786
3787 case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
3788 case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
3789 case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
3790 case BFD_RELOC_AARCH64_TLSDESC_CALL:
3791 case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
3792 case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
3793 case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
3794 return GOT_TLSDESC_GD;
3795
3796 case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
3797 case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
3798 case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
3799 case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
3800 return GOT_TLS_IE;
3801
3802 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
3803 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
3804 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
3805 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
3806 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
3807 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
3808 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
3809 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
3810 return GOT_UNKNOWN;
3811
3812 default:
3813 break;
3814 }
3815 return GOT_UNKNOWN;
3816 }
3817
3818 static bfd_boolean
3819 aarch64_can_relax_tls (bfd *input_bfd,
3820 struct bfd_link_info *info,
3821 bfd_reloc_code_real_type r_type,
3822 struct elf_link_hash_entry *h,
3823 unsigned long r_symndx)
3824 {
3825 unsigned int symbol_got_type;
3826 unsigned int reloc_got_type;
3827
3828 if (! IS_AARCH64_TLS_RELOC (r_type))
3829 return FALSE;
3830
3831 symbol_got_type = elfNN_aarch64_symbol_got_type (h, input_bfd, r_symndx);
3832 reloc_got_type = aarch64_reloc_got_type (r_type);
3833
3834 if (symbol_got_type == GOT_TLS_IE && GOT_TLS_GD_ANY_P (reloc_got_type))
3835 return TRUE;
3836
3837 if (info->shared)
3838 return FALSE;
3839
3840 if (h && h->root.type == bfd_link_hash_undefweak)
3841 return FALSE;
3842
3843 return TRUE;
3844 }
3845
3846 /* Given the relocation code R_TYPE, return the relaxed bfd reloc
3847 enumerator. */
3848
3849 static bfd_reloc_code_real_type
3850 aarch64_tls_transition (bfd *input_bfd,
3851 struct bfd_link_info *info,
3852 unsigned int r_type,
3853 struct elf_link_hash_entry *h,
3854 unsigned long r_symndx)
3855 {
3856 bfd_reloc_code_real_type bfd_r_type
3857 = elfNN_aarch64_bfd_reloc_from_type (r_type);
3858
3859 if (! aarch64_can_relax_tls (input_bfd, info, bfd_r_type, h, r_symndx))
3860 return bfd_r_type;
3861
3862 return aarch64_tls_transition_without_check (bfd_r_type, h);
3863 }
3864
3865 /* Return the base VMA address which should be subtracted from real addresses
3866 when resolving R_AARCH64_TLS_DTPREL relocation. */
3867
3868 static bfd_vma
3869 dtpoff_base (struct bfd_link_info *info)
3870 {
3871 /* If tls_sec is NULL, we should have signalled an error already. */
3872 BFD_ASSERT (elf_hash_table (info)->tls_sec != NULL);
3873 return elf_hash_table (info)->tls_sec->vma;
3874 }
3875
3876 /* Return the base VMA address which should be subtracted from real addresses
3877 when resolving R_AARCH64_TLS_GOTTPREL64 relocations. */
3878
3879 static bfd_vma
3880 tpoff_base (struct bfd_link_info *info)
3881 {
3882 struct elf_link_hash_table *htab = elf_hash_table (info);
3883
3884 /* If tls_sec is NULL, we should have signalled an error already. */
3885 BFD_ASSERT (htab->tls_sec != NULL);
3886
3887 bfd_vma base = align_power ((bfd_vma) TCB_SIZE,
3888 htab->tls_sec->alignment_power);
3889 return htab->tls_sec->vma - base;
3890 }
3891
3892 static bfd_vma *
3893 symbol_got_offset_ref (bfd *input_bfd, struct elf_link_hash_entry *h,
3894 unsigned long r_symndx)
3895 {
3896 /* Calculate the address of the GOT entry for symbol
3897 referred to in h. */
3898 if (h != NULL)
3899 return &h->got.offset;
3900 else
3901 {
3902 /* local symbol */
3903 struct elf_aarch64_local_symbol *l;
3904
3905 l = elf_aarch64_locals (input_bfd);
3906 return &l[r_symndx].got_offset;
3907 }
3908 }
3909
3910 static void
3911 symbol_got_offset_mark (bfd *input_bfd, struct elf_link_hash_entry *h,
3912 unsigned long r_symndx)
3913 {
3914 bfd_vma *p;
3915 p = symbol_got_offset_ref (input_bfd, h, r_symndx);
3916 *p |= 1;
3917 }
3918
3919 static int
3920 symbol_got_offset_mark_p (bfd *input_bfd, struct elf_link_hash_entry *h,
3921 unsigned long r_symndx)
3922 {
3923 bfd_vma value;
3924 value = * symbol_got_offset_ref (input_bfd, h, r_symndx);
3925 return value & 1;
3926 }
3927
3928 static bfd_vma
3929 symbol_got_offset (bfd *input_bfd, struct elf_link_hash_entry *h,
3930 unsigned long r_symndx)
3931 {
3932 bfd_vma value;
3933 value = * symbol_got_offset_ref (input_bfd, h, r_symndx);
3934 value &= ~1;
3935 return value;
3936 }
3937
3938 static bfd_vma *
3939 symbol_tlsdesc_got_offset_ref (bfd *input_bfd, struct elf_link_hash_entry *h,
3940 unsigned long r_symndx)
3941 {
3942 /* Calculate the address of the GOT entry for symbol
3943 referred to in h. */
3944 if (h != NULL)
3945 {
3946 struct elf_aarch64_link_hash_entry *eh;
3947 eh = (struct elf_aarch64_link_hash_entry *) h;
3948 return &eh->tlsdesc_got_jump_table_offset;
3949 }
3950 else
3951 {
3952 /* local symbol */
3953 struct elf_aarch64_local_symbol *l;
3954
3955 l = elf_aarch64_locals (input_bfd);
3956 return &l[r_symndx].tlsdesc_got_jump_table_offset;
3957 }
3958 }
3959
3960 static void
3961 symbol_tlsdesc_got_offset_mark (bfd *input_bfd, struct elf_link_hash_entry *h,
3962 unsigned long r_symndx)
3963 {
3964 bfd_vma *p;
3965 p = symbol_tlsdesc_got_offset_ref (input_bfd, h, r_symndx);
3966 *p |= 1;
3967 }
3968
3969 static int
3970 symbol_tlsdesc_got_offset_mark_p (bfd *input_bfd,
3971 struct elf_link_hash_entry *h,
3972 unsigned long r_symndx)
3973 {
3974 bfd_vma value;
3975 value = * symbol_tlsdesc_got_offset_ref (input_bfd, h, r_symndx);
3976 return value & 1;
3977 }
3978
3979 static bfd_vma
3980 symbol_tlsdesc_got_offset (bfd *input_bfd, struct elf_link_hash_entry *h,
3981 unsigned long r_symndx)
3982 {
3983 bfd_vma value;
3984 value = * symbol_tlsdesc_got_offset_ref (input_bfd, h, r_symndx);
3985 value &= ~1;
3986 return value;
3987 }
3988
3989 /* Data for make_branch_to_erratum_835769_stub(). */
3990
3991 struct erratum_835769_branch_to_stub_data
3992 {
3993 asection *output_section;
3994 bfd_byte *contents;
3995 };
3996
3997 /* Helper to insert branches to erratum 835769 stubs in the right
3998 places for a particular section. */
3999
4000 static bfd_boolean
4001 make_branch_to_erratum_835769_stub (struct bfd_hash_entry *gen_entry,
4002 void *in_arg)
4003 {
4004 struct elf_aarch64_stub_hash_entry *stub_entry;
4005 struct erratum_835769_branch_to_stub_data *data;
4006 bfd_byte *contents;
4007 unsigned long branch_insn = 0;
4008 bfd_vma veneered_insn_loc, veneer_entry_loc;
4009 bfd_signed_vma branch_offset;
4010 unsigned int target;
4011 bfd *abfd;
4012
4013 stub_entry = (struct elf_aarch64_stub_hash_entry *) gen_entry;
4014 data = (struct erratum_835769_branch_to_stub_data *) in_arg;
4015
4016 if (stub_entry->target_section != data->output_section
4017 || stub_entry->stub_type != aarch64_stub_erratum_835769_veneer)
4018 return TRUE;
4019
4020 contents = data->contents;
4021 veneered_insn_loc = stub_entry->target_section->output_section->vma
4022 + stub_entry->target_section->output_offset
4023 + stub_entry->target_value;
4024 veneer_entry_loc = stub_entry->stub_sec->output_section->vma
4025 + stub_entry->stub_sec->output_offset
4026 + stub_entry->stub_offset;
4027 branch_offset = veneer_entry_loc - veneered_insn_loc;
4028
4029 abfd = stub_entry->target_section->owner;
4030 if (!aarch64_valid_branch_p (veneer_entry_loc, veneered_insn_loc))
4031 (*_bfd_error_handler)
4032 (_("%B: error: Erratum 835769 stub out "
4033 "of range (input file too large)"), abfd);
4034
4035 target = stub_entry->target_value;
4036 branch_insn = 0x14000000;
4037 branch_offset >>= 2;
4038 branch_offset &= 0x3ffffff;
4039 branch_insn |= branch_offset;
4040 bfd_putl32 (branch_insn, &contents[target]);
4041
4042 return TRUE;
4043 }
4044
4045 static bfd_boolean
4046 elfNN_aarch64_write_section (bfd *output_bfd ATTRIBUTE_UNUSED,
4047 struct bfd_link_info *link_info,
4048 asection *sec,
4049 bfd_byte *contents)
4050
4051 {
4052 struct elf_aarch64_link_hash_table *globals =
4053 elf_aarch64_hash_table (link_info);
4054
4055 if (globals == NULL)
4056 return FALSE;
4057
4058 /* Fix code to point to erratum 835769 stubs. */
4059 if (globals->fix_erratum_835769)
4060 {
4061 struct erratum_835769_branch_to_stub_data data;
4062
4063 data.output_section = sec;
4064 data.contents = contents;
4065 bfd_hash_traverse (&globals->stub_hash_table,
4066 make_branch_to_erratum_835769_stub, &data);
4067 }
4068
4069 return FALSE;
4070 }
4071
4072 /* Perform a relocation as part of a final link. */
4073 static bfd_reloc_status_type
4074 elfNN_aarch64_final_link_relocate (reloc_howto_type *howto,
4075 bfd *input_bfd,
4076 bfd *output_bfd,
4077 asection *input_section,
4078 bfd_byte *contents,
4079 Elf_Internal_Rela *rel,
4080 bfd_vma value,
4081 struct bfd_link_info *info,
4082 asection *sym_sec,
4083 struct elf_link_hash_entry *h,
4084 bfd_boolean *unresolved_reloc_p,
4085 bfd_boolean save_addend,
4086 bfd_vma *saved_addend,
4087 Elf_Internal_Sym *sym)
4088 {
4089 Elf_Internal_Shdr *symtab_hdr;
4090 unsigned int r_type = howto->type;
4091 bfd_reloc_code_real_type bfd_r_type
4092 = elfNN_aarch64_bfd_reloc_from_howto (howto);
4093 bfd_reloc_code_real_type new_bfd_r_type;
4094 unsigned long r_symndx;
4095 bfd_byte *hit_data = contents + rel->r_offset;
4096 bfd_vma place;
4097 bfd_signed_vma signed_addend;
4098 struct elf_aarch64_link_hash_table *globals;
4099 bfd_boolean weak_undef_p;
4100
4101 globals = elf_aarch64_hash_table (info);
4102
4103 symtab_hdr = &elf_symtab_hdr (input_bfd);
4104
4105 BFD_ASSERT (is_aarch64_elf (input_bfd));
4106
4107 r_symndx = ELFNN_R_SYM (rel->r_info);
4108
4109 /* It is possible to have linker relaxations on some TLS access
4110 models. Update our information here. */
4111 new_bfd_r_type = aarch64_tls_transition (input_bfd, info, r_type, h, r_symndx);
4112 if (new_bfd_r_type != bfd_r_type)
4113 {
4114 bfd_r_type = new_bfd_r_type;
4115 howto = elfNN_aarch64_howto_from_bfd_reloc (bfd_r_type);
4116 BFD_ASSERT (howto != NULL);
4117 r_type = howto->type;
4118 }
4119
4120 place = input_section->output_section->vma
4121 + input_section->output_offset + rel->r_offset;
4122
4123 /* Get addend, accumulating the addend for consecutive relocs
4124 which refer to the same offset. */
4125 signed_addend = saved_addend ? *saved_addend : 0;
4126 signed_addend += rel->r_addend;
4127
4128 weak_undef_p = (h ? h->root.type == bfd_link_hash_undefweak
4129 : bfd_is_und_section (sym_sec));
4130
4131 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
4132 it here if it is defined in a non-shared object. */
4133 if (h != NULL
4134 && h->type == STT_GNU_IFUNC
4135 && h->def_regular)
4136 {
4137 asection *plt;
4138 const char *name;
4139 asection *base_got;
4140 bfd_vma off;
4141
4142 if ((input_section->flags & SEC_ALLOC) == 0
4143 || h->plt.offset == (bfd_vma) -1)
4144 abort ();
4145
4146 /* STT_GNU_IFUNC symbol must go through PLT. */
4147 plt = globals->root.splt ? globals->root.splt : globals->root.iplt;
4148 value = (plt->output_section->vma + plt->output_offset + h->plt.offset);
4149
4150 switch (bfd_r_type)
4151 {
4152 default:
4153 if (h->root.root.string)
4154 name = h->root.root.string;
4155 else
4156 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4157 NULL);
4158 (*_bfd_error_handler)
4159 (_("%B: relocation %s against STT_GNU_IFUNC "
4160 "symbol `%s' isn't handled by %s"), input_bfd,
4161 howto->name, name, __FUNCTION__);
4162 bfd_set_error (bfd_error_bad_value);
4163 return FALSE;
4164
4165 case BFD_RELOC_AARCH64_NN:
4166 if (rel->r_addend != 0)
4167 {
4168 if (h->root.root.string)
4169 name = h->root.root.string;
4170 else
4171 name = bfd_elf_sym_name (input_bfd, symtab_hdr,
4172 sym, NULL);
4173 (*_bfd_error_handler)
4174 (_("%B: relocation %s against STT_GNU_IFUNC "
4175 "symbol `%s' has non-zero addend: %d"),
4176 input_bfd, howto->name, name, rel->r_addend);
4177 bfd_set_error (bfd_error_bad_value);
4178 return FALSE;
4179 }
4180
4181 /* Generate dynamic relocation only when there is a
4182 non-GOT reference in a shared object. */
4183 if (info->shared && h->non_got_ref)
4184 {
4185 Elf_Internal_Rela outrel;
4186 asection *sreloc;
4187
4188 /* Need a dynamic relocation to get the real function
4189 address. */
4190 outrel.r_offset = _bfd_elf_section_offset (output_bfd,
4191 info,
4192 input_section,
4193 rel->r_offset);
4194 if (outrel.r_offset == (bfd_vma) -1
4195 || outrel.r_offset == (bfd_vma) -2)
4196 abort ();
4197
4198 outrel.r_offset += (input_section->output_section->vma
4199 + input_section->output_offset);
4200
4201 if (h->dynindx == -1
4202 || h->forced_local
4203 || info->executable)
4204 {
4205 /* This symbol is resolved locally. */
4206 outrel.r_info = ELFNN_R_INFO (0, AARCH64_R (IRELATIVE));
4207 outrel.r_addend = (h->root.u.def.value
4208 + h->root.u.def.section->output_section->vma
4209 + h->root.u.def.section->output_offset);
4210 }
4211 else
4212 {
4213 outrel.r_info = ELFNN_R_INFO (h->dynindx, r_type);
4214 outrel.r_addend = 0;
4215 }
4216
4217 sreloc = globals->root.irelifunc;
4218 elf_append_rela (output_bfd, sreloc, &outrel);
4219
4220 /* If this reloc is against an external symbol, we
4221 do not want to fiddle with the addend. Otherwise,
4222 we need to include the symbol value so that it
4223 becomes an addend for the dynamic reloc. For an
4224 internal symbol, we have updated addend. */
4225 return bfd_reloc_ok;
4226 }
4227 /* FALLTHROUGH */
4228 case BFD_RELOC_AARCH64_JUMP26:
4229 case BFD_RELOC_AARCH64_CALL26:
4230 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4231 signed_addend,
4232 weak_undef_p);
4233 return _bfd_aarch64_elf_put_addend (input_bfd, hit_data, bfd_r_type,
4234 howto, value);
4235 case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
4236 case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
4237 case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
4238 case BFD_RELOC_AARCH64_GOT_LD_PREL19:
4239 base_got = globals->root.sgot;
4240 off = h->got.offset;
4241
4242 if (base_got == NULL)
4243 abort ();
4244
4245 if (off == (bfd_vma) -1)
4246 {
4247 bfd_vma plt_index;
4248
4249 /* We can't use h->got.offset here to save state, or
4250 even just remember the offset, as finish_dynamic_symbol
4251 would use that as offset into .got. */
4252
4253 if (globals->root.splt != NULL)
4254 {
4255 plt_index = ((h->plt.offset - globals->plt_header_size) /
4256 globals->plt_entry_size);
4257 off = (plt_index + 3) * GOT_ENTRY_SIZE;
4258 base_got = globals->root.sgotplt;
4259 }
4260 else
4261 {
4262 plt_index = h->plt.offset / globals->plt_entry_size;
4263 off = plt_index * GOT_ENTRY_SIZE;
4264 base_got = globals->root.igotplt;
4265 }
4266
4267 if (h->dynindx == -1
4268 || h->forced_local
4269 || info->symbolic)
4270 {
4271 /* This references the local definition. We must
4272 initialize this entry in the global offset table.
4273 Since the offset must always be a multiple of 8,
4274 we use the least significant bit to record
4275 whether we have initialized it already.
4276
4277 When doing a dynamic link, we create a .rela.got
4278 relocation entry to initialize the value. This
4279 is done in the finish_dynamic_symbol routine. */
4280 if ((off & 1) != 0)
4281 off &= ~1;
4282 else
4283 {
4284 bfd_put_NN (output_bfd, value,
4285 base_got->contents + off);
4286 /* Note that this is harmless as -1 | 1 still is -1. */
4287 h->got.offset |= 1;
4288 }
4289 }
4290 value = (base_got->output_section->vma
4291 + base_got->output_offset + off);
4292 }
4293 else
4294 value = aarch64_calculate_got_entry_vma (h, globals, info,
4295 value, output_bfd,
4296 unresolved_reloc_p);
4297 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4298 0, weak_undef_p);
4299 return _bfd_aarch64_elf_put_addend (input_bfd, hit_data, bfd_r_type, howto, value);
4300 case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
4301 case BFD_RELOC_AARCH64_ADD_LO12:
4302 break;
4303 }
4304 }
4305
4306 switch (bfd_r_type)
4307 {
4308 case BFD_RELOC_AARCH64_NONE:
4309 case BFD_RELOC_AARCH64_TLSDESC_CALL:
4310 *unresolved_reloc_p = FALSE;
4311 return bfd_reloc_ok;
4312
4313 case BFD_RELOC_AARCH64_NN:
4314
4315 /* When generating a shared object or relocatable executable, these
4316 relocations are copied into the output file to be resolved at
4317 run time. */
4318 if (((info->shared == TRUE) || globals->root.is_relocatable_executable)
4319 && (input_section->flags & SEC_ALLOC)
4320 && (h == NULL
4321 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
4322 || h->root.type != bfd_link_hash_undefweak))
4323 {
4324 Elf_Internal_Rela outrel;
4325 bfd_byte *loc;
4326 bfd_boolean skip, relocate;
4327 asection *sreloc;
4328
4329 *unresolved_reloc_p = FALSE;
4330
4331 skip = FALSE;
4332 relocate = FALSE;
4333
4334 outrel.r_addend = signed_addend;
4335 outrel.r_offset =
4336 _bfd_elf_section_offset (output_bfd, info, input_section,
4337 rel->r_offset);
4338 if (outrel.r_offset == (bfd_vma) - 1)
4339 skip = TRUE;
4340 else if (outrel.r_offset == (bfd_vma) - 2)
4341 {
4342 skip = TRUE;
4343 relocate = TRUE;
4344 }
4345
4346 outrel.r_offset += (input_section->output_section->vma
4347 + input_section->output_offset);
4348
4349 if (skip)
4350 memset (&outrel, 0, sizeof outrel);
4351 else if (h != NULL
4352 && h->dynindx != -1
4353 && (!info->shared || !SYMBOLIC_BIND (info, h) || !h->def_regular))
4354 outrel.r_info = ELFNN_R_INFO (h->dynindx, r_type);
4355 else
4356 {
4357 int symbol;
4358
4359 /* On SVR4-ish systems, the dynamic loader cannot
4360 relocate the text and data segments independently,
4361 so the symbol does not matter. */
4362 symbol = 0;
4363 outrel.r_info = ELFNN_R_INFO (symbol, AARCH64_R (RELATIVE));
4364 outrel.r_addend += value;
4365 }
4366
4367 sreloc = elf_section_data (input_section)->sreloc;
4368 if (sreloc == NULL || sreloc->contents == NULL)
4369 return bfd_reloc_notsupported;
4370
4371 loc = sreloc->contents + sreloc->reloc_count++ * RELOC_SIZE (globals);
4372 bfd_elfNN_swap_reloca_out (output_bfd, &outrel, loc);
4373
4374 if (sreloc->reloc_count * RELOC_SIZE (globals) > sreloc->size)
4375 {
4376 /* Sanity to check that we have previously allocated
4377 sufficient space in the relocation section for the
4378 number of relocations we actually want to emit. */
4379 abort ();
4380 }
4381
4382 /* If this reloc is against an external symbol, we do not want to
4383 fiddle with the addend. Otherwise, we need to include the symbol
4384 value so that it becomes an addend for the dynamic reloc. */
4385 if (!relocate)
4386 return bfd_reloc_ok;
4387
4388 return _bfd_final_link_relocate (howto, input_bfd, input_section,
4389 contents, rel->r_offset, value,
4390 signed_addend);
4391 }
4392 else
4393 value += signed_addend;
4394 break;
4395
4396 case BFD_RELOC_AARCH64_JUMP26:
4397 case BFD_RELOC_AARCH64_CALL26:
4398 {
4399 asection *splt = globals->root.splt;
4400 bfd_boolean via_plt_p =
4401 splt != NULL && h != NULL && h->plt.offset != (bfd_vma) - 1;
4402
4403 /* A call to an undefined weak symbol is converted to a jump to
4404 the next instruction unless a PLT entry will be created.
4405 The jump to the next instruction is optimized as a NOP.
4406 Do the same for local undefined symbols. */
4407 if (weak_undef_p && ! via_plt_p)
4408 {
4409 bfd_putl32 (INSN_NOP, hit_data);
4410 return bfd_reloc_ok;
4411 }
4412
4413 /* If the call goes through a PLT entry, make sure to
4414 check distance to the right destination address. */
4415 if (via_plt_p)
4416 {
4417 value = (splt->output_section->vma
4418 + splt->output_offset + h->plt.offset);
4419 *unresolved_reloc_p = FALSE;
4420 }
4421
4422 /* If the target symbol is global and marked as a function the
4423 relocation applies a function call or a tail call. In this
4424 situation we can veneer out of range branches. The veneers
4425 use IP0 and IP1 hence cannot be used arbitrary out of range
4426 branches that occur within the body of a function. */
4427 if (h && h->type == STT_FUNC)
4428 {
4429 /* Check if a stub has to be inserted because the destination
4430 is too far away. */
4431 if (! aarch64_valid_branch_p (value, place))
4432 {
4433 /* The target is out of reach, so redirect the branch to
4434 the local stub for this function. */
4435 struct elf_aarch64_stub_hash_entry *stub_entry;
4436 stub_entry = elfNN_aarch64_get_stub_entry (input_section,
4437 sym_sec, h,
4438 rel, globals);
4439 if (stub_entry != NULL)
4440 value = (stub_entry->stub_offset
4441 + stub_entry->stub_sec->output_offset
4442 + stub_entry->stub_sec->output_section->vma);
4443 }
4444 }
4445 }
4446 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4447 signed_addend, weak_undef_p);
4448 break;
4449
4450 case BFD_RELOC_AARCH64_16:
4451 #if ARCH_SIZE == 64
4452 case BFD_RELOC_AARCH64_32:
4453 #endif
4454 case BFD_RELOC_AARCH64_ADD_LO12:
4455 case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
4456 case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
4457 case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
4458 case BFD_RELOC_AARCH64_BRANCH19:
4459 case BFD_RELOC_AARCH64_LD_LO19_PCREL:
4460 case BFD_RELOC_AARCH64_LDST8_LO12:
4461 case BFD_RELOC_AARCH64_LDST16_LO12:
4462 case BFD_RELOC_AARCH64_LDST32_LO12:
4463 case BFD_RELOC_AARCH64_LDST64_LO12:
4464 case BFD_RELOC_AARCH64_LDST128_LO12:
4465 case BFD_RELOC_AARCH64_MOVW_G0_S:
4466 case BFD_RELOC_AARCH64_MOVW_G1_S:
4467 case BFD_RELOC_AARCH64_MOVW_G2_S:
4468 case BFD_RELOC_AARCH64_MOVW_G0:
4469 case BFD_RELOC_AARCH64_MOVW_G0_NC:
4470 case BFD_RELOC_AARCH64_MOVW_G1:
4471 case BFD_RELOC_AARCH64_MOVW_G1_NC:
4472 case BFD_RELOC_AARCH64_MOVW_G2:
4473 case BFD_RELOC_AARCH64_MOVW_G2_NC:
4474 case BFD_RELOC_AARCH64_MOVW_G3:
4475 case BFD_RELOC_AARCH64_16_PCREL:
4476 case BFD_RELOC_AARCH64_32_PCREL:
4477 case BFD_RELOC_AARCH64_64_PCREL:
4478 case BFD_RELOC_AARCH64_TSTBR14:
4479 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4480 signed_addend, weak_undef_p);
4481 break;
4482
4483 case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
4484 case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
4485 case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
4486 case BFD_RELOC_AARCH64_GOT_LD_PREL19:
4487 if (globals->root.sgot == NULL)
4488 BFD_ASSERT (h != NULL);
4489
4490 if (h != NULL)
4491 {
4492 value = aarch64_calculate_got_entry_vma (h, globals, info, value,
4493 output_bfd,
4494 unresolved_reloc_p);
4495 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4496 0, weak_undef_p);
4497 }
4498 break;
4499
4500 case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
4501 case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
4502 case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
4503 case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
4504 case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
4505 case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
4506 case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
4507 if (globals->root.sgot == NULL)
4508 return bfd_reloc_notsupported;
4509
4510 value = (symbol_got_offset (input_bfd, h, r_symndx)
4511 + globals->root.sgot->output_section->vma
4512 + globals->root.sgot->output_offset);
4513
4514 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4515 0, weak_undef_p);
4516 *unresolved_reloc_p = FALSE;
4517 break;
4518
4519 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
4520 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
4521 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
4522 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
4523 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
4524 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
4525 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
4526 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
4527 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4528 signed_addend - tpoff_base (info),
4529 weak_undef_p);
4530 *unresolved_reloc_p = FALSE;
4531 break;
4532
4533 case BFD_RELOC_AARCH64_TLSDESC_ADD:
4534 case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
4535 case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
4536 case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
4537 case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
4538 case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
4539 case BFD_RELOC_AARCH64_TLSDESC_LDR:
4540 case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
4541 if (globals->root.sgot == NULL)
4542 return bfd_reloc_notsupported;
4543 value = (symbol_tlsdesc_got_offset (input_bfd, h, r_symndx)
4544 + globals->root.sgotplt->output_section->vma
4545 + globals->root.sgotplt->output_offset
4546 + globals->sgotplt_jump_table_size);
4547
4548 value = _bfd_aarch64_elf_resolve_relocation (bfd_r_type, place, value,
4549 0, weak_undef_p);
4550 *unresolved_reloc_p = FALSE;
4551 break;
4552
4553 default:
4554 return bfd_reloc_notsupported;
4555 }
4556
4557 if (saved_addend)
4558 *saved_addend = value;
4559
4560 /* Only apply the final relocation in a sequence. */
4561 if (save_addend)
4562 return bfd_reloc_continue;
4563
4564 return _bfd_aarch64_elf_put_addend (input_bfd, hit_data, bfd_r_type,
4565 howto, value);
4566 }
4567
4568 /* Handle TLS relaxations. Relaxing is possible for symbols that use
4569 R_AARCH64_TLSDESC_ADR_{PAGE, LD64_LO12_NC, ADD_LO12_NC} during a static
4570 link.
4571
4572 Return bfd_reloc_ok if we're done, bfd_reloc_continue if the caller
4573 is to then call final_link_relocate. Return other values in the
4574 case of error. */
4575
4576 static bfd_reloc_status_type
4577 elfNN_aarch64_tls_relax (struct elf_aarch64_link_hash_table *globals,
4578 bfd *input_bfd, bfd_byte *contents,
4579 Elf_Internal_Rela *rel, struct elf_link_hash_entry *h)
4580 {
4581 bfd_boolean is_local = h == NULL;
4582 unsigned int r_type = ELFNN_R_TYPE (rel->r_info);
4583 unsigned long insn;
4584
4585 BFD_ASSERT (globals && input_bfd && contents && rel);
4586
4587 switch (elfNN_aarch64_bfd_reloc_from_type (r_type))
4588 {
4589 case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
4590 case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
4591 if (is_local)
4592 {
4593 /* GD->LE relaxation:
4594 adrp x0, :tlsgd:var => movz x0, :tprel_g1:var
4595 or
4596 adrp x0, :tlsdesc:var => movz x0, :tprel_g1:var
4597 */
4598 bfd_putl32 (0xd2a00000, contents + rel->r_offset);
4599 return bfd_reloc_continue;
4600 }
4601 else
4602 {
4603 /* GD->IE relaxation:
4604 adrp x0, :tlsgd:var => adrp x0, :gottprel:var
4605 or
4606 adrp x0, :tlsdesc:var => adrp x0, :gottprel:var
4607 */
4608 return bfd_reloc_continue;
4609 }
4610
4611 case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
4612 BFD_ASSERT (0);
4613 break;
4614
4615 case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
4616 if (is_local)
4617 {
4618 /* Tiny TLSDESC->LE relaxation:
4619 ldr x1, :tlsdesc:var => movz x0, #:tprel_g1:var
4620 adr x0, :tlsdesc:var => movk x0, #:tprel_g0_nc:var
4621 .tlsdesccall var
4622 blr x1 => nop
4623 */
4624 BFD_ASSERT (ELFNN_R_TYPE (rel[1].r_info) == AARCH64_R (TLSDESC_ADR_PREL21));
4625 BFD_ASSERT (ELFNN_R_TYPE (rel[2].r_info) == AARCH64_R (TLSDESC_CALL));
4626
4627 rel[1].r_info = ELFNN_R_INFO (ELFNN_R_SYM (rel->r_info),
4628 AARCH64_R (TLSLE_MOVW_TPREL_G0_NC));
4629 rel[2].r_info = ELFNN_R_INFO (STN_UNDEF, R_AARCH64_NONE);
4630
4631 bfd_putl32 (0xd2a00000, contents + rel->r_offset);
4632 bfd_putl32 (0xf2800000, contents + rel->r_offset + 4);
4633 bfd_putl32 (INSN_NOP, contents + rel->r_offset + 8);
4634 return bfd_reloc_continue;
4635 }
4636 else
4637 {
4638 /* Tiny TLSDESC->IE relaxation:
4639 ldr x1, :tlsdesc:var => ldr x0, :gottprel:var
4640 adr x0, :tlsdesc:var => nop
4641 .tlsdesccall var
4642 blr x1 => nop
4643 */
4644 BFD_ASSERT (ELFNN_R_TYPE (rel[1].r_info) == AARCH64_R (TLSDESC_ADR_PREL21));
4645 BFD_ASSERT (ELFNN_R_TYPE (rel[2].r_info) == AARCH64_R (TLSDESC_CALL));
4646
4647 rel[1].r_info = ELFNN_R_INFO (STN_UNDEF, R_AARCH64_NONE);
4648 rel[2].r_info = ELFNN_R_INFO (STN_UNDEF, R_AARCH64_NONE);
4649
4650 bfd_putl32 (0x58000000, contents + rel->r_offset);
4651 bfd_putl32 (INSN_NOP, contents + rel->r_offset + 4);
4652 bfd_putl32 (INSN_NOP, contents + rel->r_offset + 8);
4653 return bfd_reloc_continue;
4654 }
4655
4656 case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
4657 if (is_local)
4658 {
4659 /* Tiny GD->LE relaxation:
4660 adr x0, :tlsgd:var => mrs x1, tpidr_el0
4661 bl __tls_get_addr => add x0, x1, #:tprel_hi12:x, lsl #12
4662 nop => add x0, x0, #:tprel_lo12_nc:x
4663 */
4664
4665 /* First kill the tls_get_addr reloc on the bl instruction. */
4666 BFD_ASSERT (rel->r_offset + 4 == rel[1].r_offset);
4667
4668 bfd_putl32 (0xd53bd041, contents + rel->r_offset + 0);
4669 bfd_putl32 (0x91400020, contents + rel->r_offset + 4);
4670 bfd_putl32 (0x91000000, contents + rel->r_offset + 8);
4671
4672 rel[1].r_info = ELFNN_R_INFO (ELFNN_R_SYM (rel->r_info),
4673 AARCH64_R (TLSLE_ADD_TPREL_LO12_NC));
4674 rel[1].r_offset = rel->r_offset + 8;
4675
4676 /* Move the current relocation to the second instruction in
4677 the sequence. */
4678 rel->r_offset += 4;
4679 rel->r_info = ELFNN_R_INFO (ELFNN_R_SYM (rel->r_info),
4680 AARCH64_R (TLSLE_ADD_TPREL_HI12));
4681 return bfd_reloc_continue;
4682 }
4683 else
4684 {
4685 /* Tiny GD->IE relaxation:
4686 adr x0, :tlsgd:var => ldr x0, :gottprel:var
4687 bl __tls_get_addr => mrs x1, tpidr_el0
4688 nop => add x0, x0, x1
4689 */
4690
4691 /* First kill the tls_get_addr reloc on the bl instruction. */
4692 BFD_ASSERT (rel->r_offset + 4 == rel[1].r_offset);
4693 rel[1].r_info = ELFNN_R_INFO (STN_UNDEF, R_AARCH64_NONE);
4694
4695 bfd_putl32 (0x58000000, contents + rel->r_offset);
4696 bfd_putl32 (0xd53bd041, contents + rel->r_offset + 4);
4697 bfd_putl32 (0x8b000020, contents + rel->r_offset + 8);
4698 return bfd_reloc_continue;
4699 }
4700
4701 case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
4702 return bfd_reloc_continue;
4703
4704 case BFD_RELOC_AARCH64_TLSDESC_LDNN_LO12_NC:
4705 if (is_local)
4706 {
4707 /* GD->LE relaxation:
4708 ldr xd, [x0, #:tlsdesc_lo12:var] => movk x0, :tprel_g0_nc:var
4709 */
4710 bfd_putl32 (0xf2800000, contents + rel->r_offset);
4711 return bfd_reloc_continue;
4712 }
4713 else
4714 {
4715 /* GD->IE relaxation:
4716 ldr xd, [x0, #:tlsdesc_lo12:var] => ldr x0, [x0, #:gottprel_lo12:var]
4717 */
4718 insn = bfd_getl32 (contents + rel->r_offset);
4719 insn &= 0xffffffe0;
4720 bfd_putl32 (insn, contents + rel->r_offset);
4721 return bfd_reloc_continue;
4722 }
4723
4724 case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
4725 if (is_local)
4726 {
4727 /* GD->LE relaxation
4728 add x0, #:tlsgd_lo12:var => movk x0, :tprel_g0_nc:var
4729 bl __tls_get_addr => mrs x1, tpidr_el0
4730 nop => add x0, x1, x0
4731 */
4732
4733 /* First kill the tls_get_addr reloc on the bl instruction. */
4734 BFD_ASSERT (rel->r_offset + 4 == rel[1].r_offset);
4735 rel[1].r_info = ELFNN_R_INFO (STN_UNDEF, R_AARCH64_NONE);
4736
4737 bfd_putl32 (0xf2800000, contents + rel->r_offset);
4738 bfd_putl32 (0xd53bd041, contents + rel->r_offset + 4);
4739 bfd_putl32 (0x8b000020, contents + rel->r_offset + 8);
4740 return bfd_reloc_continue;
4741 }
4742 else
4743 {
4744 /* GD->IE relaxation
4745 ADD x0, #:tlsgd_lo12:var => ldr x0, [x0, #:gottprel_lo12:var]
4746 BL __tls_get_addr => mrs x1, tpidr_el0
4747 R_AARCH64_CALL26
4748 NOP => add x0, x1, x0
4749 */
4750
4751 BFD_ASSERT (ELFNN_R_TYPE (rel[1].r_info) == AARCH64_R (CALL26));
4752
4753 /* Remove the relocation on the BL instruction. */
4754 rel[1].r_info = ELFNN_R_INFO (STN_UNDEF, R_AARCH64_NONE);
4755
4756 bfd_putl32 (0xf9400000, contents + rel->r_offset);
4757
4758 /* We choose to fixup the BL and NOP instructions using the
4759 offset from the second relocation to allow flexibility in
4760 scheduling instructions between the ADD and BL. */
4761 bfd_putl32 (0xd53bd041, contents + rel[1].r_offset);
4762 bfd_putl32 (0x8b000020, contents + rel[1].r_offset + 4);
4763 return bfd_reloc_continue;
4764 }
4765
4766 case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
4767 case BFD_RELOC_AARCH64_TLSDESC_CALL:
4768 /* GD->IE/LE relaxation:
4769 add x0, x0, #:tlsdesc_lo12:var => nop
4770 blr xd => nop
4771 */
4772 bfd_putl32 (INSN_NOP, contents + rel->r_offset);
4773 return bfd_reloc_ok;
4774
4775 case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
4776 /* IE->LE relaxation:
4777 adrp xd, :gottprel:var => movz xd, :tprel_g1:var
4778 */
4779 if (is_local)
4780 {
4781 insn = bfd_getl32 (contents + rel->r_offset);
4782 bfd_putl32 (0xd2a00000 | (insn & 0x1f), contents + rel->r_offset);
4783 }
4784 return bfd_reloc_continue;
4785
4786 case BFD_RELOC_AARCH64_TLSIE_LDNN_GOTTPREL_LO12_NC:
4787 /* IE->LE relaxation:
4788 ldr xd, [xm, #:gottprel_lo12:var] => movk xd, :tprel_g0_nc:var
4789 */
4790 if (is_local)
4791 {
4792 insn = bfd_getl32 (contents + rel->r_offset);
4793 bfd_putl32 (0xf2800000 | (insn & 0x1f), contents + rel->r_offset);
4794 }
4795 return bfd_reloc_continue;
4796
4797 default:
4798 return bfd_reloc_continue;
4799 }
4800
4801 return bfd_reloc_ok;
4802 }
4803
4804 /* Relocate an AArch64 ELF section. */
4805
4806 static bfd_boolean
4807 elfNN_aarch64_relocate_section (bfd *output_bfd,
4808 struct bfd_link_info *info,
4809 bfd *input_bfd,
4810 asection *input_section,
4811 bfd_byte *contents,
4812 Elf_Internal_Rela *relocs,
4813 Elf_Internal_Sym *local_syms,
4814 asection **local_sections)
4815 {
4816 Elf_Internal_Shdr *symtab_hdr;
4817 struct elf_link_hash_entry **sym_hashes;
4818 Elf_Internal_Rela *rel;
4819 Elf_Internal_Rela *relend;
4820 const char *name;
4821 struct elf_aarch64_link_hash_table *globals;
4822 bfd_boolean save_addend = FALSE;
4823 bfd_vma addend = 0;
4824
4825 globals = elf_aarch64_hash_table (info);
4826
4827 symtab_hdr = &elf_symtab_hdr (input_bfd);
4828 sym_hashes = elf_sym_hashes (input_bfd);
4829
4830 rel = relocs;
4831 relend = relocs + input_section->reloc_count;
4832 for (; rel < relend; rel++)
4833 {
4834 unsigned int r_type;
4835 bfd_reloc_code_real_type bfd_r_type;
4836 bfd_reloc_code_real_type relaxed_bfd_r_type;
4837 reloc_howto_type *howto;
4838 unsigned long r_symndx;
4839 Elf_Internal_Sym *sym;
4840 asection *sec;
4841 struct elf_link_hash_entry *h;
4842 bfd_vma relocation;
4843 bfd_reloc_status_type r;
4844 arelent bfd_reloc;
4845 char sym_type;
4846 bfd_boolean unresolved_reloc = FALSE;
4847 char *error_message = NULL;
4848
4849 r_symndx = ELFNN_R_SYM (rel->r_info);
4850 r_type = ELFNN_R_TYPE (rel->r_info);
4851
4852 bfd_reloc.howto = elfNN_aarch64_howto_from_type (r_type);
4853 howto = bfd_reloc.howto;
4854
4855 if (howto == NULL)
4856 {
4857 (*_bfd_error_handler)
4858 (_("%B: unrecognized relocation (0x%x) in section `%A'"),
4859 input_bfd, input_section, r_type);
4860 return FALSE;
4861 }
4862 bfd_r_type = elfNN_aarch64_bfd_reloc_from_howto (howto);
4863
4864 h = NULL;
4865 sym = NULL;
4866 sec = NULL;
4867
4868 if (r_symndx < symtab_hdr->sh_info)
4869 {
4870 sym = local_syms + r_symndx;
4871 sym_type = ELFNN_ST_TYPE (sym->st_info);
4872 sec = local_sections[r_symndx];
4873
4874 /* An object file might have a reference to a local
4875 undefined symbol. This is a daft object file, but we
4876 should at least do something about it. */
4877 if (r_type != R_AARCH64_NONE && r_type != R_AARCH64_NULL
4878 && bfd_is_und_section (sec)
4879 && ELF_ST_BIND (sym->st_info) != STB_WEAK)
4880 {
4881 if (!info->callbacks->undefined_symbol
4882 (info, bfd_elf_string_from_elf_section
4883 (input_bfd, symtab_hdr->sh_link, sym->st_name),
4884 input_bfd, input_section, rel->r_offset, TRUE))
4885 return FALSE;
4886 }
4887
4888 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
4889
4890 /* Relocate against local STT_GNU_IFUNC symbol. */
4891 if (!info->relocatable
4892 && ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
4893 {
4894 h = elfNN_aarch64_get_local_sym_hash (globals, input_bfd,
4895 rel, FALSE);
4896 if (h == NULL)
4897 abort ();
4898
4899 /* Set STT_GNU_IFUNC symbol value. */
4900 h->root.u.def.value = sym->st_value;
4901 h->root.u.def.section = sec;
4902 }
4903 }
4904 else
4905 {
4906 bfd_boolean warned, ignored;
4907
4908 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
4909 r_symndx, symtab_hdr, sym_hashes,
4910 h, sec, relocation,
4911 unresolved_reloc, warned, ignored);
4912
4913 sym_type = h->type;
4914 }
4915
4916 if (sec != NULL && discarded_section (sec))
4917 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
4918 rel, 1, relend, howto, 0, contents);
4919
4920 if (info->relocatable)
4921 continue;
4922
4923 if (h != NULL)
4924 name = h->root.root.string;
4925 else
4926 {
4927 name = (bfd_elf_string_from_elf_section
4928 (input_bfd, symtab_hdr->sh_link, sym->st_name));
4929 if (name == NULL || *name == '\0')
4930 name = bfd_section_name (input_bfd, sec);
4931 }
4932
4933 if (r_symndx != 0
4934 && r_type != R_AARCH64_NONE
4935 && r_type != R_AARCH64_NULL
4936 && (h == NULL
4937 || h->root.type == bfd_link_hash_defined
4938 || h->root.type == bfd_link_hash_defweak)
4939 && IS_AARCH64_TLS_RELOC (bfd_r_type) != (sym_type == STT_TLS))
4940 {
4941 (*_bfd_error_handler)
4942 ((sym_type == STT_TLS
4943 ? _("%B(%A+0x%lx): %s used with TLS symbol %s")
4944 : _("%B(%A+0x%lx): %s used with non-TLS symbol %s")),
4945 input_bfd,
4946 input_section, (long) rel->r_offset, howto->name, name);
4947 }
4948
4949 /* We relax only if we can see that there can be a valid transition
4950 from a reloc type to another.
4951 We call elfNN_aarch64_final_link_relocate unless we're completely
4952 done, i.e., the relaxation produced the final output we want. */
4953
4954 relaxed_bfd_r_type = aarch64_tls_transition (input_bfd, info, r_type,
4955 h, r_symndx);
4956 if (relaxed_bfd_r_type != bfd_r_type)
4957 {
4958 bfd_r_type = relaxed_bfd_r_type;
4959 howto = elfNN_aarch64_howto_from_bfd_reloc (bfd_r_type);
4960 BFD_ASSERT (howto != NULL);
4961 r_type = howto->type;
4962 r = elfNN_aarch64_tls_relax (globals, input_bfd, contents, rel, h);
4963 unresolved_reloc = 0;
4964 }
4965 else
4966 r = bfd_reloc_continue;
4967
4968 /* There may be multiple consecutive relocations for the
4969 same offset. In that case we are supposed to treat the
4970 output of each relocation as the addend for the next. */
4971 if (rel + 1 < relend
4972 && rel->r_offset == rel[1].r_offset
4973 && ELFNN_R_TYPE (rel[1].r_info) != R_AARCH64_NONE
4974 && ELFNN_R_TYPE (rel[1].r_info) != R_AARCH64_NULL)
4975 save_addend = TRUE;
4976 else
4977 save_addend = FALSE;
4978
4979 if (r == bfd_reloc_continue)
4980 r = elfNN_aarch64_final_link_relocate (howto, input_bfd, output_bfd,
4981 input_section, contents, rel,
4982 relocation, info, sec,
4983 h, &unresolved_reloc,
4984 save_addend, &addend, sym);
4985
4986 switch (elfNN_aarch64_bfd_reloc_from_type (r_type))
4987 {
4988 case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
4989 case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
4990 case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
4991 if (! symbol_got_offset_mark_p (input_bfd, h, r_symndx))
4992 {
4993 bfd_boolean need_relocs = FALSE;
4994 bfd_byte *loc;
4995 int indx;
4996 bfd_vma off;
4997
4998 off = symbol_got_offset (input_bfd, h, r_symndx);
4999 indx = h && h->dynindx != -1 ? h->dynindx : 0;
5000
5001 need_relocs =
5002 (info->shared || indx != 0) &&
5003 (h == NULL
5004 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
5005 || h->root.type != bfd_link_hash_undefweak);
5006
5007 BFD_ASSERT (globals->root.srelgot != NULL);
5008
5009 if (need_relocs)
5010 {
5011 Elf_Internal_Rela rela;
5012 rela.r_info = ELFNN_R_INFO (indx, AARCH64_R (TLS_DTPMOD));
5013 rela.r_addend = 0;
5014 rela.r_offset = globals->root.sgot->output_section->vma +
5015 globals->root.sgot->output_offset + off;
5016
5017
5018 loc = globals->root.srelgot->contents;
5019 loc += globals->root.srelgot->reloc_count++
5020 * RELOC_SIZE (htab);
5021 bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
5022
5023 if (indx == 0)
5024 {
5025 bfd_put_NN (output_bfd,
5026 relocation - dtpoff_base (info),
5027 globals->root.sgot->contents + off
5028 + GOT_ENTRY_SIZE);
5029 }
5030 else
5031 {
5032 /* This TLS symbol is global. We emit a
5033 relocation to fixup the tls offset at load
5034 time. */
5035 rela.r_info =
5036 ELFNN_R_INFO (indx, AARCH64_R (TLS_DTPREL));
5037 rela.r_addend = 0;
5038 rela.r_offset =
5039 (globals->root.sgot->output_section->vma
5040 + globals->root.sgot->output_offset + off
5041 + GOT_ENTRY_SIZE);
5042
5043 loc = globals->root.srelgot->contents;
5044 loc += globals->root.srelgot->reloc_count++
5045 * RELOC_SIZE (globals);
5046 bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
5047 bfd_put_NN (output_bfd, (bfd_vma) 0,
5048 globals->root.sgot->contents + off
5049 + GOT_ENTRY_SIZE);
5050 }
5051 }
5052 else
5053 {
5054 bfd_put_NN (output_bfd, (bfd_vma) 1,
5055 globals->root.sgot->contents + off);
5056 bfd_put_NN (output_bfd,
5057 relocation - dtpoff_base (info),
5058 globals->root.sgot->contents + off
5059 + GOT_ENTRY_SIZE);
5060 }
5061
5062 symbol_got_offset_mark (input_bfd, h, r_symndx);
5063 }
5064 break;
5065
5066 case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
5067 case BFD_RELOC_AARCH64_TLSIE_LDNN_GOTTPREL_LO12_NC:
5068 case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
5069 if (! symbol_got_offset_mark_p (input_bfd, h, r_symndx))
5070 {
5071 bfd_boolean need_relocs = FALSE;
5072 bfd_byte *loc;
5073 int indx;
5074 bfd_vma off;
5075
5076 off = symbol_got_offset (input_bfd, h, r_symndx);
5077
5078 indx = h && h->dynindx != -1 ? h->dynindx : 0;
5079
5080 need_relocs =
5081 (info->shared || indx != 0) &&
5082 (h == NULL
5083 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
5084 || h->root.type != bfd_link_hash_undefweak);
5085
5086 BFD_ASSERT (globals->root.srelgot != NULL);
5087
5088 if (need_relocs)
5089 {
5090 Elf_Internal_Rela rela;
5091
5092 if (indx == 0)
5093 rela.r_addend = relocation - dtpoff_base (info);
5094 else
5095 rela.r_addend = 0;
5096
5097 rela.r_info = ELFNN_R_INFO (indx, AARCH64_R (TLS_TPREL));
5098 rela.r_offset = globals->root.sgot->output_section->vma +
5099 globals->root.sgot->output_offset + off;
5100
5101 loc = globals->root.srelgot->contents;
5102 loc += globals->root.srelgot->reloc_count++
5103 * RELOC_SIZE (htab);
5104
5105 bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
5106
5107 bfd_put_NN (output_bfd, rela.r_addend,
5108 globals->root.sgot->contents + off);
5109 }
5110 else
5111 bfd_put_NN (output_bfd, relocation - tpoff_base (info),
5112 globals->root.sgot->contents + off);
5113
5114 symbol_got_offset_mark (input_bfd, h, r_symndx);
5115 }
5116 break;
5117
5118 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
5119 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
5120 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
5121 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
5122 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
5123 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
5124 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
5125 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
5126 break;
5127
5128 case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
5129 case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
5130 case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
5131 case BFD_RELOC_AARCH64_TLSDESC_LDNN_LO12_NC:
5132 case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
5133 if (! symbol_tlsdesc_got_offset_mark_p (input_bfd, h, r_symndx))
5134 {
5135 bfd_boolean need_relocs = FALSE;
5136 int indx = h && h->dynindx != -1 ? h->dynindx : 0;
5137 bfd_vma off = symbol_tlsdesc_got_offset (input_bfd, h, r_symndx);
5138
5139 need_relocs = (h == NULL
5140 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
5141 || h->root.type != bfd_link_hash_undefweak);
5142
5143 BFD_ASSERT (globals->root.srelgot != NULL);
5144 BFD_ASSERT (globals->root.sgot != NULL);
5145
5146 if (need_relocs)
5147 {
5148 bfd_byte *loc;
5149 Elf_Internal_Rela rela;
5150 rela.r_info = ELFNN_R_INFO (indx, AARCH64_R (TLSDESC));
5151
5152 rela.r_addend = 0;
5153 rela.r_offset = (globals->root.sgotplt->output_section->vma
5154 + globals->root.sgotplt->output_offset
5155 + off + globals->sgotplt_jump_table_size);
5156
5157 if (indx == 0)
5158 rela.r_addend = relocation - dtpoff_base (info);
5159
5160 /* Allocate the next available slot in the PLT reloc
5161 section to hold our R_AARCH64_TLSDESC, the next
5162 available slot is determined from reloc_count,
5163 which we step. But note, reloc_count was
5164 artifically moved down while allocating slots for
5165 real PLT relocs such that all of the PLT relocs
5166 will fit above the initial reloc_count and the
5167 extra stuff will fit below. */
5168 loc = globals->root.srelplt->contents;
5169 loc += globals->root.srelplt->reloc_count++
5170 * RELOC_SIZE (globals);
5171
5172 bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
5173
5174 bfd_put_NN (output_bfd, (bfd_vma) 0,
5175 globals->root.sgotplt->contents + off +
5176 globals->sgotplt_jump_table_size);
5177 bfd_put_NN (output_bfd, (bfd_vma) 0,
5178 globals->root.sgotplt->contents + off +
5179 globals->sgotplt_jump_table_size +
5180 GOT_ENTRY_SIZE);
5181 }
5182
5183 symbol_tlsdesc_got_offset_mark (input_bfd, h, r_symndx);
5184 }
5185 break;
5186 default:
5187 break;
5188 }
5189
5190 if (!save_addend)
5191 addend = 0;
5192
5193
5194 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
5195 because such sections are not SEC_ALLOC and thus ld.so will
5196 not process them. */
5197 if (unresolved_reloc
5198 && !((input_section->flags & SEC_DEBUGGING) != 0
5199 && h->def_dynamic)
5200 && _bfd_elf_section_offset (output_bfd, info, input_section,
5201 +rel->r_offset) != (bfd_vma) - 1)
5202 {
5203 (*_bfd_error_handler)
5204 (_
5205 ("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
5206 input_bfd, input_section, (long) rel->r_offset, howto->name,
5207 h->root.root.string);
5208 return FALSE;
5209 }
5210
5211 if (r != bfd_reloc_ok && r != bfd_reloc_continue)
5212 {
5213 switch (r)
5214 {
5215 case bfd_reloc_overflow:
5216 /* If the overflowing reloc was to an undefined symbol,
5217 we have already printed one error message and there
5218 is no point complaining again. */
5219 if ((!h ||
5220 h->root.type != bfd_link_hash_undefined)
5221 && (!((*info->callbacks->reloc_overflow)
5222 (info, (h ? &h->root : NULL), name, howto->name,
5223 (bfd_vma) 0, input_bfd, input_section,
5224 rel->r_offset))))
5225 return FALSE;
5226 break;
5227
5228 case bfd_reloc_undefined:
5229 if (!((*info->callbacks->undefined_symbol)
5230 (info, name, input_bfd, input_section,
5231 rel->r_offset, TRUE)))
5232 return FALSE;
5233 break;
5234
5235 case bfd_reloc_outofrange:
5236 error_message = _("out of range");
5237 goto common_error;
5238
5239 case bfd_reloc_notsupported:
5240 error_message = _("unsupported relocation");
5241 goto common_error;
5242
5243 case bfd_reloc_dangerous:
5244 /* error_message should already be set. */
5245 goto common_error;
5246
5247 default:
5248 error_message = _("unknown error");
5249 /* Fall through. */
5250
5251 common_error:
5252 BFD_ASSERT (error_message != NULL);
5253 if (!((*info->callbacks->reloc_dangerous)
5254 (info, error_message, input_bfd, input_section,
5255 rel->r_offset)))
5256 return FALSE;
5257 break;
5258 }
5259 }
5260 }
5261
5262 return TRUE;
5263 }
5264
5265 /* Set the right machine number. */
5266
5267 static bfd_boolean
5268 elfNN_aarch64_object_p (bfd *abfd)
5269 {
5270 #if ARCH_SIZE == 32
5271 bfd_default_set_arch_mach (abfd, bfd_arch_aarch64, bfd_mach_aarch64_ilp32);
5272 #else
5273 bfd_default_set_arch_mach (abfd, bfd_arch_aarch64, bfd_mach_aarch64);
5274 #endif
5275 return TRUE;
5276 }
5277
5278 /* Function to keep AArch64 specific flags in the ELF header. */
5279
5280 static bfd_boolean
5281 elfNN_aarch64_set_private_flags (bfd *abfd, flagword flags)
5282 {
5283 if (elf_flags_init (abfd) && elf_elfheader (abfd)->e_flags != flags)
5284 {
5285 }
5286 else
5287 {
5288 elf_elfheader (abfd)->e_flags = flags;
5289 elf_flags_init (abfd) = TRUE;
5290 }
5291
5292 return TRUE;
5293 }
5294
5295 /* Merge backend specific data from an object file to the output
5296 object file when linking. */
5297
5298 static bfd_boolean
5299 elfNN_aarch64_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
5300 {
5301 flagword out_flags;
5302 flagword in_flags;
5303 bfd_boolean flags_compatible = TRUE;
5304 asection *sec;
5305
5306 /* Check if we have the same endianess. */
5307 if (!_bfd_generic_verify_endian_match (ibfd, obfd))
5308 return FALSE;
5309
5310 if (!is_aarch64_elf (ibfd) || !is_aarch64_elf (obfd))
5311 return TRUE;
5312
5313 /* The input BFD must have had its flags initialised. */
5314 /* The following seems bogus to me -- The flags are initialized in
5315 the assembler but I don't think an elf_flags_init field is
5316 written into the object. */
5317 /* BFD_ASSERT (elf_flags_init (ibfd)); */
5318
5319 in_flags = elf_elfheader (ibfd)->e_flags;
5320 out_flags = elf_elfheader (obfd)->e_flags;
5321
5322 if (!elf_flags_init (obfd))
5323 {
5324 /* If the input is the default architecture and had the default
5325 flags then do not bother setting the flags for the output
5326 architecture, instead allow future merges to do this. If no
5327 future merges ever set these flags then they will retain their
5328 uninitialised values, which surprise surprise, correspond
5329 to the default values. */
5330 if (bfd_get_arch_info (ibfd)->the_default
5331 && elf_elfheader (ibfd)->e_flags == 0)
5332 return TRUE;
5333
5334 elf_flags_init (obfd) = TRUE;
5335 elf_elfheader (obfd)->e_flags = in_flags;
5336
5337 if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
5338 && bfd_get_arch_info (obfd)->the_default)
5339 return bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
5340 bfd_get_mach (ibfd));
5341
5342 return TRUE;
5343 }
5344
5345 /* Identical flags must be compatible. */
5346 if (in_flags == out_flags)
5347 return TRUE;
5348
5349 /* Check to see if the input BFD actually contains any sections. If
5350 not, its flags may not have been initialised either, but it
5351 cannot actually cause any incompatiblity. Do not short-circuit
5352 dynamic objects; their section list may be emptied by
5353 elf_link_add_object_symbols.
5354
5355 Also check to see if there are no code sections in the input.
5356 In this case there is no need to check for code specific flags.
5357 XXX - do we need to worry about floating-point format compatability
5358 in data sections ? */
5359 if (!(ibfd->flags & DYNAMIC))
5360 {
5361 bfd_boolean null_input_bfd = TRUE;
5362 bfd_boolean only_data_sections = TRUE;
5363
5364 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
5365 {
5366 if ((bfd_get_section_flags (ibfd, sec)
5367 & (SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS))
5368 == (SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS))
5369 only_data_sections = FALSE;
5370
5371 null_input_bfd = FALSE;
5372 break;
5373 }
5374
5375 if (null_input_bfd || only_data_sections)
5376 return TRUE;
5377 }
5378
5379 return flags_compatible;
5380 }
5381
5382 /* Display the flags field. */
5383
5384 static bfd_boolean
5385 elfNN_aarch64_print_private_bfd_data (bfd *abfd, void *ptr)
5386 {
5387 FILE *file = (FILE *) ptr;
5388 unsigned long flags;
5389
5390 BFD_ASSERT (abfd != NULL && ptr != NULL);
5391
5392 /* Print normal ELF private data. */
5393 _bfd_elf_print_private_bfd_data (abfd, ptr);
5394
5395 flags = elf_elfheader (abfd)->e_flags;
5396 /* Ignore init flag - it may not be set, despite the flags field
5397 containing valid data. */
5398
5399 /* xgettext:c-format */
5400 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
5401
5402 if (flags)
5403 fprintf (file, _("<Unrecognised flag bits set>"));
5404
5405 fputc ('\n', file);
5406
5407 return TRUE;
5408 }
5409
5410 /* Update the got entry reference counts for the section being removed. */
5411
5412 static bfd_boolean
5413 elfNN_aarch64_gc_sweep_hook (bfd *abfd,
5414 struct bfd_link_info *info,
5415 asection *sec,
5416 const Elf_Internal_Rela * relocs)
5417 {
5418 struct elf_aarch64_link_hash_table *htab;
5419 Elf_Internal_Shdr *symtab_hdr;
5420 struct elf_link_hash_entry **sym_hashes;
5421 struct elf_aarch64_local_symbol *locals;
5422 const Elf_Internal_Rela *rel, *relend;
5423
5424 if (info->relocatable)
5425 return TRUE;
5426
5427 htab = elf_aarch64_hash_table (info);
5428
5429 if (htab == NULL)
5430 return FALSE;
5431
5432 elf_section_data (sec)->local_dynrel = NULL;
5433
5434 symtab_hdr = &elf_symtab_hdr (abfd);
5435 sym_hashes = elf_sym_hashes (abfd);
5436
5437 locals = elf_aarch64_locals (abfd);
5438
5439 relend = relocs + sec->reloc_count;
5440 for (rel = relocs; rel < relend; rel++)
5441 {
5442 unsigned long r_symndx;
5443 unsigned int r_type;
5444 struct elf_link_hash_entry *h = NULL;
5445
5446 r_symndx = ELFNN_R_SYM (rel->r_info);
5447
5448 if (r_symndx >= symtab_hdr->sh_info)
5449 {
5450
5451 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
5452 while (h->root.type == bfd_link_hash_indirect
5453 || h->root.type == bfd_link_hash_warning)
5454 h = (struct elf_link_hash_entry *) h->root.u.i.link;
5455 }
5456 else
5457 {
5458 Elf_Internal_Sym *isym;
5459
5460 /* A local symbol. */
5461 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
5462 abfd, r_symndx);
5463
5464 /* Check relocation against local STT_GNU_IFUNC symbol. */
5465 if (isym != NULL
5466 && ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
5467 {
5468 h = elfNN_aarch64_get_local_sym_hash (htab, abfd, rel, FALSE);
5469 if (h == NULL)
5470 abort ();
5471 }
5472 }
5473
5474 if (h)
5475 {
5476 struct elf_aarch64_link_hash_entry *eh;
5477 struct elf_dyn_relocs **pp;
5478 struct elf_dyn_relocs *p;
5479
5480 eh = (struct elf_aarch64_link_hash_entry *) h;
5481
5482 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
5483 if (p->sec == sec)
5484 {
5485 /* Everything must go for SEC. */
5486 *pp = p->next;
5487 break;
5488 }
5489 }
5490
5491 r_type = ELFNN_R_TYPE (rel->r_info);
5492 switch (aarch64_tls_transition (abfd,info, r_type, h ,r_symndx))
5493 {
5494 case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
5495 case BFD_RELOC_AARCH64_GOT_LD_PREL19:
5496 case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
5497 case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
5498 case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
5499 case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
5500 case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
5501 case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
5502 case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
5503 case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
5504 case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
5505 case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
5506 case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
5507 case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
5508 case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
5509 case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
5510 case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
5511 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
5512 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
5513 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
5514 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
5515 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
5516 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
5517 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
5518 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
5519 if (h != NULL)
5520 {
5521 if (h->got.refcount > 0)
5522 h->got.refcount -= 1;
5523
5524 if (h->type == STT_GNU_IFUNC)
5525 {
5526 if (h->plt.refcount > 0)
5527 h->plt.refcount -= 1;
5528 }
5529 }
5530 else if (locals != NULL)
5531 {
5532 if (locals[r_symndx].got_refcount > 0)
5533 locals[r_symndx].got_refcount -= 1;
5534 }
5535 break;
5536
5537 case BFD_RELOC_AARCH64_CALL26:
5538 case BFD_RELOC_AARCH64_JUMP26:
5539 /* If this is a local symbol then we resolve it
5540 directly without creating a PLT entry. */
5541 if (h == NULL)
5542 continue;
5543
5544 if (h->plt.refcount > 0)
5545 h->plt.refcount -= 1;
5546 break;
5547
5548 case BFD_RELOC_AARCH64_MOVW_G0_NC:
5549 case BFD_RELOC_AARCH64_MOVW_G1_NC:
5550 case BFD_RELOC_AARCH64_MOVW_G2_NC:
5551 case BFD_RELOC_AARCH64_MOVW_G3:
5552 case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
5553 case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
5554 case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
5555 case BFD_RELOC_AARCH64_NN:
5556 if (h != NULL && info->executable)
5557 {
5558 if (h->plt.refcount > 0)
5559 h->plt.refcount -= 1;
5560 }
5561 break;
5562
5563 default:
5564 break;
5565 }
5566 }
5567
5568 return TRUE;
5569 }
5570
5571 /* Adjust a symbol defined by a dynamic object and referenced by a
5572 regular object. The current definition is in some section of the
5573 dynamic object, but we're not including those sections. We have to
5574 change the definition to something the rest of the link can
5575 understand. */
5576
5577 static bfd_boolean
5578 elfNN_aarch64_adjust_dynamic_symbol (struct bfd_link_info *info,
5579 struct elf_link_hash_entry *h)
5580 {
5581 struct elf_aarch64_link_hash_table *htab;
5582 asection *s;
5583
5584 /* If this is a function, put it in the procedure linkage table. We
5585 will fill in the contents of the procedure linkage table later,
5586 when we know the address of the .got section. */
5587 if (h->type == STT_FUNC || h->type == STT_GNU_IFUNC || h->needs_plt)
5588 {
5589 if (h->plt.refcount <= 0
5590 || (h->type != STT_GNU_IFUNC
5591 && (SYMBOL_CALLS_LOCAL (info, h)
5592 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
5593 && h->root.type == bfd_link_hash_undefweak))))
5594 {
5595 /* This case can occur if we saw a CALL26 reloc in
5596 an input file, but the symbol wasn't referred to
5597 by a dynamic object or all references were
5598 garbage collected. In which case we can end up
5599 resolving. */
5600 h->plt.offset = (bfd_vma) - 1;
5601 h->needs_plt = 0;
5602 }
5603
5604 return TRUE;
5605 }
5606 else
5607 /* It's possible that we incorrectly decided a .plt reloc was
5608 needed for an R_X86_64_PC32 reloc to a non-function sym in
5609 check_relocs. We can't decide accurately between function and
5610 non-function syms in check-relocs; Objects loaded later in
5611 the link may change h->type. So fix it now. */
5612 h->plt.offset = (bfd_vma) - 1;
5613
5614
5615 /* If this is a weak symbol, and there is a real definition, the
5616 processor independent code will have arranged for us to see the
5617 real definition first, and we can just use the same value. */
5618 if (h->u.weakdef != NULL)
5619 {
5620 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
5621 || h->u.weakdef->root.type == bfd_link_hash_defweak);
5622 h->root.u.def.section = h->u.weakdef->root.u.def.section;
5623 h->root.u.def.value = h->u.weakdef->root.u.def.value;
5624 if (ELIMINATE_COPY_RELOCS || info->nocopyreloc)
5625 h->non_got_ref = h->u.weakdef->non_got_ref;
5626 return TRUE;
5627 }
5628
5629 /* If we are creating a shared library, we must presume that the
5630 only references to the symbol are via the global offset table.
5631 For such cases we need not do anything here; the relocations will
5632 be handled correctly by relocate_section. */
5633 if (info->shared)
5634 return TRUE;
5635
5636 /* If there are no references to this symbol that do not use the
5637 GOT, we don't need to generate a copy reloc. */
5638 if (!h->non_got_ref)
5639 return TRUE;
5640
5641 /* If -z nocopyreloc was given, we won't generate them either. */
5642 if (info->nocopyreloc)
5643 {
5644 h->non_got_ref = 0;
5645 return TRUE;
5646 }
5647
5648 /* We must allocate the symbol in our .dynbss section, which will
5649 become part of the .bss section of the executable. There will be
5650 an entry for this symbol in the .dynsym section. The dynamic
5651 object will contain position independent code, so all references
5652 from the dynamic object to this symbol will go through the global
5653 offset table. The dynamic linker will use the .dynsym entry to
5654 determine the address it must put in the global offset table, so
5655 both the dynamic object and the regular object will refer to the
5656 same memory location for the variable. */
5657
5658 htab = elf_aarch64_hash_table (info);
5659
5660 /* We must generate a R_AARCH64_COPY reloc to tell the dynamic linker
5661 to copy the initial value out of the dynamic object and into the
5662 runtime process image. */
5663 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
5664 {
5665 htab->srelbss->size += RELOC_SIZE (htab);
5666 h->needs_copy = 1;
5667 }
5668
5669 s = htab->sdynbss;
5670
5671 return _bfd_elf_adjust_dynamic_copy (info, h, s);
5672
5673 }
5674
5675 static bfd_boolean
5676 elfNN_aarch64_allocate_local_symbols (bfd *abfd, unsigned number)
5677 {
5678 struct elf_aarch64_local_symbol *locals;
5679 locals = elf_aarch64_locals (abfd);
5680 if (locals == NULL)
5681 {
5682 locals = (struct elf_aarch64_local_symbol *)
5683 bfd_zalloc (abfd, number * sizeof (struct elf_aarch64_local_symbol));
5684 if (locals == NULL)
5685 return FALSE;
5686 elf_aarch64_locals (abfd) = locals;
5687 }
5688 return TRUE;
5689 }
5690
5691 /* Create the .got section to hold the global offset table. */
5692
5693 static bfd_boolean
5694 aarch64_elf_create_got_section (bfd *abfd, struct bfd_link_info *info)
5695 {
5696 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
5697 flagword flags;
5698 asection *s;
5699 struct elf_link_hash_entry *h;
5700 struct elf_link_hash_table *htab = elf_hash_table (info);
5701
5702 /* This function may be called more than once. */
5703 s = bfd_get_linker_section (abfd, ".got");
5704 if (s != NULL)
5705 return TRUE;
5706
5707 flags = bed->dynamic_sec_flags;
5708
5709 s = bfd_make_section_anyway_with_flags (abfd,
5710 (bed->rela_plts_and_copies_p
5711 ? ".rela.got" : ".rel.got"),
5712 (bed->dynamic_sec_flags
5713 | SEC_READONLY));
5714 if (s == NULL
5715 || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
5716 return FALSE;
5717 htab->srelgot = s;
5718
5719 s = bfd_make_section_anyway_with_flags (abfd, ".got", flags);
5720 if (s == NULL
5721 || !bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
5722 return FALSE;
5723 htab->sgot = s;
5724 htab->sgot->size += GOT_ENTRY_SIZE;
5725
5726 if (bed->want_got_sym)
5727 {
5728 /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
5729 (or .got.plt) section. We don't do this in the linker script
5730 because we don't want to define the symbol if we are not creating
5731 a global offset table. */
5732 h = _bfd_elf_define_linkage_sym (abfd, info, s,
5733 "_GLOBAL_OFFSET_TABLE_");
5734 elf_hash_table (info)->hgot = h;
5735 if (h == NULL)
5736 return FALSE;
5737 }
5738
5739 if (bed->want_got_plt)
5740 {
5741 s = bfd_make_section_anyway_with_flags (abfd, ".got.plt", flags);
5742 if (s == NULL
5743 || !bfd_set_section_alignment (abfd, s,
5744 bed->s->log_file_align))
5745 return FALSE;
5746 htab->sgotplt = s;
5747 }
5748
5749 /* The first bit of the global offset table is the header. */
5750 s->size += bed->got_header_size;
5751
5752 return TRUE;
5753 }
5754
5755 /* Look through the relocs for a section during the first phase. */
5756
5757 static bfd_boolean
5758 elfNN_aarch64_check_relocs (bfd *abfd, struct bfd_link_info *info,
5759 asection *sec, const Elf_Internal_Rela *relocs)
5760 {
5761 Elf_Internal_Shdr *symtab_hdr;
5762 struct elf_link_hash_entry **sym_hashes;
5763 const Elf_Internal_Rela *rel;
5764 const Elf_Internal_Rela *rel_end;
5765 asection *sreloc;
5766
5767 struct elf_aarch64_link_hash_table *htab;
5768
5769 if (info->relocatable)
5770 return TRUE;
5771
5772 BFD_ASSERT (is_aarch64_elf (abfd));
5773
5774 htab = elf_aarch64_hash_table (info);
5775 sreloc = NULL;
5776
5777 symtab_hdr = &elf_symtab_hdr (abfd);
5778 sym_hashes = elf_sym_hashes (abfd);
5779
5780 rel_end = relocs + sec->reloc_count;
5781 for (rel = relocs; rel < rel_end; rel++)
5782 {
5783 struct elf_link_hash_entry *h;
5784 unsigned long r_symndx;
5785 unsigned int r_type;
5786 bfd_reloc_code_real_type bfd_r_type;
5787 Elf_Internal_Sym *isym;
5788
5789 r_symndx = ELFNN_R_SYM (rel->r_info);
5790 r_type = ELFNN_R_TYPE (rel->r_info);
5791
5792 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
5793 {
5794 (*_bfd_error_handler) (_("%B: bad symbol index: %d"), abfd,
5795 r_symndx);
5796 return FALSE;
5797 }
5798
5799 if (r_symndx < symtab_hdr->sh_info)
5800 {
5801 /* A local symbol. */
5802 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
5803 abfd, r_symndx);
5804 if (isym == NULL)
5805 return FALSE;
5806
5807 /* Check relocation against local STT_GNU_IFUNC symbol. */
5808 if (ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
5809 {
5810 h = elfNN_aarch64_get_local_sym_hash (htab, abfd, rel,
5811 TRUE);
5812 if (h == NULL)
5813 return FALSE;
5814
5815 /* Fake a STT_GNU_IFUNC symbol. */
5816 h->type = STT_GNU_IFUNC;
5817 h->def_regular = 1;
5818 h->ref_regular = 1;
5819 h->forced_local = 1;
5820 h->root.type = bfd_link_hash_defined;
5821 }
5822 else
5823 h = NULL;
5824 }
5825 else
5826 {
5827 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
5828 while (h->root.type == bfd_link_hash_indirect
5829 || h->root.type == bfd_link_hash_warning)
5830 h = (struct elf_link_hash_entry *) h->root.u.i.link;
5831
5832 /* PR15323, ref flags aren't set for references in the same
5833 object. */
5834 h->root.non_ir_ref = 1;
5835 }
5836
5837 /* Could be done earlier, if h were already available. */
5838 bfd_r_type = aarch64_tls_transition (abfd, info, r_type, h, r_symndx);
5839
5840 if (h != NULL)
5841 {
5842 /* Create the ifunc sections for static executables. If we
5843 never see an indirect function symbol nor we are building
5844 a static executable, those sections will be empty and
5845 won't appear in output. */
5846 switch (bfd_r_type)
5847 {
5848 default:
5849 break;
5850
5851 case BFD_RELOC_AARCH64_NN:
5852 case BFD_RELOC_AARCH64_CALL26:
5853 case BFD_RELOC_AARCH64_JUMP26:
5854 case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
5855 case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
5856 case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
5857 case BFD_RELOC_AARCH64_GOT_LD_PREL19:
5858 case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
5859 case BFD_RELOC_AARCH64_ADD_LO12:
5860 if (htab->root.dynobj == NULL)
5861 htab->root.dynobj = abfd;
5862 if (!_bfd_elf_create_ifunc_sections (htab->root.dynobj, info))
5863 return FALSE;
5864 break;
5865 }
5866
5867 /* It is referenced by a non-shared object. */
5868 h->ref_regular = 1;
5869 h->root.non_ir_ref = 1;
5870 }
5871
5872 switch (bfd_r_type)
5873 {
5874 case BFD_RELOC_AARCH64_NN:
5875
5876 /* We don't need to handle relocs into sections not going into
5877 the "real" output. */
5878 if ((sec->flags & SEC_ALLOC) == 0)
5879 break;
5880
5881 if (h != NULL)
5882 {
5883 if (!info->shared)
5884 h->non_got_ref = 1;
5885
5886 h->plt.refcount += 1;
5887 h->pointer_equality_needed = 1;
5888 }
5889
5890 /* No need to do anything if we're not creating a shared
5891 object. */
5892 if (! info->shared)
5893 break;
5894
5895 {
5896 struct elf_dyn_relocs *p;
5897 struct elf_dyn_relocs **head;
5898
5899 /* We must copy these reloc types into the output file.
5900 Create a reloc section in dynobj and make room for
5901 this reloc. */
5902 if (sreloc == NULL)
5903 {
5904 if (htab->root.dynobj == NULL)
5905 htab->root.dynobj = abfd;
5906
5907 sreloc = _bfd_elf_make_dynamic_reloc_section
5908 (sec, htab->root.dynobj, LOG_FILE_ALIGN, abfd, /*rela? */ TRUE);
5909
5910 if (sreloc == NULL)
5911 return FALSE;
5912 }
5913
5914 /* If this is a global symbol, we count the number of
5915 relocations we need for this symbol. */
5916 if (h != NULL)
5917 {
5918 struct elf_aarch64_link_hash_entry *eh;
5919 eh = (struct elf_aarch64_link_hash_entry *) h;
5920 head = &eh->dyn_relocs;
5921 }
5922 else
5923 {
5924 /* Track dynamic relocs needed for local syms too.
5925 We really need local syms available to do this
5926 easily. Oh well. */
5927
5928 asection *s;
5929 void **vpp;
5930
5931 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
5932 abfd, r_symndx);
5933 if (isym == NULL)
5934 return FALSE;
5935
5936 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
5937 if (s == NULL)
5938 s = sec;
5939
5940 /* Beware of type punned pointers vs strict aliasing
5941 rules. */
5942 vpp = &(elf_section_data (s)->local_dynrel);
5943 head = (struct elf_dyn_relocs **) vpp;
5944 }
5945
5946 p = *head;
5947 if (p == NULL || p->sec != sec)
5948 {
5949 bfd_size_type amt = sizeof *p;
5950 p = ((struct elf_dyn_relocs *)
5951 bfd_zalloc (htab->root.dynobj, amt));
5952 if (p == NULL)
5953 return FALSE;
5954 p->next = *head;
5955 *head = p;
5956 p->sec = sec;
5957 }
5958
5959 p->count += 1;
5960
5961 }
5962 break;
5963
5964 /* RR: We probably want to keep a consistency check that
5965 there are no dangling GOT_PAGE relocs. */
5966 case BFD_RELOC_AARCH64_ADR_GOT_PAGE:
5967 case BFD_RELOC_AARCH64_GOT_LD_PREL19:
5968 case BFD_RELOC_AARCH64_LD32_GOT_LO12_NC:
5969 case BFD_RELOC_AARCH64_LD64_GOT_LO12_NC:
5970 case BFD_RELOC_AARCH64_TLSDESC_ADD_LO12_NC:
5971 case BFD_RELOC_AARCH64_TLSDESC_ADR_PAGE21:
5972 case BFD_RELOC_AARCH64_TLSDESC_ADR_PREL21:
5973 case BFD_RELOC_AARCH64_TLSDESC_LD32_LO12_NC:
5974 case BFD_RELOC_AARCH64_TLSDESC_LD64_LO12_NC:
5975 case BFD_RELOC_AARCH64_TLSDESC_LD_PREL19:
5976 case BFD_RELOC_AARCH64_TLSGD_ADD_LO12_NC:
5977 case BFD_RELOC_AARCH64_TLSGD_ADR_PAGE21:
5978 case BFD_RELOC_AARCH64_TLSGD_ADR_PREL21:
5979 case BFD_RELOC_AARCH64_TLSIE_ADR_GOTTPREL_PAGE21:
5980 case BFD_RELOC_AARCH64_TLSIE_LD32_GOTTPREL_LO12_NC:
5981 case BFD_RELOC_AARCH64_TLSIE_LD64_GOTTPREL_LO12_NC:
5982 case BFD_RELOC_AARCH64_TLSIE_LD_GOTTPREL_PREL19:
5983 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_HI12:
5984 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12:
5985 case BFD_RELOC_AARCH64_TLSLE_ADD_TPREL_LO12_NC:
5986 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0:
5987 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G0_NC:
5988 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1:
5989 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G1_NC:
5990 case BFD_RELOC_AARCH64_TLSLE_MOVW_TPREL_G2:
5991 {
5992 unsigned got_type;
5993 unsigned old_got_type;
5994
5995 got_type = aarch64_reloc_got_type (bfd_r_type);
5996
5997 if (h)
5998 {
5999 h->got.refcount += 1;
6000 old_got_type = elf_aarch64_hash_entry (h)->got_type;
6001 }
6002 else
6003 {
6004 struct elf_aarch64_local_symbol *locals;
6005
6006 if (!elfNN_aarch64_allocate_local_symbols
6007 (abfd, symtab_hdr->sh_info))
6008 return FALSE;
6009
6010 locals = elf_aarch64_locals (abfd);
6011 BFD_ASSERT (r_symndx < symtab_hdr->sh_info);
6012 locals[r_symndx].got_refcount += 1;
6013 old_got_type = locals[r_symndx].got_type;
6014 }
6015
6016 /* If a variable is accessed with both general dynamic TLS
6017 methods, two slots may be created. */
6018 if (GOT_TLS_GD_ANY_P (old_got_type) && GOT_TLS_GD_ANY_P (got_type))
6019 got_type |= old_got_type;
6020
6021 /* We will already have issued an error message if there
6022 is a TLS/non-TLS mismatch, based on the symbol type.
6023 So just combine any TLS types needed. */
6024 if (old_got_type != GOT_UNKNOWN && old_got_type != GOT_NORMAL
6025 && got_type != GOT_NORMAL)
6026 got_type |= old_got_type;
6027
6028 /* If the symbol is accessed by both IE and GD methods, we
6029 are able to relax. Turn off the GD flag, without
6030 messing up with any other kind of TLS types that may be
6031 involved. */
6032 if ((got_type & GOT_TLS_IE) && GOT_TLS_GD_ANY_P (got_type))
6033 got_type &= ~ (GOT_TLSDESC_GD | GOT_TLS_GD);
6034
6035 if (old_got_type != got_type)
6036 {
6037 if (h != NULL)
6038 elf_aarch64_hash_entry (h)->got_type = got_type;
6039 else
6040 {
6041 struct elf_aarch64_local_symbol *locals;
6042 locals = elf_aarch64_locals (abfd);
6043 BFD_ASSERT (r_symndx < symtab_hdr->sh_info);
6044 locals[r_symndx].got_type = got_type;
6045 }
6046 }
6047
6048 if (htab->root.dynobj == NULL)
6049 htab->root.dynobj = abfd;
6050 if (! aarch64_elf_create_got_section (htab->root.dynobj, info))
6051 return FALSE;
6052 break;
6053 }
6054
6055 case BFD_RELOC_AARCH64_MOVW_G0_NC:
6056 case BFD_RELOC_AARCH64_MOVW_G1_NC:
6057 case BFD_RELOC_AARCH64_MOVW_G2_NC:
6058 case BFD_RELOC_AARCH64_MOVW_G3:
6059 if (info->shared)
6060 {
6061 int howto_index = bfd_r_type - BFD_RELOC_AARCH64_RELOC_START;
6062 (*_bfd_error_handler)
6063 (_("%B: relocation %s against `%s' can not be used when making "
6064 "a shared object; recompile with -fPIC"),
6065 abfd, elfNN_aarch64_howto_table[howto_index].name,
6066 (h) ? h->root.root.string : "a local symbol");
6067 bfd_set_error (bfd_error_bad_value);
6068 return FALSE;
6069 }
6070
6071 case BFD_RELOC_AARCH64_ADR_HI21_NC_PCREL:
6072 case BFD_RELOC_AARCH64_ADR_HI21_PCREL:
6073 case BFD_RELOC_AARCH64_ADR_LO21_PCREL:
6074 if (h != NULL && info->executable)
6075 {
6076 /* If this reloc is in a read-only section, we might
6077 need a copy reloc. We can't check reliably at this
6078 stage whether the section is read-only, as input
6079 sections have not yet been mapped to output sections.
6080 Tentatively set the flag for now, and correct in
6081 adjust_dynamic_symbol. */
6082 h->non_got_ref = 1;
6083 h->plt.refcount += 1;
6084 h->pointer_equality_needed = 1;
6085 }
6086 /* FIXME:: RR need to handle these in shared libraries
6087 and essentially bomb out as these being non-PIC
6088 relocations in shared libraries. */
6089 break;
6090
6091 case BFD_RELOC_AARCH64_CALL26:
6092 case BFD_RELOC_AARCH64_JUMP26:
6093 /* If this is a local symbol then we resolve it
6094 directly without creating a PLT entry. */
6095 if (h == NULL)
6096 continue;
6097
6098 h->needs_plt = 1;
6099 if (h->plt.refcount <= 0)
6100 h->plt.refcount = 1;
6101 else
6102 h->plt.refcount += 1;
6103 break;
6104
6105 default:
6106 break;
6107 }
6108 }
6109
6110 return TRUE;
6111 }
6112
6113 /* Treat mapping symbols as special target symbols. */
6114
6115 static bfd_boolean
6116 elfNN_aarch64_is_target_special_symbol (bfd *abfd ATTRIBUTE_UNUSED,
6117 asymbol *sym)
6118 {
6119 return bfd_is_aarch64_special_symbol_name (sym->name,
6120 BFD_AARCH64_SPECIAL_SYM_TYPE_ANY);
6121 }
6122
6123 /* This is a copy of elf_find_function () from elf.c except that
6124 AArch64 mapping symbols are ignored when looking for function names. */
6125
6126 static bfd_boolean
6127 aarch64_elf_find_function (bfd *abfd ATTRIBUTE_UNUSED,
6128 asymbol **symbols,
6129 asection *section,
6130 bfd_vma offset,
6131 const char **filename_ptr,
6132 const char **functionname_ptr)
6133 {
6134 const char *filename = NULL;
6135 asymbol *func = NULL;
6136 bfd_vma low_func = 0;
6137 asymbol **p;
6138
6139 for (p = symbols; *p != NULL; p++)
6140 {
6141 elf_symbol_type *q;
6142
6143 q = (elf_symbol_type *) * p;
6144
6145 switch (ELF_ST_TYPE (q->internal_elf_sym.st_info))
6146 {
6147 default:
6148 break;
6149 case STT_FILE:
6150 filename = bfd_asymbol_name (&q->symbol);
6151 break;
6152 case STT_FUNC:
6153 case STT_NOTYPE:
6154 /* Skip mapping symbols. */
6155 if ((q->symbol.flags & BSF_LOCAL)
6156 && (bfd_is_aarch64_special_symbol_name
6157 (q->symbol.name, BFD_AARCH64_SPECIAL_SYM_TYPE_ANY)))
6158 continue;
6159 /* Fall through. */
6160 if (bfd_get_section (&q->symbol) == section
6161 && q->symbol.value >= low_func && q->symbol.value <= offset)
6162 {
6163 func = (asymbol *) q;
6164 low_func = q->symbol.value;
6165 }
6166 break;
6167 }
6168 }
6169
6170 if (func == NULL)
6171 return FALSE;
6172
6173 if (filename_ptr)
6174 *filename_ptr = filename;
6175 if (functionname_ptr)
6176 *functionname_ptr = bfd_asymbol_name (func);
6177
6178 return TRUE;
6179 }
6180
6181
6182 /* Find the nearest line to a particular section and offset, for error
6183 reporting. This code is a duplicate of the code in elf.c, except
6184 that it uses aarch64_elf_find_function. */
6185
6186 static bfd_boolean
6187 elfNN_aarch64_find_nearest_line (bfd *abfd,
6188 asymbol **symbols,
6189 asection *section,
6190 bfd_vma offset,
6191 const char **filename_ptr,
6192 const char **functionname_ptr,
6193 unsigned int *line_ptr,
6194 unsigned int *discriminator_ptr)
6195 {
6196 bfd_boolean found = FALSE;
6197
6198 if (_bfd_dwarf2_find_nearest_line (abfd, symbols, NULL, section, offset,
6199 filename_ptr, functionname_ptr,
6200 line_ptr, discriminator_ptr,
6201 dwarf_debug_sections, 0,
6202 &elf_tdata (abfd)->dwarf2_find_line_info))
6203 {
6204 if (!*functionname_ptr)
6205 aarch64_elf_find_function (abfd, symbols, section, offset,
6206 *filename_ptr ? NULL : filename_ptr,
6207 functionname_ptr);
6208
6209 return TRUE;
6210 }
6211
6212 /* Skip _bfd_dwarf1_find_nearest_line since no known AArch64
6213 toolchain uses DWARF1. */
6214
6215 if (!_bfd_stab_section_find_nearest_line (abfd, symbols, section, offset,
6216 &found, filename_ptr,
6217 functionname_ptr, line_ptr,
6218 &elf_tdata (abfd)->line_info))
6219 return FALSE;
6220
6221 if (found && (*functionname_ptr || *line_ptr))
6222 return TRUE;
6223
6224 if (symbols == NULL)
6225 return FALSE;
6226
6227 if (!aarch64_elf_find_function (abfd, symbols, section, offset,
6228 filename_ptr, functionname_ptr))
6229 return FALSE;
6230
6231 *line_ptr = 0;
6232 return TRUE;
6233 }
6234
6235 static bfd_boolean
6236 elfNN_aarch64_find_inliner_info (bfd *abfd,
6237 const char **filename_ptr,
6238 const char **functionname_ptr,
6239 unsigned int *line_ptr)
6240 {
6241 bfd_boolean found;
6242 found = _bfd_dwarf2_find_inliner_info
6243 (abfd, filename_ptr,
6244 functionname_ptr, line_ptr, &elf_tdata (abfd)->dwarf2_find_line_info);
6245 return found;
6246 }
6247
6248
6249 static void
6250 elfNN_aarch64_post_process_headers (bfd *abfd,
6251 struct bfd_link_info *link_info)
6252 {
6253 Elf_Internal_Ehdr *i_ehdrp; /* ELF file header, internal form. */
6254
6255 i_ehdrp = elf_elfheader (abfd);
6256 i_ehdrp->e_ident[EI_ABIVERSION] = AARCH64_ELF_ABI_VERSION;
6257
6258 _bfd_elf_post_process_headers (abfd, link_info);
6259 }
6260
6261 static enum elf_reloc_type_class
6262 elfNN_aarch64_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
6263 const asection *rel_sec ATTRIBUTE_UNUSED,
6264 const Elf_Internal_Rela *rela)
6265 {
6266 switch ((int) ELFNN_R_TYPE (rela->r_info))
6267 {
6268 case AARCH64_R (RELATIVE):
6269 return reloc_class_relative;
6270 case AARCH64_R (JUMP_SLOT):
6271 return reloc_class_plt;
6272 case AARCH64_R (COPY):
6273 return reloc_class_copy;
6274 default:
6275 return reloc_class_normal;
6276 }
6277 }
6278
6279 /* Handle an AArch64 specific section when reading an object file. This is
6280 called when bfd_section_from_shdr finds a section with an unknown
6281 type. */
6282
6283 static bfd_boolean
6284 elfNN_aarch64_section_from_shdr (bfd *abfd,
6285 Elf_Internal_Shdr *hdr,
6286 const char *name, int shindex)
6287 {
6288 /* There ought to be a place to keep ELF backend specific flags, but
6289 at the moment there isn't one. We just keep track of the
6290 sections by their name, instead. Fortunately, the ABI gives
6291 names for all the AArch64 specific sections, so we will probably get
6292 away with this. */
6293 switch (hdr->sh_type)
6294 {
6295 case SHT_AARCH64_ATTRIBUTES:
6296 break;
6297
6298 default:
6299 return FALSE;
6300 }
6301
6302 if (!_bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
6303 return FALSE;
6304
6305 return TRUE;
6306 }
6307
6308 /* A structure used to record a list of sections, independently
6309 of the next and prev fields in the asection structure. */
6310 typedef struct section_list
6311 {
6312 asection *sec;
6313 struct section_list *next;
6314 struct section_list *prev;
6315 }
6316 section_list;
6317
6318 /* Unfortunately we need to keep a list of sections for which
6319 an _aarch64_elf_section_data structure has been allocated. This
6320 is because it is possible for functions like elfNN_aarch64_write_section
6321 to be called on a section which has had an elf_data_structure
6322 allocated for it (and so the used_by_bfd field is valid) but
6323 for which the AArch64 extended version of this structure - the
6324 _aarch64_elf_section_data structure - has not been allocated. */
6325 static section_list *sections_with_aarch64_elf_section_data = NULL;
6326
6327 static void
6328 record_section_with_aarch64_elf_section_data (asection *sec)
6329 {
6330 struct section_list *entry;
6331
6332 entry = bfd_malloc (sizeof (*entry));
6333 if (entry == NULL)
6334 return;
6335 entry->sec = sec;
6336 entry->next = sections_with_aarch64_elf_section_data;
6337 entry->prev = NULL;
6338 if (entry->next != NULL)
6339 entry->next->prev = entry;
6340 sections_with_aarch64_elf_section_data = entry;
6341 }
6342
6343 static struct section_list *
6344 find_aarch64_elf_section_entry (asection *sec)
6345 {
6346 struct section_list *entry;
6347 static struct section_list *last_entry = NULL;
6348
6349 /* This is a short cut for the typical case where the sections are added
6350 to the sections_with_aarch64_elf_section_data list in forward order and
6351 then looked up here in backwards order. This makes a real difference
6352 to the ld-srec/sec64k.exp linker test. */
6353 entry = sections_with_aarch64_elf_section_data;
6354 if (last_entry != NULL)
6355 {
6356 if (last_entry->sec == sec)
6357 entry = last_entry;
6358 else if (last_entry->next != NULL && last_entry->next->sec == sec)
6359 entry = last_entry->next;
6360 }
6361
6362 for (; entry; entry = entry->next)
6363 if (entry->sec == sec)
6364 break;
6365
6366 if (entry)
6367 /* Record the entry prior to this one - it is the entry we are
6368 most likely to want to locate next time. Also this way if we
6369 have been called from
6370 unrecord_section_with_aarch64_elf_section_data () we will not
6371 be caching a pointer that is about to be freed. */
6372 last_entry = entry->prev;
6373
6374 return entry;
6375 }
6376
6377 static void
6378 unrecord_section_with_aarch64_elf_section_data (asection *sec)
6379 {
6380 struct section_list *entry;
6381
6382 entry = find_aarch64_elf_section_entry (sec);
6383
6384 if (entry)
6385 {
6386 if (entry->prev != NULL)
6387 entry->prev->next = entry->next;
6388 if (entry->next != NULL)
6389 entry->next->prev = entry->prev;
6390 if (entry == sections_with_aarch64_elf_section_data)
6391 sections_with_aarch64_elf_section_data = entry->next;
6392 free (entry);
6393 }
6394 }
6395
6396
6397 typedef struct
6398 {
6399 void *finfo;
6400 struct bfd_link_info *info;
6401 asection *sec;
6402 int sec_shndx;
6403 int (*func) (void *, const char *, Elf_Internal_Sym *,
6404 asection *, struct elf_link_hash_entry *);
6405 } output_arch_syminfo;
6406
6407 enum map_symbol_type
6408 {
6409 AARCH64_MAP_INSN,
6410 AARCH64_MAP_DATA
6411 };
6412
6413
6414 /* Output a single mapping symbol. */
6415
6416 static bfd_boolean
6417 elfNN_aarch64_output_map_sym (output_arch_syminfo *osi,
6418 enum map_symbol_type type, bfd_vma offset)
6419 {
6420 static const char *names[2] = { "$x", "$d" };
6421 Elf_Internal_Sym sym;
6422
6423 sym.st_value = (osi->sec->output_section->vma
6424 + osi->sec->output_offset + offset);
6425 sym.st_size = 0;
6426 sym.st_other = 0;
6427 sym.st_info = ELF_ST_INFO (STB_LOCAL, STT_NOTYPE);
6428 sym.st_shndx = osi->sec_shndx;
6429 return osi->func (osi->finfo, names[type], &sym, osi->sec, NULL) == 1;
6430 }
6431
6432
6433
6434 /* Output mapping symbols for PLT entries associated with H. */
6435
6436 static bfd_boolean
6437 elfNN_aarch64_output_plt_map (struct elf_link_hash_entry *h, void *inf)
6438 {
6439 output_arch_syminfo *osi = (output_arch_syminfo *) inf;
6440 bfd_vma addr;
6441
6442 if (h->root.type == bfd_link_hash_indirect)
6443 return TRUE;
6444
6445 if (h->root.type == bfd_link_hash_warning)
6446 /* When warning symbols are created, they **replace** the "real"
6447 entry in the hash table, thus we never get to see the real
6448 symbol in a hash traversal. So look at it now. */
6449 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6450
6451 if (h->plt.offset == (bfd_vma) - 1)
6452 return TRUE;
6453
6454 addr = h->plt.offset;
6455 if (addr == 32)
6456 {
6457 if (!elfNN_aarch64_output_map_sym (osi, AARCH64_MAP_INSN, addr))
6458 return FALSE;
6459 }
6460 return TRUE;
6461 }
6462
6463
6464 /* Output a single local symbol for a generated stub. */
6465
6466 static bfd_boolean
6467 elfNN_aarch64_output_stub_sym (output_arch_syminfo *osi, const char *name,
6468 bfd_vma offset, bfd_vma size)
6469 {
6470 Elf_Internal_Sym sym;
6471
6472 sym.st_value = (osi->sec->output_section->vma
6473 + osi->sec->output_offset + offset);
6474 sym.st_size = size;
6475 sym.st_other = 0;
6476 sym.st_info = ELF_ST_INFO (STB_LOCAL, STT_FUNC);
6477 sym.st_shndx = osi->sec_shndx;
6478 return osi->func (osi->finfo, name, &sym, osi->sec, NULL) == 1;
6479 }
6480
6481 static bfd_boolean
6482 aarch64_map_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
6483 {
6484 struct elf_aarch64_stub_hash_entry *stub_entry;
6485 asection *stub_sec;
6486 bfd_vma addr;
6487 char *stub_name;
6488 output_arch_syminfo *osi;
6489
6490 /* Massage our args to the form they really have. */
6491 stub_entry = (struct elf_aarch64_stub_hash_entry *) gen_entry;
6492 osi = (output_arch_syminfo *) in_arg;
6493
6494 stub_sec = stub_entry->stub_sec;
6495
6496 /* Ensure this stub is attached to the current section being
6497 processed. */
6498 if (stub_sec != osi->sec)
6499 return TRUE;
6500
6501 addr = (bfd_vma) stub_entry->stub_offset;
6502
6503 stub_name = stub_entry->output_name;
6504
6505 switch (stub_entry->stub_type)
6506 {
6507 case aarch64_stub_adrp_branch:
6508 if (!elfNN_aarch64_output_stub_sym (osi, stub_name, addr,
6509 sizeof (aarch64_adrp_branch_stub)))
6510 return FALSE;
6511 if (!elfNN_aarch64_output_map_sym (osi, AARCH64_MAP_INSN, addr))
6512 return FALSE;
6513 break;
6514 case aarch64_stub_long_branch:
6515 if (!elfNN_aarch64_output_stub_sym
6516 (osi, stub_name, addr, sizeof (aarch64_long_branch_stub)))
6517 return FALSE;
6518 if (!elfNN_aarch64_output_map_sym (osi, AARCH64_MAP_INSN, addr))
6519 return FALSE;
6520 if (!elfNN_aarch64_output_map_sym (osi, AARCH64_MAP_DATA, addr + 16))
6521 return FALSE;
6522 break;
6523 case aarch64_stub_erratum_835769_veneer:
6524 if (!elfNN_aarch64_output_stub_sym (osi, stub_name, addr,
6525 sizeof (aarch64_erratum_835769_stub)))
6526 return FALSE;
6527 if (!elfNN_aarch64_output_map_sym (osi, AARCH64_MAP_INSN, addr))
6528 return FALSE;
6529 break;
6530 default:
6531 abort ();
6532 }
6533
6534 return TRUE;
6535 }
6536
6537 /* Output mapping symbols for linker generated sections. */
6538
6539 static bfd_boolean
6540 elfNN_aarch64_output_arch_local_syms (bfd *output_bfd,
6541 struct bfd_link_info *info,
6542 void *finfo,
6543 int (*func) (void *, const char *,
6544 Elf_Internal_Sym *,
6545 asection *,
6546 struct elf_link_hash_entry
6547 *))
6548 {
6549 output_arch_syminfo osi;
6550 struct elf_aarch64_link_hash_table *htab;
6551
6552 htab = elf_aarch64_hash_table (info);
6553
6554 osi.finfo = finfo;
6555 osi.info = info;
6556 osi.func = func;
6557
6558 /* Long calls stubs. */
6559 if (htab->stub_bfd && htab->stub_bfd->sections)
6560 {
6561 asection *stub_sec;
6562
6563 for (stub_sec = htab->stub_bfd->sections;
6564 stub_sec != NULL; stub_sec = stub_sec->next)
6565 {
6566 /* Ignore non-stub sections. */
6567 if (!strstr (stub_sec->name, STUB_SUFFIX))
6568 continue;
6569
6570 osi.sec = stub_sec;
6571
6572 osi.sec_shndx = _bfd_elf_section_from_bfd_section
6573 (output_bfd, osi.sec->output_section);
6574
6575 bfd_hash_traverse (&htab->stub_hash_table, aarch64_map_one_stub,
6576 &osi);
6577 }
6578 }
6579
6580 /* Finally, output mapping symbols for the PLT. */
6581 if (!htab->root.splt || htab->root.splt->size == 0)
6582 return TRUE;
6583
6584 /* For now live without mapping symbols for the plt. */
6585 osi.sec_shndx = _bfd_elf_section_from_bfd_section
6586 (output_bfd, htab->root.splt->output_section);
6587 osi.sec = htab->root.splt;
6588
6589 elf_link_hash_traverse (&htab->root, elfNN_aarch64_output_plt_map,
6590 (void *) &osi);
6591
6592 return TRUE;
6593
6594 }
6595
6596 /* Allocate target specific section data. */
6597
6598 static bfd_boolean
6599 elfNN_aarch64_new_section_hook (bfd *abfd, asection *sec)
6600 {
6601 if (!sec->used_by_bfd)
6602 {
6603 _aarch64_elf_section_data *sdata;
6604 bfd_size_type amt = sizeof (*sdata);
6605
6606 sdata = bfd_zalloc (abfd, amt);
6607 if (sdata == NULL)
6608 return FALSE;
6609 sec->used_by_bfd = sdata;
6610 }
6611
6612 record_section_with_aarch64_elf_section_data (sec);
6613
6614 return _bfd_elf_new_section_hook (abfd, sec);
6615 }
6616
6617
6618 static void
6619 unrecord_section_via_map_over_sections (bfd *abfd ATTRIBUTE_UNUSED,
6620 asection *sec,
6621 void *ignore ATTRIBUTE_UNUSED)
6622 {
6623 unrecord_section_with_aarch64_elf_section_data (sec);
6624 }
6625
6626 static bfd_boolean
6627 elfNN_aarch64_close_and_cleanup (bfd *abfd)
6628 {
6629 if (abfd->sections)
6630 bfd_map_over_sections (abfd,
6631 unrecord_section_via_map_over_sections, NULL);
6632
6633 return _bfd_elf_close_and_cleanup (abfd);
6634 }
6635
6636 static bfd_boolean
6637 elfNN_aarch64_bfd_free_cached_info (bfd *abfd)
6638 {
6639 if (abfd->sections)
6640 bfd_map_over_sections (abfd,
6641 unrecord_section_via_map_over_sections, NULL);
6642
6643 return _bfd_free_cached_info (abfd);
6644 }
6645
6646 /* Create dynamic sections. This is different from the ARM backend in that
6647 the got, plt, gotplt and their relocation sections are all created in the
6648 standard part of the bfd elf backend. */
6649
6650 static bfd_boolean
6651 elfNN_aarch64_create_dynamic_sections (bfd *dynobj,
6652 struct bfd_link_info *info)
6653 {
6654 struct elf_aarch64_link_hash_table *htab;
6655
6656 /* We need to create .got section. */
6657 if (!aarch64_elf_create_got_section (dynobj, info))
6658 return FALSE;
6659
6660 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
6661 return FALSE;
6662
6663 htab = elf_aarch64_hash_table (info);
6664 htab->sdynbss = bfd_get_linker_section (dynobj, ".dynbss");
6665 if (!info->shared)
6666 htab->srelbss = bfd_get_linker_section (dynobj, ".rela.bss");
6667
6668 if (!htab->sdynbss || (!info->shared && !htab->srelbss))
6669 abort ();
6670
6671 return TRUE;
6672 }
6673
6674
6675 /* Allocate space in .plt, .got and associated reloc sections for
6676 dynamic relocs. */
6677
6678 static bfd_boolean
6679 elfNN_aarch64_allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
6680 {
6681 struct bfd_link_info *info;
6682 struct elf_aarch64_link_hash_table *htab;
6683 struct elf_aarch64_link_hash_entry *eh;
6684 struct elf_dyn_relocs *p;
6685
6686 /* An example of a bfd_link_hash_indirect symbol is versioned
6687 symbol. For example: __gxx_personality_v0(bfd_link_hash_indirect)
6688 -> __gxx_personality_v0(bfd_link_hash_defined)
6689
6690 There is no need to process bfd_link_hash_indirect symbols here
6691 because we will also be presented with the concrete instance of
6692 the symbol and elfNN_aarch64_copy_indirect_symbol () will have been
6693 called to copy all relevant data from the generic to the concrete
6694 symbol instance.
6695 */
6696 if (h->root.type == bfd_link_hash_indirect)
6697 return TRUE;
6698
6699 if (h->root.type == bfd_link_hash_warning)
6700 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6701
6702 info = (struct bfd_link_info *) inf;
6703 htab = elf_aarch64_hash_table (info);
6704
6705 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle it
6706 here if it is defined and referenced in a non-shared object. */
6707 if (h->type == STT_GNU_IFUNC
6708 && h->def_regular)
6709 return TRUE;
6710 else if (htab->root.dynamic_sections_created && h->plt.refcount > 0)
6711 {
6712 /* Make sure this symbol is output as a dynamic symbol.
6713 Undefined weak syms won't yet be marked as dynamic. */
6714 if (h->dynindx == -1 && !h->forced_local)
6715 {
6716 if (!bfd_elf_link_record_dynamic_symbol (info, h))
6717 return FALSE;
6718 }
6719
6720 if (info->shared || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
6721 {
6722 asection *s = htab->root.splt;
6723
6724 /* If this is the first .plt entry, make room for the special
6725 first entry. */
6726 if (s->size == 0)
6727 s->size += htab->plt_header_size;
6728
6729 h->plt.offset = s->size;
6730
6731 /* If this symbol is not defined in a regular file, and we are
6732 not generating a shared library, then set the symbol to this
6733 location in the .plt. This is required to make function
6734 pointers compare as equal between the normal executable and
6735 the shared library. */
6736 if (!info->shared && !h->def_regular)
6737 {
6738 h->root.u.def.section = s;
6739 h->root.u.def.value = h->plt.offset;
6740 }
6741
6742 /* Make room for this entry. For now we only create the
6743 small model PLT entries. We later need to find a way
6744 of relaxing into these from the large model PLT entries. */
6745 s->size += PLT_SMALL_ENTRY_SIZE;
6746
6747 /* We also need to make an entry in the .got.plt section, which
6748 will be placed in the .got section by the linker script. */
6749 htab->root.sgotplt->size += GOT_ENTRY_SIZE;
6750
6751 /* We also need to make an entry in the .rela.plt section. */
6752 htab->root.srelplt->size += RELOC_SIZE (htab);
6753
6754 /* We need to ensure that all GOT entries that serve the PLT
6755 are consecutive with the special GOT slots [0] [1] and
6756 [2]. Any addtional relocations, such as
6757 R_AARCH64_TLSDESC, must be placed after the PLT related
6758 entries. We abuse the reloc_count such that during
6759 sizing we adjust reloc_count to indicate the number of
6760 PLT related reserved entries. In subsequent phases when
6761 filling in the contents of the reloc entries, PLT related
6762 entries are placed by computing their PLT index (0
6763 .. reloc_count). While other none PLT relocs are placed
6764 at the slot indicated by reloc_count and reloc_count is
6765 updated. */
6766
6767 htab->root.srelplt->reloc_count++;
6768 }
6769 else
6770 {
6771 h->plt.offset = (bfd_vma) - 1;
6772 h->needs_plt = 0;
6773 }
6774 }
6775 else
6776 {
6777 h->plt.offset = (bfd_vma) - 1;
6778 h->needs_plt = 0;
6779 }
6780
6781 eh = (struct elf_aarch64_link_hash_entry *) h;
6782 eh->tlsdesc_got_jump_table_offset = (bfd_vma) - 1;
6783
6784 if (h->got.refcount > 0)
6785 {
6786 bfd_boolean dyn;
6787 unsigned got_type = elf_aarch64_hash_entry (h)->got_type;
6788
6789 h->got.offset = (bfd_vma) - 1;
6790
6791 dyn = htab->root.dynamic_sections_created;
6792
6793 /* Make sure this symbol is output as a dynamic symbol.
6794 Undefined weak syms won't yet be marked as dynamic. */
6795 if (dyn && h->dynindx == -1 && !h->forced_local)
6796 {
6797 if (!bfd_elf_link_record_dynamic_symbol (info, h))
6798 return FALSE;
6799 }
6800
6801 if (got_type == GOT_UNKNOWN)
6802 {
6803 }
6804 else if (got_type == GOT_NORMAL)
6805 {
6806 h->got.offset = htab->root.sgot->size;
6807 htab->root.sgot->size += GOT_ENTRY_SIZE;
6808 if ((ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
6809 || h->root.type != bfd_link_hash_undefweak)
6810 && (info->shared
6811 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
6812 {
6813 htab->root.srelgot->size += RELOC_SIZE (htab);
6814 }
6815 }
6816 else
6817 {
6818 int indx;
6819 if (got_type & GOT_TLSDESC_GD)
6820 {
6821 eh->tlsdesc_got_jump_table_offset =
6822 (htab->root.sgotplt->size
6823 - aarch64_compute_jump_table_size (htab));
6824 htab->root.sgotplt->size += GOT_ENTRY_SIZE * 2;
6825 h->got.offset = (bfd_vma) - 2;
6826 }
6827
6828 if (got_type & GOT_TLS_GD)
6829 {
6830 h->got.offset = htab->root.sgot->size;
6831 htab->root.sgot->size += GOT_ENTRY_SIZE * 2;
6832 }
6833
6834 if (got_type & GOT_TLS_IE)
6835 {
6836 h->got.offset = htab->root.sgot->size;
6837 htab->root.sgot->size += GOT_ENTRY_SIZE;
6838 }
6839
6840 indx = h && h->dynindx != -1 ? h->dynindx : 0;
6841 if ((ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
6842 || h->root.type != bfd_link_hash_undefweak)
6843 && (info->shared
6844 || indx != 0
6845 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
6846 {
6847 if (got_type & GOT_TLSDESC_GD)
6848 {
6849 htab->root.srelplt->size += RELOC_SIZE (htab);
6850 /* Note reloc_count not incremented here! We have
6851 already adjusted reloc_count for this relocation
6852 type. */
6853
6854 /* TLSDESC PLT is now needed, but not yet determined. */
6855 htab->tlsdesc_plt = (bfd_vma) - 1;
6856 }
6857
6858 if (got_type & GOT_TLS_GD)
6859 htab->root.srelgot->size += RELOC_SIZE (htab) * 2;
6860
6861 if (got_type & GOT_TLS_IE)
6862 htab->root.srelgot->size += RELOC_SIZE (htab);
6863 }
6864 }
6865 }
6866 else
6867 {
6868 h->got.offset = (bfd_vma) - 1;
6869 }
6870
6871 if (eh->dyn_relocs == NULL)
6872 return TRUE;
6873
6874 /* In the shared -Bsymbolic case, discard space allocated for
6875 dynamic pc-relative relocs against symbols which turn out to be
6876 defined in regular objects. For the normal shared case, discard
6877 space for pc-relative relocs that have become local due to symbol
6878 visibility changes. */
6879
6880 if (info->shared)
6881 {
6882 /* Relocs that use pc_count are those that appear on a call
6883 insn, or certain REL relocs that can generated via assembly.
6884 We want calls to protected symbols to resolve directly to the
6885 function rather than going via the plt. If people want
6886 function pointer comparisons to work as expected then they
6887 should avoid writing weird assembly. */
6888 if (SYMBOL_CALLS_LOCAL (info, h))
6889 {
6890 struct elf_dyn_relocs **pp;
6891
6892 for (pp = &eh->dyn_relocs; (p = *pp) != NULL;)
6893 {
6894 p->count -= p->pc_count;
6895 p->pc_count = 0;
6896 if (p->count == 0)
6897 *pp = p->next;
6898 else
6899 pp = &p->next;
6900 }
6901 }
6902
6903 /* Also discard relocs on undefined weak syms with non-default
6904 visibility. */
6905 if (eh->dyn_relocs != NULL && h->root.type == bfd_link_hash_undefweak)
6906 {
6907 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
6908 eh->dyn_relocs = NULL;
6909
6910 /* Make sure undefined weak symbols are output as a dynamic
6911 symbol in PIEs. */
6912 else if (h->dynindx == -1
6913 && !h->forced_local
6914 && !bfd_elf_link_record_dynamic_symbol (info, h))
6915 return FALSE;
6916 }
6917
6918 }
6919 else if (ELIMINATE_COPY_RELOCS)
6920 {
6921 /* For the non-shared case, discard space for relocs against
6922 symbols which turn out to need copy relocs or are not
6923 dynamic. */
6924
6925 if (!h->non_got_ref
6926 && ((h->def_dynamic
6927 && !h->def_regular)
6928 || (htab->root.dynamic_sections_created
6929 && (h->root.type == bfd_link_hash_undefweak
6930 || h->root.type == bfd_link_hash_undefined))))
6931 {
6932 /* Make sure this symbol is output as a dynamic symbol.
6933 Undefined weak syms won't yet be marked as dynamic. */
6934 if (h->dynindx == -1
6935 && !h->forced_local
6936 && !bfd_elf_link_record_dynamic_symbol (info, h))
6937 return FALSE;
6938
6939 /* If that succeeded, we know we'll be keeping all the
6940 relocs. */
6941 if (h->dynindx != -1)
6942 goto keep;
6943 }
6944
6945 eh->dyn_relocs = NULL;
6946
6947 keep:;
6948 }
6949
6950 /* Finally, allocate space. */
6951 for (p = eh->dyn_relocs; p != NULL; p = p->next)
6952 {
6953 asection *sreloc;
6954
6955 sreloc = elf_section_data (p->sec)->sreloc;
6956
6957 BFD_ASSERT (sreloc != NULL);
6958
6959 sreloc->size += p->count * RELOC_SIZE (htab);
6960 }
6961
6962 return TRUE;
6963 }
6964
6965 /* Allocate space in .plt, .got and associated reloc sections for
6966 ifunc dynamic relocs. */
6967
6968 static bfd_boolean
6969 elfNN_aarch64_allocate_ifunc_dynrelocs (struct elf_link_hash_entry *h,
6970 void *inf)
6971 {
6972 struct bfd_link_info *info;
6973 struct elf_aarch64_link_hash_table *htab;
6974 struct elf_aarch64_link_hash_entry *eh;
6975
6976 /* An example of a bfd_link_hash_indirect symbol is versioned
6977 symbol. For example: __gxx_personality_v0(bfd_link_hash_indirect)
6978 -> __gxx_personality_v0(bfd_link_hash_defined)
6979
6980 There is no need to process bfd_link_hash_indirect symbols here
6981 because we will also be presented with the concrete instance of
6982 the symbol and elfNN_aarch64_copy_indirect_symbol () will have been
6983 called to copy all relevant data from the generic to the concrete
6984 symbol instance.
6985 */
6986 if (h->root.type == bfd_link_hash_indirect)
6987 return TRUE;
6988
6989 if (h->root.type == bfd_link_hash_warning)
6990 h = (struct elf_link_hash_entry *) h->root.u.i.link;
6991
6992 info = (struct bfd_link_info *) inf;
6993 htab = elf_aarch64_hash_table (info);
6994
6995 eh = (struct elf_aarch64_link_hash_entry *) h;
6996
6997 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle it
6998 here if it is defined and referenced in a non-shared object. */
6999 if (h->type == STT_GNU_IFUNC
7000 && h->def_regular)
7001 return _bfd_elf_allocate_ifunc_dyn_relocs (info, h,
7002 &eh->dyn_relocs,
7003 htab->plt_entry_size,
7004 htab->plt_header_size,
7005 GOT_ENTRY_SIZE);
7006 return TRUE;
7007 }
7008
7009 /* Allocate space in .plt, .got and associated reloc sections for
7010 local dynamic relocs. */
7011
7012 static bfd_boolean
7013 elfNN_aarch64_allocate_local_dynrelocs (void **slot, void *inf)
7014 {
7015 struct elf_link_hash_entry *h
7016 = (struct elf_link_hash_entry *) *slot;
7017
7018 if (h->type != STT_GNU_IFUNC
7019 || !h->def_regular
7020 || !h->ref_regular
7021 || !h->forced_local
7022 || h->root.type != bfd_link_hash_defined)
7023 abort ();
7024
7025 return elfNN_aarch64_allocate_dynrelocs (h, inf);
7026 }
7027
7028 /* Allocate space in .plt, .got and associated reloc sections for
7029 local ifunc dynamic relocs. */
7030
7031 static bfd_boolean
7032 elfNN_aarch64_allocate_local_ifunc_dynrelocs (void **slot, void *inf)
7033 {
7034 struct elf_link_hash_entry *h
7035 = (struct elf_link_hash_entry *) *slot;
7036
7037 if (h->type != STT_GNU_IFUNC
7038 || !h->def_regular
7039 || !h->ref_regular
7040 || !h->forced_local
7041 || h->root.type != bfd_link_hash_defined)
7042 abort ();
7043
7044 return elfNN_aarch64_allocate_ifunc_dynrelocs (h, inf);
7045 }
7046
7047 /* This is the most important function of all . Innocuosly named
7048 though ! */
7049 static bfd_boolean
7050 elfNN_aarch64_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
7051 struct bfd_link_info *info)
7052 {
7053 struct elf_aarch64_link_hash_table *htab;
7054 bfd *dynobj;
7055 asection *s;
7056 bfd_boolean relocs;
7057 bfd *ibfd;
7058
7059 htab = elf_aarch64_hash_table ((info));
7060 dynobj = htab->root.dynobj;
7061
7062 BFD_ASSERT (dynobj != NULL);
7063
7064 if (htab->root.dynamic_sections_created)
7065 {
7066 if (info->executable)
7067 {
7068 s = bfd_get_linker_section (dynobj, ".interp");
7069 if (s == NULL)
7070 abort ();
7071 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
7072 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
7073 }
7074 }
7075
7076 /* Set up .got offsets for local syms, and space for local dynamic
7077 relocs. */
7078 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
7079 {
7080 struct elf_aarch64_local_symbol *locals = NULL;
7081 Elf_Internal_Shdr *symtab_hdr;
7082 asection *srel;
7083 unsigned int i;
7084
7085 if (!is_aarch64_elf (ibfd))
7086 continue;
7087
7088 for (s = ibfd->sections; s != NULL; s = s->next)
7089 {
7090 struct elf_dyn_relocs *p;
7091
7092 for (p = (struct elf_dyn_relocs *)
7093 (elf_section_data (s)->local_dynrel); p != NULL; p = p->next)
7094 {
7095 if (!bfd_is_abs_section (p->sec)
7096 && bfd_is_abs_section (p->sec->output_section))
7097 {
7098 /* Input section has been discarded, either because
7099 it is a copy of a linkonce section or due to
7100 linker script /DISCARD/, so we'll be discarding
7101 the relocs too. */
7102 }
7103 else if (p->count != 0)
7104 {
7105 srel = elf_section_data (p->sec)->sreloc;
7106 srel->size += p->count * RELOC_SIZE (htab);
7107 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
7108 info->flags |= DF_TEXTREL;
7109 }
7110 }
7111 }
7112
7113 locals = elf_aarch64_locals (ibfd);
7114 if (!locals)
7115 continue;
7116
7117 symtab_hdr = &elf_symtab_hdr (ibfd);
7118 srel = htab->root.srelgot;
7119 for (i = 0; i < symtab_hdr->sh_info; i++)
7120 {
7121 locals[i].got_offset = (bfd_vma) - 1;
7122 locals[i].tlsdesc_got_jump_table_offset = (bfd_vma) - 1;
7123 if (locals[i].got_refcount > 0)
7124 {
7125 unsigned got_type = locals[i].got_type;
7126 if (got_type & GOT_TLSDESC_GD)
7127 {
7128 locals[i].tlsdesc_got_jump_table_offset =
7129 (htab->root.sgotplt->size
7130 - aarch64_compute_jump_table_size (htab));
7131 htab->root.sgotplt->size += GOT_ENTRY_SIZE * 2;
7132 locals[i].got_offset = (bfd_vma) - 2;
7133 }
7134
7135 if (got_type & GOT_TLS_GD)
7136 {
7137 locals[i].got_offset = htab->root.sgot->size;
7138 htab->root.sgot->size += GOT_ENTRY_SIZE * 2;
7139 }
7140
7141 if (got_type & GOT_TLS_IE)
7142 {
7143 locals[i].got_offset = htab->root.sgot->size;
7144 htab->root.sgot->size += GOT_ENTRY_SIZE;
7145 }
7146
7147 if (got_type == GOT_UNKNOWN)
7148 {
7149 }
7150
7151 if (got_type == GOT_NORMAL)
7152 {
7153 }
7154
7155 if (info->shared)
7156 {
7157 if (got_type & GOT_TLSDESC_GD)
7158 {
7159 htab->root.srelplt->size += RELOC_SIZE (htab);
7160 /* Note RELOC_COUNT not incremented here! */
7161 htab->tlsdesc_plt = (bfd_vma) - 1;
7162 }
7163
7164 if (got_type & GOT_TLS_GD)
7165 htab->root.srelgot->size += RELOC_SIZE (htab) * 2;
7166
7167 if (got_type & GOT_TLS_IE)
7168 htab->root.srelgot->size += RELOC_SIZE (htab);
7169 }
7170 }
7171 else
7172 {
7173 locals[i].got_refcount = (bfd_vma) - 1;
7174 }
7175 }
7176 }
7177
7178
7179 /* Allocate global sym .plt and .got entries, and space for global
7180 sym dynamic relocs. */
7181 elf_link_hash_traverse (&htab->root, elfNN_aarch64_allocate_dynrelocs,
7182 info);
7183
7184 /* Allocate global ifunc sym .plt and .got entries, and space for global
7185 ifunc sym dynamic relocs. */
7186 elf_link_hash_traverse (&htab->root, elfNN_aarch64_allocate_ifunc_dynrelocs,
7187 info);
7188
7189 /* Allocate .plt and .got entries, and space for local symbols. */
7190 htab_traverse (htab->loc_hash_table,
7191 elfNN_aarch64_allocate_local_dynrelocs,
7192 info);
7193
7194 /* Allocate .plt and .got entries, and space for local ifunc symbols. */
7195 htab_traverse (htab->loc_hash_table,
7196 elfNN_aarch64_allocate_local_ifunc_dynrelocs,
7197 info);
7198
7199 /* For every jump slot reserved in the sgotplt, reloc_count is
7200 incremented. However, when we reserve space for TLS descriptors,
7201 it's not incremented, so in order to compute the space reserved
7202 for them, it suffices to multiply the reloc count by the jump
7203 slot size. */
7204
7205 if (htab->root.srelplt)
7206 htab->sgotplt_jump_table_size = aarch64_compute_jump_table_size (htab);
7207
7208 if (htab->tlsdesc_plt)
7209 {
7210 if (htab->root.splt->size == 0)
7211 htab->root.splt->size += PLT_ENTRY_SIZE;
7212
7213 htab->tlsdesc_plt = htab->root.splt->size;
7214 htab->root.splt->size += PLT_TLSDESC_ENTRY_SIZE;
7215
7216 /* If we're not using lazy TLS relocations, don't generate the
7217 GOT entry required. */
7218 if (!(info->flags & DF_BIND_NOW))
7219 {
7220 htab->dt_tlsdesc_got = htab->root.sgot->size;
7221 htab->root.sgot->size += GOT_ENTRY_SIZE;
7222 }
7223 }
7224
7225 /* Init mapping symbols information to use later to distingush between
7226 code and data while scanning for erratam 835769. */
7227 if (htab->fix_erratum_835769)
7228 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
7229 {
7230 if (!is_aarch64_elf (ibfd))
7231 continue;
7232 bfd_elfNN_aarch64_init_maps (ibfd);
7233 }
7234
7235 /* We now have determined the sizes of the various dynamic sections.
7236 Allocate memory for them. */
7237 relocs = FALSE;
7238 for (s = dynobj->sections; s != NULL; s = s->next)
7239 {
7240 if ((s->flags & SEC_LINKER_CREATED) == 0)
7241 continue;
7242
7243 if (s == htab->root.splt
7244 || s == htab->root.sgot
7245 || s == htab->root.sgotplt
7246 || s == htab->root.iplt
7247 || s == htab->root.igotplt || s == htab->sdynbss)
7248 {
7249 /* Strip this section if we don't need it; see the
7250 comment below. */
7251 }
7252 else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
7253 {
7254 if (s->size != 0 && s != htab->root.srelplt)
7255 relocs = TRUE;
7256
7257 /* We use the reloc_count field as a counter if we need
7258 to copy relocs into the output file. */
7259 if (s != htab->root.srelplt)
7260 s->reloc_count = 0;
7261 }
7262 else
7263 {
7264 /* It's not one of our sections, so don't allocate space. */
7265 continue;
7266 }
7267
7268 if (s->size == 0)
7269 {
7270 /* If we don't need this section, strip it from the
7271 output file. This is mostly to handle .rela.bss and
7272 .rela.plt. We must create both sections in
7273 create_dynamic_sections, because they must be created
7274 before the linker maps input sections to output
7275 sections. The linker does that before
7276 adjust_dynamic_symbol is called, and it is that
7277 function which decides whether anything needs to go
7278 into these sections. */
7279
7280 s->flags |= SEC_EXCLUDE;
7281 continue;
7282 }
7283
7284 if ((s->flags & SEC_HAS_CONTENTS) == 0)
7285 continue;
7286
7287 /* Allocate memory for the section contents. We use bfd_zalloc
7288 here in case unused entries are not reclaimed before the
7289 section's contents are written out. This should not happen,
7290 but this way if it does, we get a R_AARCH64_NONE reloc instead
7291 of garbage. */
7292 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
7293 if (s->contents == NULL)
7294 return FALSE;
7295 }
7296
7297 if (htab->root.dynamic_sections_created)
7298 {
7299 /* Add some entries to the .dynamic section. We fill in the
7300 values later, in elfNN_aarch64_finish_dynamic_sections, but we
7301 must add the entries now so that we get the correct size for
7302 the .dynamic section. The DT_DEBUG entry is filled in by the
7303 dynamic linker and used by the debugger. */
7304 #define add_dynamic_entry(TAG, VAL) \
7305 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
7306
7307 if (info->executable)
7308 {
7309 if (!add_dynamic_entry (DT_DEBUG, 0))
7310 return FALSE;
7311 }
7312
7313 if (htab->root.splt->size != 0)
7314 {
7315 if (!add_dynamic_entry (DT_PLTGOT, 0)
7316 || !add_dynamic_entry (DT_PLTRELSZ, 0)
7317 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
7318 || !add_dynamic_entry (DT_JMPREL, 0))
7319 return FALSE;
7320
7321 if (htab->tlsdesc_plt
7322 && (!add_dynamic_entry (DT_TLSDESC_PLT, 0)
7323 || !add_dynamic_entry (DT_TLSDESC_GOT, 0)))
7324 return FALSE;
7325 }
7326
7327 if (relocs)
7328 {
7329 if (!add_dynamic_entry (DT_RELA, 0)
7330 || !add_dynamic_entry (DT_RELASZ, 0)
7331 || !add_dynamic_entry (DT_RELAENT, RELOC_SIZE (htab)))
7332 return FALSE;
7333
7334 /* If any dynamic relocs apply to a read-only section,
7335 then we need a DT_TEXTREL entry. */
7336 if ((info->flags & DF_TEXTREL) != 0)
7337 {
7338 if (!add_dynamic_entry (DT_TEXTREL, 0))
7339 return FALSE;
7340 }
7341 }
7342 }
7343 #undef add_dynamic_entry
7344
7345 return TRUE;
7346 }
7347
7348 static inline void
7349 elf_aarch64_update_plt_entry (bfd *output_bfd,
7350 bfd_reloc_code_real_type r_type,
7351 bfd_byte *plt_entry, bfd_vma value)
7352 {
7353 reloc_howto_type *howto = elfNN_aarch64_howto_from_bfd_reloc (r_type);
7354
7355 _bfd_aarch64_elf_put_addend (output_bfd, plt_entry, r_type, howto, value);
7356 }
7357
7358 static void
7359 elfNN_aarch64_create_small_pltn_entry (struct elf_link_hash_entry *h,
7360 struct elf_aarch64_link_hash_table
7361 *htab, bfd *output_bfd,
7362 struct bfd_link_info *info)
7363 {
7364 bfd_byte *plt_entry;
7365 bfd_vma plt_index;
7366 bfd_vma got_offset;
7367 bfd_vma gotplt_entry_address;
7368 bfd_vma plt_entry_address;
7369 Elf_Internal_Rela rela;
7370 bfd_byte *loc;
7371 asection *plt, *gotplt, *relplt;
7372
7373 /* When building a static executable, use .iplt, .igot.plt and
7374 .rela.iplt sections for STT_GNU_IFUNC symbols. */
7375 if (htab->root.splt != NULL)
7376 {
7377 plt = htab->root.splt;
7378 gotplt = htab->root.sgotplt;
7379 relplt = htab->root.srelplt;
7380 }
7381 else
7382 {
7383 plt = htab->root.iplt;
7384 gotplt = htab->root.igotplt;
7385 relplt = htab->root.irelplt;
7386 }
7387
7388 /* Get the index in the procedure linkage table which
7389 corresponds to this symbol. This is the index of this symbol
7390 in all the symbols for which we are making plt entries. The
7391 first entry in the procedure linkage table is reserved.
7392
7393 Get the offset into the .got table of the entry that
7394 corresponds to this function. Each .got entry is GOT_ENTRY_SIZE
7395 bytes. The first three are reserved for the dynamic linker.
7396
7397 For static executables, we don't reserve anything. */
7398
7399 if (plt == htab->root.splt)
7400 {
7401 plt_index = (h->plt.offset - htab->plt_header_size) / htab->plt_entry_size;
7402 got_offset = (plt_index + 3) * GOT_ENTRY_SIZE;
7403 }
7404 else
7405 {
7406 plt_index = h->plt.offset / htab->plt_entry_size;
7407 got_offset = plt_index * GOT_ENTRY_SIZE;
7408 }
7409
7410 plt_entry = plt->contents + h->plt.offset;
7411 plt_entry_address = plt->output_section->vma
7412 + plt->output_offset + h->plt.offset;
7413 gotplt_entry_address = gotplt->output_section->vma +
7414 gotplt->output_offset + got_offset;
7415
7416 /* Copy in the boiler-plate for the PLTn entry. */
7417 memcpy (plt_entry, elfNN_aarch64_small_plt_entry, PLT_SMALL_ENTRY_SIZE);
7418
7419 /* Fill in the top 21 bits for this: ADRP x16, PLT_GOT + n * 8.
7420 ADRP: ((PG(S+A)-PG(P)) >> 12) & 0x1fffff */
7421 elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADR_HI21_PCREL,
7422 plt_entry,
7423 PG (gotplt_entry_address) -
7424 PG (plt_entry_address));
7425
7426 /* Fill in the lo12 bits for the load from the pltgot. */
7427 elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_LDSTNN_LO12,
7428 plt_entry + 4,
7429 PG_OFFSET (gotplt_entry_address));
7430
7431 /* Fill in the lo12 bits for the add from the pltgot entry. */
7432 elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADD_LO12,
7433 plt_entry + 8,
7434 PG_OFFSET (gotplt_entry_address));
7435
7436 /* All the GOTPLT Entries are essentially initialized to PLT0. */
7437 bfd_put_NN (output_bfd,
7438 plt->output_section->vma + plt->output_offset,
7439 gotplt->contents + got_offset);
7440
7441 rela.r_offset = gotplt_entry_address;
7442
7443 if (h->dynindx == -1
7444 || ((info->executable
7445 || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
7446 && h->def_regular
7447 && h->type == STT_GNU_IFUNC))
7448 {
7449 /* If an STT_GNU_IFUNC symbol is locally defined, generate
7450 R_AARCH64_IRELATIVE instead of R_AARCH64_JUMP_SLOT. */
7451 rela.r_info = ELFNN_R_INFO (0, AARCH64_R (IRELATIVE));
7452 rela.r_addend = (h->root.u.def.value
7453 + h->root.u.def.section->output_section->vma
7454 + h->root.u.def.section->output_offset);
7455 }
7456 else
7457 {
7458 /* Fill in the entry in the .rela.plt section. */
7459 rela.r_info = ELFNN_R_INFO (h->dynindx, AARCH64_R (JUMP_SLOT));
7460 rela.r_addend = 0;
7461 }
7462
7463 /* Compute the relocation entry to used based on PLT index and do
7464 not adjust reloc_count. The reloc_count has already been adjusted
7465 to account for this entry. */
7466 loc = relplt->contents + plt_index * RELOC_SIZE (htab);
7467 bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
7468 }
7469
7470 /* Size sections even though they're not dynamic. We use it to setup
7471 _TLS_MODULE_BASE_, if needed. */
7472
7473 static bfd_boolean
7474 elfNN_aarch64_always_size_sections (bfd *output_bfd,
7475 struct bfd_link_info *info)
7476 {
7477 asection *tls_sec;
7478
7479 if (info->relocatable)
7480 return TRUE;
7481
7482 tls_sec = elf_hash_table (info)->tls_sec;
7483
7484 if (tls_sec)
7485 {
7486 struct elf_link_hash_entry *tlsbase;
7487
7488 tlsbase = elf_link_hash_lookup (elf_hash_table (info),
7489 "_TLS_MODULE_BASE_", TRUE, TRUE, FALSE);
7490
7491 if (tlsbase)
7492 {
7493 struct bfd_link_hash_entry *h = NULL;
7494 const struct elf_backend_data *bed =
7495 get_elf_backend_data (output_bfd);
7496
7497 if (!(_bfd_generic_link_add_one_symbol
7498 (info, output_bfd, "_TLS_MODULE_BASE_", BSF_LOCAL,
7499 tls_sec, 0, NULL, FALSE, bed->collect, &h)))
7500 return FALSE;
7501
7502 tlsbase->type = STT_TLS;
7503 tlsbase = (struct elf_link_hash_entry *) h;
7504 tlsbase->def_regular = 1;
7505 tlsbase->other = STV_HIDDEN;
7506 (*bed->elf_backend_hide_symbol) (info, tlsbase, TRUE);
7507 }
7508 }
7509
7510 return TRUE;
7511 }
7512
7513 /* Finish up dynamic symbol handling. We set the contents of various
7514 dynamic sections here. */
7515 static bfd_boolean
7516 elfNN_aarch64_finish_dynamic_symbol (bfd *output_bfd,
7517 struct bfd_link_info *info,
7518 struct elf_link_hash_entry *h,
7519 Elf_Internal_Sym *sym)
7520 {
7521 struct elf_aarch64_link_hash_table *htab;
7522 htab = elf_aarch64_hash_table (info);
7523
7524 if (h->plt.offset != (bfd_vma) - 1)
7525 {
7526 asection *plt, *gotplt, *relplt;
7527
7528 /* This symbol has an entry in the procedure linkage table. Set
7529 it up. */
7530
7531 /* When building a static executable, use .iplt, .igot.plt and
7532 .rela.iplt sections for STT_GNU_IFUNC symbols. */
7533 if (htab->root.splt != NULL)
7534 {
7535 plt = htab->root.splt;
7536 gotplt = htab->root.sgotplt;
7537 relplt = htab->root.srelplt;
7538 }
7539 else
7540 {
7541 plt = htab->root.iplt;
7542 gotplt = htab->root.igotplt;
7543 relplt = htab->root.irelplt;
7544 }
7545
7546 /* This symbol has an entry in the procedure linkage table. Set
7547 it up. */
7548 if ((h->dynindx == -1
7549 && !((h->forced_local || info->executable)
7550 && h->def_regular
7551 && h->type == STT_GNU_IFUNC))
7552 || plt == NULL
7553 || gotplt == NULL
7554 || relplt == NULL)
7555 abort ();
7556
7557 elfNN_aarch64_create_small_pltn_entry (h, htab, output_bfd, info);
7558 if (!h->def_regular)
7559 {
7560 /* Mark the symbol as undefined, rather than as defined in
7561 the .plt section. */
7562 sym->st_shndx = SHN_UNDEF;
7563 /* If the symbol is weak we need to clear the value.
7564 Otherwise, the PLT entry would provide a definition for
7565 the symbol even if the symbol wasn't defined anywhere,
7566 and so the symbol would never be NULL. Leave the value if
7567 there were any relocations where pointer equality matters
7568 (this is a clue for the dynamic linker, to make function
7569 pointer comparisons work between an application and shared
7570 library). */
7571 if (!h->ref_regular_nonweak || !h->pointer_equality_needed)
7572 sym->st_value = 0;
7573 }
7574 }
7575
7576 if (h->got.offset != (bfd_vma) - 1
7577 && elf_aarch64_hash_entry (h)->got_type == GOT_NORMAL)
7578 {
7579 Elf_Internal_Rela rela;
7580 bfd_byte *loc;
7581
7582 /* This symbol has an entry in the global offset table. Set it
7583 up. */
7584 if (htab->root.sgot == NULL || htab->root.srelgot == NULL)
7585 abort ();
7586
7587 rela.r_offset = (htab->root.sgot->output_section->vma
7588 + htab->root.sgot->output_offset
7589 + (h->got.offset & ~(bfd_vma) 1));
7590
7591 if (h->def_regular
7592 && h->type == STT_GNU_IFUNC)
7593 {
7594 if (info->shared)
7595 {
7596 /* Generate R_AARCH64_GLOB_DAT. */
7597 goto do_glob_dat;
7598 }
7599 else
7600 {
7601 asection *plt;
7602
7603 if (!h->pointer_equality_needed)
7604 abort ();
7605
7606 /* For non-shared object, we can't use .got.plt, which
7607 contains the real function address if we need pointer
7608 equality. We load the GOT entry with the PLT entry. */
7609 plt = htab->root.splt ? htab->root.splt : htab->root.iplt;
7610 bfd_put_NN (output_bfd, (plt->output_section->vma
7611 + plt->output_offset
7612 + h->plt.offset),
7613 htab->root.sgot->contents
7614 + (h->got.offset & ~(bfd_vma) 1));
7615 return TRUE;
7616 }
7617 }
7618 else if (info->shared && SYMBOL_REFERENCES_LOCAL (info, h))
7619 {
7620 if (!h->def_regular)
7621 return FALSE;
7622
7623 BFD_ASSERT ((h->got.offset & 1) != 0);
7624 rela.r_info = ELFNN_R_INFO (0, AARCH64_R (RELATIVE));
7625 rela.r_addend = (h->root.u.def.value
7626 + h->root.u.def.section->output_section->vma
7627 + h->root.u.def.section->output_offset);
7628 }
7629 else
7630 {
7631 do_glob_dat:
7632 BFD_ASSERT ((h->got.offset & 1) == 0);
7633 bfd_put_NN (output_bfd, (bfd_vma) 0,
7634 htab->root.sgot->contents + h->got.offset);
7635 rela.r_info = ELFNN_R_INFO (h->dynindx, AARCH64_R (GLOB_DAT));
7636 rela.r_addend = 0;
7637 }
7638
7639 loc = htab->root.srelgot->contents;
7640 loc += htab->root.srelgot->reloc_count++ * RELOC_SIZE (htab);
7641 bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
7642 }
7643
7644 if (h->needs_copy)
7645 {
7646 Elf_Internal_Rela rela;
7647 bfd_byte *loc;
7648
7649 /* This symbol needs a copy reloc. Set it up. */
7650
7651 if (h->dynindx == -1
7652 || (h->root.type != bfd_link_hash_defined
7653 && h->root.type != bfd_link_hash_defweak)
7654 || htab->srelbss == NULL)
7655 abort ();
7656
7657 rela.r_offset = (h->root.u.def.value
7658 + h->root.u.def.section->output_section->vma
7659 + h->root.u.def.section->output_offset);
7660 rela.r_info = ELFNN_R_INFO (h->dynindx, AARCH64_R (COPY));
7661 rela.r_addend = 0;
7662 loc = htab->srelbss->contents;
7663 loc += htab->srelbss->reloc_count++ * RELOC_SIZE (htab);
7664 bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
7665 }
7666
7667 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. SYM may
7668 be NULL for local symbols. */
7669 if (sym != NULL
7670 && (h == elf_hash_table (info)->hdynamic
7671 || h == elf_hash_table (info)->hgot))
7672 sym->st_shndx = SHN_ABS;
7673
7674 return TRUE;
7675 }
7676
7677 /* Finish up local dynamic symbol handling. We set the contents of
7678 various dynamic sections here. */
7679
7680 static bfd_boolean
7681 elfNN_aarch64_finish_local_dynamic_symbol (void **slot, void *inf)
7682 {
7683 struct elf_link_hash_entry *h
7684 = (struct elf_link_hash_entry *) *slot;
7685 struct bfd_link_info *info
7686 = (struct bfd_link_info *) inf;
7687
7688 return elfNN_aarch64_finish_dynamic_symbol (info->output_bfd,
7689 info, h, NULL);
7690 }
7691
7692 static void
7693 elfNN_aarch64_init_small_plt0_entry (bfd *output_bfd ATTRIBUTE_UNUSED,
7694 struct elf_aarch64_link_hash_table
7695 *htab)
7696 {
7697 /* Fill in PLT0. Fixme:RR Note this doesn't distinguish between
7698 small and large plts and at the minute just generates
7699 the small PLT. */
7700
7701 /* PLT0 of the small PLT looks like this in ELF64 -
7702 stp x16, x30, [sp, #-16]! // Save the reloc and lr on stack.
7703 adrp x16, PLT_GOT + 16 // Get the page base of the GOTPLT
7704 ldr x17, [x16, #:lo12:PLT_GOT+16] // Load the address of the
7705 // symbol resolver
7706 add x16, x16, #:lo12:PLT_GOT+16 // Load the lo12 bits of the
7707 // GOTPLT entry for this.
7708 br x17
7709 PLT0 will be slightly different in ELF32 due to different got entry
7710 size.
7711 */
7712 bfd_vma plt_got_2nd_ent; /* Address of GOT[2]. */
7713 bfd_vma plt_base;
7714
7715
7716 memcpy (htab->root.splt->contents, elfNN_aarch64_small_plt0_entry,
7717 PLT_ENTRY_SIZE);
7718 elf_section_data (htab->root.splt->output_section)->this_hdr.sh_entsize =
7719 PLT_ENTRY_SIZE;
7720
7721 plt_got_2nd_ent = (htab->root.sgotplt->output_section->vma
7722 + htab->root.sgotplt->output_offset
7723 + GOT_ENTRY_SIZE * 2);
7724
7725 plt_base = htab->root.splt->output_section->vma +
7726 htab->root.splt->output_offset;
7727
7728 /* Fill in the top 21 bits for this: ADRP x16, PLT_GOT + n * 8.
7729 ADRP: ((PG(S+A)-PG(P)) >> 12) & 0x1fffff */
7730 elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADR_HI21_PCREL,
7731 htab->root.splt->contents + 4,
7732 PG (plt_got_2nd_ent) - PG (plt_base + 4));
7733
7734 elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_LDSTNN_LO12,
7735 htab->root.splt->contents + 8,
7736 PG_OFFSET (plt_got_2nd_ent));
7737
7738 elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADD_LO12,
7739 htab->root.splt->contents + 12,
7740 PG_OFFSET (plt_got_2nd_ent));
7741 }
7742
7743 static bfd_boolean
7744 elfNN_aarch64_finish_dynamic_sections (bfd *output_bfd,
7745 struct bfd_link_info *info)
7746 {
7747 struct elf_aarch64_link_hash_table *htab;
7748 bfd *dynobj;
7749 asection *sdyn;
7750
7751 htab = elf_aarch64_hash_table (info);
7752 dynobj = htab->root.dynobj;
7753 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
7754
7755 if (htab->root.dynamic_sections_created)
7756 {
7757 ElfNN_External_Dyn *dyncon, *dynconend;
7758
7759 if (sdyn == NULL || htab->root.sgot == NULL)
7760 abort ();
7761
7762 dyncon = (ElfNN_External_Dyn *) sdyn->contents;
7763 dynconend = (ElfNN_External_Dyn *) (sdyn->contents + sdyn->size);
7764 for (; dyncon < dynconend; dyncon++)
7765 {
7766 Elf_Internal_Dyn dyn;
7767 asection *s;
7768
7769 bfd_elfNN_swap_dyn_in (dynobj, dyncon, &dyn);
7770
7771 switch (dyn.d_tag)
7772 {
7773 default:
7774 continue;
7775
7776 case DT_PLTGOT:
7777 s = htab->root.sgotplt;
7778 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
7779 break;
7780
7781 case DT_JMPREL:
7782 dyn.d_un.d_ptr = htab->root.srelplt->output_section->vma;
7783 break;
7784
7785 case DT_PLTRELSZ:
7786 s = htab->root.srelplt;
7787 dyn.d_un.d_val = s->size;
7788 break;
7789
7790 case DT_RELASZ:
7791 /* The procedure linkage table relocs (DT_JMPREL) should
7792 not be included in the overall relocs (DT_RELA).
7793 Therefore, we override the DT_RELASZ entry here to
7794 make it not include the JMPREL relocs. Since the
7795 linker script arranges for .rela.plt to follow all
7796 other relocation sections, we don't have to worry
7797 about changing the DT_RELA entry. */
7798 if (htab->root.srelplt != NULL)
7799 {
7800 s = htab->root.srelplt;
7801 dyn.d_un.d_val -= s->size;
7802 }
7803 break;
7804
7805 case DT_TLSDESC_PLT:
7806 s = htab->root.splt;
7807 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
7808 + htab->tlsdesc_plt;
7809 break;
7810
7811 case DT_TLSDESC_GOT:
7812 s = htab->root.sgot;
7813 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
7814 + htab->dt_tlsdesc_got;
7815 break;
7816 }
7817
7818 bfd_elfNN_swap_dyn_out (output_bfd, &dyn, dyncon);
7819 }
7820
7821 }
7822
7823 /* Fill in the special first entry in the procedure linkage table. */
7824 if (htab->root.splt && htab->root.splt->size > 0)
7825 {
7826 elfNN_aarch64_init_small_plt0_entry (output_bfd, htab);
7827
7828 elf_section_data (htab->root.splt->output_section)->
7829 this_hdr.sh_entsize = htab->plt_entry_size;
7830
7831
7832 if (htab->tlsdesc_plt)
7833 {
7834 bfd_put_NN (output_bfd, (bfd_vma) 0,
7835 htab->root.sgot->contents + htab->dt_tlsdesc_got);
7836
7837 memcpy (htab->root.splt->contents + htab->tlsdesc_plt,
7838 elfNN_aarch64_tlsdesc_small_plt_entry,
7839 sizeof (elfNN_aarch64_tlsdesc_small_plt_entry));
7840
7841 {
7842 bfd_vma adrp1_addr =
7843 htab->root.splt->output_section->vma
7844 + htab->root.splt->output_offset + htab->tlsdesc_plt + 4;
7845
7846 bfd_vma adrp2_addr = adrp1_addr + 4;
7847
7848 bfd_vma got_addr =
7849 htab->root.sgot->output_section->vma
7850 + htab->root.sgot->output_offset;
7851
7852 bfd_vma pltgot_addr =
7853 htab->root.sgotplt->output_section->vma
7854 + htab->root.sgotplt->output_offset;
7855
7856 bfd_vma dt_tlsdesc_got = got_addr + htab->dt_tlsdesc_got;
7857
7858 bfd_byte *plt_entry =
7859 htab->root.splt->contents + htab->tlsdesc_plt;
7860
7861 /* adrp x2, DT_TLSDESC_GOT */
7862 elf_aarch64_update_plt_entry (output_bfd,
7863 BFD_RELOC_AARCH64_ADR_HI21_PCREL,
7864 plt_entry + 4,
7865 (PG (dt_tlsdesc_got)
7866 - PG (adrp1_addr)));
7867
7868 /* adrp x3, 0 */
7869 elf_aarch64_update_plt_entry (output_bfd,
7870 BFD_RELOC_AARCH64_ADR_HI21_PCREL,
7871 plt_entry + 8,
7872 (PG (pltgot_addr)
7873 - PG (adrp2_addr)));
7874
7875 /* ldr x2, [x2, #0] */
7876 elf_aarch64_update_plt_entry (output_bfd,
7877 BFD_RELOC_AARCH64_LDSTNN_LO12,
7878 plt_entry + 12,
7879 PG_OFFSET (dt_tlsdesc_got));
7880
7881 /* add x3, x3, 0 */
7882 elf_aarch64_update_plt_entry (output_bfd,
7883 BFD_RELOC_AARCH64_ADD_LO12,
7884 plt_entry + 16,
7885 PG_OFFSET (pltgot_addr));
7886 }
7887 }
7888 }
7889
7890 if (htab->root.sgotplt)
7891 {
7892 if (bfd_is_abs_section (htab->root.sgotplt->output_section))
7893 {
7894 (*_bfd_error_handler)
7895 (_("discarded output section: `%A'"), htab->root.sgotplt);
7896 return FALSE;
7897 }
7898
7899 /* Fill in the first three entries in the global offset table. */
7900 if (htab->root.sgotplt->size > 0)
7901 {
7902 bfd_put_NN (output_bfd, (bfd_vma) 0, htab->root.sgotplt->contents);
7903
7904 /* Write GOT[1] and GOT[2], needed for the dynamic linker. */
7905 bfd_put_NN (output_bfd,
7906 (bfd_vma) 0,
7907 htab->root.sgotplt->contents + GOT_ENTRY_SIZE);
7908 bfd_put_NN (output_bfd,
7909 (bfd_vma) 0,
7910 htab->root.sgotplt->contents + GOT_ENTRY_SIZE * 2);
7911 }
7912
7913 if (htab->root.sgot)
7914 {
7915 if (htab->root.sgot->size > 0)
7916 {
7917 bfd_vma addr =
7918 sdyn ? sdyn->output_section->vma + sdyn->output_offset : 0;
7919 bfd_put_NN (output_bfd, addr, htab->root.sgot->contents);
7920 }
7921 }
7922
7923 elf_section_data (htab->root.sgotplt->output_section)->
7924 this_hdr.sh_entsize = GOT_ENTRY_SIZE;
7925 }
7926
7927 if (htab->root.sgot && htab->root.sgot->size > 0)
7928 elf_section_data (htab->root.sgot->output_section)->this_hdr.sh_entsize
7929 = GOT_ENTRY_SIZE;
7930
7931 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
7932 htab_traverse (htab->loc_hash_table,
7933 elfNN_aarch64_finish_local_dynamic_symbol,
7934 info);
7935
7936 return TRUE;
7937 }
7938
7939 /* Return address for Ith PLT stub in section PLT, for relocation REL
7940 or (bfd_vma) -1 if it should not be included. */
7941
7942 static bfd_vma
7943 elfNN_aarch64_plt_sym_val (bfd_vma i, const asection *plt,
7944 const arelent *rel ATTRIBUTE_UNUSED)
7945 {
7946 return plt->vma + PLT_ENTRY_SIZE + i * PLT_SMALL_ENTRY_SIZE;
7947 }
7948
7949
7950 /* We use this so we can override certain functions
7951 (though currently we don't). */
7952
7953 const struct elf_size_info elfNN_aarch64_size_info =
7954 {
7955 sizeof (ElfNN_External_Ehdr),
7956 sizeof (ElfNN_External_Phdr),
7957 sizeof (ElfNN_External_Shdr),
7958 sizeof (ElfNN_External_Rel),
7959 sizeof (ElfNN_External_Rela),
7960 sizeof (ElfNN_External_Sym),
7961 sizeof (ElfNN_External_Dyn),
7962 sizeof (Elf_External_Note),
7963 4, /* Hash table entry size. */
7964 1, /* Internal relocs per external relocs. */
7965 ARCH_SIZE, /* Arch size. */
7966 LOG_FILE_ALIGN, /* Log_file_align. */
7967 ELFCLASSNN, EV_CURRENT,
7968 bfd_elfNN_write_out_phdrs,
7969 bfd_elfNN_write_shdrs_and_ehdr,
7970 bfd_elfNN_checksum_contents,
7971 bfd_elfNN_write_relocs,
7972 bfd_elfNN_swap_symbol_in,
7973 bfd_elfNN_swap_symbol_out,
7974 bfd_elfNN_slurp_reloc_table,
7975 bfd_elfNN_slurp_symbol_table,
7976 bfd_elfNN_swap_dyn_in,
7977 bfd_elfNN_swap_dyn_out,
7978 bfd_elfNN_swap_reloc_in,
7979 bfd_elfNN_swap_reloc_out,
7980 bfd_elfNN_swap_reloca_in,
7981 bfd_elfNN_swap_reloca_out
7982 };
7983
7984 #define ELF_ARCH bfd_arch_aarch64
7985 #define ELF_MACHINE_CODE EM_AARCH64
7986 #define ELF_MAXPAGESIZE 0x10000
7987 #define ELF_MINPAGESIZE 0x1000
7988 #define ELF_COMMONPAGESIZE 0x1000
7989
7990 #define bfd_elfNN_close_and_cleanup \
7991 elfNN_aarch64_close_and_cleanup
7992
7993 #define bfd_elfNN_bfd_free_cached_info \
7994 elfNN_aarch64_bfd_free_cached_info
7995
7996 #define bfd_elfNN_bfd_is_target_special_symbol \
7997 elfNN_aarch64_is_target_special_symbol
7998
7999 #define bfd_elfNN_bfd_link_hash_table_create \
8000 elfNN_aarch64_link_hash_table_create
8001
8002 #define bfd_elfNN_bfd_merge_private_bfd_data \
8003 elfNN_aarch64_merge_private_bfd_data
8004
8005 #define bfd_elfNN_bfd_print_private_bfd_data \
8006 elfNN_aarch64_print_private_bfd_data
8007
8008 #define bfd_elfNN_bfd_reloc_type_lookup \
8009 elfNN_aarch64_reloc_type_lookup
8010
8011 #define bfd_elfNN_bfd_reloc_name_lookup \
8012 elfNN_aarch64_reloc_name_lookup
8013
8014 #define bfd_elfNN_bfd_set_private_flags \
8015 elfNN_aarch64_set_private_flags
8016
8017 #define bfd_elfNN_find_inliner_info \
8018 elfNN_aarch64_find_inliner_info
8019
8020 #define bfd_elfNN_find_nearest_line \
8021 elfNN_aarch64_find_nearest_line
8022
8023 #define bfd_elfNN_mkobject \
8024 elfNN_aarch64_mkobject
8025
8026 #define bfd_elfNN_new_section_hook \
8027 elfNN_aarch64_new_section_hook
8028
8029 #define elf_backend_adjust_dynamic_symbol \
8030 elfNN_aarch64_adjust_dynamic_symbol
8031
8032 #define elf_backend_always_size_sections \
8033 elfNN_aarch64_always_size_sections
8034
8035 #define elf_backend_check_relocs \
8036 elfNN_aarch64_check_relocs
8037
8038 #define elf_backend_copy_indirect_symbol \
8039 elfNN_aarch64_copy_indirect_symbol
8040
8041 /* Create .dynbss, and .rela.bss sections in DYNOBJ, and set up shortcuts
8042 to them in our hash. */
8043 #define elf_backend_create_dynamic_sections \
8044 elfNN_aarch64_create_dynamic_sections
8045
8046 #define elf_backend_init_index_section \
8047 _bfd_elf_init_2_index_sections
8048
8049 #define elf_backend_finish_dynamic_sections \
8050 elfNN_aarch64_finish_dynamic_sections
8051
8052 #define elf_backend_finish_dynamic_symbol \
8053 elfNN_aarch64_finish_dynamic_symbol
8054
8055 #define elf_backend_gc_sweep_hook \
8056 elfNN_aarch64_gc_sweep_hook
8057
8058 #define elf_backend_object_p \
8059 elfNN_aarch64_object_p
8060
8061 #define elf_backend_output_arch_local_syms \
8062 elfNN_aarch64_output_arch_local_syms
8063
8064 #define elf_backend_plt_sym_val \
8065 elfNN_aarch64_plt_sym_val
8066
8067 #define elf_backend_post_process_headers \
8068 elfNN_aarch64_post_process_headers
8069
8070 #define elf_backend_relocate_section \
8071 elfNN_aarch64_relocate_section
8072
8073 #define elf_backend_reloc_type_class \
8074 elfNN_aarch64_reloc_type_class
8075
8076 #define elf_backend_section_from_shdr \
8077 elfNN_aarch64_section_from_shdr
8078
8079 #define elf_backend_size_dynamic_sections \
8080 elfNN_aarch64_size_dynamic_sections
8081
8082 #define elf_backend_size_info \
8083 elfNN_aarch64_size_info
8084
8085 #define elf_backend_write_section \
8086 elfNN_aarch64_write_section
8087
8088 #define elf_backend_can_refcount 1
8089 #define elf_backend_can_gc_sections 1
8090 #define elf_backend_plt_readonly 1
8091 #define elf_backend_want_got_plt 1
8092 #define elf_backend_want_plt_sym 0
8093 #define elf_backend_may_use_rel_p 0
8094 #define elf_backend_may_use_rela_p 1
8095 #define elf_backend_default_use_rela_p 1
8096 #define elf_backend_rela_normal 1
8097 #define elf_backend_got_header_size (GOT_ENTRY_SIZE * 3)
8098 #define elf_backend_default_execstack 0
8099
8100 #undef elf_backend_obj_attrs_section
8101 #define elf_backend_obj_attrs_section ".ARM.attributes"
8102
8103 #include "elfNN-target.h"
GDB Binutils - Deliverables
This page took 0.296426 seconds and 4 git commands to generate.