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