Import gdb-7.10.1
[dragonfly.git] / contrib / gdb-7 / 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 /* Find any dynamic relocs that apply to read-only sections.  */
7549
7550 static bfd_boolean
7551 aarch64_readonly_dynrelocs (struct elf_link_hash_entry * h, void * inf)
7552 {
7553   struct elf_aarch64_link_hash_entry * eh;
7554   struct elf_dyn_relocs * p;
7555
7556   eh = (struct elf_aarch64_link_hash_entry *) h;
7557   for (p = eh->dyn_relocs; p != NULL; p = p->next)
7558     {
7559       asection *s = p->sec;
7560
7561       if (s != NULL && (s->flags & SEC_READONLY) != 0)
7562         {
7563           struct bfd_link_info *info = (struct bfd_link_info *) inf;
7564
7565           info->flags |= DF_TEXTREL;
7566
7567           /* Not an error, just cut short the traversal.  */
7568           return FALSE;
7569         }
7570     }
7571   return TRUE;
7572 }
7573
7574 /* This is the most important function of all . Innocuosly named
7575    though !  */
7576 static bfd_boolean
7577 elfNN_aarch64_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
7578                                      struct bfd_link_info *info)
7579 {
7580   struct elf_aarch64_link_hash_table *htab;
7581   bfd *dynobj;
7582   asection *s;
7583   bfd_boolean relocs;
7584   bfd *ibfd;
7585
7586   htab = elf_aarch64_hash_table ((info));
7587   dynobj = htab->root.dynobj;
7588
7589   BFD_ASSERT (dynobj != NULL);
7590
7591   if (htab->root.dynamic_sections_created)
7592     {
7593       if (info->executable)
7594         {
7595           s = bfd_get_linker_section (dynobj, ".interp");
7596           if (s == NULL)
7597             abort ();
7598           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
7599           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
7600         }
7601     }
7602
7603   /* Set up .got offsets for local syms, and space for local dynamic
7604      relocs.  */
7605   for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
7606     {
7607       struct elf_aarch64_local_symbol *locals = NULL;
7608       Elf_Internal_Shdr *symtab_hdr;
7609       asection *srel;
7610       unsigned int i;
7611
7612       if (!is_aarch64_elf (ibfd))
7613         continue;
7614
7615       for (s = ibfd->sections; s != NULL; s = s->next)
7616         {
7617           struct elf_dyn_relocs *p;
7618
7619           for (p = (struct elf_dyn_relocs *)
7620                (elf_section_data (s)->local_dynrel); p != NULL; p = p->next)
7621             {
7622               if (!bfd_is_abs_section (p->sec)
7623                   && bfd_is_abs_section (p->sec->output_section))
7624                 {
7625                   /* Input section has been discarded, either because
7626                      it is a copy of a linkonce section or due to
7627                      linker script /DISCARD/, so we'll be discarding
7628                      the relocs too.  */
7629                 }
7630               else if (p->count != 0)
7631                 {
7632                   srel = elf_section_data (p->sec)->sreloc;
7633                   srel->size += p->count * RELOC_SIZE (htab);
7634                   if ((p->sec->output_section->flags & SEC_READONLY) != 0)
7635                     info->flags |= DF_TEXTREL;
7636                 }
7637             }
7638         }
7639
7640       locals = elf_aarch64_locals (ibfd);
7641       if (!locals)
7642         continue;
7643
7644       symtab_hdr = &elf_symtab_hdr (ibfd);
7645       srel = htab->root.srelgot;
7646       for (i = 0; i < symtab_hdr->sh_info; i++)
7647         {
7648           locals[i].got_offset = (bfd_vma) - 1;
7649           locals[i].tlsdesc_got_jump_table_offset = (bfd_vma) - 1;
7650           if (locals[i].got_refcount > 0)
7651             {
7652               unsigned got_type = locals[i].got_type;
7653               if (got_type & GOT_TLSDESC_GD)
7654                 {
7655                   locals[i].tlsdesc_got_jump_table_offset =
7656                     (htab->root.sgotplt->size
7657                      - aarch64_compute_jump_table_size (htab));
7658                   htab->root.sgotplt->size += GOT_ENTRY_SIZE * 2;
7659                   locals[i].got_offset = (bfd_vma) - 2;
7660                 }
7661
7662               if (got_type & GOT_TLS_GD)
7663                 {
7664                   locals[i].got_offset = htab->root.sgot->size;
7665                   htab->root.sgot->size += GOT_ENTRY_SIZE * 2;
7666                 }
7667
7668               if (got_type & GOT_TLS_IE
7669                   || got_type & GOT_NORMAL)
7670                 {
7671                   locals[i].got_offset = htab->root.sgot->size;
7672                   htab->root.sgot->size += GOT_ENTRY_SIZE;
7673                 }
7674
7675               if (got_type == GOT_UNKNOWN)
7676                 {
7677                 }
7678
7679               if (info->shared)
7680                 {
7681                   if (got_type & GOT_TLSDESC_GD)
7682                     {
7683                       htab->root.srelplt->size += RELOC_SIZE (htab);
7684                       /* Note RELOC_COUNT not incremented here! */
7685                       htab->tlsdesc_plt = (bfd_vma) - 1;
7686                     }
7687
7688                   if (got_type & GOT_TLS_GD)
7689                     htab->root.srelgot->size += RELOC_SIZE (htab) * 2;
7690
7691                   if (got_type & GOT_TLS_IE
7692                       || got_type & GOT_NORMAL)
7693                     htab->root.srelgot->size += RELOC_SIZE (htab);
7694                 }
7695             }
7696           else
7697             {
7698               locals[i].got_refcount = (bfd_vma) - 1;
7699             }
7700         }
7701     }
7702
7703
7704   /* Allocate global sym .plt and .got entries, and space for global
7705      sym dynamic relocs.  */
7706   elf_link_hash_traverse (&htab->root, elfNN_aarch64_allocate_dynrelocs,
7707                           info);
7708
7709   /* Allocate global ifunc sym .plt and .got entries, and space for global
7710      ifunc sym dynamic relocs.  */
7711   elf_link_hash_traverse (&htab->root, elfNN_aarch64_allocate_ifunc_dynrelocs,
7712                           info);
7713
7714   /* Allocate .plt and .got entries, and space for local symbols.  */
7715   htab_traverse (htab->loc_hash_table,
7716                  elfNN_aarch64_allocate_local_dynrelocs,
7717                  info);
7718
7719   /* Allocate .plt and .got entries, and space for local ifunc symbols.  */
7720   htab_traverse (htab->loc_hash_table,
7721                  elfNN_aarch64_allocate_local_ifunc_dynrelocs,
7722                  info);
7723
7724   /* For every jump slot reserved in the sgotplt, reloc_count is
7725      incremented.  However, when we reserve space for TLS descriptors,
7726      it's not incremented, so in order to compute the space reserved
7727      for them, it suffices to multiply the reloc count by the jump
7728      slot size.  */
7729
7730   if (htab->root.srelplt)
7731     htab->sgotplt_jump_table_size = aarch64_compute_jump_table_size (htab);
7732
7733   if (htab->tlsdesc_plt)
7734     {
7735       if (htab->root.splt->size == 0)
7736         htab->root.splt->size += PLT_ENTRY_SIZE;
7737
7738       htab->tlsdesc_plt = htab->root.splt->size;
7739       htab->root.splt->size += PLT_TLSDESC_ENTRY_SIZE;
7740
7741       /* If we're not using lazy TLS relocations, don't generate the
7742          GOT entry required.  */
7743       if (!(info->flags & DF_BIND_NOW))
7744         {
7745           htab->dt_tlsdesc_got = htab->root.sgot->size;
7746           htab->root.sgot->size += GOT_ENTRY_SIZE;
7747         }
7748     }
7749
7750   /* Init mapping symbols information to use later to distingush between
7751      code and data while scanning for errata.  */
7752   if (htab->fix_erratum_835769 || htab->fix_erratum_843419)
7753     for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
7754       {
7755         if (!is_aarch64_elf (ibfd))
7756           continue;
7757         bfd_elfNN_aarch64_init_maps (ibfd);
7758       }
7759
7760   /* We now have determined the sizes of the various dynamic sections.
7761      Allocate memory for them.  */
7762   relocs = FALSE;
7763   for (s = dynobj->sections; s != NULL; s = s->next)
7764     {
7765       if ((s->flags & SEC_LINKER_CREATED) == 0)
7766         continue;
7767
7768       if (s == htab->root.splt
7769           || s == htab->root.sgot
7770           || s == htab->root.sgotplt
7771           || s == htab->root.iplt
7772           || s == htab->root.igotplt || s == htab->sdynbss)
7773         {
7774           /* Strip this section if we don't need it; see the
7775              comment below.  */
7776         }
7777       else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
7778         {
7779           if (s->size != 0 && s != htab->root.srelplt)
7780             relocs = TRUE;
7781
7782           /* We use the reloc_count field as a counter if we need
7783              to copy relocs into the output file.  */
7784           if (s != htab->root.srelplt)
7785             s->reloc_count = 0;
7786         }
7787       else
7788         {
7789           /* It's not one of our sections, so don't allocate space.  */
7790           continue;
7791         }
7792
7793       if (s->size == 0)
7794         {
7795           /* If we don't need this section, strip it from the
7796              output file.  This is mostly to handle .rela.bss and
7797              .rela.plt.  We must create both sections in
7798              create_dynamic_sections, because they must be created
7799              before the linker maps input sections to output
7800              sections.  The linker does that before
7801              adjust_dynamic_symbol is called, and it is that
7802              function which decides whether anything needs to go
7803              into these sections.  */
7804
7805           s->flags |= SEC_EXCLUDE;
7806           continue;
7807         }
7808
7809       if ((s->flags & SEC_HAS_CONTENTS) == 0)
7810         continue;
7811
7812       /* Allocate memory for the section contents.  We use bfd_zalloc
7813          here in case unused entries are not reclaimed before the
7814          section's contents are written out.  This should not happen,
7815          but this way if it does, we get a R_AARCH64_NONE reloc instead
7816          of garbage.  */
7817       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
7818       if (s->contents == NULL)
7819         return FALSE;
7820     }
7821
7822   if (htab->root.dynamic_sections_created)
7823     {
7824       /* Add some entries to the .dynamic section.  We fill in the
7825          values later, in elfNN_aarch64_finish_dynamic_sections, but we
7826          must add the entries now so that we get the correct size for
7827          the .dynamic section.  The DT_DEBUG entry is filled in by the
7828          dynamic linker and used by the debugger.  */
7829 #define add_dynamic_entry(TAG, VAL)                     \
7830       _bfd_elf_add_dynamic_entry (info, TAG, VAL)
7831
7832       if (info->executable)
7833         {
7834           if (!add_dynamic_entry (DT_DEBUG, 0))
7835             return FALSE;
7836         }
7837
7838       if (htab->root.splt->size != 0)
7839         {
7840           if (!add_dynamic_entry (DT_PLTGOT, 0)
7841               || !add_dynamic_entry (DT_PLTRELSZ, 0)
7842               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
7843               || !add_dynamic_entry (DT_JMPREL, 0))
7844             return FALSE;
7845
7846           if (htab->tlsdesc_plt
7847               && (!add_dynamic_entry (DT_TLSDESC_PLT, 0)
7848                   || !add_dynamic_entry (DT_TLSDESC_GOT, 0)))
7849             return FALSE;
7850         }
7851
7852       if (relocs)
7853         {
7854           if (!add_dynamic_entry (DT_RELA, 0)
7855               || !add_dynamic_entry (DT_RELASZ, 0)
7856               || !add_dynamic_entry (DT_RELAENT, RELOC_SIZE (htab)))
7857             return FALSE;
7858
7859           /* If any dynamic relocs apply to a read-only section,
7860              then we need a DT_TEXTREL entry.  */
7861           if ((info->flags & DF_TEXTREL) == 0)
7862             elf_link_hash_traverse (& htab->root, aarch64_readonly_dynrelocs,
7863                                     info);
7864
7865           if ((info->flags & DF_TEXTREL) != 0)
7866             {
7867               if (!add_dynamic_entry (DT_TEXTREL, 0))
7868                 return FALSE;
7869             }
7870         }
7871     }
7872 #undef add_dynamic_entry
7873
7874   return TRUE;
7875 }
7876
7877 static inline void
7878 elf_aarch64_update_plt_entry (bfd *output_bfd,
7879                               bfd_reloc_code_real_type r_type,
7880                               bfd_byte *plt_entry, bfd_vma value)
7881 {
7882   reloc_howto_type *howto = elfNN_aarch64_howto_from_bfd_reloc (r_type);
7883
7884   _bfd_aarch64_elf_put_addend (output_bfd, plt_entry, r_type, howto, value);
7885 }
7886
7887 static void
7888 elfNN_aarch64_create_small_pltn_entry (struct elf_link_hash_entry *h,
7889                                        struct elf_aarch64_link_hash_table
7890                                        *htab, bfd *output_bfd,
7891                                        struct bfd_link_info *info)
7892 {
7893   bfd_byte *plt_entry;
7894   bfd_vma plt_index;
7895   bfd_vma got_offset;
7896   bfd_vma gotplt_entry_address;
7897   bfd_vma plt_entry_address;
7898   Elf_Internal_Rela rela;
7899   bfd_byte *loc;
7900   asection *plt, *gotplt, *relplt;
7901
7902   /* When building a static executable, use .iplt, .igot.plt and
7903      .rela.iplt sections for STT_GNU_IFUNC symbols.  */
7904   if (htab->root.splt != NULL)
7905     {
7906       plt = htab->root.splt;
7907       gotplt = htab->root.sgotplt;
7908       relplt = htab->root.srelplt;
7909     }
7910   else
7911     {
7912       plt = htab->root.iplt;
7913       gotplt = htab->root.igotplt;
7914       relplt = htab->root.irelplt;
7915     }
7916
7917   /* Get the index in the procedure linkage table which
7918      corresponds to this symbol.  This is the index of this symbol
7919      in all the symbols for which we are making plt entries.  The
7920      first entry in the procedure linkage table is reserved.
7921
7922      Get the offset into the .got table of the entry that
7923      corresponds to this function.      Each .got entry is GOT_ENTRY_SIZE
7924      bytes. The first three are reserved for the dynamic linker.
7925
7926      For static executables, we don't reserve anything.  */
7927
7928   if (plt == htab->root.splt)
7929     {
7930       plt_index = (h->plt.offset - htab->plt_header_size) / htab->plt_entry_size;
7931       got_offset = (plt_index + 3) * GOT_ENTRY_SIZE;
7932     }
7933   else
7934     {
7935       plt_index = h->plt.offset / htab->plt_entry_size;
7936       got_offset = plt_index * GOT_ENTRY_SIZE;
7937     }
7938
7939   plt_entry = plt->contents + h->plt.offset;
7940   plt_entry_address = plt->output_section->vma
7941     + plt->output_offset + h->plt.offset;
7942   gotplt_entry_address = gotplt->output_section->vma +
7943     gotplt->output_offset + got_offset;
7944
7945   /* Copy in the boiler-plate for the PLTn entry.  */
7946   memcpy (plt_entry, elfNN_aarch64_small_plt_entry, PLT_SMALL_ENTRY_SIZE);
7947
7948   /* Fill in the top 21 bits for this: ADRP x16, PLT_GOT + n * 8.
7949      ADRP:   ((PG(S+A)-PG(P)) >> 12) & 0x1fffff */
7950   elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADR_HI21_PCREL,
7951                                 plt_entry,
7952                                 PG (gotplt_entry_address) -
7953                                 PG (plt_entry_address));
7954
7955   /* Fill in the lo12 bits for the load from the pltgot.  */
7956   elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_LDSTNN_LO12,
7957                                 plt_entry + 4,
7958                                 PG_OFFSET (gotplt_entry_address));
7959
7960   /* Fill in the lo12 bits for the add from the pltgot entry.  */
7961   elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADD_LO12,
7962                                 plt_entry + 8,
7963                                 PG_OFFSET (gotplt_entry_address));
7964
7965   /* All the GOTPLT Entries are essentially initialized to PLT0.  */
7966   bfd_put_NN (output_bfd,
7967               plt->output_section->vma + plt->output_offset,
7968               gotplt->contents + got_offset);
7969
7970   rela.r_offset = gotplt_entry_address;
7971
7972   if (h->dynindx == -1
7973       || ((info->executable
7974            || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
7975           && h->def_regular
7976           && h->type == STT_GNU_IFUNC))
7977     {
7978       /* If an STT_GNU_IFUNC symbol is locally defined, generate
7979          R_AARCH64_IRELATIVE instead of R_AARCH64_JUMP_SLOT.  */
7980       rela.r_info = ELFNN_R_INFO (0, AARCH64_R (IRELATIVE));
7981       rela.r_addend = (h->root.u.def.value
7982                        + h->root.u.def.section->output_section->vma
7983                        + h->root.u.def.section->output_offset);
7984     }
7985   else
7986     {
7987       /* Fill in the entry in the .rela.plt section.  */
7988       rela.r_info = ELFNN_R_INFO (h->dynindx, AARCH64_R (JUMP_SLOT));
7989       rela.r_addend = 0;
7990     }
7991
7992   /* Compute the relocation entry to used based on PLT index and do
7993      not adjust reloc_count. The reloc_count has already been adjusted
7994      to account for this entry.  */
7995   loc = relplt->contents + plt_index * RELOC_SIZE (htab);
7996   bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
7997 }
7998
7999 /* Size sections even though they're not dynamic.  We use it to setup
8000    _TLS_MODULE_BASE_, if needed.  */
8001
8002 static bfd_boolean
8003 elfNN_aarch64_always_size_sections (bfd *output_bfd,
8004                                     struct bfd_link_info *info)
8005 {
8006   asection *tls_sec;
8007
8008   if (info->relocatable)
8009     return TRUE;
8010
8011   tls_sec = elf_hash_table (info)->tls_sec;
8012
8013   if (tls_sec)
8014     {
8015       struct elf_link_hash_entry *tlsbase;
8016
8017       tlsbase = elf_link_hash_lookup (elf_hash_table (info),
8018                                       "_TLS_MODULE_BASE_", TRUE, TRUE, FALSE);
8019
8020       if (tlsbase)
8021         {
8022           struct bfd_link_hash_entry *h = NULL;
8023           const struct elf_backend_data *bed =
8024             get_elf_backend_data (output_bfd);
8025
8026           if (!(_bfd_generic_link_add_one_symbol
8027                 (info, output_bfd, "_TLS_MODULE_BASE_", BSF_LOCAL,
8028                  tls_sec, 0, NULL, FALSE, bed->collect, &h)))
8029             return FALSE;
8030
8031           tlsbase->type = STT_TLS;
8032           tlsbase = (struct elf_link_hash_entry *) h;
8033           tlsbase->def_regular = 1;
8034           tlsbase->other = STV_HIDDEN;
8035           (*bed->elf_backend_hide_symbol) (info, tlsbase, TRUE);
8036         }
8037     }
8038
8039   return TRUE;
8040 }
8041
8042 /* Finish up dynamic symbol handling.  We set the contents of various
8043    dynamic sections here.  */
8044 static bfd_boolean
8045 elfNN_aarch64_finish_dynamic_symbol (bfd *output_bfd,
8046                                      struct bfd_link_info *info,
8047                                      struct elf_link_hash_entry *h,
8048                                      Elf_Internal_Sym *sym)
8049 {
8050   struct elf_aarch64_link_hash_table *htab;
8051   htab = elf_aarch64_hash_table (info);
8052
8053   if (h->plt.offset != (bfd_vma) - 1)
8054     {
8055       asection *plt, *gotplt, *relplt;
8056
8057       /* This symbol has an entry in the procedure linkage table.  Set
8058          it up.  */
8059
8060       /* When building a static executable, use .iplt, .igot.plt and
8061          .rela.iplt sections for STT_GNU_IFUNC symbols.  */
8062       if (htab->root.splt != NULL)
8063         {
8064           plt = htab->root.splt;
8065           gotplt = htab->root.sgotplt;
8066           relplt = htab->root.srelplt;
8067         }
8068       else
8069         {
8070           plt = htab->root.iplt;
8071           gotplt = htab->root.igotplt;
8072           relplt = htab->root.irelplt;
8073         }
8074
8075       /* This symbol has an entry in the procedure linkage table.  Set
8076          it up.  */
8077       if ((h->dynindx == -1
8078            && !((h->forced_local || info->executable)
8079                 && h->def_regular
8080                 && h->type == STT_GNU_IFUNC))
8081           || plt == NULL
8082           || gotplt == NULL
8083           || relplt == NULL)
8084         abort ();
8085
8086       elfNN_aarch64_create_small_pltn_entry (h, htab, output_bfd, info);
8087       if (!h->def_regular)
8088         {
8089           /* Mark the symbol as undefined, rather than as defined in
8090              the .plt section.  */
8091           sym->st_shndx = SHN_UNDEF;
8092           /* If the symbol is weak we need to clear the value.
8093              Otherwise, the PLT entry would provide a definition for
8094              the symbol even if the symbol wasn't defined anywhere,
8095              and so the symbol would never be NULL.  Leave the value if
8096              there were any relocations where pointer equality matters
8097              (this is a clue for the dynamic linker, to make function
8098              pointer comparisons work between an application and shared
8099              library).  */
8100           if (!h->ref_regular_nonweak || !h->pointer_equality_needed)
8101             sym->st_value = 0;
8102         }
8103     }
8104
8105   if (h->got.offset != (bfd_vma) - 1
8106       && elf_aarch64_hash_entry (h)->got_type == GOT_NORMAL)
8107     {
8108       Elf_Internal_Rela rela;
8109       bfd_byte *loc;
8110
8111       /* This symbol has an entry in the global offset table.  Set it
8112          up.  */
8113       if (htab->root.sgot == NULL || htab->root.srelgot == NULL)
8114         abort ();
8115
8116       rela.r_offset = (htab->root.sgot->output_section->vma
8117                        + htab->root.sgot->output_offset
8118                        + (h->got.offset & ~(bfd_vma) 1));
8119
8120       if (h->def_regular
8121           && h->type == STT_GNU_IFUNC)
8122         {
8123           if (info->shared)
8124             {
8125               /* Generate R_AARCH64_GLOB_DAT.  */
8126               goto do_glob_dat;
8127             }
8128           else
8129             {
8130               asection *plt;
8131
8132               if (!h->pointer_equality_needed)
8133                 abort ();
8134
8135               /* For non-shared object, we can't use .got.plt, which
8136                  contains the real function address if we need pointer
8137                  equality.  We load the GOT entry with the PLT entry.  */
8138               plt = htab->root.splt ? htab->root.splt : htab->root.iplt;
8139               bfd_put_NN (output_bfd, (plt->output_section->vma
8140                                        + plt->output_offset
8141                                        + h->plt.offset),
8142                           htab->root.sgot->contents
8143                           + (h->got.offset & ~(bfd_vma) 1));
8144               return TRUE;
8145             }
8146         }
8147       else if (info->shared && SYMBOL_REFERENCES_LOCAL (info, h))
8148         {
8149           if (!h->def_regular)
8150             return FALSE;
8151
8152           BFD_ASSERT ((h->got.offset & 1) != 0);
8153           rela.r_info = ELFNN_R_INFO (0, AARCH64_R (RELATIVE));
8154           rela.r_addend = (h->root.u.def.value
8155                            + h->root.u.def.section->output_section->vma
8156                            + h->root.u.def.section->output_offset);
8157         }
8158       else
8159         {
8160 do_glob_dat:
8161           BFD_ASSERT ((h->got.offset & 1) == 0);
8162           bfd_put_NN (output_bfd, (bfd_vma) 0,
8163                       htab->root.sgot->contents + h->got.offset);
8164           rela.r_info = ELFNN_R_INFO (h->dynindx, AARCH64_R (GLOB_DAT));
8165           rela.r_addend = 0;
8166         }
8167
8168       loc = htab->root.srelgot->contents;
8169       loc += htab->root.srelgot->reloc_count++ * RELOC_SIZE (htab);
8170       bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
8171     }
8172
8173   if (h->needs_copy)
8174     {
8175       Elf_Internal_Rela rela;
8176       bfd_byte *loc;
8177
8178       /* This symbol needs a copy reloc.  Set it up.  */
8179
8180       if (h->dynindx == -1
8181           || (h->root.type != bfd_link_hash_defined
8182               && h->root.type != bfd_link_hash_defweak)
8183           || htab->srelbss == NULL)
8184         abort ();
8185
8186       rela.r_offset = (h->root.u.def.value
8187                        + h->root.u.def.section->output_section->vma
8188                        + h->root.u.def.section->output_offset);
8189       rela.r_info = ELFNN_R_INFO (h->dynindx, AARCH64_R (COPY));
8190       rela.r_addend = 0;
8191       loc = htab->srelbss->contents;
8192       loc += htab->srelbss->reloc_count++ * RELOC_SIZE (htab);
8193       bfd_elfNN_swap_reloca_out (output_bfd, &rela, loc);
8194     }
8195
8196   /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute.  SYM may
8197      be NULL for local symbols.  */
8198   if (sym != NULL
8199       && (h == elf_hash_table (info)->hdynamic
8200           || h == elf_hash_table (info)->hgot))
8201     sym->st_shndx = SHN_ABS;
8202
8203   return TRUE;
8204 }
8205
8206 /* Finish up local dynamic symbol handling.  We set the contents of
8207    various dynamic sections here.  */
8208
8209 static bfd_boolean
8210 elfNN_aarch64_finish_local_dynamic_symbol (void **slot, void *inf)
8211 {
8212   struct elf_link_hash_entry *h
8213     = (struct elf_link_hash_entry *) *slot;
8214   struct bfd_link_info *info
8215     = (struct bfd_link_info *) inf;
8216
8217   return elfNN_aarch64_finish_dynamic_symbol (info->output_bfd,
8218                                               info, h, NULL);
8219 }
8220
8221 static void
8222 elfNN_aarch64_init_small_plt0_entry (bfd *output_bfd ATTRIBUTE_UNUSED,
8223                                      struct elf_aarch64_link_hash_table
8224                                      *htab)
8225 {
8226   /* Fill in PLT0. Fixme:RR Note this doesn't distinguish between
8227      small and large plts and at the minute just generates
8228      the small PLT.  */
8229
8230   /* PLT0 of the small PLT looks like this in ELF64 -
8231      stp x16, x30, [sp, #-16]!          // Save the reloc and lr on stack.
8232      adrp x16, PLT_GOT + 16             // Get the page base of the GOTPLT
8233      ldr  x17, [x16, #:lo12:PLT_GOT+16] // Load the address of the
8234                                         // symbol resolver
8235      add  x16, x16, #:lo12:PLT_GOT+16   // Load the lo12 bits of the
8236                                         // GOTPLT entry for this.
8237      br   x17
8238      PLT0 will be slightly different in ELF32 due to different got entry
8239      size.
8240    */
8241   bfd_vma plt_got_2nd_ent;      /* Address of GOT[2].  */
8242   bfd_vma plt_base;
8243
8244
8245   memcpy (htab->root.splt->contents, elfNN_aarch64_small_plt0_entry,
8246           PLT_ENTRY_SIZE);
8247   elf_section_data (htab->root.splt->output_section)->this_hdr.sh_entsize =
8248     PLT_ENTRY_SIZE;
8249
8250   plt_got_2nd_ent = (htab->root.sgotplt->output_section->vma
8251                   + htab->root.sgotplt->output_offset
8252                   + GOT_ENTRY_SIZE * 2);
8253
8254   plt_base = htab->root.splt->output_section->vma +
8255     htab->root.splt->output_offset;
8256
8257   /* Fill in the top 21 bits for this: ADRP x16, PLT_GOT + n * 8.
8258      ADRP:   ((PG(S+A)-PG(P)) >> 12) & 0x1fffff */
8259   elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADR_HI21_PCREL,
8260                                 htab->root.splt->contents + 4,
8261                                 PG (plt_got_2nd_ent) - PG (plt_base + 4));
8262
8263   elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_LDSTNN_LO12,
8264                                 htab->root.splt->contents + 8,
8265                                 PG_OFFSET (plt_got_2nd_ent));
8266
8267   elf_aarch64_update_plt_entry (output_bfd, BFD_RELOC_AARCH64_ADD_LO12,
8268                                 htab->root.splt->contents + 12,
8269                                 PG_OFFSET (plt_got_2nd_ent));
8270 }
8271
8272 static bfd_boolean
8273 elfNN_aarch64_finish_dynamic_sections (bfd *output_bfd,
8274                                        struct bfd_link_info *info)
8275 {
8276   struct elf_aarch64_link_hash_table *htab;
8277   bfd *dynobj;
8278   asection *sdyn;
8279
8280   htab = elf_aarch64_hash_table (info);
8281   dynobj = htab->root.dynobj;
8282   sdyn = bfd_get_linker_section (dynobj, ".dynamic");
8283
8284   if (htab->root.dynamic_sections_created)
8285     {
8286       ElfNN_External_Dyn *dyncon, *dynconend;
8287
8288       if (sdyn == NULL || htab->root.sgot == NULL)
8289         abort ();
8290
8291       dyncon = (ElfNN_External_Dyn *) sdyn->contents;
8292       dynconend = (ElfNN_External_Dyn *) (sdyn->contents + sdyn->size);
8293       for (; dyncon < dynconend; dyncon++)
8294         {
8295           Elf_Internal_Dyn dyn;
8296           asection *s;
8297
8298           bfd_elfNN_swap_dyn_in (dynobj, dyncon, &dyn);
8299
8300           switch (dyn.d_tag)
8301             {
8302             default:
8303               continue;
8304
8305             case DT_PLTGOT:
8306               s = htab->root.sgotplt;
8307               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
8308               break;
8309
8310             case DT_JMPREL:
8311               dyn.d_un.d_ptr = htab->root.srelplt->output_section->vma;
8312               break;
8313
8314             case DT_PLTRELSZ:
8315               s = htab->root.srelplt;
8316               dyn.d_un.d_val = s->size;
8317               break;
8318
8319             case DT_RELASZ:
8320               /* The procedure linkage table relocs (DT_JMPREL) should
8321                  not be included in the overall relocs (DT_RELA).
8322                  Therefore, we override the DT_RELASZ entry here to
8323                  make it not include the JMPREL relocs.  Since the
8324                  linker script arranges for .rela.plt to follow all
8325                  other relocation sections, we don't have to worry
8326                  about changing the DT_RELA entry.  */
8327               if (htab->root.srelplt != NULL)
8328                 {
8329                   s = htab->root.srelplt;
8330                   dyn.d_un.d_val -= s->size;
8331                 }
8332               break;
8333
8334             case DT_TLSDESC_PLT:
8335               s = htab->root.splt;
8336               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
8337                 + htab->tlsdesc_plt;
8338               break;
8339
8340             case DT_TLSDESC_GOT:
8341               s = htab->root.sgot;
8342               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
8343                 + htab->dt_tlsdesc_got;
8344               break;
8345             }
8346
8347           bfd_elfNN_swap_dyn_out (output_bfd, &dyn, dyncon);
8348         }
8349
8350     }
8351
8352   /* Fill in the special first entry in the procedure linkage table.  */
8353   if (htab->root.splt && htab->root.splt->size > 0)
8354     {
8355       elfNN_aarch64_init_small_plt0_entry (output_bfd, htab);
8356
8357       elf_section_data (htab->root.splt->output_section)->
8358         this_hdr.sh_entsize = htab->plt_entry_size;
8359
8360
8361       if (htab->tlsdesc_plt)
8362         {
8363           bfd_put_NN (output_bfd, (bfd_vma) 0,
8364                       htab->root.sgot->contents + htab->dt_tlsdesc_got);
8365
8366           memcpy (htab->root.splt->contents + htab->tlsdesc_plt,
8367                   elfNN_aarch64_tlsdesc_small_plt_entry,
8368                   sizeof (elfNN_aarch64_tlsdesc_small_plt_entry));
8369
8370           {
8371             bfd_vma adrp1_addr =
8372               htab->root.splt->output_section->vma
8373               + htab->root.splt->output_offset + htab->tlsdesc_plt + 4;
8374
8375             bfd_vma adrp2_addr = adrp1_addr + 4;
8376
8377             bfd_vma got_addr =
8378               htab->root.sgot->output_section->vma
8379               + htab->root.sgot->output_offset;
8380
8381             bfd_vma pltgot_addr =
8382               htab->root.sgotplt->output_section->vma
8383               + htab->root.sgotplt->output_offset;
8384
8385             bfd_vma dt_tlsdesc_got = got_addr + htab->dt_tlsdesc_got;
8386
8387             bfd_byte *plt_entry =
8388               htab->root.splt->contents + htab->tlsdesc_plt;
8389
8390             /* adrp x2, DT_TLSDESC_GOT */
8391             elf_aarch64_update_plt_entry (output_bfd,
8392                                           BFD_RELOC_AARCH64_ADR_HI21_PCREL,
8393                                           plt_entry + 4,
8394                                           (PG (dt_tlsdesc_got)
8395                                            - PG (adrp1_addr)));
8396
8397             /* adrp x3, 0 */
8398             elf_aarch64_update_plt_entry (output_bfd,
8399                                           BFD_RELOC_AARCH64_ADR_HI21_PCREL,
8400                                           plt_entry + 8,
8401                                           (PG (pltgot_addr)
8402                                            - PG (adrp2_addr)));
8403
8404             /* ldr x2, [x2, #0] */
8405             elf_aarch64_update_plt_entry (output_bfd,
8406                                           BFD_RELOC_AARCH64_LDSTNN_LO12,
8407                                           plt_entry + 12,
8408                                           PG_OFFSET (dt_tlsdesc_got));
8409
8410             /* add x3, x3, 0 */
8411             elf_aarch64_update_plt_entry (output_bfd,
8412                                           BFD_RELOC_AARCH64_ADD_LO12,
8413                                           plt_entry + 16,
8414                                           PG_OFFSET (pltgot_addr));
8415           }
8416         }
8417     }
8418
8419   if (htab->root.sgotplt)
8420     {
8421       if (bfd_is_abs_section (htab->root.sgotplt->output_section))
8422         {
8423           (*_bfd_error_handler)
8424             (_("discarded output section: `%A'"), htab->root.sgotplt);
8425           return FALSE;
8426         }
8427
8428       /* Fill in the first three entries in the global offset table.  */
8429       if (htab->root.sgotplt->size > 0)
8430         {
8431           bfd_put_NN (output_bfd, (bfd_vma) 0, htab->root.sgotplt->contents);
8432
8433           /* Write GOT[1] and GOT[2], needed for the dynamic linker.  */
8434           bfd_put_NN (output_bfd,
8435                       (bfd_vma) 0,
8436                       htab->root.sgotplt->contents + GOT_ENTRY_SIZE);
8437           bfd_put_NN (output_bfd,
8438                       (bfd_vma) 0,
8439                       htab->root.sgotplt->contents + GOT_ENTRY_SIZE * 2);
8440         }
8441
8442       if (htab->root.sgot)
8443         {
8444           if (htab->root.sgot->size > 0)
8445             {
8446               bfd_vma addr =
8447                 sdyn ? sdyn->output_section->vma + sdyn->output_offset : 0;
8448               bfd_put_NN (output_bfd, addr, htab->root.sgot->contents);
8449             }
8450         }
8451
8452       elf_section_data (htab->root.sgotplt->output_section)->
8453         this_hdr.sh_entsize = GOT_ENTRY_SIZE;
8454     }
8455
8456   if (htab->root.sgot && htab->root.sgot->size > 0)
8457     elf_section_data (htab->root.sgot->output_section)->this_hdr.sh_entsize
8458       = GOT_ENTRY_SIZE;
8459
8460   /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols.  */
8461   htab_traverse (htab->loc_hash_table,
8462                  elfNN_aarch64_finish_local_dynamic_symbol,
8463                  info);
8464
8465   return TRUE;
8466 }
8467
8468 /* Return address for Ith PLT stub in section PLT, for relocation REL
8469    or (bfd_vma) -1 if it should not be included.  */
8470
8471 static bfd_vma
8472 elfNN_aarch64_plt_sym_val (bfd_vma i, const asection *plt,
8473                            const arelent *rel ATTRIBUTE_UNUSED)
8474 {
8475   return plt->vma + PLT_ENTRY_SIZE + i * PLT_SMALL_ENTRY_SIZE;
8476 }
8477
8478
8479 /* We use this so we can override certain functions
8480    (though currently we don't).  */
8481
8482 const struct elf_size_info elfNN_aarch64_size_info =
8483 {
8484   sizeof (ElfNN_External_Ehdr),
8485   sizeof (ElfNN_External_Phdr),
8486   sizeof (ElfNN_External_Shdr),
8487   sizeof (ElfNN_External_Rel),
8488   sizeof (ElfNN_External_Rela),
8489   sizeof (ElfNN_External_Sym),
8490   sizeof (ElfNN_External_Dyn),
8491   sizeof (Elf_External_Note),
8492   4,                            /* Hash table entry size.  */
8493   1,                            /* Internal relocs per external relocs.  */
8494   ARCH_SIZE,                    /* Arch size.  */
8495   LOG_FILE_ALIGN,               /* Log_file_align.  */
8496   ELFCLASSNN, EV_CURRENT,
8497   bfd_elfNN_write_out_phdrs,
8498   bfd_elfNN_write_shdrs_and_ehdr,
8499   bfd_elfNN_checksum_contents,
8500   bfd_elfNN_write_relocs,
8501   bfd_elfNN_swap_symbol_in,
8502   bfd_elfNN_swap_symbol_out,
8503   bfd_elfNN_slurp_reloc_table,
8504   bfd_elfNN_slurp_symbol_table,
8505   bfd_elfNN_swap_dyn_in,
8506   bfd_elfNN_swap_dyn_out,
8507   bfd_elfNN_swap_reloc_in,
8508   bfd_elfNN_swap_reloc_out,
8509   bfd_elfNN_swap_reloca_in,
8510   bfd_elfNN_swap_reloca_out
8511 };
8512
8513 #define ELF_ARCH                        bfd_arch_aarch64
8514 #define ELF_MACHINE_CODE                EM_AARCH64
8515 #define ELF_MAXPAGESIZE                 0x10000
8516 #define ELF_MINPAGESIZE                 0x1000
8517 #define ELF_COMMONPAGESIZE              0x1000
8518
8519 #define bfd_elfNN_close_and_cleanup             \
8520   elfNN_aarch64_close_and_cleanup
8521
8522 #define bfd_elfNN_bfd_free_cached_info          \
8523   elfNN_aarch64_bfd_free_cached_info
8524
8525 #define bfd_elfNN_bfd_is_target_special_symbol  \
8526   elfNN_aarch64_is_target_special_symbol
8527
8528 #define bfd_elfNN_bfd_link_hash_table_create    \
8529   elfNN_aarch64_link_hash_table_create
8530
8531 #define bfd_elfNN_bfd_merge_private_bfd_data    \
8532   elfNN_aarch64_merge_private_bfd_data
8533
8534 #define bfd_elfNN_bfd_print_private_bfd_data    \
8535   elfNN_aarch64_print_private_bfd_data
8536
8537 #define bfd_elfNN_bfd_reloc_type_lookup         \
8538   elfNN_aarch64_reloc_type_lookup
8539
8540 #define bfd_elfNN_bfd_reloc_name_lookup         \
8541   elfNN_aarch64_reloc_name_lookup
8542
8543 #define bfd_elfNN_bfd_set_private_flags         \
8544   elfNN_aarch64_set_private_flags
8545
8546 #define bfd_elfNN_find_inliner_info             \
8547   elfNN_aarch64_find_inliner_info
8548
8549 #define bfd_elfNN_find_nearest_line             \
8550   elfNN_aarch64_find_nearest_line
8551
8552 #define bfd_elfNN_mkobject                      \
8553   elfNN_aarch64_mkobject
8554
8555 #define bfd_elfNN_new_section_hook              \
8556   elfNN_aarch64_new_section_hook
8557
8558 #define elf_backend_adjust_dynamic_symbol       \
8559   elfNN_aarch64_adjust_dynamic_symbol
8560
8561 #define elf_backend_always_size_sections        \
8562   elfNN_aarch64_always_size_sections
8563
8564 #define elf_backend_check_relocs                \
8565   elfNN_aarch64_check_relocs
8566
8567 #define elf_backend_copy_indirect_symbol        \
8568   elfNN_aarch64_copy_indirect_symbol
8569
8570 /* Create .dynbss, and .rela.bss sections in DYNOBJ, and set up shortcuts
8571    to them in our hash.  */
8572 #define elf_backend_create_dynamic_sections     \
8573   elfNN_aarch64_create_dynamic_sections
8574
8575 #define elf_backend_init_index_section          \
8576   _bfd_elf_init_2_index_sections
8577
8578 #define elf_backend_finish_dynamic_sections     \
8579   elfNN_aarch64_finish_dynamic_sections
8580
8581 #define elf_backend_finish_dynamic_symbol       \
8582   elfNN_aarch64_finish_dynamic_symbol
8583
8584 #define elf_backend_gc_sweep_hook               \
8585   elfNN_aarch64_gc_sweep_hook
8586
8587 #define elf_backend_object_p                    \
8588   elfNN_aarch64_object_p
8589
8590 #define elf_backend_output_arch_local_syms      \
8591   elfNN_aarch64_output_arch_local_syms
8592
8593 #define elf_backend_plt_sym_val                 \
8594   elfNN_aarch64_plt_sym_val
8595
8596 #define elf_backend_post_process_headers        \
8597   elfNN_aarch64_post_process_headers
8598
8599 #define elf_backend_relocate_section            \
8600   elfNN_aarch64_relocate_section
8601
8602 #define elf_backend_reloc_type_class            \
8603   elfNN_aarch64_reloc_type_class
8604
8605 #define elf_backend_section_from_shdr           \
8606   elfNN_aarch64_section_from_shdr
8607
8608 #define elf_backend_size_dynamic_sections       \
8609   elfNN_aarch64_size_dynamic_sections
8610
8611 #define elf_backend_size_info                   \
8612   elfNN_aarch64_size_info
8613
8614 #define elf_backend_write_section               \
8615   elfNN_aarch64_write_section
8616
8617 #define elf_backend_can_refcount       1
8618 #define elf_backend_can_gc_sections    1
8619 #define elf_backend_plt_readonly       1
8620 #define elf_backend_want_got_plt       1
8621 #define elf_backend_want_plt_sym       0
8622 #define elf_backend_may_use_rel_p      0
8623 #define elf_backend_may_use_rela_p     1
8624 #define elf_backend_default_use_rela_p 1
8625 #define elf_backend_rela_normal        1
8626 #define elf_backend_got_header_size (GOT_ENTRY_SIZE * 3)
8627 #define elf_backend_default_execstack  0
8628
8629 #undef  elf_backend_obj_attrs_section
8630 #define elf_backend_obj_attrs_section           ".ARM.attributes"
8631
8632 #include "elfNN-target.h"