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