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