bfd/elfnn-aarch64.c

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