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