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