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