bfd/elfnn-aarch64.c

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