?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
opcodes: handle mach-o for thumb/arm disambiguation.
[binutils-gdb.git] / bfd / elf64-x86-64.c
blob8e0036279934ecec4bd6f02ca546aaef1e15e68f
1 /* X86-64 specific support for ELF
2 Copyright (C) 2000-2015 Free Software Foundation, Inc.
3 Contributed by Jan Hubicka <jh@suse.cz>.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
21
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "bfdlink.h"
25 #include "libbfd.h"
26 #include "elf-bfd.h"
27 #include "elf-nacl.h"
28 #include "bfd_stdint.h"
29 #include "objalloc.h"
30 #include "hashtab.h"
31 #include "dwarf2.h"
32 #include "libiberty.h"
33
34 #include "opcode/i386.h"
35 #include "elf/x86-64.h"
36
37 #ifdef CORE_HEADER
38 #include <stdarg.h>
39 #include CORE_HEADER
40 #endif
41
42 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value. */
43 #define MINUS_ONE (~ (bfd_vma) 0)
44
45 /* Since both 32-bit and 64-bit x86-64 encode relocation type in the
46 identical manner, we use ELF32_R_TYPE instead of ELF64_R_TYPE to get
47 relocation type. We also use ELF_ST_TYPE instead of ELF64_ST_TYPE
48 since they are the same. */
49
50 #define ABI_64_P(abfd) \
51 (get_elf_backend_data (abfd)->s->elfclass == ELFCLASS64)
52
53 /* The relocation "howto" table. Order of fields:
54 type, rightshift, size, bitsize, pc_relative, bitpos, complain_on_overflow,
55 special_function, name, partial_inplace, src_mask, dst_mask, pcrel_offset. */
56 static reloc_howto_type x86_64_elf_howto_table[] =
57 {
58 HOWTO(R_X86_64_NONE, 0, 3, 0, FALSE, 0, complain_overflow_dont,
59 bfd_elf_generic_reloc, "R_X86_64_NONE", FALSE, 0x00000000, 0x00000000,
60 FALSE),
61 HOWTO(R_X86_64_64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
62 bfd_elf_generic_reloc, "R_X86_64_64", FALSE, MINUS_ONE, MINUS_ONE,
63 FALSE),
64 HOWTO(R_X86_64_PC32, 0, 2, 32, TRUE, 0, complain_overflow_signed,
65 bfd_elf_generic_reloc, "R_X86_64_PC32", FALSE, 0xffffffff, 0xffffffff,
66 TRUE),
67 HOWTO(R_X86_64_GOT32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
68 bfd_elf_generic_reloc, "R_X86_64_GOT32", FALSE, 0xffffffff, 0xffffffff,
69 FALSE),
70 HOWTO(R_X86_64_PLT32, 0, 2, 32, TRUE, 0, complain_overflow_signed,
71 bfd_elf_generic_reloc, "R_X86_64_PLT32", FALSE, 0xffffffff, 0xffffffff,
72 TRUE),
73 HOWTO(R_X86_64_COPY, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
74 bfd_elf_generic_reloc, "R_X86_64_COPY", FALSE, 0xffffffff, 0xffffffff,
75 FALSE),
76 HOWTO(R_X86_64_GLOB_DAT, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
77 bfd_elf_generic_reloc, "R_X86_64_GLOB_DAT", FALSE, MINUS_ONE,
78 MINUS_ONE, FALSE),
79 HOWTO(R_X86_64_JUMP_SLOT, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
80 bfd_elf_generic_reloc, "R_X86_64_JUMP_SLOT", FALSE, MINUS_ONE,
81 MINUS_ONE, FALSE),
82 HOWTO(R_X86_64_RELATIVE, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
83 bfd_elf_generic_reloc, "R_X86_64_RELATIVE", FALSE, MINUS_ONE,
84 MINUS_ONE, FALSE),
85 HOWTO(R_X86_64_GOTPCREL, 0, 2, 32, TRUE, 0, complain_overflow_signed,
86 bfd_elf_generic_reloc, "R_X86_64_GOTPCREL", FALSE, 0xffffffff,
87 0xffffffff, TRUE),
88 HOWTO(R_X86_64_32, 0, 2, 32, FALSE, 0, complain_overflow_unsigned,
89 bfd_elf_generic_reloc, "R_X86_64_32", FALSE, 0xffffffff, 0xffffffff,
90 FALSE),
91 HOWTO(R_X86_64_32S, 0, 2, 32, FALSE, 0, complain_overflow_signed,
92 bfd_elf_generic_reloc, "R_X86_64_32S", FALSE, 0xffffffff, 0xffffffff,
93 FALSE),
94 HOWTO(R_X86_64_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
95 bfd_elf_generic_reloc, "R_X86_64_16", FALSE, 0xffff, 0xffff, FALSE),
96 HOWTO(R_X86_64_PC16,0, 1, 16, TRUE, 0, complain_overflow_bitfield,
97 bfd_elf_generic_reloc, "R_X86_64_PC16", FALSE, 0xffff, 0xffff, TRUE),
98 HOWTO(R_X86_64_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,
99 bfd_elf_generic_reloc, "R_X86_64_8", FALSE, 0xff, 0xff, FALSE),
100 HOWTO(R_X86_64_PC8, 0, 0, 8, TRUE, 0, complain_overflow_signed,
101 bfd_elf_generic_reloc, "R_X86_64_PC8", FALSE, 0xff, 0xff, TRUE),
102 HOWTO(R_X86_64_DTPMOD64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
103 bfd_elf_generic_reloc, "R_X86_64_DTPMOD64", FALSE, MINUS_ONE,
104 MINUS_ONE, FALSE),
105 HOWTO(R_X86_64_DTPOFF64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
106 bfd_elf_generic_reloc, "R_X86_64_DTPOFF64", FALSE, MINUS_ONE,
107 MINUS_ONE, FALSE),
108 HOWTO(R_X86_64_TPOFF64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
109 bfd_elf_generic_reloc, "R_X86_64_TPOFF64", FALSE, MINUS_ONE,
110 MINUS_ONE, FALSE),
111 HOWTO(R_X86_64_TLSGD, 0, 2, 32, TRUE, 0, complain_overflow_signed,
112 bfd_elf_generic_reloc, "R_X86_64_TLSGD", FALSE, 0xffffffff,
113 0xffffffff, TRUE),
114 HOWTO(R_X86_64_TLSLD, 0, 2, 32, TRUE, 0, complain_overflow_signed,
115 bfd_elf_generic_reloc, "R_X86_64_TLSLD", FALSE, 0xffffffff,
116 0xffffffff, TRUE),
117 HOWTO(R_X86_64_DTPOFF32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
118 bfd_elf_generic_reloc, "R_X86_64_DTPOFF32", FALSE, 0xffffffff,
119 0xffffffff, FALSE),
120 HOWTO(R_X86_64_GOTTPOFF, 0, 2, 32, TRUE, 0, complain_overflow_signed,
121 bfd_elf_generic_reloc, "R_X86_64_GOTTPOFF", FALSE, 0xffffffff,
122 0xffffffff, TRUE),
123 HOWTO(R_X86_64_TPOFF32, 0, 2, 32, FALSE, 0, complain_overflow_signed,
124 bfd_elf_generic_reloc, "R_X86_64_TPOFF32", FALSE, 0xffffffff,
125 0xffffffff, FALSE),
126 HOWTO(R_X86_64_PC64, 0, 4, 64, TRUE, 0, complain_overflow_bitfield,
127 bfd_elf_generic_reloc, "R_X86_64_PC64", FALSE, MINUS_ONE, MINUS_ONE,
128 TRUE),
129 HOWTO(R_X86_64_GOTOFF64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
130 bfd_elf_generic_reloc, "R_X86_64_GOTOFF64",
131 FALSE, MINUS_ONE, MINUS_ONE, FALSE),
132 HOWTO(R_X86_64_GOTPC32, 0, 2, 32, TRUE, 0, complain_overflow_signed,
133 bfd_elf_generic_reloc, "R_X86_64_GOTPC32",
134 FALSE, 0xffffffff, 0xffffffff, TRUE),
135 HOWTO(R_X86_64_GOT64, 0, 4, 64, FALSE, 0, complain_overflow_signed,
136 bfd_elf_generic_reloc, "R_X86_64_GOT64", FALSE, MINUS_ONE, MINUS_ONE,
137 FALSE),
138 HOWTO(R_X86_64_GOTPCREL64, 0, 4, 64, TRUE, 0, complain_overflow_signed,
139 bfd_elf_generic_reloc, "R_X86_64_GOTPCREL64", FALSE, MINUS_ONE,
140 MINUS_ONE, TRUE),
141 HOWTO(R_X86_64_GOTPC64, 0, 4, 64, TRUE, 0, complain_overflow_signed,
142 bfd_elf_generic_reloc, "R_X86_64_GOTPC64",
143 FALSE, MINUS_ONE, MINUS_ONE, TRUE),
144 HOWTO(R_X86_64_GOTPLT64, 0, 4, 64, FALSE, 0, complain_overflow_signed,
145 bfd_elf_generic_reloc, "R_X86_64_GOTPLT64", FALSE, MINUS_ONE,
146 MINUS_ONE, FALSE),
147 HOWTO(R_X86_64_PLTOFF64, 0, 4, 64, FALSE, 0, complain_overflow_signed,
148 bfd_elf_generic_reloc, "R_X86_64_PLTOFF64", FALSE, MINUS_ONE,
149 MINUS_ONE, FALSE),
150 HOWTO(R_X86_64_SIZE32, 0, 2, 32, FALSE, 0, complain_overflow_unsigned,
151 bfd_elf_generic_reloc, "R_X86_64_SIZE32", FALSE, 0xffffffff, 0xffffffff,
152 FALSE),
153 HOWTO(R_X86_64_SIZE64, 0, 4, 64, FALSE, 0, complain_overflow_unsigned,
154 bfd_elf_generic_reloc, "R_X86_64_SIZE64", FALSE, MINUS_ONE, MINUS_ONE,
155 FALSE),
156 HOWTO(R_X86_64_GOTPC32_TLSDESC, 0, 2, 32, TRUE, 0,
157 complain_overflow_bitfield, bfd_elf_generic_reloc,
158 "R_X86_64_GOTPC32_TLSDESC",
159 FALSE, 0xffffffff, 0xffffffff, TRUE),
160 HOWTO(R_X86_64_TLSDESC_CALL, 0, 0, 0, FALSE, 0,
161 complain_overflow_dont, bfd_elf_generic_reloc,
162 "R_X86_64_TLSDESC_CALL",
163 FALSE, 0, 0, FALSE),
164 HOWTO(R_X86_64_TLSDESC, 0, 4, 64, FALSE, 0,
165 complain_overflow_bitfield, bfd_elf_generic_reloc,
166 "R_X86_64_TLSDESC",
167 FALSE, MINUS_ONE, MINUS_ONE, FALSE),
168 HOWTO(R_X86_64_IRELATIVE, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
169 bfd_elf_generic_reloc, "R_X86_64_IRELATIVE", FALSE, MINUS_ONE,
170 MINUS_ONE, FALSE),
171 HOWTO(R_X86_64_RELATIVE64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
172 bfd_elf_generic_reloc, "R_X86_64_RELATIVE64", FALSE, MINUS_ONE,
173 MINUS_ONE, FALSE),
174 HOWTO(R_X86_64_PC32_BND, 0, 2, 32, TRUE, 0, complain_overflow_signed,
175 bfd_elf_generic_reloc, "R_X86_64_PC32_BND", FALSE, 0xffffffff, 0xffffffff,
176 TRUE),
177 HOWTO(R_X86_64_PLT32_BND, 0, 2, 32, TRUE, 0, complain_overflow_signed,
178 bfd_elf_generic_reloc, "R_X86_64_PLT32_BND", FALSE, 0xffffffff, 0xffffffff,
179 TRUE),
180 HOWTO(R_X86_64_GOTPCRELX, 0, 2, 32, TRUE, 0, complain_overflow_signed,
181 bfd_elf_generic_reloc, "R_X86_64_GOTPCRELX", FALSE, 0xffffffff,
182 0xffffffff, TRUE),
183 HOWTO(R_X86_64_REX_GOTPCRELX, 0, 2, 32, TRUE, 0, complain_overflow_signed,
184 bfd_elf_generic_reloc, "R_X86_64_REX_GOTPCRELX", FALSE, 0xffffffff,
185 0xffffffff, TRUE),
186
187 /* We have a gap in the reloc numbers here.
188 R_X86_64_standard counts the number up to this point, and
189 R_X86_64_vt_offset is the value to subtract from a reloc type of
190 R_X86_64_GNU_VT* to form an index into this table. */
191 #define R_X86_64_standard (R_X86_64_REX_GOTPCRELX + 1)
192 #define R_X86_64_vt_offset (R_X86_64_GNU_VTINHERIT - R_X86_64_standard)
193
194 /* GNU extension to record C++ vtable hierarchy. */
195 HOWTO (R_X86_64_GNU_VTINHERIT, 0, 4, 0, FALSE, 0, complain_overflow_dont,
196 NULL, "R_X86_64_GNU_VTINHERIT", FALSE, 0, 0, FALSE),
197
198 /* GNU extension to record C++ vtable member usage. */
199 HOWTO (R_X86_64_GNU_VTENTRY, 0, 4, 0, FALSE, 0, complain_overflow_dont,
200 _bfd_elf_rel_vtable_reloc_fn, "R_X86_64_GNU_VTENTRY", FALSE, 0, 0,
201 FALSE),
202
203 /* Use complain_overflow_bitfield on R_X86_64_32 for x32. */
204 HOWTO(R_X86_64_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
205 bfd_elf_generic_reloc, "R_X86_64_32", FALSE, 0xffffffff, 0xffffffff,
206 FALSE)
207 };
208
209 #define IS_X86_64_PCREL_TYPE(TYPE) \
210 ( ((TYPE) == R_X86_64_PC8) \
211 || ((TYPE) == R_X86_64_PC16) \
212 || ((TYPE) == R_X86_64_PC32) \
213 || ((TYPE) == R_X86_64_PC32_BND) \
214 || ((TYPE) == R_X86_64_PC64))
215
216 /* Map BFD relocs to the x86_64 elf relocs. */
217 struct elf_reloc_map
218 {
219 bfd_reloc_code_real_type bfd_reloc_val;
220 unsigned char elf_reloc_val;
221 };
222
223 static const struct elf_reloc_map x86_64_reloc_map[] =
224 {
225 { BFD_RELOC_NONE, R_X86_64_NONE, },
226 { BFD_RELOC_64, R_X86_64_64, },
227 { BFD_RELOC_32_PCREL, R_X86_64_PC32, },
228 { BFD_RELOC_X86_64_GOT32, R_X86_64_GOT32,},
229 { BFD_RELOC_X86_64_PLT32, R_X86_64_PLT32,},
230 { BFD_RELOC_X86_64_COPY, R_X86_64_COPY, },
231 { BFD_RELOC_X86_64_GLOB_DAT, R_X86_64_GLOB_DAT, },
232 { BFD_RELOC_X86_64_JUMP_SLOT, R_X86_64_JUMP_SLOT, },
233 { BFD_RELOC_X86_64_RELATIVE, R_X86_64_RELATIVE, },
234 { BFD_RELOC_X86_64_GOTPCREL, R_X86_64_GOTPCREL, },
235 { BFD_RELOC_32, R_X86_64_32, },
236 { BFD_RELOC_X86_64_32S, R_X86_64_32S, },
237 { BFD_RELOC_16, R_X86_64_16, },
238 { BFD_RELOC_16_PCREL, R_X86_64_PC16, },
239 { BFD_RELOC_8, R_X86_64_8, },
240 { BFD_RELOC_8_PCREL, R_X86_64_PC8, },
241 { BFD_RELOC_X86_64_DTPMOD64, R_X86_64_DTPMOD64, },
242 { BFD_RELOC_X86_64_DTPOFF64, R_X86_64_DTPOFF64, },
243 { BFD_RELOC_X86_64_TPOFF64, R_X86_64_TPOFF64, },
244 { BFD_RELOC_X86_64_TLSGD, R_X86_64_TLSGD, },
245 { BFD_RELOC_X86_64_TLSLD, R_X86_64_TLSLD, },
246 { BFD_RELOC_X86_64_DTPOFF32, R_X86_64_DTPOFF32, },
247 { BFD_RELOC_X86_64_GOTTPOFF, R_X86_64_GOTTPOFF, },
248 { BFD_RELOC_X86_64_TPOFF32, R_X86_64_TPOFF32, },
249 { BFD_RELOC_64_PCREL, R_X86_64_PC64, },
250 { BFD_RELOC_X86_64_GOTOFF64, R_X86_64_GOTOFF64, },
251 { BFD_RELOC_X86_64_GOTPC32, R_X86_64_GOTPC32, },
252 { BFD_RELOC_X86_64_GOT64, R_X86_64_GOT64, },
253 { BFD_RELOC_X86_64_GOTPCREL64,R_X86_64_GOTPCREL64, },
254 { BFD_RELOC_X86_64_GOTPC64, R_X86_64_GOTPC64, },
255 { BFD_RELOC_X86_64_GOTPLT64, R_X86_64_GOTPLT64, },
256 { BFD_RELOC_X86_64_PLTOFF64, R_X86_64_PLTOFF64, },
257 { BFD_RELOC_SIZE32, R_X86_64_SIZE32, },
258 { BFD_RELOC_SIZE64, R_X86_64_SIZE64, },
259 { BFD_RELOC_X86_64_GOTPC32_TLSDESC, R_X86_64_GOTPC32_TLSDESC, },
260 { BFD_RELOC_X86_64_TLSDESC_CALL, R_X86_64_TLSDESC_CALL, },
261 { BFD_RELOC_X86_64_TLSDESC, R_X86_64_TLSDESC, },
262 { BFD_RELOC_X86_64_IRELATIVE, R_X86_64_IRELATIVE, },
263 { BFD_RELOC_X86_64_PC32_BND, R_X86_64_PC32_BND, },
264 { BFD_RELOC_X86_64_PLT32_BND, R_X86_64_PLT32_BND, },
265 { BFD_RELOC_X86_64_GOTPCRELX, R_X86_64_GOTPCRELX, },
266 { BFD_RELOC_X86_64_REX_GOTPCRELX, R_X86_64_REX_GOTPCRELX, },
267 { BFD_RELOC_VTABLE_INHERIT, R_X86_64_GNU_VTINHERIT, },
268 { BFD_RELOC_VTABLE_ENTRY, R_X86_64_GNU_VTENTRY, },
269 };
270
271 static reloc_howto_type *
272 elf_x86_64_rtype_to_howto (bfd *abfd, unsigned r_type)
273 {
274 unsigned i;
275
276 if (r_type == (unsigned int) R_X86_64_32)
277 {
278 if (ABI_64_P (abfd))
279 i = r_type;
280 else
281 i = ARRAY_SIZE (x86_64_elf_howto_table) - 1;
282 }
283 else if (r_type < (unsigned int) R_X86_64_GNU_VTINHERIT
284 || r_type >= (unsigned int) R_X86_64_max)
285 {
286 if (r_type >= (unsigned int) R_X86_64_standard)
287 {
288 (*_bfd_error_handler) (_("%B: invalid relocation type %d"),
289 abfd, (int) r_type);
290 r_type = R_X86_64_NONE;
291 }
292 i = r_type;
293 }
294 else
295 i = r_type - (unsigned int) R_X86_64_vt_offset;
296 BFD_ASSERT (x86_64_elf_howto_table[i].type == r_type);
297 return &x86_64_elf_howto_table[i];
298 }
299
300 /* Given a BFD reloc type, return a HOWTO structure. */
301 static reloc_howto_type *
302 elf_x86_64_reloc_type_lookup (bfd *abfd,
303 bfd_reloc_code_real_type code)
304 {
305 unsigned int i;
306
307 for (i = 0; i < sizeof (x86_64_reloc_map) / sizeof (struct elf_reloc_map);
308 i++)
309 {
310 if (x86_64_reloc_map[i].bfd_reloc_val == code)
311 return elf_x86_64_rtype_to_howto (abfd,
312 x86_64_reloc_map[i].elf_reloc_val);
313 }
314 return NULL;
315 }
316
317 static reloc_howto_type *
318 elf_x86_64_reloc_name_lookup (bfd *abfd,
319 const char *r_name)
320 {
321 unsigned int i;
322
323 if (!ABI_64_P (abfd) && strcasecmp (r_name, "R_X86_64_32") == 0)
324 {
325 /* Get x32 R_X86_64_32. */
326 reloc_howto_type *reloc
327 = &x86_64_elf_howto_table[ARRAY_SIZE (x86_64_elf_howto_table) - 1];
328 BFD_ASSERT (reloc->type == (unsigned int) R_X86_64_32);
329 return reloc;
330 }
331
332 for (i = 0; i < ARRAY_SIZE (x86_64_elf_howto_table); i++)
333 if (x86_64_elf_howto_table[i].name != NULL
334 && strcasecmp (x86_64_elf_howto_table[i].name, r_name) == 0)
335 return &x86_64_elf_howto_table[i];
336
337 return NULL;
338 }
339
340 /* Given an x86_64 ELF reloc type, fill in an arelent structure. */
341
342 static void
343 elf_x86_64_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED, arelent *cache_ptr,
344 Elf_Internal_Rela *dst)
345 {
346 unsigned r_type;
347
348 r_type = ELF32_R_TYPE (dst->r_info);
349 cache_ptr->howto = elf_x86_64_rtype_to_howto (abfd, r_type);
350 BFD_ASSERT (r_type == cache_ptr->howto->type);
351 }
352 \f
353 /* Support for core dump NOTE sections. */
354 static bfd_boolean
355 elf_x86_64_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
356 {
357 int offset;
358 size_t size;
359
360 switch (note->descsz)
361 {
362 default:
363 return FALSE;
364
365 case 296: /* sizeof(istruct elf_prstatus) on Linux/x32 */
366 /* pr_cursig */
367 elf_tdata (abfd)->core->signal = bfd_get_16 (abfd, note->descdata + 12);
368
369 /* pr_pid */
370 elf_tdata (abfd)->core->lwpid = bfd_get_32 (abfd, note->descdata + 24);
371
372 /* pr_reg */
373 offset = 72;
374 size = 216;
375
376 break;
377
378 case 336: /* sizeof(istruct elf_prstatus) on Linux/x86_64 */
379 /* pr_cursig */
380 elf_tdata (abfd)->core->signal
381 = bfd_get_16 (abfd, note->descdata + 12);
382
383 /* pr_pid */
384 elf_tdata (abfd)->core->lwpid
385 = bfd_get_32 (abfd, note->descdata + 32);
386
387 /* pr_reg */
388 offset = 112;
389 size = 216;
390
391 break;
392 }
393
394 /* Make a ".reg/999" section. */
395 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
396 size, note->descpos + offset);
397 }
398
399 static bfd_boolean
400 elf_x86_64_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
401 {
402 switch (note->descsz)
403 {
404 default:
405 return FALSE;
406
407 case 124: /* sizeof(struct elf_prpsinfo) on Linux/x32 */
408 elf_tdata (abfd)->core->pid
409 = bfd_get_32 (abfd, note->descdata + 12);
410 elf_tdata (abfd)->core->program
411 = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
412 elf_tdata (abfd)->core->command
413 = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
414 break;
415
416 case 136: /* sizeof(struct elf_prpsinfo) on Linux/x86_64 */
417 elf_tdata (abfd)->core->pid
418 = bfd_get_32 (abfd, note->descdata + 24);
419 elf_tdata (abfd)->core->program
420 = _bfd_elfcore_strndup (abfd, note->descdata + 40, 16);
421 elf_tdata (abfd)->core->command
422 = _bfd_elfcore_strndup (abfd, note->descdata + 56, 80);
423 }
424
425 /* Note that for some reason, a spurious space is tacked
426 onto the end of the args in some (at least one anyway)
427 implementations, so strip it off if it exists. */
428
429 {
430 char *command = elf_tdata (abfd)->core->command;
431 int n = strlen (command);
432
433 if (0 < n && command[n - 1] == ' ')
434 command[n - 1] = '\0';
435 }
436
437 return TRUE;
438 }
439
440 #ifdef CORE_HEADER
441 static char *
442 elf_x86_64_write_core_note (bfd *abfd, char *buf, int *bufsiz,
443 int note_type, ...)
444 {
445 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
446 va_list ap;
447 const char *fname, *psargs;
448 long pid;
449 int cursig;
450 const void *gregs;
451
452 switch (note_type)
453 {
454 default:
455 return NULL;
456
457 case NT_PRPSINFO:
458 va_start (ap, note_type);
459 fname = va_arg (ap, const char *);
460 psargs = va_arg (ap, const char *);
461 va_end (ap);
462
463 if (bed->s->elfclass == ELFCLASS32)
464 {
465 prpsinfo32_t data;
466 memset (&data, 0, sizeof (data));
467 strncpy (data.pr_fname, fname, sizeof (data.pr_fname));
468 strncpy (data.pr_psargs, psargs, sizeof (data.pr_psargs));
469 return elfcore_write_note (abfd, buf, bufsiz, "CORE", note_type,
470 &data, sizeof (data));
471 }
472 else
473 {
474 prpsinfo64_t data;
475 memset (&data, 0, sizeof (data));
476 strncpy (data.pr_fname, fname, sizeof (data.pr_fname));
477 strncpy (data.pr_psargs, psargs, sizeof (data.pr_psargs));
478 return elfcore_write_note (abfd, buf, bufsiz, "CORE", note_type,
479 &data, sizeof (data));
480 }
481 /* NOTREACHED */
482
483 case NT_PRSTATUS:
484 va_start (ap, note_type);
485 pid = va_arg (ap, long);
486 cursig = va_arg (ap, int);
487 gregs = va_arg (ap, const void *);
488 va_end (ap);
489
490 if (bed->s->elfclass == ELFCLASS32)
491 {
492 if (bed->elf_machine_code == EM_X86_64)
493 {
494 prstatusx32_t prstat;
495 memset (&prstat, 0, sizeof (prstat));
496 prstat.pr_pid = pid;
497 prstat.pr_cursig = cursig;
498 memcpy (&prstat.pr_reg, gregs, sizeof (prstat.pr_reg));
499 return elfcore_write_note (abfd, buf, bufsiz, "CORE", note_type,
500 &prstat, sizeof (prstat));
501 }
502 else
503 {
504 prstatus32_t prstat;
505 memset (&prstat, 0, sizeof (prstat));
506 prstat.pr_pid = pid;
507 prstat.pr_cursig = cursig;
508 memcpy (&prstat.pr_reg, gregs, sizeof (prstat.pr_reg));
509 return elfcore_write_note (abfd, buf, bufsiz, "CORE", note_type,
510 &prstat, sizeof (prstat));
511 }
512 }
513 else
514 {
515 prstatus64_t prstat;
516 memset (&prstat, 0, sizeof (prstat));
517 prstat.pr_pid = pid;
518 prstat.pr_cursig = cursig;
519 memcpy (&prstat.pr_reg, gregs, sizeof (prstat.pr_reg));
520 return elfcore_write_note (abfd, buf, bufsiz, "CORE", note_type,
521 &prstat, sizeof (prstat));
522 }
523 }
524 /* NOTREACHED */
525 }
526 #endif
527 \f
528 /* Functions for the x86-64 ELF linker. */
529
530 /* The name of the dynamic interpreter. This is put in the .interp
531 section. */
532
533 #define ELF64_DYNAMIC_INTERPRETER "/lib/ld64.so.1"
534 #define ELF32_DYNAMIC_INTERPRETER "/lib/ldx32.so.1"
535
536 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
537 copying dynamic variables from a shared lib into an app's dynbss
538 section, and instead use a dynamic relocation to point into the
539 shared lib. */
540 #define ELIMINATE_COPY_RELOCS 1
541
542 /* The size in bytes of an entry in the global offset table. */
543
544 #define GOT_ENTRY_SIZE 8
545
546 /* The size in bytes of an entry in the procedure linkage table. */
547
548 #define PLT_ENTRY_SIZE 16
549
550 /* The first entry in a procedure linkage table looks like this. See the
551 SVR4 ABI i386 supplement and the x86-64 ABI to see how this works. */
552
553 static const bfd_byte elf_x86_64_plt0_entry[PLT_ENTRY_SIZE] =
554 {
555 0xff, 0x35, 8, 0, 0, 0, /* pushq GOT+8(%rip) */
556 0xff, 0x25, 16, 0, 0, 0, /* jmpq *GOT+16(%rip) */
557 0x0f, 0x1f, 0x40, 0x00 /* nopl 0(%rax) */
558 };
559
560 /* Subsequent entries in a procedure linkage table look like this. */
561
562 static const bfd_byte elf_x86_64_plt_entry[PLT_ENTRY_SIZE] =
563 {
564 0xff, 0x25, /* jmpq *name@GOTPC(%rip) */
565 0, 0, 0, 0, /* replaced with offset to this symbol in .got. */
566 0x68, /* pushq immediate */
567 0, 0, 0, 0, /* replaced with index into relocation table. */
568 0xe9, /* jmp relative */
569 0, 0, 0, 0 /* replaced with offset to start of .plt0. */
570 };
571
572 /* The first entry in a procedure linkage table with BND relocations
573 like this. */
574
575 static const bfd_byte elf_x86_64_bnd_plt0_entry[PLT_ENTRY_SIZE] =
576 {
577 0xff, 0x35, 8, 0, 0, 0, /* pushq GOT+8(%rip) */
578 0xf2, 0xff, 0x25, 16, 0, 0, 0, /* bnd jmpq *GOT+16(%rip) */
579 0x0f, 0x1f, 0 /* nopl (%rax) */
580 };
581
582 /* Subsequent entries for legacy branches in a procedure linkage table
583 with BND relocations look like this. */
584
585 static const bfd_byte elf_x86_64_legacy_plt_entry[PLT_ENTRY_SIZE] =
586 {
587 0x68, 0, 0, 0, 0, /* pushq immediate */
588 0xe9, 0, 0, 0, 0, /* jmpq relative */
589 0x66, 0x0f, 0x1f, 0x44, 0, 0 /* nopw (%rax,%rax,1) */
590 };
591
592 /* Subsequent entries for branches with BND prefx in a procedure linkage
593 table with BND relocations look like this. */
594
595 static const bfd_byte elf_x86_64_bnd_plt_entry[PLT_ENTRY_SIZE] =
596 {
597 0x68, 0, 0, 0, 0, /* pushq immediate */
598 0xf2, 0xe9, 0, 0, 0, 0, /* bnd jmpq relative */
599 0x0f, 0x1f, 0x44, 0, 0 /* nopl 0(%rax,%rax,1) */
600 };
601
602 /* Entries for legacy branches in the second procedure linkage table
603 look like this. */
604
605 static const bfd_byte elf_x86_64_legacy_plt2_entry[8] =
606 {
607 0xff, 0x25, /* jmpq *name@GOTPC(%rip) */
608 0, 0, 0, 0, /* replaced with offset to this symbol in .got. */
609 0x66, 0x90 /* xchg %ax,%ax */
610 };
611
612 /* Entries for branches with BND prefix in the second procedure linkage
613 table look like this. */
614
615 static const bfd_byte elf_x86_64_bnd_plt2_entry[8] =
616 {
617 0xf2, 0xff, 0x25, /* bnd jmpq *name@GOTPC(%rip) */
618 0, 0, 0, 0, /* replaced with offset to this symbol in .got. */
619 0x90 /* nop */
620 };
621
622 /* .eh_frame covering the .plt section. */
623
624 static const bfd_byte elf_x86_64_eh_frame_plt[] =
625 {
626 #define PLT_CIE_LENGTH 20
627 #define PLT_FDE_LENGTH 36
628 #define PLT_FDE_START_OFFSET 4 + PLT_CIE_LENGTH + 8
629 #define PLT_FDE_LEN_OFFSET 4 + PLT_CIE_LENGTH + 12
630 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
631 0, 0, 0, 0, /* CIE ID */
632 1, /* CIE version */
633 'z', 'R', 0, /* Augmentation string */
634 1, /* Code alignment factor */
635 0x78, /* Data alignment factor */
636 16, /* Return address column */
637 1, /* Augmentation size */
638 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
639 DW_CFA_def_cfa, 7, 8, /* DW_CFA_def_cfa: r7 (rsp) ofs 8 */
640 DW_CFA_offset + 16, 1, /* DW_CFA_offset: r16 (rip) at cfa-8 */
641 DW_CFA_nop, DW_CFA_nop,
642
643 PLT_FDE_LENGTH, 0, 0, 0, /* FDE length */
644 PLT_CIE_LENGTH + 8, 0, 0, 0, /* CIE pointer */
645 0, 0, 0, 0, /* R_X86_64_PC32 .plt goes here */
646 0, 0, 0, 0, /* .plt size goes here */
647 0, /* Augmentation size */
648 DW_CFA_def_cfa_offset, 16, /* DW_CFA_def_cfa_offset: 16 */
649 DW_CFA_advance_loc + 6, /* DW_CFA_advance_loc: 6 to __PLT__+6 */
650 DW_CFA_def_cfa_offset, 24, /* DW_CFA_def_cfa_offset: 24 */
651 DW_CFA_advance_loc + 10, /* DW_CFA_advance_loc: 10 to __PLT__+16 */
652 DW_CFA_def_cfa_expression, /* DW_CFA_def_cfa_expression */
653 11, /* Block length */
654 DW_OP_breg7, 8, /* DW_OP_breg7 (rsp): 8 */
655 DW_OP_breg16, 0, /* DW_OP_breg16 (rip): 0 */
656 DW_OP_lit15, DW_OP_and, DW_OP_lit11, DW_OP_ge,
657 DW_OP_lit3, DW_OP_shl, DW_OP_plus,
658 DW_CFA_nop, DW_CFA_nop, DW_CFA_nop, DW_CFA_nop
659 };
660
661 /* Architecture-specific backend data for x86-64. */
662
663 struct elf_x86_64_backend_data
664 {
665 /* Templates for the initial PLT entry and for subsequent entries. */
666 const bfd_byte *plt0_entry;
667 const bfd_byte *plt_entry;
668 unsigned int plt_entry_size; /* Size of each PLT entry. */
669
670 /* Offsets into plt0_entry that are to be replaced with GOT[1] and GOT[2]. */
671 unsigned int plt0_got1_offset;
672 unsigned int plt0_got2_offset;
673
674 /* Offset of the end of the PC-relative instruction containing
675 plt0_got2_offset. */
676 unsigned int plt0_got2_insn_end;
677
678 /* Offsets into plt_entry that are to be replaced with... */
679 unsigned int plt_got_offset; /* ... address of this symbol in .got. */
680 unsigned int plt_reloc_offset; /* ... offset into relocation table. */
681 unsigned int plt_plt_offset; /* ... offset to start of .plt. */
682
683 /* Length of the PC-relative instruction containing plt_got_offset. */
684 unsigned int plt_got_insn_size;
685
686 /* Offset of the end of the PC-relative jump to plt0_entry. */
687 unsigned int plt_plt_insn_end;
688
689 /* Offset into plt_entry where the initial value of the GOT entry points. */
690 unsigned int plt_lazy_offset;
691
692 /* .eh_frame covering the .plt section. */
693 const bfd_byte *eh_frame_plt;
694 unsigned int eh_frame_plt_size;
695 };
696
697 #define get_elf_x86_64_arch_data(bed) \
698 ((const struct elf_x86_64_backend_data *) (bed)->arch_data)
699
700 #define get_elf_x86_64_backend_data(abfd) \
701 get_elf_x86_64_arch_data (get_elf_backend_data (abfd))
702
703 #define GET_PLT_ENTRY_SIZE(abfd) \
704 get_elf_x86_64_backend_data (abfd)->plt_entry_size
705
706 /* These are the standard parameters. */
707 static const struct elf_x86_64_backend_data elf_x86_64_arch_bed =
708 {
709 elf_x86_64_plt0_entry, /* plt0_entry */
710 elf_x86_64_plt_entry, /* plt_entry */
711 sizeof (elf_x86_64_plt_entry), /* plt_entry_size */
712 2, /* plt0_got1_offset */
713 8, /* plt0_got2_offset */
714 12, /* plt0_got2_insn_end */
715 2, /* plt_got_offset */
716 7, /* plt_reloc_offset */
717 12, /* plt_plt_offset */
718 6, /* plt_got_insn_size */
719 PLT_ENTRY_SIZE, /* plt_plt_insn_end */
720 6, /* plt_lazy_offset */
721 elf_x86_64_eh_frame_plt, /* eh_frame_plt */
722 sizeof (elf_x86_64_eh_frame_plt), /* eh_frame_plt_size */
723 };
724
725 static const struct elf_x86_64_backend_data elf_x86_64_bnd_arch_bed =
726 {
727 elf_x86_64_bnd_plt0_entry, /* plt0_entry */
728 elf_x86_64_bnd_plt_entry, /* plt_entry */
729 sizeof (elf_x86_64_bnd_plt_entry), /* plt_entry_size */
730 2, /* plt0_got1_offset */
731 1+8, /* plt0_got2_offset */
732 1+12, /* plt0_got2_insn_end */
733 1+2, /* plt_got_offset */
734 1, /* plt_reloc_offset */
735 7, /* plt_plt_offset */
736 1+6, /* plt_got_insn_size */
737 11, /* plt_plt_insn_end */
738 0, /* plt_lazy_offset */
739 elf_x86_64_eh_frame_plt, /* eh_frame_plt */
740 sizeof (elf_x86_64_eh_frame_plt), /* eh_frame_plt_size */
741 };
742
743 #define elf_backend_arch_data &elf_x86_64_arch_bed
744
745 /* x86-64 ELF linker hash entry. */
746
747 struct elf_x86_64_link_hash_entry
748 {
749 struct elf_link_hash_entry elf;
750
751 /* Track dynamic relocs copied for this symbol. */
752 struct elf_dyn_relocs *dyn_relocs;
753
754 #define GOT_UNKNOWN 0
755 #define GOT_NORMAL 1
756 #define GOT_TLS_GD 2
757 #define GOT_TLS_IE 3
758 #define GOT_TLS_GDESC 4
759 #define GOT_TLS_GD_BOTH_P(type) \
760 ((type) == (GOT_TLS_GD | GOT_TLS_GDESC))
761 #define GOT_TLS_GD_P(type) \
762 ((type) == GOT_TLS_GD || GOT_TLS_GD_BOTH_P (type))
763 #define GOT_TLS_GDESC_P(type) \
764 ((type) == GOT_TLS_GDESC || GOT_TLS_GD_BOTH_P (type))
765 #define GOT_TLS_GD_ANY_P(type) \
766 (GOT_TLS_GD_P (type) || GOT_TLS_GDESC_P (type))
767 unsigned char tls_type;
768
769 /* TRUE if a weak symbol with a real definition needs a copy reloc.
770 When there is a weak symbol with a real definition, the processor
771 independent code will have arranged for us to see the real
772 definition first. We need to copy the needs_copy bit from the
773 real definition and check it when allowing copy reloc in PIE. */
774 unsigned int needs_copy : 1;
775
776 /* TRUE if symbol has at least one BND relocation. */
777 unsigned int has_bnd_reloc : 1;
778
779 /* Reference count of C/C++ function pointer relocations in read-write
780 section which can be resolved at run-time. */
781 bfd_signed_vma func_pointer_refcount;
782
783 /* Information about the GOT PLT entry. Filled when there are both
784 GOT and PLT relocations against the same function. */
785 union gotplt_union plt_got;
786
787 /* Information about the second PLT entry. Filled when has_bnd_reloc is
788 set. */
789 union gotplt_union plt_bnd;
790
791 /* Offset of the GOTPLT entry reserved for the TLS descriptor,
792 starting at the end of the jump table. */
793 bfd_vma tlsdesc_got;
794 };
795
796 #define elf_x86_64_hash_entry(ent) \
797 ((struct elf_x86_64_link_hash_entry *)(ent))
798
799 struct elf_x86_64_obj_tdata
800 {
801 struct elf_obj_tdata root;
802
803 /* tls_type for each local got entry. */
804 char *local_got_tls_type;
805
806 /* GOTPLT entries for TLS descriptors. */
807 bfd_vma *local_tlsdesc_gotent;
808 };
809
810 #define elf_x86_64_tdata(abfd) \
811 ((struct elf_x86_64_obj_tdata *) (abfd)->tdata.any)
812
813 #define elf_x86_64_local_got_tls_type(abfd) \
814 (elf_x86_64_tdata (abfd)->local_got_tls_type)
815
816 #define elf_x86_64_local_tlsdesc_gotent(abfd) \
817 (elf_x86_64_tdata (abfd)->local_tlsdesc_gotent)
818
819 #define is_x86_64_elf(bfd) \
820 (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
821 && elf_tdata (bfd) != NULL \
822 && elf_object_id (bfd) == X86_64_ELF_DATA)
823
824 static bfd_boolean
825 elf_x86_64_mkobject (bfd *abfd)
826 {
827 return bfd_elf_allocate_object (abfd, sizeof (struct elf_x86_64_obj_tdata),
828 X86_64_ELF_DATA);
829 }
830
831 /* x86-64 ELF linker hash table. */
832
833 struct elf_x86_64_link_hash_table
834 {
835 struct elf_link_hash_table elf;
836
837 /* Short-cuts to get to dynamic linker sections. */
838 asection *sdynbss;
839 asection *srelbss;
840 asection *plt_eh_frame;
841 asection *plt_bnd;
842 asection *plt_got;
843
844 union
845 {
846 bfd_signed_vma refcount;
847 bfd_vma offset;
848 } tls_ld_got;
849
850 /* The amount of space used by the jump slots in the GOT. */
851 bfd_vma sgotplt_jump_table_size;
852
853 /* Small local sym cache. */
854 struct sym_cache sym_cache;
855
856 bfd_vma (*r_info) (bfd_vma, bfd_vma);
857 bfd_vma (*r_sym) (bfd_vma);
858 unsigned int pointer_r_type;
859 const char *dynamic_interpreter;
860 int dynamic_interpreter_size;
861
862 /* _TLS_MODULE_BASE_ symbol. */
863 struct bfd_link_hash_entry *tls_module_base;
864
865 /* Used by local STT_GNU_IFUNC symbols. */
866 htab_t loc_hash_table;
867 void * loc_hash_memory;
868
869 /* The offset into splt of the PLT entry for the TLS descriptor
870 resolver. Special values are 0, if not necessary (or not found
871 to be necessary yet), and -1 if needed but not determined
872 yet. */
873 bfd_vma tlsdesc_plt;
874 /* The offset into sgot of the GOT entry used by the PLT entry
875 above. */
876 bfd_vma tlsdesc_got;
877
878 /* The index of the next R_X86_64_JUMP_SLOT entry in .rela.plt. */
879 bfd_vma next_jump_slot_index;
880 /* The index of the next R_X86_64_IRELATIVE entry in .rela.plt. */
881 bfd_vma next_irelative_index;
882 };
883
884 /* Get the x86-64 ELF linker hash table from a link_info structure. */
885
886 #define elf_x86_64_hash_table(p) \
887 (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
888 == X86_64_ELF_DATA ? ((struct elf_x86_64_link_hash_table *) ((p)->hash)) : NULL)
889
890 #define elf_x86_64_compute_jump_table_size(htab) \
891 ((htab)->elf.srelplt->reloc_count * GOT_ENTRY_SIZE)
892
893 /* Create an entry in an x86-64 ELF linker hash table. */
894
895 static struct bfd_hash_entry *
896 elf_x86_64_link_hash_newfunc (struct bfd_hash_entry *entry,
897 struct bfd_hash_table *table,
898 const char *string)
899 {
900 /* Allocate the structure if it has not already been allocated by a
901 subclass. */
902 if (entry == NULL)
903 {
904 entry = (struct bfd_hash_entry *)
905 bfd_hash_allocate (table,
906 sizeof (struct elf_x86_64_link_hash_entry));
907 if (entry == NULL)
908 return entry;
909 }
910
911 /* Call the allocation method of the superclass. */
912 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
913 if (entry != NULL)
914 {
915 struct elf_x86_64_link_hash_entry *eh;
916
917 eh = (struct elf_x86_64_link_hash_entry *) entry;
918 eh->dyn_relocs = NULL;
919 eh->tls_type = GOT_UNKNOWN;
920 eh->needs_copy = 0;
921 eh->has_bnd_reloc = 0;
922 eh->func_pointer_refcount = 0;
923 eh->plt_bnd.offset = (bfd_vma) -1;
924 eh->plt_got.offset = (bfd_vma) -1;
925 eh->tlsdesc_got = (bfd_vma) -1;
926 }
927
928 return entry;
929 }
930
931 /* Compute a hash of a local hash entry. We use elf_link_hash_entry
932 for local symbol so that we can handle local STT_GNU_IFUNC symbols
933 as global symbol. We reuse indx and dynstr_index for local symbol
934 hash since they aren't used by global symbols in this backend. */
935
936 static hashval_t
937 elf_x86_64_local_htab_hash (const void *ptr)
938 {
939 struct elf_link_hash_entry *h
940 = (struct elf_link_hash_entry *) ptr;
941 return ELF_LOCAL_SYMBOL_HASH (h->indx, h->dynstr_index);
942 }
943
944 /* Compare local hash entries. */
945
946 static int
947 elf_x86_64_local_htab_eq (const void *ptr1, const void *ptr2)
948 {
949 struct elf_link_hash_entry *h1
950 = (struct elf_link_hash_entry *) ptr1;
951 struct elf_link_hash_entry *h2
952 = (struct elf_link_hash_entry *) ptr2;
953
954 return h1->indx == h2->indx && h1->dynstr_index == h2->dynstr_index;
955 }
956
957 /* Find and/or create a hash entry for local symbol. */
958
959 static struct elf_link_hash_entry *
960 elf_x86_64_get_local_sym_hash (struct elf_x86_64_link_hash_table *htab,
961 bfd *abfd, const Elf_Internal_Rela *rel,
962 bfd_boolean create)
963 {
964 struct elf_x86_64_link_hash_entry e, *ret;
965 asection *sec = abfd->sections;
966 hashval_t h = ELF_LOCAL_SYMBOL_HASH (sec->id,
967 htab->r_sym (rel->r_info));
968 void **slot;
969
970 e.elf.indx = sec->id;
971 e.elf.dynstr_index = htab->r_sym (rel->r_info);
972 slot = htab_find_slot_with_hash (htab->loc_hash_table, &e, h,
973 create ? INSERT : NO_INSERT);
974
975 if (!slot)
976 return NULL;
977
978 if (*slot)
979 {
980 ret = (struct elf_x86_64_link_hash_entry *) *slot;
981 return &ret->elf;
982 }
983
984 ret = (struct elf_x86_64_link_hash_entry *)
985 objalloc_alloc ((struct objalloc *) htab->loc_hash_memory,
986 sizeof (struct elf_x86_64_link_hash_entry));
987 if (ret)
988 {
989 memset (ret, 0, sizeof (*ret));
990 ret->elf.indx = sec->id;
991 ret->elf.dynstr_index = htab->r_sym (rel->r_info);
992 ret->elf.dynindx = -1;
993 ret->func_pointer_refcount = 0;
994 ret->plt_got.offset = (bfd_vma) -1;
995 *slot = ret;
996 }
997 return &ret->elf;
998 }
999
1000 /* Destroy an X86-64 ELF linker hash table. */
1001
1002 static void
1003 elf_x86_64_link_hash_table_free (bfd *obfd)
1004 {
1005 struct elf_x86_64_link_hash_table *htab
1006 = (struct elf_x86_64_link_hash_table *) obfd->link.hash;
1007
1008 if (htab->loc_hash_table)
1009 htab_delete (htab->loc_hash_table);
1010 if (htab->loc_hash_memory)
1011 objalloc_free ((struct objalloc *) htab->loc_hash_memory);
1012 _bfd_elf_link_hash_table_free (obfd);
1013 }
1014
1015 /* Create an X86-64 ELF linker hash table. */
1016
1017 static struct bfd_link_hash_table *
1018 elf_x86_64_link_hash_table_create (bfd *abfd)
1019 {
1020 struct elf_x86_64_link_hash_table *ret;
1021 bfd_size_type amt = sizeof (struct elf_x86_64_link_hash_table);
1022
1023 ret = (struct elf_x86_64_link_hash_table *) bfd_zmalloc (amt);
1024 if (ret == NULL)
1025 return NULL;
1026
1027 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
1028 elf_x86_64_link_hash_newfunc,
1029 sizeof (struct elf_x86_64_link_hash_entry),
1030 X86_64_ELF_DATA))
1031 {
1032 free (ret);
1033 return NULL;
1034 }
1035
1036 if (ABI_64_P (abfd))
1037 {
1038 ret->r_info = elf64_r_info;
1039 ret->r_sym = elf64_r_sym;
1040 ret->pointer_r_type = R_X86_64_64;
1041 ret->dynamic_interpreter = ELF64_DYNAMIC_INTERPRETER;
1042 ret->dynamic_interpreter_size = sizeof ELF64_DYNAMIC_INTERPRETER;
1043 }
1044 else
1045 {
1046 ret->r_info = elf32_r_info;
1047 ret->r_sym = elf32_r_sym;
1048 ret->pointer_r_type = R_X86_64_32;
1049 ret->dynamic_interpreter = ELF32_DYNAMIC_INTERPRETER;
1050 ret->dynamic_interpreter_size = sizeof ELF32_DYNAMIC_INTERPRETER;
1051 }
1052
1053 ret->loc_hash_table = htab_try_create (1024,
1054 elf_x86_64_local_htab_hash,
1055 elf_x86_64_local_htab_eq,
1056 NULL);
1057 ret->loc_hash_memory = objalloc_create ();
1058 if (!ret->loc_hash_table || !ret->loc_hash_memory)
1059 {
1060 elf_x86_64_link_hash_table_free (abfd);
1061 return NULL;
1062 }
1063 ret->elf.root.hash_table_free = elf_x86_64_link_hash_table_free;
1064
1065 return &ret->elf.root;
1066 }
1067
1068 /* Create .plt, .rela.plt, .got, .got.plt, .rela.got, .dynbss, and
1069 .rela.bss sections in DYNOBJ, and set up shortcuts to them in our
1070 hash table. */
1071
1072 static bfd_boolean
1073 elf_x86_64_create_dynamic_sections (bfd *dynobj,
1074 struct bfd_link_info *info)
1075 {
1076 struct elf_x86_64_link_hash_table *htab;
1077
1078 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
1079 return FALSE;
1080
1081 htab = elf_x86_64_hash_table (info);
1082 if (htab == NULL)
1083 return FALSE;
1084
1085 htab->sdynbss = bfd_get_linker_section (dynobj, ".dynbss");
1086 if (!htab->sdynbss)
1087 abort ();
1088
1089 if (bfd_link_executable (info))
1090 {
1091 /* Always allow copy relocs for building executables. */
1092 asection *s = bfd_get_linker_section (dynobj, ".rela.bss");
1093 if (s == NULL)
1094 {
1095 const struct elf_backend_data *bed = get_elf_backend_data (dynobj);
1096 s = bfd_make_section_anyway_with_flags (dynobj,
1097 ".rela.bss",
1098 (bed->dynamic_sec_flags
1099 | SEC_READONLY));
1100 if (s == NULL
1101 || ! bfd_set_section_alignment (dynobj, s,
1102 bed->s->log_file_align))
1103 return FALSE;
1104 }
1105 htab->srelbss = s;
1106 }
1107
1108 if (!info->no_ld_generated_unwind_info
1109 && htab->plt_eh_frame == NULL
1110 && htab->elf.splt != NULL)
1111 {
1112 flagword flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY
1113 | SEC_HAS_CONTENTS | SEC_IN_MEMORY
1114 | SEC_LINKER_CREATED);
1115 htab->plt_eh_frame
1116 = bfd_make_section_anyway_with_flags (dynobj, ".eh_frame", flags);
1117 if (htab->plt_eh_frame == NULL
1118 || !bfd_set_section_alignment (dynobj, htab->plt_eh_frame, 3))
1119 return FALSE;
1120 }
1121 return TRUE;
1122 }
1123
1124 /* Copy the extra info we tack onto an elf_link_hash_entry. */
1125
1126 static void
1127 elf_x86_64_copy_indirect_symbol (struct bfd_link_info *info,
1128 struct elf_link_hash_entry *dir,
1129 struct elf_link_hash_entry *ind)
1130 {
1131 struct elf_x86_64_link_hash_entry *edir, *eind;
1132
1133 edir = (struct elf_x86_64_link_hash_entry *) dir;
1134 eind = (struct elf_x86_64_link_hash_entry *) ind;
1135
1136 if (!edir->has_bnd_reloc)
1137 edir->has_bnd_reloc = eind->has_bnd_reloc;
1138
1139 if (eind->dyn_relocs != NULL)
1140 {
1141 if (edir->dyn_relocs != NULL)
1142 {
1143 struct elf_dyn_relocs **pp;
1144 struct elf_dyn_relocs *p;
1145
1146 /* Add reloc counts against the indirect sym to the direct sym
1147 list. Merge any entries against the same section. */
1148 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
1149 {
1150 struct elf_dyn_relocs *q;
1151
1152 for (q = edir->dyn_relocs; q != NULL; q = q->next)
1153 if (q->sec == p->sec)
1154 {
1155 q->pc_count += p->pc_count;
1156 q->count += p->count;
1157 *pp = p->next;
1158 break;
1159 }
1160 if (q == NULL)
1161 pp = &p->next;
1162 }
1163 *pp = edir->dyn_relocs;
1164 }
1165
1166 edir->dyn_relocs = eind->dyn_relocs;
1167 eind->dyn_relocs = NULL;
1168 }
1169
1170 if (ind->root.type == bfd_link_hash_indirect
1171 && dir->got.refcount <= 0)
1172 {
1173 edir->tls_type = eind->tls_type;
1174 eind->tls_type = GOT_UNKNOWN;
1175 }
1176
1177 if (ELIMINATE_COPY_RELOCS
1178 && ind->root.type != bfd_link_hash_indirect
1179 && dir->dynamic_adjusted)
1180 {
1181 /* If called to transfer flags for a weakdef during processing
1182 of elf_adjust_dynamic_symbol, don't copy non_got_ref.
1183 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
1184 dir->ref_dynamic |= ind->ref_dynamic;
1185 dir->ref_regular |= ind->ref_regular;
1186 dir->ref_regular_nonweak |= ind->ref_regular_nonweak;
1187 dir->needs_plt |= ind->needs_plt;
1188 dir->pointer_equality_needed |= ind->pointer_equality_needed;
1189 }
1190 else
1191 {
1192 if (eind->func_pointer_refcount > 0)
1193 {
1194 edir->func_pointer_refcount += eind->func_pointer_refcount;
1195 eind->func_pointer_refcount = 0;
1196 }
1197
1198 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
1199 }
1200 }
1201
1202 static bfd_boolean
1203 elf64_x86_64_elf_object_p (bfd *abfd)
1204 {
1205 /* Set the right machine number for an x86-64 elf64 file. */
1206 bfd_default_set_arch_mach (abfd, bfd_arch_i386, bfd_mach_x86_64);
1207 return TRUE;
1208 }
1209
1210 static bfd_boolean
1211 elf32_x86_64_elf_object_p (bfd *abfd)
1212 {
1213 /* Set the right machine number for an x86-64 elf32 file. */
1214 bfd_default_set_arch_mach (abfd, bfd_arch_i386, bfd_mach_x64_32);
1215 return TRUE;
1216 }
1217
1218 /* Return TRUE if the TLS access code sequence support transition
1219 from R_TYPE. */
1220
1221 static bfd_boolean
1222 elf_x86_64_check_tls_transition (bfd *abfd,
1223 struct bfd_link_info *info,
1224 asection *sec,
1225 bfd_byte *contents,
1226 Elf_Internal_Shdr *symtab_hdr,
1227 struct elf_link_hash_entry **sym_hashes,
1228 unsigned int r_type,
1229 const Elf_Internal_Rela *rel,
1230 const Elf_Internal_Rela *relend)
1231 {
1232 unsigned int val;
1233 unsigned long r_symndx;
1234 bfd_boolean largepic = FALSE;
1235 struct elf_link_hash_entry *h;
1236 bfd_vma offset;
1237 struct elf_x86_64_link_hash_table *htab;
1238
1239 /* Get the section contents. */
1240 if (contents == NULL)
1241 {
1242 if (elf_section_data (sec)->this_hdr.contents != NULL)
1243 contents = elf_section_data (sec)->this_hdr.contents;
1244 else
1245 {
1246 /* FIXME: How to better handle error condition? */
1247 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
1248 return FALSE;
1249
1250 /* Cache the section contents for elf_link_input_bfd. */
1251 elf_section_data (sec)->this_hdr.contents = contents;
1252 }
1253 }
1254
1255 htab = elf_x86_64_hash_table (info);
1256 offset = rel->r_offset;
1257 switch (r_type)
1258 {
1259 case R_X86_64_TLSGD:
1260 case R_X86_64_TLSLD:
1261 if ((rel + 1) >= relend)
1262 return FALSE;
1263
1264 if (r_type == R_X86_64_TLSGD)
1265 {
1266 /* Check transition from GD access model. For 64bit, only
1267 .byte 0x66; leaq foo@tlsgd(%rip), %rdi
1268 .word 0x6666; rex64; call __tls_get_addr
1269 can transit to different access model. For 32bit, only
1270 leaq foo@tlsgd(%rip), %rdi
1271 .word 0x6666; rex64; call __tls_get_addr
1272 can transit to different access model. For largepic
1273 we also support:
1274 leaq foo@tlsgd(%rip), %rdi
1275 movabsq $__tls_get_addr@pltoff, %rax
1276 addq $rbx, %rax
1277 call *%rax. */
1278
1279 static const unsigned char call[] = { 0x66, 0x66, 0x48, 0xe8 };
1280 static const unsigned char leaq[] = { 0x66, 0x48, 0x8d, 0x3d };
1281
1282 if ((offset + 12) > sec->size)
1283 return FALSE;
1284
1285 if (memcmp (contents + offset + 4, call, 4) != 0)
1286 {
1287 if (!ABI_64_P (abfd)
1288 || (offset + 19) > sec->size
1289 || offset < 3
1290 || memcmp (contents + offset - 3, leaq + 1, 3) != 0
1291 || memcmp (contents + offset + 4, "\x48\xb8", 2) != 0
1292 || memcmp (contents + offset + 14, "\x48\x01\xd8\xff\xd0", 5)
1293 != 0)
1294 return FALSE;
1295 largepic = TRUE;
1296 }
1297 else if (ABI_64_P (abfd))
1298 {
1299 if (offset < 4
1300 || memcmp (contents + offset - 4, leaq, 4) != 0)
1301 return FALSE;
1302 }
1303 else
1304 {
1305 if (offset < 3
1306 || memcmp (contents + offset - 3, leaq + 1, 3) != 0)
1307 return FALSE;
1308 }
1309 }
1310 else
1311 {
1312 /* Check transition from LD access model. Only
1313 leaq foo@tlsld(%rip), %rdi;
1314 call __tls_get_addr
1315 can transit to different access model. For largepic
1316 we also support:
1317 leaq foo@tlsld(%rip), %rdi
1318 movabsq $__tls_get_addr@pltoff, %rax
1319 addq $rbx, %rax
1320 call *%rax. */
1321
1322 static const unsigned char lea[] = { 0x48, 0x8d, 0x3d };
1323
1324 if (offset < 3 || (offset + 9) > sec->size)
1325 return FALSE;
1326
1327 if (memcmp (contents + offset - 3, lea, 3) != 0)
1328 return FALSE;
1329
1330 if (0xe8 != *(contents + offset + 4))
1331 {
1332 if (!ABI_64_P (abfd)
1333 || (offset + 19) > sec->size
1334 || memcmp (contents + offset + 4, "\x48\xb8", 2) != 0
1335 || memcmp (contents + offset + 14, "\x48\x01\xd8\xff\xd0", 5)
1336 != 0)
1337 return FALSE;
1338 largepic = TRUE;
1339 }
1340 }
1341
1342 r_symndx = htab->r_sym (rel[1].r_info);
1343 if (r_symndx < symtab_hdr->sh_info)
1344 return FALSE;
1345
1346 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1347 /* Use strncmp to check __tls_get_addr since __tls_get_addr
1348 may be versioned. */
1349 return (h != NULL
1350 && h->root.root.string != NULL
1351 && (largepic
1352 ? ELF32_R_TYPE (rel[1].r_info) == R_X86_64_PLTOFF64
1353 : (ELF32_R_TYPE (rel[1].r_info) == R_X86_64_PC32
1354 || ELF32_R_TYPE (rel[1].r_info) == R_X86_64_PLT32))
1355 && (strncmp (h->root.root.string,
1356 "__tls_get_addr", 14) == 0));
1357
1358 case R_X86_64_GOTTPOFF:
1359 /* Check transition from IE access model:
1360 mov foo@gottpoff(%rip), %reg
1361 add foo@gottpoff(%rip), %reg
1362 */
1363
1364 /* Check REX prefix first. */
1365 if (offset >= 3 && (offset + 4) <= sec->size)
1366 {
1367 val = bfd_get_8 (abfd, contents + offset - 3);
1368 if (val != 0x48 && val != 0x4c)
1369 {
1370 /* X32 may have 0x44 REX prefix or no REX prefix. */
1371 if (ABI_64_P (abfd))
1372 return FALSE;
1373 }
1374 }
1375 else
1376 {
1377 /* X32 may not have any REX prefix. */
1378 if (ABI_64_P (abfd))
1379 return FALSE;
1380 if (offset < 2 || (offset + 3) > sec->size)
1381 return FALSE;
1382 }
1383
1384 val = bfd_get_8 (abfd, contents + offset - 2);
1385 if (val != 0x8b && val != 0x03)
1386 return FALSE;
1387
1388 val = bfd_get_8 (abfd, contents + offset - 1);
1389 return (val & 0xc7) == 5;
1390
1391 case R_X86_64_GOTPC32_TLSDESC:
1392 /* Check transition from GDesc access model:
1393 leaq x@tlsdesc(%rip), %rax
1394
1395 Make sure it's a leaq adding rip to a 32-bit offset
1396 into any register, although it's probably almost always
1397 going to be rax. */
1398
1399 if (offset < 3 || (offset + 4) > sec->size)
1400 return FALSE;
1401
1402 val = bfd_get_8 (abfd, contents + offset - 3);
1403 if ((val & 0xfb) != 0x48)
1404 return FALSE;
1405
1406 if (bfd_get_8 (abfd, contents + offset - 2) != 0x8d)
1407 return FALSE;
1408
1409 val = bfd_get_8 (abfd, contents + offset - 1);
1410 return (val & 0xc7) == 0x05;
1411
1412 case R_X86_64_TLSDESC_CALL:
1413 /* Check transition from GDesc access model:
1414 call *x@tlsdesc(%rax)
1415 */
1416 if (offset + 2 <= sec->size)
1417 {
1418 /* Make sure that it's a call *x@tlsdesc(%rax). */
1419 static const unsigned char call[] = { 0xff, 0x10 };
1420 return memcmp (contents + offset, call, 2) == 0;
1421 }
1422
1423 return FALSE;
1424
1425 default:
1426 abort ();
1427 }
1428 }
1429
1430 /* Return TRUE if the TLS access transition is OK or no transition
1431 will be performed. Update R_TYPE if there is a transition. */
1432
1433 static bfd_boolean
1434 elf_x86_64_tls_transition (struct bfd_link_info *info, bfd *abfd,
1435 asection *sec, bfd_byte *contents,
1436 Elf_Internal_Shdr *symtab_hdr,
1437 struct elf_link_hash_entry **sym_hashes,
1438 unsigned int *r_type, int tls_type,
1439 const Elf_Internal_Rela *rel,
1440 const Elf_Internal_Rela *relend,
1441 struct elf_link_hash_entry *h,
1442 unsigned long r_symndx)
1443 {
1444 unsigned int from_type = *r_type;
1445 unsigned int to_type = from_type;
1446 bfd_boolean check = TRUE;
1447
1448 /* Skip TLS transition for functions. */
1449 if (h != NULL
1450 && (h->type == STT_FUNC
1451 || h->type == STT_GNU_IFUNC))
1452 return TRUE;
1453
1454 switch (from_type)
1455 {
1456 case R_X86_64_TLSGD:
1457 case R_X86_64_GOTPC32_TLSDESC:
1458 case R_X86_64_TLSDESC_CALL:
1459 case R_X86_64_GOTTPOFF:
1460 if (bfd_link_executable (info))
1461 {
1462 if (h == NULL)
1463 to_type = R_X86_64_TPOFF32;
1464 else
1465 to_type = R_X86_64_GOTTPOFF;
1466 }
1467
1468 /* When we are called from elf_x86_64_relocate_section,
1469 CONTENTS isn't NULL and there may be additional transitions
1470 based on TLS_TYPE. */
1471 if (contents != NULL)
1472 {
1473 unsigned int new_to_type = to_type;
1474
1475 if (bfd_link_executable (info)
1476 && h != NULL
1477 && h->dynindx == -1
1478 && tls_type == GOT_TLS_IE)
1479 new_to_type = R_X86_64_TPOFF32;
1480
1481 if (to_type == R_X86_64_TLSGD
1482 || to_type == R_X86_64_GOTPC32_TLSDESC
1483 || to_type == R_X86_64_TLSDESC_CALL)
1484 {
1485 if (tls_type == GOT_TLS_IE)
1486 new_to_type = R_X86_64_GOTTPOFF;
1487 }
1488
1489 /* We checked the transition before when we were called from
1490 elf_x86_64_check_relocs. We only want to check the new
1491 transition which hasn't been checked before. */
1492 check = new_to_type != to_type && from_type == to_type;
1493 to_type = new_to_type;
1494 }
1495
1496 break;
1497
1498 case R_X86_64_TLSLD:
1499 if (bfd_link_executable (info))
1500 to_type = R_X86_64_TPOFF32;
1501 break;
1502
1503 default:
1504 return TRUE;
1505 }
1506
1507 /* Return TRUE if there is no transition. */
1508 if (from_type == to_type)
1509 return TRUE;
1510
1511 /* Check if the transition can be performed. */
1512 if (check
1513 && ! elf_x86_64_check_tls_transition (abfd, info, sec, contents,
1514 symtab_hdr, sym_hashes,
1515 from_type, rel, relend))
1516 {
1517 reloc_howto_type *from, *to;
1518 const char *name;
1519
1520 from = elf_x86_64_rtype_to_howto (abfd, from_type);
1521 to = elf_x86_64_rtype_to_howto (abfd, to_type);
1522
1523 if (h)
1524 name = h->root.root.string;
1525 else
1526 {
1527 struct elf_x86_64_link_hash_table *htab;
1528
1529 htab = elf_x86_64_hash_table (info);
1530 if (htab == NULL)
1531 name = "*unknown*";
1532 else
1533 {
1534 Elf_Internal_Sym *isym;
1535
1536 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1537 abfd, r_symndx);
1538 name = bfd_elf_sym_name (abfd, symtab_hdr, isym, NULL);
1539 }
1540 }
1541
1542 (*_bfd_error_handler)
1543 (_("%B: TLS transition from %s to %s against `%s' at 0x%lx "
1544 "in section `%A' failed"),
1545 abfd, sec, from->name, to->name, name,
1546 (unsigned long) rel->r_offset);
1547 bfd_set_error (bfd_error_bad_value);
1548 return FALSE;
1549 }
1550
1551 *r_type = to_type;
1552 return TRUE;
1553 }
1554
1555 /* Rename some of the generic section flags to better document how they
1556 are used here. */
1557 #define need_convert_load sec_flg0
1558
1559 /* Look through the relocs for a section during the first phase, and
1560 calculate needed space in the global offset table, procedure
1561 linkage table, and dynamic reloc sections. */
1562
1563 static bfd_boolean
1564 elf_x86_64_check_relocs (bfd *abfd, struct bfd_link_info *info,
1565 asection *sec,
1566 const Elf_Internal_Rela *relocs)
1567 {
1568 struct elf_x86_64_link_hash_table *htab;
1569 Elf_Internal_Shdr *symtab_hdr;
1570 struct elf_link_hash_entry **sym_hashes;
1571 const Elf_Internal_Rela *rel;
1572 const Elf_Internal_Rela *rel_end;
1573 asection *sreloc;
1574 bfd_boolean use_plt_got;
1575
1576 if (bfd_link_relocatable (info))
1577 return TRUE;
1578
1579 BFD_ASSERT (is_x86_64_elf (abfd));
1580
1581 htab = elf_x86_64_hash_table (info);
1582 if (htab == NULL)
1583 return FALSE;
1584
1585 use_plt_got = get_elf_x86_64_backend_data (abfd) == &elf_x86_64_arch_bed;
1586
1587 symtab_hdr = &elf_symtab_hdr (abfd);
1588 sym_hashes = elf_sym_hashes (abfd);
1589
1590 sreloc = NULL;
1591
1592 rel_end = relocs + sec->reloc_count;
1593 for (rel = relocs; rel < rel_end; rel++)
1594 {
1595 unsigned int r_type;
1596 unsigned long r_symndx;
1597 struct elf_link_hash_entry *h;
1598 Elf_Internal_Sym *isym;
1599 const char *name;
1600 bfd_boolean size_reloc;
1601
1602 r_symndx = htab->r_sym (rel->r_info);
1603 r_type = ELF32_R_TYPE (rel->r_info);
1604
1605 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
1606 {
1607 (*_bfd_error_handler) (_("%B: bad symbol index: %d"),
1608 abfd, r_symndx);
1609 return FALSE;
1610 }
1611
1612 if (r_symndx < symtab_hdr->sh_info)
1613 {
1614 /* A local symbol. */
1615 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1616 abfd, r_symndx);
1617 if (isym == NULL)
1618 return FALSE;
1619
1620 /* Check relocation against local STT_GNU_IFUNC symbol. */
1621 if (ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
1622 {
1623 h = elf_x86_64_get_local_sym_hash (htab, abfd, rel,
1624 TRUE);
1625 if (h == NULL)
1626 return FALSE;
1627
1628 /* Fake a STT_GNU_IFUNC symbol. */
1629 h->type = STT_GNU_IFUNC;
1630 h->def_regular = 1;
1631 h->ref_regular = 1;
1632 h->forced_local = 1;
1633 h->root.type = bfd_link_hash_defined;
1634 }
1635 else
1636 h = NULL;
1637 }
1638 else
1639 {
1640 isym = NULL;
1641 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1642 while (h->root.type == bfd_link_hash_indirect
1643 || h->root.type == bfd_link_hash_warning)
1644 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1645 }
1646
1647 /* Check invalid x32 relocations. */
1648 if (!ABI_64_P (abfd))
1649 switch (r_type)
1650 {
1651 default:
1652 break;
1653
1654 case R_X86_64_DTPOFF64:
1655 case R_X86_64_TPOFF64:
1656 case R_X86_64_PC64:
1657 case R_X86_64_GOTOFF64:
1658 case R_X86_64_GOT64:
1659 case R_X86_64_GOTPCREL64:
1660 case R_X86_64_GOTPC64:
1661 case R_X86_64_GOTPLT64:
1662 case R_X86_64_PLTOFF64:
1663 {
1664 if (h)
1665 name = h->root.root.string;
1666 else
1667 name = bfd_elf_sym_name (abfd, symtab_hdr, isym,
1668 NULL);
1669 (*_bfd_error_handler)
1670 (_("%B: relocation %s against symbol `%s' isn't "
1671 "supported in x32 mode"), abfd,
1672 x86_64_elf_howto_table[r_type].name, name);
1673 bfd_set_error (bfd_error_bad_value);
1674 return FALSE;
1675 }
1676 break;
1677 }
1678
1679 if (h != NULL)
1680 {
1681 /* Create the ifunc sections for static executables. If we
1682 never see an indirect function symbol nor we are building
1683 a static executable, those sections will be empty and
1684 won't appear in output. */
1685 switch (r_type)
1686 {
1687 default:
1688 break;
1689
1690 case R_X86_64_PC32_BND:
1691 case R_X86_64_PLT32_BND:
1692 case R_X86_64_PC32:
1693 case R_X86_64_PLT32:
1694 case R_X86_64_32:
1695 case R_X86_64_64:
1696 /* MPX PLT is supported only if elf_x86_64_arch_bed
1697 is used in 64-bit mode. */
1698 if (ABI_64_P (abfd)
1699 && info->bndplt
1700 && (get_elf_x86_64_backend_data (abfd)
1701 == &elf_x86_64_arch_bed))
1702 {
1703 elf_x86_64_hash_entry (h)->has_bnd_reloc = 1;
1704
1705 /* Create the second PLT for Intel MPX support. */
1706 if (htab->plt_bnd == NULL)
1707 {
1708 unsigned int plt_bnd_align;
1709 const struct elf_backend_data *bed;
1710
1711 bed = get_elf_backend_data (info->output_bfd);
1712 BFD_ASSERT (sizeof (elf_x86_64_bnd_plt2_entry) == 8
1713 && (sizeof (elf_x86_64_bnd_plt2_entry)
1714 == sizeof (elf_x86_64_legacy_plt2_entry)));
1715 plt_bnd_align = 3;
1716
1717 if (htab->elf.dynobj == NULL)
1718 htab->elf.dynobj = abfd;
1719 htab->plt_bnd
1720 = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
1721 ".plt.bnd",
1722 (bed->dynamic_sec_flags
1723 | SEC_ALLOC
1724 | SEC_CODE
1725 | SEC_LOAD
1726 | SEC_READONLY));
1727 if (htab->plt_bnd == NULL
1728 || !bfd_set_section_alignment (htab->elf.dynobj,
1729 htab->plt_bnd,
1730 plt_bnd_align))
1731 return FALSE;
1732 }
1733 }
1734
1735 case R_X86_64_32S:
1736 case R_X86_64_PC64:
1737 case R_X86_64_GOTPCREL:
1738 case R_X86_64_GOTPCRELX:
1739 case R_X86_64_REX_GOTPCRELX:
1740 case R_X86_64_GOTPCREL64:
1741 if (htab->elf.dynobj == NULL)
1742 htab->elf.dynobj = abfd;
1743 if (!_bfd_elf_create_ifunc_sections (htab->elf.dynobj, info))
1744 return FALSE;
1745 break;
1746 }
1747
1748 /* It is referenced by a non-shared object. */
1749 h->ref_regular = 1;
1750 h->root.non_ir_ref = 1;
1751
1752 if (h->type == STT_GNU_IFUNC)
1753 elf_tdata (info->output_bfd)->has_gnu_symbols
1754 |= elf_gnu_symbol_ifunc;
1755 }
1756
1757 if (! elf_x86_64_tls_transition (info, abfd, sec, NULL,
1758 symtab_hdr, sym_hashes,
1759 &r_type, GOT_UNKNOWN,
1760 rel, rel_end, h, r_symndx))
1761 return FALSE;
1762
1763 switch (r_type)
1764 {
1765 case R_X86_64_TLSLD:
1766 htab->tls_ld_got.refcount += 1;
1767 goto create_got;
1768
1769 case R_X86_64_TPOFF32:
1770 if (!bfd_link_executable (info) && ABI_64_P (abfd))
1771 {
1772 if (h)
1773 name = h->root.root.string;
1774 else
1775 name = bfd_elf_sym_name (abfd, symtab_hdr, isym,
1776 NULL);
1777 (*_bfd_error_handler)
1778 (_("%B: relocation %s against `%s' can not be used when making a shared object; recompile with -fPIC"),
1779 abfd,
1780 x86_64_elf_howto_table[r_type].name, name);
1781 bfd_set_error (bfd_error_bad_value);
1782 return FALSE;
1783 }
1784 break;
1785
1786 case R_X86_64_GOTTPOFF:
1787 if (!bfd_link_executable (info))
1788 info->flags |= DF_STATIC_TLS;
1789 /* Fall through */
1790
1791 case R_X86_64_GOT32:
1792 case R_X86_64_GOTPCREL:
1793 case R_X86_64_GOTPCRELX:
1794 case R_X86_64_REX_GOTPCRELX:
1795 case R_X86_64_TLSGD:
1796 case R_X86_64_GOT64:
1797 case R_X86_64_GOTPCREL64:
1798 case R_X86_64_GOTPLT64:
1799 case R_X86_64_GOTPC32_TLSDESC:
1800 case R_X86_64_TLSDESC_CALL:
1801 /* This symbol requires a global offset table entry. */
1802 {
1803 int tls_type, old_tls_type;
1804
1805 switch (r_type)
1806 {
1807 default: tls_type = GOT_NORMAL; break;
1808 case R_X86_64_TLSGD: tls_type = GOT_TLS_GD; break;
1809 case R_X86_64_GOTTPOFF: tls_type = GOT_TLS_IE; break;
1810 case R_X86_64_GOTPC32_TLSDESC:
1811 case R_X86_64_TLSDESC_CALL:
1812 tls_type = GOT_TLS_GDESC; break;
1813 }
1814
1815 if (h != NULL)
1816 {
1817 h->got.refcount += 1;
1818 old_tls_type = elf_x86_64_hash_entry (h)->tls_type;
1819 }
1820 else
1821 {
1822 bfd_signed_vma *local_got_refcounts;
1823
1824 /* This is a global offset table entry for a local symbol. */
1825 local_got_refcounts = elf_local_got_refcounts (abfd);
1826 if (local_got_refcounts == NULL)
1827 {
1828 bfd_size_type size;
1829
1830 size = symtab_hdr->sh_info;
1831 size *= sizeof (bfd_signed_vma)
1832 + sizeof (bfd_vma) + sizeof (char);
1833 local_got_refcounts = ((bfd_signed_vma *)
1834 bfd_zalloc (abfd, size));
1835 if (local_got_refcounts == NULL)
1836 return FALSE;
1837 elf_local_got_refcounts (abfd) = local_got_refcounts;
1838 elf_x86_64_local_tlsdesc_gotent (abfd)
1839 = (bfd_vma *) (local_got_refcounts + symtab_hdr->sh_info);
1840 elf_x86_64_local_got_tls_type (abfd)
1841 = (char *) (local_got_refcounts + 2 * symtab_hdr->sh_info);
1842 }
1843 local_got_refcounts[r_symndx] += 1;
1844 old_tls_type
1845 = elf_x86_64_local_got_tls_type (abfd) [r_symndx];
1846 }
1847
1848 /* If a TLS symbol is accessed using IE at least once,
1849 there is no point to use dynamic model for it. */
1850 if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
1851 && (! GOT_TLS_GD_ANY_P (old_tls_type)
1852 || tls_type != GOT_TLS_IE))
1853 {
1854 if (old_tls_type == GOT_TLS_IE && GOT_TLS_GD_ANY_P (tls_type))
1855 tls_type = old_tls_type;
1856 else if (GOT_TLS_GD_ANY_P (old_tls_type)
1857 && GOT_TLS_GD_ANY_P (tls_type))
1858 tls_type |= old_tls_type;
1859 else
1860 {
1861 if (h)
1862 name = h->root.root.string;
1863 else
1864 name = bfd_elf_sym_name (abfd, symtab_hdr,
1865 isym, NULL);
1866 (*_bfd_error_handler)
1867 (_("%B: '%s' accessed both as normal and thread local symbol"),
1868 abfd, name);
1869 bfd_set_error (bfd_error_bad_value);
1870 return FALSE;
1871 }
1872 }
1873
1874 if (old_tls_type != tls_type)
1875 {
1876 if (h != NULL)
1877 elf_x86_64_hash_entry (h)->tls_type = tls_type;
1878 else
1879 elf_x86_64_local_got_tls_type (abfd) [r_symndx] = tls_type;
1880 }
1881 }
1882 /* Fall through */
1883
1884 case R_X86_64_GOTOFF64:
1885 case R_X86_64_GOTPC32:
1886 case R_X86_64_GOTPC64:
1887 create_got:
1888 if (htab->elf.sgot == NULL)
1889 {
1890 if (htab->elf.dynobj == NULL)
1891 htab->elf.dynobj = abfd;
1892 if (!_bfd_elf_create_got_section (htab->elf.dynobj,
1893 info))
1894 return FALSE;
1895 }
1896 break;
1897
1898 case R_X86_64_PLT32:
1899 case R_X86_64_PLT32_BND:
1900 /* This symbol requires a procedure linkage table entry. We
1901 actually build the entry in adjust_dynamic_symbol,
1902 because this might be a case of linking PIC code which is
1903 never referenced by a dynamic object, in which case we
1904 don't need to generate a procedure linkage table entry
1905 after all. */
1906
1907 /* If this is a local symbol, we resolve it directly without
1908 creating a procedure linkage table entry. */
1909 if (h == NULL)
1910 continue;
1911
1912 h->needs_plt = 1;
1913 h->plt.refcount += 1;
1914 break;
1915
1916 case R_X86_64_PLTOFF64:
1917 /* This tries to form the 'address' of a function relative
1918 to GOT. For global symbols we need a PLT entry. */
1919 if (h != NULL)
1920 {
1921 h->needs_plt = 1;
1922 h->plt.refcount += 1;
1923 }
1924 goto create_got;
1925
1926 case R_X86_64_SIZE32:
1927 case R_X86_64_SIZE64:
1928 size_reloc = TRUE;
1929 goto do_size;
1930
1931 case R_X86_64_32:
1932 if (!ABI_64_P (abfd))
1933 goto pointer;
1934 case R_X86_64_8:
1935 case R_X86_64_16:
1936 case R_X86_64_32S:
1937 /* Let's help debug shared library creation. These relocs
1938 cannot be used in shared libs. Don't error out for
1939 sections we don't care about, such as debug sections or
1940 non-constant sections. */
1941 if (bfd_link_pic (info)
1942 && (sec->flags & SEC_ALLOC) != 0
1943 && (sec->flags & SEC_READONLY) != 0)
1944 {
1945 if (h)
1946 name = h->root.root.string;
1947 else
1948 name = bfd_elf_sym_name (abfd, symtab_hdr, isym, NULL);
1949 (*_bfd_error_handler)
1950 (_("%B: relocation %s against `%s' can not be used when making a shared object; recompile with -fPIC"),
1951 abfd, x86_64_elf_howto_table[r_type].name, name);
1952 bfd_set_error (bfd_error_bad_value);
1953 return FALSE;
1954 }
1955 /* Fall through. */
1956
1957 case R_X86_64_PC8:
1958 case R_X86_64_PC16:
1959 case R_X86_64_PC32:
1960 case R_X86_64_PC32_BND:
1961 case R_X86_64_PC64:
1962 case R_X86_64_64:
1963 pointer:
1964 if (h != NULL && bfd_link_executable (info))
1965 {
1966 /* If this reloc is in a read-only section, we might
1967 need a copy reloc. We can't check reliably at this
1968 stage whether the section is read-only, as input
1969 sections have not yet been mapped to output sections.
1970 Tentatively set the flag for now, and correct in
1971 adjust_dynamic_symbol. */
1972 h->non_got_ref = 1;
1973
1974 /* We may need a .plt entry if the function this reloc
1975 refers to is in a shared lib. */
1976 h->plt.refcount += 1;
1977 if (r_type == R_X86_64_PC32)
1978 {
1979 /* Since something like ".long foo - ." may be used
1980 as pointer, make sure that PLT is used if foo is
1981 a function defined in a shared library. */
1982 if ((sec->flags & SEC_CODE) == 0)
1983 h->pointer_equality_needed = 1;
1984 }
1985 else if (r_type != R_X86_64_PC32_BND
1986 && r_type != R_X86_64_PC64)
1987 {
1988 h->pointer_equality_needed = 1;
1989 /* At run-time, R_X86_64_64 can be resolved for both
1990 x86-64 and x32. But R_X86_64_32 and R_X86_64_32S
1991 can only be resolved for x32. */
1992 if ((sec->flags & SEC_READONLY) == 0
1993 && (r_type == R_X86_64_64
1994 || (!ABI_64_P (abfd)
1995 && (r_type == R_X86_64_32
1996 || r_type == R_X86_64_32S))))
1997 {
1998 struct elf_x86_64_link_hash_entry *eh
1999 = (struct elf_x86_64_link_hash_entry *) h;
2000 eh->func_pointer_refcount += 1;
2001 }
2002 }
2003 }
2004
2005 size_reloc = FALSE;
2006 do_size:
2007 /* If we are creating a shared library, and this is a reloc
2008 against a global symbol, or a non PC relative reloc
2009 against a local symbol, then we need to copy the reloc
2010 into the shared library. However, if we are linking with
2011 -Bsymbolic, we do not need to copy a reloc against a
2012 global symbol which is defined in an object we are
2013 including in the link (i.e., DEF_REGULAR is set). At
2014 this point we have not seen all the input files, so it is
2015 possible that DEF_REGULAR is not set now but will be set
2016 later (it is never cleared). In case of a weak definition,
2017 DEF_REGULAR may be cleared later by a strong definition in
2018 a shared library. We account for that possibility below by
2019 storing information in the relocs_copied field of the hash
2020 table entry. A similar situation occurs when creating
2021 shared libraries and symbol visibility changes render the
2022 symbol local.
2023
2024 If on the other hand, we are creating an executable, we
2025 may need to keep relocations for symbols satisfied by a
2026 dynamic library if we manage to avoid copy relocs for the
2027 symbol. */
2028 if ((bfd_link_pic (info)
2029 && (sec->flags & SEC_ALLOC) != 0
2030 && (! IS_X86_64_PCREL_TYPE (r_type)
2031 || (h != NULL
2032 && (! SYMBOLIC_BIND (info, h)
2033 || h->root.type == bfd_link_hash_defweak
2034 || !h->def_regular))))
2035 || (ELIMINATE_COPY_RELOCS
2036 && !bfd_link_pic (info)
2037 && (sec->flags & SEC_ALLOC) != 0
2038 && h != NULL
2039 && (h->root.type == bfd_link_hash_defweak
2040 || !h->def_regular)))
2041 {
2042 struct elf_dyn_relocs *p;
2043 struct elf_dyn_relocs **head;
2044
2045 /* We must copy these reloc types into the output file.
2046 Create a reloc section in dynobj and make room for
2047 this reloc. */
2048 if (sreloc == NULL)
2049 {
2050 if (htab->elf.dynobj == NULL)
2051 htab->elf.dynobj = abfd;
2052
2053 sreloc = _bfd_elf_make_dynamic_reloc_section
2054 (sec, htab->elf.dynobj, ABI_64_P (abfd) ? 3 : 2,
2055 abfd, /*rela?*/ TRUE);
2056
2057 if (sreloc == NULL)
2058 return FALSE;
2059 }
2060
2061 /* If this is a global symbol, we count the number of
2062 relocations we need for this symbol. */
2063 if (h != NULL)
2064 {
2065 head = &((struct elf_x86_64_link_hash_entry *) h)->dyn_relocs;
2066 }
2067 else
2068 {
2069 /* Track dynamic relocs needed for local syms too.
2070 We really need local syms available to do this
2071 easily. Oh well. */
2072 asection *s;
2073 void **vpp;
2074
2075 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
2076 abfd, r_symndx);
2077 if (isym == NULL)
2078 return FALSE;
2079
2080 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
2081 if (s == NULL)
2082 s = sec;
2083
2084 /* Beware of type punned pointers vs strict aliasing
2085 rules. */
2086 vpp = &(elf_section_data (s)->local_dynrel);
2087 head = (struct elf_dyn_relocs **)vpp;
2088 }
2089
2090 p = *head;
2091 if (p == NULL || p->sec != sec)
2092 {
2093 bfd_size_type amt = sizeof *p;
2094
2095 p = ((struct elf_dyn_relocs *)
2096 bfd_alloc (htab->elf.dynobj, amt));
2097 if (p == NULL)
2098 return FALSE;
2099 p->next = *head;
2100 *head = p;
2101 p->sec = sec;
2102 p->count = 0;
2103 p->pc_count = 0;
2104 }
2105
2106 p->count += 1;
2107 /* Count size relocation as PC-relative relocation. */
2108 if (IS_X86_64_PCREL_TYPE (r_type) || size_reloc)
2109 p->pc_count += 1;
2110 }
2111 break;
2112
2113 /* This relocation describes the C++ object vtable hierarchy.
2114 Reconstruct it for later use during GC. */
2115 case R_X86_64_GNU_VTINHERIT:
2116 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2117 return FALSE;
2118 break;
2119
2120 /* This relocation describes which C++ vtable entries are actually
2121 used. Record for later use during GC. */
2122 case R_X86_64_GNU_VTENTRY:
2123 BFD_ASSERT (h != NULL);
2124 if (h != NULL
2125 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2126 return FALSE;
2127 break;
2128
2129 default:
2130 break;
2131 }
2132
2133 if (use_plt_got
2134 && h != NULL
2135 && h->plt.refcount > 0
2136 && (((info->flags & DF_BIND_NOW) && !h->pointer_equality_needed)
2137 || h->got.refcount > 0)
2138 && htab->plt_got == NULL)
2139 {
2140 /* Create the GOT procedure linkage table. */
2141 unsigned int plt_got_align;
2142 const struct elf_backend_data *bed;
2143
2144 bed = get_elf_backend_data (info->output_bfd);
2145 BFD_ASSERT (sizeof (elf_x86_64_legacy_plt2_entry) == 8
2146 && (sizeof (elf_x86_64_bnd_plt2_entry)
2147 == sizeof (elf_x86_64_legacy_plt2_entry)));
2148 plt_got_align = 3;
2149
2150 if (htab->elf.dynobj == NULL)
2151 htab->elf.dynobj = abfd;
2152 htab->plt_got
2153 = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
2154 ".plt.got",
2155 (bed->dynamic_sec_flags
2156 | SEC_ALLOC
2157 | SEC_CODE
2158 | SEC_LOAD
2159 | SEC_READONLY));
2160 if (htab->plt_got == NULL
2161 || !bfd_set_section_alignment (htab->elf.dynobj,
2162 htab->plt_got,
2163 plt_got_align))
2164 return FALSE;
2165 }
2166
2167 if ((r_type == R_X86_64_GOTPCREL
2168 || r_type == R_X86_64_GOTPCRELX
2169 || r_type == R_X86_64_REX_GOTPCRELX)
2170 && (h == NULL || h->type != STT_GNU_IFUNC))
2171 sec->need_convert_load = 1;
2172 }
2173
2174 return TRUE;
2175 }
2176
2177 /* Return the section that should be marked against GC for a given
2178 relocation. */
2179
2180 static asection *
2181 elf_x86_64_gc_mark_hook (asection *sec,
2182 struct bfd_link_info *info,
2183 Elf_Internal_Rela *rel,
2184 struct elf_link_hash_entry *h,
2185 Elf_Internal_Sym *sym)
2186 {
2187 if (h != NULL)
2188 switch (ELF32_R_TYPE (rel->r_info))
2189 {
2190 case R_X86_64_GNU_VTINHERIT:
2191 case R_X86_64_GNU_VTENTRY:
2192 return NULL;
2193 }
2194
2195 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2196 }
2197
2198 /* Update the got entry reference counts for the section being removed. */
2199
2200 static bfd_boolean
2201 elf_x86_64_gc_sweep_hook (bfd *abfd, struct bfd_link_info *info,
2202 asection *sec,
2203 const Elf_Internal_Rela *relocs)
2204 {
2205 struct elf_x86_64_link_hash_table *htab;
2206 Elf_Internal_Shdr *symtab_hdr;
2207 struct elf_link_hash_entry **sym_hashes;
2208 bfd_signed_vma *local_got_refcounts;
2209 const Elf_Internal_Rela *rel, *relend;
2210
2211 if (bfd_link_relocatable (info))
2212 return TRUE;
2213
2214 htab = elf_x86_64_hash_table (info);
2215 if (htab == NULL)
2216 return FALSE;
2217
2218 elf_section_data (sec)->local_dynrel = NULL;
2219
2220 symtab_hdr = &elf_symtab_hdr (abfd);
2221 sym_hashes = elf_sym_hashes (abfd);
2222 local_got_refcounts = elf_local_got_refcounts (abfd);
2223
2224 htab = elf_x86_64_hash_table (info);
2225 relend = relocs + sec->reloc_count;
2226 for (rel = relocs; rel < relend; rel++)
2227 {
2228 unsigned long r_symndx;
2229 unsigned int r_type;
2230 struct elf_link_hash_entry *h = NULL;
2231 bfd_boolean pointer_reloc;
2232
2233 r_symndx = htab->r_sym (rel->r_info);
2234 if (r_symndx >= symtab_hdr->sh_info)
2235 {
2236 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2237 while (h->root.type == bfd_link_hash_indirect
2238 || h->root.type == bfd_link_hash_warning)
2239 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2240 }
2241 else
2242 {
2243 /* A local symbol. */
2244 Elf_Internal_Sym *isym;
2245
2246 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
2247 abfd, r_symndx);
2248
2249 /* Check relocation against local STT_GNU_IFUNC symbol. */
2250 if (isym != NULL
2251 && ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
2252 {
2253 h = elf_x86_64_get_local_sym_hash (htab, abfd, rel, FALSE);
2254 if (h == NULL)
2255 abort ();
2256 }
2257 }
2258
2259 if (h)
2260 {
2261 struct elf_x86_64_link_hash_entry *eh;
2262 struct elf_dyn_relocs **pp;
2263 struct elf_dyn_relocs *p;
2264
2265 eh = (struct elf_x86_64_link_hash_entry *) h;
2266
2267 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
2268 if (p->sec == sec)
2269 {
2270 /* Everything must go for SEC. */
2271 *pp = p->next;
2272 break;
2273 }
2274 }
2275
2276 r_type = ELF32_R_TYPE (rel->r_info);
2277 if (! elf_x86_64_tls_transition (info, abfd, sec, NULL,
2278 symtab_hdr, sym_hashes,
2279 &r_type, GOT_UNKNOWN,
2280 rel, relend, h, r_symndx))
2281 return FALSE;
2282
2283 pointer_reloc = FALSE;
2284 switch (r_type)
2285 {
2286 case R_X86_64_TLSLD:
2287 if (htab->tls_ld_got.refcount > 0)
2288 htab->tls_ld_got.refcount -= 1;
2289 break;
2290
2291 case R_X86_64_TLSGD:
2292 case R_X86_64_GOTPC32_TLSDESC:
2293 case R_X86_64_TLSDESC_CALL:
2294 case R_X86_64_GOTTPOFF:
2295 case R_X86_64_GOT32:
2296 case R_X86_64_GOTPCREL:
2297 case R_X86_64_GOTPCRELX:
2298 case R_X86_64_REX_GOTPCRELX:
2299 case R_X86_64_GOT64:
2300 case R_X86_64_GOTPCREL64:
2301 case R_X86_64_GOTPLT64:
2302 if (h != NULL)
2303 {
2304 if (h->got.refcount > 0)
2305 h->got.refcount -= 1;
2306 if (h->type == STT_GNU_IFUNC)
2307 {
2308 if (h->plt.refcount > 0)
2309 h->plt.refcount -= 1;
2310 }
2311 }
2312 else if (local_got_refcounts != NULL)
2313 {
2314 if (local_got_refcounts[r_symndx] > 0)
2315 local_got_refcounts[r_symndx] -= 1;
2316 }
2317 break;
2318
2319 case R_X86_64_32:
2320 case R_X86_64_32S:
2321 pointer_reloc = !ABI_64_P (abfd);
2322 goto pointer;
2323
2324 case R_X86_64_64:
2325 pointer_reloc = TRUE;
2326 case R_X86_64_8:
2327 case R_X86_64_16:
2328 case R_X86_64_PC8:
2329 case R_X86_64_PC16:
2330 case R_X86_64_PC32:
2331 case R_X86_64_PC32_BND:
2332 case R_X86_64_PC64:
2333 case R_X86_64_SIZE32:
2334 case R_X86_64_SIZE64:
2335 pointer:
2336 if (bfd_link_pic (info)
2337 && (h == NULL || h->type != STT_GNU_IFUNC))
2338 break;
2339 /* Fall thru */
2340
2341 case R_X86_64_PLT32:
2342 case R_X86_64_PLT32_BND:
2343 case R_X86_64_PLTOFF64:
2344 if (h != NULL)
2345 {
2346 if (h->plt.refcount > 0)
2347 h->plt.refcount -= 1;
2348 if (pointer_reloc && (sec->flags & SEC_READONLY) == 0)
2349 {
2350 struct elf_x86_64_link_hash_entry *eh
2351 = (struct elf_x86_64_link_hash_entry *) h;
2352 if (eh->func_pointer_refcount > 0)
2353 eh->func_pointer_refcount -= 1;
2354 }
2355 }
2356 break;
2357
2358 default:
2359 break;
2360 }
2361 }
2362
2363 return TRUE;
2364 }
2365
2366 /* Adjust a symbol defined by a dynamic object and referenced by a
2367 regular object. The current definition is in some section of the
2368 dynamic object, but we're not including those sections. We have to
2369 change the definition to something the rest of the link can
2370 understand. */
2371
2372 static bfd_boolean
2373 elf_x86_64_adjust_dynamic_symbol (struct bfd_link_info *info,
2374 struct elf_link_hash_entry *h)
2375 {
2376 struct elf_x86_64_link_hash_table *htab;
2377 asection *s;
2378 struct elf_x86_64_link_hash_entry *eh;
2379 struct elf_dyn_relocs *p;
2380
2381 /* STT_GNU_IFUNC symbol must go through PLT. */
2382 if (h->type == STT_GNU_IFUNC)
2383 {
2384 /* All local STT_GNU_IFUNC references must be treate as local
2385 calls via local PLT. */
2386 if (h->ref_regular
2387 && SYMBOL_CALLS_LOCAL (info, h))
2388 {
2389 bfd_size_type pc_count = 0, count = 0;
2390 struct elf_dyn_relocs **pp;
2391
2392 eh = (struct elf_x86_64_link_hash_entry *) h;
2393 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2394 {
2395 pc_count += p->pc_count;
2396 p->count -= p->pc_count;
2397 p->pc_count = 0;
2398 count += p->count;
2399 if (p->count == 0)
2400 *pp = p->next;
2401 else
2402 pp = &p->next;
2403 }
2404
2405 if (pc_count || count)
2406 {
2407 h->needs_plt = 1;
2408 h->non_got_ref = 1;
2409 if (h->plt.refcount <= 0)
2410 h->plt.refcount = 1;
2411 else
2412 h->plt.refcount += 1;
2413 }
2414 }
2415
2416 if (h->plt.refcount <= 0)
2417 {
2418 h->plt.offset = (bfd_vma) -1;
2419 h->needs_plt = 0;
2420 }
2421 return TRUE;
2422 }
2423
2424 /* If this is a function, put it in the procedure linkage table. We
2425 will fill in the contents of the procedure linkage table later,
2426 when we know the address of the .got section. */
2427 if (h->type == STT_FUNC
2428 || h->needs_plt)
2429 {
2430 if (h->plt.refcount <= 0
2431 || SYMBOL_CALLS_LOCAL (info, h)
2432 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2433 && h->root.type == bfd_link_hash_undefweak))
2434 {
2435 /* This case can occur if we saw a PLT32 reloc in an input
2436 file, but the symbol was never referred to by a dynamic
2437 object, or if all references were garbage collected. In
2438 such a case, we don't actually need to build a procedure
2439 linkage table, and we can just do a PC32 reloc instead. */
2440 h->plt.offset = (bfd_vma) -1;
2441 h->needs_plt = 0;
2442 }
2443
2444 return TRUE;
2445 }
2446 else
2447 /* It's possible that we incorrectly decided a .plt reloc was
2448 needed for an R_X86_64_PC32 reloc to a non-function sym in
2449 check_relocs. We can't decide accurately between function and
2450 non-function syms in check-relocs; Objects loaded later in
2451 the link may change h->type. So fix it now. */
2452 h->plt.offset = (bfd_vma) -1;
2453
2454 /* If this is a weak symbol, and there is a real definition, the
2455 processor independent code will have arranged for us to see the
2456 real definition first, and we can just use the same value. */
2457 if (h->u.weakdef != NULL)
2458 {
2459 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
2460 || h->u.weakdef->root.type == bfd_link_hash_defweak);
2461 h->root.u.def.section = h->u.weakdef->root.u.def.section;
2462 h->root.u.def.value = h->u.weakdef->root.u.def.value;
2463 if (ELIMINATE_COPY_RELOCS || info->nocopyreloc)
2464 {
2465 eh = (struct elf_x86_64_link_hash_entry *) h;
2466 h->non_got_ref = h->u.weakdef->non_got_ref;
2467 eh->needs_copy = h->u.weakdef->needs_copy;
2468 }
2469 return TRUE;
2470 }
2471
2472 /* This is a reference to a symbol defined by a dynamic object which
2473 is not a function. */
2474
2475 /* If we are creating a shared library, we must presume that the
2476 only references to the symbol are via the global offset table.
2477 For such cases we need not do anything here; the relocations will
2478 be handled correctly by relocate_section. */
2479 if (!bfd_link_executable (info))
2480 return TRUE;
2481
2482 /* If there are no references to this symbol that do not use the
2483 GOT, we don't need to generate a copy reloc. */
2484 if (!h->non_got_ref)
2485 return TRUE;
2486
2487 /* If -z nocopyreloc was given, we won't generate them either. */
2488 if (info->nocopyreloc)
2489 {
2490 h->non_got_ref = 0;
2491 return TRUE;
2492 }
2493
2494 if (ELIMINATE_COPY_RELOCS)
2495 {
2496 eh = (struct elf_x86_64_link_hash_entry *) h;
2497 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2498 {
2499 s = p->sec->output_section;
2500 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2501 break;
2502 }
2503
2504 /* If we didn't find any dynamic relocs in read-only sections, then
2505 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
2506 if (p == NULL)
2507 {
2508 h->non_got_ref = 0;
2509 return TRUE;
2510 }
2511 }
2512
2513 /* We must allocate the symbol in our .dynbss section, which will
2514 become part of the .bss section of the executable. There will be
2515 an entry for this symbol in the .dynsym section. The dynamic
2516 object will contain position independent code, so all references
2517 from the dynamic object to this symbol will go through the global
2518 offset table. The dynamic linker will use the .dynsym entry to
2519 determine the address it must put in the global offset table, so
2520 both the dynamic object and the regular object will refer to the
2521 same memory location for the variable. */
2522
2523 htab = elf_x86_64_hash_table (info);
2524 if (htab == NULL)
2525 return FALSE;
2526
2527 /* We must generate a R_X86_64_COPY reloc to tell the dynamic linker
2528 to copy the initial value out of the dynamic object and into the
2529 runtime process image. */
2530 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
2531 {
2532 const struct elf_backend_data *bed;
2533 bed = get_elf_backend_data (info->output_bfd);
2534 htab->srelbss->size += bed->s->sizeof_rela;
2535 h->needs_copy = 1;
2536 }
2537
2538 s = htab->sdynbss;
2539
2540 return _bfd_elf_adjust_dynamic_copy (info, h, s);
2541 }
2542
2543 /* Allocate space in .plt, .got and associated reloc sections for
2544 dynamic relocs. */
2545
2546 static bfd_boolean
2547 elf_x86_64_allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
2548 {
2549 struct bfd_link_info *info;
2550 struct elf_x86_64_link_hash_table *htab;
2551 struct elf_x86_64_link_hash_entry *eh;
2552 struct elf_dyn_relocs *p;
2553 const struct elf_backend_data *bed;
2554 unsigned int plt_entry_size;
2555
2556 if (h->root.type == bfd_link_hash_indirect)
2557 return TRUE;
2558
2559 eh = (struct elf_x86_64_link_hash_entry *) h;
2560
2561 info = (struct bfd_link_info *) inf;
2562 htab = elf_x86_64_hash_table (info);
2563 if (htab == NULL)
2564 return FALSE;
2565 bed = get_elf_backend_data (info->output_bfd);
2566 plt_entry_size = GET_PLT_ENTRY_SIZE (info->output_bfd);
2567
2568 /* We can't use the GOT PLT if pointer equality is needed since
2569 finish_dynamic_symbol won't clear symbol value and the dynamic
2570 linker won't update the GOT slot. We will get into an infinite
2571 loop at run-time. */
2572 if (htab->plt_got != NULL
2573 && h->type != STT_GNU_IFUNC
2574 && !h->pointer_equality_needed
2575 && h->plt.refcount > 0
2576 && h->got.refcount > 0)
2577 {
2578 /* Don't use the regular PLT if there are both GOT and GOTPLT
2579 reloctions. */
2580 h->plt.offset = (bfd_vma) -1;
2581
2582 /* Use the GOT PLT. */
2583 eh->plt_got.refcount = 1;
2584 }
2585
2586 /* Clear the reference count of function pointer relocations if
2587 symbol isn't a normal function. */
2588 if (h->type != STT_FUNC)
2589 eh->func_pointer_refcount = 0;
2590
2591 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle it
2592 here if it is defined and referenced in a non-shared object. */
2593 if (h->type == STT_GNU_IFUNC
2594 && h->def_regular)
2595 {
2596 if (_bfd_elf_allocate_ifunc_dyn_relocs (info, h,
2597 &eh->dyn_relocs,
2598 plt_entry_size,
2599 plt_entry_size,
2600 GOT_ENTRY_SIZE))
2601 {
2602 asection *s = htab->plt_bnd;
2603 if (h->plt.offset != (bfd_vma) -1 && s != NULL)
2604 {
2605 /* Use the .plt.bnd section if it is created. */
2606 eh->plt_bnd.offset = s->size;
2607
2608 /* Make room for this entry in the .plt.bnd section. */
2609 s->size += sizeof (elf_x86_64_legacy_plt2_entry);
2610 }
2611
2612 return TRUE;
2613 }
2614 else
2615 return FALSE;
2616 }
2617 /* Don't create the PLT entry if there are only function pointer
2618 relocations which can be resolved at run-time. */
2619 else if (htab->elf.dynamic_sections_created
2620 && (h->plt.refcount > eh->func_pointer_refcount
2621 || eh->plt_got.refcount > 0))
2622 {
2623 bfd_boolean use_plt_got;
2624
2625 /* Clear the reference count of function pointer relocations
2626 if PLT is used. */
2627 eh->func_pointer_refcount = 0;
2628
2629 if ((info->flags & DF_BIND_NOW) && !h->pointer_equality_needed)
2630 {
2631 /* Don't use the regular PLT for DF_BIND_NOW. */
2632 h->plt.offset = (bfd_vma) -1;
2633
2634 /* Use the GOT PLT. */
2635 h->got.refcount = 1;
2636 eh->plt_got.refcount = 1;
2637 }
2638
2639 use_plt_got = eh->plt_got.refcount > 0;
2640
2641 /* Make sure this symbol is output as a dynamic symbol.
2642 Undefined weak syms won't yet be marked as dynamic. */
2643 if (h->dynindx == -1
2644 && !h->forced_local)
2645 {
2646 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2647 return FALSE;
2648 }
2649
2650 if (bfd_link_pic (info)
2651 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
2652 {
2653 asection *s = htab->elf.splt;
2654 asection *bnd_s = htab->plt_bnd;
2655 asection *got_s = htab->plt_got;
2656
2657 /* If this is the first .plt entry, make room for the special
2658 first entry. The .plt section is used by prelink to undo
2659 prelinking for dynamic relocations. */
2660 if (s->size == 0)
2661 s->size = plt_entry_size;
2662
2663 if (use_plt_got)
2664 eh->plt_got.offset = got_s->size;
2665 else
2666 {
2667 h->plt.offset = s->size;
2668 if (bnd_s)
2669 eh->plt_bnd.offset = bnd_s->size;
2670 }
2671
2672 /* If this symbol is not defined in a regular file, and we are
2673 not generating a shared library, then set the symbol to this
2674 location in the .plt. This is required to make function
2675 pointers compare as equal between the normal executable and
2676 the shared library. */
2677 if (! bfd_link_pic (info)
2678 && !h->def_regular)
2679 {
2680 if (use_plt_got)
2681 {
2682 /* We need to make a call to the entry of the GOT PLT
2683 instead of regular PLT entry. */
2684 h->root.u.def.section = got_s;
2685 h->root.u.def.value = eh->plt_got.offset;
2686 }
2687 else
2688 {
2689 if (bnd_s)
2690 {
2691 /* We need to make a call to the entry of the second
2692 PLT instead of regular PLT entry. */
2693 h->root.u.def.section = bnd_s;
2694 h->root.u.def.value = eh->plt_bnd.offset;
2695 }
2696 else
2697 {
2698 h->root.u.def.section = s;
2699 h->root.u.def.value = h->plt.offset;
2700 }
2701 }
2702 }
2703
2704 /* Make room for this entry. */
2705 if (use_plt_got)
2706 got_s->size += sizeof (elf_x86_64_legacy_plt2_entry);
2707 else
2708 {
2709 s->size += plt_entry_size;
2710 if (bnd_s)
2711 bnd_s->size += sizeof (elf_x86_64_legacy_plt2_entry);
2712
2713 /* We also need to make an entry in the .got.plt section,
2714 which will be placed in the .got section by the linker
2715 script. */
2716 htab->elf.sgotplt->size += GOT_ENTRY_SIZE;
2717
2718 /* We also need to make an entry in the .rela.plt
2719 section. */
2720 htab->elf.srelplt->size += bed->s->sizeof_rela;
2721 htab->elf.srelplt->reloc_count++;
2722 }
2723 }
2724 else
2725 {
2726 h->plt.offset = (bfd_vma) -1;
2727 h->needs_plt = 0;
2728 }
2729 }
2730 else
2731 {
2732 h->plt.offset = (bfd_vma) -1;
2733 h->needs_plt = 0;
2734 }
2735
2736 eh->tlsdesc_got = (bfd_vma) -1;
2737
2738 /* If R_X86_64_GOTTPOFF symbol is now local to the binary,
2739 make it a R_X86_64_TPOFF32 requiring no GOT entry. */
2740 if (h->got.refcount > 0
2741 && bfd_link_executable (info)
2742 && h->dynindx == -1
2743 && elf_x86_64_hash_entry (h)->tls_type == GOT_TLS_IE)
2744 {
2745 h->got.offset = (bfd_vma) -1;
2746 }
2747 else if (h->got.refcount > 0)
2748 {
2749 asection *s;
2750 bfd_boolean dyn;
2751 int tls_type = elf_x86_64_hash_entry (h)->tls_type;
2752
2753 /* Make sure this symbol is output as a dynamic symbol.
2754 Undefined weak syms won't yet be marked as dynamic. */
2755 if (h->dynindx == -1
2756 && !h->forced_local)
2757 {
2758 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2759 return FALSE;
2760 }
2761
2762 if (GOT_TLS_GDESC_P (tls_type))
2763 {
2764 eh->tlsdesc_got = htab->elf.sgotplt->size
2765 - elf_x86_64_compute_jump_table_size (htab);
2766 htab->elf.sgotplt->size += 2 * GOT_ENTRY_SIZE;
2767 h->got.offset = (bfd_vma) -2;
2768 }
2769 if (! GOT_TLS_GDESC_P (tls_type)
2770 || GOT_TLS_GD_P (tls_type))
2771 {
2772 s = htab->elf.sgot;
2773 h->got.offset = s->size;
2774 s->size += GOT_ENTRY_SIZE;
2775 if (GOT_TLS_GD_P (tls_type))
2776 s->size += GOT_ENTRY_SIZE;
2777 }
2778 dyn = htab->elf.dynamic_sections_created;
2779 /* R_X86_64_TLSGD needs one dynamic relocation if local symbol
2780 and two if global.
2781 R_X86_64_GOTTPOFF needs one dynamic relocation. */
2782 if ((GOT_TLS_GD_P (tls_type) && h->dynindx == -1)
2783 || tls_type == GOT_TLS_IE)
2784 htab->elf.srelgot->size += bed->s->sizeof_rela;
2785 else if (GOT_TLS_GD_P (tls_type))
2786 htab->elf.srelgot->size += 2 * bed->s->sizeof_rela;
2787 else if (! GOT_TLS_GDESC_P (tls_type)
2788 && (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2789 || h->root.type != bfd_link_hash_undefweak)
2790 && (bfd_link_pic (info)
2791 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
2792 htab->elf.srelgot->size += bed->s->sizeof_rela;
2793 if (GOT_TLS_GDESC_P (tls_type))
2794 {
2795 htab->elf.srelplt->size += bed->s->sizeof_rela;
2796 htab->tlsdesc_plt = (bfd_vma) -1;
2797 }
2798 }
2799 else
2800 h->got.offset = (bfd_vma) -1;
2801
2802 if (eh->dyn_relocs == NULL)
2803 return TRUE;
2804
2805 /* In the shared -Bsymbolic case, discard space allocated for
2806 dynamic pc-relative relocs against symbols which turn out to be
2807 defined in regular objects. For the normal shared case, discard
2808 space for pc-relative relocs that have become local due to symbol
2809 visibility changes. */
2810
2811 if (bfd_link_pic (info))
2812 {
2813 /* Relocs that use pc_count are those that appear on a call
2814 insn, or certain REL relocs that can generated via assembly.
2815 We want calls to protected symbols to resolve directly to the
2816 function rather than going via the plt. If people want
2817 function pointer comparisons to work as expected then they
2818 should avoid writing weird assembly. */
2819 if (SYMBOL_CALLS_LOCAL (info, h))
2820 {
2821 struct elf_dyn_relocs **pp;
2822
2823 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2824 {
2825 p->count -= p->pc_count;
2826 p->pc_count = 0;
2827 if (p->count == 0)
2828 *pp = p->next;
2829 else
2830 pp = &p->next;
2831 }
2832 }
2833
2834 /* Also discard relocs on undefined weak syms with non-default
2835 visibility. */
2836 if (eh->dyn_relocs != NULL)
2837 {
2838 if (h->root.type == bfd_link_hash_undefweak)
2839 {
2840 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
2841 eh->dyn_relocs = NULL;
2842
2843 /* Make sure undefined weak symbols are output as a dynamic
2844 symbol in PIEs. */
2845 else if (h->dynindx == -1
2846 && ! h->forced_local
2847 && ! bfd_elf_link_record_dynamic_symbol (info, h))
2848 return FALSE;
2849 }
2850 /* For PIE, discard space for pc-relative relocs against
2851 symbols which turn out to need copy relocs. */
2852 else if (bfd_link_executable (info)
2853 && (h->needs_copy || eh->needs_copy)
2854 && h->def_dynamic
2855 && !h->def_regular)
2856 {
2857 struct elf_dyn_relocs **pp;
2858
2859 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2860 {
2861 if (p->pc_count != 0)
2862 *pp = p->next;
2863 else
2864 pp = &p->next;
2865 }
2866 }
2867 }
2868 }
2869 else if (ELIMINATE_COPY_RELOCS)
2870 {
2871 /* For the non-shared case, discard space for relocs against
2872 symbols which turn out to need copy relocs or are not
2873 dynamic. Keep dynamic relocations for run-time function
2874 pointer initialization. */
2875
2876 if ((!h->non_got_ref || eh->func_pointer_refcount > 0)
2877 && ((h->def_dynamic
2878 && !h->def_regular)
2879 || (htab->elf.dynamic_sections_created
2880 && (h->root.type == bfd_link_hash_undefweak
2881 || h->root.type == bfd_link_hash_undefined))))
2882 {
2883 /* Make sure this symbol is output as a dynamic symbol.
2884 Undefined weak syms won't yet be marked as dynamic. */
2885 if (h->dynindx == -1
2886 && ! h->forced_local
2887 && ! bfd_elf_link_record_dynamic_symbol (info, h))
2888 return FALSE;
2889
2890 /* If that succeeded, we know we'll be keeping all the
2891 relocs. */
2892 if (h->dynindx != -1)
2893 goto keep;
2894 }
2895
2896 eh->dyn_relocs = NULL;
2897 eh->func_pointer_refcount = 0;
2898
2899 keep: ;
2900 }
2901
2902 /* Finally, allocate space. */
2903 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2904 {
2905 asection * sreloc;
2906
2907 sreloc = elf_section_data (p->sec)->sreloc;
2908
2909 BFD_ASSERT (sreloc != NULL);
2910
2911 sreloc->size += p->count * bed->s->sizeof_rela;
2912 }
2913
2914 return TRUE;
2915 }
2916
2917 /* Allocate space in .plt, .got and associated reloc sections for
2918 local dynamic relocs. */
2919
2920 static bfd_boolean
2921 elf_x86_64_allocate_local_dynrelocs (void **slot, void *inf)
2922 {
2923 struct elf_link_hash_entry *h
2924 = (struct elf_link_hash_entry *) *slot;
2925
2926 if (h->type != STT_GNU_IFUNC
2927 || !h->def_regular
2928 || !h->ref_regular
2929 || !h->forced_local
2930 || h->root.type != bfd_link_hash_defined)
2931 abort ();
2932
2933 return elf_x86_64_allocate_dynrelocs (h, inf);
2934 }
2935
2936 /* Find any dynamic relocs that apply to read-only sections. */
2937
2938 static bfd_boolean
2939 elf_x86_64_readonly_dynrelocs (struct elf_link_hash_entry *h,
2940 void * inf)
2941 {
2942 struct elf_x86_64_link_hash_entry *eh;
2943 struct elf_dyn_relocs *p;
2944
2945 /* Skip local IFUNC symbols. */
2946 if (h->forced_local && h->type == STT_GNU_IFUNC)
2947 return TRUE;
2948
2949 eh = (struct elf_x86_64_link_hash_entry *) h;
2950 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2951 {
2952 asection *s = p->sec->output_section;
2953
2954 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2955 {
2956 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2957
2958 info->flags |= DF_TEXTREL;
2959
2960 if ((info->warn_shared_textrel && bfd_link_pic (info))
2961 || info->error_textrel)
2962 info->callbacks->einfo (_("%P: %B: warning: relocation against `%s' in readonly section `%A'\n"),
2963 p->sec->owner, h->root.root.string,
2964 p->sec);
2965
2966 /* Not an error, just cut short the traversal. */
2967 return FALSE;
2968 }
2969 }
2970 return TRUE;
2971 }
2972
2973 /* With the local symbol, foo, we convert
2974 mov foo@GOTPCREL(%rip), %reg
2975 to
2976 lea foo(%rip), %reg
2977 and convert
2978 call/jmp *foo@GOTPCREL(%rip)
2979 to
2980 nop call foo/jmp foo nop
2981 When PIC is false, convert
2982 test %reg, foo@GOTPCREL(%rip)
2983 to
2984 test $foo, %reg
2985 and convert
2986 binop foo@GOTPCREL(%rip), %reg
2987 to
2988 binop $foo, %reg
2989 where binop is one of adc, add, and, cmp, or, sbb, sub, xor
2990 instructions. */
2991
2992 static bfd_boolean
2993 elf_x86_64_convert_load (bfd *abfd, asection *sec,
2994 struct bfd_link_info *link_info)
2995 {
2996 Elf_Internal_Shdr *symtab_hdr;
2997 Elf_Internal_Rela *internal_relocs;
2998 Elf_Internal_Rela *irel, *irelend;
2999 bfd_byte *contents;
3000 struct elf_x86_64_link_hash_table *htab;
3001 bfd_boolean changed_contents;
3002 bfd_boolean changed_relocs;
3003 bfd_signed_vma *local_got_refcounts;
3004 bfd_vma maxpagesize;
3005
3006 /* Don't even try to convert non-ELF outputs. */
3007 if (!is_elf_hash_table (link_info->hash))
3008 return FALSE;
3009
3010 /* Nothing to do if there is no need or no output. */
3011 if ((sec->flags & (SEC_CODE | SEC_RELOC)) != (SEC_CODE | SEC_RELOC)
3012 || sec->need_convert_load == 0
3013 || bfd_is_abs_section (sec->output_section))
3014 return TRUE;
3015
3016 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3017
3018 /* Load the relocations for this section. */
3019 internal_relocs = (_bfd_elf_link_read_relocs
3020 (abfd, sec, NULL, (Elf_Internal_Rela *) NULL,
3021 link_info->keep_memory));
3022 if (internal_relocs == NULL)
3023 return FALSE;
3024
3025 htab = elf_x86_64_hash_table (link_info);
3026 changed_contents = FALSE;
3027 changed_relocs = FALSE;
3028 local_got_refcounts = elf_local_got_refcounts (abfd);
3029 maxpagesize = get_elf_backend_data (abfd)->maxpagesize;
3030
3031 /* Get the section contents. */
3032 if (elf_section_data (sec)->this_hdr.contents != NULL)
3033 contents = elf_section_data (sec)->this_hdr.contents;
3034 else
3035 {
3036 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
3037 goto error_return;
3038 }
3039
3040 irelend = internal_relocs + sec->reloc_count;
3041 for (irel = internal_relocs; irel < irelend; irel++)
3042 {
3043 unsigned int r_type = ELF32_R_TYPE (irel->r_info);
3044 unsigned int r_symndx = htab->r_sym (irel->r_info);
3045 unsigned int indx;
3046 struct elf_link_hash_entry *h;
3047 asection *tsec;
3048 char symtype;
3049 bfd_vma toff, roff;
3050 bfd_signed_vma raddend;
3051 unsigned int opcode;
3052 unsigned int modrm;
3053
3054 if (r_type != R_X86_64_GOTPCREL
3055 && r_type != R_X86_64_GOTPCRELX
3056 && r_type != R_X86_64_REX_GOTPCRELX)
3057 continue;
3058
3059 roff = irel->r_offset;
3060 if (roff < (r_type == R_X86_64_REX_GOTPCRELX ? 3 : 2))
3061 continue;
3062
3063 raddend = irel->r_addend;
3064 /* Addend for 32-bit PC-relative relocation must be -4. */
3065 if (raddend != -4)
3066 continue;
3067
3068 opcode = bfd_get_8 (abfd, contents + roff - 2);
3069
3070 /* It is OK to convert mov to lea. */
3071 if (opcode != 0x8b)
3072 {
3073 /* Only convert R_X86_64_GOTPCRELX and R_X86_64_REX_GOTPCRELX
3074 for mov call, jmp or one of adc, add, and, cmp, or, sbb,
3075 sub, test, xor instructions. */
3076 if (r_type != R_X86_64_GOTPCRELX
3077 && r_type != R_X86_64_REX_GOTPCRELX)
3078 continue;
3079
3080 /* It is OK to convert indirect branch to direct branch. */
3081 if (opcode != 0xff)
3082 {
3083 /* It is OK to convert adc, add, and, cmp, or, sbb, sub,
3084 test, xor only when PIC is false. */
3085 if (bfd_link_pic (link_info))
3086 continue;
3087 }
3088 }
3089
3090 /* Get the symbol referred to by the reloc. */
3091 if (r_symndx < symtab_hdr->sh_info)
3092 {
3093 Elf_Internal_Sym *isym;
3094
3095 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
3096 abfd, r_symndx);
3097
3098 symtype = ELF_ST_TYPE (isym->st_info);
3099
3100 /* STT_GNU_IFUNC must keep GOTPCREL relocations and skip
3101 relocation against undefined symbols. */
3102 if (symtype == STT_GNU_IFUNC || isym->st_shndx == SHN_UNDEF)
3103 continue;
3104
3105 if (isym->st_shndx == SHN_ABS)
3106 tsec = bfd_abs_section_ptr;
3107 else if (isym->st_shndx == SHN_COMMON)
3108 tsec = bfd_com_section_ptr;
3109 else if (isym->st_shndx == SHN_X86_64_LCOMMON)
3110 tsec = &_bfd_elf_large_com_section;
3111 else
3112 tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
3113
3114 h = NULL;
3115 toff = isym->st_value;
3116 }
3117 else
3118 {
3119 indx = r_symndx - symtab_hdr->sh_info;
3120 h = elf_sym_hashes (abfd)[indx];
3121 BFD_ASSERT (h != NULL);
3122
3123 while (h->root.type == bfd_link_hash_indirect
3124 || h->root.type == bfd_link_hash_warning)
3125 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3126
3127 /* STT_GNU_IFUNC must keep GOTPCREL relocations. We also
3128 avoid optimizing GOTPCREL relocations againt _DYNAMIC
3129 since ld.so may use its link-time address. */
3130 if ((h->root.type == bfd_link_hash_defined
3131 || h->root.type == bfd_link_hash_defweak
3132 || h->root.type == bfd_link_hash_new)
3133 && h->type != STT_GNU_IFUNC
3134 && h != htab->elf.hdynamic
3135 && SYMBOL_REFERENCES_LOCAL (link_info, h))
3136 {
3137 /* bfd_link_hash_new is set by an assignment in a linker
3138 script in bfd_elf_record_link_assignment. FIXME: If
3139 we ever get a linker error due relocation overflow, we
3140 will skip this optimization. */
3141 if (h->root.type == bfd_link_hash_new)
3142 goto convert;
3143 tsec = h->root.u.def.section;
3144 toff = h->root.u.def.value;
3145 symtype = h->type;
3146 }
3147 else
3148 continue;
3149 }
3150
3151 if (tsec->sec_info_type == SEC_INFO_TYPE_MERGE)
3152 {
3153 /* At this stage in linking, no SEC_MERGE symbol has been
3154 adjusted, so all references to such symbols need to be
3155 passed through _bfd_merged_section_offset. (Later, in
3156 relocate_section, all SEC_MERGE symbols *except* for
3157 section symbols have been adjusted.)
3158
3159 gas may reduce relocations against symbols in SEC_MERGE
3160 sections to a relocation against the section symbol when
3161 the original addend was zero. When the reloc is against
3162 a section symbol we should include the addend in the
3163 offset passed to _bfd_merged_section_offset, since the
3164 location of interest is the original symbol. On the
3165 other hand, an access to "sym+addend" where "sym" is not
3166 a section symbol should not include the addend; Such an
3167 access is presumed to be an offset from "sym"; The
3168 location of interest is just "sym". */
3169 if (symtype == STT_SECTION)
3170 toff += raddend;
3171
3172 toff = _bfd_merged_section_offset (abfd, &tsec,
3173 elf_section_data (tsec)->sec_info,
3174 toff);
3175
3176 if (symtype != STT_SECTION)
3177 toff += raddend;
3178 }
3179 else
3180 toff += raddend;
3181
3182 /* Don't convert if R_X86_64_PC32 relocation overflows. */
3183 if (tsec->output_section == sec->output_section)
3184 {
3185 if ((toff - roff + 0x80000000) > 0xffffffff)
3186 continue;
3187 }
3188 else
3189 {
3190 asection *asect;
3191 bfd_size_type size;
3192
3193 /* At this point, we don't know the load addresses of TSEC
3194 section nor SEC section. We estimate the distrance between
3195 SEC and TSEC. */
3196 size = 0;
3197 for (asect = sec->output_section;
3198 asect != NULL && asect != tsec->output_section;
3199 asect = asect->next)
3200 {
3201 asection *i;
3202 for (i = asect->output_section->map_head.s;
3203 i != NULL;
3204 i = i->map_head.s)
3205 {
3206 size = align_power (size, i->alignment_power);
3207 size += i->size;
3208 }
3209 }
3210
3211 /* Don't convert GOTPCREL relocations if TSEC isn't placed
3212 after SEC. */
3213 if (asect == NULL)
3214 continue;
3215
3216 /* Take PT_GNU_RELRO segment into account by adding
3217 maxpagesize. */
3218 if ((toff + size + maxpagesize - roff + 0x80000000)
3219 > 0xffffffff)
3220 continue;
3221 }
3222
3223 convert:
3224 if (opcode == 0xff)
3225 {
3226 /* We have "call/jmp *foo@GOTPCREL(%rip)". */
3227 unsigned int nop;
3228 unsigned int disp;
3229 bfd_vma nop_offset;
3230
3231 /* Convert R_X86_64_GOTPCRELX and R_X86_64_REX_GOTPCRELX to
3232 R_X86_64_PC32. */
3233 modrm = bfd_get_8 (abfd, contents + roff - 1);
3234 if (modrm == 0x25)
3235 {
3236 /* Convert to "jmp foo nop". */
3237 modrm = 0xe9;
3238 nop = NOP_OPCODE;
3239 nop_offset = irel->r_offset + 3;
3240 disp = bfd_get_32 (abfd, contents + irel->r_offset);
3241 irel->r_offset -= 1;
3242 bfd_put_32 (abfd, disp, contents + irel->r_offset);
3243 }
3244 else
3245 {
3246 /* Convert to "nop call foo". ADDR_PREFIX_OPCODE
3247 is a nop prefix. */
3248 modrm = 0xe8;
3249 nop = link_info->call_nop_byte;
3250 if (link_info->call_nop_as_suffix)
3251 {
3252 nop_offset = irel->r_offset + 3;
3253 disp = bfd_get_32 (abfd, contents + irel->r_offset);
3254 irel->r_offset -= 1;
3255 bfd_put_32 (abfd, disp, contents + irel->r_offset);
3256 }
3257 else
3258 nop_offset = irel->r_offset - 2;
3259 }
3260 bfd_put_8 (abfd, nop, contents + nop_offset);
3261 bfd_put_8 (abfd, modrm, contents + irel->r_offset - 1);
3262 r_type = R_X86_64_PC32;
3263 }
3264 else
3265 {
3266 if (opcode == 0x8b)
3267 {
3268 /* Convert "mov foo@GOTPCREL(%rip), %reg" to
3269 "lea foo(%rip), %reg". */
3270 opcode = 0x8d;
3271 r_type = R_X86_64_PC32;
3272 }
3273 else
3274 {
3275 modrm = bfd_get_8 (abfd, contents + roff - 1);
3276 if (opcode == 0x85)
3277 {
3278 /* Convert "test %reg, foo@GOTPCREL(%rip)" to
3279 "test $foo, %reg". */
3280 modrm = 0xc0 | (modrm & 0x38) >> 3;
3281 opcode = 0xf7;
3282 }
3283 else
3284 {
3285 /* Convert "binop foo@GOTPCREL(%rip), %reg" to
3286 "binop $foo, %reg". */
3287 modrm = 0xc0 | (modrm & 0x38) >> 3 | (opcode & 0x3c);
3288 opcode = 0x81;
3289 }
3290 bfd_put_8 (abfd, modrm, contents + roff - 1);
3291
3292 if (r_type == R_X86_64_REX_GOTPCRELX)
3293 {
3294 /* Move the R bit to the B bit in REX byte. */
3295 unsigned int rex = bfd_get_8 (abfd, contents + roff - 3);
3296 rex = (rex & ~REX_R) | (rex & REX_R) >> 2;
3297 bfd_put_8 (abfd, rex, contents + roff - 3);
3298 }
3299 /* No addend for R_X86_64_32S relocation. */
3300 irel->r_addend = 0;
3301 r_type = R_X86_64_32S;
3302 }
3303
3304 bfd_put_8 (abfd, opcode, contents + roff - 2);
3305 }
3306
3307 irel->r_info = htab->r_info (r_symndx, r_type);
3308 changed_contents = TRUE;
3309 changed_relocs = TRUE;
3310
3311 if (h)
3312 {
3313 if (h->got.refcount > 0)
3314 h->got.refcount -= 1;
3315 }
3316 else
3317 {
3318 if (local_got_refcounts != NULL
3319 && local_got_refcounts[r_symndx] > 0)
3320 local_got_refcounts[r_symndx] -= 1;
3321 }
3322 }
3323
3324 if (contents != NULL
3325 && elf_section_data (sec)->this_hdr.contents != contents)
3326 {
3327 if (!changed_contents && !link_info->keep_memory)
3328 free (contents);
3329 else
3330 {
3331 /* Cache the section contents for elf_link_input_bfd. */
3332 elf_section_data (sec)->this_hdr.contents = contents;
3333 }
3334 }
3335
3336 if (elf_section_data (sec)->relocs != internal_relocs)
3337 {
3338 if (!changed_relocs)
3339 free (internal_relocs);
3340 else
3341 elf_section_data (sec)->relocs = internal_relocs;
3342 }
3343
3344 return TRUE;
3345
3346 error_return:
3347 if (contents != NULL
3348 && elf_section_data (sec)->this_hdr.contents != contents)
3349 free (contents);
3350 if (internal_relocs != NULL
3351 && elf_section_data (sec)->relocs != internal_relocs)
3352 free (internal_relocs);
3353 return FALSE;
3354 }
3355
3356 /* Set the sizes of the dynamic sections. */
3357
3358 static bfd_boolean
3359 elf_x86_64_size_dynamic_sections (bfd *output_bfd,
3360 struct bfd_link_info *info)
3361 {
3362 struct elf_x86_64_link_hash_table *htab;
3363 bfd *dynobj;
3364 asection *s;
3365 bfd_boolean relocs;
3366 bfd *ibfd;
3367 const struct elf_backend_data *bed;
3368
3369 htab = elf_x86_64_hash_table (info);
3370 if (htab == NULL)
3371 return FALSE;
3372 bed = get_elf_backend_data (output_bfd);
3373
3374 dynobj = htab->elf.dynobj;
3375 if (dynobj == NULL)
3376 abort ();
3377
3378 if (htab->elf.dynamic_sections_created)
3379 {
3380 /* Set the contents of the .interp section to the interpreter. */
3381 if (bfd_link_executable (info) && !info->nointerp)
3382 {
3383 s = bfd_get_linker_section (dynobj, ".interp");
3384 if (s == NULL)
3385 abort ();
3386 s->size = htab->dynamic_interpreter_size;
3387 s->contents = (unsigned char *) htab->dynamic_interpreter;
3388 }
3389 }
3390
3391 /* Set up .got offsets for local syms, and space for local dynamic
3392 relocs. */
3393 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
3394 {
3395 bfd_signed_vma *local_got;
3396 bfd_signed_vma *end_local_got;
3397 char *local_tls_type;
3398 bfd_vma *local_tlsdesc_gotent;
3399 bfd_size_type locsymcount;
3400 Elf_Internal_Shdr *symtab_hdr;
3401 asection *srel;
3402
3403 if (! is_x86_64_elf (ibfd))
3404 continue;
3405
3406 for (s = ibfd->sections; s != NULL; s = s->next)
3407 {
3408 struct elf_dyn_relocs *p;
3409
3410 if (!elf_x86_64_convert_load (ibfd, s, info))
3411 return FALSE;
3412
3413 for (p = (struct elf_dyn_relocs *)
3414 (elf_section_data (s)->local_dynrel);
3415 p != NULL;
3416 p = p->next)
3417 {
3418 if (!bfd_is_abs_section (p->sec)
3419 && bfd_is_abs_section (p->sec->output_section))
3420 {
3421 /* Input section has been discarded, either because
3422 it is a copy of a linkonce section or due to
3423 linker script /DISCARD/, so we'll be discarding
3424 the relocs too. */
3425 }
3426 else if (p->count != 0)
3427 {
3428 srel = elf_section_data (p->sec)->sreloc;
3429 srel->size += p->count * bed->s->sizeof_rela;
3430 if ((p->sec->output_section->flags & SEC_READONLY) != 0
3431 && (info->flags & DF_TEXTREL) == 0)
3432 {
3433 info->flags |= DF_TEXTREL;
3434 if ((info->warn_shared_textrel && bfd_link_pic (info))
3435 || info->error_textrel)
3436 info->callbacks->einfo (_("%P: %B: warning: relocation in readonly section `%A'\n"),
3437 p->sec->owner, p->sec);
3438 }
3439 }
3440 }
3441 }
3442
3443 local_got = elf_local_got_refcounts (ibfd);
3444 if (!local_got)
3445 continue;
3446
3447 symtab_hdr = &elf_symtab_hdr (ibfd);
3448 locsymcount = symtab_hdr->sh_info;
3449 end_local_got = local_got + locsymcount;
3450 local_tls_type = elf_x86_64_local_got_tls_type (ibfd);
3451 local_tlsdesc_gotent = elf_x86_64_local_tlsdesc_gotent (ibfd);
3452 s = htab->elf.sgot;
3453 srel = htab->elf.srelgot;
3454 for (; local_got < end_local_got;
3455 ++local_got, ++local_tls_type, ++local_tlsdesc_gotent)
3456 {
3457 *local_tlsdesc_gotent = (bfd_vma) -1;
3458 if (*local_got > 0)
3459 {
3460 if (GOT_TLS_GDESC_P (*local_tls_type))
3461 {
3462 *local_tlsdesc_gotent = htab->elf.sgotplt->size
3463 - elf_x86_64_compute_jump_table_size (htab);
3464 htab->elf.sgotplt->size += 2 * GOT_ENTRY_SIZE;
3465 *local_got = (bfd_vma) -2;
3466 }
3467 if (! GOT_TLS_GDESC_P (*local_tls_type)
3468 || GOT_TLS_GD_P (*local_tls_type))
3469 {
3470 *local_got = s->size;
3471 s->size += GOT_ENTRY_SIZE;
3472 if (GOT_TLS_GD_P (*local_tls_type))
3473 s->size += GOT_ENTRY_SIZE;
3474 }
3475 if (bfd_link_pic (info)
3476 || GOT_TLS_GD_ANY_P (*local_tls_type)
3477 || *local_tls_type == GOT_TLS_IE)
3478 {
3479 if (GOT_TLS_GDESC_P (*local_tls_type))
3480 {
3481 htab->elf.srelplt->size
3482 += bed->s->sizeof_rela;
3483 htab->tlsdesc_plt = (bfd_vma) -1;
3484 }
3485 if (! GOT_TLS_GDESC_P (*local_tls_type)
3486 || GOT_TLS_GD_P (*local_tls_type))
3487 srel->size += bed->s->sizeof_rela;
3488 }
3489 }
3490 else
3491 *local_got = (bfd_vma) -1;
3492 }
3493 }
3494
3495 if (htab->tls_ld_got.refcount > 0)
3496 {
3497 /* Allocate 2 got entries and 1 dynamic reloc for R_X86_64_TLSLD
3498 relocs. */
3499 htab->tls_ld_got.offset = htab->elf.sgot->size;
3500 htab->elf.sgot->size += 2 * GOT_ENTRY_SIZE;
3501 htab->elf.srelgot->size += bed->s->sizeof_rela;
3502 }
3503 else
3504 htab->tls_ld_got.offset = -1;
3505
3506 /* Allocate global sym .plt and .got entries, and space for global
3507 sym dynamic relocs. */
3508 elf_link_hash_traverse (&htab->elf, elf_x86_64_allocate_dynrelocs,
3509 info);
3510
3511 /* Allocate .plt and .got entries, and space for local symbols. */
3512 htab_traverse (htab->loc_hash_table,
3513 elf_x86_64_allocate_local_dynrelocs,
3514 info);
3515
3516 /* For every jump slot reserved in the sgotplt, reloc_count is
3517 incremented. However, when we reserve space for TLS descriptors,
3518 it's not incremented, so in order to compute the space reserved
3519 for them, it suffices to multiply the reloc count by the jump
3520 slot size.
3521
3522 PR ld/13302: We start next_irelative_index at the end of .rela.plt
3523 so that R_X86_64_IRELATIVE entries come last. */
3524 if (htab->elf.srelplt)
3525 {
3526 htab->sgotplt_jump_table_size
3527 = elf_x86_64_compute_jump_table_size (htab);
3528 htab->next_irelative_index = htab->elf.srelplt->reloc_count - 1;
3529 }
3530 else if (htab->elf.irelplt)
3531 htab->next_irelative_index = htab->elf.irelplt->reloc_count - 1;
3532
3533 if (htab->tlsdesc_plt)
3534 {
3535 /* If we're not using lazy TLS relocations, don't generate the
3536 PLT and GOT entries they require. */
3537 if ((info->flags & DF_BIND_NOW))
3538 htab->tlsdesc_plt = 0;
3539 else
3540 {
3541 htab->tlsdesc_got = htab->elf.sgot->size;
3542 htab->elf.sgot->size += GOT_ENTRY_SIZE;
3543 /* Reserve room for the initial entry.
3544 FIXME: we could probably do away with it in this case. */
3545 if (htab->elf.splt->size == 0)
3546 htab->elf.splt->size += GET_PLT_ENTRY_SIZE (output_bfd);
3547 htab->tlsdesc_plt = htab->elf.splt->size;
3548 htab->elf.splt->size += GET_PLT_ENTRY_SIZE (output_bfd);
3549 }
3550 }
3551
3552 if (htab->elf.sgotplt)
3553 {
3554 /* Don't allocate .got.plt section if there are no GOT nor PLT
3555 entries and there is no refeence to _GLOBAL_OFFSET_TABLE_. */
3556 if ((htab->elf.hgot == NULL
3557 || !htab->elf.hgot->ref_regular_nonweak)
3558 && (htab->elf.sgotplt->size
3559 == get_elf_backend_data (output_bfd)->got_header_size)
3560 && (htab->elf.splt == NULL
3561 || htab->elf.splt->size == 0)
3562 && (htab->elf.sgot == NULL
3563 || htab->elf.sgot->size == 0)
3564 && (htab->elf.iplt == NULL
3565 || htab->elf.iplt->size == 0)
3566 && (htab->elf.igotplt == NULL
3567 || htab->elf.igotplt->size == 0))
3568 htab->elf.sgotplt->size = 0;
3569 }
3570
3571 if (htab->plt_eh_frame != NULL
3572 && htab->elf.splt != NULL
3573 && htab->elf.splt->size != 0
3574 && !bfd_is_abs_section (htab->elf.splt->output_section)
3575 && _bfd_elf_eh_frame_present (info))
3576 {
3577 const struct elf_x86_64_backend_data *arch_data
3578 = get_elf_x86_64_arch_data (bed);
3579 htab->plt_eh_frame->size = arch_data->eh_frame_plt_size;
3580 }
3581
3582 /* We now have determined the sizes of the various dynamic sections.
3583 Allocate memory for them. */
3584 relocs = FALSE;
3585 for (s = dynobj->sections; s != NULL; s = s->next)
3586 {
3587 if ((s->flags & SEC_LINKER_CREATED) == 0)
3588 continue;
3589
3590 if (s == htab->elf.splt
3591 || s == htab->elf.sgot
3592 || s == htab->elf.sgotplt
3593 || s == htab->elf.iplt
3594 || s == htab->elf.igotplt
3595 || s == htab->plt_bnd
3596 || s == htab->plt_got
3597 || s == htab->plt_eh_frame
3598 || s == htab->sdynbss)
3599 {
3600 /* Strip this section if we don't need it; see the
3601 comment below. */
3602 }
3603 else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
3604 {
3605 if (s->size != 0 && s != htab->elf.srelplt)
3606 relocs = TRUE;
3607
3608 /* We use the reloc_count field as a counter if we need
3609 to copy relocs into the output file. */
3610 if (s != htab->elf.srelplt)
3611 s->reloc_count = 0;
3612 }
3613 else
3614 {
3615 /* It's not one of our sections, so don't allocate space. */
3616 continue;
3617 }
3618
3619 if (s->size == 0)
3620 {
3621 /* If we don't need this section, strip it from the
3622 output file. This is mostly to handle .rela.bss and
3623 .rela.plt. We must create both sections in
3624 create_dynamic_sections, because they must be created
3625 before the linker maps input sections to output
3626 sections. The linker does that before
3627 adjust_dynamic_symbol is called, and it is that
3628 function which decides whether anything needs to go
3629 into these sections. */
3630
3631 s->flags |= SEC_EXCLUDE;
3632 continue;
3633 }
3634
3635 if ((s->flags & SEC_HAS_CONTENTS) == 0)
3636 continue;
3637
3638 /* Allocate memory for the section contents. We use bfd_zalloc
3639 here in case unused entries are not reclaimed before the
3640 section's contents are written out. This should not happen,
3641 but this way if it does, we get a R_X86_64_NONE reloc instead
3642 of garbage. */
3643 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
3644 if (s->contents == NULL)
3645 return FALSE;
3646 }
3647
3648 if (htab->plt_eh_frame != NULL
3649 && htab->plt_eh_frame->contents != NULL)
3650 {
3651 const struct elf_x86_64_backend_data *arch_data
3652 = get_elf_x86_64_arch_data (bed);
3653
3654 memcpy (htab->plt_eh_frame->contents,
3655 arch_data->eh_frame_plt, htab->plt_eh_frame->size);
3656 bfd_put_32 (dynobj, htab->elf.splt->size,
3657 htab->plt_eh_frame->contents + PLT_FDE_LEN_OFFSET);
3658 }
3659
3660 if (htab->elf.dynamic_sections_created)
3661 {
3662 /* Add some entries to the .dynamic section. We fill in the
3663 values later, in elf_x86_64_finish_dynamic_sections, but we
3664 must add the entries now so that we get the correct size for
3665 the .dynamic section. The DT_DEBUG entry is filled in by the
3666 dynamic linker and used by the debugger. */
3667 #define add_dynamic_entry(TAG, VAL) \
3668 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3669
3670 if (bfd_link_executable (info))
3671 {
3672 if (!add_dynamic_entry (DT_DEBUG, 0))
3673 return FALSE;
3674 }
3675
3676 if (htab->elf.splt->size != 0)
3677 {
3678 /* DT_PLTGOT is used by prelink even if there is no PLT
3679 relocation. */
3680 if (!add_dynamic_entry (DT_PLTGOT, 0))
3681 return FALSE;
3682
3683 if (htab->elf.srelplt->size != 0)
3684 {
3685 if (!add_dynamic_entry (DT_PLTRELSZ, 0)
3686 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3687 || !add_dynamic_entry (DT_JMPREL, 0))
3688 return FALSE;
3689 }
3690
3691 if (htab->tlsdesc_plt
3692 && (!add_dynamic_entry (DT_TLSDESC_PLT, 0)
3693 || !add_dynamic_entry (DT_TLSDESC_GOT, 0)))
3694 return FALSE;
3695 }
3696
3697 if (relocs)
3698 {
3699 if (!add_dynamic_entry (DT_RELA, 0)
3700 || !add_dynamic_entry (DT_RELASZ, 0)
3701 || !add_dynamic_entry (DT_RELAENT, bed->s->sizeof_rela))
3702 return FALSE;
3703
3704 /* If any dynamic relocs apply to a read-only section,
3705 then we need a DT_TEXTREL entry. */
3706 if ((info->flags & DF_TEXTREL) == 0)
3707 elf_link_hash_traverse (&htab->elf,
3708 elf_x86_64_readonly_dynrelocs,
3709 info);
3710
3711 if ((info->flags & DF_TEXTREL) != 0)
3712 {
3713 if ((elf_tdata (output_bfd)->has_gnu_symbols
3714 & elf_gnu_symbol_ifunc) == elf_gnu_symbol_ifunc)
3715 {
3716 info->callbacks->einfo
3717 (_("%P%X: read-only segment has dynamic IFUNC relocations; recompile with -fPIC\n"));
3718 bfd_set_error (bfd_error_bad_value);
3719 return FALSE;
3720 }
3721
3722 if (!add_dynamic_entry (DT_TEXTREL, 0))
3723 return FALSE;
3724 }
3725 }
3726 }
3727 #undef add_dynamic_entry
3728
3729 return TRUE;
3730 }
3731
3732 static bfd_boolean
3733 elf_x86_64_always_size_sections (bfd *output_bfd,
3734 struct bfd_link_info *info)
3735 {
3736 asection *tls_sec = elf_hash_table (info)->tls_sec;
3737
3738 if (tls_sec)
3739 {
3740 struct elf_link_hash_entry *tlsbase;
3741
3742 tlsbase = elf_link_hash_lookup (elf_hash_table (info),
3743 "_TLS_MODULE_BASE_",
3744 FALSE, FALSE, FALSE);
3745
3746 if (tlsbase && tlsbase->type == STT_TLS)
3747 {
3748 struct elf_x86_64_link_hash_table *htab;
3749 struct bfd_link_hash_entry *bh = NULL;
3750 const struct elf_backend_data *bed
3751 = get_elf_backend_data (output_bfd);
3752
3753 htab = elf_x86_64_hash_table (info);
3754 if (htab == NULL)
3755 return FALSE;
3756
3757 if (!(_bfd_generic_link_add_one_symbol
3758 (info, output_bfd, "_TLS_MODULE_BASE_", BSF_LOCAL,
3759 tls_sec, 0, NULL, FALSE,
3760 bed->collect, &bh)))
3761 return FALSE;
3762
3763 htab->tls_module_base = bh;
3764
3765 tlsbase = (struct elf_link_hash_entry *)bh;
3766 tlsbase->def_regular = 1;
3767 tlsbase->other = STV_HIDDEN;
3768 tlsbase->root.linker_def = 1;
3769 (*bed->elf_backend_hide_symbol) (info, tlsbase, TRUE);
3770 }
3771 }
3772
3773 return TRUE;
3774 }
3775
3776 /* _TLS_MODULE_BASE_ needs to be treated especially when linking
3777 executables. Rather than setting it to the beginning of the TLS
3778 section, we have to set it to the end. This function may be called
3779 multiple times, it is idempotent. */
3780
3781 static void
3782 elf_x86_64_set_tls_module_base (struct bfd_link_info *info)
3783 {
3784 struct elf_x86_64_link_hash_table *htab;
3785 struct bfd_link_hash_entry *base;
3786
3787 if (!bfd_link_executable (info))
3788 return;
3789
3790 htab = elf_x86_64_hash_table (info);
3791 if (htab == NULL)
3792 return;
3793
3794 base = htab->tls_module_base;
3795 if (base == NULL)
3796 return;
3797
3798 base->u.def.value = htab->elf.tls_size;
3799 }
3800
3801 /* Return the base VMA address which should be subtracted from real addresses
3802 when resolving @dtpoff relocation.
3803 This is PT_TLS segment p_vaddr. */
3804
3805 static bfd_vma
3806 elf_x86_64_dtpoff_base (struct bfd_link_info *info)
3807 {
3808 /* If tls_sec is NULL, we should have signalled an error already. */
3809 if (elf_hash_table (info)->tls_sec == NULL)
3810 return 0;
3811 return elf_hash_table (info)->tls_sec->vma;
3812 }
3813
3814 /* Return the relocation value for @tpoff relocation
3815 if STT_TLS virtual address is ADDRESS. */
3816
3817 static bfd_vma
3818 elf_x86_64_tpoff (struct bfd_link_info *info, bfd_vma address)
3819 {
3820 struct elf_link_hash_table *htab = elf_hash_table (info);
3821 const struct elf_backend_data *bed = get_elf_backend_data (info->output_bfd);
3822 bfd_vma static_tls_size;
3823
3824 /* If tls_segment is NULL, we should have signalled an error already. */
3825 if (htab->tls_sec == NULL)
3826 return 0;
3827
3828 /* Consider special static TLS alignment requirements. */
3829 static_tls_size = BFD_ALIGN (htab->tls_size, bed->static_tls_alignment);
3830 return address - static_tls_size - htab->tls_sec->vma;
3831 }
3832
3833 /* Is the instruction before OFFSET in CONTENTS a 32bit relative
3834 branch? */
3835
3836 static bfd_boolean
3837 is_32bit_relative_branch (bfd_byte *contents, bfd_vma offset)
3838 {
3839 /* Opcode Instruction
3840 0xe8 call
3841 0xe9 jump
3842 0x0f 0x8x conditional jump */
3843 return ((offset > 0
3844 && (contents [offset - 1] == 0xe8
3845 || contents [offset - 1] == 0xe9))
3846 || (offset > 1
3847 && contents [offset - 2] == 0x0f
3848 && (contents [offset - 1] & 0xf0) == 0x80));
3849 }
3850
3851 /* Relocate an x86_64 ELF section. */
3852
3853 static bfd_boolean
3854 elf_x86_64_relocate_section (bfd *output_bfd,
3855 struct bfd_link_info *info,
3856 bfd *input_bfd,
3857 asection *input_section,
3858 bfd_byte *contents,
3859 Elf_Internal_Rela *relocs,
3860 Elf_Internal_Sym *local_syms,
3861 asection **local_sections)
3862 {
3863 struct elf_x86_64_link_hash_table *htab;
3864 Elf_Internal_Shdr *symtab_hdr;
3865 struct elf_link_hash_entry **sym_hashes;
3866 bfd_vma *local_got_offsets;
3867 bfd_vma *local_tlsdesc_gotents;
3868 Elf_Internal_Rela *rel;
3869 Elf_Internal_Rela *wrel;
3870 Elf_Internal_Rela *relend;
3871 const unsigned int plt_entry_size = GET_PLT_ENTRY_SIZE (info->output_bfd);
3872
3873 BFD_ASSERT (is_x86_64_elf (input_bfd));
3874
3875 htab = elf_x86_64_hash_table (info);
3876 if (htab == NULL)
3877 return FALSE;
3878 symtab_hdr = &elf_symtab_hdr (input_bfd);
3879 sym_hashes = elf_sym_hashes (input_bfd);
3880 local_got_offsets = elf_local_got_offsets (input_bfd);
3881 local_tlsdesc_gotents = elf_x86_64_local_tlsdesc_gotent (input_bfd);
3882
3883 elf_x86_64_set_tls_module_base (info);
3884
3885 rel = wrel = relocs;
3886 relend = relocs + input_section->reloc_count;
3887 for (; rel < relend; wrel++, rel++)
3888 {
3889 unsigned int r_type;
3890 reloc_howto_type *howto;
3891 unsigned long r_symndx;
3892 struct elf_link_hash_entry *h;
3893 struct elf_x86_64_link_hash_entry *eh;
3894 Elf_Internal_Sym *sym;
3895 asection *sec;
3896 bfd_vma off, offplt, plt_offset;
3897 bfd_vma relocation;
3898 bfd_boolean unresolved_reloc;
3899 bfd_reloc_status_type r;
3900 int tls_type;
3901 asection *base_got, *resolved_plt;
3902 bfd_vma st_size;
3903
3904 r_type = ELF32_R_TYPE (rel->r_info);
3905 if (r_type == (int) R_X86_64_GNU_VTINHERIT
3906 || r_type == (int) R_X86_64_GNU_VTENTRY)
3907 {
3908 if (wrel != rel)
3909 *wrel = *rel;
3910 continue;
3911 }
3912
3913 if (r_type >= (int) R_X86_64_standard)
3914 {
3915 (*_bfd_error_handler)
3916 (_("%B: unrecognized relocation (0x%x) in section `%A'"),
3917 input_bfd, input_section, r_type);
3918 bfd_set_error (bfd_error_bad_value);
3919 return FALSE;
3920 }
3921
3922 if (r_type != (int) R_X86_64_32
3923 || ABI_64_P (output_bfd))
3924 howto = x86_64_elf_howto_table + r_type;
3925 else
3926 howto = (x86_64_elf_howto_table
3927 + ARRAY_SIZE (x86_64_elf_howto_table) - 1);
3928 r_symndx = htab->r_sym (rel->r_info);
3929 h = NULL;
3930 sym = NULL;
3931 sec = NULL;
3932 unresolved_reloc = FALSE;
3933 if (r_symndx < symtab_hdr->sh_info)
3934 {
3935 sym = local_syms + r_symndx;
3936 sec = local_sections[r_symndx];
3937
3938 relocation = _bfd_elf_rela_local_sym (output_bfd, sym,
3939 &sec, rel);
3940 st_size = sym->st_size;
3941
3942 /* Relocate against local STT_GNU_IFUNC symbol. */
3943 if (!bfd_link_relocatable (info)
3944 && ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
3945 {
3946 h = elf_x86_64_get_local_sym_hash (htab, input_bfd,
3947 rel, FALSE);
3948 if (h == NULL)
3949 abort ();
3950
3951 /* Set STT_GNU_IFUNC symbol value. */
3952 h->root.u.def.value = sym->st_value;
3953 h->root.u.def.section = sec;
3954 }
3955 }
3956 else
3957 {
3958 bfd_boolean warned ATTRIBUTE_UNUSED;
3959 bfd_boolean ignored ATTRIBUTE_UNUSED;
3960
3961 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
3962 r_symndx, symtab_hdr, sym_hashes,
3963 h, sec, relocation,
3964 unresolved_reloc, warned, ignored);
3965 st_size = h->size;
3966 }
3967
3968 if (sec != NULL && discarded_section (sec))
3969 {
3970 _bfd_clear_contents (howto, input_bfd, input_section,
3971 contents + rel->r_offset);
3972 wrel->r_offset = rel->r_offset;
3973 wrel->r_info = 0;
3974 wrel->r_addend = 0;
3975
3976 /* For ld -r, remove relocations in debug sections against
3977 sections defined in discarded sections. Not done for
3978 eh_frame editing code expects to be present. */
3979 if (bfd_link_relocatable (info)
3980 && (input_section->flags & SEC_DEBUGGING))
3981 wrel--;
3982
3983 continue;
3984 }
3985
3986 if (bfd_link_relocatable (info))
3987 {
3988 if (wrel != rel)
3989 *wrel = *rel;
3990 continue;
3991 }
3992
3993 if (rel->r_addend == 0 && !ABI_64_P (output_bfd))
3994 {
3995 if (r_type == R_X86_64_64)
3996 {
3997 /* For x32, treat R_X86_64_64 like R_X86_64_32 and
3998 zero-extend it to 64bit if addend is zero. */
3999 r_type = R_X86_64_32;
4000 memset (contents + rel->r_offset + 4, 0, 4);
4001 }
4002 else if (r_type == R_X86_64_SIZE64)
4003 {
4004 /* For x32, treat R_X86_64_SIZE64 like R_X86_64_SIZE32 and
4005 zero-extend it to 64bit if addend is zero. */
4006 r_type = R_X86_64_SIZE32;
4007 memset (contents + rel->r_offset + 4, 0, 4);
4008 }
4009 }
4010
4011 eh = (struct elf_x86_64_link_hash_entry *) h;
4012
4013 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
4014 it here if it is defined in a non-shared object. */
4015 if (h != NULL
4016 && h->type == STT_GNU_IFUNC
4017 && h->def_regular)
4018 {
4019 bfd_vma plt_index;
4020 const char *name;
4021
4022 if ((input_section->flags & SEC_ALLOC) == 0)
4023 {
4024 /* Dynamic relocs are not propagated for SEC_DEBUGGING
4025 sections because such sections are not SEC_ALLOC and
4026 thus ld.so will not process them. */
4027 if ((input_section->flags & SEC_DEBUGGING) != 0)
4028 continue;
4029 abort ();
4030 }
4031 else if (h->plt.offset == (bfd_vma) -1)
4032 abort ();
4033
4034 /* STT_GNU_IFUNC symbol must go through PLT. */
4035 if (htab->elf.splt != NULL)
4036 {
4037 if (htab->plt_bnd != NULL)
4038 {
4039 resolved_plt = htab->plt_bnd;
4040 plt_offset = eh->plt_bnd.offset;
4041 }
4042 else
4043 {
4044 resolved_plt = htab->elf.splt;
4045 plt_offset = h->plt.offset;
4046 }
4047 }
4048 else
4049 {
4050 resolved_plt = htab->elf.iplt;
4051 plt_offset = h->plt.offset;
4052 }
4053
4054 relocation = (resolved_plt->output_section->vma
4055 + resolved_plt->output_offset + plt_offset);
4056
4057 switch (r_type)
4058 {
4059 default:
4060 if (h->root.root.string)
4061 name = h->root.root.string;
4062 else
4063 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
4064 NULL);
4065 (*_bfd_error_handler)
4066 (_("%B: relocation %s against STT_GNU_IFUNC "
4067 "symbol `%s' isn't handled by %s"), input_bfd,
4068 x86_64_elf_howto_table[r_type].name,
4069 name, __FUNCTION__);
4070 bfd_set_error (bfd_error_bad_value);
4071 return FALSE;
4072
4073 case R_X86_64_32S:
4074 if (bfd_link_pic (info))
4075 abort ();
4076 goto do_relocation;
4077
4078 case R_X86_64_32:
4079 if (ABI_64_P (output_bfd))
4080 goto do_relocation;
4081 /* FALLTHROUGH */
4082 case R_X86_64_64:
4083 if (rel->r_addend != 0)
4084 {
4085 if (h->root.root.string)
4086 name = h->root.root.string;
4087 else
4088 name = bfd_elf_sym_name (input_bfd, symtab_hdr,
4089 sym, NULL);
4090 (*_bfd_error_handler)
4091 (_("%B: relocation %s against STT_GNU_IFUNC "
4092 "symbol `%s' has non-zero addend: %d"),
4093 input_bfd, x86_64_elf_howto_table[r_type].name,
4094 name, rel->r_addend);
4095 bfd_set_error (bfd_error_bad_value);
4096 return FALSE;
4097 }
4098
4099 /* Generate dynamic relcoation only when there is a
4100 non-GOT reference in a shared object. */
4101 if (bfd_link_pic (info) && h->non_got_ref)
4102 {
4103 Elf_Internal_Rela outrel;
4104 asection *sreloc;
4105
4106 /* Need a dynamic relocation to get the real function
4107 address. */
4108 outrel.r_offset = _bfd_elf_section_offset (output_bfd,
4109 info,
4110 input_section,
4111 rel->r_offset);
4112 if (outrel.r_offset == (bfd_vma) -1
4113 || outrel.r_offset == (bfd_vma) -2)
4114 abort ();
4115
4116 outrel.r_offset += (input_section->output_section->vma
4117 + input_section->output_offset);
4118
4119 if (h->dynindx == -1
4120 || h->forced_local
4121 || bfd_link_executable (info))
4122 {
4123 /* This symbol is resolved locally. */
4124 outrel.r_info = htab->r_info (0, R_X86_64_IRELATIVE);
4125 outrel.r_addend = (h->root.u.def.value
4126 + h->root.u.def.section->output_section->vma
4127 + h->root.u.def.section->output_offset);
4128 }
4129 else
4130 {
4131 outrel.r_info = htab->r_info (h->dynindx, r_type);
4132 outrel.r_addend = 0;
4133 }
4134
4135 sreloc = htab->elf.irelifunc;
4136 elf_append_rela (output_bfd, sreloc, &outrel);
4137
4138 /* If this reloc is against an external symbol, we
4139 do not want to fiddle with the addend. Otherwise,
4140 we need to include the symbol value so that it
4141 becomes an addend for the dynamic reloc. For an
4142 internal symbol, we have updated addend. */
4143 continue;
4144 }
4145 /* FALLTHROUGH */
4146 case R_X86_64_PC32:
4147 case R_X86_64_PC32_BND:
4148 case R_X86_64_PC64:
4149 case R_X86_64_PLT32:
4150 case R_X86_64_PLT32_BND:
4151 goto do_relocation;
4152
4153 case R_X86_64_GOTPCREL:
4154 case R_X86_64_GOTPCRELX:
4155 case R_X86_64_REX_GOTPCRELX:
4156 case R_X86_64_GOTPCREL64:
4157 base_got = htab->elf.sgot;
4158 off = h->got.offset;
4159
4160 if (base_got == NULL)
4161 abort ();
4162
4163 if (off == (bfd_vma) -1)
4164 {
4165 /* We can't use h->got.offset here to save state, or
4166 even just remember the offset, as finish_dynamic_symbol
4167 would use that as offset into .got. */
4168
4169 if (htab->elf.splt != NULL)
4170 {
4171 plt_index = h->plt.offset / plt_entry_size - 1;
4172 off = (plt_index + 3) * GOT_ENTRY_SIZE;
4173 base_got = htab->elf.sgotplt;
4174 }
4175 else
4176 {
4177 plt_index = h->plt.offset / plt_entry_size;
4178 off = plt_index * GOT_ENTRY_SIZE;
4179 base_got = htab->elf.igotplt;
4180 }
4181
4182 if (h->dynindx == -1
4183 || h->forced_local
4184 || info->symbolic)
4185 {
4186 /* This references the local defitionion. We must
4187 initialize this entry in the global offset table.
4188 Since the offset must always be a multiple of 8,
4189 we use the least significant bit to record
4190 whether we have initialized it already.
4191
4192 When doing a dynamic link, we create a .rela.got
4193 relocation entry to initialize the value. This
4194 is done in the finish_dynamic_symbol routine. */
4195 if ((off & 1) != 0)
4196 off &= ~1;
4197 else
4198 {
4199 bfd_put_64 (output_bfd, relocation,
4200 base_got->contents + off);
4201 /* Note that this is harmless for the GOTPLT64
4202 case, as -1 | 1 still is -1. */
4203 h->got.offset |= 1;
4204 }
4205 }
4206 }
4207
4208 relocation = (base_got->output_section->vma
4209 + base_got->output_offset + off);
4210
4211 goto do_relocation;
4212 }
4213 }
4214
4215 /* When generating a shared object, the relocations handled here are
4216 copied into the output file to be resolved at run time. */
4217 switch (r_type)
4218 {
4219 case R_X86_64_GOT32:
4220 case R_X86_64_GOT64:
4221 /* Relocation is to the entry for this symbol in the global
4222 offset table. */
4223 case R_X86_64_GOTPCREL:
4224 case R_X86_64_GOTPCRELX:
4225 case R_X86_64_REX_GOTPCRELX:
4226 case R_X86_64_GOTPCREL64:
4227 /* Use global offset table entry as symbol value. */
4228 case R_X86_64_GOTPLT64:
4229 /* This is obsolete and treated the the same as GOT64. */
4230 base_got = htab->elf.sgot;
4231
4232 if (htab->elf.sgot == NULL)
4233 abort ();
4234
4235 if (h != NULL)
4236 {
4237 bfd_boolean dyn;
4238
4239 off = h->got.offset;
4240 if (h->needs_plt
4241 && h->plt.offset != (bfd_vma)-1
4242 && off == (bfd_vma)-1)
4243 {
4244 /* We can't use h->got.offset here to save
4245 state, or even just remember the offset, as
4246 finish_dynamic_symbol would use that as offset into
4247 .got. */
4248 bfd_vma plt_index = h->plt.offset / plt_entry_size - 1;
4249 off = (plt_index + 3) * GOT_ENTRY_SIZE;
4250 base_got = htab->elf.sgotplt;
4251 }
4252
4253 dyn = htab->elf.dynamic_sections_created;
4254
4255 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, bfd_link_pic (info), h)
4256 || (bfd_link_pic (info)
4257 && SYMBOL_REFERENCES_LOCAL (info, h))
4258 || (ELF_ST_VISIBILITY (h->other)
4259 && h->root.type == bfd_link_hash_undefweak))
4260 {
4261 /* This is actually a static link, or it is a -Bsymbolic
4262 link and the symbol is defined locally, or the symbol
4263 was forced to be local because of a version file. We
4264 must initialize this entry in the global offset table.
4265 Since the offset must always be a multiple of 8, we
4266 use the least significant bit to record whether we
4267 have initialized it already.
4268
4269 When doing a dynamic link, we create a .rela.got
4270 relocation entry to initialize the value. This is
4271 done in the finish_dynamic_symbol routine. */
4272 if ((off & 1) != 0)
4273 off &= ~1;
4274 else
4275 {
4276 bfd_put_64 (output_bfd, relocation,
4277 base_got->contents + off);
4278 /* Note that this is harmless for the GOTPLT64 case,
4279 as -1 | 1 still is -1. */
4280 h->got.offset |= 1;
4281 }
4282 }
4283 else
4284 unresolved_reloc = FALSE;
4285 }
4286 else
4287 {
4288 if (local_got_offsets == NULL)
4289 abort ();
4290
4291 off = local_got_offsets[r_symndx];
4292
4293 /* The offset must always be a multiple of 8. We use
4294 the least significant bit to record whether we have
4295 already generated the necessary reloc. */
4296 if ((off & 1) != 0)
4297 off &= ~1;
4298 else
4299 {
4300 bfd_put_64 (output_bfd, relocation,
4301 base_got->contents + off);
4302
4303 if (bfd_link_pic (info))
4304 {
4305 asection *s;
4306 Elf_Internal_Rela outrel;
4307
4308 /* We need to generate a R_X86_64_RELATIVE reloc
4309 for the dynamic linker. */
4310 s = htab->elf.srelgot;
4311 if (s == NULL)
4312 abort ();
4313
4314 outrel.r_offset = (base_got->output_section->vma
4315 + base_got->output_offset
4316 + off);
4317 outrel.r_info = htab->r_info (0, R_X86_64_RELATIVE);
4318 outrel.r_addend = relocation;
4319 elf_append_rela (output_bfd, s, &outrel);
4320 }
4321
4322 local_got_offsets[r_symndx] |= 1;
4323 }
4324 }
4325
4326 if (off >= (bfd_vma) -2)
4327 abort ();
4328
4329 relocation = base_got->output_section->vma
4330 + base_got->output_offset + off;
4331 if (r_type != R_X86_64_GOTPCREL
4332 && r_type != R_X86_64_GOTPCRELX
4333 && r_type != R_X86_64_REX_GOTPCRELX
4334 && r_type != R_X86_64_GOTPCREL64)
4335 relocation -= htab->elf.sgotplt->output_section->vma
4336 - htab->elf.sgotplt->output_offset;
4337
4338 break;
4339
4340 case R_X86_64_GOTOFF64:
4341 /* Relocation is relative to the start of the global offset
4342 table. */
4343
4344 /* Check to make sure it isn't a protected function or data
4345 symbol for shared library since it may not be local when
4346 used as function address or with copy relocation. We also
4347 need to make sure that a symbol is referenced locally. */
4348 if (bfd_link_pic (info) && h)
4349 {
4350 if (!h->def_regular)
4351 {
4352 const char *v;
4353
4354 switch (ELF_ST_VISIBILITY (h->other))
4355 {
4356 case STV_HIDDEN:
4357 v = _("hidden symbol");
4358 break;
4359 case STV_INTERNAL:
4360 v = _("internal symbol");
4361 break;
4362 case STV_PROTECTED:
4363 v = _("protected symbol");
4364 break;
4365 default:
4366 v = _("symbol");
4367 break;
4368 }
4369
4370 (*_bfd_error_handler)
4371 (_("%B: relocation R_X86_64_GOTOFF64 against undefined %s `%s' can not be used when making a shared object"),
4372 input_bfd, v, h->root.root.string);
4373 bfd_set_error (bfd_error_bad_value);
4374 return FALSE;
4375 }
4376 else if (!bfd_link_executable (info)
4377 && !SYMBOL_REFERENCES_LOCAL (info, h)
4378 && (h->type == STT_FUNC
4379 || h->type == STT_OBJECT)
4380 && ELF_ST_VISIBILITY (h->other) == STV_PROTECTED)
4381 {
4382 (*_bfd_error_handler)
4383 (_("%B: relocation R_X86_64_GOTOFF64 against protected %s `%s' can not be used when making a shared object"),
4384 input_bfd,
4385 h->type == STT_FUNC ? "function" : "data",
4386 h->root.root.string);
4387 bfd_set_error (bfd_error_bad_value);
4388 return FALSE;
4389 }
4390 }
4391
4392 /* Note that sgot is not involved in this
4393 calculation. We always want the start of .got.plt. If we
4394 defined _GLOBAL_OFFSET_TABLE_ in a different way, as is
4395 permitted by the ABI, we might have to change this
4396 calculation. */
4397 relocation -= htab->elf.sgotplt->output_section->vma
4398 + htab->elf.sgotplt->output_offset;
4399 break;
4400
4401 case R_X86_64_GOTPC32:
4402 case R_X86_64_GOTPC64:
4403 /* Use global offset table as symbol value. */
4404 relocation = htab->elf.sgotplt->output_section->vma
4405 + htab->elf.sgotplt->output_offset;
4406 unresolved_reloc = FALSE;
4407 break;
4408
4409 case R_X86_64_PLTOFF64:
4410 /* Relocation is PLT entry relative to GOT. For local
4411 symbols it's the symbol itself relative to GOT. */
4412 if (h != NULL
4413 /* See PLT32 handling. */
4414 && h->plt.offset != (bfd_vma) -1
4415 && htab->elf.splt != NULL)
4416 {
4417 if (htab->plt_bnd != NULL)
4418 {
4419 resolved_plt = htab->plt_bnd;
4420 plt_offset = eh->plt_bnd.offset;
4421 }
4422 else
4423 {
4424 resolved_plt = htab->elf.splt;
4425 plt_offset = h->plt.offset;
4426 }
4427
4428 relocation = (resolved_plt->output_section->vma
4429 + resolved_plt->output_offset
4430 + plt_offset);
4431 unresolved_reloc = FALSE;
4432 }
4433
4434 relocation -= htab->elf.sgotplt->output_section->vma
4435 + htab->elf.sgotplt->output_offset;
4436 break;
4437
4438 case R_X86_64_PLT32:
4439 case R_X86_64_PLT32_BND:
4440 /* Relocation is to the entry for this symbol in the
4441 procedure linkage table. */
4442
4443 /* Resolve a PLT32 reloc against a local symbol directly,
4444 without using the procedure linkage table. */
4445 if (h == NULL)
4446 break;
4447
4448 if ((h->plt.offset == (bfd_vma) -1
4449 && eh->plt_got.offset == (bfd_vma) -1)
4450 || htab->elf.splt == NULL)
4451 {
4452 /* We didn't make a PLT entry for this symbol. This
4453 happens when statically linking PIC code, or when
4454 using -Bsymbolic. */
4455 break;
4456 }
4457
4458 if (h->plt.offset != (bfd_vma) -1)
4459 {
4460 if (htab->plt_bnd != NULL)
4461 {
4462 resolved_plt = htab->plt_bnd;
4463 plt_offset = eh->plt_bnd.offset;
4464 }
4465 else
4466 {
4467 resolved_plt = htab->elf.splt;
4468 plt_offset = h->plt.offset;
4469 }
4470 }
4471 else
4472 {
4473 /* Use the GOT PLT. */
4474 resolved_plt = htab->plt_got;
4475 plt_offset = eh->plt_got.offset;
4476 }
4477
4478 relocation = (resolved_plt->output_section->vma
4479 + resolved_plt->output_offset
4480 + plt_offset);
4481 unresolved_reloc = FALSE;
4482 break;
4483
4484 case R_X86_64_SIZE32:
4485 case R_X86_64_SIZE64:
4486 /* Set to symbol size. */
4487 relocation = st_size;
4488 goto direct;
4489
4490 case R_X86_64_PC8:
4491 case R_X86_64_PC16:
4492 case R_X86_64_PC32:
4493 case R_X86_64_PC32_BND:
4494 /* Don't complain about -fPIC if the symbol is undefined when
4495 building executable. */
4496 if (bfd_link_pic (info)
4497 && (input_section->flags & SEC_ALLOC) != 0
4498 && (input_section->flags & SEC_READONLY) != 0
4499 && h != NULL
4500 && !(bfd_link_executable (info)
4501 && h->root.type == bfd_link_hash_undefined))
4502 {
4503 bfd_boolean fail = FALSE;
4504 bfd_boolean branch
4505 = ((r_type == R_X86_64_PC32
4506 || r_type == R_X86_64_PC32_BND)
4507 && is_32bit_relative_branch (contents, rel->r_offset));
4508
4509 if (SYMBOL_REFERENCES_LOCAL (info, h))
4510 {
4511 /* Symbol is referenced locally. Make sure it is
4512 defined locally or for a branch. */
4513 fail = !h->def_regular && !branch;
4514 }
4515 else if (!(bfd_link_executable (info)
4516 && (h->needs_copy || eh->needs_copy)))
4517 {
4518 /* Symbol doesn't need copy reloc and isn't referenced
4519 locally. We only allow branch to symbol with
4520 non-default visibility. */
4521 fail = (!branch
4522 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT);
4523 }
4524
4525 if (fail)
4526 {
4527 const char *fmt;
4528 const char *v;
4529 const char *pic = "";
4530
4531 switch (ELF_ST_VISIBILITY (h->other))
4532 {
4533 case STV_HIDDEN:
4534 v = _("hidden symbol");
4535 break;
4536 case STV_INTERNAL:
4537 v = _("internal symbol");
4538 break;
4539 case STV_PROTECTED:
4540 v = _("protected symbol");
4541 break;
4542 default:
4543 v = _("symbol");
4544 pic = _("; recompile with -fPIC");
4545 break;
4546 }
4547
4548 if (h->def_regular)
4549 fmt = _("%B: relocation %s against %s `%s' can not be used when making a shared object%s");
4550 else
4551 fmt = _("%B: relocation %s against undefined %s `%s' can not be used when making a shared object%s");
4552
4553 (*_bfd_error_handler) (fmt, input_bfd,
4554 x86_64_elf_howto_table[r_type].name,
4555 v, h->root.root.string, pic);
4556 bfd_set_error (bfd_error_bad_value);
4557 return FALSE;
4558 }
4559 }
4560 /* Fall through. */
4561
4562 case R_X86_64_8:
4563 case R_X86_64_16:
4564 case R_X86_64_32:
4565 case R_X86_64_PC64:
4566 case R_X86_64_64:
4567 /* FIXME: The ABI says the linker should make sure the value is
4568 the same when it's zeroextended to 64 bit. */
4569
4570 direct:
4571 if ((input_section->flags & SEC_ALLOC) == 0)
4572 break;
4573
4574 /* Don't copy a pc-relative relocation into the output file
4575 if the symbol needs copy reloc or the symbol is undefined
4576 when building executable. Copy dynamic function pointer
4577 relocations. */
4578 if ((bfd_link_pic (info)
4579 && !(bfd_link_executable (info)
4580 && h != NULL
4581 && (h->needs_copy
4582 || eh->needs_copy
4583 || h->root.type == bfd_link_hash_undefined)
4584 && IS_X86_64_PCREL_TYPE (r_type))
4585 && (h == NULL
4586 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
4587 || h->root.type != bfd_link_hash_undefweak)
4588 && ((! IS_X86_64_PCREL_TYPE (r_type)
4589 && r_type != R_X86_64_SIZE32
4590 && r_type != R_X86_64_SIZE64)
4591 || ! SYMBOL_CALLS_LOCAL (info, h)))
4592 || (ELIMINATE_COPY_RELOCS
4593 && !bfd_link_pic (info)
4594 && h != NULL
4595 && h->dynindx != -1
4596 && (!h->non_got_ref || eh->func_pointer_refcount > 0)
4597 && ((h->def_dynamic
4598 && !h->def_regular)
4599 || h->root.type == bfd_link_hash_undefweak
4600 || h->root.type == bfd_link_hash_undefined)))
4601 {
4602 Elf_Internal_Rela outrel;
4603 bfd_boolean skip, relocate;
4604 asection *sreloc;
4605
4606 /* When generating a shared object, these relocations
4607 are copied into the output file to be resolved at run
4608 time. */
4609 skip = FALSE;
4610 relocate = FALSE;
4611
4612 outrel.r_offset =
4613 _bfd_elf_section_offset (output_bfd, info, input_section,
4614 rel->r_offset);
4615 if (outrel.r_offset == (bfd_vma) -1)
4616 skip = TRUE;
4617 else if (outrel.r_offset == (bfd_vma) -2)
4618 skip = TRUE, relocate = TRUE;
4619
4620 outrel.r_offset += (input_section->output_section->vma
4621 + input_section->output_offset);
4622
4623 if (skip)
4624 memset (&outrel, 0, sizeof outrel);
4625
4626 /* h->dynindx may be -1 if this symbol was marked to
4627 become local. */
4628 else if (h != NULL
4629 && h->dynindx != -1
4630 && (IS_X86_64_PCREL_TYPE (r_type)
4631 || ! bfd_link_pic (info)
4632 || ! SYMBOLIC_BIND (info, h)
4633 || ! h->def_regular))
4634 {
4635 outrel.r_info = htab->r_info (h->dynindx, r_type);
4636 outrel.r_addend = rel->r_addend;
4637 }
4638 else
4639 {
4640 /* This symbol is local, or marked to become local. */
4641 if (r_type == htab->pointer_r_type)
4642 {
4643 relocate = TRUE;
4644 outrel.r_info = htab->r_info (0, R_X86_64_RELATIVE);
4645 outrel.r_addend = relocation + rel->r_addend;
4646 }
4647 else if (r_type == R_X86_64_64
4648 && !ABI_64_P (output_bfd))
4649 {
4650 relocate = TRUE;
4651 outrel.r_info = htab->r_info (0,
4652 R_X86_64_RELATIVE64);
4653 outrel.r_addend = relocation + rel->r_addend;
4654 /* Check addend overflow. */
4655 if ((outrel.r_addend & 0x80000000)
4656 != (rel->r_addend & 0x80000000))
4657 {
4658 const char *name;
4659 int addend = rel->r_addend;
4660 if (h && h->root.root.string)
4661 name = h->root.root.string;
4662 else
4663 name = bfd_elf_sym_name (input_bfd, symtab_hdr,
4664 sym, NULL);
4665 if (addend < 0)
4666 (*_bfd_error_handler)
4667 (_("%B: addend -0x%x in relocation %s against "
4668 "symbol `%s' at 0x%lx in section `%A' is "
4669 "out of range"),
4670 input_bfd, input_section, addend,
4671 x86_64_elf_howto_table[r_type].name,
4672 name, (unsigned long) rel->r_offset);
4673 else
4674 (*_bfd_error_handler)
4675 (_("%B: addend 0x%x in relocation %s against "
4676 "symbol `%s' at 0x%lx in section `%A' is "
4677 "out of range"),
4678 input_bfd, input_section, addend,
4679 x86_64_elf_howto_table[r_type].name,
4680 name, (unsigned long) rel->r_offset);
4681 bfd_set_error (bfd_error_bad_value);
4682 return FALSE;
4683 }
4684 }
4685 else
4686 {
4687 long sindx;
4688
4689 if (bfd_is_abs_section (sec))
4690 sindx = 0;
4691 else if (sec == NULL || sec->owner == NULL)
4692 {
4693 bfd_set_error (bfd_error_bad_value);
4694 return FALSE;
4695 }
4696 else
4697 {
4698 asection *osec;
4699
4700 /* We are turning this relocation into one
4701 against a section symbol. It would be
4702 proper to subtract the symbol's value,
4703 osec->vma, from the emitted reloc addend,
4704 but ld.so expects buggy relocs. */
4705 osec = sec->output_section;
4706 sindx = elf_section_data (osec)->dynindx;
4707 if (sindx == 0)
4708 {
4709 asection *oi = htab->elf.text_index_section;
4710 sindx = elf_section_data (oi)->dynindx;
4711 }
4712 BFD_ASSERT (sindx != 0);
4713 }
4714
4715 outrel.r_info = htab->r_info (sindx, r_type);
4716 outrel.r_addend = relocation + rel->r_addend;
4717 }
4718 }
4719
4720 sreloc = elf_section_data (input_section)->sreloc;
4721
4722 if (sreloc == NULL || sreloc->contents == NULL)
4723 {
4724 r = bfd_reloc_notsupported;
4725 goto check_relocation_error;
4726 }
4727
4728 elf_append_rela (output_bfd, sreloc, &outrel);
4729
4730 /* If this reloc is against an external symbol, we do
4731 not want to fiddle with the addend. Otherwise, we
4732 need to include the symbol value so that it becomes
4733 an addend for the dynamic reloc. */
4734 if (! relocate)
4735 continue;
4736 }
4737
4738 break;
4739
4740 case R_X86_64_TLSGD:
4741 case R_X86_64_GOTPC32_TLSDESC:
4742 case R_X86_64_TLSDESC_CALL:
4743 case R_X86_64_GOTTPOFF:
4744 tls_type = GOT_UNKNOWN;
4745 if (h == NULL && local_got_offsets)
4746 tls_type = elf_x86_64_local_got_tls_type (input_bfd) [r_symndx];
4747 else if (h != NULL)
4748 tls_type = elf_x86_64_hash_entry (h)->tls_type;
4749
4750 if (! elf_x86_64_tls_transition (info, input_bfd,
4751 input_section, contents,
4752 symtab_hdr, sym_hashes,
4753 &r_type, tls_type, rel,
4754 relend, h, r_symndx))
4755 return FALSE;
4756
4757 if (r_type == R_X86_64_TPOFF32)
4758 {
4759 bfd_vma roff = rel->r_offset;
4760
4761 BFD_ASSERT (! unresolved_reloc);
4762
4763 if (ELF32_R_TYPE (rel->r_info) == R_X86_64_TLSGD)
4764 {
4765 /* GD->LE transition. For 64bit, change
4766 .byte 0x66; leaq foo@tlsgd(%rip), %rdi
4767 .word 0x6666; rex64; call __tls_get_addr
4768 into:
4769 movq %fs:0, %rax
4770 leaq foo@tpoff(%rax), %rax
4771 For 32bit, change
4772 leaq foo@tlsgd(%rip), %rdi
4773 .word 0x6666; rex64; call __tls_get_addr
4774 into:
4775 movl %fs:0, %eax
4776 leaq foo@tpoff(%rax), %rax
4777 For largepic, change:
4778 leaq foo@tlsgd(%rip), %rdi
4779 movabsq $__tls_get_addr@pltoff, %rax
4780 addq %rbx, %rax
4781 call *%rax
4782 into:
4783 movq %fs:0, %rax
4784 leaq foo@tpoff(%rax), %rax
4785 nopw 0x0(%rax,%rax,1) */
4786 int largepic = 0;
4787 if (ABI_64_P (output_bfd)
4788 && contents[roff + 5] == (bfd_byte) '\xb8')
4789 {
4790 memcpy (contents + roff - 3,
4791 "\x64\x48\x8b\x04\x25\0\0\0\0\x48\x8d\x80"
4792 "\0\0\0\0\x66\x0f\x1f\x44\0", 22);
4793 largepic = 1;
4794 }
4795 else if (ABI_64_P (output_bfd))
4796 memcpy (contents + roff - 4,
4797 "\x64\x48\x8b\x04\x25\0\0\0\0\x48\x8d\x80\0\0\0",
4798 16);
4799 else
4800 memcpy (contents + roff - 3,
4801 "\x64\x8b\x04\x25\0\0\0\0\x48\x8d\x80\0\0\0",
4802 15);
4803 bfd_put_32 (output_bfd,
4804 elf_x86_64_tpoff (info, relocation),
4805 contents + roff + 8 + largepic);
4806 /* Skip R_X86_64_PC32/R_X86_64_PLT32/R_X86_64_PLTOFF64. */
4807 rel++;
4808 wrel++;
4809 continue;
4810 }
4811 else if (ELF32_R_TYPE (rel->r_info) == R_X86_64_GOTPC32_TLSDESC)
4812 {
4813 /* GDesc -> LE transition.
4814 It's originally something like:
4815 leaq x@tlsdesc(%rip), %rax
4816
4817 Change it to:
4818 movl $x@tpoff, %rax. */
4819
4820 unsigned int val, type;
4821
4822 type = bfd_get_8 (input_bfd, contents + roff - 3);
4823 val = bfd_get_8 (input_bfd, contents + roff - 1);
4824 bfd_put_8 (output_bfd, 0x48 | ((type >> 2) & 1),
4825 contents + roff - 3);
4826 bfd_put_8 (output_bfd, 0xc7, contents + roff - 2);
4827 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
4828 contents + roff - 1);
4829 bfd_put_32 (output_bfd,
4830 elf_x86_64_tpoff (info, relocation),
4831 contents + roff);
4832 continue;
4833 }
4834 else if (ELF32_R_TYPE (rel->r_info) == R_X86_64_TLSDESC_CALL)
4835 {
4836 /* GDesc -> LE transition.
4837 It's originally:
4838 call *(%rax)
4839 Turn it into:
4840 xchg %ax,%ax. */
4841 bfd_put_8 (output_bfd, 0x66, contents + roff);
4842 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
4843 continue;
4844 }
4845 else if (ELF32_R_TYPE (rel->r_info) == R_X86_64_GOTTPOFF)
4846 {
4847 /* IE->LE transition:
4848 For 64bit, originally it can be one of:
4849 movq foo@gottpoff(%rip), %reg
4850 addq foo@gottpoff(%rip), %reg
4851 We change it into:
4852 movq $foo, %reg
4853 leaq foo(%reg), %reg
4854 addq $foo, %reg.
4855 For 32bit, originally it can be one of:
4856 movq foo@gottpoff(%rip), %reg
4857 addl foo@gottpoff(%rip), %reg
4858 We change it into:
4859 movq $foo, %reg
4860 leal foo(%reg), %reg
4861 addl $foo, %reg. */
4862
4863 unsigned int val, type, reg;
4864
4865 if (roff >= 3)
4866 val = bfd_get_8 (input_bfd, contents + roff - 3);
4867 else
4868 val = 0;
4869 type = bfd_get_8 (input_bfd, contents + roff - 2);
4870 reg = bfd_get_8 (input_bfd, contents + roff - 1);
4871 reg >>= 3;
4872 if (type == 0x8b)
4873 {
4874 /* movq */
4875 if (val == 0x4c)
4876 bfd_put_8 (output_bfd, 0x49,
4877 contents + roff - 3);
4878 else if (!ABI_64_P (output_bfd) && val == 0x44)
4879 bfd_put_8 (output_bfd, 0x41,
4880 contents + roff - 3);
4881 bfd_put_8 (output_bfd, 0xc7,
4882 contents + roff - 2);
4883 bfd_put_8 (output_bfd, 0xc0 | reg,
4884 contents + roff - 1);
4885 }
4886 else if (reg == 4)
4887 {
4888 /* addq/addl -> addq/addl - addressing with %rsp/%r12
4889 is special */
4890 if (val == 0x4c)
4891 bfd_put_8 (output_bfd, 0x49,
4892 contents + roff - 3);
4893 else if (!ABI_64_P (output_bfd) && val == 0x44)
4894 bfd_put_8 (output_bfd, 0x41,
4895 contents + roff - 3);
4896 bfd_put_8 (output_bfd, 0x81,
4897 contents + roff - 2);
4898 bfd_put_8 (output_bfd, 0xc0 | reg,
4899 contents + roff - 1);
4900 }
4901 else
4902 {
4903 /* addq/addl -> leaq/leal */
4904 if (val == 0x4c)
4905 bfd_put_8 (output_bfd, 0x4d,
4906 contents + roff - 3);
4907 else if (!ABI_64_P (output_bfd) && val == 0x44)
4908 bfd_put_8 (output_bfd, 0x45,
4909 contents + roff - 3);
4910 bfd_put_8 (output_bfd, 0x8d,
4911 contents + roff - 2);
4912 bfd_put_8 (output_bfd, 0x80 | reg | (reg << 3),
4913 contents + roff - 1);
4914 }
4915 bfd_put_32 (output_bfd,
4916 elf_x86_64_tpoff (info, relocation),
4917 contents + roff);
4918 continue;
4919 }
4920 else
4921 BFD_ASSERT (FALSE);
4922 }
4923
4924 if (htab->elf.sgot == NULL)
4925 abort ();
4926
4927 if (h != NULL)
4928 {
4929 off = h->got.offset;
4930 offplt = elf_x86_64_hash_entry (h)->tlsdesc_got;
4931 }
4932 else
4933 {
4934 if (local_got_offsets == NULL)
4935 abort ();
4936
4937 off = local_got_offsets[r_symndx];
4938 offplt = local_tlsdesc_gotents[r_symndx];
4939 }
4940
4941 if ((off & 1) != 0)
4942 off &= ~1;
4943 else
4944 {
4945 Elf_Internal_Rela outrel;
4946 int dr_type, indx;
4947 asection *sreloc;
4948
4949 if (htab->elf.srelgot == NULL)
4950 abort ();
4951
4952 indx = h && h->dynindx != -1 ? h->dynindx : 0;
4953
4954 if (GOT_TLS_GDESC_P (tls_type))
4955 {
4956 outrel.r_info = htab->r_info (indx, R_X86_64_TLSDESC);
4957 BFD_ASSERT (htab->sgotplt_jump_table_size + offplt
4958 + 2 * GOT_ENTRY_SIZE <= htab->elf.sgotplt->size);
4959 outrel.r_offset = (htab->elf.sgotplt->output_section->vma
4960 + htab->elf.sgotplt->output_offset
4961 + offplt
4962 + htab->sgotplt_jump_table_size);
4963 sreloc = htab->elf.srelplt;
4964 if (indx == 0)
4965 outrel.r_addend = relocation - elf_x86_64_dtpoff_base (info);
4966 else
4967 outrel.r_addend = 0;
4968 elf_append_rela (output_bfd, sreloc, &outrel);
4969 }
4970
4971 sreloc = htab->elf.srelgot;
4972
4973 outrel.r_offset = (htab->elf.sgot->output_section->vma
4974 + htab->elf.sgot->output_offset + off);
4975
4976 if (GOT_TLS_GD_P (tls_type))
4977 dr_type = R_X86_64_DTPMOD64;
4978 else if (GOT_TLS_GDESC_P (tls_type))
4979 goto dr_done;
4980 else
4981 dr_type = R_X86_64_TPOFF64;
4982
4983 bfd_put_64 (output_bfd, 0, htab->elf.sgot->contents + off);
4984 outrel.r_addend = 0;
4985 if ((dr_type == R_X86_64_TPOFF64
4986 || dr_type == R_X86_64_TLSDESC) && indx == 0)
4987 outrel.r_addend = relocation - elf_x86_64_dtpoff_base (info);
4988 outrel.r_info = htab->r_info (indx, dr_type);
4989
4990 elf_append_rela (output_bfd, sreloc, &outrel);
4991
4992 if (GOT_TLS_GD_P (tls_type))
4993 {
4994 if (indx == 0)
4995 {
4996 BFD_ASSERT (! unresolved_reloc);
4997 bfd_put_64 (output_bfd,
4998 relocation - elf_x86_64_dtpoff_base (info),
4999 htab->elf.sgot->contents + off + GOT_ENTRY_SIZE);
5000 }
5001 else
5002 {
5003 bfd_put_64 (output_bfd, 0,
5004 htab->elf.sgot->contents + off + GOT_ENTRY_SIZE);
5005 outrel.r_info = htab->r_info (indx,
5006 R_X86_64_DTPOFF64);
5007 outrel.r_offset += GOT_ENTRY_SIZE;
5008 elf_append_rela (output_bfd, sreloc,
5009 &outrel);
5010 }
5011 }
5012
5013 dr_done:
5014 if (h != NULL)
5015 h->got.offset |= 1;
5016 else
5017 local_got_offsets[r_symndx] |= 1;
5018 }
5019
5020 if (off >= (bfd_vma) -2
5021 && ! GOT_TLS_GDESC_P (tls_type))
5022 abort ();
5023 if (r_type == ELF32_R_TYPE (rel->r_info))
5024 {
5025 if (r_type == R_X86_64_GOTPC32_TLSDESC
5026 || r_type == R_X86_64_TLSDESC_CALL)
5027 relocation = htab->elf.sgotplt->output_section->vma
5028 + htab->elf.sgotplt->output_offset
5029 + offplt + htab->sgotplt_jump_table_size;
5030 else
5031 relocation = htab->elf.sgot->output_section->vma
5032 + htab->elf.sgot->output_offset + off;
5033 unresolved_reloc = FALSE;
5034 }
5035 else
5036 {
5037 bfd_vma roff = rel->r_offset;
5038
5039 if (ELF32_R_TYPE (rel->r_info) == R_X86_64_TLSGD)
5040 {
5041 /* GD->IE transition. For 64bit, change
5042 .byte 0x66; leaq foo@tlsgd(%rip), %rdi
5043 .word 0x6666; rex64; call __tls_get_addr@plt
5044 into:
5045 movq %fs:0, %rax
5046 addq foo@gottpoff(%rip), %rax
5047 For 32bit, change
5048 leaq foo@tlsgd(%rip), %rdi
5049 .word 0x6666; rex64; call __tls_get_addr@plt
5050 into:
5051 movl %fs:0, %eax
5052 addq foo@gottpoff(%rip), %rax
5053 For largepic, change:
5054 leaq foo@tlsgd(%rip), %rdi
5055 movabsq $__tls_get_addr@pltoff, %rax
5056 addq %rbx, %rax
5057 call *%rax
5058 into:
5059 movq %fs:0, %rax
5060 addq foo@gottpoff(%rax), %rax
5061 nopw 0x0(%rax,%rax,1) */
5062 int largepic = 0;
5063 if (ABI_64_P (output_bfd)
5064 && contents[roff + 5] == (bfd_byte) '\xb8')
5065 {
5066 memcpy (contents + roff - 3,
5067 "\x64\x48\x8b\x04\x25\0\0\0\0\x48\x03\x05"
5068 "\0\0\0\0\x66\x0f\x1f\x44\0", 22);
5069 largepic = 1;
5070 }
5071 else if (ABI_64_P (output_bfd))
5072 memcpy (contents + roff - 4,
5073 "\x64\x48\x8b\x04\x25\0\0\0\0\x48\x03\x05\0\0\0",
5074 16);
5075 else
5076 memcpy (contents + roff - 3,
5077 "\x64\x8b\x04\x25\0\0\0\0\x48\x03\x05\0\0\0",
5078 15);
5079
5080 relocation = (htab->elf.sgot->output_section->vma
5081 + htab->elf.sgot->output_offset + off
5082 - roff
5083 - largepic
5084 - input_section->output_section->vma
5085 - input_section->output_offset
5086 - 12);
5087 bfd_put_32 (output_bfd, relocation,
5088 contents + roff + 8 + largepic);
5089 /* Skip R_X86_64_PLT32/R_X86_64_PLTOFF64. */
5090 rel++;
5091 wrel++;
5092 continue;
5093 }
5094 else if (ELF32_R_TYPE (rel->r_info) == R_X86_64_GOTPC32_TLSDESC)
5095 {
5096 /* GDesc -> IE transition.
5097 It's originally something like:
5098 leaq x@tlsdesc(%rip), %rax
5099
5100 Change it to:
5101 movq x@gottpoff(%rip), %rax # before xchg %ax,%ax. */
5102
5103 /* Now modify the instruction as appropriate. To
5104 turn a leaq into a movq in the form we use it, it
5105 suffices to change the second byte from 0x8d to
5106 0x8b. */
5107 bfd_put_8 (output_bfd, 0x8b, contents + roff - 2);
5108
5109 bfd_put_32 (output_bfd,
5110 htab->elf.sgot->output_section->vma
5111 + htab->elf.sgot->output_offset + off
5112 - rel->r_offset
5113 - input_section->output_section->vma
5114 - input_section->output_offset
5115 - 4,
5116 contents + roff);
5117 continue;
5118 }
5119 else if (ELF32_R_TYPE (rel->r_info) == R_X86_64_TLSDESC_CALL)
5120 {
5121 /* GDesc -> IE transition.
5122 It's originally:
5123 call *(%rax)
5124
5125 Change it to:
5126 xchg %ax, %ax. */
5127
5128 bfd_put_8 (output_bfd, 0x66, contents + roff);
5129 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
5130 continue;
5131 }
5132 else
5133 BFD_ASSERT (FALSE);
5134 }
5135 break;
5136
5137 case R_X86_64_TLSLD:
5138 if (! elf_x86_64_tls_transition (info, input_bfd,
5139 input_section, contents,
5140 symtab_hdr, sym_hashes,
5141 &r_type, GOT_UNKNOWN,
5142 rel, relend, h, r_symndx))
5143 return FALSE;
5144
5145 if (r_type != R_X86_64_TLSLD)
5146 {
5147 /* LD->LE transition:
5148 leaq foo@tlsld(%rip), %rdi; call __tls_get_addr.
5149 For 64bit, we change it into:
5150 .word 0x6666; .byte 0x66; movq %fs:0, %rax.
5151 For 32bit, we change it into:
5152 nopl 0x0(%rax); movl %fs:0, %eax.
5153 For largepic, change:
5154 leaq foo@tlsgd(%rip), %rdi
5155 movabsq $__tls_get_addr@pltoff, %rax
5156 addq %rbx, %rax
5157 call *%rax
5158 into:
5159 data32 data32 data32 nopw %cs:0x0(%rax,%rax,1)
5160 movq %fs:0, %eax */
5161
5162 BFD_ASSERT (r_type == R_X86_64_TPOFF32);
5163 if (ABI_64_P (output_bfd)
5164 && contents[rel->r_offset + 5] == (bfd_byte) '\xb8')
5165 memcpy (contents + rel->r_offset - 3,
5166 "\x66\x66\x66\x66\x2e\x0f\x1f\x84\0\0\0\0\0"
5167 "\x64\x48\x8b\x04\x25\0\0\0", 22);
5168 else if (ABI_64_P (output_bfd))
5169 memcpy (contents + rel->r_offset - 3,
5170 "\x66\x66\x66\x64\x48\x8b\x04\x25\0\0\0", 12);
5171 else
5172 memcpy (contents + rel->r_offset - 3,
5173 "\x0f\x1f\x40\x00\x64\x8b\x04\x25\0\0\0", 12);
5174 /* Skip R_X86_64_PC32/R_X86_64_PLT32/R_X86_64_PLTOFF64. */
5175 rel++;
5176 wrel++;
5177 continue;
5178 }
5179
5180 if (htab->elf.sgot == NULL)
5181 abort ();
5182
5183 off = htab->tls_ld_got.offset;
5184 if (off & 1)
5185 off &= ~1;
5186 else
5187 {
5188 Elf_Internal_Rela outrel;
5189
5190 if (htab->elf.srelgot == NULL)
5191 abort ();
5192
5193 outrel.r_offset = (htab->elf.sgot->output_section->vma
5194 + htab->elf.sgot->output_offset + off);
5195
5196 bfd_put_64 (output_bfd, 0,
5197 htab->elf.sgot->contents + off);
5198 bfd_put_64 (output_bfd, 0,
5199 htab->elf.sgot->contents + off + GOT_ENTRY_SIZE);
5200 outrel.r_info = htab->r_info (0, R_X86_64_DTPMOD64);
5201 outrel.r_addend = 0;
5202 elf_append_rela (output_bfd, htab->elf.srelgot,
5203 &outrel);
5204 htab->tls_ld_got.offset |= 1;
5205 }
5206 relocation = htab->elf.sgot->output_section->vma
5207 + htab->elf.sgot->output_offset + off;
5208 unresolved_reloc = FALSE;
5209 break;
5210
5211 case R_X86_64_DTPOFF32:
5212 if (!bfd_link_executable (info)
5213 || (input_section->flags & SEC_CODE) == 0)
5214 relocation -= elf_x86_64_dtpoff_base (info);
5215 else
5216 relocation = elf_x86_64_tpoff (info, relocation);
5217 break;
5218
5219 case R_X86_64_TPOFF32:
5220 case R_X86_64_TPOFF64:
5221 BFD_ASSERT (bfd_link_executable (info));
5222 relocation = elf_x86_64_tpoff (info, relocation);
5223 break;
5224
5225 case R_X86_64_DTPOFF64:
5226 BFD_ASSERT ((input_section->flags & SEC_CODE) == 0);
5227 relocation -= elf_x86_64_dtpoff_base (info);
5228 break;
5229
5230 default:
5231 break;
5232 }
5233
5234 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
5235 because such sections are not SEC_ALLOC and thus ld.so will
5236 not process them. */
5237 if (unresolved_reloc
5238 && !((input_section->flags & SEC_DEBUGGING) != 0
5239 && h->def_dynamic)
5240 && _bfd_elf_section_offset (output_bfd, info, input_section,
5241 rel->r_offset) != (bfd_vma) -1)
5242 {
5243 (*_bfd_error_handler)
5244 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
5245 input_bfd,
5246 input_section,
5247 (long) rel->r_offset,
5248 howto->name,
5249 h->root.root.string);
5250 return FALSE;
5251 }
5252
5253 do_relocation:
5254 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
5255 contents, rel->r_offset,
5256 relocation, rel->r_addend);
5257
5258 check_relocation_error:
5259 if (r != bfd_reloc_ok)
5260 {
5261 const char *name;
5262
5263 if (h != NULL)
5264 name = h->root.root.string;
5265 else
5266 {
5267 name = bfd_elf_string_from_elf_section (input_bfd,
5268 symtab_hdr->sh_link,
5269 sym->st_name);
5270 if (name == NULL)
5271 return FALSE;
5272 if (*name == '\0')
5273 name = bfd_section_name (input_bfd, sec);
5274 }
5275
5276 if (r == bfd_reloc_overflow)
5277 {
5278 if (! ((*info->callbacks->reloc_overflow)
5279 (info, (h ? &h->root : NULL), name, howto->name,
5280 (bfd_vma) 0, input_bfd, input_section,
5281 rel->r_offset)))
5282 return FALSE;
5283 }
5284 else
5285 {
5286 (*_bfd_error_handler)
5287 (_("%B(%A+0x%lx): reloc against `%s': error %d"),
5288 input_bfd, input_section,
5289 (long) rel->r_offset, name, (int) r);
5290 return FALSE;
5291 }
5292 }
5293
5294 if (wrel != rel)
5295 *wrel = *rel;
5296 }
5297
5298 if (wrel != rel)
5299 {
5300 Elf_Internal_Shdr *rel_hdr;
5301 size_t deleted = rel - wrel;
5302
5303 rel_hdr = _bfd_elf_single_rel_hdr (input_section->output_section);
5304 rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
5305 if (rel_hdr->sh_size == 0)
5306 {
5307 /* It is too late to remove an empty reloc section. Leave
5308 one NONE reloc.
5309 ??? What is wrong with an empty section??? */
5310 rel_hdr->sh_size = rel_hdr->sh_entsize;
5311 deleted -= 1;
5312 }
5313 rel_hdr = _bfd_elf_single_rel_hdr (input_section);
5314 rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
5315 input_section->reloc_count -= deleted;
5316 }
5317
5318 return TRUE;
5319 }
5320
5321 /* Finish up dynamic symbol handling. We set the contents of various
5322 dynamic sections here. */
5323
5324 static bfd_boolean
5325 elf_x86_64_finish_dynamic_symbol (bfd *output_bfd,
5326 struct bfd_link_info *info,
5327 struct elf_link_hash_entry *h,
5328 Elf_Internal_Sym *sym ATTRIBUTE_UNUSED)
5329 {
5330 struct elf_x86_64_link_hash_table *htab;
5331 const struct elf_x86_64_backend_data *abed;
5332 bfd_boolean use_plt_bnd;
5333 struct elf_x86_64_link_hash_entry *eh;
5334
5335 htab = elf_x86_64_hash_table (info);
5336 if (htab == NULL)
5337 return FALSE;
5338
5339 /* Use MPX backend data in case of BND relocation. Use .plt_bnd
5340 section only if there is .plt section. */
5341 use_plt_bnd = htab->elf.splt != NULL && htab->plt_bnd != NULL;
5342 abed = (use_plt_bnd
5343 ? &elf_x86_64_bnd_arch_bed
5344 : get_elf_x86_64_backend_data (output_bfd));
5345
5346 eh = (struct elf_x86_64_link_hash_entry *) h;
5347
5348 if (h->plt.offset != (bfd_vma) -1)
5349 {
5350 bfd_vma plt_index;
5351 bfd_vma got_offset, plt_offset, plt_plt_offset, plt_got_offset;
5352 bfd_vma plt_plt_insn_end, plt_got_insn_size;
5353 Elf_Internal_Rela rela;
5354 bfd_byte *loc;
5355 asection *plt, *gotplt, *relplt, *resolved_plt;
5356 const struct elf_backend_data *bed;
5357 bfd_vma plt_got_pcrel_offset;
5358
5359 /* When building a static executable, use .iplt, .igot.plt and
5360 .rela.iplt sections for STT_GNU_IFUNC symbols. */
5361 if (htab->elf.splt != NULL)
5362 {
5363 plt = htab->elf.splt;
5364 gotplt = htab->elf.sgotplt;
5365 relplt = htab->elf.srelplt;
5366 }
5367 else
5368 {
5369 plt = htab->elf.iplt;
5370 gotplt = htab->elf.igotplt;
5371 relplt = htab->elf.irelplt;
5372 }
5373
5374 /* This symbol has an entry in the procedure linkage table. Set
5375 it up. */
5376 if ((h->dynindx == -1
5377 && !((h->forced_local || bfd_link_executable (info))
5378 && h->def_regular
5379 && h->type == STT_GNU_IFUNC))
5380 || plt == NULL
5381 || gotplt == NULL
5382 || relplt == NULL)
5383 abort ();
5384
5385 /* Get the index in the procedure linkage table which
5386 corresponds to this symbol. This is the index of this symbol
5387 in all the symbols for which we are making plt entries. The
5388 first entry in the procedure linkage table is reserved.
5389
5390 Get the offset into the .got table of the entry that
5391 corresponds to this function. Each .got entry is GOT_ENTRY_SIZE
5392 bytes. The first three are reserved for the dynamic linker.
5393
5394 For static executables, we don't reserve anything. */
5395
5396 if (plt == htab->elf.splt)
5397 {
5398 got_offset = h->plt.offset / abed->plt_entry_size - 1;
5399 got_offset = (got_offset + 3) * GOT_ENTRY_SIZE;
5400 }
5401 else
5402 {
5403 got_offset = h->plt.offset / abed->plt_entry_size;
5404 got_offset = got_offset * GOT_ENTRY_SIZE;
5405 }
5406
5407 plt_plt_insn_end = abed->plt_plt_insn_end;
5408 plt_plt_offset = abed->plt_plt_offset;
5409 plt_got_insn_size = abed->plt_got_insn_size;
5410 plt_got_offset = abed->plt_got_offset;
5411 if (use_plt_bnd)
5412 {
5413 /* Use the second PLT with BND relocations. */
5414 const bfd_byte *plt_entry, *plt2_entry;
5415
5416 if (eh->has_bnd_reloc)
5417 {
5418 plt_entry = elf_x86_64_bnd_plt_entry;
5419 plt2_entry = elf_x86_64_bnd_plt2_entry;
5420 }
5421 else
5422 {
5423 plt_entry = elf_x86_64_legacy_plt_entry;
5424 plt2_entry = elf_x86_64_legacy_plt2_entry;
5425
5426 /* Subtract 1 since there is no BND prefix. */
5427 plt_plt_insn_end -= 1;
5428 plt_plt_offset -= 1;
5429 plt_got_insn_size -= 1;
5430 plt_got_offset -= 1;
5431 }
5432
5433 BFD_ASSERT (sizeof (elf_x86_64_bnd_plt_entry)
5434 == sizeof (elf_x86_64_legacy_plt_entry));
5435
5436 /* Fill in the entry in the procedure linkage table. */
5437 memcpy (plt->contents + h->plt.offset,
5438 plt_entry, sizeof (elf_x86_64_legacy_plt_entry));
5439 /* Fill in the entry in the second PLT. */
5440 memcpy (htab->plt_bnd->contents + eh->plt_bnd.offset,
5441 plt2_entry, sizeof (elf_x86_64_legacy_plt2_entry));
5442
5443 resolved_plt = htab->plt_bnd;
5444 plt_offset = eh->plt_bnd.offset;
5445 }
5446 else
5447 {
5448 /* Fill in the entry in the procedure linkage table. */
5449 memcpy (plt->contents + h->plt.offset, abed->plt_entry,
5450 abed->plt_entry_size);
5451
5452 resolved_plt = plt;
5453 plt_offset = h->plt.offset;
5454 }
5455
5456 /* Insert the relocation positions of the plt section. */
5457
5458 /* Put offset the PC-relative instruction referring to the GOT entry,
5459 subtracting the size of that instruction. */
5460 plt_got_pcrel_offset = (gotplt->output_section->vma
5461 + gotplt->output_offset
5462 + got_offset
5463 - resolved_plt->output_section->vma
5464 - resolved_plt->output_offset
5465 - plt_offset
5466 - plt_got_insn_size);
5467
5468 /* Check PC-relative offset overflow in PLT entry. */
5469 if ((plt_got_pcrel_offset + 0x80000000) > 0xffffffff)
5470 info->callbacks->einfo (_("%F%B: PC-relative offset overflow in PLT entry for `%s'\n"),
5471 output_bfd, h->root.root.string);
5472
5473 bfd_put_32 (output_bfd, plt_got_pcrel_offset,
5474 resolved_plt->contents + plt_offset + plt_got_offset);
5475
5476 /* Fill in the entry in the global offset table, initially this
5477 points to the second part of the PLT entry. */
5478 bfd_put_64 (output_bfd, (plt->output_section->vma
5479 + plt->output_offset
5480 + h->plt.offset + abed->plt_lazy_offset),
5481 gotplt->contents + got_offset);
5482
5483 /* Fill in the entry in the .rela.plt section. */
5484 rela.r_offset = (gotplt->output_section->vma
5485 + gotplt->output_offset
5486 + got_offset);
5487 if (h->dynindx == -1
5488 || ((bfd_link_executable (info)
5489 || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
5490 && h->def_regular
5491 && h->type == STT_GNU_IFUNC))
5492 {
5493 /* If an STT_GNU_IFUNC symbol is locally defined, generate
5494 R_X86_64_IRELATIVE instead of R_X86_64_JUMP_SLOT. */
5495 rela.r_info = htab->r_info (0, R_X86_64_IRELATIVE);
5496 rela.r_addend = (h->root.u.def.value
5497 + h->root.u.def.section->output_section->vma
5498 + h->root.u.def.section->output_offset);
5499 /* R_X86_64_IRELATIVE comes last. */
5500 plt_index = htab->next_irelative_index--;
5501 }
5502 else
5503 {
5504 rela.r_info = htab->r_info (h->dynindx, R_X86_64_JUMP_SLOT);
5505 rela.r_addend = 0;
5506 plt_index = htab->next_jump_slot_index++;
5507 }
5508
5509 /* Don't fill PLT entry for static executables. */
5510 if (plt == htab->elf.splt)
5511 {
5512 bfd_vma plt0_offset = h->plt.offset + plt_plt_insn_end;
5513
5514 /* Put relocation index. */
5515 bfd_put_32 (output_bfd, plt_index,
5516 plt->contents + h->plt.offset + abed->plt_reloc_offset);
5517
5518 /* Put offset for jmp .PLT0 and check for overflow. We don't
5519 check relocation index for overflow since branch displacement
5520 will overflow first. */
5521 if (plt0_offset > 0x80000000)
5522 info->callbacks->einfo (_("%F%B: branch displacement overflow in PLT entry for `%s'\n"),
5523 output_bfd, h->root.root.string);
5524 bfd_put_32 (output_bfd, - plt0_offset,
5525 plt->contents + h->plt.offset + plt_plt_offset);
5526 }
5527
5528 bed = get_elf_backend_data (output_bfd);
5529 loc = relplt->contents + plt_index * bed->s->sizeof_rela;
5530 bed->s->swap_reloca_out (output_bfd, &rela, loc);
5531 }
5532 else if (eh->plt_got.offset != (bfd_vma) -1)
5533 {
5534 bfd_vma got_offset, plt_offset, plt_got_offset, plt_got_insn_size;
5535 asection *plt, *got;
5536 bfd_boolean got_after_plt;
5537 int32_t got_pcrel_offset;
5538 const bfd_byte *got_plt_entry;
5539
5540 /* Set the entry in the GOT procedure linkage table. */
5541 plt = htab->plt_got;
5542 got = htab->elf.sgot;
5543 got_offset = h->got.offset;
5544
5545 if (got_offset == (bfd_vma) -1
5546 || h->type == STT_GNU_IFUNC
5547 || plt == NULL
5548 || got == NULL)
5549 abort ();
5550
5551 /* Use the second PLT entry template for the GOT PLT since they
5552 are the identical. */
5553 plt_got_insn_size = elf_x86_64_bnd_arch_bed.plt_got_insn_size;
5554 plt_got_offset = elf_x86_64_bnd_arch_bed.plt_got_offset;
5555 if (eh->has_bnd_reloc)
5556 got_plt_entry = elf_x86_64_bnd_plt2_entry;
5557 else
5558 {
5559 got_plt_entry = elf_x86_64_legacy_plt2_entry;
5560
5561 /* Subtract 1 since there is no BND prefix. */
5562 plt_got_insn_size -= 1;
5563 plt_got_offset -= 1;
5564 }
5565
5566 /* Fill in the entry in the GOT procedure linkage table. */
5567 plt_offset = eh->plt_got.offset;
5568 memcpy (plt->contents + plt_offset,
5569 got_plt_entry, sizeof (elf_x86_64_legacy_plt2_entry));
5570
5571 /* Put offset the PC-relative instruction referring to the GOT
5572 entry, subtracting the size of that instruction. */
5573 got_pcrel_offset = (got->output_section->vma
5574 + got->output_offset
5575 + got_offset
5576 - plt->output_section->vma
5577 - plt->output_offset
5578 - plt_offset
5579 - plt_got_insn_size);
5580
5581 /* Check PC-relative offset overflow in GOT PLT entry. */
5582 got_after_plt = got->output_section->vma > plt->output_section->vma;
5583 if ((got_after_plt && got_pcrel_offset < 0)
5584 || (!got_after_plt && got_pcrel_offset > 0))
5585 info->callbacks->einfo (_("%F%B: PC-relative offset overflow in GOT PLT entry for `%s'\n"),
5586 output_bfd, h->root.root.string);
5587
5588 bfd_put_32 (output_bfd, got_pcrel_offset,
5589 plt->contents + plt_offset + plt_got_offset);
5590 }
5591
5592 if (!h->def_regular
5593 && (h->plt.offset != (bfd_vma) -1
5594 || eh->plt_got.offset != (bfd_vma) -1))
5595 {
5596 /* Mark the symbol as undefined, rather than as defined in
5597 the .plt section. Leave the value if there were any
5598 relocations where pointer equality matters (this is a clue
5599 for the dynamic linker, to make function pointer
5600 comparisons work between an application and shared
5601 library), otherwise set it to zero. If a function is only
5602 called from a binary, there is no need to slow down
5603 shared libraries because of that. */
5604 sym->st_shndx = SHN_UNDEF;
5605 if (!h->pointer_equality_needed)
5606 sym->st_value = 0;
5607 }
5608
5609 if (h->got.offset != (bfd_vma) -1
5610 && ! GOT_TLS_GD_ANY_P (elf_x86_64_hash_entry (h)->tls_type)
5611 && elf_x86_64_hash_entry (h)->tls_type != GOT_TLS_IE)
5612 {
5613 Elf_Internal_Rela rela;
5614
5615 /* This symbol has an entry in the global offset table. Set it
5616 up. */
5617 if (htab->elf.sgot == NULL || htab->elf.srelgot == NULL)
5618 abort ();
5619
5620 rela.r_offset = (htab->elf.sgot->output_section->vma
5621 + htab->elf.sgot->output_offset
5622 + (h->got.offset &~ (bfd_vma) 1));
5623
5624 /* If this is a static link, or it is a -Bsymbolic link and the
5625 symbol is defined locally or was forced to be local because
5626 of a version file, we just want to emit a RELATIVE reloc.
5627 The entry in the global offset table will already have been
5628 initialized in the relocate_section function. */
5629 if (h->def_regular
5630 && h->type == STT_GNU_IFUNC)
5631 {
5632 if (bfd_link_pic (info))
5633 {
5634 /* Generate R_X86_64_GLOB_DAT. */
5635 goto do_glob_dat;
5636 }
5637 else
5638 {
5639 asection *plt;
5640
5641 if (!h->pointer_equality_needed)
5642 abort ();
5643
5644 /* For non-shared object, we can't use .got.plt, which
5645 contains the real function addres if we need pointer
5646 equality. We load the GOT entry with the PLT entry. */
5647 plt = htab->elf.splt ? htab->elf.splt : htab->elf.iplt;
5648 bfd_put_64 (output_bfd, (plt->output_section->vma
5649 + plt->output_offset
5650 + h->plt.offset),
5651 htab->elf.sgot->contents + h->got.offset);
5652 return TRUE;
5653 }
5654 }
5655 else if (bfd_link_pic (info)
5656 && SYMBOL_REFERENCES_LOCAL (info, h))
5657 {
5658 if (!h->def_regular)
5659 return FALSE;
5660 BFD_ASSERT((h->got.offset & 1) != 0);
5661 rela.r_info = htab->r_info (0, R_X86_64_RELATIVE);
5662 rela.r_addend = (h->root.u.def.value
5663 + h->root.u.def.section->output_section->vma
5664 + h->root.u.def.section->output_offset);
5665 }
5666 else
5667 {
5668 BFD_ASSERT((h->got.offset & 1) == 0);
5669 do_glob_dat:
5670 bfd_put_64 (output_bfd, (bfd_vma) 0,
5671 htab->elf.sgot->contents + h->got.offset);
5672 rela.r_info = htab->r_info (h->dynindx, R_X86_64_GLOB_DAT);
5673 rela.r_addend = 0;
5674 }
5675
5676 elf_append_rela (output_bfd, htab->elf.srelgot, &rela);
5677 }
5678
5679 if (h->needs_copy)
5680 {
5681 Elf_Internal_Rela rela;
5682
5683 /* This symbol needs a copy reloc. Set it up. */
5684
5685 if (h->dynindx == -1
5686 || (h->root.type != bfd_link_hash_defined
5687 && h->root.type != bfd_link_hash_defweak)
5688 || htab->srelbss == NULL)
5689 abort ();
5690
5691 rela.r_offset = (h->root.u.def.value
5692 + h->root.u.def.section->output_section->vma
5693 + h->root.u.def.section->output_offset);
5694 rela.r_info = htab->r_info (h->dynindx, R_X86_64_COPY);
5695 rela.r_addend = 0;
5696 elf_append_rela (output_bfd, htab->srelbss, &rela);
5697 }
5698
5699 return TRUE;
5700 }
5701
5702 /* Finish up local dynamic symbol handling. We set the contents of
5703 various dynamic sections here. */
5704
5705 static bfd_boolean
5706 elf_x86_64_finish_local_dynamic_symbol (void **slot, void *inf)
5707 {
5708 struct elf_link_hash_entry *h
5709 = (struct elf_link_hash_entry *) *slot;
5710 struct bfd_link_info *info
5711 = (struct bfd_link_info *) inf;
5712
5713 return elf_x86_64_finish_dynamic_symbol (info->output_bfd,
5714 info, h, NULL);
5715 }
5716
5717 /* Used to decide how to sort relocs in an optimal manner for the
5718 dynamic linker, before writing them out. */
5719
5720 static enum elf_reloc_type_class
5721 elf_x86_64_reloc_type_class (const struct bfd_link_info *info,
5722 const asection *rel_sec ATTRIBUTE_UNUSED,
5723 const Elf_Internal_Rela *rela)
5724 {
5725 bfd *abfd = info->output_bfd;
5726 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
5727 struct elf_x86_64_link_hash_table *htab = elf_x86_64_hash_table (info);
5728 unsigned long r_symndx = htab->r_sym (rela->r_info);
5729 Elf_Internal_Sym sym;
5730
5731 if (htab->elf.dynsym == NULL
5732 || !bed->s->swap_symbol_in (abfd,
5733 (htab->elf.dynsym->contents
5734 + r_symndx * bed->s->sizeof_sym),
5735 0, &sym))
5736 abort ();
5737
5738 /* Check relocation against STT_GNU_IFUNC symbol. */
5739 if (ELF_ST_TYPE (sym.st_info) == STT_GNU_IFUNC)
5740 return reloc_class_ifunc;
5741
5742 switch ((int) ELF32_R_TYPE (rela->r_info))
5743 {
5744 case R_X86_64_RELATIVE:
5745 case R_X86_64_RELATIVE64:
5746 return reloc_class_relative;
5747 case R_X86_64_JUMP_SLOT:
5748 return reloc_class_plt;
5749 case R_X86_64_COPY:
5750 return reloc_class_copy;
5751 default:
5752 return reloc_class_normal;
5753 }
5754 }
5755
5756 /* Finish up the dynamic sections. */
5757
5758 static bfd_boolean
5759 elf_x86_64_finish_dynamic_sections (bfd *output_bfd,
5760 struct bfd_link_info *info)
5761 {
5762 struct elf_x86_64_link_hash_table *htab;
5763 bfd *dynobj;
5764 asection *sdyn;
5765 const struct elf_x86_64_backend_data *abed;
5766
5767 htab = elf_x86_64_hash_table (info);
5768 if (htab == NULL)
5769 return FALSE;
5770
5771 /* Use MPX backend data in case of BND relocation. Use .plt_bnd
5772 section only if there is .plt section. */
5773 abed = (htab->elf.splt != NULL && htab->plt_bnd != NULL
5774 ? &elf_x86_64_bnd_arch_bed
5775 : get_elf_x86_64_backend_data (output_bfd));
5776
5777 dynobj = htab->elf.dynobj;
5778 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
5779
5780 if (htab->elf.dynamic_sections_created)
5781 {
5782 bfd_byte *dyncon, *dynconend;
5783 const struct elf_backend_data *bed;
5784 bfd_size_type sizeof_dyn;
5785
5786 if (sdyn == NULL || htab->elf.sgot == NULL)
5787 abort ();
5788
5789 bed = get_elf_backend_data (dynobj);
5790 sizeof_dyn = bed->s->sizeof_dyn;
5791 dyncon = sdyn->contents;
5792 dynconend = sdyn->contents + sdyn->size;
5793 for (; dyncon < dynconend; dyncon += sizeof_dyn)
5794 {
5795 Elf_Internal_Dyn dyn;
5796 asection *s;
5797
5798 (*bed->s->swap_dyn_in) (dynobj, dyncon, &dyn);
5799
5800 switch (dyn.d_tag)
5801 {
5802 default:
5803 continue;
5804
5805 case DT_PLTGOT:
5806 s = htab->elf.sgotplt;
5807 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
5808 break;
5809
5810 case DT_JMPREL:
5811 dyn.d_un.d_ptr = htab->elf.srelplt->output_section->vma;
5812 break;
5813
5814 case DT_PLTRELSZ:
5815 s = htab->elf.srelplt->output_section;
5816 dyn.d_un.d_val = s->size;
5817 break;
5818
5819 case DT_RELASZ:
5820 /* The procedure linkage table relocs (DT_JMPREL) should
5821 not be included in the overall relocs (DT_RELA).
5822 Therefore, we override the DT_RELASZ entry here to
5823 make it not include the JMPREL relocs. Since the
5824 linker script arranges for .rela.plt to follow all
5825 other relocation sections, we don't have to worry
5826 about changing the DT_RELA entry. */
5827 if (htab->elf.srelplt != NULL)
5828 {
5829 s = htab->elf.srelplt->output_section;
5830 dyn.d_un.d_val -= s->size;
5831 }
5832 break;
5833
5834 case DT_TLSDESC_PLT:
5835 s = htab->elf.splt;
5836 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
5837 + htab->tlsdesc_plt;
5838 break;
5839
5840 case DT_TLSDESC_GOT:
5841 s = htab->elf.sgot;
5842 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset
5843 + htab->tlsdesc_got;
5844 break;
5845 }
5846
5847 (*bed->s->swap_dyn_out) (output_bfd, &dyn, dyncon);
5848 }
5849
5850 /* Fill in the special first entry in the procedure linkage table. */
5851 if (htab->elf.splt && htab->elf.splt->size > 0)
5852 {
5853 /* Fill in the first entry in the procedure linkage table. */
5854 memcpy (htab->elf.splt->contents,
5855 abed->plt0_entry, abed->plt_entry_size);
5856 /* Add offset for pushq GOT+8(%rip), since the instruction
5857 uses 6 bytes subtract this value. */
5858 bfd_put_32 (output_bfd,
5859 (htab->elf.sgotplt->output_section->vma
5860 + htab->elf.sgotplt->output_offset
5861 + 8
5862 - htab->elf.splt->output_section->vma
5863 - htab->elf.splt->output_offset
5864 - 6),
5865 htab->elf.splt->contents + abed->plt0_got1_offset);
5866 /* Add offset for the PC-relative instruction accessing GOT+16,
5867 subtracting the offset to the end of that instruction. */
5868 bfd_put_32 (output_bfd,
5869 (htab->elf.sgotplt->output_section->vma
5870 + htab->elf.sgotplt->output_offset
5871 + 16
5872 - htab->elf.splt->output_section->vma
5873 - htab->elf.splt->output_offset
5874 - abed->plt0_got2_insn_end),
5875 htab->elf.splt->contents + abed->plt0_got2_offset);
5876
5877 elf_section_data (htab->elf.splt->output_section)
5878 ->this_hdr.sh_entsize = abed->plt_entry_size;
5879
5880 if (htab->tlsdesc_plt)
5881 {
5882 bfd_put_64 (output_bfd, (bfd_vma) 0,
5883 htab->elf.sgot->contents + htab->tlsdesc_got);
5884
5885 memcpy (htab->elf.splt->contents + htab->tlsdesc_plt,
5886 abed->plt0_entry, abed->plt_entry_size);
5887
5888 /* Add offset for pushq GOT+8(%rip), since the
5889 instruction uses 6 bytes subtract this value. */
5890 bfd_put_32 (output_bfd,
5891 (htab->elf.sgotplt->output_section->vma
5892 + htab->elf.sgotplt->output_offset
5893 + 8
5894 - htab->elf.splt->output_section->vma
5895 - htab->elf.splt->output_offset
5896 - htab->tlsdesc_plt
5897 - 6),
5898 htab->elf.splt->contents
5899 + htab->tlsdesc_plt + abed->plt0_got1_offset);
5900 /* Add offset for the PC-relative instruction accessing GOT+TDG,
5901 where TGD stands for htab->tlsdesc_got, subtracting the offset
5902 to the end of that instruction. */
5903 bfd_put_32 (output_bfd,
5904 (htab->elf.sgot->output_section->vma
5905 + htab->elf.sgot->output_offset
5906 + htab->tlsdesc_got
5907 - htab->elf.splt->output_section->vma
5908 - htab->elf.splt->output_offset
5909 - htab->tlsdesc_plt
5910 - abed->plt0_got2_insn_end),
5911 htab->elf.splt->contents
5912 + htab->tlsdesc_plt + abed->plt0_got2_offset);
5913 }
5914 }
5915 }
5916
5917 if (htab->plt_bnd != NULL)
5918 elf_section_data (htab->plt_bnd->output_section)
5919 ->this_hdr.sh_entsize = sizeof (elf_x86_64_bnd_plt2_entry);
5920
5921 if (htab->elf.sgotplt)
5922 {
5923 if (bfd_is_abs_section (htab->elf.sgotplt->output_section))
5924 {
5925 (*_bfd_error_handler)
5926 (_("discarded output section: `%A'"), htab->elf.sgotplt);
5927 return FALSE;
5928 }
5929
5930 /* Fill in the first three entries in the global offset table. */
5931 if (htab->elf.sgotplt->size > 0)
5932 {
5933 /* Set the first entry in the global offset table to the address of
5934 the dynamic section. */
5935 if (sdyn == NULL)
5936 bfd_put_64 (output_bfd, (bfd_vma) 0, htab->elf.sgotplt->contents);
5937 else
5938 bfd_put_64 (output_bfd,
5939 sdyn->output_section->vma + sdyn->output_offset,
5940 htab->elf.sgotplt->contents);
5941 /* Write GOT[1] and GOT[2], needed for the dynamic linker. */
5942 bfd_put_64 (output_bfd, (bfd_vma) 0, htab->elf.sgotplt->contents + GOT_ENTRY_SIZE);
5943 bfd_put_64 (output_bfd, (bfd_vma) 0, htab->elf.sgotplt->contents + GOT_ENTRY_SIZE*2);
5944 }
5945
5946 elf_section_data (htab->elf.sgotplt->output_section)->this_hdr.sh_entsize =
5947 GOT_ENTRY_SIZE;
5948 }
5949
5950 /* Adjust .eh_frame for .plt section. */
5951 if (htab->plt_eh_frame != NULL
5952 && htab->plt_eh_frame->contents != NULL)
5953 {
5954 if (htab->elf.splt != NULL
5955 && htab->elf.splt->size != 0
5956 && (htab->elf.splt->flags & SEC_EXCLUDE) == 0
5957 && htab->elf.splt->output_section != NULL
5958 && htab->plt_eh_frame->output_section != NULL)
5959 {
5960 bfd_vma plt_start = htab->elf.splt->output_section->vma;
5961 bfd_vma eh_frame_start = htab->plt_eh_frame->output_section->vma
5962 + htab->plt_eh_frame->output_offset
5963 + PLT_FDE_START_OFFSET;
5964 bfd_put_signed_32 (dynobj, plt_start - eh_frame_start,
5965 htab->plt_eh_frame->contents
5966 + PLT_FDE_START_OFFSET);
5967 }
5968 if (htab->plt_eh_frame->sec_info_type == SEC_INFO_TYPE_EH_FRAME)
5969 {
5970 if (! _bfd_elf_write_section_eh_frame (output_bfd, info,
5971 htab->plt_eh_frame,
5972 htab->plt_eh_frame->contents))
5973 return FALSE;
5974 }
5975 }
5976
5977 if (htab->elf.sgot && htab->elf.sgot->size > 0)
5978 elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize
5979 = GOT_ENTRY_SIZE;
5980
5981 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
5982 htab_traverse (htab->loc_hash_table,
5983 elf_x86_64_finish_local_dynamic_symbol,
5984 info);
5985
5986 return TRUE;
5987 }
5988
5989 /* Return an array of PLT entry symbol values. */
5990
5991 static bfd_vma *
5992 elf_x86_64_get_plt_sym_val (bfd *abfd, asymbol **dynsyms, asection *plt,
5993 asection *relplt)
5994 {
5995 bfd_boolean (*slurp_relocs) (bfd *, asection *, asymbol **, bfd_boolean);
5996 arelent *p;
5997 long count, i;
5998 bfd_vma *plt_sym_val;
5999 bfd_vma plt_offset;
6000 bfd_byte *plt_contents;
6001 const struct elf_x86_64_backend_data *bed;
6002 Elf_Internal_Shdr *hdr;
6003 asection *plt_bnd;
6004
6005 /* Get the .plt section contents. PLT passed down may point to the
6006 .plt.bnd section. Make sure that PLT always points to the .plt
6007 section. */
6008 plt_bnd = bfd_get_section_by_name (abfd, ".plt.bnd");
6009 if (plt_bnd)
6010 {
6011 if (plt != plt_bnd)
6012 abort ();
6013 plt = bfd_get_section_by_name (abfd, ".plt");
6014 if (plt == NULL)
6015 abort ();
6016 bed = &elf_x86_64_bnd_arch_bed;
6017 }
6018 else
6019 bed = get_elf_x86_64_backend_data (abfd);
6020
6021 plt_contents = (bfd_byte *) bfd_malloc (plt->size);
6022 if (plt_contents == NULL)
6023 return NULL;
6024 if (!bfd_get_section_contents (abfd, (asection *) plt,
6025 plt_contents, 0, plt->size))
6026 {
6027 bad_return:
6028 free (plt_contents);
6029 return NULL;
6030 }
6031
6032 slurp_relocs = get_elf_backend_data (abfd)->s->slurp_reloc_table;
6033 if (! (*slurp_relocs) (abfd, relplt, dynsyms, TRUE))
6034 goto bad_return;
6035
6036 hdr = &elf_section_data (relplt)->this_hdr;
6037 count = relplt->size / hdr->sh_entsize;
6038
6039 plt_sym_val = (bfd_vma *) bfd_malloc (sizeof (bfd_vma) * count);
6040 if (plt_sym_val == NULL)
6041 goto bad_return;
6042
6043 for (i = 0; i < count; i++)
6044 plt_sym_val[i] = -1;
6045
6046 plt_offset = bed->plt_entry_size;
6047 p = relplt->relocation;
6048 for (i = 0; i < count; i++, p++)
6049 {
6050 long reloc_index;
6051
6052 /* Skip unknown relocation. */
6053 if (p->howto == NULL)
6054 continue;
6055
6056 if (p->howto->type != R_X86_64_JUMP_SLOT
6057 && p->howto->type != R_X86_64_IRELATIVE)
6058 continue;
6059
6060 reloc_index = H_GET_32 (abfd, (plt_contents + plt_offset
6061 + bed->plt_reloc_offset));
6062 if (reloc_index >= count)
6063 abort ();
6064 if (plt_bnd)
6065 {
6066 /* This is the index in .plt section. */
6067 long plt_index = plt_offset / bed->plt_entry_size;
6068 /* Store VMA + the offset in .plt.bnd section. */
6069 plt_sym_val[reloc_index] =
6070 (plt_bnd->vma
6071 + (plt_index - 1) * sizeof (elf_x86_64_legacy_plt2_entry));
6072 }
6073 else
6074 plt_sym_val[reloc_index] = plt->vma + plt_offset;
6075 plt_offset += bed->plt_entry_size;
6076
6077 /* PR binutils/18437: Skip extra relocations in the .rela.plt
6078 section. */
6079 if (plt_offset >= plt->size)
6080 break;
6081 }
6082
6083 free (plt_contents);
6084
6085 return plt_sym_val;
6086 }
6087
6088 /* Similar to _bfd_elf_get_synthetic_symtab, with .plt.bnd section
6089 support. */
6090
6091 static long
6092 elf_x86_64_get_synthetic_symtab (bfd *abfd,
6093 long symcount,
6094 asymbol **syms,
6095 long dynsymcount,
6096 asymbol **dynsyms,
6097 asymbol **ret)
6098 {
6099 /* Pass the .plt.bnd section to _bfd_elf_ifunc_get_synthetic_symtab
6100 as PLT if it exists. */
6101 asection *plt = bfd_get_section_by_name (abfd, ".plt.bnd");
6102 if (plt == NULL)
6103 plt = bfd_get_section_by_name (abfd, ".plt");
6104 return _bfd_elf_ifunc_get_synthetic_symtab (abfd, symcount, syms,
6105 dynsymcount, dynsyms, ret,
6106 plt,
6107 elf_x86_64_get_plt_sym_val);
6108 }
6109
6110 /* Handle an x86-64 specific section when reading an object file. This
6111 is called when elfcode.h finds a section with an unknown type. */
6112
6113 static bfd_boolean
6114 elf_x86_64_section_from_shdr (bfd *abfd, Elf_Internal_Shdr *hdr,
6115 const char *name, int shindex)
6116 {
6117 if (hdr->sh_type != SHT_X86_64_UNWIND)
6118 return FALSE;
6119
6120 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
6121 return FALSE;
6122
6123 return TRUE;
6124 }
6125
6126 /* Hook called by the linker routine which adds symbols from an object
6127 file. We use it to put SHN_X86_64_LCOMMON items in .lbss, instead
6128 of .bss. */
6129
6130 static bfd_boolean
6131 elf_x86_64_add_symbol_hook (bfd *abfd,
6132 struct bfd_link_info *info,
6133 Elf_Internal_Sym *sym,
6134 const char **namep ATTRIBUTE_UNUSED,
6135 flagword *flagsp ATTRIBUTE_UNUSED,
6136 asection **secp,
6137 bfd_vma *valp)
6138 {
6139 asection *lcomm;
6140
6141 switch (sym->st_shndx)
6142 {
6143 case SHN_X86_64_LCOMMON:
6144 lcomm = bfd_get_section_by_name (abfd, "LARGE_COMMON");
6145 if (lcomm == NULL)
6146 {
6147 lcomm = bfd_make_section_with_flags (abfd,
6148 "LARGE_COMMON",
6149 (SEC_ALLOC
6150 | SEC_IS_COMMON
6151 | SEC_LINKER_CREATED));
6152 if (lcomm == NULL)
6153 return FALSE;
6154 elf_section_flags (lcomm) |= SHF_X86_64_LARGE;
6155 }
6156 *secp = lcomm;
6157 *valp = sym->st_size;
6158 return TRUE;
6159 }
6160
6161 if (ELF_ST_BIND (sym->st_info) == STB_GNU_UNIQUE
6162 && (abfd->flags & DYNAMIC) == 0
6163 && bfd_get_flavour (info->output_bfd) == bfd_target_elf_flavour)
6164 elf_tdata (info->output_bfd)->has_gnu_symbols
6165 |= elf_gnu_symbol_unique;
6166
6167 return TRUE;
6168 }
6169
6170
6171 /* Given a BFD section, try to locate the corresponding ELF section
6172 index. */
6173
6174 static bfd_boolean
6175 elf_x86_64_elf_section_from_bfd_section (bfd *abfd ATTRIBUTE_UNUSED,
6176 asection *sec, int *index_return)
6177 {
6178 if (sec == &_bfd_elf_large_com_section)
6179 {
6180 *index_return = SHN_X86_64_LCOMMON;
6181 return TRUE;
6182 }
6183 return FALSE;
6184 }
6185
6186 /* Process a symbol. */
6187
6188 static void
6189 elf_x86_64_symbol_processing (bfd *abfd ATTRIBUTE_UNUSED,
6190 asymbol *asym)
6191 {
6192 elf_symbol_type *elfsym = (elf_symbol_type *) asym;
6193
6194 switch (elfsym->internal_elf_sym.st_shndx)
6195 {
6196 case SHN_X86_64_LCOMMON:
6197 asym->section = &_bfd_elf_large_com_section;
6198 asym->value = elfsym->internal_elf_sym.st_size;
6199 /* Common symbol doesn't set BSF_GLOBAL. */
6200 asym->flags &= ~BSF_GLOBAL;
6201 break;
6202 }
6203 }
6204
6205 static bfd_boolean
6206 elf_x86_64_common_definition (Elf_Internal_Sym *sym)
6207 {
6208 return (sym->st_shndx == SHN_COMMON
6209 || sym->st_shndx == SHN_X86_64_LCOMMON);
6210 }
6211
6212 static unsigned int
6213 elf_x86_64_common_section_index (asection *sec)
6214 {
6215 if ((elf_section_flags (sec) & SHF_X86_64_LARGE) == 0)
6216 return SHN_COMMON;
6217 else
6218 return SHN_X86_64_LCOMMON;
6219 }
6220
6221 static asection *
6222 elf_x86_64_common_section (asection *sec)
6223 {
6224 if ((elf_section_flags (sec) & SHF_X86_64_LARGE) == 0)
6225 return bfd_com_section_ptr;
6226 else
6227 return &_bfd_elf_large_com_section;
6228 }
6229
6230 static bfd_boolean
6231 elf_x86_64_merge_symbol (struct elf_link_hash_entry *h,
6232 const Elf_Internal_Sym *sym,
6233 asection **psec,
6234 bfd_boolean newdef,
6235 bfd_boolean olddef,
6236 bfd *oldbfd,
6237 const asection *oldsec)
6238 {
6239 /* A normal common symbol and a large common symbol result in a
6240 normal common symbol. We turn the large common symbol into a
6241 normal one. */
6242 if (!olddef
6243 && h->root.type == bfd_link_hash_common
6244 && !newdef
6245 && bfd_is_com_section (*psec)
6246 && oldsec != *psec)
6247 {
6248 if (sym->st_shndx == SHN_COMMON
6249 && (elf_section_flags (oldsec) & SHF_X86_64_LARGE) != 0)
6250 {
6251 h->root.u.c.p->section
6252 = bfd_make_section_old_way (oldbfd, "COMMON");
6253 h->root.u.c.p->section->flags = SEC_ALLOC;
6254 }
6255 else if (sym->st_shndx == SHN_X86_64_LCOMMON
6256 && (elf_section_flags (oldsec) & SHF_X86_64_LARGE) == 0)
6257 *psec = bfd_com_section_ptr;
6258 }
6259
6260 return TRUE;
6261 }
6262
6263 static int
6264 elf_x86_64_additional_program_headers (bfd *abfd,
6265 struct bfd_link_info *info ATTRIBUTE_UNUSED)
6266 {
6267 asection *s;
6268 int count = 0;
6269
6270 /* Check to see if we need a large readonly segment. */
6271 s = bfd_get_section_by_name (abfd, ".lrodata");
6272 if (s && (s->flags & SEC_LOAD))
6273 count++;
6274
6275 /* Check to see if we need a large data segment. Since .lbss sections
6276 is placed right after the .bss section, there should be no need for
6277 a large data segment just because of .lbss. */
6278 s = bfd_get_section_by_name (abfd, ".ldata");
6279 if (s && (s->flags & SEC_LOAD))
6280 count++;
6281
6282 return count;
6283 }
6284
6285 /* Return TRUE if symbol should be hashed in the `.gnu.hash' section. */
6286
6287 static bfd_boolean
6288 elf_x86_64_hash_symbol (struct elf_link_hash_entry *h)
6289 {
6290 if (h->plt.offset != (bfd_vma) -1
6291 && !h->def_regular
6292 && !h->pointer_equality_needed)
6293 return FALSE;
6294
6295 return _bfd_elf_hash_symbol (h);
6296 }
6297
6298 /* Return TRUE iff relocations for INPUT are compatible with OUTPUT. */
6299
6300 static bfd_boolean
6301 elf_x86_64_relocs_compatible (const bfd_target *input,
6302 const bfd_target *output)
6303 {
6304 return ((xvec_get_elf_backend_data (input)->s->elfclass
6305 == xvec_get_elf_backend_data (output)->s->elfclass)
6306 && _bfd_elf_relocs_compatible (input, output));
6307 }
6308
6309 static const struct bfd_elf_special_section
6310 elf_x86_64_special_sections[]=
6311 {
6312 { STRING_COMMA_LEN (".gnu.linkonce.lb"), -2, SHT_NOBITS, SHF_ALLOC + SHF_WRITE + SHF_X86_64_LARGE},
6313 { STRING_COMMA_LEN (".gnu.linkonce.lr"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_X86_64_LARGE},
6314 { STRING_COMMA_LEN (".gnu.linkonce.lt"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_EXECINSTR + SHF_X86_64_LARGE},
6315 { STRING_COMMA_LEN (".lbss"), -2, SHT_NOBITS, SHF_ALLOC + SHF_WRITE + SHF_X86_64_LARGE},
6316 { STRING_COMMA_LEN (".ldata"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE + SHF_X86_64_LARGE},
6317 { STRING_COMMA_LEN (".lrodata"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_X86_64_LARGE},
6318 { NULL, 0, 0, 0, 0 }
6319 };
6320
6321 #define TARGET_LITTLE_SYM x86_64_elf64_vec
6322 #define TARGET_LITTLE_NAME "elf64-x86-64"
6323 #define ELF_ARCH bfd_arch_i386
6324 #define ELF_TARGET_ID X86_64_ELF_DATA
6325 #define ELF_MACHINE_CODE EM_X86_64
6326 #define ELF_MAXPAGESIZE 0x200000
6327 #define ELF_MINPAGESIZE 0x1000
6328 #define ELF_COMMONPAGESIZE 0x1000
6329
6330 #define elf_backend_can_gc_sections 1
6331 #define elf_backend_can_refcount 1
6332 #define elf_backend_want_got_plt 1
6333 #define elf_backend_plt_readonly 1
6334 #define elf_backend_want_plt_sym 0
6335 #define elf_backend_got_header_size (GOT_ENTRY_SIZE*3)
6336 #define elf_backend_rela_normal 1
6337 #define elf_backend_plt_alignment 4
6338 #define elf_backend_extern_protected_data 1
6339
6340 #define elf_info_to_howto elf_x86_64_info_to_howto
6341
6342 #define bfd_elf64_bfd_link_hash_table_create \
6343 elf_x86_64_link_hash_table_create
6344 #define bfd_elf64_bfd_reloc_type_lookup elf_x86_64_reloc_type_lookup
6345 #define bfd_elf64_bfd_reloc_name_lookup \
6346 elf_x86_64_reloc_name_lookup
6347
6348 #define elf_backend_adjust_dynamic_symbol elf_x86_64_adjust_dynamic_symbol
6349 #define elf_backend_relocs_compatible elf_x86_64_relocs_compatible
6350 #define elf_backend_check_relocs elf_x86_64_check_relocs
6351 #define elf_backend_copy_indirect_symbol elf_x86_64_copy_indirect_symbol
6352 #define elf_backend_create_dynamic_sections elf_x86_64_create_dynamic_sections
6353 #define elf_backend_finish_dynamic_sections elf_x86_64_finish_dynamic_sections
6354 #define elf_backend_finish_dynamic_symbol elf_x86_64_finish_dynamic_symbol
6355 #define elf_backend_gc_mark_hook elf_x86_64_gc_mark_hook
6356 #define elf_backend_gc_sweep_hook elf_x86_64_gc_sweep_hook
6357 #define elf_backend_grok_prstatus elf_x86_64_grok_prstatus
6358 #define elf_backend_grok_psinfo elf_x86_64_grok_psinfo
6359 #ifdef CORE_HEADER
6360 #define elf_backend_write_core_note elf_x86_64_write_core_note
6361 #endif
6362 #define elf_backend_reloc_type_class elf_x86_64_reloc_type_class
6363 #define elf_backend_relocate_section elf_x86_64_relocate_section
6364 #define elf_backend_size_dynamic_sections elf_x86_64_size_dynamic_sections
6365 #define elf_backend_always_size_sections elf_x86_64_always_size_sections
6366 #define elf_backend_init_index_section _bfd_elf_init_1_index_section
6367 #define elf_backend_object_p elf64_x86_64_elf_object_p
6368 #define bfd_elf64_mkobject elf_x86_64_mkobject
6369 #define bfd_elf64_get_synthetic_symtab elf_x86_64_get_synthetic_symtab
6370
6371 #define elf_backend_section_from_shdr \
6372 elf_x86_64_section_from_shdr
6373
6374 #define elf_backend_section_from_bfd_section \
6375 elf_x86_64_elf_section_from_bfd_section
6376 #define elf_backend_add_symbol_hook \
6377 elf_x86_64_add_symbol_hook
6378 #define elf_backend_symbol_processing \
6379 elf_x86_64_symbol_processing
6380 #define elf_backend_common_section_index \
6381 elf_x86_64_common_section_index
6382 #define elf_backend_common_section \
6383 elf_x86_64_common_section
6384 #define elf_backend_common_definition \
6385 elf_x86_64_common_definition
6386 #define elf_backend_merge_symbol \
6387 elf_x86_64_merge_symbol
6388 #define elf_backend_special_sections \
6389 elf_x86_64_special_sections
6390 #define elf_backend_additional_program_headers \
6391 elf_x86_64_additional_program_headers
6392 #define elf_backend_hash_symbol \
6393 elf_x86_64_hash_symbol
6394
6395 #include "elf64-target.h"
6396
6397 /* CloudABI support. */
6398
6399 #undef TARGET_LITTLE_SYM
6400 #define TARGET_LITTLE_SYM x86_64_elf64_cloudabi_vec
6401 #undef TARGET_LITTLE_NAME
6402 #define TARGET_LITTLE_NAME "elf64-x86-64-cloudabi"
6403
6404 #undef ELF_OSABI
6405 #define ELF_OSABI ELFOSABI_CLOUDABI
6406
6407 #undef elf64_bed
6408 #define elf64_bed elf64_x86_64_cloudabi_bed
6409
6410 #include "elf64-target.h"
6411
6412 /* FreeBSD support. */
6413
6414 #undef TARGET_LITTLE_SYM
6415 #define TARGET_LITTLE_SYM x86_64_elf64_fbsd_vec
6416 #undef TARGET_LITTLE_NAME
6417 #define TARGET_LITTLE_NAME "elf64-x86-64-freebsd"
6418
6419 #undef ELF_OSABI
6420 #define ELF_OSABI ELFOSABI_FREEBSD
6421
6422 #undef elf64_bed
6423 #define elf64_bed elf64_x86_64_fbsd_bed
6424
6425 #include "elf64-target.h"
6426
6427 /* Solaris 2 support. */
6428
6429 #undef TARGET_LITTLE_SYM
6430 #define TARGET_LITTLE_SYM x86_64_elf64_sol2_vec
6431 #undef TARGET_LITTLE_NAME
6432 #define TARGET_LITTLE_NAME "elf64-x86-64-sol2"
6433
6434 /* Restore default: we cannot use ELFOSABI_SOLARIS, otherwise ELFOSABI_NONE
6435 objects won't be recognized. */
6436 #undef ELF_OSABI
6437
6438 #undef elf64_bed
6439 #define elf64_bed elf64_x86_64_sol2_bed
6440
6441 /* The 64-bit static TLS arena size is rounded to the nearest 16-byte
6442 boundary. */
6443 #undef elf_backend_static_tls_alignment
6444 #define elf_backend_static_tls_alignment 16
6445
6446 /* The Solaris 2 ABI requires a plt symbol on all platforms.
6447
6448 Cf. Linker and Libraries Guide, Ch. 2, Link-Editor, Generating the Output
6449 File, p.63. */
6450 #undef elf_backend_want_plt_sym
6451 #define elf_backend_want_plt_sym 1
6452
6453 #include "elf64-target.h"
6454
6455 /* Native Client support. */
6456
6457 static bfd_boolean
6458 elf64_x86_64_nacl_elf_object_p (bfd *abfd)
6459 {
6460 /* Set the right machine number for a NaCl x86-64 ELF64 file. */
6461 bfd_default_set_arch_mach (abfd, bfd_arch_i386, bfd_mach_x86_64_nacl);
6462 return TRUE;
6463 }
6464
6465 #undef TARGET_LITTLE_SYM
6466 #define TARGET_LITTLE_SYM x86_64_elf64_nacl_vec
6467 #undef TARGET_LITTLE_NAME
6468 #define TARGET_LITTLE_NAME "elf64-x86-64-nacl"
6469 #undef elf64_bed
6470 #define elf64_bed elf64_x86_64_nacl_bed
6471
6472 #undef ELF_MAXPAGESIZE
6473 #undef ELF_MINPAGESIZE
6474 #undef ELF_COMMONPAGESIZE
6475 #define ELF_MAXPAGESIZE 0x10000
6476 #define ELF_MINPAGESIZE 0x10000
6477 #define ELF_COMMONPAGESIZE 0x10000
6478
6479 /* Restore defaults. */
6480 #undef ELF_OSABI
6481 #undef elf_backend_static_tls_alignment
6482 #undef elf_backend_want_plt_sym
6483 #define elf_backend_want_plt_sym 0
6484
6485 /* NaCl uses substantially different PLT entries for the same effects. */
6486
6487 #undef elf_backend_plt_alignment
6488 #define elf_backend_plt_alignment 5
6489 #define NACL_PLT_ENTRY_SIZE 64
6490 #define NACLMASK 0xe0 /* 32-byte alignment mask. */
6491
6492 static const bfd_byte elf_x86_64_nacl_plt0_entry[NACL_PLT_ENTRY_SIZE] =
6493 {
6494 0xff, 0x35, 8, 0, 0, 0, /* pushq GOT+8(%rip) */
6495 0x4c, 0x8b, 0x1d, 16, 0, 0, 0, /* mov GOT+16(%rip), %r11 */
6496 0x41, 0x83, 0xe3, NACLMASK, /* and $-32, %r11d */
6497 0x4d, 0x01, 0xfb, /* add %r15, %r11 */
6498 0x41, 0xff, 0xe3, /* jmpq *%r11 */
6499
6500 /* 9-byte nop sequence to pad out to the next 32-byte boundary. */
6501 0x66, 0x0f, 0x1f, 0x84, 0, 0, 0, 0, 0, /* nopw 0x0(%rax,%rax,1) */
6502
6503 /* 32 bytes of nop to pad out to the standard size. */
6504 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, /* excess data32 prefixes */
6505 0x2e, 0x0f, 0x1f, 0x84, 0, 0, 0, 0, 0, /* nopw %cs:0x0(%rax,%rax,1) */
6506 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, /* excess data32 prefixes */
6507 0x2e, 0x0f, 0x1f, 0x84, 0, 0, 0, 0, 0, /* nopw %cs:0x0(%rax,%rax,1) */
6508 0x66, /* excess data32 prefix */
6509 0x90 /* nop */
6510 };
6511
6512 static const bfd_byte elf_x86_64_nacl_plt_entry[NACL_PLT_ENTRY_SIZE] =
6513 {
6514 0x4c, 0x8b, 0x1d, 0, 0, 0, 0, /* mov name@GOTPCREL(%rip),%r11 */
6515 0x41, 0x83, 0xe3, NACLMASK, /* and $-32, %r11d */
6516 0x4d, 0x01, 0xfb, /* add %r15, %r11 */
6517 0x41, 0xff, 0xe3, /* jmpq *%r11 */
6518
6519 /* 15-byte nop sequence to pad out to the next 32-byte boundary. */
6520 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, /* excess data32 prefixes */
6521 0x2e, 0x0f, 0x1f, 0x84, 0, 0, 0, 0, 0, /* nopw %cs:0x0(%rax,%rax,1) */
6522
6523 /* Lazy GOT entries point here (32-byte aligned). */
6524 0x68, /* pushq immediate */
6525 0, 0, 0, 0, /* replaced with index into relocation table. */
6526 0xe9, /* jmp relative */
6527 0, 0, 0, 0, /* replaced with offset to start of .plt0. */
6528
6529 /* 22 bytes of nop to pad out to the standard size. */
6530 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, /* excess data32 prefixes */
6531 0x2e, 0x0f, 0x1f, 0x84, 0, 0, 0, 0, 0, /* nopw %cs:0x0(%rax,%rax,1) */
6532 0x0f, 0x1f, 0x80, 0, 0, 0, 0, /* nopl 0x0(%rax) */
6533 };
6534
6535 /* .eh_frame covering the .plt section. */
6536
6537 static const bfd_byte elf_x86_64_nacl_eh_frame_plt[] =
6538 {
6539 #if (PLT_CIE_LENGTH != 20 \
6540 || PLT_FDE_LENGTH != 36 \
6541 || PLT_FDE_START_OFFSET != 4 + PLT_CIE_LENGTH + 8 \
6542 || PLT_FDE_LEN_OFFSET != 4 + PLT_CIE_LENGTH + 12)
6543 # error "Need elf_x86_64_backend_data parameters for eh_frame_plt offsets!"
6544 #endif
6545 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
6546 0, 0, 0, 0, /* CIE ID */
6547 1, /* CIE version */
6548 'z', 'R', 0, /* Augmentation string */
6549 1, /* Code alignment factor */
6550 0x78, /* Data alignment factor */
6551 16, /* Return address column */
6552 1, /* Augmentation size */
6553 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
6554 DW_CFA_def_cfa, 7, 8, /* DW_CFA_def_cfa: r7 (rsp) ofs 8 */
6555 DW_CFA_offset + 16, 1, /* DW_CFA_offset: r16 (rip) at cfa-8 */
6556 DW_CFA_nop, DW_CFA_nop,
6557
6558 PLT_FDE_LENGTH, 0, 0, 0, /* FDE length */
6559 PLT_CIE_LENGTH + 8, 0, 0, 0,/* CIE pointer */
6560 0, 0, 0, 0, /* R_X86_64_PC32 .plt goes here */
6561 0, 0, 0, 0, /* .plt size goes here */
6562 0, /* Augmentation size */
6563 DW_CFA_def_cfa_offset, 16, /* DW_CFA_def_cfa_offset: 16 */
6564 DW_CFA_advance_loc + 6, /* DW_CFA_advance_loc: 6 to __PLT__+6 */
6565 DW_CFA_def_cfa_offset, 24, /* DW_CFA_def_cfa_offset: 24 */
6566 DW_CFA_advance_loc + 58, /* DW_CFA_advance_loc: 58 to __PLT__+64 */
6567 DW_CFA_def_cfa_expression, /* DW_CFA_def_cfa_expression */
6568 13, /* Block length */
6569 DW_OP_breg7, 8, /* DW_OP_breg7 (rsp): 8 */
6570 DW_OP_breg16, 0, /* DW_OP_breg16 (rip): 0 */
6571 DW_OP_const1u, 63, DW_OP_and, DW_OP_const1u, 37, DW_OP_ge,
6572 DW_OP_lit3, DW_OP_shl, DW_OP_plus,
6573 DW_CFA_nop, DW_CFA_nop
6574 };
6575
6576 static const struct elf_x86_64_backend_data elf_x86_64_nacl_arch_bed =
6577 {
6578 elf_x86_64_nacl_plt0_entry, /* plt0_entry */
6579 elf_x86_64_nacl_plt_entry, /* plt_entry */
6580 NACL_PLT_ENTRY_SIZE, /* plt_entry_size */
6581 2, /* plt0_got1_offset */
6582 9, /* plt0_got2_offset */
6583 13, /* plt0_got2_insn_end */
6584 3, /* plt_got_offset */
6585 33, /* plt_reloc_offset */
6586 38, /* plt_plt_offset */
6587 7, /* plt_got_insn_size */
6588 42, /* plt_plt_insn_end */
6589 32, /* plt_lazy_offset */
6590 elf_x86_64_nacl_eh_frame_plt, /* eh_frame_plt */
6591 sizeof (elf_x86_64_nacl_eh_frame_plt), /* eh_frame_plt_size */
6592 };
6593
6594 #undef elf_backend_arch_data
6595 #define elf_backend_arch_data &elf_x86_64_nacl_arch_bed
6596
6597 #undef elf_backend_object_p
6598 #define elf_backend_object_p elf64_x86_64_nacl_elf_object_p
6599 #undef elf_backend_modify_segment_map
6600 #define elf_backend_modify_segment_map nacl_modify_segment_map
6601 #undef elf_backend_modify_program_headers
6602 #define elf_backend_modify_program_headers nacl_modify_program_headers
6603 #undef elf_backend_final_write_processing
6604 #define elf_backend_final_write_processing nacl_final_write_processing
6605
6606 #include "elf64-target.h"
6607
6608 /* Native Client x32 support. */
6609
6610 static bfd_boolean
6611 elf32_x86_64_nacl_elf_object_p (bfd *abfd)
6612 {
6613 /* Set the right machine number for a NaCl x86-64 ELF32 file. */
6614 bfd_default_set_arch_mach (abfd, bfd_arch_i386, bfd_mach_x64_32_nacl);
6615 return TRUE;
6616 }
6617
6618 #undef TARGET_LITTLE_SYM
6619 #define TARGET_LITTLE_SYM x86_64_elf32_nacl_vec
6620 #undef TARGET_LITTLE_NAME
6621 #define TARGET_LITTLE_NAME "elf32-x86-64-nacl"
6622 #undef elf32_bed
6623 #define elf32_bed elf32_x86_64_nacl_bed
6624
6625 #define bfd_elf32_bfd_link_hash_table_create \
6626 elf_x86_64_link_hash_table_create
6627 #define bfd_elf32_bfd_reloc_type_lookup \
6628 elf_x86_64_reloc_type_lookup
6629 #define bfd_elf32_bfd_reloc_name_lookup \
6630 elf_x86_64_reloc_name_lookup
6631 #define bfd_elf32_mkobject \
6632 elf_x86_64_mkobject
6633 #define bfd_elf32_get_synthetic_symtab \
6634 elf_x86_64_get_synthetic_symtab
6635
6636 #undef elf_backend_object_p
6637 #define elf_backend_object_p \
6638 elf32_x86_64_nacl_elf_object_p
6639
6640 #undef elf_backend_bfd_from_remote_memory
6641 #define elf_backend_bfd_from_remote_memory \
6642 _bfd_elf32_bfd_from_remote_memory
6643
6644 #undef elf_backend_size_info
6645 #define elf_backend_size_info \
6646 _bfd_elf32_size_info
6647
6648 #include "elf32-target.h"
6649
6650 /* Restore defaults. */
6651 #undef elf_backend_object_p
6652 #define elf_backend_object_p elf64_x86_64_elf_object_p
6653 #undef elf_backend_bfd_from_remote_memory
6654 #undef elf_backend_size_info
6655 #undef elf_backend_modify_segment_map
6656 #undef elf_backend_modify_program_headers
6657 #undef elf_backend_final_write_processing
6658
6659 /* Intel L1OM support. */
6660
6661 static bfd_boolean
6662 elf64_l1om_elf_object_p (bfd *abfd)
6663 {
6664 /* Set the right machine number for an L1OM elf64 file. */
6665 bfd_default_set_arch_mach (abfd, bfd_arch_l1om, bfd_mach_l1om);
6666 return TRUE;
6667 }
6668
6669 #undef TARGET_LITTLE_SYM
6670 #define TARGET_LITTLE_SYM l1om_elf64_vec
6671 #undef TARGET_LITTLE_NAME
6672 #define TARGET_LITTLE_NAME "elf64-l1om"
6673 #undef ELF_ARCH
6674 #define ELF_ARCH bfd_arch_l1om
6675
6676 #undef ELF_MACHINE_CODE
6677 #define ELF_MACHINE_CODE EM_L1OM
6678
6679 #undef ELF_OSABI
6680
6681 #undef elf64_bed
6682 #define elf64_bed elf64_l1om_bed
6683
6684 #undef elf_backend_object_p
6685 #define elf_backend_object_p elf64_l1om_elf_object_p
6686
6687 /* Restore defaults. */
6688 #undef ELF_MAXPAGESIZE
6689 #undef ELF_MINPAGESIZE
6690 #undef ELF_COMMONPAGESIZE
6691 #define ELF_MAXPAGESIZE 0x200000
6692 #define ELF_MINPAGESIZE 0x1000
6693 #define ELF_COMMONPAGESIZE 0x1000
6694 #undef elf_backend_plt_alignment
6695 #define elf_backend_plt_alignment 4
6696 #undef elf_backend_arch_data
6697 #define elf_backend_arch_data &elf_x86_64_arch_bed
6698
6699 #include "elf64-target.h"
6700
6701 /* FreeBSD L1OM support. */
6702
6703 #undef TARGET_LITTLE_SYM
6704 #define TARGET_LITTLE_SYM l1om_elf64_fbsd_vec
6705 #undef TARGET_LITTLE_NAME
6706 #define TARGET_LITTLE_NAME "elf64-l1om-freebsd"
6707
6708 #undef ELF_OSABI
6709 #define ELF_OSABI ELFOSABI_FREEBSD
6710
6711 #undef elf64_bed
6712 #define elf64_bed elf64_l1om_fbsd_bed
6713
6714 #include "elf64-target.h"
6715
6716 /* Intel K1OM support. */
6717
6718 static bfd_boolean
6719 elf64_k1om_elf_object_p (bfd *abfd)
6720 {
6721 /* Set the right machine number for an K1OM elf64 file. */
6722 bfd_default_set_arch_mach (abfd, bfd_arch_k1om, bfd_mach_k1om);
6723 return TRUE;
6724 }
6725
6726 #undef TARGET_LITTLE_SYM
6727 #define TARGET_LITTLE_SYM k1om_elf64_vec
6728 #undef TARGET_LITTLE_NAME
6729 #define TARGET_LITTLE_NAME "elf64-k1om"
6730 #undef ELF_ARCH
6731 #define ELF_ARCH bfd_arch_k1om
6732
6733 #undef ELF_MACHINE_CODE
6734 #define ELF_MACHINE_CODE EM_K1OM
6735
6736 #undef ELF_OSABI
6737
6738 #undef elf64_bed
6739 #define elf64_bed elf64_k1om_bed
6740
6741 #undef elf_backend_object_p
6742 #define elf_backend_object_p elf64_k1om_elf_object_p
6743
6744 #undef elf_backend_static_tls_alignment
6745
6746 #undef elf_backend_want_plt_sym
6747 #define elf_backend_want_plt_sym 0
6748
6749 #include "elf64-target.h"
6750
6751 /* FreeBSD K1OM support. */
6752
6753 #undef TARGET_LITTLE_SYM
6754 #define TARGET_LITTLE_SYM k1om_elf64_fbsd_vec
6755 #undef TARGET_LITTLE_NAME
6756 #define TARGET_LITTLE_NAME "elf64-k1om-freebsd"
6757
6758 #undef ELF_OSABI
6759 #define ELF_OSABI ELFOSABI_FREEBSD
6760
6761 #undef elf64_bed
6762 #define elf64_bed elf64_k1om_fbsd_bed
6763
6764 #include "elf64-target.h"
6765
6766 /* 32bit x86-64 support. */
6767
6768 #undef TARGET_LITTLE_SYM
6769 #define TARGET_LITTLE_SYM x86_64_elf32_vec
6770 #undef TARGET_LITTLE_NAME
6771 #define TARGET_LITTLE_NAME "elf32-x86-64"
6772 #undef elf32_bed
6773
6774 #undef ELF_ARCH
6775 #define ELF_ARCH bfd_arch_i386
6776
6777 #undef ELF_MACHINE_CODE
6778 #define ELF_MACHINE_CODE EM_X86_64
6779
6780 #undef ELF_OSABI
6781
6782 #undef elf_backend_object_p
6783 #define elf_backend_object_p \
6784 elf32_x86_64_elf_object_p
6785
6786 #undef elf_backend_bfd_from_remote_memory
6787 #define elf_backend_bfd_from_remote_memory \
6788 _bfd_elf32_bfd_from_remote_memory
6789
6790 #undef elf_backend_size_info
6791 #define elf_backend_size_info \
6792 _bfd_elf32_size_info
6793
6794 #include "elf32-target.h"
The GNU Binutils are a collection of binary tools.