]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - bfd/elf32-i386.c
projects / thirdparty / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
x86: Call rtype_to_howto to get reloc_howto_type pointer
[thirdparty/binutils-gdb.git] / bfd / elf32-i386.c
1 /* Intel 80386/80486-specific support for 32-bit ELF
2 Copyright (C) 1993-2018 Free Software Foundation, Inc.
3
4 This file is part of BFD, the Binary File Descriptor library.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
20
21 #include "elfxx-x86.h"
22 #include "elf-nacl.h"
23 #include "elf-vxworks.h"
24 #include "dwarf2.h"
25 #include "opcode/i386.h"
26
27 /* 386 uses REL relocations instead of RELA. */
28 #define USE_REL 1
29
30 #include "elf/i386.h"
31
32 static reloc_howto_type elf_howto_table[]=
33 {
34 HOWTO(R_386_NONE, 0, 3, 0, FALSE, 0, complain_overflow_dont,
35 bfd_elf_generic_reloc, "R_386_NONE",
36 TRUE, 0x00000000, 0x00000000, FALSE),
37 HOWTO(R_386_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
38 bfd_elf_generic_reloc, "R_386_32",
39 TRUE, 0xffffffff, 0xffffffff, FALSE),
40 HOWTO(R_386_PC32, 0, 2, 32, TRUE, 0, complain_overflow_bitfield,
41 bfd_elf_generic_reloc, "R_386_PC32",
42 TRUE, 0xffffffff, 0xffffffff, TRUE),
43 HOWTO(R_386_GOT32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
44 bfd_elf_generic_reloc, "R_386_GOT32",
45 TRUE, 0xffffffff, 0xffffffff, FALSE),
46 HOWTO(R_386_PLT32, 0, 2, 32, TRUE, 0, complain_overflow_bitfield,
47 bfd_elf_generic_reloc, "R_386_PLT32",
48 TRUE, 0xffffffff, 0xffffffff, TRUE),
49 HOWTO(R_386_COPY, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
50 bfd_elf_generic_reloc, "R_386_COPY",
51 TRUE, 0xffffffff, 0xffffffff, FALSE),
52 HOWTO(R_386_GLOB_DAT, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
53 bfd_elf_generic_reloc, "R_386_GLOB_DAT",
54 TRUE, 0xffffffff, 0xffffffff, FALSE),
55 HOWTO(R_386_JUMP_SLOT, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
56 bfd_elf_generic_reloc, "R_386_JUMP_SLOT",
57 TRUE, 0xffffffff, 0xffffffff, FALSE),
58 HOWTO(R_386_RELATIVE, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
59 bfd_elf_generic_reloc, "R_386_RELATIVE",
60 TRUE, 0xffffffff, 0xffffffff, FALSE),
61 HOWTO(R_386_GOTOFF, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
62 bfd_elf_generic_reloc, "R_386_GOTOFF",
63 TRUE, 0xffffffff, 0xffffffff, FALSE),
64 HOWTO(R_386_GOTPC, 0, 2, 32, TRUE, 0, complain_overflow_bitfield,
65 bfd_elf_generic_reloc, "R_386_GOTPC",
66 TRUE, 0xffffffff, 0xffffffff, TRUE),
67
68 /* We have a gap in the reloc numbers here.
69 R_386_standard counts the number up to this point, and
70 R_386_ext_offset is the value to subtract from a reloc type of
71 R_386_16 thru R_386_PC8 to form an index into this table. */
72 #define R_386_standard (R_386_GOTPC + 1)
73 #define R_386_ext_offset (R_386_TLS_TPOFF - R_386_standard)
74
75 /* These relocs are a GNU extension. */
76 HOWTO(R_386_TLS_TPOFF, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
77 bfd_elf_generic_reloc, "R_386_TLS_TPOFF",
78 TRUE, 0xffffffff, 0xffffffff, FALSE),
79 HOWTO(R_386_TLS_IE, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
80 bfd_elf_generic_reloc, "R_386_TLS_IE",
81 TRUE, 0xffffffff, 0xffffffff, FALSE),
82 HOWTO(R_386_TLS_GOTIE, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
83 bfd_elf_generic_reloc, "R_386_TLS_GOTIE",
84 TRUE, 0xffffffff, 0xffffffff, FALSE),
85 HOWTO(R_386_TLS_LE, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
86 bfd_elf_generic_reloc, "R_386_TLS_LE",
87 TRUE, 0xffffffff, 0xffffffff, FALSE),
88 HOWTO(R_386_TLS_GD, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
89 bfd_elf_generic_reloc, "R_386_TLS_GD",
90 TRUE, 0xffffffff, 0xffffffff, FALSE),
91 HOWTO(R_386_TLS_LDM, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
92 bfd_elf_generic_reloc, "R_386_TLS_LDM",
93 TRUE, 0xffffffff, 0xffffffff, FALSE),
94 HOWTO(R_386_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
95 bfd_elf_generic_reloc, "R_386_16",
96 TRUE, 0xffff, 0xffff, FALSE),
97 HOWTO(R_386_PC16, 0, 1, 16, TRUE, 0, complain_overflow_bitfield,
98 bfd_elf_generic_reloc, "R_386_PC16",
99 TRUE, 0xffff, 0xffff, TRUE),
100 HOWTO(R_386_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,
101 bfd_elf_generic_reloc, "R_386_8",
102 TRUE, 0xff, 0xff, FALSE),
103 HOWTO(R_386_PC8, 0, 0, 8, TRUE, 0, complain_overflow_signed,
104 bfd_elf_generic_reloc, "R_386_PC8",
105 TRUE, 0xff, 0xff, TRUE),
106
107 #define R_386_ext (R_386_PC8 + 1 - R_386_ext_offset)
108 #define R_386_tls_offset (R_386_TLS_LDO_32 - R_386_ext)
109 /* These are common with Solaris TLS implementation. */
110 HOWTO(R_386_TLS_LDO_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
111 bfd_elf_generic_reloc, "R_386_TLS_LDO_32",
112 TRUE, 0xffffffff, 0xffffffff, FALSE),
113 HOWTO(R_386_TLS_IE_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
114 bfd_elf_generic_reloc, "R_386_TLS_IE_32",
115 TRUE, 0xffffffff, 0xffffffff, FALSE),
116 HOWTO(R_386_TLS_LE_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
117 bfd_elf_generic_reloc, "R_386_TLS_LE_32",
118 TRUE, 0xffffffff, 0xffffffff, FALSE),
119 HOWTO(R_386_TLS_DTPMOD32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
120 bfd_elf_generic_reloc, "R_386_TLS_DTPMOD32",
121 TRUE, 0xffffffff, 0xffffffff, FALSE),
122 HOWTO(R_386_TLS_DTPOFF32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
123 bfd_elf_generic_reloc, "R_386_TLS_DTPOFF32",
124 TRUE, 0xffffffff, 0xffffffff, FALSE),
125 HOWTO(R_386_TLS_TPOFF32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
126 bfd_elf_generic_reloc, "R_386_TLS_TPOFF32",
127 TRUE, 0xffffffff, 0xffffffff, FALSE),
128 HOWTO(R_386_SIZE32, 0, 2, 32, FALSE, 0, complain_overflow_unsigned,
129 bfd_elf_generic_reloc, "R_386_SIZE32",
130 TRUE, 0xffffffff, 0xffffffff, FALSE),
131 HOWTO(R_386_TLS_GOTDESC, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
132 bfd_elf_generic_reloc, "R_386_TLS_GOTDESC",
133 TRUE, 0xffffffff, 0xffffffff, FALSE),
134 HOWTO(R_386_TLS_DESC_CALL, 0, 0, 0, FALSE, 0, complain_overflow_dont,
135 bfd_elf_generic_reloc, "R_386_TLS_DESC_CALL",
136 FALSE, 0, 0, FALSE),
137 HOWTO(R_386_TLS_DESC, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
138 bfd_elf_generic_reloc, "R_386_TLS_DESC",
139 TRUE, 0xffffffff, 0xffffffff, FALSE),
140 HOWTO(R_386_IRELATIVE, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
141 bfd_elf_generic_reloc, "R_386_IRELATIVE",
142 TRUE, 0xffffffff, 0xffffffff, FALSE),
143 HOWTO(R_386_GOT32X, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
144 bfd_elf_generic_reloc, "R_386_GOT32X",
145 TRUE, 0xffffffff, 0xffffffff, FALSE),
146
147 /* Another gap. */
148 #define R_386_ext2 (R_386_GOT32X + 1 - R_386_tls_offset)
149 #define R_386_vt_offset (R_386_GNU_VTINHERIT - R_386_ext2)
150
151 /* GNU extension to record C++ vtable hierarchy. */
152 HOWTO (R_386_GNU_VTINHERIT, /* type */
153 0, /* rightshift */
154 2, /* size (0 = byte, 1 = short, 2 = long) */
155 0, /* bitsize */
156 FALSE, /* pc_relative */
157 0, /* bitpos */
158 complain_overflow_dont, /* complain_on_overflow */
159 NULL, /* special_function */
160 "R_386_GNU_VTINHERIT", /* name */
161 FALSE, /* partial_inplace */
162 0, /* src_mask */
163 0, /* dst_mask */
164 FALSE), /* pcrel_offset */
165
166 /* GNU extension to record C++ vtable member usage. */
167 HOWTO (R_386_GNU_VTENTRY, /* type */
168 0, /* rightshift */
169 2, /* size (0 = byte, 1 = short, 2 = long) */
170 0, /* bitsize */
171 FALSE, /* pc_relative */
172 0, /* bitpos */
173 complain_overflow_dont, /* complain_on_overflow */
174 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
175 "R_386_GNU_VTENTRY", /* name */
176 FALSE, /* partial_inplace */
177 0, /* src_mask */
178 0, /* dst_mask */
179 FALSE) /* pcrel_offset */
180
181 #define R_386_vt (R_386_GNU_VTENTRY + 1 - R_386_vt_offset)
182
183 };
184
185 #define X86_PCREL_TYPE_P(TYPE) ((TYPE) == R_386_PC32)
186
187 #define X86_SIZE_TYPE_P(TYPE) ((TYPE) == R_386_SIZE32)
188
189 #ifdef DEBUG_GEN_RELOC
190 #define TRACE(str) \
191 fprintf (stderr, "i386 bfd reloc lookup %d (%s)\n", code, str)
192 #else
193 #define TRACE(str)
194 #endif
195
196 static reloc_howto_type *
197 elf_i386_reloc_type_lookup (bfd *abfd,
198 bfd_reloc_code_real_type code)
199 {
200 switch (code)
201 {
202 case BFD_RELOC_NONE:
203 TRACE ("BFD_RELOC_NONE");
204 return &elf_howto_table[R_386_NONE];
205
206 case BFD_RELOC_32:
207 TRACE ("BFD_RELOC_32");
208 return &elf_howto_table[R_386_32];
209
210 case BFD_RELOC_CTOR:
211 TRACE ("BFD_RELOC_CTOR");
212 return &elf_howto_table[R_386_32];
213
214 case BFD_RELOC_32_PCREL:
215 TRACE ("BFD_RELOC_PC32");
216 return &elf_howto_table[R_386_PC32];
217
218 case BFD_RELOC_386_GOT32:
219 TRACE ("BFD_RELOC_386_GOT32");
220 return &elf_howto_table[R_386_GOT32];
221
222 case BFD_RELOC_386_PLT32:
223 TRACE ("BFD_RELOC_386_PLT32");
224 return &elf_howto_table[R_386_PLT32];
225
226 case BFD_RELOC_386_COPY:
227 TRACE ("BFD_RELOC_386_COPY");
228 return &elf_howto_table[R_386_COPY];
229
230 case BFD_RELOC_386_GLOB_DAT:
231 TRACE ("BFD_RELOC_386_GLOB_DAT");
232 return &elf_howto_table[R_386_GLOB_DAT];
233
234 case BFD_RELOC_386_JUMP_SLOT:
235 TRACE ("BFD_RELOC_386_JUMP_SLOT");
236 return &elf_howto_table[R_386_JUMP_SLOT];
237
238 case BFD_RELOC_386_RELATIVE:
239 TRACE ("BFD_RELOC_386_RELATIVE");
240 return &elf_howto_table[R_386_RELATIVE];
241
242 case BFD_RELOC_386_GOTOFF:
243 TRACE ("BFD_RELOC_386_GOTOFF");
244 return &elf_howto_table[R_386_GOTOFF];
245
246 case BFD_RELOC_386_GOTPC:
247 TRACE ("BFD_RELOC_386_GOTPC");
248 return &elf_howto_table[R_386_GOTPC];
249
250 /* These relocs are a GNU extension. */
251 case BFD_RELOC_386_TLS_TPOFF:
252 TRACE ("BFD_RELOC_386_TLS_TPOFF");
253 return &elf_howto_table[R_386_TLS_TPOFF - R_386_ext_offset];
254
255 case BFD_RELOC_386_TLS_IE:
256 TRACE ("BFD_RELOC_386_TLS_IE");
257 return &elf_howto_table[R_386_TLS_IE - R_386_ext_offset];
258
259 case BFD_RELOC_386_TLS_GOTIE:
260 TRACE ("BFD_RELOC_386_TLS_GOTIE");
261 return &elf_howto_table[R_386_TLS_GOTIE - R_386_ext_offset];
262
263 case BFD_RELOC_386_TLS_LE:
264 TRACE ("BFD_RELOC_386_TLS_LE");
265 return &elf_howto_table[R_386_TLS_LE - R_386_ext_offset];
266
267 case BFD_RELOC_386_TLS_GD:
268 TRACE ("BFD_RELOC_386_TLS_GD");
269 return &elf_howto_table[R_386_TLS_GD - R_386_ext_offset];
270
271 case BFD_RELOC_386_TLS_LDM:
272 TRACE ("BFD_RELOC_386_TLS_LDM");
273 return &elf_howto_table[R_386_TLS_LDM - R_386_ext_offset];
274
275 case BFD_RELOC_16:
276 TRACE ("BFD_RELOC_16");
277 return &elf_howto_table[R_386_16 - R_386_ext_offset];
278
279 case BFD_RELOC_16_PCREL:
280 TRACE ("BFD_RELOC_16_PCREL");
281 return &elf_howto_table[R_386_PC16 - R_386_ext_offset];
282
283 case BFD_RELOC_8:
284 TRACE ("BFD_RELOC_8");
285 return &elf_howto_table[R_386_8 - R_386_ext_offset];
286
287 case BFD_RELOC_8_PCREL:
288 TRACE ("BFD_RELOC_8_PCREL");
289 return &elf_howto_table[R_386_PC8 - R_386_ext_offset];
290
291 /* Common with Sun TLS implementation. */
292 case BFD_RELOC_386_TLS_LDO_32:
293 TRACE ("BFD_RELOC_386_TLS_LDO_32");
294 return &elf_howto_table[R_386_TLS_LDO_32 - R_386_tls_offset];
295
296 case BFD_RELOC_386_TLS_IE_32:
297 TRACE ("BFD_RELOC_386_TLS_IE_32");
298 return &elf_howto_table[R_386_TLS_IE_32 - R_386_tls_offset];
299
300 case BFD_RELOC_386_TLS_LE_32:
301 TRACE ("BFD_RELOC_386_TLS_LE_32");
302 return &elf_howto_table[R_386_TLS_LE_32 - R_386_tls_offset];
303
304 case BFD_RELOC_386_TLS_DTPMOD32:
305 TRACE ("BFD_RELOC_386_TLS_DTPMOD32");
306 return &elf_howto_table[R_386_TLS_DTPMOD32 - R_386_tls_offset];
307
308 case BFD_RELOC_386_TLS_DTPOFF32:
309 TRACE ("BFD_RELOC_386_TLS_DTPOFF32");
310 return &elf_howto_table[R_386_TLS_DTPOFF32 - R_386_tls_offset];
311
312 case BFD_RELOC_386_TLS_TPOFF32:
313 TRACE ("BFD_RELOC_386_TLS_TPOFF32");
314 return &elf_howto_table[R_386_TLS_TPOFF32 - R_386_tls_offset];
315
316 case BFD_RELOC_SIZE32:
317 TRACE ("BFD_RELOC_SIZE32");
318 return &elf_howto_table[R_386_SIZE32 - R_386_tls_offset];
319
320 case BFD_RELOC_386_TLS_GOTDESC:
321 TRACE ("BFD_RELOC_386_TLS_GOTDESC");
322 return &elf_howto_table[R_386_TLS_GOTDESC - R_386_tls_offset];
323
324 case BFD_RELOC_386_TLS_DESC_CALL:
325 TRACE ("BFD_RELOC_386_TLS_DESC_CALL");
326 return &elf_howto_table[R_386_TLS_DESC_CALL - R_386_tls_offset];
327
328 case BFD_RELOC_386_TLS_DESC:
329 TRACE ("BFD_RELOC_386_TLS_DESC");
330 return &elf_howto_table[R_386_TLS_DESC - R_386_tls_offset];
331
332 case BFD_RELOC_386_IRELATIVE:
333 TRACE ("BFD_RELOC_386_IRELATIVE");
334 return &elf_howto_table[R_386_IRELATIVE - R_386_tls_offset];
335
336 case BFD_RELOC_386_GOT32X:
337 TRACE ("BFD_RELOC_386_GOT32X");
338 return &elf_howto_table[R_386_GOT32X - R_386_tls_offset];
339
340 case BFD_RELOC_VTABLE_INHERIT:
341 TRACE ("BFD_RELOC_VTABLE_INHERIT");
342 return &elf_howto_table[R_386_GNU_VTINHERIT - R_386_vt_offset];
343
344 case BFD_RELOC_VTABLE_ENTRY:
345 TRACE ("BFD_RELOC_VTABLE_ENTRY");
346 return &elf_howto_table[R_386_GNU_VTENTRY - R_386_vt_offset];
347
348 default:
349 TRACE ("Unknown");
350 /* xgettext:c-format */
351 _bfd_error_handler (_("%pB: unsupported relocation type: %#x"),
352 abfd, (int) code);
353 bfd_set_error (bfd_error_bad_value);
354 return NULL;
355 }
356 }
357
358 static reloc_howto_type *
359 elf_i386_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
360 const char *r_name)
361 {
362 unsigned int i;
363
364 for (i = 0; i < sizeof (elf_howto_table) / sizeof (elf_howto_table[0]); i++)
365 if (elf_howto_table[i].name != NULL
366 && strcasecmp (elf_howto_table[i].name, r_name) == 0)
367 return &elf_howto_table[i];
368
369 return NULL;
370 }
371
372 static reloc_howto_type *
373 elf_i386_rtype_to_howto (bfd *abfd ATTRIBUTE_UNUSED, unsigned r_type)
374 {
375 unsigned int indx;
376
377 if ((indx = r_type) >= R_386_standard
378 && ((indx = r_type - R_386_ext_offset) - R_386_standard
379 >= R_386_ext - R_386_standard)
380 && ((indx = r_type - R_386_tls_offset) - R_386_ext
381 >= R_386_ext2 - R_386_ext)
382 && ((indx = r_type - R_386_vt_offset) - R_386_ext2
383 >= R_386_vt - R_386_ext2))
384 return NULL;
385 /* PR 17512: file: 0f67f69d. */
386 if (elf_howto_table [indx].type != r_type)
387 return NULL;
388 return &elf_howto_table[indx];
389 }
390
391 static bfd_boolean
392 elf_i386_info_to_howto_rel (bfd *abfd,
393 arelent *cache_ptr,
394 Elf_Internal_Rela *dst)
395 {
396 unsigned int r_type = ELF32_R_TYPE (dst->r_info);
397
398 if ((cache_ptr->howto = elf_i386_rtype_to_howto (abfd, r_type)) == NULL)
399 {
400 /* xgettext:c-format */
401 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
402 abfd, r_type);
403 bfd_set_error (bfd_error_bad_value);
404 return FALSE;
405 }
406
407 return TRUE;
408 }
409
410 /* Return whether a symbol name implies a local label. The UnixWare
411 2.1 cc generates temporary symbols that start with .X, so we
412 recognize them here. FIXME: do other SVR4 compilers also use .X?.
413 If so, we should move the .X recognition into
414 _bfd_elf_is_local_label_name. */
415
416 static bfd_boolean
417 elf_i386_is_local_label_name (bfd *abfd, const char *name)
418 {
419 if (name[0] == '.' && name[1] == 'X')
420 return TRUE;
421
422 return _bfd_elf_is_local_label_name (abfd, name);
423 }
424 \f
425 /* Support for core dump NOTE sections. */
426
427 static bfd_boolean
428 elf_i386_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
429 {
430 int offset;
431 size_t size;
432
433 if (note->namesz == 8 && strcmp (note->namedata, "FreeBSD") == 0)
434 {
435 int pr_version = bfd_get_32 (abfd, note->descdata);
436
437 if (pr_version != 1)
438 return FALSE;
439
440 /* pr_cursig */
441 elf_tdata (abfd)->core->signal = bfd_get_32 (abfd, note->descdata + 20);
442
443 /* pr_pid */
444 elf_tdata (abfd)->core->lwpid = bfd_get_32 (abfd, note->descdata + 24);
445
446 /* pr_reg */
447 offset = 28;
448 size = bfd_get_32 (abfd, note->descdata + 8);
449 }
450 else
451 {
452 switch (note->descsz)
453 {
454 default:
455 return FALSE;
456
457 case 144: /* Linux/i386 */
458 /* pr_cursig */
459 elf_tdata (abfd)->core->signal = bfd_get_16 (abfd, note->descdata + 12);
460
461 /* pr_pid */
462 elf_tdata (abfd)->core->lwpid = bfd_get_32 (abfd, note->descdata + 24);
463
464 /* pr_reg */
465 offset = 72;
466 size = 68;
467
468 break;
469 }
470 }
471
472 /* Make a ".reg/999" section. */
473 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
474 size, note->descpos + offset);
475 }
476
477 static bfd_boolean
478 elf_i386_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
479 {
480 if (note->namesz == 8 && strcmp (note->namedata, "FreeBSD") == 0)
481 {
482 int pr_version = bfd_get_32 (abfd, note->descdata);
483
484 if (pr_version != 1)
485 return FALSE;
486
487 elf_tdata (abfd)->core->program
488 = _bfd_elfcore_strndup (abfd, note->descdata + 8, 17);
489 elf_tdata (abfd)->core->command
490 = _bfd_elfcore_strndup (abfd, note->descdata + 25, 81);
491 }
492 else
493 {
494 switch (note->descsz)
495 {
496 default:
497 return FALSE;
498
499 case 124: /* Linux/i386 elf_prpsinfo. */
500 elf_tdata (abfd)->core->pid
501 = bfd_get_32 (abfd, note->descdata + 12);
502 elf_tdata (abfd)->core->program
503 = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
504 elf_tdata (abfd)->core->command
505 = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
506 }
507 }
508
509 /* Note that for some reason, a spurious space is tacked
510 onto the end of the args in some (at least one anyway)
511 implementations, so strip it off if it exists. */
512 {
513 char *command = elf_tdata (abfd)->core->command;
514 int n = strlen (command);
515
516 if (0 < n && command[n - 1] == ' ')
517 command[n - 1] = '\0';
518 }
519
520 return TRUE;
521 }
522 \f
523 /* Functions for the i386 ELF linker.
524
525 In order to gain some understanding of code in this file without
526 knowing all the intricate details of the linker, note the
527 following:
528
529 Functions named elf_i386_* are called by external routines, other
530 functions are only called locally. elf_i386_* functions appear
531 in this file more or less in the order in which they are called
532 from external routines. eg. elf_i386_check_relocs is called
533 early in the link process, elf_i386_finish_dynamic_sections is
534 one of the last functions. */
535
536 /* The size in bytes of an entry in the lazy procedure linkage table. */
537
538 #define LAZY_PLT_ENTRY_SIZE 16
539
540 /* The size in bytes of an entry in the non-lazy procedure linkage
541 table. */
542
543 #define NON_LAZY_PLT_ENTRY_SIZE 8
544
545 /* The first entry in an absolute lazy procedure linkage table looks
546 like this. See the SVR4 ABI i386 supplement to see how this works.
547 Will be padded to LAZY_PLT_ENTRY_SIZE with lazy_plt->plt0_pad_byte. */
548
549 static const bfd_byte elf_i386_lazy_plt0_entry[12] =
550 {
551 0xff, 0x35, /* pushl contents of address */
552 0, 0, 0, 0, /* replaced with address of .got + 4. */
553 0xff, 0x25, /* jmp indirect */
554 0, 0, 0, 0 /* replaced with address of .got + 8. */
555 };
556
557 /* Subsequent entries in an absolute lazy procedure linkage table look
558 like this. */
559
560 static const bfd_byte elf_i386_lazy_plt_entry[LAZY_PLT_ENTRY_SIZE] =
561 {
562 0xff, 0x25, /* jmp indirect */
563 0, 0, 0, 0, /* replaced with address of this symbol in .got. */
564 0x68, /* pushl immediate */
565 0, 0, 0, 0, /* replaced with offset into relocation table. */
566 0xe9, /* jmp relative */
567 0, 0, 0, 0 /* replaced with offset to start of .plt. */
568 };
569
570 /* The first entry in a PIC lazy procedure linkage table look like
571 this. Will be padded to LAZY_PLT_ENTRY_SIZE with
572 lazy_plt->plt0_pad_byte. */
573
574 static const bfd_byte elf_i386_pic_lazy_plt0_entry[12] =
575 {
576 0xff, 0xb3, 4, 0, 0, 0, /* pushl 4(%ebx) */
577 0xff, 0xa3, 8, 0, 0, 0 /* jmp *8(%ebx) */
578 };
579
580 /* Subsequent entries in a PIC lazy procedure linkage table look like
581 this. */
582
583 static const bfd_byte elf_i386_pic_lazy_plt_entry[LAZY_PLT_ENTRY_SIZE] =
584 {
585 0xff, 0xa3, /* jmp *offset(%ebx) */
586 0, 0, 0, 0, /* replaced with offset of this symbol in .got. */
587 0x68, /* pushl immediate */
588 0, 0, 0, 0, /* replaced with offset into relocation table. */
589 0xe9, /* jmp relative */
590 0, 0, 0, 0 /* replaced with offset to start of .plt. */
591 };
592
593 /* Entries in the non-lazy procedure linkage table look like this. */
594
595 static const bfd_byte elf_i386_non_lazy_plt_entry[NON_LAZY_PLT_ENTRY_SIZE] =
596 {
597 0xff, 0x25, /* jmp indirect */
598 0, 0, 0, 0, /* replaced with offset of this symbol in .got. */
599 0x66, 0x90 /* xchg %ax,%ax */
600 };
601
602 /* Entries in the PIC non-lazy procedure linkage table look like
603 this. */
604
605 static const bfd_byte elf_i386_pic_non_lazy_plt_entry[NON_LAZY_PLT_ENTRY_SIZE] =
606 {
607 0xff, 0xa3, /* jmp *offset(%ebx) */
608 0, 0, 0, 0, /* replaced with offset of this symbol in .got. */
609 0x66, 0x90 /* xchg %ax,%ax */
610 };
611
612 /* The first entry in an absolute IBT-enabled lazy procedure linkage
613 table looks like this. */
614
615 static const bfd_byte elf_i386_lazy_ibt_plt0_entry[LAZY_PLT_ENTRY_SIZE] =
616 {
617 0xff, 0x35, 0, 0, 0, 0, /* pushl GOT[1] */
618 0xff, 0x25, 0, 0, 0, 0, /* jmp *GOT[2] */
619 0x0f, 0x1f, 0x40, 0x00 /* nopl 0(%rax) */
620 };
621
622 /* Subsequent entries for an absolute IBT-enabled lazy procedure linkage
623 table look like this. Subsequent entries for a PIC IBT-enabled lazy
624 procedure linkage table are the same. */
625
626 static const bfd_byte elf_i386_lazy_ibt_plt_entry[LAZY_PLT_ENTRY_SIZE] =
627 {
628 0xf3, 0x0f, 0x1e, 0xfb, /* endbr32 */
629 0x68, 0, 0, 0, 0, /* pushl immediate */
630 0xe9, 0, 0, 0, 0, /* jmp relative */
631 0x66, 0x90 /* xchg %ax,%ax */
632 };
633
634 /* The first entry in a PIC IBT-enabled lazy procedure linkage table
635 look like. */
636
637 static const bfd_byte elf_i386_pic_lazy_ibt_plt0_entry[LAZY_PLT_ENTRY_SIZE] =
638 {
639 0xff, 0xb3, 4, 0, 0, 0, /* pushl 4(%ebx) */
640 0xff, 0xa3, 8, 0, 0, 0, /* jmp *8(%ebx) */
641 0x0f, 0x1f, 0x40, 0x00 /* nopl 0(%rax) */
642 };
643
644 /* Entries for branches with IBT-enabled in the absolute non-lazey
645 procedure linkage table look like this. They have the same size
646 as the lazy PLT entry. */
647
648 static const bfd_byte elf_i386_non_lazy_ibt_plt_entry[LAZY_PLT_ENTRY_SIZE] =
649 {
650 0xf3, 0x0f, 0x1e, 0xfb, /* endbr32 */
651 0xff, 0x25, 0, 0, 0, 0, /* jmp *name@GOT */
652 0x66, 0x0f, 0x1f, 0x44, 0x00, 0x00 /* nopw 0x0(%rax,%rax,1) */
653 };
654
655 /* Entries for branches with IBT-enabled in the PIC non-lazey procedure
656 linkage table look like this. They have the same size as the lazy
657 PLT entry. */
658
659 static const bfd_byte elf_i386_pic_non_lazy_ibt_plt_entry[LAZY_PLT_ENTRY_SIZE] =
660 {
661 0xf3, 0x0f, 0x1e, 0xfb, /* endbr32 */
662 0xff, 0xa3, 0, 0, 0, 0, /* jmp *name@GOT(%ebx) */
663 0x66, 0x0f, 0x1f, 0x44, 0x00, 0x00 /* nopw 0x0(%rax,%rax,1) */
664 };
665
666 /* .eh_frame covering the lazy .plt section. */
667
668 static const bfd_byte elf_i386_eh_frame_lazy_plt[] =
669 {
670 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
671 0, 0, 0, 0, /* CIE ID */
672 1, /* CIE version */
673 'z', 'R', 0, /* Augmentation string */
674 1, /* Code alignment factor */
675 0x7c, /* Data alignment factor */
676 8, /* Return address column */
677 1, /* Augmentation size */
678 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
679 DW_CFA_def_cfa, 4, 4, /* DW_CFA_def_cfa: r4 (esp) ofs 4 */
680 DW_CFA_offset + 8, 1, /* DW_CFA_offset: r8 (eip) at cfa-4 */
681 DW_CFA_nop, DW_CFA_nop,
682
683 PLT_FDE_LENGTH, 0, 0, 0, /* FDE length */
684 PLT_CIE_LENGTH + 8, 0, 0, 0, /* CIE pointer */
685 0, 0, 0, 0, /* R_386_PC32 .plt goes here */
686 0, 0, 0, 0, /* .plt size goes here */
687 0, /* Augmentation size */
688 DW_CFA_def_cfa_offset, 8, /* DW_CFA_def_cfa_offset: 8 */
689 DW_CFA_advance_loc + 6, /* DW_CFA_advance_loc: 6 to __PLT__+6 */
690 DW_CFA_def_cfa_offset, 12, /* DW_CFA_def_cfa_offset: 12 */
691 DW_CFA_advance_loc + 10, /* DW_CFA_advance_loc: 10 to __PLT__+16 */
692 DW_CFA_def_cfa_expression, /* DW_CFA_def_cfa_expression */
693 11, /* Block length */
694 DW_OP_breg4, 4, /* DW_OP_breg4 (esp): 4 */
695 DW_OP_breg8, 0, /* DW_OP_breg8 (eip): 0 */
696 DW_OP_lit15, DW_OP_and, DW_OP_lit11, DW_OP_ge,
697 DW_OP_lit2, DW_OP_shl, DW_OP_plus,
698 DW_CFA_nop, DW_CFA_nop, DW_CFA_nop, DW_CFA_nop
699 };
700
701 /* .eh_frame covering the lazy .plt section with IBT-enabled. */
702
703 static const bfd_byte elf_i386_eh_frame_lazy_ibt_plt[] =
704 {
705 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
706 0, 0, 0, 0, /* CIE ID */
707 1, /* CIE version */
708 'z', 'R', 0, /* Augmentation string */
709 1, /* Code alignment factor */
710 0x7c, /* Data alignment factor */
711 8, /* Return address column */
712 1, /* Augmentation size */
713 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
714 DW_CFA_def_cfa, 4, 4, /* DW_CFA_def_cfa: r4 (esp) ofs 4 */
715 DW_CFA_offset + 8, 1, /* DW_CFA_offset: r8 (eip) at cfa-4 */
716 DW_CFA_nop, DW_CFA_nop,
717
718 PLT_FDE_LENGTH, 0, 0, 0, /* FDE length */
719 PLT_CIE_LENGTH + 8, 0, 0, 0, /* CIE pointer */
720 0, 0, 0, 0, /* R_386_PC32 .plt goes here */
721 0, 0, 0, 0, /* .plt size goes here */
722 0, /* Augmentation size */
723 DW_CFA_def_cfa_offset, 8, /* DW_CFA_def_cfa_offset: 8 */
724 DW_CFA_advance_loc + 6, /* DW_CFA_advance_loc: 6 to __PLT__+6 */
725 DW_CFA_def_cfa_offset, 12, /* DW_CFA_def_cfa_offset: 12 */
726 DW_CFA_advance_loc + 10, /* DW_CFA_advance_loc: 10 to __PLT__+16 */
727 DW_CFA_def_cfa_expression, /* DW_CFA_def_cfa_expression */
728 11, /* Block length */
729 DW_OP_breg4, 4, /* DW_OP_breg4 (esp): 4 */
730 DW_OP_breg8, 0, /* DW_OP_breg8 (eip): 0 */
731 DW_OP_lit15, DW_OP_and, DW_OP_lit9, DW_OP_ge,
732 DW_OP_lit2, DW_OP_shl, DW_OP_plus,
733 DW_CFA_nop, DW_CFA_nop, DW_CFA_nop, DW_CFA_nop
734 };
735
736 /* .eh_frame covering the non-lazy .plt section. */
737
738 static const bfd_byte elf_i386_eh_frame_non_lazy_plt[] =
739 {
740 #define PLT_GOT_FDE_LENGTH 16
741 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
742 0, 0, 0, 0, /* CIE ID */
743 1, /* CIE version */
744 'z', 'R', 0, /* Augmentation string */
745 1, /* Code alignment factor */
746 0x7c, /* Data alignment factor */
747 8, /* Return address column */
748 1, /* Augmentation size */
749 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
750 DW_CFA_def_cfa, 4, 4, /* DW_CFA_def_cfa: r4 (esp) ofs 4 */
751 DW_CFA_offset + 8, 1, /* DW_CFA_offset: r8 (eip) at cfa-4 */
752 DW_CFA_nop, DW_CFA_nop,
753
754 PLT_GOT_FDE_LENGTH, 0, 0, 0, /* FDE length */
755 PLT_CIE_LENGTH + 8, 0, 0, 0, /* CIE pointer */
756 0, 0, 0, 0, /* the start of non-lazy .plt goes here */
757 0, 0, 0, 0, /* non-lazy .plt size goes here */
758 0, /* Augmentation size */
759 DW_CFA_nop, DW_CFA_nop, DW_CFA_nop
760 };
761
762 /* These are the standard parameters. */
763 static const struct elf_x86_lazy_plt_layout elf_i386_lazy_plt =
764 {
765 elf_i386_lazy_plt0_entry, /* plt0_entry */
766 sizeof (elf_i386_lazy_plt0_entry), /* plt0_entry_size */
767 elf_i386_lazy_plt_entry, /* plt_entry */
768 LAZY_PLT_ENTRY_SIZE, /* plt_entry_size */
769 NULL, /* plt_tlsdesc_entry */
770 0, /* plt_tlsdesc_entry_size*/
771 0, /* plt_tlsdesc_got1_offset */
772 0, /* plt_tlsdesc_got2_offset */
773 0, /* plt_tlsdesc_got1_insn_end */
774 0, /* plt_tlsdesc_got2_insn_end */
775 2, /* plt0_got1_offset */
776 8, /* plt0_got2_offset */
777 0, /* plt0_got2_insn_end */
778 2, /* plt_got_offset */
779 7, /* plt_reloc_offset */
780 12, /* plt_plt_offset */
781 0, /* plt_got_insn_size */
782 0, /* plt_plt_insn_end */
783 6, /* plt_lazy_offset */
784 elf_i386_pic_lazy_plt0_entry, /* pic_plt0_entry */
785 elf_i386_pic_lazy_plt_entry, /* pic_plt_entry */
786 elf_i386_eh_frame_lazy_plt, /* eh_frame_plt */
787 sizeof (elf_i386_eh_frame_lazy_plt) /* eh_frame_plt_size */
788 };
789
790 static const struct elf_x86_non_lazy_plt_layout elf_i386_non_lazy_plt =
791 {
792 elf_i386_non_lazy_plt_entry, /* plt_entry */
793 elf_i386_pic_non_lazy_plt_entry, /* pic_plt_entry */
794 NON_LAZY_PLT_ENTRY_SIZE, /* plt_entry_size */
795 2, /* plt_got_offset */
796 0, /* plt_got_insn_size */
797 elf_i386_eh_frame_non_lazy_plt, /* eh_frame_plt */
798 sizeof (elf_i386_eh_frame_non_lazy_plt) /* eh_frame_plt_size */
799 };
800
801 static const struct elf_x86_lazy_plt_layout elf_i386_lazy_ibt_plt =
802 {
803 elf_i386_lazy_ibt_plt0_entry, /* plt0_entry */
804 sizeof (elf_i386_lazy_ibt_plt0_entry), /* plt0_entry_size */
805 elf_i386_lazy_ibt_plt_entry, /* plt_entry */
806 LAZY_PLT_ENTRY_SIZE, /* plt_entry_size */
807 NULL, /* plt_tlsdesc_entry */
808 0, /* plt_tlsdesc_entry_size*/
809 0, /* plt_tlsdesc_got1_offset */
810 0, /* plt_tlsdesc_got2_offset */
811 0, /* plt_tlsdesc_got1_insn_end */
812 0, /* plt_tlsdesc_got2_insn_end */
813 2, /* plt0_got1_offset */
814 8, /* plt0_got2_offset */
815 0, /* plt0_got2_insn_end */
816 4+2, /* plt_got_offset */
817 4+1, /* plt_reloc_offset */
818 4+6, /* plt_plt_offset */
819 0, /* plt_got_insn_size */
820 0, /* plt_plt_insn_end */
821 0, /* plt_lazy_offset */
822 elf_i386_pic_lazy_ibt_plt0_entry, /* pic_plt0_entry */
823 elf_i386_lazy_ibt_plt_entry, /* pic_plt_entry */
824 elf_i386_eh_frame_lazy_ibt_plt, /* eh_frame_plt */
825 sizeof (elf_i386_eh_frame_lazy_ibt_plt) /* eh_frame_plt_size */
826 };
827
828 static const struct elf_x86_non_lazy_plt_layout elf_i386_non_lazy_ibt_plt =
829 {
830 elf_i386_non_lazy_ibt_plt_entry, /* plt_entry */
831 elf_i386_pic_non_lazy_ibt_plt_entry,/* pic_plt_entry */
832 LAZY_PLT_ENTRY_SIZE, /* plt_entry_size */
833 4+2, /* plt_got_offset */
834 0, /* plt_got_insn_size */
835 elf_i386_eh_frame_non_lazy_plt, /* eh_frame_plt */
836 sizeof (elf_i386_eh_frame_non_lazy_plt) /* eh_frame_plt_size */
837 };
838 \f
839
840 /* On VxWorks, the .rel.plt.unloaded section has absolute relocations
841 for the PLTResolve stub and then for each PLT entry. */
842 #define PLTRESOLVE_RELOCS_SHLIB 0
843 #define PLTRESOLVE_RELOCS 2
844 #define PLT_NON_JUMP_SLOT_RELOCS 2
845
846 /* These are the standard parameters. */
847 static const struct elf_x86_backend_data elf_i386_arch_bed =
848 {
849 is_normal /* os */
850 };
851
852 #define elf_backend_arch_data &elf_i386_arch_bed
853
854 /* Return TRUE if the TLS access code sequence support transition
855 from R_TYPE. */
856
857 static bfd_boolean
858 elf_i386_check_tls_transition (asection *sec,
859 bfd_byte *contents,
860 Elf_Internal_Shdr *symtab_hdr,
861 struct elf_link_hash_entry **sym_hashes,
862 unsigned int r_type,
863 const Elf_Internal_Rela *rel,
864 const Elf_Internal_Rela *relend)
865 {
866 unsigned int val, type, reg;
867 unsigned long r_symndx;
868 struct elf_link_hash_entry *h;
869 bfd_vma offset;
870 bfd_byte *call;
871 bfd_boolean indirect_call;
872
873 offset = rel->r_offset;
874 switch (r_type)
875 {
876 case R_386_TLS_GD:
877 case R_386_TLS_LDM:
878 if (offset < 2 || (rel + 1) >= relend)
879 return FALSE;
880
881 indirect_call = FALSE;
882 call = contents + offset + 4;
883 val = *(call - 5);
884 type = *(call - 6);
885 if (r_type == R_386_TLS_GD)
886 {
887 /* Check transition from GD access model. Only
888 leal foo@tlsgd(,%ebx,1), %eax
889 call ___tls_get_addr@PLT
890 or
891 leal foo@tlsgd(%ebx) %eax
892 call ___tls_get_addr@PLT
893 nop
894 or
895 leal foo@tlsgd(%reg), %eax
896 call *___tls_get_addr@GOT(%reg)
897 which may be converted to
898 addr32 call ___tls_get_addr
899 can transit to different access model. */
900 if ((offset + 10) > sec->size
901 || (type != 0x8d && type != 0x04))
902 return FALSE;
903
904 if (type == 0x04)
905 {
906 /* leal foo@tlsgd(,%ebx,1), %eax
907 call ___tls_get_addr@PLT */
908 if (offset < 3)
909 return FALSE;
910
911 if (*(call - 7) != 0x8d
912 || val != 0x1d
913 || call[0] != 0xe8)
914 return FALSE;
915 }
916 else
917 {
918 /* This must be
919 leal foo@tlsgd(%ebx), %eax
920 call ___tls_get_addr@PLT
921 nop
922 or
923 leal foo@tlsgd(%reg), %eax
924 call *___tls_get_addr@GOT(%reg)
925 which may be converted to
926 addr32 call ___tls_get_addr
927
928 %eax can't be used as the GOT base register since it
929 is used to pass parameter to ___tls_get_addr. */
930 reg = val & 7;
931 if ((val & 0xf8) != 0x80 || reg == 4 || reg == 0)
932 return FALSE;
933
934 indirect_call = call[0] == 0xff;
935 if (!(reg == 3 && call[0] == 0xe8 && call[5] == 0x90)
936 && !(call[0] == 0x67 && call[1] == 0xe8)
937 && !(indirect_call
938 && (call[1] & 0xf8) == 0x90
939 && (call[1] & 0x7) == reg))
940 return FALSE;
941 }
942 }
943 else
944 {
945 /* Check transition from LD access model. Only
946 leal foo@tlsldm(%ebx), %eax
947 call ___tls_get_addr@PLT
948 or
949 leal foo@tlsldm(%reg), %eax
950 call *___tls_get_addr@GOT(%reg)
951 which may be converted to
952 addr32 call ___tls_get_addr
953 can transit to different access model. */
954 if (type != 0x8d || (offset + 9) > sec->size)
955 return FALSE;
956
957 /* %eax can't be used as the GOT base register since it is
958 used to pass parameter to ___tls_get_addr. */
959 reg = val & 7;
960 if ((val & 0xf8) != 0x80 || reg == 4 || reg == 0)
961 return FALSE;
962
963 indirect_call = call[0] == 0xff;
964 if (!(reg == 3 && call[0] == 0xe8)
965 && !(call[0] == 0x67 && call[1] == 0xe8)
966 && !(indirect_call
967 && (call[1] & 0xf8) == 0x90
968 && (call[1] & 0x7) == reg))
969 return FALSE;
970 }
971
972 r_symndx = ELF32_R_SYM (rel[1].r_info);
973 if (r_symndx < symtab_hdr->sh_info)
974 return FALSE;
975
976 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
977 if (h == NULL
978 || !((struct elf_x86_link_hash_entry *) h)->tls_get_addr)
979 return FALSE;
980 else if (indirect_call)
981 return (ELF32_R_TYPE (rel[1].r_info) == R_386_GOT32X);
982 else
983 return (ELF32_R_TYPE (rel[1].r_info) == R_386_PC32
984 || ELF32_R_TYPE (rel[1].r_info) == R_386_PLT32);
985
986 case R_386_TLS_IE:
987 /* Check transition from IE access model:
988 movl foo@indntpoff(%rip), %eax
989 movl foo@indntpoff(%rip), %reg
990 addl foo@indntpoff(%rip), %reg
991 */
992
993 if (offset < 1 || (offset + 4) > sec->size)
994 return FALSE;
995
996 /* Check "movl foo@tpoff(%rip), %eax" first. */
997 val = bfd_get_8 (abfd, contents + offset - 1);
998 if (val == 0xa1)
999 return TRUE;
1000
1001 if (offset < 2)
1002 return FALSE;
1003
1004 /* Check movl|addl foo@tpoff(%rip), %reg. */
1005 type = bfd_get_8 (abfd, contents + offset - 2);
1006 return ((type == 0x8b || type == 0x03)
1007 && (val & 0xc7) == 0x05);
1008
1009 case R_386_TLS_GOTIE:
1010 case R_386_TLS_IE_32:
1011 /* Check transition from {IE_32,GOTIE} access model:
1012 subl foo@{tpoff,gontoff}(%reg1), %reg2
1013 movl foo@{tpoff,gontoff}(%reg1), %reg2
1014 addl foo@{tpoff,gontoff}(%reg1), %reg2
1015 */
1016
1017 if (offset < 2 || (offset + 4) > sec->size)
1018 return FALSE;
1019
1020 val = bfd_get_8 (abfd, contents + offset - 1);
1021 if ((val & 0xc0) != 0x80 || (val & 7) == 4)
1022 return FALSE;
1023
1024 type = bfd_get_8 (abfd, contents + offset - 2);
1025 return type == 0x8b || type == 0x2b || type == 0x03;
1026
1027 case R_386_TLS_GOTDESC:
1028 /* Check transition from GDesc access model:
1029 leal x@tlsdesc(%ebx), %eax
1030
1031 Make sure it's a leal adding ebx to a 32-bit offset
1032 into any register, although it's probably almost always
1033 going to be eax. */
1034
1035 if (offset < 2 || (offset + 4) > sec->size)
1036 return FALSE;
1037
1038 if (bfd_get_8 (abfd, contents + offset - 2) != 0x8d)
1039 return FALSE;
1040
1041 val = bfd_get_8 (abfd, contents + offset - 1);
1042 return (val & 0xc7) == 0x83;
1043
1044 case R_386_TLS_DESC_CALL:
1045 /* Check transition from GDesc access model:
1046 call *x@tlsdesc(%eax)
1047 */
1048 if (offset + 2 <= sec->size)
1049 {
1050 /* Make sure that it's a call *x@tlsdesc(%eax). */
1051 call = contents + offset;
1052 return call[0] == 0xff && call[1] == 0x10;
1053 }
1054
1055 return FALSE;
1056
1057 default:
1058 abort ();
1059 }
1060 }
1061
1062 /* Return TRUE if the TLS access transition is OK or no transition
1063 will be performed. Update R_TYPE if there is a transition. */
1064
1065 static bfd_boolean
1066 elf_i386_tls_transition (struct bfd_link_info *info, bfd *abfd,
1067 asection *sec, bfd_byte *contents,
1068 Elf_Internal_Shdr *symtab_hdr,
1069 struct elf_link_hash_entry **sym_hashes,
1070 unsigned int *r_type, int tls_type,
1071 const Elf_Internal_Rela *rel,
1072 const Elf_Internal_Rela *relend,
1073 struct elf_link_hash_entry *h,
1074 unsigned long r_symndx,
1075 bfd_boolean from_relocate_section)
1076 {
1077 unsigned int from_type = *r_type;
1078 unsigned int to_type = from_type;
1079 bfd_boolean check = TRUE;
1080
1081 /* Skip TLS transition for functions. */
1082 if (h != NULL
1083 && (h->type == STT_FUNC
1084 || h->type == STT_GNU_IFUNC))
1085 return TRUE;
1086
1087 switch (from_type)
1088 {
1089 case R_386_TLS_GD:
1090 case R_386_TLS_GOTDESC:
1091 case R_386_TLS_DESC_CALL:
1092 case R_386_TLS_IE_32:
1093 case R_386_TLS_IE:
1094 case R_386_TLS_GOTIE:
1095 if (bfd_link_executable (info))
1096 {
1097 if (h == NULL)
1098 to_type = R_386_TLS_LE_32;
1099 else if (from_type != R_386_TLS_IE
1100 && from_type != R_386_TLS_GOTIE)
1101 to_type = R_386_TLS_IE_32;
1102 }
1103
1104 /* When we are called from elf_i386_relocate_section, there may
1105 be additional transitions based on TLS_TYPE. */
1106 if (from_relocate_section)
1107 {
1108 unsigned int new_to_type = to_type;
1109
1110 if (TLS_TRANSITION_IE_TO_LE_P (info, h, tls_type))
1111 new_to_type = R_386_TLS_LE_32;
1112
1113 if (to_type == R_386_TLS_GD
1114 || to_type == R_386_TLS_GOTDESC
1115 || to_type == R_386_TLS_DESC_CALL)
1116 {
1117 if (tls_type == GOT_TLS_IE_POS)
1118 new_to_type = R_386_TLS_GOTIE;
1119 else if (tls_type & GOT_TLS_IE)
1120 new_to_type = R_386_TLS_IE_32;
1121 }
1122
1123 /* We checked the transition before when we were called from
1124 elf_i386_check_relocs. We only want to check the new
1125 transition which hasn't been checked before. */
1126 check = new_to_type != to_type && from_type == to_type;
1127 to_type = new_to_type;
1128 }
1129
1130 break;
1131
1132 case R_386_TLS_LDM:
1133 if (bfd_link_executable (info))
1134 to_type = R_386_TLS_LE_32;
1135 break;
1136
1137 default:
1138 return TRUE;
1139 }
1140
1141 /* Return TRUE if there is no transition. */
1142 if (from_type == to_type)
1143 return TRUE;
1144
1145 /* Check if the transition can be performed. */
1146 if (check
1147 && ! elf_i386_check_tls_transition (sec, contents,
1148 symtab_hdr, sym_hashes,
1149 from_type, rel, relend))
1150 {
1151 reloc_howto_type *from, *to;
1152 const char *name;
1153
1154 from = elf_i386_rtype_to_howto (abfd, from_type);
1155 to = elf_i386_rtype_to_howto (abfd, to_type);
1156
1157 if (h)
1158 name = h->root.root.string;
1159 else
1160 {
1161 struct elf_x86_link_hash_table *htab;
1162
1163 htab = elf_x86_hash_table (info, I386_ELF_DATA);
1164 if (htab == NULL)
1165 name = "*unknown*";
1166 else
1167 {
1168 Elf_Internal_Sym *isym;
1169
1170 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1171 abfd, r_symndx);
1172 name = bfd_elf_sym_name (abfd, symtab_hdr, isym, NULL);
1173 }
1174 }
1175
1176 _bfd_error_handler
1177 /* xgettext:c-format */
1178 (_("%pB: TLS transition from %s to %s against `%s'"
1179 " at %#" PRIx64 " in section `%pA' failed"),
1180 abfd, from->name, to->name, name,
1181 (uint64_t) rel->r_offset, sec);
1182 bfd_set_error (bfd_error_bad_value);
1183 return FALSE;
1184 }
1185
1186 *r_type = to_type;
1187 return TRUE;
1188 }
1189
1190 /* With the local symbol, foo, we convert
1191 mov foo@GOT[(%reg1)], %reg2
1192 to
1193 lea foo[@GOTOFF(%reg1)], %reg2
1194 and convert
1195 call/jmp *foo@GOT[(%reg)]
1196 to
1197 nop call foo/jmp foo nop
1198 When PIC is false, convert
1199 test %reg1, foo@GOT[(%reg2)]
1200 to
1201 test $foo, %reg1
1202 and convert
1203 binop foo@GOT[(%reg1)], %reg2
1204 to
1205 binop $foo, %reg2
1206 where binop is one of adc, add, and, cmp, or, sbb, sub, xor
1207 instructions. */
1208
1209 static
1210 bfd_boolean
1211 elf_i386_convert_load_reloc (bfd *abfd, Elf_Internal_Shdr *symtab_hdr,
1212 bfd_byte *contents,
1213 unsigned int *r_type_p,
1214 Elf_Internal_Rela *irel,
1215 struct elf_link_hash_entry *h,
1216 bfd_boolean *converted,
1217 struct bfd_link_info *link_info)
1218 {
1219 struct elf_x86_link_hash_table *htab;
1220 unsigned int opcode;
1221 unsigned int modrm;
1222 bfd_boolean baseless;
1223 Elf_Internal_Sym *isym;
1224 unsigned int addend;
1225 unsigned int nop;
1226 bfd_vma nop_offset;
1227 bfd_boolean is_pic;
1228 bfd_boolean to_reloc_32;
1229 unsigned int r_type;
1230 unsigned int r_symndx;
1231 bfd_vma roff = irel->r_offset;
1232 bfd_boolean local_ref;
1233 struct elf_x86_link_hash_entry *eh;
1234
1235 if (roff < 2)
1236 return TRUE;
1237
1238 /* Addend for R_386_GOT32X relocations must be 0. */
1239 addend = bfd_get_32 (abfd, contents + roff);
1240 if (addend != 0)
1241 return TRUE;
1242
1243 htab = elf_x86_hash_table (link_info, I386_ELF_DATA);
1244 is_pic = bfd_link_pic (link_info);
1245
1246 r_type = *r_type_p;
1247 r_symndx = ELF32_R_SYM (irel->r_info);
1248
1249 modrm = bfd_get_8 (abfd, contents + roff - 1);
1250 baseless = (modrm & 0xc7) == 0x5;
1251
1252 if (baseless && is_pic)
1253 {
1254 /* For PIC, disallow R_386_GOT32X without a base register
1255 since we don't know what the GOT base is. */
1256 const char *name;
1257
1258 if (h == NULL)
1259 {
1260 isym = bfd_sym_from_r_symndx (&htab->sym_cache, abfd,
1261 r_symndx);
1262 name = bfd_elf_sym_name (abfd, symtab_hdr, isym, NULL);
1263 }
1264 else
1265 name = h->root.root.string;
1266
1267 _bfd_error_handler
1268 /* xgettext:c-format */
1269 (_("%pB: direct GOT relocation R_386_GOT32X against `%s' without base"
1270 " register can not be used when making a shared object"),
1271 abfd, name);
1272 return FALSE;
1273 }
1274
1275 opcode = bfd_get_8 (abfd, contents + roff - 2);
1276
1277 /* Convert to R_386_32 if PIC is false or there is no base
1278 register. */
1279 to_reloc_32 = !is_pic || baseless;
1280
1281 eh = elf_x86_hash_entry (h);
1282
1283 /* Try to convert R_386_GOT32X. Get the symbol referred to by the
1284 reloc. */
1285 if (h == NULL)
1286 {
1287 if (opcode == 0x0ff)
1288 /* Convert "call/jmp *foo@GOT[(%reg)]". */
1289 goto convert_branch;
1290 else
1291 /* Convert "mov foo@GOT[(%reg1)], %reg2",
1292 "test %reg1, foo@GOT(%reg2)" and
1293 "binop foo@GOT[(%reg1)], %reg2". */
1294 goto convert_load;
1295 }
1296
1297 /* NB: Also set linker_def via SYMBOL_REFERENCES_LOCAL_P. */
1298 local_ref = SYMBOL_REFERENCES_LOCAL_P (link_info, h);
1299
1300 /* Undefined weak symbol is only bound locally in executable
1301 and its reference is resolved as 0. */
1302 if (h->root.type == bfd_link_hash_undefweak
1303 && !eh->linker_def
1304 && local_ref)
1305 {
1306 if (opcode == 0xff)
1307 {
1308 /* No direct branch to 0 for PIC. */
1309 if (is_pic)
1310 return TRUE;
1311 else
1312 goto convert_branch;
1313 }
1314 else
1315 {
1316 /* We can convert load of address 0 to R_386_32. */
1317 to_reloc_32 = TRUE;
1318 goto convert_load;
1319 }
1320 }
1321
1322 if (opcode == 0xff)
1323 {
1324 /* We have "call/jmp *foo@GOT[(%reg)]". */
1325 if ((h->root.type == bfd_link_hash_defined
1326 || h->root.type == bfd_link_hash_defweak)
1327 && local_ref)
1328 {
1329 /* The function is locally defined. */
1330 convert_branch:
1331 /* Convert R_386_GOT32X to R_386_PC32. */
1332 if (modrm == 0x15 || (modrm & 0xf8) == 0x90)
1333 {
1334 /* Convert to "nop call foo". ADDR_PREFIX_OPCODE
1335 is a nop prefix. */
1336 modrm = 0xe8;
1337 /* To support TLS optimization, always use addr32 prefix
1338 for "call *___tls_get_addr@GOT(%reg)". */
1339 if (eh && eh->tls_get_addr)
1340 {
1341 nop = 0x67;
1342 nop_offset = irel->r_offset - 2;
1343 }
1344 else
1345 {
1346 nop = link_info->call_nop_byte;
1347 if (link_info->call_nop_as_suffix)
1348 {
1349 nop_offset = roff + 3;
1350 irel->r_offset -= 1;
1351 }
1352 else
1353 nop_offset = roff - 2;
1354 }
1355 }
1356 else
1357 {
1358 /* Convert to "jmp foo nop". */
1359 modrm = 0xe9;
1360 nop = NOP_OPCODE;
1361 nop_offset = roff + 3;
1362 irel->r_offset -= 1;
1363 }
1364
1365 bfd_put_8 (abfd, nop, contents + nop_offset);
1366 bfd_put_8 (abfd, modrm, contents + irel->r_offset - 1);
1367 /* When converting to PC-relative relocation, we
1368 need to adjust addend by -4. */
1369 bfd_put_32 (abfd, -4, contents + irel->r_offset);
1370 irel->r_info = ELF32_R_INFO (r_symndx, R_386_PC32);
1371 *r_type_p = R_386_PC32;
1372 *converted = TRUE;
1373 }
1374 }
1375 else
1376 {
1377 /* We have "mov foo@GOT[(%re1g)], %reg2",
1378 "test %reg1, foo@GOT(%reg2)" and
1379 "binop foo@GOT[(%reg1)], %reg2".
1380
1381 Avoid optimizing _DYNAMIC since ld.so may use its
1382 link-time address. */
1383 if (h == htab->elf.hdynamic)
1384 return TRUE;
1385
1386 /* def_regular is set by an assignment in a linker script in
1387 bfd_elf_record_link_assignment. start_stop is set on
1388 __start_SECNAME/__stop_SECNAME which mark section SECNAME. */
1389 if (h->start_stop
1390 || eh->linker_def
1391 || ((h->def_regular
1392 || h->root.type == bfd_link_hash_defined
1393 || h->root.type == bfd_link_hash_defweak)
1394 && local_ref))
1395 {
1396 convert_load:
1397 if (opcode == 0x8b)
1398 {
1399 if (to_reloc_32)
1400 {
1401 /* Convert "mov foo@GOT[(%reg1)], %reg2" to
1402 "mov $foo, %reg2" with R_386_32. */
1403 r_type = R_386_32;
1404 modrm = 0xc0 | (modrm & 0x38) >> 3;
1405 bfd_put_8 (abfd, modrm, contents + roff - 1);
1406 opcode = 0xc7;
1407 }
1408 else
1409 {
1410 /* Convert "mov foo@GOT(%reg1), %reg2" to
1411 "lea foo@GOTOFF(%reg1), %reg2". */
1412 r_type = R_386_GOTOFF;
1413 opcode = 0x8d;
1414 }
1415 }
1416 else
1417 {
1418 /* Only R_386_32 is supported. */
1419 if (!to_reloc_32)
1420 return TRUE;
1421
1422 if (opcode == 0x85)
1423 {
1424 /* Convert "test %reg1, foo@GOT(%reg2)" to
1425 "test $foo, %reg1". */
1426 modrm = 0xc0 | (modrm & 0x38) >> 3;
1427 opcode = 0xf7;
1428 }
1429 else
1430 {
1431 /* Convert "binop foo@GOT(%reg1), %reg2" to
1432 "binop $foo, %reg2". */
1433 modrm = (0xc0
1434 | (modrm & 0x38) >> 3
1435 | (opcode & 0x3c));
1436 opcode = 0x81;
1437 }
1438 bfd_put_8 (abfd, modrm, contents + roff - 1);
1439 r_type = R_386_32;
1440 }
1441
1442 bfd_put_8 (abfd, opcode, contents + roff - 2);
1443 irel->r_info = ELF32_R_INFO (r_symndx, r_type);
1444 *r_type_p = r_type;
1445 *converted = TRUE;
1446 }
1447 }
1448
1449 return TRUE;
1450 }
1451
1452 /* Rename some of the generic section flags to better document how they
1453 are used here. */
1454 #define check_relocs_failed sec_flg0
1455
1456 /* Look through the relocs for a section during the first phase, and
1457 calculate needed space in the global offset table, procedure linkage
1458 table, and dynamic reloc sections. */
1459
1460 static bfd_boolean
1461 elf_i386_check_relocs (bfd *abfd,
1462 struct bfd_link_info *info,
1463 asection *sec,
1464 const Elf_Internal_Rela *relocs)
1465 {
1466 struct elf_x86_link_hash_table *htab;
1467 Elf_Internal_Shdr *symtab_hdr;
1468 struct elf_link_hash_entry **sym_hashes;
1469 const Elf_Internal_Rela *rel;
1470 const Elf_Internal_Rela *rel_end;
1471 asection *sreloc;
1472 bfd_byte *contents;
1473 bfd_boolean converted;
1474
1475 if (bfd_link_relocatable (info))
1476 return TRUE;
1477
1478 /* Don't do anything special with non-loaded, non-alloced sections.
1479 In particular, any relocs in such sections should not affect GOT
1480 and PLT reference counting (ie. we don't allow them to create GOT
1481 or PLT entries), there's no possibility or desire to optimize TLS
1482 relocs, and there's not much point in propagating relocs to shared
1483 libs that the dynamic linker won't relocate. */
1484 if ((sec->flags & SEC_ALLOC) == 0)
1485 return TRUE;
1486
1487 htab = elf_x86_hash_table (info, I386_ELF_DATA);
1488 if (htab == NULL)
1489 {
1490 sec->check_relocs_failed = 1;
1491 return FALSE;
1492 }
1493
1494 BFD_ASSERT (is_x86_elf (abfd, htab));
1495
1496 /* Get the section contents. */
1497 if (elf_section_data (sec)->this_hdr.contents != NULL)
1498 contents = elf_section_data (sec)->this_hdr.contents;
1499 else if (!bfd_malloc_and_get_section (abfd, sec, &contents))
1500 {
1501 sec->check_relocs_failed = 1;
1502 return FALSE;
1503 }
1504
1505 symtab_hdr = &elf_symtab_hdr (abfd);
1506 sym_hashes = elf_sym_hashes (abfd);
1507
1508 converted = FALSE;
1509
1510 sreloc = NULL;
1511
1512 rel_end = relocs + sec->reloc_count;
1513 for (rel = relocs; rel < rel_end; rel++)
1514 {
1515 unsigned int r_type;
1516 unsigned int r_symndx;
1517 struct elf_link_hash_entry *h;
1518 struct elf_x86_link_hash_entry *eh;
1519 Elf_Internal_Sym *isym;
1520 const char *name;
1521 bfd_boolean size_reloc;
1522
1523 r_symndx = ELF32_R_SYM (rel->r_info);
1524 r_type = ELF32_R_TYPE (rel->r_info);
1525
1526 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
1527 {
1528 /* xgettext:c-format */
1529 _bfd_error_handler (_("%pB: bad symbol index: %d"),
1530 abfd, r_symndx);
1531 goto error_return;
1532 }
1533
1534 if (r_symndx < symtab_hdr->sh_info)
1535 {
1536 /* A local symbol. */
1537 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1538 abfd, r_symndx);
1539 if (isym == NULL)
1540 goto error_return;
1541
1542 /* Check relocation against local STT_GNU_IFUNC symbol. */
1543 if (ELF32_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
1544 {
1545 h = _bfd_elf_x86_get_local_sym_hash (htab, abfd, rel, TRUE);
1546 if (h == NULL)
1547 goto error_return;
1548
1549 /* Fake a STT_GNU_IFUNC symbol. */
1550 h->root.root.string = bfd_elf_sym_name (abfd, symtab_hdr,
1551 isym, NULL);
1552 h->type = STT_GNU_IFUNC;
1553 h->def_regular = 1;
1554 h->ref_regular = 1;
1555 h->forced_local = 1;
1556 h->root.type = bfd_link_hash_defined;
1557 }
1558 else
1559 h = NULL;
1560 }
1561 else
1562 {
1563 isym = NULL;
1564 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1565 while (h->root.type == bfd_link_hash_indirect
1566 || h->root.type == bfd_link_hash_warning)
1567 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1568 }
1569
1570 eh = (struct elf_x86_link_hash_entry *) h;
1571 if (h != NULL)
1572 {
1573 if (r_type == R_386_GOTOFF)
1574 eh->gotoff_ref = 1;
1575
1576 /* It is referenced by a non-shared object. */
1577 h->ref_regular = 1;
1578
1579 if (h->type == STT_GNU_IFUNC)
1580 elf_tdata (info->output_bfd)->has_gnu_symbols
1581 |= elf_gnu_symbol_ifunc;
1582 }
1583
1584 if (r_type == R_386_GOT32X
1585 && (h == NULL || h->type != STT_GNU_IFUNC))
1586 {
1587 Elf_Internal_Rela *irel = (Elf_Internal_Rela *) rel;
1588 if (!elf_i386_convert_load_reloc (abfd, symtab_hdr, contents,
1589 &r_type, irel, h,
1590 &converted, info))
1591 goto error_return;
1592 }
1593
1594 if (! elf_i386_tls_transition (info, abfd, sec, contents,
1595 symtab_hdr, sym_hashes,
1596 &r_type, GOT_UNKNOWN,
1597 rel, rel_end, h, r_symndx, FALSE))
1598 goto error_return;
1599
1600 /* Check if _GLOBAL_OFFSET_TABLE_ is referenced. */
1601 if (h == htab->elf.hgot)
1602 htab->got_referenced = TRUE;
1603
1604 switch (r_type)
1605 {
1606 case R_386_TLS_LDM:
1607 htab->tls_ld_or_ldm_got.refcount = 1;
1608 goto create_got;
1609
1610 case R_386_PLT32:
1611 /* This symbol requires a procedure linkage table entry. We
1612 actually build the entry in adjust_dynamic_symbol,
1613 because this might be a case of linking PIC code which is
1614 never referenced by a dynamic object, in which case we
1615 don't need to generate a procedure linkage table entry
1616 after all. */
1617
1618 /* If this is a local symbol, we resolve it directly without
1619 creating a procedure linkage table entry. */
1620 if (h == NULL)
1621 continue;
1622
1623 eh->zero_undefweak &= 0x2;
1624 h->needs_plt = 1;
1625 h->plt.refcount = 1;
1626 break;
1627
1628 case R_386_SIZE32:
1629 size_reloc = TRUE;
1630 goto do_size;
1631
1632 case R_386_TLS_IE_32:
1633 case R_386_TLS_IE:
1634 case R_386_TLS_GOTIE:
1635 if (!bfd_link_executable (info))
1636 info->flags |= DF_STATIC_TLS;
1637 /* Fall through */
1638
1639 case R_386_GOT32:
1640 case R_386_GOT32X:
1641 case R_386_TLS_GD:
1642 case R_386_TLS_GOTDESC:
1643 case R_386_TLS_DESC_CALL:
1644 /* This symbol requires a global offset table entry. */
1645 {
1646 int tls_type, old_tls_type;
1647
1648 switch (r_type)
1649 {
1650 default:
1651 case R_386_GOT32:
1652 case R_386_GOT32X:
1653 tls_type = GOT_NORMAL;
1654 break;
1655 case R_386_TLS_GD: tls_type = GOT_TLS_GD; break;
1656 case R_386_TLS_GOTDESC:
1657 case R_386_TLS_DESC_CALL:
1658 tls_type = GOT_TLS_GDESC; break;
1659 case R_386_TLS_IE_32:
1660 if (ELF32_R_TYPE (rel->r_info) == r_type)
1661 tls_type = GOT_TLS_IE_NEG;
1662 else
1663 /* If this is a GD->IE transition, we may use either of
1664 R_386_TLS_TPOFF and R_386_TLS_TPOFF32. */
1665 tls_type = GOT_TLS_IE;
1666 break;
1667 case R_386_TLS_IE:
1668 case R_386_TLS_GOTIE:
1669 tls_type = GOT_TLS_IE_POS; break;
1670 }
1671
1672 if (h != NULL)
1673 {
1674 h->got.refcount = 1;
1675 old_tls_type = elf_x86_hash_entry (h)->tls_type;
1676 }
1677 else
1678 {
1679 bfd_signed_vma *local_got_refcounts;
1680
1681 /* This is a global offset table entry for a local symbol. */
1682 local_got_refcounts = elf_local_got_refcounts (abfd);
1683 if (local_got_refcounts == NULL)
1684 {
1685 bfd_size_type size;
1686
1687 size = symtab_hdr->sh_info;
1688 size *= (sizeof (bfd_signed_vma)
1689 + sizeof (bfd_vma) + sizeof(char));
1690 local_got_refcounts = (bfd_signed_vma *)
1691 bfd_zalloc (abfd, size);
1692 if (local_got_refcounts == NULL)
1693 goto error_return;
1694 elf_local_got_refcounts (abfd) = local_got_refcounts;
1695 elf_x86_local_tlsdesc_gotent (abfd)
1696 = (bfd_vma *) (local_got_refcounts + symtab_hdr->sh_info);
1697 elf_x86_local_got_tls_type (abfd)
1698 = (char *) (local_got_refcounts + 2 * symtab_hdr->sh_info);
1699 }
1700 local_got_refcounts[r_symndx] = 1;
1701 old_tls_type = elf_x86_local_got_tls_type (abfd) [r_symndx];
1702 }
1703
1704 if ((old_tls_type & GOT_TLS_IE) && (tls_type & GOT_TLS_IE))
1705 tls_type |= old_tls_type;
1706 /* If a TLS symbol is accessed using IE at least once,
1707 there is no point to use dynamic model for it. */
1708 else if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
1709 && (! GOT_TLS_GD_ANY_P (old_tls_type)
1710 || (tls_type & GOT_TLS_IE) == 0))
1711 {
1712 if ((old_tls_type & GOT_TLS_IE) && GOT_TLS_GD_ANY_P (tls_type))
1713 tls_type = old_tls_type;
1714 else if (GOT_TLS_GD_ANY_P (old_tls_type)
1715 && GOT_TLS_GD_ANY_P (tls_type))
1716 tls_type |= old_tls_type;
1717 else
1718 {
1719 if (h)
1720 name = h->root.root.string;
1721 else
1722 name = bfd_elf_sym_name (abfd, symtab_hdr, isym,
1723 NULL);
1724 _bfd_error_handler
1725 /* xgettext:c-format */
1726 (_("%pB: `%s' accessed both as normal and "
1727 "thread local symbol"),
1728 abfd, name);
1729 bfd_set_error (bfd_error_bad_value);
1730 goto error_return;
1731 }
1732 }
1733
1734 if (old_tls_type != tls_type)
1735 {
1736 if (h != NULL)
1737 elf_x86_hash_entry (h)->tls_type = tls_type;
1738 else
1739 elf_x86_local_got_tls_type (abfd) [r_symndx] = tls_type;
1740 }
1741 }
1742 /* Fall through */
1743
1744 case R_386_GOTOFF:
1745 case R_386_GOTPC:
1746 create_got:
1747 if (r_type != R_386_TLS_IE)
1748 {
1749 if (eh != NULL)
1750 {
1751 eh->zero_undefweak &= 0x2;
1752
1753 /* Need GOT to resolve undefined weak symbol to 0. */
1754 if (r_type == R_386_GOTOFF
1755 && h->root.type == bfd_link_hash_undefweak
1756 && bfd_link_executable (info))
1757 htab->got_referenced = TRUE;
1758 }
1759 break;
1760 }
1761 /* Fall through */
1762
1763 case R_386_TLS_LE_32:
1764 case R_386_TLS_LE:
1765 if (eh != NULL)
1766 eh->zero_undefweak &= 0x2;
1767 if (bfd_link_executable (info))
1768 break;
1769 info->flags |= DF_STATIC_TLS;
1770 goto do_relocation;
1771
1772 case R_386_32:
1773 case R_386_PC32:
1774 if (eh != NULL && (sec->flags & SEC_CODE) != 0)
1775 eh->zero_undefweak |= 0x2;
1776 do_relocation:
1777 /* We are called after all symbols have been resolved. Only
1778 relocation against STT_GNU_IFUNC symbol must go through
1779 PLT. */
1780 if (h != NULL
1781 && (bfd_link_executable (info)
1782 || h->type == STT_GNU_IFUNC))
1783 {
1784 bfd_boolean func_pointer_ref = FALSE;
1785
1786 if (r_type == R_386_PC32)
1787 {
1788 /* Since something like ".long foo - ." may be used
1789 as pointer, make sure that PLT is used if foo is
1790 a function defined in a shared library. */
1791 if ((sec->flags & SEC_CODE) == 0)
1792 h->pointer_equality_needed = 1;
1793 else if (h->type == STT_GNU_IFUNC
1794 && bfd_link_pic (info))
1795 {
1796 _bfd_error_handler
1797 /* xgettext:c-format */
1798 (_("%pB: unsupported non-PIC call to IFUNC `%s'"),
1799 abfd, h->root.root.string);
1800 bfd_set_error (bfd_error_bad_value);
1801 goto error_return;
1802 }
1803 }
1804 else
1805 {
1806 h->pointer_equality_needed = 1;
1807 /* R_386_32 can be resolved at run-time. */
1808 if (r_type == R_386_32
1809 && (sec->flags & SEC_READONLY) == 0)
1810 func_pointer_ref = TRUE;
1811 }
1812
1813 if (!func_pointer_ref)
1814 {
1815 /* If this reloc is in a read-only section, we might
1816 need a copy reloc. We can't check reliably at this
1817 stage whether the section is read-only, as input
1818 sections have not yet been mapped to output sections.
1819 Tentatively set the flag for now, and correct in
1820 adjust_dynamic_symbol. */
1821 h->non_got_ref = 1;
1822
1823 /* We may need a .plt entry if the symbol is a function
1824 defined in a shared lib or is a function referenced
1825 from the code or read-only section. */
1826 if (!h->def_regular
1827 || (sec->flags & (SEC_CODE | SEC_READONLY)) != 0)
1828 h->plt.refcount = 1;
1829 }
1830 }
1831
1832 size_reloc = FALSE;
1833 do_size:
1834 if (NEED_DYNAMIC_RELOCATION_P (info, FALSE, h, sec, r_type,
1835 R_386_32))
1836 {
1837 struct elf_dyn_relocs *p;
1838 struct elf_dyn_relocs **head;
1839
1840 /* We must copy these reloc types into the output file.
1841 Create a reloc section in dynobj and make room for
1842 this reloc. */
1843 if (sreloc == NULL)
1844 {
1845 sreloc = _bfd_elf_make_dynamic_reloc_section
1846 (sec, htab->elf.dynobj, 2, abfd, /*rela?*/ FALSE);
1847
1848 if (sreloc == NULL)
1849 goto error_return;
1850 }
1851
1852 /* If this is a global symbol, we count the number of
1853 relocations we need for this symbol. */
1854 if (h != NULL)
1855 {
1856 head = &eh->dyn_relocs;
1857 }
1858 else
1859 {
1860 /* Track dynamic relocs needed for local syms too.
1861 We really need local syms available to do this
1862 easily. Oh well. */
1863 void **vpp;
1864 asection *s;
1865
1866 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1867 abfd, r_symndx);
1868 if (isym == NULL)
1869 goto error_return;
1870
1871 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
1872 if (s == NULL)
1873 s = sec;
1874
1875 vpp = &elf_section_data (s)->local_dynrel;
1876 head = (struct elf_dyn_relocs **)vpp;
1877 }
1878
1879 p = *head;
1880 if (p == NULL || p->sec != sec)
1881 {
1882 bfd_size_type amt = sizeof *p;
1883 p = (struct elf_dyn_relocs *) bfd_alloc (htab->elf.dynobj,
1884 amt);
1885 if (p == NULL)
1886 goto error_return;
1887 p->next = *head;
1888 *head = p;
1889 p->sec = sec;
1890 p->count = 0;
1891 p->pc_count = 0;
1892 }
1893
1894 p->count += 1;
1895 /* Count size relocation as PC-relative relocation. */
1896 if (r_type == R_386_PC32 || size_reloc)
1897 p->pc_count += 1;
1898 }
1899 break;
1900
1901 /* This relocation describes the C++ object vtable hierarchy.
1902 Reconstruct it for later use during GC. */
1903 case R_386_GNU_VTINHERIT:
1904 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1905 goto error_return;
1906 break;
1907
1908 /* This relocation describes which C++ vtable entries are actually
1909 used. Record for later use during GC. */
1910 case R_386_GNU_VTENTRY:
1911 BFD_ASSERT (h != NULL);
1912 if (h != NULL
1913 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_offset))
1914 goto error_return;
1915 break;
1916
1917 default:
1918 break;
1919 }
1920 }
1921
1922 if (elf_section_data (sec)->this_hdr.contents != contents)
1923 {
1924 if (!converted && !info->keep_memory)
1925 free (contents);
1926 else
1927 {
1928 /* Cache the section contents for elf_link_input_bfd if any
1929 load is converted or --no-keep-memory isn't used. */
1930 elf_section_data (sec)->this_hdr.contents = contents;
1931 }
1932 }
1933
1934 /* Cache relocations if any load is converted. */
1935 if (elf_section_data (sec)->relocs != relocs && converted)
1936 elf_section_data (sec)->relocs = (Elf_Internal_Rela *) relocs;
1937
1938 return TRUE;
1939
1940 error_return:
1941 if (elf_section_data (sec)->this_hdr.contents != contents)
1942 free (contents);
1943 sec->check_relocs_failed = 1;
1944 return FALSE;
1945 }
1946
1947 /* Set the correct type for an x86 ELF section. We do this by the
1948 section name, which is a hack, but ought to work. */
1949
1950 static bfd_boolean
1951 elf_i386_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
1952 Elf_Internal_Shdr *hdr,
1953 asection *sec)
1954 {
1955 const char *name;
1956
1957 name = bfd_get_section_name (abfd, sec);
1958
1959 /* This is an ugly, but unfortunately necessary hack that is
1960 needed when producing EFI binaries on x86. It tells
1961 elf.c:elf_fake_sections() not to consider ".reloc" as a section
1962 containing ELF relocation info. We need this hack in order to
1963 be able to generate ELF binaries that can be translated into
1964 EFI applications (which are essentially COFF objects). Those
1965 files contain a COFF ".reloc" section inside an ELFNN object,
1966 which would normally cause BFD to segfault because it would
1967 attempt to interpret this section as containing relocation
1968 entries for section "oc". With this hack enabled, ".reloc"
1969 will be treated as a normal data section, which will avoid the
1970 segfault. However, you won't be able to create an ELFNN binary
1971 with a section named "oc" that needs relocations, but that's
1972 the kind of ugly side-effects you get when detecting section
1973 types based on their names... In practice, this limitation is
1974 unlikely to bite. */
1975 if (strcmp (name, ".reloc") == 0)
1976 hdr->sh_type = SHT_PROGBITS;
1977
1978 return TRUE;
1979 }
1980
1981 /* Return the relocation value for @tpoff relocation
1982 if STT_TLS virtual address is ADDRESS. */
1983
1984 static bfd_vma
1985 elf_i386_tpoff (struct bfd_link_info *info, bfd_vma address)
1986 {
1987 struct elf_link_hash_table *htab = elf_hash_table (info);
1988 const struct elf_backend_data *bed = get_elf_backend_data (info->output_bfd);
1989 bfd_vma static_tls_size;
1990
1991 /* If tls_sec is NULL, we should have signalled an error already. */
1992 if (htab->tls_sec == NULL)
1993 return 0;
1994
1995 /* Consider special static TLS alignment requirements. */
1996 static_tls_size = BFD_ALIGN (htab->tls_size, bed->static_tls_alignment);
1997 return static_tls_size + htab->tls_sec->vma - address;
1998 }
1999
2000 /* Relocate an i386 ELF section. */
2001
2002 static bfd_boolean
2003 elf_i386_relocate_section (bfd *output_bfd,
2004 struct bfd_link_info *info,
2005 bfd *input_bfd,
2006 asection *input_section,
2007 bfd_byte *contents,
2008 Elf_Internal_Rela *relocs,
2009 Elf_Internal_Sym *local_syms,
2010 asection **local_sections)
2011 {
2012 struct elf_x86_link_hash_table *htab;
2013 Elf_Internal_Shdr *symtab_hdr;
2014 struct elf_link_hash_entry **sym_hashes;
2015 bfd_vma *local_got_offsets;
2016 bfd_vma *local_tlsdesc_gotents;
2017 Elf_Internal_Rela *rel;
2018 Elf_Internal_Rela *wrel;
2019 Elf_Internal_Rela *relend;
2020 bfd_boolean is_vxworks_tls;
2021 unsigned plt_entry_size;
2022
2023 /* Skip if check_relocs failed. */
2024 if (input_section->check_relocs_failed)
2025 return FALSE;
2026
2027 htab = elf_x86_hash_table (info, I386_ELF_DATA);
2028 if (htab == NULL)
2029 return FALSE;
2030
2031 if (!is_x86_elf (input_bfd, htab))
2032 {
2033 bfd_set_error (bfd_error_wrong_format);
2034 return FALSE;
2035 }
2036
2037 symtab_hdr = &elf_symtab_hdr (input_bfd);
2038 sym_hashes = elf_sym_hashes (input_bfd);
2039 local_got_offsets = elf_local_got_offsets (input_bfd);
2040 local_tlsdesc_gotents = elf_x86_local_tlsdesc_gotent (input_bfd);
2041 /* We have to handle relocations in vxworks .tls_vars sections
2042 specially, because the dynamic loader is 'weird'. */
2043 is_vxworks_tls = (htab->target_os == is_vxworks
2044 && bfd_link_pic (info)
2045 && !strcmp (input_section->output_section->name,
2046 ".tls_vars"));
2047
2048 _bfd_x86_elf_set_tls_module_base (info);
2049
2050 plt_entry_size = htab->plt.plt_entry_size;
2051
2052 rel = wrel = relocs;
2053 relend = relocs + input_section->reloc_count;
2054 for (; rel < relend; wrel++, rel++)
2055 {
2056 unsigned int r_type, r_type_tls;
2057 reloc_howto_type *howto;
2058 unsigned long r_symndx;
2059 struct elf_link_hash_entry *h;
2060 struct elf_x86_link_hash_entry *eh;
2061 Elf_Internal_Sym *sym;
2062 asection *sec;
2063 bfd_vma off, offplt, plt_offset;
2064 bfd_vma relocation;
2065 bfd_boolean unresolved_reloc;
2066 bfd_reloc_status_type r;
2067 unsigned int indx;
2068 int tls_type;
2069 bfd_vma st_size;
2070 asection *resolved_plt;
2071 bfd_boolean resolved_to_zero;
2072 bfd_boolean relative_reloc;
2073
2074 r_type = ELF32_R_TYPE (rel->r_info);
2075 if (r_type == R_386_GNU_VTINHERIT
2076 || r_type == R_386_GNU_VTENTRY)
2077 {
2078 if (wrel != rel)
2079 *wrel = *rel;
2080 continue;
2081 }
2082
2083 howto = elf_i386_rtype_to_howto (input_bfd, r_type);
2084 if (howto == NULL)
2085 return _bfd_unrecognized_reloc (input_bfd, input_section, r_type);
2086
2087 r_symndx = ELF32_R_SYM (rel->r_info);
2088 h = NULL;
2089 sym = NULL;
2090 sec = NULL;
2091 unresolved_reloc = FALSE;
2092 if (r_symndx < symtab_hdr->sh_info)
2093 {
2094 sym = local_syms + r_symndx;
2095 sec = local_sections[r_symndx];
2096 relocation = (sec->output_section->vma
2097 + sec->output_offset
2098 + sym->st_value);
2099 st_size = sym->st_size;
2100
2101 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION
2102 && ((sec->flags & SEC_MERGE) != 0
2103 || (bfd_link_relocatable (info)
2104 && sec->output_offset != 0)))
2105 {
2106 bfd_vma addend;
2107 bfd_byte *where = contents + rel->r_offset;
2108
2109 switch (howto->size)
2110 {
2111 case 0:
2112 addend = bfd_get_8 (input_bfd, where);
2113 if (howto->pc_relative)
2114 {
2115 addend = (addend ^ 0x80) - 0x80;
2116 addend += 1;
2117 }
2118 break;
2119 case 1:
2120 addend = bfd_get_16 (input_bfd, where);
2121 if (howto->pc_relative)
2122 {
2123 addend = (addend ^ 0x8000) - 0x8000;
2124 addend += 2;
2125 }
2126 break;
2127 case 2:
2128 addend = bfd_get_32 (input_bfd, where);
2129 if (howto->pc_relative)
2130 {
2131 addend = (addend ^ 0x80000000) - 0x80000000;
2132 addend += 4;
2133 }
2134 break;
2135 default:
2136 abort ();
2137 }
2138
2139 if (bfd_link_relocatable (info))
2140 addend += sec->output_offset;
2141 else
2142 {
2143 asection *msec = sec;
2144 addend = _bfd_elf_rel_local_sym (output_bfd, sym, &msec,
2145 addend);
2146 addend -= relocation;
2147 addend += msec->output_section->vma + msec->output_offset;
2148 }
2149
2150 switch (howto->size)
2151 {
2152 case 0:
2153 /* FIXME: overflow checks. */
2154 if (howto->pc_relative)
2155 addend -= 1;
2156 bfd_put_8 (input_bfd, addend, where);
2157 break;
2158 case 1:
2159 if (howto->pc_relative)
2160 addend -= 2;
2161 bfd_put_16 (input_bfd, addend, where);
2162 break;
2163 case 2:
2164 if (howto->pc_relative)
2165 addend -= 4;
2166 bfd_put_32 (input_bfd, addend, where);
2167 break;
2168 }
2169 }
2170 else if (!bfd_link_relocatable (info)
2171 && ELF32_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
2172 {
2173 /* Relocate against local STT_GNU_IFUNC symbol. */
2174 h = _bfd_elf_x86_get_local_sym_hash (htab, input_bfd, rel,
2175 FALSE);
2176 if (h == NULL)
2177 abort ();
2178
2179 /* Set STT_GNU_IFUNC symbol value. */
2180 h->root.u.def.value = sym->st_value;
2181 h->root.u.def.section = sec;
2182 }
2183 }
2184 else
2185 {
2186 bfd_boolean warned ATTRIBUTE_UNUSED;
2187 bfd_boolean ignored ATTRIBUTE_UNUSED;
2188
2189 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2190 r_symndx, symtab_hdr, sym_hashes,
2191 h, sec, relocation,
2192 unresolved_reloc, warned, ignored);
2193 st_size = h->size;
2194 }
2195
2196 if (sec != NULL && discarded_section (sec))
2197 {
2198 _bfd_clear_contents (howto, input_bfd, input_section,
2199 contents, rel->r_offset);
2200 wrel->r_offset = rel->r_offset;
2201 wrel->r_info = 0;
2202 wrel->r_addend = 0;
2203
2204 /* For ld -r, remove relocations in debug sections against
2205 sections defined in discarded sections. Not done for
2206 eh_frame editing code expects to be present. */
2207 if (bfd_link_relocatable (info)
2208 && (input_section->flags & SEC_DEBUGGING))
2209 wrel--;
2210
2211 continue;
2212 }
2213
2214 if (bfd_link_relocatable (info))
2215 {
2216 if (wrel != rel)
2217 *wrel = *rel;
2218 continue;
2219 }
2220
2221 eh = (struct elf_x86_link_hash_entry *) h;
2222
2223 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
2224 it here if it is defined in a non-shared object. */
2225 if (h != NULL
2226 && h->type == STT_GNU_IFUNC
2227 && h->def_regular)
2228 {
2229 asection *gotplt, *base_got;
2230 bfd_vma plt_index;
2231 const char *name;
2232
2233 if ((input_section->flags & SEC_ALLOC) == 0)
2234 {
2235 /* If this is a SHT_NOTE section without SHF_ALLOC, treat
2236 STT_GNU_IFUNC symbol as STT_FUNC. */
2237 if (elf_section_type (input_section) == SHT_NOTE)
2238 goto skip_ifunc;
2239 /* Dynamic relocs are not propagated for SEC_DEBUGGING
2240 sections because such sections are not SEC_ALLOC and
2241 thus ld.so will not process them. */
2242 if ((input_section->flags & SEC_DEBUGGING) != 0)
2243 continue;
2244 abort ();
2245 }
2246
2247 /* STT_GNU_IFUNC symbol must go through PLT. */
2248 if (htab->elf.splt != NULL)
2249 {
2250 if (htab->plt_second != NULL)
2251 {
2252 resolved_plt = htab->plt_second;
2253 plt_offset = eh->plt_second.offset;
2254 }
2255 else
2256 {
2257 resolved_plt = htab->elf.splt;
2258 plt_offset = h->plt.offset;
2259 }
2260 gotplt = htab->elf.sgotplt;
2261 }
2262 else
2263 {
2264 resolved_plt = htab->elf.iplt;
2265 plt_offset = h->plt.offset;
2266 gotplt = htab->elf.igotplt;
2267 }
2268
2269 switch (r_type)
2270 {
2271 default:
2272 break;
2273
2274 case R_386_GOT32:
2275 case R_386_GOT32X:
2276 base_got = htab->elf.sgot;
2277 off = h->got.offset;
2278
2279 if (base_got == NULL)
2280 abort ();
2281
2282 if (off == (bfd_vma) -1)
2283 {
2284 /* We can't use h->got.offset here to save state, or
2285 even just remember the offset, as finish_dynamic_symbol
2286 would use that as offset into .got. */
2287
2288 if (h->plt.offset == (bfd_vma) -1)
2289 abort ();
2290
2291 if (htab->elf.splt != NULL)
2292 {
2293 plt_index = (h->plt.offset / plt_entry_size
2294 - htab->plt.has_plt0);
2295 off = (plt_index + 3) * 4;
2296 base_got = htab->elf.sgotplt;
2297 }
2298 else
2299 {
2300 plt_index = h->plt.offset / plt_entry_size;
2301 off = plt_index * 4;
2302 base_got = htab->elf.igotplt;
2303 }
2304
2305 if (h->dynindx == -1
2306 || h->forced_local
2307 || info->symbolic)
2308 {
2309 /* This references the local defitionion. We must
2310 initialize this entry in the global offset table.
2311 Since the offset must always be a multiple of 8,
2312 we use the least significant bit to record
2313 whether we have initialized it already.
2314
2315 When doing a dynamic link, we create a .rela.got
2316 relocation entry to initialize the value. This
2317 is done in the finish_dynamic_symbol routine. */
2318 if ((off & 1) != 0)
2319 off &= ~1;
2320 else
2321 {
2322 bfd_put_32 (output_bfd, relocation,
2323 base_got->contents + off);
2324 h->got.offset |= 1;
2325 }
2326 }
2327
2328 relocation = off;
2329 }
2330 else
2331 relocation = (base_got->output_section->vma
2332 + base_got->output_offset + off
2333 - gotplt->output_section->vma
2334 - gotplt->output_offset);
2335
2336 if (rel->r_offset > 1
2337 && (*(contents + rel->r_offset - 1) & 0xc7) == 0x5
2338 && *(contents + rel->r_offset - 2) != 0x8d)
2339 {
2340 if (bfd_link_pic (info))
2341 goto disallow_got32;
2342
2343 /* Add the GOT base if there is no base register. */
2344 relocation += (gotplt->output_section->vma
2345 + gotplt->output_offset);
2346 }
2347 else if (htab->elf.splt == NULL)
2348 {
2349 /* Adjust for static executables. */
2350 relocation += gotplt->output_offset;
2351 }
2352
2353 goto do_relocation;
2354 }
2355
2356 if (h->plt.offset == (bfd_vma) -1)
2357 {
2358 /* Handle static pointers of STT_GNU_IFUNC symbols. */
2359 if (r_type == R_386_32
2360 && (input_section->flags & SEC_CODE) == 0)
2361 goto do_ifunc_pointer;
2362 goto bad_ifunc_reloc;
2363 }
2364
2365 relocation = (resolved_plt->output_section->vma
2366 + resolved_plt->output_offset + plt_offset);
2367
2368 switch (r_type)
2369 {
2370 default:
2371 bad_ifunc_reloc:
2372 if (h->root.root.string)
2373 name = h->root.root.string;
2374 else
2375 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
2376 NULL);
2377 _bfd_error_handler
2378 /* xgettext:c-format */
2379 (_("%pB: relocation %s against STT_GNU_IFUNC "
2380 "symbol `%s' isn't supported"), input_bfd,
2381 howto->name, name);
2382 bfd_set_error (bfd_error_bad_value);
2383 return FALSE;
2384
2385 case R_386_32:
2386 /* Generate dynamic relcoation only when there is a
2387 non-GOT reference in a shared object. */
2388 if ((bfd_link_pic (info) && h->non_got_ref)
2389 || h->plt.offset == (bfd_vma) -1)
2390 {
2391 Elf_Internal_Rela outrel;
2392 asection *sreloc;
2393 bfd_vma offset;
2394
2395 do_ifunc_pointer:
2396 /* Need a dynamic relocation to get the real function
2397 adddress. */
2398 offset = _bfd_elf_section_offset (output_bfd,
2399 info,
2400 input_section,
2401 rel->r_offset);
2402 if (offset == (bfd_vma) -1
2403 || offset == (bfd_vma) -2)
2404 abort ();
2405
2406 outrel.r_offset = (input_section->output_section->vma
2407 + input_section->output_offset
2408 + offset);
2409
2410 if (POINTER_LOCAL_IFUNC_P (info, h))
2411 {
2412 info->callbacks->minfo (_("Local IFUNC function `%s' in %pB\n"),
2413 h->root.root.string,
2414 h->root.u.def.section->owner);
2415
2416 /* This symbol is resolved locally. */
2417 outrel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
2418 bfd_put_32 (output_bfd,
2419 (h->root.u.def.value
2420 + h->root.u.def.section->output_section->vma
2421 + h->root.u.def.section->output_offset),
2422 contents + offset);
2423 }
2424 else
2425 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
2426
2427 /* Dynamic relocations are stored in
2428 1. .rel.ifunc section in PIC object.
2429 2. .rel.got section in dynamic executable.
2430 3. .rel.iplt section in static executable. */
2431 if (bfd_link_pic (info))
2432 sreloc = htab->elf.irelifunc;
2433 else if (htab->elf.splt != NULL)
2434 sreloc = htab->elf.srelgot;
2435 else
2436 sreloc = htab->elf.irelplt;
2437 elf_append_rel (output_bfd, sreloc, &outrel);
2438
2439 /* If this reloc is against an external symbol, we
2440 do not want to fiddle with the addend. Otherwise,
2441 we need to include the symbol value so that it
2442 becomes an addend for the dynamic reloc. For an
2443 internal symbol, we have updated addend. */
2444 continue;
2445 }
2446 /* FALLTHROUGH */
2447 case R_386_PC32:
2448 case R_386_PLT32:
2449 goto do_relocation;
2450
2451 case R_386_GOTOFF:
2452 relocation -= (gotplt->output_section->vma
2453 + gotplt->output_offset);
2454 goto do_relocation;
2455 }
2456 }
2457
2458 skip_ifunc:
2459 resolved_to_zero = (eh != NULL
2460 && UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh));
2461
2462 switch (r_type)
2463 {
2464 case R_386_GOT32X:
2465 case R_386_GOT32:
2466 /* Relocation is to the entry for this symbol in the global
2467 offset table. */
2468 if (htab->elf.sgot == NULL)
2469 abort ();
2470
2471 relative_reloc = FALSE;
2472 if (h != NULL)
2473 {
2474 off = h->got.offset;
2475 if (RESOLVED_LOCALLY_P (info, h, htab))
2476 {
2477 /* We must initialize this entry in the global offset
2478 table. Since the offset must always be a multiple
2479 of 4, we use the least significant bit to record
2480 whether we have initialized it already.
2481
2482 When doing a dynamic link, we create a .rel.got
2483 relocation entry to initialize the value. This
2484 is done in the finish_dynamic_symbol routine. */
2485 if ((off & 1) != 0)
2486 off &= ~1;
2487 else
2488 {
2489 bfd_put_32 (output_bfd, relocation,
2490 htab->elf.sgot->contents + off);
2491 h->got.offset |= 1;
2492
2493 if (GENERATE_RELATIVE_RELOC_P (info, h))
2494 {
2495 /* PR ld/21402: If this symbol isn't dynamic
2496 in PIC, generate R_386_RELATIVE here. */
2497 eh->no_finish_dynamic_symbol = 1;
2498 relative_reloc = TRUE;
2499 }
2500 }
2501 }
2502 else
2503 unresolved_reloc = FALSE;
2504 }
2505 else
2506 {
2507 if (local_got_offsets == NULL)
2508 abort ();
2509
2510 off = local_got_offsets[r_symndx];
2511
2512 /* The offset must always be a multiple of 4. We use
2513 the least significant bit to record whether we have
2514 already generated the necessary reloc. */
2515 if ((off & 1) != 0)
2516 off &= ~1;
2517 else
2518 {
2519 bfd_put_32 (output_bfd, relocation,
2520 htab->elf.sgot->contents + off);
2521 local_got_offsets[r_symndx] |= 1;
2522
2523 if (bfd_link_pic (info))
2524 relative_reloc = TRUE;
2525 }
2526 }
2527
2528 if (relative_reloc)
2529 {
2530 asection *s;
2531 Elf_Internal_Rela outrel;
2532
2533 s = htab->elf.srelgot;
2534 if (s == NULL)
2535 abort ();
2536
2537 outrel.r_offset = (htab->elf.sgot->output_section->vma
2538 + htab->elf.sgot->output_offset
2539 + off);
2540 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
2541 elf_append_rel (output_bfd, s, &outrel);
2542 }
2543
2544 if (off >= (bfd_vma) -2)
2545 abort ();
2546
2547 relocation = (htab->elf.sgot->output_section->vma
2548 + htab->elf.sgot->output_offset + off);
2549 if (rel->r_offset > 1
2550 && (*(contents + rel->r_offset - 1) & 0xc7) == 0x5
2551 && *(contents + rel->r_offset - 2) != 0x8d)
2552 {
2553 if (bfd_link_pic (info))
2554 {
2555 /* For PIC, disallow R_386_GOT32 without a base
2556 register, except for "lea foo@GOT, %reg", since
2557 we don't know what the GOT base is. */
2558 const char *name;
2559
2560 disallow_got32:
2561 if (h == NULL || h->root.root.string == NULL)
2562 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
2563 NULL);
2564 else
2565 name = h->root.root.string;
2566
2567 _bfd_error_handler
2568 /* xgettext:c-format */
2569 (_("%pB: direct GOT relocation %s against `%s'"
2570 " without base register can not be used"
2571 " when making a shared object"),
2572 input_bfd, howto->name, name);
2573 bfd_set_error (bfd_error_bad_value);
2574 return FALSE;
2575 }
2576 }
2577 else
2578 {
2579 /* Subtract the .got.plt section address only with a base
2580 register. */
2581 relocation -= (htab->elf.sgotplt->output_section->vma
2582 + htab->elf.sgotplt->output_offset);
2583 }
2584
2585 break;
2586
2587 case R_386_GOTOFF:
2588 /* Relocation is relative to the start of the global offset
2589 table. */
2590
2591 /* Check to make sure it isn't a protected function or data
2592 symbol for shared library since it may not be local when
2593 used as function address or with copy relocation. We also
2594 need to make sure that a symbol is referenced locally. */
2595 if (!bfd_link_executable (info) && h)
2596 {
2597 if (!h->def_regular)
2598 {
2599 const char *v;
2600
2601 switch (ELF_ST_VISIBILITY (h->other))
2602 {
2603 case STV_HIDDEN:
2604 v = _("hidden symbol");
2605 break;
2606 case STV_INTERNAL:
2607 v = _("internal symbol");
2608 break;
2609 case STV_PROTECTED:
2610 v = _("protected symbol");
2611 break;
2612 default:
2613 v = _("symbol");
2614 break;
2615 }
2616
2617 _bfd_error_handler
2618 /* xgettext:c-format */
2619 (_("%pB: relocation R_386_GOTOFF against undefined %s"
2620 " `%s' can not be used when making a shared object"),
2621 input_bfd, v, h->root.root.string);
2622 bfd_set_error (bfd_error_bad_value);
2623 return FALSE;
2624 }
2625 else if (!SYMBOL_REFERENCES_LOCAL_P (info, h)
2626 && (h->type == STT_FUNC
2627 || h->type == STT_OBJECT)
2628 && ELF_ST_VISIBILITY (h->other) == STV_PROTECTED)
2629 {
2630 _bfd_error_handler
2631 /* xgettext:c-format */
2632 (_("%pB: relocation R_386_GOTOFF against protected %s"
2633 " `%s' can not be used when making a shared object"),
2634 input_bfd,
2635 h->type == STT_FUNC ? "function" : "data",
2636 h->root.root.string);
2637 bfd_set_error (bfd_error_bad_value);
2638 return FALSE;
2639 }
2640 }
2641
2642 /* Note that sgot is not involved in this
2643 calculation. We always want the start of .got.plt. If we
2644 defined _GLOBAL_OFFSET_TABLE_ in a different way, as is
2645 permitted by the ABI, we might have to change this
2646 calculation. */
2647 relocation -= htab->elf.sgotplt->output_section->vma
2648 + htab->elf.sgotplt->output_offset;
2649 break;
2650
2651 case R_386_GOTPC:
2652 /* Use global offset table as symbol value. */
2653 relocation = htab->elf.sgotplt->output_section->vma
2654 + htab->elf.sgotplt->output_offset;
2655 unresolved_reloc = FALSE;
2656 break;
2657
2658 case R_386_PLT32:
2659 /* Relocation is to the entry for this symbol in the
2660 procedure linkage table. */
2661
2662 /* Resolve a PLT32 reloc against a local symbol directly,
2663 without using the procedure linkage table. */
2664 if (h == NULL)
2665 break;
2666
2667 if ((h->plt.offset == (bfd_vma) -1
2668 && eh->plt_got.offset == (bfd_vma) -1)
2669 || htab->elf.splt == NULL)
2670 {
2671 /* We didn't make a PLT entry for this symbol. This
2672 happens when statically linking PIC code, or when
2673 using -Bsymbolic. */
2674 break;
2675 }
2676
2677 if (h->plt.offset != (bfd_vma) -1)
2678 {
2679 if (htab->plt_second != NULL)
2680 {
2681 resolved_plt = htab->plt_second;
2682 plt_offset = eh->plt_second.offset;
2683 }
2684 else
2685 {
2686 resolved_plt = htab->elf.splt;
2687 plt_offset = h->plt.offset;
2688 }
2689 }
2690 else
2691 {
2692 resolved_plt = htab->plt_got;
2693 plt_offset = eh->plt_got.offset;
2694 }
2695
2696 relocation = (resolved_plt->output_section->vma
2697 + resolved_plt->output_offset
2698 + plt_offset);
2699 unresolved_reloc = FALSE;
2700 break;
2701
2702 case R_386_SIZE32:
2703 /* Set to symbol size. */
2704 relocation = st_size;
2705 /* Fall through. */
2706
2707 case R_386_32:
2708 case R_386_PC32:
2709 if ((input_section->flags & SEC_ALLOC) == 0
2710 || is_vxworks_tls)
2711 break;
2712
2713 if (GENERATE_DYNAMIC_RELOCATION_P (info, eh, r_type,
2714 FALSE, resolved_to_zero,
2715 (r_type == R_386_PC32)))
2716 {
2717 Elf_Internal_Rela outrel;
2718 bfd_boolean skip, relocate;
2719 asection *sreloc;
2720
2721 /* When generating a shared object, these relocations
2722 are copied into the output file to be resolved at run
2723 time. */
2724
2725 skip = FALSE;
2726 relocate = FALSE;
2727
2728 outrel.r_offset =
2729 _bfd_elf_section_offset (output_bfd, info, input_section,
2730 rel->r_offset);
2731 if (outrel.r_offset == (bfd_vma) -1)
2732 skip = TRUE;
2733 else if (outrel.r_offset == (bfd_vma) -2)
2734 skip = TRUE, relocate = TRUE;
2735 outrel.r_offset += (input_section->output_section->vma
2736 + input_section->output_offset);
2737
2738 if (skip)
2739 memset (&outrel, 0, sizeof outrel);
2740 else if (COPY_INPUT_RELOC_P (info, h, r_type))
2741 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
2742 else
2743 {
2744 /* This symbol is local, or marked to become local. */
2745 relocate = TRUE;
2746 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
2747 }
2748
2749 sreloc = elf_section_data (input_section)->sreloc;
2750
2751 if (sreloc == NULL || sreloc->contents == NULL)
2752 {
2753 r = bfd_reloc_notsupported;
2754 goto check_relocation_error;
2755 }
2756
2757 elf_append_rel (output_bfd, sreloc, &outrel);
2758
2759 /* If this reloc is against an external symbol, we do
2760 not want to fiddle with the addend. Otherwise, we
2761 need to include the symbol value so that it becomes
2762 an addend for the dynamic reloc. */
2763 if (! relocate)
2764 continue;
2765 }
2766 break;
2767
2768 case R_386_TLS_IE:
2769 if (!bfd_link_executable (info))
2770 {
2771 Elf_Internal_Rela outrel;
2772 asection *sreloc;
2773
2774 outrel.r_offset = rel->r_offset
2775 + input_section->output_section->vma
2776 + input_section->output_offset;
2777 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
2778 sreloc = elf_section_data (input_section)->sreloc;
2779 if (sreloc == NULL)
2780 abort ();
2781 elf_append_rel (output_bfd, sreloc, &outrel);
2782 }
2783 /* Fall through */
2784
2785 case R_386_TLS_GD:
2786 case R_386_TLS_GOTDESC:
2787 case R_386_TLS_DESC_CALL:
2788 case R_386_TLS_IE_32:
2789 case R_386_TLS_GOTIE:
2790 tls_type = GOT_UNKNOWN;
2791 if (h == NULL && local_got_offsets)
2792 tls_type = elf_x86_local_got_tls_type (input_bfd) [r_symndx];
2793 else if (h != NULL)
2794 tls_type = elf_x86_hash_entry(h)->tls_type;
2795 if (tls_type == GOT_TLS_IE)
2796 tls_type = GOT_TLS_IE_NEG;
2797
2798 r_type_tls = r_type;
2799 if (! elf_i386_tls_transition (info, input_bfd,
2800 input_section, contents,
2801 symtab_hdr, sym_hashes,
2802 &r_type_tls, tls_type, rel,
2803 relend, h, r_symndx, TRUE))
2804 return FALSE;
2805
2806 if (r_type_tls == R_386_TLS_LE_32)
2807 {
2808 BFD_ASSERT (! unresolved_reloc);
2809 if (r_type == R_386_TLS_GD)
2810 {
2811 unsigned int type;
2812 bfd_vma roff;
2813
2814 /* GD->LE transition. */
2815 type = *(contents + rel->r_offset - 2);
2816 if (type == 0x04)
2817 {
2818 /* Change
2819 leal foo@tlsgd(,%ebx,1), %eax
2820 call ___tls_get_addr@PLT
2821 into:
2822 movl %gs:0, %eax
2823 subl $foo@tpoff, %eax
2824 (6 byte form of subl). */
2825 roff = rel->r_offset + 5;
2826 }
2827 else
2828 {
2829 /* Change
2830 leal foo@tlsgd(%ebx), %eax
2831 call ___tls_get_addr@PLT
2832 nop
2833 or
2834 leal foo@tlsgd(%reg), %eax
2835 call *___tls_get_addr@GOT(%reg)
2836 which may be converted to
2837 addr32 call ___tls_get_addr
2838 into:
2839 movl %gs:0, %eax; subl $foo@tpoff, %eax
2840 (6 byte form of subl). */
2841 roff = rel->r_offset + 6;
2842 }
2843 memcpy (contents + roff - 8,
2844 "\x65\xa1\0\0\0\0\x81\xe8\0\0\0", 12);
2845 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
2846 contents + roff);
2847 /* Skip R_386_PC32, R_386_PLT32 and R_386_GOT32X. */
2848 rel++;
2849 wrel++;
2850 continue;
2851 }
2852 else if (r_type == R_386_TLS_GOTDESC)
2853 {
2854 /* GDesc -> LE transition.
2855 It's originally something like:
2856 leal x@tlsdesc(%ebx), %eax
2857
2858 leal x@ntpoff, %eax
2859
2860 Registers other than %eax may be set up here. */
2861
2862 unsigned int val;
2863 bfd_vma roff;
2864
2865 roff = rel->r_offset;
2866 val = bfd_get_8 (input_bfd, contents + roff - 1);
2867
2868 /* Now modify the instruction as appropriate. */
2869 /* aoliva FIXME: remove the above and xor the byte
2870 below with 0x86. */
2871 bfd_put_8 (output_bfd, val ^ 0x86,
2872 contents + roff - 1);
2873 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
2874 contents + roff);
2875 continue;
2876 }
2877 else if (r_type == R_386_TLS_DESC_CALL)
2878 {
2879 /* GDesc -> LE transition.
2880 It's originally:
2881 call *(%eax)
2882 Turn it into:
2883 xchg %ax,%ax */
2884
2885 bfd_vma roff;
2886
2887 roff = rel->r_offset;
2888 bfd_put_8 (output_bfd, 0x66, contents + roff);
2889 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
2890 continue;
2891 }
2892 else if (r_type == R_386_TLS_IE)
2893 {
2894 unsigned int val;
2895
2896 /* IE->LE transition:
2897 Originally it can be one of:
2898 movl foo, %eax
2899 movl foo, %reg
2900 addl foo, %reg
2901 We change it into:
2902 movl $foo, %eax
2903 movl $foo, %reg
2904 addl $foo, %reg. */
2905 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
2906 if (val == 0xa1)
2907 {
2908 /* movl foo, %eax. */
2909 bfd_put_8 (output_bfd, 0xb8,
2910 contents + rel->r_offset - 1);
2911 }
2912 else
2913 {
2914 unsigned int type;
2915
2916 type = bfd_get_8 (input_bfd,
2917 contents + rel->r_offset - 2);
2918 switch (type)
2919 {
2920 case 0x8b:
2921 /* movl */
2922 bfd_put_8 (output_bfd, 0xc7,
2923 contents + rel->r_offset - 2);
2924 bfd_put_8 (output_bfd,
2925 0xc0 | ((val >> 3) & 7),
2926 contents + rel->r_offset - 1);
2927 break;
2928 case 0x03:
2929 /* addl */
2930 bfd_put_8 (output_bfd, 0x81,
2931 contents + rel->r_offset - 2);
2932 bfd_put_8 (output_bfd,
2933 0xc0 | ((val >> 3) & 7),
2934 contents + rel->r_offset - 1);
2935 break;
2936 default:
2937 BFD_FAIL ();
2938 break;
2939 }
2940 }
2941 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
2942 contents + rel->r_offset);
2943 continue;
2944 }
2945 else
2946 {
2947 unsigned int val, type;
2948
2949 /* {IE_32,GOTIE}->LE transition:
2950 Originally it can be one of:
2951 subl foo(%reg1), %reg2
2952 movl foo(%reg1), %reg2
2953 addl foo(%reg1), %reg2
2954 We change it into:
2955 subl $foo, %reg2
2956 movl $foo, %reg2 (6 byte form)
2957 addl $foo, %reg2. */
2958 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
2959 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
2960 if (type == 0x8b)
2961 {
2962 /* movl */
2963 bfd_put_8 (output_bfd, 0xc7,
2964 contents + rel->r_offset - 2);
2965 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
2966 contents + rel->r_offset - 1);
2967 }
2968 else if (type == 0x2b)
2969 {
2970 /* subl */
2971 bfd_put_8 (output_bfd, 0x81,
2972 contents + rel->r_offset - 2);
2973 bfd_put_8 (output_bfd, 0xe8 | ((val >> 3) & 7),
2974 contents + rel->r_offset - 1);
2975 }
2976 else if (type == 0x03)
2977 {
2978 /* addl */
2979 bfd_put_8 (output_bfd, 0x81,
2980 contents + rel->r_offset - 2);
2981 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
2982 contents + rel->r_offset - 1);
2983 }
2984 else
2985 BFD_FAIL ();
2986 if (r_type == R_386_TLS_GOTIE)
2987 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
2988 contents + rel->r_offset);
2989 else
2990 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
2991 contents + rel->r_offset);
2992 continue;
2993 }
2994 }
2995
2996 if (htab->elf.sgot == NULL)
2997 abort ();
2998
2999 if (h != NULL)
3000 {
3001 off = h->got.offset;
3002 offplt = elf_x86_hash_entry (h)->tlsdesc_got;
3003 }
3004 else
3005 {
3006 if (local_got_offsets == NULL)
3007 abort ();
3008
3009 off = local_got_offsets[r_symndx];
3010 offplt = local_tlsdesc_gotents[r_symndx];
3011 }
3012
3013 if ((off & 1) != 0)
3014 off &= ~1;
3015 else
3016 {
3017 Elf_Internal_Rela outrel;
3018 int dr_type;
3019 asection *sreloc;
3020
3021 if (htab->elf.srelgot == NULL)
3022 abort ();
3023
3024 indx = h && h->dynindx != -1 ? h->dynindx : 0;
3025
3026 if (GOT_TLS_GDESC_P (tls_type))
3027 {
3028 bfd_byte *loc;
3029 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_DESC);
3030 BFD_ASSERT (htab->sgotplt_jump_table_size + offplt + 8
3031 <= htab->elf.sgotplt->size);
3032 outrel.r_offset = (htab->elf.sgotplt->output_section->vma
3033 + htab->elf.sgotplt->output_offset
3034 + offplt
3035 + htab->sgotplt_jump_table_size);
3036 sreloc = htab->elf.srelplt;
3037 loc = sreloc->contents;
3038 loc += (htab->next_tls_desc_index++
3039 * sizeof (Elf32_External_Rel));
3040 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
3041 <= sreloc->contents + sreloc->size);
3042 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3043 if (indx == 0)
3044 {
3045 BFD_ASSERT (! unresolved_reloc);
3046 bfd_put_32 (output_bfd,
3047 relocation - _bfd_x86_elf_dtpoff_base (info),
3048 htab->elf.sgotplt->contents + offplt
3049 + htab->sgotplt_jump_table_size + 4);
3050 }
3051 else
3052 {
3053 bfd_put_32 (output_bfd, 0,
3054 htab->elf.sgotplt->contents + offplt
3055 + htab->sgotplt_jump_table_size + 4);
3056 }
3057 }
3058
3059 sreloc = htab->elf.srelgot;
3060
3061 outrel.r_offset = (htab->elf.sgot->output_section->vma
3062 + htab->elf.sgot->output_offset + off);
3063
3064 if (GOT_TLS_GD_P (tls_type))
3065 dr_type = R_386_TLS_DTPMOD32;
3066 else if (GOT_TLS_GDESC_P (tls_type))
3067 goto dr_done;
3068 else if (tls_type == GOT_TLS_IE_POS)
3069 dr_type = R_386_TLS_TPOFF;
3070 else
3071 dr_type = R_386_TLS_TPOFF32;
3072
3073 if (dr_type == R_386_TLS_TPOFF && indx == 0)
3074 bfd_put_32 (output_bfd,
3075 relocation - _bfd_x86_elf_dtpoff_base (info),
3076 htab->elf.sgot->contents + off);
3077 else if (dr_type == R_386_TLS_TPOFF32 && indx == 0)
3078 bfd_put_32 (output_bfd,
3079 _bfd_x86_elf_dtpoff_base (info) - relocation,
3080 htab->elf.sgot->contents + off);
3081 else if (dr_type != R_386_TLS_DESC)
3082 bfd_put_32 (output_bfd, 0,
3083 htab->elf.sgot->contents + off);
3084 outrel.r_info = ELF32_R_INFO (indx, dr_type);
3085
3086 elf_append_rel (output_bfd, sreloc, &outrel);
3087
3088 if (GOT_TLS_GD_P (tls_type))
3089 {
3090 if (indx == 0)
3091 {
3092 BFD_ASSERT (! unresolved_reloc);
3093 bfd_put_32 (output_bfd,
3094 relocation - _bfd_x86_elf_dtpoff_base (info),
3095 htab->elf.sgot->contents + off + 4);
3096 }
3097 else
3098 {
3099 bfd_put_32 (output_bfd, 0,
3100 htab->elf.sgot->contents + off + 4);
3101 outrel.r_info = ELF32_R_INFO (indx,
3102 R_386_TLS_DTPOFF32);
3103 outrel.r_offset += 4;
3104 elf_append_rel (output_bfd, sreloc, &outrel);
3105 }
3106 }
3107 else if (tls_type == GOT_TLS_IE_BOTH)
3108 {
3109 bfd_put_32 (output_bfd,
3110 (indx == 0
3111 ? relocation - _bfd_x86_elf_dtpoff_base (info)
3112 : 0),
3113 htab->elf.sgot->contents + off + 4);
3114 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF);
3115 outrel.r_offset += 4;
3116 elf_append_rel (output_bfd, sreloc, &outrel);
3117 }
3118
3119 dr_done:
3120 if (h != NULL)
3121 h->got.offset |= 1;
3122 else
3123 local_got_offsets[r_symndx] |= 1;
3124 }
3125
3126 if (off >= (bfd_vma) -2
3127 && ! GOT_TLS_GDESC_P (tls_type))
3128 abort ();
3129 if (r_type_tls == R_386_TLS_GOTDESC
3130 || r_type_tls == R_386_TLS_DESC_CALL)
3131 {
3132 relocation = htab->sgotplt_jump_table_size + offplt;
3133 unresolved_reloc = FALSE;
3134 }
3135 else if (r_type_tls == r_type)
3136 {
3137 bfd_vma g_o_t = htab->elf.sgotplt->output_section->vma
3138 + htab->elf.sgotplt->output_offset;
3139 relocation = htab->elf.sgot->output_section->vma
3140 + htab->elf.sgot->output_offset + off - g_o_t;
3141 if ((r_type == R_386_TLS_IE || r_type == R_386_TLS_GOTIE)
3142 && tls_type == GOT_TLS_IE_BOTH)
3143 relocation += 4;
3144 if (r_type == R_386_TLS_IE)
3145 relocation += g_o_t;
3146 unresolved_reloc = FALSE;
3147 }
3148 else if (r_type == R_386_TLS_GD)
3149 {
3150 unsigned int val, type;
3151 bfd_vma roff;
3152
3153 /* GD->IE transition. */
3154 type = *(contents + rel->r_offset - 2);
3155 val = *(contents + rel->r_offset - 1);
3156 if (type == 0x04)
3157 {
3158 /* Change
3159 leal foo@tlsgd(,%ebx,1), %eax
3160 call ___tls_get_addr@PLT
3161 into:
3162 movl %gs:0, %eax
3163 subl $foo@gottpoff(%ebx), %eax. */
3164 val >>= 3;
3165 roff = rel->r_offset - 3;
3166 }
3167 else
3168 {
3169 /* Change
3170 leal foo@tlsgd(%ebx), %eax
3171 call ___tls_get_addr@PLT
3172 nop
3173 or
3174 leal foo@tlsgd(%reg), %eax
3175 call *___tls_get_addr@GOT(%reg)
3176 which may be converted to
3177 addr32 call ___tls_get_addr
3178 into:
3179 movl %gs:0, %eax;
3180 subl $foo@gottpoff(%reg), %eax. */
3181 roff = rel->r_offset - 2;
3182 }
3183 memcpy (contents + roff,
3184 "\x65\xa1\0\0\0\0\x2b\x80\0\0\0", 12);
3185 contents[roff + 7] = 0x80 | (val & 7);
3186 /* If foo is used only with foo@gotntpoff(%reg) and
3187 foo@indntpoff, but not with foo@gottpoff(%reg), change
3188 subl $foo@gottpoff(%reg), %eax
3189 into:
3190 addl $foo@gotntpoff(%reg), %eax. */
3191 if (tls_type == GOT_TLS_IE_POS)
3192 contents[roff + 6] = 0x03;
3193 bfd_put_32 (output_bfd,
3194 htab->elf.sgot->output_section->vma
3195 + htab->elf.sgot->output_offset + off
3196 - htab->elf.sgotplt->output_section->vma
3197 - htab->elf.sgotplt->output_offset,
3198 contents + roff + 8);
3199 /* Skip R_386_PLT32 and R_386_GOT32X. */
3200 rel++;
3201 wrel++;
3202 continue;
3203 }
3204 else if (r_type == R_386_TLS_GOTDESC)
3205 {
3206 /* GDesc -> IE transition.
3207 It's originally something like:
3208 leal x@tlsdesc(%ebx), %eax
3209
3210 Change it to:
3211 movl x@gotntpoff(%ebx), %eax # before xchg %ax,%ax
3212 or:
3213 movl x@gottpoff(%ebx), %eax # before negl %eax
3214
3215 Registers other than %eax may be set up here. */
3216
3217 bfd_vma roff;
3218
3219 /* First, make sure it's a leal adding ebx to a 32-bit
3220 offset into any register, although it's probably
3221 almost always going to be eax. */
3222 roff = rel->r_offset;
3223
3224 /* Now modify the instruction as appropriate. */
3225 /* To turn a leal into a movl in the form we use it, it
3226 suffices to change the first byte from 0x8d to 0x8b.
3227 aoliva FIXME: should we decide to keep the leal, all
3228 we have to do is remove the statement below, and
3229 adjust the relaxation of R_386_TLS_DESC_CALL. */
3230 bfd_put_8 (output_bfd, 0x8b, contents + roff - 2);
3231
3232 if (tls_type == GOT_TLS_IE_BOTH)
3233 off += 4;
3234
3235 bfd_put_32 (output_bfd,
3236 htab->elf.sgot->output_section->vma
3237 + htab->elf.sgot->output_offset + off
3238 - htab->elf.sgotplt->output_section->vma
3239 - htab->elf.sgotplt->output_offset,
3240 contents + roff);
3241 continue;
3242 }
3243 else if (r_type == R_386_TLS_DESC_CALL)
3244 {
3245 /* GDesc -> IE transition.
3246 It's originally:
3247 call *(%eax)
3248
3249 Change it to:
3250 xchg %ax,%ax
3251 or
3252 negl %eax
3253 depending on how we transformed the TLS_GOTDESC above.
3254 */
3255
3256 bfd_vma roff;
3257
3258 roff = rel->r_offset;
3259
3260 /* Now modify the instruction as appropriate. */
3261 if (tls_type != GOT_TLS_IE_NEG)
3262 {
3263 /* xchg %ax,%ax */
3264 bfd_put_8 (output_bfd, 0x66, contents + roff);
3265 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
3266 }
3267 else
3268 {
3269 /* negl %eax */
3270 bfd_put_8 (output_bfd, 0xf7, contents + roff);
3271 bfd_put_8 (output_bfd, 0xd8, contents + roff + 1);
3272 }
3273
3274 continue;
3275 }
3276 else
3277 BFD_ASSERT (FALSE);
3278 break;
3279
3280 case R_386_TLS_LDM:
3281 if (! elf_i386_tls_transition (info, input_bfd,
3282 input_section, contents,
3283 symtab_hdr, sym_hashes,
3284 &r_type, GOT_UNKNOWN, rel,
3285 relend, h, r_symndx, TRUE))
3286 return FALSE;
3287
3288 if (r_type != R_386_TLS_LDM)
3289 {
3290 /* LD->LE transition. Change
3291 leal foo@tlsldm(%ebx) %eax
3292 call ___tls_get_addr@PLT
3293 into:
3294 movl %gs:0, %eax
3295 nop
3296 leal 0(%esi,1), %esi
3297 or change
3298 leal foo@tlsldm(%reg) %eax
3299 call *___tls_get_addr@GOT(%reg)
3300 which may be converted to
3301 addr32 call ___tls_get_addr
3302 into:
3303 movl %gs:0, %eax
3304 leal 0(%esi), %esi */
3305 BFD_ASSERT (r_type == R_386_TLS_LE_32);
3306 if (*(contents + rel->r_offset + 4) == 0xff
3307 || *(contents + rel->r_offset + 4) == 0x67)
3308 memcpy (contents + rel->r_offset - 2,
3309 "\x65\xa1\0\0\0\0\x8d\xb6\0\0\0", 12);
3310 else
3311 memcpy (contents + rel->r_offset - 2,
3312 "\x65\xa1\0\0\0\0\x90\x8d\x74\x26", 11);
3313 /* Skip R_386_PC32/R_386_PLT32. */
3314 rel++;
3315 wrel++;
3316 continue;
3317 }
3318
3319 if (htab->elf.sgot == NULL)
3320 abort ();
3321
3322 off = htab->tls_ld_or_ldm_got.offset;
3323 if (off & 1)
3324 off &= ~1;
3325 else
3326 {
3327 Elf_Internal_Rela outrel;
3328
3329 if (htab->elf.srelgot == NULL)
3330 abort ();
3331
3332 outrel.r_offset = (htab->elf.sgot->output_section->vma
3333 + htab->elf.sgot->output_offset + off);
3334
3335 bfd_put_32 (output_bfd, 0,
3336 htab->elf.sgot->contents + off);
3337 bfd_put_32 (output_bfd, 0,
3338 htab->elf.sgot->contents + off + 4);
3339 outrel.r_info = ELF32_R_INFO (0, R_386_TLS_DTPMOD32);
3340 elf_append_rel (output_bfd, htab->elf.srelgot, &outrel);
3341 htab->tls_ld_or_ldm_got.offset |= 1;
3342 }
3343 relocation = htab->elf.sgot->output_section->vma
3344 + htab->elf.sgot->output_offset + off
3345 - htab->elf.sgotplt->output_section->vma
3346 - htab->elf.sgotplt->output_offset;
3347 unresolved_reloc = FALSE;
3348 break;
3349
3350 case R_386_TLS_LDO_32:
3351 if (!bfd_link_executable (info)
3352 || (input_section->flags & SEC_CODE) == 0)
3353 relocation -= _bfd_x86_elf_dtpoff_base (info);
3354 else
3355 /* When converting LDO to LE, we must negate. */
3356 relocation = -elf_i386_tpoff (info, relocation);
3357 break;
3358
3359 case R_386_TLS_LE_32:
3360 case R_386_TLS_LE:
3361 if (!bfd_link_executable (info))
3362 {
3363 Elf_Internal_Rela outrel;
3364 asection *sreloc;
3365
3366 outrel.r_offset = rel->r_offset
3367 + input_section->output_section->vma
3368 + input_section->output_offset;
3369 if (h != NULL && h->dynindx != -1)
3370 indx = h->dynindx;
3371 else
3372 indx = 0;
3373 if (r_type == R_386_TLS_LE_32)
3374 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF32);
3375 else
3376 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF);
3377 sreloc = elf_section_data (input_section)->sreloc;
3378 if (sreloc == NULL)
3379 abort ();
3380 elf_append_rel (output_bfd, sreloc, &outrel);
3381 if (indx)
3382 continue;
3383 else if (r_type == R_386_TLS_LE_32)
3384 relocation = _bfd_x86_elf_dtpoff_base (info) - relocation;
3385 else
3386 relocation -= _bfd_x86_elf_dtpoff_base (info);
3387 }
3388 else if (r_type == R_386_TLS_LE_32)
3389 relocation = elf_i386_tpoff (info, relocation);
3390 else
3391 relocation = -elf_i386_tpoff (info, relocation);
3392 break;
3393
3394 default:
3395 break;
3396 }
3397
3398 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3399 because such sections are not SEC_ALLOC and thus ld.so will
3400 not process them. */
3401 if (unresolved_reloc
3402 && !((input_section->flags & SEC_DEBUGGING) != 0
3403 && h->def_dynamic)
3404 && _bfd_elf_section_offset (output_bfd, info, input_section,
3405 rel->r_offset) != (bfd_vma) -1)
3406 {
3407 _bfd_error_handler
3408 /* xgettext:c-format */
3409 (_("%pB(%pA+%#" PRIx64 "): unresolvable %s relocation against symbol `%s'"),
3410 input_bfd,
3411 input_section,
3412 (uint64_t) rel->r_offset,
3413 howto->name,
3414 h->root.root.string);
3415 return FALSE;
3416 }
3417
3418 do_relocation:
3419 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3420 contents, rel->r_offset,
3421 relocation, 0);
3422
3423 check_relocation_error:
3424 if (r != bfd_reloc_ok)
3425 {
3426 const char *name;
3427
3428 if (h != NULL)
3429 name = h->root.root.string;
3430 else
3431 {
3432 name = bfd_elf_string_from_elf_section (input_bfd,
3433 symtab_hdr->sh_link,
3434 sym->st_name);
3435 if (name == NULL)
3436 return FALSE;
3437 if (*name == '\0')
3438 name = bfd_section_name (input_bfd, sec);
3439 }
3440
3441 if (r == bfd_reloc_overflow)
3442 (*info->callbacks->reloc_overflow)
3443 (info, (h ? &h->root : NULL), name, howto->name,
3444 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
3445 else
3446 {
3447 _bfd_error_handler
3448 /* xgettext:c-format */
3449 (_("%pB(%pA+%#" PRIx64 "): reloc against `%s': error %d"),
3450 input_bfd, input_section,
3451 (uint64_t) rel->r_offset, name, (int) r);
3452 return FALSE;
3453 }
3454 }
3455
3456 if (wrel != rel)
3457 *wrel = *rel;
3458 }
3459
3460 if (wrel != rel)
3461 {
3462 Elf_Internal_Shdr *rel_hdr;
3463 size_t deleted = rel - wrel;
3464
3465 rel_hdr = _bfd_elf_single_rel_hdr (input_section->output_section);
3466 rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
3467 if (rel_hdr->sh_size == 0)
3468 {
3469 /* It is too late to remove an empty reloc section. Leave
3470 one NONE reloc.
3471 ??? What is wrong with an empty section??? */
3472 rel_hdr->sh_size = rel_hdr->sh_entsize;
3473 deleted -= 1;
3474 }
3475 rel_hdr = _bfd_elf_single_rel_hdr (input_section);
3476 rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
3477 input_section->reloc_count -= deleted;
3478 }
3479
3480 return TRUE;
3481 }
3482
3483 /* Finish up dynamic symbol handling. We set the contents of various
3484 dynamic sections here. */
3485
3486 static bfd_boolean
3487 elf_i386_finish_dynamic_symbol (bfd *output_bfd,
3488 struct bfd_link_info *info,
3489 struct elf_link_hash_entry *h,
3490 Elf_Internal_Sym *sym)
3491 {
3492 struct elf_x86_link_hash_table *htab;
3493 unsigned plt_entry_size;
3494 struct elf_x86_link_hash_entry *eh;
3495 bfd_boolean local_undefweak;
3496 bfd_boolean use_plt_second;
3497
3498 htab = elf_x86_hash_table (info, I386_ELF_DATA);
3499 if (htab == NULL)
3500 return FALSE;
3501
3502 plt_entry_size = htab->plt.plt_entry_size;
3503
3504 /* Use the second PLT section only if there is .plt section. */
3505 use_plt_second = htab->elf.splt != NULL && htab->plt_second != NULL;
3506
3507 eh = (struct elf_x86_link_hash_entry *) h;
3508 if (eh->no_finish_dynamic_symbol)
3509 abort ();
3510
3511 /* We keep PLT/GOT entries without dynamic PLT/GOT relocations for
3512 resolved undefined weak symbols in executable so that their
3513 references have value 0 at run-time. */
3514 local_undefweak = UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh);
3515
3516 if (h->plt.offset != (bfd_vma) -1)
3517 {
3518 bfd_vma plt_index, plt_offset;
3519 bfd_vma got_offset;
3520 Elf_Internal_Rela rel;
3521 bfd_byte *loc;
3522 asection *plt, *resolved_plt, *gotplt, *relplt;
3523
3524 /* When building a static executable, use .iplt, .igot.plt and
3525 .rel.iplt sections for STT_GNU_IFUNC symbols. */
3526 if (htab->elf.splt != NULL)
3527 {
3528 plt = htab->elf.splt;
3529 gotplt = htab->elf.sgotplt;
3530 relplt = htab->elf.srelplt;
3531 }
3532 else
3533 {
3534 plt = htab->elf.iplt;
3535 gotplt = htab->elf.igotplt;
3536 relplt = htab->elf.irelplt;
3537 }
3538
3539 VERIFY_PLT_ENTRY (info, h, plt, gotplt, relplt, local_undefweak)
3540
3541 /* Get the index in the procedure linkage table which
3542 corresponds to this symbol. This is the index of this symbol
3543 in all the symbols for which we are making plt entries. The
3544 first entry in the procedure linkage table is reserved.
3545
3546 Get the offset into the .got table of the entry that
3547 corresponds to this function. Each .got entry is 4 bytes.
3548 The first three are reserved.
3549
3550 For static executables, we don't reserve anything. */
3551
3552 if (plt == htab->elf.splt)
3553 {
3554 got_offset = (h->plt.offset / plt_entry_size
3555 - htab->plt.has_plt0);
3556 got_offset = (got_offset + 3) * 4;
3557 }
3558 else
3559 {
3560 got_offset = h->plt.offset / plt_entry_size;
3561 got_offset = got_offset * 4;
3562 }
3563
3564 /* Fill in the entry in the procedure linkage table and update
3565 the first slot. */
3566 memcpy (plt->contents + h->plt.offset, htab->plt.plt_entry,
3567 plt_entry_size);
3568
3569 if (use_plt_second)
3570 {
3571 const bfd_byte *plt_entry;
3572 if (bfd_link_pic (info))
3573 plt_entry = htab->non_lazy_plt->pic_plt_entry;
3574 else
3575 plt_entry = htab->non_lazy_plt->plt_entry;
3576 memcpy (htab->plt_second->contents + eh->plt_second.offset,
3577 plt_entry, htab->non_lazy_plt->plt_entry_size);
3578
3579 resolved_plt = htab->plt_second;
3580 plt_offset = eh->plt_second.offset;
3581 }
3582 else
3583 {
3584 resolved_plt = plt;
3585 plt_offset = h->plt.offset;
3586 }
3587
3588 if (! bfd_link_pic (info))
3589 {
3590 bfd_put_32 (output_bfd,
3591 (gotplt->output_section->vma
3592 + gotplt->output_offset
3593 + got_offset),
3594 resolved_plt->contents + plt_offset
3595 + htab->plt.plt_got_offset);
3596
3597 if (htab->target_os == is_vxworks)
3598 {
3599 int s, k, reloc_index;
3600
3601 /* Create the R_386_32 relocation referencing the GOT
3602 for this PLT entry. */
3603
3604 /* S: Current slot number (zero-based). */
3605 s = ((h->plt.offset - htab->plt.plt_entry_size)
3606 / htab->plt.plt_entry_size);
3607 /* K: Number of relocations for PLTResolve. */
3608 if (bfd_link_pic (info))
3609 k = PLTRESOLVE_RELOCS_SHLIB;
3610 else
3611 k = PLTRESOLVE_RELOCS;
3612 /* Skip the PLTresolve relocations, and the relocations for
3613 the other PLT slots. */
3614 reloc_index = k + s * PLT_NON_JUMP_SLOT_RELOCS;
3615 loc = (htab->srelplt2->contents + reloc_index
3616 * sizeof (Elf32_External_Rel));
3617
3618 rel.r_offset = (plt->output_section->vma
3619 + plt->output_offset
3620 + h->plt.offset + 2),
3621 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
3622 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
3623
3624 /* Create the R_386_32 relocation referencing the beginning of
3625 the PLT for this GOT entry. */
3626 rel.r_offset = (htab->elf.sgotplt->output_section->vma
3627 + htab->elf.sgotplt->output_offset
3628 + got_offset);
3629 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_386_32);
3630 bfd_elf32_swap_reloc_out (output_bfd, &rel,
3631 loc + sizeof (Elf32_External_Rel));
3632 }
3633 }
3634 else
3635 {
3636 bfd_put_32 (output_bfd, got_offset,
3637 resolved_plt->contents + plt_offset
3638 + htab->plt.plt_got_offset);
3639 }
3640
3641 /* Fill in the entry in the global offset table. Leave the entry
3642 as zero for undefined weak symbol in PIE. No PLT relocation
3643 against undefined weak symbol in PIE. */
3644 if (!local_undefweak)
3645 {
3646 if (htab->plt.has_plt0)
3647 bfd_put_32 (output_bfd,
3648 (plt->output_section->vma
3649 + plt->output_offset
3650 + h->plt.offset
3651 + htab->lazy_plt->plt_lazy_offset),
3652 gotplt->contents + got_offset);
3653
3654 /* Fill in the entry in the .rel.plt section. */
3655 rel.r_offset = (gotplt->output_section->vma
3656 + gotplt->output_offset
3657 + got_offset);
3658 if (PLT_LOCAL_IFUNC_P (info, h))
3659 {
3660 info->callbacks->minfo (_("Local IFUNC function `%s' in %pB\n"),
3661 h->root.root.string,
3662 h->root.u.def.section->owner);
3663
3664 /* If an STT_GNU_IFUNC symbol is locally defined, generate
3665 R_386_IRELATIVE instead of R_386_JUMP_SLOT. Store addend
3666 in the .got.plt section. */
3667 bfd_put_32 (output_bfd,
3668 (h->root.u.def.value
3669 + h->root.u.def.section->output_section->vma
3670 + h->root.u.def.section->output_offset),
3671 gotplt->contents + got_offset);
3672 rel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
3673 /* R_386_IRELATIVE comes last. */
3674 plt_index = htab->next_irelative_index--;
3675 }
3676 else
3677 {
3678 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_JUMP_SLOT);
3679 plt_index = htab->next_jump_slot_index++;
3680 }
3681
3682 loc = relplt->contents + plt_index * sizeof (Elf32_External_Rel);
3683 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
3684
3685 /* Don't fill the second and third slots in PLT entry for
3686 static executables nor without PLT0. */
3687 if (plt == htab->elf.splt && htab->plt.has_plt0)
3688 {
3689 bfd_put_32 (output_bfd,
3690 plt_index * sizeof (Elf32_External_Rel),
3691 plt->contents + h->plt.offset
3692 + htab->lazy_plt->plt_reloc_offset);
3693 bfd_put_32 (output_bfd,
3694 - (h->plt.offset
3695 + htab->lazy_plt->plt_plt_offset + 4),
3696 (plt->contents + h->plt.offset
3697 + htab->lazy_plt->plt_plt_offset));
3698 }
3699 }
3700 }
3701 else if (eh->plt_got.offset != (bfd_vma) -1)
3702 {
3703 bfd_vma got_offset, plt_offset;
3704 asection *plt, *got, *gotplt;
3705 const bfd_byte *got_plt_entry;
3706
3707 /* Set the entry in the GOT procedure linkage table. */
3708 plt = htab->plt_got;
3709 got = htab->elf.sgot;
3710 gotplt = htab->elf.sgotplt;
3711 got_offset = h->got.offset;
3712
3713 if (got_offset == (bfd_vma) -1
3714 || plt == NULL
3715 || got == NULL
3716 || gotplt == NULL)
3717 abort ();
3718
3719 /* Fill in the entry in the GOT procedure linkage table. */
3720 if (! bfd_link_pic (info))
3721 {
3722 got_plt_entry = htab->non_lazy_plt->plt_entry;
3723 got_offset += got->output_section->vma + got->output_offset;
3724 }
3725 else
3726 {
3727 got_plt_entry = htab->non_lazy_plt->pic_plt_entry;
3728 got_offset += (got->output_section->vma
3729 + got->output_offset
3730 - gotplt->output_section->vma
3731 - gotplt->output_offset);
3732 }
3733
3734 plt_offset = eh->plt_got.offset;
3735 memcpy (plt->contents + plt_offset, got_plt_entry,
3736 htab->non_lazy_plt->plt_entry_size);
3737 bfd_put_32 (output_bfd, got_offset,
3738 (plt->contents + plt_offset
3739 + htab->non_lazy_plt->plt_got_offset));
3740 }
3741
3742 if (!local_undefweak
3743 && !h->def_regular
3744 && (h->plt.offset != (bfd_vma) -1
3745 || eh->plt_got.offset != (bfd_vma) -1))
3746 {
3747 /* Mark the symbol as undefined, rather than as defined in
3748 the .plt section. Leave the value if there were any
3749 relocations where pointer equality matters (this is a clue
3750 for the dynamic linker, to make function pointer
3751 comparisons work between an application and shared
3752 library), otherwise set it to zero. If a function is only
3753 called from a binary, there is no need to slow down
3754 shared libraries because of that. */
3755 sym->st_shndx = SHN_UNDEF;
3756 if (!h->pointer_equality_needed)
3757 sym->st_value = 0;
3758 }
3759
3760 _bfd_x86_elf_link_fixup_ifunc_symbol (info, htab, h, sym);
3761
3762 /* Don't generate dynamic GOT relocation against undefined weak
3763 symbol in executable. */
3764 if (h->got.offset != (bfd_vma) -1
3765 && ! GOT_TLS_GD_ANY_P (elf_x86_hash_entry(h)->tls_type)
3766 && (elf_x86_hash_entry(h)->tls_type & GOT_TLS_IE) == 0
3767 && !local_undefweak)
3768 {
3769 Elf_Internal_Rela rel;
3770 asection *relgot = htab->elf.srelgot;
3771
3772 /* This symbol has an entry in the global offset table. Set it
3773 up. */
3774
3775 if (htab->elf.sgot == NULL || htab->elf.srelgot == NULL)
3776 abort ();
3777
3778 rel.r_offset = (htab->elf.sgot->output_section->vma
3779 + htab->elf.sgot->output_offset
3780 + (h->got.offset & ~(bfd_vma) 1));
3781
3782 /* If this is a static link, or it is a -Bsymbolic link and the
3783 symbol is defined locally or was forced to be local because
3784 of a version file, we just want to emit a RELATIVE reloc.
3785 The entry in the global offset table will already have been
3786 initialized in the relocate_section function. */
3787 if (h->def_regular
3788 && h->type == STT_GNU_IFUNC)
3789 {
3790 if (h->plt.offset == (bfd_vma) -1)
3791 {
3792 /* STT_GNU_IFUNC is referenced without PLT. */
3793 if (htab->elf.splt == NULL)
3794 {
3795 /* use .rel[a].iplt section to store .got relocations
3796 in static executable. */
3797 relgot = htab->elf.irelplt;
3798 }
3799 if (SYMBOL_REFERENCES_LOCAL_P (info, h))
3800 {
3801 info->callbacks->minfo (_("Local IFUNC function `%s' in %pB\n"),
3802 h->root.root.string,
3803 h->root.u.def.section->owner);
3804
3805 bfd_put_32 (output_bfd,
3806 (h->root.u.def.value
3807 + h->root.u.def.section->output_section->vma
3808 + h->root.u.def.section->output_offset),
3809 htab->elf.sgot->contents + h->got.offset);
3810 rel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
3811 }
3812 else
3813 goto do_glob_dat;
3814 }
3815 else if (bfd_link_pic (info))
3816 {
3817 /* Generate R_386_GLOB_DAT. */
3818 goto do_glob_dat;
3819 }
3820 else
3821 {
3822 asection *plt;
3823 bfd_vma plt_offset;
3824
3825 if (!h->pointer_equality_needed)
3826 abort ();
3827
3828 /* For non-shared object, we can't use .got.plt, which
3829 contains the real function addres if we need pointer
3830 equality. We load the GOT entry with the PLT entry. */
3831 if (htab->plt_second != NULL)
3832 {
3833 plt = htab->plt_second;
3834 plt_offset = eh->plt_second.offset;
3835 }
3836 else
3837 {
3838 plt = htab->elf.splt ? htab->elf.splt : htab->elf.iplt;
3839 plt_offset = h->plt.offset;
3840 }
3841 bfd_put_32 (output_bfd,
3842 (plt->output_section->vma
3843 + plt->output_offset + plt_offset),
3844 htab->elf.sgot->contents + h->got.offset);
3845 return TRUE;
3846 }
3847 }
3848 else if (bfd_link_pic (info)
3849 && SYMBOL_REFERENCES_LOCAL_P (info, h))
3850 {
3851 BFD_ASSERT((h->got.offset & 1) != 0);
3852 rel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
3853 }
3854 else
3855 {
3856 BFD_ASSERT((h->got.offset & 1) == 0);
3857 do_glob_dat:
3858 bfd_put_32 (output_bfd, (bfd_vma) 0,
3859 htab->elf.sgot->contents + h->got.offset);
3860 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_GLOB_DAT);
3861 }
3862
3863 elf_append_rel (output_bfd, relgot, &rel);
3864 }
3865
3866 if (h->needs_copy)
3867 {
3868 Elf_Internal_Rela rel;
3869 asection *s;
3870
3871 /* This symbol needs a copy reloc. Set it up. */
3872 VERIFY_COPY_RELOC (h, htab)
3873
3874 rel.r_offset = (h->root.u.def.value
3875 + h->root.u.def.section->output_section->vma
3876 + h->root.u.def.section->output_offset);
3877 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_COPY);
3878 if (h->root.u.def.section == htab->elf.sdynrelro)
3879 s = htab->elf.sreldynrelro;
3880 else
3881 s = htab->elf.srelbss;
3882 elf_append_rel (output_bfd, s, &rel);
3883 }
3884
3885 return TRUE;
3886 }
3887
3888 /* Finish up local dynamic symbol handling. We set the contents of
3889 various dynamic sections here. */
3890
3891 static bfd_boolean
3892 elf_i386_finish_local_dynamic_symbol (void **slot, void *inf)
3893 {
3894 struct elf_link_hash_entry *h
3895 = (struct elf_link_hash_entry *) *slot;
3896 struct bfd_link_info *info
3897 = (struct bfd_link_info *) inf;
3898
3899 return elf_i386_finish_dynamic_symbol (info->output_bfd, info,
3900 h, NULL);
3901 }
3902
3903 /* Finish up undefined weak symbol handling in PIE. Fill its PLT entry
3904 here since undefined weak symbol may not be dynamic and may not be
3905 called for elf_i386_finish_dynamic_symbol. */
3906
3907 static bfd_boolean
3908 elf_i386_pie_finish_undefweak_symbol (struct bfd_hash_entry *bh,
3909 void *inf)
3910 {
3911 struct elf_link_hash_entry *h = (struct elf_link_hash_entry *) bh;
3912 struct bfd_link_info *info = (struct bfd_link_info *) inf;
3913
3914 if (h->root.type != bfd_link_hash_undefweak
3915 || h->dynindx != -1)
3916 return TRUE;
3917
3918 return elf_i386_finish_dynamic_symbol (info->output_bfd,
3919 info, h, NULL);
3920 }
3921
3922 /* Used to decide how to sort relocs in an optimal manner for the
3923 dynamic linker, before writing them out. */
3924
3925 static enum elf_reloc_type_class
3926 elf_i386_reloc_type_class (const struct bfd_link_info *info,
3927 const asection *rel_sec ATTRIBUTE_UNUSED,
3928 const Elf_Internal_Rela *rela)
3929 {
3930 bfd *abfd = info->output_bfd;
3931 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3932 struct elf_link_hash_table *htab = elf_hash_table (info);
3933
3934 if (htab->dynsym != NULL
3935 && htab->dynsym->contents != NULL)
3936 {
3937 /* Check relocation against STT_GNU_IFUNC symbol if there are
3938 dynamic symbols. */
3939 unsigned long r_symndx = ELF32_R_SYM (rela->r_info);
3940 if (r_symndx != STN_UNDEF)
3941 {
3942 Elf_Internal_Sym sym;
3943 if (!bed->s->swap_symbol_in (abfd,
3944 (htab->dynsym->contents
3945 + r_symndx * sizeof (Elf32_External_Sym)),
3946 0, &sym))
3947 abort ();
3948
3949 if (ELF32_ST_TYPE (sym.st_info) == STT_GNU_IFUNC)
3950 return reloc_class_ifunc;
3951 }
3952 }
3953
3954 switch (ELF32_R_TYPE (rela->r_info))
3955 {
3956 case R_386_IRELATIVE:
3957 return reloc_class_ifunc;
3958 case R_386_RELATIVE:
3959 return reloc_class_relative;
3960 case R_386_JUMP_SLOT:
3961 return reloc_class_plt;
3962 case R_386_COPY:
3963 return reloc_class_copy;
3964 default:
3965 return reloc_class_normal;
3966 }
3967 }
3968
3969 /* Finish up the dynamic sections. */
3970
3971 static bfd_boolean
3972 elf_i386_finish_dynamic_sections (bfd *output_bfd,
3973 struct bfd_link_info *info)
3974 {
3975 struct elf_x86_link_hash_table *htab;
3976
3977 htab = _bfd_x86_elf_finish_dynamic_sections (output_bfd, info);
3978 if (htab == NULL)
3979 return FALSE;
3980
3981 if (!htab->elf.dynamic_sections_created)
3982 return TRUE;
3983
3984 if (htab->elf.splt && htab->elf.splt->size > 0)
3985 {
3986 /* UnixWare sets the entsize of .plt to 4, although that doesn't
3987 really seem like the right value. */
3988 elf_section_data (htab->elf.splt->output_section)
3989 ->this_hdr.sh_entsize = 4;
3990
3991 if (htab->plt.has_plt0)
3992 {
3993 /* Fill in the special first entry in the procedure linkage
3994 table. */
3995 memcpy (htab->elf.splt->contents, htab->plt.plt0_entry,
3996 htab->lazy_plt->plt0_entry_size);
3997 memset (htab->elf.splt->contents + htab->lazy_plt->plt0_entry_size,
3998 htab->plt0_pad_byte,
3999 htab->plt.plt_entry_size - htab->lazy_plt->plt0_entry_size);
4000 if (!bfd_link_pic (info))
4001 {
4002 bfd_put_32 (output_bfd,
4003 (htab->elf.sgotplt->output_section->vma
4004 + htab->elf.sgotplt->output_offset
4005 + 4),
4006 htab->elf.splt->contents
4007 + htab->lazy_plt->plt0_got1_offset);
4008 bfd_put_32 (output_bfd,
4009 (htab->elf.sgotplt->output_section->vma
4010 + htab->elf.sgotplt->output_offset
4011 + 8),
4012 htab->elf.splt->contents
4013 + htab->lazy_plt->plt0_got2_offset);
4014
4015 if (htab->target_os == is_vxworks)
4016 {
4017 Elf_Internal_Rela rel;
4018 int num_plts = (htab->elf.splt->size
4019 / htab->plt.plt_entry_size) - 1;
4020 unsigned char *p;
4021 asection *srelplt2 = htab->srelplt2;
4022
4023 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_
4024 + 4. On IA32 we use REL relocations so the
4025 addend goes in the PLT directly. */
4026 rel.r_offset = (htab->elf.splt->output_section->vma
4027 + htab->elf.splt->output_offset
4028 + htab->lazy_plt->plt0_got1_offset);
4029 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
4030 R_386_32);
4031 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4032 srelplt2->contents);
4033 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_
4034 + 8. */
4035 rel.r_offset = (htab->elf.splt->output_section->vma
4036 + htab->elf.splt->output_offset
4037 + htab->lazy_plt->plt0_got2_offset);
4038 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
4039 R_386_32);
4040 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4041 srelplt2->contents +
4042 sizeof (Elf32_External_Rel));
4043 /* Correct the .rel.plt.unloaded relocations. */
4044 p = srelplt2->contents;
4045 if (bfd_link_pic (info))
4046 p += PLTRESOLVE_RELOCS_SHLIB * sizeof (Elf32_External_Rel);
4047 else
4048 p += PLTRESOLVE_RELOCS * sizeof (Elf32_External_Rel);
4049
4050 for (; num_plts; num_plts--)
4051 {
4052 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
4053 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
4054 R_386_32);
4055 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4056 p += sizeof (Elf32_External_Rel);
4057
4058 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
4059 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx,
4060 R_386_32);
4061 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4062 p += sizeof (Elf32_External_Rel);
4063 }
4064 }
4065 }
4066 }
4067 }
4068
4069 /* Fill PLT entries for undefined weak symbols in PIE. */
4070 if (bfd_link_pie (info))
4071 bfd_hash_traverse (&info->hash->table,
4072 elf_i386_pie_finish_undefweak_symbol,
4073 info);
4074
4075 return TRUE;
4076 }
4077
4078 /* Fill PLT/GOT entries and allocate dynamic relocations for local
4079 STT_GNU_IFUNC symbols, which aren't in the ELF linker hash table.
4080 It has to be done before elf_link_sort_relocs is called so that
4081 dynamic relocations are properly sorted. */
4082
4083 static bfd_boolean
4084 elf_i386_output_arch_local_syms
4085 (bfd *output_bfd ATTRIBUTE_UNUSED,
4086 struct bfd_link_info *info,
4087 void *flaginfo ATTRIBUTE_UNUSED,
4088 int (*func) (void *, const char *,
4089 Elf_Internal_Sym *,
4090 asection *,
4091 struct elf_link_hash_entry *) ATTRIBUTE_UNUSED)
4092 {
4093 struct elf_x86_link_hash_table *htab
4094 = elf_x86_hash_table (info, I386_ELF_DATA);
4095 if (htab == NULL)
4096 return FALSE;
4097
4098 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
4099 htab_traverse (htab->loc_hash_table,
4100 elf_i386_finish_local_dynamic_symbol,
4101 info);
4102
4103 return TRUE;
4104 }
4105
4106 /* Forward declaration. */
4107 static const struct elf_x86_lazy_plt_layout elf_i386_nacl_plt;
4108
4109 /* Similar to _bfd_elf_get_synthetic_symtab. Support PLTs with all
4110 dynamic relocations. */
4111
4112 static long
4113 elf_i386_get_synthetic_symtab (bfd *abfd,
4114 long symcount ATTRIBUTE_UNUSED,
4115 asymbol **syms ATTRIBUTE_UNUSED,
4116 long dynsymcount,
4117 asymbol **dynsyms,
4118 asymbol **ret)
4119 {
4120 long count, i, n;
4121 int j;
4122 bfd_byte *plt_contents;
4123 long relsize;
4124 const struct elf_x86_lazy_plt_layout *lazy_plt;
4125 const struct elf_x86_non_lazy_plt_layout *non_lazy_plt;
4126 const struct elf_x86_lazy_plt_layout *lazy_ibt_plt;
4127 const struct elf_x86_non_lazy_plt_layout *non_lazy_ibt_plt;
4128 asection *plt;
4129 bfd_vma got_addr;
4130 enum elf_x86_plt_type plt_type;
4131 struct elf_x86_plt plts[] =
4132 {
4133 { ".plt", NULL, NULL, plt_unknown, 0, 0, 0, 0 },
4134 { ".plt.got", NULL, NULL, plt_non_lazy, 0, 0, 0, 0 },
4135 { ".plt.sec", NULL, NULL, plt_second, 0, 0, 0, 0 },
4136 { NULL, NULL, NULL, plt_non_lazy, 0, 0, 0, 0 }
4137 };
4138
4139 *ret = NULL;
4140
4141 if ((abfd->flags & (DYNAMIC | EXEC_P)) == 0)
4142 return 0;
4143
4144 if (dynsymcount <= 0)
4145 return 0;
4146
4147 relsize = bfd_get_dynamic_reloc_upper_bound (abfd);
4148 if (relsize <= 0)
4149 return -1;
4150
4151 non_lazy_plt = NULL;
4152 /* Silence GCC 6. */
4153 lazy_plt = NULL;
4154 non_lazy_ibt_plt = NULL;
4155 lazy_ibt_plt = NULL;
4156 switch (get_elf_x86_backend_data (abfd)->target_os)
4157 {
4158 case is_normal:
4159 case is_solaris:
4160 non_lazy_plt = &elf_i386_non_lazy_plt;
4161 lazy_ibt_plt = &elf_i386_lazy_ibt_plt;
4162 non_lazy_ibt_plt = &elf_i386_non_lazy_ibt_plt;
4163 /* Fall through */
4164 case is_vxworks:
4165 lazy_plt = &elf_i386_lazy_plt;
4166 break;
4167 case is_nacl:
4168 lazy_plt = &elf_i386_nacl_plt;
4169 break;
4170 }
4171
4172 got_addr = 0;
4173
4174 count = 0;
4175 for (j = 0; plts[j].name != NULL; j++)
4176 {
4177 plt = bfd_get_section_by_name (abfd, plts[j].name);
4178 if (plt == NULL || plt->size == 0)
4179 continue;
4180
4181 /* Get the PLT section contents. */
4182 plt_contents = (bfd_byte *) bfd_malloc (plt->size);
4183 if (plt_contents == NULL)
4184 break;
4185 if (!bfd_get_section_contents (abfd, (asection *) plt,
4186 plt_contents, 0, plt->size))
4187 {
4188 free (plt_contents);
4189 break;
4190 }
4191
4192 /* Check what kind of PLT it is. */
4193 plt_type = plt_unknown;
4194 if (plts[j].type == plt_unknown
4195 && (plt->size >= (lazy_plt->plt0_entry_size
4196 + lazy_plt->plt_entry_size)))
4197 {
4198 /* Match lazy PLT first. */
4199 if (memcmp (plt_contents, lazy_plt->plt0_entry,
4200 lazy_plt->plt0_got1_offset) == 0)
4201 {
4202 /* The fist entry in the lazy IBT PLT is the same as the
4203 normal lazy PLT. */
4204 if (lazy_ibt_plt != NULL
4205 && (memcmp (plt_contents + lazy_ibt_plt->plt0_entry_size,
4206 lazy_ibt_plt->plt_entry,
4207 lazy_ibt_plt->plt_got_offset) == 0))
4208 plt_type = plt_lazy | plt_second;
4209 else
4210 plt_type = plt_lazy;
4211 }
4212 else if (memcmp (plt_contents, lazy_plt->pic_plt0_entry,
4213 lazy_plt->plt0_got1_offset) == 0)
4214 {
4215 /* The fist entry in the PIC lazy IBT PLT is the same as
4216 the normal PIC lazy PLT. */
4217 if (lazy_ibt_plt != NULL
4218 && (memcmp (plt_contents + lazy_ibt_plt->plt0_entry_size,
4219 lazy_ibt_plt->pic_plt_entry,
4220 lazy_ibt_plt->plt_got_offset) == 0))
4221 plt_type = plt_lazy | plt_pic | plt_second;
4222 else
4223 plt_type = plt_lazy | plt_pic;
4224 }
4225 }
4226
4227 if (non_lazy_plt != NULL
4228 && (plt_type == plt_unknown || plt_type == plt_non_lazy)
4229 && plt->size >= non_lazy_plt->plt_entry_size)
4230 {
4231 /* Match non-lazy PLT. */
4232 if (memcmp (plt_contents, non_lazy_plt->plt_entry,
4233 non_lazy_plt->plt_got_offset) == 0)
4234 plt_type = plt_non_lazy;
4235 else if (memcmp (plt_contents, non_lazy_plt->pic_plt_entry,
4236 non_lazy_plt->plt_got_offset) == 0)
4237 plt_type = plt_pic;
4238 }
4239
4240 if ((non_lazy_ibt_plt != NULL)
4241 && (plt_type == plt_unknown || plt_type == plt_second)
4242 && plt->size >= non_lazy_ibt_plt->plt_entry_size)
4243 {
4244 if (memcmp (plt_contents,
4245 non_lazy_ibt_plt->plt_entry,
4246 non_lazy_ibt_plt->plt_got_offset) == 0)
4247 {
4248 /* Match IBT PLT. */
4249 plt_type = plt_second;
4250 non_lazy_plt = non_lazy_ibt_plt;
4251 }
4252 else if (memcmp (plt_contents,
4253 non_lazy_ibt_plt->pic_plt_entry,
4254 non_lazy_ibt_plt->plt_got_offset) == 0)
4255 {
4256 /* Match PIC IBT PLT. */
4257 plt_type = plt_second | plt_pic;
4258 non_lazy_plt = non_lazy_ibt_plt;
4259 }
4260 }
4261
4262 if (plt_type == plt_unknown)
4263 {
4264 free (plt_contents);
4265 continue;
4266 }
4267
4268 plts[j].sec = plt;
4269 plts[j].type = plt_type;
4270
4271 if ((plt_type & plt_lazy))
4272 {
4273 plts[j].plt_got_offset = lazy_plt->plt_got_offset;
4274 plts[j].plt_entry_size = lazy_plt->plt_entry_size;
4275 /* Skip PLT0 in lazy PLT. */
4276 i = 1;
4277 }
4278 else
4279 {
4280 plts[j].plt_got_offset = non_lazy_plt->plt_got_offset;
4281 plts[j].plt_entry_size = non_lazy_plt->plt_entry_size;
4282 i = 0;
4283 }
4284
4285 /* Skip lazy PLT when the second PLT is used. */
4286 if ((plt_type & (plt_lazy | plt_second))
4287 == (plt_lazy | plt_second))
4288 plts[j].count = 0;
4289 else
4290 {
4291 n = plt->size / plts[j].plt_entry_size;
4292 plts[j].count = n;
4293 count += n - i;
4294 }
4295
4296 plts[j].contents = plt_contents;
4297
4298 /* The _GLOBAL_OFFSET_TABLE_ address is needed. */
4299 if ((plt_type & plt_pic))
4300 got_addr = (bfd_vma) -1;
4301 }
4302
4303 return _bfd_x86_elf_get_synthetic_symtab (abfd, count, relsize,
4304 got_addr, plts, dynsyms,
4305 ret);
4306 }
4307
4308 /* Set up i386 GNU properties. Return the first relocatable ELF input
4309 with GNU properties if found. Otherwise, return NULL. */
4310
4311 static bfd *
4312 elf_i386_link_setup_gnu_properties (struct bfd_link_info *info)
4313 {
4314 struct elf_x86_init_table init_table;
4315
4316 switch (get_elf_x86_backend_data (info->output_bfd)->target_os)
4317 {
4318 case is_normal:
4319 case is_solaris:
4320 init_table.plt0_pad_byte = 0x0;
4321 init_table.lazy_plt = &elf_i386_lazy_plt;
4322 init_table.non_lazy_plt = &elf_i386_non_lazy_plt;
4323 init_table.lazy_ibt_plt = &elf_i386_lazy_ibt_plt;
4324 init_table.non_lazy_ibt_plt = &elf_i386_non_lazy_ibt_plt;
4325 break;
4326 case is_vxworks:
4327 init_table.plt0_pad_byte = 0x90;
4328 init_table.lazy_plt = &elf_i386_lazy_plt;
4329 init_table.non_lazy_plt = NULL;
4330 init_table.lazy_ibt_plt = NULL;
4331 init_table.non_lazy_ibt_plt = NULL;
4332 break;
4333 case is_nacl:
4334 init_table.plt0_pad_byte = 0x90;
4335 init_table.lazy_plt = &elf_i386_nacl_plt;
4336 init_table.non_lazy_plt = NULL;
4337 init_table.lazy_ibt_plt = NULL;
4338 init_table.non_lazy_ibt_plt = NULL;
4339 break;
4340 }
4341
4342 init_table.r_info = elf32_r_info;
4343 init_table.r_sym = elf32_r_sym;
4344
4345 return _bfd_x86_elf_link_setup_gnu_properties (info, &init_table);
4346 }
4347
4348 #define TARGET_LITTLE_SYM i386_elf32_vec
4349 #define TARGET_LITTLE_NAME "elf32-i386"
4350 #define ELF_ARCH bfd_arch_i386
4351 #define ELF_TARGET_ID I386_ELF_DATA
4352 #define ELF_MACHINE_CODE EM_386
4353 #define ELF_MAXPAGESIZE 0x1000
4354
4355 #define elf_backend_can_gc_sections 1
4356 #define elf_backend_can_refcount 1
4357 #define elf_backend_want_got_plt 1
4358 #define elf_backend_plt_readonly 1
4359 #define elf_backend_want_plt_sym 0
4360 #define elf_backend_got_header_size 12
4361 #define elf_backend_plt_alignment 4
4362 #define elf_backend_dtrel_excludes_plt 1
4363 #define elf_backend_extern_protected_data 1
4364 #define elf_backend_caches_rawsize 1
4365 #define elf_backend_want_dynrelro 1
4366
4367 /* Support RELA for objdump of prelink objects. */
4368 #define elf_info_to_howto elf_i386_info_to_howto_rel
4369 #define elf_info_to_howto_rel elf_i386_info_to_howto_rel
4370
4371 #define bfd_elf32_bfd_is_local_label_name elf_i386_is_local_label_name
4372 #define bfd_elf32_bfd_reloc_type_lookup elf_i386_reloc_type_lookup
4373 #define bfd_elf32_bfd_reloc_name_lookup elf_i386_reloc_name_lookup
4374 #define bfd_elf32_get_synthetic_symtab elf_i386_get_synthetic_symtab
4375
4376 #define elf_backend_relocs_compatible _bfd_elf_relocs_compatible
4377 #define elf_backend_check_relocs elf_i386_check_relocs
4378 #define elf_backend_create_dynamic_sections _bfd_elf_create_dynamic_sections
4379 #define elf_backend_fake_sections elf_i386_fake_sections
4380 #define elf_backend_finish_dynamic_sections elf_i386_finish_dynamic_sections
4381 #define elf_backend_finish_dynamic_symbol elf_i386_finish_dynamic_symbol
4382 #define elf_backend_output_arch_local_syms elf_i386_output_arch_local_syms
4383 #define elf_backend_grok_prstatus elf_i386_grok_prstatus
4384 #define elf_backend_grok_psinfo elf_i386_grok_psinfo
4385 #define elf_backend_reloc_type_class elf_i386_reloc_type_class
4386 #define elf_backend_relocate_section elf_i386_relocate_section
4387 #define elf_backend_setup_gnu_properties elf_i386_link_setup_gnu_properties
4388 #define elf_backend_hide_symbol _bfd_x86_elf_hide_symbol
4389
4390 #define elf_backend_linux_prpsinfo32_ugid16 TRUE
4391
4392 #define elf32_bed elf32_i386_bed
4393
4394 #include "elf32-target.h"
4395
4396 /* FreeBSD support. */
4397
4398 #undef TARGET_LITTLE_SYM
4399 #define TARGET_LITTLE_SYM i386_elf32_fbsd_vec
4400 #undef TARGET_LITTLE_NAME
4401 #define TARGET_LITTLE_NAME "elf32-i386-freebsd"
4402 #undef ELF_OSABI
4403 #define ELF_OSABI ELFOSABI_FREEBSD
4404
4405 /* The kernel recognizes executables as valid only if they carry a
4406 "FreeBSD" label in the ELF header. So we put this label on all
4407 executables and (for simplicity) also all other object files. */
4408
4409 static void
4410 elf_i386_fbsd_post_process_headers (bfd *abfd, struct bfd_link_info *info)
4411 {
4412 _bfd_elf_post_process_headers (abfd, info);
4413
4414 #ifdef OLD_FREEBSD_ABI_LABEL
4415 {
4416 /* The ABI label supported by FreeBSD <= 4.0 is quite nonstandard. */
4417 Elf_Internal_Ehdr *i_ehdrp = elf_elfheader (abfd);
4418 memcpy (&i_ehdrp->e_ident[EI_ABIVERSION], "FreeBSD", 8);
4419 }
4420 #endif
4421 }
4422
4423 #undef elf_backend_post_process_headers
4424 #define elf_backend_post_process_headers elf_i386_fbsd_post_process_headers
4425 #undef elf32_bed
4426 #define elf32_bed elf32_i386_fbsd_bed
4427
4428 #undef elf_backend_add_symbol_hook
4429
4430 #include "elf32-target.h"
4431
4432 /* Solaris 2. */
4433
4434 #undef TARGET_LITTLE_SYM
4435 #define TARGET_LITTLE_SYM i386_elf32_sol2_vec
4436 #undef TARGET_LITTLE_NAME
4437 #define TARGET_LITTLE_NAME "elf32-i386-sol2"
4438
4439 static const struct elf_x86_backend_data elf_i386_solaris_arch_bed =
4440 {
4441 is_solaris /* os */
4442 };
4443
4444 #undef elf_backend_arch_data
4445 #define elf_backend_arch_data &elf_i386_solaris_arch_bed
4446
4447 #undef elf_backend_post_process_headers
4448
4449 /* Restore default: we cannot use ELFOSABI_SOLARIS, otherwise ELFOSABI_NONE
4450 objects won't be recognized. */
4451 #undef ELF_OSABI
4452
4453 #undef elf32_bed
4454 #define elf32_bed elf32_i386_sol2_bed
4455
4456 /* The 32-bit static TLS arena size is rounded to the nearest 8-byte
4457 boundary. */
4458 #undef elf_backend_static_tls_alignment
4459 #define elf_backend_static_tls_alignment 8
4460
4461 /* The Solaris 2 ABI requires a plt symbol on all platforms.
4462
4463 Cf. Linker and Libraries Guide, Ch. 2, Link-Editor, Generating the Output
4464 File, p.63. */
4465 #undef elf_backend_want_plt_sym
4466 #define elf_backend_want_plt_sym 1
4467
4468 #undef elf_backend_strtab_flags
4469 #define elf_backend_strtab_flags SHF_STRINGS
4470
4471 /* Called to set the sh_flags, sh_link and sh_info fields of OSECTION which
4472 has a type >= SHT_LOOS. Returns TRUE if these fields were initialised
4473 FALSE otherwise. ISECTION is the best guess matching section from the
4474 input bfd IBFD, but it might be NULL. */
4475
4476 static bfd_boolean
4477 elf32_i386_copy_solaris_special_section_fields (const bfd *ibfd ATTRIBUTE_UNUSED,
4478 bfd *obfd ATTRIBUTE_UNUSED,
4479 const Elf_Internal_Shdr *isection ATTRIBUTE_UNUSED,
4480 Elf_Internal_Shdr *osection ATTRIBUTE_UNUSED)
4481 {
4482 /* PR 19938: FIXME: Need to add code for setting the sh_info
4483 and sh_link fields of Solaris specific section types. */
4484 return FALSE;
4485
4486 /* Based upon Oracle Solaris 11.3 Linkers and Libraries Guide, Ch. 13,
4487 Object File Format, Table 13-9 ELF sh_link and sh_info Interpretation:
4488
4489 http://docs.oracle.com/cd/E53394_01/html/E54813/chapter6-94076.html#scrolltoc
4490
4491 The following values should be set:
4492
4493 Type Link Info
4494 -----------------------------------------------------------------------------
4495 SHT_SUNW_ancillary The section header index of 0
4496 [0x6fffffee] the associated string table.
4497
4498 SHT_SUNW_capinfo The section header index of For a dynamic object, the
4499 [0x6ffffff0] the associated symbol table. section header index of
4500 the associated
4501 SHT_SUNW_capchain table,
4502 otherwise 0.
4503
4504 SHT_SUNW_symsort The section header index of 0
4505 [0x6ffffff1] the associated symbol table.
4506
4507 SHT_SUNW_tlssort The section header index of 0
4508 [0x6ffffff2] the associated symbol table.
4509
4510 SHT_SUNW_LDYNSYM The section header index of One greater than the
4511 [0x6ffffff3] the associated string table. symbol table index of the
4512 This index is the same string last local symbol,
4513 table used by the SHT_DYNSYM STB_LOCAL. Since
4514 section. SHT_SUNW_LDYNSYM only
4515 contains local symbols,
4516 sh_info is equivalent to
4517 the number of symbols in
4518 the table.
4519
4520 SHT_SUNW_cap If symbol capabilities exist, If any capabilities refer
4521 [0x6ffffff5] the section header index of to named strings, the
4522 the associated section header index of
4523 SHT_SUNW_capinfo table, the associated string
4524 otherwise 0. table, otherwise 0.
4525
4526 SHT_SUNW_move The section header index of 0
4527 [0x6ffffffa] the associated symbol table.
4528
4529 SHT_SUNW_COMDAT 0 0
4530 [0x6ffffffb]
4531
4532 SHT_SUNW_syminfo The section header index of The section header index
4533 [0x6ffffffc] the associated symbol table. of the associated
4534 .dynamic section.
4535
4536 SHT_SUNW_verdef The section header index of The number of version
4537 [0x6ffffffd] the associated string table. definitions within the
4538 section.
4539
4540 SHT_SUNW_verneed The section header index of The number of version
4541 [0x6ffffffe] the associated string table. dependencies within the
4542 section.
4543
4544 SHT_SUNW_versym The section header index of 0
4545 [0x6fffffff] the associated symbol table. */
4546 }
4547
4548 #undef elf_backend_copy_special_section_fields
4549 #define elf_backend_copy_special_section_fields elf32_i386_copy_solaris_special_section_fields
4550
4551 #include "elf32-target.h"
4552
4553 /* Intel MCU support. */
4554
4555 static bfd_boolean
4556 elf32_iamcu_elf_object_p (bfd *abfd)
4557 {
4558 /* Set the right machine number for an IAMCU elf32 file. */
4559 bfd_default_set_arch_mach (abfd, bfd_arch_iamcu, bfd_mach_i386_iamcu);
4560 return TRUE;
4561 }
4562
4563 #undef TARGET_LITTLE_SYM
4564 #define TARGET_LITTLE_SYM iamcu_elf32_vec
4565 #undef TARGET_LITTLE_NAME
4566 #define TARGET_LITTLE_NAME "elf32-iamcu"
4567 #undef ELF_ARCH
4568 #define ELF_ARCH bfd_arch_iamcu
4569
4570 #undef ELF_MACHINE_CODE
4571 #define ELF_MACHINE_CODE EM_IAMCU
4572
4573 #undef elf_backend_arch_data
4574 #define elf_backend_arch_data &elf_i386_arch_bed
4575
4576 #undef ELF_OSABI
4577
4578 #undef elf32_bed
4579 #define elf32_bed elf32_iamcu_bed
4580
4581 #undef elf_backend_object_p
4582 #define elf_backend_object_p elf32_iamcu_elf_object_p
4583
4584 #undef elf_backend_static_tls_alignment
4585
4586 #undef elf_backend_want_plt_sym
4587 #define elf_backend_want_plt_sym 0
4588
4589 #undef elf_backend_strtab_flags
4590 #undef elf_backend_copy_special_section_fields
4591
4592 #include "elf32-target.h"
4593
4594 /* Restore defaults. */
4595 #undef ELF_ARCH
4596 #define ELF_ARCH bfd_arch_i386
4597 #undef ELF_MACHINE_CODE
4598 #define ELF_MACHINE_CODE EM_386
4599
4600 /* Native Client support. */
4601
4602 #undef TARGET_LITTLE_SYM
4603 #define TARGET_LITTLE_SYM i386_elf32_nacl_vec
4604 #undef TARGET_LITTLE_NAME
4605 #define TARGET_LITTLE_NAME "elf32-i386-nacl"
4606 #undef elf32_bed
4607 #define elf32_bed elf32_i386_nacl_bed
4608
4609 #undef ELF_MAXPAGESIZE
4610 #define ELF_MAXPAGESIZE 0x10000
4611
4612 /* Restore defaults. */
4613 #undef ELF_OSABI
4614 #undef elf_backend_want_plt_sym
4615 #define elf_backend_want_plt_sym 0
4616 #undef elf_backend_post_process_headers
4617 #undef elf_backend_static_tls_alignment
4618
4619 /* NaCl uses substantially different PLT entries for the same effects. */
4620
4621 #undef elf_backend_plt_alignment
4622 #define elf_backend_plt_alignment 5
4623 #define NACL_PLT_ENTRY_SIZE 64
4624 #define NACLMASK 0xe0 /* 32-byte alignment mask. */
4625
4626 static const bfd_byte elf_i386_nacl_plt0_entry[] =
4627 {
4628 0xff, 0x35, /* pushl contents of address */
4629 0, 0, 0, 0, /* replaced with address of .got + 4. */
4630 0x8b, 0x0d, /* movl contents of address, %ecx */
4631 0, 0, 0, 0, /* replaced with address of .got + 8. */
4632 0x83, 0xe1, NACLMASK, /* andl $NACLMASK, %ecx */
4633 0xff, 0xe1 /* jmp *%ecx */
4634 };
4635
4636 static const bfd_byte elf_i386_nacl_plt_entry[NACL_PLT_ENTRY_SIZE] =
4637 {
4638 0x8b, 0x0d, /* movl contents of address, %ecx */
4639 0, 0, 0, 0, /* replaced with GOT slot address. */
4640 0x83, 0xe1, NACLMASK, /* andl $NACLMASK, %ecx */
4641 0xff, 0xe1, /* jmp *%ecx */
4642
4643 /* Pad to the next 32-byte boundary with nop instructions. */
4644 0x90,
4645 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4646 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4647
4648 /* Lazy GOT entries point here (32-byte aligned). */
4649 0x68, /* pushl immediate */
4650 0, 0, 0, 0, /* replaced with reloc offset. */
4651 0xe9, /* jmp relative */
4652 0, 0, 0, 0, /* replaced with offset to .plt. */
4653
4654 /* Pad to the next 32-byte boundary with nop instructions. */
4655 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4656 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4657 0x90, 0x90
4658 };
4659
4660 static const bfd_byte
4661 elf_i386_nacl_pic_plt0_entry[sizeof (elf_i386_nacl_plt0_entry)] =
4662 {
4663 0xff, 0x73, 0x04, /* pushl 4(%ebx) */
4664 0x8b, 0x4b, 0x08, /* mov 0x8(%ebx), %ecx */
4665 0x83, 0xe1, 0xe0, /* and $NACLMASK, %ecx */
4666 0xff, 0xe1, /* jmp *%ecx */
4667
4668 /* This is expected to be the same size as elf_i386_nacl_plt0_entry,
4669 so pad to that size with nop instructions. */
4670 0x90, 0x90, 0x90, 0x90, 0x90, 0x90
4671 };
4672
4673 static const bfd_byte elf_i386_nacl_pic_plt_entry[NACL_PLT_ENTRY_SIZE] =
4674 {
4675 0x8b, 0x8b, /* movl offset(%ebx), %ecx */
4676 0, 0, 0, 0, /* replaced with offset of this symbol in .got. */
4677 0x83, 0xe1, 0xe0, /* andl $NACLMASK, %ecx */
4678 0xff, 0xe1, /* jmp *%ecx */
4679
4680 /* Pad to the next 32-byte boundary with nop instructions. */
4681 0x90,
4682 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4683 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4684
4685 /* Lazy GOT entries point here (32-byte aligned). */
4686 0x68, /* pushl immediate */
4687 0, 0, 0, 0, /* replaced with offset into relocation table. */
4688 0xe9, /* jmp relative */
4689 0, 0, 0, 0, /* replaced with offset to start of .plt. */
4690
4691 /* Pad to the next 32-byte boundary with nop instructions. */
4692 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4693 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4694 0x90, 0x90
4695 };
4696
4697 static const bfd_byte elf_i386_nacl_eh_frame_plt[] =
4698 {
4699 #if (PLT_CIE_LENGTH != 20 \
4700 || PLT_FDE_LENGTH != 36 \
4701 || PLT_FDE_START_OFFSET != 4 + PLT_CIE_LENGTH + 8 \
4702 || PLT_FDE_LEN_OFFSET != 4 + PLT_CIE_LENGTH + 12)
4703 # error "Need elf_x86_backend_data parameters for eh_frame_plt offsets!"
4704 #endif
4705 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
4706 0, 0, 0, 0, /* CIE ID */
4707 1, /* CIE version */
4708 'z', 'R', 0, /* Augmentation string */
4709 1, /* Code alignment factor */
4710 0x7c, /* Data alignment factor: -4 */
4711 8, /* Return address column */
4712 1, /* Augmentation size */
4713 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
4714 DW_CFA_def_cfa, 4, 4, /* DW_CFA_def_cfa: r4 (esp) ofs 4 */
4715 DW_CFA_offset + 8, 1, /* DW_CFA_offset: r8 (eip) at cfa-4 */
4716 DW_CFA_nop, DW_CFA_nop,
4717
4718 PLT_FDE_LENGTH, 0, 0, 0, /* FDE length */
4719 PLT_CIE_LENGTH + 8, 0, 0, 0, /* CIE pointer */
4720 0, 0, 0, 0, /* R_386_PC32 .plt goes here */
4721 0, 0, 0, 0, /* .plt size goes here */
4722 0, /* Augmentation size */
4723 DW_CFA_def_cfa_offset, 8, /* DW_CFA_def_cfa_offset: 8 */
4724 DW_CFA_advance_loc + 6, /* DW_CFA_advance_loc: 6 to __PLT__+6 */
4725 DW_CFA_def_cfa_offset, 12, /* DW_CFA_def_cfa_offset: 12 */
4726 DW_CFA_advance_loc + 58, /* DW_CFA_advance_loc: 58 to __PLT__+64 */
4727 DW_CFA_def_cfa_expression, /* DW_CFA_def_cfa_expression */
4728 13, /* Block length */
4729 DW_OP_breg4, 4, /* DW_OP_breg4 (esp): 4 */
4730 DW_OP_breg8, 0, /* DW_OP_breg8 (eip): 0 */
4731 DW_OP_const1u, 63, DW_OP_and, DW_OP_const1u, 37, DW_OP_ge,
4732 DW_OP_lit2, DW_OP_shl, DW_OP_plus,
4733 DW_CFA_nop, DW_CFA_nop
4734 };
4735
4736 static const struct elf_x86_lazy_plt_layout elf_i386_nacl_plt =
4737 {
4738 elf_i386_nacl_plt0_entry, /* plt0_entry */
4739 sizeof (elf_i386_nacl_plt0_entry), /* plt0_entry_size */
4740 elf_i386_nacl_plt_entry, /* plt_entry */
4741 NACL_PLT_ENTRY_SIZE, /* plt_entry_size */
4742 NULL, /* plt_tlsdesc_entry */
4743 0, /* plt_tlsdesc_entry_size*/
4744 0, /* plt_tlsdesc_got1_offset */
4745 0, /* plt_tlsdesc_got2_offset */
4746 0, /* plt_tlsdesc_got1_insn_end */
4747 0, /* plt_tlsdesc_got2_insn_end */
4748 2, /* plt0_got1_offset */
4749 8, /* plt0_got2_offset */
4750 0, /* plt0_got2_insn_end */
4751 2, /* plt_got_offset */
4752 33, /* plt_reloc_offset */
4753 38, /* plt_plt_offset */
4754 0, /* plt_got_insn_size */
4755 0, /* plt_plt_insn_end */
4756 32, /* plt_lazy_offset */
4757 elf_i386_nacl_pic_plt0_entry, /* pic_plt0_entry */
4758 elf_i386_nacl_pic_plt_entry, /* pic_plt_entry */
4759 elf_i386_nacl_eh_frame_plt, /* eh_frame_plt */
4760 sizeof (elf_i386_nacl_eh_frame_plt) /* eh_frame_plt_size */
4761 };
4762
4763 static const struct elf_x86_backend_data elf_i386_nacl_arch_bed =
4764 {
4765 is_nacl /* os */
4766 };
4767
4768 static bfd_boolean
4769 elf32_i386_nacl_elf_object_p (bfd *abfd)
4770 {
4771 /* Set the right machine number for a NaCl i386 ELF32 file. */
4772 bfd_default_set_arch_mach (abfd, bfd_arch_i386, bfd_mach_i386_i386_nacl);
4773 return TRUE;
4774 }
4775
4776 #undef elf_backend_arch_data
4777 #define elf_backend_arch_data &elf_i386_nacl_arch_bed
4778
4779 #undef elf_backend_object_p
4780 #define elf_backend_object_p elf32_i386_nacl_elf_object_p
4781 #undef elf_backend_modify_segment_map
4782 #define elf_backend_modify_segment_map nacl_modify_segment_map
4783 #undef elf_backend_modify_program_headers
4784 #define elf_backend_modify_program_headers nacl_modify_program_headers
4785 #undef elf_backend_final_write_processing
4786 #define elf_backend_final_write_processing nacl_final_write_processing
4787
4788 #include "elf32-target.h"
4789
4790 /* Restore defaults. */
4791 #undef elf_backend_object_p
4792 #undef elf_backend_modify_segment_map
4793 #undef elf_backend_modify_program_headers
4794 #undef elf_backend_final_write_processing
4795
4796 /* VxWorks support. */
4797
4798 #undef TARGET_LITTLE_SYM
4799 #define TARGET_LITTLE_SYM i386_elf32_vxworks_vec
4800 #undef TARGET_LITTLE_NAME
4801 #define TARGET_LITTLE_NAME "elf32-i386-vxworks"
4802 #undef ELF_OSABI
4803 #undef ELF_MAXPAGESIZE
4804 #define ELF_MAXPAGESIZE 0x1000
4805 #undef elf_backend_plt_alignment
4806 #define elf_backend_plt_alignment 4
4807
4808 static const struct elf_x86_backend_data elf_i386_vxworks_arch_bed =
4809 {
4810 is_vxworks /* os */
4811 };
4812
4813 #undef elf_backend_arch_data
4814 #define elf_backend_arch_data &elf_i386_vxworks_arch_bed
4815
4816 #undef elf_backend_relocs_compatible
4817 #undef elf_backend_add_symbol_hook
4818 #define elf_backend_add_symbol_hook \
4819 elf_vxworks_add_symbol_hook
4820 #undef elf_backend_link_output_symbol_hook
4821 #define elf_backend_link_output_symbol_hook \
4822 elf_vxworks_link_output_symbol_hook
4823 #undef elf_backend_emit_relocs
4824 #define elf_backend_emit_relocs elf_vxworks_emit_relocs
4825 #undef elf_backend_final_write_processing
4826 #define elf_backend_final_write_processing \
4827 elf_vxworks_final_write_processing
4828 #undef elf_backend_static_tls_alignment
4829
4830 /* On VxWorks, we emit relocations against _PROCEDURE_LINKAGE_TABLE_, so
4831 define it. */
4832 #undef elf_backend_want_plt_sym
4833 #define elf_backend_want_plt_sym 1
4834
4835 #undef elf32_bed
4836 #define elf32_bed elf32_i386_vxworks_bed
4837
4838 #include "elf32-target.h"
A mirror of the official binutils-gdb repository