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