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