projects / deliverable / binutils-gdb.git / blob
? search:


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