?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
[PATCH 46/57][Arm][OBJDUMP] Add support for MVE instructions: vmovl, vmull, vqdmull...
[binutils-gdb.git] / bfd / elf32-i386.c
blobd2ea5a729e22e97f090d5f26a654f9d907938a09
1 /* Intel 80386/80486-specific support for 32-bit ELF
2 Copyright (C) 1993-2019 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 (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 (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 (from_type);
1155 to = elf_i386_rtype_to_howto (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 = htab->params->call_nop_byte;
1347 if (htab->params->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 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_offset))
1912 goto error_return;
1913 break;
1914
1915 default:
1916 break;
1917 }
1918 }
1919
1920 if (elf_section_data (sec)->this_hdr.contents != contents)
1921 {
1922 if (!converted && !info->keep_memory)
1923 free (contents);
1924 else
1925 {
1926 /* Cache the section contents for elf_link_input_bfd if any
1927 load is converted or --no-keep-memory isn't used. */
1928 elf_section_data (sec)->this_hdr.contents = contents;
1929 }
1930 }
1931
1932 /* Cache relocations if any load is converted. */
1933 if (elf_section_data (sec)->relocs != relocs && converted)
1934 elf_section_data (sec)->relocs = (Elf_Internal_Rela *) relocs;
1935
1936 return TRUE;
1937
1938 error_return:
1939 if (elf_section_data (sec)->this_hdr.contents != contents)
1940 free (contents);
1941 sec->check_relocs_failed = 1;
1942 return FALSE;
1943 }
1944
1945 /* Set the correct type for an x86 ELF section. We do this by the
1946 section name, which is a hack, but ought to work. */
1947
1948 static bfd_boolean
1949 elf_i386_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
1950 Elf_Internal_Shdr *hdr,
1951 asection *sec)
1952 {
1953 const char *name;
1954
1955 name = bfd_get_section_name (abfd, sec);
1956
1957 /* This is an ugly, but unfortunately necessary hack that is
1958 needed when producing EFI binaries on x86. It tells
1959 elf.c:elf_fake_sections() not to consider ".reloc" as a section
1960 containing ELF relocation info. We need this hack in order to
1961 be able to generate ELF binaries that can be translated into
1962 EFI applications (which are essentially COFF objects). Those
1963 files contain a COFF ".reloc" section inside an ELFNN object,
1964 which would normally cause BFD to segfault because it would
1965 attempt to interpret this section as containing relocation
1966 entries for section "oc". With this hack enabled, ".reloc"
1967 will be treated as a normal data section, which will avoid the
1968 segfault. However, you won't be able to create an ELFNN binary
1969 with a section named "oc" that needs relocations, but that's
1970 the kind of ugly side-effects you get when detecting section
1971 types based on their names... In practice, this limitation is
1972 unlikely to bite. */
1973 if (strcmp (name, ".reloc") == 0)
1974 hdr->sh_type = SHT_PROGBITS;
1975
1976 return TRUE;
1977 }
1978
1979 /* Return the relocation value for @tpoff relocation
1980 if STT_TLS virtual address is ADDRESS. */
1981
1982 static bfd_vma
1983 elf_i386_tpoff (struct bfd_link_info *info, bfd_vma address)
1984 {
1985 struct elf_link_hash_table *htab = elf_hash_table (info);
1986 const struct elf_backend_data *bed = get_elf_backend_data (info->output_bfd);
1987 bfd_vma static_tls_size;
1988
1989 /* If tls_sec is NULL, we should have signalled an error already. */
1990 if (htab->tls_sec == NULL)
1991 return 0;
1992
1993 /* Consider special static TLS alignment requirements. */
1994 static_tls_size = BFD_ALIGN (htab->tls_size, bed->static_tls_alignment);
1995 return static_tls_size + htab->tls_sec->vma - address;
1996 }
1997
1998 /* Relocate an i386 ELF section. */
1999
2000 static bfd_boolean
2001 elf_i386_relocate_section (bfd *output_bfd,
2002 struct bfd_link_info *info,
2003 bfd *input_bfd,
2004 asection *input_section,
2005 bfd_byte *contents,
2006 Elf_Internal_Rela *relocs,
2007 Elf_Internal_Sym *local_syms,
2008 asection **local_sections)
2009 {
2010 struct elf_x86_link_hash_table *htab;
2011 Elf_Internal_Shdr *symtab_hdr;
2012 struct elf_link_hash_entry **sym_hashes;
2013 bfd_vma *local_got_offsets;
2014 bfd_vma *local_tlsdesc_gotents;
2015 Elf_Internal_Rela *rel;
2016 Elf_Internal_Rela *wrel;
2017 Elf_Internal_Rela *relend;
2018 bfd_boolean is_vxworks_tls;
2019 unsigned plt_entry_size;
2020
2021 /* Skip if check_relocs failed. */
2022 if (input_section->check_relocs_failed)
2023 return FALSE;
2024
2025 htab = elf_x86_hash_table (info, I386_ELF_DATA);
2026 if (htab == NULL)
2027 return FALSE;
2028
2029 if (!is_x86_elf (input_bfd, htab))
2030 {
2031 bfd_set_error (bfd_error_wrong_format);
2032 return FALSE;
2033 }
2034
2035 symtab_hdr = &elf_symtab_hdr (input_bfd);
2036 sym_hashes = elf_sym_hashes (input_bfd);
2037 local_got_offsets = elf_local_got_offsets (input_bfd);
2038 local_tlsdesc_gotents = elf_x86_local_tlsdesc_gotent (input_bfd);
2039 /* We have to handle relocations in vxworks .tls_vars sections
2040 specially, because the dynamic loader is 'weird'. */
2041 is_vxworks_tls = (htab->target_os == is_vxworks
2042 && bfd_link_pic (info)
2043 && !strcmp (input_section->output_section->name,
2044 ".tls_vars"));
2045
2046 _bfd_x86_elf_set_tls_module_base (info);
2047
2048 plt_entry_size = htab->plt.plt_entry_size;
2049
2050 rel = wrel = relocs;
2051 relend = relocs + input_section->reloc_count;
2052 for (; rel < relend; wrel++, rel++)
2053 {
2054 unsigned int r_type, r_type_tls;
2055 reloc_howto_type *howto;
2056 unsigned long r_symndx;
2057 struct elf_link_hash_entry *h;
2058 struct elf_x86_link_hash_entry *eh;
2059 Elf_Internal_Sym *sym;
2060 asection *sec;
2061 bfd_vma off, offplt, plt_offset;
2062 bfd_vma relocation;
2063 bfd_boolean unresolved_reloc;
2064 bfd_reloc_status_type r;
2065 unsigned int indx;
2066 int tls_type;
2067 bfd_vma st_size;
2068 asection *resolved_plt;
2069 bfd_boolean resolved_to_zero;
2070 bfd_boolean relative_reloc;
2071
2072 r_type = ELF32_R_TYPE (rel->r_info);
2073 if (r_type == R_386_GNU_VTINHERIT
2074 || r_type == R_386_GNU_VTENTRY)
2075 {
2076 if (wrel != rel)
2077 *wrel = *rel;
2078 continue;
2079 }
2080
2081 howto = elf_i386_rtype_to_howto (r_type);
2082 if (howto == NULL)
2083 return _bfd_unrecognized_reloc (input_bfd, input_section, r_type);
2084
2085 r_symndx = ELF32_R_SYM (rel->r_info);
2086 h = NULL;
2087 sym = NULL;
2088 sec = NULL;
2089 unresolved_reloc = FALSE;
2090 if (r_symndx < symtab_hdr->sh_info)
2091 {
2092 sym = local_syms + r_symndx;
2093 sec = local_sections[r_symndx];
2094 relocation = (sec->output_section->vma
2095 + sec->output_offset
2096 + sym->st_value);
2097 st_size = sym->st_size;
2098
2099 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION
2100 && ((sec->flags & SEC_MERGE) != 0
2101 || (bfd_link_relocatable (info)
2102 && sec->output_offset != 0)))
2103 {
2104 bfd_vma addend;
2105 bfd_byte *where = contents + rel->r_offset;
2106
2107 switch (howto->size)
2108 {
2109 case 0:
2110 addend = bfd_get_8 (input_bfd, where);
2111 if (howto->pc_relative)
2112 {
2113 addend = (addend ^ 0x80) - 0x80;
2114 addend += 1;
2115 }
2116 break;
2117 case 1:
2118 addend = bfd_get_16 (input_bfd, where);
2119 if (howto->pc_relative)
2120 {
2121 addend = (addend ^ 0x8000) - 0x8000;
2122 addend += 2;
2123 }
2124 break;
2125 case 2:
2126 addend = bfd_get_32 (input_bfd, where);
2127 if (howto->pc_relative)
2128 {
2129 addend = (addend ^ 0x80000000) - 0x80000000;
2130 addend += 4;
2131 }
2132 break;
2133 default:
2134 abort ();
2135 }
2136
2137 if (bfd_link_relocatable (info))
2138 addend += sec->output_offset;
2139 else
2140 {
2141 asection *msec = sec;
2142 addend = _bfd_elf_rel_local_sym (output_bfd, sym, &msec,
2143 addend);
2144 addend -= relocation;
2145 addend += msec->output_section->vma + msec->output_offset;
2146 }
2147
2148 switch (howto->size)
2149 {
2150 case 0:
2151 /* FIXME: overflow checks. */
2152 if (howto->pc_relative)
2153 addend -= 1;
2154 bfd_put_8 (input_bfd, addend, where);
2155 break;
2156 case 1:
2157 if (howto->pc_relative)
2158 addend -= 2;
2159 bfd_put_16 (input_bfd, addend, where);
2160 break;
2161 case 2:
2162 if (howto->pc_relative)
2163 addend -= 4;
2164 bfd_put_32 (input_bfd, addend, where);
2165 break;
2166 }
2167 }
2168 else if (!bfd_link_relocatable (info)
2169 && ELF32_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
2170 {
2171 /* Relocate against local STT_GNU_IFUNC symbol. */
2172 h = _bfd_elf_x86_get_local_sym_hash (htab, input_bfd, rel,
2173 FALSE);
2174 if (h == NULL)
2175 abort ();
2176
2177 /* Set STT_GNU_IFUNC symbol value. */
2178 h->root.u.def.value = sym->st_value;
2179 h->root.u.def.section = sec;
2180 }
2181 }
2182 else
2183 {
2184 bfd_boolean warned ATTRIBUTE_UNUSED;
2185 bfd_boolean ignored ATTRIBUTE_UNUSED;
2186
2187 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2188 r_symndx, symtab_hdr, sym_hashes,
2189 h, sec, relocation,
2190 unresolved_reloc, warned, ignored);
2191 st_size = h->size;
2192 }
2193
2194 if (sec != NULL && discarded_section (sec))
2195 {
2196 _bfd_clear_contents (howto, input_bfd, input_section,
2197 contents, rel->r_offset);
2198 wrel->r_offset = rel->r_offset;
2199 wrel->r_info = 0;
2200 wrel->r_addend = 0;
2201
2202 /* For ld -r, remove relocations in debug sections against
2203 sections defined in discarded sections. Not done for
2204 eh_frame editing code expects to be present. */
2205 if (bfd_link_relocatable (info)
2206 && (input_section->flags & SEC_DEBUGGING))
2207 wrel--;
2208
2209 continue;
2210 }
2211
2212 if (bfd_link_relocatable (info))
2213 {
2214 if (wrel != rel)
2215 *wrel = *rel;
2216 continue;
2217 }
2218
2219 eh = (struct elf_x86_link_hash_entry *) h;
2220
2221 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
2222 it here if it is defined in a non-shared object. */
2223 if (h != NULL
2224 && h->type == STT_GNU_IFUNC
2225 && h->def_regular)
2226 {
2227 asection *gotplt, *base_got;
2228 bfd_vma plt_index;
2229 const char *name;
2230
2231 if ((input_section->flags & SEC_ALLOC) == 0)
2232 {
2233 /* If this is a SHT_NOTE section without SHF_ALLOC, treat
2234 STT_GNU_IFUNC symbol as STT_FUNC. */
2235 if (elf_section_type (input_section) == SHT_NOTE)
2236 goto skip_ifunc;
2237 /* Dynamic relocs are not propagated for SEC_DEBUGGING
2238 sections because such sections are not SEC_ALLOC and
2239 thus ld.so will not process them. */
2240 if ((input_section->flags & SEC_DEBUGGING) != 0)
2241 continue;
2242 abort ();
2243 }
2244
2245 /* STT_GNU_IFUNC symbol must go through PLT. */
2246 if (htab->elf.splt != NULL)
2247 {
2248 if (htab->plt_second != NULL)
2249 {
2250 resolved_plt = htab->plt_second;
2251 plt_offset = eh->plt_second.offset;
2252 }
2253 else
2254 {
2255 resolved_plt = htab->elf.splt;
2256 plt_offset = h->plt.offset;
2257 }
2258 gotplt = htab->elf.sgotplt;
2259 }
2260 else
2261 {
2262 resolved_plt = htab->elf.iplt;
2263 plt_offset = h->plt.offset;
2264 gotplt = htab->elf.igotplt;
2265 }
2266
2267 switch (r_type)
2268 {
2269 default:
2270 break;
2271
2272 case R_386_GOT32:
2273 case R_386_GOT32X:
2274 base_got = htab->elf.sgot;
2275 off = h->got.offset;
2276
2277 if (base_got == NULL)
2278 abort ();
2279
2280 if (off == (bfd_vma) -1)
2281 {
2282 /* We can't use h->got.offset here to save state, or
2283 even just remember the offset, as finish_dynamic_symbol
2284 would use that as offset into .got. */
2285
2286 if (h->plt.offset == (bfd_vma) -1)
2287 abort ();
2288
2289 if (htab->elf.splt != NULL)
2290 {
2291 plt_index = (h->plt.offset / plt_entry_size
2292 - htab->plt.has_plt0);
2293 off = (plt_index + 3) * 4;
2294 base_got = htab->elf.sgotplt;
2295 }
2296 else
2297 {
2298 plt_index = h->plt.offset / plt_entry_size;
2299 off = plt_index * 4;
2300 base_got = htab->elf.igotplt;
2301 }
2302
2303 if (h->dynindx == -1
2304 || h->forced_local
2305 || info->symbolic)
2306 {
2307 /* This references the local defitionion. We must
2308 initialize this entry in the global offset table.
2309 Since the offset must always be a multiple of 8,
2310 we use the least significant bit to record
2311 whether we have initialized it already.
2312
2313 When doing a dynamic link, we create a .rela.got
2314 relocation entry to initialize the value. This
2315 is done in the finish_dynamic_symbol routine. */
2316 if ((off & 1) != 0)
2317 off &= ~1;
2318 else
2319 {
2320 bfd_put_32 (output_bfd, relocation,
2321 base_got->contents + off);
2322 h->got.offset |= 1;
2323 }
2324 }
2325
2326 relocation = off;
2327 }
2328 else
2329 relocation = (base_got->output_section->vma
2330 + base_got->output_offset + off
2331 - gotplt->output_section->vma
2332 - gotplt->output_offset);
2333
2334 if (rel->r_offset > 1
2335 && (*(contents + rel->r_offset - 1) & 0xc7) == 0x5
2336 && *(contents + rel->r_offset - 2) != 0x8d)
2337 {
2338 if (bfd_link_pic (info))
2339 goto disallow_got32;
2340
2341 /* Add the GOT base if there is no base register. */
2342 relocation += (gotplt->output_section->vma
2343 + gotplt->output_offset);
2344 }
2345 else if (htab->elf.splt == NULL)
2346 {
2347 /* Adjust for static executables. */
2348 relocation += gotplt->output_offset;
2349 }
2350
2351 goto do_relocation;
2352 }
2353
2354 if (h->plt.offset == (bfd_vma) -1)
2355 {
2356 /* Handle static pointers of STT_GNU_IFUNC symbols. */
2357 if (r_type == R_386_32
2358 && (input_section->flags & SEC_CODE) == 0)
2359 goto do_ifunc_pointer;
2360 goto bad_ifunc_reloc;
2361 }
2362
2363 relocation = (resolved_plt->output_section->vma
2364 + resolved_plt->output_offset + plt_offset);
2365
2366 switch (r_type)
2367 {
2368 default:
2369 bad_ifunc_reloc:
2370 if (h->root.root.string)
2371 name = h->root.root.string;
2372 else
2373 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
2374 NULL);
2375 _bfd_error_handler
2376 /* xgettext:c-format */
2377 (_("%pB: relocation %s against STT_GNU_IFUNC "
2378 "symbol `%s' isn't supported"), input_bfd,
2379 howto->name, name);
2380 bfd_set_error (bfd_error_bad_value);
2381 return FALSE;
2382
2383 case R_386_32:
2384 /* Generate dynamic relcoation only when there is a
2385 non-GOT reference in a shared object. */
2386 if ((bfd_link_pic (info) && h->non_got_ref)
2387 || h->plt.offset == (bfd_vma) -1)
2388 {
2389 Elf_Internal_Rela outrel;
2390 asection *sreloc;
2391 bfd_vma offset;
2392
2393 do_ifunc_pointer:
2394 /* Need a dynamic relocation to get the real function
2395 adddress. */
2396 offset = _bfd_elf_section_offset (output_bfd,
2397 info,
2398 input_section,
2399 rel->r_offset);
2400 if (offset == (bfd_vma) -1
2401 || offset == (bfd_vma) -2)
2402 abort ();
2403
2404 outrel.r_offset = (input_section->output_section->vma
2405 + input_section->output_offset
2406 + offset);
2407
2408 if (POINTER_LOCAL_IFUNC_P (info, h))
2409 {
2410 info->callbacks->minfo (_("Local IFUNC function `%s' in %pB\n"),
2411 h->root.root.string,
2412 h->root.u.def.section->owner);
2413
2414 /* This symbol is resolved locally. */
2415 outrel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
2416 bfd_put_32 (output_bfd,
2417 (h->root.u.def.value
2418 + h->root.u.def.section->output_section->vma
2419 + h->root.u.def.section->output_offset),
2420 contents + offset);
2421 }
2422 else
2423 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
2424
2425 /* Dynamic relocations are stored in
2426 1. .rel.ifunc section in PIC object.
2427 2. .rel.got section in dynamic executable.
2428 3. .rel.iplt section in static executable. */
2429 if (bfd_link_pic (info))
2430 sreloc = htab->elf.irelifunc;
2431 else if (htab->elf.splt != NULL)
2432 sreloc = htab->elf.srelgot;
2433 else
2434 sreloc = htab->elf.irelplt;
2435 elf_append_rel (output_bfd, sreloc, &outrel);
2436
2437 /* If this reloc is against an external symbol, we
2438 do not want to fiddle with the addend. Otherwise,
2439 we need to include the symbol value so that it
2440 becomes an addend for the dynamic reloc. For an
2441 internal symbol, we have updated addend. */
2442 continue;
2443 }
2444 /* FALLTHROUGH */
2445 case R_386_PC32:
2446 case R_386_PLT32:
2447 goto do_relocation;
2448
2449 case R_386_GOTOFF:
2450 relocation -= (gotplt->output_section->vma
2451 + gotplt->output_offset);
2452 goto do_relocation;
2453 }
2454 }
2455
2456 skip_ifunc:
2457 resolved_to_zero = (eh != NULL
2458 && UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh));
2459
2460 switch (r_type)
2461 {
2462 case R_386_GOT32X:
2463 case R_386_GOT32:
2464 /* Relocation is to the entry for this symbol in the global
2465 offset table. */
2466 if (htab->elf.sgot == NULL)
2467 abort ();
2468
2469 relative_reloc = FALSE;
2470 if (h != NULL)
2471 {
2472 off = h->got.offset;
2473 if (RESOLVED_LOCALLY_P (info, h, htab))
2474 {
2475 /* We must initialize this entry in the global offset
2476 table. Since the offset must always be a multiple
2477 of 4, we use the least significant bit to record
2478 whether we have initialized it already.
2479
2480 When doing a dynamic link, we create a .rel.got
2481 relocation entry to initialize the value. This
2482 is done in the finish_dynamic_symbol routine. */
2483 if ((off & 1) != 0)
2484 off &= ~1;
2485 else
2486 {
2487 bfd_put_32 (output_bfd, relocation,
2488 htab->elf.sgot->contents + off);
2489 h->got.offset |= 1;
2490
2491 if (GENERATE_RELATIVE_RELOC_P (info, h))
2492 {
2493 /* PR ld/21402: If this symbol isn't dynamic
2494 in PIC, generate R_386_RELATIVE here. */
2495 eh->no_finish_dynamic_symbol = 1;
2496 relative_reloc = TRUE;
2497 }
2498 }
2499 }
2500 else
2501 unresolved_reloc = FALSE;
2502 }
2503 else
2504 {
2505 if (local_got_offsets == NULL)
2506 abort ();
2507
2508 off = local_got_offsets[r_symndx];
2509
2510 /* The offset must always be a multiple of 4. We use
2511 the least significant bit to record whether we have
2512 already generated the necessary reloc. */
2513 if ((off & 1) != 0)
2514 off &= ~1;
2515 else
2516 {
2517 bfd_put_32 (output_bfd, relocation,
2518 htab->elf.sgot->contents + off);
2519 local_got_offsets[r_symndx] |= 1;
2520
2521 if (bfd_link_pic (info))
2522 relative_reloc = TRUE;
2523 }
2524 }
2525
2526 if (relative_reloc)
2527 {
2528 asection *s;
2529 Elf_Internal_Rela outrel;
2530
2531 s = htab->elf.srelgot;
2532 if (s == NULL)
2533 abort ();
2534
2535 outrel.r_offset = (htab->elf.sgot->output_section->vma
2536 + htab->elf.sgot->output_offset
2537 + off);
2538 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
2539 elf_append_rel (output_bfd, s, &outrel);
2540 }
2541
2542 if (off >= (bfd_vma) -2)
2543 abort ();
2544
2545 relocation = (htab->elf.sgot->output_section->vma
2546 + htab->elf.sgot->output_offset + off);
2547 if (rel->r_offset > 1
2548 && (*(contents + rel->r_offset - 1) & 0xc7) == 0x5
2549 && *(contents + rel->r_offset - 2) != 0x8d)
2550 {
2551 if (bfd_link_pic (info))
2552 {
2553 /* For PIC, disallow R_386_GOT32 without a base
2554 register, except for "lea foo@GOT, %reg", since
2555 we don't know what the GOT base is. */
2556 const char *name;
2557
2558 disallow_got32:
2559 if (h == NULL || h->root.root.string == NULL)
2560 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
2561 NULL);
2562 else
2563 name = h->root.root.string;
2564
2565 _bfd_error_handler
2566 /* xgettext:c-format */
2567 (_("%pB: direct GOT relocation %s against `%s'"
2568 " without base register can not be used"
2569 " when making a shared object"),
2570 input_bfd, howto->name, name);
2571 bfd_set_error (bfd_error_bad_value);
2572 return FALSE;
2573 }
2574 }
2575 else
2576 {
2577 /* Subtract the .got.plt section address only with a base
2578 register. */
2579 relocation -= (htab->elf.sgotplt->output_section->vma
2580 + htab->elf.sgotplt->output_offset);
2581 }
2582
2583 break;
2584
2585 case R_386_GOTOFF:
2586 /* Relocation is relative to the start of the global offset
2587 table. */
2588
2589 /* Check to make sure it isn't a protected function or data
2590 symbol for shared library since it may not be local when
2591 used as function address or with copy relocation. We also
2592 need to make sure that a symbol is referenced locally. */
2593 if (!bfd_link_executable (info) && h)
2594 {
2595 if (!h->def_regular)
2596 {
2597 const char *v;
2598
2599 switch (ELF_ST_VISIBILITY (h->other))
2600 {
2601 case STV_HIDDEN:
2602 v = _("hidden symbol");
2603 break;
2604 case STV_INTERNAL:
2605 v = _("internal symbol");
2606 break;
2607 case STV_PROTECTED:
2608 v = _("protected symbol");
2609 break;
2610 default:
2611 v = _("symbol");
2612 break;
2613 }
2614
2615 _bfd_error_handler
2616 /* xgettext:c-format */
2617 (_("%pB: relocation R_386_GOTOFF against undefined %s"
2618 " `%s' can not be used when making a shared object"),
2619 input_bfd, v, h->root.root.string);
2620 bfd_set_error (bfd_error_bad_value);
2621 return FALSE;
2622 }
2623 else if (!SYMBOL_REFERENCES_LOCAL_P (info, h)
2624 && (h->type == STT_FUNC
2625 || h->type == STT_OBJECT)
2626 && ELF_ST_VISIBILITY (h->other) == STV_PROTECTED)
2627 {
2628 _bfd_error_handler
2629 /* xgettext:c-format */
2630 (_("%pB: relocation R_386_GOTOFF against protected %s"
2631 " `%s' can not be used when making a shared object"),
2632 input_bfd,
2633 h->type == STT_FUNC ? "function" : "data",
2634 h->root.root.string);
2635 bfd_set_error (bfd_error_bad_value);
2636 return FALSE;
2637 }
2638 }
2639
2640 /* Note that sgot is not involved in this
2641 calculation. We always want the start of .got.plt. If we
2642 defined _GLOBAL_OFFSET_TABLE_ in a different way, as is
2643 permitted by the ABI, we might have to change this
2644 calculation. */
2645 relocation -= htab->elf.sgotplt->output_section->vma
2646 + htab->elf.sgotplt->output_offset;
2647 break;
2648
2649 case R_386_GOTPC:
2650 /* Use global offset table as symbol value. */
2651 relocation = htab->elf.sgotplt->output_section->vma
2652 + htab->elf.sgotplt->output_offset;
2653 unresolved_reloc = FALSE;
2654 break;
2655
2656 case R_386_PLT32:
2657 /* Relocation is to the entry for this symbol in the
2658 procedure linkage table. */
2659
2660 /* Resolve a PLT32 reloc against a local symbol directly,
2661 without using the procedure linkage table. */
2662 if (h == NULL)
2663 break;
2664
2665 if ((h->plt.offset == (bfd_vma) -1
2666 && eh->plt_got.offset == (bfd_vma) -1)
2667 || htab->elf.splt == NULL)
2668 {
2669 /* We didn't make a PLT entry for this symbol. This
2670 happens when statically linking PIC code, or when
2671 using -Bsymbolic. */
2672 break;
2673 }
2674
2675 if (h->plt.offset != (bfd_vma) -1)
2676 {
2677 if (htab->plt_second != NULL)
2678 {
2679 resolved_plt = htab->plt_second;
2680 plt_offset = eh->plt_second.offset;
2681 }
2682 else
2683 {
2684 resolved_plt = htab->elf.splt;
2685 plt_offset = h->plt.offset;
2686 }
2687 }
2688 else
2689 {
2690 resolved_plt = htab->plt_got;
2691 plt_offset = eh->plt_got.offset;
2692 }
2693
2694 relocation = (resolved_plt->output_section->vma
2695 + resolved_plt->output_offset
2696 + plt_offset);
2697 unresolved_reloc = FALSE;
2698 break;
2699
2700 case R_386_SIZE32:
2701 /* Set to symbol size. */
2702 relocation = st_size;
2703 /* Fall through. */
2704
2705 case R_386_32:
2706 case R_386_PC32:
2707 if ((input_section->flags & SEC_ALLOC) == 0
2708 || is_vxworks_tls)
2709 break;
2710
2711 if (GENERATE_DYNAMIC_RELOCATION_P (info, eh, r_type,
2712 FALSE, resolved_to_zero,
2713 (r_type == R_386_PC32)))
2714 {
2715 Elf_Internal_Rela outrel;
2716 bfd_boolean skip, relocate;
2717 asection *sreloc;
2718
2719 /* When generating a shared object, these relocations
2720 are copied into the output file to be resolved at run
2721 time. */
2722
2723 skip = FALSE;
2724 relocate = FALSE;
2725
2726 outrel.r_offset =
2727 _bfd_elf_section_offset (output_bfd, info, input_section,
2728 rel->r_offset);
2729 if (outrel.r_offset == (bfd_vma) -1)
2730 skip = TRUE;
2731 else if (outrel.r_offset == (bfd_vma) -2)
2732 skip = TRUE, relocate = TRUE;
2733 outrel.r_offset += (input_section->output_section->vma
2734 + input_section->output_offset);
2735
2736 if (skip)
2737 memset (&outrel, 0, sizeof outrel);
2738 else if (COPY_INPUT_RELOC_P (info, h, r_type))
2739 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
2740 else
2741 {
2742 /* This symbol is local, or marked to become local. */
2743 relocate = TRUE;
2744 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
2745 }
2746
2747 sreloc = elf_section_data (input_section)->sreloc;
2748
2749 if (sreloc == NULL || sreloc->contents == NULL)
2750 {
2751 r = bfd_reloc_notsupported;
2752 goto check_relocation_error;
2753 }
2754
2755 elf_append_rel (output_bfd, sreloc, &outrel);
2756
2757 /* If this reloc is against an external symbol, we do
2758 not want to fiddle with the addend. Otherwise, we
2759 need to include the symbol value so that it becomes
2760 an addend for the dynamic reloc. */
2761 if (! relocate)
2762 continue;
2763 }
2764 break;
2765
2766 case R_386_TLS_IE:
2767 if (!bfd_link_executable (info))
2768 {
2769 Elf_Internal_Rela outrel;
2770 asection *sreloc;
2771
2772 outrel.r_offset = rel->r_offset
2773 + input_section->output_section->vma
2774 + input_section->output_offset;
2775 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
2776 sreloc = elf_section_data (input_section)->sreloc;
2777 if (sreloc == NULL)
2778 abort ();
2779 elf_append_rel (output_bfd, sreloc, &outrel);
2780 }
2781 /* Fall through */
2782
2783 case R_386_TLS_GD:
2784 case R_386_TLS_GOTDESC:
2785 case R_386_TLS_DESC_CALL:
2786 case R_386_TLS_IE_32:
2787 case R_386_TLS_GOTIE:
2788 tls_type = GOT_UNKNOWN;
2789 if (h == NULL && local_got_offsets)
2790 tls_type = elf_x86_local_got_tls_type (input_bfd) [r_symndx];
2791 else if (h != NULL)
2792 tls_type = elf_x86_hash_entry(h)->tls_type;
2793 if (tls_type == GOT_TLS_IE)
2794 tls_type = GOT_TLS_IE_NEG;
2795
2796 r_type_tls = r_type;
2797 if (! elf_i386_tls_transition (info, input_bfd,
2798 input_section, contents,
2799 symtab_hdr, sym_hashes,
2800 &r_type_tls, tls_type, rel,
2801 relend, h, r_symndx, TRUE))
2802 return FALSE;
2803
2804 if (r_type_tls == R_386_TLS_LE_32)
2805 {
2806 BFD_ASSERT (! unresolved_reloc);
2807 if (r_type == R_386_TLS_GD)
2808 {
2809 unsigned int type;
2810 bfd_vma roff;
2811
2812 /* GD->LE transition. */
2813 type = *(contents + rel->r_offset - 2);
2814 if (type == 0x04)
2815 {
2816 /* Change
2817 leal foo@tlsgd(,%ebx,1), %eax
2818 call ___tls_get_addr@PLT
2819 into:
2820 movl %gs:0, %eax
2821 subl $foo@tpoff, %eax
2822 (6 byte form of subl). */
2823 roff = rel->r_offset + 5;
2824 }
2825 else
2826 {
2827 /* Change
2828 leal foo@tlsgd(%ebx), %eax
2829 call ___tls_get_addr@PLT
2830 nop
2831 or
2832 leal foo@tlsgd(%reg), %eax
2833 call *___tls_get_addr@GOT(%reg)
2834 which may be converted to
2835 addr32 call ___tls_get_addr
2836 into:
2837 movl %gs:0, %eax; subl $foo@tpoff, %eax
2838 (6 byte form of subl). */
2839 roff = rel->r_offset + 6;
2840 }
2841 memcpy (contents + roff - 8,
2842 "\x65\xa1\0\0\0\0\x81\xe8\0\0\0", 12);
2843 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
2844 contents + roff);
2845 /* Skip R_386_PC32, R_386_PLT32 and R_386_GOT32X. */
2846 rel++;
2847 wrel++;
2848 continue;
2849 }
2850 else if (r_type == R_386_TLS_GOTDESC)
2851 {
2852 /* GDesc -> LE transition.
2853 It's originally something like:
2854 leal x@tlsdesc(%ebx), %eax
2855
2856 leal x@ntpoff, %eax
2857
2858 Registers other than %eax may be set up here. */
2859
2860 unsigned int val;
2861 bfd_vma roff;
2862
2863 roff = rel->r_offset;
2864 val = bfd_get_8 (input_bfd, contents + roff - 1);
2865
2866 /* Now modify the instruction as appropriate. */
2867 /* aoliva FIXME: remove the above and xor the byte
2868 below with 0x86. */
2869 bfd_put_8 (output_bfd, val ^ 0x86,
2870 contents + roff - 1);
2871 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
2872 contents + roff);
2873 continue;
2874 }
2875 else if (r_type == R_386_TLS_DESC_CALL)
2876 {
2877 /* GDesc -> LE transition.
2878 It's originally:
2879 call *(%eax)
2880 Turn it into:
2881 xchg %ax,%ax */
2882
2883 bfd_vma roff;
2884
2885 roff = rel->r_offset;
2886 bfd_put_8 (output_bfd, 0x66, contents + roff);
2887 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
2888 continue;
2889 }
2890 else if (r_type == R_386_TLS_IE)
2891 {
2892 unsigned int val;
2893
2894 /* IE->LE transition:
2895 Originally it can be one of:
2896 movl foo, %eax
2897 movl foo, %reg
2898 addl foo, %reg
2899 We change it into:
2900 movl $foo, %eax
2901 movl $foo, %reg
2902 addl $foo, %reg. */
2903 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
2904 if (val == 0xa1)
2905 {
2906 /* movl foo, %eax. */
2907 bfd_put_8 (output_bfd, 0xb8,
2908 contents + rel->r_offset - 1);
2909 }
2910 else
2911 {
2912 unsigned int type;
2913
2914 type = bfd_get_8 (input_bfd,
2915 contents + rel->r_offset - 2);
2916 switch (type)
2917 {
2918 case 0x8b:
2919 /* movl */
2920 bfd_put_8 (output_bfd, 0xc7,
2921 contents + rel->r_offset - 2);
2922 bfd_put_8 (output_bfd,
2923 0xc0 | ((val >> 3) & 7),
2924 contents + rel->r_offset - 1);
2925 break;
2926 case 0x03:
2927 /* addl */
2928 bfd_put_8 (output_bfd, 0x81,
2929 contents + rel->r_offset - 2);
2930 bfd_put_8 (output_bfd,
2931 0xc0 | ((val >> 3) & 7),
2932 contents + rel->r_offset - 1);
2933 break;
2934 default:
2935 BFD_FAIL ();
2936 break;
2937 }
2938 }
2939 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
2940 contents + rel->r_offset);
2941 continue;
2942 }
2943 else
2944 {
2945 unsigned int val, type;
2946
2947 /* {IE_32,GOTIE}->LE transition:
2948 Originally it can be one of:
2949 subl foo(%reg1), %reg2
2950 movl foo(%reg1), %reg2
2951 addl foo(%reg1), %reg2
2952 We change it into:
2953 subl $foo, %reg2
2954 movl $foo, %reg2 (6 byte form)
2955 addl $foo, %reg2. */
2956 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
2957 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
2958 if (type == 0x8b)
2959 {
2960 /* movl */
2961 bfd_put_8 (output_bfd, 0xc7,
2962 contents + rel->r_offset - 2);
2963 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
2964 contents + rel->r_offset - 1);
2965 }
2966 else if (type == 0x2b)
2967 {
2968 /* subl */
2969 bfd_put_8 (output_bfd, 0x81,
2970 contents + rel->r_offset - 2);
2971 bfd_put_8 (output_bfd, 0xe8 | ((val >> 3) & 7),
2972 contents + rel->r_offset - 1);
2973 }
2974 else if (type == 0x03)
2975 {
2976 /* addl */
2977 bfd_put_8 (output_bfd, 0x81,
2978 contents + rel->r_offset - 2);
2979 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
2980 contents + rel->r_offset - 1);
2981 }
2982 else
2983 BFD_FAIL ();
2984 if (r_type == R_386_TLS_GOTIE)
2985 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
2986 contents + rel->r_offset);
2987 else
2988 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
2989 contents + rel->r_offset);
2990 continue;
2991 }
2992 }
2993
2994 if (htab->elf.sgot == NULL)
2995 abort ();
2996
2997 if (h != NULL)
2998 {
2999 off = h->got.offset;
3000 offplt = elf_x86_hash_entry (h)->tlsdesc_got;
3001 }
3002 else
3003 {
3004 if (local_got_offsets == NULL)
3005 abort ();
3006
3007 off = local_got_offsets[r_symndx];
3008 offplt = local_tlsdesc_gotents[r_symndx];
3009 }
3010
3011 if ((off & 1) != 0)
3012 off &= ~1;
3013 else
3014 {
3015 Elf_Internal_Rela outrel;
3016 int dr_type;
3017 asection *sreloc;
3018
3019 if (htab->elf.srelgot == NULL)
3020 abort ();
3021
3022 indx = h && h->dynindx != -1 ? h->dynindx : 0;
3023
3024 if (GOT_TLS_GDESC_P (tls_type))
3025 {
3026 bfd_byte *loc;
3027 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_DESC);
3028 BFD_ASSERT (htab->sgotplt_jump_table_size + offplt + 8
3029 <= htab->elf.sgotplt->size);
3030 outrel.r_offset = (htab->elf.sgotplt->output_section->vma
3031 + htab->elf.sgotplt->output_offset
3032 + offplt
3033 + htab->sgotplt_jump_table_size);
3034 sreloc = htab->elf.srelplt;
3035 loc = sreloc->contents;
3036 loc += (htab->next_tls_desc_index++
3037 * sizeof (Elf32_External_Rel));
3038 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
3039 <= sreloc->contents + sreloc->size);
3040 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3041 if (indx == 0)
3042 {
3043 BFD_ASSERT (! unresolved_reloc);
3044 bfd_put_32 (output_bfd,
3045 relocation - _bfd_x86_elf_dtpoff_base (info),
3046 htab->elf.sgotplt->contents + offplt
3047 + htab->sgotplt_jump_table_size + 4);
3048 }
3049 else
3050 {
3051 bfd_put_32 (output_bfd, 0,
3052 htab->elf.sgotplt->contents + offplt
3053 + htab->sgotplt_jump_table_size + 4);
3054 }
3055 }
3056
3057 sreloc = htab->elf.srelgot;
3058
3059 outrel.r_offset = (htab->elf.sgot->output_section->vma
3060 + htab->elf.sgot->output_offset + off);
3061
3062 if (GOT_TLS_GD_P (tls_type))
3063 dr_type = R_386_TLS_DTPMOD32;
3064 else if (GOT_TLS_GDESC_P (tls_type))
3065 goto dr_done;
3066 else if (tls_type == GOT_TLS_IE_POS)
3067 dr_type = R_386_TLS_TPOFF;
3068 else
3069 dr_type = R_386_TLS_TPOFF32;
3070
3071 if (dr_type == R_386_TLS_TPOFF && indx == 0)
3072 bfd_put_32 (output_bfd,
3073 relocation - _bfd_x86_elf_dtpoff_base (info),
3074 htab->elf.sgot->contents + off);
3075 else if (dr_type == R_386_TLS_TPOFF32 && indx == 0)
3076 bfd_put_32 (output_bfd,
3077 _bfd_x86_elf_dtpoff_base (info) - relocation,
3078 htab->elf.sgot->contents + off);
3079 else if (dr_type != R_386_TLS_DESC)
3080 bfd_put_32 (output_bfd, 0,
3081 htab->elf.sgot->contents + off);
3082 outrel.r_info = ELF32_R_INFO (indx, dr_type);
3083
3084 elf_append_rel (output_bfd, sreloc, &outrel);
3085
3086 if (GOT_TLS_GD_P (tls_type))
3087 {
3088 if (indx == 0)
3089 {
3090 BFD_ASSERT (! unresolved_reloc);
3091 bfd_put_32 (output_bfd,
3092 relocation - _bfd_x86_elf_dtpoff_base (info),
3093 htab->elf.sgot->contents + off + 4);
3094 }
3095 else
3096 {
3097 bfd_put_32 (output_bfd, 0,
3098 htab->elf.sgot->contents + off + 4);
3099 outrel.r_info = ELF32_R_INFO (indx,
3100 R_386_TLS_DTPOFF32);
3101 outrel.r_offset += 4;
3102 elf_append_rel (output_bfd, sreloc, &outrel);
3103 }
3104 }
3105 else if (tls_type == GOT_TLS_IE_BOTH)
3106 {
3107 bfd_put_32 (output_bfd,
3108 (indx == 0
3109 ? relocation - _bfd_x86_elf_dtpoff_base (info)
3110 : 0),
3111 htab->elf.sgot->contents + off + 4);
3112 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF);
3113 outrel.r_offset += 4;
3114 elf_append_rel (output_bfd, sreloc, &outrel);
3115 }
3116
3117 dr_done:
3118 if (h != NULL)
3119 h->got.offset |= 1;
3120 else
3121 local_got_offsets[r_symndx] |= 1;
3122 }
3123
3124 if (off >= (bfd_vma) -2
3125 && ! GOT_TLS_GDESC_P (tls_type))
3126 abort ();
3127 if (r_type_tls == R_386_TLS_GOTDESC
3128 || r_type_tls == R_386_TLS_DESC_CALL)
3129 {
3130 relocation = htab->sgotplt_jump_table_size + offplt;
3131 unresolved_reloc = FALSE;
3132 }
3133 else if (r_type_tls == r_type)
3134 {
3135 bfd_vma g_o_t = htab->elf.sgotplt->output_section->vma
3136 + htab->elf.sgotplt->output_offset;
3137 relocation = htab->elf.sgot->output_section->vma
3138 + htab->elf.sgot->output_offset + off - g_o_t;
3139 if ((r_type == R_386_TLS_IE || r_type == R_386_TLS_GOTIE)
3140 && tls_type == GOT_TLS_IE_BOTH)
3141 relocation += 4;
3142 if (r_type == R_386_TLS_IE)
3143 relocation += g_o_t;
3144 unresolved_reloc = FALSE;
3145 }
3146 else if (r_type == R_386_TLS_GD)
3147 {
3148 unsigned int val, type;
3149 bfd_vma roff;
3150
3151 /* GD->IE transition. */
3152 type = *(contents + rel->r_offset - 2);
3153 val = *(contents + rel->r_offset - 1);
3154 if (type == 0x04)
3155 {
3156 /* Change
3157 leal foo@tlsgd(,%ebx,1), %eax
3158 call ___tls_get_addr@PLT
3159 into:
3160 movl %gs:0, %eax
3161 subl $foo@gottpoff(%ebx), %eax. */
3162 val >>= 3;
3163 roff = rel->r_offset - 3;
3164 }
3165 else
3166 {
3167 /* Change
3168 leal foo@tlsgd(%ebx), %eax
3169 call ___tls_get_addr@PLT
3170 nop
3171 or
3172 leal foo@tlsgd(%reg), %eax
3173 call *___tls_get_addr@GOT(%reg)
3174 which may be converted to
3175 addr32 call ___tls_get_addr
3176 into:
3177 movl %gs:0, %eax;
3178 subl $foo@gottpoff(%reg), %eax. */
3179 roff = rel->r_offset - 2;
3180 }
3181 memcpy (contents + roff,
3182 "\x65\xa1\0\0\0\0\x2b\x80\0\0\0", 12);
3183 contents[roff + 7] = 0x80 | (val & 7);
3184 /* If foo is used only with foo@gotntpoff(%reg) and
3185 foo@indntpoff, but not with foo@gottpoff(%reg), change
3186 subl $foo@gottpoff(%reg), %eax
3187 into:
3188 addl $foo@gotntpoff(%reg), %eax. */
3189 if (tls_type == GOT_TLS_IE_POS)
3190 contents[roff + 6] = 0x03;
3191 bfd_put_32 (output_bfd,
3192 htab->elf.sgot->output_section->vma
3193 + htab->elf.sgot->output_offset + off
3194 - htab->elf.sgotplt->output_section->vma
3195 - htab->elf.sgotplt->output_offset,
3196 contents + roff + 8);
3197 /* Skip R_386_PLT32 and R_386_GOT32X. */
3198 rel++;
3199 wrel++;
3200 continue;
3201 }
3202 else if (r_type == R_386_TLS_GOTDESC)
3203 {
3204 /* GDesc -> IE transition.
3205 It's originally something like:
3206 leal x@tlsdesc(%ebx), %eax
3207
3208 Change it to:
3209 movl x@gotntpoff(%ebx), %eax # before xchg %ax,%ax
3210 or:
3211 movl x@gottpoff(%ebx), %eax # before negl %eax
3212
3213 Registers other than %eax may be set up here. */
3214
3215 bfd_vma roff;
3216
3217 /* First, make sure it's a leal adding ebx to a 32-bit
3218 offset into any register, although it's probably
3219 almost always going to be eax. */
3220 roff = rel->r_offset;
3221
3222 /* Now modify the instruction as appropriate. */
3223 /* To turn a leal into a movl in the form we use it, it
3224 suffices to change the first byte from 0x8d to 0x8b.
3225 aoliva FIXME: should we decide to keep the leal, all
3226 we have to do is remove the statement below, and
3227 adjust the relaxation of R_386_TLS_DESC_CALL. */
3228 bfd_put_8 (output_bfd, 0x8b, contents + roff - 2);
3229
3230 if (tls_type == GOT_TLS_IE_BOTH)
3231 off += 4;
3232
3233 bfd_put_32 (output_bfd,
3234 htab->elf.sgot->output_section->vma
3235 + htab->elf.sgot->output_offset + off
3236 - htab->elf.sgotplt->output_section->vma
3237 - htab->elf.sgotplt->output_offset,
3238 contents + roff);
3239 continue;
3240 }
3241 else if (r_type == R_386_TLS_DESC_CALL)
3242 {
3243 /* GDesc -> IE transition.
3244 It's originally:
3245 call *(%eax)
3246
3247 Change it to:
3248 xchg %ax,%ax
3249 or
3250 negl %eax
3251 depending on how we transformed the TLS_GOTDESC above.
3252 */
3253
3254 bfd_vma roff;
3255
3256 roff = rel->r_offset;
3257
3258 /* Now modify the instruction as appropriate. */
3259 if (tls_type != GOT_TLS_IE_NEG)
3260 {
3261 /* xchg %ax,%ax */
3262 bfd_put_8 (output_bfd, 0x66, contents + roff);
3263 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
3264 }
3265 else
3266 {
3267 /* negl %eax */
3268 bfd_put_8 (output_bfd, 0xf7, contents + roff);
3269 bfd_put_8 (output_bfd, 0xd8, contents + roff + 1);
3270 }
3271
3272 continue;
3273 }
3274 else
3275 BFD_ASSERT (FALSE);
3276 break;
3277
3278 case R_386_TLS_LDM:
3279 if (! elf_i386_tls_transition (info, input_bfd,
3280 input_section, contents,
3281 symtab_hdr, sym_hashes,
3282 &r_type, GOT_UNKNOWN, rel,
3283 relend, h, r_symndx, TRUE))
3284 return FALSE;
3285
3286 if (r_type != R_386_TLS_LDM)
3287 {
3288 /* LD->LE transition. Change
3289 leal foo@tlsldm(%ebx) %eax
3290 call ___tls_get_addr@PLT
3291 into:
3292 movl %gs:0, %eax
3293 nop
3294 leal 0(%esi,1), %esi
3295 or change
3296 leal foo@tlsldm(%reg) %eax
3297 call *___tls_get_addr@GOT(%reg)
3298 which may be converted to
3299 addr32 call ___tls_get_addr
3300 into:
3301 movl %gs:0, %eax
3302 leal 0(%esi), %esi */
3303 BFD_ASSERT (r_type == R_386_TLS_LE_32);
3304 if (*(contents + rel->r_offset + 4) == 0xff
3305 || *(contents + rel->r_offset + 4) == 0x67)
3306 memcpy (contents + rel->r_offset - 2,
3307 "\x65\xa1\0\0\0\0\x8d\xb6\0\0\0", 12);
3308 else
3309 memcpy (contents + rel->r_offset - 2,
3310 "\x65\xa1\0\0\0\0\x90\x8d\x74\x26", 11);
3311 /* Skip R_386_PC32/R_386_PLT32. */
3312 rel++;
3313 wrel++;
3314 continue;
3315 }
3316
3317 if (htab->elf.sgot == NULL)
3318 abort ();
3319
3320 off = htab->tls_ld_or_ldm_got.offset;
3321 if (off & 1)
3322 off &= ~1;
3323 else
3324 {
3325 Elf_Internal_Rela outrel;
3326
3327 if (htab->elf.srelgot == NULL)
3328 abort ();
3329
3330 outrel.r_offset = (htab->elf.sgot->output_section->vma
3331 + htab->elf.sgot->output_offset + off);
3332
3333 bfd_put_32 (output_bfd, 0,
3334 htab->elf.sgot->contents + off);
3335 bfd_put_32 (output_bfd, 0,
3336 htab->elf.sgot->contents + off + 4);
3337 outrel.r_info = ELF32_R_INFO (0, R_386_TLS_DTPMOD32);
3338 elf_append_rel (output_bfd, htab->elf.srelgot, &outrel);
3339 htab->tls_ld_or_ldm_got.offset |= 1;
3340 }
3341 relocation = htab->elf.sgot->output_section->vma
3342 + htab->elf.sgot->output_offset + off
3343 - htab->elf.sgotplt->output_section->vma
3344 - htab->elf.sgotplt->output_offset;
3345 unresolved_reloc = FALSE;
3346 break;
3347
3348 case R_386_TLS_LDO_32:
3349 if (!bfd_link_executable (info)
3350 || (input_section->flags & SEC_CODE) == 0)
3351 relocation -= _bfd_x86_elf_dtpoff_base (info);
3352 else
3353 /* When converting LDO to LE, we must negate. */
3354 relocation = -elf_i386_tpoff (info, relocation);
3355 break;
3356
3357 case R_386_TLS_LE_32:
3358 case R_386_TLS_LE:
3359 if (!bfd_link_executable (info))
3360 {
3361 Elf_Internal_Rela outrel;
3362 asection *sreloc;
3363
3364 outrel.r_offset = rel->r_offset
3365 + input_section->output_section->vma
3366 + input_section->output_offset;
3367 if (h != NULL && h->dynindx != -1)
3368 indx = h->dynindx;
3369 else
3370 indx = 0;
3371 if (r_type == R_386_TLS_LE_32)
3372 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF32);
3373 else
3374 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF);
3375 sreloc = elf_section_data (input_section)->sreloc;
3376 if (sreloc == NULL)
3377 abort ();
3378 elf_append_rel (output_bfd, sreloc, &outrel);
3379 if (indx)
3380 continue;
3381 else if (r_type == R_386_TLS_LE_32)
3382 relocation = _bfd_x86_elf_dtpoff_base (info) - relocation;
3383 else
3384 relocation -= _bfd_x86_elf_dtpoff_base (info);
3385 }
3386 else if (r_type == R_386_TLS_LE_32)
3387 relocation = elf_i386_tpoff (info, relocation);
3388 else
3389 relocation = -elf_i386_tpoff (info, relocation);
3390 break;
3391
3392 default:
3393 break;
3394 }
3395
3396 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3397 because such sections are not SEC_ALLOC and thus ld.so will
3398 not process them. */
3399 if (unresolved_reloc
3400 && !((input_section->flags & SEC_DEBUGGING) != 0
3401 && h->def_dynamic)
3402 && _bfd_elf_section_offset (output_bfd, info, input_section,
3403 rel->r_offset) != (bfd_vma) -1)
3404 {
3405 _bfd_error_handler
3406 /* xgettext:c-format */
3407 (_("%pB(%pA+%#" PRIx64 "): unresolvable %s relocation against symbol `%s'"),
3408 input_bfd,
3409 input_section,
3410 (uint64_t) rel->r_offset,
3411 howto->name,
3412 h->root.root.string);
3413 return FALSE;
3414 }
3415
3416 do_relocation:
3417 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3418 contents, rel->r_offset,
3419 relocation, 0);
3420
3421 check_relocation_error:
3422 if (r != bfd_reloc_ok)
3423 {
3424 const char *name;
3425
3426 if (h != NULL)
3427 name = h->root.root.string;
3428 else
3429 {
3430 name = bfd_elf_string_from_elf_section (input_bfd,
3431 symtab_hdr->sh_link,
3432 sym->st_name);
3433 if (name == NULL)
3434 return FALSE;
3435 if (*name == '\0')
3436 name = bfd_section_name (input_bfd, sec);
3437 }
3438
3439 if (r == bfd_reloc_overflow)
3440 (*info->callbacks->reloc_overflow)
3441 (info, (h ? &h->root : NULL), name, howto->name,
3442 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
3443 else
3444 {
3445 _bfd_error_handler
3446 /* xgettext:c-format */
3447 (_("%pB(%pA+%#" PRIx64 "): reloc against `%s': error %d"),
3448 input_bfd, input_section,
3449 (uint64_t) rel->r_offset, name, (int) r);
3450 return FALSE;
3451 }
3452 }
3453
3454 if (wrel != rel)
3455 *wrel = *rel;
3456 }
3457
3458 if (wrel != rel)
3459 {
3460 Elf_Internal_Shdr *rel_hdr;
3461 size_t deleted = rel - wrel;
3462
3463 rel_hdr = _bfd_elf_single_rel_hdr (input_section->output_section);
3464 rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
3465 if (rel_hdr->sh_size == 0)
3466 {
3467 /* It is too late to remove an empty reloc section. Leave
3468 one NONE reloc.
3469 ??? What is wrong with an empty section??? */
3470 rel_hdr->sh_size = rel_hdr->sh_entsize;
3471 deleted -= 1;
3472 }
3473 rel_hdr = _bfd_elf_single_rel_hdr (input_section);
3474 rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
3475 input_section->reloc_count -= deleted;
3476 }
3477
3478 return TRUE;
3479 }
3480
3481 /* Finish up dynamic symbol handling. We set the contents of various
3482 dynamic sections here. */
3483
3484 static bfd_boolean
3485 elf_i386_finish_dynamic_symbol (bfd *output_bfd,
3486 struct bfd_link_info *info,
3487 struct elf_link_hash_entry *h,
3488 Elf_Internal_Sym *sym)
3489 {
3490 struct elf_x86_link_hash_table *htab;
3491 unsigned plt_entry_size;
3492 struct elf_x86_link_hash_entry *eh;
3493 bfd_boolean local_undefweak;
3494 bfd_boolean use_plt_second;
3495
3496 htab = elf_x86_hash_table (info, I386_ELF_DATA);
3497 if (htab == NULL)
3498 return FALSE;
3499
3500 plt_entry_size = htab->plt.plt_entry_size;
3501
3502 /* Use the second PLT section only if there is .plt section. */
3503 use_plt_second = htab->elf.splt != NULL && htab->plt_second != NULL;
3504
3505 eh = (struct elf_x86_link_hash_entry *) h;
3506 if (eh->no_finish_dynamic_symbol)
3507 abort ();
3508
3509 /* We keep PLT/GOT entries without dynamic PLT/GOT relocations for
3510 resolved undefined weak symbols in executable so that their
3511 references have value 0 at run-time. */
3512 local_undefweak = UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh);
3513
3514 if (h->plt.offset != (bfd_vma) -1)
3515 {
3516 bfd_vma plt_index, plt_offset;
3517 bfd_vma got_offset;
3518 Elf_Internal_Rela rel;
3519 bfd_byte *loc;
3520 asection *plt, *resolved_plt, *gotplt, *relplt;
3521
3522 /* When building a static executable, use .iplt, .igot.plt and
3523 .rel.iplt sections for STT_GNU_IFUNC symbols. */
3524 if (htab->elf.splt != NULL)
3525 {
3526 plt = htab->elf.splt;
3527 gotplt = htab->elf.sgotplt;
3528 relplt = htab->elf.srelplt;
3529 }
3530 else
3531 {
3532 plt = htab->elf.iplt;
3533 gotplt = htab->elf.igotplt;
3534 relplt = htab->elf.irelplt;
3535 }
3536
3537 VERIFY_PLT_ENTRY (info, h, plt, gotplt, relplt, local_undefweak)
3538
3539 /* Get the index in the procedure linkage table which
3540 corresponds to this symbol. This is the index of this symbol
3541 in all the symbols for which we are making plt entries. The
3542 first entry in the procedure linkage table is reserved.
3543
3544 Get the offset into the .got table of the entry that
3545 corresponds to this function. Each .got entry is 4 bytes.
3546 The first three are reserved.
3547
3548 For static executables, we don't reserve anything. */
3549
3550 if (plt == htab->elf.splt)
3551 {
3552 got_offset = (h->plt.offset / plt_entry_size
3553 - htab->plt.has_plt0);
3554 got_offset = (got_offset + 3) * 4;
3555 }
3556 else
3557 {
3558 got_offset = h->plt.offset / plt_entry_size;
3559 got_offset = got_offset * 4;
3560 }
3561
3562 /* Fill in the entry in the procedure linkage table and update
3563 the first slot. */
3564 memcpy (plt->contents + h->plt.offset, htab->plt.plt_entry,
3565 plt_entry_size);
3566
3567 if (use_plt_second)
3568 {
3569 const bfd_byte *plt_entry;
3570 if (bfd_link_pic (info))
3571 plt_entry = htab->non_lazy_plt->pic_plt_entry;
3572 else
3573 plt_entry = htab->non_lazy_plt->plt_entry;
3574 memcpy (htab->plt_second->contents + eh->plt_second.offset,
3575 plt_entry, htab->non_lazy_plt->plt_entry_size);
3576
3577 resolved_plt = htab->plt_second;
3578 plt_offset = eh->plt_second.offset;
3579 }
3580 else
3581 {
3582 resolved_plt = plt;
3583 plt_offset = h->plt.offset;
3584 }
3585
3586 if (! bfd_link_pic (info))
3587 {
3588 bfd_put_32 (output_bfd,
3589 (gotplt->output_section->vma
3590 + gotplt->output_offset
3591 + got_offset),
3592 resolved_plt->contents + plt_offset
3593 + htab->plt.plt_got_offset);
3594
3595 if (htab->target_os == is_vxworks)
3596 {
3597 int s, k, reloc_index;
3598
3599 /* Create the R_386_32 relocation referencing the GOT
3600 for this PLT entry. */
3601
3602 /* S: Current slot number (zero-based). */
3603 s = ((h->plt.offset - htab->plt.plt_entry_size)
3604 / htab->plt.plt_entry_size);
3605 /* K: Number of relocations for PLTResolve. */
3606 if (bfd_link_pic (info))
3607 k = PLTRESOLVE_RELOCS_SHLIB;
3608 else
3609 k = PLTRESOLVE_RELOCS;
3610 /* Skip the PLTresolve relocations, and the relocations for
3611 the other PLT slots. */
3612 reloc_index = k + s * PLT_NON_JUMP_SLOT_RELOCS;
3613 loc = (htab->srelplt2->contents + reloc_index
3614 * sizeof (Elf32_External_Rel));
3615
3616 rel.r_offset = (plt->output_section->vma
3617 + plt->output_offset
3618 + h->plt.offset + 2),
3619 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
3620 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
3621
3622 /* Create the R_386_32 relocation referencing the beginning of
3623 the PLT for this GOT entry. */
3624 rel.r_offset = (htab->elf.sgotplt->output_section->vma
3625 + htab->elf.sgotplt->output_offset
3626 + got_offset);
3627 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_386_32);
3628 bfd_elf32_swap_reloc_out (output_bfd, &rel,
3629 loc + sizeof (Elf32_External_Rel));
3630 }
3631 }
3632 else
3633 {
3634 bfd_put_32 (output_bfd, got_offset,
3635 resolved_plt->contents + plt_offset
3636 + htab->plt.plt_got_offset);
3637 }
3638
3639 /* Fill in the entry in the global offset table. Leave the entry
3640 as zero for undefined weak symbol in PIE. No PLT relocation
3641 against undefined weak symbol in PIE. */
3642 if (!local_undefweak)
3643 {
3644 if (htab->plt.has_plt0)
3645 bfd_put_32 (output_bfd,
3646 (plt->output_section->vma
3647 + plt->output_offset
3648 + h->plt.offset
3649 + htab->lazy_plt->plt_lazy_offset),
3650 gotplt->contents + got_offset);
3651
3652 /* Fill in the entry in the .rel.plt section. */
3653 rel.r_offset = (gotplt->output_section->vma
3654 + gotplt->output_offset
3655 + got_offset);
3656 if (PLT_LOCAL_IFUNC_P (info, h))
3657 {
3658 info->callbacks->minfo (_("Local IFUNC function `%s' in %pB\n"),
3659 h->root.root.string,
3660 h->root.u.def.section->owner);
3661
3662 /* If an STT_GNU_IFUNC symbol is locally defined, generate
3663 R_386_IRELATIVE instead of R_386_JUMP_SLOT. Store addend
3664 in the .got.plt section. */
3665 bfd_put_32 (output_bfd,
3666 (h->root.u.def.value
3667 + h->root.u.def.section->output_section->vma
3668 + h->root.u.def.section->output_offset),
3669 gotplt->contents + got_offset);
3670 rel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
3671 /* R_386_IRELATIVE comes last. */
3672 plt_index = htab->next_irelative_index--;
3673 }
3674 else
3675 {
3676 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_JUMP_SLOT);
3677 plt_index = htab->next_jump_slot_index++;
3678 }
3679
3680 loc = relplt->contents + plt_index * sizeof (Elf32_External_Rel);
3681 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
3682
3683 /* Don't fill the second and third slots in PLT entry for
3684 static executables nor without PLT0. */
3685 if (plt == htab->elf.splt && htab->plt.has_plt0)
3686 {
3687 bfd_put_32 (output_bfd,
3688 plt_index * sizeof (Elf32_External_Rel),
3689 plt->contents + h->plt.offset
3690 + htab->lazy_plt->plt_reloc_offset);
3691 bfd_put_32 (output_bfd,
3692 - (h->plt.offset
3693 + htab->lazy_plt->plt_plt_offset + 4),
3694 (plt->contents + h->plt.offset
3695 + htab->lazy_plt->plt_plt_offset));
3696 }
3697 }
3698 }
3699 else if (eh->plt_got.offset != (bfd_vma) -1)
3700 {
3701 bfd_vma got_offset, plt_offset;
3702 asection *plt, *got, *gotplt;
3703 const bfd_byte *got_plt_entry;
3704
3705 /* Set the entry in the GOT procedure linkage table. */
3706 plt = htab->plt_got;
3707 got = htab->elf.sgot;
3708 gotplt = htab->elf.sgotplt;
3709 got_offset = h->got.offset;
3710
3711 if (got_offset == (bfd_vma) -1
3712 || plt == NULL
3713 || got == NULL
3714 || gotplt == NULL)
3715 abort ();
3716
3717 /* Fill in the entry in the GOT procedure linkage table. */
3718 if (! bfd_link_pic (info))
3719 {
3720 got_plt_entry = htab->non_lazy_plt->plt_entry;
3721 got_offset += got->output_section->vma + got->output_offset;
3722 }
3723 else
3724 {
3725 got_plt_entry = htab->non_lazy_plt->pic_plt_entry;
3726 got_offset += (got->output_section->vma
3727 + got->output_offset
3728 - gotplt->output_section->vma
3729 - gotplt->output_offset);
3730 }
3731
3732 plt_offset = eh->plt_got.offset;
3733 memcpy (plt->contents + plt_offset, got_plt_entry,
3734 htab->non_lazy_plt->plt_entry_size);
3735 bfd_put_32 (output_bfd, got_offset,
3736 (plt->contents + plt_offset
3737 + htab->non_lazy_plt->plt_got_offset));
3738 }
3739
3740 if (!local_undefweak
3741 && !h->def_regular
3742 && (h->plt.offset != (bfd_vma) -1
3743 || eh->plt_got.offset != (bfd_vma) -1))
3744 {
3745 /* Mark the symbol as undefined, rather than as defined in
3746 the .plt section. Leave the value if there were any
3747 relocations where pointer equality matters (this is a clue
3748 for the dynamic linker, to make function pointer
3749 comparisons work between an application and shared
3750 library), otherwise set it to zero. If a function is only
3751 called from a binary, there is no need to slow down
3752 shared libraries because of that. */
3753 sym->st_shndx = SHN_UNDEF;
3754 if (!h->pointer_equality_needed)
3755 sym->st_value = 0;
3756 }
3757
3758 _bfd_x86_elf_link_fixup_ifunc_symbol (info, htab, h, sym);
3759
3760 /* Don't generate dynamic GOT relocation against undefined weak
3761 symbol in executable. */
3762 if (h->got.offset != (bfd_vma) -1
3763 && ! GOT_TLS_GD_ANY_P (elf_x86_hash_entry(h)->tls_type)
3764 && (elf_x86_hash_entry(h)->tls_type & GOT_TLS_IE) == 0
3765 && !local_undefweak)
3766 {
3767 Elf_Internal_Rela rel;
3768 asection *relgot = htab->elf.srelgot;
3769
3770 /* This symbol has an entry in the global offset table. Set it
3771 up. */
3772
3773 if (htab->elf.sgot == NULL || htab->elf.srelgot == NULL)
3774 abort ();
3775
3776 rel.r_offset = (htab->elf.sgot->output_section->vma
3777 + htab->elf.sgot->output_offset
3778 + (h->got.offset & ~(bfd_vma) 1));
3779
3780 /* If this is a static link, or it is a -Bsymbolic link and the
3781 symbol is defined locally or was forced to be local because
3782 of a version file, we just want to emit a RELATIVE reloc.
3783 The entry in the global offset table will already have been
3784 initialized in the relocate_section function. */
3785 if (h->def_regular
3786 && h->type == STT_GNU_IFUNC)
3787 {
3788 if (h->plt.offset == (bfd_vma) -1)
3789 {
3790 /* STT_GNU_IFUNC is referenced without PLT. */
3791 if (htab->elf.splt == NULL)
3792 {
3793 /* use .rel[a].iplt section to store .got relocations
3794 in static executable. */
3795 relgot = htab->elf.irelplt;
3796 }
3797 if (SYMBOL_REFERENCES_LOCAL_P (info, h))
3798 {
3799 info->callbacks->minfo (_("Local IFUNC function `%s' in %pB\n"),
3800 h->root.root.string,
3801 h->root.u.def.section->owner);
3802
3803 bfd_put_32 (output_bfd,
3804 (h->root.u.def.value
3805 + h->root.u.def.section->output_section->vma
3806 + h->root.u.def.section->output_offset),
3807 htab->elf.sgot->contents + h->got.offset);
3808 rel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
3809 }
3810 else
3811 goto do_glob_dat;
3812 }
3813 else if (bfd_link_pic (info))
3814 {
3815 /* Generate R_386_GLOB_DAT. */
3816 goto do_glob_dat;
3817 }
3818 else
3819 {
3820 asection *plt;
3821 bfd_vma plt_offset;
3822
3823 if (!h->pointer_equality_needed)
3824 abort ();
3825
3826 /* For non-shared object, we can't use .got.plt, which
3827 contains the real function addres if we need pointer
3828 equality. We load the GOT entry with the PLT entry. */
3829 if (htab->plt_second != NULL)
3830 {
3831 plt = htab->plt_second;
3832 plt_offset = eh->plt_second.offset;
3833 }
3834 else
3835 {
3836 plt = htab->elf.splt ? htab->elf.splt : htab->elf.iplt;
3837 plt_offset = h->plt.offset;
3838 }
3839 bfd_put_32 (output_bfd,
3840 (plt->output_section->vma
3841 + plt->output_offset + plt_offset),
3842 htab->elf.sgot->contents + h->got.offset);
3843 return TRUE;
3844 }
3845 }
3846 else if (bfd_link_pic (info)
3847 && SYMBOL_REFERENCES_LOCAL_P (info, h))
3848 {
3849 BFD_ASSERT((h->got.offset & 1) != 0);
3850 rel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
3851 }
3852 else
3853 {
3854 BFD_ASSERT((h->got.offset & 1) == 0);
3855 do_glob_dat:
3856 bfd_put_32 (output_bfd, (bfd_vma) 0,
3857 htab->elf.sgot->contents + h->got.offset);
3858 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_GLOB_DAT);
3859 }
3860
3861 elf_append_rel (output_bfd, relgot, &rel);
3862 }
3863
3864 if (h->needs_copy)
3865 {
3866 Elf_Internal_Rela rel;
3867 asection *s;
3868
3869 /* This symbol needs a copy reloc. Set it up. */
3870 VERIFY_COPY_RELOC (h, htab)
3871
3872 rel.r_offset = (h->root.u.def.value
3873 + h->root.u.def.section->output_section->vma
3874 + h->root.u.def.section->output_offset);
3875 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_COPY);
3876 if (h->root.u.def.section == htab->elf.sdynrelro)
3877 s = htab->elf.sreldynrelro;
3878 else
3879 s = htab->elf.srelbss;
3880 elf_append_rel (output_bfd, s, &rel);
3881 }
3882
3883 return TRUE;
3884 }
3885
3886 /* Finish up local dynamic symbol handling. We set the contents of
3887 various dynamic sections here. */
3888
3889 static bfd_boolean
3890 elf_i386_finish_local_dynamic_symbol (void **slot, void *inf)
3891 {
3892 struct elf_link_hash_entry *h
3893 = (struct elf_link_hash_entry *) *slot;
3894 struct bfd_link_info *info
3895 = (struct bfd_link_info *) inf;
3896
3897 return elf_i386_finish_dynamic_symbol (info->output_bfd, info,
3898 h, NULL);
3899 }
3900
3901 /* Finish up undefined weak symbol handling in PIE. Fill its PLT entry
3902 here since undefined weak symbol may not be dynamic and may not be
3903 called for elf_i386_finish_dynamic_symbol. */
3904
3905 static bfd_boolean
3906 elf_i386_pie_finish_undefweak_symbol (struct bfd_hash_entry *bh,
3907 void *inf)
3908 {
3909 struct elf_link_hash_entry *h = (struct elf_link_hash_entry *) bh;
3910 struct bfd_link_info *info = (struct bfd_link_info *) inf;
3911
3912 if (h->root.type != bfd_link_hash_undefweak
3913 || h->dynindx != -1)
3914 return TRUE;
3915
3916 return elf_i386_finish_dynamic_symbol (info->output_bfd,
3917 info, h, NULL);
3918 }
3919
3920 /* Used to decide how to sort relocs in an optimal manner for the
3921 dynamic linker, before writing them out. */
3922
3923 static enum elf_reloc_type_class
3924 elf_i386_reloc_type_class (const struct bfd_link_info *info,
3925 const asection *rel_sec ATTRIBUTE_UNUSED,
3926 const Elf_Internal_Rela *rela)
3927 {
3928 bfd *abfd = info->output_bfd;
3929 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3930 struct elf_link_hash_table *htab = elf_hash_table (info);
3931
3932 if (htab->dynsym != NULL
3933 && htab->dynsym->contents != NULL)
3934 {
3935 /* Check relocation against STT_GNU_IFUNC symbol if there are
3936 dynamic symbols. */
3937 unsigned long r_symndx = ELF32_R_SYM (rela->r_info);
3938 if (r_symndx != STN_UNDEF)
3939 {
3940 Elf_Internal_Sym sym;
3941 if (!bed->s->swap_symbol_in (abfd,
3942 (htab->dynsym->contents
3943 + r_symndx * sizeof (Elf32_External_Sym)),
3944 0, &sym))
3945 abort ();
3946
3947 if (ELF32_ST_TYPE (sym.st_info) == STT_GNU_IFUNC)
3948 return reloc_class_ifunc;
3949 }
3950 }
3951
3952 switch (ELF32_R_TYPE (rela->r_info))
3953 {
3954 case R_386_IRELATIVE:
3955 return reloc_class_ifunc;
3956 case R_386_RELATIVE:
3957 return reloc_class_relative;
3958 case R_386_JUMP_SLOT:
3959 return reloc_class_plt;
3960 case R_386_COPY:
3961 return reloc_class_copy;
3962 default:
3963 return reloc_class_normal;
3964 }
3965 }
3966
3967 /* Finish up the dynamic sections. */
3968
3969 static bfd_boolean
3970 elf_i386_finish_dynamic_sections (bfd *output_bfd,
3971 struct bfd_link_info *info)
3972 {
3973 struct elf_x86_link_hash_table *htab;
3974
3975 htab = _bfd_x86_elf_finish_dynamic_sections (output_bfd, info);
3976 if (htab == NULL)
3977 return FALSE;
3978
3979 if (!htab->elf.dynamic_sections_created)
3980 return TRUE;
3981
3982 if (htab->elf.splt && htab->elf.splt->size > 0)
3983 {
3984 /* UnixWare sets the entsize of .plt to 4, although that doesn't
3985 really seem like the right value. */
3986 elf_section_data (htab->elf.splt->output_section)
3987 ->this_hdr.sh_entsize = 4;
3988
3989 if (htab->plt.has_plt0)
3990 {
3991 /* Fill in the special first entry in the procedure linkage
3992 table. */
3993 memcpy (htab->elf.splt->contents, htab->plt.plt0_entry,
3994 htab->lazy_plt->plt0_entry_size);
3995 memset (htab->elf.splt->contents + htab->lazy_plt->plt0_entry_size,
3996 htab->plt0_pad_byte,
3997 htab->plt.plt_entry_size - htab->lazy_plt->plt0_entry_size);
3998 if (!bfd_link_pic (info))
3999 {
4000 bfd_put_32 (output_bfd,
4001 (htab->elf.sgotplt->output_section->vma
4002 + htab->elf.sgotplt->output_offset
4003 + 4),
4004 htab->elf.splt->contents
4005 + htab->lazy_plt->plt0_got1_offset);
4006 bfd_put_32 (output_bfd,
4007 (htab->elf.sgotplt->output_section->vma
4008 + htab->elf.sgotplt->output_offset
4009 + 8),
4010 htab->elf.splt->contents
4011 + htab->lazy_plt->plt0_got2_offset);
4012
4013 if (htab->target_os == is_vxworks)
4014 {
4015 Elf_Internal_Rela rel;
4016 int num_plts = (htab->elf.splt->size
4017 / htab->plt.plt_entry_size) - 1;
4018 unsigned char *p;
4019 asection *srelplt2 = htab->srelplt2;
4020
4021 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_
4022 + 4. On IA32 we use REL relocations so the
4023 addend goes in the PLT directly. */
4024 rel.r_offset = (htab->elf.splt->output_section->vma
4025 + htab->elf.splt->output_offset
4026 + htab->lazy_plt->plt0_got1_offset);
4027 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
4028 R_386_32);
4029 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4030 srelplt2->contents);
4031 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_
4032 + 8. */
4033 rel.r_offset = (htab->elf.splt->output_section->vma
4034 + htab->elf.splt->output_offset
4035 + htab->lazy_plt->plt0_got2_offset);
4036 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
4037 R_386_32);
4038 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4039 srelplt2->contents +
4040 sizeof (Elf32_External_Rel));
4041 /* Correct the .rel.plt.unloaded relocations. */
4042 p = srelplt2->contents;
4043 if (bfd_link_pic (info))
4044 p += PLTRESOLVE_RELOCS_SHLIB * sizeof (Elf32_External_Rel);
4045 else
4046 p += PLTRESOLVE_RELOCS * sizeof (Elf32_External_Rel);
4047
4048 for (; num_plts; num_plts--)
4049 {
4050 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
4051 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
4052 R_386_32);
4053 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4054 p += sizeof (Elf32_External_Rel);
4055
4056 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
4057 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx,
4058 R_386_32);
4059 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4060 p += sizeof (Elf32_External_Rel);
4061 }
4062 }
4063 }
4064 }
4065 }
4066
4067 /* Fill PLT entries for undefined weak symbols in PIE. */
4068 if (bfd_link_pie (info))
4069 bfd_hash_traverse (&info->hash->table,
4070 elf_i386_pie_finish_undefweak_symbol,
4071 info);
4072
4073 return TRUE;
4074 }
4075
4076 /* Fill PLT/GOT entries and allocate dynamic relocations for local
4077 STT_GNU_IFUNC symbols, which aren't in the ELF linker hash table.
4078 It has to be done before elf_link_sort_relocs is called so that
4079 dynamic relocations are properly sorted. */
4080
4081 static bfd_boolean
4082 elf_i386_output_arch_local_syms
4083 (bfd *output_bfd ATTRIBUTE_UNUSED,
4084 struct bfd_link_info *info,
4085 void *flaginfo ATTRIBUTE_UNUSED,
4086 int (*func) (void *, const char *,
4087 Elf_Internal_Sym *,
4088 asection *,
4089 struct elf_link_hash_entry *) ATTRIBUTE_UNUSED)
4090 {
4091 struct elf_x86_link_hash_table *htab
4092 = elf_x86_hash_table (info, I386_ELF_DATA);
4093 if (htab == NULL)
4094 return FALSE;
4095
4096 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
4097 htab_traverse (htab->loc_hash_table,
4098 elf_i386_finish_local_dynamic_symbol,
4099 info);
4100
4101 return TRUE;
4102 }
4103
4104 /* Forward declaration. */
4105 static const struct elf_x86_lazy_plt_layout elf_i386_nacl_plt;
4106
4107 /* Similar to _bfd_elf_get_synthetic_symtab. Support PLTs with all
4108 dynamic relocations. */
4109
4110 static long
4111 elf_i386_get_synthetic_symtab (bfd *abfd,
4112 long symcount ATTRIBUTE_UNUSED,
4113 asymbol **syms ATTRIBUTE_UNUSED,
4114 long dynsymcount,
4115 asymbol **dynsyms,
4116 asymbol **ret)
4117 {
4118 long count, i, n;
4119 int j;
4120 bfd_byte *plt_contents;
4121 long relsize;
4122 const struct elf_x86_lazy_plt_layout *lazy_plt;
4123 const struct elf_x86_non_lazy_plt_layout *non_lazy_plt;
4124 const struct elf_x86_lazy_plt_layout *lazy_ibt_plt;
4125 const struct elf_x86_non_lazy_plt_layout *non_lazy_ibt_plt;
4126 asection *plt;
4127 bfd_vma got_addr;
4128 enum elf_x86_plt_type plt_type;
4129 struct elf_x86_plt plts[] =
4130 {
4131 { ".plt", NULL, NULL, plt_unknown, 0, 0, 0, 0 },
4132 { ".plt.got", NULL, NULL, plt_non_lazy, 0, 0, 0, 0 },
4133 { ".plt.sec", NULL, NULL, plt_second, 0, 0, 0, 0 },
4134 { NULL, NULL, NULL, plt_non_lazy, 0, 0, 0, 0 }
4135 };
4136
4137 *ret = NULL;
4138
4139 if ((abfd->flags & (DYNAMIC | EXEC_P)) == 0)
4140 return 0;
4141
4142 if (dynsymcount <= 0)
4143 return 0;
4144
4145 relsize = bfd_get_dynamic_reloc_upper_bound (abfd);
4146 if (relsize <= 0)
4147 return -1;
4148
4149 non_lazy_plt = NULL;
4150 /* Silence GCC 6. */
4151 lazy_plt = NULL;
4152 non_lazy_ibt_plt = NULL;
4153 lazy_ibt_plt = NULL;
4154 switch (get_elf_x86_backend_data (abfd)->target_os)
4155 {
4156 case is_normal:
4157 case is_solaris:
4158 non_lazy_plt = &elf_i386_non_lazy_plt;
4159 lazy_ibt_plt = &elf_i386_lazy_ibt_plt;
4160 non_lazy_ibt_plt = &elf_i386_non_lazy_ibt_plt;
4161 /* Fall through */
4162 case is_vxworks:
4163 lazy_plt = &elf_i386_lazy_plt;
4164 break;
4165 case is_nacl:
4166 lazy_plt = &elf_i386_nacl_plt;
4167 break;
4168 }
4169
4170 got_addr = 0;
4171
4172 count = 0;
4173 for (j = 0; plts[j].name != NULL; j++)
4174 {
4175 plt = bfd_get_section_by_name (abfd, plts[j].name);
4176 if (plt == NULL || plt->size == 0)
4177 continue;
4178
4179 /* Get the PLT section contents. */
4180 plt_contents = (bfd_byte *) bfd_malloc (plt->size);
4181 if (plt_contents == NULL)
4182 break;
4183 if (!bfd_get_section_contents (abfd, (asection *) plt,
4184 plt_contents, 0, plt->size))
4185 {
4186 free (plt_contents);
4187 break;
4188 }
4189
4190 /* Check what kind of PLT it is. */
4191 plt_type = plt_unknown;
4192 if (plts[j].type == plt_unknown
4193 && (plt->size >= (lazy_plt->plt0_entry_size
4194 + lazy_plt->plt_entry_size)))
4195 {
4196 /* Match lazy PLT first. */
4197 if (memcmp (plt_contents, lazy_plt->plt0_entry,
4198 lazy_plt->plt0_got1_offset) == 0)
4199 {
4200 /* The fist entry in the lazy IBT PLT is the same as the
4201 normal lazy PLT. */
4202 if (lazy_ibt_plt != NULL
4203 && (memcmp (plt_contents + lazy_ibt_plt->plt0_entry_size,
4204 lazy_ibt_plt->plt_entry,
4205 lazy_ibt_plt->plt_got_offset) == 0))
4206 plt_type = plt_lazy | plt_second;
4207 else
4208 plt_type = plt_lazy;
4209 }
4210 else if (memcmp (plt_contents, lazy_plt->pic_plt0_entry,
4211 lazy_plt->plt0_got1_offset) == 0)
4212 {
4213 /* The fist entry in the PIC lazy IBT PLT is the same as
4214 the normal PIC lazy PLT. */
4215 if (lazy_ibt_plt != NULL
4216 && (memcmp (plt_contents + lazy_ibt_plt->plt0_entry_size,
4217 lazy_ibt_plt->pic_plt_entry,
4218 lazy_ibt_plt->plt_got_offset) == 0))
4219 plt_type = plt_lazy | plt_pic | plt_second;
4220 else
4221 plt_type = plt_lazy | plt_pic;
4222 }
4223 }
4224
4225 if (non_lazy_plt != NULL
4226 && (plt_type == plt_unknown || plt_type == plt_non_lazy)
4227 && plt->size >= non_lazy_plt->plt_entry_size)
4228 {
4229 /* Match non-lazy PLT. */
4230 if (memcmp (plt_contents, non_lazy_plt->plt_entry,
4231 non_lazy_plt->plt_got_offset) == 0)
4232 plt_type = plt_non_lazy;
4233 else if (memcmp (plt_contents, non_lazy_plt->pic_plt_entry,
4234 non_lazy_plt->plt_got_offset) == 0)
4235 plt_type = plt_pic;
4236 }
4237
4238 if ((non_lazy_ibt_plt != NULL)
4239 && (plt_type == plt_unknown || plt_type == plt_second)
4240 && plt->size >= non_lazy_ibt_plt->plt_entry_size)
4241 {
4242 if (memcmp (plt_contents,
4243 non_lazy_ibt_plt->plt_entry,
4244 non_lazy_ibt_plt->plt_got_offset) == 0)
4245 {
4246 /* Match IBT PLT. */
4247 plt_type = plt_second;
4248 non_lazy_plt = non_lazy_ibt_plt;
4249 }
4250 else if (memcmp (plt_contents,
4251 non_lazy_ibt_plt->pic_plt_entry,
4252 non_lazy_ibt_plt->plt_got_offset) == 0)
4253 {
4254 /* Match PIC IBT PLT. */
4255 plt_type = plt_second | plt_pic;
4256 non_lazy_plt = non_lazy_ibt_plt;
4257 }
4258 }
4259
4260 if (plt_type == plt_unknown)
4261 {
4262 free (plt_contents);
4263 continue;
4264 }
4265
4266 plts[j].sec = plt;
4267 plts[j].type = plt_type;
4268
4269 if ((plt_type & plt_lazy))
4270 {
4271 plts[j].plt_got_offset = lazy_plt->plt_got_offset;
4272 plts[j].plt_entry_size = lazy_plt->plt_entry_size;
4273 /* Skip PLT0 in lazy PLT. */
4274 i = 1;
4275 }
4276 else
4277 {
4278 plts[j].plt_got_offset = non_lazy_plt->plt_got_offset;
4279 plts[j].plt_entry_size = non_lazy_plt->plt_entry_size;
4280 i = 0;
4281 }
4282
4283 /* Skip lazy PLT when the second PLT is used. */
4284 if ((plt_type & (plt_lazy | plt_second))
4285 == (plt_lazy | plt_second))
4286 plts[j].count = 0;
4287 else
4288 {
4289 n = plt->size / plts[j].plt_entry_size;
4290 plts[j].count = n;
4291 count += n - i;
4292 }
4293
4294 plts[j].contents = plt_contents;
4295
4296 /* The _GLOBAL_OFFSET_TABLE_ address is needed. */
4297 if ((plt_type & plt_pic))
4298 got_addr = (bfd_vma) -1;
4299 }
4300
4301 return _bfd_x86_elf_get_synthetic_symtab (abfd, count, relsize,
4302 got_addr, plts, dynsyms,
4303 ret);
4304 }
4305
4306 /* Set up i386 GNU properties. Return the first relocatable ELF input
4307 with GNU properties if found. Otherwise, return NULL. */
4308
4309 static bfd *
4310 elf_i386_link_setup_gnu_properties (struct bfd_link_info *info)
4311 {
4312 struct elf_x86_init_table init_table;
4313
4314 switch (get_elf_x86_backend_data (info->output_bfd)->target_os)
4315 {
4316 case is_normal:
4317 case is_solaris:
4318 init_table.plt0_pad_byte = 0x0;
4319 init_table.lazy_plt = &elf_i386_lazy_plt;
4320 init_table.non_lazy_plt = &elf_i386_non_lazy_plt;
4321 init_table.lazy_ibt_plt = &elf_i386_lazy_ibt_plt;
4322 init_table.non_lazy_ibt_plt = &elf_i386_non_lazy_ibt_plt;
4323 break;
4324 case is_vxworks:
4325 init_table.plt0_pad_byte = 0x90;
4326 init_table.lazy_plt = &elf_i386_lazy_plt;
4327 init_table.non_lazy_plt = NULL;
4328 init_table.lazy_ibt_plt = NULL;
4329 init_table.non_lazy_ibt_plt = NULL;
4330 break;
4331 case is_nacl:
4332 init_table.plt0_pad_byte = 0x90;
4333 init_table.lazy_plt = &elf_i386_nacl_plt;
4334 init_table.non_lazy_plt = NULL;
4335 init_table.lazy_ibt_plt = NULL;
4336 init_table.non_lazy_ibt_plt = NULL;
4337 break;
4338 }
4339
4340 init_table.r_info = elf32_r_info;
4341 init_table.r_sym = elf32_r_sym;
4342
4343 return _bfd_x86_elf_link_setup_gnu_properties (info, &init_table);
4344 }
4345
4346 #define TARGET_LITTLE_SYM i386_elf32_vec
4347 #define TARGET_LITTLE_NAME "elf32-i386"
4348 #define ELF_ARCH bfd_arch_i386
4349 #define ELF_TARGET_ID I386_ELF_DATA
4350 #define ELF_MACHINE_CODE EM_386
4351 #define ELF_MAXPAGESIZE 0x1000
4352
4353 #define elf_backend_can_gc_sections 1
4354 #define elf_backend_can_refcount 1
4355 #define elf_backend_want_got_plt 1
4356 #define elf_backend_plt_readonly 1
4357 #define elf_backend_want_plt_sym 0
4358 #define elf_backend_got_header_size 12
4359 #define elf_backend_plt_alignment 4
4360 #define elf_backend_dtrel_excludes_plt 1
4361 #define elf_backend_extern_protected_data 1
4362 #define elf_backend_caches_rawsize 1
4363 #define elf_backend_want_dynrelro 1
4364
4365 /* Support RELA for objdump of prelink objects. */
4366 #define elf_info_to_howto elf_i386_info_to_howto_rel
4367 #define elf_info_to_howto_rel elf_i386_info_to_howto_rel
4368
4369 #define bfd_elf32_bfd_is_local_label_name elf_i386_is_local_label_name
4370 #define bfd_elf32_bfd_reloc_type_lookup elf_i386_reloc_type_lookup
4371 #define bfd_elf32_bfd_reloc_name_lookup elf_i386_reloc_name_lookup
4372 #define bfd_elf32_get_synthetic_symtab elf_i386_get_synthetic_symtab
4373
4374 #define elf_backend_relocs_compatible _bfd_elf_relocs_compatible
4375 #define elf_backend_check_relocs elf_i386_check_relocs
4376 #define elf_backend_create_dynamic_sections _bfd_elf_create_dynamic_sections
4377 #define elf_backend_fake_sections elf_i386_fake_sections
4378 #define elf_backend_finish_dynamic_sections elf_i386_finish_dynamic_sections
4379 #define elf_backend_finish_dynamic_symbol elf_i386_finish_dynamic_symbol
4380 #define elf_backend_output_arch_local_syms elf_i386_output_arch_local_syms
4381 #define elf_backend_grok_prstatus elf_i386_grok_prstatus
4382 #define elf_backend_grok_psinfo elf_i386_grok_psinfo
4383 #define elf_backend_reloc_type_class elf_i386_reloc_type_class
4384 #define elf_backend_relocate_section elf_i386_relocate_section
4385 #define elf_backend_setup_gnu_properties elf_i386_link_setup_gnu_properties
4386 #define elf_backend_hide_symbol _bfd_x86_elf_hide_symbol
4387
4388 #define elf_backend_linux_prpsinfo32_ugid16 TRUE
4389
4390 #define elf32_bed elf32_i386_bed
4391
4392 #include "elf32-target.h"
4393
4394 /* FreeBSD support. */
4395
4396 #undef TARGET_LITTLE_SYM
4397 #define TARGET_LITTLE_SYM i386_elf32_fbsd_vec
4398 #undef TARGET_LITTLE_NAME
4399 #define TARGET_LITTLE_NAME "elf32-i386-freebsd"
4400 #undef ELF_OSABI
4401 #define ELF_OSABI ELFOSABI_FREEBSD
4402
4403 /* The kernel recognizes executables as valid only if they carry a
4404 "FreeBSD" label in the ELF header. So we put this label on all
4405 executables and (for simplicity) also all other object files. */
4406
4407 static void
4408 elf_i386_fbsd_post_process_headers (bfd *abfd, struct bfd_link_info *info)
4409 {
4410 _bfd_elf_post_process_headers (abfd, info);
4411
4412 #ifdef OLD_FREEBSD_ABI_LABEL
4413 {
4414 /* The ABI label supported by FreeBSD <= 4.0 is quite nonstandard. */
4415 Elf_Internal_Ehdr *i_ehdrp = elf_elfheader (abfd);
4416 memcpy (&i_ehdrp->e_ident[EI_ABIVERSION], "FreeBSD", 8);
4417 }
4418 #endif
4419 }
4420
4421 #undef elf_backend_post_process_headers
4422 #define elf_backend_post_process_headers elf_i386_fbsd_post_process_headers
4423 #undef elf32_bed
4424 #define elf32_bed elf32_i386_fbsd_bed
4425
4426 #undef elf_backend_add_symbol_hook
4427
4428 #include "elf32-target.h"
4429
4430 /* Solaris 2. */
4431
4432 #undef TARGET_LITTLE_SYM
4433 #define TARGET_LITTLE_SYM i386_elf32_sol2_vec
4434 #undef TARGET_LITTLE_NAME
4435 #define TARGET_LITTLE_NAME "elf32-i386-sol2"
4436
4437 static const struct elf_x86_backend_data elf_i386_solaris_arch_bed =
4438 {
4439 is_solaris /* os */
4440 };
4441
4442 #undef elf_backend_arch_data
4443 #define elf_backend_arch_data &elf_i386_solaris_arch_bed
4444
4445 #undef elf_backend_post_process_headers
4446
4447 /* Restore default: we cannot use ELFOSABI_SOLARIS, otherwise ELFOSABI_NONE
4448 objects won't be recognized. */
4449 #undef ELF_OSABI
4450
4451 #undef elf32_bed
4452 #define elf32_bed elf32_i386_sol2_bed
4453
4454 /* The 32-bit static TLS arena size is rounded to the nearest 8-byte
4455 boundary. */
4456 #undef elf_backend_static_tls_alignment
4457 #define elf_backend_static_tls_alignment 8
4458
4459 /* The Solaris 2 ABI requires a plt symbol on all platforms.
4460
4461 Cf. Linker and Libraries Guide, Ch. 2, Link-Editor, Generating the Output
4462 File, p.63. */
4463 #undef elf_backend_want_plt_sym
4464 #define elf_backend_want_plt_sym 1
4465
4466 #undef elf_backend_strtab_flags
4467 #define elf_backend_strtab_flags SHF_STRINGS
4468
4469 /* Called to set the sh_flags, sh_link and sh_info fields of OSECTION which
4470 has a type >= SHT_LOOS. Returns TRUE if these fields were initialised
4471 FALSE otherwise. ISECTION is the best guess matching section from the
4472 input bfd IBFD, but it might be NULL. */
4473
4474 static bfd_boolean
4475 elf32_i386_copy_solaris_special_section_fields (const bfd *ibfd ATTRIBUTE_UNUSED,
4476 bfd *obfd ATTRIBUTE_UNUSED,
4477 const Elf_Internal_Shdr *isection ATTRIBUTE_UNUSED,
4478 Elf_Internal_Shdr *osection ATTRIBUTE_UNUSED)
4479 {
4480 /* PR 19938: FIXME: Need to add code for setting the sh_info
4481 and sh_link fields of Solaris specific section types. */
4482 return FALSE;
4483
4484 /* Based upon Oracle Solaris 11.3 Linkers and Libraries Guide, Ch. 13,
4485 Object File Format, Table 13-9 ELF sh_link and sh_info Interpretation:
4486
4487 http://docs.oracle.com/cd/E53394_01/html/E54813/chapter6-94076.html#scrolltoc
4488
4489 The following values should be set:
4490
4491 Type Link Info
4492 -----------------------------------------------------------------------------
4493 SHT_SUNW_ancillary The section header index of 0
4494 [0x6fffffee] the associated string table.
4495
4496 SHT_SUNW_capinfo The section header index of For a dynamic object, the
4497 [0x6ffffff0] the associated symbol table. section header index of
4498 the associated
4499 SHT_SUNW_capchain table,
4500 otherwise 0.
4501
4502 SHT_SUNW_symsort The section header index of 0
4503 [0x6ffffff1] the associated symbol table.
4504
4505 SHT_SUNW_tlssort The section header index of 0
4506 [0x6ffffff2] the associated symbol table.
4507
4508 SHT_SUNW_LDYNSYM The section header index of One greater than the
4509 [0x6ffffff3] the associated string table. symbol table index of the
4510 This index is the same string last local symbol,
4511 table used by the SHT_DYNSYM STB_LOCAL. Since
4512 section. SHT_SUNW_LDYNSYM only
4513 contains local symbols,
4514 sh_info is equivalent to
4515 the number of symbols in
4516 the table.
4517
4518 SHT_SUNW_cap If symbol capabilities exist, If any capabilities refer
4519 [0x6ffffff5] the section header index of to named strings, the
4520 the associated section header index of
4521 SHT_SUNW_capinfo table, the associated string
4522 otherwise 0. table, otherwise 0.
4523
4524 SHT_SUNW_move The section header index of 0
4525 [0x6ffffffa] the associated symbol table.
4526
4527 SHT_SUNW_COMDAT 0 0
4528 [0x6ffffffb]
4529
4530 SHT_SUNW_syminfo The section header index of The section header index
4531 [0x6ffffffc] the associated symbol table. of the associated
4532 .dynamic section.
4533
4534 SHT_SUNW_verdef The section header index of The number of version
4535 [0x6ffffffd] the associated string table. definitions within the
4536 section.
4537
4538 SHT_SUNW_verneed The section header index of The number of version
4539 [0x6ffffffe] the associated string table. dependencies within the
4540 section.
4541
4542 SHT_SUNW_versym The section header index of 0
4543 [0x6fffffff] the associated symbol table. */
4544 }
4545
4546 #undef elf_backend_copy_special_section_fields
4547 #define elf_backend_copy_special_section_fields elf32_i386_copy_solaris_special_section_fields
4548
4549 #include "elf32-target.h"
4550
4551 /* Intel MCU support. */
4552
4553 static bfd_boolean
4554 elf32_iamcu_elf_object_p (bfd *abfd)
4555 {
4556 /* Set the right machine number for an IAMCU elf32 file. */
4557 bfd_default_set_arch_mach (abfd, bfd_arch_iamcu, bfd_mach_i386_iamcu);
4558 return TRUE;
4559 }
4560
4561 #undef TARGET_LITTLE_SYM
4562 #define TARGET_LITTLE_SYM iamcu_elf32_vec
4563 #undef TARGET_LITTLE_NAME
4564 #define TARGET_LITTLE_NAME "elf32-iamcu"
4565 #undef ELF_ARCH
4566 #define ELF_ARCH bfd_arch_iamcu
4567
4568 #undef ELF_MACHINE_CODE
4569 #define ELF_MACHINE_CODE EM_IAMCU
4570
4571 #undef elf_backend_arch_data
4572 #define elf_backend_arch_data &elf_i386_arch_bed
4573
4574 #undef ELF_OSABI
4575
4576 #undef elf32_bed
4577 #define elf32_bed elf32_iamcu_bed
4578
4579 #undef elf_backend_object_p
4580 #define elf_backend_object_p elf32_iamcu_elf_object_p
4581
4582 #undef elf_backend_static_tls_alignment
4583
4584 #undef elf_backend_want_plt_sym
4585 #define elf_backend_want_plt_sym 0
4586
4587 #undef elf_backend_strtab_flags
4588 #undef elf_backend_copy_special_section_fields
4589
4590 #include "elf32-target.h"
4591
4592 /* Restore defaults. */
4593 #undef ELF_ARCH
4594 #define ELF_ARCH bfd_arch_i386
4595 #undef ELF_MACHINE_CODE
4596 #define ELF_MACHINE_CODE EM_386
4597
4598 /* Native Client support. */
4599
4600 #undef TARGET_LITTLE_SYM
4601 #define TARGET_LITTLE_SYM i386_elf32_nacl_vec
4602 #undef TARGET_LITTLE_NAME
4603 #define TARGET_LITTLE_NAME "elf32-i386-nacl"
4604 #undef elf32_bed
4605 #define elf32_bed elf32_i386_nacl_bed
4606
4607 #undef ELF_MAXPAGESIZE
4608 #define ELF_MAXPAGESIZE 0x10000
4609
4610 /* Restore defaults. */
4611 #undef ELF_OSABI
4612 #undef elf_backend_want_plt_sym
4613 #define elf_backend_want_plt_sym 0
4614 #undef elf_backend_post_process_headers
4615 #undef elf_backend_static_tls_alignment
4616
4617 /* NaCl uses substantially different PLT entries for the same effects. */
4618
4619 #undef elf_backend_plt_alignment
4620 #define elf_backend_plt_alignment 5
4621 #define NACL_PLT_ENTRY_SIZE 64
4622 #define NACLMASK 0xe0 /* 32-byte alignment mask. */
4623
4624 static const bfd_byte elf_i386_nacl_plt0_entry[] =
4625 {
4626 0xff, 0x35, /* pushl contents of address */
4627 0, 0, 0, 0, /* replaced with address of .got + 4. */
4628 0x8b, 0x0d, /* movl contents of address, %ecx */
4629 0, 0, 0, 0, /* replaced with address of .got + 8. */
4630 0x83, 0xe1, NACLMASK, /* andl $NACLMASK, %ecx */
4631 0xff, 0xe1 /* jmp *%ecx */
4632 };
4633
4634 static const bfd_byte elf_i386_nacl_plt_entry[NACL_PLT_ENTRY_SIZE] =
4635 {
4636 0x8b, 0x0d, /* movl contents of address, %ecx */
4637 0, 0, 0, 0, /* replaced with GOT slot address. */
4638 0x83, 0xe1, NACLMASK, /* andl $NACLMASK, %ecx */
4639 0xff, 0xe1, /* jmp *%ecx */
4640
4641 /* Pad to the next 32-byte boundary with nop instructions. */
4642 0x90,
4643 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4644 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4645
4646 /* Lazy GOT entries point here (32-byte aligned). */
4647 0x68, /* pushl immediate */
4648 0, 0, 0, 0, /* replaced with reloc offset. */
4649 0xe9, /* jmp relative */
4650 0, 0, 0, 0, /* replaced with offset to .plt. */
4651
4652 /* Pad to the next 32-byte boundary with nop instructions. */
4653 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4654 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4655 0x90, 0x90
4656 };
4657
4658 static const bfd_byte
4659 elf_i386_nacl_pic_plt0_entry[sizeof (elf_i386_nacl_plt0_entry)] =
4660 {
4661 0xff, 0x73, 0x04, /* pushl 4(%ebx) */
4662 0x8b, 0x4b, 0x08, /* mov 0x8(%ebx), %ecx */
4663 0x83, 0xe1, 0xe0, /* and $NACLMASK, %ecx */
4664 0xff, 0xe1, /* jmp *%ecx */
4665
4666 /* This is expected to be the same size as elf_i386_nacl_plt0_entry,
4667 so pad to that size with nop instructions. */
4668 0x90, 0x90, 0x90, 0x90, 0x90, 0x90
4669 };
4670
4671 static const bfd_byte elf_i386_nacl_pic_plt_entry[NACL_PLT_ENTRY_SIZE] =
4672 {
4673 0x8b, 0x8b, /* movl offset(%ebx), %ecx */
4674 0, 0, 0, 0, /* replaced with offset of this symbol in .got. */
4675 0x83, 0xe1, 0xe0, /* andl $NACLMASK, %ecx */
4676 0xff, 0xe1, /* jmp *%ecx */
4677
4678 /* Pad to the next 32-byte boundary with nop instructions. */
4679 0x90,
4680 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4681 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4682
4683 /* Lazy GOT entries point here (32-byte aligned). */
4684 0x68, /* pushl immediate */
4685 0, 0, 0, 0, /* replaced with offset into relocation table. */
4686 0xe9, /* jmp relative */
4687 0, 0, 0, 0, /* replaced with offset to start of .plt. */
4688
4689 /* Pad to the next 32-byte boundary with nop instructions. */
4690 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4691 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
4692 0x90, 0x90
4693 };
4694
4695 static const bfd_byte elf_i386_nacl_eh_frame_plt[] =
4696 {
4697 #if (PLT_CIE_LENGTH != 20 \
4698 || PLT_FDE_LENGTH != 36 \
4699 || PLT_FDE_START_OFFSET != 4 + PLT_CIE_LENGTH + 8 \
4700 || PLT_FDE_LEN_OFFSET != 4 + PLT_CIE_LENGTH + 12)
4701 # error "Need elf_x86_backend_data parameters for eh_frame_plt offsets!"
4702 #endif
4703 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
4704 0, 0, 0, 0, /* CIE ID */
4705 1, /* CIE version */
4706 'z', 'R', 0, /* Augmentation string */
4707 1, /* Code alignment factor */
4708 0x7c, /* Data alignment factor: -4 */
4709 8, /* Return address column */
4710 1, /* Augmentation size */
4711 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
4712 DW_CFA_def_cfa, 4, 4, /* DW_CFA_def_cfa: r4 (esp) ofs 4 */
4713 DW_CFA_offset + 8, 1, /* DW_CFA_offset: r8 (eip) at cfa-4 */
4714 DW_CFA_nop, DW_CFA_nop,
4715
4716 PLT_FDE_LENGTH, 0, 0, 0, /* FDE length */
4717 PLT_CIE_LENGTH + 8, 0, 0, 0, /* CIE pointer */
4718 0, 0, 0, 0, /* R_386_PC32 .plt goes here */
4719 0, 0, 0, 0, /* .plt size goes here */
4720 0, /* Augmentation size */
4721 DW_CFA_def_cfa_offset, 8, /* DW_CFA_def_cfa_offset: 8 */
4722 DW_CFA_advance_loc + 6, /* DW_CFA_advance_loc: 6 to __PLT__+6 */
4723 DW_CFA_def_cfa_offset, 12, /* DW_CFA_def_cfa_offset: 12 */
4724 DW_CFA_advance_loc + 58, /* DW_CFA_advance_loc: 58 to __PLT__+64 */
4725 DW_CFA_def_cfa_expression, /* DW_CFA_def_cfa_expression */
4726 13, /* Block length */
4727 DW_OP_breg4, 4, /* DW_OP_breg4 (esp): 4 */
4728 DW_OP_breg8, 0, /* DW_OP_breg8 (eip): 0 */
4729 DW_OP_const1u, 63, DW_OP_and, DW_OP_const1u, 37, DW_OP_ge,
4730 DW_OP_lit2, DW_OP_shl, DW_OP_plus,
4731 DW_CFA_nop, DW_CFA_nop
4732 };
4733
4734 static const struct elf_x86_lazy_plt_layout elf_i386_nacl_plt =
4735 {
4736 elf_i386_nacl_plt0_entry, /* plt0_entry */
4737 sizeof (elf_i386_nacl_plt0_entry), /* plt0_entry_size */
4738 elf_i386_nacl_plt_entry, /* plt_entry */
4739 NACL_PLT_ENTRY_SIZE, /* plt_entry_size */
4740 NULL, /* plt_tlsdesc_entry */
4741 0, /* plt_tlsdesc_entry_size*/
4742 0, /* plt_tlsdesc_got1_offset */
4743 0, /* plt_tlsdesc_got2_offset */
4744 0, /* plt_tlsdesc_got1_insn_end */
4745 0, /* plt_tlsdesc_got2_insn_end */
4746 2, /* plt0_got1_offset */
4747 8, /* plt0_got2_offset */
4748 0, /* plt0_got2_insn_end */
4749 2, /* plt_got_offset */
4750 33, /* plt_reloc_offset */
4751 38, /* plt_plt_offset */
4752 0, /* plt_got_insn_size */
4753 0, /* plt_plt_insn_end */
4754 32, /* plt_lazy_offset */
4755 elf_i386_nacl_pic_plt0_entry, /* pic_plt0_entry */
4756 elf_i386_nacl_pic_plt_entry, /* pic_plt_entry */
4757 elf_i386_nacl_eh_frame_plt, /* eh_frame_plt */
4758 sizeof (elf_i386_nacl_eh_frame_plt) /* eh_frame_plt_size */
4759 };
4760
4761 static const struct elf_x86_backend_data elf_i386_nacl_arch_bed =
4762 {
4763 is_nacl /* os */
4764 };
4765
4766 static bfd_boolean
4767 elf32_i386_nacl_elf_object_p (bfd *abfd)
4768 {
4769 /* Set the right machine number for a NaCl i386 ELF32 file. */
4770 bfd_default_set_arch_mach (abfd, bfd_arch_i386, bfd_mach_i386_i386_nacl);
4771 return TRUE;
4772 }
4773
4774 #undef elf_backend_arch_data
4775 #define elf_backend_arch_data &elf_i386_nacl_arch_bed
4776
4777 #undef elf_backend_object_p
4778 #define elf_backend_object_p elf32_i386_nacl_elf_object_p
4779 #undef elf_backend_modify_segment_map
4780 #define elf_backend_modify_segment_map nacl_modify_segment_map
4781 #undef elf_backend_modify_program_headers
4782 #define elf_backend_modify_program_headers nacl_modify_program_headers
4783 #undef elf_backend_final_write_processing
4784 #define elf_backend_final_write_processing nacl_final_write_processing
4785
4786 #include "elf32-target.h"
4787
4788 /* Restore defaults. */
4789 #undef elf_backend_object_p
4790 #undef elf_backend_modify_segment_map
4791 #undef elf_backend_modify_program_headers
4792 #undef elf_backend_final_write_processing
4793
4794 /* VxWorks support. */
4795
4796 #undef TARGET_LITTLE_SYM
4797 #define TARGET_LITTLE_SYM i386_elf32_vxworks_vec
4798 #undef TARGET_LITTLE_NAME
4799 #define TARGET_LITTLE_NAME "elf32-i386-vxworks"
4800 #undef ELF_OSABI
4801 #undef ELF_MAXPAGESIZE
4802 #define ELF_MAXPAGESIZE 0x1000
4803 #undef elf_backend_plt_alignment
4804 #define elf_backend_plt_alignment 4
4805
4806 static const struct elf_x86_backend_data elf_i386_vxworks_arch_bed =
4807 {
4808 is_vxworks /* os */
4809 };
4810
4811 #undef elf_backend_arch_data
4812 #define elf_backend_arch_data &elf_i386_vxworks_arch_bed
4813
4814 #undef elf_backend_relocs_compatible
4815 #undef elf_backend_add_symbol_hook
4816 #define elf_backend_add_symbol_hook \
4817 elf_vxworks_add_symbol_hook
4818 #undef elf_backend_link_output_symbol_hook
4819 #define elf_backend_link_output_symbol_hook \
4820 elf_vxworks_link_output_symbol_hook
4821 #undef elf_backend_emit_relocs
4822 #define elf_backend_emit_relocs elf_vxworks_emit_relocs
4823 #undef elf_backend_final_write_processing
4824 #define elf_backend_final_write_processing \
4825 elf_vxworks_final_write_processing
4826 #undef elf_backend_static_tls_alignment
4827
4828 /* On VxWorks, we emit relocations against _PROCEDURE_LINKAGE_TABLE_, so
4829 define it. */
4830 #undef elf_backend_want_plt_sym
4831 #define elf_backend_want_plt_sym 1
4832
4833 #undef elf32_bed
4834 #define elf32_bed elf32_i386_vxworks_bed
4835
4836 #include "elf32-target.h"
The GNU Binutils are a collection of binary tools.