projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* c-lang.c (evaluate_subexp_c): Call check_typedef.
[deliverable/binutils-gdb.git] / bfd / elf32-ppc.c
CommitLineData
252b5132 1/* PowerPC-specific support for 32-bit ELF
051d5130 2 Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
3a71aa26 3 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
252b5132
RH		 4 Written by Ian Lance Taylor, Cygnus Support.
5
ae9a127f 6 This file is part of BFD, the Binary File Descriptor library.
252b5132 7
ae9a127f
NC		 8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
cd123cb7 10 the Free Software Foundation; either version 3 of the License, or
ae9a127f 11 (at your option) any later version.
252b5132 12
ae9a127f
NC		 13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
252b5132 17
ae9a127f 18 You should have received a copy of the GNU General Public License
fc0bffd6 19 along with this program; if not, write to the
3e110533 20 Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
53e09e0a 21 Boston, MA 02110-1301, USA. */
252b5132 22
cd123cb7 23
252b5132
RH		 24/* This file is based on a preliminary PowerPC ELF ABI. The
25 information may not match the final PowerPC ELF ABI. It includes
26 suggestions from the in-progress Embedded PowerPC ABI, and that
27 information may also not match. */
28
3db64b00 29#include "sysdep.h"
183e98be 30#include <stdarg.h>
252b5132 31#include "bfd.h"
252b5132
RH		 32#include "bfdlink.h"
33#include "libbfd.h"
34#include "elf-bfd.h"
35#include "elf/ppc.h"
7619e7c7 36#include "elf32-ppc.h"
9d8504b1 37#include "elf-vxworks.h"
252b5132 38
f0fe0e16 39/* RELA relocations are used here. */
252b5132 40
252b5132 41static bfd_reloc_status_type ppc_elf_addr16_ha_reloc
55fd94b0 42 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
7619e7c7 43static bfd_reloc_status_type ppc_elf_unhandled_reloc
55fd94b0 44 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
252b5132 45
70bccea4
AM		 46/* Branch prediction bit for branch taken relocs. */
47#define BRANCH_PREDICT_BIT 0x200000
48/* Mask to set RA in memory instructions. */
49#define RA_REGISTER_MASK 0x001f0000
50/* Value to shift register by to insert RA. */
51#define RA_REGISTER_SHIFT 16
252b5132
RH		 52
53/* The name of the dynamic interpreter. This is put in the .interp
54 section. */
252b5132
RH		 55#define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
56
d7128ce4 57/* For old-style PLT. */
252b5132
RH		 58/* The number of single-slot PLT entries (the rest use two slots). */
59#define PLT_NUM_SINGLE_ENTRIES 8192
60
d7128ce4 61/* For new-style .glink and .plt. */
a6aa5195 62#define GLINK_PLTRESOLVE 16*4
d7128ce4
AM		 63#define GLINK_ENTRY_SIZE 4*4
64
9d8504b1
PB		 65/* VxWorks uses its own plt layout, filled in by the static linker. */
66
67/* The standard VxWorks PLT entry. */
68#define VXWORKS_PLT_ENTRY_SIZE 32
69static const bfd_vma ppc_elf_vxworks_plt_entry
70 [VXWORKS_PLT_ENTRY_SIZE / 4] =
71 {
72 0x3d800000, /* lis r12,0 */
73 0x818c0000, /* lwz r12,0(r12) */
74 0x7d8903a6, /* mtctr r12 */
75 0x4e800420, /* bctr */
76 0x39600000, /* li r11,0 */
77 0x48000000, /* b 14 <.PLT0resolve+0x4> */
78 0x60000000, /* nop */
79 0x60000000, /* nop */
80 };
81static const bfd_vma ppc_elf_vxworks_pic_plt_entry
82 [VXWORKS_PLT_ENTRY_SIZE / 4] =
83 {
84 0x3d9e0000, /* addis r12,r30,0 */
85 0x818c0000, /* lwz r12,0(r12) */
86 0x7d8903a6, /* mtctr r12 */
87 0x4e800420, /* bctr */
88 0x39600000, /* li r11,0 */
89 0x48000000, /* b 14 <.PLT0resolve+0x4> 14: R_PPC_REL24 .PLTresolve */
90 0x60000000, /* nop */
91 0x60000000, /* nop */
92 };
93
94/* The initial VxWorks PLT entry. */
95#define VXWORKS_PLT_INITIAL_ENTRY_SIZE 32
96static const bfd_vma ppc_elf_vxworks_plt0_entry
97 [VXWORKS_PLT_INITIAL_ENTRY_SIZE / 4] =
98 {
99 0x3d800000, /* lis r12,0 */
100 0x398c0000, /* addi r12,r12,0 */
101 0x800c0008, /* lwz r0,8(r12) */
102 0x7c0903a6, /* mtctr r0 */
103 0x818c0004, /* lwz r12,4(r12) */
104 0x4e800420, /* bctr */
105 0x60000000, /* nop */
106 0x60000000, /* nop */
107 };
108static const bfd_vma ppc_elf_vxworks_pic_plt0_entry
109 [VXWORKS_PLT_INITIAL_ENTRY_SIZE / 4] =
110 {
111 0x819e0008, /* lwz r12,8(r30) */
112 0x7d8903a6, /* mtctr r12 */
113 0x819e0004, /* lwz r12,4(r30) */
114 0x4e800420, /* bctr */
115 0x60000000, /* nop */
116 0x60000000, /* nop */
117 0x60000000, /* nop */
118 0x60000000, /* nop */
119 };
120
121/* For executables, we have some additional relocations in
122 .rela.plt.unloaded, for the kernel loader. */
123
124/* The number of non-JMP_SLOT relocations per PLT0 slot. */
125#define VXWORKS_PLT_NON_JMP_SLOT_RELOCS 3
126/* The number of relocations in the PLTResolve slot. */
127#define VXWORKS_PLTRESOLVE_RELOCS 2
128/* The number of relocations in the PLTResolve slot when when creating
129 a shared library. */
130#define VXWORKS_PLTRESOLVE_RELOCS_SHLIB 0
131
d7128ce4 132/* Some instructions. */
d7128ce4 133#define ADDIS_11_11 0x3d6b0000
a6aa5195
AM		 134#define ADDIS_11_30 0x3d7e0000
135#define ADDIS_12_12 0x3d8c0000
d7128ce4 136#define ADDI_11_11 0x396b0000
d7128ce4
AM		 137#define ADD_0_11_11 0x7c0b5a14
138#define ADD_11_0_11 0x7d605a14
a6aa5195
AM		 139#define B 0x48000000
140#define BCL_20_31 0x429f0005
d7128ce4 141#define BCTR 0x4e800420
7e8aeb9a
AM		 142#define LIS_11 0x3d600000
143#define LIS_12 0x3d800000
a6aa5195
AM		 144#define LWZU_0_12 0x840c0000
145#define LWZ_0_12 0x800c0000
146#define LWZ_11_11 0x816b0000
147#define LWZ_11_30 0x817e0000
148#define LWZ_12_12 0x818c0000
149#define MFLR_0 0x7c0802a6
150#define MFLR_12 0x7d8802a6
151#define MTCTR_0 0x7c0903a6
152#define MTCTR_11 0x7d6903a6
153#define MTLR_0 0x7c0803a6
154#define NOP 0x60000000
155#define SUB_11_11_12 0x7d6c5850
7619e7c7
AM		 156
157/* Offset of tp and dtp pointers from start of TLS block. */
158#define TP_OFFSET 0x7000
159#define DTP_OFFSET 0x8000
e87d4038
AM		 160
161/* The value of a defined global symbol. */
162#define SYM_VAL(SYM) \
163 ((SYM)->root.u.def.section->output_section->vma \
164 + (SYM)->root.u.def.section->output_offset \
165 + (SYM)->root.u.def.value)
7fce784e 166\f
e47cd125 167static reloc_howto_type *ppc_elf_howto_table[R_PPC_max];
252b5132 168
8da6118f 169static reloc_howto_type ppc_elf_howto_raw[] = {
252b5132
RH		 170 /* This reloc does nothing. */
171 HOWTO (R_PPC_NONE, /* type */
172 0, /* rightshift */
173 2, /* size (0 = byte, 1 = short, 2 = long) */
174 32, /* bitsize */
b34976b6 175 FALSE, /* pc_relative */
252b5132
RH		 176 0, /* bitpos */
177 complain_overflow_bitfield, /* complain_on_overflow */
178 bfd_elf_generic_reloc, /* special_function */
179 "R_PPC_NONE", /* name */
b34976b6 180 FALSE, /* partial_inplace */
252b5132
RH		 181 0, /* src_mask */
182 0, /* dst_mask */
b34976b6 183 FALSE), /* pcrel_offset */
252b5132
RH		 184
185 /* A standard 32 bit relocation. */
186 HOWTO (R_PPC_ADDR32, /* type */
187 0, /* rightshift */
188 2, /* size (0 = byte, 1 = short, 2 = long) */
189 32, /* bitsize */
b34976b6 190 FALSE, /* pc_relative */
252b5132
RH		 191 0, /* bitpos */
192 complain_overflow_bitfield, /* complain_on_overflow */
193 bfd_elf_generic_reloc, /* special_function */
194 "R_PPC_ADDR32", /* name */
b34976b6 195 FALSE, /* partial_inplace */
252b5132
RH		 196 0, /* src_mask */
197 0xffffffff, /* dst_mask */
b34976b6 198 FALSE), /* pcrel_offset */
252b5132
RH		 199
200 /* An absolute 26 bit branch; the lower two bits must be zero.
201 FIXME: we don't check that, we just clear them. */
202 HOWTO (R_PPC_ADDR24, /* type */
203 0, /* rightshift */
204 2, /* size (0 = byte, 1 = short, 2 = long) */
205 26, /* bitsize */
b34976b6 206 FALSE, /* pc_relative */
252b5132
RH		 207 0, /* bitpos */
208 complain_overflow_bitfield, /* complain_on_overflow */
209 bfd_elf_generic_reloc, /* special_function */
210 "R_PPC_ADDR24", /* name */
b34976b6 211 FALSE, /* partial_inplace */
252b5132
RH		 212 0, /* src_mask */
213 0x3fffffc, /* dst_mask */
b34976b6 214 FALSE), /* pcrel_offset */
252b5132
RH		 215
216 /* A standard 16 bit relocation. */
217 HOWTO (R_PPC_ADDR16, /* type */
218 0, /* rightshift */
219 1, /* size (0 = byte, 1 = short, 2 = long) */
220 16, /* bitsize */
b34976b6 221 FALSE, /* pc_relative */
252b5132
RH		 222 0, /* bitpos */
223 complain_overflow_bitfield, /* complain_on_overflow */
224 bfd_elf_generic_reloc, /* special_function */
225 "R_PPC_ADDR16", /* name */
b34976b6 226 FALSE, /* partial_inplace */
252b5132
RH		 227 0, /* src_mask */
228 0xffff, /* dst_mask */
b34976b6 229 FALSE), /* pcrel_offset */
252b5132
RH		 230
231 /* A 16 bit relocation without overflow. */
232 HOWTO (R_PPC_ADDR16_LO, /* type */
233 0, /* rightshift */
234 1, /* size (0 = byte, 1 = short, 2 = long) */
235 16, /* bitsize */
b34976b6 236 FALSE, /* pc_relative */
252b5132
RH		 237 0, /* bitpos */
238 complain_overflow_dont,/* complain_on_overflow */
239 bfd_elf_generic_reloc, /* special_function */
240 "R_PPC_ADDR16_LO", /* name */
b34976b6 241 FALSE, /* partial_inplace */
252b5132
RH		 242 0, /* src_mask */
243 0xffff, /* dst_mask */
b34976b6 244 FALSE), /* pcrel_offset */
252b5132
RH		 245
246 /* The high order 16 bits of an address. */
247 HOWTO (R_PPC_ADDR16_HI, /* type */
248 16, /* rightshift */
249 1, /* size (0 = byte, 1 = short, 2 = long) */
250 16, /* bitsize */
b34976b6 251 FALSE, /* pc_relative */
252b5132
RH		 252 0, /* bitpos */
253 complain_overflow_dont, /* complain_on_overflow */
254 bfd_elf_generic_reloc, /* special_function */
255 "R_PPC_ADDR16_HI", /* name */
b34976b6 256 FALSE, /* partial_inplace */
252b5132
RH		 257 0, /* src_mask */
258 0xffff, /* dst_mask */
b34976b6 259 FALSE), /* pcrel_offset */
252b5132
RH		 260
261 /* The high order 16 bits of an address, plus 1 if the contents of
8da6118f 262 the low 16 bits, treated as a signed number, is negative. */
252b5132
RH		 263 HOWTO (R_PPC_ADDR16_HA, /* type */
264 16, /* rightshift */
265 1, /* size (0 = byte, 1 = short, 2 = long) */
266 16, /* bitsize */
b34976b6 267 FALSE, /* pc_relative */
252b5132
RH		 268 0, /* bitpos */
269 complain_overflow_dont, /* complain_on_overflow */
270 ppc_elf_addr16_ha_reloc, /* special_function */
271 "R_PPC_ADDR16_HA", /* name */
b34976b6 272 FALSE, /* partial_inplace */
252b5132
RH		 273 0, /* src_mask */
274 0xffff, /* dst_mask */
b34976b6 275 FALSE), /* pcrel_offset */
252b5132
RH		 276
277 /* An absolute 16 bit branch; the lower two bits must be zero.
278 FIXME: we don't check that, we just clear them. */
279 HOWTO (R_PPC_ADDR14, /* type */
280 0, /* rightshift */
281 2, /* size (0 = byte, 1 = short, 2 = long) */
282 16, /* bitsize */
b34976b6 283 FALSE, /* pc_relative */
252b5132
RH		 284 0, /* bitpos */
285 complain_overflow_bitfield, /* complain_on_overflow */
286 bfd_elf_generic_reloc, /* special_function */
287 "R_PPC_ADDR14", /* name */
b34976b6 288 FALSE, /* partial_inplace */
252b5132
RH		 289 0, /* src_mask */
290 0xfffc, /* dst_mask */
b34976b6 291 FALSE), /* pcrel_offset */
252b5132
RH		 292
293 /* An absolute 16 bit branch, for which bit 10 should be set to
294 indicate that the branch is expected to be taken. The lower two
8da6118f 295 bits must be zero. */
252b5132
RH		 296 HOWTO (R_PPC_ADDR14_BRTAKEN, /* type */
297 0, /* rightshift */
298 2, /* size (0 = byte, 1 = short, 2 = long) */
299 16, /* bitsize */
b34976b6 300 FALSE, /* pc_relative */
252b5132
RH		 301 0, /* bitpos */
302 complain_overflow_bitfield, /* complain_on_overflow */
303 bfd_elf_generic_reloc, /* special_function */
304 "R_PPC_ADDR14_BRTAKEN",/* name */
b34976b6 305 FALSE, /* partial_inplace */
252b5132
RH		 306 0, /* src_mask */
307 0xfffc, /* dst_mask */
b34976b6 308 FALSE), /* pcrel_offset */
252b5132
RH		 309
310 /* An absolute 16 bit branch, for which bit 10 should be set to
311 indicate that the branch is not expected to be taken. The lower
312 two bits must be zero. */
313 HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */
314 0, /* rightshift */
315 2, /* size (0 = byte, 1 = short, 2 = long) */
316 16, /* bitsize */
b34976b6 317 FALSE, /* pc_relative */
252b5132
RH		 318 0, /* bitpos */
319 complain_overflow_bitfield, /* complain_on_overflow */
320 bfd_elf_generic_reloc, /* special_function */
321 "R_PPC_ADDR14_BRNTAKEN",/* name */
b34976b6 322 FALSE, /* partial_inplace */
252b5132
RH		 323 0, /* src_mask */
324 0xfffc, /* dst_mask */
b34976b6 325 FALSE), /* pcrel_offset */
252b5132 326
8da6118f 327 /* A relative 26 bit branch; the lower two bits must be zero. */
252b5132
RH		 328 HOWTO (R_PPC_REL24, /* type */
329 0, /* rightshift */
330 2, /* size (0 = byte, 1 = short, 2 = long) */
331 26, /* bitsize */
b34976b6 332 TRUE, /* pc_relative */
252b5132
RH		 333 0, /* bitpos */
334 complain_overflow_signed, /* complain_on_overflow */
335 bfd_elf_generic_reloc, /* special_function */
336 "R_PPC_REL24", /* name */
b34976b6 337 FALSE, /* partial_inplace */
252b5132
RH		 338 0, /* src_mask */
339 0x3fffffc, /* dst_mask */
b34976b6 340 TRUE), /* pcrel_offset */
252b5132 341
8da6118f 342 /* A relative 16 bit branch; the lower two bits must be zero. */
252b5132
RH		 343 HOWTO (R_PPC_REL14, /* type */
344 0, /* rightshift */
345 2, /* size (0 = byte, 1 = short, 2 = long) */
346 16, /* bitsize */
b34976b6 347 TRUE, /* pc_relative */
252b5132
RH		 348 0, /* bitpos */
349 complain_overflow_signed, /* complain_on_overflow */
350 bfd_elf_generic_reloc, /* special_function */
351 "R_PPC_REL14", /* name */
b34976b6 352 FALSE, /* partial_inplace */
252b5132
RH		 353 0, /* src_mask */
354 0xfffc, /* dst_mask */
b34976b6 355 TRUE), /* pcrel_offset */
252b5132 356
8da6118f 357 /* A relative 16 bit branch. Bit 10 should be set to indicate that
252b5132
RH		 358 the branch is expected to be taken. The lower two bits must be
359 zero. */
360 HOWTO (R_PPC_REL14_BRTAKEN, /* type */
361 0, /* rightshift */
362 2, /* size (0 = byte, 1 = short, 2 = long) */
363 16, /* bitsize */
b34976b6 364 TRUE, /* pc_relative */
252b5132
RH		 365 0, /* bitpos */
366 complain_overflow_signed, /* complain_on_overflow */
367 bfd_elf_generic_reloc, /* special_function */
368 "R_PPC_REL14_BRTAKEN", /* name */
b34976b6 369 FALSE, /* partial_inplace */
252b5132
RH		 370 0, /* src_mask */
371 0xfffc, /* dst_mask */
b34976b6 372 TRUE), /* pcrel_offset */
252b5132 373
8da6118f 374 /* A relative 16 bit branch. Bit 10 should be set to indicate that
252b5132
RH		 375 the branch is not expected to be taken. The lower two bits must
376 be zero. */
377 HOWTO (R_PPC_REL14_BRNTAKEN, /* type */
378 0, /* rightshift */
379 2, /* size (0 = byte, 1 = short, 2 = long) */
380 16, /* bitsize */
b34976b6 381 TRUE, /* pc_relative */
252b5132
RH		 382 0, /* bitpos */
383 complain_overflow_signed, /* complain_on_overflow */
384 bfd_elf_generic_reloc, /* special_function */
385 "R_PPC_REL14_BRNTAKEN",/* name */
b34976b6 386 FALSE, /* partial_inplace */
252b5132
RH		 387 0, /* src_mask */
388 0xfffc, /* dst_mask */
b34976b6 389 TRUE), /* pcrel_offset */
252b5132
RH		 390
391 /* Like R_PPC_ADDR16, but referring to the GOT table entry for the
392 symbol. */
393 HOWTO (R_PPC_GOT16, /* type */
394 0, /* rightshift */
395 1, /* size (0 = byte, 1 = short, 2 = long) */
396 16, /* bitsize */
b34976b6 397 FALSE, /* pc_relative */
252b5132
RH		 398 0, /* bitpos */
399 complain_overflow_signed, /* complain_on_overflow */
400 bfd_elf_generic_reloc, /* special_function */
401 "R_PPC_GOT16", /* name */
b34976b6 402 FALSE, /* partial_inplace */
252b5132
RH		 403 0, /* src_mask */
404 0xffff, /* dst_mask */
b34976b6 405 FALSE), /* pcrel_offset */
252b5132
RH		 406
407 /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for
408 the symbol. */
409 HOWTO (R_PPC_GOT16_LO, /* type */
410 0, /* rightshift */
411 1, /* size (0 = byte, 1 = short, 2 = long) */
412 16, /* bitsize */
b34976b6 413 FALSE, /* pc_relative */
252b5132
RH		 414 0, /* bitpos */
415 complain_overflow_dont, /* complain_on_overflow */
416 bfd_elf_generic_reloc, /* special_function */
417 "R_PPC_GOT16_LO", /* name */
b34976b6 418 FALSE, /* partial_inplace */
252b5132
RH		 419 0, /* src_mask */
420 0xffff, /* dst_mask */
b34976b6 421 FALSE), /* pcrel_offset */
252b5132
RH		 422
423 /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for
424 the symbol. */
425 HOWTO (R_PPC_GOT16_HI, /* type */
426 16, /* rightshift */
427 1, /* size (0 = byte, 1 = short, 2 = long) */
428 16, /* bitsize */
b34976b6 429 FALSE, /* pc_relative */
252b5132
RH		 430 0, /* bitpos */
431 complain_overflow_bitfield, /* complain_on_overflow */
432 bfd_elf_generic_reloc, /* special_function */
433 "R_PPC_GOT16_HI", /* name */
b34976b6 434 FALSE, /* partial_inplace */
252b5132
RH		 435 0, /* src_mask */
436 0xffff, /* dst_mask */
b34976b6 437 FALSE), /* pcrel_offset */
252b5132
RH		 438
439 /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for
440 the symbol. */
441 HOWTO (R_PPC_GOT16_HA, /* type */
442 16, /* rightshift */
443 1, /* size (0 = byte, 1 = short, 2 = long) */
444 16, /* bitsize */
b34976b6 445 FALSE, /* pc_relative */
252b5132
RH		 446 0, /* bitpos */
447 complain_overflow_bitfield, /* complain_on_overflow */
448 ppc_elf_addr16_ha_reloc, /* special_function */
449 "R_PPC_GOT16_HA", /* name */
b34976b6 450 FALSE, /* partial_inplace */
252b5132
RH		 451 0, /* src_mask */
452 0xffff, /* dst_mask */
b34976b6 453 FALSE), /* pcrel_offset */
252b5132
RH		 454
455 /* Like R_PPC_REL24, but referring to the procedure linkage table
456 entry for the symbol. */
457 HOWTO (R_PPC_PLTREL24, /* type */
458 0, /* rightshift */
459 2, /* size (0 = byte, 1 = short, 2 = long) */
460 26, /* bitsize */
b34976b6 461 TRUE, /* pc_relative */
252b5132
RH		 462 0, /* bitpos */
463 complain_overflow_signed, /* complain_on_overflow */
464 bfd_elf_generic_reloc, /* special_function */
465 "R_PPC_PLTREL24", /* name */
b34976b6 466 FALSE, /* partial_inplace */
252b5132
RH		 467 0, /* src_mask */
468 0x3fffffc, /* dst_mask */
b34976b6 469 TRUE), /* pcrel_offset */
252b5132
RH		 470
471 /* This is used only by the dynamic linker. The symbol should exist
472 both in the object being run and in some shared library. The
473 dynamic linker copies the data addressed by the symbol from the
474 shared library into the object, because the object being
475 run has to have the data at some particular address. */
476 HOWTO (R_PPC_COPY, /* type */
477 0, /* rightshift */
478 2, /* size (0 = byte, 1 = short, 2 = long) */
479 32, /* bitsize */
b34976b6 480 FALSE, /* pc_relative */
252b5132
RH		 481 0, /* bitpos */
482 complain_overflow_bitfield, /* complain_on_overflow */
483 bfd_elf_generic_reloc, /* special_function */
484 "R_PPC_COPY", /* name */
b34976b6 485 FALSE, /* partial_inplace */
252b5132
RH		 486 0, /* src_mask */
487 0, /* dst_mask */
b34976b6 488 FALSE), /* pcrel_offset */
252b5132
RH		 489
490 /* Like R_PPC_ADDR32, but used when setting global offset table
491 entries. */
492 HOWTO (R_PPC_GLOB_DAT, /* type */
493 0, /* rightshift */
494 2, /* size (0 = byte, 1 = short, 2 = long) */
495 32, /* bitsize */
b34976b6 496 FALSE, /* pc_relative */
252b5132
RH		 497 0, /* bitpos */
498 complain_overflow_bitfield, /* complain_on_overflow */
499 bfd_elf_generic_reloc, /* special_function */
500 "R_PPC_GLOB_DAT", /* name */
b34976b6 501 FALSE, /* partial_inplace */
252b5132
RH		 502 0, /* src_mask */
503 0xffffffff, /* dst_mask */
b34976b6 504 FALSE), /* pcrel_offset */
252b5132
RH		 505
506 /* Marks a procedure linkage table entry for a symbol. */
507 HOWTO (R_PPC_JMP_SLOT, /* type */
508 0, /* rightshift */
509 2, /* size (0 = byte, 1 = short, 2 = long) */
510 32, /* bitsize */
b34976b6 511 FALSE, /* pc_relative */
252b5132
RH		 512 0, /* bitpos */
513 complain_overflow_bitfield, /* complain_on_overflow */
514 bfd_elf_generic_reloc, /* special_function */
515 "R_PPC_JMP_SLOT", /* name */
b34976b6 516 FALSE, /* partial_inplace */
252b5132
RH		 517 0, /* src_mask */
518 0, /* dst_mask */
b34976b6 519 FALSE), /* pcrel_offset */
252b5132
RH		 520
521 /* Used only by the dynamic linker. When the object is run, this
522 longword is set to the load address of the object, plus the
523 addend. */
524 HOWTO (R_PPC_RELATIVE, /* type */
525 0, /* rightshift */
526 2, /* size (0 = byte, 1 = short, 2 = long) */
527 32, /* bitsize */
b34976b6 528 FALSE, /* pc_relative */
252b5132
RH		 529 0, /* bitpos */
530 complain_overflow_bitfield, /* complain_on_overflow */
531 bfd_elf_generic_reloc, /* special_function */
532 "R_PPC_RELATIVE", /* name */
b34976b6 533 FALSE, /* partial_inplace */
252b5132
RH		 534 0, /* src_mask */
535 0xffffffff, /* dst_mask */
b34976b6 536 FALSE), /* pcrel_offset */
252b5132
RH		 537
538 /* Like R_PPC_REL24, but uses the value of the symbol within the
539 object rather than the final value. Normally used for
540 _GLOBAL_OFFSET_TABLE_. */
541 HOWTO (R_PPC_LOCAL24PC, /* type */
542 0, /* rightshift */
543 2, /* size (0 = byte, 1 = short, 2 = long) */
544 26, /* bitsize */
b34976b6 545 TRUE, /* pc_relative */
252b5132
RH		 546 0, /* bitpos */
547 complain_overflow_signed, /* complain_on_overflow */
548 bfd_elf_generic_reloc, /* special_function */
549 "R_PPC_LOCAL24PC", /* name */
b34976b6 550 FALSE, /* partial_inplace */
252b5132
RH		 551 0, /* src_mask */
552 0x3fffffc, /* dst_mask */
b34976b6 553 TRUE), /* pcrel_offset */
252b5132
RH		 554
555 /* Like R_PPC_ADDR32, but may be unaligned. */
556 HOWTO (R_PPC_UADDR32, /* type */
557 0, /* rightshift */
558 2, /* size (0 = byte, 1 = short, 2 = long) */
559 32, /* bitsize */
b34976b6 560 FALSE, /* pc_relative */
252b5132
RH		 561 0, /* bitpos */
562 complain_overflow_bitfield, /* complain_on_overflow */
563 bfd_elf_generic_reloc, /* special_function */
564 "R_PPC_UADDR32", /* name */
b34976b6 565 FALSE, /* partial_inplace */
252b5132
RH		 566 0, /* src_mask */
567 0xffffffff, /* dst_mask */
b34976b6 568 FALSE), /* pcrel_offset */
252b5132
RH		 569
570 /* Like R_PPC_ADDR16, but may be unaligned. */
571 HOWTO (R_PPC_UADDR16, /* type */
572 0, /* rightshift */
573 1, /* size (0 = byte, 1 = short, 2 = long) */
574 16, /* bitsize */
b34976b6 575 FALSE, /* pc_relative */
252b5132
RH		 576 0, /* bitpos */
577 complain_overflow_bitfield, /* complain_on_overflow */
578 bfd_elf_generic_reloc, /* special_function */
579 "R_PPC_UADDR16", /* name */
b34976b6 580 FALSE, /* partial_inplace */
252b5132
RH		 581 0, /* src_mask */
582 0xffff, /* dst_mask */
b34976b6 583 FALSE), /* pcrel_offset */
252b5132
RH		 584
585 /* 32-bit PC relative */
586 HOWTO (R_PPC_REL32, /* type */
587 0, /* rightshift */
588 2, /* size (0 = byte, 1 = short, 2 = long) */
589 32, /* bitsize */
b34976b6 590 TRUE, /* pc_relative */
252b5132
RH		 591 0, /* bitpos */
592 complain_overflow_bitfield, /* complain_on_overflow */
593 bfd_elf_generic_reloc, /* special_function */
594 "R_PPC_REL32", /* name */
b34976b6 595 FALSE, /* partial_inplace */
252b5132
RH		 596 0, /* src_mask */
597 0xffffffff, /* dst_mask */
b34976b6 598 TRUE), /* pcrel_offset */
252b5132
RH		 599
600 /* 32-bit relocation to the symbol's procedure linkage table.
c3668558 601 FIXME: not supported. */
252b5132
RH		 602 HOWTO (R_PPC_PLT32, /* type */
603 0, /* rightshift */
604 2, /* size (0 = byte, 1 = short, 2 = long) */
605 32, /* bitsize */
b34976b6 606 FALSE, /* pc_relative */
252b5132
RH		 607 0, /* bitpos */
608 complain_overflow_bitfield, /* complain_on_overflow */
609 bfd_elf_generic_reloc, /* special_function */
610 "R_PPC_PLT32", /* name */
b34976b6 611 FALSE, /* partial_inplace */
252b5132
RH		 612 0, /* src_mask */
613 0, /* dst_mask */
b34976b6 614 FALSE), /* pcrel_offset */
252b5132
RH		 615
616 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
c3668558 617 FIXME: not supported. */
252b5132
RH		 618 HOWTO (R_PPC_PLTREL32, /* type */
619 0, /* rightshift */
620 2, /* size (0 = byte, 1 = short, 2 = long) */
621 32, /* bitsize */
b34976b6 622 TRUE, /* pc_relative */
252b5132
RH		 623 0, /* bitpos */
624 complain_overflow_bitfield, /* complain_on_overflow */
625 bfd_elf_generic_reloc, /* special_function */
626 "R_PPC_PLTREL32", /* name */
b34976b6 627 FALSE, /* partial_inplace */
252b5132
RH		 628 0, /* src_mask */
629 0, /* dst_mask */
b34976b6 630 TRUE), /* pcrel_offset */
252b5132
RH		 631
632 /* Like R_PPC_ADDR16_LO, but referring to the PLT table entry for
633 the symbol. */
634 HOWTO (R_PPC_PLT16_LO, /* type */
635 0, /* rightshift */
636 1, /* size (0 = byte, 1 = short, 2 = long) */
637 16, /* bitsize */
b34976b6 638 FALSE, /* pc_relative */
252b5132
RH		 639 0, /* bitpos */
640 complain_overflow_dont, /* complain_on_overflow */
641 bfd_elf_generic_reloc, /* special_function */
642 "R_PPC_PLT16_LO", /* name */
b34976b6 643 FALSE, /* partial_inplace */
252b5132
RH		 644 0, /* src_mask */
645 0xffff, /* dst_mask */
b34976b6 646 FALSE), /* pcrel_offset */
252b5132
RH		 647
648 /* Like R_PPC_ADDR16_HI, but referring to the PLT table entry for
649 the symbol. */
650 HOWTO (R_PPC_PLT16_HI, /* type */
651 16, /* rightshift */
652 1, /* size (0 = byte, 1 = short, 2 = long) */
653 16, /* bitsize */
b34976b6 654 FALSE, /* pc_relative */
252b5132
RH		 655 0, /* bitpos */
656 complain_overflow_bitfield, /* complain_on_overflow */
657 bfd_elf_generic_reloc, /* special_function */
658 "R_PPC_PLT16_HI", /* name */
b34976b6 659 FALSE, /* partial_inplace */
252b5132
RH		 660 0, /* src_mask */
661 0xffff, /* dst_mask */
b34976b6 662 FALSE), /* pcrel_offset */
252b5132
RH		 663
664 /* Like R_PPC_ADDR16_HA, but referring to the PLT table entry for
665 the symbol. */
666 HOWTO (R_PPC_PLT16_HA, /* type */
667 16, /* rightshift */
668 1, /* size (0 = byte, 1 = short, 2 = long) */
669 16, /* bitsize */
b34976b6 670 FALSE, /* pc_relative */
252b5132
RH		 671 0, /* bitpos */
672 complain_overflow_bitfield, /* complain_on_overflow */
673 ppc_elf_addr16_ha_reloc, /* special_function */
674 "R_PPC_PLT16_HA", /* name */
b34976b6 675 FALSE, /* partial_inplace */
252b5132
RH		 676 0, /* src_mask */
677 0xffff, /* dst_mask */
b34976b6 678 FALSE), /* pcrel_offset */
252b5132
RH		 679
680 /* A sign-extended 16 bit value relative to _SDA_BASE_, for use with
681 small data items. */
682 HOWTO (R_PPC_SDAREL16, /* type */
683 0, /* rightshift */
684 1, /* size (0 = byte, 1 = short, 2 = long) */
685 16, /* bitsize */
b34976b6 686 FALSE, /* pc_relative */
252b5132
RH		 687 0, /* bitpos */
688 complain_overflow_signed, /* complain_on_overflow */
689 bfd_elf_generic_reloc, /* special_function */
690 "R_PPC_SDAREL16", /* name */
b34976b6 691 FALSE, /* partial_inplace */
252b5132
RH		 692 0, /* src_mask */
693 0xffff, /* dst_mask */
b34976b6 694 FALSE), /* pcrel_offset */
252b5132 695
c061c2d8 696 /* 16-bit section relative relocation. */
252b5132
RH		 697 HOWTO (R_PPC_SECTOFF, /* type */
698 0, /* rightshift */
c061c2d8
AM		 699 1, /* size (0 = byte, 1 = short, 2 = long) */
700 16, /* bitsize */
b34976b6 701 FALSE, /* pc_relative */
252b5132
RH		 702 0, /* bitpos */
703 complain_overflow_bitfield, /* complain_on_overflow */
704 bfd_elf_generic_reloc, /* special_function */
705 "R_PPC_SECTOFF", /* name */
b34976b6 706 FALSE, /* partial_inplace */
252b5132 707 0, /* src_mask */
c061c2d8 708 0xffff, /* dst_mask */
b34976b6 709 FALSE), /* pcrel_offset */
252b5132 710
c3668558 711 /* 16-bit lower half section relative relocation. */
252b5132
RH		 712 HOWTO (R_PPC_SECTOFF_LO, /* type */
713 0, /* rightshift */
714 1, /* size (0 = byte, 1 = short, 2 = long) */
715 16, /* bitsize */
b34976b6 716 FALSE, /* pc_relative */
252b5132
RH		 717 0, /* bitpos */
718 complain_overflow_dont, /* complain_on_overflow */
719 bfd_elf_generic_reloc, /* special_function */
720 "R_PPC_SECTOFF_LO", /* name */
b34976b6 721 FALSE, /* partial_inplace */
252b5132
RH		 722 0, /* src_mask */
723 0xffff, /* dst_mask */
b34976b6 724 FALSE), /* pcrel_offset */
252b5132 725
c3668558 726 /* 16-bit upper half section relative relocation. */
252b5132
RH		 727 HOWTO (R_PPC_SECTOFF_HI, /* type */
728 16, /* rightshift */
729 1, /* size (0 = byte, 1 = short, 2 = long) */
730 16, /* bitsize */
b34976b6 731 FALSE, /* pc_relative */
252b5132
RH		 732 0, /* bitpos */
733 complain_overflow_bitfield, /* complain_on_overflow */
734 bfd_elf_generic_reloc, /* special_function */
735 "R_PPC_SECTOFF_HI", /* name */
b34976b6 736 FALSE, /* partial_inplace */
252b5132
RH		 737 0, /* src_mask */
738 0xffff, /* dst_mask */
b34976b6 739 FALSE), /* pcrel_offset */
252b5132 740
c3668558 741 /* 16-bit upper half adjusted section relative relocation. */
252b5132
RH		 742 HOWTO (R_PPC_SECTOFF_HA, /* type */
743 16, /* rightshift */
744 1, /* size (0 = byte, 1 = short, 2 = long) */
745 16, /* bitsize */
b34976b6 746 FALSE, /* pc_relative */
252b5132
RH		 747 0, /* bitpos */
748 complain_overflow_bitfield, /* complain_on_overflow */
749 ppc_elf_addr16_ha_reloc, /* special_function */
750 "R_PPC_SECTOFF_HA", /* name */
b34976b6 751 FALSE, /* partial_inplace */
252b5132
RH		 752 0, /* src_mask */
753 0xffff, /* dst_mask */
b34976b6 754 FALSE), /* pcrel_offset */
252b5132 755
727fc41e 756 /* Marker relocs for TLS. */
7619e7c7 757 HOWTO (R_PPC_TLS,
252b5132
RH		 758 0, /* rightshift */
759 2, /* size (0 = byte, 1 = short, 2 = long) */
760 32, /* bitsize */
b34976b6 761 FALSE, /* pc_relative */
252b5132 762 0, /* bitpos */
7619e7c7 763 complain_overflow_dont, /* complain_on_overflow */
252b5132 764 bfd_elf_generic_reloc, /* special_function */
7619e7c7
AM		 765 "R_PPC_TLS", /* name */
766 FALSE, /* partial_inplace */
767 0, /* src_mask */
768 0, /* dst_mask */
769 FALSE), /* pcrel_offset */
770
727fc41e
AM		 771 HOWTO (R_PPC_TLSGD,
772 0, /* rightshift */
773 2, /* size (0 = byte, 1 = short, 2 = long) */
774 32, /* bitsize */
775 FALSE, /* pc_relative */
776 0, /* bitpos */
777 complain_overflow_dont, /* complain_on_overflow */
778 bfd_elf_generic_reloc, /* special_function */
779 "R_PPC_TLSGD", /* name */
780 FALSE, /* partial_inplace */
781 0, /* src_mask */
782 0, /* dst_mask */
783 FALSE), /* pcrel_offset */
784
785 HOWTO (R_PPC_TLSLD,
786 0, /* rightshift */
787 2, /* size (0 = byte, 1 = short, 2 = long) */
788 32, /* bitsize */
789 FALSE, /* pc_relative */
790 0, /* bitpos */
791 complain_overflow_dont, /* complain_on_overflow */
792 bfd_elf_generic_reloc, /* special_function */
793 "R_PPC_TLSLD", /* name */
794 FALSE, /* partial_inplace */
795 0, /* src_mask */
796 0, /* dst_mask */
797 FALSE), /* pcrel_offset */
798
7619e7c7
AM		 799 /* Computes the load module index of the load module that contains the
800 definition of its TLS sym. */
801 HOWTO (R_PPC_DTPMOD32,
802 0, /* rightshift */
803 2, /* size (0 = byte, 1 = short, 2 = long) */
804 32, /* bitsize */
805 FALSE, /* pc_relative */
806 0, /* bitpos */
807 complain_overflow_dont, /* complain_on_overflow */
808 ppc_elf_unhandled_reloc, /* special_function */
809 "R_PPC_DTPMOD32", /* name */
b34976b6 810 FALSE, /* partial_inplace */
252b5132
RH		 811 0, /* src_mask */
812 0xffffffff, /* dst_mask */
b34976b6 813 FALSE), /* pcrel_offset */
252b5132 814
7619e7c7
AM		 815 /* Computes a dtv-relative displacement, the difference between the value
816 of sym+add and the base address of the thread-local storage block that
817 contains the definition of sym, minus 0x8000. */
818 HOWTO (R_PPC_DTPREL32,
819 0, /* rightshift */
820 2, /* size (0 = byte, 1 = short, 2 = long) */
821 32, /* bitsize */
822 FALSE, /* pc_relative */
823 0, /* bitpos */
824 complain_overflow_dont, /* complain_on_overflow */
825 ppc_elf_unhandled_reloc, /* special_function */
826 "R_PPC_DTPREL32", /* name */
827 FALSE, /* partial_inplace */
828 0, /* src_mask */
829 0xffffffff, /* dst_mask */
830 FALSE), /* pcrel_offset */
831
832 /* A 16 bit dtprel reloc. */
833 HOWTO (R_PPC_DTPREL16,
252b5132
RH		 834 0, /* rightshift */
835 1, /* size (0 = byte, 1 = short, 2 = long) */
836 16, /* bitsize */
b34976b6 837 FALSE, /* pc_relative */
252b5132 838 0, /* bitpos */
7619e7c7
AM		 839 complain_overflow_signed, /* complain_on_overflow */
840 ppc_elf_unhandled_reloc, /* special_function */
841 "R_PPC_DTPREL16", /* name */
b34976b6 842 FALSE, /* partial_inplace */
252b5132
RH		 843 0, /* src_mask */
844 0xffff, /* dst_mask */
b34976b6 845 FALSE), /* pcrel_offset */
252b5132 846
7619e7c7
AM		 847 /* Like DTPREL16, but no overflow. */
848 HOWTO (R_PPC_DTPREL16_LO,
252b5132
RH		 849 0, /* rightshift */
850 1, /* size (0 = byte, 1 = short, 2 = long) */
851 16, /* bitsize */
b34976b6 852 FALSE, /* pc_relative */
252b5132 853 0, /* bitpos */
7619e7c7
AM		 854 complain_overflow_dont, /* complain_on_overflow */
855 ppc_elf_unhandled_reloc, /* special_function */
856 "R_PPC_DTPREL16_LO", /* name */
b34976b6 857 FALSE, /* partial_inplace */
252b5132
RH		 858 0, /* src_mask */
859 0xffff, /* dst_mask */
b34976b6 860 FALSE), /* pcrel_offset */
252b5132 861
7619e7c7
AM		 862 /* Like DTPREL16_LO, but next higher group of 16 bits. */
863 HOWTO (R_PPC_DTPREL16_HI,
252b5132
RH		 864 16, /* rightshift */
865 1, /* size (0 = byte, 1 = short, 2 = long) */
866 16, /* bitsize */
b34976b6 867 FALSE, /* pc_relative */
252b5132
RH		 868 0, /* bitpos */
869 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM		 870 ppc_elf_unhandled_reloc, /* special_function */
871 "R_PPC_DTPREL16_HI", /* name */
b34976b6 872 FALSE, /* partial_inplace */
252b5132
RH		 873 0, /* src_mask */
874 0xffff, /* dst_mask */
b34976b6 875 FALSE), /* pcrel_offset */
252b5132 876
7619e7c7
AM		 877 /* Like DTPREL16_HI, but adjust for low 16 bits. */
878 HOWTO (R_PPC_DTPREL16_HA,
252b5132
RH		 879 16, /* rightshift */
880 1, /* size (0 = byte, 1 = short, 2 = long) */
881 16, /* bitsize */
b34976b6 882 FALSE, /* pc_relative */
252b5132
RH		 883 0, /* bitpos */
884 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM		 885 ppc_elf_unhandled_reloc, /* special_function */
886 "R_PPC_DTPREL16_HA", /* name */
b34976b6 887 FALSE, /* partial_inplace */
252b5132
RH		 888 0, /* src_mask */
889 0xffff, /* dst_mask */
b34976b6 890 FALSE), /* pcrel_offset */
252b5132 891
7619e7c7
AM		 892 /* Computes a tp-relative displacement, the difference between the value of
893 sym+add and the value of the thread pointer (r13). */
894 HOWTO (R_PPC_TPREL32,
895 0, /* rightshift */
896 2, /* size (0 = byte, 1 = short, 2 = long) */
897 32, /* bitsize */
898 FALSE, /* pc_relative */
899 0, /* bitpos */
900 complain_overflow_dont, /* complain_on_overflow */
901 ppc_elf_unhandled_reloc, /* special_function */
902 "R_PPC_TPREL32", /* name */
903 FALSE, /* partial_inplace */
904 0, /* src_mask */
905 0xffffffff, /* dst_mask */
906 FALSE), /* pcrel_offset */
907
908 /* A 16 bit tprel reloc. */
909 HOWTO (R_PPC_TPREL16,
252b5132
RH		 910 0, /* rightshift */
911 1, /* size (0 = byte, 1 = short, 2 = long) */
912 16, /* bitsize */
b34976b6 913 FALSE, /* pc_relative */
252b5132 914 0, /* bitpos */
7619e7c7
AM		 915 complain_overflow_signed, /* complain_on_overflow */
916 ppc_elf_unhandled_reloc, /* special_function */
917 "R_PPC_TPREL16", /* name */
b34976b6 918 FALSE, /* partial_inplace */
252b5132
RH		 919 0, /* src_mask */
920 0xffff, /* dst_mask */
b34976b6 921 FALSE), /* pcrel_offset */
252b5132 922
7619e7c7
AM		 923 /* Like TPREL16, but no overflow. */
924 HOWTO (R_PPC_TPREL16_LO,
252b5132
RH		 925 0, /* rightshift */
926 1, /* size (0 = byte, 1 = short, 2 = long) */
927 16, /* bitsize */
b34976b6 928 FALSE, /* pc_relative */
252b5132 929 0, /* bitpos */
7619e7c7
AM		 930 complain_overflow_dont, /* complain_on_overflow */
931 ppc_elf_unhandled_reloc, /* special_function */
932 "R_PPC_TPREL16_LO", /* name */
b34976b6 933 FALSE, /* partial_inplace */
252b5132
RH		 934 0, /* src_mask */
935 0xffff, /* dst_mask */
b34976b6 936 FALSE), /* pcrel_offset */
252b5132 937
7619e7c7
AM		 938 /* Like TPREL16_LO, but next higher group of 16 bits. */
939 HOWTO (R_PPC_TPREL16_HI,
940 16, /* rightshift */
941 1, /* size (0 = byte, 1 = short, 2 = long) */
942 16, /* bitsize */
943 FALSE, /* pc_relative */
944 0, /* bitpos */
945 complain_overflow_dont, /* complain_on_overflow */
946 ppc_elf_unhandled_reloc, /* special_function */
947 "R_PPC_TPREL16_HI", /* name */
948 FALSE, /* partial_inplace */
949 0, /* src_mask */
950 0xffff, /* dst_mask */
951 FALSE), /* pcrel_offset */
952
953 /* Like TPREL16_HI, but adjust for low 16 bits. */
954 HOWTO (R_PPC_TPREL16_HA,
955 16, /* rightshift */
956 1, /* size (0 = byte, 1 = short, 2 = long) */
957 16, /* bitsize */
958 FALSE, /* pc_relative */
959 0, /* bitpos */
960 complain_overflow_dont, /* complain_on_overflow */
961 ppc_elf_unhandled_reloc, /* special_function */
962 "R_PPC_TPREL16_HA", /* name */
963 FALSE, /* partial_inplace */
964 0, /* src_mask */
965 0xffff, /* dst_mask */
966 FALSE), /* pcrel_offset */
967
968 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
969 with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
970 to the first entry. */
971 HOWTO (R_PPC_GOT_TLSGD16,
252b5132
RH		 972 0, /* rightshift */
973 1, /* size (0 = byte, 1 = short, 2 = long) */
974 16, /* bitsize */
b34976b6 975 FALSE, /* pc_relative */
252b5132
RH		 976 0, /* bitpos */
977 complain_overflow_signed, /* complain_on_overflow */
7619e7c7
AM		 978 ppc_elf_unhandled_reloc, /* special_function */
979 "R_PPC_GOT_TLSGD16", /* name */
b34976b6 980 FALSE, /* partial_inplace */
252b5132
RH		 981 0, /* src_mask */
982 0xffff, /* dst_mask */
b34976b6 983 FALSE), /* pcrel_offset */
252b5132 984
7619e7c7
AM		 985 /* Like GOT_TLSGD16, but no overflow. */
986 HOWTO (R_PPC_GOT_TLSGD16_LO,
252b5132 987 0, /* rightshift */
7619e7c7 988 1, /* size (0 = byte, 1 = short, 2 = long) */
252b5132 989 16, /* bitsize */
b34976b6 990 FALSE, /* pc_relative */
252b5132 991 0, /* bitpos */
7619e7c7
AM		 992 complain_overflow_dont, /* complain_on_overflow */
993 ppc_elf_unhandled_reloc, /* special_function */
994 "R_PPC_GOT_TLSGD16_LO", /* name */
b34976b6 995 FALSE, /* partial_inplace */
252b5132
RH		 996 0, /* src_mask */
997 0xffff, /* dst_mask */
b34976b6 998 FALSE), /* pcrel_offset */
252b5132 999
7619e7c7
AM		 1000 /* Like GOT_TLSGD16_LO, but next higher group of 16 bits. */
1001 HOWTO (R_PPC_GOT_TLSGD16_HI,
1002 16, /* rightshift */
1003 1, /* size (0 = byte, 1 = short, 2 = long) */
1004 16, /* bitsize */
1005 FALSE, /* pc_relative */
1006 0, /* bitpos */
1007 complain_overflow_dont, /* complain_on_overflow */
1008 ppc_elf_unhandled_reloc, /* special_function */
1009 "R_PPC_GOT_TLSGD16_HI", /* name */
1010 FALSE, /* partial_inplace */
1011 0, /* src_mask */
1012 0xffff, /* dst_mask */
1013 FALSE), /* pcrel_offset */
252b5132 1014
7619e7c7
AM		 1015 /* Like GOT_TLSGD16_HI, but adjust for low 16 bits. */
1016 HOWTO (R_PPC_GOT_TLSGD16_HA,
1017 16, /* rightshift */
1018 1, /* size (0 = byte, 1 = short, 2 = long) */
1019 16, /* bitsize */
1020 FALSE, /* pc_relative */
1021 0, /* bitpos */
1022 complain_overflow_dont, /* complain_on_overflow */
1023 ppc_elf_unhandled_reloc, /* special_function */
1024 "R_PPC_GOT_TLSGD16_HA", /* name */
1025 FALSE, /* partial_inplace */
1026 0, /* src_mask */
1027 0xffff, /* dst_mask */
1028 FALSE), /* pcrel_offset */
1029
1030 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1031 with values (sym+add)@dtpmod and zero, and computes the offset to the
1032 first entry. */
1033 HOWTO (R_PPC_GOT_TLSLD16,
252b5132
RH		 1034 0, /* rightshift */
1035 1, /* size (0 = byte, 1 = short, 2 = long) */
1036 16, /* bitsize */
7619e7c7 1037 FALSE, /* pc_relative */
252b5132
RH		 1038 0, /* bitpos */
1039 complain_overflow_signed, /* complain_on_overflow */
7619e7c7
AM		 1040 ppc_elf_unhandled_reloc, /* special_function */
1041 "R_PPC_GOT_TLSLD16", /* name */
b34976b6 1042 FALSE, /* partial_inplace */
252b5132
RH		 1043 0, /* src_mask */
1044 0xffff, /* dst_mask */
b34976b6 1045 FALSE), /* pcrel_offset */
252b5132 1046
7619e7c7
AM		 1047 /* Like GOT_TLSLD16, but no overflow. */
1048 HOWTO (R_PPC_GOT_TLSLD16_LO,
252b5132 1049 0, /* rightshift */
7619e7c7
AM		 1050 1, /* size (0 = byte, 1 = short, 2 = long) */
1051 16, /* bitsize */
b34976b6 1052 FALSE, /* pc_relative */
252b5132
RH		 1053 0, /* bitpos */
1054 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM		 1055 ppc_elf_unhandled_reloc, /* special_function */
1056 "R_PPC_GOT_TLSLD16_LO", /* name */
b34976b6 1057 FALSE, /* partial_inplace */
252b5132 1058 0, /* src_mask */
7619e7c7 1059 0xffff, /* dst_mask */
b34976b6 1060 FALSE), /* pcrel_offset */
252b5132 1061
7619e7c7
AM		 1062 /* Like GOT_TLSLD16_LO, but next higher group of 16 bits. */
1063 HOWTO (R_PPC_GOT_TLSLD16_HI,
1064 16, /* rightshift */
1065 1, /* size (0 = byte, 1 = short, 2 = long) */
1066 16, /* bitsize */
b34976b6 1067 FALSE, /* pc_relative */
252b5132
RH		 1068 0, /* bitpos */
1069 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM		 1070 ppc_elf_unhandled_reloc, /* special_function */
1071 "R_PPC_GOT_TLSLD16_HI", /* name */
b34976b6 1072 FALSE, /* partial_inplace */
252b5132 1073 0, /* src_mask */
7619e7c7 1074 0xffff, /* dst_mask */
b34976b6 1075 FALSE), /* pcrel_offset */
252b5132 1076
7619e7c7
AM		 1077 /* Like GOT_TLSLD16_HI, but adjust for low 16 bits. */
1078 HOWTO (R_PPC_GOT_TLSLD16_HA,
1079 16, /* rightshift */
1080 1, /* size (0 = byte, 1 = short, 2 = long) */
1081 16, /* bitsize */
1082 FALSE, /* pc_relative */
1083 0, /* bitpos */
1084 complain_overflow_dont, /* complain_on_overflow */
1085 ppc_elf_unhandled_reloc, /* special_function */
1086 "R_PPC_GOT_TLSLD16_HA", /* name */
1087 FALSE, /* partial_inplace */
1088 0, /* src_mask */
1089 0xffff, /* dst_mask */
1090 FALSE), /* pcrel_offset */
1091
1092 /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1093 the offset to the entry. */
1094 HOWTO (R_PPC_GOT_DTPREL16,
252b5132
RH		 1095 0, /* rightshift */
1096 1, /* size (0 = byte, 1 = short, 2 = long) */
1097 16, /* bitsize */
b34976b6 1098 FALSE, /* pc_relative */
252b5132
RH		 1099 0, /* bitpos */
1100 complain_overflow_signed, /* complain_on_overflow */
7619e7c7
AM		 1101 ppc_elf_unhandled_reloc, /* special_function */
1102 "R_PPC_GOT_DTPREL16", /* name */
b34976b6 1103 FALSE, /* partial_inplace */
252b5132
RH		 1104 0, /* src_mask */
1105 0xffff, /* dst_mask */
b34976b6 1106 FALSE), /* pcrel_offset */
252b5132 1107
7619e7c7
AM		 1108 /* Like GOT_DTPREL16, but no overflow. */
1109 HOWTO (R_PPC_GOT_DTPREL16_LO,
1110 0, /* rightshift */
1111 1, /* size (0 = byte, 1 = short, 2 = long) */
1112 16, /* bitsize */
1113 FALSE, /* pc_relative */
1114 0, /* bitpos */
1115 complain_overflow_dont, /* complain_on_overflow */
1116 ppc_elf_unhandled_reloc, /* special_function */
1117 "R_PPC_GOT_DTPREL16_LO", /* name */
1118 FALSE, /* partial_inplace */
1119 0, /* src_mask */
1120 0xffff, /* dst_mask */
1121 FALSE), /* pcrel_offset */
252b5132 1122
7619e7c7
AM		 1123 /* Like GOT_DTPREL16_LO, but next higher group of 16 bits. */
1124 HOWTO (R_PPC_GOT_DTPREL16_HI,
1125 16, /* rightshift */
1126 1, /* size (0 = byte, 1 = short, 2 = long) */
1127 16, /* bitsize */
1128 FALSE, /* pc_relative */
1129 0, /* bitpos */
1130 complain_overflow_dont, /* complain_on_overflow */
1131 ppc_elf_unhandled_reloc, /* special_function */
1132 "R_PPC_GOT_DTPREL16_HI", /* name */
1133 FALSE, /* partial_inplace */
1134 0, /* src_mask */
1135 0xffff, /* dst_mask */
1136 FALSE), /* pcrel_offset */
252b5132 1137
7619e7c7
AM		 1138 /* Like GOT_DTPREL16_HI, but adjust for low 16 bits. */
1139 HOWTO (R_PPC_GOT_DTPREL16_HA,
1140 16, /* rightshift */
1141 1, /* size (0 = byte, 1 = short, 2 = long) */
1142 16, /* bitsize */
1143 FALSE, /* pc_relative */
1144 0, /* bitpos */
1145 complain_overflow_dont, /* complain_on_overflow */
1146 ppc_elf_unhandled_reloc, /* special_function */
1147 "R_PPC_GOT_DTPREL16_HA", /* name */
1148 FALSE, /* partial_inplace */
1149 0, /* src_mask */
1150 0xffff, /* dst_mask */
1151 FALSE), /* pcrel_offset */
c3668558 1152
7619e7c7
AM		 1153 /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1154 offset to the entry. */
1155 HOWTO (R_PPC_GOT_TPREL16,
1156 0, /* rightshift */
1157 1, /* size (0 = byte, 1 = short, 2 = long) */
1158 16, /* bitsize */
1159 FALSE, /* pc_relative */
1160 0, /* bitpos */
1161 complain_overflow_signed, /* complain_on_overflow */
1162 ppc_elf_unhandled_reloc, /* special_function */
1163 "R_PPC_GOT_TPREL16", /* name */
1164 FALSE, /* partial_inplace */
1165 0, /* src_mask */
1166 0xffff, /* dst_mask */
1167 FALSE), /* pcrel_offset */
1168
1169 /* Like GOT_TPREL16, but no overflow. */
1170 HOWTO (R_PPC_GOT_TPREL16_LO,
1171 0, /* rightshift */
1172 1, /* size (0 = byte, 1 = short, 2 = long) */
1173 16, /* bitsize */
1174 FALSE, /* pc_relative */
1175 0, /* bitpos */
1176 complain_overflow_dont, /* complain_on_overflow */
1177 ppc_elf_unhandled_reloc, /* special_function */
1178 "R_PPC_GOT_TPREL16_LO", /* name */
1179 FALSE, /* partial_inplace */
1180 0, /* src_mask */
1181 0xffff, /* dst_mask */
1182 FALSE), /* pcrel_offset */
1183
1184 /* Like GOT_TPREL16_LO, but next higher group of 16 bits. */
1185 HOWTO (R_PPC_GOT_TPREL16_HI,
1186 16, /* rightshift */
1187 1, /* size (0 = byte, 1 = short, 2 = long) */
1188 16, /* bitsize */
1189 FALSE, /* pc_relative */
1190 0, /* bitpos */
1191 complain_overflow_dont, /* complain_on_overflow */
1192 ppc_elf_unhandled_reloc, /* special_function */
1193 "R_PPC_GOT_TPREL16_HI", /* name */
1194 FALSE, /* partial_inplace */
1195 0, /* src_mask */
1196 0xffff, /* dst_mask */
1197 FALSE), /* pcrel_offset */
1198
1199 /* Like GOT_TPREL16_HI, but adjust for low 16 bits. */
1200 HOWTO (R_PPC_GOT_TPREL16_HA,
1201 16, /* rightshift */
1202 1, /* size (0 = byte, 1 = short, 2 = long) */
1203 16, /* bitsize */
1204 FALSE, /* pc_relative */
1205 0, /* bitpos */
1206 complain_overflow_dont, /* complain_on_overflow */
1207 ppc_elf_unhandled_reloc, /* special_function */
1208 "R_PPC_GOT_TPREL16_HA", /* name */
1209 FALSE, /* partial_inplace */
1210 0, /* src_mask */
1211 0xffff, /* dst_mask */
1212 FALSE), /* pcrel_offset */
1213
1214 /* The remaining relocs are from the Embedded ELF ABI, and are not
1215 in the SVR4 ELF ABI. */
1216
1217 /* 32 bit value resulting from the addend minus the symbol. */
1218 HOWTO (R_PPC_EMB_NADDR32, /* type */
1219 0, /* rightshift */
1220 2, /* size (0 = byte, 1 = short, 2 = long) */
1221 32, /* bitsize */
1222 FALSE, /* pc_relative */
1223 0, /* bitpos */
1224 complain_overflow_bitfield, /* complain_on_overflow */
1225 bfd_elf_generic_reloc, /* special_function */
1226 "R_PPC_EMB_NADDR32", /* name */
1227 FALSE, /* partial_inplace */
1228 0, /* src_mask */
1229 0xffffffff, /* dst_mask */
1230 FALSE), /* pcrel_offset */
1231
1232 /* 16 bit value resulting from the addend minus the symbol. */
1233 HOWTO (R_PPC_EMB_NADDR16, /* type */
1234 0, /* rightshift */
1235 1, /* size (0 = byte, 1 = short, 2 = long) */
1236 16, /* bitsize */
1237 FALSE, /* pc_relative */
1238 0, /* bitpos */
1239 complain_overflow_bitfield, /* complain_on_overflow */
1240 bfd_elf_generic_reloc, /* special_function */
1241 "R_PPC_EMB_NADDR16", /* name */
1242 FALSE, /* partial_inplace */
1243 0, /* src_mask */
1244 0xffff, /* dst_mask */
1245 FALSE), /* pcrel_offset */
1246
1247 /* 16 bit value resulting from the addend minus the symbol. */
1248 HOWTO (R_PPC_EMB_NADDR16_LO, /* type */
1249 0, /* rightshift */
1250 1, /* size (0 = byte, 1 = short, 2 = long) */
1251 16, /* bitsize */
1252 FALSE, /* pc_relative */
1253 0, /* bitpos */
1254 complain_overflow_dont,/* complain_on_overflow */
1255 bfd_elf_generic_reloc, /* special_function */
1256 "R_PPC_EMB_ADDR16_LO", /* name */
1257 FALSE, /* partial_inplace */
1258 0, /* src_mask */
1259 0xffff, /* dst_mask */
1260 FALSE), /* pcrel_offset */
1261
1262 /* The high order 16 bits of the addend minus the symbol. */
1263 HOWTO (R_PPC_EMB_NADDR16_HI, /* type */
1264 16, /* rightshift */
1265 1, /* size (0 = byte, 1 = short, 2 = long) */
1266 16, /* bitsize */
1267 FALSE, /* pc_relative */
1268 0, /* bitpos */
1269 complain_overflow_dont, /* complain_on_overflow */
1270 bfd_elf_generic_reloc, /* special_function */
1271 "R_PPC_EMB_NADDR16_HI", /* name */
1272 FALSE, /* partial_inplace */
1273 0, /* src_mask */
1274 0xffff, /* dst_mask */
1275 FALSE), /* pcrel_offset */
1276
1277 /* The high order 16 bits of the result of the addend minus the address,
1278 plus 1 if the contents of the low 16 bits, treated as a signed number,
1279 is negative. */
1280 HOWTO (R_PPC_EMB_NADDR16_HA, /* type */
1281 16, /* rightshift */
1282 1, /* size (0 = byte, 1 = short, 2 = long) */
1283 16, /* bitsize */
1284 FALSE, /* pc_relative */
1285 0, /* bitpos */
1286 complain_overflow_dont, /* complain_on_overflow */
25dbc73a
AM		 1287 ppc_elf_addr16_ha_reloc, /* special_function */
1288 "R_PPC_EMB_NADDR16_HA", /* name */
1289 FALSE, /* partial_inplace */
1290 0, /* src_mask */
1291 0xffff, /* dst_mask */
1292 FALSE), /* pcrel_offset */
1293
1294 /* 16 bit value resulting from allocating a 4 byte word to hold an
1295 address in the .sdata section, and returning the offset from
1296 _SDA_BASE_ for that relocation. */
1297 HOWTO (R_PPC_EMB_SDAI16, /* type */
1298 0, /* rightshift */
1299 1, /* size (0 = byte, 1 = short, 2 = long) */
1300 16, /* bitsize */
1301 FALSE, /* pc_relative */
1302 0, /* bitpos */
1303 complain_overflow_bitfield, /* complain_on_overflow */
1304 bfd_elf_generic_reloc, /* special_function */
1305 "R_PPC_EMB_SDAI16", /* name */
1306 FALSE, /* partial_inplace */
1307 0, /* src_mask */
1308 0xffff, /* dst_mask */
1309 FALSE), /* pcrel_offset */
1310
1311 /* 16 bit value resulting from allocating a 4 byte word to hold an
1312 address in the .sdata2 section, and returning the offset from
1313 _SDA2_BASE_ for that relocation. */
1314 HOWTO (R_PPC_EMB_SDA2I16, /* type */
1315 0, /* rightshift */
1316 1, /* size (0 = byte, 1 = short, 2 = long) */
1317 16, /* bitsize */
1318 FALSE, /* pc_relative */
1319 0, /* bitpos */
1320 complain_overflow_bitfield, /* complain_on_overflow */
1321 bfd_elf_generic_reloc, /* special_function */
1322 "R_PPC_EMB_SDA2I16", /* name */
1323 FALSE, /* partial_inplace */
1324 0, /* src_mask */
1325 0xffff, /* dst_mask */
1326 FALSE), /* pcrel_offset */
1327
1328 /* A sign-extended 16 bit value relative to _SDA2_BASE_, for use with
1329 small data items. */
1330 HOWTO (R_PPC_EMB_SDA2REL, /* type */
1331 0, /* rightshift */
1332 1, /* size (0 = byte, 1 = short, 2 = long) */
1333 16, /* bitsize */
1334 FALSE, /* pc_relative */
1335 0, /* bitpos */
1336 complain_overflow_signed, /* complain_on_overflow */
1337 bfd_elf_generic_reloc, /* special_function */
1338 "R_PPC_EMB_SDA2REL", /* name */
1339 FALSE, /* partial_inplace */
1340 0, /* src_mask */
1341 0xffff, /* dst_mask */
1342 FALSE), /* pcrel_offset */
1343
1344 /* Relocate against either _SDA_BASE_ or _SDA2_BASE_, filling in the 16 bit
1345 signed offset from the appropriate base, and filling in the register
1346 field with the appropriate register (0, 2, or 13). */
1347 HOWTO (R_PPC_EMB_SDA21, /* type */
1348 0, /* rightshift */
1349 2, /* size (0 = byte, 1 = short, 2 = long) */
1350 16, /* bitsize */
1351 FALSE, /* pc_relative */
1352 0, /* bitpos */
1353 complain_overflow_signed, /* complain_on_overflow */
1354 bfd_elf_generic_reloc, /* special_function */
1355 "R_PPC_EMB_SDA21", /* name */
1356 FALSE, /* partial_inplace */
1357 0, /* src_mask */
1358 0xffff, /* dst_mask */
1359 FALSE), /* pcrel_offset */
1360
1361 /* Relocation not handled: R_PPC_EMB_MRKREF */
1362 /* Relocation not handled: R_PPC_EMB_RELSEC16 */
1363 /* Relocation not handled: R_PPC_EMB_RELST_LO */
1364 /* Relocation not handled: R_PPC_EMB_RELST_HI */
1365 /* Relocation not handled: R_PPC_EMB_RELST_HA */
1366 /* Relocation not handled: R_PPC_EMB_BIT_FLD */
1367
1368 /* PC relative relocation against either _SDA_BASE_ or _SDA2_BASE_, filling
1369 in the 16 bit signed offset from the appropriate base, and filling in the
1370 register field with the appropriate register (0, 2, or 13). */
1371 HOWTO (R_PPC_EMB_RELSDA, /* type */
1372 0, /* rightshift */
1373 1, /* size (0 = byte, 1 = short, 2 = long) */
1374 16, /* bitsize */
1375 TRUE, /* pc_relative */
1376 0, /* bitpos */
1377 complain_overflow_signed, /* complain_on_overflow */
1378 bfd_elf_generic_reloc, /* special_function */
1379 "R_PPC_EMB_RELSDA", /* name */
1380 FALSE, /* partial_inplace */
1381 0, /* src_mask */
1382 0xffff, /* dst_mask */
1383 FALSE), /* pcrel_offset */
1384
d7128ce4
AM		 1385 /* A 16 bit relative relocation. */
1386 HOWTO (R_PPC_REL16, /* type */
1387 0, /* rightshift */
1388 1, /* size (0 = byte, 1 = short, 2 = long) */
1389 16, /* bitsize */
1390 TRUE, /* pc_relative */
1391 0, /* bitpos */
1392 complain_overflow_bitfield, /* complain_on_overflow */
1393 bfd_elf_generic_reloc, /* special_function */
1394 "R_PPC_REL16", /* name */
1395 FALSE, /* partial_inplace */
1396 0, /* src_mask */
1397 0xffff, /* dst_mask */
1398 TRUE), /* pcrel_offset */
1399
1400 /* A 16 bit relative relocation without overflow. */
1401 HOWTO (R_PPC_REL16_LO, /* type */
1402 0, /* rightshift */
1403 1, /* size (0 = byte, 1 = short, 2 = long) */
1404 16, /* bitsize */
1405 TRUE, /* pc_relative */
1406 0, /* bitpos */
1407 complain_overflow_dont,/* complain_on_overflow */
1408 bfd_elf_generic_reloc, /* special_function */
1409 "R_PPC_REL16_LO", /* name */
1410 FALSE, /* partial_inplace */
1411 0, /* src_mask */
1412 0xffff, /* dst_mask */
1413 TRUE), /* pcrel_offset */
1414
1415 /* The high order 16 bits of a relative address. */
1416 HOWTO (R_PPC_REL16_HI, /* type */
1417 16, /* rightshift */
1418 1, /* size (0 = byte, 1 = short, 2 = long) */
1419 16, /* bitsize */
1420 TRUE, /* pc_relative */
1421 0, /* bitpos */
1422 complain_overflow_dont, /* complain_on_overflow */
1423 bfd_elf_generic_reloc, /* special_function */
1424 "R_PPC_REL16_HI", /* name */
1425 FALSE, /* partial_inplace */
1426 0, /* src_mask */
1427 0xffff, /* dst_mask */
1428 TRUE), /* pcrel_offset */
1429
1430 /* The high order 16 bits of a relative address, plus 1 if the contents of
1431 the low 16 bits, treated as a signed number, is negative. */
1432 HOWTO (R_PPC_REL16_HA, /* type */
1433 16, /* rightshift */
1434 1, /* size (0 = byte, 1 = short, 2 = long) */
1435 16, /* bitsize */
1436 TRUE, /* pc_relative */
1437 0, /* bitpos */
1438 complain_overflow_dont, /* complain_on_overflow */
1439 ppc_elf_addr16_ha_reloc, /* special_function */
1440 "R_PPC_REL16_HA", /* name */
1441 FALSE, /* partial_inplace */
1442 0, /* src_mask */
1443 0xffff, /* dst_mask */
1444 TRUE), /* pcrel_offset */
1445
25dbc73a
AM		 1446 /* GNU extension to record C++ vtable hierarchy. */
1447 HOWTO (R_PPC_GNU_VTINHERIT, /* type */
1448 0, /* rightshift */
1449 0, /* size (0 = byte, 1 = short, 2 = long) */
1450 0, /* bitsize */
1451 FALSE, /* pc_relative */
1452 0, /* bitpos */
1453 complain_overflow_dont, /* complain_on_overflow */
1454 NULL, /* special_function */
1455 "R_PPC_GNU_VTINHERIT", /* name */
1456 FALSE, /* partial_inplace */
1457 0, /* src_mask */
1458 0, /* dst_mask */
1459 FALSE), /* pcrel_offset */
1460
1461 /* GNU extension to record C++ vtable member usage. */
1462 HOWTO (R_PPC_GNU_VTENTRY, /* type */
1463 0, /* rightshift */
1464 0, /* size (0 = byte, 1 = short, 2 = long) */
1465 0, /* bitsize */
1466 FALSE, /* pc_relative */
1467 0, /* bitpos */
1468 complain_overflow_dont, /* complain_on_overflow */
1469 NULL, /* special_function */
1470 "R_PPC_GNU_VTENTRY", /* name */
7619e7c7
AM		 1471 FALSE, /* partial_inplace */
1472 0, /* src_mask */
25dbc73a 1473 0, /* dst_mask */
7619e7c7
AM		 1474 FALSE), /* pcrel_offset */
1475
25dbc73a
AM		 1476 /* Phony reloc to handle AIX style TOC entries. */
1477 HOWTO (R_PPC_TOC16, /* type */
7619e7c7
AM		 1478 0, /* rightshift */
1479 1, /* size (0 = byte, 1 = short, 2 = long) */
1480 16, /* bitsize */
1481 FALSE, /* pc_relative */
1482 0, /* bitpos */
25dbc73a 1483 complain_overflow_signed, /* complain_on_overflow */
7619e7c7 1484 bfd_elf_generic_reloc, /* special_function */
25dbc73a 1485 "R_PPC_TOC16", /* name */
7619e7c7
AM		 1486 FALSE, /* partial_inplace */
1487 0, /* src_mask */
1488 0xffff, /* dst_mask */
1489 FALSE), /* pcrel_offset */
25dbc73a
AM		 1490};
1491\f
1492/* Initialize the ppc_elf_howto_table, so that linear accesses can be done. */
1493
1494static void
1495ppc_elf_howto_init (void)
1496{
1497 unsigned int i, type;
1498
1499 for (i = 0;
1500 i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]);
1501 i++)
1502 {
1503 type = ppc_elf_howto_raw[i].type;
1504 if (type >= (sizeof (ppc_elf_howto_table)
1505 / sizeof (ppc_elf_howto_table[0])))
1506 abort ();
1507 ppc_elf_howto_table[type] = &ppc_elf_howto_raw[i];
1508 }
1509}
1510
1511static reloc_howto_type *
1512ppc_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1513 bfd_reloc_code_real_type code)
1514{
1515 enum elf_ppc_reloc_type r;
1516
1517 /* Initialize howto table if not already done. */
1518 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1519 ppc_elf_howto_init ();
1520
1521 switch (code)
1522 {
1523 default:
1524 return NULL;
1525
1526 case BFD_RELOC_NONE: r = R_PPC_NONE; break;
1527 case BFD_RELOC_32: r = R_PPC_ADDR32; break;
1528 case BFD_RELOC_PPC_BA26: r = R_PPC_ADDR24; break;
1529 case BFD_RELOC_16: r = R_PPC_ADDR16; break;
1530 case BFD_RELOC_LO16: r = R_PPC_ADDR16_LO; break;
1531 case BFD_RELOC_HI16: r = R_PPC_ADDR16_HI; break;
1532 case BFD_RELOC_HI16_S: r = R_PPC_ADDR16_HA; break;
1533 case BFD_RELOC_PPC_BA16: r = R_PPC_ADDR14; break;
1534 case BFD_RELOC_PPC_BA16_BRTAKEN: r = R_PPC_ADDR14_BRTAKEN; break;
1535 case BFD_RELOC_PPC_BA16_BRNTAKEN: r = R_PPC_ADDR14_BRNTAKEN; break;
1536 case BFD_RELOC_PPC_B26: r = R_PPC_REL24; break;
1537 case BFD_RELOC_PPC_B16: r = R_PPC_REL14; break;
1538 case BFD_RELOC_PPC_B16_BRTAKEN: r = R_PPC_REL14_BRTAKEN; break;
1539 case BFD_RELOC_PPC_B16_BRNTAKEN: r = R_PPC_REL14_BRNTAKEN; break;
1540 case BFD_RELOC_16_GOTOFF: r = R_PPC_GOT16; break;
1541 case BFD_RELOC_LO16_GOTOFF: r = R_PPC_GOT16_LO; break;
1542 case BFD_RELOC_HI16_GOTOFF: r = R_PPC_GOT16_HI; break;
1543 case BFD_RELOC_HI16_S_GOTOFF: r = R_PPC_GOT16_HA; break;
1544 case BFD_RELOC_24_PLT_PCREL: r = R_PPC_PLTREL24; break;
1545 case BFD_RELOC_PPC_COPY: r = R_PPC_COPY; break;
1546 case BFD_RELOC_PPC_GLOB_DAT: r = R_PPC_GLOB_DAT; break;
1547 case BFD_RELOC_PPC_LOCAL24PC: r = R_PPC_LOCAL24PC; break;
1548 case BFD_RELOC_32_PCREL: r = R_PPC_REL32; break;
1549 case BFD_RELOC_32_PLTOFF: r = R_PPC_PLT32; break;
1550 case BFD_RELOC_32_PLT_PCREL: r = R_PPC_PLTREL32; break;
1551 case BFD_RELOC_LO16_PLTOFF: r = R_PPC_PLT16_LO; break;
1552 case BFD_RELOC_HI16_PLTOFF: r = R_PPC_PLT16_HI; break;
1553 case BFD_RELOC_HI16_S_PLTOFF: r = R_PPC_PLT16_HA; break;
1554 case BFD_RELOC_GPREL16: r = R_PPC_SDAREL16; break;
1555 case BFD_RELOC_16_BASEREL: r = R_PPC_SECTOFF; break;
1556 case BFD_RELOC_LO16_BASEREL: r = R_PPC_SECTOFF_LO; break;
1557 case BFD_RELOC_HI16_BASEREL: r = R_PPC_SECTOFF_HI; break;
1558 case BFD_RELOC_HI16_S_BASEREL: r = R_PPC_SECTOFF_HA; break;
1559 case BFD_RELOC_CTOR: r = R_PPC_ADDR32; break;
1560 case BFD_RELOC_PPC_TOC16: r = R_PPC_TOC16; break;
1561 case BFD_RELOC_PPC_TLS: r = R_PPC_TLS; break;
727fc41e
AM		 1562 case BFD_RELOC_PPC_TLSGD: r = R_PPC_TLSGD; break;
1563 case BFD_RELOC_PPC_TLSLD: r = R_PPC_TLSLD; break;
25dbc73a
AM		 1564 case BFD_RELOC_PPC_DTPMOD: r = R_PPC_DTPMOD32; break;
1565 case BFD_RELOC_PPC_TPREL16: r = R_PPC_TPREL16; break;
1566 case BFD_RELOC_PPC_TPREL16_LO: r = R_PPC_TPREL16_LO; break;
1567 case BFD_RELOC_PPC_TPREL16_HI: r = R_PPC_TPREL16_HI; break;
1568 case BFD_RELOC_PPC_TPREL16_HA: r = R_PPC_TPREL16_HA; break;
1569 case BFD_RELOC_PPC_TPREL: r = R_PPC_TPREL32; break;
1570 case BFD_RELOC_PPC_DTPREL16: r = R_PPC_DTPREL16; break;
1571 case BFD_RELOC_PPC_DTPREL16_LO: r = R_PPC_DTPREL16_LO; break;
1572 case BFD_RELOC_PPC_DTPREL16_HI: r = R_PPC_DTPREL16_HI; break;
1573 case BFD_RELOC_PPC_DTPREL16_HA: r = R_PPC_DTPREL16_HA; break;
1574 case BFD_RELOC_PPC_DTPREL: r = R_PPC_DTPREL32; break;
1575 case BFD_RELOC_PPC_GOT_TLSGD16: r = R_PPC_GOT_TLSGD16; break;
1576 case BFD_RELOC_PPC_GOT_TLSGD16_LO: r = R_PPC_GOT_TLSGD16_LO; break;
1577 case BFD_RELOC_PPC_GOT_TLSGD16_HI: r = R_PPC_GOT_TLSGD16_HI; break;
1578 case BFD_RELOC_PPC_GOT_TLSGD16_HA: r = R_PPC_GOT_TLSGD16_HA; break;
1579 case BFD_RELOC_PPC_GOT_TLSLD16: r = R_PPC_GOT_TLSLD16; break;
1580 case BFD_RELOC_PPC_GOT_TLSLD16_LO: r = R_PPC_GOT_TLSLD16_LO; break;
1581 case BFD_RELOC_PPC_GOT_TLSLD16_HI: r = R_PPC_GOT_TLSLD16_HI; break;
1582 case BFD_RELOC_PPC_GOT_TLSLD16_HA: r = R_PPC_GOT_TLSLD16_HA; break;
1583 case BFD_RELOC_PPC_GOT_TPREL16: r = R_PPC_GOT_TPREL16; break;
1584 case BFD_RELOC_PPC_GOT_TPREL16_LO: r = R_PPC_GOT_TPREL16_LO; break;
1585 case BFD_RELOC_PPC_GOT_TPREL16_HI: r = R_PPC_GOT_TPREL16_HI; break;
1586 case BFD_RELOC_PPC_GOT_TPREL16_HA: r = R_PPC_GOT_TPREL16_HA; break;
1587 case BFD_RELOC_PPC_GOT_DTPREL16: r = R_PPC_GOT_DTPREL16; break;
1588 case BFD_RELOC_PPC_GOT_DTPREL16_LO: r = R_PPC_GOT_DTPREL16_LO; break;
1589 case BFD_RELOC_PPC_GOT_DTPREL16_HI: r = R_PPC_GOT_DTPREL16_HI; break;
1590 case BFD_RELOC_PPC_GOT_DTPREL16_HA: r = R_PPC_GOT_DTPREL16_HA; break;
1591 case BFD_RELOC_PPC_EMB_NADDR32: r = R_PPC_EMB_NADDR32; break;
1592 case BFD_RELOC_PPC_EMB_NADDR16: r = R_PPC_EMB_NADDR16; break;
1593 case BFD_RELOC_PPC_EMB_NADDR16_LO: r = R_PPC_EMB_NADDR16_LO; break;
1594 case BFD_RELOC_PPC_EMB_NADDR16_HI: r = R_PPC_EMB_NADDR16_HI; break;
1595 case BFD_RELOC_PPC_EMB_NADDR16_HA: r = R_PPC_EMB_NADDR16_HA; break;
1596 case BFD_RELOC_PPC_EMB_SDAI16: r = R_PPC_EMB_SDAI16; break;
1597 case BFD_RELOC_PPC_EMB_SDA2I16: r = R_PPC_EMB_SDA2I16; break;
1598 case BFD_RELOC_PPC_EMB_SDA2REL: r = R_PPC_EMB_SDA2REL; break;
1599 case BFD_RELOC_PPC_EMB_SDA21: r = R_PPC_EMB_SDA21; break;
1600 case BFD_RELOC_PPC_EMB_MRKREF: r = R_PPC_EMB_MRKREF; break;
1601 case BFD_RELOC_PPC_EMB_RELSEC16: r = R_PPC_EMB_RELSEC16; break;
1602 case BFD_RELOC_PPC_EMB_RELST_LO: r = R_PPC_EMB_RELST_LO; break;
1603 case BFD_RELOC_PPC_EMB_RELST_HI: r = R_PPC_EMB_RELST_HI; break;
1604 case BFD_RELOC_PPC_EMB_RELST_HA: r = R_PPC_EMB_RELST_HA; break;
1605 case BFD_RELOC_PPC_EMB_BIT_FLD: r = R_PPC_EMB_BIT_FLD; break;
1606 case BFD_RELOC_PPC_EMB_RELSDA: r = R_PPC_EMB_RELSDA; break;
d7128ce4
AM		 1607 case BFD_RELOC_16_PCREL: r = R_PPC_REL16; break;
1608 case BFD_RELOC_LO16_PCREL: r = R_PPC_REL16_LO; break;
1609 case BFD_RELOC_HI16_PCREL: r = R_PPC_REL16_HI; break;
1610 case BFD_RELOC_HI16_S_PCREL: r = R_PPC_REL16_HA; break;
25dbc73a
AM		 1611 case BFD_RELOC_VTABLE_INHERIT: r = R_PPC_GNU_VTINHERIT; break;
1612 case BFD_RELOC_VTABLE_ENTRY: r = R_PPC_GNU_VTENTRY; break;
1613 }
1614
1615 return ppc_elf_howto_table[r];
1616};
1617
157090f7
AM		 1618static reloc_howto_type *
1619ppc_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1620 const char *r_name)
1621{
1622 unsigned int i;
1623
1624 for (i = 0;
1625 i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]);
1626 i++)
1627 if (ppc_elf_howto_raw[i].name != NULL
1628 && strcasecmp (ppc_elf_howto_raw[i].name, r_name) == 0)
1629 return &ppc_elf_howto_raw[i];
1630
1631 return NULL;
1632}
1633
25dbc73a
AM		 1634/* Set the howto pointer for a PowerPC ELF reloc. */
1635
1636static void
1637ppc_elf_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
1638 arelent *cache_ptr,
1639 Elf_Internal_Rela *dst)
1640{
1641 /* Initialize howto table if not already done. */
1642 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1643 ppc_elf_howto_init ();
1644
1645 BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max);
1646 cache_ptr->howto = ppc_elf_howto_table[ELF32_R_TYPE (dst->r_info)];
375de94a
AM		 1647
1648 /* Just because the above assert didn't trigger doesn't mean that
1649 ELF32_R_TYPE (dst->r_info) is necessarily a valid relocation. */
1650 if (!cache_ptr->howto)
1651 {
1652 (*_bfd_error_handler) (_("%B: invalid relocation type %d"),
1653 abfd, ELF32_R_TYPE (dst->r_info));
1654 bfd_set_error (bfd_error_bad_value);
1655
1656 cache_ptr->howto = ppc_elf_howto_table[R_PPC_NONE];
1657 }
25dbc73a
AM		 1658}
1659
d7128ce4 1660/* Handle the R_PPC_ADDR16_HA and R_PPC_REL16_HA relocs. */
25dbc73a
AM		 1661
1662static bfd_reloc_status_type
1663ppc_elf_addr16_ha_reloc (bfd *abfd ATTRIBUTE_UNUSED,
1664 arelent *reloc_entry,
1665 asymbol *symbol,
1666 void *data ATTRIBUTE_UNUSED,
1667 asection *input_section,
1668 bfd *output_bfd,
1669 char **error_message ATTRIBUTE_UNUSED)
1670{
1671 bfd_vma relocation;
1672
1673 if (output_bfd != NULL)
1674 {
1675 reloc_entry->address += input_section->output_offset;
1676 return bfd_reloc_ok;
1677 }
1678
1679 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
1680 return bfd_reloc_outofrange;
1681
1682 if (bfd_is_com_section (symbol->section))
1683 relocation = 0;
1684 else
1685 relocation = symbol->value;
1686
1687 relocation += symbol->section->output_section->vma;
1688 relocation += symbol->section->output_offset;
1689 relocation += reloc_entry->addend;
d7128ce4
AM		 1690 if (reloc_entry->howto->pc_relative)
1691 relocation -= reloc_entry->address;
25dbc73a
AM		 1692
1693 reloc_entry->addend += (relocation & 0x8000) << 1;
1694
1695 return bfd_reloc_continue;
1696}
1697
1698static bfd_reloc_status_type
1699ppc_elf_unhandled_reloc (bfd *abfd,
1700 arelent *reloc_entry,
1701 asymbol *symbol,
1702 void *data,
1703 asection *input_section,
1704 bfd *output_bfd,
1705 char **error_message)
1706{
1707 /* If this is a relocatable link (output_bfd test tells us), just
1708 call the generic function. Any adjustment will be done at final
1709 link time. */
1710 if (output_bfd != NULL)
1711 return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1712 input_section, output_bfd, error_message);
1713
1714 if (error_message != NULL)
1715 {
1716 static char buf[60];
1717 sprintf (buf, _("generic linker can't handle %s"),
1718 reloc_entry->howto->name);
1719 *error_message = buf;
1720 }
1721 return bfd_reloc_dangerous;
1722}
1723\f
1724/* Sections created by the linker. */
1725
1726typedef struct elf_linker_section
1727{
c9a2f333 1728 /* Pointer to the bfd section. */
25dbc73a 1729 asection *section;
c9a2f333
AM		 1730 /* Section name. */
1731 const char *name;
1732 /* Associated bss section name. */
1733 const char *bss_name;
1734 /* Associated symbol name. */
1735 const char *sym_name;
046183de
AM		 1736 /* Associated symbol. */
1737 struct elf_link_hash_entry *sym;
25dbc73a
AM		 1738} elf_linker_section_t;
1739
1740/* Linked list of allocated pointer entries. This hangs off of the
1741 symbol lists, and provides allows us to return different pointers,
1742 based on different addend's. */
1743
1744typedef struct elf_linker_section_pointers
1745{
1746 /* next allocated pointer for this symbol */
1747 struct elf_linker_section_pointers *next;
1748 /* offset of pointer from beginning of section */
1749 bfd_vma offset;
1750 /* addend used */
1751 bfd_vma addend;
1752 /* which linker section this is */
1753 elf_linker_section_t *lsect;
25dbc73a
AM		 1754} elf_linker_section_pointers_t;
1755
1756struct ppc_elf_obj_tdata
1757{
1758 struct elf_obj_tdata elf;
1759
1760 /* A mapping from local symbols to offsets into the various linker
1761 sections added. This is index by the symbol index. */
1762 elf_linker_section_pointers_t **linker_section_pointers;
016687f8
AM		 1763
1764 /* Flags used to auto-detect plt type. */
1765 unsigned int makes_plt_call : 1;
1766 unsigned int has_rel16 : 1;
25dbc73a
AM		 1767};
1768
1769#define ppc_elf_tdata(bfd) \
1770 ((struct ppc_elf_obj_tdata *) (bfd)->tdata.any)
7619e7c7 1771
25dbc73a
AM		 1772#define elf_local_ptr_offsets(bfd) \
1773 (ppc_elf_tdata (bfd)->linker_section_pointers)
7619e7c7 1774
0c8d6e5c
AM		 1775#define is_ppc_elf(bfd) \
1776 (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
1777 && elf_object_id (bfd) == PPC32_ELF_TDATA)
1778
25dbc73a 1779/* Override the generic function because we store some extras. */
7619e7c7 1780
25dbc73a
AM		 1781static bfd_boolean
1782ppc_elf_mkobject (bfd *abfd)
1783{
0ffa91dd
NC		 1784 return bfd_elf_allocate_object (abfd, sizeof (struct ppc_elf_obj_tdata),
1785 PPC32_ELF_TDATA);
25dbc73a 1786}
7619e7c7 1787
25dbc73a
AM		 1788/* Fix bad default arch selected for a 32 bit input bfd when the
1789 default is 64 bit. */
7619e7c7 1790
25dbc73a
AM		 1791static bfd_boolean
1792ppc_elf_object_p (bfd *abfd)
1793{
1794 if (abfd->arch_info->the_default && abfd->arch_info->bits_per_word == 64)
1795 {
1796 Elf_Internal_Ehdr *i_ehdr = elf_elfheader (abfd);
7619e7c7 1797
25dbc73a
AM		 1798 if (i_ehdr->e_ident[EI_CLASS] == ELFCLASS32)
1799 {
1800 /* Relies on arch after 64 bit default being 32 bit default. */
1801 abfd->arch_info = abfd->arch_info->next;
1802 BFD_ASSERT (abfd->arch_info->bits_per_word == 32);
1803 }
1804 }
1805 return TRUE;
1806}
7619e7c7 1807
25dbc73a 1808/* Function to set whether a module needs the -mrelocatable bit set. */
7619e7c7 1809
25dbc73a
AM		 1810static bfd_boolean
1811ppc_elf_set_private_flags (bfd *abfd, flagword flags)
1812{
1813 BFD_ASSERT (!elf_flags_init (abfd)
1814 || elf_elfheader (abfd)->e_flags == flags);
7619e7c7 1815
25dbc73a
AM		 1816 elf_elfheader (abfd)->e_flags = flags;
1817 elf_flags_init (abfd) = TRUE;
1818 return TRUE;
1819}
1820
25dbc73a 1821/* Support for core dump NOTE sections. */
deaaf2f3 1822
b34976b6 1823static bfd_boolean
25dbc73a 1824ppc_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
252b5132 1825{
25dbc73a
AM		 1826 int offset;
1827 unsigned int size;
252b5132 1828
25dbc73a
AM		 1829 switch (note->descsz)
1830 {
1831 default:
1832 return FALSE;
252b5132 1833
25dbc73a
AM		 1834 case 268: /* Linux/PPC. */
1835 /* pr_cursig */
1836 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
deaaf2f3 1837
25dbc73a
AM		 1838 /* pr_pid */
1839 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
9abc968f 1840
25dbc73a
AM		 1841 /* pr_reg */
1842 offset = 72;
1843 size = 192;
deaaf2f3 1844
25dbc73a
AM		 1845 break;
1846 }
deaaf2f3 1847
25dbc73a
AM		 1848 /* Make a ".reg/999" section. */
1849 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
1850 size, note->descpos + offset);
1851}
252b5132 1852
25dbc73a
AM		 1853static bfd_boolean
1854ppc_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
1855{
1856 switch (note->descsz)
deaaf2f3 1857 {
25dbc73a
AM		 1858 default:
1859 return FALSE;
deaaf2f3 1860
25dbc73a
AM		 1861 case 128: /* Linux/PPC elf_prpsinfo. */
1862 elf_tdata (abfd)->core_program
1863 = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
1864 elf_tdata (abfd)->core_command
1865 = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
1866 }
9abc968f 1867
25dbc73a
AM		 1868 /* Note that for some reason, a spurious space is tacked
1869 onto the end of the args in some (at least one anyway)
1870 implementations, so strip it off if it exists. */
70bccea4 1871
25dbc73a
AM		 1872 {
1873 char *command = elf_tdata (abfd)->core_command;
1874 int n = strlen (command);
70bccea4 1875
25dbc73a
AM		 1876 if (0 < n && command[n - 1] == ' ')
1877 command[n - 1] = '\0';
1878 }
deaaf2f3 1879
25dbc73a
AM		 1880 return TRUE;
1881}
deaaf2f3 1882
183e98be
AM		 1883static char *
1884ppc_elf_write_core_note (bfd *abfd, char *buf, int *bufsiz, int note_type, ...)
1885{
1886 switch (note_type)
1887 {
1888 default:
1889 return NULL;
1890
1891 case NT_PRPSINFO:
1892 {
1893 char data[128];
1894 va_list ap;
1895
1896 va_start (ap, note_type);
1897 memset (data, 0, 32);
1898 strncpy (data + 32, va_arg (ap, const char *), 16);
1899 strncpy (data + 48, va_arg (ap, const char *), 80);
1900 va_end (ap);
1901 return elfcore_write_note (abfd, buf, bufsiz,
1902 "CORE", note_type, data, sizeof (data));
1903 }
1904
1905 case NT_PRSTATUS:
1906 {
1907 char data[268];
1908 va_list ap;
1909 long pid;
1910 int cursig;
1911 const void *greg;
1912
1913 va_start (ap, note_type);
1914 memset (data, 0, 72);
1915 pid = va_arg (ap, long);
1916 bfd_put_32 (abfd, pid, data + 24);
1917 cursig = va_arg (ap, int);
1918 bfd_put_16 (abfd, cursig, data + 12);
1919 greg = va_arg (ap, const void *);
1920 memcpy (data + 72, greg, 192);
1921 memset (data + 264, 0, 4);
1922 va_end (ap);
1923 return elfcore_write_note (abfd, buf, bufsiz,
1924 "CORE", note_type, data, sizeof (data));
1925 }
1926 }
1927}
1928
25dbc73a
AM		 1929/* Return address for Ith PLT stub in section PLT, for relocation REL
1930 or (bfd_vma) -1 if it should not be included. */
deaaf2f3 1931
25dbc73a
AM		 1932static bfd_vma
1933ppc_elf_plt_sym_val (bfd_vma i ATTRIBUTE_UNUSED,
1934 const asection *plt ATTRIBUTE_UNUSED,
1935 const arelent *rel)
1936{
1937 return rel->address;
1938}
deaaf2f3 1939
25dbc73a 1940/* Handle a PowerPC specific section when reading an object file. This
6dc132d9
L		 1941 is called when bfd_section_from_shdr finds a section with an unknown
1942 type. */
deaaf2f3 1943
25dbc73a 1944static bfd_boolean
6dc132d9
L		 1945ppc_elf_section_from_shdr (bfd *abfd,
1946 Elf_Internal_Shdr *hdr,
1947 const char *name,
1948 int shindex)
25dbc73a
AM		 1949{
1950 asection *newsect;
1951 flagword flags;
d1c6de6f 1952
6dc132d9 1953 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name, shindex))
25dbc73a 1954 return FALSE;
deaaf2f3 1955
25dbc73a
AM		 1956 newsect = hdr->bfd_section;
1957 flags = bfd_get_section_flags (abfd, newsect);
1958 if (hdr->sh_flags & SHF_EXCLUDE)
1959 flags |= SEC_EXCLUDE;
9abc968f 1960
25dbc73a
AM		 1961 if (hdr->sh_type == SHT_ORDERED)
1962 flags |= SEC_SORT_ENTRIES;
d1c6de6f 1963
25dbc73a
AM		 1964 bfd_set_section_flags (abfd, newsect, flags);
1965 return TRUE;
1966}
1967
1968/* Set up any other section flags and such that may be necessary. */
1969
1970static bfd_boolean
1971ppc_elf_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
1972 Elf_Internal_Shdr *shdr,
1973 asection *asect)
1974{
d30e8e7c 1975 if ((asect->flags & (SEC_GROUP | SEC_EXCLUDE)) == SEC_EXCLUDE)
25dbc73a
AM		 1976 shdr->sh_flags |= SHF_EXCLUDE;
1977
1978 if ((asect->flags & SEC_SORT_ENTRIES) != 0)
1979 shdr->sh_type = SHT_ORDERED;
1980
1981 return TRUE;
1982}
1983
1984/* If we have .sbss2 or .PPC.EMB.sbss0 output sections, we
1985 need to bump up the number of section headers. */
1986
1987static int
a6b96beb
AM		 1988ppc_elf_additional_program_headers (bfd *abfd,
1989 struct bfd_link_info *info ATTRIBUTE_UNUSED)
25dbc73a
AM		 1990{
1991 asection *s;
1992 int ret = 0;
d1c6de6f 1993
25dbc73a
AM		 1994 s = bfd_get_section_by_name (abfd, ".sbss2");
1995 if (s != NULL && (s->flags & SEC_ALLOC) != 0)
1996 ++ret;
d1c6de6f 1997
25dbc73a
AM		 1998 s = bfd_get_section_by_name (abfd, ".PPC.EMB.sbss0");
1999 if (s != NULL && (s->flags & SEC_ALLOC) != 0)
2000 ++ret;
deaaf2f3 2001
25dbc73a
AM		 2002 return ret;
2003}
deaaf2f3 2004
25dbc73a
AM		 2005/* Add extra PPC sections -- Note, for now, make .sbss2 and
2006 .PPC.EMB.sbss0 a normal section, and not a bss section so
2007 that the linker doesn't crater when trying to make more than
2008 2 sections. */
e656e369 2009
b35d266b 2010static const struct bfd_elf_special_section ppc_elf_special_sections[] =
7f4d3958 2011{
0112cd26
NC		 2012 { STRING_COMMA_LEN (".plt"), 0, SHT_NOBITS, SHF_ALLOC + SHF_EXECINSTR },
2013 { STRING_COMMA_LEN (".sbss"), -2, SHT_NOBITS, SHF_ALLOC + SHF_WRITE },
2014 { STRING_COMMA_LEN (".sbss2"), -2, SHT_PROGBITS, SHF_ALLOC },
2015 { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
2016 { STRING_COMMA_LEN (".sdata2"), -2, SHT_PROGBITS, SHF_ALLOC },
2017 { STRING_COMMA_LEN (".tags"), 0, SHT_ORDERED, SHF_ALLOC },
2018 { STRING_COMMA_LEN (".PPC.EMB.apuinfo"), 0, SHT_NOTE, 0 },
2019 { STRING_COMMA_LEN (".PPC.EMB.sbss0"), 0, SHT_PROGBITS, SHF_ALLOC },
2020 { STRING_COMMA_LEN (".PPC.EMB.sdata0"), 0, SHT_PROGBITS, SHF_ALLOC },
2021 { NULL, 0, 0, 0, 0 }
7f4d3958
L		 2022};
2023
551b43fd
AM		 2024/* This is what we want for new plt/got. */
2025static struct bfd_elf_special_section ppc_alt_plt =
0112cd26 2026 { STRING_COMMA_LEN (".plt"), 0, SHT_PROGBITS, SHF_ALLOC };
551b43fd
AM		 2027
2028static const struct bfd_elf_special_section *
2029ppc_elf_get_sec_type_attr (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
7f4d3958 2030{
b35d266b 2031 const struct bfd_elf_special_section *ssect;
551b43fd
AM		 2032
2033 /* See if this is one of the special sections. */
2034 if (sec->name == NULL)
2035 return NULL;
2036
2037 ssect = _bfd_elf_get_special_section (sec->name, ppc_elf_special_sections,
2038 sec->use_rela_p);
2039 if (ssect != NULL)
2040 {
2041 if (ssect == ppc_elf_special_sections && (sec->flags & SEC_LOAD) != 0)
2042 ssect = &ppc_alt_plt;
2043 return ssect;
2044 }
2045
2046 return _bfd_elf_get_sec_type_attr (abfd, sec);
2047}
25dbc73a
AM		 2048\f
2049/* Very simple linked list structure for recording apuinfo values. */
2050typedef struct apuinfo_list
2051{
2052 struct apuinfo_list *next;
2053 unsigned long value;
2054}
2055apuinfo_list;
e656e369 2056
25dbc73a 2057static apuinfo_list *head;
deaaf2f3 2058
deaaf2f3 2059
25dbc73a
AM		 2060static void
2061apuinfo_list_init (void)
2062{
2063 head = NULL;
2064}
9abc968f 2065
25dbc73a
AM		 2066static void
2067apuinfo_list_add (unsigned long value)
2068{
2069 apuinfo_list *entry = head;
deaaf2f3 2070
25dbc73a
AM		 2071 while (entry != NULL)
2072 {
2073 if (entry->value == value)
2074 return;
2075 entry = entry->next;
2076 }
b4a38de6 2077
25dbc73a
AM		 2078 entry = bfd_malloc (sizeof (* entry));
2079 if (entry == NULL)
2080 return;
e656e369 2081
25dbc73a
AM		 2082 entry->value = value;
2083 entry->next = head;
2084 head = entry;
2085}
9abc968f 2086
25dbc73a
AM		 2087static unsigned
2088apuinfo_list_length (void)
2089{
2090 apuinfo_list *entry;
2091 unsigned long count;
9abc968f 2092
25dbc73a
AM		 2093 for (entry = head, count = 0;
2094 entry;
2095 entry = entry->next)
2096 ++ count;
e656e369 2097
25dbc73a
AM		 2098 return count;
2099}
eea6121a 2100
25dbc73a
AM		 2101static inline unsigned long
2102apuinfo_list_element (unsigned long number)
2103{
2104 apuinfo_list * entry;
e656e369 2105
25dbc73a
AM		 2106 for (entry = head;
2107 entry && number --;
2108 entry = entry->next)
2109 ;
252b5132 2110
25dbc73a
AM		 2111 return entry ? entry->value : 0;
2112}
2113
2114static void
2115apuinfo_list_finish (void)
2116{
2117 apuinfo_list *entry;
2118
2119 for (entry = head; entry;)
252b5132 2120 {
25dbc73a
AM		 2121 apuinfo_list *next = entry->next;
2122 free (entry);
2123 entry = next;
2124 }
9abc968f 2125
25dbc73a
AM		 2126 head = NULL;
2127}
9abc968f 2128
25dbc73a
AM		 2129#define APUINFO_SECTION_NAME ".PPC.EMB.apuinfo"
2130#define APUINFO_LABEL "APUinfo"
9abc968f 2131
25dbc73a
AM		 2132/* Scan the input BFDs and create a linked list of
2133 the APUinfo values that will need to be emitted. */
9abc968f 2134
25dbc73a
AM		 2135static void
2136ppc_elf_begin_write_processing (bfd *abfd, struct bfd_link_info *link_info)
2137{
2138 bfd *ibfd;
2139 asection *asec;
2140 char *buffer;
2141 unsigned num_input_sections;
2142 bfd_size_type output_section_size;
2143 unsigned i;
2144 unsigned num_entries;
2145 unsigned long offset;
2146 unsigned long length;
2147 const char *error_message = NULL;
9abc968f 2148
25dbc73a
AM		 2149 if (link_info == NULL)
2150 return;
9abc968f 2151
25dbc73a
AM		 2152 /* Scan the input bfds, looking for apuinfo sections. */
2153 num_input_sections = 0;
2154 output_section_size = 0;
252b5132 2155
25dbc73a 2156 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
252b5132 2157 {
25dbc73a
AM		 2158 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
2159 if (asec)
252b5132 2160 {
25dbc73a
AM		 2161 ++ num_input_sections;
2162 output_section_size += asec->size;
252b5132 2163 }
252b5132
RH		 2164 }
2165
25dbc73a
AM		 2166 /* We need at least one input sections
2167 in order to make merging worthwhile. */
2168 if (num_input_sections < 1)
2169 return;
deaaf2f3 2170
25dbc73a
AM		 2171 /* Just make sure that the output section exists as well. */
2172 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2173 if (asec == NULL)
2174 return;
252b5132 2175
25dbc73a
AM		 2176 /* Allocate a buffer for the contents of the input sections. */
2177 buffer = bfd_malloc (output_section_size);
2178 if (buffer == NULL)
2179 return;
252b5132 2180
25dbc73a
AM		 2181 offset = 0;
2182 apuinfo_list_init ();
252b5132 2183
25dbc73a
AM		 2184 /* Read in the input sections contents. */
2185 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
252b5132 2186 {
25dbc73a
AM		 2187 unsigned long datum;
2188 char *ptr;
252b5132 2189
25dbc73a
AM		 2190 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
2191 if (asec == NULL)
2192 continue;
252b5132 2193
25dbc73a
AM		 2194 length = asec->size;
2195 if (length < 24)
2196 {
2197 error_message = _("corrupt or empty %s section in %B");
2198 goto fail;
2199 }
252b5132 2200
25dbc73a
AM		 2201 if (bfd_seek (ibfd, asec->filepos, SEEK_SET) != 0
2202 || (bfd_bread (buffer + offset, length, ibfd) != length))
2203 {
2204 error_message = _("unable to read in %s section from %B");
2205 goto fail;
2206 }
252b5132 2207
25dbc73a
AM		 2208 /* Process the contents of the section. */
2209 ptr = buffer + offset;
2210 error_message = _("corrupt %s section in %B");
252b5132 2211
25dbc73a
AM		 2212 /* Verify the contents of the header. Note - we have to
2213 extract the values this way in order to allow for a
2214 host whose endian-ness is different from the target. */
2215 datum = bfd_get_32 (ibfd, ptr);
2216 if (datum != sizeof APUINFO_LABEL)
2217 goto fail;
252b5132 2218
25dbc73a
AM		 2219 datum = bfd_get_32 (ibfd, ptr + 8);
2220 if (datum != 0x2)
2221 goto fail;
252b5132 2222
25dbc73a
AM		 2223 if (strcmp (ptr + 12, APUINFO_LABEL) != 0)
2224 goto fail;
252b5132 2225
25dbc73a
AM		 2226 /* Get the number of bytes used for apuinfo entries. */
2227 datum = bfd_get_32 (ibfd, ptr + 4);
2228 if (datum + 20 != length)
2229 goto fail;
2230
2231 /* Make sure that we do not run off the end of the section. */
2232 if (offset + length > output_section_size)
2233 goto fail;
2234
2235 /* Scan the apuinfo section, building a list of apuinfo numbers. */
2236 for (i = 0; i < datum; i += 4)
2237 apuinfo_list_add (bfd_get_32 (ibfd, ptr + 20 + i));
2238
2239 /* Update the offset. */
2240 offset += length;
252b5132
RH		 2241 }
2242
25dbc73a 2243 error_message = NULL;
252b5132 2244
25dbc73a
AM		 2245 /* Compute the size of the output section. */
2246 num_entries = apuinfo_list_length ();
2247 output_section_size = 20 + num_entries * 4;
252b5132 2248
25dbc73a
AM		 2249 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2250
2251 if (! bfd_set_section_size (abfd, asec, output_section_size))
2252 ibfd = abfd,
2253 error_message = _("warning: unable to set size of %s section in %B");
2254
2255 fail:
2256 free (buffer);
2257
2258 if (error_message)
2259 (*_bfd_error_handler) (error_message, ibfd, APUINFO_SECTION_NAME);
2260}
252b5132 2261
25dbc73a
AM		 2262/* Prevent the output section from accumulating the input sections'
2263 contents. We have already stored this in our linked list structure. */
252b5132 2264
25dbc73a
AM		 2265static bfd_boolean
2266ppc_elf_write_section (bfd *abfd ATTRIBUTE_UNUSED,
c7b8f16e 2267 struct bfd_link_info *link_info ATTRIBUTE_UNUSED,
25dbc73a
AM		 2268 asection *asec,
2269 bfd_byte *contents ATTRIBUTE_UNUSED)
2270{
2271 return (apuinfo_list_length ()
2272 && strcmp (asec->name, APUINFO_SECTION_NAME) == 0);
252b5132
RH		 2273}
2274
25dbc73a
AM		 2275/* Finally we can generate the output section. */
2276
2277static void
2278ppc_elf_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
7619e7c7 2279{
25dbc73a
AM		 2280 bfd_byte *buffer;
2281 asection *asec;
2282 unsigned i;
2283 unsigned num_entries;
2284 bfd_size_type length;
7619e7c7 2285
25dbc73a
AM		 2286 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
2287 if (asec == NULL)
2288 return;
2289
2290 if (apuinfo_list_length () == 0)
2291 return;
2292
2293 length = asec->size;
2294 if (length < 20)
2295 return;
2296
2297 buffer = bfd_malloc (length);
2298 if (buffer == NULL)
7619e7c7 2299 {
25dbc73a
AM		 2300 (*_bfd_error_handler)
2301 (_("failed to allocate space for new APUinfo section."));
2302 return;
7619e7c7 2303 }
7619e7c7 2304
25dbc73a
AM		 2305 /* Create the apuinfo header. */
2306 num_entries = apuinfo_list_length ();
2307 bfd_put_32 (abfd, sizeof APUINFO_LABEL, buffer);
2308 bfd_put_32 (abfd, num_entries * 4, buffer + 4);
2309 bfd_put_32 (abfd, 0x2, buffer + 8);
2310 strcpy ((char *) buffer + 12, APUINFO_LABEL);
feee612b 2311
25dbc73a
AM		 2312 length = 20;
2313 for (i = 0; i < num_entries; i++)
feee612b 2314 {
25dbc73a
AM		 2315 bfd_put_32 (abfd, apuinfo_list_element (i), buffer + length);
2316 length += 4;
feee612b 2317 }
feee612b 2318
25dbc73a
AM		 2319 if (length != asec->size)
2320 (*_bfd_error_handler) (_("failed to compute new APUinfo section."));
252b5132 2321
25dbc73a
AM		 2322 if (! bfd_set_section_contents (abfd, asec, buffer, (file_ptr) 0, length))
2323 (*_bfd_error_handler) (_("failed to install new APUinfo section."));
252b5132 2324
25dbc73a
AM		 2325 free (buffer);
2326
2327 apuinfo_list_finish ();
252b5132 2328}
25dbc73a 2329\f
7382d32a
AM		 2330static bfd_boolean
2331is_pic_glink_stub (bfd *abfd, asection *glink, bfd_vma off)
2332{
2333 bfd_byte buf[16];
2334 unsigned int insn;
2335
2336 if (!bfd_get_section_contents (abfd, glink, buf, off, 16))
2337 return FALSE;
2338
2339 insn = bfd_get_32 (abfd, buf);
2340 if ((insn & 0xffff0000) == LWZ_11_30
2341 && bfd_get_32 (abfd, buf + 4) == MTCTR_11
2342 && bfd_get_32 (abfd, buf + 8) == BCTR)
2343 return TRUE;
2344
2345 if ((insn & 0xffff0000) == ADDIS_11_30
2346 && (bfd_get_32 (abfd, buf + 4) & 0xffff0000) == LWZ_11_11
2347 && bfd_get_32 (abfd, buf + 8) == MTCTR_11
2348 && bfd_get_32 (abfd, buf + 12) == BCTR)
2349 return TRUE;
2350 return FALSE;
2351}
2352
468392fb
AM		 2353static bfd_boolean
2354section_covers_vma (bfd *abfd ATTRIBUTE_UNUSED, asection *section, void *ptr)
2355{
2356 bfd_vma vma = *(bfd_vma *) ptr;
2357 return ((section->flags & SEC_ALLOC) != 0
2358 && section->vma <= vma
2359 && vma < section->vma + section->size);
2360}
2361
2362static long
2363ppc_elf_get_synthetic_symtab (bfd *abfd, long symcount, asymbol **syms,
2364 long dynsymcount, asymbol **dynsyms,
2365 asymbol **ret)
2366{
2367 bfd_boolean (*slurp_relocs) (bfd *, asection *, asymbol **, bfd_boolean);
2368 asection *plt, *relplt, *dynamic, *glink;
2369 bfd_vma glink_vma = 0;
2370 bfd_vma resolv_vma = 0;
2371 bfd_vma stub_vma;
2372 asymbol *s;
2373 arelent *p;
2374 long count, i;
2375 size_t size;
2376 char *names;
2377 bfd_byte buf[4];
2378
2379 *ret = NULL;
2380
2381 if ((abfd->flags & (DYNAMIC | EXEC_P)) == 0)
2382 return 0;
2383
2384 if (dynsymcount <= 0)
2385 return 0;
2386
2387 relplt = bfd_get_section_by_name (abfd, ".rela.plt");
2388 if (relplt == NULL)
2389 return 0;
2390
2391 plt = bfd_get_section_by_name (abfd, ".plt");
2392 if (plt == NULL)
2393 return 0;
2394
2395 /* Call common code to handle old-style executable PLTs. */
2396 if (elf_section_flags (plt) & SHF_EXECINSTR)
2397 return _bfd_elf_get_synthetic_symtab (abfd, symcount, syms,
2398 dynsymcount, dynsyms, ret);
2399
2400 /* If this object was prelinked, the prelinker stored the address
2401 of .glink at got[1]. If it wasn't prelinked, got[1] will be zero. */
2402 dynamic = bfd_get_section_by_name (abfd, ".dynamic");
2403 if (dynamic != NULL)
2404 {
2405 bfd_byte *dynbuf, *extdyn, *extdynend;
2406 size_t extdynsize;
2407 void (*swap_dyn_in) (bfd *, const void *, Elf_Internal_Dyn *);
2408
2409 if (!bfd_malloc_and_get_section (abfd, dynamic, &dynbuf))
2410 return -1;
2411
2412 extdynsize = get_elf_backend_data (abfd)->s->sizeof_dyn;
2413 swap_dyn_in = get_elf_backend_data (abfd)->s->swap_dyn_in;
2414
2415 extdyn = dynbuf;
2416 extdynend = extdyn + dynamic->size;
2417 for (; extdyn < extdynend; extdyn += extdynsize)
2418 {
2419 Elf_Internal_Dyn dyn;
2420 (*swap_dyn_in) (abfd, extdyn, &dyn);
2421
2422 if (dyn.d_tag == DT_NULL)
2423 break;
2424
2425 if (dyn.d_tag == DT_PPC_GOT)
2426 {
2427 unsigned int g_o_t = dyn.d_un.d_val;
2428 asection *got = bfd_get_section_by_name (abfd, ".got");
2429 if (got != NULL
2430 && bfd_get_section_contents (abfd, got, buf,
2431 g_o_t - got->vma + 4, 4))
2432 glink_vma = bfd_get_32 (abfd, buf);
2433 break;
2434 }
2435 }
2436 free (dynbuf);
2437 }
2438
2439 /* Otherwise we read the first plt entry. */
2440 if (glink_vma == 0)
2441 {
2442 if (bfd_get_section_contents (abfd, plt, buf, 0, 4))
2443 glink_vma = bfd_get_32 (abfd, buf);
2444 }
2445
2446 if (glink_vma == 0)
2447 return 0;
2448
2449 /* The .glink section usually does not survive the final
2450 link; search for the section (usually .text) where the
2451 glink stubs now reside. */
2452 glink = bfd_sections_find_if (abfd, section_covers_vma, &glink_vma);
2453 if (glink == NULL)
2454 return 0;
2455
2456 /* Determine glink PLT resolver by reading the relative branch
2457 from the first glink stub. */
2458 if (bfd_get_section_contents (abfd, glink, buf,
2459 glink_vma - glink->vma, 4))
2460 {
2461 unsigned int insn = bfd_get_32 (abfd, buf);
2462
2463 /* The first glink stub may either branch to the resolver ... */
2464 insn ^= B;
2465 if ((insn & ~0x3fffffc) == 0)
2466 resolv_vma = glink_vma + (insn ^ 0x2000000) - 0x2000000;
2467
2468 /* ... or fall through a bunch of NOPs. */
2469 else if ((insn ^ B ^ NOP) == 0)
2470 for (i = 4;
2471 bfd_get_section_contents (abfd, glink, buf,
2472 glink_vma - glink->vma + i, 4);
2473 i += 4)
2474 if (bfd_get_32 (abfd, buf) != NOP)
2475 {
2476 resolv_vma = glink_vma + i;
2477 break;
2478 }
2479 }
2480
7382d32a
AM		 2481 count = relplt->size / sizeof (Elf32_External_Rela);
2482 stub_vma = glink_vma - (bfd_vma) count * 16;
2483 /* If the stubs are those for -shared/-pie then we might have
2484 multiple stubs for each plt entry. If that is the case then
2485 there is no way to associate stubs with their plt entries short
2486 of figuring out the GOT pointer value used in the stub. */
2487 if (!bfd_get_section_contents (abfd, glink, buf,
2488 stub_vma - glink->vma, 4)
2489 || ((bfd_get_32 (abfd, buf) & 0xffff0000) != LIS_11
2490 && is_pic_glink_stub (abfd, glink, stub_vma - glink->vma - 16)))
2491 return 0;
2492
468392fb
AM		 2493 slurp_relocs = get_elf_backend_data (abfd)->s->slurp_reloc_table;
2494 if (! (*slurp_relocs) (abfd, relplt, dynsyms, TRUE))
2495 return -1;
2496
468392fb
AM		 2497 size = count * sizeof (asymbol);
2498 p = relplt->relocation;
2499 for (i = 0; i < count; i++, p++)
2500 size += strlen ((*p->sym_ptr_ptr)->name) + sizeof ("@plt");
2501
2502 size += sizeof (asymbol) + sizeof ("__glink");
2503
2504 if (resolv_vma)
2505 size += sizeof (asymbol) + sizeof ("__glink_PLTresolve");
2506
2507 s = *ret = bfd_malloc (size);
2508 if (s == NULL)
2509 return -1;
2510
2511 names = (char *) (s + count + 1 + (resolv_vma != 0));
2512 p = relplt->relocation;
2513 for (i = 0; i < count; i++, p++)
2514 {
2515 size_t len;
2516
2517 *s = **p->sym_ptr_ptr;
2518 /* Undefined syms won't have BSF_LOCAL or BSF_GLOBAL set. Since
2519 we are defining a symbol, ensure one of them is set. */
2520 if ((s->flags & BSF_LOCAL) == 0)
2521 s->flags |= BSF_GLOBAL;
6ba2a415 2522 s->flags |= BSF_SYNTHETIC;
468392fb
AM		 2523 s->section = glink;
2524 s->value = stub_vma - glink->vma;
2525 s->name = names;
2526 s->udata.p = NULL;
2527 len = strlen ((*p->sym_ptr_ptr)->name);
2528 memcpy (names, (*p->sym_ptr_ptr)->name, len);
2529 names += len;
2530 memcpy (names, "@plt", sizeof ("@plt"));
2531 names += sizeof ("@plt");
2532 ++s;
2533 stub_vma += 16;
2534 }
2535
2536 /* Add a symbol at the start of the glink branch table. */
86a4952b 2537 memset (s, 0, sizeof *s);
468392fb 2538 s->the_bfd = abfd;
6ba2a415 2539 s->flags = BSF_GLOBAL | BSF_SYNTHETIC;
468392fb
AM		 2540 s->section = glink;
2541 s->value = glink_vma - glink->vma;
2542 s->name = names;
2543 memcpy (names, "__glink", sizeof ("__glink"));
2544 names += sizeof ("__glink");
2545 s++;
2546 count++;
2547
2548 if (resolv_vma)
2549 {
2550 /* Add a symbol for the glink PLT resolver. */
86a4952b 2551 memset (s, 0, sizeof *s);
468392fb 2552 s->the_bfd = abfd;
6ba2a415 2553 s->flags = BSF_GLOBAL | BSF_SYNTHETIC;
468392fb
AM		 2554 s->section = glink;
2555 s->value = resolv_vma - glink->vma;
2556 s->name = names;
2557 memcpy (names, "__glink_PLTresolve", sizeof ("__glink_PLTresolve"));
2558 names += sizeof ("__glink_PLTresolve");
2559 s++;
2560 count++;
2561 }
2562
2563 return count;
2564}
2565\f
25dbc73a
AM		 2566/* The following functions are specific to the ELF linker, while
2567 functions above are used generally. They appear in this file more
2568 or less in the order in which they are called. eg.
2569 ppc_elf_check_relocs is called early in the link process,
2570 ppc_elf_finish_dynamic_sections is one of the last functions
2571 called. */
252b5132 2572
25dbc73a
AM		 2573/* The PPC linker needs to keep track of the number of relocs that it
2574 decides to copy as dynamic relocs in check_relocs for each symbol.
2575 This is so that it can later discard them if they are found to be
2576 unnecessary. We store the information in a field extending the
2577 regular ELF linker hash table. */
ae9a127f 2578
25dbc73a 2579struct ppc_elf_dyn_relocs
252b5132 2580{
25dbc73a 2581 struct ppc_elf_dyn_relocs *next;
252b5132 2582
25dbc73a
AM		 2583 /* The input section of the reloc. */
2584 asection *sec;
252b5132 2585
25dbc73a
AM		 2586 /* Total number of relocs copied for the input section. */
2587 bfd_size_type count;
252b5132 2588
25dbc73a
AM		 2589 /* Number of pc-relative relocs copied for the input section. */
2590 bfd_size_type pc_count;
2591};
252b5132 2592
a6aa5195
AM		 2593/* Track PLT entries needed for a given symbol. We might need more
2594 than one glink entry per symbol. */
2595struct plt_entry
2596{
2597 struct plt_entry *next;
2598
2599 /* -fPIC uses multiple GOT sections, one per file, called ".got2".
2600 This field stores the offset into .got2 used to initialise the
2601 GOT pointer reg. It will always be at least 32768 (and for
2602 current gcc this is the only offset used). */
2603 bfd_vma addend;
2604
2605 /* The .got2 section. */
2606 asection *sec;
2607
2608 /* PLT refcount or offset. */
2609 union
2610 {
2611 bfd_signed_vma refcount;
2612 bfd_vma offset;
2613 } plt;
2614
2615 /* .glink stub offset. */
2616 bfd_vma glink_offset;
2617};
2618
1d483afe 2619/* Of those relocs that might be copied as dynamic relocs, this function
25dbc73a
AM		 2620 selects those that must be copied when linking a shared library,
2621 even when the symbol is local. */
252b5132 2622
1d483afe
AM		 2623static int
2624must_be_dyn_reloc (struct bfd_link_info *info,
2625 enum elf_ppc_reloc_type r_type)
2626{
2627 switch (r_type)
2628 {
2629 default:
2630 return 1;
2631
2632 case R_PPC_REL24:
2633 case R_PPC_REL14:
2634 case R_PPC_REL14_BRTAKEN:
2635 case R_PPC_REL14_BRNTAKEN:
2636 case R_PPC_REL32:
2637 return 0;
2638
2639 case R_PPC_TPREL32:
2640 case R_PPC_TPREL16:
2641 case R_PPC_TPREL16_LO:
2642 case R_PPC_TPREL16_HI:
2643 case R_PPC_TPREL16_HA:
2644 return !info->executable;
2645 }
2646}
252b5132 2647
25dbc73a
AM		 2648/* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
2649 copying dynamic variables from a shared lib into an app's dynbss
2650 section, and instead use a dynamic relocation to point into the
2651 shared lib. */
2652#define ELIMINATE_COPY_RELOCS 1
252b5132 2653
25dbc73a 2654/* PPC ELF linker hash entry. */
252b5132 2655
25dbc73a
AM		 2656struct ppc_elf_link_hash_entry
2657{
2658 struct elf_link_hash_entry elf;
252b5132 2659
25dbc73a
AM		 2660 /* If this symbol is used in the linker created sections, the processor
2661 specific backend uses this field to map the field into the offset
2662 from the beginning of the section. */
2663 elf_linker_section_pointers_t *linker_section_pointer;
252b5132 2664
25dbc73a
AM		 2665 /* Track dynamic relocs copied for this symbol. */
2666 struct ppc_elf_dyn_relocs *dyn_relocs;
252b5132 2667
25dbc73a
AM		 2668 /* Contexts in which symbol is used in the GOT (or TOC).
2669 TLS_GD .. TLS_TLS bits are or'd into the mask as the
2670 corresponding relocs are encountered during check_relocs.
2671 tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
2672 indicate the corresponding GOT entry type is not needed. */
2673#define TLS_GD 1 /* GD reloc. */
2674#define TLS_LD 2 /* LD reloc. */
2675#define TLS_TPREL 4 /* TPREL reloc, => IE. */
2676#define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
2677#define TLS_TLS 16 /* Any TLS reloc. */
2678#define TLS_TPRELGD 32 /* TPREL reloc resulting from GD->IE. */
2679 char tls_mask;
4dc4a9a5
DJ		 2680
2681 /* Nonzero if we have seen a small data relocation referring to this
2682 symbol. */
2683 unsigned char has_sda_refs;
25dbc73a 2684};
252b5132 2685
25dbc73a
AM		 2686#define ppc_elf_hash_entry(ent) ((struct ppc_elf_link_hash_entry *) (ent))
2687
2688/* PPC ELF linker hash table. */
2689
2690struct ppc_elf_link_hash_table
2691{
2692 struct elf_link_hash_table elf;
2693
2694 /* Short-cuts to get to dynamic linker sections. */
2695 asection *got;
2696 asection *relgot;
d7128ce4 2697 asection *glink;
25dbc73a
AM		 2698 asection *plt;
2699 asection *relplt;
2700 asection *dynbss;
2701 asection *relbss;
2702 asection *dynsbss;
2703 asection *relsbss;
c9a2f333 2704 elf_linker_section_t sdata[2];
25dbc73a
AM		 2705 asection *sbss;
2706
016687f8
AM		 2707 /* The (unloaded but important) .rela.plt.unloaded on VxWorks. */
2708 asection *srelplt2;
2709
2710 /* The .got.plt section (VxWorks only)*/
2711 asection *sgotplt;
2712
1d483afe 2713 /* Shortcut to __tls_get_addr. */
25dbc73a 2714 struct elf_link_hash_entry *tls_get_addr;
252b5132 2715
016687f8
AM		 2716 /* The bfd that forced an old-style PLT. */
2717 bfd *old_bfd;
2718
25dbc73a
AM		 2719 /* TLS local dynamic got entry handling. */
2720 union {
2721 bfd_signed_vma refcount;
2722 bfd_vma offset;
2723 } tlsld_got;
252b5132 2724
d7128ce4
AM		 2725 /* Offset of PltResolve function in glink. */
2726 bfd_vma glink_pltresolve;
2727
3b36f7e6
AM		 2728 /* Size of reserved GOT entries. */
2729 unsigned int got_header_size;
2730 /* Non-zero if allocating the header left a gap. */
2731 unsigned int got_gap;
2732
4a3dc543
RS		 2733 /* The type of PLT we have chosen to use. */
2734 enum ppc_elf_plt_type plt_type;
2735
0ba07910
AM		 2736 /* Set if we should emit symbols for stubs. */
2737 unsigned int emit_stub_syms:1;
2738
9d8504b1 2739 /* True if the target system is VxWorks. */
016687f8 2740 unsigned int is_vxworks:1;
9d8504b1
PB		 2741
2742 /* The size of PLT entries. */
2743 int plt_entry_size;
2744 /* The distance between adjacent PLT slots. */
2745 int plt_slot_size;
2746 /* The size of the first PLT entry. */
2747 int plt_initial_entry_size;
016687f8
AM		 2748
2749 /* Small local sym to section mapping cache. */
2750 struct sym_sec_cache sym_sec;
25dbc73a 2751};
252b5132 2752
25dbc73a 2753/* Get the PPC ELF linker hash table from a link_info structure. */
252b5132 2754
25dbc73a
AM		 2755#define ppc_elf_hash_table(p) \
2756 ((struct ppc_elf_link_hash_table *) (p)->hash)
252b5132 2757
25dbc73a 2758/* Create an entry in a PPC ELF linker hash table. */
252b5132 2759
25dbc73a
AM		 2760static struct bfd_hash_entry *
2761ppc_elf_link_hash_newfunc (struct bfd_hash_entry *entry,
2762 struct bfd_hash_table *table,
2763 const char *string)
252b5132 2764{
25dbc73a
AM		 2765 /* Allocate the structure if it has not already been allocated by a
2766 subclass. */
2767 if (entry == NULL)
2768 {
2769 entry = bfd_hash_allocate (table,
2770 sizeof (struct ppc_elf_link_hash_entry));
2771 if (entry == NULL)
2772 return entry;
2773 }
252b5132 2774
25dbc73a
AM		 2775 /* Call the allocation method of the superclass. */
2776 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
2777 if (entry != NULL)
2778 {
2779 ppc_elf_hash_entry (entry)->linker_section_pointer = NULL;
2780 ppc_elf_hash_entry (entry)->dyn_relocs = NULL;
2781 ppc_elf_hash_entry (entry)->tls_mask = 0;
2782 }
252b5132 2783
25dbc73a 2784 return entry;
252b5132 2785}
3dab13f6 2786
25dbc73a 2787/* Create a PPC ELF linker hash table. */
3dab13f6 2788
25dbc73a
AM		 2789static struct bfd_link_hash_table *
2790ppc_elf_link_hash_table_create (bfd *abfd)
3dab13f6 2791{
25dbc73a 2792 struct ppc_elf_link_hash_table *ret;
3dab13f6 2793
25dbc73a
AM		 2794 ret = bfd_zmalloc (sizeof (struct ppc_elf_link_hash_table));
2795 if (ret == NULL)
2796 return NULL;
3dab13f6 2797
66eb6687
AM		 2798 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
2799 ppc_elf_link_hash_newfunc,
2800 sizeof (struct ppc_elf_link_hash_entry)))
3dab13f6 2801 {
25dbc73a
AM		 2802 free (ret);
2803 return NULL;
2804 }
58111eb7 2805
a6aa5195
AM		 2806 ret->elf.init_plt_refcount.refcount = 0;
2807 ret->elf.init_plt_refcount.glist = NULL;
2808 ret->elf.init_plt_offset.offset = 0;
2809 ret->elf.init_plt_offset.glist = NULL;
2810
c9a2f333
AM		 2811 ret->sdata[0].name = ".sdata";
2812 ret->sdata[0].sym_name = "_SDA_BASE_";
2813 ret->sdata[0].bss_name = ".sbss";
2814
2815 ret->sdata[1].name = ".sdata2";
2816 ret->sdata[1].sym_name = "_SDA2_BASE_";
2817 ret->sdata[1].bss_name = ".sbss2";
2818
9d8504b1
PB		 2819 ret->plt_entry_size = 12;
2820 ret->plt_slot_size = 8;
2821 ret->plt_initial_entry_size = 72;
9d8504b1 2822
25dbc73a
AM		 2823 return &ret->elf.root;
2824}
3dab13f6 2825
9d8504b1 2826/* Create .got and the related sections. */
3dab13f6 2827
25dbc73a
AM		 2828static bfd_boolean
2829ppc_elf_create_got (bfd *abfd, struct bfd_link_info *info)
2830{
2831 struct ppc_elf_link_hash_table *htab;
2832 asection *s;
2833 flagword flags;
3dab13f6 2834
25dbc73a
AM		 2835 if (!_bfd_elf_create_got_section (abfd, info))
2836 return FALSE;
3dab13f6 2837
25dbc73a
AM		 2838 htab = ppc_elf_hash_table (info);
2839 htab->got = s = bfd_get_section_by_name (abfd, ".got");
2840 if (s == NULL)
2841 abort ();
3dab13f6 2842
9d8504b1
PB		 2843 if (htab->is_vxworks)
2844 {
2845 htab->sgotplt = bfd_get_section_by_name (abfd, ".got.plt");
2846 if (!htab->sgotplt)
2847 abort ();
2848 }
2849 else
2850 {
2851 /* The powerpc .got has a blrl instruction in it. Mark it
2852 executable. */
2853 flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS
2854 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2855 if (!bfd_set_section_flags (abfd, s, flags))
2856 return FALSE;
2857 }
3dab13f6 2858
3b36f7e6
AM		 2859 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2860 | SEC_LINKER_CREATED | SEC_READONLY);
2861 htab->relgot = bfd_make_section_with_flags (abfd, ".rela.got", flags);
25dbc73a 2862 if (!htab->relgot
25dbc73a
AM		 2863 || ! bfd_set_section_alignment (abfd, htab->relgot, 2))
2864 return FALSE;
3dab13f6 2865
25dbc73a
AM		 2866 return TRUE;
2867}
3dab13f6 2868
25dbc73a
AM		 2869/* We have to create .dynsbss and .rela.sbss here so that they get mapped
2870 to output sections (just like _bfd_elf_create_dynamic_sections has
2871 to create .dynbss and .rela.bss). */
3dab13f6 2872
25dbc73a
AM		 2873static bfd_boolean
2874ppc_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
2875{
2876 struct ppc_elf_link_hash_table *htab;
2877 asection *s;
2878 flagword flags;
3dab13f6 2879
25dbc73a 2880 htab = ppc_elf_hash_table (info);
3dab13f6 2881
25dbc73a
AM		 2882 if (htab->got == NULL
2883 && !ppc_elf_create_got (abfd, info))
3dab13f6
AM		 2884 return FALSE;
2885
25dbc73a
AM		 2886 if (!_bfd_elf_create_dynamic_sections (abfd, info))
2887 return FALSE;
3dab13f6 2888
d7128ce4
AM		 2889 flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_HAS_CONTENTS
2890 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2891
2892 s = bfd_make_section_anyway_with_flags (abfd, ".glink", flags | SEC_CODE);
2893 htab->glink = s;
2894 if (s == NULL
2895 || !bfd_set_section_alignment (abfd, s, 4))
2896 return FALSE;
3dab13f6 2897
25dbc73a 2898 htab->dynbss = bfd_get_section_by_name (abfd, ".dynbss");
3b36f7e6
AM		 2899 s = bfd_make_section_with_flags (abfd, ".dynsbss",
2900 SEC_ALLOC | SEC_LINKER_CREATED);
2901 htab->dynsbss = s;
3496cb2a 2902 if (s == NULL)
25dbc73a 2903 return FALSE;
3dab13f6 2904
25dbc73a
AM		 2905 if (! info->shared)
2906 {
2907 htab->relbss = bfd_get_section_by_name (abfd, ".rela.bss");
d7128ce4 2908 s = bfd_make_section_with_flags (abfd, ".rela.sbss", flags);
3b36f7e6 2909 htab->relsbss = s;
25dbc73a 2910 if (s == NULL
25dbc73a
AM		 2911 || ! bfd_set_section_alignment (abfd, s, 2))
2912 return FALSE;
2913 }
3dab13f6 2914
711de32c
RS		 2915 if (htab->is_vxworks
2916 && !elf_vxworks_create_dynamic_sections (abfd, info, &htab->srelplt2))
2917 return FALSE;
9d8504b1 2918
25dbc73a
AM		 2919 htab->relplt = bfd_get_section_by_name (abfd, ".rela.plt");
2920 htab->plt = s = bfd_get_section_by_name (abfd, ".plt");
2921 if (s == NULL)
2922 abort ();
3dab13f6 2923
3b36f7e6 2924 flags = SEC_ALLOC | SEC_CODE | SEC_LINKER_CREATED;
4a3dc543
RS		 2925 if (htab->plt_type == PLT_VXWORKS)
2926 /* The VxWorks PLT is a loaded section with contents. */
2927 flags |= SEC_HAS_CONTENTS | SEC_LOAD | SEC_READONLY;
25dbc73a
AM		 2928 return bfd_set_section_flags (abfd, s, flags);
2929}
3dab13f6 2930
25dbc73a 2931/* Copy the extra info we tack onto an elf_link_hash_entry. */
58111eb7 2932
25dbc73a 2933static void
fcfa13d2 2934ppc_elf_copy_indirect_symbol (struct bfd_link_info *info,
25dbc73a
AM		 2935 struct elf_link_hash_entry *dir,
2936 struct elf_link_hash_entry *ind)
2937{
2938 struct ppc_elf_link_hash_entry *edir, *eind;
3dab13f6 2939
25dbc73a
AM		 2940 edir = (struct ppc_elf_link_hash_entry *) dir;
2941 eind = (struct ppc_elf_link_hash_entry *) ind;
3dab13f6 2942
25dbc73a
AM		 2943 if (eind->dyn_relocs != NULL)
2944 {
2945 if (edir->dyn_relocs != NULL)
3dab13f6 2946 {
25dbc73a
AM		 2947 struct ppc_elf_dyn_relocs **pp;
2948 struct ppc_elf_dyn_relocs *p;
3dab13f6 2949
fcfa13d2 2950 /* Add reloc counts against the indirect sym to the direct sym
25dbc73a
AM		 2951 list. Merge any entries against the same section. */
2952 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
3dab13f6 2953 {
25dbc73a
AM		 2954 struct ppc_elf_dyn_relocs *q;
2955
2956 for (q = edir->dyn_relocs; q != NULL; q = q->next)
2957 if (q->sec == p->sec)
2958 {
2959 q->pc_count += p->pc_count;
2960 q->count += p->count;
2961 *pp = p->next;
2962 break;
2963 }
2964 if (q == NULL)
2965 pp = &p->next;
3dab13f6 2966 }
25dbc73a 2967 *pp = edir->dyn_relocs;
3dab13f6 2968 }
25dbc73a
AM		 2969
2970 edir->dyn_relocs = eind->dyn_relocs;
2971 eind->dyn_relocs = NULL;
3dab13f6 2972 }
3dab13f6 2973
25dbc73a 2974 edir->tls_mask |= eind->tls_mask;
4dc4a9a5 2975 edir->has_sda_refs |= eind->has_sda_refs;
3dab13f6 2976
a6aa5195
AM		 2977 /* If called to transfer flags for a weakdef during processing
2978 of elf_adjust_dynamic_symbol, don't copy non_got_ref.
2979 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
2980 if (!(ELIMINATE_COPY_RELOCS
2981 && eind->elf.root.type != bfd_link_hash_indirect
2982 && edir->elf.dynamic_adjusted))
2983 edir->elf.non_got_ref |= eind->elf.non_got_ref;
2984
2985 edir->elf.ref_dynamic |= eind->elf.ref_dynamic;
2986 edir->elf.ref_regular |= eind->elf.ref_regular;
2987 edir->elf.ref_regular_nonweak |= eind->elf.ref_regular_nonweak;
2988 edir->elf.needs_plt |= eind->elf.needs_plt;
0eb4a168 2989 edir->elf.pointer_equality_needed |= eind->elf.pointer_equality_needed;
a6aa5195
AM		 2990
2991 /* If we were called to copy over info for a weak sym, that's all. */
2992 if (eind->elf.root.type != bfd_link_hash_indirect)
2993 return;
2994
2995 /* Copy over the GOT refcount entries that we may have already seen to
2996 the symbol which just became indirect. */
fcfa13d2
AM		 2997 edir->elf.got.refcount += eind->elf.got.refcount;
2998 eind->elf.got.refcount = 0;
a6aa5195
AM		 2999
3000 /* And plt entries. */
3001 if (eind->elf.plt.plist != NULL)
3002 {
3003 if (edir->elf.plt.plist != NULL)
3004 {
3005 struct plt_entry **entp;
3006 struct plt_entry *ent;
3007
3008 for (entp = &eind->elf.plt.plist; (ent = *entp) != NULL; )
3009 {
3010 struct plt_entry *dent;
3011
3012 for (dent = edir->elf.plt.plist; dent != NULL; dent = dent->next)
3013 if (dent->sec == ent->sec && dent->addend == ent->addend)
3014 {
3015 dent->plt.refcount += ent->plt.refcount;
3016 *entp = ent->next;
3017 break;
3018 }
3019 if (dent == NULL)
3020 entp = &ent->next;
3021 }
3022 *entp = edir->elf.plt.plist;
3023 }
3024
3025 edir->elf.plt.plist = eind->elf.plt.plist;
3026 eind->elf.plt.plist = NULL;
3027 }
3028
fcfa13d2 3029 if (eind->elf.dynindx != -1)
25dbc73a 3030 {
fcfa13d2
AM		 3031 if (edir->elf.dynindx != -1)
3032 _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
3033 edir->elf.dynstr_index);
a6aa5195
AM		 3034 edir->elf.dynindx = eind->elf.dynindx;
3035 edir->elf.dynstr_index = eind->elf.dynstr_index;
3036 eind->elf.dynindx = -1;
3037 eind->elf.dynstr_index = 0;
25dbc73a 3038 }
25dbc73a 3039}
3dab13f6 3040
25dbc73a
AM		 3041/* Hook called by the linker routine which adds symbols from an object
3042 file. We use it to put .comm items in .sbss, and not .bss. */
58111eb7 3043
25dbc73a
AM		 3044static bfd_boolean
3045ppc_elf_add_symbol_hook (bfd *abfd,
3046 struct bfd_link_info *info,
3047 Elf_Internal_Sym *sym,
3048 const char **namep ATTRIBUTE_UNUSED,
3049 flagword *flagsp ATTRIBUTE_UNUSED,
3050 asection **secp,
3051 bfd_vma *valp)
3052{
3053 if (sym->st_shndx == SHN_COMMON
3054 && !info->relocatable
0c8d6e5c
AM		 3055 && is_ppc_elf (info->output_bfd)
3056 && sym->st_size <= elf_gp_size (abfd))
25dbc73a
AM		 3057 {
3058 /* Common symbols less than or equal to -G nn bytes are automatically
3059 put into .sbss. */
3060 struct ppc_elf_link_hash_table *htab;
3dab13f6 3061
25dbc73a
AM		 3062 htab = ppc_elf_hash_table (info);
3063 if (htab->sbss == NULL)
3064 {
644285ef 3065 flagword flags = SEC_IS_COMMON | SEC_LINKER_CREATED;
3dab13f6 3066
644285ef
AM		 3067 if (!htab->elf.dynobj)
3068 htab->elf.dynobj = abfd;
3069
3496cb2a
L		 3070 htab->sbss = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
3071 ".sbss",
3072 flags);
3073 if (htab->sbss == NULL)
25dbc73a 3074 return FALSE;
3dab13f6 3075 }
3dab13f6 3076
25dbc73a
AM		 3077 *secp = htab->sbss;
3078 *valp = sym->st_size;
3079 }
3dab13f6 3080
25dbc73a 3081 return TRUE;
3dab13f6
AM		 3082}
3083\f
046183de
AM		 3084static bfd_boolean
3085create_sdata_sym (struct ppc_elf_link_hash_table *htab,
3086 elf_linker_section_t *lsect)
3087{
3088 lsect->sym = elf_link_hash_lookup (&htab->elf, lsect->sym_name,
3089 TRUE, FALSE, TRUE);
3090 if (lsect->sym == NULL)
3091 return FALSE;
3092 if (lsect->sym->root.type == bfd_link_hash_new)
3093 lsect->sym->non_elf = 0;
3094 lsect->sym->ref_regular = 1;
3095 return TRUE;
3096}
3097
c9a2f333 3098/* Create a special linker section. */
25dbc73a 3099
c9a2f333 3100static bfd_boolean
55fd94b0
AM		 3101ppc_elf_create_linker_section (bfd *abfd,
3102 struct bfd_link_info *info,
c9a2f333
AM		 3103 flagword flags,
3104 elf_linker_section_t *lsect)
252b5132 3105{
58111eb7 3106 struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
c9a2f333 3107 asection *s;
58111eb7 3108
c9a2f333
AM		 3109 flags |= (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3110 | SEC_LINKER_CREATED);
58111eb7
AM		 3111
3112 /* Record the first bfd that needs the special sections. */
3113 if (!htab->elf.dynobj)
3114 htab->elf.dynobj = abfd;
3115
3496cb2a
L		 3116 s = bfd_make_section_anyway_with_flags (htab->elf.dynobj,
3117 lsect->name,
3118 flags);
76750a2f 3119 if (s == NULL
76750a2f 3120 || !bfd_set_section_alignment (htab->elf.dynobj, s, 2))
c9a2f333 3121 return FALSE;
76750a2f 3122 lsect->section = s;
58111eb7 3123
046183de 3124 return create_sdata_sym (htab, lsect);
252b5132 3125}
252b5132 3126
25dbc73a
AM		 3127/* Find a linker generated pointer with a given addend and type. */
3128
3129static elf_linker_section_pointers_t *
3130elf_find_pointer_linker_section
3131 (elf_linker_section_pointers_t *linker_pointers,
3132 bfd_vma addend,
3133 elf_linker_section_t *lsect)
252b5132 3134{
25dbc73a
AM		 3135 for ( ; linker_pointers != NULL; linker_pointers = linker_pointers->next)
3136 if (lsect == linker_pointers->lsect && addend == linker_pointers->addend)
3137 return linker_pointers;
252b5132 3138
25dbc73a
AM		 3139 return NULL;
3140}
3141
3142/* Allocate a pointer to live in a linker created section. */
3143
3144static bfd_boolean
3145elf_create_pointer_linker_section (bfd *abfd,
25dbc73a
AM		 3146 elf_linker_section_t *lsect,
3147 struct elf_link_hash_entry *h,
3148 const Elf_Internal_Rela *rel)
3149{
3150 elf_linker_section_pointers_t **ptr_linker_section_ptr = NULL;
3151 elf_linker_section_pointers_t *linker_section_ptr;
3152 unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
3153 bfd_size_type amt;
3154
3155 BFD_ASSERT (lsect != NULL);
3156
3157 /* Is this a global symbol? */
3158 if (h != NULL)
3159 {
3160 struct ppc_elf_link_hash_entry *eh;
3161
3162 /* Has this symbol already been allocated? If so, our work is done. */
3163 eh = (struct ppc_elf_link_hash_entry *) h;
3164 if (elf_find_pointer_linker_section (eh->linker_section_pointer,
3165 rel->r_addend,
3166 lsect))
3167 return TRUE;
3168
3169 ptr_linker_section_ptr = &eh->linker_section_pointer;
25dbc73a
AM		 3170 }
3171 else
3172 {
0c8d6e5c 3173 BFD_ASSERT (is_ppc_elf (abfd));
0ffa91dd 3174
25dbc73a
AM		 3175 /* Allocation of a pointer to a local symbol. */
3176 elf_linker_section_pointers_t **ptr = elf_local_ptr_offsets (abfd);
3177
3178 /* Allocate a table to hold the local symbols if first time. */
3179 if (!ptr)
3180 {
0ffa91dd 3181 unsigned int num_symbols = elf_symtab_hdr (abfd).sh_info;
25dbc73a
AM		 3182
3183 amt = num_symbols;
3184 amt *= sizeof (elf_linker_section_pointers_t *);
3185 ptr = bfd_zalloc (abfd, amt);
3186
3187 if (!ptr)
3188 return FALSE;
3189
3190 elf_local_ptr_offsets (abfd) = ptr;
3191 }
3192
3193 /* Has this symbol already been allocated? If so, our work is done. */
3194 if (elf_find_pointer_linker_section (ptr[r_symndx],
3195 rel->r_addend,
3196 lsect))
3197 return TRUE;
252b5132 3198
25dbc73a 3199 ptr_linker_section_ptr = &ptr[r_symndx];
25dbc73a 3200 }
41fcb14e 3201
25dbc73a
AM		 3202 /* Allocate space for a pointer in the linker section, and allocate
3203 a new pointer record from internal memory. */
3204 BFD_ASSERT (ptr_linker_section_ptr != NULL);
3205 amt = sizeof (elf_linker_section_pointers_t);
3206 linker_section_ptr = bfd_alloc (abfd, amt);
41fcb14e 3207
25dbc73a 3208 if (!linker_section_ptr)
7619e7c7 3209 return FALSE;
41fcb14e 3210
25dbc73a
AM		 3211 linker_section_ptr->next = *ptr_linker_section_ptr;
3212 linker_section_ptr->addend = rel->r_addend;
3213 linker_section_ptr->lsect = lsect;
25dbc73a 3214 *ptr_linker_section_ptr = linker_section_ptr;
41fcb14e 3215
25dbc73a
AM		 3216 linker_section_ptr->offset = lsect->section->size;
3217 lsect->section->size += 4;
7619e7c7 3218
25dbc73a
AM		 3219#ifdef DEBUG
3220 fprintf (stderr,
3221 "Create pointer in linker section %s, offset = %ld, section size = %ld\n",
3222 lsect->name, (long) linker_section_ptr->offset,
3223 (long) lsect->section->size);
3224#endif
7619e7c7
AM		 3225
3226 return TRUE;
41fcb14e
AM		 3227}
3228
b34976b6 3229static bfd_boolean
25dbc73a
AM		 3230update_local_sym_info (bfd *abfd,
3231 Elf_Internal_Shdr *symtab_hdr,
3232 unsigned long r_symndx,
3233 int tls_type)
252b5132 3234{
25dbc73a
AM		 3235 bfd_signed_vma *local_got_refcounts = elf_local_got_refcounts (abfd);
3236 char *local_got_tls_masks;
252b5132 3237
25dbc73a 3238 if (local_got_refcounts == NULL)
252b5132 3239 {
25dbc73a
AM		 3240 bfd_size_type size = symtab_hdr->sh_info;
3241
3242 size *= sizeof (*local_got_refcounts) + sizeof (*local_got_tls_masks);
3243 local_got_refcounts = bfd_zalloc (abfd, size);
3244 if (local_got_refcounts == NULL)
b34976b6 3245 return FALSE;
25dbc73a 3246 elf_local_got_refcounts (abfd) = local_got_refcounts;
252b5132 3247 }
41fcb14e 3248
25dbc73a
AM		 3249 local_got_refcounts[r_symndx] += 1;
3250 local_got_tls_masks = (char *) (local_got_refcounts + symtab_hdr->sh_info);
3251 local_got_tls_masks[r_symndx] |= tls_type;
3252 return TRUE;
3253}
41fcb14e 3254
a6aa5195
AM		 3255static bfd_boolean
3256update_plt_info (bfd *abfd, struct elf_link_hash_entry *h,
3257 asection *sec, bfd_vma addend)
3258{
3259 struct plt_entry *ent;
3260
3261 if (addend < 32768)
3262 sec = NULL;
3263 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
3264 if (ent->sec == sec && ent->addend == addend)
3265 break;
3266 if (ent == NULL)
3267 {
3268 bfd_size_type amt = sizeof (*ent);
3269 ent = bfd_alloc (abfd, amt);
3270 if (ent == NULL)
3271 return FALSE;
3272 ent->next = h->plt.plist;
3273 ent->sec = sec;
3274 ent->addend = addend;
3275 ent->plt.refcount = 0;
3276 h->plt.plist = ent;
3277 }
3278 ent->plt.refcount += 1;
3279 return TRUE;
3280}
3281
3282static struct plt_entry *
3283find_plt_ent (struct elf_link_hash_entry *h, asection *sec, bfd_vma addend)
3284{
3285 struct plt_entry *ent;
3286
3287 if (addend < 32768)
3288 sec = NULL;
3289 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
3290 if (ent->sec == sec && ent->addend == addend)
3291 break;
3292 return ent;
3293}
3294
25dbc73a
AM		 3295static void
3296bad_shared_reloc (bfd *abfd, enum elf_ppc_reloc_type r_type)
3297{
3298 (*_bfd_error_handler)
3299 (_("%B: relocation %s cannot be used when making a shared object"),
3300 abfd,
3301 ppc_elf_howto_table[r_type]->name);
3302 bfd_set_error (bfd_error_bad_value);
252b5132
RH		 3303}
3304
25dbc73a
AM		 3305/* Look through the relocs for a section during the first phase, and
3306 allocate space in the global offset table or procedure linkage
3307 table. */
252b5132 3308
b34976b6 3309static bfd_boolean
25dbc73a
AM		 3310ppc_elf_check_relocs (bfd *abfd,
3311 struct bfd_link_info *info,
3312 asection *sec,
3313 const Elf_Internal_Rela *relocs)
252b5132 3314{
7619e7c7 3315 struct ppc_elf_link_hash_table *htab;
25dbc73a
AM		 3316 Elf_Internal_Shdr *symtab_hdr;
3317 struct elf_link_hash_entry **sym_hashes;
3318 const Elf_Internal_Rela *rel;
3319 const Elf_Internal_Rela *rel_end;
a6aa5195 3320 asection *got2, *sreloc;
727fc41e 3321 struct elf_link_hash_entry *tga;
25dbc73a
AM		 3322
3323 if (info->relocatable)
3324 return TRUE;
252b5132 3325
c87b5a93
AM		 3326 /* Don't do anything special with non-loaded, non-alloced sections.
3327 In particular, any relocs in such sections should not affect GOT
3328 and PLT reference counting (ie. we don't allow them to create GOT
3329 or PLT entries), there's no possibility or desire to optimize TLS
3330 relocs, and there's not much point in propagating relocs to shared
3331 libs that the dynamic linker won't relocate. */
3332 if ((sec->flags & SEC_ALLOC) == 0)
3333 return TRUE;
3334
252b5132 3335#ifdef DEBUG
25dbc73a
AM		 3336 _bfd_error_handler ("ppc_elf_check_relocs called for section %A in %B",
3337 sec, abfd);
252b5132
RH		 3338#endif
3339
0c8d6e5c 3340 BFD_ASSERT (is_ppc_elf (abfd));
0ffa91dd 3341
25dbc73a
AM		 3342 /* Initialize howto table if not already done. */
3343 if (!ppc_elf_howto_table[R_PPC_ADDR32])
3344 ppc_elf_howto_init ();
3345
7619e7c7 3346 htab = ppc_elf_hash_table (info);
727fc41e
AM		 3347 tga = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
3348 FALSE, FALSE, TRUE);
0ffa91dd 3349 symtab_hdr = &elf_symtab_hdr (abfd);
25dbc73a 3350 sym_hashes = elf_sym_hashes (abfd);
a6aa5195 3351 got2 = bfd_get_section_by_name (abfd, ".got2");
25dbc73a
AM		 3352 sreloc = NULL;
3353
3354 rel_end = relocs + sec->reloc_count;
3355 for (rel = relocs; rel < rel_end; rel++)
3356 {
3357 unsigned long r_symndx;
3358 enum elf_ppc_reloc_type r_type;
3359 struct elf_link_hash_entry *h;
727fc41e 3360 int tls_type;
25dbc73a
AM		 3361
3362 r_symndx = ELF32_R_SYM (rel->r_info);
3363 if (r_symndx < symtab_hdr->sh_info)
3364 h = NULL;
3365 else
973a3492
L		 3366 {
3367 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3368 while (h->root.type == bfd_link_hash_indirect
3369 || h->root.type == bfd_link_hash_warning)
3370 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3371 }
25dbc73a
AM		 3372
3373 /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
3374 This shows up in particular in an R_PPC_ADDR32 in the eabi
3375 startup code. */
3b36f7e6
AM		 3376 if (h != NULL
3377 && htab->got == NULL
3378 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
252b5132 3379 {
3b36f7e6
AM		 3380 if (htab->elf.dynobj == NULL)
3381 htab->elf.dynobj = abfd;
3382 if (!ppc_elf_create_got (htab->elf.dynobj, info))
3383 return FALSE;
3384 BFD_ASSERT (h == htab->elf.hgot);
25dbc73a 3385 }
252b5132 3386
727fc41e 3387 tls_type = 0;
25dbc73a 3388 r_type = ELF32_R_TYPE (rel->r_info);
727fc41e
AM		 3389 if (h != NULL && h == tga)
3390 switch (r_type)
3391 {
3392 default:
3393 break;
3394
3395 case R_PPC_PLTREL24:
3396 case R_PPC_LOCAL24PC:
3397 case R_PPC_REL24:
3398 case R_PPC_REL14:
3399 case R_PPC_REL14_BRTAKEN:
3400 case R_PPC_REL14_BRNTAKEN:
3401 case R_PPC_ADDR24:
3402 case R_PPC_ADDR14:
3403 case R_PPC_ADDR14_BRTAKEN:
3404 case R_PPC_ADDR14_BRNTAKEN:
3405 if (rel != relocs
3406 && (ELF32_R_TYPE (rel[-1].r_info) == R_PPC_TLSGD
3407 || ELF32_R_TYPE (rel[-1].r_info) == R_PPC_TLSLD))
3408 /* We have a new-style __tls_get_addr call with a marker
3409 reloc. */
3410 ;
3411 else
3412 /* Mark this section as having an old-style call. */
3413 sec->has_tls_get_addr_call = 1;
3414 break;
3415 }
3416
25dbc73a
AM		 3417 switch (r_type)
3418 {
727fc41e
AM		 3419 case R_PPC_TLSGD:
3420 case R_PPC_TLSLD:
3421 /* These special tls relocs tie a call to __tls_get_addr with
3422 its parameter symbol. */
3423 break;
3424
25dbc73a
AM		 3425 case R_PPC_GOT_TLSLD16:
3426 case R_PPC_GOT_TLSLD16_LO:
3427 case R_PPC_GOT_TLSLD16_HI:
3428 case R_PPC_GOT_TLSLD16_HA:
25dbc73a
AM		 3429 tls_type = TLS_TLS | TLS_LD;
3430 goto dogottls;
252b5132 3431
25dbc73a
AM		 3432 case R_PPC_GOT_TLSGD16:
3433 case R_PPC_GOT_TLSGD16_LO:
3434 case R_PPC_GOT_TLSGD16_HI:
3435 case R_PPC_GOT_TLSGD16_HA:
3436 tls_type = TLS_TLS | TLS_GD;
3437 goto dogottls;
3438
3439 case R_PPC_GOT_TPREL16:
3440 case R_PPC_GOT_TPREL16_LO:
3441 case R_PPC_GOT_TPREL16_HI:
3442 case R_PPC_GOT_TPREL16_HA:
1d483afe 3443 if (!info->executable)
25dbc73a
AM		 3444 info->flags |= DF_STATIC_TLS;
3445 tls_type = TLS_TLS | TLS_TPREL;
3446 goto dogottls;
3447
3448 case R_PPC_GOT_DTPREL16:
3449 case R_PPC_GOT_DTPREL16_LO:
3450 case R_PPC_GOT_DTPREL16_HI:
3451 case R_PPC_GOT_DTPREL16_HA:
3452 tls_type = TLS_TLS | TLS_DTPREL;
3453 dogottls:
3454 sec->has_tls_reloc = 1;
3455 /* Fall thru */
252b5132 3456
25dbc73a
AM		 3457 /* GOT16 relocations */
3458 case R_PPC_GOT16:
3459 case R_PPC_GOT16_LO:
3460 case R_PPC_GOT16_HI:
3461 case R_PPC_GOT16_HA:
3462 /* This symbol requires a global offset table entry. */
3463 if (htab->got == NULL)
3464 {
3465 if (htab->elf.dynobj == NULL)
3466 htab->elf.dynobj = abfd;
3467 if (!ppc_elf_create_got (htab->elf.dynobj, info))
3468 return FALSE;
3469 }
3470 if (h != NULL)
3471 {
3472 h->got.refcount += 1;
3473 ppc_elf_hash_entry (h)->tls_mask |= tls_type;
3474 }
3475 else
3476 /* This is a global offset table entry for a local symbol. */
3477 if (!update_local_sym_info (abfd, symtab_hdr, r_symndx, tls_type))
3478 return FALSE;
3479 break;
252b5132 3480
25dbc73a
AM		 3481 /* Indirect .sdata relocation. */
3482 case R_PPC_EMB_SDAI16:
3483 if (info->shared)
3484 {
3485 bad_shared_reloc (abfd, r_type);
3486 return FALSE;
3487 }
c9a2f333
AM		 3488 if (htab->sdata[0].section == NULL
3489 && !ppc_elf_create_linker_section (abfd, info, 0,
3490 &htab->sdata[0]))
3491 return FALSE;
76750a2f
AM		 3492 if (!elf_create_pointer_linker_section (abfd, &htab->sdata[0],
3493 h, rel))
25dbc73a 3494 return FALSE;
046183de
AM		 3495 if (h != NULL)
3496 {
3497 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3498 h->non_got_ref = TRUE;
3499 }
25dbc73a 3500 break;
252b5132 3501
25dbc73a
AM		 3502 /* Indirect .sdata2 relocation. */
3503 case R_PPC_EMB_SDA2I16:
3504 if (info->shared)
3505 {
3506 bad_shared_reloc (abfd, r_type);
3507 return FALSE;
3508 }
c9a2f333
AM		 3509 if (htab->sdata[1].section == NULL
3510 && !ppc_elf_create_linker_section (abfd, info, SEC_READONLY,
3511 &htab->sdata[1]))
3512 return FALSE;
76750a2f
AM		 3513 if (!elf_create_pointer_linker_section (abfd, &htab->sdata[1],
3514 h, rel))
25dbc73a 3515 return FALSE;
046183de
AM		 3516 if (h != NULL)
3517 {
3518 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3519 h->non_got_ref = TRUE;
3520 }
25dbc73a 3521 break;
252b5132 3522
25dbc73a 3523 case R_PPC_SDAREL16:
046183de
AM		 3524 if (info->shared)
3525 {
3526 bad_shared_reloc (abfd, r_type);
3527 return FALSE;
3528 }
3529 if (htab->sdata[0].sym == NULL
3530 && !create_sdata_sym (htab, &htab->sdata[0]))
3531 return FALSE;
3532 if (h != NULL)
3533 {
3534 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3535 h->non_got_ref = TRUE;
3536 }
3537 break;
3538
25dbc73a 3539 case R_PPC_EMB_SDA2REL:
046183de
AM		 3540 if (info->shared)
3541 {
3542 bad_shared_reloc (abfd, r_type);
3543 return FALSE;
3544 }
3545 if (htab->sdata[1].sym == NULL
3546 && !create_sdata_sym (htab, &htab->sdata[1]))
3547 return FALSE;
3548 if (h != NULL)
3549 {
3550 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3551 h->non_got_ref = TRUE;
3552 }
3553 break;
3554
25dbc73a
AM		 3555 case R_PPC_EMB_SDA21:
3556 case R_PPC_EMB_RELSDA:
046183de
AM		 3557 if (info->shared)
3558 {
3559 bad_shared_reloc (abfd, r_type);
3560 return FALSE;
3561 }
3562 if (htab->sdata[0].sym == NULL
3563 && !create_sdata_sym (htab, &htab->sdata[0]))
3564 return FALSE;
3565 if (htab->sdata[1].sym == NULL
3566 && !create_sdata_sym (htab, &htab->sdata[1]))
3567 return FALSE;
3568 if (h != NULL)
3569 {
3570 ppc_elf_hash_entry (h)->has_sda_refs = TRUE;
3571 h->non_got_ref = TRUE;
3572 }
3573 break;
3574
25dbc73a
AM		 3575 case R_PPC_EMB_NADDR32:
3576 case R_PPC_EMB_NADDR16:
3577 case R_PPC_EMB_NADDR16_LO:
3578 case R_PPC_EMB_NADDR16_HI:
3579 case R_PPC_EMB_NADDR16_HA:
3580 if (info->shared)
3581 {
3582 bad_shared_reloc (abfd, r_type);
3583 return FALSE;
3584 }
4dc4a9a5 3585 if (h != NULL)
046183de 3586 h->non_got_ref = TRUE;
25dbc73a 3587 break;
252b5132 3588
25dbc73a
AM		 3589 case R_PPC_PLT32:
3590 case R_PPC_PLTREL24:
3591 case R_PPC_PLTREL32:
3592 case R_PPC_PLT16_LO:
3593 case R_PPC_PLT16_HI:
3594 case R_PPC_PLT16_HA:
3595#ifdef DEBUG
3596 fprintf (stderr, "Reloc requires a PLT entry\n");
3597#endif
3598 /* This symbol requires a procedure linkage table entry. We
3599 actually build the entry in finish_dynamic_symbol,
3600 because this might be a case of linking PIC code without
3601 linking in any dynamic objects, in which case we don't
3602 need to generate a procedure linkage table after all. */
7619e7c7 3603
25dbc73a
AM		 3604 if (h == NULL)
3605 {
3606 /* It does not make sense to have a procedure linkage
3607 table entry for a local symbol. */
3608 (*_bfd_error_handler) (_("%B(%A+0x%lx): %s reloc against "
3609 "local symbol"),
3610 abfd,
3611 sec,
3612 (long) rel->r_offset,
3613 ppc_elf_howto_table[r_type]->name);
3614 bfd_set_error (bfd_error_bad_value);
3615 return FALSE;
3616 }
a6aa5195
AM		 3617 else
3618 {
016687f8 3619 bfd_vma addend = 0;
ee05f2fe 3620
016687f8
AM		 3621 if (r_type == R_PPC_PLTREL24)
3622 {
3623 ppc_elf_tdata (abfd)->makes_plt_call = 1;
3624 addend = rel->r_addend;
3625 }
a6aa5195
AM		 3626 h->needs_plt = 1;
3627 if (!update_plt_info (abfd, h, got2, addend))
3628 return FALSE;
3629 }
25dbc73a 3630 break;
ee05f2fe 3631
25dbc73a
AM		 3632 /* The following relocations don't need to propagate the
3633 relocation if linking a shared object since they are
3634 section relative. */
3635 case R_PPC_SECTOFF:
3636 case R_PPC_SECTOFF_LO:
3637 case R_PPC_SECTOFF_HI:
3638 case R_PPC_SECTOFF_HA:
3639 case R_PPC_DTPREL16:
3640 case R_PPC_DTPREL16_LO:
3641 case R_PPC_DTPREL16_HI:
3642 case R_PPC_DTPREL16_HA:
3643 case R_PPC_TOC16:
3644 break;
252b5132 3645
d7128ce4
AM		 3646 case R_PPC_REL16:
3647 case R_PPC_REL16_LO:
3648 case R_PPC_REL16_HI:
3649 case R_PPC_REL16_HA:
016687f8 3650 ppc_elf_tdata (abfd)->has_rel16 = 1;
d7128ce4
AM		 3651 break;
3652
a6aa5195 3653 /* These are just markers. */
25dbc73a
AM		 3654 case R_PPC_TLS:
3655 case R_PPC_EMB_MRKREF:
3656 case R_PPC_NONE:
3657 case R_PPC_max:
3658 break;
252b5132 3659
25dbc73a
AM		 3660 /* These should only appear in dynamic objects. */
3661 case R_PPC_COPY:
3662 case R_PPC_GLOB_DAT:
3663 case R_PPC_JMP_SLOT:
3664 case R_PPC_RELATIVE:
3665 break;
252b5132 3666
25dbc73a
AM		 3667 /* These aren't handled yet. We'll report an error later. */
3668 case R_PPC_ADDR30:
3669 case R_PPC_EMB_RELSEC16:
3670 case R_PPC_EMB_RELST_LO:
3671 case R_PPC_EMB_RELST_HI:
3672 case R_PPC_EMB_RELST_HA:
3673 case R_PPC_EMB_BIT_FLD:
3674 break;
252b5132 3675
25dbc73a
AM		 3676 /* This refers only to functions defined in the shared library. */
3677 case R_PPC_LOCAL24PC:
727fc41e 3678 if (h != NULL && h == htab->elf.hgot && htab->plt_type == PLT_UNSET)
016687f8
AM		 3679 {
3680 htab->plt_type = PLT_OLD;
3681 htab->old_bfd = abfd;
3682 }
25dbc73a 3683 break;
252b5132 3684
25dbc73a
AM		 3685 /* This relocation describes the C++ object vtable hierarchy.
3686 Reconstruct it for later use during GC. */
3687 case R_PPC_GNU_VTINHERIT:
3688 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
3689 return FALSE;
3690 break;
252b5132 3691
25dbc73a
AM		 3692 /* This relocation describes which C++ vtable entries are actually
3693 used. Record for later use during GC. */
3694 case R_PPC_GNU_VTENTRY:
d17e0c6e
JB		 3695 BFD_ASSERT (h != NULL);
3696 if (h != NULL
3697 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
25dbc73a
AM		 3698 return FALSE;
3699 break;
252b5132 3700
25dbc73a
AM		 3701 /* We shouldn't really be seeing these. */
3702 case R_PPC_TPREL32:
1d483afe
AM		 3703 case R_PPC_TPREL16:
3704 case R_PPC_TPREL16_LO:
3705 case R_PPC_TPREL16_HI:
3706 case R_PPC_TPREL16_HA:
3707 if (!info->executable)
25dbc73a
AM		 3708 info->flags |= DF_STATIC_TLS;
3709 goto dodyn;
252b5132 3710
25dbc73a
AM		 3711 /* Nor these. */
3712 case R_PPC_DTPMOD32:
3713 case R_PPC_DTPREL32:
3714 goto dodyn;
252b5132 3715
9edfd1af
AM		 3716 case R_PPC_REL32:
3717 if (h == NULL
3718 && got2 != NULL
3719 && (sec->flags & SEC_CODE) != 0
3720 && (info->shared || info->pie)
4a3dc543 3721 && htab->plt_type == PLT_UNSET)
9edfd1af
AM		 3722 {
3723 /* Old -fPIC gcc code has .long LCTOC1-LCFx just before
3724 the start of a function, which assembles to a REL32
3725 reference to .got2. If we detect one of these, then
3726 force the old PLT layout because the linker cannot
3727 reliably deduce the GOT pointer value needed for
3728 PLT call stubs. */
3729 asection *s;
3730
3731 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec, sec,
3732 r_symndx);
3733 if (s == got2)
016687f8
AM		 3734 {
3735 htab->plt_type = PLT_OLD;
3736 htab->old_bfd = abfd;
3737 }
9edfd1af 3738 }
7123df0e 3739 if (h == NULL || h == htab->elf.hgot)
fd38b44c 3740 break;
625af618
AM		 3741 /* fall through */
3742
3743 case R_PPC_ADDR32:
3744 case R_PPC_ADDR16:
3745 case R_PPC_ADDR16_LO:
3746 case R_PPC_ADDR16_HI:
3747 case R_PPC_ADDR16_HA:
3748 case R_PPC_UADDR32:
3749 case R_PPC_UADDR16:
3750 if (h != NULL && !info->shared)
3751 {
3752 /* We may need a plt entry if the symbol turns out to be
3753 a function defined in a dynamic object. */
3754 if (!update_plt_info (abfd, h, NULL, 0))
3755 return FALSE;
3756
3757 /* We may need a copy reloc too. */
3758 h->non_got_ref = 1;
3759 h->pointer_equality_needed = 1;
3760 }
3761 goto dodyn;
9edfd1af 3762
25dbc73a
AM		 3763 case R_PPC_REL24:
3764 case R_PPC_REL14:
3765 case R_PPC_REL14_BRTAKEN:
3766 case R_PPC_REL14_BRNTAKEN:
d7128ce4 3767 if (h == NULL)
25dbc73a 3768 break;
7123df0e 3769 if (h == htab->elf.hgot)
d7128ce4 3770 {
7123df0e 3771 if (htab->plt_type == PLT_UNSET)
016687f8
AM		 3772 {
3773 htab->plt_type = PLT_OLD;
3774 htab->old_bfd = abfd;
3775 }
d7128ce4
AM		 3776 break;
3777 }
25dbc73a 3778 /* fall through */
ee05f2fe 3779
25dbc73a 3780 case R_PPC_ADDR24:
25dbc73a
AM		 3781 case R_PPC_ADDR14:
3782 case R_PPC_ADDR14_BRTAKEN:
3783 case R_PPC_ADDR14_BRNTAKEN:
25dbc73a
AM		 3784 if (h != NULL && !info->shared)
3785 {
3786 /* We may need a plt entry if the symbol turns out to be
3787 a function defined in a dynamic object. */
a6aa5195
AM		 3788 if (!update_plt_info (abfd, h, NULL, 0))
3789 return FALSE;
625af618 3790 break;
25dbc73a 3791 }
7619e7c7 3792
25dbc73a
AM		 3793 dodyn:
3794 /* If we are creating a shared library, and this is a reloc
3795 against a global symbol, or a non PC relative reloc
3796 against a local symbol, then we need to copy the reloc
3797 into the shared library. However, if we are linking with
3798 -Bsymbolic, we do not need to copy a reloc against a
3799 global symbol which is defined in an object we are
3800 including in the link (i.e., DEF_REGULAR is set). At
3801 this point we have not seen all the input files, so it is
3802 possible that DEF_REGULAR is not set now but will be set
3803 later (it is never cleared). In case of a weak definition,
3804 DEF_REGULAR may be cleared later by a strong definition in
3805 a shared library. We account for that possibility below by
3806 storing information in the dyn_relocs field of the hash
3807 table entry. A similar situation occurs when creating
3808 shared libraries and symbol visibility changes render the
3809 symbol local.
7619e7c7 3810
25dbc73a
AM		 3811 If on the other hand, we are creating an executable, we
3812 may need to keep relocations for symbols satisfied by a
3813 dynamic library if we manage to avoid copy relocs for the
3814 symbol. */
3815 if ((info->shared
1d483afe 3816 && (must_be_dyn_reloc (info, r_type)
25dbc73a
AM		 3817 || (h != NULL
3818 && (! info->symbolic
3819 || h->root.type == bfd_link_hash_defweak
3820 || !h->def_regular))))
3821 || (ELIMINATE_COPY_RELOCS
3822 && !info->shared
25dbc73a
AM		 3823 && h != NULL
3824 && (h->root.type == bfd_link_hash_defweak
3825 || !h->def_regular)))
3826 {
3827 struct ppc_elf_dyn_relocs *p;
3828 struct ppc_elf_dyn_relocs **head;
7619e7c7 3829
25dbc73a
AM		 3830#ifdef DEBUG
3831 fprintf (stderr,
3832 "ppc_elf_check_relocs needs to "
3833 "create relocation for %s\n",
3834 (h && h->root.root.string
3835 ? h->root.root.string : "<unknown>"));
3836#endif
3837 if (sreloc == NULL)
3838 {
c9a2f333
AM		 3839 if (htab->elf.dynobj == NULL)
3840 htab->elf.dynobj = abfd;
83bac4b0
NC		 3841
3842 sreloc = _bfd_elf_make_dynamic_reloc_section
3843 (sec, htab->elf.dynobj, 2, abfd, /*rela?*/ TRUE);
3844
25dbc73a 3845 if (sreloc == NULL)
83bac4b0 3846 return FALSE;
25dbc73a 3847 }
7619e7c7 3848
25dbc73a
AM		 3849 /* If this is a global symbol, we count the number of
3850 relocations we need for this symbol. */
3851 if (h != NULL)
3852 {
3853 head = &ppc_elf_hash_entry (h)->dyn_relocs;
3854 }
3855 else
3856 {
3857 /* Track dynamic relocs needed for local syms too.
3858 We really need local syms available to do this
3859 easily. Oh well. */
7619e7c7 3860
25dbc73a 3861 asection *s;
6edfbbad
DJ		 3862 void *vpp;
3863
25dbc73a
AM		 3864 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
3865 sec, r_symndx);
3866 if (s == NULL)
3867 return FALSE;
7fce784e 3868
6edfbbad
DJ		 3869 vpp = &elf_section_data (s)->local_dynrel;
3870 head = (struct ppc_elf_dyn_relocs **) vpp;
25dbc73a 3871 }
7fce784e 3872
25dbc73a
AM		 3873 p = *head;
3874 if (p == NULL || p->sec != sec)
3875 {
3876 p = bfd_alloc (htab->elf.dynobj, sizeof *p);
3877 if (p == NULL)
3878 return FALSE;
3879 p->next = *head;
3880 *head = p;
3881 p->sec = sec;
3882 p->count = 0;
3883 p->pc_count = 0;
3884 }
3885
3886 p->count += 1;
1d483afe 3887 if (!must_be_dyn_reloc (info, r_type))
25dbc73a 3888 p->pc_count += 1;
7619e7c7 3889 }
25dbc73a
AM		 3890
3891 break;
7619e7c7
AM		 3892 }
3893 }
ee05f2fe 3894
25dbc73a
AM		 3895 return TRUE;
3896}
3897\f
34c8bcba
JM		 3898
3899/* Merge object attributes from IBFD into OBFD. Raise an error if
3900 there are conflicting attributes. */
3901static bfd_boolean
3902ppc_elf_merge_obj_attributes (bfd *ibfd, bfd *obfd)
3903{
c6e65352
DJ		 3904 obj_attribute *in_attr, *in_attrs;
3905 obj_attribute *out_attr, *out_attrs;
34c8bcba
JM		 3906
3907 if (!elf_known_obj_attributes_proc (obfd)[0].i)
3908 {
3909 /* This is the first object. Copy the attributes. */
3910 _bfd_elf_copy_obj_attributes (ibfd, obfd);
3911
3912 /* Use the Tag_null value to indicate the attributes have been
3913 initialized. */
3914 elf_known_obj_attributes_proc (obfd)[0].i = 1;
3915
3916 return TRUE;
3917 }
3918
c6e65352
DJ		 3919 in_attrs = elf_known_obj_attributes (ibfd)[OBJ_ATTR_GNU];
3920 out_attrs = elf_known_obj_attributes (obfd)[OBJ_ATTR_GNU];
3921
34c8bcba
JM		 3922 /* Check for conflicting Tag_GNU_Power_ABI_FP attributes and merge
3923 non-conflicting ones. */
c6e65352
DJ		 3924 in_attr = &in_attrs[Tag_GNU_Power_ABI_FP];
3925 out_attr = &out_attrs[Tag_GNU_Power_ABI_FP];
3926 if (in_attr->i != out_attr->i)
34c8bcba 3927 {
c6e65352
DJ		 3928 out_attr->type = 1;
3929 if (out_attr->i == 0)
3930 out_attr->i = in_attr->i;
3931 else if (in_attr->i == 0)
34c8bcba 3932 ;
c6e65352 3933 else if (out_attr->i == 1 && in_attr->i == 2)
34c8bcba
JM		 3934 _bfd_error_handler
3935 (_("Warning: %B uses hard float, %B uses soft float"), obfd, ibfd);
3c7b9897
AM		 3936 else if (out_attr->i == 1 && in_attr->i == 3)
3937 _bfd_error_handler
3938 (_("Warning: %B uses double-precision hard float, %B uses single-precision hard float"),
3939 obfd, ibfd);
3940 else if (out_attr->i == 3 && in_attr->i == 1)
3941 _bfd_error_handler
3942 (_("Warning: %B uses double-precision hard float, %B uses single-precision hard float"),
3943 ibfd, obfd);
3944 else if (out_attr->i == 3 && in_attr->i == 2)
3945 _bfd_error_handler
3946 (_("Warning: %B uses soft float, %B uses single-precision hard float"),
3947 ibfd, obfd);
3948 else if (out_attr->i == 2 && (in_attr->i == 1 || in_attr->i == 3))
34c8bcba
JM		 3949 _bfd_error_handler
3950 (_("Warning: %B uses hard float, %B uses soft float"), ibfd, obfd);
3c7b9897 3951 else if (in_attr->i > 3)
34c8bcba
JM		 3952 _bfd_error_handler
3953 (_("Warning: %B uses unknown floating point ABI %d"), ibfd,
c6e65352 3954 in_attr->i);
34c8bcba
JM		 3955 else
3956 _bfd_error_handler
3957 (_("Warning: %B uses unknown floating point ABI %d"), obfd,
c6e65352
DJ		 3958 out_attr->i);
3959 }
3960
3961 /* Check for conflicting Tag_GNU_Power_ABI_Vector attributes and
3962 merge non-conflicting ones. */
3963 in_attr = &in_attrs[Tag_GNU_Power_ABI_Vector];
3964 out_attr = &out_attrs[Tag_GNU_Power_ABI_Vector];
3965 if (in_attr->i != out_attr->i)
3966 {
3967 const char *in_abi = NULL, *out_abi = NULL;
3968
3969 switch (in_attr->i)
3970 {
3971 case 1: in_abi = "generic"; break;
3972 case 2: in_abi = "AltiVec"; break;
3973 case 3: in_abi = "SPE"; break;
3974 }
3975
3976 switch (out_attr->i)
3977 {
3978 case 1: out_abi = "generic"; break;
3979 case 2: out_abi = "AltiVec"; break;
3980 case 3: out_abi = "SPE"; break;
3981 }
3982
3983 out_attr->type = 1;
3984 if (out_attr->i == 0)
3985 out_attr->i = in_attr->i;
3986 else if (in_attr->i == 0)
3987 ;
3988 /* For now, allow generic to transition to AltiVec or SPE
3989 without a warning. If GCC marked files with their stack
3990 alignment and used don't-care markings for files which are
3991 not affected by the vector ABI, we could warn about this
3992 case too. */
3993 else if (out_attr->i == 1)
3994 out_attr->i = in_attr->i;
3995 else if (in_attr->i == 1)
3996 ;
3997 else if (in_abi == NULL)
3998 _bfd_error_handler
3999 (_("Warning: %B uses unknown vector ABI %d"), ibfd,
4000 in_attr->i);
4001 else if (out_abi == NULL)
4002 _bfd_error_handler
4003 (_("Warning: %B uses unknown vector ABI %d"), obfd,
4004 in_attr->i);
4005 else
4006 _bfd_error_handler
4007 (_("Warning: %B uses vector ABI \"%s\", %B uses \"%s\""),
4008 ibfd, obfd, in_abi, out_abi);
34c8bcba
JM		 4009 }
4010
f82e0623
NF		 4011 /* Check for conflicting Tag_GNU_Power_ABI_Struct_Return attributes
4012 and merge non-conflicting ones. */
4013 in_attr = &in_attrs[Tag_GNU_Power_ABI_Struct_Return];
4014 out_attr = &out_attrs[Tag_GNU_Power_ABI_Struct_Return];
4015 if (in_attr->i != out_attr->i)
4016 {
4017 out_attr->type = 1;
4018 if (out_attr->i == 0)
4019 out_attr->i = in_attr->i;
4020 else if (in_attr->i == 0)
4021 ;
4022 else if (out_attr->i == 1 && in_attr->i == 2)
4023 _bfd_error_handler
4024 (_("Warning: %B uses r3/r4 for small structure returns, %B uses memory"), obfd, ibfd);
4025 else if (out_attr->i == 2 && in_attr->i == 1)
4026 _bfd_error_handler
4027 (_("Warning: %B uses r3/r4 for small structure returns, %B uses memory"), ibfd, obfd);
4028 else if (in_attr->i > 2)
4029 _bfd_error_handler
4030 (_("Warning: %B uses unknown small structure return convention %d"), ibfd,
4031 in_attr->i);
4032 else
4033 _bfd_error_handler
4034 (_("Warning: %B uses unknown small structure return convention %d"), obfd,
4035 out_attr->i);
4036 }
4037
34c8bcba
JM		 4038 /* Merge Tag_compatibility attributes and any common GNU ones. */
4039 _bfd_elf_merge_object_attributes (ibfd, obfd);
4040
4041 return TRUE;
4042}
4043
8853c3d3
AM		 4044/* Merge backend specific data from an object file to the output
4045 object file when linking. */
4046
4047static bfd_boolean
4048ppc_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
4049{
4050 flagword old_flags;
4051 flagword new_flags;
4052 bfd_boolean error;
4053
0c8d6e5c 4054 if (!is_ppc_elf (ibfd) || !is_ppc_elf (obfd))
8853c3d3
AM		 4055 return TRUE;
4056
4057 /* Check if we have the same endianess. */
4058 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
4059 return FALSE;
4060
34c8bcba
JM		 4061 if (!ppc_elf_merge_obj_attributes (ibfd, obfd))
4062 return FALSE;
4063
8853c3d3
AM		 4064 new_flags = elf_elfheader (ibfd)->e_flags;
4065 old_flags = elf_elfheader (obfd)->e_flags;
4066 if (!elf_flags_init (obfd))
4067 {
4068 /* First call, no flags set. */
4069 elf_flags_init (obfd) = TRUE;
4070 elf_elfheader (obfd)->e_flags = new_flags;
4071 }
4072
4073 /* Compatible flags are ok. */
4074 else if (new_flags == old_flags)
4075 ;
4076
4077 /* Incompatible flags. */
4078 else
4079 {
4080 /* Warn about -mrelocatable mismatch. Allow -mrelocatable-lib
4081 to be linked with either. */
4082 error = FALSE;
4083 if ((new_flags & EF_PPC_RELOCATABLE) != 0
4084 && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
4085 {
4086 error = TRUE;
4087 (*_bfd_error_handler)
4088 (_("%B: compiled with -mrelocatable and linked with "
4089 "modules compiled normally"), ibfd);
4090 }
4091 else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
4092 && (old_flags & EF_PPC_RELOCATABLE) != 0)
4093 {
4094 error = TRUE;
4095 (*_bfd_error_handler)
4096 (_("%B: compiled normally and linked with "
4097 "modules compiled with -mrelocatable"), ibfd);
4098 }
4099
4100 /* The output is -mrelocatable-lib iff both the input files are. */
4101 if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
4102 elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
4103
4104 /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
4105 but each input file is either -mrelocatable or -mrelocatable-lib. */
4106 if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
4107 && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
4108 && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
4109 elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
4110
4111 /* Do not warn about eabi vs. V.4 mismatch, just or in the bit if
4112 any module uses it. */
4113 elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
4114
4115 new_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
4116 old_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
4117
4118 /* Warn about any other mismatches. */
4119 if (new_flags != old_flags)
4120 {
4121 error = TRUE;
4122 (*_bfd_error_handler)
4123 (_("%B: uses different e_flags (0x%lx) fields "
4124 "than previous modules (0x%lx)"),
4125 ibfd, (long) new_flags, (long) old_flags);
4126 }
4127
4128 if (error)
4129 {
4130 bfd_set_error (bfd_error_bad_value);
4131 return FALSE;
4132 }
4133 }
4134
4135 return TRUE;
4136}
4137\f
d7128ce4
AM		 4138/* Choose which PLT scheme to use, and set .plt flags appropriately.
4139 Returns -1 on error, 0 for old PLT, 1 for new PLT. */
4140int
4141ppc_elf_select_plt_layout (bfd *output_bfd ATTRIBUTE_UNUSED,
4142 struct bfd_link_info *info,
016687f8 4143 enum ppc_elf_plt_type plt_style,
0ba07910 4144 int emit_stub_syms)
d7128ce4
AM		 4145{
4146 struct ppc_elf_link_hash_table *htab;
9d8504b1 4147 flagword flags;
d7128ce4
AM		 4148
4149 htab = ppc_elf_hash_table (info);
4a3dc543
RS		 4150
4151 if (htab->plt_type == PLT_UNSET)
016687f8
AM		 4152 {
4153 if (plt_style == PLT_OLD)
4154 htab->plt_type = PLT_OLD;
4155 else
4156 {
4157 bfd *ibfd;
4158 enum ppc_elf_plt_type plt_type = plt_style;
4159
4160 /* Look through the reloc flags left by ppc_elf_check_relocs.
4161 Use the old style bss plt if a file makes plt calls
4162 without using the new relocs, and if ld isn't given
4163 --secure-plt and we never see REL16 relocs. */
4164 if (plt_type == PLT_UNSET)
4165 plt_type = PLT_OLD;
60b31e8d 4166 for (ibfd = info->input_bfds; ibfd; ibfd = ibfd->link_next)
0c8d6e5c 4167 if (is_ppc_elf (ibfd))
016687f8
AM		 4168 {
4169 if (ppc_elf_tdata (ibfd)->has_rel16)
4170 plt_type = PLT_NEW;
4171 else if (ppc_elf_tdata (ibfd)->makes_plt_call)
4172 {
4173 plt_type = PLT_OLD;
4174 htab->old_bfd = ibfd;
4175 break;
4176 }
4177 }
4178 htab->plt_type = plt_type;
4179 }
4180 }
4181 if (htab->plt_type == PLT_OLD && plt_style == PLT_NEW)
4182 info->callbacks->info (_("Using bss-plt due to %B"), htab->old_bfd);
d7128ce4 4183
0ba07910
AM		 4184 htab->emit_stub_syms = emit_stub_syms;
4185
4a3dc543 4186 BFD_ASSERT (htab->plt_type != PLT_VXWORKS);
9d8504b1 4187
4a3dc543 4188 if (htab->plt_type == PLT_NEW)
9d8504b1
PB		 4189 {
4190 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
4191 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
86b9da88
AM		 4192
4193 /* The new PLT is a loaded section. */
4194 if (htab->plt != NULL
4195 && !bfd_set_section_flags (htab->elf.dynobj, htab->plt, flags))
4196 return -1;
4197
4198 /* The new GOT is not executable. */
4199 if (htab->got != NULL
4200 && !bfd_set_section_flags (htab->elf.dynobj, htab->got, flags))
4201 return -1;
d7128ce4
AM		 4202 }
4203 else
4204 {
4205 /* Stop an unused .glink section from affecting .text alignment. */
86b9da88
AM		 4206 if (htab->glink != NULL
4207 && !bfd_set_section_alignment (htab->elf.dynobj, htab->glink, 0))
4208 return -1;
d7128ce4 4209 }
4a3dc543 4210 return htab->plt_type == PLT_NEW;
d7128ce4
AM		 4211}
4212\f
25dbc73a
AM		 4213/* Return the section that should be marked against GC for a given
4214 relocation. */
586119b3 4215
25dbc73a
AM		 4216static asection *
4217ppc_elf_gc_mark_hook (asection *sec,
07adf181 4218 struct bfd_link_info *info,
25dbc73a
AM		 4219 Elf_Internal_Rela *rel,
4220 struct elf_link_hash_entry *h,
4221 Elf_Internal_Sym *sym)
4222{
4223 if (h != NULL)
07adf181
AM		 4224 switch (ELF32_R_TYPE (rel->r_info))
4225 {
4226 case R_PPC_GNU_VTINHERIT:
4227 case R_PPC_GNU_VTENTRY:
4228 return NULL;
4229 }
4230
4231 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
25dbc73a 4232}
a876ecf9 4233
25dbc73a
AM		 4234/* Update the got, plt and dynamic reloc reference counts for the
4235 section being removed. */
4236
4237static bfd_boolean
4238ppc_elf_gc_sweep_hook (bfd *abfd,
4239 struct bfd_link_info *info,
4240 asection *sec,
4241 const Elf_Internal_Rela *relocs)
4242{
4243 struct ppc_elf_link_hash_table *htab;
4244 Elf_Internal_Shdr *symtab_hdr;
4245 struct elf_link_hash_entry **sym_hashes;
4246 bfd_signed_vma *local_got_refcounts;
4247 const Elf_Internal_Rela *rel, *relend;
a6aa5195 4248 asection *got2;
25dbc73a 4249
7dda2462
TG		 4250 if (info->relocatable)
4251 return TRUE;
4252
c87b5a93
AM		 4253 if ((sec->flags & SEC_ALLOC) == 0)
4254 return TRUE;
4255
25dbc73a
AM		 4256 elf_section_data (sec)->local_dynrel = NULL;
4257
4258 htab = ppc_elf_hash_table (info);
0ffa91dd 4259 symtab_hdr = &elf_symtab_hdr (abfd);
25dbc73a
AM		 4260 sym_hashes = elf_sym_hashes (abfd);
4261 local_got_refcounts = elf_local_got_refcounts (abfd);
a6aa5195 4262 got2 = bfd_get_section_by_name (abfd, ".got2");
25dbc73a
AM		 4263
4264 relend = relocs + sec->reloc_count;
4265 for (rel = relocs; rel < relend; rel++)
4266 {
4267 unsigned long r_symndx;
4268 enum elf_ppc_reloc_type r_type;
4269 struct elf_link_hash_entry *h = NULL;
4270
4271 r_symndx = ELF32_R_SYM (rel->r_info);
4272 if (r_symndx >= symtab_hdr->sh_info)
a876ecf9 4273 {
25dbc73a
AM		 4274 struct ppc_elf_dyn_relocs **pp, *p;
4275 struct ppc_elf_link_hash_entry *eh;
4276
4277 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4278 while (h->root.type == bfd_link_hash_indirect
4279 || h->root.type == bfd_link_hash_warning)
4280 h = (struct elf_link_hash_entry *) h->root.u.i.link;
4281 eh = (struct ppc_elf_link_hash_entry *) h;
4282
4283 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
4284 if (p->sec == sec)
4285 {
4286 /* Everything must go for SEC. */
4287 *pp = p->next;
4288 break;
4289 }
a876ecf9 4290 }
ee05f2fe 4291
25dbc73a
AM		 4292 r_type = ELF32_R_TYPE (rel->r_info);
4293 switch (r_type)
ee05f2fe 4294 {
25dbc73a
AM		 4295 case R_PPC_GOT_TLSLD16:
4296 case R_PPC_GOT_TLSLD16_LO:
4297 case R_PPC_GOT_TLSLD16_HI:
4298 case R_PPC_GOT_TLSLD16_HA:
25dbc73a
AM		 4299 case R_PPC_GOT_TLSGD16:
4300 case R_PPC_GOT_TLSGD16_LO:
4301 case R_PPC_GOT_TLSGD16_HI:
4302 case R_PPC_GOT_TLSGD16_HA:
4303 case R_PPC_GOT_TPREL16:
4304 case R_PPC_GOT_TPREL16_LO:
4305 case R_PPC_GOT_TPREL16_HI:
4306 case R_PPC_GOT_TPREL16_HA:
4307 case R_PPC_GOT_DTPREL16:
4308 case R_PPC_GOT_DTPREL16_LO:
4309 case R_PPC_GOT_DTPREL16_HI:
4310 case R_PPC_GOT_DTPREL16_HA:
4311 case R_PPC_GOT16:
4312 case R_PPC_GOT16_LO:
4313 case R_PPC_GOT16_HI:
4314 case R_PPC_GOT16_HA:
4315 if (h != NULL)
ee05f2fe 4316 {
25dbc73a
AM		 4317 if (h->got.refcount > 0)
4318 h->got.refcount--;
ee05f2fe 4319 }
25dbc73a
AM		 4320 else if (local_got_refcounts != NULL)
4321 {
4322 if (local_got_refcounts[r_symndx] > 0)
4323 local_got_refcounts[r_symndx]--;
4324 }
4325 break;
ee05f2fe 4326
25dbc73a
AM		 4327 case R_PPC_REL24:
4328 case R_PPC_REL14:
4329 case R_PPC_REL14_BRTAKEN:
4330 case R_PPC_REL14_BRNTAKEN:
4331 case R_PPC_REL32:
3b36f7e6 4332 if (h == NULL || h == htab->elf.hgot)
25dbc73a
AM		 4333 break;
4334 /* Fall thru */
ee05f2fe 4335
25dbc73a
AM		 4336 case R_PPC_ADDR32:
4337 case R_PPC_ADDR24:
4338 case R_PPC_ADDR16:
4339 case R_PPC_ADDR16_LO:
4340 case R_PPC_ADDR16_HI:
4341 case R_PPC_ADDR16_HA:
4342 case R_PPC_ADDR14:
4343 case R_PPC_ADDR14_BRTAKEN:
4344 case R_PPC_ADDR14_BRNTAKEN:
4345 case R_PPC_UADDR32:
4346 case R_PPC_UADDR16:
87538722
AM		 4347 if (info->shared)
4348 break;
4349
25dbc73a
AM		 4350 case R_PPC_PLT32:
4351 case R_PPC_PLTREL24:
87538722 4352 case R_PPC_PLTREL32:
25dbc73a
AM		 4353 case R_PPC_PLT16_LO:
4354 case R_PPC_PLT16_HI:
4355 case R_PPC_PLT16_HA:
4356 if (h != NULL)
4357 {
a6aa5195
AM		 4358 bfd_vma addend = r_type == R_PPC_PLTREL24 ? rel->r_addend : 0;
4359 struct plt_entry *ent = find_plt_ent (h, got2, addend);
4360 if (ent->plt.refcount > 0)
4361 ent->plt.refcount -= 1;
25dbc73a
AM		 4362 }
4363 break;
ee05f2fe 4364
25dbc73a
AM		 4365 default:
4366 break;
4367 }
7fce784e 4368 }
7fce784e
AS		 4369 return TRUE;
4370}
25dbc73a 4371\f
3a71aa26
AM		 4372/* Set plt output section type, htab->tls_get_addr, and call the
4373 generic ELF tls_setup function. */
7fce784e 4374
25dbc73a
AM		 4375asection *
4376ppc_elf_tls_setup (bfd *obfd, struct bfd_link_info *info)
7fce784e 4377{
25dbc73a 4378 struct ppc_elf_link_hash_table *htab;
7fce784e 4379
25dbc73a 4380 htab = ppc_elf_hash_table (info);
4a3dc543 4381 if (htab->plt_type == PLT_NEW
d7128ce4
AM		 4382 && htab->plt != NULL
4383 && htab->plt->output_section != NULL)
4384 {
4385 elf_section_type (htab->plt->output_section) = SHT_PROGBITS;
4386 elf_section_flags (htab->plt->output_section) = SHF_ALLOC + SHF_WRITE;
4387 }
4388
25dbc73a
AM		 4389 htab->tls_get_addr = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
4390 FALSE, FALSE, TRUE);
25dbc73a 4391 return _bfd_elf_tls_setup (obfd, info);
7fce784e
AS		 4392}
4393
3a71aa26
AM		 4394/* Return TRUE iff REL is a branch reloc with a global symbol matching
4395 HASH. */
4396
4397static bfd_boolean
4398branch_reloc_hash_match (const bfd *ibfd,
4399 const Elf_Internal_Rela *rel,
4400 const struct elf_link_hash_entry *hash)
4401{
4402 Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (ibfd);
4403 enum elf_ppc_reloc_type r_type = ELF32_R_TYPE (rel->r_info);
4404 unsigned int r_symndx = ELF32_R_SYM (rel->r_info);
4405
4406 if (r_symndx >= symtab_hdr->sh_info
4407 && (r_type == R_PPC_PLTREL24
4408 || r_type == R_PPC_LOCAL24PC
4409 || r_type == R_PPC_REL14
4410 || r_type == R_PPC_REL14_BRTAKEN
4411 || r_type == R_PPC_REL14_BRNTAKEN
4412 || r_type == R_PPC_REL24
4413 || r_type == R_PPC_ADDR24
4414 || r_type == R_PPC_ADDR14
4415 || r_type == R_PPC_ADDR14_BRTAKEN
4416 || r_type == R_PPC_ADDR14_BRNTAKEN))
4417 {
4418 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
4419 struct elf_link_hash_entry *h;
4420
4421 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4422 while (h->root.type == bfd_link_hash_indirect
4423 || h->root.type == bfd_link_hash_warning)
4424 h = (struct elf_link_hash_entry *) h->root.u.i.link;
4425 if (h == hash)
4426 return TRUE;
4427 }
4428 return FALSE;
4429}
4430
25dbc73a
AM		 4431/* Run through all the TLS relocs looking for optimization
4432 opportunities. */
252b5132 4433
25dbc73a
AM		 4434bfd_boolean
4435ppc_elf_tls_optimize (bfd *obfd ATTRIBUTE_UNUSED,
4436 struct bfd_link_info *info)
252b5132 4437{
7fce784e 4438 bfd *ibfd;
25dbc73a
AM		 4439 asection *sec;
4440 struct ppc_elf_link_hash_table *htab;
b7fcf6f6 4441 int pass;
252b5132 4442
1d483afe 4443 if (info->relocatable || !info->executable)
25dbc73a 4444 return TRUE;
252b5132 4445
7619e7c7 4446 htab = ppc_elf_hash_table (info);
b7fcf6f6
AM		 4447 /* Make two passes through the relocs. First time check that tls
4448 relocs involved in setting up a tls_get_addr call are indeed
4449 followed by such a call. If they are not, exclude them from
4450 the optimizations done on the second pass. */
4451 for (pass = 0; pass < 2; ++pass)
4452 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
4453 {
4454 Elf_Internal_Sym *locsyms = NULL;
0ffa91dd 4455 Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (ibfd);
7619e7c7 4456
b7fcf6f6
AM		 4457 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
4458 if (sec->has_tls_reloc && !bfd_is_abs_section (sec->output_section))
4459 {
4460 Elf_Internal_Rela *relstart, *rel, *relend;
252b5132 4461
b7fcf6f6
AM		 4462 /* Read the relocations. */
4463 relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
4464 info->keep_memory);
4465 if (relstart == NULL)
4466 return FALSE;
7619e7c7 4467
b7fcf6f6
AM		 4468 relend = relstart + sec->reloc_count;
4469 for (rel = relstart; rel < relend; rel++)
4470 {
4471 enum elf_ppc_reloc_type r_type;
4472 unsigned long r_symndx;
4473 struct elf_link_hash_entry *h = NULL;
4474 char *tls_mask;
4475 char tls_set, tls_clear;
4476 bfd_boolean is_local;
4477 int expecting_tls_get_addr;
4478 bfd_signed_vma *got_count;
4479
4480 r_symndx = ELF32_R_SYM (rel->r_info);
4481 if (r_symndx >= symtab_hdr->sh_info)
4482 {
4483 struct elf_link_hash_entry **sym_hashes;
7fce784e 4484
b7fcf6f6
AM		 4485 sym_hashes = elf_sym_hashes (ibfd);
4486 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4487 while (h->root.type == bfd_link_hash_indirect
4488 || h->root.type == bfd_link_hash_warning)
4489 h = (struct elf_link_hash_entry *) h->root.u.i.link;
4490 }
7619e7c7 4491
b7fcf6f6
AM		 4492 expecting_tls_get_addr = 0;
4493 is_local = FALSE;
4494 if (h == NULL
4495 || !h->def_dynamic)
4496 is_local = TRUE;
7619e7c7 4497
b7fcf6f6
AM		 4498 r_type = ELF32_R_TYPE (rel->r_info);
4499 switch (r_type)
4500 {
4501 case R_PPC_GOT_TLSLD16:
4502 case R_PPC_GOT_TLSLD16_LO:
4503 expecting_tls_get_addr = 1;
4504 /* Fall thru */
4505
4506 case R_PPC_GOT_TLSLD16_HI:
4507 case R_PPC_GOT_TLSLD16_HA:
4508 /* These relocs should never be against a symbol
4509 defined in a shared lib. Leave them alone if
4510 that turns out to be the case. */
4511 if (!is_local)
4512 continue;
4513
4514 /* LD -> LE */
4515 tls_set = 0;
4516 tls_clear = TLS_LD;
4517 break;
4518
4519 case R_PPC_GOT_TLSGD16:
4520 case R_PPC_GOT_TLSGD16_LO:
4521 expecting_tls_get_addr = 1;
4522 /* Fall thru */
4523
4524 case R_PPC_GOT_TLSGD16_HI:
4525 case R_PPC_GOT_TLSGD16_HA:
4526 if (is_local)
4527 /* GD -> LE */
4528 tls_set = 0;
4529 else
4530 /* GD -> IE */
4531 tls_set = TLS_TLS | TLS_TPRELGD;
4532 tls_clear = TLS_GD;
4533 break;
4534
4535 case R_PPC_GOT_TPREL16:
4536 case R_PPC_GOT_TPREL16_LO:
4537 case R_PPC_GOT_TPREL16_HI:
4538 case R_PPC_GOT_TPREL16_HA:
4539 if (is_local)
4540 {
4541 /* IE -> LE */
4542 tls_set = 0;
4543 tls_clear = TLS_TPREL;
4544 break;
4545 }
4546 else
4547 continue;
4548
4549 default:
25dbc73a 4550 continue;
b7fcf6f6 4551 }
25dbc73a 4552
b7fcf6f6
AM		 4553 if (pass == 0)
4554 {
727fc41e
AM		 4555 if (!expecting_tls_get_addr
4556 || !sec->has_tls_get_addr_call)
b7fcf6f6 4557 continue;
25dbc73a 4558
3a71aa26
AM		 4559 if (rel + 1 < relend
4560 && branch_reloc_hash_match (ibfd, rel + 1,
4561 htab->tls_get_addr))
4562 continue;
25dbc73a 4563
b7fcf6f6
AM		 4564 /* Uh oh, we didn't find the expected call. We
4565 could just mark this symbol to exclude it
4566 from tls optimization but it's safer to skip
4567 the entire section. */
4568 sec->has_tls_reloc = 0;
4569 break;
4570 }
25dbc73a 4571
b7fcf6f6
AM		 4572 if (h != NULL)
4573 {
4574 tls_mask = &ppc_elf_hash_entry (h)->tls_mask;
4575 got_count = &h->got.refcount;
4576 }
4577 else
4578 {
4579 Elf_Internal_Sym *sym;
4580 bfd_signed_vma *lgot_refs;
4581 char *lgot_masks;
25dbc73a 4582
b7fcf6f6
AM		 4583 if (locsyms == NULL)
4584 {
4585 locsyms = (Elf_Internal_Sym *) symtab_hdr->contents;
4586 if (locsyms == NULL)
4587 locsyms = bfd_elf_get_elf_syms (ibfd, symtab_hdr,
4588 symtab_hdr->sh_info,
4589 0, NULL, NULL, NULL);
4590 if (locsyms == NULL)
4591 {
4592 if (elf_section_data (sec)->relocs != relstart)
4593 free (relstart);
4594 return FALSE;
4595 }
4596 }
4597 sym = locsyms + r_symndx;
4598 lgot_refs = elf_local_got_refcounts (ibfd);
4599 if (lgot_refs == NULL)
4600 abort ();
4601 lgot_masks = (char *) (lgot_refs + symtab_hdr->sh_info);
4602 tls_mask = &lgot_masks[r_symndx];
4603 got_count = &lgot_refs[r_symndx];
4604 }
25dbc73a 4605
b7fcf6f6
AM		 4606 if (tls_set == 0)
4607 {
4608 /* We managed to get rid of a got entry. */
4609 if (*got_count > 0)
4610 *got_count -= 1;
4611 }
25dbc73a 4612
b7fcf6f6
AM		 4613 if (expecting_tls_get_addr)
4614 {
4615 struct plt_entry *ent;
25dbc73a 4616
b7fcf6f6
AM		 4617 ent = find_plt_ent (htab->tls_get_addr, NULL, 0);
4618 if (ent != NULL && ent->plt.refcount > 0)
4619 ent->plt.refcount -= 1;
4620 }
25dbc73a 4621
b7fcf6f6
AM		 4622 *tls_mask |= tls_set;
4623 *tls_mask &= ~tls_clear;
4624 }
25dbc73a 4625
b7fcf6f6
AM		 4626 if (elf_section_data (sec)->relocs != relstart)
4627 free (relstart);
4628 }
4629
4630 if (locsyms != NULL
4631 && (symtab_hdr->contents != (unsigned char *) locsyms))
4632 {
4633 if (!info->keep_memory)
4634 free (locsyms);
4635 else
4636 symtab_hdr->contents = (unsigned char *) locsyms;
4637 }
4638 }
25dbc73a
AM		 4639 return TRUE;
4640}
4641\f
625af618
AM		 4642/* Return true if we have dynamic relocs that apply to read-only sections. */
4643
4644static bfd_boolean
4645readonly_dynrelocs (struct elf_link_hash_entry *h)
4646{
4647 struct ppc_elf_dyn_relocs *p;
4648
4649 for (p = ppc_elf_hash_entry (h)->dyn_relocs; p != NULL; p = p->next)
4650 {
4651 asection *s = p->sec->output_section;
4652
4653 if (s != NULL
4654 && ((s->flags & (SEC_READONLY | SEC_ALLOC))
4655 == (SEC_READONLY | SEC_ALLOC)))
4656 return TRUE;
4657 }
4658 return FALSE;
4659}
4660
25dbc73a
AM		 4661/* Adjust a symbol defined by a dynamic object and referenced by a
4662 regular object. The current definition is in some section of the
4663 dynamic object, but we're not including those sections. We have to
4664 change the definition to something the rest of the link can
4665 understand. */
7fce784e 4666
25dbc73a
AM		 4667static bfd_boolean
4668ppc_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
4669 struct elf_link_hash_entry *h)
4670{
4671 struct ppc_elf_link_hash_table *htab;
4672 asection *s;
7fce784e 4673
25dbc73a
AM		 4674#ifdef DEBUG
4675 fprintf (stderr, "ppc_elf_adjust_dynamic_symbol called for %s\n",
4676 h->root.root.string);
4677#endif
252b5132 4678
25dbc73a
AM		 4679 /* Make sure we know what is going on here. */
4680 htab = ppc_elf_hash_table (info);
4681 BFD_ASSERT (htab->elf.dynobj != NULL
4682 && (h->needs_plt
4683 || h->u.weakdef != NULL
4684 || (h->def_dynamic
4685 && h->ref_regular
4686 && !h->def_regular)));
252b5132 4687
25dbc73a
AM		 4688 /* Deal with function syms. */
4689 if (h->type == STT_FUNC
4690 || h->needs_plt)
4691 {
4692 /* Clear procedure linkage table information for any symbol that
4693 won't need a .plt entry. */
a6aa5195
AM		 4694 struct plt_entry *ent;
4695 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
4696 if (ent->plt.refcount > 0)
4697 break;
4698 if (ent == NULL
25dbc73a
AM		 4699 || SYMBOL_CALLS_LOCAL (info, h)
4700 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
4701 && h->root.type == bfd_link_hash_undefweak))
252b5132 4702 {
25dbc73a 4703 /* A PLT entry is not required/allowed when:
252b5132 4704
25dbc73a
AM		 4705 1. We are not using ld.so; because then the PLT entry
4706 can't be set up, so we can't use one. In this case,
4707 ppc_elf_adjust_dynamic_symbol won't even be called.
252b5132 4708
25dbc73a
AM		 4709 2. GC has rendered the entry unused.
4710
4711 3. We know for certain that a call to this symbol
4712 will go to this object, or will remain undefined. */
a6aa5195 4713 h->plt.plist = NULL;
25dbc73a
AM		 4714 h->needs_plt = 0;
4715 }
625af618
AM		 4716 else
4717 {
4718 /* After adjust_dynamic_symbol, non_got_ref set means that
4719 dyn_relocs for this symbol should be discarded.
4720 If we get here we know we are making a PLT entry for this
4721 symbol, and in an executable we'd normally resolve
4722 relocations against this symbol to the PLT entry. Allow
4723 dynamic relocs if the reference is weak, and the dynamic
4724 relocs will not cause text relocation. */
4725 if (!h->ref_regular_nonweak
4726 && h->non_got_ref
4727 && !htab->is_vxworks
4728 && !ppc_elf_hash_entry (h)->has_sda_refs
4729 && !readonly_dynrelocs (h))
4730 h->non_got_ref = 0;
4731 }
25dbc73a 4732 return TRUE;
252b5132 4733 }
25dbc73a 4734 else
a6aa5195 4735 h->plt.plist = NULL;
252b5132 4736
25dbc73a
AM		 4737 /* If this is a weak symbol, and there is a real definition, the
4738 processor independent code will have arranged for us to see the
4739 real definition first, and we can just use the same value. */
4740 if (h->u.weakdef != NULL)
252b5132 4741 {
25dbc73a
AM		 4742 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4743 || h->u.weakdef->root.type == bfd_link_hash_defweak);
4744 h->root.u.def.section = h->u.weakdef->root.u.def.section;
4745 h->root.u.def.value = h->u.weakdef->root.u.def.value;
4746 if (ELIMINATE_COPY_RELOCS)
4747 h->non_got_ref = h->u.weakdef->non_got_ref;
4748 return TRUE;
4749 }
dc810e39 4750
25dbc73a
AM		 4751 /* This is a reference to a symbol defined by a dynamic object which
4752 is not a function. */
252b5132 4753
25dbc73a
AM		 4754 /* If we are creating a shared library, we must presume that the
4755 only references to the symbol are via the global offset table.
4756 For such cases we need not do anything here; the relocations will
4757 be handled correctly by relocate_section. */
4758 if (info->shared)
4759 return TRUE;
252b5132 4760
25dbc73a
AM		 4761 /* If there are no references to this symbol that do not use the
4762 GOT, we don't need to generate a copy reloc. */
4763 if (!h->non_got_ref)
4764 return TRUE;
4765
cfd2c773
NS		 4766 /* If we didn't find any dynamic relocs in read-only sections, then
4767 we'll be keeping the dynamic relocs and avoiding the copy reloc.
4768 We can't do this if there are any small data relocations. This
4769 doesn't work on VxWorks, where we can not have dynamic
4770 relocations (other than copy and jump slot relocations) in an
4771 executable. */
4dc4a9a5 4772 if (ELIMINATE_COPY_RELOCS
cfd2c773 4773 && !ppc_elf_hash_entry (h)->has_sda_refs
625af618
AM		 4774 && !htab->is_vxworks
4775 && !h->def_regular
4776 && !readonly_dynrelocs (h))
25dbc73a 4777 {
625af618
AM		 4778 h->non_got_ref = 0;
4779 return TRUE;
252b5132
RH		 4780 }
4781
909272ee
AM		 4782 if (h->size == 0)
4783 {
4784 (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
4785 h->root.root.string);
4786 return TRUE;
4787 }
4788
25dbc73a
AM		 4789 /* We must allocate the symbol in our .dynbss section, which will
4790 become part of the .bss section of the executable. There will be
4791 an entry for this symbol in the .dynsym section. The dynamic
4792 object will contain position independent code, so all references
4793 from the dynamic object to this symbol will go through the global
4794 offset table. The dynamic linker will use the .dynsym entry to
4795 determine the address it must put in the global offset table, so
4796 both the dynamic object and the regular object will refer to the
4797 same memory location for the variable.
4798
4dc4a9a5
DJ		 4799 Of course, if the symbol is referenced using SDAREL relocs, we
4800 must instead allocate it in .sbss. */
25dbc73a 4801
4dc4a9a5 4802 if (ppc_elf_hash_entry (h)->has_sda_refs)
25dbc73a
AM		 4803 s = htab->dynsbss;
4804 else
4805 s = htab->dynbss;
4806 BFD_ASSERT (s != NULL);
4807
4808 /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
4809 copy the initial value out of the dynamic object and into the
4810 runtime process image. We need to remember the offset into the
4811 .rela.bss section we are going to use. */
4812 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
4813 {
4814 asection *srel;
4815
4dc4a9a5 4816 if (ppc_elf_hash_entry (h)->has_sda_refs)
25dbc73a
AM		 4817 srel = htab->relsbss;
4818 else
4819 srel = htab->relbss;
4820 BFD_ASSERT (srel != NULL);
4821 srel->size += sizeof (Elf32_External_Rela);
4822 h->needs_copy = 1;
4823 }
7619e7c7 4824
027297b7 4825 return _bfd_elf_adjust_dynamic_copy (h, s);
25dbc73a
AM		 4826}
4827\f
ac39eb42
AM		 4828/* Generate a symbol to mark plt call stubs. For non-PIC code the sym is
4829 xxxxxxxx.plt_call32.<callee> where xxxxxxxx is a hex number, usually 0,
4830 specifying the addend on the plt relocation. For -fpic code, the sym
4831 is xxxxxxxx.plt_pic32.<callee>, and for -fPIC
4832 xxxxxxxx.got2.plt_pic32.<callee>. */
0ba07910
AM		 4833
4834static bfd_boolean
4835add_stub_sym (struct plt_entry *ent,
4836 struct elf_link_hash_entry *h,
ac39eb42 4837 struct bfd_link_info *info)
0ba07910
AM		 4838{
4839 struct elf_link_hash_entry *sh;
4840 size_t len1, len2, len3;
4841 char *name;
ac39eb42
AM		 4842 const char *stub;
4843 struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
4844
4845 if (info->shared || info->pie)
4846 stub = ".plt_pic32.";
4847 else
4848 stub = ".plt_call32.";
0ba07910
AM		 4849
4850 len1 = strlen (h->root.root.string);
ac39eb42 4851 len2 = strlen (stub);
0ba07910
AM		 4852 len3 = 0;
4853 if (ent->sec)
4854 len3 = strlen (ent->sec->name);
ac39eb42 4855 name = bfd_malloc (len1 + len2 + len3 + 9);
0ba07910
AM		 4856 if (name == NULL)
4857 return FALSE;
4858 sprintf (name, "%08x", (unsigned) ent->addend & 0xffffffff);
4859 if (ent->sec)
4860 memcpy (name + 8, ent->sec->name, len3);
ac39eb42
AM		 4861 memcpy (name + 8 + len3, stub, len2);
4862 memcpy (name + 8 + len3 + len2, h->root.root.string, len1 + 1);
0ba07910
AM		 4863 sh = elf_link_hash_lookup (&htab->elf, name, TRUE, FALSE, FALSE);
4864 if (sh == NULL)
4865 return FALSE;
4866 if (sh->root.type == bfd_link_hash_new)
4867 {
4868 sh->root.type = bfd_link_hash_defined;
4869 sh->root.u.def.section = htab->glink;
4870 sh->root.u.def.value = ent->glink_offset;
4871 sh->ref_regular = 1;
4872 sh->def_regular = 1;
4873 sh->ref_regular_nonweak = 1;
4874 sh->forced_local = 1;
4875 sh->non_elf = 0;
4876 }
4877 return TRUE;
4878}
4879
3b36f7e6
AM		 4880/* Allocate NEED contiguous space in .got, and return the offset.
4881 Handles allocation of the got header when crossing 32k. */
4882
4883static bfd_vma
4884allocate_got (struct ppc_elf_link_hash_table *htab, unsigned int need)
4885{
4886 bfd_vma where;
4a3dc543 4887 unsigned int max_before_header;
3b36f7e6 4888
4a3dc543 4889 if (htab->plt_type == PLT_VXWORKS)
9d8504b1
PB		 4890 {
4891 where = htab->got->size;
4892 htab->got->size += need;
4893 }
3b36f7e6
AM		 4894 else
4895 {
4a3dc543
RS		 4896 max_before_header = htab->plt_type == PLT_NEW ? 32768 : 32764;
4897 if (need <= htab->got_gap)
3b36f7e6 4898 {
4a3dc543
RS		 4899 where = max_before_header - htab->got_gap;
4900 htab->got_gap -= need;
4901 }
4902 else
4903 {
4904 if (htab->got->size + need > max_before_header
4905 && htab->got->size <= max_before_header)
4906 {
4907 htab->got_gap = max_before_header - htab->got->size;
4908 htab->got->size = max_before_header + htab->got_header_size;
4909 }
4910 where = htab->got->size;
4911 htab->got->size += need;
3b36f7e6 4912 }
3b36f7e6
AM		 4913 }
4914 return where;
4915}
4916
25dbc73a 4917/* Allocate space in associated reloc sections for dynamic relocs. */
252b5132 4918
b34976b6 4919static bfd_boolean
25dbc73a 4920allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
252b5132 4921{
25dbc73a
AM		 4922 struct bfd_link_info *info = inf;
4923 struct ppc_elf_link_hash_entry *eh;
7619e7c7 4924 struct ppc_elf_link_hash_table *htab;
25dbc73a 4925 struct ppc_elf_dyn_relocs *p;
252b5132 4926
25dbc73a 4927 if (h->root.type == bfd_link_hash_indirect)
b34976b6 4928 return TRUE;
252b5132 4929
25dbc73a
AM		 4930 if (h->root.type == bfd_link_hash_warning)
4931 /* When warning symbols are created, they **replace** the "real"
4932 entry in the hash table, thus we never get to see the real
4933 symbol in a hash traversal. So look at it now. */
4934 h = (struct elf_link_hash_entry *) h->root.u.i.link;
e47cd125 4935
7619e7c7 4936 htab = ppc_elf_hash_table (info);
a6aa5195 4937 if (htab->elf.dynamic_sections_created)
252b5132 4938 {
a6aa5195
AM		 4939 struct plt_entry *ent;
4940 bfd_boolean doneone = FALSE;
28e99bb6
AM		 4941 bfd_vma plt_offset = 0, glink_offset = 0;
4942
a6aa5195
AM		 4943 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
4944 if (ent->plt.refcount > 0)
4945 {
4946 /* Make sure this symbol is output as a dynamic symbol. */
4947 if (h->dynindx == -1
4948 && !h->forced_local)
4949 {
4950 if (! bfd_elf_link_record_dynamic_symbol (info, h))
4951 return FALSE;
4952 }
252b5132 4953
a6aa5195
AM		 4954 if (info->shared
4955 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
4956 {
4957 asection *s = htab->plt;
7619e7c7 4958
4a3dc543 4959 if (htab->plt_type == PLT_NEW)
a6aa5195 4960 {
a6aa5195 4961 if (!doneone)
28e99bb6
AM		 4962 {
4963 plt_offset = s->size;
4964 s->size += 4;
4965 }
4966 ent->plt.offset = plt_offset;
d7128ce4 4967
a6aa5195 4968 s = htab->glink;
28e99bb6
AM		 4969 if (!doneone || info->shared || info->pie)
4970 {
4971 glink_offset = s->size;
4972 s->size += GLINK_ENTRY_SIZE;
4973 }
4974 if (!doneone
4975 && !info->shared
625af618 4976 && h->def_dynamic
a6aa5195
AM		 4977 && !h->def_regular)
4978 {
4979 h->root.u.def.section = s;
28e99bb6 4980 h->root.u.def.value = glink_offset;
a6aa5195 4981 }
28e99bb6 4982 ent->glink_offset = glink_offset;
0ba07910
AM		 4983
4984 if (htab->emit_stub_syms
ac39eb42 4985 && !add_stub_sym (ent, h, info))
0ba07910 4986 return FALSE;
a6aa5195
AM		 4987 }
4988 else
4989 {
a6aa5195
AM		 4990 if (!doneone)
4991 {
28e99bb6
AM		 4992 /* If this is the first .plt entry, make room
4993 for the special first entry. */
4994 if (s->size == 0)
9d8504b1 4995 s->size += htab->plt_initial_entry_size;
28e99bb6
AM		 4996
4997 /* The PowerPC PLT is actually composed of two
4998 parts, the first part is 2 words (for a load
4999 and a jump), and then there is a remaining
5000 word available at the end. */
9d8504b1
PB		 5001 plt_offset = (htab->plt_initial_entry_size
5002 + (htab->plt_slot_size
5003 * ((s->size
5004 - htab->plt_initial_entry_size)
5005 / htab->plt_entry_size)));
28e99bb6
AM		 5006
5007 /* If this symbol is not defined in a regular
5008 file, and we are not generating a shared
5009 library, then set the symbol to this location
5010 in the .plt. This is required to make
5011 function pointers compare as equal between
5012 the normal executable and the shared library. */
5013 if (! info->shared
625af618 5014 && h->def_dynamic
28e99bb6
AM		 5015 && !h->def_regular)
5016 {
5017 h->root.u.def.section = s;
5018 h->root.u.def.value = plt_offset;
5019 }
5020
9d8504b1
PB		 5021 /* Make room for this entry. */
5022 s->size += htab->plt_entry_size;
5023 /* After the 8192nd entry, room for two entries
5024 is allocated. */
4a3dc543 5025 if (htab->plt_type == PLT_OLD
9d8504b1
PB		 5026 && (s->size - htab->plt_initial_entry_size)
5027 / htab->plt_entry_size
5028 > PLT_NUM_SINGLE_ENTRIES)
5029 s->size += htab->plt_entry_size;
a6aa5195 5030 }
28e99bb6 5031 ent->plt.offset = plt_offset;
a6aa5195 5032 }
25dbc73a 5033
a6aa5195
AM		 5034 /* We also need to make an entry in the .rela.plt section. */
5035 if (!doneone)
5036 {
5037 htab->relplt->size += sizeof (Elf32_External_Rela);
9d8504b1 5038
4a3dc543 5039 if (htab->plt_type == PLT_VXWORKS)
9d8504b1
PB		 5040 {
5041 /* Allocate space for the unloaded relocations. */
5042 if (!info->shared)
5043 {
5044 if (ent->plt.offset
5045 == (bfd_vma) htab->plt_initial_entry_size)
5046 {
5047 htab->srelplt2->size
5048 += sizeof (Elf32_External_Rela)
5049 * VXWORKS_PLTRESOLVE_RELOCS;
5050 }
5051
5052 htab->srelplt2->size
5053 += sizeof (Elf32_External_Rela)
5054 * VXWORKS_PLT_NON_JMP_SLOT_RELOCS;
5055 }
5056
5057 /* Every PLT entry has an associated GOT entry in
5058 .got.plt. */
5059 htab->sgotplt->size += 4;
5060 }
a6aa5195
AM		 5061 doneone = TRUE;
5062 }
5063 }
5064 else
5065 ent->plt.offset = (bfd_vma) -1;
a6aa5195 5066 }
2ce859a1
AM		 5067 else
5068 ent->plt.offset = (bfd_vma) -1;
5069
5070 if (!doneone)
5071 {
5072 h->plt.plist = NULL;
5073 h->needs_plt = 0;
5074 }
25dbc73a
AM		 5075 }
5076 else
5077 {
a6aa5195 5078 h->plt.plist = NULL;
25dbc73a
AM		 5079 h->needs_plt = 0;
5080 }
5081
5082 eh = (struct ppc_elf_link_hash_entry *) h;
5083 if (eh->elf.got.refcount > 0)
5084 {
d6e14abc
AM		 5085 bfd_boolean dyn;
5086 unsigned int need;
5087
25dbc73a
AM		 5088 /* Make sure this symbol is output as a dynamic symbol. */
5089 if (eh->elf.dynindx == -1
b099ab9f
AM		 5090 && !eh->elf.forced_local
5091 && htab->elf.dynamic_sections_created)
25dbc73a
AM		 5092 {
5093 if (!bfd_elf_link_record_dynamic_symbol (info, &eh->elf))
b34976b6 5094 return FALSE;
25dbc73a 5095 }
252b5132 5096
d6e14abc
AM		 5097 need = 0;
5098 if ((eh->tls_mask & TLS_TLS) != 0)
25dbc73a 5099 {
d6e14abc 5100 if ((eh->tls_mask & TLS_LD) != 0)
252b5132 5101 {
d6e14abc
AM		 5102 if (!eh->elf.def_dynamic)
5103 /* We'll just use htab->tlsld_got.offset. This should
5104 always be the case. It's a little odd if we have
5105 a local dynamic reloc against a non-local symbol. */
5106 htab->tlsld_got.refcount += 1;
5107 else
3b36f7e6 5108 need += 8;
252b5132 5109 }
d6e14abc
AM		 5110 if ((eh->tls_mask & TLS_GD) != 0)
5111 need += 8;
5112 if ((eh->tls_mask & (TLS_TPREL | TLS_TPRELGD)) != 0)
5113 need += 4;
5114 if ((eh->tls_mask & TLS_DTPREL) != 0)
3b36f7e6 5115 need += 4;
d6e14abc
AM		 5116 }
5117 else
5118 need += 4;
5119 if (need == 0)
5120 eh->elf.got.offset = (bfd_vma) -1;
5121 else
5122 {
3b36f7e6 5123 eh->elf.got.offset = allocate_got (htab, need);
25dbc73a
AM		 5124 dyn = htab->elf.dynamic_sections_created;
5125 if ((info->shared
5126 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, &eh->elf))
5127 && (ELF_ST_VISIBILITY (eh->elf.other) == STV_DEFAULT
5128 || eh->elf.root.type != bfd_link_hash_undefweak))
252b5132 5129 {
3b36f7e6
AM		 5130 /* All the entries we allocated need relocs.
5131 Except LD only needs one. */
d6e14abc
AM		 5132 if ((eh->tls_mask & TLS_LD) != 0
5133 && eh->elf.def_dynamic)
3b36f7e6
AM		 5134 need -= 4;
5135 htab->relgot->size += need * (sizeof (Elf32_External_Rela) / 4);
252b5132 5136 }
25dbc73a
AM		 5137 }
5138 }
5139 else
5140 eh->elf.got.offset = (bfd_vma) -1;
252b5132 5141
b099ab9f
AM		 5142 if (eh->dyn_relocs == NULL
5143 || !htab->elf.dynamic_sections_created)
25dbc73a 5144 return TRUE;
252b5132 5145
25dbc73a
AM		 5146 /* In the shared -Bsymbolic case, discard space allocated for
5147 dynamic pc-relative relocs against symbols which turn out to be
5148 defined in regular objects. For the normal shared case, discard
5149 space for relocs that have become local due to symbol visibility
5150 changes. */
5151
5152 if (info->shared)
5153 {
5154 /* Relocs that use pc_count are those that appear on a call insn,
1d483afe 5155 or certain REL relocs (see must_be_dyn_reloc) that can be
25dbc73a
AM		 5156 generated via assembly. We want calls to protected symbols to
5157 resolve directly to the function rather than going via the plt.
5158 If people want function pointer comparisons to work as expected
5159 then they should avoid writing weird assembly. */
5160 if (SYMBOL_CALLS_LOCAL (info, h))
5161 {
5162 struct ppc_elf_dyn_relocs **pp;
5163
5164 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
252b5132 5165 {
25dbc73a
AM		 5166 p->count -= p->pc_count;
5167 p->pc_count = 0;
5168 if (p->count == 0)
5169 *pp = p->next;
5170 else
5171 pp = &p->next;
252b5132 5172 }
25dbc73a 5173 }
252b5132 5174
3348747a
NS		 5175 if (htab->is_vxworks)
5176 {
5177 struct ppc_elf_dyn_relocs **pp;
5178
5179 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
5180 {
5181 if (strcmp (p->sec->output_section->name, ".tls_vars") == 0)
5182 *pp = p->next;
5183 else
5184 pp = &p->next;
5185 }
5186 }
5187
89200bf8
AM		 5188 /* Discard relocs on undefined symbols that must be local. */
5189 if (eh->dyn_relocs != NULL
5190 && h->root.type == bfd_link_hash_undefined
5191 && (ELF_ST_VISIBILITY (h->other) == STV_HIDDEN
5192 || ELF_ST_VISIBILITY (h->other) == STV_INTERNAL))
5193 eh->dyn_relocs = NULL;
5194
25dbc73a
AM		 5195 /* Also discard relocs on undefined weak syms with non-default
5196 visibility. */
cab87ef9
AM		 5197 if (eh->dyn_relocs != NULL
5198 && h->root.type == bfd_link_hash_undefweak)
25dbc73a 5199 {
dfbb6ac9
AM		 5200 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
5201 eh->dyn_relocs = NULL;
5202
5203 /* Make sure undefined weak symbols are output as a dynamic
5204 symbol in PIEs. */
5205 else if (h->dynindx == -1
5206 && !h->forced_local)
5207 {
5208 if (! bfd_elf_link_record_dynamic_symbol (info, h))
5209 return FALSE;
5210 }
25dbc73a
AM		 5211 }
5212 }
5213 else if (ELIMINATE_COPY_RELOCS)
5214 {
5215 /* For the non-shared case, discard space for relocs against
5216 symbols which turn out to need copy relocs or are not
5217 dynamic. */
7619e7c7 5218
25dbc73a 5219 if (!h->non_got_ref
25dbc73a
AM		 5220 && !h->def_regular)
5221 {
5222 /* Make sure this symbol is output as a dynamic symbol.
5223 Undefined weak syms won't yet be marked as dynamic. */
5224 if (h->dynindx == -1
5225 && !h->forced_local)
5226 {
5227 if (! bfd_elf_link_record_dynamic_symbol (info, h))
5228 return FALSE;
5229 }
7619e7c7 5230
25dbc73a
AM		 5231 /* If that succeeded, we know we'll be keeping all the
5232 relocs. */
5233 if (h->dynindx != -1)
5234 goto keep;
5235 }
252b5132 5236
25dbc73a 5237 eh->dyn_relocs = NULL;
252b5132 5238
25dbc73a
AM		 5239 keep: ;
5240 }
252b5132 5241
25dbc73a
AM		 5242 /* Finally, allocate space. */
5243 for (p = eh->dyn_relocs; p != NULL; p = p->next)
5244 {
5245 asection *sreloc = elf_section_data (p->sec)->sreloc;
5246 sreloc->size += p->count * sizeof (Elf32_External_Rela);
5247 }
252b5132 5248
25dbc73a
AM		 5249 return TRUE;
5250}
7619e7c7 5251
625af618
AM		 5252/* Set DF_TEXTREL if we find any dynamic relocs that apply to
5253 read-only sections. */
7619e7c7 5254
25dbc73a 5255static bfd_boolean
625af618 5256maybe_set_textrel (struct elf_link_hash_entry *h, void *info)
25dbc73a 5257{
25dbc73a
AM		 5258 if (h->root.type == bfd_link_hash_indirect)
5259 return TRUE;
252b5132 5260
25dbc73a
AM		 5261 if (h->root.type == bfd_link_hash_warning)
5262 h = (struct elf_link_hash_entry *) h->root.u.i.link;
7619e7c7 5263
625af618 5264 if (readonly_dynrelocs (h))
25dbc73a 5265 {
625af618 5266 ((struct bfd_link_info *) info)->flags |= DF_TEXTREL;
ee05f2fe 5267
625af618
AM		 5268 /* Not an error, just cut short the traversal. */
5269 return FALSE;
25dbc73a
AM		 5270 }
5271 return TRUE;
5272}
5273
5274/* Set the sizes of the dynamic sections. */
5275
5276static bfd_boolean
5277ppc_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
5278 struct bfd_link_info *info)
5279{
5280 struct ppc_elf_link_hash_table *htab;
5281 asection *s;
5282 bfd_boolean relocs;
5283 bfd *ibfd;
7fce784e 5284
252b5132 5285#ifdef DEBUG
25dbc73a 5286 fprintf (stderr, "ppc_elf_size_dynamic_sections called\n");
252b5132 5287#endif
252b5132 5288
25dbc73a
AM		 5289 htab = ppc_elf_hash_table (info);
5290 BFD_ASSERT (htab->elf.dynobj != NULL);
252b5132 5291
25dbc73a
AM		 5292 if (elf_hash_table (info)->dynamic_sections_created)
5293 {
5294 /* Set the contents of the .interp section to the interpreter. */
5295 if (info->executable)
5296 {
5297 s = bfd_get_section_by_name (htab->elf.dynobj, ".interp");
5298 BFD_ASSERT (s != NULL);
5299 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
5300 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
5301 }
5302 }
252b5132 5303
4a3dc543 5304 if (htab->plt_type == PLT_OLD)
d7128ce4 5305 htab->got_header_size = 16;
4a3dc543 5306 else if (htab->plt_type == PLT_NEW)
d7128ce4 5307 htab->got_header_size = 12;
252b5132 5308
25dbc73a
AM		 5309 /* Set up .got offsets for local syms, and space for local dynamic
5310 relocs. */
5311 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
5312 {
5313 bfd_signed_vma *local_got;
5314 bfd_signed_vma *end_local_got;
5315 char *lgot_masks;
5316 bfd_size_type locsymcount;
5317 Elf_Internal_Shdr *symtab_hdr;
7fce784e 5318
0c8d6e5c 5319 if (!is_ppc_elf (ibfd))
25dbc73a 5320 continue;
7fce784e 5321
25dbc73a
AM		 5322 for (s = ibfd->sections; s != NULL; s = s->next)
5323 {
5324 struct ppc_elf_dyn_relocs *p;
252b5132 5325
25dbc73a
AM		 5326 for (p = ((struct ppc_elf_dyn_relocs *)
5327 elf_section_data (s)->local_dynrel);
5328 p != NULL;
5329 p = p->next)
5330 {
5331 if (!bfd_is_abs_section (p->sec)
5332 && bfd_is_abs_section (p->sec->output_section))
5333 {
5334 /* Input section has been discarded, either because
5335 it is a copy of a linkonce section or due to
5336 linker script /DISCARD/, so we'll be discarding
5337 the relocs too. */
7fce784e 5338 }
3348747a
NS		 5339 else if (htab->is_vxworks
5340 && strcmp (p->sec->output_section->name,
5341 ".tls_vars") == 0)
5342 {
5343 /* Relocations in vxworks .tls_vars sections are
5344 handled specially by the loader. */
5345 }
25dbc73a 5346 else if (p->count != 0)
7fce784e 5347 {
25dbc73a
AM		 5348 elf_section_data (p->sec)->sreloc->size
5349 += p->count * sizeof (Elf32_External_Rela);
5350 if ((p->sec->output_section->flags
5351 & (SEC_READONLY | SEC_ALLOC))
5352 == (SEC_READONLY | SEC_ALLOC))
5353 info->flags |= DF_TEXTREL;
7fce784e 5354 }
252b5132 5355 }
252b5132 5356 }
252b5132 5357
25dbc73a
AM		 5358 local_got = elf_local_got_refcounts (ibfd);
5359 if (!local_got)
5360 continue;
252b5132 5361
0ffa91dd 5362 symtab_hdr = &elf_symtab_hdr (ibfd);
25dbc73a
AM		 5363 locsymcount = symtab_hdr->sh_info;
5364 end_local_got = local_got + locsymcount;
5365 lgot_masks = (char *) end_local_got;
25dbc73a
AM		 5366 for (; local_got < end_local_got; ++local_got, ++lgot_masks)
5367 if (*local_got > 0)
5368 {
d6e14abc
AM		 5369 unsigned int need = 0;
5370 if ((*lgot_masks & TLS_TLS) != 0)
25dbc73a 5371 {
d6e14abc
AM		 5372 if ((*lgot_masks & TLS_GD) != 0)
5373 need += 8;
5374 if ((*lgot_masks & TLS_LD) != 0)
5375 htab->tlsld_got.refcount += 1;
5376 if ((*lgot_masks & (TLS_TPREL | TLS_TPRELGD)) != 0)
5377 need += 4;
5378 if ((*lgot_masks & TLS_DTPREL) != 0)
5379 need += 4;
25dbc73a 5380 }
d6e14abc
AM		 5381 else
5382 need += 4;
5383 if (need == 0)
5384 *local_got = (bfd_vma) -1;
25dbc73a
AM		 5385 else
5386 {
3b36f7e6 5387 *local_got = allocate_got (htab, need);
25dbc73a 5388 if (info->shared)
3b36f7e6
AM		 5389 htab->relgot->size += (need
5390 * (sizeof (Elf32_External_Rela) / 4));
25dbc73a
AM		 5391 }
5392 }
5393 else
5394 *local_got = (bfd_vma) -1;
5395 }
252b5132 5396
b7fcf6f6
AM		 5397 /* Allocate space for global sym dynamic relocs. */
5398 elf_link_hash_traverse (elf_hash_table (info), allocate_dynrelocs, info);
5399
3b36f7e6
AM		 5400 if (htab->tlsld_got.refcount > 0)
5401 {
5402 htab->tlsld_got.offset = allocate_got (htab, 8);
5403 if (info->shared)
5404 htab->relgot->size += sizeof (Elf32_External_Rela);
5405 }
5406 else
5407 htab->tlsld_got.offset = (bfd_vma) -1;
5408
4a3dc543 5409 if (htab->got != NULL && htab->plt_type != PLT_VXWORKS)
3b36f7e6
AM		 5410 {
5411 unsigned int g_o_t = 32768;
5412
4d962050
AM		 5413 /* If we haven't allocated the header, do so now. When we get here,
5414 for old plt/got the got size will be 0 to 32764 (not allocated),
5415 or 32780 to 65536 (header allocated). For new plt/got, the
5416 corresponding ranges are 0 to 32768 and 32780 to 65536. */
3b36f7e6
AM		 5417 if (htab->got->size <= 32768)
5418 {
5419 g_o_t = htab->got->size;
4a3dc543 5420 if (htab->plt_type == PLT_OLD)
4d962050 5421 g_o_t += 4;
3b36f7e6
AM		 5422 htab->got->size += htab->got_header_size;
5423 }
3b36f7e6
AM		 5424
5425 htab->elf.hgot->root.u.def.value = g_o_t;
5426 }
5427
d7128ce4
AM		 5428 if (htab->glink != NULL && htab->glink->size != 0)
5429 {
5430 htab->glink_pltresolve = htab->glink->size;
86b9da88
AM		 5431 /* Space for the branch table. */
5432 htab->glink->size += htab->glink->size / (GLINK_ENTRY_SIZE / 4) - 4;
5433 /* Pad out to align the start of PLTresolve. */
5434 htab->glink->size += -htab->glink->size & 15;
d7128ce4 5435 htab->glink->size += GLINK_PLTRESOLVE;
0ba07910
AM		 5436
5437 if (htab->emit_stub_syms)
5438 {
5439 struct elf_link_hash_entry *sh;
5440 sh = elf_link_hash_lookup (&htab->elf, "__glink",
5441 TRUE, FALSE, FALSE);
5442 if (sh == NULL)
5443 return FALSE;
5444 if (sh->root.type == bfd_link_hash_new)
5445 {
5446 sh->root.type = bfd_link_hash_defined;
5447 sh->root.u.def.section = htab->glink;
5448 sh->root.u.def.value = htab->glink_pltresolve;
5449 sh->ref_regular = 1;
5450 sh->def_regular = 1;
5451 sh->ref_regular_nonweak = 1;
5452 sh->forced_local = 1;
5453 sh->non_elf = 0;
5454 }
5455 sh = elf_link_hash_lookup (&htab->elf, "__glink_PLTresolve",
5456 TRUE, FALSE, FALSE);
5457 if (sh == NULL)
5458 return FALSE;
5459 if (sh->root.type == bfd_link_hash_new)
5460 {
5461 sh->root.type = bfd_link_hash_defined;
5462 sh->root.u.def.section = htab->glink;
5463 sh->root.u.def.value = htab->glink->size - GLINK_PLTRESOLVE;
5464 sh->ref_regular = 1;
5465 sh->def_regular = 1;
5466 sh->ref_regular_nonweak = 1;
5467 sh->forced_local = 1;
5468 sh->non_elf = 0;
5469 }
5470 }
d7128ce4
AM		 5471 }
5472
25dbc73a
AM		 5473 /* We've now determined the sizes of the various dynamic sections.
5474 Allocate memory for them. */
5475 relocs = FALSE;
5476 for (s = htab->elf.dynobj->sections; s != NULL; s = s->next)
252b5132 5477 {
9d8504b1
PB		 5478 bfd_boolean strip_section = TRUE;
5479
25dbc73a
AM		 5480 if ((s->flags & SEC_LINKER_CREATED) == 0)
5481 continue;
252b5132 5482
25dbc73a 5483 if (s == htab->plt
d7128ce4 5484 || s == htab->glink
644285ef 5485 || s == htab->got
9d8504b1 5486 || s == htab->sgotplt
c456f082
AM		 5487 || s == htab->sbss
5488 || s == htab->dynbss
5489 || s == htab->dynsbss)
25dbc73a 5490 {
9d8504b1
PB		 5491 /* We'd like to strip these sections if they aren't needed, but if
5492 we've exported dynamic symbols from them we must leave them.
5493 It's too late to tell BFD to get rid of the symbols. */
7325306f 5494 if ((s == htab->plt || s == htab->got) && htab->elf.hplt != NULL)
9d8504b1 5495 strip_section = FALSE;
25dbc73a
AM		 5496 /* Strip this section if we don't need it; see the
5497 comment below. */
5498 }
c9a2f333
AM		 5499 else if (s == htab->sdata[0].section
5500 || s == htab->sdata[1].section)
25dbc73a 5501 {
c9a2f333 5502 /* Strip these too. */
25dbc73a 5503 }
0112cd26 5504 else if (CONST_STRNEQ (bfd_get_section_name (dynobj, s), ".rela"))
25dbc73a 5505 {
c456f082 5506 if (s->size != 0)
25dbc73a
AM		 5507 {
5508 /* Remember whether there are any relocation sections. */
5509 relocs = TRUE;
252b5132 5510
25dbc73a
AM		 5511 /* We use the reloc_count field as a counter if we need
5512 to copy relocs into the output file. */
5513 s->reloc_count = 0;
252b5132
RH		 5514 }
5515 }
25dbc73a
AM		 5516 else
5517 {
5518 /* It's not one of our sections, so don't allocate space. */
5519 continue;
5520 }
252b5132 5521
9d8504b1 5522 if (s->size == 0 && strip_section)
25dbc73a 5523 {
c456f082
AM		 5524 /* If we don't need this section, strip it from the
5525 output file. This is mostly to handle .rela.bss and
5526 .rela.plt. We must create both sections in
5527 create_dynamic_sections, because they must be created
5528 before the linker maps input sections to output
5529 sections. The linker does that before
5530 adjust_dynamic_symbol is called, and it is that
5531 function which decides whether anything needs to go
5532 into these sections. */
8423293d 5533 s->flags |= SEC_EXCLUDE;
25dbc73a
AM		 5534 continue;
5535 }
7fce784e 5536
d7128ce4 5537 if ((s->flags & SEC_HAS_CONTENTS) == 0)
644285ef
AM		 5538 continue;
5539
25dbc73a
AM		 5540 /* Allocate memory for the section contents. */
5541 s->contents = bfd_zalloc (htab->elf.dynobj, s->size);
5542 if (s->contents == NULL)
5543 return FALSE;
5544 }
252b5132 5545
25dbc73a 5546 if (htab->elf.dynamic_sections_created)
7619e7c7 5547 {
25dbc73a
AM		 5548 /* Add some entries to the .dynamic section. We fill in the
5549 values later, in ppc_elf_finish_dynamic_sections, but we
5550 must add the entries now so that we get the correct size for
5551 the .dynamic section. The DT_DEBUG entry is filled in by the
5552 dynamic linker and used by the debugger. */
5553#define add_dynamic_entry(TAG, VAL) \
5554 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
252b5132 5555
25dbc73a 5556 if (info->executable)
7619e7c7 5557 {
25dbc73a
AM		 5558 if (!add_dynamic_entry (DT_DEBUG, 0))
5559 return FALSE;
7619e7c7
AM		 5560 }
5561
25dbc73a 5562 if (htab->plt != NULL && htab->plt->size != 0)
7619e7c7 5563 {
25dbc73a
AM		 5564 if (!add_dynamic_entry (DT_PLTGOT, 0)
5565 || !add_dynamic_entry (DT_PLTRELSZ, 0)
5566 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
5567 || !add_dynamic_entry (DT_JMPREL, 0))
5568 return FALSE;
5569 }
7619e7c7 5570
d7128ce4
AM		 5571 if (htab->glink != NULL && htab->glink->size != 0)
5572 {
1fe44d79 5573 if (!add_dynamic_entry (DT_PPC_GOT, 0))
d7128ce4
AM		 5574 return FALSE;
5575 }
5576
25dbc73a
AM		 5577 if (relocs)
5578 {
5579 if (!add_dynamic_entry (DT_RELA, 0)
5580 || !add_dynamic_entry (DT_RELASZ, 0)
5581 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
5582 return FALSE;
5583 }
7619e7c7 5584
25dbc73a
AM		 5585 /* If any dynamic relocs apply to a read-only section, then we
5586 need a DT_TEXTREL entry. */
5587 if ((info->flags & DF_TEXTREL) == 0)
625af618 5588 elf_link_hash_traverse (elf_hash_table (info), maybe_set_textrel,
25dbc73a 5589 info);
7619e7c7 5590
25dbc73a
AM		 5591 if ((info->flags & DF_TEXTREL) != 0)
5592 {
5593 if (!add_dynamic_entry (DT_TEXTREL, 0))
5594 return FALSE;
7619e7c7 5595 }
7a2b07ff
NS		 5596 if (htab->is_vxworks
5597 && !elf_vxworks_add_dynamic_entries (output_bfd, info))
5598 return FALSE;
5599 }
25dbc73a
AM		 5600#undef add_dynamic_entry
5601
7619e7c7
AM		 5602 return TRUE;
5603}
0eb4a168
AM		 5604
5605/* Return TRUE if symbol should be hashed in the `.gnu.hash' section. */
5606
5607static bfd_boolean
5608ppc_elf_hash_symbol (struct elf_link_hash_entry *h)
5609{
5610 if (h->plt.plist != NULL
5611 && !h->def_regular
5612 && (!h->pointer_equality_needed
5613 || !h->ref_regular_nonweak))
5614 return FALSE;
5615
5616 return _bfd_elf_hash_symbol (h);
5617}
25dbc73a
AM		 5618\f
5619#define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
5620
5621static const int shared_stub_entry[] =
5622 {
5623 0x7c0802a6, /* mflr 0 */
5624 0x429f0005, /* bcl 20, 31, .Lxxx */
5625 0x7d6802a6, /* mflr 11 */
5626 0x3d6b0000, /* addis 11, 11, (xxx-.Lxxx)@ha */
5627 0x396b0018, /* addi 11, 11, (xxx-.Lxxx)@l */
5628 0x7c0803a6, /* mtlr 0 */
5629 0x7d6903a6, /* mtctr 11 */
5630 0x4e800420, /* bctr */
5631 };
5632
5633static const int stub_entry[] =
5634 {
5635 0x3d600000, /* lis 11,xxx@ha */
5636 0x396b0000, /* addi 11,11,xxx@l */
5637 0x7d6903a6, /* mtctr 11 */
5638 0x4e800420, /* bctr */
5639 };
5640
5641static bfd_boolean
5642ppc_elf_relax_section (bfd *abfd,
5643 asection *isec,
5644 struct bfd_link_info *link_info,
5645 bfd_boolean *again)
5646{
5647 struct one_fixup
5648 {
5649 struct one_fixup *next;
5650 asection *tsec;
5651 bfd_vma toff;
5652 bfd_vma trampoff;
5653 };
7619e7c7 5654
25dbc73a
AM		 5655 Elf_Internal_Shdr *symtab_hdr;
5656 bfd_byte *contents = NULL;
5657 Elf_Internal_Sym *isymbuf = NULL;
5658 Elf_Internal_Rela *internal_relocs = NULL;
5659 Elf_Internal_Rela *irel, *irelend;
5660 struct one_fixup *fixups = NULL;
9bc4e62b 5661 unsigned changes = 0;
d7128ce4 5662 struct ppc_elf_link_hash_table *htab;
25dbc73a 5663 bfd_size_type trampoff;
a6aa5195 5664 asection *got2;
7619e7c7 5665
25dbc73a 5666 *again = FALSE;
7619e7c7 5667
c87b5a93
AM		 5668 /* Nothing to do if there are no relocations, and no need to do
5669 anything with non-alloc sections. */
5670 if ((isec->flags & SEC_ALLOC) == 0
5671 || (isec->flags & SEC_RELOC) == 0
5672 || isec->reloc_count == 0)
25dbc73a 5673 return TRUE;
7619e7c7 5674
25dbc73a
AM		 5675 trampoff = (isec->size + 3) & (bfd_vma) -4;
5676 /* Space for a branch around any trampolines. */
5677 trampoff += 4;
7619e7c7 5678
0ffa91dd 5679 symtab_hdr = &elf_symtab_hdr (abfd);
7619e7c7 5680
25dbc73a
AM		 5681 /* Get a copy of the native relocations. */
5682 internal_relocs = _bfd_elf_link_read_relocs (abfd, isec, NULL, NULL,
5683 link_info->keep_memory);
5684 if (internal_relocs == NULL)
5685 goto error_return;
7619e7c7 5686
d7128ce4 5687 htab = ppc_elf_hash_table (link_info);
a6aa5195 5688 got2 = bfd_get_section_by_name (abfd, ".got2");
7619e7c7 5689
a6aa5195 5690 irelend = internal_relocs + isec->reloc_count;
25dbc73a 5691 for (irel = internal_relocs; irel < irelend; irel++)
7619e7c7 5692 {
25dbc73a
AM		 5693 unsigned long r_type = ELF32_R_TYPE (irel->r_info);
5694 bfd_vma symaddr, reladdr, toff, roff;
5695 asection *tsec;
5696 struct one_fixup *f;
5697 size_t insn_offset = 0;
5698 bfd_vma max_branch_offset, val;
5699 bfd_byte *hit_addr;
5700 unsigned long t0;
5701 unsigned char sym_type;
7619e7c7 5702
25dbc73a
AM		 5703 switch (r_type)
5704 {
5705 case R_PPC_REL24:
5706 case R_PPC_LOCAL24PC:
5707 case R_PPC_PLTREL24:
5708 max_branch_offset = 1 << 25;
5709 break;
7619e7c7 5710
25dbc73a
AM		 5711 case R_PPC_REL14:
5712 case R_PPC_REL14_BRTAKEN:
5713 case R_PPC_REL14_BRNTAKEN:
5714 max_branch_offset = 1 << 15;
5715 break;
7619e7c7 5716
25dbc73a
AM		 5717 default:
5718 continue;
5719 }
7619e7c7 5720
25dbc73a
AM		 5721 /* Get the value of the symbol referred to by the reloc. */
5722 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
5723 {
5724 /* A local symbol. */
5725 Elf_Internal_Sym *isym;
7fce784e 5726
25dbc73a
AM		 5727 /* Read this BFD's local symbols. */
5728 if (isymbuf == NULL)
5729 {
5730 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
5731 if (isymbuf == NULL)
5732 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
5733 symtab_hdr->sh_info, 0,
5734 NULL, NULL, NULL);
5735 if (isymbuf == 0)
5736 goto error_return;
5737 }
5738 isym = isymbuf + ELF32_R_SYM (irel->r_info);
5739 if (isym->st_shndx == SHN_UNDEF)
5740 continue; /* We can't do anything with undefined symbols. */
5741 else if (isym->st_shndx == SHN_ABS)
5742 tsec = bfd_abs_section_ptr;
5743 else if (isym->st_shndx == SHN_COMMON)
5744 tsec = bfd_com_section_ptr;
5745 else
5746 tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
7fce784e 5747
25dbc73a
AM		 5748 toff = isym->st_value;
5749 sym_type = ELF_ST_TYPE (isym->st_info);
5750 }
5751 else
5752 {
5753 /* Global symbol handling. */
5754 unsigned long indx;
5755 struct elf_link_hash_entry *h;
7619e7c7 5756
25dbc73a
AM		 5757 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
5758 h = elf_sym_hashes (abfd)[indx];
7619e7c7 5759
25dbc73a
AM		 5760 while (h->root.type == bfd_link_hash_indirect
5761 || h->root.type == bfd_link_hash_warning)
5762 h = (struct elf_link_hash_entry *) h->root.u.i.link;
7619e7c7 5763
a6aa5195
AM		 5764 tsec = NULL;
5765 toff = 0;
25dbc73a 5766 if (r_type == R_PPC_PLTREL24
a6aa5195 5767 && htab->plt != NULL)
25dbc73a 5768 {
a6aa5195
AM		 5769 struct plt_entry *ent = find_plt_ent (h, got2, irel->r_addend);
5770
5771 if (ent != NULL)
d7128ce4 5772 {
4a3dc543 5773 if (htab->plt_type == PLT_NEW)
a6aa5195
AM		 5774 {
5775 tsec = htab->glink;
5776 toff = ent->glink_offset;
5777 }
5778 else
5779 {
5780 tsec = htab->plt;
5781 toff = ent->plt.offset;
5782 }
d7128ce4 5783 }
25dbc73a 5784 }
a6aa5195
AM		 5785 if (tsec != NULL)
5786 ;
25dbc73a
AM		 5787 else if (h->root.type == bfd_link_hash_defined
5788 || h->root.type == bfd_link_hash_defweak)
5789 {
5790 tsec = h->root.u.def.section;
5791 toff = h->root.u.def.value;
5792 }
5793 else
5794 continue;
7619e7c7 5795
25dbc73a
AM		 5796 sym_type = h->type;
5797 }
7619e7c7 5798
25dbc73a
AM		 5799 /* If the branch and target are in the same section, you have
5800 no hope of adding stubs. We'll error out later should the
5801 branch overflow. */
5802 if (tsec == isec)
5803 continue;
5804
5805 /* There probably isn't any reason to handle symbols in
5806 SEC_MERGE sections; SEC_MERGE doesn't seem a likely
5807 attribute for a code section, and we are only looking at
5808 branches. However, implement it correctly here as a
5809 reference for other target relax_section functions. */
5810 if (0 && tsec->sec_info_type == ELF_INFO_TYPE_MERGE)
5811 {
5812 /* At this stage in linking, no SEC_MERGE symbol has been
5813 adjusted, so all references to such symbols need to be
5814 passed through _bfd_merged_section_offset. (Later, in
5815 relocate_section, all SEC_MERGE symbols *except* for
5816 section symbols have been adjusted.)
5817
5818 gas may reduce relocations against symbols in SEC_MERGE
5819 sections to a relocation against the section symbol when
5820 the original addend was zero. When the reloc is against
5821 a section symbol we should include the addend in the
5822 offset passed to _bfd_merged_section_offset, since the
5823 location of interest is the original symbol. On the
5824 other hand, an access to "sym+addend" where "sym" is not
5825 a section symbol should not include the addend; Such an
5826 access is presumed to be an offset from "sym"; The
5827 location of interest is just "sym". */
5828 if (sym_type == STT_SECTION)
5829 toff += irel->r_addend;
7619e7c7 5830
25dbc73a
AM		 5831 toff = _bfd_merged_section_offset (abfd, &tsec,
5832 elf_section_data (tsec)->sec_info,
5833 toff);
7619e7c7 5834
25dbc73a
AM		 5835 if (sym_type != STT_SECTION)
5836 toff += irel->r_addend;
5837 }
a6aa5195
AM		 5838 /* PLTREL24 addends are special. */
5839 else if (r_type != R_PPC_PLTREL24)
25dbc73a 5840 toff += irel->r_addend;
7619e7c7 5841
7de713b9
AM		 5842 /* Attempted -shared link of non-pic code loses. */
5843 if (tsec->output_section == NULL)
5844 continue;
5845
25dbc73a 5846 symaddr = tsec->output_section->vma + tsec->output_offset + toff;
7619e7c7 5847
25dbc73a
AM		 5848 roff = irel->r_offset;
5849 reladdr = isec->output_section->vma + isec->output_offset + roff;
7619e7c7 5850
25dbc73a
AM		 5851 /* If the branch is in range, no need to do anything. */
5852 if (symaddr - reladdr + max_branch_offset < 2 * max_branch_offset)
5853 continue;
252b5132 5854
25dbc73a
AM		 5855 /* Look for an existing fixup to this address. */
5856 for (f = fixups; f ; f = f->next)
5857 if (f->tsec == tsec && f->toff == toff)
5858 break;
5859
5860 if (f == NULL)
7619e7c7 5861 {
25dbc73a
AM		 5862 size_t size;
5863 unsigned long stub_rtype;
252b5132 5864
25dbc73a
AM		 5865 val = trampoff - roff;
5866 if (val >= max_branch_offset)
5867 /* Oh dear, we can't reach a trampoline. Don't try to add
5868 one. We'll report an error later. */
5869 continue;
252b5132 5870
25dbc73a
AM		 5871 if (link_info->shared)
5872 {
5873 size = 4 * ARRAY_SIZE (shared_stub_entry);
5874 insn_offset = 12;
5875 stub_rtype = R_PPC_RELAX32PC;
5876 }
5877 else
5878 {
5879 size = 4 * ARRAY_SIZE (stub_entry);
5880 insn_offset = 0;
5881 stub_rtype = R_PPC_RELAX32;
5882 }
dc810e39 5883
25dbc73a
AM		 5884 if (R_PPC_RELAX32_PLT - R_PPC_RELAX32
5885 != R_PPC_RELAX32PC_PLT - R_PPC_RELAX32PC)
5886 abort ();
d7128ce4
AM		 5887 if (tsec == htab->plt
5888 || tsec == htab->glink)
25dbc73a 5889 stub_rtype += R_PPC_RELAX32_PLT - R_PPC_RELAX32;
252b5132 5890
25dbc73a
AM		 5891 /* Hijack the old relocation. Since we need two
5892 relocations for this use a "composite" reloc. */
5893 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
5894 stub_rtype);
5895 irel->r_offset = trampoff + insn_offset;
e7d92e2e
AM		 5896 if (r_type == R_PPC_PLTREL24)
5897 irel->r_addend = 0;
252b5132 5898
25dbc73a
AM		 5899 /* Record the fixup so we don't do it again this section. */
5900 f = bfd_malloc (sizeof (*f));
5901 f->next = fixups;
5902 f->tsec = tsec;
5903 f->toff = toff;
5904 f->trampoff = trampoff;
5905 fixups = f;
252b5132 5906
25dbc73a 5907 trampoff += size;
9bc4e62b 5908 changes++;
25dbc73a
AM		 5909 }
5910 else
5911 {
5912 val = f->trampoff - roff;
5913 if (val >= max_branch_offset)
5914 continue;
252b5132 5915
25dbc73a
AM		 5916 /* Nop out the reloc, since we're finalizing things here. */
5917 irel->r_info = ELF32_R_INFO (0, R_PPC_NONE);
5918 }
252b5132 5919
25dbc73a
AM		 5920 /* Get the section contents. */
5921 if (contents == NULL)
5922 {
5923 /* Get cached copy if it exists. */
5924 if (elf_section_data (isec)->this_hdr.contents != NULL)
5925 contents = elf_section_data (isec)->this_hdr.contents;
5926 else
5927 {
5928 /* Go get them off disk. */
5929 if (!bfd_malloc_and_get_section (abfd, isec, &contents))
5930 goto error_return;
5931 }
5932 }
252b5132 5933
25dbc73a
AM		 5934 /* Fix up the existing branch to hit the trampoline. */
5935 hit_addr = contents + roff;
5936 switch (r_type)
5937 {
5938 case R_PPC_REL24:
5939 case R_PPC_LOCAL24PC:
5940 case R_PPC_PLTREL24:
5941 t0 = bfd_get_32 (abfd, hit_addr);
5942 t0 &= ~0x3fffffc;
5943 t0 |= val & 0x3fffffc;
5944 bfd_put_32 (abfd, t0, hit_addr);
5945 break;
252b5132 5946
25dbc73a
AM		 5947 case R_PPC_REL14:
5948 case R_PPC_REL14_BRTAKEN:
5949 case R_PPC_REL14_BRNTAKEN:
5950 t0 = bfd_get_32 (abfd, hit_addr);
5951 t0 &= ~0xfffc;
5952 t0 |= val & 0xfffc;
5953 bfd_put_32 (abfd, t0, hit_addr);
5954 break;
5955 }
5956 }
252b5132 5957
25dbc73a 5958 /* Write out the trampolines. */
25dbc73a
AM		 5959 if (fixups != NULL)
5960 {
5961 const int *stub;
5962 bfd_byte *dest;
5963 bfd_vma val;
5964 int i, size;
252b5132 5965
25dbc73a
AM		 5966 do
5967 {
5968 struct one_fixup *f = fixups;
5969 fixups = fixups->next;
5970 free (f);
5971 }
5972 while (fixups);
252b5132 5973
515ef31d 5974 contents = bfd_realloc_or_free (contents, trampoff);
25dbc73a
AM		 5975 if (contents == NULL)
5976 goto error_return;
252b5132 5977
25dbc73a
AM		 5978 isec->size = (isec->size + 3) & (bfd_vma) -4;
5979 /* Branch around the trampolines. */
e7d92e2e 5980 val = B + trampoff - isec->size;
25dbc73a
AM		 5981 dest = contents + isec->size;
5982 isec->size = trampoff;
5983 bfd_put_32 (abfd, val, dest);
5984 dest += 4;
252b5132 5985
25dbc73a
AM		 5986 if (link_info->shared)
5987 {
5988 stub = shared_stub_entry;
5989 size = ARRAY_SIZE (shared_stub_entry);
5990 }
5991 else
5992 {
5993 stub = stub_entry;
5994 size = ARRAY_SIZE (stub_entry);
5995 }
252b5132 5996
25dbc73a
AM		 5997 i = 0;
5998 while (dest < contents + trampoff)
252b5132 5999 {
25dbc73a
AM		 6000 bfd_put_32 (abfd, stub[i], dest);
6001 i++;
6002 if (i == size)
6003 i = 0;
6004 dest += 4;
252b5132 6005 }
25dbc73a 6006 BFD_ASSERT (i == 0);
252b5132
RH		 6007 }
6008
25dbc73a
AM		 6009 if (isymbuf != NULL
6010 && symtab_hdr->contents != (unsigned char *) isymbuf)
252b5132 6011 {
25dbc73a
AM		 6012 if (! link_info->keep_memory)
6013 free (isymbuf);
252b5132 6014 else
25dbc73a
AM		 6015 {
6016 /* Cache the symbols for elf_link_input_bfd. */
6017 symtab_hdr->contents = (unsigned char *) isymbuf;
6018 }
252b5132
RH		 6019 }
6020
25dbc73a
AM		 6021 if (contents != NULL
6022 && elf_section_data (isec)->this_hdr.contents != contents)
6023 {
9bc4e62b 6024 if (!changes && !link_info->keep_memory)
25dbc73a
AM		 6025 free (contents);
6026 else
6027 {
6028 /* Cache the section contents for elf_link_input_bfd. */
6029 elf_section_data (isec)->this_hdr.contents = contents;
6030 }
6031 }
252b5132 6032
9bc4e62b 6033 if (changes != 0)
25dbc73a 6034 {
9bc4e62b
NS		 6035 /* Append sufficient NOP relocs so we can write out relocation
6036 information for the trampolines. */
6037 Elf_Internal_Rela *new_relocs = bfd_malloc ((changes + isec->reloc_count)
6038 * sizeof (*new_relocs));
6039 unsigned ix;
6040
6041 if (!new_relocs)
6042 goto error_return;
6043 memcpy (new_relocs, internal_relocs,
6044 isec->reloc_count * sizeof (*new_relocs));
6045 for (ix = changes; ix--;)
6046 {
6047 irel = new_relocs + ix + isec->reloc_count;
6048
6049 irel->r_info = ELF32_R_INFO (0, R_PPC_NONE);
6050 }
6051 if (internal_relocs != elf_section_data (isec)->relocs)
25dbc73a 6052 free (internal_relocs);
9bc4e62b
NS		 6053 elf_section_data (isec)->relocs = new_relocs;
6054 isec->reloc_count += changes;
6055 elf_section_data (isec)->rel_hdr.sh_size
6056 += changes * elf_section_data (isec)->rel_hdr.sh_entsize;
25dbc73a 6057 }
9bc4e62b
NS		 6058 else if (elf_section_data (isec)->relocs != internal_relocs)
6059 free (internal_relocs);
252b5132 6060
9bc4e62b 6061 *again = changes != 0;
b34976b6 6062 return TRUE;
25dbc73a
AM		 6063
6064 error_return:
6065 if (isymbuf != NULL && (unsigned char *) isymbuf != symtab_hdr->contents)
6066 free (isymbuf);
6067 if (contents != NULL
6068 && elf_section_data (isec)->this_hdr.contents != contents)
6069 free (contents);
6070 if (internal_relocs != NULL
6071 && elf_section_data (isec)->relocs != internal_relocs)
6072 free (internal_relocs);
6073 return FALSE;
252b5132 6074}
252b5132 6075\f
8a696751
AM		 6076/* What to do when ld finds relocations against symbols defined in
6077 discarded sections. */
6078
6079static unsigned int
6080ppc_elf_action_discarded (asection *sec)
6081{
6082 if (strcmp (".fixup", sec->name) == 0)
6083 return 0;
6084
6085 if (strcmp (".got2", sec->name) == 0)
6086 return 0;
6087
6088 return _bfd_elf_default_action_discarded (sec);
6089}
c9a2f333 6090\f
25dbc73a 6091/* Fill in the address for a pointer generated in a linker section. */
252b5132 6092
25dbc73a 6093static bfd_vma
76750a2f 6094elf_finish_pointer_linker_section (bfd *input_bfd,
25dbc73a
AM		 6095 elf_linker_section_t *lsect,
6096 struct elf_link_hash_entry *h,
6097 bfd_vma relocation,
2bb04cf2 6098 const Elf_Internal_Rela *rel)
25dbc73a
AM		 6099{
6100 elf_linker_section_pointers_t *linker_section_ptr;
252b5132 6101
25dbc73a 6102 BFD_ASSERT (lsect != NULL);
252b5132 6103
25dbc73a 6104 if (h != NULL)
252b5132 6105 {
25dbc73a
AM		 6106 /* Handle global symbol. */
6107 struct ppc_elf_link_hash_entry *eh;
252b5132 6108
25dbc73a 6109 eh = (struct ppc_elf_link_hash_entry *) h;
76750a2f
AM		 6110 BFD_ASSERT (eh->elf.def_regular);
6111 linker_section_ptr = eh->linker_section_pointer;
25dbc73a
AM		 6112 }
6113 else
6114 {
6115 /* Handle local symbol. */
6116 unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
76750a2f 6117
0c8d6e5c 6118 BFD_ASSERT (is_ppc_elf (input_bfd));
25dbc73a 6119 BFD_ASSERT (elf_local_ptr_offsets (input_bfd) != NULL);
76750a2f
AM		 6120 linker_section_ptr = elf_local_ptr_offsets (input_bfd)[r_symndx];
6121 }
252b5132 6122
76750a2f
AM		 6123 linker_section_ptr = elf_find_pointer_linker_section (linker_section_ptr,
6124 rel->r_addend,
6125 lsect);
6126 BFD_ASSERT (linker_section_ptr != NULL);
25dbc73a 6127
76750a2f
AM		 6128 /* Offset will always be a multiple of four, so use the bottom bit
6129 as a "written" flag. */
6130 if ((linker_section_ptr->offset & 1) == 0)
6131 {
6132 bfd_put_32 (lsect->section->owner,
6133 relocation + linker_section_ptr->addend,
6134 lsect->section->contents + linker_section_ptr->offset);
6135 linker_section_ptr->offset += 1;
252b5132
RH		 6136 }
6137
25dbc73a 6138 relocation = (lsect->section->output_offset
76750a2f 6139 + linker_section_ptr->offset - 1
c9a2f333 6140 - 0x8000);
252b5132 6141
25dbc73a
AM		 6142#ifdef DEBUG
6143 fprintf (stderr,
6144 "Finish pointer in linker section %s, offset = %ld (0x%lx)\n",
6145 lsect->name, (long) relocation, (long) relocation);
6146#endif
252b5132 6147
25dbc73a
AM		 6148 /* Subtract out the addend, because it will get added back in by the normal
6149 processing. */
6150 return relocation - linker_section_ptr->addend;
252b5132 6151}
25dbc73a 6152
252b5132
RH		 6153/* The RELOCATE_SECTION function is called by the ELF backend linker
6154 to handle the relocations for a section.
6155
6156 The relocs are always passed as Rela structures; if the section
6157 actually uses Rel structures, the r_addend field will always be
6158 zero.
6159
6160 This function is responsible for adjust the section contents as
6161 necessary, and (if using Rela relocs and generating a
1049f94e 6162 relocatable output file) adjusting the reloc addend as
252b5132
RH		 6163 necessary.
6164
6165 This function does not have to worry about setting the reloc
6166 address or the reloc symbol index.
6167
6168 LOCAL_SYMS is a pointer to the swapped in local symbols.
6169
6170 LOCAL_SECTIONS is an array giving the section in the input file
6171 corresponding to the st_shndx field of each local symbol.
6172
6173 The global hash table entry for the global symbols can be found
6174 via elf_sym_hashes (input_bfd).
6175
1049f94e 6176 When generating relocatable output, this function must handle
252b5132
RH		 6177 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
6178 going to be the section symbol corresponding to the output
6179 section, which means that the addend must be adjusted
6180 accordingly. */
6181
b34976b6 6182static bfd_boolean
55fd94b0
AM		 6183ppc_elf_relocate_section (bfd *output_bfd,
6184 struct bfd_link_info *info,
6185 bfd *input_bfd,
6186 asection *input_section,
6187 bfd_byte *contents,
6188 Elf_Internal_Rela *relocs,
6189 Elf_Internal_Sym *local_syms,
6190 asection **local_sections)
252b5132 6191{
7619e7c7
AM		 6192 Elf_Internal_Shdr *symtab_hdr;
6193 struct elf_link_hash_entry **sym_hashes;
6194 struct ppc_elf_link_hash_table *htab;
6195 Elf_Internal_Rela *rel;
6196 Elf_Internal_Rela *relend;
6197 Elf_Internal_Rela outrel;
6198 bfd_byte *loc;
a6aa5195 6199 asection *got2, *sreloc = NULL;
252b5132 6200 bfd_vma *local_got_offsets;
b34976b6 6201 bfd_boolean ret = TRUE;
4fe5ca5b 6202 bfd_vma d_offset = (bfd_big_endian (output_bfd) ? 2 : 0);
3348747a 6203 bfd_boolean is_vxworks_tls;
b34976b6 6204
252b5132 6205#ifdef DEBUG
d003868e
AM		 6206 _bfd_error_handler ("ppc_elf_relocate_section called for %B section %A, "
6207 "%ld relocations%s",
6208 input_bfd, input_section,
6209 (long) input_section->reloc_count,
6210 (info->relocatable) ? " (relocatable)" : "");
252b5132
RH		 6211#endif
6212
a6aa5195
AM		 6213 got2 = bfd_get_section_by_name (input_bfd, ".got2");
6214
e47cd125 6215 /* Initialize howto table if not already done. */
8da6118f 6216 if (!ppc_elf_howto_table[R_PPC_ADDR32])
252b5132
RH		 6217 ppc_elf_howto_init ();
6218
7619e7c7 6219 htab = ppc_elf_hash_table (info);
252b5132 6220 local_got_offsets = elf_local_got_offsets (input_bfd);
0ffa91dd 6221 symtab_hdr = &elf_symtab_hdr (input_bfd);
7619e7c7 6222 sym_hashes = elf_sym_hashes (input_bfd);
3348747a
NS		 6223 /* We have to handle relocations in vxworks .tls_vars sections
6224 specially, because the dynamic loader is 'weird'. */
6225 is_vxworks_tls = (htab->is_vxworks && info->shared
6226 && !strcmp (input_section->output_section->name,
6227 ".tls_vars"));
7619e7c7
AM		 6228 rel = relocs;
6229 relend = relocs + input_section->reloc_count;
252b5132
RH		 6230 for (; rel < relend; rel++)
6231 {
7619e7c7
AM		 6232 enum elf_ppc_reloc_type r_type;
6233 bfd_vma addend;
6234 bfd_reloc_status_type r;
6235 Elf_Internal_Sym *sym;
6236 asection *sec;
6237 struct elf_link_hash_entry *h;
6238 const char *sym_name;
252b5132
RH		 6239 reloc_howto_type *howto;
6240 unsigned long r_symndx;
6241 bfd_vma relocation;
7619e7c7 6242 bfd_vma branch_bit, insn, from;
7619e7c7
AM		 6243 bfd_boolean unresolved_reloc;
6244 bfd_boolean warned;
6245 unsigned int tls_type, tls_mask, tls_gd;
6246
55fd94b0
AM		 6247 r_type = ELF32_R_TYPE (rel->r_info);
6248 sym = NULL;
6249 sec = NULL;
6250 h = NULL;
7619e7c7
AM		 6251 unresolved_reloc = FALSE;
6252 warned = FALSE;
252b5132 6253 r_symndx = ELF32_R_SYM (rel->r_info);
560e09e9 6254
252b5132
RH		 6255 if (r_symndx < symtab_hdr->sh_info)
6256 {
6257 sym = local_syms + r_symndx;
6258 sec = local_sections[r_symndx];
26c61ae5 6259 sym_name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym, sec);
252b5132 6260
8517fae7 6261 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
252b5132
RH		 6262 }
6263 else
6264 {
b2a8e766
AM		 6265 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
6266 r_symndx, symtab_hdr, sym_hashes,
6267 h, sec, relocation,
6268 unresolved_reloc, warned);
9abc968f 6269
252b5132 6270 sym_name = h->root.root.string;
7619e7c7
AM		 6271 }
6272
ab96bf03
AM		 6273 if (sec != NULL && elf_discarded_section (sec))
6274 {
6275 /* For relocs against symbols from removed linkonce sections,
6276 or sections discarded by a linker script, we just want the
6277 section contents zeroed. Avoid any special processing. */
6278 howto = NULL;
6279 if (r_type < R_PPC_max)
6280 howto = ppc_elf_howto_table[r_type];
6281 _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
6282 rel->r_info = 0;
6283 rel->r_addend = 0;
6284 continue;
6285 }
6286
6287 if (info->relocatable)
6288 {
6289 if (got2 != NULL
6290 && r_type == R_PPC_PLTREL24
6291 && rel->r_addend >= 32768)
6292 {
6293 /* R_PPC_PLTREL24 is rather special. If non-zero, the
6294 addend specifies the GOT pointer offset within .got2. */
6295 rel->r_addend += got2->output_offset;
6296 }
6297 continue;
6298 }
6299
7619e7c7
AM		 6300 /* TLS optimizations. Replace instruction sequences and relocs
6301 based on information we collected in tls_optimize. We edit
6302 RELOCS so that --emit-relocs will output something sensible
6303 for the final instruction stream. */
6304 tls_mask = 0;
6305 tls_gd = 0;
727fc41e
AM		 6306 if (h != NULL)
6307 tls_mask = ((struct ppc_elf_link_hash_entry *) h)->tls_mask;
6308 else if (local_got_offsets != NULL)
7619e7c7 6309 {
727fc41e
AM		 6310 char *lgot_masks;
6311 lgot_masks = (char *) (local_got_offsets + symtab_hdr->sh_info);
6312 tls_mask = lgot_masks[r_symndx];
7619e7c7
AM		 6313 }
6314
6315 /* Ensure reloc mapping code below stays sane. */
6316 if ((R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TLSGD16 & 3)
6317 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TLSGD16_LO & 3)
6318 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TLSGD16_HI & 3)
6319 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TLSGD16_HA & 3)
6320 || (R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TPREL16 & 3)
6321 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TPREL16_LO & 3)
6322 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TPREL16_HI & 3)
6323 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TPREL16_HA & 3))
6324 abort ();
6325 switch (r_type)
6326 {
6327 default:
6328 break;
6329
6330 case R_PPC_GOT_TPREL16:
6331 case R_PPC_GOT_TPREL16_LO:
6332 if (tls_mask != 0
6333 && (tls_mask & TLS_TPREL) == 0)
6334 {
6335 bfd_vma insn;
4fe5ca5b 6336 insn = bfd_get_32 (output_bfd, contents + rel->r_offset - d_offset);
7619e7c7
AM		 6337 insn &= 31 << 21;
6338 insn |= 0x3c020000; /* addis 0,2,0 */
4fe5ca5b 6339 bfd_put_32 (output_bfd, insn, contents + rel->r_offset - d_offset);
7619e7c7
AM		 6340 r_type = R_PPC_TPREL16_HA;
6341 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
6342 }
6343 break;
6344
6345 case R_PPC_TLS:
6346 if (tls_mask != 0
6347 && (tls_mask & TLS_TPREL) == 0)
6348 {
6349 bfd_vma insn, rtra;
6350 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
6351 if ((insn & ((31 << 26) | (31 << 11)))
6352 == ((31 << 26) | (2 << 11)))
6353 rtra = insn & ((1 << 26) - (1 << 16));
6354 else if ((insn & ((31 << 26) | (31 << 16)))
6355 == ((31 << 26) | (2 << 16)))
6356 rtra = (insn & (31 << 21)) | ((insn & (31 << 11)) << 5);
6357 else
6358 abort ();
6359 if ((insn & ((1 << 11) - (1 << 1))) == 266 << 1)
6360 /* add -> addi. */
6361 insn = 14 << 26;
6362 else if ((insn & (31 << 1)) == 23 << 1
6363 && ((insn & (31 << 6)) < 14 << 6
6364 || ((insn & (31 << 6)) >= 16 << 6
6365 && (insn & (31 << 6)) < 24 << 6)))
6366 /* load and store indexed -> dform. */
6367 insn = (32 | ((insn >> 6) & 31)) << 26;
6368 else if ((insn & (31 << 1)) == 21 << 1
6369 && (insn & (0x1a << 6)) == 0)
6370 /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu. */
6371 insn = (((58 | ((insn >> 6) & 4)) << 26)
6372 | ((insn >> 6) & 1));
6373 else if ((insn & (31 << 1)) == 21 << 1
6374 && (insn & ((1 << 11) - (1 << 1))) == 341 << 1)
6375 /* lwax -> lwa. */
6376 insn = (58 << 26) | 2;
6377 else
6378 abort ();
6379 insn |= rtra;
6380 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
6381 r_type = R_PPC_TPREL16_LO;
6382 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4fe5ca5b 6383
7619e7c7 6384 /* Was PPC_TLS which sits on insn boundary, now
4fe5ca5b
GM		 6385 PPC_TPREL16_LO which is at low-order half-word. */
6386 rel->r_offset += d_offset;
7619e7c7
AM		 6387 }
6388 break;
6389
6390 case R_PPC_GOT_TLSGD16_HI:
6391 case R_PPC_GOT_TLSGD16_HA:
6392 tls_gd = TLS_TPRELGD;
6393 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
6394 goto tls_gdld_hi;
6395 break;
6396
6397 case R_PPC_GOT_TLSLD16_HI:
6398 case R_PPC_GOT_TLSLD16_HA:
6399 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
6400 {
6401 tls_gdld_hi:
6402 if ((tls_mask & tls_gd) != 0)
6403 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
6404 + R_PPC_GOT_TPREL16);
6405 else
6406 {
6407 bfd_put_32 (output_bfd, NOP, contents + rel->r_offset);
4fe5ca5b 6408 rel->r_offset -= d_offset;
7619e7c7
AM		 6409 r_type = R_PPC_NONE;
6410 }
6411 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
6412 }
6413 break;
6414
6415 case R_PPC_GOT_TLSGD16:
6416 case R_PPC_GOT_TLSGD16_LO:
6417 tls_gd = TLS_TPRELGD;
6418 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
b7fcf6f6 6419 goto tls_ldgd_opt;
7619e7c7
AM		 6420 break;
6421
6422 case R_PPC_GOT_TLSLD16:
6423 case R_PPC_GOT_TLSLD16_LO:
6424 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
6425 {
3a71aa26 6426 unsigned int insn1, insn2;
b7fcf6f6 6427 bfd_vma offset;
7619e7c7 6428
b7fcf6f6 6429 tls_ldgd_opt:
727fc41e
AM		 6430 offset = (bfd_vma) -1;
6431 /* If not using the newer R_PPC_TLSGD/LD to mark
6432 __tls_get_addr calls, we must trust that the call
6433 stays with its arg setup insns, ie. that the next
6434 reloc is the __tls_get_addr call associated with
6435 the current reloc. Edit both insns. */
6436 if (input_section->has_tls_get_addr_call
6437 && rel + 1 < relend
6438 && branch_reloc_hash_match (input_bfd, rel + 1,
6439 htab->tls_get_addr))
6440 offset = rel[1].r_offset;
b7fcf6f6
AM		 6441 if ((tls_mask & tls_gd) != 0)
6442 {
6443 /* IE */
3a71aa26
AM		 6444 insn1 = bfd_get_32 (output_bfd,
6445 contents + rel->r_offset - d_offset);
b7fcf6f6
AM		 6446 insn1 &= (1 << 26) - 1;
6447 insn1 |= 32 << 26; /* lwz */
727fc41e
AM		 6448 if (offset != (bfd_vma) -1)
6449 {
6450 rel[1].r_info
6451 = ELF32_R_INFO (ELF32_R_SYM (rel[1].r_info),
6452 R_PPC_NONE);
6453 insn2 = 0x7c631214; /* add 3,3,2 */
6454 bfd_put_32 (output_bfd, insn2, contents + offset);
6455 }
b7fcf6f6
AM		 6456 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
6457 + R_PPC_GOT_TPREL16);
6458 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
6459 }
6460 else
6461 {
6462 /* LE */
6463 insn1 = 0x3c620000; /* addis 3,2,0 */
7619e7c7
AM		 6464 if (tls_gd == 0)
6465 {
b7fcf6f6 6466 /* Was an LD reloc. */
1d483afe
AM		 6467 for (r_symndx = 0;
6468 r_symndx < symtab_hdr->sh_info;
6469 r_symndx++)
6470 if (local_sections[r_symndx] == sec)
6471 break;
6472 if (r_symndx >= symtab_hdr->sh_info)
6473 r_symndx = 0;
b7fcf6f6 6474 rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
1d483afe
AM		 6475 if (r_symndx != 0)
6476 rel->r_addend -= (local_syms[r_symndx].st_value
6477 + sec->output_offset
6478 + sec->output_section->vma);
7619e7c7 6479 }
b7fcf6f6
AM		 6480 r_type = R_PPC_TPREL16_HA;
6481 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
727fc41e
AM		 6482 if (offset != (bfd_vma) -1)
6483 {
6484 rel[1].r_info = ELF32_R_INFO (r_symndx, R_PPC_TPREL16_LO);
6485 rel[1].r_offset = offset + d_offset;
6486 rel[1].r_addend = rel->r_addend;
6487 insn2 = 0x38630000; /* addi 3,3,0 */
6488 bfd_put_32 (output_bfd, insn2, contents + offset);
6489 }
b7fcf6f6
AM		 6490 }
6491 bfd_put_32 (output_bfd, insn1,
6492 contents + rel->r_offset - d_offset);
b7fcf6f6
AM		 6493 if (tls_gd == 0)
6494 {
6495 /* We changed the symbol on an LD reloc. Start over
6496 in order to get h, sym, sec etc. right. */
6497 rel--;
6498 continue;
7619e7c7 6499 }
252b5132 6500 }
7619e7c7 6501 break;
727fc41e
AM		 6502
6503 case R_PPC_TLSGD:
6504 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
6505 {
6506 unsigned int insn2;
6507 bfd_vma offset = rel->r_offset;
6508
6509 if ((tls_mask & TLS_TPRELGD) != 0)
6510 {
6511 /* IE */
6512 r_type = R_PPC_NONE;
6513 insn2 = 0x7c631214; /* add 3,3,2 */
6514 }
6515 else
6516 {
6517 /* LE */
6518 r_type = R_PPC_TPREL16_LO;
6519 rel->r_offset += d_offset;
6520 insn2 = 0x38630000; /* addi 3,3,0 */
6521 }
6522 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
6523 bfd_put_32 (output_bfd, insn2, contents + offset);
6524 /* Zap the reloc on the _tls_get_addr call too. */
6525 BFD_ASSERT (offset == rel[1].r_offset);
6526 rel[1].r_info = ELF32_R_INFO (ELF32_R_SYM (rel[1].r_info),
6527 R_PPC_NONE);
6528 }
6529 break;
6530
6531 case R_PPC_TLSLD:
6532 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
6533 {
6534 unsigned int insn2;
6535
6536 for (r_symndx = 0;
6537 r_symndx < symtab_hdr->sh_info;
6538 r_symndx++)
6539 if (local_sections[r_symndx] == sec)
6540 break;
6541 if (r_symndx >= symtab_hdr->sh_info)
6542 r_symndx = 0;
6543 rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
6544 if (r_symndx != 0)
6545 rel->r_addend -= (local_syms[r_symndx].st_value
6546 + sec->output_offset
6547 + sec->output_section->vma);
6548
6549 rel->r_info = ELF32_R_INFO (r_symndx, R_PPC_TPREL16_LO);
6550 rel->r_offset += d_offset;
6551 insn2 = 0x38630000; /* addi 3,3,0 */
6552 bfd_put_32 (output_bfd, insn2,
6553 contents + rel->r_offset - d_offset);
6554 /* Zap the reloc on the _tls_get_addr call too. */
6555 BFD_ASSERT (rel->r_offset - d_offset == rel[1].r_offset);
6556 rel[1].r_info = ELF32_R_INFO (ELF32_R_SYM (rel[1].r_info),
6557 R_PPC_NONE);
6558 rel--;
6559 continue;
6560 }
6561 break;
7619e7c7
AM		 6562 }
6563
6564 /* Handle other relocations that tweak non-addend part of insn. */
6565 branch_bit = 0;
6566 switch (r_type)
6567 {
6568 default:
6569 break;
6570
6571 /* Branch taken prediction relocations. */
6572 case R_PPC_ADDR14_BRTAKEN:
6573 case R_PPC_REL14_BRTAKEN:
6574 branch_bit = BRANCH_PREDICT_BIT;
6575 /* Fall thru */
6576
4cc11e76 6577 /* Branch not taken prediction relocations. */
7619e7c7
AM		 6578 case R_PPC_ADDR14_BRNTAKEN:
6579 case R_PPC_REL14_BRNTAKEN:
6580 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
6581 insn &= ~BRANCH_PREDICT_BIT;
6582 insn |= branch_bit;
6583
6584 from = (rel->r_offset
6585 + input_section->output_offset
6586 + input_section->output_section->vma);
6587
6588 /* Invert 'y' bit if not the default. */
6589 if ((bfd_signed_vma) (relocation + rel->r_addend - from) < 0)
6590 insn ^= BRANCH_PREDICT_BIT;
6591
6592 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
6593 break;
252b5132
RH		 6594 }
6595
7619e7c7
AM		 6596 addend = rel->r_addend;
6597 tls_type = 0;
6598 howto = NULL;
55fd94b0
AM		 6599 if (r_type < R_PPC_max)
6600 howto = ppc_elf_howto_table[r_type];
7619e7c7 6601 switch (r_type)
252b5132
RH		 6602 {
6603 default:
7619e7c7 6604 (*_bfd_error_handler)
d003868e
AM		 6605 (_("%B: unknown relocation type %d for symbol %s"),
6606 input_bfd, (int) r_type, sym_name);
252b5132
RH		 6607
6608 bfd_set_error (bfd_error_bad_value);
b34976b6 6609 ret = FALSE;
252b5132
RH		 6610 continue;
6611
7619e7c7
AM		 6612 case R_PPC_NONE:
6613 case R_PPC_TLS:
727fc41e
AM		 6614 case R_PPC_TLSGD:
6615 case R_PPC_TLSLD:
7619e7c7
AM		 6616 case R_PPC_EMB_MRKREF:
6617 case R_PPC_GNU_VTINHERIT:
6618 case R_PPC_GNU_VTENTRY:
7595d193
L		 6619 continue;
6620
7619e7c7
AM		 6621 /* GOT16 relocations. Like an ADDR16 using the symbol's
6622 address in the GOT as relocation value instead of the
6623 symbol's value itself. Also, create a GOT entry for the
6624 symbol and put the symbol value there. */
6625 case R_PPC_GOT_TLSGD16:
6626 case R_PPC_GOT_TLSGD16_LO:
6627 case R_PPC_GOT_TLSGD16_HI:
6628 case R_PPC_GOT_TLSGD16_HA:
6629 tls_type = TLS_TLS | TLS_GD;
6630 goto dogot;
6631
6632 case R_PPC_GOT_TLSLD16:
6633 case R_PPC_GOT_TLSLD16_LO:
6634 case R_PPC_GOT_TLSLD16_HI:
6635 case R_PPC_GOT_TLSLD16_HA:
6636 tls_type = TLS_TLS | TLS_LD;
6637 goto dogot;
6638
6639 case R_PPC_GOT_TPREL16:
6640 case R_PPC_GOT_TPREL16_LO:
6641 case R_PPC_GOT_TPREL16_HI:
6642 case R_PPC_GOT_TPREL16_HA:
6643 tls_type = TLS_TLS | TLS_TPREL;
6644 goto dogot;
6645
6646 case R_PPC_GOT_DTPREL16:
6647 case R_PPC_GOT_DTPREL16_LO:
6648 case R_PPC_GOT_DTPREL16_HI:
6649 case R_PPC_GOT_DTPREL16_HA:
6650 tls_type = TLS_TLS | TLS_DTPREL;
6651 goto dogot;
6652
6653 case R_PPC_GOT16:
6654 case R_PPC_GOT16_LO:
6655 case R_PPC_GOT16_HI:
6656 case R_PPC_GOT16_HA:
727fc41e 6657 tls_mask = 0;
7619e7c7
AM		 6658 dogot:
6659 {
6660 /* Relocation is to the entry for this symbol in the global
6661 offset table. */
6662 bfd_vma off;
6663 bfd_vma *offp;
6664 unsigned long indx;
6665
6666 if (htab->got == NULL)
6667 abort ();
6668
6669 indx = 0;
6670 if (tls_type == (TLS_TLS | TLS_LD)
d881513a 6671 && (h == NULL
f5385ebf 6672 || !h->def_dynamic))
7619e7c7
AM		 6673 offp = &htab->tlsld_got.offset;
6674 else if (h != NULL)
6675 {
6676 bfd_boolean dyn;
6677 dyn = htab->elf.dynamic_sections_created;
ee05f2fe 6678 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
7619e7c7
AM		 6679 || (info->shared
6680 && SYMBOL_REFERENCES_LOCAL (info, h)))
6681 /* This is actually a static link, or it is a
6682 -Bsymbolic link and the symbol is defined
6683 locally, or the symbol was forced to be local
6684 because of a version file. */
6685 ;
6686 else
6687 {
6688 indx = h->dynindx;
6689 unresolved_reloc = FALSE;
6690 }
6691 offp = &h->got.offset;
6692 }
6693 else
6694 {
6695 if (local_got_offsets == NULL)
6696 abort ();
6697 offp = &local_got_offsets[r_symndx];
6698 }
6699
6700 /* The offset must always be a multiple of 4. We use the
6701 least significant bit to record whether we have already
6702 processed this entry. */
6703 off = *offp;
6704 if ((off & 1) != 0)
6705 off &= ~1;
6706 else
6707 {
70bccea4
AM		 6708 unsigned int tls_m = (tls_mask
6709 & (TLS_LD | TLS_GD | TLS_DTPREL
6710 | TLS_TPREL | TLS_TPRELGD));
6711
6712 if (offp == &htab->tlsld_got.offset)
6713 tls_m = TLS_LD;
6714 else if (h == NULL
f5385ebf 6715 || !h->def_dynamic)
70bccea4
AM		 6716 tls_m &= ~TLS_LD;
6717
6718 /* We might have multiple got entries for this sym.
6719 Initialize them all. */
6720 do
7619e7c7 6721 {
70bccea4
AM		 6722 int tls_ty = 0;
6723
6724 if ((tls_m & TLS_LD) != 0)
7619e7c7 6725 {
70bccea4
AM		 6726 tls_ty = TLS_TLS | TLS_LD;
6727 tls_m &= ~TLS_LD;
6728 }
6729 else if ((tls_m & TLS_GD) != 0)
6730 {
6731 tls_ty = TLS_TLS | TLS_GD;
6732 tls_m &= ~TLS_GD;
6733 }
6734 else if ((tls_m & TLS_DTPREL) != 0)
6735 {
6736 tls_ty = TLS_TLS | TLS_DTPREL;
6737 tls_m &= ~TLS_DTPREL;
6738 }
6739 else if ((tls_m & (TLS_TPREL | TLS_TPRELGD)) != 0)
6740 {
6741 tls_ty = TLS_TLS | TLS_TPREL;
6742 tls_m = 0;
7619e7c7 6743 }
7619e7c7 6744
70bccea4 6745 /* Generate relocs for the dynamic linker. */
4e795f50 6746 if ((info->shared || indx != 0)
d6e14abc
AM		 6747 && (offp == &htab->tlsld_got.offset
6748 || h == NULL
4e795f50
AM		 6749 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
6750 || h->root.type != bfd_link_hash_undefweak))
7619e7c7 6751 {
70bccea4
AM		 6752 outrel.r_offset = (htab->got->output_section->vma
6753 + htab->got->output_offset
6754 + off);
e515b051 6755 outrel.r_addend = 0;
70bccea4
AM		 6756 if (tls_ty & (TLS_LD | TLS_GD))
6757 {
6758 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPMOD32);
70bccea4
AM		 6759 if (tls_ty == (TLS_TLS | TLS_GD))
6760 {
6761 loc = htab->relgot->contents;
6762 loc += (htab->relgot->reloc_count++
6763 * sizeof (Elf32_External_Rela));
6764 bfd_elf32_swap_reloca_out (output_bfd,
6765 &outrel, loc);
e515b051 6766 outrel.r_offset += 4;
70bccea4
AM		 6767 outrel.r_info
6768 = ELF32_R_INFO (indx, R_PPC_DTPREL32);
70bccea4
AM		 6769 }
6770 }
6771 else if (tls_ty == (TLS_TLS | TLS_DTPREL))
6772 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPREL32);
6773 else if (tls_ty == (TLS_TLS | TLS_TPREL))
6774 outrel.r_info = ELF32_R_INFO (indx, R_PPC_TPREL32);
6775 else if (indx == 0)
6776 outrel.r_info = ELF32_R_INFO (indx, R_PPC_RELATIVE);
6777 else
6778 outrel.r_info = ELF32_R_INFO (indx, R_PPC_GLOB_DAT);
d6e14abc 6779 if (indx == 0 && tls_ty != (TLS_TLS | TLS_LD))
e515b051
AM		 6780 {
6781 outrel.r_addend += relocation;
6782 if (tls_ty & (TLS_GD | TLS_DTPREL | TLS_TPREL))
e1918d23 6783 outrel.r_addend -= htab->elf.tls_sec->vma;
e515b051 6784 }
70bccea4
AM		 6785 loc = htab->relgot->contents;
6786 loc += (htab->relgot->reloc_count++
6787 * sizeof (Elf32_External_Rela));
6788 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
7619e7c7
AM		 6789 }
6790
70bccea4
AM		 6791 /* Init the .got section contents if we're not
6792 emitting a reloc. */
6793 else
7619e7c7 6794 {
70bccea4
AM		 6795 bfd_vma value = relocation;
6796
7b609f53
AM		 6797 if (tls_ty == (TLS_TLS | TLS_LD))
6798 value = 1;
6799 else if (tls_ty != 0)
70bccea4 6800 {
e1918d23 6801 value -= htab->elf.tls_sec->vma + DTP_OFFSET;
7b609f53 6802 if (tls_ty == (TLS_TLS | TLS_TPREL))
70bccea4 6803 value += DTP_OFFSET - TP_OFFSET;
70bccea4 6804
7b609f53
AM		 6805 if (tls_ty == (TLS_TLS | TLS_GD))
6806 {
6807 bfd_put_32 (output_bfd, value,
6808 htab->got->contents + off + 4);
6809 value = 1;
6810 }
70bccea4 6811 }
70bccea4
AM		 6812 bfd_put_32 (output_bfd, value,
6813 htab->got->contents + off);
7619e7c7 6814 }
70bccea4
AM		 6815
6816 off += 4;
6817 if (tls_ty & (TLS_LD | TLS_GD))
6818 off += 4;
7619e7c7 6819 }
70bccea4
AM		 6820 while (tls_m != 0);
6821
6822 off = *offp;
6823 *offp = off | 1;
7619e7c7
AM		 6824 }
6825
6826 if (off >= (bfd_vma) -2)
6827 abort ();
6828
70bccea4
AM		 6829 if ((tls_type & TLS_TLS) != 0)
6830 {
6831 if (tls_type != (TLS_TLS | TLS_LD))
6832 {
6833 if ((tls_mask & TLS_LD) != 0
6834 && !(h == NULL
f5385ebf 6835 || !h->def_dynamic))
70bccea4
AM		 6836 off += 8;
6837 if (tls_type != (TLS_TLS | TLS_GD))
6838 {
6839 if ((tls_mask & TLS_GD) != 0)
6840 off += 8;
6841 if (tls_type != (TLS_TLS | TLS_DTPREL))
6842 {
6843 if ((tls_mask & TLS_DTPREL) != 0)
6844 off += 4;
6845 }
6846 }
6847 }
6848 }
6849
e87d4038
AM		 6850 relocation = (htab->got->output_section->vma
6851 + htab->got->output_offset
6852 + off
6853 - SYM_VAL (htab->elf.hgot));
7619e7c7
AM		 6854
6855 /* Addends on got relocations don't make much sense.
6856 x+off@got is actually x@got+off, and since the got is
6857 generated by a hash table traversal, the value in the
6858 got at entry m+n bears little relation to the entry m. */
6859 if (addend != 0)
6860 (*_bfd_error_handler)
d003868e
AM		 6861 (_("%B(%A+0x%lx): non-zero addend on %s reloc against `%s'"),
6862 input_bfd,
6863 input_section,
7619e7c7 6864 (long) rel->r_offset,
7b609f53 6865 howto->name,
7619e7c7
AM		 6866 sym_name);
6867 }
70bccea4 6868 break;
7619e7c7 6869
252b5132 6870 /* Relocations that need no special processing. */
7619e7c7 6871 case R_PPC_LOCAL24PC:
252b5132
RH		 6872 /* It makes no sense to point a local relocation
6873 at a symbol not in this object. */
7b609f53 6874 if (unresolved_reloc)
252b5132 6875 {
464e1740
ILT		 6876 if (! (*info->callbacks->undefined_symbol) (info,
6877 h->root.root.string,
6878 input_bfd,
6879 input_section,
5cc7c785 6880 rel->r_offset,
b34976b6
AM		 6881 TRUE))
6882 return FALSE;
252b5132
RH		 6883 continue;
6884 }
6885 break;
6886
7619e7c7
AM		 6887 case R_PPC_DTPREL16:
6888 case R_PPC_DTPREL16_LO:
6889 case R_PPC_DTPREL16_HI:
6890 case R_PPC_DTPREL16_HA:
e1918d23 6891 addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
7619e7c7
AM		 6892 break;
6893
70bccea4
AM		 6894 /* Relocations that may need to be propagated if this is a shared
6895 object. */
7619e7c7
AM		 6896 case R_PPC_TPREL16:
6897 case R_PPC_TPREL16_LO:
6898 case R_PPC_TPREL16_HI:
6899 case R_PPC_TPREL16_HA:
e1918d23 6900 addend -= htab->elf.tls_sec->vma + TP_OFFSET;
7619e7c7
AM		 6901 /* The TPREL16 relocs shouldn't really be used in shared
6902 libs as they will result in DT_TEXTREL being set, but
6903 support them anyway. */
6904 goto dodyn;
6905
6906 case R_PPC_TPREL32:
e1918d23 6907 addend -= htab->elf.tls_sec->vma + TP_OFFSET;
7619e7c7
AM		 6908 goto dodyn;
6909
6910 case R_PPC_DTPREL32:
e1918d23 6911 addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
7619e7c7
AM		 6912 goto dodyn;
6913
e515b051
AM		 6914 case R_PPC_DTPMOD32:
6915 relocation = 1;
6916 addend = 0;
6917 goto dodyn;
6918
d7128ce4
AM		 6919 case R_PPC_REL16:
6920 case R_PPC_REL16_LO:
6921 case R_PPC_REL16_HI:
6922 case R_PPC_REL16_HA:
6923 break;
6924
7619e7c7 6925 case R_PPC_REL32:
625af618
AM		 6926 if (h == NULL || h == htab->elf.hgot)
6927 break;
6928 /* fall through */
6929
6930 case R_PPC_ADDR32:
6931 case R_PPC_ADDR16:
6932 case R_PPC_ADDR16_LO:
6933 case R_PPC_ADDR16_HI:
6934 case R_PPC_ADDR16_HA:
6935 case R_PPC_UADDR32:
6936 case R_PPC_UADDR16:
6937 goto dodyn;
6938
6939 case R_PPC_REL24:
7619e7c7
AM		 6940 case R_PPC_REL14:
6941 case R_PPC_REL14_BRTAKEN:
6942 case R_PPC_REL14_BRNTAKEN:
252b5132
RH		 6943 /* If these relocations are not to a named symbol, they can be
6944 handled right here, no need to bother the dynamic linker. */
89200bf8 6945 if (SYMBOL_CALLS_LOCAL (info, h)
3b36f7e6 6946 || h == htab->elf.hgot)
252b5132 6947 break;
70bccea4 6948 /* fall through */
252b5132 6949
7619e7c7 6950 case R_PPC_ADDR24:
7619e7c7
AM		 6951 case R_PPC_ADDR14:
6952 case R_PPC_ADDR14_BRTAKEN:
6953 case R_PPC_ADDR14_BRNTAKEN:
625af618
AM		 6954 if (h != NULL && !info->shared)
6955 break;
6956 /* fall through */
6957
7619e7c7 6958 dodyn:
3348747a
NS		 6959 if ((input_section->flags & SEC_ALLOC) == 0
6960 || is_vxworks_tls)
c87b5a93 6961 break;
c87b5a93 6962
ee05f2fe 6963 if ((info->shared
89200bf8
AM		 6964 && !(h != NULL
6965 && ((h->root.type == bfd_link_hash_undefined
6966 && (ELF_ST_VISIBILITY (h->other) == STV_HIDDEN
6967 || ELF_ST_VISIBILITY (h->other) == STV_INTERNAL))
6968 || (h->root.type == bfd_link_hash_undefweak
6969 && ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)))
1d483afe 6970 && (must_be_dyn_reloc (info, r_type)
f6c52c13 6971 || !SYMBOL_CALLS_LOCAL (info, h)))
ee05f2fe
AM		 6972 || (ELIMINATE_COPY_RELOCS
6973 && !info->shared
ee05f2fe
AM		 6974 && h != NULL
6975 && h->dynindx != -1
f5385ebf 6976 && !h->non_got_ref
f5385ebf 6977 && !h->def_regular))
252b5132 6978 {
0bb2d96a 6979 int skip;
252b5132
RH		 6980
6981#ifdef DEBUG
55fd94b0
AM		 6982 fprintf (stderr, "ppc_elf_relocate_section needs to "
6983 "create relocation for %s\n",
70bccea4
AM		 6984 (h && h->root.root.string
6985 ? h->root.root.string : "<unknown>"));
252b5132
RH		 6986#endif
6987
6988 /* When generating a shared object, these relocations
70bccea4
AM		 6989 are copied into the output file to be resolved at run
6990 time. */
252b5132
RH		 6991 if (sreloc == NULL)
6992 {
83bac4b0
NC		 6993 sreloc = _bfd_elf_get_dynamic_reloc_section
6994 (input_bfd, input_section, /*rela?*/ TRUE);
6995 if (sreloc == NULL)
b34976b6 6996 return FALSE;
252b5132
RH		 6997 }
6998
0bb2d96a 6999 skip = 0;
c629eae0
JJ		 7000 outrel.r_offset =
7001 _bfd_elf_section_offset (output_bfd, info, input_section,
7002 rel->r_offset);
0bb2d96a
JJ		 7003 if (outrel.r_offset == (bfd_vma) -1
7004 || outrel.r_offset == (bfd_vma) -2)
7005 skip = (int) outrel.r_offset;
252b5132
RH		 7006 outrel.r_offset += (input_section->output_section->vma
7007 + input_section->output_offset);
7008
7009 if (skip)
7010 memset (&outrel, 0, sizeof outrel);
89200bf8
AM		 7011 else if ((h != NULL
7012 && (h->root.type == bfd_link_hash_undefined
7013 || h->root.type == bfd_link_hash_undefweak))
7014 || !SYMBOL_REFERENCES_LOCAL (info, h))
252b5132 7015 {
7619e7c7 7016 unresolved_reloc = FALSE;
252b5132
RH		 7017 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
7018 outrel.r_addend = rel->r_addend;
7019 }
7020 else
7021 {
47388f4c
AM		 7022 outrel.r_addend = relocation + rel->r_addend;
7023
252b5132 7024 if (r_type == R_PPC_ADDR32)
47388f4c 7025 outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
252b5132
RH		 7026 else
7027 {
89200bf8 7028 long indx = 0;
252b5132 7029
1d483afe 7030 if (r_symndx == 0 || bfd_is_abs_section (sec))
89200bf8 7031 ;
252b5132
RH		 7032 else if (sec == NULL || sec->owner == NULL)
7033 {
7034 bfd_set_error (bfd_error_bad_value);
89200bf8 7035 ret = FALSE;
252b5132
RH		 7036 }
7037 else
7038 {
7039 asection *osec;
7040
47388f4c
AM		 7041 /* We are turning this relocation into one
7042 against a section symbol. It would be
7043 proper to subtract the symbol's value,
7044 osec->vma, from the emitted reloc addend,
7045 but ld.so expects buggy relocs. */
252b5132
RH		 7046 osec = sec->output_section;
7047 indx = elf_section_data (osec)->dynindx;
74541ad4
AM		 7048 if (indx == 0)
7049 {
7050 osec = htab->elf.text_index_section;
7051 indx = elf_section_data (osec)->dynindx;
7052 }
7053 BFD_ASSERT (indx != 0);
252b5132 7054#ifdef DEBUG
74541ad4 7055 if (indx == 0)
e460dd0d 7056 printf ("indx=%ld section=%s flags=%08x name=%s\n",
55fd94b0
AM		 7057 indx, osec->name, osec->flags,
7058 h->root.root.string);
252b5132
RH		 7059#endif
7060 }
7061
7062 outrel.r_info = ELF32_R_INFO (indx, r_type);
252b5132
RH		 7063 }
7064 }
7065
947216bf
AM		 7066 loc = sreloc->contents;
7067 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
7068 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
252b5132 7069
2243deae 7070 if (skip == -1)
252b5132 7071 continue;
2243deae
L		 7072
7073 /* This reloc will be computed at runtime. We clear the memory
7074 so that it contains predictable value. */
7075 if (! skip
7076 && ((input_section->flags & SEC_ALLOC) != 0
7077 || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE))
7078 {
7079 relocation = howto->pc_relative ? outrel.r_offset : 0;
7080 addend = 0;
7081 break;
7082 }
252b5132 7083 }
252b5132
RH		 7084 break;
7085
b4a38de6
AM		 7086 case R_PPC_RELAX32PC_PLT:
7087 case R_PPC_RELAX32_PLT:
a6aa5195
AM		 7088 {
7089 struct plt_entry *ent = find_plt_ent (h, got2, addend);
7090
4a3dc543 7091 if (htab->plt_type == PLT_NEW)
a6aa5195
AM		 7092 relocation = (htab->glink->output_section->vma
7093 + htab->glink->output_offset
7094 + ent->glink_offset);
7095 else
7096 relocation = (htab->plt->output_section->vma
7097 + htab->plt->output_offset
7098 + ent->plt.offset);
a6aa5195 7099 }
b4a38de6
AM		 7100 if (r_type == R_PPC_RELAX32_PLT)
7101 goto relax32;
7102 /* Fall thru */
7103
f31a141e
AM		 7104 case R_PPC_RELAX32PC:
7105 relocation -= (input_section->output_section->vma
7106 + input_section->output_offset
7107 + rel->r_offset - 4);
7108 /* Fall thru */
b4a38de6 7109
deaaf2f3 7110 case R_PPC_RELAX32:
b4a38de6 7111 relax32:
9abc968f
AM		 7112 {
7113 unsigned long t0;
7114 unsigned long t1;
7115
7116 t0 = bfd_get_32 (output_bfd, contents + rel->r_offset);
7117 t1 = bfd_get_32 (output_bfd, contents + rel->r_offset + 4);
7118
7119 /* We're clearing the bits for R_PPC_ADDR16_HA
7120 and R_PPC_ADDR16_LO here. */
7121 t0 &= ~0xffff;
7122 t1 &= ~0xffff;
7123
7124 /* t0 is HA, t1 is LO */
7125 relocation += addend;
7126 t0 |= ((relocation + 0x8000) >> 16) & 0xffff;
7127 t1 |= relocation & 0xffff;
7128
7129 bfd_put_32 (output_bfd, t0, contents + rel->r_offset);
7130 bfd_put_32 (output_bfd, t1, contents + rel->r_offset + 4);
9bc4e62b
NS		 7131
7132 /* Rewrite the reloc and convert one of the trailing nop
7133 relocs to describe this relocation. */
7134 BFD_ASSERT (ELF32_R_TYPE (relend[-1].r_info) == R_PPC_NONE);
7135 /* The relocs are at the bottom 2 bytes */
7136 rel[0].r_offset += 2;
7137 memmove (rel + 1, rel, (relend - rel - 1) * sizeof (*rel));
7138 rel[0].r_info = ELF32_R_INFO (r_symndx, R_PPC_ADDR16_HA);
7139 rel[1].r_offset += 4;
7140 rel[1].r_info = ELF32_R_INFO (r_symndx, R_PPC_ADDR16_LO);
7141 rel++;
9abc968f 7142 }
8517fae7 7143 continue;
deaaf2f3 7144
70bccea4 7145 /* Indirect .sdata relocation. */
7619e7c7 7146 case R_PPC_EMB_SDAI16:
c9a2f333 7147 BFD_ASSERT (htab->sdata[0].section != NULL);
7619e7c7 7148 relocation
76750a2f
AM		 7149 = elf_finish_pointer_linker_section (input_bfd, &htab->sdata[0],
7150 h, relocation, rel);
252b5132
RH		 7151 break;
7152
70bccea4 7153 /* Indirect .sdata2 relocation. */
7619e7c7 7154 case R_PPC_EMB_SDA2I16:
c9a2f333 7155 BFD_ASSERT (htab->sdata[1].section != NULL);
7619e7c7 7156 relocation
76750a2f
AM		 7157 = elf_finish_pointer_linker_section (input_bfd, &htab->sdata[1],
7158 h, relocation, rel);
252b5132
RH		 7159 break;
7160
70bccea4
AM		 7161 /* Handle the TOC16 reloc. We want to use the offset within the .got
7162 section, not the actual VMA. This is appropriate when generating
7163 an embedded ELF object, for which the .got section acts like the
7164 AIX .toc section. */
7619e7c7 7165 case R_PPC_TOC16: /* phony GOT16 relocations */
3b4f3a11
AM		 7166 if (sec == NULL || sec->output_section == NULL)
7167 {
7168 unresolved_reloc = TRUE;
7169 break;
7170 }
7171 BFD_ASSERT (strcmp (bfd_get_section_name (abfd, sec), ".got") == 0
f12123c0 7172 || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0);
252b5132 7173
3b4f3a11 7174 addend -= sec->output_section->vma + sec->output_offset + 0x8000;
252b5132
RH		 7175 break;
7176
7619e7c7 7177 case R_PPC_PLTREL24:
252b5132 7178 /* Relocation is to the entry for this symbol in the
70bccea4 7179 procedure linkage table. */
a6aa5195
AM		 7180 {
7181 struct plt_entry *ent = find_plt_ent (h, got2, addend);
252b5132 7182
a6aa5195
AM		 7183 addend = 0;
7184 if (ent == NULL
7185 || htab->plt == NULL)
7186 {
7187 /* We didn't make a PLT entry for this symbol. This
7188 happens when statically linking PIC code, or when
7189 using -Bsymbolic. */
7190 break;
7191 }
252b5132 7192
a6aa5195 7193 unresolved_reloc = FALSE;
4a3dc543 7194 if (htab->plt_type == PLT_NEW)
a6aa5195
AM		 7195 relocation = (htab->glink->output_section->vma
7196 + htab->glink->output_offset
7197 + ent->glink_offset);
7198 else
7199 relocation = (htab->plt->output_section->vma
7200 + htab->plt->output_offset
7201 + ent->plt.offset);
7202 }
8da6118f 7203 break;
252b5132 7204
70bccea4 7205 /* Relocate against _SDA_BASE_. */
7619e7c7 7206 case R_PPC_SDAREL16:
252b5132
RH		 7207 {
7208 const char *name;
7209
3b4f3a11
AM		 7210 if (sec == NULL || sec->output_section == NULL)
7211 {
7212 unresolved_reloc = TRUE;
7213 break;
7214 }
7215
252b5132 7216 name = bfd_get_section_name (abfd, sec->output_section);
0112cd26 7217 if (! ((CONST_STRNEQ (name, ".sdata")
5f819128 7218 && (name[6] == 0 || name[6] == '.'))
0112cd26 7219 || (CONST_STRNEQ (name, ".sbss")
5f819128 7220 && (name[5] == 0 || name[5] == '.'))))
252b5132 7221 {
55fd94b0 7222 (*_bfd_error_handler)
d003868e 7223 (_("%B: the target (%s) of a %s relocation is "
55fd94b0 7224 "in the wrong output section (%s)"),
d003868e 7225 input_bfd,
55fd94b0
AM		 7226 sym_name,
7227 howto->name,
7228 name);
252b5132 7229 }
e87d4038 7230 addend -= SYM_VAL (htab->sdata[0].sym);
252b5132
RH		 7231 }
7232 break;
7233
70bccea4 7234 /* Relocate against _SDA2_BASE_. */
7619e7c7 7235 case R_PPC_EMB_SDA2REL:
252b5132
RH		 7236 {
7237 const char *name;
7238
3b4f3a11
AM		 7239 if (sec == NULL || sec->output_section == NULL)
7240 {
7241 unresolved_reloc = TRUE;
7242 break;
7243 }
7244
252b5132 7245 name = bfd_get_section_name (abfd, sec->output_section);
0112cd26
NC		 7246 if (! (CONST_STRNEQ (name, ".sdata2")
7247 || CONST_STRNEQ (name, ".sbss2")))
252b5132 7248 {
55fd94b0 7249 (*_bfd_error_handler)
d003868e 7250 (_("%B: the target (%s) of a %s relocation is "
55fd94b0 7251 "in the wrong output section (%s)"),
d003868e 7252 input_bfd,
55fd94b0
AM		 7253 sym_name,
7254 howto->name,
7255 name);
c3668558 7256
252b5132 7257 bfd_set_error (bfd_error_bad_value);
b34976b6 7258 ret = FALSE;
252b5132
RH		 7259 continue;
7260 }
e87d4038 7261 addend -= SYM_VAL (htab->sdata[1].sym);
252b5132
RH		 7262 }
7263 break;
7264
70bccea4 7265 /* Relocate against either _SDA_BASE_, _SDA2_BASE_, or 0. */
7619e7c7
AM		 7266 case R_PPC_EMB_SDA21:
7267 case R_PPC_EMB_RELSDA:
252b5132
RH		 7268 {
7269 const char *name;
7270 int reg;
7271
3b4f3a11
AM		 7272 if (sec == NULL || sec->output_section == NULL)
7273 {
7274 unresolved_reloc = TRUE;
7275 break;
7276 }
7277
252b5132 7278 name = bfd_get_section_name (abfd, sec->output_section);
0112cd26 7279 if (((CONST_STRNEQ (name, ".sdata")
5f819128 7280 && (name[6] == 0 || name[6] == '.'))
0112cd26 7281 || (CONST_STRNEQ (name, ".sbss")
5f819128 7282 && (name[5] == 0 || name[5] == '.'))))
252b5132
RH		 7283 {
7284 reg = 13;
e87d4038 7285 addend -= SYM_VAL (htab->sdata[0].sym);
252b5132 7286 }
0112cd26
NC		 7287 else if (CONST_STRNEQ (name, ".sdata2")
7288 || CONST_STRNEQ (name, ".sbss2"))
252b5132
RH		 7289 {
7290 reg = 2;
e87d4038 7291 addend -= SYM_VAL (htab->sdata[1].sym);
252b5132 7292 }
8da6118f
KH		 7293 else if (strcmp (name, ".PPC.EMB.sdata0") == 0
7294 || strcmp (name, ".PPC.EMB.sbss0") == 0)
252b5132
RH		 7295 {
7296 reg = 0;
7297 }
252b5132
RH		 7298 else
7299 {
55fd94b0 7300 (*_bfd_error_handler)
d003868e 7301 (_("%B: the target (%s) of a %s relocation is "
55fd94b0 7302 "in the wrong output section (%s)"),
d003868e 7303 input_bfd,
55fd94b0
AM		 7304 sym_name,
7305 howto->name,
7306 name);
252b5132
RH		 7307
7308 bfd_set_error (bfd_error_bad_value);
b34976b6 7309 ret = FALSE;
252b5132
RH		 7310 continue;
7311 }
7312
7313 if (r_type == R_PPC_EMB_SDA21)
7314 { /* fill in register field */
7619e7c7 7315 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
252b5132 7316 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
7619e7c7 7317 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
252b5132
RH		 7318 }
7319 }
7320 break;
7321
70bccea4 7322 /* Relocate against the beginning of the section. */
7619e7c7
AM		 7323 case R_PPC_SECTOFF:
7324 case R_PPC_SECTOFF_LO:
7325 case R_PPC_SECTOFF_HI:
7326 case R_PPC_SECTOFF_HA:
3b4f3a11
AM		 7327 if (sec == NULL || sec->output_section == NULL)
7328 {
7329 unresolved_reloc = TRUE;
7330 break;
7331 }
252b5132 7332 addend -= sec->output_section->vma;
252b5132
RH		 7333 break;
7334
70bccea4 7335 /* Negative relocations. */
7619e7c7
AM		 7336 case R_PPC_EMB_NADDR32:
7337 case R_PPC_EMB_NADDR16:
7338 case R_PPC_EMB_NADDR16_LO:
7339 case R_PPC_EMB_NADDR16_HI:
7340 case R_PPC_EMB_NADDR16_HA:
8da6118f 7341 addend -= 2 * relocation;
252b5132
RH		 7342 break;
7343
7619e7c7
AM		 7344 case R_PPC_COPY:
7345 case R_PPC_GLOB_DAT:
7346 case R_PPC_JMP_SLOT:
7347 case R_PPC_RELATIVE:
7348 case R_PPC_PLT32:
7349 case R_PPC_PLTREL32:
7350 case R_PPC_PLT16_LO:
7351 case R_PPC_PLT16_HI:
7352 case R_PPC_PLT16_HA:
7353 case R_PPC_ADDR30:
7354 case R_PPC_EMB_RELSEC16:
7355 case R_PPC_EMB_RELST_LO:
7356 case R_PPC_EMB_RELST_HI:
7357 case R_PPC_EMB_RELST_HA:
7358 case R_PPC_EMB_BIT_FLD:
7359 (*_bfd_error_handler)
d003868e
AM		 7360 (_("%B: relocation %s is not yet supported for symbol %s."),
7361 input_bfd,
7619e7c7
AM		 7362 howto->name,
7363 sym_name);
252b5132
RH		 7364
7365 bfd_set_error (bfd_error_invalid_operation);
b34976b6 7366 ret = FALSE;
252b5132 7367 continue;
7619e7c7 7368 }
252b5132 7369
7619e7c7
AM		 7370 /* Do any further special processing. */
7371 switch (r_type)
7372 {
7373 default:
7374 break;
7375
7376 case R_PPC_ADDR16_HA:
d7128ce4 7377 case R_PPC_REL16_HA:
7619e7c7
AM		 7378 case R_PPC_SECTOFF_HA:
7379 case R_PPC_TPREL16_HA:
7380 case R_PPC_DTPREL16_HA:
7619e7c7
AM		 7381 case R_PPC_EMB_NADDR16_HA:
7382 case R_PPC_EMB_RELST_HA:
7383 /* It's just possible that this symbol is a weak symbol
7b609f53 7384 that's not actually defined anywhere. In that case,
7619e7c7
AM		 7385 'sec' would be NULL, and we should leave the symbol
7386 alone (it will be set to zero elsewhere in the link). */
5c5f6e17
AM		 7387 if (sec == NULL)
7388 break;
7389 /* Fall thru */
7390
7391 case R_PPC_PLT16_HA:
7392 case R_PPC_GOT16_HA:
7393 case R_PPC_GOT_TLSGD16_HA:
7394 case R_PPC_GOT_TLSLD16_HA:
7395 case R_PPC_GOT_TPREL16_HA:
7396 case R_PPC_GOT_DTPREL16_HA:
7397 /* Add 0x10000 if sign bit in 0:15 is set.
7398 Bits 0:15 are not used. */
7399 addend += 0x8000;
7619e7c7 7400 break;
252b5132
RH		 7401 }
7402
252b5132 7403#ifdef DEBUG
55fd94b0
AM		 7404 fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, "
7405 "offset = %ld, addend = %ld\n",
252b5132 7406 howto->name,
8da6118f 7407 (int) r_type,
252b5132
RH		 7408 sym_name,
7409 r_symndx,
7619e7c7 7410 (long) rel->r_offset,
8da6118f 7411 (long) addend);
252b5132
RH		 7412#endif
7413
7619e7c7
AM		 7414 if (unresolved_reloc
7415 && !((input_section->flags & SEC_DEBUGGING) != 0
f5385ebf 7416 && h->def_dynamic))
7619e7c7
AM		 7417 {
7418 (*_bfd_error_handler)
d003868e
AM		 7419 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
7420 input_bfd,
7421 input_section,
7619e7c7 7422 (long) rel->r_offset,
7b609f53 7423 howto->name,
7619e7c7
AM		 7424 sym_name);
7425 ret = FALSE;
7426 }
7427
252b5132
RH		 7428 r = _bfd_final_link_relocate (howto,
7429 input_bfd,
7430 input_section,
7431 contents,
7619e7c7 7432 rel->r_offset,
252b5132
RH		 7433 relocation,
7434 addend);
7435
7619e7c7 7436 if (r != bfd_reloc_ok)
252b5132 7437 {
7619e7c7 7438 if (r == bfd_reloc_overflow)
252b5132 7439 {
7619e7c7
AM		 7440 if (warned)
7441 continue;
7442 if (h != NULL
7443 && h->root.type == bfd_link_hash_undefweak
dc1bc0c9
RH		 7444 && howto->pc_relative)
7445 {
7446 /* Assume this is a call protected by other code that
7447 detect the symbol is undefined. If this is the case,
7448 we can safely ignore the overflow. If not, the
7449 program is hosed anyway, and a little warning isn't
7450 going to help. */
252b5132 7451
dc1bc0c9
RH		 7452 continue;
7453 }
252b5132 7454
7619e7c7 7455 if (! (*info->callbacks->reloc_overflow) (info,
dfeffb9f 7456 (h ? &h->root : NULL),
7619e7c7
AM		 7457 sym_name,
7458 howto->name,
7459 rel->r_addend,
7460 input_bfd,
7461 input_section,
7462 rel->r_offset))
7463 return FALSE;
dc1bc0c9
RH		 7464 }
7465 else
7466 {
7619e7c7 7467 (*_bfd_error_handler)
d003868e
AM		 7468 (_("%B(%A+0x%lx): %s reloc against `%s': error %d"),
7469 input_bfd, input_section,
7b609f53 7470 (long) rel->r_offset, howto->name, sym_name, (int) r);
7619e7c7 7471 ret = FALSE;
252b5132
RH		 7472 }
7473 }
7474 }
7475
252b5132
RH		 7476#ifdef DEBUG
7477 fprintf (stderr, "\n");
7478#endif
7479
7480 return ret;
7481}
252b5132 7482\f
a6aa5195
AM		 7483#define PPC_LO(v) ((v) & 0xffff)
7484#define PPC_HI(v) (((v) >> 16) & 0xffff)
7485#define PPC_HA(v) PPC_HI ((v) + 0x8000)
7486
25dbc73a
AM		 7487/* Finish up dynamic symbol handling. We set the contents of various
7488 dynamic sections here. */
c5fccbec 7489
b34976b6 7490static bfd_boolean
25dbc73a
AM		 7491ppc_elf_finish_dynamic_symbol (bfd *output_bfd,
7492 struct bfd_link_info *info,
7493 struct elf_link_hash_entry *h,
7494 Elf_Internal_Sym *sym)
e1a9cb8e 7495{
25dbc73a 7496 struct ppc_elf_link_hash_table *htab;
a6aa5195
AM		 7497 struct plt_entry *ent;
7498 bfd_boolean doneone;
e1a9cb8e 7499
25dbc73a
AM		 7500#ifdef DEBUG
7501 fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
7502 h->root.root.string);
7503#endif
e1a9cb8e 7504
25dbc73a
AM		 7505 htab = ppc_elf_hash_table (info);
7506 BFD_ASSERT (htab->elf.dynobj != NULL);
e1a9cb8e 7507
a6aa5195
AM		 7508 doneone = FALSE;
7509 for (ent = h->plt.plist; ent != NULL; ent = ent->next)
7510 if (ent->plt.offset != (bfd_vma) -1)
7511 {
7512 if (!doneone)
7513 {
7514 Elf_Internal_Rela rela;
7515 bfd_byte *loc;
7516 bfd_vma reloc_index;
e1a9cb8e 7517
4a3dc543 7518 if (htab->plt_type == PLT_NEW)
9d8504b1
PB		 7519 reloc_index = ent->plt.offset / 4;
7520 else
7521 {
7522 reloc_index = ((ent->plt.offset - htab->plt_initial_entry_size)
7523 / htab->plt_slot_size);
7524 if (reloc_index > PLT_NUM_SINGLE_ENTRIES
4a3dc543 7525 && htab->plt_type == PLT_OLD)
9d8504b1
PB		 7526 reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
7527 }
7528
a6aa5195
AM		 7529 /* This symbol has an entry in the procedure linkage table.
7530 Set it up. */
4a3dc543 7531 if (htab->plt_type == PLT_VXWORKS)
a6aa5195 7532 {
9d8504b1
PB		 7533 bfd_vma got_offset;
7534 const bfd_vma *plt_entry;
7535
7536 /* The first three entries in .got.plt are reserved. */
7537 got_offset = (reloc_index + 3) * 4;
7538
7539 /* Use the right PLT. */
7540 plt_entry = info->shared ? ppc_elf_vxworks_pic_plt_entry
7541 : ppc_elf_vxworks_plt_entry;
7542
7543 /* Fill in the .plt on VxWorks. */
7544 if (info->shared)
7545 {
9d8504b1 7546 bfd_put_32 (output_bfd,
e87d4038 7547 plt_entry[0] | PPC_HA (got_offset),
9d8504b1
PB		 7548 htab->plt->contents + ent->plt.offset + 0);
7549 bfd_put_32 (output_bfd,
e87d4038 7550 plt_entry[1] | PPC_LO (got_offset),
9d8504b1
PB		 7551 htab->plt->contents + ent->plt.offset + 4);
7552 }
7553 else
7554 {
e87d4038 7555 bfd_vma got_loc = got_offset + SYM_VAL (htab->elf.hgot);
9d8504b1
PB		 7556
7557 bfd_put_32 (output_bfd,
e87d4038 7558 plt_entry[0] | PPC_HA (got_loc),
9d8504b1
PB		 7559 htab->plt->contents + ent->plt.offset + 0);
7560 bfd_put_32 (output_bfd,
e87d4038 7561 plt_entry[1] | PPC_LO (got_loc),
9d8504b1
PB		 7562 htab->plt->contents + ent->plt.offset + 4);
7563 }
7564
7565 bfd_put_32 (output_bfd, plt_entry[2],
7566 htab->plt->contents + ent->plt.offset + 8);
7567 bfd_put_32 (output_bfd, plt_entry[3],
7568 htab->plt->contents + ent->plt.offset + 12);
7569
7570 /* This instruction is an immediate load. The value loaded is
7571 the byte offset of the R_PPC_JMP_SLOT relocation from the
7572 start of the .rela.plt section. The value is stored in the
7573 low-order 16 bits of the load instruction. */
7574 /* NOTE: It appears that this is now an index rather than a
7575 prescaled offset. */
7576 bfd_put_32 (output_bfd,
7577 plt_entry[4] | reloc_index,
7578 htab->plt->contents + ent->plt.offset + 16);
7579 /* This instruction is a PC-relative branch whose target is
7580 the start of the PLT section. The address of this branch
7581 instruction is 20 bytes beyond the start of this PLT entry.
7582 The address is encoded in bits 6-29, inclusive. The value
7583 stored is right-shifted by two bits, permitting a 26-bit
7584 offset. */
7585 bfd_put_32 (output_bfd,
7586 (plt_entry[5]
7587 | (-(ent->plt.offset + 20) & 0x03fffffc)),
7588 htab->plt->contents + ent->plt.offset + 20);
7589 bfd_put_32 (output_bfd, plt_entry[6],
7590 htab->plt->contents + ent->plt.offset + 24);
7591 bfd_put_32 (output_bfd, plt_entry[7],
7592 htab->plt->contents + ent->plt.offset + 28);
7593
7594 /* Fill in the GOT entry corresponding to this PLT slot with
7595 the address immediately after the the "bctr" instruction
7596 in this PLT entry. */
7597 bfd_put_32 (output_bfd, (htab->plt->output_section->vma
7598 + htab->plt->output_offset
7599 + ent->plt.offset + 16),
7600 htab->sgotplt->contents + got_offset);
7601
7602 if (!info->shared)
7603 {
7604 /* Fill in a couple of entries in .rela.plt.unloaded. */
7605 loc = htab->srelplt2->contents
7606 + ((VXWORKS_PLTRESOLVE_RELOCS + reloc_index
7607 * VXWORKS_PLT_NON_JMP_SLOT_RELOCS)
7608 * sizeof (Elf32_External_Rela));
7609
7610 /* Provide the @ha relocation for the first instruction. */
7611 rela.r_offset = (htab->plt->output_section->vma
7612 + htab->plt->output_offset
7613 + ent->plt.offset + 2);
636ce3f5 7614 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
9d8504b1
PB		 7615 R_PPC_ADDR16_HA);
7616 rela.r_addend = got_offset;
7617 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7618 loc += sizeof (Elf32_External_Rela);
7619
7620 /* Provide the @l relocation for the second instruction. */
7621 rela.r_offset = (htab->plt->output_section->vma
7622 + htab->plt->output_offset
7623 + ent->plt.offset + 6);
636ce3f5 7624 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx,
9d8504b1
PB		 7625 R_PPC_ADDR16_LO);
7626 rela.r_addend = got_offset;
7627 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7628 loc += sizeof (Elf32_External_Rela);
7629
7630 /* Provide a relocation for the GOT entry corresponding to this
7631 PLT slot. Point it at the middle of the .plt entry. */
7632 rela.r_offset = (htab->sgotplt->output_section->vma
7633 + htab->sgotplt->output_offset
7634 + got_offset);
7325306f 7635 rela.r_info = ELF32_R_INFO (htab->elf.hplt->indx,
9d8504b1
PB		 7636 R_PPC_ADDR32);
7637 rela.r_addend = ent->plt.offset + 16;
7638 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7639 }
7640
7641 /* VxWorks uses non-standard semantics for R_PPC_JMP_SLOT.
7642 In particular, the offset for the relocation is not the
7643 address of the PLT entry for this function, as specified
7644 by the ABI. Instead, the offset is set to the address of
7645 the GOT slot for this function. See EABI 4.4.4.1. */
7646 rela.r_offset = (htab->sgotplt->output_section->vma
7647 + htab->sgotplt->output_offset
7648 + got_offset);
7649
a6aa5195
AM		 7650 }
7651 else
7652 {
9d8504b1
PB		 7653 rela.r_offset = (htab->plt->output_section->vma
7654 + htab->plt->output_offset
7655 + ent->plt.offset);
4a3dc543 7656 if (htab->plt_type == PLT_OLD)
9d8504b1
PB		 7657 {
7658 /* We don't need to fill in the .plt. The ppc dynamic
7659 linker will fill it in. */
7660 }
7661 else
7662 {
7663 bfd_vma val = (htab->glink_pltresolve + ent->plt.offset
7664 + htab->glink->output_section->vma
7665 + htab->glink->output_offset);
7666 bfd_put_32 (output_bfd, val,
7667 htab->plt->contents + ent->plt.offset);
7668 }
a6aa5195 7669 }
e1a9cb8e 7670
a6aa5195 7671 /* Fill in the entry in the .rela.plt section. */
a6aa5195
AM		 7672 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
7673 rela.r_addend = 0;
e1a9cb8e 7674
a6aa5195
AM		 7675 loc = (htab->relplt->contents
7676 + reloc_index * sizeof (Elf32_External_Rela));
7677 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
e1a9cb8e 7678
a6aa5195
AM		 7679 if (!h->def_regular)
7680 {
0eb4a168
AM		 7681 /* Mark the symbol as undefined, rather than as
7682 defined in the .plt section. Leave the value if
7683 there were any relocations where pointer equality
7684 matters (this is a clue for the dynamic linker, to
7685 make function pointer comparisons work between an
7686 application and shared library), otherwise set it
7687 to zero. */
a6aa5195 7688 sym->st_shndx = SHN_UNDEF;
0eb4a168 7689 if (!h->pointer_equality_needed)
a6aa5195 7690 sym->st_value = 0;
0eb4a168
AM		 7691 else if (!h->ref_regular_nonweak)
7692 {
625af618
AM		 7693 /* This breaks function pointer comparisons, but
7694 that is better than breaking tests for a NULL
0eb4a168 7695 function pointer. */
0eb4a168
AM		 7696 sym->st_value = 0;
7697 }
a6aa5195
AM		 7698 }
7699 doneone = TRUE;
7700 }
e1a9cb8e 7701
4a3dc543 7702 if (htab->plt_type == PLT_NEW)
a6aa5195
AM		 7703 {
7704 bfd_vma plt;
7705 unsigned char *p;
e1a9cb8e 7706
a6aa5195
AM		 7707 plt = (ent->plt.offset
7708 + htab->plt->output_section->vma
7709 + htab->plt->output_offset);
7710 p = (unsigned char *) htab->glink->contents + ent->glink_offset;
e1a9cb8e 7711
a6aa5195
AM		 7712 if (info->shared || info->pie)
7713 {
7714 bfd_vma got = 0;
7715
7716 if (ent->addend >= 32768)
7717 got = (ent->addend
7718 + ent->sec->output_section->vma
7719 + ent->sec->output_offset);
7720 else if (htab->elf.hgot != NULL)
e87d4038 7721 got = SYM_VAL (htab->elf.hgot);
a6aa5195
AM		 7722
7723 plt -= got;
7724
7725 if (plt + 0x8000 < 0x10000)
7726 {
7727 bfd_put_32 (output_bfd, LWZ_11_30 + PPC_LO (plt), p);
7728 p += 4;
7729 bfd_put_32 (output_bfd, MTCTR_11, p);
7730 p += 4;
7731 bfd_put_32 (output_bfd, BCTR, p);
7732 p += 4;
7733 bfd_put_32 (output_bfd, NOP, p);
7734 p += 4;
7735 }
7736 else
7737 {
7738 bfd_put_32 (output_bfd, ADDIS_11_30 + PPC_HA (plt), p);
7739 p += 4;
7740 bfd_put_32 (output_bfd, LWZ_11_11 + PPC_LO (plt), p);
7741 p += 4;
7742 bfd_put_32 (output_bfd, MTCTR_11, p);
7743 p += 4;
7744 bfd_put_32 (output_bfd, BCTR, p);
7745 p += 4;
7746 }
7747 }
7748 else
7749 {
7750 bfd_put_32 (output_bfd, LIS_11 + PPC_HA (plt), p);
7751 p += 4;
7752 bfd_put_32 (output_bfd, LWZ_11_11 + PPC_LO (plt), p);
7753 p += 4;
7754 bfd_put_32 (output_bfd, MTCTR_11, p);
7755 p += 4;
7756 bfd_put_32 (output_bfd, BCTR, p);
7757 p += 4;
28e99bb6
AM		 7758
7759 /* We only need one non-PIC glink stub. */
7760 break;
a6aa5195
AM		 7761 }
7762 }
7763 else
7764 break;
7765 }
e1a9cb8e 7766
25dbc73a
AM		 7767 if (h->needs_copy)
7768 {
7769 asection *s;
7770 Elf_Internal_Rela rela;
7771 bfd_byte *loc;
e1a9cb8e 7772
25dbc73a 7773 /* This symbols needs a copy reloc. Set it up. */
e1a9cb8e 7774
25dbc73a
AM		 7775#ifdef DEBUG
7776 fprintf (stderr, ", copy");
7777#endif
e1a9cb8e 7778
25dbc73a 7779 BFD_ASSERT (h->dynindx != -1);
86bbe32f 7780
4dc4a9a5 7781 if (ppc_elf_hash_entry (h)->has_sda_refs)
25dbc73a
AM		 7782 s = htab->relsbss;
7783 else
7784 s = htab->relbss;
7785 BFD_ASSERT (s != NULL);
e1a9cb8e 7786
e87d4038 7787 rela.r_offset = SYM_VAL (h);
25dbc73a
AM		 7788 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
7789 rela.r_addend = 0;
7790 loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
7791 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7792 }
e1a9cb8e 7793
25dbc73a
AM		 7794#ifdef DEBUG
7795 fprintf (stderr, "\n");
7796#endif
e1a9cb8e 7797
25dbc73a 7798 /* Mark some specially defined symbols as absolute. */
9d8504b1
PB		 7799 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
7800 || (!htab->is_vxworks
7801 && (h == htab->elf.hgot
7802 || strcmp (h->root.root.string,
7803 "_PROCEDURE_LINKAGE_TABLE_") == 0)))
25dbc73a 7804 sym->st_shndx = SHN_ABS;
e1a9cb8e 7805
25dbc73a
AM		 7806 return TRUE;
7807}
7808\f
7809static enum elf_reloc_type_class
7810ppc_elf_reloc_type_class (const Elf_Internal_Rela *rela)
e1a9cb8e 7811{
25dbc73a
AM		 7812 switch (ELF32_R_TYPE (rela->r_info))
7813 {
7814 case R_PPC_RELATIVE:
7815 return reloc_class_relative;
7816 case R_PPC_REL24:
7817 case R_PPC_ADDR24:
7818 case R_PPC_JMP_SLOT:
7819 return reloc_class_plt;
7820 case R_PPC_COPY:
7821 return reloc_class_copy;
7822 default:
7823 return reloc_class_normal;
7824 }
e1a9cb8e 7825}
25dbc73a
AM		 7826\f
7827/* Finish up the dynamic sections. */
e1a9cb8e 7828
25dbc73a
AM		 7829static bfd_boolean
7830ppc_elf_finish_dynamic_sections (bfd *output_bfd,
7831 struct bfd_link_info *info)
e1a9cb8e 7832{
25dbc73a 7833 asection *sdyn;
9d8504b1 7834 asection *splt;
25dbc73a 7835 struct ppc_elf_link_hash_table *htab;
1fe44d79 7836 bfd_vma got;
e87d4038
AM		 7837 bfd *dynobj;
7838 bfd_boolean ret = TRUE;
e1a9cb8e 7839
25dbc73a
AM		 7840#ifdef DEBUG
7841 fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
7842#endif
6b0817e5 7843
25dbc73a 7844 htab = ppc_elf_hash_table (info);
9d8504b1
PB		 7845 dynobj = elf_hash_table (info)->dynobj;
7846 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
7847 if (htab->is_vxworks)
7848 splt = bfd_get_section_by_name (dynobj, ".plt");
7849 else
7850 splt = NULL;
e1a9cb8e 7851
1fe44d79
AM		 7852 got = 0;
7853 if (htab->elf.hgot != NULL)
e87d4038 7854 got = SYM_VAL (htab->elf.hgot);
1fe44d79 7855
25dbc73a 7856 if (htab->elf.dynamic_sections_created)
e1a9cb8e 7857 {
25dbc73a 7858 Elf32_External_Dyn *dyncon, *dynconend;
e1a9cb8e 7859
25dbc73a 7860 BFD_ASSERT (htab->plt != NULL && sdyn != NULL);
86bbe32f 7861
25dbc73a
AM		 7862 dyncon = (Elf32_External_Dyn *) sdyn->contents;
7863 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
7864 for (; dyncon < dynconend; dyncon++)
7865 {
7866 Elf_Internal_Dyn dyn;
7867 asection *s;
e1a9cb8e 7868
9d8504b1 7869 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
86bbe32f 7870
25dbc73a
AM		 7871 switch (dyn.d_tag)
7872 {
7873 case DT_PLTGOT:
9d8504b1
PB		 7874 if (htab->is_vxworks)
7875 s = htab->sgotplt;
7876 else
7877 s = htab->plt;
25dbc73a
AM		 7878 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
7879 break;
86bbe32f 7880
25dbc73a
AM		 7881 case DT_PLTRELSZ:
7882 dyn.d_un.d_val = htab->relplt->size;
7883 break;
e1a9cb8e 7884
25dbc73a
AM		 7885 case DT_JMPREL:
7886 s = htab->relplt;
7887 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
7888 break;
2f89ff8d 7889
1fe44d79
AM		 7890 case DT_PPC_GOT:
7891 dyn.d_un.d_ptr = got;
d7128ce4
AM		 7892 break;
7893
9d8504b1
PB		 7894 case DT_RELASZ:
7895 if (htab->is_vxworks)
7896 {
7897 if (htab->relplt)
7898 dyn.d_un.d_ptr -= htab->relplt->size;
7899 break;
7900 }
7901 continue;
7902
25dbc73a 7903 default:
7a2b07ff
NS		 7904 if (htab->is_vxworks
7905 && elf_vxworks_finish_dynamic_entry (output_bfd, &dyn))
7906 break;
25dbc73a
AM		 7907 continue;
7908 }
4c45e5c9 7909
25dbc73a
AM		 7910 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
7911 }
7912 }
4c45e5c9 7913
3b36f7e6 7914 if (htab->got != NULL)
25dbc73a 7915 {
e79f5955
AM		 7916 if (htab->elf.hgot->root.u.def.section == htab->got
7917 || htab->elf.hgot->root.u.def.section == htab->sgotplt)
e87d4038 7918 {
e79f5955 7919 unsigned char *p = htab->elf.hgot->root.u.def.section->contents;
2f89ff8d 7920
e87d4038
AM		 7921 p += htab->elf.hgot->root.u.def.value;
7922 if (htab->plt_type == PLT_OLD)
e79f5955
AM		 7923 {
7924 /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4
7925 so that a function can easily find the address of
7926 _GLOBAL_OFFSET_TABLE_. */
7927 BFD_ASSERT (htab->elf.hgot->root.u.def.value - 4
7928 < htab->elf.hgot->root.u.def.section->size);
7929 bfd_put_32 (output_bfd, 0x4e800021, p - 4);
7930 }
3b36f7e6 7931
e87d4038 7932 if (sdyn != NULL)
e79f5955
AM		 7933 {
7934 bfd_vma val = sdyn->output_section->vma + sdyn->output_offset;
7935 BFD_ASSERT (htab->elf.hgot->root.u.def.value
7936 < htab->elf.hgot->root.u.def.section->size);
7937 bfd_put_32 (output_bfd, val, p);
7938 }
e87d4038
AM		 7939 }
7940 else
7941 {
7942 (*_bfd_error_handler) (_("%s not defined in linker created %s"),
7943 htab->elf.hgot->root.root.string,
e79f5955
AM		 7944 (htab->sgotplt != NULL
7945 ? htab->sgotplt->name : htab->got->name));
e87d4038
AM		 7946 bfd_set_error (bfd_error_bad_value);
7947 ret = FALSE;
7948 }
25dbc73a
AM		 7949
7950 elf_section_data (htab->got->output_section)->this_hdr.sh_entsize = 4;
7951 }
7952
9d8504b1
PB		 7953 /* Fill in the first entry in the VxWorks procedure linkage table. */
7954 if (splt && splt->size > 0)
7955 {
7956 /* Use the right PLT. */
7957 static const bfd_vma *plt_entry = NULL;
7958 plt_entry = info->shared ?
7959 ppc_elf_vxworks_pic_plt0_entry : ppc_elf_vxworks_plt0_entry;
7960
7961 if (!info->shared)
7962 {
e87d4038 7963 bfd_vma got_value = SYM_VAL (htab->elf.hgot);
9d8504b1 7964
e87d4038 7965 bfd_put_32 (output_bfd, plt_entry[0] | PPC_HA (got_value),
9d8504b1 7966 splt->contents + 0);
e87d4038 7967 bfd_put_32 (output_bfd, plt_entry[1] | PPC_LO (got_value),
9d8504b1
PB		 7968 splt->contents + 4);
7969 }
7970 else
7971 {
7972 bfd_put_32 (output_bfd, plt_entry[0], splt->contents + 0);
7973 bfd_put_32 (output_bfd, plt_entry[1], splt->contents + 4);
7974 }
7975 bfd_put_32 (output_bfd, plt_entry[2], splt->contents + 8);
7976 bfd_put_32 (output_bfd, plt_entry[3], splt->contents + 12);
7977 bfd_put_32 (output_bfd, plt_entry[4], splt->contents + 16);
7978 bfd_put_32 (output_bfd, plt_entry[5], splt->contents + 20);
7979 bfd_put_32 (output_bfd, plt_entry[6], splt->contents + 24);
7980 bfd_put_32 (output_bfd, plt_entry[7], splt->contents + 28);
7981
7982 if (! info->shared)
7983 {
7984 Elf_Internal_Rela rela;
7985 bfd_byte *loc;
7986
7987 loc = htab->srelplt2->contents;
7988
7989 /* Output the @ha relocation for the first instruction. */
7990 rela.r_offset = (htab->plt->output_section->vma
7991 + htab->plt->output_offset
7992 + 2);
636ce3f5 7993 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_HA);
9d8504b1
PB		 7994 rela.r_addend = 0;
7995 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
7996 loc += sizeof (Elf32_External_Rela);
7997
7998 /* Output the @l relocation for the second instruction. */
7999 rela.r_offset = (htab->plt->output_section->vma
8000 + htab->plt->output_offset
8001 + 6);
636ce3f5 8002 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_LO);
9d8504b1
PB		 8003 rela.r_addend = 0;
8004 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
8005 loc += sizeof (Elf32_External_Rela);
8006
8007 /* Fix up the remaining relocations. They may have the wrong
8008 symbol index for _G_O_T_ or _P_L_T_ depending on the order
8009 in which symbols were output. */
8010 while (loc < htab->srelplt2->contents + htab->srelplt2->size)
8011 {
8012 Elf_Internal_Rela rel;
8013
8014 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
636ce3f5 8015 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_HA);
9d8504b1
PB		 8016 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
8017 loc += sizeof (Elf32_External_Rela);
8018
8019 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
636ce3f5 8020 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_PPC_ADDR16_LO);
9d8504b1
PB		 8021 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
8022 loc += sizeof (Elf32_External_Rela);
8023
8024 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
7325306f 8025 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_PPC_ADDR32);
9d8504b1
PB		 8026 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
8027 loc += sizeof (Elf32_External_Rela);
8028 }
8029 }
8030 }
8031
d7128ce4
AM		 8032 if (htab->glink != NULL && htab->glink->contents != NULL)
8033 {
8034 unsigned char *p;
8035 unsigned char *endp;
a6aa5195 8036 bfd_vma res0;
d7128ce4 8037 unsigned int i;
a6aa5195
AM		 8038
8039 /*
8040 * PIC glink code is the following:
8041 *
8042 * # ith PLT code stub.
8043 * addis 11,30,(plt+(i-1)*4-got)@ha
8044 * lwz 11,(plt+(i-1)*4-got)@l(11)
8045 * mtctr 11
8046 * bctr
8047 *
8048 * # A table of branches, one for each plt entry.
176a0d42 8049 * # The idea is that the plt call stub loads ctr and r11 with these
a6aa5195
AM		 8050 * # addresses, so (r11 - res_0) gives the plt index * 4.
8051 * res_0: b PLTresolve
8052 * res_1: b PLTresolve
8053 * .
8054 * # Some number of entries towards the end can be nops
8055 * res_n_m3: nop
8056 * res_n_m2: nop
8057 * res_n_m1:
8058 *
8059 * PLTresolve:
8060 * addis 11,11,(1f-res_0)@ha
8061 * mflr 0
8062 * bcl 20,31,1f
8063 * 1: addi 11,11,(1b-res_0)@l
8064 * mflr 12
8065 * mtlr 0
8066 * sub 11,11,12 # r11 = index * 4
8067 * addis 12,12,(got+4-1b)@ha
8068 * lwz 0,(got+4-1b)@l(12) # got[1] address of dl_runtime_resolve
8069 * lwz 12,(got+8-1b)@l(12) # got[2] contains the map address
8070 * mtctr 0
8071 * add 0,11,11
8072 * add 11,0,11 # r11 = index * 12 = reloc offset.
8073 * bctr
8074 */
8075 static const unsigned int pic_plt_resolve[] =
8076 {
8077 ADDIS_11_11,
8078 MFLR_0,
8079 BCL_20_31,
8080 ADDI_11_11,
8081 MFLR_12,
8082 MTLR_0,
8083 SUB_11_11_12,
8084 ADDIS_12_12,
8085 LWZ_0_12,
8086 LWZ_12_12,
8087 MTCTR_0,
8088 ADD_0_11_11,
8089 ADD_11_0_11,
8090 BCTR,
8091 NOP,
8092 NOP
8093 };
8094
176a0d42
AM		 8095 /*
8096 * Non-PIC glink code is a little simpler.
8097 *
8098 * # ith PLT code stub.
8099 * lis 11,(plt+(i-1)*4)@ha
8100 * lwz 11,(plt+(i-1)*4)@l(11)
8101 * mtctr 11
8102 * bctr
8103 *
8104 * The branch table is the same, then comes
8105 *
8106 * PLTresolve:
8107 * lis 12,(got+4)@ha
8108 * addis 11,11,(-res_0)@ha
8109 * lwz 0,(got+4)@l(12) # got[1] address of dl_runtime_resolve
8110 * addi 11,11,(-res_0)@l # r11 = index * 4
8111 * mtctr 0
8112 * add 0,11,11
8113 * lwz 12,(got+8)@l(12) # got[2] contains the map address
8114 * add 11,0,11 # r11 = index * 12 = reloc offset.
8115 * bctr
8116 */
d7128ce4
AM		 8117 static const unsigned int plt_resolve[] =
8118 {
a6aa5195
AM		 8119 LIS_12,
8120 ADDIS_11_11,
8121 LWZ_0_12,
8122 ADDI_11_11,
d7128ce4 8123 MTCTR_0,
7e8aeb9a 8124 ADD_0_11_11,
a6aa5195 8125 LWZ_12_12,
7e8aeb9a 8126 ADD_11_0_11,
d7128ce4
AM		 8127 BCTR,
8128 NOP,
8129 NOP,
a6aa5195
AM		 8130 NOP,
8131 NOP,
8132 NOP,
8133 NOP,
d7128ce4
AM		 8134 NOP
8135 };
8136
a6aa5195
AM		 8137 if (ARRAY_SIZE (pic_plt_resolve) != GLINK_PLTRESOLVE / 4)
8138 abort ();
8139 if (ARRAY_SIZE (plt_resolve) != GLINK_PLTRESOLVE / 4)
7e8aeb9a
AM		 8140 abort ();
8141
a6aa5195 8142 /* Build the branch table, one for each plt entry (less one),
86b9da88 8143 and perhaps some padding. */
a6aa5195
AM		 8144 p = htab->glink->contents;
8145 p += htab->glink_pltresolve;
86b9da88
AM		 8146 endp = htab->glink->contents;
8147 endp += htab->glink->size - GLINK_PLTRESOLVE;
8148 while (p < endp - 8 * 4)
8149 {
8150 bfd_put_32 (output_bfd, B + endp - p, p);
8151 p += 4;
8152 }
8153 while (p < endp)
8154 {
8155 bfd_put_32 (output_bfd, NOP, p);
8156 p += 4;
8157 }
8158
7e8aeb9a 8159 res0 = (htab->glink_pltresolve
86b9da88
AM		 8160 + htab->glink->output_section->vma
8161 + htab->glink->output_offset);
8162
8163 /* Last comes the PLTresolve stub. */
7e8aeb9a
AM		 8164 if (info->shared || info->pie)
8165 {
a6aa5195 8166 bfd_vma bcl;
d7128ce4 8167
a6aa5195 8168 for (i = 0; i < ARRAY_SIZE (pic_plt_resolve); i++)
7e8aeb9a 8169 {
a6aa5195 8170 bfd_put_32 (output_bfd, pic_plt_resolve[i], p);
7e8aeb9a
AM		 8171 p += 4;
8172 }
a6aa5195
AM		 8173 p -= 4 * ARRAY_SIZE (pic_plt_resolve);
8174
8175 bcl = (htab->glink->size - GLINK_PLTRESOLVE + 3*4
8176 + htab->glink->output_section->vma
8177 + htab->glink->output_offset);
8178
8179 bfd_put_32 (output_bfd,
8180 ADDIS_11_11 + PPC_HA (bcl - res0), p + 0*4);
8181 bfd_put_32 (output_bfd,
8182 ADDI_11_11 + PPC_LO (bcl - res0), p + 3*4);
8183 bfd_put_32 (output_bfd,
8184 ADDIS_12_12 + PPC_HA (got + 4 - bcl), p + 7*4);
8185 if (PPC_HA (got + 4 - bcl) == PPC_HA (got + 8 - bcl))
8186 {
8187 bfd_put_32 (output_bfd,
8188 LWZ_0_12 + PPC_LO (got + 4 - bcl), p + 8*4);
8189 bfd_put_32 (output_bfd,
8190 LWZ_12_12 + PPC_LO (got + 8 - bcl), p + 9*4);
8191 }
8192 else
8193 {
8194 bfd_put_32 (output_bfd,
8195 LWZU_0_12 + PPC_LO (got + 4 - bcl), p + 8*4);
8196 bfd_put_32 (output_bfd,
8197 LWZ_12_12 + 4, p + 9*4);
8198 }
7e8aeb9a
AM		 8199 }
8200 else
d7128ce4 8201 {
a6aa5195 8202 for (i = 0; i < ARRAY_SIZE (plt_resolve); i++)
7e8aeb9a
AM		 8203 {
8204 bfd_put_32 (output_bfd, plt_resolve[i], p);
8205 p += 4;
8206 }
a6aa5195
AM		 8207 p -= 4 * ARRAY_SIZE (plt_resolve);
8208
8209 bfd_put_32 (output_bfd,
8210 LIS_12 + PPC_HA (got + 4), p + 0*4);
8211 bfd_put_32 (output_bfd,
8212 ADDIS_11_11 + PPC_HA (-res0), p + 1*4);
8213 bfd_put_32 (output_bfd,
8214 ADDI_11_11 + PPC_LO (-res0), p + 3*4);
8215 if (PPC_HA (got + 4) == PPC_HA (got + 8))
8216 {
8217 bfd_put_32 (output_bfd,
8218 LWZ_0_12 + PPC_LO (got + 4), p + 2*4);
8219 bfd_put_32 (output_bfd,
8220 LWZ_12_12 + PPC_LO (got + 8), p + 6*4);
8221 }
8222 else
8223 {
8224 bfd_put_32 (output_bfd,
8225 LWZU_0_12 + PPC_LO (got + 4), p + 2*4);
8226 bfd_put_32 (output_bfd,
8227 LWZ_12_12 + 4, p + 6*4);
8228 }
d7128ce4 8229 }
d7128ce4
AM		 8230 }
8231
e87d4038 8232 return ret;
25dbc73a 8233}
e1a9cb8e 8234\f
252b5132
RH		 8235#define TARGET_LITTLE_SYM bfd_elf32_powerpcle_vec
8236#define TARGET_LITTLE_NAME "elf32-powerpcle"
8237#define TARGET_BIG_SYM bfd_elf32_powerpc_vec
8238#define TARGET_BIG_NAME "elf32-powerpc"
8239#define ELF_ARCH bfd_arch_powerpc
8240#define ELF_MACHINE_CODE EM_PPC
d0facd1b
NC		 8241#ifdef __QNXTARGET__
8242#define ELF_MAXPAGESIZE 0x1000
8243#else
252b5132 8244#define ELF_MAXPAGESIZE 0x10000
d0facd1b 8245#endif
b1342370 8246#define ELF_MINPAGESIZE 0x1000
24718e3b 8247#define ELF_COMMONPAGESIZE 0x1000
252b5132
RH		 8248#define elf_info_to_howto ppc_elf_info_to_howto
8249
8250#ifdef EM_CYGNUS_POWERPC
8251#define ELF_MACHINE_ALT1 EM_CYGNUS_POWERPC
8252#endif
8253
8254#ifdef EM_PPC_OLD
8255#define ELF_MACHINE_ALT2 EM_PPC_OLD
8256#endif
8257
8258#define elf_backend_plt_not_loaded 1
252b5132 8259#define elf_backend_can_gc_sections 1
51b64d56 8260#define elf_backend_can_refcount 1
b491616a 8261#define elf_backend_rela_normal 1
252b5132 8262
43c40ab2 8263#define bfd_elf32_mkobject ppc_elf_mkobject
252b5132 8264#define bfd_elf32_bfd_merge_private_bfd_data ppc_elf_merge_private_bfd_data
70bccea4 8265#define bfd_elf32_bfd_relax_section ppc_elf_relax_section
252b5132 8266#define bfd_elf32_bfd_reloc_type_lookup ppc_elf_reloc_type_lookup
157090f7 8267#define bfd_elf32_bfd_reloc_name_lookup ppc_elf_reloc_name_lookup
252b5132 8268#define bfd_elf32_bfd_set_private_flags ppc_elf_set_private_flags
70bccea4 8269#define bfd_elf32_bfd_link_hash_table_create ppc_elf_link_hash_table_create
468392fb 8270#define bfd_elf32_get_synthetic_symtab ppc_elf_get_synthetic_symtab
252b5132 8271
feee612b 8272#define elf_backend_object_p ppc_elf_object_p
252b5132
RH		 8273#define elf_backend_gc_mark_hook ppc_elf_gc_mark_hook
8274#define elf_backend_gc_sweep_hook ppc_elf_gc_sweep_hook
8275#define elf_backend_section_from_shdr ppc_elf_section_from_shdr
8276#define elf_backend_relocate_section ppc_elf_relocate_section
8277#define elf_backend_create_dynamic_sections ppc_elf_create_dynamic_sections
8278#define elf_backend_check_relocs ppc_elf_check_relocs
7fce784e 8279#define elf_backend_copy_indirect_symbol ppc_elf_copy_indirect_symbol
252b5132
RH		 8280#define elf_backend_adjust_dynamic_symbol ppc_elf_adjust_dynamic_symbol
8281#define elf_backend_add_symbol_hook ppc_elf_add_symbol_hook
8282#define elf_backend_size_dynamic_sections ppc_elf_size_dynamic_sections
0eb4a168 8283#define elf_backend_hash_symbol ppc_elf_hash_symbol
252b5132
RH		 8284#define elf_backend_finish_dynamic_symbol ppc_elf_finish_dynamic_symbol
8285#define elf_backend_finish_dynamic_sections ppc_elf_finish_dynamic_sections
8286#define elf_backend_fake_sections ppc_elf_fake_sections
8287#define elf_backend_additional_program_headers ppc_elf_additional_program_headers
c5fccbec
DJ		 8288#define elf_backend_grok_prstatus ppc_elf_grok_prstatus
8289#define elf_backend_grok_psinfo ppc_elf_grok_psinfo
183e98be 8290#define elf_backend_write_core_note ppc_elf_write_core_note
29c2fb7c 8291#define elf_backend_reloc_type_class ppc_elf_reloc_type_class
70bccea4
AM		 8292#define elf_backend_begin_write_processing ppc_elf_begin_write_processing
8293#define elf_backend_final_write_processing ppc_elf_final_write_processing
8294#define elf_backend_write_section ppc_elf_write_section
551b43fd 8295#define elf_backend_get_sec_type_attr ppc_elf_get_sec_type_attr
4c45e5c9 8296#define elf_backend_plt_sym_val ppc_elf_plt_sym_val
8a696751 8297#define elf_backend_action_discarded ppc_elf_action_discarded
74541ad4 8298#define elf_backend_init_index_section _bfd_elf_init_1_index_section
252b5132
RH		 8299
8300#include "elf32-target.h"
9d8504b1
PB		 8301
8302/* VxWorks Target */
8303
8304#undef TARGET_LITTLE_SYM
8305#undef TARGET_LITTLE_NAME
8306
8307#undef TARGET_BIG_SYM
8308#define TARGET_BIG_SYM bfd_elf32_powerpc_vxworks_vec
8309#undef TARGET_BIG_NAME
8310#define TARGET_BIG_NAME "elf32-powerpc-vxworks"
8311
d5e3d971
PB		 8312/* VxWorks uses the elf default section flags for .plt. */
8313static const struct bfd_elf_special_section *
8314ppc_elf_vxworks_get_sec_type_attr (bfd *abfd ATTRIBUTE_UNUSED, asection *sec)
9d8504b1 8315{
d5e3d971
PB		 8316 if (sec->name == NULL)
8317 return NULL;
8318
8319 if (strcmp (sec->name, ".plt") == 0)
8320 return _bfd_elf_get_sec_type_attr (abfd, sec);
8321
8322 return ppc_elf_get_sec_type_attr (abfd, sec);
8323}
9d8504b1
PB		 8324
8325/* Like ppc_elf_link_hash_table_create, but overrides
8326 appropriately for VxWorks. */
8327static struct bfd_link_hash_table *
8328ppc_elf_vxworks_link_hash_table_create (bfd *abfd)
8329{
8330 struct bfd_link_hash_table *ret;
8331
8332 ret = ppc_elf_link_hash_table_create (abfd);
8333 if (ret)
8334 {
8335 struct ppc_elf_link_hash_table *htab
8336 = (struct ppc_elf_link_hash_table *)ret;
8337 htab->is_vxworks = 1;
4a3dc543 8338 htab->plt_type = PLT_VXWORKS;
9d8504b1
PB		 8339 htab->plt_entry_size = VXWORKS_PLT_ENTRY_SIZE;
8340 htab->plt_slot_size = VXWORKS_PLT_ENTRY_SIZE;
8341 htab->plt_initial_entry_size = VXWORKS_PLT_INITIAL_ENTRY_SIZE;
8342 }
8343 return ret;
8344}
8345
8346/* Tweak magic VxWorks symbols as they are loaded. */
8347static bfd_boolean
8348ppc_elf_vxworks_add_symbol_hook (bfd *abfd,
8349 struct bfd_link_info *info,
8350 Elf_Internal_Sym *sym,
8351 const char **namep ATTRIBUTE_UNUSED,
8352 flagword *flagsp ATTRIBUTE_UNUSED,
8353 asection **secp,
8354 bfd_vma *valp)
8355{
8356 if (!elf_vxworks_add_symbol_hook(abfd, info, sym,namep, flagsp, secp,
8357 valp))
8358 return FALSE;
8359
8360 return ppc_elf_add_symbol_hook(abfd, info, sym,namep, flagsp, secp, valp);
8361}
8362
9d8504b1
PB		 8363static void
8364ppc_elf_vxworks_final_write_processing (bfd *abfd, bfd_boolean linker)
8365{
8366 ppc_elf_final_write_processing(abfd, linker);
8367 elf_vxworks_final_write_processing(abfd, linker);
8368}
8369
8370/* On VxWorks, we emit relocations against _PROCEDURE_LINKAGE_TABLE_, so
8371 define it. */
8372#undef elf_backend_want_plt_sym
8373#define elf_backend_want_plt_sym 1
8374#undef elf_backend_want_got_plt
8375#define elf_backend_want_got_plt 1
8376#undef elf_backend_got_symbol_offset
8377#define elf_backend_got_symbol_offset 0
8378#undef elf_backend_plt_not_loaded
8379#define elf_backend_plt_not_loaded 0
8380#undef elf_backend_plt_readonly
8381#define elf_backend_plt_readonly 1
8382#undef elf_backend_got_header_size
8383#define elf_backend_got_header_size 12
8384
468392fb
AM		 8385#undef bfd_elf32_get_synthetic_symtab
8386
9d8504b1
PB		 8387#undef bfd_elf32_bfd_link_hash_table_create
8388#define bfd_elf32_bfd_link_hash_table_create \
8389 ppc_elf_vxworks_link_hash_table_create
9d8504b1
PB		 8390#undef elf_backend_add_symbol_hook
8391#define elf_backend_add_symbol_hook \
8392 ppc_elf_vxworks_add_symbol_hook
8393#undef elf_backend_link_output_symbol_hook
8394#define elf_backend_link_output_symbol_hook \
9c72ff84 8395 elf_vxworks_link_output_symbol_hook
9d8504b1
PB		 8396#undef elf_backend_final_write_processing
8397#define elf_backend_final_write_processing \
8398 ppc_elf_vxworks_final_write_processing
d5e3d971
PB		 8399#undef elf_backend_get_sec_type_attr
8400#define elf_backend_get_sec_type_attr \
8401 ppc_elf_vxworks_get_sec_type_attr
9d8504b1
PB		 8402#undef elf_backend_emit_relocs
8403#define elf_backend_emit_relocs \
8404 elf_vxworks_emit_relocs
8405
8406#undef elf32_bed
8407#define elf32_bed ppc_elf_vxworks_bed
8408
8409#include "elf32-target.h"
GDB Binutils - Deliverables
This page took 1.092629 seconds and 4 git commands to generate.