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