]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - bfd/elf32-i386.c
projects / thirdparty / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Check local IFUNC calls
[thirdparty/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_linker_section (dynobj, ".dynbss");
1005 if (!info->shared)
1006 htab->srelbss = bfd_get_linker_section (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 = (SEC_ALLOC | SEC_LOAD | SEC_READONLY
1022 | SEC_HAS_CONTENTS | SEC_IN_MEMORY
1023 | SEC_LINKER_CREATED);
1024 htab->plt_eh_frame
1025 = bfd_make_section_anyway_with_flags (dynobj, ".eh_frame", flags);
1026 if (htab->plt_eh_frame == NULL
1027 || !bfd_set_section_alignment (dynobj, htab->plt_eh_frame, 2))
1028 return FALSE;
1029 }
1030
1031 return TRUE;
1032 }
1033
1034 /* Copy the extra info we tack onto an elf_link_hash_entry. */
1035
1036 static void
1037 elf_i386_copy_indirect_symbol (struct bfd_link_info *info,
1038 struct elf_link_hash_entry *dir,
1039 struct elf_link_hash_entry *ind)
1040 {
1041 struct elf_i386_link_hash_entry *edir, *eind;
1042
1043 edir = (struct elf_i386_link_hash_entry *) dir;
1044 eind = (struct elf_i386_link_hash_entry *) ind;
1045
1046 if (eind->dyn_relocs != NULL)
1047 {
1048 if (edir->dyn_relocs != NULL)
1049 {
1050 struct elf_dyn_relocs **pp;
1051 struct elf_dyn_relocs *p;
1052
1053 /* Add reloc counts against the indirect sym to the direct sym
1054 list. Merge any entries against the same section. */
1055 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
1056 {
1057 struct elf_dyn_relocs *q;
1058
1059 for (q = edir->dyn_relocs; q != NULL; q = q->next)
1060 if (q->sec == p->sec)
1061 {
1062 q->pc_count += p->pc_count;
1063 q->count += p->count;
1064 *pp = p->next;
1065 break;
1066 }
1067 if (q == NULL)
1068 pp = &p->next;
1069 }
1070 *pp = edir->dyn_relocs;
1071 }
1072
1073 edir->dyn_relocs = eind->dyn_relocs;
1074 eind->dyn_relocs = NULL;
1075 }
1076
1077 if (ind->root.type == bfd_link_hash_indirect
1078 && dir->got.refcount <= 0)
1079 {
1080 edir->tls_type = eind->tls_type;
1081 eind->tls_type = GOT_UNKNOWN;
1082 }
1083
1084 if (ELIMINATE_COPY_RELOCS
1085 && ind->root.type != bfd_link_hash_indirect
1086 && dir->dynamic_adjusted)
1087 {
1088 /* If called to transfer flags for a weakdef during processing
1089 of elf_adjust_dynamic_symbol, don't copy non_got_ref.
1090 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
1091 dir->ref_dynamic |= ind->ref_dynamic;
1092 dir->ref_regular |= ind->ref_regular;
1093 dir->ref_regular_nonweak |= ind->ref_regular_nonweak;
1094 dir->needs_plt |= ind->needs_plt;
1095 dir->pointer_equality_needed |= ind->pointer_equality_needed;
1096 }
1097 else
1098 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
1099 }
1100
1101 /* Return TRUE if the TLS access code sequence support transition
1102 from R_TYPE. */
1103
1104 static bfd_boolean
1105 elf_i386_check_tls_transition (bfd *abfd, asection *sec,
1106 bfd_byte *contents,
1107 Elf_Internal_Shdr *symtab_hdr,
1108 struct elf_link_hash_entry **sym_hashes,
1109 unsigned int r_type,
1110 const Elf_Internal_Rela *rel,
1111 const Elf_Internal_Rela *relend)
1112 {
1113 unsigned int val, type;
1114 unsigned long r_symndx;
1115 struct elf_link_hash_entry *h;
1116 bfd_vma offset;
1117
1118 /* Get the section contents. */
1119 if (contents == NULL)
1120 {
1121 if (elf_section_data (sec)->this_hdr.contents != NULL)
1122 contents = elf_section_data (sec)->this_hdr.contents;
1123 else
1124 {
1125 /* FIXME: How to better handle error condition? */
1126 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
1127 return FALSE;
1128
1129 /* Cache the section contents for elf_link_input_bfd. */
1130 elf_section_data (sec)->this_hdr.contents = contents;
1131 }
1132 }
1133
1134 offset = rel->r_offset;
1135 switch (r_type)
1136 {
1137 case R_386_TLS_GD:
1138 case R_386_TLS_LDM:
1139 if (offset < 2 || (rel + 1) >= relend)
1140 return FALSE;
1141
1142 type = bfd_get_8 (abfd, contents + offset - 2);
1143 if (r_type == R_386_TLS_GD)
1144 {
1145 /* Check transition from GD access model. Only
1146 leal foo@tlsgd(,%reg,1), %eax; call ___tls_get_addr
1147 leal foo@tlsgd(%reg), %eax; call ___tls_get_addr; nop
1148 can transit to different access model. */
1149 if ((offset + 10) > sec->size ||
1150 (type != 0x8d && type != 0x04))
1151 return FALSE;
1152
1153 val = bfd_get_8 (abfd, contents + offset - 1);
1154 if (type == 0x04)
1155 {
1156 /* leal foo@tlsgd(,%reg,1), %eax; call ___tls_get_addr */
1157 if (offset < 3)
1158 return FALSE;
1159
1160 if (bfd_get_8 (abfd, contents + offset - 3) != 0x8d)
1161 return FALSE;
1162
1163 if ((val & 0xc7) != 0x05 || val == (4 << 3))
1164 return FALSE;
1165 }
1166 else
1167 {
1168 /* leal foo@tlsgd(%reg), %eax; call ___tls_get_addr; nop */
1169 if ((val & 0xf8) != 0x80 || (val & 7) == 4)
1170 return FALSE;
1171
1172 if (bfd_get_8 (abfd, contents + offset + 9) != 0x90)
1173 return FALSE;
1174 }
1175 }
1176 else
1177 {
1178 /* Check transition from LD access model. Only
1179 leal foo@tlsgd(%reg), %eax; call ___tls_get_addr
1180 can transit to different access model. */
1181 if (type != 0x8d || (offset + 9) > sec->size)
1182 return FALSE;
1183
1184 val = bfd_get_8 (abfd, contents + offset - 1);
1185 if ((val & 0xf8) != 0x80 || (val & 7) == 4)
1186 return FALSE;
1187 }
1188
1189 if (bfd_get_8 (abfd, contents + offset + 4) != 0xe8)
1190 return FALSE;
1191
1192 r_symndx = ELF32_R_SYM (rel[1].r_info);
1193 if (r_symndx < symtab_hdr->sh_info)
1194 return FALSE;
1195
1196 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1197 /* Use strncmp to check ___tls_get_addr since ___tls_get_addr
1198 may be versioned. */
1199 return (h != NULL
1200 && h->root.root.string != NULL
1201 && (ELF32_R_TYPE (rel[1].r_info) == R_386_PC32
1202 || ELF32_R_TYPE (rel[1].r_info) == R_386_PLT32)
1203 && (strncmp (h->root.root.string, "___tls_get_addr",
1204 15) == 0));
1205
1206 case R_386_TLS_IE:
1207 /* Check transition from IE access model:
1208 movl foo@indntpoff(%rip), %eax
1209 movl foo@indntpoff(%rip), %reg
1210 addl foo@indntpoff(%rip), %reg
1211 */
1212
1213 if (offset < 1 || (offset + 4) > sec->size)
1214 return FALSE;
1215
1216 /* Check "movl foo@tpoff(%rip), %eax" first. */
1217 val = bfd_get_8 (abfd, contents + offset - 1);
1218 if (val == 0xa1)
1219 return TRUE;
1220
1221 if (offset < 2)
1222 return FALSE;
1223
1224 /* Check movl|addl foo@tpoff(%rip), %reg. */
1225 type = bfd_get_8 (abfd, contents + offset - 2);
1226 return ((type == 0x8b || type == 0x03)
1227 && (val & 0xc7) == 0x05);
1228
1229 case R_386_TLS_GOTIE:
1230 case R_386_TLS_IE_32:
1231 /* Check transition from {IE_32,GOTIE} access model:
1232 subl foo@{tpoff,gontoff}(%reg1), %reg2
1233 movl foo@{tpoff,gontoff}(%reg1), %reg2
1234 addl foo@{tpoff,gontoff}(%reg1), %reg2
1235 */
1236
1237 if (offset < 2 || (offset + 4) > sec->size)
1238 return FALSE;
1239
1240 val = bfd_get_8 (abfd, contents + offset - 1);
1241 if ((val & 0xc0) != 0x80 || (val & 7) == 4)
1242 return FALSE;
1243
1244 type = bfd_get_8 (abfd, contents + offset - 2);
1245 return type == 0x8b || type == 0x2b || type == 0x03;
1246
1247 case R_386_TLS_GOTDESC:
1248 /* Check transition from GDesc access model:
1249 leal x@tlsdesc(%ebx), %eax
1250
1251 Make sure it's a leal adding ebx to a 32-bit offset
1252 into any register, although it's probably almost always
1253 going to be eax. */
1254
1255 if (offset < 2 || (offset + 4) > sec->size)
1256 return FALSE;
1257
1258 if (bfd_get_8 (abfd, contents + offset - 2) != 0x8d)
1259 return FALSE;
1260
1261 val = bfd_get_8 (abfd, contents + offset - 1);
1262 return (val & 0xc7) == 0x83;
1263
1264 case R_386_TLS_DESC_CALL:
1265 /* Check transition from GDesc access model:
1266 call *x@tlsdesc(%rax)
1267 */
1268 if (offset + 2 <= sec->size)
1269 {
1270 /* Make sure that it's a call *x@tlsdesc(%rax). */
1271 static const unsigned char call[] = { 0xff, 0x10 };
1272 return memcmp (contents + offset, call, 2) == 0;
1273 }
1274
1275 return FALSE;
1276
1277 default:
1278 abort ();
1279 }
1280 }
1281
1282 /* Return TRUE if the TLS access transition is OK or no transition
1283 will be performed. Update R_TYPE if there is a transition. */
1284
1285 static bfd_boolean
1286 elf_i386_tls_transition (struct bfd_link_info *info, bfd *abfd,
1287 asection *sec, bfd_byte *contents,
1288 Elf_Internal_Shdr *symtab_hdr,
1289 struct elf_link_hash_entry **sym_hashes,
1290 unsigned int *r_type, int tls_type,
1291 const Elf_Internal_Rela *rel,
1292 const Elf_Internal_Rela *relend,
1293 struct elf_link_hash_entry *h,
1294 unsigned long r_symndx)
1295 {
1296 unsigned int from_type = *r_type;
1297 unsigned int to_type = from_type;
1298 bfd_boolean check = TRUE;
1299
1300 /* Skip TLS transition for functions. */
1301 if (h != NULL
1302 && (h->type == STT_FUNC
1303 || h->type == STT_GNU_IFUNC))
1304 return TRUE;
1305
1306 switch (from_type)
1307 {
1308 case R_386_TLS_GD:
1309 case R_386_TLS_GOTDESC:
1310 case R_386_TLS_DESC_CALL:
1311 case R_386_TLS_IE_32:
1312 case R_386_TLS_IE:
1313 case R_386_TLS_GOTIE:
1314 if (info->executable)
1315 {
1316 if (h == NULL)
1317 to_type = R_386_TLS_LE_32;
1318 else if (from_type != R_386_TLS_IE
1319 && from_type != R_386_TLS_GOTIE)
1320 to_type = R_386_TLS_IE_32;
1321 }
1322
1323 /* When we are called from elf_i386_relocate_section, CONTENTS
1324 isn't NULL and there may be additional transitions based on
1325 TLS_TYPE. */
1326 if (contents != NULL)
1327 {
1328 unsigned int new_to_type = to_type;
1329
1330 if (info->executable
1331 && h != NULL
1332 && h->dynindx == -1
1333 && (tls_type & GOT_TLS_IE))
1334 new_to_type = R_386_TLS_LE_32;
1335
1336 if (to_type == R_386_TLS_GD
1337 || to_type == R_386_TLS_GOTDESC
1338 || to_type == R_386_TLS_DESC_CALL)
1339 {
1340 if (tls_type == GOT_TLS_IE_POS)
1341 new_to_type = R_386_TLS_GOTIE;
1342 else if (tls_type & GOT_TLS_IE)
1343 new_to_type = R_386_TLS_IE_32;
1344 }
1345
1346 /* We checked the transition before when we were called from
1347 elf_i386_check_relocs. We only want to check the new
1348 transition which hasn't been checked before. */
1349 check = new_to_type != to_type && from_type == to_type;
1350 to_type = new_to_type;
1351 }
1352
1353 break;
1354
1355 case R_386_TLS_LDM:
1356 if (info->executable)
1357 to_type = R_386_TLS_LE_32;
1358 break;
1359
1360 default:
1361 return TRUE;
1362 }
1363
1364 /* Return TRUE if there is no transition. */
1365 if (from_type == to_type)
1366 return TRUE;
1367
1368 /* Check if the transition can be performed. */
1369 if (check
1370 && ! elf_i386_check_tls_transition (abfd, sec, contents,
1371 symtab_hdr, sym_hashes,
1372 from_type, rel, relend))
1373 {
1374 reloc_howto_type *from, *to;
1375 const char *name;
1376
1377 from = elf_i386_rtype_to_howto (abfd, from_type);
1378 to = elf_i386_rtype_to_howto (abfd, to_type);
1379
1380 if (h)
1381 name = h->root.root.string;
1382 else
1383 {
1384 struct elf_i386_link_hash_table *htab;
1385
1386 htab = elf_i386_hash_table (info);
1387 if (htab == NULL)
1388 name = "*unknown*";
1389 else
1390 {
1391 Elf_Internal_Sym *isym;
1392
1393 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1394 abfd, r_symndx);
1395 name = bfd_elf_sym_name (abfd, symtab_hdr, isym, NULL);
1396 }
1397 }
1398
1399 (*_bfd_error_handler)
1400 (_("%B: TLS transition from %s to %s against `%s' at 0x%lx "
1401 "in section `%A' failed"),
1402 abfd, sec, from->name, to->name, name,
1403 (unsigned long) rel->r_offset);
1404 bfd_set_error (bfd_error_bad_value);
1405 return FALSE;
1406 }
1407
1408 *r_type = to_type;
1409 return TRUE;
1410 }
1411
1412 /* Look through the relocs for a section during the first phase, and
1413 calculate needed space in the global offset table, procedure linkage
1414 table, and dynamic reloc sections. */
1415
1416 static bfd_boolean
1417 elf_i386_check_relocs (bfd *abfd,
1418 struct bfd_link_info *info,
1419 asection *sec,
1420 const Elf_Internal_Rela *relocs)
1421 {
1422 struct elf_i386_link_hash_table *htab;
1423 Elf_Internal_Shdr *symtab_hdr;
1424 struct elf_link_hash_entry **sym_hashes;
1425 const Elf_Internal_Rela *rel;
1426 const Elf_Internal_Rela *rel_end;
1427 asection *sreloc;
1428
1429 if (info->relocatable)
1430 return TRUE;
1431
1432 BFD_ASSERT (is_i386_elf (abfd));
1433
1434 htab = elf_i386_hash_table (info);
1435 if (htab == NULL)
1436 return FALSE;
1437
1438 symtab_hdr = &elf_symtab_hdr (abfd);
1439 sym_hashes = elf_sym_hashes (abfd);
1440
1441 sreloc = NULL;
1442
1443 rel_end = relocs + sec->reloc_count;
1444 for (rel = relocs; rel < rel_end; rel++)
1445 {
1446 unsigned int r_type;
1447 unsigned long r_symndx;
1448 struct elf_link_hash_entry *h;
1449 Elf_Internal_Sym *isym;
1450 const char *name;
1451
1452 r_symndx = ELF32_R_SYM (rel->r_info);
1453 r_type = ELF32_R_TYPE (rel->r_info);
1454
1455 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
1456 {
1457 (*_bfd_error_handler) (_("%B: bad symbol index: %d"),
1458 abfd,
1459 r_symndx);
1460 return FALSE;
1461 }
1462
1463 if (r_symndx < symtab_hdr->sh_info)
1464 {
1465 /* A local symbol. */
1466 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1467 abfd, r_symndx);
1468 if (isym == NULL)
1469 return FALSE;
1470
1471 /* Check relocation against local STT_GNU_IFUNC symbol. */
1472 if (ELF32_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
1473 {
1474 h = elf_i386_get_local_sym_hash (htab, abfd, rel, TRUE);
1475 if (h == NULL)
1476 return FALSE;
1477
1478 /* Fake a STT_GNU_IFUNC symbol. */
1479 h->type = STT_GNU_IFUNC;
1480 h->def_regular = 1;
1481 h->ref_regular = 1;
1482 h->forced_local = 1;
1483 h->root.type = bfd_link_hash_defined;
1484 }
1485 else
1486 h = NULL;
1487 }
1488 else
1489 {
1490 isym = NULL;
1491 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1492 while (h->root.type == bfd_link_hash_indirect
1493 || h->root.type == bfd_link_hash_warning)
1494 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1495 }
1496
1497 if (h != NULL)
1498 {
1499 /* Create the ifunc sections for static executables. If we
1500 never see an indirect function symbol nor we are building
1501 a static executable, those sections will be empty and
1502 won't appear in output. */
1503 switch (r_type)
1504 {
1505 default:
1506 break;
1507
1508 case R_386_32:
1509 case R_386_PC32:
1510 case R_386_PLT32:
1511 case R_386_GOT32:
1512 case R_386_GOTOFF:
1513 if (htab->elf.dynobj == NULL)
1514 htab->elf.dynobj = abfd;
1515 if (!_bfd_elf_create_ifunc_sections (htab->elf.dynobj, info))
1516 return FALSE;
1517 break;
1518 }
1519
1520 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
1521 it here if it is defined in a non-shared object. */
1522 if (h->type == STT_GNU_IFUNC
1523 && h->def_regular)
1524 {
1525 /* It is referenced by a non-shared object. */
1526 h->ref_regular = 1;
1527 h->needs_plt = 1;
1528
1529 /* STT_GNU_IFUNC symbol must go through PLT. */
1530 h->plt.refcount += 1;
1531
1532 /* STT_GNU_IFUNC needs dynamic sections. */
1533 if (htab->elf.dynobj == NULL)
1534 htab->elf.dynobj = abfd;
1535
1536 switch (r_type)
1537 {
1538 default:
1539 if (h->root.root.string)
1540 name = h->root.root.string;
1541 else
1542 name = bfd_elf_sym_name (abfd, symtab_hdr, isym,
1543 NULL);
1544 (*_bfd_error_handler)
1545 (_("%B: relocation %s against STT_GNU_IFUNC "
1546 "symbol `%s' isn't handled by %s"), abfd,
1547 elf_howto_table[r_type].name,
1548 name, __FUNCTION__);
1549 bfd_set_error (bfd_error_bad_value);
1550 return FALSE;
1551
1552 case R_386_32:
1553 h->non_got_ref = 1;
1554 h->pointer_equality_needed = 1;
1555 if (info->shared)
1556 {
1557 /* We must copy these reloc types into the
1558 output file. Create a reloc section in
1559 dynobj and make room for this reloc. */
1560 sreloc = _bfd_elf_create_ifunc_dyn_reloc
1561 (abfd, info, sec, sreloc,
1562 &((struct elf_i386_link_hash_entry *) h)->dyn_relocs);
1563 if (sreloc == NULL)
1564 return FALSE;
1565 }
1566 break;
1567
1568 case R_386_PC32:
1569 h->non_got_ref = 1;
1570 break;
1571
1572 case R_386_PLT32:
1573 break;
1574
1575 case R_386_GOT32:
1576 case R_386_GOTOFF:
1577 h->got.refcount += 1;
1578 if (htab->elf.sgot == NULL
1579 && !_bfd_elf_create_got_section (htab->elf.dynobj,
1580 info))
1581 return FALSE;
1582 break;
1583 }
1584
1585 continue;
1586 }
1587 }
1588
1589 if (! elf_i386_tls_transition (info, abfd, sec, NULL,
1590 symtab_hdr, sym_hashes,
1591 &r_type, GOT_UNKNOWN,
1592 rel, rel_end, h, r_symndx))
1593 return FALSE;
1594
1595 switch (r_type)
1596 {
1597 case R_386_TLS_LDM:
1598 htab->tls_ldm_got.refcount += 1;
1599 goto create_got;
1600
1601 case R_386_PLT32:
1602 /* This symbol requires a procedure linkage table entry. We
1603 actually build the entry in adjust_dynamic_symbol,
1604 because this might be a case of linking PIC code which is
1605 never referenced by a dynamic object, in which case we
1606 don't need to generate a procedure linkage table entry
1607 after all. */
1608
1609 /* If this is a local symbol, we resolve it directly without
1610 creating a procedure linkage table entry. */
1611 if (h == NULL)
1612 continue;
1613
1614 h->needs_plt = 1;
1615 h->plt.refcount += 1;
1616 break;
1617
1618 case R_386_TLS_IE_32:
1619 case R_386_TLS_IE:
1620 case R_386_TLS_GOTIE:
1621 if (!info->executable)
1622 info->flags |= DF_STATIC_TLS;
1623 /* Fall through */
1624
1625 case R_386_GOT32:
1626 case R_386_TLS_GD:
1627 case R_386_TLS_GOTDESC:
1628 case R_386_TLS_DESC_CALL:
1629 /* This symbol requires a global offset table entry. */
1630 {
1631 int tls_type, old_tls_type;
1632
1633 switch (r_type)
1634 {
1635 default:
1636 case R_386_GOT32: tls_type = GOT_NORMAL; break;
1637 case R_386_TLS_GD: tls_type = GOT_TLS_GD; break;
1638 case R_386_TLS_GOTDESC:
1639 case R_386_TLS_DESC_CALL:
1640 tls_type = GOT_TLS_GDESC; break;
1641 case R_386_TLS_IE_32:
1642 if (ELF32_R_TYPE (rel->r_info) == r_type)
1643 tls_type = GOT_TLS_IE_NEG;
1644 else
1645 /* If this is a GD->IE transition, we may use either of
1646 R_386_TLS_TPOFF and R_386_TLS_TPOFF32. */
1647 tls_type = GOT_TLS_IE;
1648 break;
1649 case R_386_TLS_IE:
1650 case R_386_TLS_GOTIE:
1651 tls_type = GOT_TLS_IE_POS; break;
1652 }
1653
1654 if (h != NULL)
1655 {
1656 h->got.refcount += 1;
1657 old_tls_type = elf_i386_hash_entry(h)->tls_type;
1658 }
1659 else
1660 {
1661 bfd_signed_vma *local_got_refcounts;
1662
1663 /* This is a global offset table entry for a local symbol. */
1664 local_got_refcounts = elf_local_got_refcounts (abfd);
1665 if (local_got_refcounts == NULL)
1666 {
1667 bfd_size_type size;
1668
1669 size = symtab_hdr->sh_info;
1670 size *= (sizeof (bfd_signed_vma)
1671 + sizeof (bfd_vma) + sizeof(char));
1672 local_got_refcounts = (bfd_signed_vma *)
1673 bfd_zalloc (abfd, size);
1674 if (local_got_refcounts == NULL)
1675 return FALSE;
1676 elf_local_got_refcounts (abfd) = local_got_refcounts;
1677 elf_i386_local_tlsdesc_gotent (abfd)
1678 = (bfd_vma *) (local_got_refcounts + symtab_hdr->sh_info);
1679 elf_i386_local_got_tls_type (abfd)
1680 = (char *) (local_got_refcounts + 2 * symtab_hdr->sh_info);
1681 }
1682 local_got_refcounts[r_symndx] += 1;
1683 old_tls_type = elf_i386_local_got_tls_type (abfd) [r_symndx];
1684 }
1685
1686 if ((old_tls_type & GOT_TLS_IE) && (tls_type & GOT_TLS_IE))
1687 tls_type |= old_tls_type;
1688 /* If a TLS symbol is accessed using IE at least once,
1689 there is no point to use dynamic model for it. */
1690 else if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
1691 && (! GOT_TLS_GD_ANY_P (old_tls_type)
1692 || (tls_type & GOT_TLS_IE) == 0))
1693 {
1694 if ((old_tls_type & GOT_TLS_IE) && GOT_TLS_GD_ANY_P (tls_type))
1695 tls_type = old_tls_type;
1696 else if (GOT_TLS_GD_ANY_P (old_tls_type)
1697 && GOT_TLS_GD_ANY_P (tls_type))
1698 tls_type |= old_tls_type;
1699 else
1700 {
1701 if (h)
1702 name = h->root.root.string;
1703 else
1704 name = bfd_elf_sym_name (abfd, symtab_hdr, isym,
1705 NULL);
1706 (*_bfd_error_handler)
1707 (_("%B: `%s' accessed both as normal and "
1708 "thread local symbol"),
1709 abfd, name);
1710 return FALSE;
1711 }
1712 }
1713
1714 if (old_tls_type != tls_type)
1715 {
1716 if (h != NULL)
1717 elf_i386_hash_entry (h)->tls_type = tls_type;
1718 else
1719 elf_i386_local_got_tls_type (abfd) [r_symndx] = tls_type;
1720 }
1721 }
1722 /* Fall through */
1723
1724 case R_386_GOTOFF:
1725 case R_386_GOTPC:
1726 create_got:
1727 if (htab->elf.sgot == NULL)
1728 {
1729 if (htab->elf.dynobj == NULL)
1730 htab->elf.dynobj = abfd;
1731 if (!_bfd_elf_create_got_section (htab->elf.dynobj, info))
1732 return FALSE;
1733 }
1734 if (r_type != R_386_TLS_IE)
1735 break;
1736 /* Fall through */
1737
1738 case R_386_TLS_LE_32:
1739 case R_386_TLS_LE:
1740 if (info->executable)
1741 break;
1742 info->flags |= DF_STATIC_TLS;
1743 /* Fall through */
1744
1745 case R_386_32:
1746 case R_386_PC32:
1747 if (h != NULL && info->executable)
1748 {
1749 /* If this reloc is in a read-only section, we might
1750 need a copy reloc. We can't check reliably at this
1751 stage whether the section is read-only, as input
1752 sections have not yet been mapped to output sections.
1753 Tentatively set the flag for now, and correct in
1754 adjust_dynamic_symbol. */
1755 h->non_got_ref = 1;
1756
1757 /* We may need a .plt entry if the function this reloc
1758 refers to is in a shared lib. */
1759 h->plt.refcount += 1;
1760 if (r_type != R_386_PC32)
1761 h->pointer_equality_needed = 1;
1762 }
1763
1764 /* If we are creating a shared library, and this is a reloc
1765 against a global symbol, or a non PC relative reloc
1766 against a local symbol, then we need to copy the reloc
1767 into the shared library. However, if we are linking with
1768 -Bsymbolic, we do not need to copy a reloc against a
1769 global symbol which is defined in an object we are
1770 including in the link (i.e., DEF_REGULAR is set). At
1771 this point we have not seen all the input files, so it is
1772 possible that DEF_REGULAR is not set now but will be set
1773 later (it is never cleared). In case of a weak definition,
1774 DEF_REGULAR may be cleared later by a strong definition in
1775 a shared library. We account for that possibility below by
1776 storing information in the relocs_copied field of the hash
1777 table entry. A similar situation occurs when creating
1778 shared libraries and symbol visibility changes render the
1779 symbol local.
1780
1781 If on the other hand, we are creating an executable, we
1782 may need to keep relocations for symbols satisfied by a
1783 dynamic library if we manage to avoid copy relocs for the
1784 symbol. */
1785 if ((info->shared
1786 && (sec->flags & SEC_ALLOC) != 0
1787 && (r_type != R_386_PC32
1788 || (h != NULL
1789 && (! SYMBOLIC_BIND (info, h)
1790 || h->root.type == bfd_link_hash_defweak
1791 || !h->def_regular))))
1792 || (ELIMINATE_COPY_RELOCS
1793 && !info->shared
1794 && (sec->flags & SEC_ALLOC) != 0
1795 && h != NULL
1796 && (h->root.type == bfd_link_hash_defweak
1797 || !h->def_regular)))
1798 {
1799 struct elf_dyn_relocs *p;
1800 struct elf_dyn_relocs **head;
1801
1802 /* We must copy these reloc types into the output file.
1803 Create a reloc section in dynobj and make room for
1804 this reloc. */
1805 if (sreloc == NULL)
1806 {
1807 if (htab->elf.dynobj == NULL)
1808 htab->elf.dynobj = abfd;
1809
1810 sreloc = _bfd_elf_make_dynamic_reloc_section
1811 (sec, htab->elf.dynobj, 2, abfd, /*rela?*/ FALSE);
1812
1813 if (sreloc == NULL)
1814 return FALSE;
1815 }
1816
1817 /* If this is a global symbol, we count the number of
1818 relocations we need for this symbol. */
1819 if (h != NULL)
1820 {
1821 head = &((struct elf_i386_link_hash_entry *) h)->dyn_relocs;
1822 }
1823 else
1824 {
1825 /* Track dynamic relocs needed for local syms too.
1826 We really need local syms available to do this
1827 easily. Oh well. */
1828 void **vpp;
1829 asection *s;
1830
1831 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1832 abfd, r_symndx);
1833 if (isym == NULL)
1834 return FALSE;
1835
1836 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
1837 if (s == NULL)
1838 s = sec;
1839
1840 vpp = &elf_section_data (s)->local_dynrel;
1841 head = (struct elf_dyn_relocs **)vpp;
1842 }
1843
1844 p = *head;
1845 if (p == NULL || p->sec != sec)
1846 {
1847 bfd_size_type amt = sizeof *p;
1848 p = (struct elf_dyn_relocs *) bfd_alloc (htab->elf.dynobj,
1849 amt);
1850 if (p == NULL)
1851 return FALSE;
1852 p->next = *head;
1853 *head = p;
1854 p->sec = sec;
1855 p->count = 0;
1856 p->pc_count = 0;
1857 }
1858
1859 p->count += 1;
1860 if (r_type == R_386_PC32)
1861 p->pc_count += 1;
1862 }
1863 break;
1864
1865 /* This relocation describes the C++ object vtable hierarchy.
1866 Reconstruct it for later use during GC. */
1867 case R_386_GNU_VTINHERIT:
1868 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1869 return FALSE;
1870 break;
1871
1872 /* This relocation describes which C++ vtable entries are actually
1873 used. Record for later use during GC. */
1874 case R_386_GNU_VTENTRY:
1875 BFD_ASSERT (h != NULL);
1876 if (h != NULL
1877 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_offset))
1878 return FALSE;
1879 break;
1880
1881 default:
1882 break;
1883 }
1884 }
1885
1886 return TRUE;
1887 }
1888
1889 /* Return the section that should be marked against GC for a given
1890 relocation. */
1891
1892 static asection *
1893 elf_i386_gc_mark_hook (asection *sec,
1894 struct bfd_link_info *info,
1895 Elf_Internal_Rela *rel,
1896 struct elf_link_hash_entry *h,
1897 Elf_Internal_Sym *sym)
1898 {
1899 if (h != NULL)
1900 switch (ELF32_R_TYPE (rel->r_info))
1901 {
1902 case R_386_GNU_VTINHERIT:
1903 case R_386_GNU_VTENTRY:
1904 return NULL;
1905 }
1906
1907 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1908 }
1909
1910 /* Update the got entry reference counts for the section being removed. */
1911
1912 static bfd_boolean
1913 elf_i386_gc_sweep_hook (bfd *abfd,
1914 struct bfd_link_info *info,
1915 asection *sec,
1916 const Elf_Internal_Rela *relocs)
1917 {
1918 struct elf_i386_link_hash_table *htab;
1919 Elf_Internal_Shdr *symtab_hdr;
1920 struct elf_link_hash_entry **sym_hashes;
1921 bfd_signed_vma *local_got_refcounts;
1922 const Elf_Internal_Rela *rel, *relend;
1923
1924 if (info->relocatable)
1925 return TRUE;
1926
1927 htab = elf_i386_hash_table (info);
1928 if (htab == NULL)
1929 return FALSE;
1930
1931 elf_section_data (sec)->local_dynrel = NULL;
1932
1933 symtab_hdr = &elf_symtab_hdr (abfd);
1934 sym_hashes = elf_sym_hashes (abfd);
1935 local_got_refcounts = elf_local_got_refcounts (abfd);
1936
1937 relend = relocs + sec->reloc_count;
1938 for (rel = relocs; rel < relend; rel++)
1939 {
1940 unsigned long r_symndx;
1941 unsigned int r_type;
1942 struct elf_link_hash_entry *h = NULL;
1943
1944 r_symndx = ELF32_R_SYM (rel->r_info);
1945 if (r_symndx >= symtab_hdr->sh_info)
1946 {
1947 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1948 while (h->root.type == bfd_link_hash_indirect
1949 || h->root.type == bfd_link_hash_warning)
1950 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1951 }
1952 else
1953 {
1954 /* A local symbol. */
1955 Elf_Internal_Sym *isym;
1956
1957 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1958 abfd, r_symndx);
1959
1960 /* Check relocation against local STT_GNU_IFUNC symbol. */
1961 if (isym != NULL
1962 && ELF32_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
1963 {
1964 h = elf_i386_get_local_sym_hash (htab, abfd, rel, FALSE);
1965 if (h == NULL)
1966 abort ();
1967 }
1968 }
1969
1970 if (h)
1971 {
1972 struct elf_i386_link_hash_entry *eh;
1973 struct elf_dyn_relocs **pp;
1974 struct elf_dyn_relocs *p;
1975
1976 eh = (struct elf_i386_link_hash_entry *) h;
1977 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
1978 if (p->sec == sec)
1979 {
1980 /* Everything must go for SEC. */
1981 *pp = p->next;
1982 break;
1983 }
1984 }
1985
1986 r_type = ELF32_R_TYPE (rel->r_info);
1987 if (! elf_i386_tls_transition (info, abfd, sec, NULL,
1988 symtab_hdr, sym_hashes,
1989 &r_type, GOT_UNKNOWN,
1990 rel, relend, h, r_symndx))
1991 return FALSE;
1992
1993 switch (r_type)
1994 {
1995 case R_386_TLS_LDM:
1996 if (htab->tls_ldm_got.refcount > 0)
1997 htab->tls_ldm_got.refcount -= 1;
1998 break;
1999
2000 case R_386_TLS_GD:
2001 case R_386_TLS_GOTDESC:
2002 case R_386_TLS_DESC_CALL:
2003 case R_386_TLS_IE_32:
2004 case R_386_TLS_IE:
2005 case R_386_TLS_GOTIE:
2006 case R_386_GOT32:
2007 if (h != NULL)
2008 {
2009 if (h->got.refcount > 0)
2010 h->got.refcount -= 1;
2011 if (h->type == STT_GNU_IFUNC)
2012 {
2013 if (h->plt.refcount > 0)
2014 h->plt.refcount -= 1;
2015 }
2016 }
2017 else if (local_got_refcounts != NULL)
2018 {
2019 if (local_got_refcounts[r_symndx] > 0)
2020 local_got_refcounts[r_symndx] -= 1;
2021 }
2022 break;
2023
2024 case R_386_32:
2025 case R_386_PC32:
2026 if (info->shared
2027 && (h == NULL || h->type != STT_GNU_IFUNC))
2028 break;
2029 /* Fall through */
2030
2031 case R_386_PLT32:
2032 if (h != NULL)
2033 {
2034 if (h->plt.refcount > 0)
2035 h->plt.refcount -= 1;
2036 }
2037 break;
2038
2039 case R_386_GOTOFF:
2040 if (h != NULL && h->type == STT_GNU_IFUNC)
2041 {
2042 if (h->got.refcount > 0)
2043 h->got.refcount -= 1;
2044 if (h->plt.refcount > 0)
2045 h->plt.refcount -= 1;
2046 }
2047 break;
2048
2049 default:
2050 break;
2051 }
2052 }
2053
2054 return TRUE;
2055 }
2056
2057 /* Adjust a symbol defined by a dynamic object and referenced by a
2058 regular object. The current definition is in some section of the
2059 dynamic object, but we're not including those sections. We have to
2060 change the definition to something the rest of the link can
2061 understand. */
2062
2063 static bfd_boolean
2064 elf_i386_adjust_dynamic_symbol (struct bfd_link_info *info,
2065 struct elf_link_hash_entry *h)
2066 {
2067 struct elf_i386_link_hash_table *htab;
2068 asection *s;
2069 struct elf_i386_link_hash_entry *eh;
2070 struct elf_dyn_relocs *p;
2071
2072 /* STT_GNU_IFUNC symbol must go through PLT. */
2073 if (h->type == STT_GNU_IFUNC)
2074 {
2075 /* Check local STT_GNU_IFUNC calls. */
2076 if (h->ref_regular
2077 && SYMBOL_CALLS_LOCAL (info, h))
2078 {
2079 bfd_size_type pc_count = 0;
2080 struct elf_dyn_relocs **pp;
2081
2082 eh = (struct elf_i386_link_hash_entry *) h;
2083 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2084 {
2085 pc_count += p->pc_count;
2086 p->count -= p->pc_count;
2087 p->pc_count = 0;
2088 if (p->count == 0)
2089 *pp = p->next;
2090 else
2091 pp = &p->next;
2092 }
2093
2094 if (pc_count)
2095 {
2096 h->needs_plt = 1;
2097 h->plt.refcount += 1;
2098 h->non_got_ref = 1;
2099 }
2100 }
2101
2102 if (h->plt.refcount <= 0)
2103 {
2104 h->plt.offset = (bfd_vma) -1;
2105 h->needs_plt = 0;
2106 }
2107 return TRUE;
2108 }
2109
2110 /* If this is a function, put it in the procedure linkage table. We
2111 will fill in the contents of the procedure linkage table later,
2112 when we know the address of the .got section. */
2113 if (h->type == STT_FUNC
2114 || h->needs_plt)
2115 {
2116 if (h->plt.refcount <= 0
2117 || SYMBOL_CALLS_LOCAL (info, h)
2118 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2119 && h->root.type == bfd_link_hash_undefweak))
2120 {
2121 /* This case can occur if we saw a PLT32 reloc in an input
2122 file, but the symbol was never referred to by a dynamic
2123 object, or if all references were garbage collected. In
2124 such a case, we don't actually need to build a procedure
2125 linkage table, and we can just do a PC32 reloc instead. */
2126 h->plt.offset = (bfd_vma) -1;
2127 h->needs_plt = 0;
2128 }
2129
2130 return TRUE;
2131 }
2132 else
2133 /* It's possible that we incorrectly decided a .plt reloc was
2134 needed for an R_386_PC32 reloc to a non-function sym in
2135 check_relocs. We can't decide accurately between function and
2136 non-function syms in check-relocs; Objects loaded later in
2137 the link may change h->type. So fix it now. */
2138 h->plt.offset = (bfd_vma) -1;
2139
2140 /* If this is a weak symbol, and there is a real definition, the
2141 processor independent code will have arranged for us to see the
2142 real definition first, and we can just use the same value. */
2143 if (h->u.weakdef != NULL)
2144 {
2145 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
2146 || h->u.weakdef->root.type == bfd_link_hash_defweak);
2147 h->root.u.def.section = h->u.weakdef->root.u.def.section;
2148 h->root.u.def.value = h->u.weakdef->root.u.def.value;
2149 if (ELIMINATE_COPY_RELOCS || info->nocopyreloc)
2150 h->non_got_ref = h->u.weakdef->non_got_ref;
2151 return TRUE;
2152 }
2153
2154 /* This is a reference to a symbol defined by a dynamic object which
2155 is not a function. */
2156
2157 /* If we are creating a shared library, we must presume that the
2158 only references to the symbol are via the global offset table.
2159 For such cases we need not do anything here; the relocations will
2160 be handled correctly by relocate_section. */
2161 if (info->shared)
2162 return TRUE;
2163
2164 /* If there are no references to this symbol that do not use the
2165 GOT, we don't need to generate a copy reloc. */
2166 if (!h->non_got_ref)
2167 return TRUE;
2168
2169 /* If -z nocopyreloc was given, we won't generate them either. */
2170 if (info->nocopyreloc)
2171 {
2172 h->non_got_ref = 0;
2173 return TRUE;
2174 }
2175
2176 htab = elf_i386_hash_table (info);
2177 if (htab == NULL)
2178 return FALSE;
2179
2180 /* If there aren't any dynamic relocs in read-only sections, then
2181 we can keep the dynamic relocs and avoid the copy reloc. This
2182 doesn't work on VxWorks, where we can not have dynamic relocations
2183 (other than copy and jump slot relocations) in an executable. */
2184 if (ELIMINATE_COPY_RELOCS
2185 && !get_elf_i386_backend_data (info->output_bfd)->is_vxworks)
2186 {
2187 eh = (struct elf_i386_link_hash_entry *) h;
2188 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2189 {
2190 s = p->sec->output_section;
2191 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2192 break;
2193 }
2194
2195 if (p == NULL)
2196 {
2197 h->non_got_ref = 0;
2198 return TRUE;
2199 }
2200 }
2201
2202 /* We must allocate the symbol in our .dynbss section, which will
2203 become part of the .bss section of the executable. There will be
2204 an entry for this symbol in the .dynsym section. The dynamic
2205 object will contain position independent code, so all references
2206 from the dynamic object to this symbol will go through the global
2207 offset table. The dynamic linker will use the .dynsym entry to
2208 determine the address it must put in the global offset table, so
2209 both the dynamic object and the regular object will refer to the
2210 same memory location for the variable. */
2211
2212 /* We must generate a R_386_COPY reloc to tell the dynamic linker to
2213 copy the initial value out of the dynamic object and into the
2214 runtime process image. */
2215 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
2216 {
2217 htab->srelbss->size += sizeof (Elf32_External_Rel);
2218 h->needs_copy = 1;
2219 }
2220
2221 s = htab->sdynbss;
2222
2223 return _bfd_elf_adjust_dynamic_copy (h, s);
2224 }
2225
2226 /* Allocate space in .plt, .got and associated reloc sections for
2227 dynamic relocs. */
2228
2229 static bfd_boolean
2230 elf_i386_allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
2231 {
2232 struct bfd_link_info *info;
2233 struct elf_i386_link_hash_table *htab;
2234 struct elf_i386_link_hash_entry *eh;
2235 struct elf_dyn_relocs *p;
2236 unsigned plt_entry_size;
2237
2238 if (h->root.type == bfd_link_hash_indirect)
2239 return TRUE;
2240
2241 eh = (struct elf_i386_link_hash_entry *) h;
2242
2243 info = (struct bfd_link_info *) inf;
2244 htab = elf_i386_hash_table (info);
2245 if (htab == NULL)
2246 return FALSE;
2247
2248 plt_entry_size = GET_PLT_ENTRY_SIZE (info->output_bfd);
2249
2250 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle it
2251 here if it is defined and referenced in a non-shared object. */
2252 if (h->type == STT_GNU_IFUNC
2253 && h->def_regular)
2254 return _bfd_elf_allocate_ifunc_dyn_relocs (info, h, &eh->dyn_relocs,
2255 plt_entry_size, 4);
2256 else if (htab->elf.dynamic_sections_created
2257 && h->plt.refcount > 0)
2258 {
2259 /* Make sure this symbol is output as a dynamic symbol.
2260 Undefined weak syms won't yet be marked as dynamic. */
2261 if (h->dynindx == -1
2262 && !h->forced_local)
2263 {
2264 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2265 return FALSE;
2266 }
2267
2268 if (info->shared
2269 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
2270 {
2271 asection *s = htab->elf.splt;
2272
2273 /* If this is the first .plt entry, make room for the special
2274 first entry. */
2275 if (s->size == 0)
2276 s->size += plt_entry_size;
2277
2278 h->plt.offset = s->size;
2279
2280 /* If this symbol is not defined in a regular file, and we are
2281 not generating a shared library, then set the symbol to this
2282 location in the .plt. This is required to make function
2283 pointers compare as equal between the normal executable and
2284 the shared library. */
2285 if (! info->shared
2286 && !h->def_regular)
2287 {
2288 h->root.u.def.section = s;
2289 h->root.u.def.value = h->plt.offset;
2290 }
2291
2292 /* Make room for this entry. */
2293 s->size += plt_entry_size;
2294
2295 /* We also need to make an entry in the .got.plt section, which
2296 will be placed in the .got section by the linker script. */
2297 htab->elf.sgotplt->size += 4;
2298
2299 /* We also need to make an entry in the .rel.plt section. */
2300 htab->elf.srelplt->size += sizeof (Elf32_External_Rel);
2301 htab->elf.srelplt->reloc_count++;
2302
2303 if (get_elf_i386_backend_data (info->output_bfd)->is_vxworks
2304 && !info->shared)
2305 {
2306 /* VxWorks has a second set of relocations for each PLT entry
2307 in executables. They go in a separate relocation section,
2308 which is processed by the kernel loader. */
2309
2310 /* There are two relocations for the initial PLT entry: an
2311 R_386_32 relocation for _GLOBAL_OFFSET_TABLE_ + 4 and an
2312 R_386_32 relocation for _GLOBAL_OFFSET_TABLE_ + 8. */
2313
2314 if (h->plt.offset == plt_entry_size)
2315 htab->srelplt2->size += (sizeof (Elf32_External_Rel) * 2);
2316
2317 /* There are two extra relocations for each subsequent PLT entry:
2318 an R_386_32 relocation for the GOT entry, and an R_386_32
2319 relocation for the PLT entry. */
2320
2321 htab->srelplt2->size += (sizeof (Elf32_External_Rel) * 2);
2322 }
2323 }
2324 else
2325 {
2326 h->plt.offset = (bfd_vma) -1;
2327 h->needs_plt = 0;
2328 }
2329 }
2330 else
2331 {
2332 h->plt.offset = (bfd_vma) -1;
2333 h->needs_plt = 0;
2334 }
2335
2336 eh->tlsdesc_got = (bfd_vma) -1;
2337
2338 /* If R_386_TLS_{IE_32,IE,GOTIE} symbol is now local to the binary,
2339 make it a R_386_TLS_LE_32 requiring no TLS entry. */
2340 if (h->got.refcount > 0
2341 && info->executable
2342 && h->dynindx == -1
2343 && (elf_i386_hash_entry(h)->tls_type & GOT_TLS_IE))
2344 h->got.offset = (bfd_vma) -1;
2345 else if (h->got.refcount > 0)
2346 {
2347 asection *s;
2348 bfd_boolean dyn;
2349 int tls_type = elf_i386_hash_entry(h)->tls_type;
2350
2351 /* Make sure this symbol is output as a dynamic symbol.
2352 Undefined weak syms won't yet be marked as dynamic. */
2353 if (h->dynindx == -1
2354 && !h->forced_local)
2355 {
2356 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2357 return FALSE;
2358 }
2359
2360 s = htab->elf.sgot;
2361 if (GOT_TLS_GDESC_P (tls_type))
2362 {
2363 eh->tlsdesc_got = htab->elf.sgotplt->size
2364 - elf_i386_compute_jump_table_size (htab);
2365 htab->elf.sgotplt->size += 8;
2366 h->got.offset = (bfd_vma) -2;
2367 }
2368 if (! GOT_TLS_GDESC_P (tls_type)
2369 || GOT_TLS_GD_P (tls_type))
2370 {
2371 h->got.offset = s->size;
2372 s->size += 4;
2373 /* R_386_TLS_GD needs 2 consecutive GOT slots. */
2374 if (GOT_TLS_GD_P (tls_type) || tls_type == GOT_TLS_IE_BOTH)
2375 s->size += 4;
2376 }
2377 dyn = htab->elf.dynamic_sections_created;
2378 /* R_386_TLS_IE_32 needs one dynamic relocation,
2379 R_386_TLS_IE resp. R_386_TLS_GOTIE needs one dynamic relocation,
2380 (but if both R_386_TLS_IE_32 and R_386_TLS_IE is present, we
2381 need two), R_386_TLS_GD needs one if local symbol and two if
2382 global. */
2383 if (tls_type == GOT_TLS_IE_BOTH)
2384 htab->elf.srelgot->size += 2 * sizeof (Elf32_External_Rel);
2385 else if ((GOT_TLS_GD_P (tls_type) && h->dynindx == -1)
2386 || (tls_type & GOT_TLS_IE))
2387 htab->elf.srelgot->size += sizeof (Elf32_External_Rel);
2388 else if (GOT_TLS_GD_P (tls_type))
2389 htab->elf.srelgot->size += 2 * sizeof (Elf32_External_Rel);
2390 else if (! GOT_TLS_GDESC_P (tls_type)
2391 && (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2392 || h->root.type != bfd_link_hash_undefweak)
2393 && (info->shared
2394 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
2395 htab->elf.srelgot->size += sizeof (Elf32_External_Rel);
2396 if (GOT_TLS_GDESC_P (tls_type))
2397 htab->elf.srelplt->size += sizeof (Elf32_External_Rel);
2398 }
2399 else
2400 h->got.offset = (bfd_vma) -1;
2401
2402 if (eh->dyn_relocs == NULL)
2403 return TRUE;
2404
2405 /* In the shared -Bsymbolic case, discard space allocated for
2406 dynamic pc-relative relocs against symbols which turn out to be
2407 defined in regular objects. For the normal shared case, discard
2408 space for pc-relative relocs that have become local due to symbol
2409 visibility changes. */
2410
2411 if (info->shared)
2412 {
2413 /* The only reloc that uses pc_count is R_386_PC32, which will
2414 appear on a call or on something like ".long foo - .". We
2415 want calls to protected symbols to resolve directly to the
2416 function rather than going via the plt. If people want
2417 function pointer comparisons to work as expected then they
2418 should avoid writing assembly like ".long foo - .". */
2419 if (SYMBOL_CALLS_LOCAL (info, h))
2420 {
2421 struct elf_dyn_relocs **pp;
2422
2423 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2424 {
2425 p->count -= p->pc_count;
2426 p->pc_count = 0;
2427 if (p->count == 0)
2428 *pp = p->next;
2429 else
2430 pp = &p->next;
2431 }
2432 }
2433
2434 if (get_elf_i386_backend_data (info->output_bfd)->is_vxworks)
2435 {
2436 struct elf_dyn_relocs **pp;
2437 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2438 {
2439 if (strcmp (p->sec->output_section->name, ".tls_vars") == 0)
2440 *pp = p->next;
2441 else
2442 pp = &p->next;
2443 }
2444 }
2445
2446 /* Also discard relocs on undefined weak syms with non-default
2447 visibility. */
2448 if (eh->dyn_relocs != NULL
2449 && h->root.type == bfd_link_hash_undefweak)
2450 {
2451 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
2452 eh->dyn_relocs = NULL;
2453
2454 /* Make sure undefined weak symbols are output as a dynamic
2455 symbol in PIEs. */
2456 else if (h->dynindx == -1
2457 && !h->forced_local)
2458 {
2459 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2460 return FALSE;
2461 }
2462 }
2463 }
2464 else if (ELIMINATE_COPY_RELOCS)
2465 {
2466 /* For the non-shared case, discard space for relocs against
2467 symbols which turn out to need copy relocs or are not
2468 dynamic. */
2469
2470 if (!h->non_got_ref
2471 && ((h->def_dynamic
2472 && !h->def_regular)
2473 || (htab->elf.dynamic_sections_created
2474 && (h->root.type == bfd_link_hash_undefweak
2475 || h->root.type == bfd_link_hash_undefined))))
2476 {
2477 /* Make sure this symbol is output as a dynamic symbol.
2478 Undefined weak syms won't yet be marked as dynamic. */
2479 if (h->dynindx == -1
2480 && !h->forced_local)
2481 {
2482 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2483 return FALSE;
2484 }
2485
2486 /* If that succeeded, we know we'll be keeping all the
2487 relocs. */
2488 if (h->dynindx != -1)
2489 goto keep;
2490 }
2491
2492 eh->dyn_relocs = NULL;
2493
2494 keep: ;
2495 }
2496
2497 /* Finally, allocate space. */
2498 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2499 {
2500 asection *sreloc;
2501
2502 sreloc = elf_section_data (p->sec)->sreloc;
2503
2504 BFD_ASSERT (sreloc != NULL);
2505 sreloc->size += p->count * sizeof (Elf32_External_Rel);
2506 }
2507
2508 return TRUE;
2509 }
2510
2511 /* Allocate space in .plt, .got and associated reloc sections for
2512 local dynamic relocs. */
2513
2514 static bfd_boolean
2515 elf_i386_allocate_local_dynrelocs (void **slot, void *inf)
2516 {
2517 struct elf_link_hash_entry *h
2518 = (struct elf_link_hash_entry *) *slot;
2519
2520 if (h->type != STT_GNU_IFUNC
2521 || !h->def_regular
2522 || !h->ref_regular
2523 || !h->forced_local
2524 || h->root.type != bfd_link_hash_defined)
2525 abort ();
2526
2527 return elf_i386_allocate_dynrelocs (h, inf);
2528 }
2529
2530 /* Find any dynamic relocs that apply to read-only sections. */
2531
2532 static bfd_boolean
2533 elf_i386_readonly_dynrelocs (struct elf_link_hash_entry *h, void *inf)
2534 {
2535 struct elf_i386_link_hash_entry *eh;
2536 struct elf_dyn_relocs *p;
2537
2538 /* Skip local IFUNC symbols. */
2539 if (h->forced_local && h->type == STT_GNU_IFUNC)
2540 return TRUE;
2541
2542 eh = (struct elf_i386_link_hash_entry *) h;
2543 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2544 {
2545 asection *s = p->sec->output_section;
2546
2547 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2548 {
2549 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2550
2551 info->flags |= DF_TEXTREL;
2552
2553 if (info->warn_shared_textrel && info->shared)
2554 info->callbacks->einfo (_("%P: %B: warning: relocation against `%s' in readonly section `%A'.\n"),
2555 p->sec->owner, h->root.root.string,
2556 p->sec);
2557
2558 /* Not an error, just cut short the traversal. */
2559 return FALSE;
2560 }
2561 }
2562 return TRUE;
2563 }
2564
2565 /* Convert
2566 mov foo@GOT(%reg), %reg
2567 to
2568 lea foo@GOTOFF(%reg), %reg
2569 with the local symbol, foo. */
2570
2571 static bfd_boolean
2572 elf_i386_convert_mov_to_lea (bfd *abfd, asection *sec,
2573 struct bfd_link_info *link_info)
2574 {
2575 Elf_Internal_Shdr *symtab_hdr;
2576 Elf_Internal_Rela *internal_relocs;
2577 Elf_Internal_Rela *irel, *irelend;
2578 bfd_byte *contents;
2579 struct elf_i386_link_hash_table *htab;
2580 bfd_boolean changed_contents;
2581 bfd_boolean changed_relocs;
2582 bfd_signed_vma *local_got_refcounts;
2583
2584 /* Don't even try to convert non-ELF outputs. */
2585 if (!is_elf_hash_table (link_info->hash))
2586 return FALSE;
2587
2588 /* Nothing to do if there are no codes, no relocations or no output. */
2589 if ((sec->flags & (SEC_CODE | SEC_RELOC)) != (SEC_CODE | SEC_RELOC)
2590 || sec->reloc_count == 0
2591 || discarded_section (sec))
2592 return TRUE;
2593
2594 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2595
2596 /* Load the relocations for this section. */
2597 internal_relocs = (_bfd_elf_link_read_relocs
2598 (abfd, sec, NULL, (Elf_Internal_Rela *) NULL,
2599 link_info->keep_memory));
2600 if (internal_relocs == NULL)
2601 return FALSE;
2602
2603 htab = elf_i386_hash_table (link_info);
2604 changed_contents = FALSE;
2605 changed_relocs = FALSE;
2606 local_got_refcounts = elf_local_got_refcounts (abfd);
2607
2608 /* Get the section contents. */
2609 if (elf_section_data (sec)->this_hdr.contents != NULL)
2610 contents = elf_section_data (sec)->this_hdr.contents;
2611 else
2612 {
2613 if (!bfd_malloc_and_get_section (abfd, sec, &contents))
2614 goto error_return;
2615 }
2616
2617 irelend = internal_relocs + sec->reloc_count;
2618 for (irel = internal_relocs; irel < irelend; irel++)
2619 {
2620 unsigned int r_type = ELF32_R_TYPE (irel->r_info);
2621 unsigned int r_symndx = ELF32_R_SYM (irel->r_info);
2622 unsigned int indx;
2623 struct elf_link_hash_entry *h;
2624
2625 if (r_type != R_386_GOT32)
2626 continue;
2627
2628 /* Get the symbol referred to by the reloc. */
2629 if (r_symndx < symtab_hdr->sh_info)
2630 {
2631 Elf_Internal_Sym *isym;
2632
2633 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
2634 abfd, r_symndx);
2635
2636 /* STT_GNU_IFUNC must keep R_386_GOT32 relocation. */
2637 if (ELF_ST_TYPE (isym->st_info) != STT_GNU_IFUNC
2638 && bfd_get_8 (input_bfd,
2639 contents + irel->r_offset - 2) == 0x8b)
2640 {
2641 bfd_put_8 (output_bfd, 0x8d,
2642 contents + irel->r_offset - 2);
2643 irel->r_info = ELF32_R_INFO (r_symndx, R_386_GOTOFF);
2644 if (local_got_refcounts != NULL
2645 && local_got_refcounts[r_symndx] > 0)
2646 local_got_refcounts[r_symndx] -= 1;
2647 changed_contents = TRUE;
2648 changed_relocs = TRUE;
2649 }
2650 continue;
2651 }
2652
2653 indx = r_symndx - symtab_hdr->sh_info;
2654 h = elf_sym_hashes (abfd)[indx];
2655 BFD_ASSERT (h != NULL);
2656
2657 while (h->root.type == bfd_link_hash_indirect
2658 || h->root.type == bfd_link_hash_warning)
2659 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2660
2661 /* STT_GNU_IFUNC must keep R_386_GOT32 relocation. We also avoid
2662 optimizing _DYNAMIC since ld.so may use its link-time address. */
2663 if (h->def_regular
2664 && h->type != STT_GNU_IFUNC
2665 && h != htab->elf.hdynamic
2666 && SYMBOL_REFERENCES_LOCAL (link_info, h)
2667 && bfd_get_8 (input_bfd,
2668 contents + irel->r_offset - 2) == 0x8b)
2669 {
2670 bfd_put_8 (output_bfd, 0x8d,
2671 contents + irel->r_offset - 2);
2672 irel->r_info = ELF32_R_INFO (r_symndx, R_386_GOTOFF);
2673 if (h->got.refcount > 0)
2674 h->got.refcount -= 1;
2675 changed_contents = TRUE;
2676 changed_relocs = TRUE;
2677 }
2678 }
2679
2680 if (contents != NULL
2681 && elf_section_data (sec)->this_hdr.contents != contents)
2682 {
2683 if (!changed_contents && !link_info->keep_memory)
2684 free (contents);
2685 else
2686 {
2687 /* Cache the section contents for elf_link_input_bfd. */
2688 elf_section_data (sec)->this_hdr.contents = contents;
2689 }
2690 }
2691
2692 if (elf_section_data (sec)->relocs != internal_relocs)
2693 {
2694 if (!changed_relocs)
2695 free (internal_relocs);
2696 else
2697 elf_section_data (sec)->relocs = internal_relocs;
2698 }
2699
2700 return TRUE;
2701
2702 error_return:
2703 if (contents != NULL
2704 && elf_section_data (sec)->this_hdr.contents != contents)
2705 free (contents);
2706 if (internal_relocs != NULL
2707 && elf_section_data (sec)->relocs != internal_relocs)
2708 free (internal_relocs);
2709 return FALSE;
2710 }
2711
2712 /* Set the sizes of the dynamic sections. */
2713
2714 static bfd_boolean
2715 elf_i386_size_dynamic_sections (bfd *output_bfd, struct bfd_link_info *info)
2716 {
2717 struct elf_i386_link_hash_table *htab;
2718 bfd *dynobj;
2719 asection *s;
2720 bfd_boolean relocs;
2721 bfd *ibfd;
2722
2723 htab = elf_i386_hash_table (info);
2724 if (htab == NULL)
2725 return FALSE;
2726 dynobj = htab->elf.dynobj;
2727 if (dynobj == NULL)
2728 abort ();
2729
2730 if (htab->elf.dynamic_sections_created)
2731 {
2732 /* Set the contents of the .interp section to the interpreter. */
2733 if (info->executable)
2734 {
2735 s = bfd_get_linker_section (dynobj, ".interp");
2736 if (s == NULL)
2737 abort ();
2738 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
2739 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2740 }
2741 }
2742
2743 /* Set up .got offsets for local syms, and space for local dynamic
2744 relocs. */
2745 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
2746 {
2747 bfd_signed_vma *local_got;
2748 bfd_signed_vma *end_local_got;
2749 char *local_tls_type;
2750 bfd_vma *local_tlsdesc_gotent;
2751 bfd_size_type locsymcount;
2752 Elf_Internal_Shdr *symtab_hdr;
2753 asection *srel;
2754
2755 if (! is_i386_elf (ibfd))
2756 continue;
2757
2758 for (s = ibfd->sections; s != NULL; s = s->next)
2759 {
2760 struct elf_dyn_relocs *p;
2761
2762 if (!elf_i386_convert_mov_to_lea (ibfd, s, info))
2763 return FALSE;
2764
2765 for (p = ((struct elf_dyn_relocs *)
2766 elf_section_data (s)->local_dynrel);
2767 p != NULL;
2768 p = p->next)
2769 {
2770 if (!bfd_is_abs_section (p->sec)
2771 && bfd_is_abs_section (p->sec->output_section))
2772 {
2773 /* Input section has been discarded, either because
2774 it is a copy of a linkonce section or due to
2775 linker script /DISCARD/, so we'll be discarding
2776 the relocs too. */
2777 }
2778 else if (get_elf_i386_backend_data (output_bfd)->is_vxworks
2779 && strcmp (p->sec->output_section->name,
2780 ".tls_vars") == 0)
2781 {
2782 /* Relocations in vxworks .tls_vars sections are
2783 handled specially by the loader. */
2784 }
2785 else if (p->count != 0)
2786 {
2787 srel = elf_section_data (p->sec)->sreloc;
2788 srel->size += p->count * sizeof (Elf32_External_Rel);
2789 if ((p->sec->output_section->flags & SEC_READONLY) != 0
2790 && (info->flags & DF_TEXTREL) == 0)
2791 {
2792 info->flags |= DF_TEXTREL;
2793 if (info->warn_shared_textrel && info->shared)
2794 info->callbacks->einfo (_("%P: %B: warning: relocation in readonly section `%A'.\n"),
2795 p->sec->owner, p->sec);
2796 }
2797 }
2798 }
2799 }
2800
2801 local_got = elf_local_got_refcounts (ibfd);
2802 if (!local_got)
2803 continue;
2804
2805 symtab_hdr = &elf_symtab_hdr (ibfd);
2806 locsymcount = symtab_hdr->sh_info;
2807 end_local_got = local_got + locsymcount;
2808 local_tls_type = elf_i386_local_got_tls_type (ibfd);
2809 local_tlsdesc_gotent = elf_i386_local_tlsdesc_gotent (ibfd);
2810 s = htab->elf.sgot;
2811 srel = htab->elf.srelgot;
2812 for (; local_got < end_local_got;
2813 ++local_got, ++local_tls_type, ++local_tlsdesc_gotent)
2814 {
2815 *local_tlsdesc_gotent = (bfd_vma) -1;
2816 if (*local_got > 0)
2817 {
2818 if (GOT_TLS_GDESC_P (*local_tls_type))
2819 {
2820 *local_tlsdesc_gotent = htab->elf.sgotplt->size
2821 - elf_i386_compute_jump_table_size (htab);
2822 htab->elf.sgotplt->size += 8;
2823 *local_got = (bfd_vma) -2;
2824 }
2825 if (! GOT_TLS_GDESC_P (*local_tls_type)
2826 || GOT_TLS_GD_P (*local_tls_type))
2827 {
2828 *local_got = s->size;
2829 s->size += 4;
2830 if (GOT_TLS_GD_P (*local_tls_type)
2831 || *local_tls_type == GOT_TLS_IE_BOTH)
2832 s->size += 4;
2833 }
2834 if (info->shared
2835 || GOT_TLS_GD_ANY_P (*local_tls_type)
2836 || (*local_tls_type & GOT_TLS_IE))
2837 {
2838 if (*local_tls_type == GOT_TLS_IE_BOTH)
2839 srel->size += 2 * sizeof (Elf32_External_Rel);
2840 else if (GOT_TLS_GD_P (*local_tls_type)
2841 || ! GOT_TLS_GDESC_P (*local_tls_type))
2842 srel->size += sizeof (Elf32_External_Rel);
2843 if (GOT_TLS_GDESC_P (*local_tls_type))
2844 htab->elf.srelplt->size += sizeof (Elf32_External_Rel);
2845 }
2846 }
2847 else
2848 *local_got = (bfd_vma) -1;
2849 }
2850 }
2851
2852 if (htab->tls_ldm_got.refcount > 0)
2853 {
2854 /* Allocate 2 got entries and 1 dynamic reloc for R_386_TLS_LDM
2855 relocs. */
2856 htab->tls_ldm_got.offset = htab->elf.sgot->size;
2857 htab->elf.sgot->size += 8;
2858 htab->elf.srelgot->size += sizeof (Elf32_External_Rel);
2859 }
2860 else
2861 htab->tls_ldm_got.offset = -1;
2862
2863 /* Allocate global sym .plt and .got entries, and space for global
2864 sym dynamic relocs. */
2865 elf_link_hash_traverse (&htab->elf, elf_i386_allocate_dynrelocs, info);
2866
2867 /* Allocate .plt and .got entries, and space for local symbols. */
2868 htab_traverse (htab->loc_hash_table,
2869 elf_i386_allocate_local_dynrelocs,
2870 info);
2871
2872 /* For every jump slot reserved in the sgotplt, reloc_count is
2873 incremented. However, when we reserve space for TLS descriptors,
2874 it's not incremented, so in order to compute the space reserved
2875 for them, it suffices to multiply the reloc count by the jump
2876 slot size.
2877
2878 PR ld/13302: We start next_irelative_index at the end of .rela.plt
2879 so that R_386_IRELATIVE entries come last. */
2880 if (htab->elf.srelplt)
2881 {
2882 htab->next_tls_desc_index = htab->elf.srelplt->reloc_count;
2883 htab->sgotplt_jump_table_size = htab->next_tls_desc_index * 4;
2884 htab->next_irelative_index = htab->elf.srelplt->reloc_count - 1;
2885 }
2886 else if (htab->elf.irelplt)
2887 htab->next_irelative_index = htab->elf.irelplt->reloc_count - 1;
2888
2889
2890 if (htab->elf.sgotplt)
2891 {
2892 /* Don't allocate .got.plt section if there are no GOT nor PLT
2893 entries and there is no reference to _GLOBAL_OFFSET_TABLE_. */
2894 if ((htab->elf.hgot == NULL
2895 || !htab->elf.hgot->ref_regular_nonweak)
2896 && (htab->elf.sgotplt->size
2897 == get_elf_backend_data (output_bfd)->got_header_size)
2898 && (htab->elf.splt == NULL
2899 || htab->elf.splt->size == 0)
2900 && (htab->elf.sgot == NULL
2901 || htab->elf.sgot->size == 0)
2902 && (htab->elf.iplt == NULL
2903 || htab->elf.iplt->size == 0)
2904 && (htab->elf.igotplt == NULL
2905 || htab->elf.igotplt->size == 0))
2906 htab->elf.sgotplt->size = 0;
2907 }
2908
2909
2910 if (htab->plt_eh_frame != NULL
2911 && htab->elf.splt != NULL
2912 && htab->elf.splt->size != 0
2913 && !bfd_is_abs_section (htab->elf.splt->output_section)
2914 && _bfd_elf_eh_frame_present (info))
2915 htab->plt_eh_frame->size = sizeof (elf_i386_eh_frame_plt);
2916
2917 /* We now have determined the sizes of the various dynamic sections.
2918 Allocate memory for them. */
2919 relocs = FALSE;
2920 for (s = dynobj->sections; s != NULL; s = s->next)
2921 {
2922 bfd_boolean strip_section = TRUE;
2923
2924 if ((s->flags & SEC_LINKER_CREATED) == 0)
2925 continue;
2926
2927 if (s == htab->elf.splt
2928 || s == htab->elf.sgot)
2929 {
2930 /* Strip this section if we don't need it; see the
2931 comment below. */
2932 /* We'd like to strip these sections if they aren't needed, but if
2933 we've exported dynamic symbols from them we must leave them.
2934 It's too late to tell BFD to get rid of the symbols. */
2935
2936 if (htab->elf.hplt != NULL)
2937 strip_section = FALSE;
2938 }
2939 else if (s == htab->elf.sgotplt
2940 || s == htab->elf.iplt
2941 || s == htab->elf.igotplt
2942 || s == htab->plt_eh_frame
2943 || s == htab->sdynbss)
2944 {
2945 /* Strip these too. */
2946 }
2947 else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rel"))
2948 {
2949 if (s->size != 0
2950 && s != htab->elf.srelplt
2951 && s != htab->srelplt2)
2952 relocs = TRUE;
2953
2954 /* We use the reloc_count field as a counter if we need
2955 to copy relocs into the output file. */
2956 s->reloc_count = 0;
2957 }
2958 else
2959 {
2960 /* It's not one of our sections, so don't allocate space. */
2961 continue;
2962 }
2963
2964 if (s->size == 0)
2965 {
2966 /* If we don't need this section, strip it from the
2967 output file. This is mostly to handle .rel.bss and
2968 .rel.plt. We must create both sections in
2969 create_dynamic_sections, because they must be created
2970 before the linker maps input sections to output
2971 sections. The linker does that before
2972 adjust_dynamic_symbol is called, and it is that
2973 function which decides whether anything needs to go
2974 into these sections. */
2975 if (strip_section)
2976 s->flags |= SEC_EXCLUDE;
2977 continue;
2978 }
2979
2980 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2981 continue;
2982
2983 /* Allocate memory for the section contents. We use bfd_zalloc
2984 here in case unused entries are not reclaimed before the
2985 section's contents are written out. This should not happen,
2986 but this way if it does, we get a R_386_NONE reloc instead
2987 of garbage. */
2988 s->contents = (unsigned char *) bfd_zalloc (dynobj, s->size);
2989 if (s->contents == NULL)
2990 return FALSE;
2991 }
2992
2993 if (htab->plt_eh_frame != NULL
2994 && htab->plt_eh_frame->contents != NULL)
2995 {
2996 memcpy (htab->plt_eh_frame->contents, elf_i386_eh_frame_plt,
2997 sizeof (elf_i386_eh_frame_plt));
2998 bfd_put_32 (dynobj, htab->elf.splt->size,
2999 htab->plt_eh_frame->contents + PLT_FDE_LEN_OFFSET);
3000 }
3001
3002 if (htab->elf.dynamic_sections_created)
3003 {
3004 /* Add some entries to the .dynamic section. We fill in the
3005 values later, in elf_i386_finish_dynamic_sections, but we
3006 must add the entries now so that we get the correct size for
3007 the .dynamic section. The DT_DEBUG entry is filled in by the
3008 dynamic linker and used by the debugger. */
3009 #define add_dynamic_entry(TAG, VAL) \
3010 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3011
3012 if (info->executable)
3013 {
3014 if (!add_dynamic_entry (DT_DEBUG, 0))
3015 return FALSE;
3016 }
3017
3018 if (htab->elf.splt->size != 0)
3019 {
3020 if (!add_dynamic_entry (DT_PLTGOT, 0)
3021 || !add_dynamic_entry (DT_PLTRELSZ, 0)
3022 || !add_dynamic_entry (DT_PLTREL, DT_REL)
3023 || !add_dynamic_entry (DT_JMPREL, 0))
3024 return FALSE;
3025 }
3026
3027 if (relocs)
3028 {
3029 if (!add_dynamic_entry (DT_REL, 0)
3030 || !add_dynamic_entry (DT_RELSZ, 0)
3031 || !add_dynamic_entry (DT_RELENT, sizeof (Elf32_External_Rel)))
3032 return FALSE;
3033
3034 /* If any dynamic relocs apply to a read-only section,
3035 then we need a DT_TEXTREL entry. */
3036 if ((info->flags & DF_TEXTREL) == 0)
3037 elf_link_hash_traverse (&htab->elf,
3038 elf_i386_readonly_dynrelocs, info);
3039
3040 if ((info->flags & DF_TEXTREL) != 0)
3041 {
3042 if (!add_dynamic_entry (DT_TEXTREL, 0))
3043 return FALSE;
3044 }
3045 }
3046 if (get_elf_i386_backend_data (output_bfd)->is_vxworks
3047 && !elf_vxworks_add_dynamic_entries (output_bfd, info))
3048 return FALSE;
3049 }
3050 #undef add_dynamic_entry
3051
3052 return TRUE;
3053 }
3054
3055 static bfd_boolean
3056 elf_i386_always_size_sections (bfd *output_bfd,
3057 struct bfd_link_info *info)
3058 {
3059 asection *tls_sec = elf_hash_table (info)->tls_sec;
3060
3061 if (tls_sec)
3062 {
3063 struct elf_link_hash_entry *tlsbase;
3064
3065 tlsbase = elf_link_hash_lookup (elf_hash_table (info),
3066 "_TLS_MODULE_BASE_",
3067 FALSE, FALSE, FALSE);
3068
3069 if (tlsbase && tlsbase->type == STT_TLS)
3070 {
3071 struct elf_i386_link_hash_table *htab;
3072 struct bfd_link_hash_entry *bh = NULL;
3073 const struct elf_backend_data *bed
3074 = get_elf_backend_data (output_bfd);
3075
3076 htab = elf_i386_hash_table (info);
3077 if (htab == NULL)
3078 return FALSE;
3079
3080 if (!(_bfd_generic_link_add_one_symbol
3081 (info, output_bfd, "_TLS_MODULE_BASE_", BSF_LOCAL,
3082 tls_sec, 0, NULL, FALSE,
3083 bed->collect, &bh)))
3084 return FALSE;
3085
3086 htab->tls_module_base = bh;
3087
3088 tlsbase = (struct elf_link_hash_entry *)bh;
3089 tlsbase->def_regular = 1;
3090 tlsbase->other = STV_HIDDEN;
3091 (*bed->elf_backend_hide_symbol) (info, tlsbase, TRUE);
3092 }
3093 }
3094
3095 return TRUE;
3096 }
3097
3098 /* Set the correct type for an x86 ELF section. We do this by the
3099 section name, which is a hack, but ought to work. */
3100
3101 static bfd_boolean
3102 elf_i386_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
3103 Elf_Internal_Shdr *hdr,
3104 asection *sec)
3105 {
3106 const char *name;
3107
3108 name = bfd_get_section_name (abfd, sec);
3109
3110 /* This is an ugly, but unfortunately necessary hack that is
3111 needed when producing EFI binaries on x86. It tells
3112 elf.c:elf_fake_sections() not to consider ".reloc" as a section
3113 containing ELF relocation info. We need this hack in order to
3114 be able to generate ELF binaries that can be translated into
3115 EFI applications (which are essentially COFF objects). Those
3116 files contain a COFF ".reloc" section inside an ELFNN object,
3117 which would normally cause BFD to segfault because it would
3118 attempt to interpret this section as containing relocation
3119 entries for section "oc". With this hack enabled, ".reloc"
3120 will be treated as a normal data section, which will avoid the
3121 segfault. However, you won't be able to create an ELFNN binary
3122 with a section named "oc" that needs relocations, but that's
3123 the kind of ugly side-effects you get when detecting section
3124 types based on their names... In practice, this limitation is
3125 unlikely to bite. */
3126 if (strcmp (name, ".reloc") == 0)
3127 hdr->sh_type = SHT_PROGBITS;
3128
3129 return TRUE;
3130 }
3131
3132 /* _TLS_MODULE_BASE_ needs to be treated especially when linking
3133 executables. Rather than setting it to the beginning of the TLS
3134 section, we have to set it to the end. This function may be called
3135 multiple times, it is idempotent. */
3136
3137 static void
3138 elf_i386_set_tls_module_base (struct bfd_link_info *info)
3139 {
3140 struct elf_i386_link_hash_table *htab;
3141 struct bfd_link_hash_entry *base;
3142
3143 if (!info->executable)
3144 return;
3145
3146 htab = elf_i386_hash_table (info);
3147 if (htab == NULL)
3148 return;
3149
3150 base = htab->tls_module_base;
3151 if (base == NULL)
3152 return;
3153
3154 base->u.def.value = htab->elf.tls_size;
3155 }
3156
3157 /* Return the base VMA address which should be subtracted from real addresses
3158 when resolving @dtpoff relocation.
3159 This is PT_TLS segment p_vaddr. */
3160
3161 static bfd_vma
3162 elf_i386_dtpoff_base (struct bfd_link_info *info)
3163 {
3164 /* If tls_sec is NULL, we should have signalled an error already. */
3165 if (elf_hash_table (info)->tls_sec == NULL)
3166 return 0;
3167 return elf_hash_table (info)->tls_sec->vma;
3168 }
3169
3170 /* Return the relocation value for @tpoff relocation
3171 if STT_TLS virtual address is ADDRESS. */
3172
3173 static bfd_vma
3174 elf_i386_tpoff (struct bfd_link_info *info, bfd_vma address)
3175 {
3176 struct elf_link_hash_table *htab = elf_hash_table (info);
3177 const struct elf_backend_data *bed = get_elf_backend_data (info->output_bfd);
3178 bfd_vma static_tls_size;
3179
3180 /* If tls_sec is NULL, we should have signalled an error already. */
3181 if (htab->tls_sec == NULL)
3182 return 0;
3183
3184 /* Consider special static TLS alignment requirements. */
3185 static_tls_size = BFD_ALIGN (htab->tls_size, bed->static_tls_alignment);
3186 return static_tls_size + htab->tls_sec->vma - address;
3187 }
3188
3189 /* Relocate an i386 ELF section. */
3190
3191 static bfd_boolean
3192 elf_i386_relocate_section (bfd *output_bfd,
3193 struct bfd_link_info *info,
3194 bfd *input_bfd,
3195 asection *input_section,
3196 bfd_byte *contents,
3197 Elf_Internal_Rela *relocs,
3198 Elf_Internal_Sym *local_syms,
3199 asection **local_sections)
3200 {
3201 struct elf_i386_link_hash_table *htab;
3202 Elf_Internal_Shdr *symtab_hdr;
3203 struct elf_link_hash_entry **sym_hashes;
3204 bfd_vma *local_got_offsets;
3205 bfd_vma *local_tlsdesc_gotents;
3206 Elf_Internal_Rela *rel;
3207 Elf_Internal_Rela *relend;
3208 bfd_boolean is_vxworks_tls;
3209 unsigned plt_entry_size;
3210
3211 BFD_ASSERT (is_i386_elf (input_bfd));
3212
3213 htab = elf_i386_hash_table (info);
3214 if (htab == NULL)
3215 return FALSE;
3216 symtab_hdr = &elf_symtab_hdr (input_bfd);
3217 sym_hashes = elf_sym_hashes (input_bfd);
3218 local_got_offsets = elf_local_got_offsets (input_bfd);
3219 local_tlsdesc_gotents = elf_i386_local_tlsdesc_gotent (input_bfd);
3220 /* We have to handle relocations in vxworks .tls_vars sections
3221 specially, because the dynamic loader is 'weird'. */
3222 is_vxworks_tls = (get_elf_i386_backend_data (output_bfd)->is_vxworks
3223 && info->shared
3224 && !strcmp (input_section->output_section->name,
3225 ".tls_vars"));
3226
3227 elf_i386_set_tls_module_base (info);
3228
3229 plt_entry_size = GET_PLT_ENTRY_SIZE (output_bfd);
3230
3231 rel = relocs;
3232 relend = relocs + input_section->reloc_count;
3233 for (; rel < relend; rel++)
3234 {
3235 unsigned int r_type;
3236 reloc_howto_type *howto;
3237 unsigned long r_symndx;
3238 struct elf_link_hash_entry *h;
3239 Elf_Internal_Sym *sym;
3240 asection *sec;
3241 bfd_vma off, offplt;
3242 bfd_vma relocation;
3243 bfd_boolean unresolved_reloc;
3244 bfd_reloc_status_type r;
3245 unsigned int indx;
3246 int tls_type;
3247
3248 r_type = ELF32_R_TYPE (rel->r_info);
3249 if (r_type == R_386_GNU_VTINHERIT
3250 || r_type == R_386_GNU_VTENTRY)
3251 continue;
3252
3253 if ((indx = r_type) >= R_386_standard
3254 && ((indx = r_type - R_386_ext_offset) - R_386_standard
3255 >= R_386_ext - R_386_standard)
3256 && ((indx = r_type - R_386_tls_offset) - R_386_ext
3257 >= R_386_irelative - R_386_ext))
3258 {
3259 (*_bfd_error_handler)
3260 (_("%B: unrecognized relocation (0x%x) in section `%A'"),
3261 input_bfd, input_section, r_type);
3262 bfd_set_error (bfd_error_bad_value);
3263 return FALSE;
3264 }
3265 howto = elf_howto_table + indx;
3266
3267 r_symndx = ELF32_R_SYM (rel->r_info);
3268 h = NULL;
3269 sym = NULL;
3270 sec = NULL;
3271 unresolved_reloc = FALSE;
3272 if (r_symndx < symtab_hdr->sh_info)
3273 {
3274 sym = local_syms + r_symndx;
3275 sec = local_sections[r_symndx];
3276 relocation = (sec->output_section->vma
3277 + sec->output_offset
3278 + sym->st_value);
3279
3280 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION
3281 && ((sec->flags & SEC_MERGE) != 0
3282 || (info->relocatable
3283 && sec->output_offset != 0)))
3284 {
3285 bfd_vma addend;
3286 bfd_byte *where = contents + rel->r_offset;
3287
3288 switch (howto->size)
3289 {
3290 case 0:
3291 addend = bfd_get_8 (input_bfd, where);
3292 if (howto->pc_relative)
3293 {
3294 addend = (addend ^ 0x80) - 0x80;
3295 addend += 1;
3296 }
3297 break;
3298 case 1:
3299 addend = bfd_get_16 (input_bfd, where);
3300 if (howto->pc_relative)
3301 {
3302 addend = (addend ^ 0x8000) - 0x8000;
3303 addend += 2;
3304 }
3305 break;
3306 case 2:
3307 addend = bfd_get_32 (input_bfd, where);
3308 if (howto->pc_relative)
3309 {
3310 addend = (addend ^ 0x80000000) - 0x80000000;
3311 addend += 4;
3312 }
3313 break;
3314 default:
3315 abort ();
3316 }
3317
3318 if (info->relocatable)
3319 addend += sec->output_offset;
3320 else
3321 {
3322 asection *msec = sec;
3323 addend = _bfd_elf_rel_local_sym (output_bfd, sym, &msec,
3324 addend);
3325 addend -= relocation;
3326 addend += msec->output_section->vma + msec->output_offset;
3327 }
3328
3329 switch (howto->size)
3330 {
3331 case 0:
3332 /* FIXME: overflow checks. */
3333 if (howto->pc_relative)
3334 addend -= 1;
3335 bfd_put_8 (input_bfd, addend, where);
3336 break;
3337 case 1:
3338 if (howto->pc_relative)
3339 addend -= 2;
3340 bfd_put_16 (input_bfd, addend, where);
3341 break;
3342 case 2:
3343 if (howto->pc_relative)
3344 addend -= 4;
3345 bfd_put_32 (input_bfd, addend, where);
3346 break;
3347 }
3348 }
3349 else if (!info->relocatable
3350 && ELF32_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
3351 {
3352 /* Relocate against local STT_GNU_IFUNC symbol. */
3353 h = elf_i386_get_local_sym_hash (htab, input_bfd, rel,
3354 FALSE);
3355 if (h == NULL)
3356 abort ();
3357
3358 /* Set STT_GNU_IFUNC symbol value. */
3359 h->root.u.def.value = sym->st_value;
3360 h->root.u.def.section = sec;
3361 }
3362 }
3363 else
3364 {
3365 bfd_boolean warned ATTRIBUTE_UNUSED;
3366
3367 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
3368 r_symndx, symtab_hdr, sym_hashes,
3369 h, sec, relocation,
3370 unresolved_reloc, warned);
3371 }
3372
3373 if (sec != NULL && discarded_section (sec))
3374 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
3375 rel, 1, relend, howto, 0, contents);
3376
3377 if (info->relocatable)
3378 continue;
3379
3380 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
3381 it here if it is defined in a non-shared object. */
3382 if (h != NULL
3383 && h->type == STT_GNU_IFUNC
3384 && h->def_regular)
3385 {
3386 asection *plt, *gotplt, *base_got;
3387 bfd_vma plt_index;
3388 const char *name;
3389
3390 if ((input_section->flags & SEC_ALLOC) == 0
3391 || h->plt.offset == (bfd_vma) -1)
3392 abort ();
3393
3394 /* STT_GNU_IFUNC symbol must go through PLT. */
3395 if (htab->elf.splt != NULL)
3396 {
3397 plt = htab->elf.splt;
3398 gotplt = htab->elf.sgotplt;
3399 }
3400 else
3401 {
3402 plt = htab->elf.iplt;
3403 gotplt = htab->elf.igotplt;
3404 }
3405
3406 relocation = (plt->output_section->vma
3407 + plt->output_offset + h->plt.offset);
3408
3409 switch (r_type)
3410 {
3411 default:
3412 if (h->root.root.string)
3413 name = h->root.root.string;
3414 else
3415 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
3416 NULL);
3417 (*_bfd_error_handler)
3418 (_("%B: relocation %s against STT_GNU_IFUNC "
3419 "symbol `%s' isn't handled by %s"), input_bfd,
3420 elf_howto_table[r_type].name,
3421 name, __FUNCTION__);
3422 bfd_set_error (bfd_error_bad_value);
3423 return FALSE;
3424
3425 case R_386_32:
3426 /* Generate dynamic relcoation only when there is a
3427 non-GOT reference in a shared object. */
3428 if (info->shared && h->non_got_ref)
3429 {
3430 Elf_Internal_Rela outrel;
3431 bfd_byte *loc;
3432 asection *sreloc;
3433 bfd_vma offset;
3434
3435 /* Need a dynamic relocation to get the real function
3436 adddress. */
3437 offset = _bfd_elf_section_offset (output_bfd,
3438 info,
3439 input_section,
3440 rel->r_offset);
3441 if (offset == (bfd_vma) -1
3442 || offset == (bfd_vma) -2)
3443 abort ();
3444
3445 outrel.r_offset = (input_section->output_section->vma
3446 + input_section->output_offset
3447 + offset);
3448
3449 if (h->dynindx == -1
3450 || h->forced_local
3451 || info->executable)
3452 {
3453 /* This symbol is resolved locally. */
3454 outrel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
3455 bfd_put_32 (output_bfd,
3456 (h->root.u.def.value
3457 + h->root.u.def.section->output_section->vma
3458 + h->root.u.def.section->output_offset),
3459 contents + offset);
3460 }
3461 else
3462 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3463
3464 sreloc = htab->elf.irelifunc;
3465 loc = sreloc->contents;
3466 loc += (sreloc->reloc_count++
3467 * sizeof (Elf32_External_Rel));
3468 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3469
3470 /* If this reloc is against an external symbol, we
3471 do not want to fiddle with the addend. Otherwise,
3472 we need to include the symbol value so that it
3473 becomes an addend for the dynamic reloc. For an
3474 internal symbol, we have updated addend. */
3475 continue;
3476 }
3477 /* FALLTHROUGH */
3478 case R_386_PC32:
3479 case R_386_PLT32:
3480 goto do_relocation;
3481
3482 case R_386_GOT32:
3483 base_got = htab->elf.sgot;
3484 off = h->got.offset;
3485
3486 if (base_got == NULL)
3487 abort ();
3488
3489 if (off == (bfd_vma) -1)
3490 {
3491 /* We can't use h->got.offset here to save state, or
3492 even just remember the offset, as finish_dynamic_symbol
3493 would use that as offset into .got. */
3494
3495 if (htab->elf.splt != NULL)
3496 {
3497 plt_index = h->plt.offset / plt_entry_size - 1;
3498 off = (plt_index + 3) * 4;
3499 base_got = htab->elf.sgotplt;
3500 }
3501 else
3502 {
3503 plt_index = h->plt.offset / plt_entry_size;
3504 off = plt_index * 4;
3505 base_got = htab->elf.igotplt;
3506 }
3507
3508 if (h->dynindx == -1
3509 || h->forced_local
3510 || info->symbolic)
3511 {
3512 /* This references the local defitionion. We must
3513 initialize this entry in the global offset table.
3514 Since the offset must always be a multiple of 8,
3515 we use the least significant bit to record
3516 whether we have initialized it already.
3517
3518 When doing a dynamic link, we create a .rela.got
3519 relocation entry to initialize the value. This
3520 is done in the finish_dynamic_symbol routine. */
3521 if ((off & 1) != 0)
3522 off &= ~1;
3523 else
3524 {
3525 bfd_put_32 (output_bfd, relocation,
3526 base_got->contents + off);
3527 h->got.offset |= 1;
3528 }
3529 }
3530
3531 relocation = off;
3532
3533 /* Adjust for static executables. */
3534 if (htab->elf.splt == NULL)
3535 relocation += gotplt->output_offset;
3536 }
3537 else
3538 {
3539 relocation = (base_got->output_section->vma
3540 + base_got->output_offset + off
3541 - gotplt->output_section->vma
3542 - gotplt->output_offset);
3543 /* Adjust for static executables. */
3544 if (htab->elf.splt == NULL)
3545 relocation += gotplt->output_offset;
3546 }
3547
3548 goto do_relocation;
3549
3550 case R_386_GOTOFF:
3551 relocation -= (gotplt->output_section->vma
3552 + gotplt->output_offset);
3553 goto do_relocation;
3554 }
3555 }
3556
3557 switch (r_type)
3558 {
3559 case R_386_GOT32:
3560 /* Relocation is to the entry for this symbol in the global
3561 offset table. */
3562 if (htab->elf.sgot == NULL)
3563 abort ();
3564
3565 if (h != NULL)
3566 {
3567 bfd_boolean dyn;
3568
3569 off = h->got.offset;
3570 dyn = htab->elf.dynamic_sections_created;
3571 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
3572 || (info->shared
3573 && SYMBOL_REFERENCES_LOCAL (info, h))
3574 || (ELF_ST_VISIBILITY (h->other)
3575 && h->root.type == bfd_link_hash_undefweak))
3576 {
3577 /* This is actually a static link, or it is a
3578 -Bsymbolic link and the symbol is defined
3579 locally, or the symbol was forced to be local
3580 because of a version file. We must initialize
3581 this entry in the global offset table. Since the
3582 offset must always be a multiple of 4, we use the
3583 least significant bit to record whether we have
3584 initialized it already.
3585
3586 When doing a dynamic link, we create a .rel.got
3587 relocation entry to initialize the value. This
3588 is done in the finish_dynamic_symbol routine. */
3589 if ((off & 1) != 0)
3590 off &= ~1;
3591 else
3592 {
3593 bfd_put_32 (output_bfd, relocation,
3594 htab->elf.sgot->contents + off);
3595 h->got.offset |= 1;
3596 }
3597 }
3598 else
3599 unresolved_reloc = FALSE;
3600 }
3601 else
3602 {
3603 if (local_got_offsets == NULL)
3604 abort ();
3605
3606 off = local_got_offsets[r_symndx];
3607
3608 /* The offset must always be a multiple of 4. We use
3609 the least significant bit to record whether we have
3610 already generated the necessary reloc. */
3611 if ((off & 1) != 0)
3612 off &= ~1;
3613 else
3614 {
3615 bfd_put_32 (output_bfd, relocation,
3616 htab->elf.sgot->contents + off);
3617
3618 if (info->shared)
3619 {
3620 asection *s;
3621 Elf_Internal_Rela outrel;
3622 bfd_byte *loc;
3623
3624 s = htab->elf.srelgot;
3625 if (s == NULL)
3626 abort ();
3627
3628 outrel.r_offset = (htab->elf.sgot->output_section->vma
3629 + htab->elf.sgot->output_offset
3630 + off);
3631 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
3632 loc = s->contents;
3633 loc += s->reloc_count++ * sizeof (Elf32_External_Rel);
3634 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3635 }
3636
3637 local_got_offsets[r_symndx] |= 1;
3638 }
3639 }
3640
3641 if (off >= (bfd_vma) -2)
3642 abort ();
3643
3644 relocation = htab->elf.sgot->output_section->vma
3645 + htab->elf.sgot->output_offset + off
3646 - htab->elf.sgotplt->output_section->vma
3647 - htab->elf.sgotplt->output_offset;
3648 break;
3649
3650 case R_386_GOTOFF:
3651 /* Relocation is relative to the start of the global offset
3652 table. */
3653
3654 /* Check to make sure it isn't a protected function symbol
3655 for shared library since it may not be local when used
3656 as function address. We also need to make sure that a
3657 symbol is defined locally. */
3658 if (info->shared && h)
3659 {
3660 if (!h->def_regular)
3661 {
3662 const char *v;
3663
3664 switch (ELF_ST_VISIBILITY (h->other))
3665 {
3666 case STV_HIDDEN:
3667 v = _("hidden symbol");
3668 break;
3669 case STV_INTERNAL:
3670 v = _("internal symbol");
3671 break;
3672 case STV_PROTECTED:
3673 v = _("protected symbol");
3674 break;
3675 default:
3676 v = _("symbol");
3677 break;
3678 }
3679
3680 (*_bfd_error_handler)
3681 (_("%B: relocation R_386_GOTOFF against undefined %s `%s' can not be used when making a shared object"),
3682 input_bfd, v, h->root.root.string);
3683 bfd_set_error (bfd_error_bad_value);
3684 return FALSE;
3685 }
3686 else if (!info->executable
3687 && !SYMBOLIC_BIND (info, h)
3688 && h->type == STT_FUNC
3689 && ELF_ST_VISIBILITY (h->other) == STV_PROTECTED)
3690 {
3691 (*_bfd_error_handler)
3692 (_("%B: relocation R_386_GOTOFF against protected function `%s' can not be used when making a shared object"),
3693 input_bfd, h->root.root.string);
3694 bfd_set_error (bfd_error_bad_value);
3695 return FALSE;
3696 }
3697 }
3698
3699 /* Note that sgot is not involved in this
3700 calculation. We always want the start of .got.plt. If we
3701 defined _GLOBAL_OFFSET_TABLE_ in a different way, as is
3702 permitted by the ABI, we might have to change this
3703 calculation. */
3704 relocation -= htab->elf.sgotplt->output_section->vma
3705 + htab->elf.sgotplt->output_offset;
3706 break;
3707
3708 case R_386_GOTPC:
3709 /* Use global offset table as symbol value. */
3710 relocation = htab->elf.sgotplt->output_section->vma
3711 + htab->elf.sgotplt->output_offset;
3712 unresolved_reloc = FALSE;
3713 break;
3714
3715 case R_386_PLT32:
3716 /* Relocation is to the entry for this symbol in the
3717 procedure linkage table. */
3718
3719 /* Resolve a PLT32 reloc against a local symbol directly,
3720 without using the procedure linkage table. */
3721 if (h == NULL)
3722 break;
3723
3724 if (h->plt.offset == (bfd_vma) -1
3725 || htab->elf.splt == NULL)
3726 {
3727 /* We didn't make a PLT entry for this symbol. This
3728 happens when statically linking PIC code, or when
3729 using -Bsymbolic. */
3730 break;
3731 }
3732
3733 relocation = (htab->elf.splt->output_section->vma
3734 + htab->elf.splt->output_offset
3735 + h->plt.offset);
3736 unresolved_reloc = FALSE;
3737 break;
3738
3739 case R_386_32:
3740 case R_386_PC32:
3741 if ((input_section->flags & SEC_ALLOC) == 0
3742 || is_vxworks_tls)
3743 break;
3744
3745 if ((info->shared
3746 && (h == NULL
3747 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3748 || h->root.type != bfd_link_hash_undefweak)
3749 && (r_type != R_386_PC32
3750 || !SYMBOL_CALLS_LOCAL (info, h)))
3751 || (ELIMINATE_COPY_RELOCS
3752 && !info->shared
3753 && h != NULL
3754 && h->dynindx != -1
3755 && !h->non_got_ref
3756 && ((h->def_dynamic
3757 && !h->def_regular)
3758 || h->root.type == bfd_link_hash_undefweak
3759 || h->root.type == bfd_link_hash_undefined)))
3760 {
3761 Elf_Internal_Rela outrel;
3762 bfd_byte *loc;
3763 bfd_boolean skip, relocate;
3764 asection *sreloc;
3765
3766 /* When generating a shared object, these relocations
3767 are copied into the output file to be resolved at run
3768 time. */
3769
3770 skip = FALSE;
3771 relocate = FALSE;
3772
3773 outrel.r_offset =
3774 _bfd_elf_section_offset (output_bfd, info, input_section,
3775 rel->r_offset);
3776 if (outrel.r_offset == (bfd_vma) -1)
3777 skip = TRUE;
3778 else if (outrel.r_offset == (bfd_vma) -2)
3779 skip = TRUE, relocate = TRUE;
3780 outrel.r_offset += (input_section->output_section->vma
3781 + input_section->output_offset);
3782
3783 if (skip)
3784 memset (&outrel, 0, sizeof outrel);
3785 else if (h != NULL
3786 && h->dynindx != -1
3787 && (r_type == R_386_PC32
3788 || !info->shared
3789 || !SYMBOLIC_BIND (info, h)
3790 || !h->def_regular))
3791 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3792 else
3793 {
3794 /* This symbol is local, or marked to become local. */
3795 relocate = TRUE;
3796 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
3797 }
3798
3799 sreloc = elf_section_data (input_section)->sreloc;
3800
3801 if (sreloc == NULL || sreloc->contents == NULL)
3802 {
3803 r = bfd_reloc_notsupported;
3804 goto check_relocation_error;
3805 }
3806
3807 loc = sreloc->contents;
3808 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rel);
3809
3810 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3811
3812 /* If this reloc is against an external symbol, we do
3813 not want to fiddle with the addend. Otherwise, we
3814 need to include the symbol value so that it becomes
3815 an addend for the dynamic reloc. */
3816 if (! relocate)
3817 continue;
3818 }
3819 break;
3820
3821 case R_386_TLS_IE:
3822 if (!info->executable)
3823 {
3824 Elf_Internal_Rela outrel;
3825 bfd_byte *loc;
3826 asection *sreloc;
3827
3828 outrel.r_offset = rel->r_offset
3829 + input_section->output_section->vma
3830 + input_section->output_offset;
3831 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
3832 sreloc = elf_section_data (input_section)->sreloc;
3833 if (sreloc == NULL)
3834 abort ();
3835 loc = sreloc->contents;
3836 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rel);
3837 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3838 }
3839 /* Fall through */
3840
3841 case R_386_TLS_GD:
3842 case R_386_TLS_GOTDESC:
3843 case R_386_TLS_DESC_CALL:
3844 case R_386_TLS_IE_32:
3845 case R_386_TLS_GOTIE:
3846 tls_type = GOT_UNKNOWN;
3847 if (h == NULL && local_got_offsets)
3848 tls_type = elf_i386_local_got_tls_type (input_bfd) [r_symndx];
3849 else if (h != NULL)
3850 tls_type = elf_i386_hash_entry(h)->tls_type;
3851 if (tls_type == GOT_TLS_IE)
3852 tls_type = GOT_TLS_IE_NEG;
3853
3854 if (! elf_i386_tls_transition (info, input_bfd,
3855 input_section, contents,
3856 symtab_hdr, sym_hashes,
3857 &r_type, tls_type, rel,
3858 relend, h, r_symndx))
3859 return FALSE;
3860
3861 if (r_type == R_386_TLS_LE_32)
3862 {
3863 BFD_ASSERT (! unresolved_reloc);
3864 if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GD)
3865 {
3866 unsigned int type;
3867 bfd_vma roff;
3868
3869 /* GD->LE transition. */
3870 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
3871 if (type == 0x04)
3872 {
3873 /* leal foo(,%reg,1), %eax; call ___tls_get_addr
3874 Change it into:
3875 movl %gs:0, %eax; subl $foo@tpoff, %eax
3876 (6 byte form of subl). */
3877 memcpy (contents + rel->r_offset - 3,
3878 "\x65\xa1\0\0\0\0\x81\xe8\0\0\0", 12);
3879 roff = rel->r_offset + 5;
3880 }
3881 else
3882 {
3883 /* leal foo(%reg), %eax; call ___tls_get_addr; nop
3884 Change it into:
3885 movl %gs:0, %eax; subl $foo@tpoff, %eax
3886 (6 byte form of subl). */
3887 memcpy (contents + rel->r_offset - 2,
3888 "\x65\xa1\0\0\0\0\x81\xe8\0\0\0", 12);
3889 roff = rel->r_offset + 6;
3890 }
3891 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
3892 contents + roff);
3893 /* Skip R_386_PC32/R_386_PLT32. */
3894 rel++;
3895 continue;
3896 }
3897 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GOTDESC)
3898 {
3899 /* GDesc -> LE transition.
3900 It's originally something like:
3901 leal x@tlsdesc(%ebx), %eax
3902
3903 leal x@ntpoff, %eax
3904
3905 Registers other than %eax may be set up here. */
3906
3907 unsigned int val;
3908 bfd_vma roff;
3909
3910 roff = rel->r_offset;
3911 val = bfd_get_8 (input_bfd, contents + roff - 1);
3912
3913 /* Now modify the instruction as appropriate. */
3914 /* aoliva FIXME: remove the above and xor the byte
3915 below with 0x86. */
3916 bfd_put_8 (output_bfd, val ^ 0x86,
3917 contents + roff - 1);
3918 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
3919 contents + roff);
3920 continue;
3921 }
3922 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_DESC_CALL)
3923 {
3924 /* GDesc -> LE transition.
3925 It's originally:
3926 call *(%eax)
3927 Turn it into:
3928 xchg %ax,%ax */
3929
3930 bfd_vma roff;
3931
3932 roff = rel->r_offset;
3933 bfd_put_8 (output_bfd, 0x66, contents + roff);
3934 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
3935 continue;
3936 }
3937 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_IE)
3938 {
3939 unsigned int val;
3940
3941 /* IE->LE transition:
3942 Originally it can be one of:
3943 movl foo, %eax
3944 movl foo, %reg
3945 addl foo, %reg
3946 We change it into:
3947 movl $foo, %eax
3948 movl $foo, %reg
3949 addl $foo, %reg. */
3950 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
3951 if (val == 0xa1)
3952 {
3953 /* movl foo, %eax. */
3954 bfd_put_8 (output_bfd, 0xb8,
3955 contents + rel->r_offset - 1);
3956 }
3957 else
3958 {
3959 unsigned int type;
3960
3961 type = bfd_get_8 (input_bfd,
3962 contents + rel->r_offset - 2);
3963 switch (type)
3964 {
3965 case 0x8b:
3966 /* movl */
3967 bfd_put_8 (output_bfd, 0xc7,
3968 contents + rel->r_offset - 2);
3969 bfd_put_8 (output_bfd,
3970 0xc0 | ((val >> 3) & 7),
3971 contents + rel->r_offset - 1);
3972 break;
3973 case 0x03:
3974 /* addl */
3975 bfd_put_8 (output_bfd, 0x81,
3976 contents + rel->r_offset - 2);
3977 bfd_put_8 (output_bfd,
3978 0xc0 | ((val >> 3) & 7),
3979 contents + rel->r_offset - 1);
3980 break;
3981 default:
3982 BFD_FAIL ();
3983 break;
3984 }
3985 }
3986 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
3987 contents + rel->r_offset);
3988 continue;
3989 }
3990 else
3991 {
3992 unsigned int val, type;
3993
3994 /* {IE_32,GOTIE}->LE transition:
3995 Originally it can be one of:
3996 subl foo(%reg1), %reg2
3997 movl foo(%reg1), %reg2
3998 addl foo(%reg1), %reg2
3999 We change it into:
4000 subl $foo, %reg2
4001 movl $foo, %reg2 (6 byte form)
4002 addl $foo, %reg2. */
4003 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
4004 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
4005 if (type == 0x8b)
4006 {
4007 /* movl */
4008 bfd_put_8 (output_bfd, 0xc7,
4009 contents + rel->r_offset - 2);
4010 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
4011 contents + rel->r_offset - 1);
4012 }
4013 else if (type == 0x2b)
4014 {
4015 /* subl */
4016 bfd_put_8 (output_bfd, 0x81,
4017 contents + rel->r_offset - 2);
4018 bfd_put_8 (output_bfd, 0xe8 | ((val >> 3) & 7),
4019 contents + rel->r_offset - 1);
4020 }
4021 else if (type == 0x03)
4022 {
4023 /* addl */
4024 bfd_put_8 (output_bfd, 0x81,
4025 contents + rel->r_offset - 2);
4026 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
4027 contents + rel->r_offset - 1);
4028 }
4029 else
4030 BFD_FAIL ();
4031 if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GOTIE)
4032 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
4033 contents + rel->r_offset);
4034 else
4035 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
4036 contents + rel->r_offset);
4037 continue;
4038 }
4039 }
4040
4041 if (htab->elf.sgot == NULL)
4042 abort ();
4043
4044 if (h != NULL)
4045 {
4046 off = h->got.offset;
4047 offplt = elf_i386_hash_entry (h)->tlsdesc_got;
4048 }
4049 else
4050 {
4051 if (local_got_offsets == NULL)
4052 abort ();
4053
4054 off = local_got_offsets[r_symndx];
4055 offplt = local_tlsdesc_gotents[r_symndx];
4056 }
4057
4058 if ((off & 1) != 0)
4059 off &= ~1;
4060 else
4061 {
4062 Elf_Internal_Rela outrel;
4063 bfd_byte *loc;
4064 int dr_type;
4065 asection *sreloc;
4066
4067 if (htab->elf.srelgot == NULL)
4068 abort ();
4069
4070 indx = h && h->dynindx != -1 ? h->dynindx : 0;
4071
4072 if (GOT_TLS_GDESC_P (tls_type))
4073 {
4074 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_DESC);
4075 BFD_ASSERT (htab->sgotplt_jump_table_size + offplt + 8
4076 <= htab->elf.sgotplt->size);
4077 outrel.r_offset = (htab->elf.sgotplt->output_section->vma
4078 + htab->elf.sgotplt->output_offset
4079 + offplt
4080 + htab->sgotplt_jump_table_size);
4081 sreloc = htab->elf.srelplt;
4082 loc = sreloc->contents;
4083 loc += (htab->next_tls_desc_index++
4084 * sizeof (Elf32_External_Rel));
4085 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
4086 <= sreloc->contents + sreloc->size);
4087 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
4088 if (indx == 0)
4089 {
4090 BFD_ASSERT (! unresolved_reloc);
4091 bfd_put_32 (output_bfd,
4092 relocation - elf_i386_dtpoff_base (info),
4093 htab->elf.sgotplt->contents + offplt
4094 + htab->sgotplt_jump_table_size + 4);
4095 }
4096 else
4097 {
4098 bfd_put_32 (output_bfd, 0,
4099 htab->elf.sgotplt->contents + offplt
4100 + htab->sgotplt_jump_table_size + 4);
4101 }
4102 }
4103
4104 sreloc = htab->elf.srelgot;
4105
4106 outrel.r_offset = (htab->elf.sgot->output_section->vma
4107 + htab->elf.sgot->output_offset + off);
4108
4109 if (GOT_TLS_GD_P (tls_type))
4110 dr_type = R_386_TLS_DTPMOD32;
4111 else if (GOT_TLS_GDESC_P (tls_type))
4112 goto dr_done;
4113 else if (tls_type == GOT_TLS_IE_POS)
4114 dr_type = R_386_TLS_TPOFF;
4115 else
4116 dr_type = R_386_TLS_TPOFF32;
4117
4118 if (dr_type == R_386_TLS_TPOFF && indx == 0)
4119 bfd_put_32 (output_bfd,
4120 relocation - elf_i386_dtpoff_base (info),
4121 htab->elf.sgot->contents + off);
4122 else if (dr_type == R_386_TLS_TPOFF32 && indx == 0)
4123 bfd_put_32 (output_bfd,
4124 elf_i386_dtpoff_base (info) - relocation,
4125 htab->elf.sgot->contents + off);
4126 else if (dr_type != R_386_TLS_DESC)
4127 bfd_put_32 (output_bfd, 0,
4128 htab->elf.sgot->contents + off);
4129 outrel.r_info = ELF32_R_INFO (indx, dr_type);
4130
4131 loc = sreloc->contents;
4132 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rel);
4133 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
4134 <= sreloc->contents + sreloc->size);
4135 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
4136
4137 if (GOT_TLS_GD_P (tls_type))
4138 {
4139 if (indx == 0)
4140 {
4141 BFD_ASSERT (! unresolved_reloc);
4142 bfd_put_32 (output_bfd,
4143 relocation - elf_i386_dtpoff_base (info),
4144 htab->elf.sgot->contents + off + 4);
4145 }
4146 else
4147 {
4148 bfd_put_32 (output_bfd, 0,
4149 htab->elf.sgot->contents + off + 4);
4150 outrel.r_info = ELF32_R_INFO (indx,
4151 R_386_TLS_DTPOFF32);
4152 outrel.r_offset += 4;
4153 sreloc->reloc_count++;
4154 loc += sizeof (Elf32_External_Rel);
4155 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
4156 <= sreloc->contents + sreloc->size);
4157 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
4158 }
4159 }
4160 else if (tls_type == GOT_TLS_IE_BOTH)
4161 {
4162 bfd_put_32 (output_bfd,
4163 (indx == 0
4164 ? relocation - elf_i386_dtpoff_base (info)
4165 : 0),
4166 htab->elf.sgot->contents + off + 4);
4167 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF);
4168 outrel.r_offset += 4;
4169 sreloc->reloc_count++;
4170 loc += sizeof (Elf32_External_Rel);
4171 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
4172 }
4173
4174 dr_done:
4175 if (h != NULL)
4176 h->got.offset |= 1;
4177 else
4178 local_got_offsets[r_symndx] |= 1;
4179 }
4180
4181 if (off >= (bfd_vma) -2
4182 && ! GOT_TLS_GDESC_P (tls_type))
4183 abort ();
4184 if (r_type == R_386_TLS_GOTDESC
4185 || r_type == R_386_TLS_DESC_CALL)
4186 {
4187 relocation = htab->sgotplt_jump_table_size + offplt;
4188 unresolved_reloc = FALSE;
4189 }
4190 else if (r_type == ELF32_R_TYPE (rel->r_info))
4191 {
4192 bfd_vma g_o_t = htab->elf.sgotplt->output_section->vma
4193 + htab->elf.sgotplt->output_offset;
4194 relocation = htab->elf.sgot->output_section->vma
4195 + htab->elf.sgot->output_offset + off - g_o_t;
4196 if ((r_type == R_386_TLS_IE || r_type == R_386_TLS_GOTIE)
4197 && tls_type == GOT_TLS_IE_BOTH)
4198 relocation += 4;
4199 if (r_type == R_386_TLS_IE)
4200 relocation += g_o_t;
4201 unresolved_reloc = FALSE;
4202 }
4203 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GD)
4204 {
4205 unsigned int val, type;
4206 bfd_vma roff;
4207
4208 /* GD->IE transition. */
4209 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
4210 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
4211 if (type == 0x04)
4212 {
4213 /* leal foo(,%reg,1), %eax; call ___tls_get_addr
4214 Change it into:
4215 movl %gs:0, %eax; subl $foo@gottpoff(%reg), %eax. */
4216 val >>= 3;
4217 roff = rel->r_offset - 3;
4218 }
4219 else
4220 {
4221 /* leal foo(%reg), %eax; call ___tls_get_addr; nop
4222 Change it into:
4223 movl %gs:0, %eax; subl $foo@gottpoff(%reg), %eax. */
4224 roff = rel->r_offset - 2;
4225 }
4226 memcpy (contents + roff,
4227 "\x65\xa1\0\0\0\0\x2b\x80\0\0\0", 12);
4228 contents[roff + 7] = 0x80 | (val & 7);
4229 /* If foo is used only with foo@gotntpoff(%reg) and
4230 foo@indntpoff, but not with foo@gottpoff(%reg), change
4231 subl $foo@gottpoff(%reg), %eax
4232 into:
4233 addl $foo@gotntpoff(%reg), %eax. */
4234 if (tls_type == GOT_TLS_IE_POS)
4235 contents[roff + 6] = 0x03;
4236 bfd_put_32 (output_bfd,
4237 htab->elf.sgot->output_section->vma
4238 + htab->elf.sgot->output_offset + off
4239 - htab->elf.sgotplt->output_section->vma
4240 - htab->elf.sgotplt->output_offset,
4241 contents + roff + 8);
4242 /* Skip R_386_PLT32. */
4243 rel++;
4244 continue;
4245 }
4246 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GOTDESC)
4247 {
4248 /* GDesc -> IE transition.
4249 It's originally something like:
4250 leal x@tlsdesc(%ebx), %eax
4251
4252 Change it to:
4253 movl x@gotntpoff(%ebx), %eax # before xchg %ax,%ax
4254 or:
4255 movl x@gottpoff(%ebx), %eax # before negl %eax
4256
4257 Registers other than %eax may be set up here. */
4258
4259 bfd_vma roff;
4260
4261 /* First, make sure it's a leal adding ebx to a 32-bit
4262 offset into any register, although it's probably
4263 almost always going to be eax. */
4264 roff = rel->r_offset;
4265
4266 /* Now modify the instruction as appropriate. */
4267 /* To turn a leal into a movl in the form we use it, it
4268 suffices to change the first byte from 0x8d to 0x8b.
4269 aoliva FIXME: should we decide to keep the leal, all
4270 we have to do is remove the statement below, and
4271 adjust the relaxation of R_386_TLS_DESC_CALL. */
4272 bfd_put_8 (output_bfd, 0x8b, contents + roff - 2);
4273
4274 if (tls_type == GOT_TLS_IE_BOTH)
4275 off += 4;
4276
4277 bfd_put_32 (output_bfd,
4278 htab->elf.sgot->output_section->vma
4279 + htab->elf.sgot->output_offset + off
4280 - htab->elf.sgotplt->output_section->vma
4281 - htab->elf.sgotplt->output_offset,
4282 contents + roff);
4283 continue;
4284 }
4285 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_DESC_CALL)
4286 {
4287 /* GDesc -> IE transition.
4288 It's originally:
4289 call *(%eax)
4290
4291 Change it to:
4292 xchg %ax,%ax
4293 or
4294 negl %eax
4295 depending on how we transformed the TLS_GOTDESC above.
4296 */
4297
4298 bfd_vma roff;
4299
4300 roff = rel->r_offset;
4301
4302 /* Now modify the instruction as appropriate. */
4303 if (tls_type != GOT_TLS_IE_NEG)
4304 {
4305 /* xchg %ax,%ax */
4306 bfd_put_8 (output_bfd, 0x66, contents + roff);
4307 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
4308 }
4309 else
4310 {
4311 /* negl %eax */
4312 bfd_put_8 (output_bfd, 0xf7, contents + roff);
4313 bfd_put_8 (output_bfd, 0xd8, contents + roff + 1);
4314 }
4315
4316 continue;
4317 }
4318 else
4319 BFD_ASSERT (FALSE);
4320 break;
4321
4322 case R_386_TLS_LDM:
4323 if (! elf_i386_tls_transition (info, input_bfd,
4324 input_section, contents,
4325 symtab_hdr, sym_hashes,
4326 &r_type, GOT_UNKNOWN, rel,
4327 relend, h, r_symndx))
4328 return FALSE;
4329
4330 if (r_type != R_386_TLS_LDM)
4331 {
4332 /* LD->LE transition:
4333 leal foo(%reg), %eax; call ___tls_get_addr.
4334 We change it into:
4335 movl %gs:0, %eax; nop; leal 0(%esi,1), %esi. */
4336 BFD_ASSERT (r_type == R_386_TLS_LE_32);
4337 memcpy (contents + rel->r_offset - 2,
4338 "\x65\xa1\0\0\0\0\x90\x8d\x74\x26", 11);
4339 /* Skip R_386_PC32/R_386_PLT32. */
4340 rel++;
4341 continue;
4342 }
4343
4344 if (htab->elf.sgot == NULL)
4345 abort ();
4346
4347 off = htab->tls_ldm_got.offset;
4348 if (off & 1)
4349 off &= ~1;
4350 else
4351 {
4352 Elf_Internal_Rela outrel;
4353 bfd_byte *loc;
4354
4355 if (htab->elf.srelgot == NULL)
4356 abort ();
4357
4358 outrel.r_offset = (htab->elf.sgot->output_section->vma
4359 + htab->elf.sgot->output_offset + off);
4360
4361 bfd_put_32 (output_bfd, 0,
4362 htab->elf.sgot->contents + off);
4363 bfd_put_32 (output_bfd, 0,
4364 htab->elf.sgot->contents + off + 4);
4365 outrel.r_info = ELF32_R_INFO (0, R_386_TLS_DTPMOD32);
4366 loc = htab->elf.srelgot->contents;
4367 loc += htab->elf.srelgot->reloc_count++ * sizeof (Elf32_External_Rel);
4368 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
4369 htab->tls_ldm_got.offset |= 1;
4370 }
4371 relocation = htab->elf.sgot->output_section->vma
4372 + htab->elf.sgot->output_offset + off
4373 - htab->elf.sgotplt->output_section->vma
4374 - htab->elf.sgotplt->output_offset;
4375 unresolved_reloc = FALSE;
4376 break;
4377
4378 case R_386_TLS_LDO_32:
4379 if (!info->executable || (input_section->flags & SEC_CODE) == 0)
4380 relocation -= elf_i386_dtpoff_base (info);
4381 else
4382 /* When converting LDO to LE, we must negate. */
4383 relocation = -elf_i386_tpoff (info, relocation);
4384 break;
4385
4386 case R_386_TLS_LE_32:
4387 case R_386_TLS_LE:
4388 if (!info->executable)
4389 {
4390 Elf_Internal_Rela outrel;
4391 asection *sreloc;
4392 bfd_byte *loc;
4393
4394 outrel.r_offset = rel->r_offset
4395 + input_section->output_section->vma
4396 + input_section->output_offset;
4397 if (h != NULL && h->dynindx != -1)
4398 indx = h->dynindx;
4399 else
4400 indx = 0;
4401 if (r_type == R_386_TLS_LE_32)
4402 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF32);
4403 else
4404 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF);
4405 sreloc = elf_section_data (input_section)->sreloc;
4406 if (sreloc == NULL)
4407 abort ();
4408 loc = sreloc->contents;
4409 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rel);
4410 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
4411 if (indx)
4412 continue;
4413 else if (r_type == R_386_TLS_LE_32)
4414 relocation = elf_i386_dtpoff_base (info) - relocation;
4415 else
4416 relocation -= elf_i386_dtpoff_base (info);
4417 }
4418 else if (r_type == R_386_TLS_LE_32)
4419 relocation = elf_i386_tpoff (info, relocation);
4420 else
4421 relocation = -elf_i386_tpoff (info, relocation);
4422 break;
4423
4424 default:
4425 break;
4426 }
4427
4428 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
4429 because such sections are not SEC_ALLOC and thus ld.so will
4430 not process them. */
4431 if (unresolved_reloc
4432 && !((input_section->flags & SEC_DEBUGGING) != 0
4433 && h->def_dynamic)
4434 && _bfd_elf_section_offset (output_bfd, info, input_section,
4435 rel->r_offset) != (bfd_vma) -1)
4436 {
4437 (*_bfd_error_handler)
4438 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
4439 input_bfd,
4440 input_section,
4441 (long) rel->r_offset,
4442 howto->name,
4443 h->root.root.string);
4444 return FALSE;
4445 }
4446
4447 do_relocation:
4448 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
4449 contents, rel->r_offset,
4450 relocation, 0);
4451
4452 check_relocation_error:
4453 if (r != bfd_reloc_ok)
4454 {
4455 const char *name;
4456
4457 if (h != NULL)
4458 name = h->root.root.string;
4459 else
4460 {
4461 name = bfd_elf_string_from_elf_section (input_bfd,
4462 symtab_hdr->sh_link,
4463 sym->st_name);
4464 if (name == NULL)
4465 return FALSE;
4466 if (*name == '\0')
4467 name = bfd_section_name (input_bfd, sec);
4468 }
4469
4470 if (r == bfd_reloc_overflow)
4471 {
4472 if (! ((*info->callbacks->reloc_overflow)
4473 (info, (h ? &h->root : NULL), name, howto->name,
4474 (bfd_vma) 0, input_bfd, input_section,
4475 rel->r_offset)))
4476 return FALSE;
4477 }
4478 else
4479 {
4480 (*_bfd_error_handler)
4481 (_("%B(%A+0x%lx): reloc against `%s': error %d"),
4482 input_bfd, input_section,
4483 (long) rel->r_offset, name, (int) r);
4484 return FALSE;
4485 }
4486 }
4487 }
4488
4489 return TRUE;
4490 }
4491
4492 /* Finish up dynamic symbol handling. We set the contents of various
4493 dynamic sections here. */
4494
4495 static bfd_boolean
4496 elf_i386_finish_dynamic_symbol (bfd *output_bfd,
4497 struct bfd_link_info *info,
4498 struct elf_link_hash_entry *h,
4499 Elf_Internal_Sym *sym)
4500 {
4501 struct elf_i386_link_hash_table *htab;
4502 unsigned plt_entry_size;
4503 const struct elf_i386_backend_data *abed;
4504
4505 htab = elf_i386_hash_table (info);
4506 if (htab == NULL)
4507 return FALSE;
4508
4509 abed = get_elf_i386_backend_data (output_bfd);
4510 plt_entry_size = GET_PLT_ENTRY_SIZE (output_bfd);
4511
4512 if (h->plt.offset != (bfd_vma) -1)
4513 {
4514 bfd_vma plt_index;
4515 bfd_vma got_offset;
4516 Elf_Internal_Rela rel;
4517 bfd_byte *loc;
4518 asection *plt, *gotplt, *relplt;
4519
4520 /* When building a static executable, use .iplt, .igot.plt and
4521 .rel.iplt sections for STT_GNU_IFUNC symbols. */
4522 if (htab->elf.splt != NULL)
4523 {
4524 plt = htab->elf.splt;
4525 gotplt = htab->elf.sgotplt;
4526 relplt = htab->elf.srelplt;
4527 }
4528 else
4529 {
4530 plt = htab->elf.iplt;
4531 gotplt = htab->elf.igotplt;
4532 relplt = htab->elf.irelplt;
4533 }
4534
4535 /* This symbol has an entry in the procedure linkage table. Set
4536 it up. */
4537
4538 if ((h->dynindx == -1
4539 && !((h->forced_local || info->executable)
4540 && h->def_regular
4541 && h->type == STT_GNU_IFUNC))
4542 || plt == NULL
4543 || gotplt == NULL
4544 || relplt == NULL)
4545 abort ();
4546
4547 /* Get the index in the procedure linkage table which
4548 corresponds to this symbol. This is the index of this symbol
4549 in all the symbols for which we are making plt entries. The
4550 first entry in the procedure linkage table is reserved.
4551
4552 Get the offset into the .got table of the entry that
4553 corresponds to this function. Each .got entry is 4 bytes.
4554 The first three are reserved.
4555
4556 For static executables, we don't reserve anything. */
4557
4558 if (plt == htab->elf.splt)
4559 {
4560 got_offset = h->plt.offset / plt_entry_size - 1;
4561 got_offset = (got_offset + 3) * 4;
4562 }
4563 else
4564 {
4565 got_offset = h->plt.offset / plt_entry_size;
4566 got_offset = got_offset * 4;
4567 }
4568
4569 /* Fill in the entry in the procedure linkage table. */
4570 if (! info->shared)
4571 {
4572 memcpy (plt->contents + h->plt.offset, abed->plt->plt_entry,
4573 abed->plt->plt_entry_size);
4574 bfd_put_32 (output_bfd,
4575 (gotplt->output_section->vma
4576 + gotplt->output_offset
4577 + got_offset),
4578 plt->contents + h->plt.offset
4579 + abed->plt->plt_got_offset);
4580
4581 if (abed->is_vxworks)
4582 {
4583 int s, k, reloc_index;
4584
4585 /* Create the R_386_32 relocation referencing the GOT
4586 for this PLT entry. */
4587
4588 /* S: Current slot number (zero-based). */
4589 s = ((h->plt.offset - abed->plt->plt_entry_size)
4590 / abed->plt->plt_entry_size);
4591 /* K: Number of relocations for PLTResolve. */
4592 if (info->shared)
4593 k = PLTRESOLVE_RELOCS_SHLIB;
4594 else
4595 k = PLTRESOLVE_RELOCS;
4596 /* Skip the PLTresolve relocations, and the relocations for
4597 the other PLT slots. */
4598 reloc_index = k + s * PLT_NON_JUMP_SLOT_RELOCS;
4599 loc = (htab->srelplt2->contents + reloc_index
4600 * sizeof (Elf32_External_Rel));
4601
4602 rel.r_offset = (htab->elf.splt->output_section->vma
4603 + htab->elf.splt->output_offset
4604 + h->plt.offset + 2),
4605 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
4606 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4607
4608 /* Create the R_386_32 relocation referencing the beginning of
4609 the PLT for this GOT entry. */
4610 rel.r_offset = (htab->elf.sgotplt->output_section->vma
4611 + htab->elf.sgotplt->output_offset
4612 + got_offset);
4613 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_386_32);
4614 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4615 loc + sizeof (Elf32_External_Rel));
4616 }
4617 }
4618 else
4619 {
4620 memcpy (plt->contents + h->plt.offset, abed->plt->pic_plt_entry,
4621 abed->plt->plt_entry_size);
4622 bfd_put_32 (output_bfd, got_offset,
4623 plt->contents + h->plt.offset
4624 + abed->plt->plt_got_offset);
4625 }
4626
4627 /* Fill in the entry in the global offset table. */
4628 bfd_put_32 (output_bfd,
4629 (plt->output_section->vma
4630 + plt->output_offset
4631 + h->plt.offset
4632 + abed->plt->plt_lazy_offset),
4633 gotplt->contents + got_offset);
4634
4635 /* Fill in the entry in the .rel.plt section. */
4636 rel.r_offset = (gotplt->output_section->vma
4637 + gotplt->output_offset
4638 + got_offset);
4639 if (h->dynindx == -1
4640 || ((info->executable
4641 || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
4642 && h->def_regular
4643 && h->type == STT_GNU_IFUNC))
4644 {
4645 /* If an STT_GNU_IFUNC symbol is locally defined, generate
4646 R_386_IRELATIVE instead of R_386_JUMP_SLOT. Store addend
4647 in the .got.plt section. */
4648 bfd_put_32 (output_bfd,
4649 (h->root.u.def.value
4650 + h->root.u.def.section->output_section->vma
4651 + h->root.u.def.section->output_offset),
4652 gotplt->contents + got_offset);
4653 rel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
4654 /* R_386_IRELATIVE comes last. */
4655 plt_index = htab->next_irelative_index--;
4656 }
4657 else
4658 {
4659 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_JUMP_SLOT);
4660 plt_index = htab->next_jump_slot_index++;
4661 }
4662 loc = relplt->contents + plt_index * sizeof (Elf32_External_Rel);
4663 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4664
4665 /* Don't fill PLT entry for static executables. */
4666 if (plt == htab->elf.splt)
4667 {
4668 bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rel),
4669 plt->contents + h->plt.offset
4670 + abed->plt->plt_reloc_offset);
4671 bfd_put_32 (output_bfd, - (h->plt.offset
4672 + abed->plt->plt_plt_offset + 4),
4673 plt->contents + h->plt.offset
4674 + abed->plt->plt_plt_offset);
4675 }
4676
4677 if (!h->def_regular)
4678 {
4679 /* Mark the symbol as undefined, rather than as defined in
4680 the .plt section. Leave the value if there were any
4681 relocations where pointer equality matters (this is a clue
4682 for the dynamic linker, to make function pointer
4683 comparisons work between an application and shared
4684 library), otherwise set it to zero. If a function is only
4685 called from a binary, there is no need to slow down
4686 shared libraries because of that. */
4687 sym->st_shndx = SHN_UNDEF;
4688 if (!h->pointer_equality_needed)
4689 sym->st_value = 0;
4690 }
4691 }
4692
4693 if (h->got.offset != (bfd_vma) -1
4694 && ! GOT_TLS_GD_ANY_P (elf_i386_hash_entry(h)->tls_type)
4695 && (elf_i386_hash_entry(h)->tls_type & GOT_TLS_IE) == 0)
4696 {
4697 Elf_Internal_Rela rel;
4698 bfd_byte *loc;
4699
4700 /* This symbol has an entry in the global offset table. Set it
4701 up. */
4702
4703 if (htab->elf.sgot == NULL || htab->elf.srelgot == NULL)
4704 abort ();
4705
4706 rel.r_offset = (htab->elf.sgot->output_section->vma
4707 + htab->elf.sgot->output_offset
4708 + (h->got.offset & ~(bfd_vma) 1));
4709
4710 /* If this is a static link, or it is a -Bsymbolic link and the
4711 symbol is defined locally or was forced to be local because
4712 of a version file, we just want to emit a RELATIVE reloc.
4713 The entry in the global offset table will already have been
4714 initialized in the relocate_section function. */
4715 if (h->def_regular
4716 && h->type == STT_GNU_IFUNC)
4717 {
4718 if (info->shared)
4719 {
4720 /* Generate R_386_GLOB_DAT. */
4721 goto do_glob_dat;
4722 }
4723 else
4724 {
4725 asection *plt;
4726
4727 if (!h->pointer_equality_needed)
4728 abort ();
4729
4730 /* For non-shared object, we can't use .got.plt, which
4731 contains the real function addres if we need pointer
4732 equality. We load the GOT entry with the PLT entry. */
4733 plt = htab->elf.splt ? htab->elf.splt : htab->elf.iplt;
4734 bfd_put_32 (output_bfd,
4735 (plt->output_section->vma
4736 + plt->output_offset + h->plt.offset),
4737 htab->elf.sgot->contents + h->got.offset);
4738 return TRUE;
4739 }
4740 }
4741 else if (info->shared
4742 && SYMBOL_REFERENCES_LOCAL (info, h))
4743 {
4744 BFD_ASSERT((h->got.offset & 1) != 0);
4745 rel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
4746 }
4747 else
4748 {
4749 BFD_ASSERT((h->got.offset & 1) == 0);
4750 do_glob_dat:
4751 bfd_put_32 (output_bfd, (bfd_vma) 0,
4752 htab->elf.sgot->contents + h->got.offset);
4753 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_GLOB_DAT);
4754 }
4755
4756 loc = htab->elf.srelgot->contents;
4757 loc += htab->elf.srelgot->reloc_count++ * sizeof (Elf32_External_Rel);
4758 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4759 }
4760
4761 if (h->needs_copy)
4762 {
4763 Elf_Internal_Rela rel;
4764 bfd_byte *loc;
4765
4766 /* This symbol needs a copy reloc. Set it up. */
4767
4768 if (h->dynindx == -1
4769 || (h->root.type != bfd_link_hash_defined
4770 && h->root.type != bfd_link_hash_defweak)
4771 || htab->srelbss == NULL)
4772 abort ();
4773
4774 rel.r_offset = (h->root.u.def.value
4775 + h->root.u.def.section->output_section->vma
4776 + h->root.u.def.section->output_offset);
4777 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_COPY);
4778 loc = htab->srelbss->contents;
4779 loc += htab->srelbss->reloc_count++ * sizeof (Elf32_External_Rel);
4780 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4781 }
4782
4783 return TRUE;
4784 }
4785
4786 /* Finish up local dynamic symbol handling. We set the contents of
4787 various dynamic sections here. */
4788
4789 static bfd_boolean
4790 elf_i386_finish_local_dynamic_symbol (void **slot, void *inf)
4791 {
4792 struct elf_link_hash_entry *h
4793 = (struct elf_link_hash_entry *) *slot;
4794 struct bfd_link_info *info
4795 = (struct bfd_link_info *) inf;
4796
4797 return elf_i386_finish_dynamic_symbol (info->output_bfd, info,
4798 h, NULL);
4799 }
4800
4801 /* Used to decide how to sort relocs in an optimal manner for the
4802 dynamic linker, before writing them out. */
4803
4804 static enum elf_reloc_type_class
4805 elf_i386_reloc_type_class (const Elf_Internal_Rela *rela)
4806 {
4807 switch (ELF32_R_TYPE (rela->r_info))
4808 {
4809 case R_386_RELATIVE:
4810 return reloc_class_relative;
4811 case R_386_JUMP_SLOT:
4812 return reloc_class_plt;
4813 case R_386_COPY:
4814 return reloc_class_copy;
4815 default:
4816 return reloc_class_normal;
4817 }
4818 }
4819
4820 /* Finish up the dynamic sections. */
4821
4822 static bfd_boolean
4823 elf_i386_finish_dynamic_sections (bfd *output_bfd,
4824 struct bfd_link_info *info)
4825 {
4826 struct elf_i386_link_hash_table *htab;
4827 bfd *dynobj;
4828 asection *sdyn;
4829 const struct elf_i386_backend_data *abed;
4830
4831 htab = elf_i386_hash_table (info);
4832 if (htab == NULL)
4833 return FALSE;
4834
4835 dynobj = htab->elf.dynobj;
4836 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
4837 abed = get_elf_i386_backend_data (output_bfd);
4838
4839 if (htab->elf.dynamic_sections_created)
4840 {
4841 Elf32_External_Dyn *dyncon, *dynconend;
4842
4843 if (sdyn == NULL || htab->elf.sgot == NULL)
4844 abort ();
4845
4846 dyncon = (Elf32_External_Dyn *) sdyn->contents;
4847 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4848 for (; dyncon < dynconend; dyncon++)
4849 {
4850 Elf_Internal_Dyn dyn;
4851 asection *s;
4852
4853 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4854
4855 switch (dyn.d_tag)
4856 {
4857 default:
4858 if (abed->is_vxworks
4859 && elf_vxworks_finish_dynamic_entry (output_bfd, &dyn))
4860 break;
4861 continue;
4862
4863 case DT_PLTGOT:
4864 s = htab->elf.sgotplt;
4865 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4866 break;
4867
4868 case DT_JMPREL:
4869 s = htab->elf.srelplt;
4870 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4871 break;
4872
4873 case DT_PLTRELSZ:
4874 s = htab->elf.srelplt;
4875 dyn.d_un.d_val = s->size;
4876 break;
4877
4878 case DT_RELSZ:
4879 /* My reading of the SVR4 ABI indicates that the
4880 procedure linkage table relocs (DT_JMPREL) should be
4881 included in the overall relocs (DT_REL). This is
4882 what Solaris does. However, UnixWare can not handle
4883 that case. Therefore, we override the DT_RELSZ entry
4884 here to make it not include the JMPREL relocs. */
4885 s = htab->elf.srelplt;
4886 if (s == NULL)
4887 continue;
4888 dyn.d_un.d_val -= s->size;
4889 break;
4890
4891 case DT_REL:
4892 /* We may not be using the standard ELF linker script.
4893 If .rel.plt is the first .rel section, we adjust
4894 DT_REL to not include it. */
4895 s = htab->elf.srelplt;
4896 if (s == NULL)
4897 continue;
4898 if (dyn.d_un.d_ptr != s->output_section->vma + s->output_offset)
4899 continue;
4900 dyn.d_un.d_ptr += s->size;
4901 break;
4902 }
4903
4904 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4905 }
4906
4907 /* Fill in the first entry in the procedure linkage table. */
4908 if (htab->elf.splt && htab->elf.splt->size > 0)
4909 {
4910 if (info->shared)
4911 {
4912 memcpy (htab->elf.splt->contents, abed->plt->pic_plt0_entry,
4913 abed->plt->plt0_entry_size);
4914 memset (htab->elf.splt->contents + abed->plt->plt0_entry_size,
4915 abed->plt0_pad_byte,
4916 abed->plt->plt_entry_size - abed->plt->plt0_entry_size);
4917 }
4918 else
4919 {
4920 memcpy (htab->elf.splt->contents, abed->plt->plt0_entry,
4921 abed->plt->plt0_entry_size);
4922 memset (htab->elf.splt->contents + abed->plt->plt0_entry_size,
4923 abed->plt0_pad_byte,
4924 abed->plt->plt_entry_size - abed->plt->plt0_entry_size);
4925 bfd_put_32 (output_bfd,
4926 (htab->elf.sgotplt->output_section->vma
4927 + htab->elf.sgotplt->output_offset
4928 + 4),
4929 htab->elf.splt->contents
4930 + abed->plt->plt0_got1_offset);
4931 bfd_put_32 (output_bfd,
4932 (htab->elf.sgotplt->output_section->vma
4933 + htab->elf.sgotplt->output_offset
4934 + 8),
4935 htab->elf.splt->contents
4936 + abed->plt->plt0_got2_offset);
4937
4938 if (abed->is_vxworks)
4939 {
4940 Elf_Internal_Rela rel;
4941
4942 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_ + 4.
4943 On IA32 we use REL relocations so the addend goes in
4944 the PLT directly. */
4945 rel.r_offset = (htab->elf.splt->output_section->vma
4946 + htab->elf.splt->output_offset
4947 + abed->plt->plt0_got1_offset);
4948 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
4949 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4950 htab->srelplt2->contents);
4951 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_ + 8. */
4952 rel.r_offset = (htab->elf.splt->output_section->vma
4953 + htab->elf.splt->output_offset
4954 + abed->plt->plt0_got2_offset);
4955 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
4956 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4957 htab->srelplt2->contents +
4958 sizeof (Elf32_External_Rel));
4959 }
4960 }
4961
4962 /* UnixWare sets the entsize of .plt to 4, although that doesn't
4963 really seem like the right value. */
4964 elf_section_data (htab->elf.splt->output_section)
4965 ->this_hdr.sh_entsize = 4;
4966
4967 /* Correct the .rel.plt.unloaded relocations. */
4968 if (abed->is_vxworks && !info->shared)
4969 {
4970 int num_plts = (htab->elf.splt->size
4971 / abed->plt->plt_entry_size) - 1;
4972 unsigned char *p;
4973
4974 p = htab->srelplt2->contents;
4975 if (info->shared)
4976 p += PLTRESOLVE_RELOCS_SHLIB * sizeof (Elf32_External_Rel);
4977 else
4978 p += PLTRESOLVE_RELOCS * sizeof (Elf32_External_Rel);
4979
4980 for (; num_plts; num_plts--)
4981 {
4982 Elf_Internal_Rela rel;
4983 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
4984 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
4985 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4986 p += sizeof (Elf32_External_Rel);
4987
4988 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
4989 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_386_32);
4990 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4991 p += sizeof (Elf32_External_Rel);
4992 }
4993 }
4994 }
4995 }
4996
4997 if (htab->elf.sgotplt)
4998 {
4999 if (bfd_is_abs_section (htab->elf.sgotplt->output_section))
5000 {
5001 (*_bfd_error_handler)
5002 (_("discarded output section: `%A'"), htab->elf.sgotplt);
5003 return FALSE;
5004 }
5005
5006 /* Fill in the first three entries in the global offset table. */
5007 if (htab->elf.sgotplt->size > 0)
5008 {
5009 bfd_put_32 (output_bfd,
5010 (sdyn == NULL ? 0
5011 : sdyn->output_section->vma + sdyn->output_offset),
5012 htab->elf.sgotplt->contents);
5013 bfd_put_32 (output_bfd, 0, htab->elf.sgotplt->contents + 4);
5014 bfd_put_32 (output_bfd, 0, htab->elf.sgotplt->contents + 8);
5015 }
5016
5017 elf_section_data (htab->elf.sgotplt->output_section)->this_hdr.sh_entsize = 4;
5018 }
5019
5020 /* Adjust .eh_frame for .plt section. */
5021 if (htab->plt_eh_frame != NULL
5022 && htab->plt_eh_frame->contents != NULL)
5023 {
5024 if (htab->elf.splt != NULL
5025 && htab->elf.splt->size != 0
5026 && (htab->elf.splt->flags & SEC_EXCLUDE) == 0
5027 && htab->elf.splt->output_section != NULL
5028 && htab->plt_eh_frame->output_section != NULL)
5029 {
5030 bfd_vma plt_start = htab->elf.splt->output_section->vma;
5031 bfd_vma eh_frame_start = htab->plt_eh_frame->output_section->vma
5032 + htab->plt_eh_frame->output_offset
5033 + PLT_FDE_START_OFFSET;
5034 bfd_put_signed_32 (dynobj, plt_start - eh_frame_start,
5035 htab->plt_eh_frame->contents
5036 + PLT_FDE_START_OFFSET);
5037 }
5038 if (htab->plt_eh_frame->sec_info_type
5039 == SEC_INFO_TYPE_EH_FRAME)
5040 {
5041 if (! _bfd_elf_write_section_eh_frame (output_bfd, info,
5042 htab->plt_eh_frame,
5043 htab->plt_eh_frame->contents))
5044 return FALSE;
5045 }
5046 }
5047
5048 if (htab->elf.sgot && htab->elf.sgot->size > 0)
5049 elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize = 4;
5050
5051 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
5052 htab_traverse (htab->loc_hash_table,
5053 elf_i386_finish_local_dynamic_symbol,
5054 info);
5055
5056 return TRUE;
5057 }
5058
5059 /* Return address for Ith PLT stub in section PLT, for relocation REL
5060 or (bfd_vma) -1 if it should not be included. */
5061
5062 static bfd_vma
5063 elf_i386_plt_sym_val (bfd_vma i, const asection *plt,
5064 const arelent *rel ATTRIBUTE_UNUSED)
5065 {
5066 return plt->vma + (i + 1) * GET_PLT_ENTRY_SIZE (plt->owner);
5067 }
5068
5069 /* Return TRUE if symbol should be hashed in the `.gnu.hash' section. */
5070
5071 static bfd_boolean
5072 elf_i386_hash_symbol (struct elf_link_hash_entry *h)
5073 {
5074 if (h->plt.offset != (bfd_vma) -1
5075 && !h->def_regular
5076 && !h->pointer_equality_needed)
5077 return FALSE;
5078
5079 return _bfd_elf_hash_symbol (h);
5080 }
5081
5082 /* Hook called by the linker routine which adds symbols from an object
5083 file. */
5084
5085 static bfd_boolean
5086 elf_i386_add_symbol_hook (bfd * abfd,
5087 struct bfd_link_info * info ATTRIBUTE_UNUSED,
5088 Elf_Internal_Sym * sym,
5089 const char ** namep ATTRIBUTE_UNUSED,
5090 flagword * flagsp ATTRIBUTE_UNUSED,
5091 asection ** secp ATTRIBUTE_UNUSED,
5092 bfd_vma * valp ATTRIBUTE_UNUSED)
5093 {
5094 if ((abfd->flags & DYNAMIC) == 0
5095 && (ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC
5096 || ELF_ST_BIND (sym->st_info) == STB_GNU_UNIQUE))
5097 elf_tdata (info->output_bfd)->has_gnu_symbols = TRUE;
5098
5099 return TRUE;
5100 }
5101
5102 #define TARGET_LITTLE_SYM bfd_elf32_i386_vec
5103 #define TARGET_LITTLE_NAME "elf32-i386"
5104 #define ELF_ARCH bfd_arch_i386
5105 #define ELF_TARGET_ID I386_ELF_DATA
5106 #define ELF_MACHINE_CODE EM_386
5107 #define ELF_MAXPAGESIZE 0x1000
5108
5109 #define elf_backend_can_gc_sections 1
5110 #define elf_backend_can_refcount 1
5111 #define elf_backend_want_got_plt 1
5112 #define elf_backend_plt_readonly 1
5113 #define elf_backend_want_plt_sym 0
5114 #define elf_backend_got_header_size 12
5115 #define elf_backend_plt_alignment 4
5116
5117 /* Support RELA for objdump of prelink objects. */
5118 #define elf_info_to_howto elf_i386_info_to_howto_rel
5119 #define elf_info_to_howto_rel elf_i386_info_to_howto_rel
5120
5121 #define bfd_elf32_mkobject elf_i386_mkobject
5122
5123 #define bfd_elf32_bfd_is_local_label_name elf_i386_is_local_label_name
5124 #define bfd_elf32_bfd_link_hash_table_create elf_i386_link_hash_table_create
5125 #define bfd_elf32_bfd_link_hash_table_free elf_i386_link_hash_table_free
5126 #define bfd_elf32_bfd_reloc_type_lookup elf_i386_reloc_type_lookup
5127 #define bfd_elf32_bfd_reloc_name_lookup elf_i386_reloc_name_lookup
5128
5129 #define elf_backend_adjust_dynamic_symbol elf_i386_adjust_dynamic_symbol
5130 #define elf_backend_relocs_compatible _bfd_elf_relocs_compatible
5131 #define elf_backend_check_relocs elf_i386_check_relocs
5132 #define elf_backend_copy_indirect_symbol elf_i386_copy_indirect_symbol
5133 #define elf_backend_create_dynamic_sections elf_i386_create_dynamic_sections
5134 #define elf_backend_fake_sections elf_i386_fake_sections
5135 #define elf_backend_finish_dynamic_sections elf_i386_finish_dynamic_sections
5136 #define elf_backend_finish_dynamic_symbol elf_i386_finish_dynamic_symbol
5137 #define elf_backend_gc_mark_hook elf_i386_gc_mark_hook
5138 #define elf_backend_gc_sweep_hook elf_i386_gc_sweep_hook
5139 #define elf_backend_grok_prstatus elf_i386_grok_prstatus
5140 #define elf_backend_grok_psinfo elf_i386_grok_psinfo
5141 #define elf_backend_reloc_type_class elf_i386_reloc_type_class
5142 #define elf_backend_relocate_section elf_i386_relocate_section
5143 #define elf_backend_size_dynamic_sections elf_i386_size_dynamic_sections
5144 #define elf_backend_always_size_sections elf_i386_always_size_sections
5145 #define elf_backend_omit_section_dynsym \
5146 ((bfd_boolean (*) (bfd *, struct bfd_link_info *, asection *)) bfd_true)
5147 #define elf_backend_plt_sym_val elf_i386_plt_sym_val
5148 #define elf_backend_hash_symbol elf_i386_hash_symbol
5149 #define elf_backend_add_symbol_hook elf_i386_add_symbol_hook
5150 #undef elf_backend_post_process_headers
5151 #define elf_backend_post_process_headers _bfd_elf_set_osabi
5152
5153 #include "elf32-target.h"
5154
5155 /* FreeBSD support. */
5156
5157 #undef TARGET_LITTLE_SYM
5158 #define TARGET_LITTLE_SYM bfd_elf32_i386_freebsd_vec
5159 #undef TARGET_LITTLE_NAME
5160 #define TARGET_LITTLE_NAME "elf32-i386-freebsd"
5161 #undef ELF_OSABI
5162 #define ELF_OSABI ELFOSABI_FREEBSD
5163
5164 /* The kernel recognizes executables as valid only if they carry a
5165 "FreeBSD" label in the ELF header. So we put this label on all
5166 executables and (for simplicity) also all other object files. */
5167
5168 static void
5169 elf_i386_fbsd_post_process_headers (bfd *abfd, struct bfd_link_info *info)
5170 {
5171 _bfd_elf_set_osabi (abfd, info);
5172
5173 #ifdef OLD_FREEBSD_ABI_LABEL
5174 /* The ABI label supported by FreeBSD <= 4.0 is quite nonstandard. */
5175 memcpy (&i_ehdrp->e_ident[EI_ABIVERSION], "FreeBSD", 8);
5176 #endif
5177 }
5178
5179 #undef elf_backend_post_process_headers
5180 #define elf_backend_post_process_headers elf_i386_fbsd_post_process_headers
5181 #undef elf32_bed
5182 #define elf32_bed elf32_i386_fbsd_bed
5183
5184 #undef elf_backend_add_symbol_hook
5185
5186 #include "elf32-target.h"
5187
5188 /* Solaris 2. */
5189
5190 #undef TARGET_LITTLE_SYM
5191 #define TARGET_LITTLE_SYM bfd_elf32_i386_sol2_vec
5192 #undef TARGET_LITTLE_NAME
5193 #define TARGET_LITTLE_NAME "elf32-i386-sol2"
5194
5195 /* Restore default: we cannot use ELFOSABI_SOLARIS, otherwise ELFOSABI_NONE
5196 objects won't be recognized. */
5197 #undef ELF_OSABI
5198
5199 #undef elf32_bed
5200 #define elf32_bed elf32_i386_sol2_bed
5201
5202 /* The 32-bit static TLS arena size is rounded to the nearest 8-byte
5203 boundary. */
5204 #undef elf_backend_static_tls_alignment
5205 #define elf_backend_static_tls_alignment 8
5206
5207 /* The Solaris 2 ABI requires a plt symbol on all platforms.
5208
5209 Cf. Linker and Libraries Guide, Ch. 2, Link-Editor, Generating the Output
5210 File, p.63. */
5211 #undef elf_backend_want_plt_sym
5212 #define elf_backend_want_plt_sym 1
5213
5214 #include "elf32-target.h"
5215
5216 /* Native Client support. */
5217
5218 #undef TARGET_LITTLE_SYM
5219 #define TARGET_LITTLE_SYM bfd_elf32_i386_nacl_vec
5220 #undef TARGET_LITTLE_NAME
5221 #define TARGET_LITTLE_NAME "elf32-i386-nacl"
5222 #undef elf32_bed
5223 #define elf32_bed elf32_i386_nacl_bed
5224
5225 #undef ELF_MAXPAGESIZE
5226 #define ELF_MAXPAGESIZE 0x10000
5227
5228 /* Restore defaults. */
5229 #undef ELF_OSABI
5230 #undef elf_backend_want_plt_sym
5231 #define elf_backend_want_plt_sym 0
5232 #undef elf_backend_post_process_headers
5233 #define elf_backend_post_process_headers _bfd_elf_set_osabi
5234 #undef elf_backend_static_tls_alignment
5235
5236 /* NaCl uses substantially different PLT entries for the same effects. */
5237
5238 #undef elf_backend_plt_alignment
5239 #define elf_backend_plt_alignment 5
5240 #define NACL_PLT_ENTRY_SIZE 64
5241 #define NACLMASK 0xe0 /* 32-byte alignment mask. */
5242
5243 static const bfd_byte elf_i386_nacl_plt0_entry[] =
5244 {
5245 0xff, 0x35, /* pushl contents of address */
5246 0, 0, 0, 0, /* replaced with address of .got + 4. */
5247 0x8b, 0x0d, /* movl contents of address, %ecx */
5248 0, 0, 0, 0, /* replaced with address of .got + 8. */
5249 0x83, 0xe1, NACLMASK, /* andl $NACLMASK, %ecx */
5250 0xff, 0xe1 /* jmp *%ecx */
5251 };
5252
5253 static const bfd_byte elf_i386_nacl_plt_entry[NACL_PLT_ENTRY_SIZE] =
5254 {
5255 0x8b, 0x0d, /* movl contents of address, %ecx */
5256 0, 0, 0, 0, /* replaced with GOT slot address. */
5257 0x83, 0xe1, NACLMASK, /* andl $NACLMASK, %ecx */
5258 0xff, 0xe1, /* jmp *%ecx */
5259
5260 /* Pad to the next 32-byte boundary with nop instructions. */
5261 0x90,
5262 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5263 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5264
5265 /* Lazy GOT entries point here (32-byte aligned). */
5266 0x68, /* pushl immediate */
5267 0, 0, 0, 0, /* replaced with reloc offset. */
5268 0xe9, /* jmp relative */
5269 0, 0, 0, 0, /* replaced with offset to .plt. */
5270
5271 /* Pad to the next 32-byte boundary with nop instructions. */
5272 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5273 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5274 0x90, 0x90
5275 };
5276
5277 static const bfd_byte
5278 elf_i386_nacl_pic_plt0_entry[sizeof (elf_i386_nacl_plt0_entry)] =
5279 {
5280 0xff, 0x73, 0x04, /* pushl 4(%ebx) */
5281 0x8b, 0x4b, 0x08, /* mov 0x8(%ebx), %ecx */
5282 0x83, 0xe1, 0xe0, /* and $NACLMASK, %ecx */
5283 0xff, 0xe1, /* jmp *%ecx */
5284
5285 /* This is expected to be the same size as elf_i386_nacl_plt0_entry,
5286 so pad to that size with nop instructions. */
5287 0x90, 0x90, 0x90, 0x90, 0x90, 0x90
5288 };
5289
5290 static const bfd_byte elf_i386_nacl_pic_plt_entry[NACL_PLT_ENTRY_SIZE] =
5291 {
5292 0x8b, 0x8b, /* movl offset(%ebx), %ecx */
5293 0, 0, 0, 0, /* replaced with offset of this symbol in .got. */
5294 0x83, 0xe1, 0xe0, /* andl $NACLMASK, %ecx */
5295 0xff, 0xe1, /* jmp *%ecx */
5296
5297 /* Pad to the next 32-byte boundary with nop instructions. */
5298 0x90,
5299 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5300 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5301
5302 /* Lazy GOT entries point here (32-byte aligned). */
5303 0x68, /* pushl immediate */
5304 0, 0, 0, 0, /* replaced with offset into relocation table. */
5305 0xe9, /* jmp relative */
5306 0, 0, 0, 0, /* replaced with offset to start of .plt. */
5307
5308 /* Pad to the next 32-byte boundary with nop instructions. */
5309 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5310 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90,
5311 0x90, 0x90
5312 };
5313
5314 static const bfd_byte elf_i386_nacl_eh_frame_plt[] =
5315 {
5316 #if (PLT_CIE_LENGTH != 20 \
5317 || PLT_FDE_LENGTH != 36 \
5318 || PLT_FDE_START_OFFSET != 4 + PLT_CIE_LENGTH + 8 \
5319 || PLT_FDE_LEN_OFFSET != 4 + PLT_CIE_LENGTH + 12)
5320 # error "Need elf_i386_backend_data parameters for eh_frame_plt offsets!"
5321 #endif
5322 PLT_CIE_LENGTH, 0, 0, 0, /* CIE length */
5323 0, 0, 0, 0, /* CIE ID */
5324 1, /* CIE version */
5325 'z', 'R', 0, /* Augmentation string */
5326 1, /* Code alignment factor */
5327 0x7c, /* Data alignment factor: -4 */
5328 8, /* Return address column */
5329 1, /* Augmentation size */
5330 DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding */
5331 DW_CFA_def_cfa, 4, 4, /* DW_CFA_def_cfa: r4 (esp) ofs 4 */
5332 DW_CFA_offset + 8, 1, /* DW_CFA_offset: r8 (eip) at cfa-4 */
5333 DW_CFA_nop, DW_CFA_nop,
5334
5335 PLT_FDE_LENGTH, 0, 0, 0, /* FDE length */
5336 PLT_CIE_LENGTH + 8, 0, 0, 0, /* CIE pointer */
5337 0, 0, 0, 0, /* R_386_PC32 .plt goes here */
5338 0, 0, 0, 0, /* .plt size goes here */
5339 0, /* Augmentation size */
5340 DW_CFA_def_cfa_offset, 8, /* DW_CFA_def_cfa_offset: 8 */
5341 DW_CFA_advance_loc + 6, /* DW_CFA_advance_loc: 6 to __PLT__+6 */
5342 DW_CFA_def_cfa_offset, 12, /* DW_CFA_def_cfa_offset: 12 */
5343 DW_CFA_advance_loc + 58, /* DW_CFA_advance_loc: 58 to __PLT__+64 */
5344 DW_CFA_def_cfa_expression, /* DW_CFA_def_cfa_expression */
5345 13, /* Block length */
5346 DW_OP_breg4, 4, /* DW_OP_breg4 (esp): 4 */
5347 DW_OP_breg8, 0, /* DW_OP_breg8 (eip): 0 */
5348 DW_OP_const1u, 63, DW_OP_and, DW_OP_const1u, 37, DW_OP_ge,
5349 DW_OP_lit2, DW_OP_shl, DW_OP_plus,
5350 DW_CFA_nop, DW_CFA_nop
5351 };
5352
5353 static const struct elf_i386_plt_layout elf_i386_nacl_plt =
5354 {
5355 elf_i386_nacl_plt0_entry, /* plt0_entry */
5356 sizeof (elf_i386_nacl_plt0_entry), /* plt0_entry_size */
5357 2, /* plt0_got1_offset */
5358 8, /* plt0_got2_offset */
5359 elf_i386_nacl_plt_entry, /* plt_entry */
5360 NACL_PLT_ENTRY_SIZE, /* plt_entry_size */
5361 2, /* plt_got_offset */
5362 33, /* plt_reloc_offset */
5363 38, /* plt_plt_offset */
5364 32, /* plt_lazy_offset */
5365 elf_i386_nacl_pic_plt0_entry, /* pic_plt0_entry */
5366 elf_i386_nacl_pic_plt_entry, /* pic_plt_entry */
5367 elf_i386_nacl_eh_frame_plt, /* eh_frame_plt */
5368 sizeof (elf_i386_nacl_eh_frame_plt),/* eh_frame_plt_size */
5369 };
5370
5371 static const struct elf_i386_backend_data elf_i386_nacl_arch_bed =
5372 {
5373 &elf_i386_nacl_plt, /* plt */
5374 0x90, /* plt0_pad_byte: nop insn */
5375 0, /* is_vxworks */
5376 };
5377
5378 #undef elf_backend_arch_data
5379 #define elf_backend_arch_data &elf_i386_nacl_arch_bed
5380
5381 #undef elf_backend_modify_segment_map
5382 #define elf_backend_modify_segment_map nacl_modify_segment_map
5383 #undef elf_backend_modify_program_headers
5384 #define elf_backend_modify_program_headers nacl_modify_program_headers
5385
5386 #include "elf32-target.h"
5387
5388 /* Restore defaults. */
5389 #undef elf_backend_modify_segment_map
5390 #undef elf_backend_modify_program_headers
5391
5392 /* VxWorks support. */
5393
5394 #undef TARGET_LITTLE_SYM
5395 #define TARGET_LITTLE_SYM bfd_elf32_i386_vxworks_vec
5396 #undef TARGET_LITTLE_NAME
5397 #define TARGET_LITTLE_NAME "elf32-i386-vxworks"
5398 #undef ELF_OSABI
5399 #undef elf_backend_plt_alignment
5400 #define elf_backend_plt_alignment 4
5401
5402 static const struct elf_i386_backend_data elf_i386_vxworks_arch_bed =
5403 {
5404 &elf_i386_plt, /* plt */
5405 0x90, /* plt0_pad_byte */
5406 1, /* is_vxworks */
5407 };
5408
5409 #undef elf_backend_arch_data
5410 #define elf_backend_arch_data &elf_i386_vxworks_arch_bed
5411
5412 #undef elf_backend_relocs_compatible
5413 #undef elf_backend_post_process_headers
5414 #undef elf_backend_add_symbol_hook
5415 #define elf_backend_add_symbol_hook \
5416 elf_vxworks_add_symbol_hook
5417 #undef elf_backend_link_output_symbol_hook
5418 #define elf_backend_link_output_symbol_hook \
5419 elf_vxworks_link_output_symbol_hook
5420 #undef elf_backend_emit_relocs
5421 #define elf_backend_emit_relocs elf_vxworks_emit_relocs
5422 #undef elf_backend_final_write_processing
5423 #define elf_backend_final_write_processing \
5424 elf_vxworks_final_write_processing
5425 #undef elf_backend_static_tls_alignment
5426
5427 /* On VxWorks, we emit relocations against _PROCEDURE_LINKAGE_TABLE_, so
5428 define it. */
5429 #undef elf_backend_want_plt_sym
5430 #define elf_backend_want_plt_sym 1
5431
5432 #undef elf32_bed
5433 #define elf32_bed elf32_i386_vxworks_bed
5434
5435 #include "elf32-target.h"
A mirror of the official binutils-gdb repository