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