bfd/elf64-x86-64.c

   1 /* X86-64 specific support for 64-bit ELF
   2    Copyright 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
   3    Free Software Foundation, Inc.
   4    Contributed by Jan Hubicka <jh@suse.cz>.
   5
   6    This file is part of BFD, the Binary File Descriptor library.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  21    MA 02110-1301, USA.  */
  22
  23 #include "sysdep.h"
  24 #include "bfd.h"
  25 #include "bfdlink.h"
  26 #include "libbfd.h"
  27 #include "elf-bfd.h"
  28 #include "bfd_stdint.h"
  29
  30 #include "elf/x86-64.h"
  31
  32 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value.  */
  33 #define MINUS_ONE (~ (bfd_vma) 0)
  34
  35 /* The relocation "howto" table.  Order of fields:
  36    type, rightshift, size, bitsize, pc_relative, bitpos, complain_on_overflow,
  37    special_function, name, partial_inplace, src_mask, dst_mask, pcrel_offset.  */
  38 static reloc_howto_type x86_64_elf_howto_table[] =
  39 {
  40   HOWTO(R_X86_64_NONE, 0, 0, 0, FALSE, 0, complain_overflow_dont,
  41         bfd_elf_generic_reloc, "R_X86_64_NONE", FALSE, 0x00000000, 0x00000000,
  42         FALSE),
  43   HOWTO(R_X86_64_64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
  44         bfd_elf_generic_reloc, "R_X86_64_64", FALSE, MINUS_ONE, MINUS_ONE,
  45         FALSE),
  46   HOWTO(R_X86_64_PC32, 0, 2, 32, TRUE, 0, complain_overflow_signed,
  47         bfd_elf_generic_reloc, "R_X86_64_PC32", FALSE, 0xffffffff, 0xffffffff,
  48         TRUE),
  49   HOWTO(R_X86_64_GOT32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
  50         bfd_elf_generic_reloc, "R_X86_64_GOT32", FALSE, 0xffffffff, 0xffffffff,
  51         FALSE),
  52   HOWTO(R_X86_64_PLT32, 0, 2, 32, TRUE, 0, complain_overflow_signed,
  53         bfd_elf_generic_reloc, "R_X86_64_PLT32", FALSE, 0xffffffff, 0xffffffff,
  54         TRUE),
  55   HOWTO(R_X86_64_COPY, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
  56         bfd_elf_generic_reloc, "R_X86_64_COPY", FALSE, 0xffffffff, 0xffffffff,
  57         FALSE),
  58   HOWTO(R_X86_64_GLOB_DAT, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
  59         bfd_elf_generic_reloc, "R_X86_64_GLOB_DAT", FALSE, MINUS_ONE,
  60         MINUS_ONE, FALSE),
  61   HOWTO(R_X86_64_JUMP_SLOT, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
  62         bfd_elf_generic_reloc, "R_X86_64_JUMP_SLOT", FALSE, MINUS_ONE,
  63         MINUS_ONE, FALSE),
  64   HOWTO(R_X86_64_RELATIVE, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
  65         bfd_elf_generic_reloc, "R_X86_64_RELATIVE", FALSE, MINUS_ONE,
  66         MINUS_ONE, FALSE),
  67   HOWTO(R_X86_64_GOTPCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed,
  68         bfd_elf_generic_reloc, "R_X86_64_GOTPCREL", FALSE, 0xffffffff,
  69         0xffffffff, TRUE),
  70   HOWTO(R_X86_64_32, 0, 2, 32, FALSE, 0, complain_overflow_unsigned,
  71         bfd_elf_generic_reloc, "R_X86_64_32", FALSE, 0xffffffff, 0xffffffff,
  72         FALSE),
  73   HOWTO(R_X86_64_32S, 0, 2, 32, FALSE, 0, complain_overflow_signed,
  74         bfd_elf_generic_reloc, "R_X86_64_32S", FALSE, 0xffffffff, 0xffffffff,
  75         FALSE),
  76   HOWTO(R_X86_64_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
  77         bfd_elf_generic_reloc, "R_X86_64_16", FALSE, 0xffff, 0xffff, FALSE),
  78   HOWTO(R_X86_64_PC16,0, 1, 16, TRUE, 0, complain_overflow_bitfield,
  79         bfd_elf_generic_reloc, "R_X86_64_PC16", FALSE, 0xffff, 0xffff, TRUE),
  80   HOWTO(R_X86_64_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,
  81         bfd_elf_generic_reloc, "R_X86_64_8", FALSE, 0xff, 0xff, FALSE),
  82   HOWTO(R_X86_64_PC8, 0, 0, 8, TRUE, 0, complain_overflow_signed,
  83         bfd_elf_generic_reloc, "R_X86_64_PC8", FALSE, 0xff, 0xff, TRUE),
  84   HOWTO(R_X86_64_DTPMOD64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
  85         bfd_elf_generic_reloc, "R_X86_64_DTPMOD64", FALSE, MINUS_ONE,
  86         MINUS_ONE, FALSE),
  87   HOWTO(R_X86_64_DTPOFF64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
  88         bfd_elf_generic_reloc, "R_X86_64_DTPOFF64", FALSE, MINUS_ONE,
  89         MINUS_ONE, FALSE),
  90   HOWTO(R_X86_64_TPOFF64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
  91         bfd_elf_generic_reloc, "R_X86_64_TPOFF64", FALSE, MINUS_ONE,
  92         MINUS_ONE, FALSE),
  93   HOWTO(R_X86_64_TLSGD, 0, 2, 32, TRUE, 0, complain_overflow_signed,
  94         bfd_elf_generic_reloc, "R_X86_64_TLSGD", FALSE, 0xffffffff,
  95         0xffffffff, TRUE),
  96   HOWTO(R_X86_64_TLSLD, 0, 2, 32, TRUE, 0, complain_overflow_signed,
  97         bfd_elf_generic_reloc, "R_X86_64_TLSLD", FALSE, 0xffffffff,
  98         0xffffffff, TRUE),
  99   HOWTO(R_X86_64_DTPOFF32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
 100         bfd_elf_generic_reloc, "R_X86_64_DTPOFF32", FALSE, 0xffffffff,
 101         0xffffffff, FALSE),
 102   HOWTO(R_X86_64_GOTTPOFF, 0, 2, 32, TRUE, 0, complain_overflow_signed,
 103         bfd_elf_generic_reloc, "R_X86_64_GOTTPOFF", FALSE, 0xffffffff,
 104         0xffffffff, TRUE),
 105   HOWTO(R_X86_64_TPOFF32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
 106         bfd_elf_generic_reloc, "R_X86_64_TPOFF32", FALSE, 0xffffffff,
 107         0xffffffff, FALSE),
 108   HOWTO(R_X86_64_PC64, 0, 4, 64, TRUE, 0, complain_overflow_bitfield,
 109         bfd_elf_generic_reloc, "R_X86_64_PC64", FALSE, MINUS_ONE, MINUS_ONE,
 110         TRUE),
 111   HOWTO(R_X86_64_GOTOFF64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
 112         bfd_elf_generic_reloc, "R_X86_64_GOTOFF64",
 113         FALSE, MINUS_ONE, MINUS_ONE, FALSE),
 114   HOWTO(R_X86_64_GOTPC32, 0, 2, 32, TRUE, 0, complain_overflow_signed,
 115         bfd_elf_generic_reloc, "R_X86_64_GOTPC32",
 116         FALSE, 0xffffffff, 0xffffffff, TRUE),
 117   HOWTO(R_X86_64_GOT64, 0, 4, 64, FALSE, 0, complain_overflow_signed,
 118         bfd_elf_generic_reloc, "R_X86_64_GOT64", FALSE, MINUS_ONE, MINUS_ONE,
 119         FALSE),
 120   HOWTO(R_X86_64_GOTPCREL64, 0, 4, 64, TRUE, 0, complain_overflow_signed,
 121         bfd_elf_generic_reloc, "R_X86_64_GOTPCREL64", FALSE, MINUS_ONE,
 122         MINUS_ONE, TRUE),
 123   HOWTO(R_X86_64_GOTPC64, 0, 4, 64, TRUE, 0, complain_overflow_signed,
 124         bfd_elf_generic_reloc, "R_X86_64_GOTPC64",
 125         FALSE, MINUS_ONE, MINUS_ONE, TRUE),
 126   HOWTO(R_X86_64_GOTPLT64, 0, 4, 64, FALSE, 0, complain_overflow_signed,
 127         bfd_elf_generic_reloc, "R_X86_64_GOTPLT64", FALSE, MINUS_ONE,
 128         MINUS_ONE, FALSE),
 129   HOWTO(R_X86_64_PLTOFF64, 0, 4, 64, FALSE, 0, complain_overflow_signed,
 130         bfd_elf_generic_reloc, "R_X86_64_PLTOFF64", FALSE, MINUS_ONE,
 131         MINUS_ONE, FALSE),
 132   EMPTY_HOWTO (32),
 133   EMPTY_HOWTO (33),
 134   HOWTO(R_X86_64_GOTPC32_TLSDESC, 0, 2, 32, TRUE, 0,
 135         complain_overflow_bitfield, bfd_elf_generic_reloc,
 136         "R_X86_64_GOTPC32_TLSDESC",
 137         FALSE, 0xffffffff, 0xffffffff, TRUE),
 138   HOWTO(R_X86_64_TLSDESC_CALL, 0, 0, 0, FALSE, 0,
 139         complain_overflow_dont, bfd_elf_generic_reloc,
 140         "R_X86_64_TLSDESC_CALL",
 141         FALSE, 0, 0, FALSE),
 142   HOWTO(R_X86_64_TLSDESC, 0, 4, 64, FALSE, 0,
 143         complain_overflow_bitfield, bfd_elf_generic_reloc,
 144         "R_X86_64_TLSDESC",
 145         FALSE, MINUS_ONE, MINUS_ONE, FALSE),
 146
 147   /* We have a gap in the reloc numbers here.
 148      R_X86_64_standard counts the number up to this point, and
 149      R_X86_64_vt_offset is the value to subtract from a reloc type of
 150      R_X86_64_GNU_VT* to form an index into this table.  */
 151 #define R_X86_64_standard (R_X86_64_TLSDESC + 1)
 152 #define R_X86_64_vt_offset (R_X86_64_GNU_VTINHERIT - R_X86_64_standard)
 153
 154 /* GNU extension to record C++ vtable hierarchy.  */
 155   HOWTO (R_X86_64_GNU_VTINHERIT, 0, 4, 0, FALSE, 0, complain_overflow_dont,
 156          NULL, "R_X86_64_GNU_VTINHERIT", FALSE, 0, 0, FALSE),
 157
 158 /* GNU extension to record C++ vtable member usage.  */
 159   HOWTO (R_X86_64_GNU_VTENTRY, 0, 4, 0, FALSE, 0, complain_overflow_dont,
 160          _bfd_elf_rel_vtable_reloc_fn, "R_X86_64_GNU_VTENTRY", FALSE, 0, 0,
 161          FALSE)
 162 };
 163
 164 /* Map BFD relocs to the x86_64 elf relocs.  */
 165 struct elf_reloc_map
 166 {
 167   bfd_reloc_code_real_type bfd_reloc_val;
 168   unsigned char elf_reloc_val;
 169 };
 170
 171 static const struct elf_reloc_map x86_64_reloc_map[] =
 172 {
 173   { BFD_RELOC_NONE,             R_X86_64_NONE, },
 174   { BFD_RELOC_64,               R_X86_64_64,   },
 175   { BFD_RELOC_32_PCREL,         R_X86_64_PC32, },
 176   { BFD_RELOC_X86_64_GOT32,     R_X86_64_GOT32,},
 177   { BFD_RELOC_X86_64_PLT32,     R_X86_64_PLT32,},
 178   { BFD_RELOC_X86_64_COPY,      R_X86_64_COPY, },
 179   { BFD_RELOC_X86_64_GLOB_DAT,  R_X86_64_GLOB_DAT, },
 180   { BFD_RELOC_X86_64_JUMP_SLOT, R_X86_64_JUMP_SLOT, },
 181   { BFD_RELOC_X86_64_RELATIVE,  R_X86_64_RELATIVE, },
 182   { BFD_RELOC_X86_64_GOTPCREL,  R_X86_64_GOTPCREL, },
 183   { BFD_RELOC_32,               R_X86_64_32, },
 184   { BFD_RELOC_X86_64_32S,       R_X86_64_32S, },
 185   { BFD_RELOC_16,               R_X86_64_16, },
 186   { BFD_RELOC_16_PCREL,         R_X86_64_PC16, },
 187   { BFD_RELOC_8,                R_X86_64_8, },
 188   { BFD_RELOC_8_PCREL,          R_X86_64_PC8, },
 189   { BFD_RELOC_X86_64_DTPMOD64,  R_X86_64_DTPMOD64, },
 190   { BFD_RELOC_X86_64_DTPOFF64,  R_X86_64_DTPOFF64, },
 191   { BFD_RELOC_X86_64_TPOFF64,   R_X86_64_TPOFF64, },
 192   { BFD_RELOC_X86_64_TLSGD,     R_X86_64_TLSGD, },
 193   { BFD_RELOC_X86_64_TLSLD,     R_X86_64_TLSLD, },
 194   { BFD_RELOC_X86_64_DTPOFF32,  R_X86_64_DTPOFF32, },
 195   { BFD_RELOC_X86_64_GOTTPOFF,  R_X86_64_GOTTPOFF, },
 196   { BFD_RELOC_X86_64_TPOFF32,   R_X86_64_TPOFF32, },
 197   { BFD_RELOC_64_PCREL,         R_X86_64_PC64, },
 198   { BFD_RELOC_X86_64_GOTOFF64,  R_X86_64_GOTOFF64, },
 199   { BFD_RELOC_X86_64_GOTPC32,   R_X86_64_GOTPC32, },
 200   { BFD_RELOC_X86_64_GOT64,     R_X86_64_GOT64, },
 201   { BFD_RELOC_X86_64_GOTPCREL64,R_X86_64_GOTPCREL64, },
 202   { BFD_RELOC_X86_64_GOTPC64,   R_X86_64_GOTPC64, },
 203   { BFD_RELOC_X86_64_GOTPLT64,  R_X86_64_GOTPLT64, },
 204   { BFD_RELOC_X86_64_PLTOFF64,  R_X86_64_PLTOFF64, },
 205   { BFD_RELOC_X86_64_GOTPC32_TLSDESC, R_X86_64_GOTPC32_TLSDESC, },
 206   { BFD_RELOC_X86_64_TLSDESC_CALL, R_X86_64_TLSDESC_CALL, },
 207   { BFD_RELOC_X86_64_TLSDESC,   R_X86_64_TLSDESC, },
 208   { BFD_RELOC_VTABLE_INHERIT,   R_X86_64_GNU_VTINHERIT, },
 209   { BFD_RELOC_VTABLE_ENTRY,     R_X86_64_GNU_VTENTRY, },
 210 };
 211
 212 static reloc_howto_type *
 213 elf64_x86_64_rtype_to_howto (bfd *abfd, unsigned r_type)
 214 {
 215   unsigned i;
 216
 217   if (r_type < (unsigned int) R_X86_64_GNU_VTINHERIT
 218       || r_type >= (unsigned int) R_X86_64_max)
 219     {
 220       if (r_type >= (unsigned int) R_X86_64_standard)
 221         {
 222           (*_bfd_error_handler) (_("%B: invalid relocation type %d"),
 223                                  abfd, (int) r_type);
 224           r_type = R_X86_64_NONE;
 225         }
 226       i = r_type;
 227     }
 228   else
 229     i = r_type - (unsigned int) R_X86_64_vt_offset;
 230   BFD_ASSERT (x86_64_elf_howto_table[i].type == r_type);
 231   return &x86_64_elf_howto_table[i];
 232 }
 233
 234 /* Given a BFD reloc type, return a HOWTO structure.  */
 235 static reloc_howto_type *
 236 elf64_x86_64_reloc_type_lookup (bfd *abfd,
 237                                 bfd_reloc_code_real_type code)
 238 {
 239   unsigned int i;
 240
 241   for (i = 0; i < sizeof (x86_64_reloc_map) / sizeof (struct elf_reloc_map);
 242        i++)
 243     {
 244       if (x86_64_reloc_map[i].bfd_reloc_val == code)
 245         return elf64_x86_64_rtype_to_howto (abfd,
 246                                             x86_64_reloc_map[i].elf_reloc_val);
 247     }
 248   return 0;
 249 }
 250
 251 static reloc_howto_type *
 252 elf64_x86_64_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 253                                 const char *r_name)
 254 {
 255   unsigned int i;
 256
 257   for (i = 0;
 258        i < (sizeof (x86_64_elf_howto_table)
 259             / sizeof (x86_64_elf_howto_table[0]));
 260        i++)
 261     if (x86_64_elf_howto_table[i].name != NULL
 262         && strcasecmp (x86_64_elf_howto_table[i].name, r_name) == 0)
 263       return &x86_64_elf_howto_table[i];
 264
 265   return NULL;
 266 }
 267
 268 /* Given an x86_64 ELF reloc type, fill in an arelent structure.  */
 269
 270 static void
 271 elf64_x86_64_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED, arelent *cache_ptr,
 272                             Elf_Internal_Rela *dst)
 273 {
 274   unsigned r_type;
 275
 276   r_type = ELF64_R_TYPE (dst->r_info);
 277   cache_ptr->howto = elf64_x86_64_rtype_to_howto (abfd, r_type);
 278   BFD_ASSERT (r_type == cache_ptr->howto->type);
 279 }
 280 \f
 281 /* Support for core dump NOTE sections.  */
 282 static bfd_boolean
 283 elf64_x86_64_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
 284 {
 285   int offset;
 286   size_t size;
 287
 288   switch (note->descsz)
 289     {
 290       default:
 291         return FALSE;
 292
 293       case 336:         /* sizeof(istruct elf_prstatus) on Linux/x86_64 */
 294         /* pr_cursig */
 295         elf_tdata (abfd)->core_signal
 296           = bfd_get_16 (abfd, note->descdata + 12);
 297
 298         /* pr_pid */
 299         elf_tdata (abfd)->core_pid
 300           = bfd_get_32 (abfd, note->descdata + 32);
 301
 302         /* pr_reg */
 303         offset = 112;
 304         size = 216;
 305
 306         break;
 307     }
 308
 309   /* Make a ".reg/999" section.  */
 310   return _bfd_elfcore_make_pseudosection (abfd, ".reg",
 311                                           size, note->descpos + offset);
 312 }
 313
 314 static bfd_boolean
 315 elf64_x86_64_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
 316 {
 317   switch (note->descsz)
 318     {
 319       default:
 320         return FALSE;
 321
 322       case 136:         /* sizeof(struct elf_prpsinfo) on Linux/x86_64 */
 323         elf_tdata (abfd)->core_program
 324          = _bfd_elfcore_strndup (abfd, note->descdata + 40, 16);
 325         elf_tdata (abfd)->core_command
 326          = _bfd_elfcore_strndup (abfd, note->descdata + 56, 80);
 327     }
 328
 329   /* Note that for some reason, a spurious space is tacked
 330      onto the end of the args in some (at least one anyway)
 331      implementations, so strip it off if it exists.  */
 332
 333   {
 334     char *command = elf_tdata (abfd)->core_command;
 335     int n = strlen (command);
 336
 337     if (0 < n && command[n - 1] == ' ')
 338       command[n - 1] = '\0';
 339   }
 340
 341   return TRUE;
 342 }
 343 \f
 344 /* Functions for the x86-64 ELF linker.  */
 345
 346 /* The name of the dynamic interpreter.  This is put in the .interp
 347    section.  */
 348
 349 #define ELF_DYNAMIC_INTERPRETER "/lib/ld64.so.1"
 350
 351 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
 352    copying dynamic variables from a shared lib into an app's dynbss
 353    section, and instead use a dynamic relocation to point into the
 354    shared lib.  */
 355 #define ELIMINATE_COPY_RELOCS 1
 356
 357 /* The size in bytes of an entry in the global offset table.  */
 358
 359 #define GOT_ENTRY_SIZE 8
 360
 361 /* The size in bytes of an entry in the procedure linkage table.  */
 362
 363 #define PLT_ENTRY_SIZE 16
 364
 365 /* The first entry in a procedure linkage table looks like this.  See the
 366    SVR4 ABI i386 supplement and the x86-64 ABI to see how this works.  */
 367
 368 static const bfd_byte elf64_x86_64_plt0_entry[PLT_ENTRY_SIZE] =
 369 {
 370   0xff, 0x35, 8, 0, 0, 0,       /* pushq GOT+8(%rip)  */
 371   0xff, 0x25, 16, 0, 0, 0,      /* jmpq *GOT+16(%rip) */
 372   0x0f, 0x1f, 0x40, 0x00        /* nopl 0(%rax)       */
 373 };
 374
 375 /* Subsequent entries in a procedure linkage table look like this.  */
 376
 377 static const bfd_byte elf64_x86_64_plt_entry[PLT_ENTRY_SIZE] =
 378 {
 379   0xff, 0x25,   /* jmpq *name@GOTPC(%rip) */
 380   0, 0, 0, 0,   /* replaced with offset to this symbol in .got.  */
 381   0x68,         /* pushq immediate */
 382   0, 0, 0, 0,   /* replaced with index into relocation table.  */
 383   0xe9,         /* jmp relative */
 384   0, 0, 0, 0    /* replaced with offset to start of .plt0.  */
 385 };
 386
 387 /* The x86-64 linker needs to keep track of the number of relocs that
 388    it decides to copy as dynamic relocs in check_relocs for each symbol.
 389    This is so that it can later discard them if they are found to be
 390    unnecessary.  We store the information in a field extending the
 391    regular ELF linker hash table.  */
 392
 393 struct elf64_x86_64_dyn_relocs
 394 {
 395   /* Next section.  */
 396   struct elf64_x86_64_dyn_relocs *next;
 397
 398   /* The input section of the reloc.  */
 399   asection *sec;
 400
 401   /* Total number of relocs copied for the input section.  */
 402   bfd_size_type count;
 403
 404   /* Number of pc-relative relocs copied for the input section.  */
 405   bfd_size_type pc_count;
 406 };
 407
 408 /* x86-64 ELF linker hash entry.  */
 409
 410 struct elf64_x86_64_link_hash_entry
 411 {
 412   struct elf_link_hash_entry elf;
 413
 414   /* Track dynamic relocs copied for this symbol.  */
 415   struct elf64_x86_64_dyn_relocs *dyn_relocs;
 416
 417 #define GOT_UNKNOWN     0
 418 #define GOT_NORMAL      1
 419 #define GOT_TLS_GD      2
 420 #define GOT_TLS_IE      3
 421 #define GOT_TLS_GDESC   4
 422 #define GOT_TLS_GD_BOTH_P(type) \
 423   ((type) == (GOT_TLS_GD | GOT_TLS_GDESC))
 424 #define GOT_TLS_GD_P(type) \
 425   ((type) == GOT_TLS_GD || GOT_TLS_GD_BOTH_P (type))
 426 #define GOT_TLS_GDESC_P(type) \
 427   ((type) == GOT_TLS_GDESC || GOT_TLS_GD_BOTH_P (type))
 428 #define GOT_TLS_GD_ANY_P(type) \
 429   (GOT_TLS_GD_P (type) || GOT_TLS_GDESC_P (type))
 430   unsigned char tls_type;
 431
 432   /* Offset of the GOTPLT entry reserved for the TLS descriptor,
 433      starting at the end of the jump table.  */
 434   bfd_vma tlsdesc_got;
 435 };
 436
 437 #define elf64_x86_64_hash_entry(ent) \
 438   ((struct elf64_x86_64_link_hash_entry *)(ent))
 439
 440 struct elf64_x86_64_obj_tdata
 441 {
 442   struct elf_obj_tdata root;
 443
 444   /* tls_type for each local got entry.  */
 445   char *local_got_tls_type;
 446
 447   /* GOTPLT entries for TLS descriptors.  */
 448   bfd_vma *local_tlsdesc_gotent;
 449 };
 450
 451 #define elf64_x86_64_tdata(abfd) \
 452   ((struct elf64_x86_64_obj_tdata *) (abfd)->tdata.any)
 453
 454 #define elf64_x86_64_local_got_tls_type(abfd) \
 455   (elf64_x86_64_tdata (abfd)->local_got_tls_type)
 456
 457 #define elf64_x86_64_local_tlsdesc_gotent(abfd) \
 458   (elf64_x86_64_tdata (abfd)->local_tlsdesc_gotent)
 459
 460 #define is_x86_64_elf(bfd)                              \
 461   (bfd_get_flavour (bfd) == bfd_target_elf_flavour      \
 462    && elf_tdata (bfd) != NULL                           \
 463    && elf_object_id (bfd) == X86_64_ELF_TDATA)
 464
 465 static bfd_boolean
 466 elf64_x86_64_mkobject (bfd *abfd)
 467 {
 468   return bfd_elf_allocate_object (abfd, sizeof (struct elf64_x86_64_obj_tdata),
 469                                   X86_64_ELF_TDATA);
 470 }
 471
 472 /* x86-64 ELF linker hash table.  */
 473
 474 struct elf64_x86_64_link_hash_table
 475 {
 476   struct elf_link_hash_table elf;
 477
 478   /* Short-cuts to get to dynamic linker sections.  */
 479   asection *sgot;
 480   asection *sgotplt;
 481   asection *srelgot;
 482   asection *splt;
 483   asection *srelplt;
 484   asection *sdynbss;
 485   asection *srelbss;
 486
 487   /* The offset into splt of the PLT entry for the TLS descriptor
 488      resolver.  Special values are 0, if not necessary (or not found
 489      to be necessary yet), and -1 if needed but not determined
 490      yet.  */
 491   bfd_vma tlsdesc_plt;
 492   /* The offset into sgot of the GOT entry used by the PLT entry
 493      above.  */
 494   bfd_vma tlsdesc_got;
 495
 496   union {
 497     bfd_signed_vma refcount;
 498     bfd_vma offset;
 499   } tls_ld_got;
 500
 501   /* The amount of space used by the jump slots in the GOT.  */
 502   bfd_vma sgotplt_jump_table_size;
 503
 504   /* Small local sym to section mapping cache.  */
 505   struct sym_sec_cache sym_sec;
 506
 507   /* _TLS_MODULE_BASE_ symbol.  */
 508   struct bfd_link_hash_entry *tls_module_base;
 509 };
 510
 511 /* Get the x86-64 ELF linker hash table from a link_info structure.  */
 512
 513 #define elf64_x86_64_hash_table(p) \
 514   ((struct elf64_x86_64_link_hash_table *) ((p)->hash))
 515
 516 #define elf64_x86_64_compute_jump_table_size(htab) \
 517   ((htab)->srelplt->reloc_count * GOT_ENTRY_SIZE)
 518
 519 /* Create an entry in an x86-64 ELF linker hash table.  */
 520
 521 static struct bfd_hash_entry *
 522 link_hash_newfunc (struct bfd_hash_entry *entry, struct bfd_hash_table *table,
 523                    const char *string)
 524 {
 525   /* Allocate the structure if it has not already been allocated by a
 526      subclass.  */
 527   if (entry == NULL)
 528     {
 529       entry = bfd_hash_allocate (table,
 530                                  sizeof (struct elf64_x86_64_link_hash_entry));
 531       if (entry == NULL)
 532         return entry;
 533     }
 534
 535   /* Call the allocation method of the superclass.  */
 536   entry = _bfd_elf_link_hash_newfunc (entry, table, string);
 537   if (entry != NULL)
 538     {
 539       struct elf64_x86_64_link_hash_entry *eh;
 540
 541       eh = (struct elf64_x86_64_link_hash_entry *) entry;
 542       eh->dyn_relocs = NULL;
 543       eh->tls_type = GOT_UNKNOWN;
 544       eh->tlsdesc_got = (bfd_vma) -1;
 545     }
 546
 547   return entry;
 548 }
 549
 550 /* Create an X86-64 ELF linker hash table.  */
 551
 552 static struct bfd_link_hash_table *
 553 elf64_x86_64_link_hash_table_create (bfd *abfd)
 554 {
 555   struct elf64_x86_64_link_hash_table *ret;
 556   bfd_size_type amt = sizeof (struct elf64_x86_64_link_hash_table);
 557
 558   ret = (struct elf64_x86_64_link_hash_table *) bfd_malloc (amt);
 559   if (ret == NULL)
 560     return NULL;
 561
 562   if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc,
 563                                       sizeof (struct elf64_x86_64_link_hash_entry)))
 564     {
 565       free (ret);
 566       return NULL;
 567     }
 568
 569   ret->sgot = NULL;
 570   ret->sgotplt = NULL;
 571   ret->srelgot = NULL;
 572   ret->splt = NULL;
 573   ret->srelplt = NULL;
 574   ret->sdynbss = NULL;
 575   ret->srelbss = NULL;
 576   ret->sym_sec.abfd = NULL;
 577   ret->tlsdesc_plt = 0;
 578   ret->tlsdesc_got = 0;
 579   ret->tls_ld_got.refcount = 0;
 580   ret->sgotplt_jump_table_size = 0;
 581   ret->tls_module_base = NULL;
 582
 583   return &ret->elf.root;
 584 }
 585
 586 /* Create .got, .gotplt, and .rela.got sections in DYNOBJ, and set up
 587    shortcuts to them in our hash table.  */
 588
 589 static bfd_boolean
 590 create_got_section (bfd *dynobj, struct bfd_link_info *info)
 591 {
 592   struct elf64_x86_64_link_hash_table *htab;
 593
 594   if (! _bfd_elf_create_got_section (dynobj, info))
 595     return FALSE;
 596
 597   htab = elf64_x86_64_hash_table (info);
 598   htab->sgot = bfd_get_section_by_name (dynobj, ".got");
 599   htab->sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
 600   if (!htab->sgot || !htab->sgotplt)
 601     abort ();
 602
 603   htab->srelgot = bfd_make_section_with_flags (dynobj, ".rela.got",
 604                                                (SEC_ALLOC | SEC_LOAD
 605                                                 | SEC_HAS_CONTENTS
 606                                                 | SEC_IN_MEMORY
 607                                                 | SEC_LINKER_CREATED
 608                                                 | SEC_READONLY));
 609   if (htab->srelgot == NULL
 610       || ! bfd_set_section_alignment (dynobj, htab->srelgot, 3))
 611     return FALSE;
 612   return TRUE;
 613 }
 614
 615 /* Create .plt, .rela.plt, .got, .got.plt, .rela.got, .dynbss, and
 616    .rela.bss sections in DYNOBJ, and set up shortcuts to them in our
 617    hash table.  */
 618
 619 static bfd_boolean
 620 elf64_x86_64_create_dynamic_sections (bfd *dynobj, struct bfd_link_info *info)
 621 {
 622   struct elf64_x86_64_link_hash_table *htab;
 623
 624   htab = elf64_x86_64_hash_table (info);
 625   if (!htab->sgot && !create_got_section (dynobj, info))
 626     return FALSE;
 627
 628   if (!_bfd_elf_create_dynamic_sections (dynobj, info))
 629     return FALSE;
 630
 631   htab->splt = bfd_get_section_by_name (dynobj, ".plt");
 632   htab->srelplt = bfd_get_section_by_name (dynobj, ".rela.plt");
 633   htab->sdynbss = bfd_get_section_by_name (dynobj, ".dynbss");
 634   if (!info->shared)
 635     htab->srelbss = bfd_get_section_by_name (dynobj, ".rela.bss");
 636
 637   if (!htab->splt || !htab->srelplt || !htab->sdynbss
 638       || (!info->shared && !htab->srelbss))
 639     abort ();
 640
 641   return TRUE;
 642 }
 643
 644 /* Copy the extra info we tack onto an elf_link_hash_entry.  */
 645
 646 static void
 647 elf64_x86_64_copy_indirect_symbol (struct bfd_link_info *info,
 648                                    struct elf_link_hash_entry *dir,
 649                                    struct elf_link_hash_entry *ind)
 650 {
 651   struct elf64_x86_64_link_hash_entry *edir, *eind;
 652
 653   edir = (struct elf64_x86_64_link_hash_entry *) dir;
 654   eind = (struct elf64_x86_64_link_hash_entry *) ind;
 655
 656   if (eind->dyn_relocs != NULL)
 657     {
 658       if (edir->dyn_relocs != NULL)
 659         {
 660           struct elf64_x86_64_dyn_relocs **pp;
 661           struct elf64_x86_64_dyn_relocs *p;
 662
 663           /* Add reloc counts against the indirect sym to the direct sym
 664              list.  Merge any entries against the same section.  */
 665           for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
 666             {
 667               struct elf64_x86_64_dyn_relocs *q;
 668
 669               for (q = edir->dyn_relocs; q != NULL; q = q->next)
 670                 if (q->sec == p->sec)
 671                   {
 672                     q->pc_count += p->pc_count;
 673                     q->count += p->count;
 674                     *pp = p->next;
 675                     break;
 676                   }
 677               if (q == NULL)
 678                 pp = &p->next;
 679             }
 680           *pp = edir->dyn_relocs;
 681         }
 682
 683       edir->dyn_relocs = eind->dyn_relocs;
 684       eind->dyn_relocs = NULL;
 685     }
 686
 687   if (ind->root.type == bfd_link_hash_indirect
 688       && dir->got.refcount <= 0)
 689     {
 690       edir->tls_type = eind->tls_type;
 691       eind->tls_type = GOT_UNKNOWN;
 692     }
 693
 694   if (ELIMINATE_COPY_RELOCS
 695       && ind->root.type != bfd_link_hash_indirect
 696       && dir->dynamic_adjusted)
 697     {
 698       /* If called to transfer flags for a weakdef during processing
 699          of elf_adjust_dynamic_symbol, don't copy non_got_ref.
 700          We clear it ourselves for ELIMINATE_COPY_RELOCS.  */
 701       dir->ref_dynamic |= ind->ref_dynamic;
 702       dir->ref_regular |= ind->ref_regular;
 703       dir->ref_regular_nonweak |= ind->ref_regular_nonweak;
 704       dir->needs_plt |= ind->needs_plt;
 705       dir->pointer_equality_needed |= ind->pointer_equality_needed;
 706     }
 707   else
 708     _bfd_elf_link_hash_copy_indirect (info, dir, ind);
 709 }
 710
 711 static bfd_boolean
 712 elf64_x86_64_elf_object_p (bfd *abfd)
 713 {
 714   /* Set the right machine number for an x86-64 elf64 file.  */
 715   bfd_default_set_arch_mach (abfd, bfd_arch_i386, bfd_mach_x86_64);
 716   return TRUE;
 717 }
 718
 719 typedef union
 720   {
 721     unsigned char c[2];
 722     uint16_t i;
 723   }
 724 x86_64_opcode16;
 725
 726 typedef union
 727   {
 728     unsigned char c[4];
 729     uint32_t i;
 730   }
 731 x86_64_opcode32;
 732
 733 /* Return TRUE if the TLS access code sequence support transition
 734    from R_TYPE.  */
 735
 736 static bfd_boolean
 737 elf64_x86_64_check_tls_transition (bfd *abfd, asection *sec,
 738                                    bfd_byte *contents,
 739                                    Elf_Internal_Shdr *symtab_hdr,
 740                                    struct elf_link_hash_entry **sym_hashes,
 741                                    unsigned int r_type,
 742                                    const Elf_Internal_Rela *rel,
 743                                    const Elf_Internal_Rela *relend)
 744 {
 745   unsigned int val;
 746   unsigned long r_symndx;
 747   struct elf_link_hash_entry *h;
 748   bfd_vma offset;
 749
 750   /* Get the section contents.  */
 751   if (contents == NULL)
 752     {
 753       if (elf_section_data (sec)->this_hdr.contents != NULL)
 754         contents = elf_section_data (sec)->this_hdr.contents;
 755       else
 756         {
 757           /* FIXME: How to better handle error condition?  */
 758           if (!bfd_malloc_and_get_section (abfd, sec, &contents))
 759             return FALSE;
 760
 761           /* Cache the section contents for elf_link_input_bfd.  */
 762           elf_section_data (sec)->this_hdr.contents = contents;
 763         }
 764     }
 765
 766   offset = rel->r_offset;
 767   switch (r_type)
 768     {
 769     case R_X86_64_TLSGD:
 770     case R_X86_64_TLSLD:
 771       if ((rel + 1) >= relend)
 772         return FALSE;
 773
 774       if (r_type == R_X86_64_TLSGD)
 775         {
 776           /* Check transition from GD access model.  Only
 777                 .byte 0x66; leaq foo@tlsgd(%rip), %rdi
 778                 .word 0x6666; rex64; call __tls_get_addr
 779              can transit to different access model.  */
 780
 781           static x86_64_opcode32 leaq = { { 0x66, 0x48, 0x8d, 0x3d } },
 782                                  call = { { 0x66, 0x66, 0x48, 0xe8 } };
 783           if (offset < 4
 784               || (offset + 12) > sec->size
 785               || bfd_get_32 (abfd, contents + offset - 4) != leaq.i
 786               || bfd_get_32 (abfd, contents + offset + 4) != call.i)
 787             return FALSE;
 788         }
 789       else
 790         {
 791           /* Check transition from LD access model.  Only
 792                 leaq foo@tlsld(%rip), %rdi;
 793                 call __tls_get_addr
 794              can transit to different access model.  */
 795
 796           static x86_64_opcode32 ld = { { 0x48, 0x8d, 0x3d, 0xe8 } };
 797           x86_64_opcode32 op;
 798
 799           if (offset < 3 || (offset + 9) > sec->size)
 800             return FALSE;
 801
 802           op.i = bfd_get_32 (abfd, contents + offset - 3);
 803           op.c[3] = bfd_get_8 (abfd, contents + offset + 4);
 804           if (op.i != ld.i)
 805             return FALSE;
 806         }
 807
 808       r_symndx = ELF64_R_SYM (rel[1].r_info);
 809       if (r_symndx < symtab_hdr->sh_info)
 810         return FALSE;
 811
 812       h = sym_hashes[r_symndx - symtab_hdr->sh_info];
 813       return (h != NULL
 814               && h->root.root.string != NULL
 815               && (ELF64_R_TYPE (rel[1].r_info) == R_X86_64_PC32
 816                   || ELF64_R_TYPE (rel[1].r_info) == R_X86_64_PLT32)
 817               && (strcmp (h->root.root.string, "__tls_get_addr") == 0));
 818
 819     case R_X86_64_GOTTPOFF:
 820       /* Check transition from IE access model:
 821                 movq foo@gottpoff(%rip), %reg
 822                 addq foo@gottpoff(%rip), %reg
 823        */
 824
 825       if (offset < 3 || (offset + 4) > sec->size)
 826         return FALSE;
 827
 828       val = bfd_get_8 (abfd, contents + offset - 3);
 829       if (val != 0x48 && val != 0x4c)
 830         return FALSE;
 831
 832       val = bfd_get_8 (abfd, contents + offset - 2);
 833       if (val != 0x8b && val != 0x03)
 834         return FALSE;
 835
 836       val = bfd_get_8 (abfd, contents + offset - 1);
 837       return (val & 0xc7) == 5;
 838
 839     case R_X86_64_GOTPC32_TLSDESC:
 840       /* Check transition from GDesc access model:
 841                 leaq x@tlsdesc(%rip), %rax
 842
 843          Make sure it's a leaq adding rip to a 32-bit offset
 844          into any register, although it's probably almost always
 845          going to be rax.  */
 846
 847       if (offset < 3 || (offset + 4) > sec->size)
 848         return FALSE;
 849
 850       val = bfd_get_8 (abfd, contents + offset - 3);
 851       if ((val & 0xfb) != 0x48)
 852         return FALSE;
 853
 854       if (bfd_get_8 (abfd, contents + offset - 2) != 0x8d)
 855         return FALSE;
 856
 857       val = bfd_get_8 (abfd, contents + offset - 1);
 858       return (val & 0xc7) == 0x05;
 859
 860     case R_X86_64_TLSDESC_CALL:
 861       /* Check transition from GDesc access model:
 862                 call *x@tlsdesc(%rax)
 863        */
 864       if (offset + 2 <= sec->size)
 865         {
 866           /* Make sure that it's a call *x@tlsdesc(%rax).  */
 867           static x86_64_opcode16 call = { { 0xff, 0x10 } };
 868           return bfd_get_16 (abfd, contents + offset) == call.i;
 869         }
 870
 871       return FALSE;
 872
 873     default:
 874       abort ();
 875     }
 876 }
 877
 878 /* Return TRUE if the TLS access transition is OK or no transition
 879    will be performed.  Update R_TYPE if there is a transition.  */
 880
 881 static bfd_boolean
 882 elf64_x86_64_tls_transition (struct bfd_link_info *info, bfd *abfd,
 883                              asection *sec, bfd_byte *contents,
 884                              Elf_Internal_Shdr *symtab_hdr,
 885                              struct elf_link_hash_entry **sym_hashes,
 886                              unsigned int *r_type, int tls_type,
 887                              const Elf_Internal_Rela *rel,
 888                              const Elf_Internal_Rela *relend,
 889                              struct elf_link_hash_entry *h)
 890 {
 891   unsigned int from_type = *r_type;
 892   unsigned int to_type = from_type;
 893   bfd_boolean check = TRUE;
 894
 895   switch (from_type)
 896     {
 897     case R_X86_64_TLSGD:
 898     case R_X86_64_GOTPC32_TLSDESC:
 899     case R_X86_64_TLSDESC_CALL:
 900     case R_X86_64_GOTTPOFF:
 901       if (!info->shared)
 902         {
 903           if (h == NULL)
 904             to_type = R_X86_64_TPOFF32;
 905           else
 906             to_type = R_X86_64_GOTTPOFF;
 907         }
 908
 909       /* When we are called from elf64_x86_64_relocate_section,
 910          CONTENTS isn't NULL and there may be additional transitions
 911          based on TLS_TYPE.  */
 912       if (contents != NULL)
 913         {
 914           unsigned int new_to_type = to_type;
 915
 916           if (!info->shared
 917               && h != NULL
 918               && h->dynindx == -1
 919               && tls_type == GOT_TLS_IE)
 920             new_to_type = R_X86_64_TPOFF32;
 921
 922           if (to_type == R_X86_64_TLSGD
 923               || to_type == R_X86_64_GOTPC32_TLSDESC
 924               || to_type == R_X86_64_TLSDESC_CALL)
 925             {
 926               if (tls_type == GOT_TLS_IE)
 927                 new_to_type = R_X86_64_GOTTPOFF;
 928             }
 929
 930           /* We checked the transition before when we were called from
 931              elf64_x86_64_check_relocs.  We only want to check the new
 932              transition which hasn't been checked before.  */
 933           check = new_to_type != to_type && from_type == to_type;
 934           to_type = new_to_type;
 935         }
 936
 937       break;
 938
 939     case R_X86_64_TLSLD:
 940       if (!info->shared)
 941         to_type = R_X86_64_TPOFF32;
 942       break;
 943
 944     default:
 945       return TRUE;
 946     }
 947
 948   /* Return TRUE if there is no transition.  */
 949   if (from_type == to_type)
 950     return TRUE;
 951
 952   /* Check if the transition can be performed.  */
 953   if (check
 954       && ! elf64_x86_64_check_tls_transition (abfd, sec, contents,
 955                                               symtab_hdr, sym_hashes,
 956                                               from_type, rel, relend))
 957     {
 958       reloc_howto_type *from, *to;
 959
 960       from = elf64_x86_64_rtype_to_howto (abfd, from_type);
 961       to = elf64_x86_64_rtype_to_howto (abfd, to_type);
 962
 963       (*_bfd_error_handler)
 964         (_("%B: TLS transition from %s to %s against `%s' at 0x%lx "
 965            "in section `%A' failed"),
 966          abfd, sec, from->name, to->name,
 967          h ? h->root.root.string : "a local symbol",
 968          (unsigned long) rel->r_offset);
 969       bfd_set_error (bfd_error_bad_value);
 970       return FALSE;
 971     }
 972
 973   *r_type = to_type;
 974   return TRUE;
 975 }
 976
 977 /* Look through the relocs for a section during the first phase, and
 978    calculate needed space in the global offset table, procedure
 979    linkage table, and dynamic reloc sections.  */
 980
 981 static bfd_boolean
 982 elf64_x86_64_check_relocs (bfd *abfd, struct bfd_link_info *info,
 983                            asection *sec,
 984                            const Elf_Internal_Rela *relocs)
 985 {
 986   struct elf64_x86_64_link_hash_table *htab;
 987   Elf_Internal_Shdr *symtab_hdr;
 988   struct elf_link_hash_entry **sym_hashes;
 989   const Elf_Internal_Rela *rel;
 990   const Elf_Internal_Rela *rel_end;
 991   asection *sreloc;
 992
 993   if (info->relocatable)
 994     return TRUE;
 995
 996   BFD_ASSERT (is_x86_64_elf (abfd));
 997
 998   htab = elf64_x86_64_hash_table (info);
 999   symtab_hdr = &elf_symtab_hdr (abfd);
1000   sym_hashes = elf_sym_hashes (abfd);
1001
1002   sreloc = NULL;
1003
1004   rel_end = relocs + sec->reloc_count;
1005   for (rel = relocs; rel < rel_end; rel++)
1006     {
1007       unsigned int r_type;
1008       unsigned long r_symndx;
1009       struct elf_link_hash_entry *h;
1010
1011       r_symndx = ELF64_R_SYM (rel->r_info);
1012       r_type = ELF64_R_TYPE (rel->r_info);
1013
1014       if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
1015         {
1016           (*_bfd_error_handler) (_("%B: bad symbol index: %d"),
1017                                  abfd, r_symndx);
1018           return FALSE;
1019         }
1020
1021       if (r_symndx < symtab_hdr->sh_info)
1022         h = NULL;
1023       else
1024         {
1025           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1026           while (h->root.type == bfd_link_hash_indirect
1027                  || h->root.type == bfd_link_hash_warning)
1028             h = (struct elf_link_hash_entry *) h->root.u.i.link;
1029         }
1030
1031       if (! elf64_x86_64_tls_transition (info, abfd, sec, NULL,
1032                                          symtab_hdr, sym_hashes,
1033                                          &r_type, GOT_UNKNOWN,
1034                                          rel, rel_end, h))
1035         return FALSE;
1036
1037       switch (r_type)
1038         {
1039         case R_X86_64_TLSLD:
1040           htab->tls_ld_got.refcount += 1;
1041           goto create_got;
1042
1043         case R_X86_64_TPOFF32:
1044           if (info->shared)
1045             {
1046               (*_bfd_error_handler)
1047                 (_("%B: relocation %s against `%s' can not be used when making a shared object; recompile with -fPIC"),
1048                  abfd,
1049                  x86_64_elf_howto_table[r_type].name,
1050                  (h) ? h->root.root.string : "a local symbol");
1051               bfd_set_error (bfd_error_bad_value);
1052               return FALSE;
1053             }
1054           break;
1055
1056         case R_X86_64_GOTTPOFF:
1057           if (info->shared)
1058             info->flags |= DF_STATIC_TLS;
1059           /* Fall through */
1060
1061         case R_X86_64_GOT32:
1062         case R_X86_64_GOTPCREL:
1063         case R_X86_64_TLSGD:
1064         case R_X86_64_GOT64:
1065         case R_X86_64_GOTPCREL64:
1066         case R_X86_64_GOTPLT64:
1067         case R_X86_64_GOTPC32_TLSDESC:
1068         case R_X86_64_TLSDESC_CALL:
1069           /* This symbol requires a global offset table entry.  */
1070           {
1071             int tls_type, old_tls_type;
1072
1073             switch (r_type)
1074               {
1075               default: tls_type = GOT_NORMAL; break;
1076               case R_X86_64_TLSGD: tls_type = GOT_TLS_GD; break;
1077               case R_X86_64_GOTTPOFF: tls_type = GOT_TLS_IE; break;
1078               case R_X86_64_GOTPC32_TLSDESC:
1079               case R_X86_64_TLSDESC_CALL:
1080                 tls_type = GOT_TLS_GDESC; break;
1081               }
1082
1083             if (h != NULL)
1084               {
1085                 if (r_type == R_X86_64_GOTPLT64)
1086                   {
1087                     /* This relocation indicates that we also need
1088                        a PLT entry, as this is a function.  We don't need
1089                        a PLT entry for local symbols.  */
1090                     h->needs_plt = 1;
1091                     h->plt.refcount += 1;
1092                   }
1093                 h->got.refcount += 1;
1094                 old_tls_type = elf64_x86_64_hash_entry (h)->tls_type;
1095               }
1096             else
1097               {
1098                 bfd_signed_vma *local_got_refcounts;
1099
1100                 /* This is a global offset table entry for a local symbol.  */
1101                 local_got_refcounts = elf_local_got_refcounts (abfd);
1102                 if (local_got_refcounts == NULL)
1103                   {
1104                     bfd_size_type size;
1105
1106                     size = symtab_hdr->sh_info;
1107                     size *= sizeof (bfd_signed_vma)
1108                       + sizeof (bfd_vma) + sizeof (char);
1109                     local_got_refcounts = ((bfd_signed_vma *)
1110                                            bfd_zalloc (abfd, size));
1111                     if (local_got_refcounts == NULL)
1112                       return FALSE;
1113                     elf_local_got_refcounts (abfd) = local_got_refcounts;
1114                     elf64_x86_64_local_tlsdesc_gotent (abfd)
1115                       = (bfd_vma *) (local_got_refcounts + symtab_hdr->sh_info);
1116                     elf64_x86_64_local_got_tls_type (abfd)
1117                       = (char *) (local_got_refcounts + 2 * symtab_hdr->sh_info);
1118                   }
1119                 local_got_refcounts[r_symndx] += 1;
1120                 old_tls_type
1121                   = elf64_x86_64_local_got_tls_type (abfd) [r_symndx];
1122               }
1123
1124             /* If a TLS symbol is accessed using IE at least once,
1125                there is no point to use dynamic model for it.  */
1126             if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
1127                 && (! GOT_TLS_GD_ANY_P (old_tls_type)
1128                     || tls_type != GOT_TLS_IE))
1129               {
1130                 if (old_tls_type == GOT_TLS_IE && GOT_TLS_GD_ANY_P (tls_type))
1131                   tls_type = old_tls_type;
1132                 else if (GOT_TLS_GD_ANY_P (old_tls_type)
1133                          && GOT_TLS_GD_ANY_P (tls_type))
1134                   tls_type |= old_tls_type;
1135                 else
1136                   {
1137                     (*_bfd_error_handler)
1138                       (_("%B: '%s' accessed both as normal and thread local symbol"),
1139                        abfd, h ? h->root.root.string : "<local>");
1140                     return FALSE;
1141                   }
1142               }
1143
1144             if (old_tls_type != tls_type)
1145               {
1146                 if (h != NULL)
1147                   elf64_x86_64_hash_entry (h)->tls_type = tls_type;
1148                 else
1149                   elf64_x86_64_local_got_tls_type (abfd) [r_symndx] = tls_type;
1150               }
1151           }
1152           /* Fall through */
1153
1154         case R_X86_64_GOTOFF64:
1155         case R_X86_64_GOTPC32:
1156         case R_X86_64_GOTPC64:
1157         create_got:
1158           if (htab->sgot == NULL)
1159             {
1160               if (htab->elf.dynobj == NULL)
1161                 htab->elf.dynobj = abfd;
1162               if (!create_got_section (htab->elf.dynobj, info))
1163                 return FALSE;
1164             }
1165           break;
1166
1167         case R_X86_64_PLT32:
1168           /* This symbol requires a procedure linkage table entry.  We
1169              actually build the entry in adjust_dynamic_symbol,
1170              because this might be a case of linking PIC code which is
1171              never referenced by a dynamic object, in which case we
1172              don't need to generate a procedure linkage table entry
1173              after all.  */
1174
1175           /* If this is a local symbol, we resolve it directly without
1176              creating a procedure linkage table entry.  */
1177           if (h == NULL)
1178             continue;
1179
1180           h->needs_plt = 1;
1181           h->plt.refcount += 1;
1182           break;
1183
1184         case R_X86_64_PLTOFF64:
1185           /* This tries to form the 'address' of a function relative
1186              to GOT.  For global symbols we need a PLT entry.  */
1187           if (h != NULL)
1188             {
1189               h->needs_plt = 1;
1190               h->plt.refcount += 1;
1191             }
1192           goto create_got;
1193
1194         case R_X86_64_8:
1195         case R_X86_64_16:
1196         case R_X86_64_32:
1197         case R_X86_64_32S:
1198           /* Let's help debug shared library creation.  These relocs
1199              cannot be used in shared libs.  Don't error out for
1200              sections we don't care about, such as debug sections or
1201              non-constant sections.  */
1202           if (info->shared
1203               && (sec->flags & SEC_ALLOC) != 0
1204               && (sec->flags & SEC_READONLY) != 0)
1205             {
1206               (*_bfd_error_handler)
1207                 (_("%B: relocation %s against `%s' can not be used when making a shared object; recompile with -fPIC"),
1208                  abfd,
1209                  x86_64_elf_howto_table[r_type].name,
1210                  (h) ? h->root.root.string : "a local symbol");
1211               bfd_set_error (bfd_error_bad_value);
1212               return FALSE;
1213             }
1214           /* Fall through.  */
1215
1216         case R_X86_64_PC8:
1217         case R_X86_64_PC16:
1218         case R_X86_64_PC32:
1219         case R_X86_64_PC64:
1220         case R_X86_64_64:
1221           if (h != NULL && !info->shared)
1222             {
1223               /* If this reloc is in a read-only section, we might
1224                  need a copy reloc.  We can't check reliably at this
1225                  stage whether the section is read-only, as input
1226                  sections have not yet been mapped to output sections.
1227                  Tentatively set the flag for now, and correct in
1228                  adjust_dynamic_symbol.  */
1229               h->non_got_ref = 1;
1230
1231               /* We may need a .plt entry if the function this reloc
1232                  refers to is in a shared lib.  */
1233               h->plt.refcount += 1;
1234               if (r_type != R_X86_64_PC32 && r_type != R_X86_64_PC64)
1235                 h->pointer_equality_needed = 1;
1236             }
1237
1238           /* If we are creating a shared library, and this is a reloc
1239              against a global symbol, or a non PC relative reloc
1240              against a local symbol, then we need to copy the reloc
1241              into the shared library.  However, if we are linking with
1242              -Bsymbolic, we do not need to copy a reloc against a
1243              global symbol which is defined in an object we are
1244              including in the link (i.e., DEF_REGULAR is set).  At
1245              this point we have not seen all the input files, so it is
1246              possible that DEF_REGULAR is not set now but will be set
1247              later (it is never cleared).  In case of a weak definition,
1248              DEF_REGULAR may be cleared later by a strong definition in
1249              a shared library.  We account for that possibility below by
1250              storing information in the relocs_copied field of the hash
1251              table entry.  A similar situation occurs when creating
1252              shared libraries and symbol visibility changes render the
1253              symbol local.
1254
1255              If on the other hand, we are creating an executable, we
1256              may need to keep relocations for symbols satisfied by a
1257              dynamic library if we manage to avoid copy relocs for the
1258              symbol.  */
1259           if ((info->shared
1260                && (sec->flags & SEC_ALLOC) != 0
1261                && (((r_type != R_X86_64_PC8)
1262                     && (r_type != R_X86_64_PC16)
1263                     && (r_type != R_X86_64_PC32)
1264                     && (r_type != R_X86_64_PC64))
1265                    || (h != NULL
1266                        && (! SYMBOLIC_BIND (info, h)
1267                            || h->root.type == bfd_link_hash_defweak
1268                            || !h->def_regular))))
1269               || (ELIMINATE_COPY_RELOCS
1270                   && !info->shared
1271                   && (sec->flags & SEC_ALLOC) != 0
1272                   && h != NULL
1273                   && (h->root.type == bfd_link_hash_defweak
1274                       || !h->def_regular)))
1275             {
1276               struct elf64_x86_64_dyn_relocs *p;
1277               struct elf64_x86_64_dyn_relocs **head;
1278
1279               /* We must copy these reloc types into the output file.
1280                  Create a reloc section in dynobj and make room for
1281                  this reloc.  */
1282               if (sreloc == NULL)
1283                 {
1284                   if (htab->elf.dynobj == NULL)
1285                     htab->elf.dynobj = abfd;
1286
1287                   sreloc = _bfd_elf_make_dynamic_reloc_section
1288                     (sec, htab->elf.dynobj, 3, abfd, /*rela?*/ TRUE);
1289
1290                   if (sreloc == NULL)
1291                     return FALSE;
1292                 }
1293
1294               /* If this is a global symbol, we count the number of
1295                  relocations we need for this symbol.  */
1296               if (h != NULL)
1297                 {
1298                   head = &((struct elf64_x86_64_link_hash_entry *) h)->dyn_relocs;
1299                 }
1300               else
1301                 {
1302                   void **vpp;
1303                   /* Track dynamic relocs needed for local syms too.
1304                      We really need local syms available to do this
1305                      easily.  Oh well.  */
1306
1307                   asection *s;
1308                   s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
1309                                                  sec, r_symndx);
1310                   if (s == NULL)
1311                     return FALSE;
1312
1313                   /* Beware of type punned pointers vs strict aliasing
1314                      rules.  */
1315                   vpp = &(elf_section_data (s)->local_dynrel);
1316                   head = (struct elf64_x86_64_dyn_relocs **)vpp;
1317                 }
1318
1319               p = *head;
1320               if (p == NULL || p->sec != sec)
1321                 {
1322                   bfd_size_type amt = sizeof *p;
1323                   p = ((struct elf64_x86_64_dyn_relocs *)
1324                        bfd_alloc (htab->elf.dynobj, amt));
1325                   if (p == NULL)
1326                     return FALSE;
1327                   p->next = *head;
1328                   *head = p;
1329                   p->sec = sec;
1330                   p->count = 0;
1331                   p->pc_count = 0;
1332                 }
1333
1334               p->count += 1;
1335               if (r_type == R_X86_64_PC8
1336                   || r_type == R_X86_64_PC16
1337                   || r_type == R_X86_64_PC32
1338                   || r_type == R_X86_64_PC64)
1339                 p->pc_count += 1;
1340             }
1341           break;
1342
1343           /* This relocation describes the C++ object vtable hierarchy.
1344              Reconstruct it for later use during GC.  */
1345         case R_X86_64_GNU_VTINHERIT:
1346           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1347             return FALSE;
1348           break;
1349
1350           /* This relocation describes which C++ vtable entries are actually
1351              used.  Record for later use during GC.  */
1352         case R_X86_64_GNU_VTENTRY:
1353           BFD_ASSERT (h != NULL);
1354           if (h != NULL
1355               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1356             return FALSE;
1357           break;
1358
1359         default:
1360           break;
1361         }
1362     }
1363
1364   return TRUE;
1365 }
1366
1367 /* Return the section that should be marked against GC for a given
1368    relocation.  */
1369
1370 static asection *
1371 elf64_x86_64_gc_mark_hook (asection *sec,
1372                            struct bfd_link_info *info,
1373                            Elf_Internal_Rela *rel,
1374                            struct elf_link_hash_entry *h,
1375                            Elf_Internal_Sym *sym)
1376 {
1377   if (h != NULL)
1378     switch (ELF64_R_TYPE (rel->r_info))
1379       {
1380       case R_X86_64_GNU_VTINHERIT:
1381       case R_X86_64_GNU_VTENTRY:
1382         return NULL;
1383       }
1384
1385   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1386 }
1387
1388 /* Update the got entry reference counts for the section being removed.  */
1389
1390 static bfd_boolean
1391 elf64_x86_64_gc_sweep_hook (bfd *abfd, struct bfd_link_info *info,
1392                             asection *sec,
1393                             const Elf_Internal_Rela *relocs)
1394 {
1395   Elf_Internal_Shdr *symtab_hdr;
1396   struct elf_link_hash_entry **sym_hashes;
1397   bfd_signed_vma *local_got_refcounts;
1398   const Elf_Internal_Rela *rel, *relend;
1399
1400   if (info->relocatable)
1401     return TRUE;
1402
1403   elf_section_data (sec)->local_dynrel = NULL;
1404
1405   symtab_hdr = &elf_symtab_hdr (abfd);
1406   sym_hashes = elf_sym_hashes (abfd);
1407   local_got_refcounts = elf_local_got_refcounts (abfd);
1408
1409   relend = relocs + sec->reloc_count;
1410   for (rel = relocs; rel < relend; rel++)
1411     {
1412       unsigned long r_symndx;
1413       unsigned int r_type;
1414       struct elf_link_hash_entry *h = NULL;
1415
1416       r_symndx = ELF64_R_SYM (rel->r_info);
1417       if (r_symndx >= symtab_hdr->sh_info)
1418         {
1419           struct elf64_x86_64_link_hash_entry *eh;
1420           struct elf64_x86_64_dyn_relocs **pp;
1421           struct elf64_x86_64_dyn_relocs *p;
1422
1423           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1424           while (h->root.type == bfd_link_hash_indirect
1425                  || h->root.type == bfd_link_hash_warning)
1426             h = (struct elf_link_hash_entry *) h->root.u.i.link;
1427           eh = (struct elf64_x86_64_link_hash_entry *) h;
1428
1429           for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
1430             if (p->sec == sec)
1431               {
1432                 /* Everything must go for SEC.  */
1433                 *pp = p->next;
1434                 break;
1435               }
1436         }
1437
1438       r_type = ELF64_R_TYPE (rel->r_info);
1439       if (! elf64_x86_64_tls_transition (info, abfd, sec, NULL,
1440                                          symtab_hdr, sym_hashes,
1441                                          &r_type, GOT_UNKNOWN,
1442                                          rel, relend, h))
1443         return FALSE;
1444
1445       switch (r_type)
1446         {
1447         case R_X86_64_TLSLD:
1448           if (elf64_x86_64_hash_table (info)->tls_ld_got.refcount > 0)
1449             elf64_x86_64_hash_table (info)->tls_ld_got.refcount -= 1;
1450           break;
1451
1452         case R_X86_64_TLSGD:
1453         case R_X86_64_GOTPC32_TLSDESC:
1454         case R_X86_64_TLSDESC_CALL:
1455         case R_X86_64_GOTTPOFF:
1456         case R_X86_64_GOT32:
1457         case R_X86_64_GOTPCREL:
1458         case R_X86_64_GOT64:
1459         case R_X86_64_GOTPCREL64:
1460         case R_X86_64_GOTPLT64:
1461           if (h != NULL)
1462             {
1463               if (r_type == R_X86_64_GOTPLT64 && h->plt.refcount > 0)
1464                 h->plt.refcount -= 1;
1465               if (h->got.refcount > 0)
1466                 h->got.refcount -= 1;
1467             }
1468           else if (local_got_refcounts != NULL)
1469             {
1470               if (local_got_refcounts[r_symndx] > 0)
1471                 local_got_refcounts[r_symndx] -= 1;
1472             }
1473           break;
1474
1475         case R_X86_64_8:
1476         case R_X86_64_16:
1477         case R_X86_64_32:
1478         case R_X86_64_64:
1479         case R_X86_64_32S:
1480         case R_X86_64_PC8:
1481         case R_X86_64_PC16:
1482         case R_X86_64_PC32:
1483         case R_X86_64_PC64:
1484           if (info->shared)
1485             break;
1486           /* Fall thru */
1487
1488         case R_X86_64_PLT32:
1489         case R_X86_64_PLTOFF64:
1490           if (h != NULL)
1491             {
1492               if (h->plt.refcount > 0)
1493                 h->plt.refcount -= 1;
1494             }
1495           break;
1496
1497         default:
1498           break;
1499         }
1500     }
1501
1502   return TRUE;
1503 }
1504
1505 /* Adjust a symbol defined by a dynamic object and referenced by a
1506    regular object.  The current definition is in some section of the
1507    dynamic object, but we're not including those sections.  We have to
1508    change the definition to something the rest of the link can
1509    understand.  */
1510
1511 static bfd_boolean
1512 elf64_x86_64_adjust_dynamic_symbol (struct bfd_link_info *info,
1513                                     struct elf_link_hash_entry *h)
1514 {
1515   struct elf64_x86_64_link_hash_table *htab;
1516   asection *s;
1517
1518   /* If this is a function, put it in the procedure linkage table.  We
1519      will fill in the contents of the procedure linkage table later,
1520      when we know the address of the .got section.  */
1521   if (h->type == STT_FUNC
1522       || h->needs_plt)
1523     {
1524       if (h->plt.refcount <= 0
1525           || SYMBOL_CALLS_LOCAL (info, h)
1526           || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
1527               && h->root.type == bfd_link_hash_undefweak))
1528         {
1529           /* This case can occur if we saw a PLT32 reloc in an input
1530              file, but the symbol was never referred to by a dynamic
1531              object, or if all references were garbage collected.  In
1532              such a case, we don't actually need to build a procedure
1533              linkage table, and we can just do a PC32 reloc instead.  */
1534           h->plt.offset = (bfd_vma) -1;
1535           h->needs_plt = 0;
1536         }
1537
1538       return TRUE;
1539     }
1540   else
1541     /* It's possible that we incorrectly decided a .plt reloc was
1542        needed for an R_X86_64_PC32 reloc to a non-function sym in
1543        check_relocs.  We can't decide accurately between function and
1544        non-function syms in check-relocs;  Objects loaded later in
1545        the link may change h->type.  So fix it now.  */
1546     h->plt.offset = (bfd_vma) -1;
1547
1548   /* If this is a weak symbol, and there is a real definition, the
1549      processor independent code will have arranged for us to see the
1550      real definition first, and we can just use the same value.  */
1551   if (h->u.weakdef != NULL)
1552     {
1553       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
1554                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
1555       h->root.u.def.section = h->u.weakdef->root.u.def.section;
1556       h->root.u.def.value = h->u.weakdef->root.u.def.value;
1557       if (ELIMINATE_COPY_RELOCS || info->nocopyreloc)
1558         h->non_got_ref = h->u.weakdef->non_got_ref;
1559       return TRUE;
1560     }
1561
1562   /* This is a reference to a symbol defined by a dynamic object which
1563      is not a function.  */
1564
1565   /* If we are creating a shared library, we must presume that the
1566      only references to the symbol are via the global offset table.
1567      For such cases we need not do anything here; the relocations will
1568      be handled correctly by relocate_section.  */
1569   if (info->shared)
1570     return TRUE;
1571
1572   /* If there are no references to this symbol that do not use the
1573      GOT, we don't need to generate a copy reloc.  */
1574   if (!h->non_got_ref)
1575     return TRUE;
1576
1577   /* If -z nocopyreloc was given, we won't generate them either.  */
1578   if (info->nocopyreloc)
1579     {
1580       h->non_got_ref = 0;
1581       return TRUE;
1582     }
1583
1584   if (ELIMINATE_COPY_RELOCS)
1585     {
1586       struct elf64_x86_64_link_hash_entry * eh;
1587       struct elf64_x86_64_dyn_relocs *p;
1588
1589       eh = (struct elf64_x86_64_link_hash_entry *) h;
1590       for (p = eh->dyn_relocs; p != NULL; p = p->next)
1591         {
1592           s = p->sec->output_section;
1593           if (s != NULL && (s->flags & SEC_READONLY) != 0)
1594             break;
1595         }
1596
1597       /* If we didn't find any dynamic relocs in read-only sections, then
1598          we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
1599       if (p == NULL)
1600         {
1601           h->non_got_ref = 0;
1602           return TRUE;
1603         }
1604     }
1605
1606   if (h->size == 0)
1607     {
1608       (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
1609                              h->root.root.string);
1610       return TRUE;
1611     }
1612
1613   /* We must allocate the symbol in our .dynbss section, which will
1614      become part of the .bss section of the executable.  There will be
1615      an entry for this symbol in the .dynsym section.  The dynamic
1616      object will contain position independent code, so all references
1617      from the dynamic object to this symbol will go through the global
1618      offset table.  The dynamic linker will use the .dynsym entry to
1619      determine the address it must put in the global offset table, so
1620      both the dynamic object and the regular object will refer to the
1621      same memory location for the variable.  */
1622
1623   htab = elf64_x86_64_hash_table (info);
1624
1625   /* We must generate a R_X86_64_COPY reloc to tell the dynamic linker
1626      to copy the initial value out of the dynamic object and into the
1627      runtime process image.  */
1628   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1629     {
1630       htab->srelbss->size += sizeof (Elf64_External_Rela);
1631       h->needs_copy = 1;
1632     }
1633
1634   s = htab->sdynbss;
1635
1636   return _bfd_elf_adjust_dynamic_copy (h, s);
1637 }
1638
1639 /* Allocate space in .plt, .got and associated reloc sections for
1640    dynamic relocs.  */
1641
1642 static bfd_boolean
1643 allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
1644 {
1645   struct bfd_link_info *info;
1646   struct elf64_x86_64_link_hash_table *htab;
1647   struct elf64_x86_64_link_hash_entry *eh;
1648   struct elf64_x86_64_dyn_relocs *p;
1649
1650   if (h->root.type == bfd_link_hash_indirect)
1651     return TRUE;
1652
1653   if (h->root.type == bfd_link_hash_warning)
1654     h = (struct elf_link_hash_entry *) h->root.u.i.link;
1655
1656   info = (struct bfd_link_info *) inf;
1657   htab = elf64_x86_64_hash_table (info);
1658
1659   if (htab->elf.dynamic_sections_created
1660       && h->plt.refcount > 0)
1661     {
1662       /* Make sure this symbol is output as a dynamic symbol.
1663          Undefined weak syms won't yet be marked as dynamic.  */
1664       if (h->dynindx == -1
1665           && !h->forced_local)
1666         {
1667           if (! bfd_elf_link_record_dynamic_symbol (info, h))
1668             return FALSE;
1669         }
1670
1671       if (info->shared
1672           || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
1673         {
1674           asection *s = htab->splt;
1675
1676           /* If this is the first .plt entry, make room for the special
1677              first entry.  */
1678           if (s->size == 0)
1679             s->size += PLT_ENTRY_SIZE;
1680
1681           h->plt.offset = s->size;
1682
1683           /* If this symbol is not defined in a regular file, and we are
1684              not generating a shared library, then set the symbol to this
1685              location in the .plt.  This is required to make function
1686              pointers compare as equal between the normal executable and
1687              the shared library.  */
1688           if (! info->shared
1689               && !h->def_regular)
1690             {
1691               h->root.u.def.section = s;
1692               h->root.u.def.value = h->plt.offset;
1693             }
1694
1695           /* Make room for this entry.  */
1696           s->size += PLT_ENTRY_SIZE;
1697
1698           /* We also need to make an entry in the .got.plt section, which
1699              will be placed in the .got section by the linker script.  */
1700           htab->sgotplt->size += GOT_ENTRY_SIZE;
1701
1702           /* We also need to make an entry in the .rela.plt section.  */
1703           htab->srelplt->size += sizeof (Elf64_External_Rela);
1704           htab->srelplt->reloc_count++;
1705         }
1706       else
1707         {
1708           h->plt.offset = (bfd_vma) -1;
1709           h->needs_plt = 0;
1710         }
1711     }
1712   else
1713     {
1714       h->plt.offset = (bfd_vma) -1;
1715       h->needs_plt = 0;
1716     }
1717
1718   eh = (struct elf64_x86_64_link_hash_entry *) h;
1719   eh->tlsdesc_got = (bfd_vma) -1;
1720
1721   /* If R_X86_64_GOTTPOFF symbol is now local to the binary,
1722      make it a R_X86_64_TPOFF32 requiring no GOT entry.  */
1723   if (h->got.refcount > 0
1724       && !info->shared
1725       && h->dynindx == -1
1726       && elf64_x86_64_hash_entry (h)->tls_type == GOT_TLS_IE)
1727     h->got.offset = (bfd_vma) -1;
1728   else if (h->got.refcount > 0)
1729     {
1730       asection *s;
1731       bfd_boolean dyn;
1732       int tls_type = elf64_x86_64_hash_entry (h)->tls_type;
1733
1734       /* Make sure this symbol is output as a dynamic symbol.
1735          Undefined weak syms won't yet be marked as dynamic.  */
1736       if (h->dynindx == -1
1737           && !h->forced_local)
1738         {
1739           if (! bfd_elf_link_record_dynamic_symbol (info, h))
1740             return FALSE;
1741         }
1742
1743       if (GOT_TLS_GDESC_P (tls_type))
1744         {
1745           eh->tlsdesc_got = htab->sgotplt->size
1746             - elf64_x86_64_compute_jump_table_size (htab);
1747           htab->sgotplt->size += 2 * GOT_ENTRY_SIZE;
1748           h->got.offset = (bfd_vma) -2;
1749         }
1750       if (! GOT_TLS_GDESC_P (tls_type)
1751           || GOT_TLS_GD_P (tls_type))
1752         {
1753           s = htab->sgot;
1754           h->got.offset = s->size;
1755           s->size += GOT_ENTRY_SIZE;
1756           if (GOT_TLS_GD_P (tls_type))
1757             s->size += GOT_ENTRY_SIZE;
1758         }
1759       dyn = htab->elf.dynamic_sections_created;
1760       /* R_X86_64_TLSGD needs one dynamic relocation if local symbol
1761          and two if global.
1762          R_X86_64_GOTTPOFF needs one dynamic relocation.  */
1763       if ((GOT_TLS_GD_P (tls_type) && h->dynindx == -1)
1764           || tls_type == GOT_TLS_IE)
1765         htab->srelgot->size += sizeof (Elf64_External_Rela);
1766       else if (GOT_TLS_GD_P (tls_type))
1767         htab->srelgot->size += 2 * sizeof (Elf64_External_Rela);
1768       else if (! GOT_TLS_GDESC_P (tls_type)
1769                && (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1770                    || h->root.type != bfd_link_hash_undefweak)
1771                && (info->shared
1772                    || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
1773         htab->srelgot->size += sizeof (Elf64_External_Rela);
1774       if (GOT_TLS_GDESC_P (tls_type))
1775         {
1776           htab->srelplt->size += sizeof (Elf64_External_Rela);
1777           htab->tlsdesc_plt = (bfd_vma) -1;
1778         }
1779     }
1780   else
1781     h->got.offset = (bfd_vma) -1;
1782
1783   if (eh->dyn_relocs == NULL)
1784     return TRUE;
1785
1786   /* In the shared -Bsymbolic case, discard space allocated for
1787      dynamic pc-relative relocs against symbols which turn out to be
1788      defined in regular objects.  For the normal shared case, discard
1789      space for pc-relative relocs that have become local due to symbol
1790      visibility changes.  */
1791
1792   if (info->shared)
1793     {
1794       /* Relocs that use pc_count are those that appear on a call
1795          insn, or certain REL relocs that can generated via assembly.
1796          We want calls to protected symbols to resolve directly to the
1797          function rather than going via the plt.  If people want
1798          function pointer comparisons to work as expected then they
1799          should avoid writing weird assembly.  */
1800       if (SYMBOL_CALLS_LOCAL (info, h))
1801         {
1802           struct elf64_x86_64_dyn_relocs **pp;
1803
1804           for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
1805             {
1806               p->count -= p->pc_count;
1807               p->pc_count = 0;
1808               if (p->count == 0)
1809                 *pp = p->next;
1810               else
1811                 pp = &p->next;
1812             }
1813         }
1814
1815       /* Also discard relocs on undefined weak syms with non-default
1816          visibility.  */
1817       if (eh->dyn_relocs != NULL
1818           && h->root.type == bfd_link_hash_undefweak)
1819         {
1820           if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
1821             eh->dyn_relocs = NULL;
1822
1823           /* Make sure undefined weak symbols are output as a dynamic
1824              symbol in PIEs.  */
1825           else if (h->dynindx == -1
1826                    && !h->forced_local)
1827             {
1828               if (! bfd_elf_link_record_dynamic_symbol (info, h))
1829                 return FALSE;
1830             }
1831         }
1832     }
1833   else if (ELIMINATE_COPY_RELOCS)
1834     {
1835       /* For the non-shared case, discard space for relocs against
1836          symbols which turn out to need copy relocs or are not
1837          dynamic.  */
1838
1839       if (!h->non_got_ref
1840           && ((h->def_dynamic
1841                && !h->def_regular)
1842               || (htab->elf.dynamic_sections_created
1843                   && (h->root.type == bfd_link_hash_undefweak
1844                       || h->root.type == bfd_link_hash_undefined))))
1845         {
1846           /* Make sure this symbol is output as a dynamic symbol.
1847              Undefined weak syms won't yet be marked as dynamic.  */
1848           if (h->dynindx == -1
1849               && !h->forced_local)
1850             {
1851               if (! bfd_elf_link_record_dynamic_symbol (info, h))
1852                 return FALSE;
1853             }
1854
1855           /* If that succeeded, we know we'll be keeping all the
1856              relocs.  */
1857           if (h->dynindx != -1)
1858             goto keep;
1859         }
1860
1861       eh->dyn_relocs = NULL;
1862
1863     keep: ;
1864     }
1865
1866   /* Finally, allocate space.  */
1867   for (p = eh->dyn_relocs; p != NULL; p = p->next)
1868     {
1869       asection *sreloc = elf_section_data (p->sec)->sreloc;
1870       sreloc->size += p->count * sizeof (Elf64_External_Rela);
1871     }
1872
1873   return TRUE;
1874 }
1875
1876 /* Find any dynamic relocs that apply to read-only sections.  */
1877
1878 static bfd_boolean
1879 readonly_dynrelocs (struct elf_link_hash_entry *h, void * inf)
1880 {
1881   struct elf64_x86_64_link_hash_entry *eh;
1882   struct elf64_x86_64_dyn_relocs *p;
1883
1884   if (h->root.type == bfd_link_hash_warning)
1885     h = (struct elf_link_hash_entry *) h->root.u.i.link;
1886
1887   eh = (struct elf64_x86_64_link_hash_entry *) h;
1888   for (p = eh->dyn_relocs; p != NULL; p = p->next)
1889     {
1890       asection *s = p->sec->output_section;
1891
1892       if (s != NULL && (s->flags & SEC_READONLY) != 0)
1893         {
1894           struct bfd_link_info *info = (struct bfd_link_info *) inf;
1895
1896           info->flags |= DF_TEXTREL;
1897
1898           /* Not an error, just cut short the traversal.  */
1899           return FALSE;
1900         }
1901     }
1902   return TRUE;
1903 }
1904
1905 /* Set the sizes of the dynamic sections.  */
1906
1907 static bfd_boolean
1908 elf64_x86_64_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
1909                                     struct bfd_link_info *info)
1910 {
1911   struct elf64_x86_64_link_hash_table *htab;
1912   bfd *dynobj;
1913   asection *s;
1914   bfd_boolean relocs;
1915   bfd *ibfd;
1916
1917   htab = elf64_x86_64_hash_table (info);
1918   dynobj = htab->elf.dynobj;
1919   if (dynobj == NULL)
1920     abort ();
1921
1922   if (htab->elf.dynamic_sections_created)
1923     {
1924       /* Set the contents of the .interp section to the interpreter.  */
1925       if (info->executable)
1926         {
1927           s = bfd_get_section_by_name (dynobj, ".interp");
1928           if (s == NULL)
1929             abort ();
1930           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
1931           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
1932         }
1933     }
1934
1935   /* Set up .got offsets for local syms, and space for local dynamic
1936      relocs.  */
1937   for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
1938     {
1939       bfd_signed_vma *local_got;
1940       bfd_signed_vma *end_local_got;
1941       char *local_tls_type;
1942       bfd_vma *local_tlsdesc_gotent;
1943       bfd_size_type locsymcount;
1944       Elf_Internal_Shdr *symtab_hdr;
1945       asection *srel;
1946
1947       if (! is_x86_64_elf (ibfd))
1948         continue;
1949
1950       for (s = ibfd->sections; s != NULL; s = s->next)
1951         {
1952           struct elf64_x86_64_dyn_relocs *p;
1953
1954           for (p = (struct elf64_x86_64_dyn_relocs *)
1955                     (elf_section_data (s)->local_dynrel);
1956                p != NULL;
1957                p = p->next)
1958             {
1959               if (!bfd_is_abs_section (p->sec)
1960                   && bfd_is_abs_section (p->sec->output_section))
1961                 {
1962                   /* Input section has been discarded, either because
1963                      it is a copy of a linkonce section or due to
1964                      linker script /DISCARD/, so we'll be discarding
1965                      the relocs too.  */
1966                 }
1967               else if (p->count != 0)
1968                 {
1969                   srel = elf_section_data (p->sec)->sreloc;
1970                   srel->size += p->count * sizeof (Elf64_External_Rela);
1971                   if ((p->sec->output_section->flags & SEC_READONLY) != 0)
1972                     info->flags |= DF_TEXTREL;
1973
1974                 }
1975             }
1976         }
1977
1978       local_got = elf_local_got_refcounts (ibfd);
1979       if (!local_got)
1980         continue;
1981
1982       symtab_hdr = &elf_symtab_hdr (ibfd);
1983       locsymcount = symtab_hdr->sh_info;
1984       end_local_got = local_got + locsymcount;
1985       local_tls_type = elf64_x86_64_local_got_tls_type (ibfd);
1986       local_tlsdesc_gotent = elf64_x86_64_local_tlsdesc_gotent (ibfd);
1987       s = htab->sgot;
1988       srel = htab->srelgot;
1989       for (; local_got < end_local_got;
1990            ++local_got, ++local_tls_type, ++local_tlsdesc_gotent)
1991         {
1992           *local_tlsdesc_gotent = (bfd_vma) -1;
1993           if (*local_got > 0)
1994             {
1995               if (GOT_TLS_GDESC_P (*local_tls_type))
1996                 {
1997                   *local_tlsdesc_gotent = htab->sgotplt->size
1998                     - elf64_x86_64_compute_jump_table_size (htab);
1999                   htab->sgotplt->size += 2 * GOT_ENTRY_SIZE;
2000                   *local_got = (bfd_vma) -2;
2001                 }
2002               if (! GOT_TLS_GDESC_P (*local_tls_type)
2003                   || GOT_TLS_GD_P (*local_tls_type))
2004                 {
2005                   *local_got = s->size;
2006                   s->size += GOT_ENTRY_SIZE;
2007                   if (GOT_TLS_GD_P (*local_tls_type))
2008                     s->size += GOT_ENTRY_SIZE;
2009                 }
2010               if (info->shared
2011                   || GOT_TLS_GD_ANY_P (*local_tls_type)
2012                   || *local_tls_type == GOT_TLS_IE)
2013                 {
2014                   if (GOT_TLS_GDESC_P (*local_tls_type))
2015                     {
2016                       htab->srelplt->size += sizeof (Elf64_External_Rela);
2017                       htab->tlsdesc_plt = (bfd_vma) -1;
2018                     }
2019                   if (! GOT_TLS_GDESC_P (*local_tls_type)
2020                       || GOT_TLS_GD_P (*local_tls_type))
2021                     srel->size += sizeof (Elf64_External_Rela);
2022                 }
2023             }
2024           else
2025             *local_got = (bfd_vma) -1;
2026         }
2027     }
2028
2029   if (htab->tls_ld_got.refcount > 0)
2030     {
2031       /* Allocate 2 got entries and 1 dynamic reloc for R_X86_64_TLSLD
2032          relocs.  */
2033       htab->tls_ld_got.offset = htab->sgot->size;
2034       htab->sgot->size += 2 * GOT_ENTRY_SIZE;
2035       htab->srelgot->size += sizeof (Elf64_External_Rela);
2036     }
2037   else
2038     htab->tls_ld_got.offset = -1;
2039
2040   /* Allocate global sym .plt and .got entries, and space for global
2041      sym dynamic relocs.  */
2042   elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, (PTR) info);
2043
2044   /* For every jump slot reserved in the sgotplt, reloc_count is
2045      incremented.  However, when we reserve space for TLS descriptors,
2046      it's not incremented, so in order to compute the space reserved
2047      for them, it suffices to multiply the reloc count by the jump
2048      slot size.  */
2049   if (htab->srelplt)
2050     htab->sgotplt_jump_table_size
2051       = elf64_x86_64_compute_jump_table_size (htab);
2052
2053   if (htab->tlsdesc_plt)
2054     {
2055       /* If we're not using lazy TLS relocations, don't generate the
2056          PLT and GOT entries they require.  */
2057       if ((info->flags & DF_BIND_NOW))
2058         htab->tlsdesc_plt = 0;
2059       else
2060         {
2061           htab->tlsdesc_got = htab->sgot->size;
2062           htab->sgot->size += GOT_ENTRY_SIZE;
2063           /* Reserve room for the initial entry.
2064              FIXME: we could probably do away with it in this case.  */
2065           if (htab->splt->size == 0)
2066             htab->splt->size += PLT_ENTRY_SIZE;
2067           htab->tlsdesc_plt = htab->splt->size;
2068           htab->splt->size += PLT_ENTRY_SIZE;
2069         }
2070     }
2071
2072   /* We now have determined the sizes of the various dynamic sections.
2073      Allocate memory for them.  */
2074   relocs = FALSE;
2075   for (s = dynobj->sections; s != NULL; s = s->next)
2076     {
2077       if ((s->flags & SEC_LINKER_CREATED) == 0)
2078         continue;
2079
2080       if (s == htab->splt
2081           || s == htab->sgot
2082           || s == htab->sgotplt
2083           || s == htab->sdynbss)
2084         {
2085           /* Strip this section if we don't need it; see the
2086              comment below.  */
2087         }
2088       else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
2089         {
2090           if (s->size != 0 && s != htab->srelplt)
2091             relocs = TRUE;
2092
2093           /* We use the reloc_count field as a counter if we need
2094              to copy relocs into the output file.  */
2095           if (s != htab->srelplt)
2096             s->reloc_count = 0;
2097         }
2098       else
2099         {
2100           /* It's not one of our sections, so don't allocate space.  */
2101           continue;
2102         }
2103
2104       if (s->size == 0)
2105         {
2106           /* If we don't need this section, strip it from the
2107              output file.  This is mostly to handle .rela.bss and
2108              .rela.plt.  We must create both sections in
2109              create_dynamic_sections, because they must be created
2110              before the linker maps input sections to output
2111              sections.  The linker does that before
2112              adjust_dynamic_symbol is called, and it is that
2113              function which decides whether anything needs to go
2114              into these sections.  */
2115
2116           s->flags |= SEC_EXCLUDE;
2117           continue;
2118         }
2119
2120       if ((s->flags & SEC_HAS_CONTENTS) == 0)
2121         continue;
2122
2123       /* Allocate memory for the section contents.  We use bfd_zalloc
2124          here in case unused entries are not reclaimed before the
2125          section's contents are written out.  This should not happen,
2126          but this way if it does, we get a R_X86_64_NONE reloc instead
2127          of garbage.  */
2128       s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
2129       if (s->contents == NULL)
2130         return FALSE;
2131     }
2132
2133   if (htab->elf.dynamic_sections_created)
2134     {
2135       /* Add some entries to the .dynamic section.  We fill in the
2136          values later, in elf64_x86_64_finish_dynamic_sections, but we
2137          must add the entries now so that we get the correct size for
2138          the .dynamic section.  The DT_DEBUG entry is filled in by the
2139          dynamic linker and used by the debugger.  */
2140 #define add_dynamic_entry(TAG, VAL) \
2141   _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2142
2143       if (info->executable)
2144         {
2145           if (!add_dynamic_entry (DT_DEBUG, 0))
2146             return FALSE;
2147         }
2148
2149       if (htab->splt->size != 0)
2150         {
2151           if (!add_dynamic_entry (DT_PLTGOT, 0)
2152               || !add_dynamic_entry (DT_PLTRELSZ, 0)
2153               || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2154               || !add_dynamic_entry (DT_JMPREL, 0))
2155             return FALSE;
2156
2157           if (htab->tlsdesc_plt
2158               && (!add_dynamic_entry (DT_TLSDESC_PLT, 0)
2159                   || !add_dynamic_entry (DT_TLSDESC_GOT, 0)))
2160             return FALSE;
2161         }
2162
2163       if (relocs)
2164         {
2165           if (!add_dynamic_entry (DT_RELA, 0)
2166               || !add_dynamic_entry (DT_RELASZ, 0)
2167               || !add_dynamic_entry (DT_RELAENT, sizeof (Elf64_External_Rela)))
2168             return FALSE;
2169
2170           /* If any dynamic relocs apply to a read-only section,
2171              then we need a DT_TEXTREL entry.  */
2172           if ((info->flags & DF_TEXTREL) == 0)
2173             elf_link_hash_traverse (&htab->elf, readonly_dynrelocs,
2174                                     (PTR) info);
2175
2176           if ((info->flags & DF_TEXTREL) != 0)
2177             {
2178               if (!add_dynamic_entry (DT_TEXTREL, 0))
2179                 return FALSE;
2180             }
2181         }
2182     }
2183 #undef add_dynamic_entry
2184
2185   return TRUE;
2186 }
2187
2188 static bfd_boolean
2189 elf64_x86_64_always_size_sections (bfd *output_bfd,
2190                                    struct bfd_link_info *info)
2191 {
2192   asection *tls_sec = elf_hash_table (info)->tls_sec;
2193
2194   if (tls_sec)
2195     {
2196       struct elf_link_hash_entry *tlsbase;
2197
2198       tlsbase = elf_link_hash_lookup (elf_hash_table (info),
2199                                       "_TLS_MODULE_BASE_",
2200                                       FALSE, FALSE, FALSE);
2201
2202       if (tlsbase && tlsbase->type == STT_TLS)
2203         {
2204           struct bfd_link_hash_entry *bh = NULL;
2205           const struct elf_backend_data *bed
2206             = get_elf_backend_data (output_bfd);
2207
2208           if (!(_bfd_generic_link_add_one_symbol
2209                 (info, output_bfd, "_TLS_MODULE_BASE_", BSF_LOCAL,
2210                  tls_sec, 0, NULL, FALSE,
2211                  bed->collect, &bh)))
2212             return FALSE;
2213
2214           elf64_x86_64_hash_table (info)->tls_module_base = bh;
2215
2216           tlsbase = (struct elf_link_hash_entry *)bh;
2217           tlsbase->def_regular = 1;
2218           tlsbase->other = STV_HIDDEN;
2219           (*bed->elf_backend_hide_symbol) (info, tlsbase, TRUE);
2220         }
2221     }
2222
2223   return TRUE;
2224 }
2225
2226 /* _TLS_MODULE_BASE_ needs to be treated especially when linking
2227    executables.  Rather than setting it to the beginning of the TLS
2228    section, we have to set it to the end.  This function may be called
2229    multiple times, it is idempotent.  */
2230
2231 static void
2232 set_tls_module_base (struct bfd_link_info *info)
2233 {
2234   struct bfd_link_hash_entry *base;
2235
2236   if (!info->executable)
2237     return;
2238
2239   base = elf64_x86_64_hash_table (info)->tls_module_base;
2240
2241   if (!base)
2242     return;
2243
2244   base->u.def.value = elf_hash_table (info)->tls_size;
2245 }
2246
2247 /* Return the base VMA address which should be subtracted from real addresses
2248    when resolving @dtpoff relocation.
2249    This is PT_TLS segment p_vaddr.  */
2250
2251 static bfd_vma
2252 dtpoff_base (struct bfd_link_info *info)
2253 {
2254   /* If tls_sec is NULL, we should have signalled an error already.  */
2255   if (elf_hash_table (info)->tls_sec == NULL)
2256     return 0;
2257   return elf_hash_table (info)->tls_sec->vma;
2258 }
2259
2260 /* Return the relocation value for @tpoff relocation
2261    if STT_TLS virtual address is ADDRESS.  */
2262
2263 static bfd_vma
2264 tpoff (struct bfd_link_info *info, bfd_vma address)
2265 {
2266   struct elf_link_hash_table *htab = elf_hash_table (info);
2267
2268   /* If tls_segment is NULL, we should have signalled an error already.  */
2269   if (htab->tls_sec == NULL)
2270     return 0;
2271   return address - htab->tls_size - htab->tls_sec->vma;
2272 }
2273
2274 /* Is the instruction before OFFSET in CONTENTS a 32bit relative
2275    branch?  */
2276
2277 static bfd_boolean
2278 is_32bit_relative_branch (bfd_byte *contents, bfd_vma offset)
2279 {
2280   /* Opcode             Instruction
2281      0xe8               call
2282      0xe9               jump
2283      0x0f 0x8x          conditional jump */
2284   return ((offset > 0
2285            && (contents [offset - 1] == 0xe8
2286                || contents [offset - 1] == 0xe9))
2287           || (offset > 1
2288               && contents [offset - 2] == 0x0f
2289               && (contents [offset - 1] & 0xf0) == 0x80));
2290 }
2291
2292 /* Relocate an x86_64 ELF section.  */
2293
2294 static bfd_boolean
2295 elf64_x86_64_relocate_section (bfd *output_bfd, struct bfd_link_info *info,
2296                                bfd *input_bfd, asection *input_section,
2297                                bfd_byte *contents, Elf_Internal_Rela *relocs,
2298                                Elf_Internal_Sym *local_syms,
2299                                asection **local_sections)
2300 {
2301   struct elf64_x86_64_link_hash_table *htab;
2302   Elf_Internal_Shdr *symtab_hdr;
2303   struct elf_link_hash_entry **sym_hashes;
2304   bfd_vma *local_got_offsets;
2305   bfd_vma *local_tlsdesc_gotents;
2306   Elf_Internal_Rela *rel;
2307   Elf_Internal_Rela *relend;
2308
2309   BFD_ASSERT (is_x86_64_elf (input_bfd));
2310
2311   htab = elf64_x86_64_hash_table (info);
2312   symtab_hdr = &elf_symtab_hdr (input_bfd);
2313   sym_hashes = elf_sym_hashes (input_bfd);
2314   local_got_offsets = elf_local_got_offsets (input_bfd);
2315   local_tlsdesc_gotents = elf64_x86_64_local_tlsdesc_gotent (input_bfd);
2316
2317   set_tls_module_base (info);
2318
2319   rel = relocs;
2320   relend = relocs + input_section->reloc_count;
2321   for (; rel < relend; rel++)
2322     {
2323       unsigned int r_type;
2324       reloc_howto_type *howto;
2325       unsigned long r_symndx;
2326       struct elf_link_hash_entry *h;
2327       Elf_Internal_Sym *sym;
2328       asection *sec;
2329       bfd_vma off, offplt;
2330       bfd_vma relocation;
2331       bfd_boolean unresolved_reloc;
2332       bfd_reloc_status_type r;
2333       int tls_type;
2334
2335       r_type = ELF64_R_TYPE (rel->r_info);
2336       if (r_type == (int) R_X86_64_GNU_VTINHERIT
2337           || r_type == (int) R_X86_64_GNU_VTENTRY)
2338         continue;
2339
2340       if (r_type >= R_X86_64_max)
2341         {
2342           bfd_set_error (bfd_error_bad_value);
2343           return FALSE;
2344         }
2345
2346       howto = x86_64_elf_howto_table + r_type;
2347       r_symndx = ELF64_R_SYM (rel->r_info);
2348       h = NULL;
2349       sym = NULL;
2350       sec = NULL;
2351       unresolved_reloc = FALSE;
2352       if (r_symndx < symtab_hdr->sh_info)
2353         {
2354           sym = local_syms + r_symndx;
2355           sec = local_sections[r_symndx];
2356
2357           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2358         }
2359       else
2360         {
2361           bfd_boolean warned;
2362
2363           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2364                                    r_symndx, symtab_hdr, sym_hashes,
2365                                    h, sec, relocation,
2366                                    unresolved_reloc, warned);
2367         }
2368
2369       if (sec != NULL && elf_discarded_section (sec))
2370         {
2371           /* For relocs against symbols from removed linkonce sections,
2372              or sections discarded by a linker script, we just want the
2373              section contents zeroed.  Avoid any special processing.  */
2374           _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
2375           rel->r_info = 0;
2376           rel->r_addend = 0;
2377           continue;
2378         }
2379
2380       if (info->relocatable)
2381         continue;
2382
2383       /* When generating a shared object, the relocations handled here are
2384          copied into the output file to be resolved at run time.  */
2385       switch (r_type)
2386         {
2387         asection *base_got;
2388         case R_X86_64_GOT32:
2389         case R_X86_64_GOT64:
2390           /* Relocation is to the entry for this symbol in the global
2391              offset table.  */
2392         case R_X86_64_GOTPCREL:
2393         case R_X86_64_GOTPCREL64:
2394           /* Use global offset table entry as symbol value.  */
2395         case R_X86_64_GOTPLT64:
2396           /* This is the same as GOT64 for relocation purposes, but
2397              indicates the existence of a PLT entry.  The difficulty is,
2398              that we must calculate the GOT slot offset from the PLT
2399              offset, if this symbol got a PLT entry (it was global).
2400              Additionally if it's computed from the PLT entry, then that
2401              GOT offset is relative to .got.plt, not to .got.  */
2402           base_got = htab->sgot;
2403
2404           if (htab->sgot == NULL)
2405             abort ();
2406
2407           if (h != NULL)
2408             {
2409               bfd_boolean dyn;
2410
2411               off = h->got.offset;
2412               if (h->needs_plt
2413                   && h->plt.offset != (bfd_vma)-1
2414                   && off == (bfd_vma)-1)
2415                 {
2416                   /* We can't use h->got.offset here to save
2417                      state, or even just remember the offset, as
2418                      finish_dynamic_symbol would use that as offset into
2419                      .got.  */
2420                   bfd_vma plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
2421                   off = (plt_index + 3) * GOT_ENTRY_SIZE;
2422                   base_got = htab->sgotplt;
2423                 }
2424
2425               dyn = htab->elf.dynamic_sections_created;
2426
2427               if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
2428                   || (info->shared
2429                       && SYMBOL_REFERENCES_LOCAL (info, h))
2430                   || (ELF_ST_VISIBILITY (h->other)
2431                       && h->root.type == bfd_link_hash_undefweak))
2432                 {
2433                   /* This is actually a static link, or it is a -Bsymbolic
2434                      link and the symbol is defined locally, or the symbol
2435                      was forced to be local because of a version file.  We
2436                      must initialize this entry in the global offset table.
2437                      Since the offset must always be a multiple of 8, we
2438                      use the least significant bit to record whether we
2439                      have initialized it already.
2440
2441                      When doing a dynamic link, we create a .rela.got
2442                      relocation entry to initialize the value.  This is
2443                      done in the finish_dynamic_symbol routine.  */
2444                   if ((off & 1) != 0)
2445                     off &= ~1;
2446                   else
2447                     {
2448                       bfd_put_64 (output_bfd, relocation,
2449                                   base_got->contents + off);
2450                       /* Note that this is harmless for the GOTPLT64 case,
2451                          as -1 | 1 still is -1.  */
2452                       h->got.offset |= 1;
2453                     }
2454                 }
2455               else
2456                 unresolved_reloc = FALSE;
2457             }
2458           else
2459             {
2460               if (local_got_offsets == NULL)
2461                 abort ();
2462
2463               off = local_got_offsets[r_symndx];
2464
2465               /* The offset must always be a multiple of 8.  We use
2466                  the least significant bit to record whether we have
2467                  already generated the necessary reloc.  */
2468               if ((off & 1) != 0)
2469                 off &= ~1;
2470               else
2471                 {
2472                   bfd_put_64 (output_bfd, relocation,
2473                               base_got->contents + off);
2474
2475                   if (info->shared)
2476                     {
2477                       asection *s;
2478                       Elf_Internal_Rela outrel;
2479                       bfd_byte *loc;
2480
2481                       /* We need to generate a R_X86_64_RELATIVE reloc
2482                          for the dynamic linker.  */
2483                       s = htab->srelgot;
2484                       if (s == NULL)
2485                         abort ();
2486
2487                       outrel.r_offset = (base_got->output_section->vma
2488                                          + base_got->output_offset
2489                                          + off);
2490                       outrel.r_info = ELF64_R_INFO (0, R_X86_64_RELATIVE);
2491                       outrel.r_addend = relocation;
2492                       loc = s->contents;
2493                       loc += s->reloc_count++ * sizeof (Elf64_External_Rela);
2494                       bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
2495                     }
2496
2497                   local_got_offsets[r_symndx] |= 1;
2498                 }
2499             }
2500
2501           if (off >= (bfd_vma) -2)
2502             abort ();
2503
2504           relocation = base_got->output_section->vma
2505                        + base_got->output_offset + off;
2506           if (r_type != R_X86_64_GOTPCREL && r_type != R_X86_64_GOTPCREL64)
2507             relocation -= htab->sgotplt->output_section->vma
2508                           - htab->sgotplt->output_offset;
2509
2510           break;
2511
2512         case R_X86_64_GOTOFF64:
2513           /* Relocation is relative to the start of the global offset
2514              table.  */
2515
2516           /* Check to make sure it isn't a protected function symbol
2517              for shared library since it may not be local when used
2518              as function address.  */
2519           if (info->shared
2520               && h
2521               && h->def_regular
2522               && h->type == STT_FUNC
2523               && ELF_ST_VISIBILITY (h->other) == STV_PROTECTED)
2524             {
2525               (*_bfd_error_handler)
2526                 (_("%B: relocation R_X86_64_GOTOFF64 against protected function `%s' can not be used when making a shared object"),
2527                  input_bfd, h->root.root.string);
2528               bfd_set_error (bfd_error_bad_value);
2529               return FALSE;
2530             }
2531
2532           /* Note that sgot is not involved in this
2533              calculation.  We always want the start of .got.plt.  If we
2534              defined _GLOBAL_OFFSET_TABLE_ in a different way, as is
2535              permitted by the ABI, we might have to change this
2536              calculation.  */
2537           relocation -= htab->sgotplt->output_section->vma
2538                         + htab->sgotplt->output_offset;
2539           break;
2540
2541         case R_X86_64_GOTPC32:
2542         case R_X86_64_GOTPC64:
2543           /* Use global offset table as symbol value.  */
2544           relocation = htab->sgotplt->output_section->vma
2545                        + htab->sgotplt->output_offset;
2546           unresolved_reloc = FALSE;
2547           break;
2548
2549         case R_X86_64_PLTOFF64:
2550           /* Relocation is PLT entry relative to GOT.  For local
2551              symbols it's the symbol itself relative to GOT.  */
2552           if (h != NULL
2553               /* See PLT32 handling.  */
2554               && h->plt.offset != (bfd_vma) -1
2555               && htab->splt != NULL)
2556             {
2557               relocation = (htab->splt->output_section->vma
2558                             + htab->splt->output_offset
2559                             + h->plt.offset);
2560               unresolved_reloc = FALSE;
2561             }
2562
2563           relocation -= htab->sgotplt->output_section->vma
2564                         + htab->sgotplt->output_offset;
2565           break;
2566
2567         case R_X86_64_PLT32:
2568           /* Relocation is to the entry for this symbol in the
2569              procedure linkage table.  */
2570
2571           /* Resolve a PLT32 reloc against a local symbol directly,
2572              without using the procedure linkage table.  */
2573           if (h == NULL)
2574             break;
2575
2576           if (h->plt.offset == (bfd_vma) -1
2577               || htab->splt == NULL)
2578             {
2579               /* We didn't make a PLT entry for this symbol.  This
2580                  happens when statically linking PIC code, or when
2581                  using -Bsymbolic.  */
2582               break;
2583             }
2584
2585           relocation = (htab->splt->output_section->vma
2586                         + htab->splt->output_offset
2587                         + h->plt.offset);
2588           unresolved_reloc = FALSE;
2589           break;
2590
2591         case R_X86_64_PC8:
2592         case R_X86_64_PC16:
2593         case R_X86_64_PC32:
2594           if (info->shared
2595               && (input_section->flags & SEC_ALLOC) != 0
2596               && (input_section->flags & SEC_READONLY) != 0
2597               && h != NULL)
2598             {
2599               bfd_boolean fail = FALSE;
2600               bfd_boolean branch
2601                 = (r_type == R_X86_64_PC32
2602                    && is_32bit_relative_branch (contents, rel->r_offset));
2603
2604               if (SYMBOL_REFERENCES_LOCAL (info, h))
2605                 {
2606                   /* Symbol is referenced locally.  Make sure it is
2607                      defined locally or for a branch.  */
2608                   fail = !h->def_regular && !branch;
2609                 }
2610               else
2611                 {
2612                   /* Symbol isn't referenced locally.  We only allow
2613                      branch to symbol with non-default visibility. */
2614                   fail = (!branch
2615                           || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT);
2616                 }
2617
2618               if (fail)
2619                 {
2620                   const char *fmt;
2621                   const char *v;
2622                   const char *pic = "";
2623
2624                   switch (ELF_ST_VISIBILITY (h->other))
2625                     {
2626                     case STV_HIDDEN:
2627                       v = _("hidden symbol");
2628                       break;
2629                     case STV_INTERNAL:
2630                       v = _("internal symbol");
2631                       break;
2632                     case STV_PROTECTED:
2633                       v = _("protected symbol");
2634                       break;
2635                     default:
2636                       v = _("symbol");
2637                       pic = _("; recompile with -fPIC");
2638                       break;
2639                     }
2640
2641                   if (h->def_regular)
2642                     fmt = _("%B: relocation %s against %s `%s' can not be used when making a shared object%s");
2643                   else
2644                     fmt = _("%B: relocation %s against undefined %s `%s' can not be used when making a shared object%s");
2645
2646                   (*_bfd_error_handler) (fmt, input_bfd,
2647                                          x86_64_elf_howto_table[r_type].name,
2648                                          v,  h->root.root.string, pic);
2649                   bfd_set_error (bfd_error_bad_value);
2650                   return FALSE;
2651                 }
2652             }
2653           /* Fall through.  */
2654
2655         case R_X86_64_8:
2656         case R_X86_64_16:
2657         case R_X86_64_32:
2658         case R_X86_64_PC64:
2659         case R_X86_64_64:
2660           /* FIXME: The ABI says the linker should make sure the value is
2661              the same when it's zeroextended to 64 bit.  */
2662
2663           if ((input_section->flags & SEC_ALLOC) == 0)
2664             break;
2665
2666           if ((info->shared
2667                && (h == NULL
2668                    || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2669                    || h->root.type != bfd_link_hash_undefweak)
2670                && ((r_type != R_X86_64_PC8
2671                     && r_type != R_X86_64_PC16
2672                     && r_type != R_X86_64_PC32
2673                     && r_type != R_X86_64_PC64)
2674                    || !SYMBOL_CALLS_LOCAL (info, h)))
2675               || (ELIMINATE_COPY_RELOCS
2676                   && !info->shared
2677                   && h != NULL
2678                   && h->dynindx != -1
2679                   && !h->non_got_ref
2680                   && ((h->def_dynamic
2681                        && !h->def_regular)
2682                       || h->root.type == bfd_link_hash_undefweak
2683                       || h->root.type == bfd_link_hash_undefined)))
2684             {
2685               Elf_Internal_Rela outrel;
2686               bfd_byte *loc;
2687               bfd_boolean skip, relocate;
2688               asection *sreloc;
2689
2690               /* When generating a shared object, these relocations
2691                  are copied into the output file to be resolved at run
2692                  time.  */
2693               skip = FALSE;
2694               relocate = FALSE;
2695
2696               outrel.r_offset =
2697                 _bfd_elf_section_offset (output_bfd, info, input_section,
2698                                          rel->r_offset);
2699               if (outrel.r_offset == (bfd_vma) -1)
2700                 skip = TRUE;
2701               else if (outrel.r_offset == (bfd_vma) -2)
2702                 skip = TRUE, relocate = TRUE;
2703
2704               outrel.r_offset += (input_section->output_section->vma
2705                                   + input_section->output_offset);
2706
2707               if (skip)
2708                 memset (&outrel, 0, sizeof outrel);
2709
2710               /* h->dynindx may be -1 if this symbol was marked to
2711                  become local.  */
2712               else if (h != NULL
2713                        && h->dynindx != -1
2714                        && (r_type == R_X86_64_PC8
2715                            || r_type == R_X86_64_PC16
2716                            || r_type == R_X86_64_PC32
2717                            || r_type == R_X86_64_PC64
2718                            || !info->shared
2719                            || !SYMBOLIC_BIND (info, h)
2720                            || !h->def_regular))
2721                 {
2722                   outrel.r_info = ELF64_R_INFO (h->dynindx, r_type);
2723                   outrel.r_addend = rel->r_addend;
2724                 }
2725               else
2726                 {
2727                   /* This symbol is local, or marked to become local.  */
2728                   if (r_type == R_X86_64_64)
2729                     {
2730                       relocate = TRUE;
2731                       outrel.r_info = ELF64_R_INFO (0, R_X86_64_RELATIVE);
2732                       outrel.r_addend = relocation + rel->r_addend;
2733                     }
2734                   else
2735                     {
2736                       long sindx;
2737
2738                       if (bfd_is_abs_section (sec))
2739                         sindx = 0;
2740                       else if (sec == NULL || sec->owner == NULL)
2741                         {
2742                           bfd_set_error (bfd_error_bad_value);
2743                           return FALSE;
2744                         }
2745                       else
2746                         {
2747                           asection *osec;
2748
2749                           /* We are turning this relocation into one
2750                              against a section symbol.  It would be
2751                              proper to subtract the symbol's value,
2752                              osec->vma, from the emitted reloc addend,
2753                              but ld.so expects buggy relocs.  */
2754                           osec = sec->output_section;
2755                           sindx = elf_section_data (osec)->dynindx;
2756                           if (sindx == 0)
2757                             {
2758                               asection *oi = htab->elf.text_index_section;
2759                               sindx = elf_section_data (oi)->dynindx;
2760                             }
2761                           BFD_ASSERT (sindx != 0);
2762                         }
2763
2764                       outrel.r_info = ELF64_R_INFO (sindx, r_type);
2765                       outrel.r_addend = relocation + rel->r_addend;
2766                     }
2767                 }
2768
2769               sreloc = elf_section_data (input_section)->sreloc;
2770               if (sreloc == NULL)
2771                 abort ();
2772
2773               loc = sreloc->contents;
2774               loc += sreloc->reloc_count++ * sizeof (Elf64_External_Rela);
2775               bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
2776
2777               /* If this reloc is against an external symbol, we do
2778                  not want to fiddle with the addend.  Otherwise, we
2779                  need to include the symbol value so that it becomes
2780                  an addend for the dynamic reloc.  */
2781               if (! relocate)
2782                 continue;
2783             }
2784
2785           break;
2786
2787         case R_X86_64_TLSGD:
2788         case R_X86_64_GOTPC32_TLSDESC:
2789         case R_X86_64_TLSDESC_CALL:
2790         case R_X86_64_GOTTPOFF:
2791           tls_type = GOT_UNKNOWN;
2792           if (h == NULL && local_got_offsets)
2793             tls_type = elf64_x86_64_local_got_tls_type (input_bfd) [r_symndx];
2794           else if (h != NULL)
2795             tls_type = elf64_x86_64_hash_entry (h)->tls_type;
2796
2797           if (! elf64_x86_64_tls_transition (info, input_bfd,
2798                                              input_section, contents,
2799                                              symtab_hdr, sym_hashes,
2800                                              &r_type, tls_type, rel,
2801                                              relend, h))
2802             return FALSE;
2803
2804           if (r_type == R_X86_64_TPOFF32)
2805             {
2806               bfd_vma roff = rel->r_offset;
2807
2808               BFD_ASSERT (! unresolved_reloc);
2809
2810               if (ELF64_R_TYPE (rel->r_info) == R_X86_64_TLSGD)
2811                 {
2812                   /* GD->LE transition.
2813                      .byte 0x66; leaq foo@tlsgd(%rip), %rdi
2814                      .word 0x6666; rex64; call __tls_get_addr
2815                      Change it into:
2816                      movq %fs:0, %rax
2817                      leaq foo@tpoff(%rax), %rax */
2818                   memcpy (contents + roff - 4,
2819                           "\x64\x48\x8b\x04\x25\0\0\0\0\x48\x8d\x80\0\0\0",
2820                           16);
2821                   bfd_put_32 (output_bfd, tpoff (info, relocation),
2822                               contents + roff + 8);
2823                   /* Skip R_X86_64_PC32/R_X86_64_PLT32.  */
2824                   rel++;
2825                   continue;
2826                 }
2827               else if (ELF64_R_TYPE (rel->r_info) == R_X86_64_GOTPC32_TLSDESC)
2828                 {
2829                   /* GDesc -> LE transition.
2830                      It's originally something like:
2831                      leaq x@tlsdesc(%rip), %rax
2832
2833                      Change it to:
2834                      movl $x@tpoff, %rax
2835                    */
2836
2837                   unsigned int val, type, type2;
2838
2839                   type = bfd_get_8 (input_bfd, contents + roff - 3);
2840                   type2 = bfd_get_8 (input_bfd, contents + roff - 2);
2841                   val = bfd_get_8 (input_bfd, contents + roff - 1);
2842                   bfd_put_8 (output_bfd, 0x48 | ((type >> 2) & 1),
2843                              contents + roff - 3);
2844                   bfd_put_8 (output_bfd, 0xc7, contents + roff - 2);
2845                   bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
2846                              contents + roff - 1);
2847                   bfd_put_32 (output_bfd, tpoff (info, relocation),
2848                               contents + roff);
2849                   continue;
2850                 }
2851               else if (ELF64_R_TYPE (rel->r_info) == R_X86_64_TLSDESC_CALL)
2852                 {
2853                   /* GDesc -> LE transition.
2854                      It's originally:
2855                      call *(%rax)
2856                      Turn it into:
2857                      xchg %ax,%ax.  */
2858                   bfd_put_8 (output_bfd, 0x66, contents + roff);
2859                   bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
2860                   continue;
2861                 }
2862               else if (ELF64_R_TYPE (rel->r_info) == R_X86_64_GOTTPOFF)
2863                 {
2864                   /* IE->LE transition:
2865                      Originally it can be one of:
2866                      movq foo@gottpoff(%rip), %reg
2867                      addq foo@gottpoff(%rip), %reg
2868                      We change it into:
2869                      movq $foo, %reg
2870                      leaq foo(%reg), %reg
2871                      addq $foo, %reg.  */
2872
2873                   unsigned int val, type, reg;
2874
2875                   val = bfd_get_8 (input_bfd, contents + roff - 3);
2876                   type = bfd_get_8 (input_bfd, contents + roff - 2);
2877                   reg = bfd_get_8 (input_bfd, contents + roff - 1);
2878                   reg >>= 3;
2879                   if (type == 0x8b)
2880                     {
2881                       /* movq */
2882                       if (val == 0x4c)
2883                         bfd_put_8 (output_bfd, 0x49,
2884                                    contents + roff - 3);
2885                       bfd_put_8 (output_bfd, 0xc7,
2886                                  contents + roff - 2);
2887                       bfd_put_8 (output_bfd, 0xc0 | reg,
2888                                  contents + roff - 1);
2889                     }
2890                   else if (reg == 4)
2891                     {
2892                       /* addq -> addq - addressing with %rsp/%r12 is
2893                          special  */
2894                       if (val == 0x4c)
2895                         bfd_put_8 (output_bfd, 0x49,
2896                                    contents + roff - 3);
2897                       bfd_put_8 (output_bfd, 0x81,
2898                                  contents + roff - 2);
2899                       bfd_put_8 (output_bfd, 0xc0 | reg,
2900                                  contents + roff - 1);
2901                     }
2902                   else
2903                     {
2904                       /* addq -> leaq */
2905                       if (val == 0x4c)
2906                         bfd_put_8 (output_bfd, 0x4d,
2907                                    contents + roff - 3);
2908                       bfd_put_8 (output_bfd, 0x8d,
2909                                  contents + roff - 2);
2910                       bfd_put_8 (output_bfd, 0x80 | reg | (reg << 3),
2911                                  contents + roff - 1);
2912                     }
2913                   bfd_put_32 (output_bfd, tpoff (info, relocation),
2914                               contents + roff);
2915                   continue;
2916                 }
2917               else
2918                 BFD_ASSERT (FALSE);
2919             }
2920
2921           if (htab->sgot == NULL)
2922             abort ();
2923
2924           if (h != NULL)
2925             {
2926               off = h->got.offset;
2927               offplt = elf64_x86_64_hash_entry (h)->tlsdesc_got;
2928             }
2929           else
2930             {
2931               if (local_got_offsets == NULL)
2932                 abort ();
2933
2934               off = local_got_offsets[r_symndx];
2935               offplt = local_tlsdesc_gotents[r_symndx];
2936             }
2937
2938           if ((off & 1) != 0)
2939             off &= ~1;
2940           else
2941             {
2942               Elf_Internal_Rela outrel;
2943               bfd_byte *loc;
2944               int dr_type, indx;
2945               asection *sreloc;
2946
2947               if (htab->srelgot == NULL)
2948                 abort ();
2949
2950               indx = h && h->dynindx != -1 ? h->dynindx : 0;
2951
2952               if (GOT_TLS_GDESC_P (tls_type))
2953                 {
2954                   outrel.r_info = ELF64_R_INFO (indx, R_X86_64_TLSDESC);
2955                   BFD_ASSERT (htab->sgotplt_jump_table_size + offplt
2956                               + 2 * GOT_ENTRY_SIZE <= htab->sgotplt->size);
2957                   outrel.r_offset = (htab->sgotplt->output_section->vma
2958                                      + htab->sgotplt->output_offset
2959                                      + offplt
2960                                      + htab->sgotplt_jump_table_size);
2961                   sreloc = htab->srelplt;
2962                   loc = sreloc->contents;
2963                   loc += sreloc->reloc_count++
2964                     * sizeof (Elf64_External_Rela);
2965                   BFD_ASSERT (loc + sizeof (Elf64_External_Rela)
2966                               <= sreloc->contents + sreloc->size);
2967                   if (indx == 0)
2968                     outrel.r_addend = relocation - dtpoff_base (info);
2969                   else
2970                     outrel.r_addend = 0;
2971                   bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
2972                 }
2973
2974               sreloc = htab->srelgot;
2975
2976               outrel.r_offset = (htab->sgot->output_section->vma
2977                                  + htab->sgot->output_offset + off);
2978
2979               if (GOT_TLS_GD_P (tls_type))
2980                 dr_type = R_X86_64_DTPMOD64;
2981               else if (GOT_TLS_GDESC_P (tls_type))
2982                 goto dr_done;
2983               else
2984                 dr_type = R_X86_64_TPOFF64;
2985
2986               bfd_put_64 (output_bfd, 0, htab->sgot->contents + off);
2987               outrel.r_addend = 0;
2988               if ((dr_type == R_X86_64_TPOFF64
2989                    || dr_type == R_X86_64_TLSDESC) && indx == 0)
2990                 outrel.r_addend = relocation - dtpoff_base (info);
2991               outrel.r_info = ELF64_R_INFO (indx, dr_type);
2992
2993               loc = sreloc->contents;
2994               loc += sreloc->reloc_count++ * sizeof (Elf64_External_Rela);
2995               BFD_ASSERT (loc + sizeof (Elf64_External_Rela)
2996                           <= sreloc->contents + sreloc->size);
2997               bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
2998
2999               if (GOT_TLS_GD_P (tls_type))
3000                 {
3001                   if (indx == 0)
3002                     {
3003                       BFD_ASSERT (! unresolved_reloc);
3004                       bfd_put_64 (output_bfd,
3005                                   relocation - dtpoff_base (info),
3006                                   htab->sgot->contents + off + GOT_ENTRY_SIZE);
3007                     }
3008                   else
3009                     {
3010                       bfd_put_64 (output_bfd, 0,
3011                                   htab->sgot->contents + off + GOT_ENTRY_SIZE);
3012                       outrel.r_info = ELF64_R_INFO (indx,
3013                                                     R_X86_64_DTPOFF64);
3014                       outrel.r_offset += GOT_ENTRY_SIZE;
3015                       sreloc->reloc_count++;
3016                       loc += sizeof (Elf64_External_Rela);
3017                       BFD_ASSERT (loc + sizeof (Elf64_External_Rela)
3018                                   <= sreloc->contents + sreloc->size);
3019                       bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
3020                     }
3021                 }
3022
3023             dr_done:
3024               if (h != NULL)
3025                 h->got.offset |= 1;
3026               else
3027                 local_got_offsets[r_symndx] |= 1;
3028             }
3029
3030           if (off >= (bfd_vma) -2
3031               && ! GOT_TLS_GDESC_P (tls_type))
3032             abort ();
3033           if (r_type == ELF64_R_TYPE (rel->r_info))
3034             {
3035               if (r_type == R_X86_64_GOTPC32_TLSDESC
3036                   || r_type == R_X86_64_TLSDESC_CALL)
3037                 relocation = htab->sgotplt->output_section->vma
3038                   + htab->sgotplt->output_offset
3039                   + offplt + htab->sgotplt_jump_table_size;
3040               else
3041                 relocation = htab->sgot->output_section->vma
3042                   + htab->sgot->output_offset + off;
3043               unresolved_reloc = FALSE;
3044             }
3045           else
3046             {
3047               bfd_vma roff = rel->r_offset;
3048
3049               if (ELF64_R_TYPE (rel->r_info) == R_X86_64_TLSGD)
3050                 {
3051                   /* GD->IE transition.
3052                      .byte 0x66; leaq foo@tlsgd(%rip), %rdi
3053                      .word 0x6666; rex64; call __tls_get_addr@plt
3054                      Change it into:
3055                      movq %fs:0, %rax
3056                      addq foo@gottpoff(%rip), %rax */
3057                   memcpy (contents + roff - 4,
3058                           "\x64\x48\x8b\x04\x25\0\0\0\0\x48\x03\x05\0\0\0",
3059                           16);
3060
3061                   relocation = (htab->sgot->output_section->vma
3062                                 + htab->sgot->output_offset + off
3063                                 - roff
3064                                 - input_section->output_section->vma
3065                                 - input_section->output_offset
3066                                 - 12);
3067                   bfd_put_32 (output_bfd, relocation,
3068                               contents + roff + 8);
3069                   /* Skip R_X86_64_PLT32.  */
3070                   rel++;
3071                   continue;
3072                 }
3073               else if (ELF64_R_TYPE (rel->r_info) == R_X86_64_GOTPC32_TLSDESC)
3074                 {
3075                   /* GDesc -> IE transition.
3076                      It's originally something like:
3077                      leaq x@tlsdesc(%rip), %rax
3078
3079                      Change it to:
3080                      movq x@gottpoff(%rip), %rax # before xchg %ax,%ax
3081                    */
3082
3083                   unsigned int val, type, type2;
3084
3085                   type = bfd_get_8 (input_bfd, contents + roff - 3);
3086                   type2 = bfd_get_8 (input_bfd, contents + roff - 2);
3087                   val = bfd_get_8 (input_bfd, contents + roff - 1);
3088
3089                   /* Now modify the instruction as appropriate. To
3090                      turn a leaq into a movq in the form we use it, it
3091                      suffices to change the second byte from 0x8d to
3092                      0x8b.  */
3093                   bfd_put_8 (output_bfd, 0x8b, contents + roff - 2);
3094
3095                   bfd_put_32 (output_bfd,
3096                               htab->sgot->output_section->vma
3097                               + htab->sgot->output_offset + off
3098                               - rel->r_offset
3099                               - input_section->output_section->vma
3100                               - input_section->output_offset
3101                               - 4,
3102                               contents + roff);
3103                   continue;
3104                 }
3105               else if (ELF64_R_TYPE (rel->r_info) == R_X86_64_TLSDESC_CALL)
3106                 {
3107                   /* GDesc -> IE transition.
3108                      It's originally:
3109                      call *(%rax)
3110
3111                      Change it to:
3112                      xchg %ax,%ax.  */
3113
3114                   unsigned int val, type;
3115
3116                   type = bfd_get_8 (input_bfd, contents + roff);
3117                   val = bfd_get_8 (input_bfd, contents + roff + 1);
3118                   bfd_put_8 (output_bfd, 0x66, contents + roff);
3119                   bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
3120                   continue;
3121                 }
3122               else
3123                 BFD_ASSERT (FALSE);
3124             }
3125           break;
3126
3127         case R_X86_64_TLSLD:
3128           if (! elf64_x86_64_tls_transition (info, input_bfd,
3129                                              input_section, contents,
3130                                              symtab_hdr, sym_hashes,
3131                                              &r_type, GOT_UNKNOWN,
3132                                              rel, relend, h))
3133             return FALSE;
3134
3135           if (r_type != R_X86_64_TLSLD)
3136             {
3137               /* LD->LE transition:
3138                  leaq foo@tlsld(%rip), %rdi; call __tls_get_addr.
3139                  We change it into:
3140                  .word 0x6666; .byte 0x66; movl %fs:0, %rax.  */
3141
3142               BFD_ASSERT (r_type == R_X86_64_TPOFF32);
3143               memcpy (contents + rel->r_offset - 3,
3144                       "\x66\x66\x66\x64\x48\x8b\x04\x25\0\0\0", 12);
3145               /* Skip R_X86_64_PC32/R_X86_64_PLT32.  */
3146               rel++;
3147               continue;
3148             }
3149
3150           if (htab->sgot == NULL)
3151             abort ();
3152
3153           off = htab->tls_ld_got.offset;
3154           if (off & 1)
3155             off &= ~1;
3156           else
3157             {
3158               Elf_Internal_Rela outrel;
3159               bfd_byte *loc;
3160
3161               if (htab->srelgot == NULL)
3162                 abort ();
3163
3164               outrel.r_offset = (htab->sgot->output_section->vma
3165                                  + htab->sgot->output_offset + off);
3166
3167               bfd_put_64 (output_bfd, 0,
3168                           htab->sgot->contents + off);
3169               bfd_put_64 (output_bfd, 0,
3170                           htab->sgot->contents + off + GOT_ENTRY_SIZE);
3171               outrel.r_info = ELF64_R_INFO (0, R_X86_64_DTPMOD64);
3172               outrel.r_addend = 0;
3173               loc = htab->srelgot->contents;
3174               loc += htab->srelgot->reloc_count++ * sizeof (Elf64_External_Rela);
3175               bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
3176               htab->tls_ld_got.offset |= 1;
3177             }
3178           relocation = htab->sgot->output_section->vma
3179                        + htab->sgot->output_offset + off;
3180           unresolved_reloc = FALSE;
3181           break;
3182
3183         case R_X86_64_DTPOFF32:
3184           if (info->shared || (input_section->flags & SEC_CODE) == 0)
3185             relocation -= dtpoff_base (info);
3186           else
3187             relocation = tpoff (info, relocation);
3188           break;
3189
3190         case R_X86_64_TPOFF32:
3191           BFD_ASSERT (! info->shared);
3192           relocation = tpoff (info, relocation);
3193           break;
3194
3195         default:
3196           break;
3197         }
3198
3199       /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3200          because such sections are not SEC_ALLOC and thus ld.so will
3201          not process them.  */
3202       if (unresolved_reloc
3203           && !((input_section->flags & SEC_DEBUGGING) != 0
3204                && h->def_dynamic))
3205         (*_bfd_error_handler)
3206           (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
3207            input_bfd,
3208            input_section,
3209            (long) rel->r_offset,
3210            howto->name,
3211            h->root.root.string);
3212
3213       r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3214                                     contents, rel->r_offset,
3215                                     relocation, rel->r_addend);
3216
3217       if (r != bfd_reloc_ok)
3218         {
3219           const char *name;
3220
3221           if (h != NULL)
3222             name = h->root.root.string;
3223           else
3224             {
3225               name = bfd_elf_string_from_elf_section (input_bfd,
3226                                                       symtab_hdr->sh_link,
3227                                                       sym->st_name);
3228               if (name == NULL)
3229                 return FALSE;
3230               if (*name == '\0')
3231                 name = bfd_section_name (input_bfd, sec);
3232             }
3233
3234           if (r == bfd_reloc_overflow)
3235             {
3236               if (! ((*info->callbacks->reloc_overflow)
3237                      (info, (h ? &h->root : NULL), name, howto->name,
3238                       (bfd_vma) 0, input_bfd, input_section,
3239                       rel->r_offset)))
3240                 return FALSE;
3241             }
3242           else
3243             {
3244               (*_bfd_error_handler)
3245                 (_("%B(%A+0x%lx): reloc against `%s': error %d"),
3246                  input_bfd, input_section,
3247                  (long) rel->r_offset, name, (int) r);
3248               return FALSE;
3249             }
3250         }
3251     }
3252
3253   return TRUE;
3254 }
3255
3256 /* Finish up dynamic symbol handling.  We set the contents of various
3257    dynamic sections here.  */
3258
3259 static bfd_boolean
3260 elf64_x86_64_finish_dynamic_symbol (bfd *output_bfd,
3261                                     struct bfd_link_info *info,
3262                                     struct elf_link_hash_entry *h,
3263                                     Elf_Internal_Sym *sym)
3264 {
3265   struct elf64_x86_64_link_hash_table *htab;
3266
3267   htab = elf64_x86_64_hash_table (info);
3268
3269   if (h->plt.offset != (bfd_vma) -1)
3270     {
3271       bfd_vma plt_index;
3272       bfd_vma got_offset;
3273       Elf_Internal_Rela rela;
3274       bfd_byte *loc;
3275
3276       /* This symbol has an entry in the procedure linkage table.  Set
3277          it up.  */
3278       if (h->dynindx == -1
3279           || htab->splt == NULL
3280           || htab->sgotplt == NULL
3281           || htab->srelplt == NULL)
3282         abort ();
3283
3284       /* Get the index in the procedure linkage table which
3285          corresponds to this symbol.  This is the index of this symbol
3286          in all the symbols for which we are making plt entries.  The
3287          first entry in the procedure linkage table is reserved.  */
3288       plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
3289
3290       /* Get the offset into the .got table of the entry that
3291          corresponds to this function.  Each .got entry is GOT_ENTRY_SIZE
3292          bytes. The first three are reserved for the dynamic linker.  */
3293       got_offset = (plt_index + 3) * GOT_ENTRY_SIZE;
3294
3295       /* Fill in the entry in the procedure linkage table.  */
3296       memcpy (htab->splt->contents + h->plt.offset, elf64_x86_64_plt_entry,
3297               PLT_ENTRY_SIZE);
3298
3299       /* Insert the relocation positions of the plt section.  The magic
3300          numbers at the end of the statements are the positions of the
3301          relocations in the plt section.  */
3302       /* Put offset for jmp *name@GOTPCREL(%rip), since the
3303          instruction uses 6 bytes, subtract this value.  */
3304       bfd_put_32 (output_bfd,
3305                       (htab->sgotplt->output_section->vma
3306                        + htab->sgotplt->output_offset
3307                        + got_offset
3308                        - htab->splt->output_section->vma
3309                        - htab->splt->output_offset
3310                        - h->plt.offset
3311                        - 6),
3312                   htab->splt->contents + h->plt.offset + 2);
3313       /* Put relocation index.  */
3314       bfd_put_32 (output_bfd, plt_index,
3315                   htab->splt->contents + h->plt.offset + 7);
3316       /* Put offset for jmp .PLT0.  */
3317       bfd_put_32 (output_bfd, - (h->plt.offset + PLT_ENTRY_SIZE),
3318                   htab->splt->contents + h->plt.offset + 12);
3319
3320       /* Fill in the entry in the global offset table, initially this
3321          points to the pushq instruction in the PLT which is at offset 6.  */
3322       bfd_put_64 (output_bfd, (htab->splt->output_section->vma
3323                                + htab->splt->output_offset
3324                                + h->plt.offset + 6),
3325                   htab->sgotplt->contents + got_offset);
3326
3327       /* Fill in the entry in the .rela.plt section.  */
3328       rela.r_offset = (htab->sgotplt->output_section->vma
3329                        + htab->sgotplt->output_offset
3330                        + got_offset);
3331       rela.r_info = ELF64_R_INFO (h->dynindx, R_X86_64_JUMP_SLOT);
3332       rela.r_addend = 0;
3333       loc = htab->srelplt->contents + plt_index * sizeof (Elf64_External_Rela);
3334       bfd_elf64_swap_reloca_out (output_bfd, &rela, loc);
3335
3336       if (!h->def_regular)
3337         {
3338           /* Mark the symbol as undefined, rather than as defined in
3339              the .plt section.  Leave the value if there were any
3340              relocations where pointer equality matters (this is a clue
3341              for the dynamic linker, to make function pointer
3342              comparisons work between an application and shared
3343              library), otherwise set it to zero.  If a function is only
3344              called from a binary, there is no need to slow down
3345              shared libraries because of that.  */
3346           sym->st_shndx = SHN_UNDEF;
3347           if (!h->pointer_equality_needed)
3348             sym->st_value = 0;
3349         }
3350     }
3351
3352   if (h->got.offset != (bfd_vma) -1
3353       && ! GOT_TLS_GD_ANY_P (elf64_x86_64_hash_entry (h)->tls_type)
3354       && elf64_x86_64_hash_entry (h)->tls_type != GOT_TLS_IE)
3355     {
3356       Elf_Internal_Rela rela;
3357       bfd_byte *loc;
3358
3359       /* This symbol has an entry in the global offset table.  Set it
3360          up.  */
3361       if (htab->sgot == NULL || htab->srelgot == NULL)
3362         abort ();
3363
3364       rela.r_offset = (htab->sgot->output_section->vma
3365                        + htab->sgot->output_offset
3366                        + (h->got.offset &~ (bfd_vma) 1));
3367
3368       /* If this is a static link, or it is a -Bsymbolic link and the
3369          symbol is defined locally or was forced to be local because
3370          of a version file, we just want to emit a RELATIVE reloc.
3371          The entry in the global offset table will already have been
3372          initialized in the relocate_section function.  */
3373       if (info->shared
3374           && SYMBOL_REFERENCES_LOCAL (info, h))
3375         {
3376           if (!h->def_regular)
3377             return FALSE;
3378           BFD_ASSERT((h->got.offset & 1) != 0);
3379           rela.r_info = ELF64_R_INFO (0, R_X86_64_RELATIVE);
3380           rela.r_addend = (h->root.u.def.value
3381                            + h->root.u.def.section->output_section->vma
3382                            + h->root.u.def.section->output_offset);
3383         }
3384       else
3385         {
3386           BFD_ASSERT((h->got.offset & 1) == 0);
3387           bfd_put_64 (output_bfd, (bfd_vma) 0,
3388                       htab->sgot->contents + h->got.offset);
3389           rela.r_info = ELF64_R_INFO (h->dynindx, R_X86_64_GLOB_DAT);
3390           rela.r_addend = 0;
3391         }
3392
3393       loc = htab->srelgot->contents;
3394       loc += htab->srelgot->reloc_count++ * sizeof (Elf64_External_Rela);
3395       bfd_elf64_swap_reloca_out (output_bfd, &rela, loc);
3396     }
3397
3398   if (h->needs_copy)
3399     {
3400       Elf_Internal_Rela rela;
3401       bfd_byte *loc;
3402
3403       /* This symbol needs a copy reloc.  Set it up.  */
3404
3405       if (h->dynindx == -1
3406           || (h->root.type != bfd_link_hash_defined
3407               && h->root.type != bfd_link_hash_defweak)
3408           || htab->srelbss == NULL)
3409         abort ();
3410
3411       rela.r_offset = (h->root.u.def.value
3412                        + h->root.u.def.section->output_section->vma
3413                        + h->root.u.def.section->output_offset);
3414       rela.r_info = ELF64_R_INFO (h->dynindx, R_X86_64_COPY);
3415       rela.r_addend = 0;
3416       loc = htab->srelbss->contents;
3417       loc += htab->srelbss->reloc_count++ * sizeof (Elf64_External_Rela);
3418       bfd_elf64_swap_reloca_out (output_bfd, &rela, loc);
3419     }
3420
3421   /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute.  */
3422   if (strcmp (h->root.root.string, "_DYNAMIC") == 0
3423       || h == htab->elf.hgot)
3424     sym->st_shndx = SHN_ABS;
3425
3426   return TRUE;
3427 }
3428
3429 /* Used to decide how to sort relocs in an optimal manner for the
3430    dynamic linker, before writing them out.  */
3431
3432 static enum elf_reloc_type_class
3433 elf64_x86_64_reloc_type_class (const Elf_Internal_Rela *rela)
3434 {
3435   switch ((int) ELF64_R_TYPE (rela->r_info))
3436     {
3437     case R_X86_64_RELATIVE:
3438       return reloc_class_relative;
3439     case R_X86_64_JUMP_SLOT:
3440       return reloc_class_plt;
3441     case R_X86_64_COPY:
3442       return reloc_class_copy;
3443     default:
3444       return reloc_class_normal;
3445     }
3446 }
3447
3448 /* Finish up the dynamic sections.  */
3449
3450 static bfd_boolean
3451 elf64_x86_64_finish_dynamic_sections (bfd *output_bfd, struct bfd_link_info *info)
3452 {
3453   struct elf64_x86_64_link_hash_table *htab;
3454   bfd *dynobj;
3455   asection *sdyn;
3456
3457   htab = elf64_x86_64_hash_table (info);
3458   dynobj = htab->elf.dynobj;
3459   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
3460
3461   if (htab->elf.dynamic_sections_created)
3462     {
3463       Elf64_External_Dyn *dyncon, *dynconend;
3464
3465       if (sdyn == NULL || htab->sgot == NULL)
3466         abort ();
3467
3468       dyncon = (Elf64_External_Dyn *) sdyn->contents;
3469       dynconend = (Elf64_External_Dyn *) (sdyn->contents + sdyn->size);
3470       for (; dyncon < dynconend; dyncon++)
3471         {
3472           Elf_Internal_Dyn dyn;
3473           asection *s;
3474
3475           bfd_elf64_swap_dyn_in (dynobj, dyncon, &dyn);
3476
3477           switch (dyn.d_tag)
3478             {
3479             default:
3480               continue;
3481
3482             case DT_PLTGOT:
3483               s = htab->sgotplt;
3484               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
3485               break;
3486
3487             case DT_JMPREL:
3488               dyn.d_un.d_ptr = htab->srelplt->output_section->vma;
3489               break;
3490
3491             case DT_PLTRELSZ:
3492               s = htab->srelplt->output_section;
3493               dyn.d_un.d_val = s->size;
3494               break;
3495
3496             case DT_RELASZ:
3497               /* The procedure linkage table relocs (DT_JMPREL) should
3498                  not be included in the overall relocs (DT_RELA).
3499                  Therefore, we override the DT_RELASZ entry here to
3500                  make it not include the JMPREL relocs.  Since the
3501                  linker script arranges for .rela.plt to follow all
3502                  other relocation sections, we don't have to worry
3503                  about changing the DT_RELA entry.  */
3504               if (htab->srelplt != NULL)
3505                 {
3506                   s = htab->srelplt->output_section;
3507                   dyn.d_un.d_val -= s->size;
3508                 }
3509               break;
3510
3511             case DT_TLSDESC_PLT:
3512               s = htab->splt;
3513               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
3514                 + htab->tlsdesc_plt;
3515               break;
3516
3517             case DT_TLSDESC_GOT:
3518               s = htab->sgot;
3519               dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
3520                 + htab->tlsdesc_got;
3521               break;
3522             }
3523
3524           bfd_elf64_swap_dyn_out (output_bfd, &dyn, dyncon);
3525         }
3526
3527       /* Fill in the special first entry in the procedure linkage table.  */
3528       if (htab->splt && htab->splt->size > 0)
3529         {
3530           /* Fill in the first entry in the procedure linkage table.  */
3531           memcpy (htab->splt->contents, elf64_x86_64_plt0_entry,
3532                   PLT_ENTRY_SIZE);
3533           /* Add offset for pushq GOT+8(%rip), since the instruction
3534              uses 6 bytes subtract this value.  */
3535           bfd_put_32 (output_bfd,
3536                       (htab->sgotplt->output_section->vma
3537                        + htab->sgotplt->output_offset
3538                        + 8
3539                        - htab->splt->output_section->vma
3540                        - htab->splt->output_offset
3541                        - 6),
3542                       htab->splt->contents + 2);
3543           /* Add offset for jmp *GOT+16(%rip). The 12 is the offset to
3544              the end of the instruction.  */
3545           bfd_put_32 (output_bfd,
3546                       (htab->sgotplt->output_section->vma
3547                        + htab->sgotplt->output_offset
3548                        + 16
3549                        - htab->splt->output_section->vma
3550                        - htab->splt->output_offset
3551                        - 12),
3552                       htab->splt->contents + 8);
3553
3554           elf_section_data (htab->splt->output_section)->this_hdr.sh_entsize =
3555             PLT_ENTRY_SIZE;
3556
3557           if (htab->tlsdesc_plt)
3558             {
3559               bfd_put_64 (output_bfd, (bfd_vma) 0,
3560                           htab->sgot->contents + htab->tlsdesc_got);
3561
3562               memcpy (htab->splt->contents + htab->tlsdesc_plt,
3563                       elf64_x86_64_plt0_entry,
3564                       PLT_ENTRY_SIZE);
3565
3566               /* Add offset for pushq GOT+8(%rip), since the
3567                  instruction uses 6 bytes subtract this value.  */
3568               bfd_put_32 (output_bfd,
3569                           (htab->sgotplt->output_section->vma
3570                            + htab->sgotplt->output_offset
3571                            + 8
3572                            - htab->splt->output_section->vma
3573                            - htab->splt->output_offset
3574                            - htab->tlsdesc_plt
3575                            - 6),
3576                           htab->splt->contents + htab->tlsdesc_plt + 2);
3577               /* Add offset for jmp *GOT+TDG(%rip), where TGD stands for
3578                  htab->tlsdesc_got. The 12 is the offset to the end of
3579                  the instruction.  */
3580               bfd_put_32 (output_bfd,
3581                           (htab->sgot->output_section->vma
3582                            + htab->sgot->output_offset
3583                            + htab->tlsdesc_got
3584                            - htab->splt->output_section->vma
3585                            - htab->splt->output_offset
3586                            - htab->tlsdesc_plt
3587                            - 12),
3588                           htab->splt->contents + htab->tlsdesc_plt + 8);
3589             }
3590         }
3591     }
3592
3593   if (htab->sgotplt)
3594     {
3595       /* Fill in the first three entries in the global offset table.  */
3596       if (htab->sgotplt->size > 0)
3597         {
3598           /* Set the first entry in the global offset table to the address of
3599              the dynamic section.  */
3600           if (sdyn == NULL)
3601             bfd_put_64 (output_bfd, (bfd_vma) 0, htab->sgotplt->contents);
3602           else
3603             bfd_put_64 (output_bfd,
3604                         sdyn->output_section->vma + sdyn->output_offset,
3605                         htab->sgotplt->contents);
3606           /* Write GOT[1] and GOT[2], needed for the dynamic linker.  */
3607           bfd_put_64 (output_bfd, (bfd_vma) 0, htab->sgotplt->contents + GOT_ENTRY_SIZE);
3608           bfd_put_64 (output_bfd, (bfd_vma) 0, htab->sgotplt->contents + GOT_ENTRY_SIZE*2);
3609         }
3610
3611       elf_section_data (htab->sgotplt->output_section)->this_hdr.sh_entsize =
3612         GOT_ENTRY_SIZE;
3613     }
3614
3615   if (htab->sgot && htab->sgot->size > 0)
3616     elf_section_data (htab->sgot->output_section)->this_hdr.sh_entsize
3617       = GOT_ENTRY_SIZE;
3618
3619   return TRUE;
3620 }
3621
3622 /* Return address for Ith PLT stub in section PLT, for relocation REL
3623    or (bfd_vma) -1 if it should not be included.  */
3624
3625 static bfd_vma
3626 elf64_x86_64_plt_sym_val (bfd_vma i, const asection *plt,
3627                           const arelent *rel ATTRIBUTE_UNUSED)
3628 {
3629   return plt->vma + (i + 1) * PLT_ENTRY_SIZE;
3630 }
3631
3632 /* Handle an x86-64 specific section when reading an object file.  This
3633    is called when elfcode.h finds a section with an unknown type.  */
3634
3635 static bfd_boolean
3636 elf64_x86_64_section_from_shdr (bfd *abfd,
3637                                 Elf_Internal_Shdr *hdr,
3638                                 const char *name,
3639                                 int shindex)
3640 {
3641   if (hdr->sh_type != SHT_X86_64_UNWIND)
3642     return FALSE;
3643
3644   if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
3645     return FALSE;
3646
3647   return TRUE;
3648 }
3649
3650 /* Hook called by the linker routine which adds symbols from an object
3651    file.  We use it to put SHN_X86_64_LCOMMON items in .lbss, instead
3652    of .bss.  */
3653
3654 static bfd_boolean
3655 elf64_x86_64_add_symbol_hook (bfd *abfd,
3656                               struct bfd_link_info *info ATTRIBUTE_UNUSED,
3657                               Elf_Internal_Sym *sym,
3658                               const char **namep ATTRIBUTE_UNUSED,
3659                               flagword *flagsp ATTRIBUTE_UNUSED,
3660                               asection **secp, bfd_vma *valp)
3661 {
3662   asection *lcomm;
3663
3664   switch (sym->st_shndx)
3665     {
3666     case SHN_X86_64_LCOMMON:
3667       lcomm = bfd_get_section_by_name (abfd, "LARGE_COMMON");
3668       if (lcomm == NULL)
3669         {
3670           lcomm = bfd_make_section_with_flags (abfd,
3671                                                "LARGE_COMMON",
3672                                                (SEC_ALLOC
3673                                                 | SEC_IS_COMMON
3674                                                 | SEC_LINKER_CREATED));
3675           if (lcomm == NULL)
3676             return FALSE;
3677           elf_section_flags (lcomm) |= SHF_X86_64_LARGE;
3678         }
3679       *secp = lcomm;
3680       *valp = sym->st_size;
3681       break;
3682     }
3683   return TRUE;
3684 }
3685
3686
3687 /* Given a BFD section, try to locate the corresponding ELF section
3688    index.  */
3689
3690 static bfd_boolean
3691 elf64_x86_64_elf_section_from_bfd_section (bfd *abfd ATTRIBUTE_UNUSED,
3692                                            asection *sec, int *index)
3693 {
3694   if (sec == &_bfd_elf_large_com_section)
3695     {
3696       *index = SHN_X86_64_LCOMMON;
3697       return TRUE;
3698     }
3699   return FALSE;
3700 }
3701
3702 /* Process a symbol.  */
3703
3704 static void
3705 elf64_x86_64_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
3706                                 asymbol *asym)
3707 {
3708   elf_symbol_type *elfsym = (elf_symbol_type *) asym;
3709
3710   switch (elfsym->internal_elf_sym.st_shndx)
3711     {
3712     case SHN_X86_64_LCOMMON:
3713       asym->section = &_bfd_elf_large_com_section;
3714       asym->value = elfsym->internal_elf_sym.st_size;
3715       /* Common symbol doesn't set BSF_GLOBAL.  */
3716       asym->flags &= ~BSF_GLOBAL;
3717       break;
3718     }
3719 }
3720
3721 static bfd_boolean
3722 elf64_x86_64_common_definition (Elf_Internal_Sym *sym)
3723 {
3724   return (sym->st_shndx == SHN_COMMON
3725           || sym->st_shndx == SHN_X86_64_LCOMMON);
3726 }
3727
3728 static unsigned int
3729 elf64_x86_64_common_section_index (asection *sec)
3730 {
3731   if ((elf_section_flags (sec) & SHF_X86_64_LARGE) == 0)
3732     return SHN_COMMON;
3733   else
3734     return SHN_X86_64_LCOMMON;
3735 }
3736
3737 static asection *
3738 elf64_x86_64_common_section (asection *sec)
3739 {
3740   if ((elf_section_flags (sec) & SHF_X86_64_LARGE) == 0)
3741     return bfd_com_section_ptr;
3742   else
3743     return &_bfd_elf_large_com_section;
3744 }
3745
3746 static bfd_boolean
3747 elf64_x86_64_merge_symbol (struct bfd_link_info *info ATTRIBUTE_UNUSED,
3748                            struct elf_link_hash_entry **sym_hash ATTRIBUTE_UNUSED,
3749                            struct elf_link_hash_entry *h,
3750                            Elf_Internal_Sym *sym,
3751                            asection **psec,
3752                            bfd_vma *pvalue ATTRIBUTE_UNUSED,
3753                            unsigned int *pold_alignment ATTRIBUTE_UNUSED,
3754                            bfd_boolean *skip ATTRIBUTE_UNUSED,
3755                            bfd_boolean *override ATTRIBUTE_UNUSED,
3756                            bfd_boolean *type_change_ok ATTRIBUTE_UNUSED,
3757                            bfd_boolean *size_change_ok ATTRIBUTE_UNUSED,
3758                            bfd_boolean *newdef ATTRIBUTE_UNUSED,
3759                            bfd_boolean *newdyn,
3760                            bfd_boolean *newdyncommon ATTRIBUTE_UNUSED,
3761                            bfd_boolean *newweak ATTRIBUTE_UNUSED,
3762                            bfd *abfd ATTRIBUTE_UNUSED,
3763                            asection **sec,
3764                            bfd_boolean *olddef ATTRIBUTE_UNUSED,
3765                            bfd_boolean *olddyn,
3766                            bfd_boolean *olddyncommon ATTRIBUTE_UNUSED,
3767                            bfd_boolean *oldweak ATTRIBUTE_UNUSED,
3768                            bfd *oldbfd,
3769                            asection **oldsec)
3770 {
3771   /* A normal common symbol and a large common symbol result in a
3772      normal common symbol.  We turn the large common symbol into a
3773      normal one.  */
3774   if (!*olddyn
3775       && h->root.type == bfd_link_hash_common
3776       && !*newdyn
3777       && bfd_is_com_section (*sec)
3778       && *oldsec != *sec)
3779     {
3780       if (sym->st_shndx == SHN_COMMON
3781           && (elf_section_flags (*oldsec) & SHF_X86_64_LARGE) != 0)
3782         {
3783           h->root.u.c.p->section
3784             = bfd_make_section_old_way (oldbfd, "COMMON");
3785           h->root.u.c.p->section->flags = SEC_ALLOC;
3786         }
3787       else if (sym->st_shndx == SHN_X86_64_LCOMMON
3788                && (elf_section_flags (*oldsec) & SHF_X86_64_LARGE) == 0)
3789         *psec = *sec = bfd_com_section_ptr;
3790     }
3791
3792   return TRUE;
3793 }
3794
3795 static int
3796 elf64_x86_64_additional_program_headers (bfd *abfd,
3797                                          struct bfd_link_info *info ATTRIBUTE_UNUSED)
3798 {
3799   asection *s;
3800   int count = 0;
3801
3802   /* Check to see if we need a large readonly segment.  */
3803   s = bfd_get_section_by_name (abfd, ".lrodata");
3804   if (s && (s->flags & SEC_LOAD))
3805     count++;
3806
3807   /* Check to see if we need a large data segment.  Since .lbss sections
3808      is placed right after the .bss section, there should be no need for
3809      a large data segment just because of .lbss.  */
3810   s = bfd_get_section_by_name (abfd, ".ldata");
3811   if (s && (s->flags & SEC_LOAD))
3812     count++;
3813
3814   return count;
3815 }
3816
3817 /* Return TRUE if symbol should be hashed in the `.gnu.hash' section.  */
3818
3819 static bfd_boolean
3820 elf64_x86_64_hash_symbol (struct elf_link_hash_entry *h)
3821 {
3822   if (h->plt.offset != (bfd_vma) -1
3823       && !h->def_regular
3824       && !h->pointer_equality_needed)
3825     return FALSE;
3826
3827   return _bfd_elf_hash_symbol (h);
3828 }
3829
3830 static const struct bfd_elf_special_section
3831   elf64_x86_64_special_sections[]=
3832 {
3833   { STRING_COMMA_LEN (".gnu.linkonce.lb"), -2, SHT_NOBITS,   SHF_ALLOC + SHF_WRITE + SHF_X86_64_LARGE},
3834   { STRING_COMMA_LEN (".gnu.linkonce.lr"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_X86_64_LARGE},
3835   { STRING_COMMA_LEN (".gnu.linkonce.lt"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_EXECINSTR + SHF_X86_64_LARGE},
3836   { STRING_COMMA_LEN (".lbss"),            -2, SHT_NOBITS,   SHF_ALLOC + SHF_WRITE + SHF_X86_64_LARGE},
3837   { STRING_COMMA_LEN (".ldata"),           -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE + SHF_X86_64_LARGE},
3838   { STRING_COMMA_LEN (".lrodata"),         -2, SHT_PROGBITS, SHF_ALLOC + SHF_X86_64_LARGE},
3839   { NULL,                       0,          0, 0,            0 }
3840 };
3841
3842 #define TARGET_LITTLE_SYM                   bfd_elf64_x86_64_vec
3843 #define TARGET_LITTLE_NAME                  "elf64-x86-64"
3844 #define ELF_ARCH                            bfd_arch_i386
3845 #define ELF_MACHINE_CODE                    EM_X86_64
3846 #define ELF_MAXPAGESIZE                     0x200000
3847 #define ELF_MINPAGESIZE                     0x1000
3848 #define ELF_COMMONPAGESIZE                  0x1000
3849
3850 #define elf_backend_can_gc_sections         1
3851 #define elf_backend_can_refcount            1
3852 #define elf_backend_want_got_plt            1
3853 #define elf_backend_plt_readonly            1
3854 #define elf_backend_want_plt_sym            0
3855 #define elf_backend_got_header_size         (GOT_ENTRY_SIZE*3)
3856 #define elf_backend_rela_normal             1
3857
3858 #define elf_info_to_howto                   elf64_x86_64_info_to_howto
3859
3860 #define bfd_elf64_bfd_link_hash_table_create \
3861   elf64_x86_64_link_hash_table_create
3862 #define bfd_elf64_bfd_reloc_type_lookup     elf64_x86_64_reloc_type_lookup
3863 #define bfd_elf64_bfd_reloc_name_lookup \
3864   elf64_x86_64_reloc_name_lookup
3865
3866 #define elf_backend_adjust_dynamic_symbol   elf64_x86_64_adjust_dynamic_symbol
3867 #define elf_backend_relocs_compatible       _bfd_elf_relocs_compatible
3868 #define elf_backend_check_relocs            elf64_x86_64_check_relocs
3869 #define elf_backend_copy_indirect_symbol    elf64_x86_64_copy_indirect_symbol
3870 #define elf_backend_create_dynamic_sections elf64_x86_64_create_dynamic_sections
3871 #define elf_backend_finish_dynamic_sections elf64_x86_64_finish_dynamic_sections
3872 #define elf_backend_finish_dynamic_symbol   elf64_x86_64_finish_dynamic_symbol
3873 #define elf_backend_gc_mark_hook            elf64_x86_64_gc_mark_hook
3874 #define elf_backend_gc_sweep_hook           elf64_x86_64_gc_sweep_hook
3875 #define elf_backend_grok_prstatus           elf64_x86_64_grok_prstatus
3876 #define elf_backend_grok_psinfo             elf64_x86_64_grok_psinfo
3877 #define elf_backend_reloc_type_class        elf64_x86_64_reloc_type_class
3878 #define elf_backend_relocate_section        elf64_x86_64_relocate_section
3879 #define elf_backend_size_dynamic_sections   elf64_x86_64_size_dynamic_sections
3880 #define elf_backend_always_size_sections    elf64_x86_64_always_size_sections
3881 #define elf_backend_init_index_section      _bfd_elf_init_1_index_section
3882 #define elf_backend_plt_sym_val             elf64_x86_64_plt_sym_val
3883 #define elf_backend_object_p                elf64_x86_64_elf_object_p
3884 #define bfd_elf64_mkobject                  elf64_x86_64_mkobject
3885
3886 #define elf_backend_section_from_shdr \
3887         elf64_x86_64_section_from_shdr
3888
3889 #define elf_backend_section_from_bfd_section \
3890   elf64_x86_64_elf_section_from_bfd_section
3891 #define elf_backend_add_symbol_hook \
3892   elf64_x86_64_add_symbol_hook
3893 #define elf_backend_symbol_processing \
3894   elf64_x86_64_symbol_processing
3895 #define elf_backend_common_section_index \
3896   elf64_x86_64_common_section_index
3897 #define elf_backend_common_section \
3898   elf64_x86_64_common_section
3899 #define elf_backend_common_definition \
3900   elf64_x86_64_common_definition
3901 #define elf_backend_merge_symbol \
3902   elf64_x86_64_merge_symbol
3903 #define elf_backend_special_sections \
3904   elf64_x86_64_special_sections
3905 #define elf_backend_additional_program_headers \
3906   elf64_x86_64_additional_program_headers
3907 #define elf_backend_hash_symbol \
3908   elf64_x86_64_hash_symbol
3909
3910 #include "elf64-target.h"
3911
3912 /* FreeBSD support.  */
3913
3914 #undef  TARGET_LITTLE_SYM
3915 #define TARGET_LITTLE_SYM                   bfd_elf64_x86_64_freebsd_vec
3916 #undef  TARGET_LITTLE_NAME
3917 #define TARGET_LITTLE_NAME                  "elf64-x86-64-freebsd"
3918
3919 #undef  ELF_OSABI
3920 #define ELF_OSABI                           ELFOSABI_FREEBSD
3921
3922 #undef  elf_backend_post_process_headers
3923 #define elf_backend_post_process_headers  _bfd_elf_set_osabi
3924
3925 #undef  elf64_bed
3926 #define elf64_bed elf64_x86_64_fbsd_bed
3927
3928 #include "elf64-target.h"