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