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