projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
*** empty log message ***
[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,
aa820537 3 2003, 2004, 2005, 2006, 2007, 2008, 2009 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 {
a50b1753
NC		 707 entry = (struct bfd_hash_entry *)
708 bfd_hash_allocate (table, sizeof (struct elf_i386_link_hash_entry));
ebe50bae
AM		 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
a50b1753 805 ret = (struct elf_i386_link_hash_table *) 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,
4c544807
L		 1152 struct elf_link_hash_entry *h,
1153 unsigned long r_symndx)
142411ca
L		 1154{
1155 unsigned int from_type = *r_type;
1156 unsigned int to_type = from_type;
1157 bfd_boolean check = TRUE;
1158
1159 switch (from_type)
13ae64f3
JJ		 1160 {
1161 case R_386_TLS_GD:
67a4f2b7
AO		 1162 case R_386_TLS_GOTDESC:
1163 case R_386_TLS_DESC_CALL:
13ae64f3 1164 case R_386_TLS_IE_32:
37e55690
JJ		 1165 case R_386_TLS_IE:
1166 case R_386_TLS_GOTIE:
1d85728f 1167 if (info->executable)
142411ca
L		 1168 {
1169 if (h == NULL)
1170 to_type = R_386_TLS_LE_32;
1171 else if (from_type != R_386_TLS_IE
1172 && from_type != R_386_TLS_GOTIE)
1173 to_type = R_386_TLS_IE_32;
1174 }
1175
1176 /* When we are called from elf_i386_relocate_section, CONTENTS
1177 isn't NULL and there may be additional transitions based on
1178 TLS_TYPE. */
1179 if (contents != NULL)
1180 {
1181 unsigned int new_to_type = to_type;
1182
1d85728f 1183 if (info->executable
142411ca
L		 1184 && h != NULL
1185 && h->dynindx == -1
1186 && (tls_type & GOT_TLS_IE))
1187 new_to_type = R_386_TLS_LE_32;
1188
1189 if (to_type == R_386_TLS_GD
1190 || to_type == R_386_TLS_GOTDESC
1191 || to_type == R_386_TLS_DESC_CALL)
1192 {
1193 if (tls_type == GOT_TLS_IE_POS)
1194 new_to_type = R_386_TLS_GOTIE;
1195 else if (tls_type & GOT_TLS_IE)
1196 new_to_type = R_386_TLS_IE_32;
1197 }
1198
1199 /* We checked the transition before when we were called from
1200 elf_i386_check_relocs. We only want to check the new
1201 transition which hasn't been checked before. */
1202 check = new_to_type != to_type && from_type == to_type;
1203 to_type = new_to_type;
1204 }
1205
1206 break;
1207
13ae64f3 1208 case R_386_TLS_LDM:
1d85728f 1209 if (info->executable)
142411ca
L		 1210 to_type = R_386_TLS_LE_32;
1211 break;
1212
1213 default:
1214 return TRUE;
1215 }
1216
1217 /* Return TRUE if there is no transition. */
1218 if (from_type == to_type)
1219 return TRUE;
1220
1221 /* Check if the transition can be performed. */
1222 if (check
1223 && ! elf_i386_check_tls_transition (abfd, sec, contents,
1224 symtab_hdr, sym_hashes,
1225 from_type, rel, relend))
1226 {
2f629d23 1227 reloc_howto_type *from, *to;
4c544807 1228 const char *name;
142411ca
L		 1229
1230 from = elf_i386_rtype_to_howto (abfd, from_type);
1231 to = elf_i386_rtype_to_howto (abfd, to_type);
1232
4c544807
L		 1233 if (h)
1234 name = h->root.root.string;
1235 else
1236 {
1237 Elf_Internal_Sym *isym;
1238 struct elf_i386_link_hash_table *htab;
1239 htab = elf_i386_hash_table (info);
1240 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1241 abfd, r_symndx);
1242 name = bfd_elf_sym_name (abfd, symtab_hdr, isym, NULL);
1243 }
1244
142411ca
L		 1245 (*_bfd_error_handler)
1246 (_("%B: TLS transition from %s to %s against `%s' at 0x%lx "
1247 "in section `%A' failed"),
4c544807 1248 abfd, sec, from->name, to->name, name,
142411ca
L		 1249 (unsigned long) rel->r_offset);
1250 bfd_set_error (bfd_error_bad_value);
1251 return FALSE;
13ae64f3
JJ		 1252 }
1253
142411ca
L		 1254 *r_type = to_type;
1255 return TRUE;
13ae64f3
JJ		 1256}
1257
252b5132 1258/* Look through the relocs for a section during the first phase, and
0ac8d2ca
AM		 1259 calculate needed space in the global offset table, procedure linkage
1260 table, and dynamic reloc sections. */
252b5132 1261
b34976b6 1262static bfd_boolean
55fd94b0
AM		 1263elf_i386_check_relocs (bfd *abfd,
1264 struct bfd_link_info *info,
1265 asection *sec,
1266 const Elf_Internal_Rela *relocs)
252b5132 1267{
6725bdbf 1268 struct elf_i386_link_hash_table *htab;
252b5132
RH		 1269 Elf_Internal_Shdr *symtab_hdr;
1270 struct elf_link_hash_entry **sym_hashes;
252b5132
RH		 1271 const Elf_Internal_Rela *rel;
1272 const Elf_Internal_Rela *rel_end;
252b5132
RH		 1273 asection *sreloc;
1274
1049f94e 1275 if (info->relocatable)
b34976b6 1276 return TRUE;
252b5132 1277
0ffa91dd
NC		 1278 BFD_ASSERT (is_i386_elf (abfd));
1279
6725bdbf 1280 htab = elf_i386_hash_table (info);
0ffa91dd 1281 symtab_hdr = &elf_symtab_hdr (abfd);
252b5132 1282 sym_hashes = elf_sym_hashes (abfd);
252b5132 1283
252b5132
RH		 1284 sreloc = NULL;
1285
1286 rel_end = relocs + sec->reloc_count;
1287 for (rel = relocs; rel < rel_end; rel++)
1288 {
13ae64f3 1289 unsigned int r_type;
252b5132
RH		 1290 unsigned long r_symndx;
1291 struct elf_link_hash_entry *h;
4c544807
L		 1292 Elf_Internal_Sym *isym;
1293 const char *name;
252b5132
RH		 1294
1295 r_symndx = ELF32_R_SYM (rel->r_info);
13ae64f3 1296 r_type = ELF32_R_TYPE (rel->r_info);
252b5132 1297
d9bc7a44 1298 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
f5f31454 1299 {
d003868e
AM		 1300 (*_bfd_error_handler) (_("%B: bad symbol index: %d"),
1301 abfd,
8f615d07 1302 r_symndx);
b34976b6 1303 return FALSE;
f5f31454
L		 1304 }
1305
252b5132 1306 if (r_symndx < symtab_hdr->sh_info)
c25bc9fc
L		 1307 {
1308 /* A local symbol. */
c2e61a4e
L		 1309 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1310 abfd, r_symndx);
1311 if (isym == NULL)
1312 return FALSE;
c25bc9fc
L		 1313
1314 /* Check relocation against local STT_GNU_IFUNC symbol. */
c25bc9fc
L		 1315 if (ELF32_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
1316 {
1317 h = elf_i386_get_local_sym_hash (htab, abfd, rel,
1318 TRUE);
1319 if (h == NULL)
c2e61a4e 1320 return FALSE;
c25bc9fc
L		 1321
1322 /* Fake a STT_GNU_IFUNC symbol. */
1323 h->type = STT_GNU_IFUNC;
1324 h->def_regular = 1;
1325 h->ref_regular = 1;
1326 h->forced_local = 1;
1327 h->root.type = bfd_link_hash_defined;
1328 }
1329 else
1330 h = NULL;
1331 }
252b5132 1332 else
71cb9464 1333 {
4c544807 1334 isym = NULL;
71cb9464
L		 1335 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1336 while (h->root.type == bfd_link_hash_indirect
1337 || h->root.type == bfd_link_hash_warning)
1338 h = (struct elf_link_hash_entry *) h->root.u.i.link;
c25bc9fc 1339 }
cbe950e9 1340
c25bc9fc
L		 1341 if (h != NULL)
1342 {
cbe950e9
L		 1343 /* Create the ifunc sections for static executables. If we
1344 never see an indirect function symbol nor we are building
1345 a static executable, those sections will be empty and
1346 won't appear in output. */
1347 switch (r_type)
1348 {
1349 default:
1350 break;
1351
1352 case R_386_32:
1353 case R_386_PC32:
1354 case R_386_PLT32:
1355 case R_386_GOT32:
1356 case R_386_GOTOFF:
6de2ae4a 1357 if (!_bfd_elf_create_ifunc_sections (abfd, info))
c2e61a4e 1358 return FALSE;
cbe950e9
L		 1359 break;
1360 }
1361
1362 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
1363 it here if it is defined in a non-shared object. */
1364 if (h->type == STT_GNU_IFUNC
1365 && h->def_regular)
1366 {
1367 /* It is referenced by a non-shared object. */
1368 h->ref_regular = 1;
7ae26bc1 1369 h->needs_plt = 1;
cbe950e9
L		 1370
1371 /* STT_GNU_IFUNC symbol must go through PLT. */
1372 h->plt.refcount += 1;
1373
1374 /* STT_GNU_IFUNC needs dynamic sections. */
1375 if (htab->elf.dynobj == NULL)
1376 htab->elf.dynobj = abfd;
1377
1378 switch (r_type)
1379 {
048cbda4 1380 default:
4c544807
L		 1381 if (h->root.root.string)
1382 name = h->root.root.string;
1383 else
1384 name = bfd_elf_sym_name (abfd, symtab_hdr, isym,
1385 NULL);
048cbda4
L		 1386 (*_bfd_error_handler)
1387 (_("%B: relocation %s against STT_GNU_IFUNC "
1388 "symbol `%s' isn't handled by %s"), abfd,
1389 elf_howto_table[r_type].name,
4c544807 1390 name, __FUNCTION__);
048cbda4 1391 bfd_set_error (bfd_error_bad_value);
c2e61a4e 1392 return FALSE;
cbe950e9
L		 1393
1394 case R_386_32:
710ab287
L		 1395 h->non_got_ref = 1;
1396 h->pointer_equality_needed = 1;
1397 if (info->shared)
1398 {
710ab287
L		 1399 /* We must copy these reloc types into the
1400 output file. Create a reloc section in
1401 dynobj and make room for this reloc. */
e03a8ed8
L		 1402 sreloc = _bfd_elf_create_ifunc_dyn_reloc
1403 (abfd, info, sec, sreloc,
1404 &((struct elf_i386_link_hash_entry *) h)->dyn_relocs);
710ab287 1405 if (sreloc == NULL)
c2e61a4e 1406 return FALSE;
710ab287
L		 1407 }
1408 break;
1409
cbe950e9
L		 1410 case R_386_PC32:
1411 h->non_got_ref = 1;
cbe950e9
L		 1412 break;
1413
1414 case R_386_PLT32:
1415 break;
1416
1417 case R_386_GOT32:
1418 case R_386_GOTOFF:
7afd84dc 1419 h->got.refcount += 1;
6de2ae4a
L		 1420 if (htab->elf.sgot == NULL
1421 && !_bfd_elf_create_got_section (htab->elf.dynobj,
cbe950e9 1422 info))
c2e61a4e 1423 return FALSE;
cbe950e9
L		 1424 break;
1425 }
1426
1427 continue;
1428 }
71cb9464 1429 }
252b5132 1430
142411ca
L		 1431 if (! elf_i386_tls_transition (info, abfd, sec, NULL,
1432 symtab_hdr, sym_hashes,
1433 &r_type, GOT_UNKNOWN,
4c544807 1434 rel, rel_end, h, r_symndx))
c2e61a4e 1435 return FALSE;
13ae64f3
JJ		 1436
1437 switch (r_type)
252b5132 1438 {
37e55690
JJ		 1439 case R_386_TLS_LDM:
1440 htab->tls_ldm_got.refcount += 1;
1441 goto create_got;
1442
1443 case R_386_PLT32:
1444 /* This symbol requires a procedure linkage table entry. We
1445 actually build the entry in adjust_dynamic_symbol,
1446 because this might be a case of linking PIC code which is
1447 never referenced by a dynamic object, in which case we
1448 don't need to generate a procedure linkage table entry
1449 after all. */
1450
1451 /* If this is a local symbol, we resolve it directly without
1452 creating a procedure linkage table entry. */
1453 if (h == NULL)
1454 continue;
1455
f5385ebf 1456 h->needs_plt = 1;
37e55690
JJ		 1457 h->plt.refcount += 1;
1458 break;
1459
13ae64f3 1460 case R_386_TLS_IE_32:
37e55690
JJ		 1461 case R_386_TLS_IE:
1462 case R_386_TLS_GOTIE:
1d85728f 1463 if (!info->executable)
13ae64f3 1464 info->flags |= DF_STATIC_TLS;
37e55690
JJ		 1465 /* Fall through */
1466
252b5132 1467 case R_386_GOT32:
13ae64f3 1468 case R_386_TLS_GD:
67a4f2b7
AO		 1469 case R_386_TLS_GOTDESC:
1470 case R_386_TLS_DESC_CALL:
252b5132 1471 /* This symbol requires a global offset table entry. */
13ae64f3
JJ		 1472 {
1473 int tls_type, old_tls_type;
1474
1475 switch (r_type)
1476 {
1477 default:
1478 case R_386_GOT32: tls_type = GOT_NORMAL; break;
1479 case R_386_TLS_GD: tls_type = GOT_TLS_GD; break;
67a4f2b7
AO		 1480 case R_386_TLS_GOTDESC:
1481 case R_386_TLS_DESC_CALL:
1482 tls_type = GOT_TLS_GDESC; break;
37e55690
JJ		 1483 case R_386_TLS_IE_32:
1484 if (ELF32_R_TYPE (rel->r_info) == r_type)
1485 tls_type = GOT_TLS_IE_NEG;
1486 else
ebcfb3c0
JJ		 1487 /* If this is a GD->IE transition, we may use either of
1488 R_386_TLS_TPOFF and R_386_TLS_TPOFF32. */
37e55690
JJ		 1489 tls_type = GOT_TLS_IE;
1490 break;
1491 case R_386_TLS_IE:
1492 case R_386_TLS_GOTIE:
1493 tls_type = GOT_TLS_IE_POS; break;
13ae64f3
JJ		 1494 }
1495
1496 if (h != NULL)
1497 {
1498 h->got.refcount += 1;
1499 old_tls_type = elf_i386_hash_entry(h)->tls_type;
1500 }
1501 else
1502 {
1503 bfd_signed_vma *local_got_refcounts;
1504
1505 /* This is a global offset table entry for a local symbol. */
1506 local_got_refcounts = elf_local_got_refcounts (abfd);
1507 if (local_got_refcounts == NULL)
1508 {
1509 bfd_size_type size;
1510
1511 size = symtab_hdr->sh_info;
67a4f2b7
AO		 1512 size *= (sizeof (bfd_signed_vma)
1513 + sizeof (bfd_vma) + sizeof(char));
a50b1753
NC		 1514 local_got_refcounts = (bfd_signed_vma *)
1515 bfd_zalloc (abfd, size);
13ae64f3 1516 if (local_got_refcounts == NULL)
c2e61a4e 1517 return FALSE;
13ae64f3 1518 elf_local_got_refcounts (abfd) = local_got_refcounts;
67a4f2b7
AO		 1519 elf_i386_local_tlsdesc_gotent (abfd)
1520 = (bfd_vma *) (local_got_refcounts + symtab_hdr->sh_info);
13ae64f3 1521 elf_i386_local_got_tls_type (abfd)
67a4f2b7 1522 = (char *) (local_got_refcounts + 2 * symtab_hdr->sh_info);
13ae64f3
JJ		 1523 }
1524 local_got_refcounts[r_symndx] += 1;
1525 old_tls_type = elf_i386_local_got_tls_type (abfd) [r_symndx];
1526 }
1527
37e55690
JJ		 1528 if ((old_tls_type & GOT_TLS_IE) && (tls_type & GOT_TLS_IE))
1529 tls_type |= old_tls_type;
13ae64f3
JJ		 1530 /* If a TLS symbol is accessed using IE at least once,
1531 there is no point to use dynamic model for it. */
ebcfb3c0 1532 else if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
67a4f2b7 1533 && (! GOT_TLS_GD_ANY_P (old_tls_type)
37e55690 1534 || (tls_type & GOT_TLS_IE) == 0))
13ae64f3 1535 {
67a4f2b7 1536 if ((old_tls_type & GOT_TLS_IE) && GOT_TLS_GD_ANY_P (tls_type))
37e55690 1537 tls_type = old_tls_type;
67a4f2b7
AO		 1538 else if (GOT_TLS_GD_ANY_P (old_tls_type)
1539 && GOT_TLS_GD_ANY_P (tls_type))
1540 tls_type |= old_tls_type;
13ae64f3
JJ		 1541 else
1542 {
09a24cbf 1543 if (h)
4c544807
L		 1544 name = h->root.root.string;
1545 else
1546 name = bfd_elf_sym_name (abfd, symtab_hdr, isym,
1547 NULL);
13ae64f3 1548 (*_bfd_error_handler)
d003868e 1549 (_("%B: `%s' accessed both as normal and "
55fd94b0 1550 "thread local symbol"),
4c544807 1551 abfd, name);
c2e61a4e 1552 return FALSE;
13ae64f3
JJ		 1553 }
1554 }
1555
1556 if (old_tls_type != tls_type)
1557 {
1558 if (h != NULL)
1559 elf_i386_hash_entry (h)->tls_type = tls_type;
1560 else
1561 elf_i386_local_got_tls_type (abfd) [r_symndx] = tls_type;
1562 }
1563 }
0ac8d2ca
AM		 1564 /* Fall through */
1565
1566 case R_386_GOTOFF:
1567 case R_386_GOTPC:
13ae64f3 1568 create_got:
6de2ae4a 1569 if (htab->elf.sgot == NULL)
0ac8d2ca
AM		 1570 {
1571 if (htab->elf.dynobj == NULL)
1572 htab->elf.dynobj = abfd;
6de2ae4a 1573 if (!_bfd_elf_create_got_section (htab->elf.dynobj, info))
c2e61a4e 1574 return FALSE;
0ac8d2ca 1575 }
37e55690
JJ		 1576 if (r_type != R_386_TLS_IE)
1577 break;
1578 /* Fall through */
252b5132 1579
37e55690
JJ		 1580 case R_386_TLS_LE_32:
1581 case R_386_TLS_LE:
1d85728f 1582 if (info->executable)
37e55690 1583 break;
bffbf940 1584 info->flags |= DF_STATIC_TLS;
b34976b6 1585 /* Fall through */
252b5132
RH		 1586
1587 case R_386_32:
1588 case R_386_PC32:
710ab287 1589 if (h != NULL && info->executable)
6725bdbf 1590 {
12d0ee4a 1591 /* If this reloc is in a read-only section, we might
ebe50bae
AM		 1592 need a copy reloc. We can't check reliably at this
1593 stage whether the section is read-only, as input
1594 sections have not yet been mapped to output sections.
1595 Tentatively set the flag for now, and correct in
1596 adjust_dynamic_symbol. */
f5385ebf 1597 h->non_got_ref = 1;
12d0ee4a
AM		 1598
1599 /* We may need a .plt entry if the function this reloc
1600 refers to is in a shared lib. */
51b64d56 1601 h->plt.refcount += 1;
c6585bbb 1602 if (r_type != R_386_PC32)
f5385ebf 1603 h->pointer_equality_needed = 1;
6725bdbf 1604 }
7843f00e 1605
252b5132 1606 /* If we are creating a shared library, and this is a reloc
f69da49f
AM		 1607 against a global symbol, or a non PC relative reloc
1608 against a local symbol, then we need to copy the reloc
1609 into the shared library. However, if we are linking with
1610 -Bsymbolic, we do not need to copy a reloc against a
1611 global symbol which is defined in an object we are
1612 including in the link (i.e., DEF_REGULAR is set). At
1613 this point we have not seen all the input files, so it is
1614 possible that DEF_REGULAR is not set now but will be set
1f655a09
L		 1615 later (it is never cleared). In case of a weak definition,
1616 DEF_REGULAR may be cleared later by a strong definition in
ebe50bae 1617 a shared library. We account for that possibility below by
1f655a09
L		 1618 storing information in the relocs_copied field of the hash
1619 table entry. A similar situation occurs when creating
1620 shared libraries and symbol visibility changes render the
12d0ee4a 1621 symbol local.
56882138 1622
12d0ee4a
AM		 1623 If on the other hand, we are creating an executable, we
1624 may need to keep relocations for symbols satisfied by a
1625 dynamic library if we manage to avoid copy relocs for the
1626 symbol. */
1627 if ((info->shared
1628 && (sec->flags & SEC_ALLOC) != 0
13ae64f3 1629 && (r_type != R_386_PC32
12d0ee4a 1630 || (h != NULL
55255dae 1631 && (! SYMBOLIC_BIND (info, h)
12d0ee4a 1632 || h->root.type == bfd_link_hash_defweak
f5385ebf 1633 || !h->def_regular))))
a23b6845
AM		 1634 || (ELIMINATE_COPY_RELOCS
1635 && !info->shared
12d0ee4a
AM		 1636 && (sec->flags & SEC_ALLOC) != 0
1637 && h != NULL
12d0ee4a 1638 && (h->root.type == bfd_link_hash_defweak
0f88be7a 1639 || !h->def_regular)))
252b5132 1640 {
e03a8ed8
L		 1641 struct elf_dyn_relocs *p;
1642 struct elf_dyn_relocs **head;
ec338859 1643
12d0ee4a
AM		 1644 /* We must copy these reloc types into the output file.
1645 Create a reloc section in dynobj and make room for
1646 this reloc. */
252b5132
RH		 1647 if (sreloc == NULL)
1648 {
0ac8d2ca
AM		 1649 if (htab->elf.dynobj == NULL)
1650 htab->elf.dynobj = abfd;
1651
83bac4b0
NC		 1652 sreloc = _bfd_elf_make_dynamic_reloc_section
1653 (sec, htab->elf.dynobj, 2, abfd, /*rela?*/ FALSE);
1654
252b5132 1655 if (sreloc == NULL)
c2e61a4e 1656 return FALSE;
252b5132
RH		 1657 }
1658
0c715baa
AM		 1659 /* If this is a global symbol, we count the number of
1660 relocations we need for this symbol. */
1661 if (h != NULL)
252b5132 1662 {
ec338859 1663 head = &((struct elf_i386_link_hash_entry *) h)->dyn_relocs;
0c715baa
AM		 1664 }
1665 else
1666 {
ec338859
AM		 1667 /* Track dynamic relocs needed for local syms too.
1668 We really need local syms available to do this
1669 easily. Oh well. */
87d72d41 1670 void **vpp;
ec338859 1671 asection *s;
87d72d41
AM		 1672
1673 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1674 abfd, r_symndx);
1675 if (isym == NULL)
1676 return FALSE;
1677
1678 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
ec338859 1679 if (s == NULL)
87d72d41 1680 s = sec;
ec338859 1681
e81d3500 1682 vpp = &elf_section_data (s)->local_dynrel;
e03a8ed8 1683 head = (struct elf_dyn_relocs **)vpp;
ec338859
AM		 1684 }
1685
1686 p = *head;
1687 if (p == NULL || p->sec != sec)
1688 {
1689 bfd_size_type amt = sizeof *p;
a50b1753
NC		 1690 p = (struct elf_dyn_relocs *) bfd_alloc (htab->elf.dynobj,
1691 amt);
ec338859 1692 if (p == NULL)
c2e61a4e 1693 return FALSE;
ec338859
AM		 1694 p->next = *head;
1695 *head = p;
1696 p->sec = sec;
1697 p->count = 0;
1698 p->pc_count = 0;
252b5132 1699 }
ec338859
AM		 1700
1701 p->count += 1;
13ae64f3 1702 if (r_type == R_386_PC32)
ec338859 1703 p->pc_count += 1;
252b5132 1704 }
252b5132
RH		 1705 break;
1706
1707 /* This relocation describes the C++ object vtable hierarchy.
1708 Reconstruct it for later use during GC. */
1709 case R_386_GNU_VTINHERIT:
d17e0c6e 1710 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
c2e61a4e 1711 return FALSE;
252b5132
RH		 1712 break;
1713
1714 /* This relocation describes which C++ vtable entries are actually
1715 used. Record for later use during GC. */
1716 case R_386_GNU_VTENTRY:
c6aa130f
MS		 1717 BFD_ASSERT (h != NULL);
1718 if (h != NULL
1719 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_offset))
c2e61a4e 1720 return FALSE;
252b5132
RH		 1721 break;
1722
1723 default:
1724 break;
1725 }
1726 }
1727
b34976b6 1728 return TRUE;
252b5132
RH		 1729}
1730
1731/* Return the section that should be marked against GC for a given
1732 relocation. */
1733
1734static asection *
55fd94b0 1735elf_i386_gc_mark_hook (asection *sec,
07adf181 1736 struct bfd_link_info *info,
55fd94b0
AM		 1737 Elf_Internal_Rela *rel,
1738 struct elf_link_hash_entry *h,
1739 Elf_Internal_Sym *sym)
252b5132
RH		 1740{
1741 if (h != NULL)
07adf181
AM		 1742 switch (ELF32_R_TYPE (rel->r_info))
1743 {
1744 case R_386_GNU_VTINHERIT:
1745 case R_386_GNU_VTENTRY:
1746 return NULL;
1747 }
1748
1749 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
252b5132
RH		 1750}
1751
1752/* Update the got entry reference counts for the section being removed. */
1753
b34976b6 1754static bfd_boolean
55fd94b0
AM		 1755elf_i386_gc_sweep_hook (bfd *abfd,
1756 struct bfd_link_info *info,
1757 asection *sec,
1758 const Elf_Internal_Rela *relocs)
252b5132 1759{
dd5724d5
AM		 1760 Elf_Internal_Shdr *symtab_hdr;
1761 struct elf_link_hash_entry **sym_hashes;
1762 bfd_signed_vma *local_got_refcounts;
1763 const Elf_Internal_Rela *rel, *relend;
dd5724d5 1764
7dda2462
TG		 1765 if (info->relocatable)
1766 return TRUE;
1767
ec338859 1768 elf_section_data (sec)->local_dynrel = NULL;
dd5724d5 1769
0ffa91dd 1770 symtab_hdr = &elf_symtab_hdr (abfd);
6725bdbf
AM		 1771 sym_hashes = elf_sym_hashes (abfd);
1772 local_got_refcounts = elf_local_got_refcounts (abfd);
dd5724d5
AM		 1773
1774 relend = relocs + sec->reloc_count;
1775 for (rel = relocs; rel < relend; rel++)
26e41594
AM		 1776 {
1777 unsigned long r_symndx;
1778 unsigned int r_type;
1779 struct elf_link_hash_entry *h = NULL;
37e55690 1780
26e41594
AM		 1781 r_symndx = ELF32_R_SYM (rel->r_info);
1782 if (r_symndx >= symtab_hdr->sh_info)
1783 {
1784 struct elf_i386_link_hash_entry *eh;
e03a8ed8
L		 1785 struct elf_dyn_relocs **pp;
1786 struct elf_dyn_relocs *p;
dd5724d5 1787
26e41594 1788 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3eb128b2
AM		 1789 while (h->root.type == bfd_link_hash_indirect
1790 || h->root.type == bfd_link_hash_warning)
1791 h = (struct elf_link_hash_entry *) h->root.u.i.link;
26e41594 1792 eh = (struct elf_i386_link_hash_entry *) h;
0c715baa 1793
26e41594
AM		 1794 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
1795 if (p->sec == sec)
1796 {
1797 /* Everything must go for SEC. */
1798 *pp = p->next;
1799 break;
1800 }
1801 }
0c715baa 1802
26e41594 1803 r_type = ELF32_R_TYPE (rel->r_info);
142411ca
L		 1804 if (! elf_i386_tls_transition (info, abfd, sec, NULL,
1805 symtab_hdr, sym_hashes,
1806 &r_type, GOT_UNKNOWN,
4c544807 1807 rel, relend, h, r_symndx))
142411ca
L		 1808 return FALSE;
1809
26e41594
AM		 1810 switch (r_type)
1811 {
1812 case R_386_TLS_LDM:
1813 if (elf_i386_hash_table (info)->tls_ldm_got.refcount > 0)
1814 elf_i386_hash_table (info)->tls_ldm_got.refcount -= 1;
1815 break;
0c715baa 1816
26e41594 1817 case R_386_TLS_GD:
67a4f2b7
AO		 1818 case R_386_TLS_GOTDESC:
1819 case R_386_TLS_DESC_CALL:
26e41594
AM		 1820 case R_386_TLS_IE_32:
1821 case R_386_TLS_IE:
1822 case R_386_TLS_GOTIE:
1823 case R_386_GOT32:
1824 if (h != NULL)
1825 {
1826 if (h->got.refcount > 0)
1827 h->got.refcount -= 1;
1828 }
1829 else if (local_got_refcounts != NULL)
1830 {
1831 if (local_got_refcounts[r_symndx] > 0)
1832 local_got_refcounts[r_symndx] -= 1;
1833 }
1834 break;
0c715baa 1835
26e41594
AM		 1836 case R_386_32:
1837 case R_386_PC32:
1838 if (info->shared)
1839 break;
1840 /* Fall through */
6725bdbf 1841
26e41594
AM		 1842 case R_386_PLT32:
1843 if (h != NULL)
1844 {
1845 if (h->plt.refcount > 0)
1846 h->plt.refcount -= 1;
1847 }
1848 break;
dd5724d5 1849
26e41594
AM		 1850 default:
1851 break;
1852 }
1853 }
252b5132 1854
b34976b6 1855 return TRUE;
252b5132
RH		 1856}
1857
1858/* Adjust a symbol defined by a dynamic object and referenced by a
1859 regular object. The current definition is in some section of the
1860 dynamic object, but we're not including those sections. We have to
1861 change the definition to something the rest of the link can
1862 understand. */
1863
b34976b6 1864static bfd_boolean
55fd94b0
AM		 1865elf_i386_adjust_dynamic_symbol (struct bfd_link_info *info,
1866 struct elf_link_hash_entry *h)
252b5132 1867{
6725bdbf 1868 struct elf_i386_link_hash_table *htab;
252b5132 1869 asection *s;
252b5132 1870
cbe950e9
L		 1871 /* STT_GNU_IFUNC symbol must go through PLT. */
1872 if (h->type == STT_GNU_IFUNC)
1873 {
1874 if (h->plt.refcount <= 0)
1875 {
1876 h->plt.offset = (bfd_vma) -1;
1877 h->needs_plt = 0;
1878 }
1879 return TRUE;
1880 }
1881
252b5132
RH		 1882 /* If this is a function, put it in the procedure linkage table. We
1883 will fill in the contents of the procedure linkage table later,
1884 when we know the address of the .got section. */
1885 if (h->type == STT_FUNC
f5385ebf 1886 || h->needs_plt)
252b5132 1887 {
6725bdbf 1888 if (h->plt.refcount <= 0
9c7a29a3
AM		 1889 || SYMBOL_CALLS_LOCAL (info, h)
1890 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
1891 && h->root.type == bfd_link_hash_undefweak))
252b5132
RH		 1892 {
1893 /* This case can occur if we saw a PLT32 reloc in an input
dd5724d5
AM		 1894 file, but the symbol was never referred to by a dynamic
1895 object, or if all references were garbage collected. In
1896 such a case, we don't actually need to build a procedure
1897 linkage table, and we can just do a PC32 reloc instead. */
bbd7ec4a 1898 h->plt.offset = (bfd_vma) -1;
f5385ebf 1899 h->needs_plt = 0;
252b5132
RH		 1900 }
1901
b34976b6 1902 return TRUE;
252b5132 1903 }
6725bdbf
AM		 1904 else
1905 /* It's possible that we incorrectly decided a .plt reloc was
1906 needed for an R_386_PC32 reloc to a non-function sym in
1907 check_relocs. We can't decide accurately between function and
1908 non-function syms in check-relocs; Objects loaded later in
1909 the link may change h->type. So fix it now. */
bbd7ec4a 1910 h->plt.offset = (bfd_vma) -1;
252b5132
RH		 1911
1912 /* If this is a weak symbol, and there is a real definition, the
1913 processor independent code will have arranged for us to see the
1914 real definition first, and we can just use the same value. */
f6e332e6 1915 if (h->u.weakdef != NULL)
252b5132 1916 {
f6e332e6
AM		 1917 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
1918 || h->u.weakdef->root.type == bfd_link_hash_defweak);
1919 h->root.u.def.section = h->u.weakdef->root.u.def.section;
1920 h->root.u.def.value = h->u.weakdef->root.u.def.value;
a23b6845 1921 if (ELIMINATE_COPY_RELOCS || info->nocopyreloc)
f6e332e6 1922 h->non_got_ref = h->u.weakdef->non_got_ref;
b34976b6 1923 return TRUE;
252b5132
RH		 1924 }
1925
1926 /* This is a reference to a symbol defined by a dynamic object which
1927 is not a function. */
1928
1929 /* If we are creating a shared library, we must presume that the
1930 only references to the symbol are via the global offset table.
1931 For such cases we need not do anything here; the relocations will
1932 be handled correctly by relocate_section. */
1933 if (info->shared)
b34976b6 1934 return TRUE;
252b5132 1935
7843f00e
ILT		 1936 /* If there are no references to this symbol that do not use the
1937 GOT, we don't need to generate a copy reloc. */
f5385ebf 1938 if (!h->non_got_ref)
b34976b6 1939 return TRUE;
7843f00e 1940
8bd621d8
AM		 1941 /* If -z nocopyreloc was given, we won't generate them either. */
1942 if (info->nocopyreloc)
1943 {
f5385ebf 1944 h->non_got_ref = 0;
b34976b6 1945 return TRUE;
8bd621d8
AM		 1946 }
1947
643796e3
DJ		 1948 htab = elf_i386_hash_table (info);
1949
1950 /* If there aren't any dynamic relocs in read-only sections, then
1951 we can keep the dynamic relocs and avoid the copy reloc. This
1952 doesn't work on VxWorks, where we can not have dynamic relocations
1953 (other than copy and jump slot relocations) in an executable. */
1954 if (ELIMINATE_COPY_RELOCS && !htab->is_vxworks)
ebe50bae 1955 {
a23b6845 1956 struct elf_i386_link_hash_entry * eh;
e03a8ed8 1957 struct elf_dyn_relocs *p;
ebe50bae 1958
a23b6845
AM		 1959 eh = (struct elf_i386_link_hash_entry *) h;
1960 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1961 {
1962 s = p->sec->output_section;
1963 if (s != NULL && (s->flags & SEC_READONLY) != 0)
1964 break;
1965 }
1966
a23b6845
AM		 1967 if (p == NULL)
1968 {
f5385ebf 1969 h->non_got_ref = 0;
a23b6845
AM		 1970 return TRUE;
1971 }
ebe50bae
AM		 1972 }
1973
909272ee
AM		 1974 if (h->size == 0)
1975 {
1976 (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
1977 h->root.root.string);
1978 return TRUE;
1979 }
1980
252b5132
RH		 1981 /* We must allocate the symbol in our .dynbss section, which will
1982 become part of the .bss section of the executable. There will be
1983 an entry for this symbol in the .dynsym section. The dynamic
1984 object will contain position independent code, so all references
1985 from the dynamic object to this symbol will go through the global
1986 offset table. The dynamic linker will use the .dynsym entry to
1987 determine the address it must put in the global offset table, so
1988 both the dynamic object and the regular object will refer to the
1989 same memory location for the variable. */
1990
252b5132
RH		 1991 /* We must generate a R_386_COPY reloc to tell the dynamic linker to
1992 copy the initial value out of the dynamic object and into the
0ac8d2ca 1993 runtime process image. */
252b5132
RH		 1994 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1995 {
eea6121a 1996 htab->srelbss->size += sizeof (Elf32_External_Rel);
f5385ebf 1997 h->needs_copy = 1;
252b5132
RH		 1998 }
1999
0ac8d2ca 2000 s = htab->sdynbss;
252b5132 2001
027297b7 2002 return _bfd_elf_adjust_dynamic_copy (h, s);
252b5132
RH		 2003}
2004
6725bdbf 2005/* Allocate space in .plt, .got and associated reloc sections for
0c715baa 2006 dynamic relocs. */
6725bdbf 2007
b34976b6 2008static bfd_boolean
eb4ff4d6 2009elf_i386_allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
6725bdbf
AM		 2010{
2011 struct bfd_link_info *info;
2012 struct elf_i386_link_hash_table *htab;
5a15f56f 2013 struct elf_i386_link_hash_entry *eh;
e03a8ed8 2014 struct elf_dyn_relocs *p;
6725bdbf 2015
e92d460e 2016 if (h->root.type == bfd_link_hash_indirect)
b34976b6 2017 return TRUE;
6725bdbf 2018
e92d460e
AM		 2019 if (h->root.type == bfd_link_hash_warning)
2020 /* When warning symbols are created, they **replace** the "real"
2021 entry in the hash table, thus we never get to see the real
2022 symbol in a hash traversal. So look at it now. */
2023 h = (struct elf_link_hash_entry *) h->root.u.i.link;
cbe950e9 2024 eh = (struct elf_i386_link_hash_entry *) h;
e92d460e 2025
6725bdbf
AM		 2026 info = (struct bfd_link_info *) inf;
2027 htab = elf_i386_hash_table (info);
2028
cbe950e9
L		 2029 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle it
2030 here if it is defined and referenced in a non-shared object. */
2031 if (h->type == STT_GNU_IFUNC
2032 && h->def_regular)
e03a8ed8
L		 2033 return _bfd_elf_allocate_ifunc_dyn_relocs (info, h,
2034 &eh->dyn_relocs,
2035 PLT_ENTRY_SIZE, 4);
cbe950e9
L		 2036 else if (htab->elf.dynamic_sections_created
2037 && h->plt.refcount > 0)
6725bdbf 2038 {
5a15f56f
AM		 2039 /* Make sure this symbol is output as a dynamic symbol.
2040 Undefined weak syms won't yet be marked as dynamic. */
2041 if (h->dynindx == -1
f5385ebf 2042 && !h->forced_local)
5a15f56f 2043 {
c152c796 2044 if (! bfd_elf_link_record_dynamic_symbol (info, h))
b34976b6 2045 return FALSE;
5a15f56f
AM		 2046 }
2047
4e795f50
AM		 2048 if (info->shared
2049 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
ced53ee5 2050 {
6de2ae4a 2051 asection *s = htab->elf.splt;
6725bdbf 2052
ced53ee5
AM		 2053 /* If this is the first .plt entry, make room for the special
2054 first entry. */
eea6121a
AM		 2055 if (s->size == 0)
2056 s->size += PLT_ENTRY_SIZE;
6725bdbf 2057
eea6121a 2058 h->plt.offset = s->size;
6725bdbf 2059
ced53ee5
AM		 2060 /* If this symbol is not defined in a regular file, and we are
2061 not generating a shared library, then set the symbol to this
2062 location in the .plt. This is required to make function
2063 pointers compare as equal between the normal executable and
2064 the shared library. */
2065 if (! info->shared
f5385ebf 2066 && !h->def_regular)
ced53ee5
AM		 2067 {
2068 h->root.u.def.section = s;
2069 h->root.u.def.value = h->plt.offset;
2070 }
6725bdbf 2071
ced53ee5 2072 /* Make room for this entry. */
eea6121a 2073 s->size += PLT_ENTRY_SIZE;
6725bdbf 2074
ced53ee5
AM		 2075 /* We also need to make an entry in the .got.plt section, which
2076 will be placed in the .got section by the linker script. */
6de2ae4a 2077 htab->elf.sgotplt->size += 4;
6725bdbf 2078
6725bdbf 2079 /* We also need to make an entry in the .rel.plt section. */
6de2ae4a 2080 htab->elf.srelplt->size += sizeof (Elf32_External_Rel);
5ae0bfb6 2081 htab->next_tls_desc_index++;
eac338cf
PB		 2082
2083 if (htab->is_vxworks && !info->shared)
2084 {
2085 /* VxWorks has a second set of relocations for each PLT entry
2086 in executables. They go in a separate relocation section,
2087 which is processed by the kernel loader. */
2088
2089 /* There are two relocations for the initial PLT entry: an
2090 R_386_32 relocation for _GLOBAL_OFFSET_TABLE_ + 4 and an
2091 R_386_32 relocation for _GLOBAL_OFFSET_TABLE_ + 8. */
2092
2093 if (h->plt.offset == PLT_ENTRY_SIZE)
2094 htab->srelplt2->size += (sizeof (Elf32_External_Rel) * 2);
2095
2096 /* There are two extra relocations for each subsequent PLT entry:
2097 an R_386_32 relocation for the GOT entry, and an R_386_32
2098 relocation for the PLT entry. */
2099
2100 htab->srelplt2->size += (sizeof (Elf32_External_Rel) * 2);
2101 }
6725bdbf 2102 }
ced53ee5
AM		 2103 else
2104 {
51b64d56 2105 h->plt.offset = (bfd_vma) -1;
f5385ebf 2106 h->needs_plt = 0;
ced53ee5 2107 }
6725bdbf
AM		 2108 }
2109 else
2110 {
51b64d56 2111 h->plt.offset = (bfd_vma) -1;
f5385ebf 2112 h->needs_plt = 0;
6725bdbf
AM		 2113 }
2114
67a4f2b7
AO		 2115 eh->tlsdesc_got = (bfd_vma) -1;
2116
37e55690 2117 /* If R_386_TLS_{IE_32,IE,GOTIE} symbol is now local to the binary,
13ae64f3
JJ		 2118 make it a R_386_TLS_LE_32 requiring no TLS entry. */
2119 if (h->got.refcount > 0
1d85728f 2120 && info->executable
13ae64f3 2121 && h->dynindx == -1
37e55690 2122 && (elf_i386_hash_entry(h)->tls_type & GOT_TLS_IE))
cedb70c5 2123 h->got.offset = (bfd_vma) -1;
13ae64f3 2124 else if (h->got.refcount > 0)
6725bdbf 2125 {
0ac8d2ca 2126 asection *s;
b34976b6 2127 bfd_boolean dyn;
13ae64f3 2128 int tls_type = elf_i386_hash_entry(h)->tls_type;
6725bdbf 2129
5a15f56f
AM		 2130 /* Make sure this symbol is output as a dynamic symbol.
2131 Undefined weak syms won't yet be marked as dynamic. */
2132 if (h->dynindx == -1
f5385ebf 2133 && !h->forced_local)
5a15f56f 2134 {
c152c796 2135 if (! bfd_elf_link_record_dynamic_symbol (info, h))
b34976b6 2136 return FALSE;
5a15f56f
AM		 2137 }
2138
6de2ae4a 2139 s = htab->elf.sgot;
67a4f2b7
AO		 2140 if (GOT_TLS_GDESC_P (tls_type))
2141 {
6de2ae4a 2142 eh->tlsdesc_got = htab->elf.sgotplt->size
67a4f2b7 2143 - elf_i386_compute_jump_table_size (htab);
6de2ae4a 2144 htab->elf.sgotplt->size += 8;
67a4f2b7
AO		 2145 h->got.offset = (bfd_vma) -2;
2146 }
2147 if (! GOT_TLS_GDESC_P (tls_type)
2148 || GOT_TLS_GD_P (tls_type))
2149 {
2150 h->got.offset = s->size;
2151 s->size += 4;
2152 /* R_386_TLS_GD needs 2 consecutive GOT slots. */
2153 if (GOT_TLS_GD_P (tls_type) || tls_type == GOT_TLS_IE_BOTH)
2154 s->size += 4;
2155 }
ebe50bae 2156 dyn = htab->elf.dynamic_sections_created;
13ae64f3 2157 /* R_386_TLS_IE_32 needs one dynamic relocation,
37e55690
JJ		 2158 R_386_TLS_IE resp. R_386_TLS_GOTIE needs one dynamic relocation,
2159 (but if both R_386_TLS_IE_32 and R_386_TLS_IE is present, we
2160 need two), R_386_TLS_GD needs one if local symbol and two if
2161 global. */
2162 if (tls_type == GOT_TLS_IE_BOTH)
6de2ae4a 2163 htab->elf.srelgot->size += 2 * sizeof (Elf32_External_Rel);
67a4f2b7 2164 else if ((GOT_TLS_GD_P (tls_type) && h->dynindx == -1)
37e55690 2165 || (tls_type & GOT_TLS_IE))
6de2ae4a 2166 htab->elf.srelgot->size += sizeof (Elf32_External_Rel);
67a4f2b7 2167 else if (GOT_TLS_GD_P (tls_type))
6de2ae4a 2168 htab->elf.srelgot->size += 2 * sizeof (Elf32_External_Rel);
67a4f2b7
AO		 2169 else if (! GOT_TLS_GDESC_P (tls_type)
2170 && (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2171 || h->root.type != bfd_link_hash_undefweak)
ef5aade5
L		 2172 && (info->shared
2173 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
6de2ae4a 2174 htab->elf.srelgot->size += sizeof (Elf32_External_Rel);
67a4f2b7 2175 if (GOT_TLS_GDESC_P (tls_type))
6de2ae4a 2176 htab->elf.srelplt->size += sizeof (Elf32_External_Rel);
6725bdbf
AM		 2177 }
2178 else
51b64d56 2179 h->got.offset = (bfd_vma) -1;
6725bdbf 2180
5a15f56f 2181 if (eh->dyn_relocs == NULL)
b34976b6 2182 return TRUE;
5a15f56f 2183
0c715baa
AM		 2184 /* In the shared -Bsymbolic case, discard space allocated for
2185 dynamic pc-relative relocs against symbols which turn out to be
2186 defined in regular objects. For the normal shared case, discard
0ac8d2ca
AM		 2187 space for pc-relative relocs that have become local due to symbol
2188 visibility changes. */
0c715baa
AM		 2189
2190 if (info->shared)
5a15f56f 2191 {
09695f56
AM		 2192 /* The only reloc that uses pc_count is R_386_PC32, which will
2193 appear on a call or on something like ".long foo - .". We
2194 want calls to protected symbols to resolve directly to the
2195 function rather than going via the plt. If people want
2196 function pointer comparisons to work as expected then they
2197 should avoid writing assembly like ".long foo - .". */
2198 if (SYMBOL_CALLS_LOCAL (info, h))
5a15f56f 2199 {
e03a8ed8 2200 struct elf_dyn_relocs **pp;
0c715baa
AM		 2201
2202 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2203 {
2204 p->count -= p->pc_count;
2205 p->pc_count = 0;
2206 if (p->count == 0)
2207 *pp = p->next;
2208 else
2209 pp = &p->next;
2210 }
5a15f56f 2211 }
4e795f50 2212
3348747a
NS		 2213 if (htab->is_vxworks)
2214 {
e03a8ed8 2215 struct elf_dyn_relocs **pp;
3348747a
NS		 2216 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2217 {
2218 if (strcmp (p->sec->output_section->name, ".tls_vars") == 0)
2219 *pp = p->next;
2220 else
2221 pp = &p->next;
2222 }
2223 }
2224
4e795f50 2225 /* Also discard relocs on undefined weak syms with non-default
3348747a 2226 visibility. */
22d606e9 2227 if (eh->dyn_relocs != NULL
4e795f50 2228 && h->root.type == bfd_link_hash_undefweak)
22d606e9
AM		 2229 {
2230 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
2231 eh->dyn_relocs = NULL;
2232
2233 /* Make sure undefined weak symbols are output as a dynamic
2234 symbol in PIEs. */
2235 else if (h->dynindx == -1
2236 && !h->forced_local)
2237 {
2238 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2239 return FALSE;
2240 }
2241 }
0c715baa 2242 }
a23b6845 2243 else if (ELIMINATE_COPY_RELOCS)
0c715baa
AM		 2244 {
2245 /* For the non-shared case, discard space for relocs against
2246 symbols which turn out to need copy relocs or are not
2247 dynamic. */
2248
f5385ebf
AM		 2249 if (!h->non_got_ref
2250 && ((h->def_dynamic
2251 && !h->def_regular)
ebe50bae 2252 || (htab->elf.dynamic_sections_created
0c715baa
AM		 2253 && (h->root.type == bfd_link_hash_undefweak
2254 || h->root.type == bfd_link_hash_undefined))))
2255 {
2256 /* Make sure this symbol is output as a dynamic symbol.
2257 Undefined weak syms won't yet be marked as dynamic. */
2258 if (h->dynindx == -1
f5385ebf 2259 && !h->forced_local)
0c715baa 2260 {
c152c796 2261 if (! bfd_elf_link_record_dynamic_symbol (info, h))
b34976b6 2262 return FALSE;
0c715baa 2263 }
5a15f56f 2264
0c715baa
AM		 2265 /* If that succeeded, we know we'll be keeping all the
2266 relocs. */
2267 if (h->dynindx != -1)
2268 goto keep;
2269 }
2270
2271 eh->dyn_relocs = NULL;
2272
ec338859 2273 keep: ;
5a15f56f
AM		 2274 }
2275
0c715baa
AM		 2276 /* Finally, allocate space. */
2277 for (p = eh->dyn_relocs; p != NULL; p = p->next)
12d0ee4a 2278 {
e7c33416
NC		 2279 asection *sreloc;
2280
cbe950e9 2281 sreloc = elf_section_data (p->sec)->sreloc;
e7c33416
NC		 2282
2283 BFD_ASSERT (sreloc != NULL);
eea6121a 2284 sreloc->size += p->count * sizeof (Elf32_External_Rel);
12d0ee4a
AM		 2285 }
2286
b34976b6 2287 return TRUE;
6725bdbf
AM		 2288}
2289
c25bc9fc
L		 2290/* Allocate space in .plt, .got and associated reloc sections for
2291 local dynamic relocs. */
2292
2293static bfd_boolean
2294elf_i386_allocate_local_dynrelocs (void **slot, void *inf)
2295{
2296 struct elf_link_hash_entry *h
2297 = (struct elf_link_hash_entry *) *slot;
2298
2299 if (h->type != STT_GNU_IFUNC
2300 || !h->def_regular
2301 || !h->ref_regular
2302 || !h->forced_local
2303 || h->root.type != bfd_link_hash_defined)
2304 abort ();
2305
2306 return elf_i386_allocate_dynrelocs (h, inf);
2307}
2308
0c715baa
AM		 2309/* Find any dynamic relocs that apply to read-only sections. */
2310
b34976b6 2311static bfd_boolean
eb4ff4d6 2312elf_i386_readonly_dynrelocs (struct elf_link_hash_entry *h, void *inf)
0c715baa
AM		 2313{
2314 struct elf_i386_link_hash_entry *eh;
e03a8ed8 2315 struct elf_dyn_relocs *p;
0c715baa 2316
e92d460e
AM		 2317 if (h->root.type == bfd_link_hash_warning)
2318 h = (struct elf_link_hash_entry *) h->root.u.i.link;
2319
0c715baa
AM		 2320 eh = (struct elf_i386_link_hash_entry *) h;
2321 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2322 {
2323 asection *s = p->sec->output_section;
2324
2325 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2326 {
2327 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2328
2329 info->flags |= DF_TEXTREL;
2330
2331 /* Not an error, just cut short the traversal. */
b34976b6 2332 return FALSE;
0c715baa
AM		 2333 }
2334 }
b34976b6 2335 return TRUE;
0c715baa
AM		 2336}
2337
252b5132
RH		 2338/* Set the sizes of the dynamic sections. */
2339
b34976b6 2340static bfd_boolean
55fd94b0
AM		 2341elf_i386_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2342 struct bfd_link_info *info)
252b5132 2343{
6725bdbf 2344 struct elf_i386_link_hash_table *htab;
252b5132
RH		 2345 bfd *dynobj;
2346 asection *s;
b34976b6 2347 bfd_boolean relocs;
0c715baa 2348 bfd *ibfd;
252b5132 2349
6725bdbf 2350 htab = elf_i386_hash_table (info);
ebe50bae 2351 dynobj = htab->elf.dynobj;
ffb2e45b
AM		 2352 if (dynobj == NULL)
2353 abort ();
252b5132 2354
ebe50bae 2355 if (htab->elf.dynamic_sections_created)
252b5132
RH		 2356 {
2357 /* Set the contents of the .interp section to the interpreter. */
36af4a4e 2358 if (info->executable)
252b5132
RH		 2359 {
2360 s = bfd_get_section_by_name (dynobj, ".interp");
ffb2e45b
AM		 2361 if (s == NULL)
2362 abort ();
eea6121a 2363 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
252b5132
RH		 2364 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2365 }
161d71a6 2366 }
6725bdbf 2367
0c715baa
AM		 2368 /* Set up .got offsets for local syms, and space for local dynamic
2369 relocs. */
2370 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
161d71a6
L		 2371 {
2372 bfd_signed_vma *local_got;
2373 bfd_signed_vma *end_local_got;
13ae64f3 2374 char *local_tls_type;
67a4f2b7 2375 bfd_vma *local_tlsdesc_gotent;
161d71a6
L		 2376 bfd_size_type locsymcount;
2377 Elf_Internal_Shdr *symtab_hdr;
2378 asection *srel;
6725bdbf 2379
0ffa91dd 2380 if (! is_i386_elf (ibfd))
161d71a6 2381 continue;
6725bdbf 2382
0c715baa
AM		 2383 for (s = ibfd->sections; s != NULL; s = s->next)
2384 {
e03a8ed8 2385 struct elf_dyn_relocs *p;
0c715baa 2386
e03a8ed8 2387 for (p = ((struct elf_dyn_relocs *)
e81d3500 2388 elf_section_data (s)->local_dynrel);
ec338859
AM		 2389 p != NULL;
2390 p = p->next)
0c715baa 2391 {
ec338859
AM		 2392 if (!bfd_is_abs_section (p->sec)
2393 && bfd_is_abs_section (p->sec->output_section))
2394 {
2395 /* Input section has been discarded, either because
2396 it is a copy of a linkonce section or due to
2397 linker script /DISCARD/, so we'll be discarding
2398 the relocs too. */
2399 }
3348747a
NS		 2400 else if (htab->is_vxworks
2401 && strcmp (p->sec->output_section->name,
2402 ".tls_vars") == 0)
2403 {
2404 /* Relocations in vxworks .tls_vars sections are
2405 handled specially by the loader. */
2406 }
248866a8 2407 else if (p->count != 0)
ec338859
AM		 2408 {
2409 srel = elf_section_data (p->sec)->sreloc;
eea6121a 2410 srel->size += p->count * sizeof (Elf32_External_Rel);
248866a8
AM		 2411 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
2412 info->flags |= DF_TEXTREL;
ec338859 2413 }
0c715baa
AM		 2414 }
2415 }
2416
2417 local_got = elf_local_got_refcounts (ibfd);
161d71a6
L		 2418 if (!local_got)
2419 continue;
6725bdbf 2420
0ffa91dd 2421 symtab_hdr = &elf_symtab_hdr (ibfd);
161d71a6
L		 2422 locsymcount = symtab_hdr->sh_info;
2423 end_local_got = local_got + locsymcount;
13ae64f3 2424 local_tls_type = elf_i386_local_got_tls_type (ibfd);
67a4f2b7 2425 local_tlsdesc_gotent = elf_i386_local_tlsdesc_gotent (ibfd);
6de2ae4a
L		 2426 s = htab->elf.sgot;
2427 srel = htab->elf.srelgot;
67a4f2b7
AO		 2428 for (; local_got < end_local_got;
2429 ++local_got, ++local_tls_type, ++local_tlsdesc_gotent)
161d71a6 2430 {
67a4f2b7 2431 *local_tlsdesc_gotent = (bfd_vma) -1;
161d71a6 2432 if (*local_got > 0)
6725bdbf 2433 {
67a4f2b7
AO		 2434 if (GOT_TLS_GDESC_P (*local_tls_type))
2435 {
6de2ae4a 2436 *local_tlsdesc_gotent = htab->elf.sgotplt->size
67a4f2b7 2437 - elf_i386_compute_jump_table_size (htab);
6de2ae4a 2438 htab->elf.sgotplt->size += 8;
67a4f2b7
AO		 2439 *local_got = (bfd_vma) -2;
2440 }
2441 if (! GOT_TLS_GDESC_P (*local_tls_type)
2442 || GOT_TLS_GD_P (*local_tls_type))
2443 {
2444 *local_got = s->size;
2445 s->size += 4;
2446 if (GOT_TLS_GD_P (*local_tls_type)
2447 || *local_tls_type == GOT_TLS_IE_BOTH)
2448 s->size += 4;
2449 }
13ae64f3 2450 if (info->shared
67a4f2b7 2451 || GOT_TLS_GD_ANY_P (*local_tls_type)
37e55690
JJ		 2452 || (*local_tls_type & GOT_TLS_IE))
2453 {
2454 if (*local_tls_type == GOT_TLS_IE_BOTH)
eea6121a 2455 srel->size += 2 * sizeof (Elf32_External_Rel);
67a4f2b7
AO		 2456 else if (GOT_TLS_GD_P (*local_tls_type)
2457 || ! GOT_TLS_GDESC_P (*local_tls_type))
eea6121a 2458 srel->size += sizeof (Elf32_External_Rel);
67a4f2b7 2459 if (GOT_TLS_GDESC_P (*local_tls_type))
6de2ae4a 2460 htab->elf.srelplt->size += sizeof (Elf32_External_Rel);
37e55690 2461 }
6725bdbf 2462 }
161d71a6
L		 2463 else
2464 *local_got = (bfd_vma) -1;
6725bdbf 2465 }
252b5132 2466 }
6725bdbf 2467
13ae64f3
JJ		 2468 if (htab->tls_ldm_got.refcount > 0)
2469 {
2470 /* Allocate 2 got entries and 1 dynamic reloc for R_386_TLS_LDM
2471 relocs. */
6de2ae4a
L		 2472 htab->tls_ldm_got.offset = htab->elf.sgot->size;
2473 htab->elf.sgot->size += 8;
2474 htab->elf.srelgot->size += sizeof (Elf32_External_Rel);
13ae64f3
JJ		 2475 }
2476 else
2477 htab->tls_ldm_got.offset = -1;
2478
0c715baa
AM		 2479 /* Allocate global sym .plt and .got entries, and space for global
2480 sym dynamic relocs. */
eb4ff4d6 2481 elf_link_hash_traverse (&htab->elf, elf_i386_allocate_dynrelocs, info);
252b5132 2482
c25bc9fc
L		 2483 /* Allocate .plt and .got entries, and space for local symbols. */
2484 htab_traverse (htab->loc_hash_table,
2485 elf_i386_allocate_local_dynrelocs,
2486 info);
2487
67a4f2b7
AO		 2488 /* For every jump slot reserved in the sgotplt, reloc_count is
2489 incremented. However, when we reserve space for TLS descriptors,
2490 it's not incremented, so in order to compute the space reserved
2491 for them, it suffices to multiply the reloc count by the jump
2492 slot size. */
6de2ae4a 2493 if (htab->elf.srelplt)
5ae0bfb6 2494 htab->sgotplt_jump_table_size = htab->next_tls_desc_index * 4;
67a4f2b7 2495
5a15f56f
AM		 2496 /* We now have determined the sizes of the various dynamic sections.
2497 Allocate memory for them. */
b34976b6 2498 relocs = FALSE;
252b5132
RH		 2499 for (s = dynobj->sections; s != NULL; s = s->next)
2500 {
eac338cf
PB		 2501 bfd_boolean strip_section = TRUE;
2502
252b5132
RH		 2503 if ((s->flags & SEC_LINKER_CREATED) == 0)
2504 continue;
2505
6de2ae4a
L		 2506 if (s == htab->elf.splt
2507 || s == htab->elf.sgot
2508 || s == htab->elf.sgotplt
2509 || s == htab->elf.iplt
2510 || s == htab->elf.igotplt
75ff4589 2511 || s == htab->sdynbss)
252b5132 2512 {
6725bdbf
AM		 2513 /* Strip this section if we don't need it; see the
2514 comment below. */
eac338cf
PB		 2515 /* We'd like to strip these sections if they aren't needed, but if
2516 we've exported dynamic symbols from them we must leave them.
2517 It's too late to tell BFD to get rid of the symbols. */
2518
7325306f 2519 if (htab->elf.hplt != NULL)
eac338cf 2520 strip_section = FALSE;
252b5132 2521 }
0112cd26 2522 else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rel"))
252b5132 2523 {
6de2ae4a
L		 2524 if (s->size != 0
2525 && s != htab->elf.srelplt
2526 && s != htab->srelplt2)
b34976b6 2527 relocs = TRUE;
252b5132 2528
0ac8d2ca
AM		 2529 /* We use the reloc_count field as a counter if we need
2530 to copy relocs into the output file. */
5ae0bfb6 2531 s->reloc_count = 0;
252b5132 2532 }
6725bdbf 2533 else
252b5132
RH		 2534 {
2535 /* It's not one of our sections, so don't allocate space. */
2536 continue;
2537 }
2538
c456f082 2539 if (s->size == 0)
252b5132 2540 {
0ac8d2ca
AM		 2541 /* If we don't need this section, strip it from the
2542 output file. This is mostly to handle .rel.bss and
2543 .rel.plt. We must create both sections in
2544 create_dynamic_sections, because they must be created
2545 before the linker maps input sections to output
2546 sections. The linker does that before
2547 adjust_dynamic_symbol is called, and it is that
2548 function which decides whether anything needs to go
2549 into these sections. */
c456f082
AM		 2550 if (strip_section)
2551 s->flags |= SEC_EXCLUDE;
252b5132
RH		 2552 continue;
2553 }
2554
c456f082
AM		 2555 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2556 continue;
2557
f69da49f
AM		 2558 /* Allocate memory for the section contents. We use bfd_zalloc
2559 here in case unused entries are not reclaimed before the
2560 section's contents are written out. This should not happen,
2561 but this way if it does, we get a R_386_NONE reloc instead
2562 of garbage. */
a50b1753 2563 s->contents = (unsigned char *) bfd_zalloc (dynobj, s->size);
6725bdbf 2564 if (s->contents == NULL)
b34976b6 2565 return FALSE;
252b5132
RH		 2566 }
2567
ebe50bae 2568 if (htab->elf.dynamic_sections_created)
252b5132
RH		 2569 {
2570 /* Add some entries to the .dynamic section. We fill in the
2571 values later, in elf_i386_finish_dynamic_sections, but we
2572 must add the entries now so that we get the correct size for
2573 the .dynamic section. The DT_DEBUG entry is filled in by the
2574 dynamic linker and used by the debugger. */
dc810e39 2575#define add_dynamic_entry(TAG, VAL) \
5a580b3a 2576 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
dc810e39 2577
36af4a4e 2578 if (info->executable)
252b5132 2579 {
dc810e39 2580 if (!add_dynamic_entry (DT_DEBUG, 0))
b34976b6 2581 return FALSE;
252b5132
RH		 2582 }
2583
6de2ae4a 2584 if (htab->elf.splt->size != 0)
252b5132 2585 {
dc810e39
AM		 2586 if (!add_dynamic_entry (DT_PLTGOT, 0)
2587 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2588 || !add_dynamic_entry (DT_PLTREL, DT_REL)
2589 || !add_dynamic_entry (DT_JMPREL, 0))
b34976b6 2590 return FALSE;
252b5132
RH		 2591 }
2592
2593 if (relocs)
2594 {
dc810e39
AM		 2595 if (!add_dynamic_entry (DT_REL, 0)
2596 || !add_dynamic_entry (DT_RELSZ, 0)
2597 || !add_dynamic_entry (DT_RELENT, sizeof (Elf32_External_Rel)))
b34976b6 2598 return FALSE;
252b5132 2599
0c715baa
AM		 2600 /* If any dynamic relocs apply to a read-only section,
2601 then we need a DT_TEXTREL entry. */
248866a8 2602 if ((info->flags & DF_TEXTREL) == 0)
eb4ff4d6
L		 2603 elf_link_hash_traverse (&htab->elf,
2604 elf_i386_readonly_dynrelocs, info);
0c715baa
AM		 2605
2606 if ((info->flags & DF_TEXTREL) != 0)
2607 {
2608 if (!add_dynamic_entry (DT_TEXTREL, 0))
b34976b6 2609 return FALSE;
0c715baa 2610 }
252b5132 2611 }
7a2b07ff
NS		 2612 if (htab->is_vxworks
2613 && !elf_vxworks_add_dynamic_entries (output_bfd, info))
2614 return FALSE;
252b5132 2615 }
dc810e39 2616#undef add_dynamic_entry
252b5132 2617
b34976b6 2618 return TRUE;
252b5132
RH		 2619}
2620
67a4f2b7
AO		 2621static bfd_boolean
2622elf_i386_always_size_sections (bfd *output_bfd,
2623 struct bfd_link_info *info)
2624{
2625 asection *tls_sec = elf_hash_table (info)->tls_sec;
2626
2627 if (tls_sec)
2628 {
2629 struct elf_link_hash_entry *tlsbase;
2630
2631 tlsbase = elf_link_hash_lookup (elf_hash_table (info),
2632 "_TLS_MODULE_BASE_",
2633 FALSE, FALSE, FALSE);
2634
2635 if (tlsbase && tlsbase->type == STT_TLS)
2636 {
2637 struct bfd_link_hash_entry *bh = NULL;
2638 const struct elf_backend_data *bed
2639 = get_elf_backend_data (output_bfd);
2640
2641 if (!(_bfd_generic_link_add_one_symbol
2642 (info, output_bfd, "_TLS_MODULE_BASE_", BSF_LOCAL,
2643 tls_sec, 0, NULL, FALSE,
2644 bed->collect, &bh)))
2645 return FALSE;
9f03412a
AO		 2646
2647 elf_i386_hash_table (info)->tls_module_base = bh;
2648
67a4f2b7
AO		 2649 tlsbase = (struct elf_link_hash_entry *)bh;
2650 tlsbase->def_regular = 1;
2651 tlsbase->other = STV_HIDDEN;
2652 (*bed->elf_backend_hide_symbol) (info, tlsbase, TRUE);
2653 }
2654 }
2655
2656 return TRUE;
2657}
2658
38701953
AM		 2659/* Set the correct type for an x86 ELF section. We do this by the
2660 section name, which is a hack, but ought to work. */
2661
b34976b6 2662static bfd_boolean
55fd94b0
AM		 2663elf_i386_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
2664 Elf_Internal_Shdr *hdr,
2665 asection *sec)
38701953 2666{
91d6fa6a 2667 const char *name;
38701953
AM		 2668
2669 name = bfd_get_section_name (abfd, sec);
2670
2671 /* This is an ugly, but unfortunately necessary hack that is
2672 needed when producing EFI binaries on x86. It tells
2673 elf.c:elf_fake_sections() not to consider ".reloc" as a section
2674 containing ELF relocation info. We need this hack in order to
2675 be able to generate ELF binaries that can be translated into
2676 EFI applications (which are essentially COFF objects). Those
2677 files contain a COFF ".reloc" section inside an ELFNN object,
2678 which would normally cause BFD to segfault because it would
2679 attempt to interpret this section as containing relocation
2680 entries for section "oc". With this hack enabled, ".reloc"
2681 will be treated as a normal data section, which will avoid the
2682 segfault. However, you won't be able to create an ELFNN binary
2683 with a section named "oc" that needs relocations, but that's
2684 the kind of ugly side-effects you get when detecting section
2685 types based on their names... In practice, this limitation is
2686 unlikely to bite. */
2687 if (strcmp (name, ".reloc") == 0)
2688 hdr->sh_type = SHT_PROGBITS;
2689
b34976b6 2690 return TRUE;
38701953
AM		 2691}
2692
9f03412a
AO		 2693/* _TLS_MODULE_BASE_ needs to be treated especially when linking
2694 executables. Rather than setting it to the beginning of the TLS
2695 section, we have to set it to the end. This function may be called
2696 multiple times, it is idempotent. */
2697
2698static void
eb4ff4d6 2699elf_i386_set_tls_module_base (struct bfd_link_info *info)
9f03412a
AO		 2700{
2701 struct bfd_link_hash_entry *base;
2702
2703 if (!info->executable)
2704 return;
2705
2706 base = elf_i386_hash_table (info)->tls_module_base;
2707
2708 if (!base)
2709 return;
2710
2711 base->u.def.value = elf_hash_table (info)->tls_size;
2712}
2713
13ae64f3
JJ		 2714/* Return the base VMA address which should be subtracted from real addresses
2715 when resolving @dtpoff relocation.
2716 This is PT_TLS segment p_vaddr. */
2717
2718static bfd_vma
eb4ff4d6 2719elf_i386_dtpoff_base (struct bfd_link_info *info)
13ae64f3 2720{
e1918d23
AM		 2721 /* If tls_sec is NULL, we should have signalled an error already. */
2722 if (elf_hash_table (info)->tls_sec == NULL)
6a30718d 2723 return 0;
e1918d23 2724 return elf_hash_table (info)->tls_sec->vma;
13ae64f3
JJ		 2725}
2726
2727/* Return the relocation value for @tpoff relocation
2728 if STT_TLS virtual address is ADDRESS. */
2729
2730static bfd_vma
eb4ff4d6 2731elf_i386_tpoff (struct bfd_link_info *info, bfd_vma address)
13ae64f3 2732{
e1918d23 2733 struct elf_link_hash_table *htab = elf_hash_table (info);
13ae64f3 2734
e1918d23
AM		 2735 /* If tls_sec is NULL, we should have signalled an error already. */
2736 if (htab->tls_sec == NULL)
6a30718d 2737 return 0;
e1918d23 2738 return htab->tls_size + htab->tls_sec->vma - address;
13ae64f3
JJ		 2739}
2740
252b5132
RH		 2741/* Relocate an i386 ELF section. */
2742
b34976b6 2743static bfd_boolean
55fd94b0
AM		 2744elf_i386_relocate_section (bfd *output_bfd,
2745 struct bfd_link_info *info,
2746 bfd *input_bfd,
2747 asection *input_section,
2748 bfd_byte *contents,
2749 Elf_Internal_Rela *relocs,
2750 Elf_Internal_Sym *local_syms,
2751 asection **local_sections)
252b5132 2752{
6725bdbf 2753 struct elf_i386_link_hash_table *htab;
252b5132
RH		 2754 Elf_Internal_Shdr *symtab_hdr;
2755 struct elf_link_hash_entry **sym_hashes;
2756 bfd_vma *local_got_offsets;
67a4f2b7 2757 bfd_vma *local_tlsdesc_gotents;
252b5132
RH		 2758 Elf_Internal_Rela *rel;
2759 Elf_Internal_Rela *relend;
3348747a 2760 bfd_boolean is_vxworks_tls;
252b5132 2761
0ffa91dd
NC		 2762 BFD_ASSERT (is_i386_elf (input_bfd));
2763
6725bdbf 2764 htab = elf_i386_hash_table (info);
0ffa91dd 2765 symtab_hdr = &elf_symtab_hdr (input_bfd);
252b5132
RH		 2766 sym_hashes = elf_sym_hashes (input_bfd);
2767 local_got_offsets = elf_local_got_offsets (input_bfd);
67a4f2b7 2768 local_tlsdesc_gotents = elf_i386_local_tlsdesc_gotent (input_bfd);
3348747a
NS		 2769 /* We have to handle relocations in vxworks .tls_vars sections
2770 specially, because the dynamic loader is 'weird'. */
2771 is_vxworks_tls = (htab->is_vxworks && info->shared
2772 && !strcmp (input_section->output_section->name,
2773 ".tls_vars"));
252b5132 2774
eb4ff4d6 2775 elf_i386_set_tls_module_base (info);
9f03412a 2776
252b5132
RH		 2777 rel = relocs;
2778 relend = relocs + input_section->reloc_count;
2779 for (; rel < relend; rel++)
2780 {
13ae64f3 2781 unsigned int r_type;
252b5132
RH		 2782 reloc_howto_type *howto;
2783 unsigned long r_symndx;
2784 struct elf_link_hash_entry *h;
2785 Elf_Internal_Sym *sym;
2786 asection *sec;
67a4f2b7 2787 bfd_vma off, offplt;
252b5132 2788 bfd_vma relocation;
b34976b6 2789 bfd_boolean unresolved_reloc;
252b5132 2790 bfd_reloc_status_type r;
1b452ec6 2791 unsigned int indx;
13ae64f3 2792 int tls_type;
252b5132
RH		 2793
2794 r_type = ELF32_R_TYPE (rel->r_info);
55fd94b0
AM		 2795 if (r_type == R_386_GNU_VTINHERIT
2796 || r_type == R_386_GNU_VTENTRY)
252b5132 2797 continue;
dc47f327 2798
55fd94b0 2799 if ((indx = r_type) >= R_386_standard
13ae64f3
JJ		 2800 && ((indx = r_type - R_386_ext_offset) - R_386_standard
2801 >= R_386_ext - R_386_standard)
2802 && ((indx = r_type - R_386_tls_offset) - R_386_ext
cbe950e9 2803 >= R_386_irelative - R_386_ext))
252b5132 2804 {
6ba842b6 2805 (*_bfd_error_handler)
d003868e
AM		 2806 (_("%B: unrecognized relocation (0x%x) in section `%A'"),
2807 input_bfd, input_section, r_type);
252b5132 2808 bfd_set_error (bfd_error_bad_value);
b34976b6 2809 return FALSE;
252b5132 2810 }
1b452ec6 2811 howto = elf_howto_table + indx;
252b5132
RH		 2812
2813 r_symndx = ELF32_R_SYM (rel->r_info);
252b5132
RH		 2814 h = NULL;
2815 sym = NULL;
2816 sec = NULL;
b34976b6 2817 unresolved_reloc = FALSE;
252b5132
RH		 2818 if (r_symndx < symtab_hdr->sh_info)
2819 {
2820 sym = local_syms + r_symndx;
2821 sec = local_sections[r_symndx];
2822 relocation = (sec->output_section->vma
2823 + sec->output_offset
2824 + sym->st_value);
ab96bf03
AM		 2825
2826 if (ELF_ST_TYPE (sym->st_info) == STT_SECTION
2827 && ((sec->flags & SEC_MERGE) != 0
2828 || (info->relocatable
2829 && sec->output_offset != 0)))
f8df10f4 2830 {
f8df10f4 2831 bfd_vma addend;
4a335f3d 2832 bfd_byte *where = contents + rel->r_offset;
f8df10f4 2833
4a335f3d 2834 switch (howto->size)
f8df10f4 2835 {
4a335f3d
AM		 2836 case 0:
2837 addend = bfd_get_8 (input_bfd, where);
2838 if (howto->pc_relative)
2839 {
2840 addend = (addend ^ 0x80) - 0x80;
2841 addend += 1;
2842 }
2843 break;
2844 case 1:
2845 addend = bfd_get_16 (input_bfd, where);
2846 if (howto->pc_relative)
2847 {
2848 addend = (addend ^ 0x8000) - 0x8000;
2849 addend += 2;
2850 }
2851 break;
2852 case 2:
2853 addend = bfd_get_32 (input_bfd, where);
2854 if (howto->pc_relative)
2855 {
2856 addend = (addend ^ 0x80000000) - 0x80000000;
2857 addend += 4;
2858 }
2859 break;
2860 default:
2861 abort ();
f8df10f4
JJ		 2862 }
2863
ab96bf03
AM		 2864 if (info->relocatable)
2865 addend += sec->output_offset;
2866 else
2867 {
2868 asection *msec = sec;
2869 addend = _bfd_elf_rel_local_sym (output_bfd, sym, &msec,
2870 addend);
2871 addend -= relocation;
2872 addend += msec->output_section->vma + msec->output_offset;
2873 }
4a335f3d
AM		 2874
2875 switch (howto->size)
2876 {
2877 case 0:
16a10388 2878 /* FIXME: overflow checks. */
4a335f3d
AM		 2879 if (howto->pc_relative)
2880 addend -= 1;
2881 bfd_put_8 (input_bfd, addend, where);
4a335f3d
AM		 2882 break;
2883 case 1:
2884 if (howto->pc_relative)
2885 addend -= 2;
2886 bfd_put_16 (input_bfd, addend, where);
4a335f3d
AM		 2887 break;
2888 case 2:
2889 if (howto->pc_relative)
2890 addend -= 4;
2891 bfd_put_32 (input_bfd, addend, where);
2892 break;
2893 }
f8df10f4 2894 }
1f85278f
L		 2895 else if (!info->relocatable
2896 && ELF32_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
c25bc9fc
L		 2897 {
2898 /* Relocate against local STT_GNU_IFUNC symbol. */
2899 h = elf_i386_get_local_sym_hash (htab, input_bfd,
2900 rel, FALSE);
2901 if (h == NULL)
2902 abort ();
2903
2904 /* Set STT_GNU_IFUNC symbol value. */
2905 h->root.u.def.value = sym->st_value;
2906 h->root.u.def.section = sec;
2907 }
252b5132
RH		 2908 }
2909 else
2910 {
560e09e9 2911 bfd_boolean warned;
ffb2e45b 2912
b2a8e766
AM		 2913 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2914 r_symndx, symtab_hdr, sym_hashes,
2915 h, sec, relocation,
2916 unresolved_reloc, warned);
252b5132
RH		 2917 }
2918
ab96bf03 2919 if (sec != NULL && elf_discarded_section (sec))
9635fe29 2920 {
ab96bf03
AM		 2921 /* For relocs against symbols from removed linkonce sections,
2922 or sections discarded by a linker script, we just want the
2923 section contents zeroed. Avoid any special processing. */
b1e24c02 2924 _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
ab96bf03
AM		 2925 rel->r_info = 0;
2926 rel->r_addend = 0;
b1e24c02 2927 continue;
9635fe29
AM		 2928 }
2929
ab96bf03
AM		 2930 if (info->relocatable)
2931 continue;
2932
cbe950e9
L		 2933 /* Since STT_GNU_IFUNC symbol must go through PLT, we handle
2934 it here if it is defined in a non-shared object. */
2935 if (h != NULL
2936 && h->type == STT_GNU_IFUNC
2937 && h->def_regular)
2938 {
2939 asection *plt, *gotplt, *base_got;
2940 bfd_vma plt_index;
4c544807 2941 const char *name;
cbe950e9
L		 2942
2943 if ((input_section->flags & SEC_ALLOC) == 0
2944 || h->plt.offset == (bfd_vma) -1)
2945 abort ();
2946
2947 /* STT_GNU_IFUNC symbol must go through PLT. */
6de2ae4a 2948 if (htab->elf.splt != NULL)
cbe950e9 2949 {
6de2ae4a
L		 2950 plt = htab->elf.splt;
2951 gotplt = htab->elf.sgotplt;
cbe950e9
L		 2952 }
2953 else
2954 {
6de2ae4a
L		 2955 plt = htab->elf.iplt;
2956 gotplt = htab->elf.igotplt;
cbe950e9
L		 2957 }
2958
2959 relocation = (plt->output_section->vma
2960 + plt->output_offset + h->plt.offset);
2961
2962 switch (r_type)
2963 {
2964 default:
4c544807
L		 2965 if (h->root.root.string)
2966 name = h->root.root.string;
2967 else
2968 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
2969 NULL);
cbe950e9
L		 2970 (*_bfd_error_handler)
2971 (_("%B: relocation %s against STT_GNU_IFUNC "
2972 "symbol `%s' isn't handled by %s"), input_bfd,
2973 elf_howto_table[r_type].name,
4c544807 2974 name, __FUNCTION__);
cbe950e9
L		 2975 bfd_set_error (bfd_error_bad_value);
2976 return FALSE;
2977
2978 case R_386_32:
710ab287
L		 2979 /* Generate dynamic relcoation only when there is a
2980 non-GOF reference in a shared object. */
2981 if (info->shared && h->non_got_ref)
2982 {
2983 Elf_Internal_Rela outrel;
2984 bfd_byte *loc;
2985 asection *sreloc;
2986 bfd_vma offset;
2987
c25bc9fc
L		 2988 /* Need a dynamic relocation to get the real function
2989 adddress. */
710ab287
L		 2990 offset = _bfd_elf_section_offset (output_bfd,
2991 info,
2992 input_section,
2993 rel->r_offset);
2994 if (offset == (bfd_vma) -1
2995 || offset == (bfd_vma) -2)
2996 abort ();
2997
2998 outrel.r_offset = (input_section->output_section->vma
2999 + input_section->output_offset
3000 + offset);
3001
3002 if (h->dynindx == -1
44c4ea11
L		 3003 || h->forced_local
3004 || info->executable)
710ab287
L		 3005 {
3006 /* This symbol is resolved locally. */
3007 outrel.r_info = ELF32_R_INFO (0, R_386_IRELATIVE);
3008 bfd_put_32 (output_bfd,
3009 (h->root.u.def.value
3010 + h->root.u.def.section->output_section->vma
3011 + h->root.u.def.section->output_offset),
3012 contents + offset);
3013 }
3014 else
3015 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3016
6de2ae4a 3017 sreloc = htab->elf.irelifunc;
710ab287
L		 3018 loc = sreloc->contents;
3019 loc += (sreloc->reloc_count++
3020 * sizeof (Elf32_External_Rel));
3021 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3022
3023 /* If this reloc is against an external symbol, we
3024 do not want to fiddle with the addend. Otherwise,
3025 we need to include the symbol value so that it
3026 becomes an addend for the dynamic reloc. For an
3027 internal symbol, we have updated addend. */
3028 continue;
3029 }
3030
cbe950e9
L		 3031 case R_386_PC32:
3032 case R_386_PLT32:
3033 goto do_relocation;
3034
3035 case R_386_GOT32:
6de2ae4a 3036 base_got = htab->elf.sgot;
cbe950e9
L		 3037 off = h->got.offset;
3038
7afd84dc 3039 if (base_got == NULL)
cbe950e9
L		 3040 abort ();
3041
7afd84dc 3042 if (off == (bfd_vma) -1)
cbe950e9 3043 {
7afd84dc
L		 3044 /* We can't use h->got.offset here to save state, or
3045 even just remember the offset, as finish_dynamic_symbol
3046 would use that as offset into .got. */
3047
6de2ae4a 3048 if (htab->elf.splt != NULL)
7afd84dc
L		 3049 {
3050 plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1;
3051 off = (plt_index + 3) * 4;
6de2ae4a 3052 base_got = htab->elf.sgotplt;
7afd84dc 3053 }
cbe950e9
L		 3054 else
3055 {
7afd84dc
L		 3056 plt_index = h->plt.offset / PLT_ENTRY_SIZE;
3057 off = plt_index * 4;
6de2ae4a 3058 base_got = htab->elf.igotplt;
7afd84dc
L		 3059 }
3060
3061 if (h->dynindx == -1
3062 || h->forced_local
3063 || info->symbolic)
3064 {
3065 /* This references the local defitionion. We must
3066 initialize this entry in the global offset table.
3067 Since the offset must always be a multiple of 8,
3068 we use the least significant bit to record
3069 whether we have initialized it already.
3070
3071 When doing a dynamic link, we create a .rela.got
3072 relocation entry to initialize the value. This
3073 is done in the finish_dynamic_symbol routine. */
3074 if ((off & 1) != 0)
3075 off &= ~1;
3076 else
3077 {
3078 bfd_put_32 (output_bfd, relocation,
3079 base_got->contents + off);
3080 h->got.offset |= 1;
3081 }
cbe950e9 3082 }
cbe950e9 3083
7afd84dc 3084 relocation = off;
cbe950e9 3085
7afd84dc 3086 /* Adjust for static executables. */
6de2ae4a 3087 if (htab->elf.splt == NULL)
7afd84dc
L		 3088 relocation += gotplt->output_offset;
3089 }
3090 else
0018b0a3
L		 3091 {
3092 relocation = (base_got->output_section->vma
3093 + base_got->output_offset + off
3094 - gotplt->output_section->vma
3095 - gotplt->output_offset);
3096 /* Adjust for static executables. */
6de2ae4a 3097 if (htab->elf.splt == NULL)
0018b0a3
L		 3098 relocation += gotplt->output_offset;
3099 }
3100
cbe950e9
L		 3101 goto do_relocation;
3102
3103 case R_386_GOTOFF:
3104 relocation -= (gotplt->output_section->vma
3105 + gotplt->output_offset);
3106 goto do_relocation;
3107 }
3108 }
3109
252b5132
RH		 3110 switch (r_type)
3111 {
3112 case R_386_GOT32:
3113 /* Relocation is to the entry for this symbol in the global
3114 offset table. */
6de2ae4a 3115 if (htab->elf.sgot == NULL)
ffb2e45b 3116 abort ();
252b5132
RH		 3117
3118 if (h != NULL)
3119 {
b34976b6 3120 bfd_boolean dyn;
252b5132
RH		 3121
3122 off = h->got.offset;
ebe50bae 3123 dyn = htab->elf.dynamic_sections_created;
26e41594 3124 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
252b5132 3125 || (info->shared
586119b3 3126 && SYMBOL_REFERENCES_LOCAL (info, h))
ef5aade5
L		 3127 || (ELF_ST_VISIBILITY (h->other)
3128 && h->root.type == bfd_link_hash_undefweak))
252b5132
RH		 3129 {
3130 /* This is actually a static link, or it is a
3131 -Bsymbolic link and the symbol is defined
3132 locally, or the symbol was forced to be local
3133 because of a version file. We must initialize
3134 this entry in the global offset table. Since the
3135 offset must always be a multiple of 4, we use the
3136 least significant bit to record whether we have
3137 initialized it already.
3138
3139 When doing a dynamic link, we create a .rel.got
3140 relocation entry to initialize the value. This
3141 is done in the finish_dynamic_symbol routine. */
3142 if ((off & 1) != 0)
3143 off &= ~1;
3144 else
3145 {
3146 bfd_put_32 (output_bfd, relocation,
6de2ae4a 3147 htab->elf.sgot->contents + off);
252b5132
RH		 3148 h->got.offset |= 1;
3149 }
3150 }
8c694914 3151 else
b34976b6 3152 unresolved_reloc = FALSE;
252b5132
RH		 3153 }
3154 else
3155 {
ffb2e45b
AM		 3156 if (local_got_offsets == NULL)
3157 abort ();
252b5132
RH		 3158
3159 off = local_got_offsets[r_symndx];
3160
3161 /* The offset must always be a multiple of 4. We use
83be169b
AM		 3162 the least significant bit to record whether we have
3163 already generated the necessary reloc. */
252b5132
RH		 3164 if ((off & 1) != 0)
3165 off &= ~1;
3166 else
3167 {
6725bdbf 3168 bfd_put_32 (output_bfd, relocation,
6de2ae4a 3169 htab->elf.sgot->contents + off);
252b5132
RH		 3170
3171 if (info->shared)
3172 {
947216bf
AM		 3173 asection *s;
3174 Elf_Internal_Rela outrel;
3175 bfd_byte *loc;
252b5132 3176
6de2ae4a 3177 s = htab->elf.srelgot;
947216bf 3178 if (s == NULL)
ffb2e45b 3179 abort ();
252b5132 3180
6de2ae4a
L		 3181 outrel.r_offset = (htab->elf.sgot->output_section->vma
3182 + htab->elf.sgot->output_offset
252b5132
RH		 3183 + off);
3184 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
947216bf
AM		 3185 loc = s->contents;
3186 loc += s->reloc_count++ * sizeof (Elf32_External_Rel);
0ac8d2ca 3187 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
252b5132
RH		 3188 }
3189
3190 local_got_offsets[r_symndx] |= 1;
3191 }
252b5132
RH		 3192 }
3193
ffb2e45b
AM		 3194 if (off >= (bfd_vma) -2)
3195 abort ();
3196
6de2ae4a
L		 3197 relocation = htab->elf.sgot->output_section->vma
3198 + htab->elf.sgot->output_offset + off
3199 - htab->elf.sgotplt->output_section->vma
3200 - htab->elf.sgotplt->output_offset;
252b5132
RH		 3201 break;
3202
3203 case R_386_GOTOFF:
3204 /* Relocation is relative to the start of the global offset
3205 table. */
3206
90f487df
L		 3207 /* Check to make sure it isn't a protected function symbol
3208 for shared library since it may not be local when used
41bed6dd
L		 3209 as function address. We also need to make sure that a
3210 symbol is defined locally. */
3211 if (info->shared && h)
90f487df 3212 {
41bed6dd
L		 3213 if (!h->def_regular)
3214 {
3215 const char *v;
3216
3217 switch (ELF_ST_VISIBILITY (h->other))
3218 {
3219 case STV_HIDDEN:
3220 v = _("hidden symbol");
3221 break;
3222 case STV_INTERNAL:
3223 v = _("internal symbol");
3224 break;
3225 case STV_PROTECTED:
3226 v = _("protected symbol");
3227 break;
3228 default:
3229 v = _("symbol");
3230 break;
3231 }
3232
3233 (*_bfd_error_handler)
3234 (_("%B: relocation R_386_GOTOFF against undefined %s `%s' can not be used when making a shared object"),
3235 input_bfd, v, h->root.root.string);
3236 bfd_set_error (bfd_error_bad_value);
3237 return FALSE;
3238 }
3239 else if (!info->executable
3240 && h->type == STT_FUNC
3241 && ELF_ST_VISIBILITY (h->other) == STV_PROTECTED)
3242 {
3243 (*_bfd_error_handler)
3244 (_("%B: relocation R_386_GOTOFF against protected function `%s' can not be used when making a shared object"),
3245 input_bfd, h->root.root.string);
3246 bfd_set_error (bfd_error_bad_value);
3247 return FALSE;
3248 }
90f487df
L		 3249 }
3250
8c37241b
JJ		 3251 /* Note that sgot is not involved in this
3252 calculation. We always want the start of .got.plt. If we
3253 defined _GLOBAL_OFFSET_TABLE_ in a different way, as is
252b5132
RH		 3254 permitted by the ABI, we might have to change this
3255 calculation. */
6de2ae4a
L		 3256 relocation -= htab->elf.sgotplt->output_section->vma
3257 + htab->elf.sgotplt->output_offset;
252b5132
RH		 3258 break;
3259
3260 case R_386_GOTPC:
3261 /* Use global offset table as symbol value. */
6de2ae4a
L		 3262 relocation = htab->elf.sgotplt->output_section->vma
3263 + htab->elf.sgotplt->output_offset;
b34976b6 3264 unresolved_reloc = FALSE;
252b5132
RH		 3265 break;
3266
3267 case R_386_PLT32:
3268 /* Relocation is to the entry for this symbol in the
3269 procedure linkage table. */
3270
dd5724d5 3271 /* Resolve a PLT32 reloc against a local symbol directly,
83be169b 3272 without using the procedure linkage table. */
252b5132
RH		 3273 if (h == NULL)
3274 break;
3275
dd5724d5 3276 if (h->plt.offset == (bfd_vma) -1
6de2ae4a 3277 || htab->elf.splt == NULL)
252b5132
RH		 3278 {
3279 /* We didn't make a PLT entry for this symbol. This
83be169b
AM		 3280 happens when statically linking PIC code, or when
3281 using -Bsymbolic. */
252b5132
RH		 3282 break;
3283 }
3284
6de2ae4a
L		 3285 relocation = (htab->elf.splt->output_section->vma
3286 + htab->elf.splt->output_offset
252b5132 3287 + h->plt.offset);
b34976b6 3288 unresolved_reloc = FALSE;
252b5132
RH		 3289 break;
3290
3291 case R_386_32:
3292 case R_386_PC32:
3348747a
NS		 3293 if ((input_section->flags & SEC_ALLOC) == 0
3294 || is_vxworks_tls)
ec338859
AM		 3295 break;
3296
12d0ee4a 3297 if ((info->shared
ef5aade5
L		 3298 && (h == NULL
3299 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3300 || h->root.type != bfd_link_hash_undefweak)
12d0ee4a 3301 && (r_type != R_386_PC32
f6c52c13 3302 || !SYMBOL_CALLS_LOCAL (info, h)))
a23b6845
AM		 3303 || (ELIMINATE_COPY_RELOCS
3304 && !info->shared
12d0ee4a
AM		 3305 && h != NULL
3306 && h->dynindx != -1
f5385ebf
AM		 3307 && !h->non_got_ref
3308 && ((h->def_dynamic
3309 && !h->def_regular)
28d0b90e 3310 || h->root.type == bfd_link_hash_undefweak
0f88be7a 3311 || h->root.type == bfd_link_hash_undefined)))
252b5132 3312 {
947216bf
AM		 3313 Elf_Internal_Rela outrel;
3314 bfd_byte *loc;
b34976b6 3315 bfd_boolean skip, relocate;
0c715baa 3316 asection *sreloc;
252b5132
RH		 3317
3318 /* When generating a shared object, these relocations
3319 are copied into the output file to be resolved at run
3320 time. */
3321
b34976b6
AM		 3322 skip = FALSE;
3323 relocate = FALSE;
252b5132 3324
c629eae0
JJ		 3325 outrel.r_offset =
3326 _bfd_elf_section_offset (output_bfd, info, input_section,
3327 rel->r_offset);
3328 if (outrel.r_offset == (bfd_vma) -1)
b34976b6 3329 skip = TRUE;
0bb2d96a 3330 else if (outrel.r_offset == (bfd_vma) -2)
b34976b6 3331 skip = TRUE, relocate = TRUE;
252b5132
RH		 3332 outrel.r_offset += (input_section->output_section->vma
3333 + input_section->output_offset);
3334
3335 if (skip)
0bb2d96a 3336 memset (&outrel, 0, sizeof outrel);
5a15f56f
AM		 3337 else if (h != NULL
3338 && h->dynindx != -1
3339 && (r_type == R_386_PC32
3340 || !info->shared
55255dae 3341 || !SYMBOLIC_BIND (info, h)
f5385ebf 3342 || !h->def_regular))
0bb2d96a 3343 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
252b5132
RH		 3344 else
3345 {
5a15f56f 3346 /* This symbol is local, or marked to become local. */
b34976b6 3347 relocate = TRUE;
5a15f56f 3348 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
252b5132
RH		 3349 }
3350
cbe950e9 3351 sreloc = elf_section_data (input_section)->sreloc;
e7c33416
NC		 3352
3353 BFD_ASSERT (sreloc != NULL && sreloc->contents != NULL);
0c715baa 3354
947216bf
AM		 3355 loc = sreloc->contents;
3356 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rel);
e7c33416 3357
0c715baa 3358 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
252b5132
RH		 3359
3360 /* If this reloc is against an external symbol, we do
3361 not want to fiddle with the addend. Otherwise, we
3362 need to include the symbol value so that it becomes
3363 an addend for the dynamic reloc. */
0f88be7a 3364 if (! relocate)
252b5132
RH		 3365 continue;
3366 }
252b5132
RH		 3367 break;
3368
37e55690 3369 case R_386_TLS_IE:
1d85728f 3370 if (!info->executable)
37e55690 3371 {
947216bf
AM		 3372 Elf_Internal_Rela outrel;
3373 bfd_byte *loc;
37e55690 3374 asection *sreloc;
37e55690
JJ		 3375
3376 outrel.r_offset = rel->r_offset
3377 + input_section->output_section->vma
3378 + input_section->output_offset;
3379 outrel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
3380 sreloc = elf_section_data (input_section)->sreloc;
3381 if (sreloc == NULL)
3382 abort ();
947216bf
AM		 3383 loc = sreloc->contents;
3384 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rel);
37e55690
JJ		 3385 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3386 }
3387 /* Fall through */
3388
13ae64f3 3389 case R_386_TLS_GD:
67a4f2b7
AO		 3390 case R_386_TLS_GOTDESC:
3391 case R_386_TLS_DESC_CALL:
13ae64f3 3392 case R_386_TLS_IE_32:
37e55690 3393 case R_386_TLS_GOTIE:
13ae64f3
JJ		 3394 tls_type = GOT_UNKNOWN;
3395 if (h == NULL && local_got_offsets)
3396 tls_type = elf_i386_local_got_tls_type (input_bfd) [r_symndx];
3397 else if (h != NULL)
142411ca 3398 tls_type = elf_i386_hash_entry(h)->tls_type;
37e55690
JJ		 3399 if (tls_type == GOT_TLS_IE)
3400 tls_type = GOT_TLS_IE_NEG;
142411ca
L		 3401
3402 if (! elf_i386_tls_transition (info, input_bfd,
3403 input_section, contents,
3404 symtab_hdr, sym_hashes,
3405 &r_type, tls_type, rel,
4c544807 3406 relend, h, r_symndx))
142411ca 3407 return FALSE;
13ae64f3
JJ		 3408
3409 if (r_type == R_386_TLS_LE_32)
3410 {
82e51918 3411 BFD_ASSERT (! unresolved_reloc);
13ae64f3
JJ		 3412 if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GD)
3413 {
142411ca 3414 unsigned int type;
13ae64f3
JJ		 3415 bfd_vma roff;
3416
3417 /* GD->LE transition. */
13ae64f3 3418 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
13ae64f3
JJ		 3419 if (type == 0x04)
3420 {
3421 /* leal foo(,%reg,1), %eax; call ___tls_get_addr
3422 Change it into:
3423 movl %gs:0, %eax; subl $foo@tpoff, %eax
3424 (6 byte form of subl). */
13ae64f3
JJ		 3425 memcpy (contents + rel->r_offset - 3,
3426 "\x65\xa1\0\0\0\0\x81\xe8\0\0\0", 12);
142411ca 3427 roff = rel->r_offset + 5;
13ae64f3
JJ		 3428 }
3429 else
3430 {
142411ca
L		 3431 /* leal foo(%reg), %eax; call ___tls_get_addr; nop
3432 Change it into:
3433 movl %gs:0, %eax; subl $foo@tpoff, %eax
3434 (6 byte form of subl). */
3435 memcpy (contents + rel->r_offset - 2,
3436 "\x65\xa1\0\0\0\0\x81\xe8\0\0\0", 12);
3437 roff = rel->r_offset + 6;
13ae64f3 3438 }
eb4ff4d6 3439 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
13ae64f3 3440 contents + roff);
a3fadc9a 3441 /* Skip R_386_PC32/R_386_PLT32. */
13ae64f3
JJ		 3442 rel++;
3443 continue;
3444 }
67a4f2b7
AO		 3445 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GOTDESC)
3446 {
3447 /* GDesc -> LE transition.
3448 It's originally something like:
3449 leal x@tlsdesc(%ebx), %eax
3450
3451 leal x@ntpoff, %eax
3452
3453 Registers other than %eax may be set up here. */
3454
142411ca 3455 unsigned int val;
67a4f2b7
AO		 3456 bfd_vma roff;
3457
67a4f2b7 3458 roff = rel->r_offset;
67a4f2b7 3459 val = bfd_get_8 (input_bfd, contents + roff - 1);
67a4f2b7
AO		 3460
3461 /* Now modify the instruction as appropriate. */
3462 /* aoliva FIXME: remove the above and xor the byte
3463 below with 0x86. */
3464 bfd_put_8 (output_bfd, val ^ 0x86,
3465 contents + roff - 1);
eb4ff4d6 3466 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
67a4f2b7
AO		 3467 contents + roff);
3468 continue;
3469 }
3470 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_DESC_CALL)
3471 {
3472 /* GDesc -> LE transition.
3473 It's originally:
3474 call *(%eax)
3475 Turn it into:
142411ca 3476 xchg %ax,%ax */
67a4f2b7 3477
67a4f2b7 3478 bfd_vma roff;
142411ca 3479
67a4f2b7 3480 roff = rel->r_offset;
10efb593 3481 bfd_put_8 (output_bfd, 0x66, contents + roff);
67a4f2b7
AO		 3482 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
3483 continue;
3484 }
37e55690 3485 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_IE)
13ae64f3 3486 {
142411ca 3487 unsigned int val;
13ae64f3
JJ		 3488
3489 /* IE->LE transition:
37e55690
JJ		 3490 Originally it can be one of:
3491 movl foo, %eax
3492 movl foo, %reg
3493 addl foo, %reg
3494 We change it into:
3495 movl $foo, %eax
3496 movl $foo, %reg
3497 addl $foo, %reg. */
37e55690 3498 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
37e55690
JJ		 3499 if (val == 0xa1)
3500 {
3501 /* movl foo, %eax. */
55fd94b0
AM		 3502 bfd_put_8 (output_bfd, 0xb8,
3503 contents + rel->r_offset - 1);
37e55690 3504 }
299bf759 3505 else
37e55690 3506 {
142411ca
L		 3507 unsigned int type;
3508
55fd94b0
AM		 3509 type = bfd_get_8 (input_bfd,
3510 contents + rel->r_offset - 2);
299bf759 3511 switch (type)
26e41594 3512 {
299bf759
L		 3513 case 0x8b:
3514 /* movl */
299bf759
L		 3515 bfd_put_8 (output_bfd, 0xc7,
3516 contents + rel->r_offset - 2);
3517 bfd_put_8 (output_bfd,
3518 0xc0 | ((val >> 3) & 7),
3519 contents + rel->r_offset - 1);
3520 break;
3521 case 0x03:
3522 /* addl */
299bf759
L		 3523 bfd_put_8 (output_bfd, 0x81,
3524 contents + rel->r_offset - 2);
3525 bfd_put_8 (output_bfd,
3526 0xc0 | ((val >> 3) & 7),
3527 contents + rel->r_offset - 1);
3528 break;
3529 default:
3530 BFD_FAIL ();
3531 break;
26e41594 3532 }
37e55690 3533 }
eb4ff4d6 3534 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
37e55690
JJ		 3535 contents + rel->r_offset);
3536 continue;
3537 }
3538 else
3539 {
3540 unsigned int val, type;
3541
3542 /* {IE_32,GOTIE}->LE transition:
3543 Originally it can be one of:
13ae64f3 3544 subl foo(%reg1), %reg2
13ae64f3 3545 movl foo(%reg1), %reg2
37e55690 3546 addl foo(%reg1), %reg2
13ae64f3
JJ		 3547 We change it into:
3548 subl $foo, %reg2
37e55690
JJ		 3549 movl $foo, %reg2 (6 byte form)
3550 addl $foo, %reg2. */
13ae64f3
JJ		 3551 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
3552 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
13ae64f3
JJ		 3553 if (type == 0x8b)
3554 {
3555 /* movl */
13ae64f3
JJ		 3556 bfd_put_8 (output_bfd, 0xc7,
3557 contents + rel->r_offset - 2);
3558 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
3559 contents + rel->r_offset - 1);
3560 }
3561 else if (type == 0x2b)
3562 {
3563 /* subl */
13ae64f3
JJ		 3564 bfd_put_8 (output_bfd, 0x81,
3565 contents + rel->r_offset - 2);
3566 bfd_put_8 (output_bfd, 0xe8 | ((val >> 3) & 7),
3567 contents + rel->r_offset - 1);
3568 }
37e55690
JJ		 3569 else if (type == 0x03)
3570 {
3571 /* addl */
3572 bfd_put_8 (output_bfd, 0x81,
3573 contents + rel->r_offset - 2);
3574 bfd_put_8 (output_bfd, 0xc0 | ((val >> 3) & 7),
3575 contents + rel->r_offset - 1);
3576 }
13ae64f3
JJ		 3577 else
3578 BFD_FAIL ();
37e55690 3579 if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GOTIE)
eb4ff4d6 3580 bfd_put_32 (output_bfd, -elf_i386_tpoff (info, relocation),
37e55690
JJ		 3581 contents + rel->r_offset);
3582 else
eb4ff4d6 3583 bfd_put_32 (output_bfd, elf_i386_tpoff (info, relocation),
37e55690 3584 contents + rel->r_offset);
13ae64f3
JJ		 3585 continue;
3586 }
3587 }
3588
6de2ae4a 3589 if (htab->elf.sgot == NULL)
13ae64f3
JJ		 3590 abort ();
3591
3592 if (h != NULL)
67a4f2b7
AO		 3593 {
3594 off = h->got.offset;
3595 offplt = elf_i386_hash_entry (h)->tlsdesc_got;
3596 }
13ae64f3
JJ		 3597 else
3598 {
3599 if (local_got_offsets == NULL)
3600 abort ();
3601
3602 off = local_got_offsets[r_symndx];
67a4f2b7 3603 offplt = local_tlsdesc_gotents[r_symndx];
13ae64f3
JJ		 3604 }
3605
3606 if ((off & 1) != 0)
3607 off &= ~1;
26e41594 3608 else
13ae64f3 3609 {
947216bf
AM		 3610 Elf_Internal_Rela outrel;
3611 bfd_byte *loc;
91d6fa6a 3612 int dr_type;
67a4f2b7 3613 asection *sreloc;
13ae64f3 3614
6de2ae4a 3615 if (htab->elf.srelgot == NULL)
13ae64f3
JJ		 3616 abort ();
3617
67a4f2b7
AO		 3618 indx = h && h->dynindx != -1 ? h->dynindx : 0;
3619
3620 if (GOT_TLS_GDESC_P (tls_type))
3621 {
3622 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_DESC);
3623 BFD_ASSERT (htab->sgotplt_jump_table_size + offplt + 8
6de2ae4a
L		 3624 <= htab->elf.sgotplt->size);
3625 outrel.r_offset = (htab->elf.sgotplt->output_section->vma
3626 + htab->elf.sgotplt->output_offset
67a4f2b7
AO		 3627 + offplt
3628 + htab->sgotplt_jump_table_size);
6de2ae4a 3629 sreloc = htab->elf.srelplt;
67a4f2b7 3630 loc = sreloc->contents;
5ae0bfb6
RS		 3631 loc += (htab->next_tls_desc_index++
3632 * sizeof (Elf32_External_Rel));
67a4f2b7
AO		 3633 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
3634 <= sreloc->contents + sreloc->size);
3635 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3636 if (indx == 0)
3637 {
3638 BFD_ASSERT (! unresolved_reloc);
3639 bfd_put_32 (output_bfd,
eb4ff4d6 3640 relocation - elf_i386_dtpoff_base (info),
6de2ae4a 3641 htab->elf.sgotplt->contents + offplt
67a4f2b7
AO		 3642 + htab->sgotplt_jump_table_size + 4);
3643 }
3644 else
3645 {
3646 bfd_put_32 (output_bfd, 0,
6de2ae4a 3647 htab->elf.sgotplt->contents + offplt
67a4f2b7
AO		 3648 + htab->sgotplt_jump_table_size + 4);
3649 }
3650 }
3651
6de2ae4a 3652 sreloc = htab->elf.srelgot;
67a4f2b7 3653
6de2ae4a
L		 3654 outrel.r_offset = (htab->elf.sgot->output_section->vma
3655 + htab->elf.sgot->output_offset + off);
13ae64f3 3656
67a4f2b7 3657 if (GOT_TLS_GD_P (tls_type))
13ae64f3 3658 dr_type = R_386_TLS_DTPMOD32;
67a4f2b7
AO		 3659 else if (GOT_TLS_GDESC_P (tls_type))
3660 goto dr_done;
37e55690
JJ		 3661 else if (tls_type == GOT_TLS_IE_POS)
3662 dr_type = R_386_TLS_TPOFF;
13ae64f3
JJ		 3663 else
3664 dr_type = R_386_TLS_TPOFF32;
67a4f2b7 3665
37e55690 3666 if (dr_type == R_386_TLS_TPOFF && indx == 0)
eb4ff4d6
L		 3667 bfd_put_32 (output_bfd,
3668 relocation - elf_i386_dtpoff_base (info),
6de2ae4a 3669 htab->elf.sgot->contents + off);
37e55690 3670 else if (dr_type == R_386_TLS_TPOFF32 && indx == 0)
eb4ff4d6
L		 3671 bfd_put_32 (output_bfd,
3672 elf_i386_dtpoff_base (info) - relocation,
6de2ae4a 3673 htab->elf.sgot->contents + off);
67a4f2b7 3674 else if (dr_type != R_386_TLS_DESC)
c366c25e 3675 bfd_put_32 (output_bfd, 0,
6de2ae4a 3676 htab->elf.sgot->contents + off);
13ae64f3 3677 outrel.r_info = ELF32_R_INFO (indx, dr_type);
67a4f2b7
AO		 3678
3679 loc = sreloc->contents;
3680 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rel);
3681 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
3682 <= sreloc->contents + sreloc->size);
13ae64f3
JJ		 3683 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3684
67a4f2b7 3685 if (GOT_TLS_GD_P (tls_type))
13ae64f3
JJ		 3686 {
3687 if (indx == 0)
3688 {
82e51918 3689 BFD_ASSERT (! unresolved_reloc);
13ae64f3 3690 bfd_put_32 (output_bfd,
eb4ff4d6 3691 relocation - elf_i386_dtpoff_base (info),
6de2ae4a 3692 htab->elf.sgot->contents + off + 4);
13ae64f3
JJ		 3693 }
3694 else
3695 {
3696 bfd_put_32 (output_bfd, 0,
6de2ae4a 3697 htab->elf.sgot->contents + off + 4);
13ae64f3
JJ		 3698 outrel.r_info = ELF32_R_INFO (indx,
3699 R_386_TLS_DTPOFF32);
3700 outrel.r_offset += 4;
67a4f2b7 3701 sreloc->reloc_count++;
947216bf 3702 loc += sizeof (Elf32_External_Rel);
67a4f2b7
AO		 3703 BFD_ASSERT (loc + sizeof (Elf32_External_Rel)
3704 <= sreloc->contents + sreloc->size);
947216bf 3705 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
13ae64f3
JJ		 3706 }
3707 }
37e55690
JJ		 3708 else if (tls_type == GOT_TLS_IE_BOTH)
3709 {
3710 bfd_put_32 (output_bfd,
eb4ff4d6
L		 3711 (indx == 0
3712 ? relocation - elf_i386_dtpoff_base (info)
3713 : 0),
6de2ae4a 3714 htab->elf.sgot->contents + off + 4);
37e55690
JJ		 3715 outrel.r_info = ELF32_R_INFO (indx, R_386_TLS_TPOFF);
3716 outrel.r_offset += 4;
67a4f2b7 3717 sreloc->reloc_count++;
947216bf 3718 loc += sizeof (Elf32_External_Rel);
37e55690
JJ		 3719 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3720 }
13ae64f3 3721
67a4f2b7 3722 dr_done:
13ae64f3
JJ		 3723 if (h != NULL)
3724 h->got.offset |= 1;
3725 else
3726 local_got_offsets[r_symndx] |= 1;
3727 }
3728
67a4f2b7
AO		 3729 if (off >= (bfd_vma) -2
3730 && ! GOT_TLS_GDESC_P (tls_type))
13ae64f3 3731 abort ();
67a4f2b7
AO		 3732 if (r_type == R_386_TLS_GOTDESC
3733 || r_type == R_386_TLS_DESC_CALL)
3734 {
3735 relocation = htab->sgotplt_jump_table_size + offplt;
3736 unresolved_reloc = FALSE;
3737 }
3738 else if (r_type == ELF32_R_TYPE (rel->r_info))
13ae64f3 3739 {
6de2ae4a
L		 3740 bfd_vma g_o_t = htab->elf.sgotplt->output_section->vma
3741 + htab->elf.sgotplt->output_offset;
3742 relocation = htab->elf.sgot->output_section->vma
3743 + htab->elf.sgot->output_offset + off - g_o_t;
37e55690
JJ		 3744 if ((r_type == R_386_TLS_IE || r_type == R_386_TLS_GOTIE)
3745 && tls_type == GOT_TLS_IE_BOTH)
3746 relocation += 4;
3747 if (r_type == R_386_TLS_IE)
8c37241b 3748 relocation += g_o_t;
b34976b6 3749 unresolved_reloc = FALSE;
13ae64f3 3750 }
67a4f2b7 3751 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GD)
13ae64f3
JJ		 3752 {
3753 unsigned int val, type;
3754 bfd_vma roff;
3755
3756 /* GD->IE transition. */
13ae64f3 3757 type = bfd_get_8 (input_bfd, contents + rel->r_offset - 2);
13ae64f3
JJ		 3758 val = bfd_get_8 (input_bfd, contents + rel->r_offset - 1);
3759 if (type == 0x04)
3760 {
3761 /* leal foo(,%reg,1), %eax; call ___tls_get_addr
3762 Change it into:
3763 movl %gs:0, %eax; subl $foo@gottpoff(%reg), %eax. */
13ae64f3 3764 val >>= 3;
142411ca 3765 roff = rel->r_offset - 3;
13ae64f3
JJ		 3766 }
3767 else
3768 {
3769 /* leal foo(%reg), %eax; call ___tls_get_addr; nop
3770 Change it into:
3771 movl %gs:0, %eax; subl $foo@gottpoff(%reg), %eax. */
13ae64f3
JJ		 3772 roff = rel->r_offset - 2;
3773 }
3774 memcpy (contents + roff,
3775 "\x65\xa1\0\0\0\0\x2b\x80\0\0\0", 12);
3776 contents[roff + 7] = 0x80 | (val & 7);
37e55690
JJ		 3777 /* If foo is used only with foo@gotntpoff(%reg) and
3778 foo@indntpoff, but not with foo@gottpoff(%reg), change
3779 subl $foo@gottpoff(%reg), %eax
3780 into:
3781 addl $foo@gotntpoff(%reg), %eax. */
ebcfb3c0
JJ		 3782 if (tls_type == GOT_TLS_IE_POS)
3783 contents[roff + 6] = 0x03;
8c37241b 3784 bfd_put_32 (output_bfd,
6de2ae4a
L		 3785 htab->elf.sgot->output_section->vma
3786 + htab->elf.sgot->output_offset + off
3787 - htab->elf.sgotplt->output_section->vma
3788 - htab->elf.sgotplt->output_offset,
13ae64f3
JJ		 3789 contents + roff + 8);
3790 /* Skip R_386_PLT32. */
3791 rel++;
3792 continue;
3793 }
67a4f2b7
AO		 3794 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_GOTDESC)
3795 {
3796 /* GDesc -> IE transition.
3797 It's originally something like:
3798 leal x@tlsdesc(%ebx), %eax
3799
3800 Change it to:
142411ca 3801 movl x@gotntpoff(%ebx), %eax # before xchg %ax,%ax
67a4f2b7
AO		 3802 or:
3803 movl x@gottpoff(%ebx), %eax # before negl %eax
3804
3805 Registers other than %eax may be set up here. */
3806
67a4f2b7
AO		 3807 bfd_vma roff;
3808
3809 /* First, make sure it's a leal adding ebx to a 32-bit
3810 offset into any register, although it's probably
3811 almost always going to be eax. */
3812 roff = rel->r_offset;
67a4f2b7
AO		 3813
3814 /* Now modify the instruction as appropriate. */
3815 /* To turn a leal into a movl in the form we use it, it
3816 suffices to change the first byte from 0x8d to 0x8b.
3817 aoliva FIXME: should we decide to keep the leal, all
3818 we have to do is remove the statement below, and
3819 adjust the relaxation of R_386_TLS_DESC_CALL. */
3820 bfd_put_8 (output_bfd, 0x8b, contents + roff - 2);
3821
3822 if (tls_type == GOT_TLS_IE_BOTH)
3823 off += 4;
3824
3825 bfd_put_32 (output_bfd,
6de2ae4a
L		 3826 htab->elf.sgot->output_section->vma
3827 + htab->elf.sgot->output_offset + off
3828 - htab->elf.sgotplt->output_section->vma
3829 - htab->elf.sgotplt->output_offset,
67a4f2b7
AO		 3830 contents + roff);
3831 continue;
3832 }
3833 else if (ELF32_R_TYPE (rel->r_info) == R_386_TLS_DESC_CALL)
3834 {
3835 /* GDesc -> IE transition.
3836 It's originally:
3837 call *(%eax)
3838
3839 Change it to:
142411ca 3840 xchg %ax,%ax
67a4f2b7
AO		 3841 or
3842 negl %eax
3843 depending on how we transformed the TLS_GOTDESC above.
3844 */
3845
67a4f2b7
AO		 3846 bfd_vma roff;
3847
67a4f2b7 3848 roff = rel->r_offset;
67a4f2b7
AO		 3849
3850 /* Now modify the instruction as appropriate. */
3851 if (tls_type != GOT_TLS_IE_NEG)
3852 {
10efb593
L		 3853 /* xchg %ax,%ax */
3854 bfd_put_8 (output_bfd, 0x66, contents + roff);
67a4f2b7
AO		 3855 bfd_put_8 (output_bfd, 0x90, contents + roff + 1);
3856 }
3857 else
3858 {
3859 /* negl %eax */
3860 bfd_put_8 (output_bfd, 0xf7, contents + roff);
3861 bfd_put_8 (output_bfd, 0xd8, contents + roff + 1);
3862 }
3863
3864 continue;
3865 }
3866 else
3867 BFD_ASSERT (FALSE);
13ae64f3
JJ		 3868 break;
3869
3870 case R_386_TLS_LDM:
142411ca
L		 3871 if (! elf_i386_tls_transition (info, input_bfd,
3872 input_section, contents,
3873 symtab_hdr, sym_hashes,
3874 &r_type, GOT_UNKNOWN, rel,
4c544807 3875 relend, h, r_symndx))
142411ca 3876 return FALSE;
13ae64f3 3877
142411ca
L		 3878 if (r_type != R_386_TLS_LDM)
3879 {
13ae64f3 3880 /* LD->LE transition:
13ae64f3
JJ		 3881 leal foo(%reg), %eax; call ___tls_get_addr.
3882 We change it into:
3883 movl %gs:0, %eax; nop; leal 0(%esi,1), %esi. */
142411ca 3884 BFD_ASSERT (r_type == R_386_TLS_LE_32);
13ae64f3
JJ		 3885 memcpy (contents + rel->r_offset - 2,
3886 "\x65\xa1\0\0\0\0\x90\x8d\x74\x26", 11);
a3fadc9a 3887 /* Skip R_386_PC32/R_386_PLT32. */
13ae64f3
JJ		 3888 rel++;
3889 continue;
3890 }
3891
6de2ae4a 3892 if (htab->elf.sgot == NULL)
13ae64f3
JJ		 3893 abort ();
3894
3895 off = htab->tls_ldm_got.offset;
3896 if (off & 1)
3897 off &= ~1;
3898 else
3899 {
947216bf
AM		 3900 Elf_Internal_Rela outrel;
3901 bfd_byte *loc;
13ae64f3 3902
6de2ae4a 3903 if (htab->elf.srelgot == NULL)
13ae64f3
JJ		 3904 abort ();
3905
6de2ae4a
L		 3906 outrel.r_offset = (htab->elf.sgot->output_section->vma
3907 + htab->elf.sgot->output_offset + off);
13ae64f3
JJ		 3908
3909 bfd_put_32 (output_bfd, 0,
6de2ae4a 3910 htab->elf.sgot->contents + off);
13ae64f3 3911 bfd_put_32 (output_bfd, 0,
6de2ae4a 3912 htab->elf.sgot->contents + off + 4);
13ae64f3 3913 outrel.r_info = ELF32_R_INFO (0, R_386_TLS_DTPMOD32);
6de2ae4a
L		 3914 loc = htab->elf.srelgot->contents;
3915 loc += htab->elf.srelgot->reloc_count++ * sizeof (Elf32_External_Rel);
13ae64f3
JJ		 3916 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
3917 htab->tls_ldm_got.offset |= 1;
3918 }
6de2ae4a
L		 3919 relocation = htab->elf.sgot->output_section->vma
3920 + htab->elf.sgot->output_offset + off
3921 - htab->elf.sgotplt->output_section->vma
3922 - htab->elf.sgotplt->output_offset;
b34976b6 3923 unresolved_reloc = FALSE;
13ae64f3
JJ		 3924 break;
3925
3926 case R_386_TLS_LDO_32:
a45bb67d 3927 if (info->shared || (input_section->flags & SEC_CODE) == 0)
eb4ff4d6 3928 relocation -= elf_i386_dtpoff_base (info);
13ae64f3
JJ		 3929 else
3930 /* When converting LDO to LE, we must negate. */
eb4ff4d6 3931 relocation = -elf_i386_tpoff (info, relocation);
13ae64f3
JJ		 3932 break;
3933
3934 case R_386_TLS_LE_32:
13ae64f3 3935 case R_386_TLS_LE:
1d85728f 3936 if (!info->executable)
37e55690 3937 {
947216bf 3938 Elf_Internal_Rela outrel;
37e55690 3939 asection *sreloc;
947216bf 3940 bfd_byte *loc;
37e55690
JJ		 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 {
cd2b2c10
L		 4252 asection *plt;
4253
710ab287
L		 4254 if (!h->pointer_equality_needed)
4255 abort ();
4256
4257 /* For non-shared object, we can't use .got.plt, which
4258 contains the real function addres if we need pointer
4259 equality. We load the GOT entry with the PLT entry. */
cd2b2c10 4260 plt = htab->elf.splt ? htab->elf.splt : htab->elf.iplt;
710ab287
L		 4261 bfd_put_32 (output_bfd,
4262 (plt->output_section->vma
4263 + plt->output_offset + h->plt.offset),
6de2ae4a 4264 htab->elf.sgot->contents + h->got.offset);
710ab287
L		 4265 return TRUE;
4266 }
0018b0a3
L		 4267 }
4268 else if (info->shared
4269 && SYMBOL_REFERENCES_LOCAL (info, h))
dd5724d5 4270 {
6725bdbf 4271 BFD_ASSERT((h->got.offset & 1) != 0);
dd5724d5
AM		 4272 rel.r_info = ELF32_R_INFO (0, R_386_RELATIVE);
4273 }
252b5132
RH		 4274 else
4275 {
dd5724d5 4276 BFD_ASSERT((h->got.offset & 1) == 0);
710ab287 4277do_glob_dat:
6725bdbf 4278 bfd_put_32 (output_bfd, (bfd_vma) 0,
6de2ae4a 4279 htab->elf.sgot->contents + h->got.offset);
252b5132
RH		 4280 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_GLOB_DAT);
4281 }
4282
6de2ae4a
L		 4283 loc = htab->elf.srelgot->contents;
4284 loc += htab->elf.srelgot->reloc_count++ * sizeof (Elf32_External_Rel);
0ac8d2ca 4285 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
252b5132
RH		 4286 }
4287
f5385ebf 4288 if (h->needs_copy)
252b5132 4289 {
947216bf
AM		 4290 Elf_Internal_Rela rel;
4291 bfd_byte *loc;
252b5132
RH		 4292
4293 /* This symbol needs a copy reloc. Set it up. */
4294
ffb2e45b
AM		 4295 if (h->dynindx == -1
4296 || (h->root.type != bfd_link_hash_defined
4297 && h->root.type != bfd_link_hash_defweak)
4298 || htab->srelbss == NULL)
4299 abort ();
252b5132
RH		 4300
4301 rel.r_offset = (h->root.u.def.value
4302 + h->root.u.def.section->output_section->vma
4303 + h->root.u.def.section->output_offset);
4304 rel.r_info = ELF32_R_INFO (h->dynindx, R_386_COPY);
947216bf
AM		 4305 loc = htab->srelbss->contents;
4306 loc += htab->srelbss->reloc_count++ * sizeof (Elf32_External_Rel);
0ac8d2ca 4307 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
252b5132
RH		 4308 }
4309
c25bc9fc
L		 4310 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. SYM may
4311 be NULL for local symbols.
4312
eac338cf
PB		 4313 On VxWorks, the _GLOBAL_OFFSET_TABLE_ symbol is not absolute: it
4314 is relative to the ".got" section. */
c25bc9fc
L		 4315 if (sym != NULL
4316 && (strcmp (h->root.root.string, "_DYNAMIC") == 0
4317 || (!htab->is_vxworks && h == htab->elf.hgot)))
252b5132
RH		 4318 sym->st_shndx = SHN_ABS;
4319
b34976b6 4320 return TRUE;
252b5132
RH		 4321}
4322
c25bc9fc
L		 4323/* Finish up local dynamic symbol handling. We set the contents of
4324 various dynamic sections here. */
4325
4326static bfd_boolean
4327elf_i386_finish_local_dynamic_symbol (void **slot, void *inf)
4328{
4329 struct elf_link_hash_entry *h
4330 = (struct elf_link_hash_entry *) *slot;
4331 struct bfd_link_info *info
4332 = (struct bfd_link_info *) inf;
4333
4334 return elf_i386_finish_dynamic_symbol (info->output_bfd, info,
4335 h, NULL);
4336}
4337
38701953
AM		 4338/* Used to decide how to sort relocs in an optimal manner for the
4339 dynamic linker, before writing them out. */
4340
4341static enum elf_reloc_type_class
55fd94b0 4342elf_i386_reloc_type_class (const Elf_Internal_Rela *rela)
38701953 4343{
55fd94b0 4344 switch (ELF32_R_TYPE (rela->r_info))
38701953
AM		 4345 {
4346 case R_386_RELATIVE:
4347 return reloc_class_relative;
4348 case R_386_JUMP_SLOT:
4349 return reloc_class_plt;
4350 case R_386_COPY:
4351 return reloc_class_copy;
4352 default:
4353 return reloc_class_normal;
4354 }
4355}
4356
252b5132
RH		 4357/* Finish up the dynamic sections. */
4358
b34976b6 4359static bfd_boolean
55fd94b0
AM		 4360elf_i386_finish_dynamic_sections (bfd *output_bfd,
4361 struct bfd_link_info *info)
252b5132 4362{
6725bdbf 4363 struct elf_i386_link_hash_table *htab;
252b5132 4364 bfd *dynobj;
252b5132
RH		 4365 asection *sdyn;
4366
6725bdbf 4367 htab = elf_i386_hash_table (info);
ebe50bae 4368 dynobj = htab->elf.dynobj;
252b5132
RH		 4369 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4370
ebe50bae 4371 if (htab->elf.dynamic_sections_created)
252b5132 4372 {
252b5132
RH		 4373 Elf32_External_Dyn *dyncon, *dynconend;
4374
6de2ae4a 4375 if (sdyn == NULL || htab->elf.sgot == NULL)
ffb2e45b 4376 abort ();
252b5132
RH		 4377
4378 dyncon = (Elf32_External_Dyn *) sdyn->contents;
eea6121a 4379 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
252b5132
RH		 4380 for (; dyncon < dynconend; dyncon++)
4381 {
4382 Elf_Internal_Dyn dyn;
51b64d56 4383 asection *s;
252b5132
RH		 4384
4385 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4386
4387 switch (dyn.d_tag)
4388 {
4389 default:
7a2b07ff
NS		 4390 if (htab->is_vxworks
4391 && elf_vxworks_finish_dynamic_entry (output_bfd, &dyn))
4392 break;
0ac8d2ca 4393 continue;
252b5132
RH		 4394
4395 case DT_PLTGOT:
6de2ae4a 4396 s = htab->elf.sgotplt;
8c37241b 4397 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
6725bdbf
AM		 4398 break;
4399
252b5132 4400 case DT_JMPREL:
6de2ae4a 4401 s = htab->elf.srelplt;
6348e046 4402 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
252b5132
RH		 4403 break;
4404
4405 case DT_PLTRELSZ:
6de2ae4a 4406 s = htab->elf.srelplt;
eea6121a 4407 dyn.d_un.d_val = s->size;
252b5132
RH		 4408 break;
4409
4410 case DT_RELSZ:
4411 /* My reading of the SVR4 ABI indicates that the
4412 procedure linkage table relocs (DT_JMPREL) should be
4413 included in the overall relocs (DT_REL). This is
4414 what Solaris does. However, UnixWare can not handle
4415 that case. Therefore, we override the DT_RELSZ entry
6348e046 4416 here to make it not include the JMPREL relocs. */
6de2ae4a 4417 s = htab->elf.srelplt;
6348e046
AM		 4418 if (s == NULL)
4419 continue;
eea6121a 4420 dyn.d_un.d_val -= s->size;
6348e046
AM		 4421 break;
4422
4423 case DT_REL:
4424 /* We may not be using the standard ELF linker script.
4425 If .rel.plt is the first .rel section, we adjust
4426 DT_REL to not include it. */
6de2ae4a 4427 s = htab->elf.srelplt;
6348e046
AM		 4428 if (s == NULL)
4429 continue;
4430 if (dyn.d_un.d_ptr != s->output_section->vma + s->output_offset)
4431 continue;
eea6121a 4432 dyn.d_un.d_ptr += s->size;
252b5132
RH		 4433 break;
4434 }
0ac8d2ca
AM		 4435
4436 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
252b5132
RH		 4437 }
4438
4439 /* Fill in the first entry in the procedure linkage table. */
6de2ae4a 4440 if (htab->elf.splt && htab->elf.splt->size > 0)
252b5132
RH		 4441 {
4442 if (info->shared)
eac338cf 4443 {
6de2ae4a 4444 memcpy (htab->elf.splt->contents, elf_i386_pic_plt0_entry,
eac338cf 4445 sizeof (elf_i386_pic_plt0_entry));
6de2ae4a 4446 memset (htab->elf.splt->contents + sizeof (elf_i386_pic_plt0_entry),
eac338cf
PB		 4447 htab->plt0_pad_byte,
4448 PLT_ENTRY_SIZE - sizeof (elf_i386_pic_plt0_entry));
4449 }
252b5132
RH		 4450 else
4451 {
6de2ae4a 4452 memcpy (htab->elf.splt->contents, elf_i386_plt0_entry,
eac338cf 4453 sizeof(elf_i386_plt0_entry));
6de2ae4a 4454 memset (htab->elf.splt->contents + sizeof (elf_i386_plt0_entry),
eac338cf
PB		 4455 htab->plt0_pad_byte,
4456 PLT_ENTRY_SIZE - sizeof (elf_i386_plt0_entry));
252b5132 4457 bfd_put_32 (output_bfd,
6de2ae4a
L		 4458 (htab->elf.sgotplt->output_section->vma
4459 + htab->elf.sgotplt->output_offset
6725bdbf 4460 + 4),
6de2ae4a 4461 htab->elf.splt->contents + 2);
252b5132 4462 bfd_put_32 (output_bfd,
6de2ae4a
L		 4463 (htab->elf.sgotplt->output_section->vma
4464 + htab->elf.sgotplt->output_offset
6725bdbf 4465 + 8),
6de2ae4a 4466 htab->elf.splt->contents + 8);
eac338cf
PB		 4467
4468 if (htab->is_vxworks)
4469 {
4470 Elf_Internal_Rela rel;
7325306f 4471
eac338cf
PB		 4472 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_ + 4.
4473 On IA32 we use REL relocations so the addend goes in
4474 the PLT directly. */
6de2ae4a
L		 4475 rel.r_offset = (htab->elf.splt->output_section->vma
4476 + htab->elf.splt->output_offset
eac338cf 4477 + 2);
7325306f 4478 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
eac338cf
PB		 4479 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4480 htab->srelplt2->contents);
4481 /* Generate a relocation for _GLOBAL_OFFSET_TABLE_ + 8. */
6de2ae4a
L		 4482 rel.r_offset = (htab->elf.splt->output_section->vma
4483 + htab->elf.splt->output_offset
eac338cf 4484 + 8);
7325306f 4485 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
eac338cf
PB		 4486 bfd_elf32_swap_reloc_out (output_bfd, &rel,
4487 htab->srelplt2->contents +
4488 sizeof (Elf32_External_Rel));
4489 }
252b5132
RH		 4490 }
4491
4492 /* UnixWare sets the entsize of .plt to 4, although that doesn't
4493 really seem like the right value. */
6de2ae4a 4494 elf_section_data (htab->elf.splt->output_section)
6725bdbf 4495 ->this_hdr.sh_entsize = 4;
eac338cf
PB		 4496
4497 /* Correct the .rel.plt.unloaded relocations. */
4498 if (htab->is_vxworks && !info->shared)
4499 {
6de2ae4a 4500 int num_plts = (htab->elf.splt->size / PLT_ENTRY_SIZE) - 1;
4c9b0de6 4501 unsigned char *p;
eac338cf
PB		 4502
4503 p = htab->srelplt2->contents;
4504 if (info->shared)
4505 p += PLTRESOLVE_RELOCS_SHLIB * sizeof (Elf32_External_Rel);
4506 else
4507 p += PLTRESOLVE_RELOCS * sizeof (Elf32_External_Rel);
4508
4509 for (; num_plts; num_plts--)
4510 {
4511 Elf_Internal_Rela rel;
4512 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
7325306f 4513 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_386_32);
eac338cf
PB		 4514 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4515 p += sizeof (Elf32_External_Rel);
4516
4517 bfd_elf32_swap_reloc_in (output_bfd, p, &rel);
7325306f 4518 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_386_32);
eac338cf
PB		 4519 bfd_elf32_swap_reloc_out (output_bfd, &rel, p);
4520 p += sizeof (Elf32_External_Rel);
4521 }
4522 }
252b5132
RH		 4523 }
4524 }
4525
6de2ae4a 4526 if (htab->elf.sgotplt)
252b5132 4527 {
12d0ee4a 4528 /* Fill in the first three entries in the global offset table. */
6de2ae4a 4529 if (htab->elf.sgotplt->size > 0)
12d0ee4a
AM		 4530 {
4531 bfd_put_32 (output_bfd,
55fd94b0 4532 (sdyn == NULL ? 0
12d0ee4a 4533 : sdyn->output_section->vma + sdyn->output_offset),
6de2ae4a
L		 4534 htab->elf.sgotplt->contents);
4535 bfd_put_32 (output_bfd, 0, htab->elf.sgotplt->contents + 4);
4536 bfd_put_32 (output_bfd, 0, htab->elf.sgotplt->contents + 8);
12d0ee4a 4537 }
252b5132 4538
6de2ae4a 4539 elf_section_data (htab->elf.sgotplt->output_section)->this_hdr.sh_entsize = 4;
12d0ee4a 4540 }
8c37241b 4541
6de2ae4a
L		 4542 if (htab->elf.sgot && htab->elf.sgot->size > 0)
4543 elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize = 4;
8c37241b 4544
c25bc9fc
L		 4545 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
4546 htab_traverse (htab->loc_hash_table,
4547 elf_i386_finish_local_dynamic_symbol,
4548 info);
4549
b34976b6 4550 return TRUE;
252b5132
RH		 4551}
4552
4c45e5c9
JJ		 4553/* Return address for Ith PLT stub in section PLT, for relocation REL
4554 or (bfd_vma) -1 if it should not be included. */
4555
4556static bfd_vma
4557elf_i386_plt_sym_val (bfd_vma i, const asection *plt,
4558 const arelent *rel ATTRIBUTE_UNUSED)
4559{
4560 return plt->vma + (i + 1) * PLT_ENTRY_SIZE;
4561}
4562
fdc90cb4
JJ		 4563/* Return TRUE if symbol should be hashed in the `.gnu.hash' section. */
4564
4565static bfd_boolean
4566elf_i386_hash_symbol (struct elf_link_hash_entry *h)
4567{
4568 if (h->plt.offset != (bfd_vma) -1
4569 && !h->def_regular
4570 && !h->pointer_equality_needed)
4571 return FALSE;
4572
4573 return _bfd_elf_hash_symbol (h);
4574}
4c45e5c9 4575
d8045f23
NC		 4576/* Hook called by the linker routine which adds symbols from an object
4577 file. */
4578
4579static bfd_boolean
4580elf_i386_add_symbol_hook (bfd * abfd ATTRIBUTE_UNUSED,
4581 struct bfd_link_info * info ATTRIBUTE_UNUSED,
4582 Elf_Internal_Sym * sym,
4583 const char ** namep ATTRIBUTE_UNUSED,
4584 flagword * flagsp ATTRIBUTE_UNUSED,
4585 asection ** secp ATTRIBUTE_UNUSED,
4586 bfd_vma * valp ATTRIBUTE_UNUSED)
4587{
4588 if (ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
4589 elf_tdata (info->output_bfd)->has_ifunc_symbols = TRUE;
4590
4591 return TRUE;
4592}
4593
252b5132
RH		 4594#define TARGET_LITTLE_SYM bfd_elf32_i386_vec
4595#define TARGET_LITTLE_NAME "elf32-i386"
4596#define ELF_ARCH bfd_arch_i386
4597#define ELF_MACHINE_CODE EM_386
4598#define ELF_MAXPAGESIZE 0x1000
252b5132
RH		 4599
4600#define elf_backend_can_gc_sections 1
51b64d56 4601#define elf_backend_can_refcount 1
252b5132
RH		 4602#define elf_backend_want_got_plt 1
4603#define elf_backend_plt_readonly 1
4604#define elf_backend_want_plt_sym 0
4605#define elf_backend_got_header_size 12
252b5132 4606
8c29f035
AM		 4607/* Support RELA for objdump of prelink objects. */
4608#define elf_info_to_howto elf_i386_info_to_howto_rel
dd5724d5
AM		 4609#define elf_info_to_howto_rel elf_i386_info_to_howto_rel
4610
13ae64f3 4611#define bfd_elf32_mkobject elf_i386_mkobject
13ae64f3 4612
dd5724d5
AM		 4613#define bfd_elf32_bfd_is_local_label_name elf_i386_is_local_label_name
4614#define bfd_elf32_bfd_link_hash_table_create elf_i386_link_hash_table_create
c25bc9fc 4615#define bfd_elf32_bfd_link_hash_table_free elf_i386_link_hash_table_free
dd5724d5 4616#define bfd_elf32_bfd_reloc_type_lookup elf_i386_reloc_type_lookup
13285a1b 4617#define bfd_elf32_bfd_reloc_name_lookup elf_i386_reloc_name_lookup
dd5724d5
AM		 4618
4619#define elf_backend_adjust_dynamic_symbol elf_i386_adjust_dynamic_symbol
13285a1b 4620#define elf_backend_relocs_compatible _bfd_elf_relocs_compatible
dd5724d5 4621#define elf_backend_check_relocs elf_i386_check_relocs
0ac8d2ca 4622#define elf_backend_copy_indirect_symbol elf_i386_copy_indirect_symbol
6725bdbf 4623#define elf_backend_create_dynamic_sections elf_i386_create_dynamic_sections
0ac8d2ca 4624#define elf_backend_fake_sections elf_i386_fake_sections
dd5724d5
AM		 4625#define elf_backend_finish_dynamic_sections elf_i386_finish_dynamic_sections
4626#define elf_backend_finish_dynamic_symbol elf_i386_finish_dynamic_symbol
4627#define elf_backend_gc_mark_hook elf_i386_gc_mark_hook
4628#define elf_backend_gc_sweep_hook elf_i386_gc_sweep_hook
c5fccbec
DJ		 4629#define elf_backend_grok_prstatus elf_i386_grok_prstatus
4630#define elf_backend_grok_psinfo elf_i386_grok_psinfo
db6751f2 4631#define elf_backend_reloc_type_class elf_i386_reloc_type_class
0ac8d2ca
AM		 4632#define elf_backend_relocate_section elf_i386_relocate_section
4633#define elf_backend_size_dynamic_sections elf_i386_size_dynamic_sections
67a4f2b7 4634#define elf_backend_always_size_sections elf_i386_always_size_sections
74541ad4
AM		 4635#define elf_backend_omit_section_dynsym \
4636 ((bfd_boolean (*) (bfd *, struct bfd_link_info *, asection *)) bfd_true)
4c45e5c9 4637#define elf_backend_plt_sym_val elf_i386_plt_sym_val
fdc90cb4 4638#define elf_backend_hash_symbol elf_i386_hash_symbol
d8045f23
NC		 4639#define elf_backend_add_symbol_hook elf_i386_add_symbol_hook
4640#undef elf_backend_post_process_headers
4641#define elf_backend_post_process_headers _bfd_elf_set_osabi
dd5724d5 4642
252b5132 4643#include "elf32-target.h"
2bc3c89a
AM		 4644
4645/* FreeBSD support. */
4646
4647#undef TARGET_LITTLE_SYM
4648#define TARGET_LITTLE_SYM bfd_elf32_i386_freebsd_vec
4649#undef TARGET_LITTLE_NAME
4650#define TARGET_LITTLE_NAME "elf32-i386-freebsd"
d1036acb
L		 4651#undef ELF_OSABI
4652#define ELF_OSABI ELFOSABI_FREEBSD
2bc3c89a
AM		 4653
4654/* The kernel recognizes executables as valid only if they carry a
4655 "FreeBSD" label in the ELF header. So we put this label on all
4656 executables and (for simplicity) also all other object files. */
4657
2bc3c89a 4658static void
d8045f23 4659elf_i386_fbsd_post_process_headers (bfd *abfd, struct bfd_link_info *info)
2bc3c89a 4660{
d8045f23 4661 _bfd_elf_set_osabi (abfd, info);
2bc3c89a 4662
2bc3c89a
AM		 4663#ifdef OLD_FREEBSD_ABI_LABEL
4664 /* The ABI label supported by FreeBSD <= 4.0 is quite nonstandard. */
4665 memcpy (&i_ehdrp->e_ident[EI_ABIVERSION], "FreeBSD", 8);
caf47ea6 4666#endif
2bc3c89a
AM		 4667}
4668
4669#undef elf_backend_post_process_headers
d8045f23 4670#define elf_backend_post_process_headers elf_i386_fbsd_post_process_headers
571fe01f
NC		 4671#undef elf32_bed
4672#define elf32_bed elf32_i386_fbsd_bed
2bc3c89a 4673
d8045f23
NC		 4674#undef elf_backend_add_symbol_hook
4675
2bc3c89a 4676#include "elf32-target.h"
eac338cf
PB		 4677
4678/* VxWorks support. */
4679
4680#undef TARGET_LITTLE_SYM
4681#define TARGET_LITTLE_SYM bfd_elf32_i386_vxworks_vec
4682#undef TARGET_LITTLE_NAME
4683#define TARGET_LITTLE_NAME "elf32-i386-vxworks"
d1036acb 4684#undef ELF_OSABI
eac338cf
PB		 4685
4686/* Like elf_i386_link_hash_table_create but with tweaks for VxWorks. */
4687
4688static struct bfd_link_hash_table *
4689elf_i386_vxworks_link_hash_table_create (bfd *abfd)
4690{
4691 struct bfd_link_hash_table *ret;
4692 struct elf_i386_link_hash_table *htab;
4693
4694 ret = elf_i386_link_hash_table_create (abfd);
4695 if (ret)
4696 {
4697 htab = (struct elf_i386_link_hash_table *) ret;
4698 htab->is_vxworks = 1;
4699 htab->plt0_pad_byte = 0x90;
4700 }
4701
4702 return ret;
4703}
4704
4705
13285a1b
AM		 4706#undef elf_backend_relocs_compatible
4707#undef elf_backend_post_process_headers
eac338cf
PB		 4708#undef bfd_elf32_bfd_link_hash_table_create
4709#define bfd_elf32_bfd_link_hash_table_create \
4710 elf_i386_vxworks_link_hash_table_create
4711#undef elf_backend_add_symbol_hook
4712#define elf_backend_add_symbol_hook \
4713 elf_vxworks_add_symbol_hook
4714#undef elf_backend_link_output_symbol_hook
4715#define elf_backend_link_output_symbol_hook \
9c72ff84 4716 elf_vxworks_link_output_symbol_hook
eac338cf
PB		 4717#undef elf_backend_emit_relocs
4718#define elf_backend_emit_relocs elf_vxworks_emit_relocs
4719#undef elf_backend_final_write_processing
4720#define elf_backend_final_write_processing \
4721 elf_vxworks_final_write_processing
4722
4723/* On VxWorks, we emit relocations against _PROCEDURE_LINKAGE_TABLE_, so
4724 define it. */
4725#undef elf_backend_want_plt_sym
4726#define elf_backend_want_plt_sym 1
4727
4728#undef elf32_bed
4729#define elf32_bed elf32_i386_vxworks_bed
4730
4731#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.820661 seconds and 4 git commands to generate.