* gdb.base/attach.exp (do_attach_tests): Don't forget to kill second
[deliverable/binutils-gdb.git] / bfd / elf32-ppc.c
CommitLineData
252b5132 1/* PowerPC-specific support for 32-bit ELF
051d5130
AM
2 Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
3 2004 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
10 the Free Software Foundation; either version 2 of the License, or
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
AM
19 along with this program; if not, write to the
20 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
252b5132
RH
22
23/* This file is based on a preliminary PowerPC ELF ABI. The
24 information may not match the final PowerPC ELF ABI. It includes
25 suggestions from the in-progress Embedded PowerPC ABI, and that
26 information may also not match. */
27
28#include "bfd.h"
29#include "sysdep.h"
30#include "bfdlink.h"
31#include "libbfd.h"
32#include "elf-bfd.h"
33#include "elf/ppc.h"
7619e7c7 34#include "elf32-ppc.h"
252b5132 35
f0fe0e16 36/* RELA relocations are used here. */
252b5132 37
252b5132 38static bfd_reloc_status_type ppc_elf_addr16_ha_reloc
55fd94b0 39 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
7619e7c7 40static bfd_reloc_status_type ppc_elf_unhandled_reloc
55fd94b0 41 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
252b5132 42
70bccea4
AM
43/* Branch prediction bit for branch taken relocs. */
44#define BRANCH_PREDICT_BIT 0x200000
45/* Mask to set RA in memory instructions. */
46#define RA_REGISTER_MASK 0x001f0000
47/* Value to shift register by to insert RA. */
48#define RA_REGISTER_SHIFT 16
252b5132
RH
49
50/* The name of the dynamic interpreter. This is put in the .interp
51 section. */
252b5132
RH
52#define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
53
54/* The size in bytes of an entry in the procedure linkage table. */
55#define PLT_ENTRY_SIZE 12
56/* The initial size of the plt reserved for the dynamic linker. */
57#define PLT_INITIAL_ENTRY_SIZE 72
58/* The size of the gap between entries in the PLT. */
59#define PLT_SLOT_SIZE 8
60/* The number of single-slot PLT entries (the rest use two slots). */
61#define PLT_NUM_SINGLE_ENTRIES 8192
62
7619e7c7
AM
63/* Some nop instructions. */
64#define NOP 0x60000000
65#define CROR_151515 0x4def7b82
66#define CROR_313131 0x4ffffb82
67
68/* Offset of tp and dtp pointers from start of TLS block. */
69#define TP_OFFSET 0x7000
70#define DTP_OFFSET 0x8000
71
252b5132 72\f
58111eb7
AM
73/* Enumeration to specify the special section. */
74enum elf_linker_section_enum
75{
76 LINKER_SECTION_SDATA,
77 LINKER_SECTION_SDATA2
78};
79
80/* Sections created by the linker. */
81
82typedef struct elf_linker_section
83{
84 /* pointer to the section */
85 asection *section;
86 /* pointer to the relocations needed for this section */
87 asection *rel_section;
88 /* pointer to the created symbol hash value */
89 struct elf_link_hash_entry *sym_hash;
90 /* offset of symbol from beginning of section */
91 bfd_vma sym_offset;
92} elf_linker_section_t;
93
94/* Linked list of allocated pointer entries. This hangs off of the
95 symbol lists, and provides allows us to return different pointers,
96 based on different addend's. */
97
98typedef struct elf_linker_section_pointers
99{
100 /* next allocated pointer for this symbol */
101 struct elf_linker_section_pointers *next;
102 /* offset of pointer from beginning of section */
103 bfd_vma offset;
104 /* addend used */
105 bfd_vma addend;
106 /* which linker section this is */
107 elf_linker_section_t *lsect;
108 /* whether address was written yet */
109 bfd_boolean written_address_p;
110} elf_linker_section_pointers_t;
111
43c40ab2
AM
112struct ppc_elf_obj_tdata
113{
114 struct elf_obj_tdata elf;
115
116 /* A mapping from local symbols to offsets into the various linker
117 sections added. This is index by the symbol index. */
118 elf_linker_section_pointers_t **linker_section_pointers;
119};
120
121#define ppc_elf_tdata(bfd) \
122 ((struct ppc_elf_obj_tdata *) (bfd)->tdata.any)
123
58111eb7 124#define elf_local_ptr_offsets(bfd) \
43c40ab2
AM
125 (ppc_elf_tdata (bfd)->linker_section_pointers)
126
127/* Override the generic function because we store some extras. */
128
129static bfd_boolean
130ppc_elf_mkobject (bfd *abfd)
131{
132 bfd_size_type amt = sizeof (struct ppc_elf_obj_tdata);
133 abfd->tdata.any = bfd_zalloc (abfd, amt);
134 if (abfd->tdata.any == NULL)
135 return FALSE;
136 return TRUE;
137}
58111eb7 138
7fce784e
AS
139/* The PPC linker needs to keep track of the number of relocs that it
140 decides to copy as dynamic relocs in check_relocs for each symbol.
141 This is so that it can later discard them if they are found to be
142 unnecessary. We store the information in a field extending the
143 regular ELF linker hash table. */
144
145struct ppc_elf_dyn_relocs
146{
147 struct ppc_elf_dyn_relocs *next;
148
149 /* The input section of the reloc. */
150 asection *sec;
151
152 /* Total number of relocs copied for the input section. */
153 bfd_size_type count;
ee05f2fe
AM
154
155 /* Number of pc-relative relocs copied for the input section. */
156 bfd_size_type pc_count;
7fce784e
AS
157};
158
159/* PPC ELF linker hash entry. */
160
161struct ppc_elf_link_hash_entry
162{
7619e7c7 163 struct elf_link_hash_entry elf;
7fce784e 164
58111eb7
AM
165 /* If this symbol is used in the linker created sections, the processor
166 specific backend uses this field to map the field into the offset
167 from the beginning of the section. */
168 elf_linker_section_pointers_t *linker_section_pointer;
169
7fce784e
AS
170 /* Track dynamic relocs copied for this symbol. */
171 struct ppc_elf_dyn_relocs *dyn_relocs;
7619e7c7
AM
172
173 /* Contexts in which symbol is used in the GOT (or TOC).
fc0bffd6 174 TLS_GD .. TLS_TLS bits are or'd into the mask as the
7619e7c7
AM
175 corresponding relocs are encountered during check_relocs.
176 tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
177 indicate the corresponding GOT entry type is not needed. */
178#define TLS_GD 1 /* GD reloc. */
179#define TLS_LD 2 /* LD reloc. */
180#define TLS_TPREL 4 /* TPREL reloc, => IE. */
181#define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
182#define TLS_TLS 16 /* Any TLS reloc. */
183#define TLS_TPRELGD 32 /* TPREL reloc resulting from GD->IE. */
184 char tls_mask;
7fce784e
AS
185};
186
187#define ppc_elf_hash_entry(ent) ((struct ppc_elf_link_hash_entry *) (ent))
188
189/* PPC ELF linker hash table. */
190
191struct ppc_elf_link_hash_table
192{
7619e7c7
AM
193 struct elf_link_hash_table elf;
194
195 /* Short-cuts to get to dynamic linker sections. */
196 asection *got;
197 asection *relgot;
198 asection *plt;
199 asection *relplt;
200 asection *dynbss;
201 asection *relbss;
202 asection *dynsbss;
203 asection *relsbss;
204 elf_linker_section_t *sdata;
205 elf_linker_section_t *sdata2;
58111eb7 206 asection *sbss;
7619e7c7 207
7619e7c7
AM
208 /* Shortcut to .__tls_get_addr. */
209 struct elf_link_hash_entry *tls_get_addr;
210
211 /* TLS local dynamic got entry handling. */
212 union {
213 bfd_signed_vma refcount;
214 bfd_vma offset;
215 } tlsld_got;
7fce784e
AS
216
217 /* Small local sym to section mapping cache. */
218 struct sym_sec_cache sym_sec;
219};
220
221/* Get the PPC ELF linker hash table from a link_info structure. */
222
223#define ppc_elf_hash_table(p) \
224 ((struct ppc_elf_link_hash_table *) (p)->hash)
225
226/* Create an entry in a PPC ELF linker hash table. */
227
228static struct bfd_hash_entry *
55fd94b0
AM
229ppc_elf_link_hash_newfunc (struct bfd_hash_entry *entry,
230 struct bfd_hash_table *table,
231 const char *string)
7fce784e
AS
232{
233 /* Allocate the structure if it has not already been allocated by a
234 subclass. */
235 if (entry == NULL)
236 {
237 entry = bfd_hash_allocate (table,
238 sizeof (struct ppc_elf_link_hash_entry));
239 if (entry == NULL)
240 return entry;
241 }
242
243 /* Call the allocation method of the superclass. */
244 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
245 if (entry != NULL)
7619e7c7 246 {
58111eb7 247 ppc_elf_hash_entry (entry)->linker_section_pointer = NULL;
7619e7c7
AM
248 ppc_elf_hash_entry (entry)->dyn_relocs = NULL;
249 ppc_elf_hash_entry (entry)->tls_mask = 0;
250 }
7fce784e
AS
251
252 return entry;
253}
254
255/* Create a PPC ELF linker hash table. */
256
257static struct bfd_link_hash_table *
55fd94b0 258ppc_elf_link_hash_table_create (bfd *abfd)
7fce784e
AS
259{
260 struct ppc_elf_link_hash_table *ret;
261
58111eb7 262 ret = bfd_zmalloc (sizeof (struct ppc_elf_link_hash_table));
7fce784e
AS
263 if (ret == NULL)
264 return NULL;
265
7619e7c7 266 if (! _bfd_elf_link_hash_table_init (&ret->elf, abfd,
7fce784e
AS
267 ppc_elf_link_hash_newfunc))
268 {
269 free (ret);
270 return NULL;
271 }
272
7619e7c7 273 return &ret->elf.root;
7fce784e
AS
274}
275
fc0bffd6
AM
276/* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
277 copying dynamic variables from a shared lib into an app's dynbss
278 section, and instead use a dynamic relocation to point into the
279 shared lib. */
280#define ELIMINATE_COPY_RELOCS 1
281
7fce784e
AS
282/* Copy the extra info we tack onto an elf_link_hash_entry. */
283
284static void
9c5bfbb7 285ppc_elf_copy_indirect_symbol (const struct elf_backend_data *bed,
55fd94b0
AM
286 struct elf_link_hash_entry *dir,
287 struct elf_link_hash_entry *ind)
7fce784e
AS
288{
289 struct ppc_elf_link_hash_entry *edir, *eind;
290
291 edir = (struct ppc_elf_link_hash_entry *) dir;
292 eind = (struct ppc_elf_link_hash_entry *) ind;
293
294 if (eind->dyn_relocs != NULL)
295 {
296 if (edir->dyn_relocs != NULL)
297 {
298 struct ppc_elf_dyn_relocs **pp;
299 struct ppc_elf_dyn_relocs *p;
300
301 if (ind->root.type == bfd_link_hash_indirect)
302 abort ();
303
304 /* Add reloc counts against the weak sym to the strong sym
305 list. Merge any entries against the same section. */
306 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
307 {
308 struct ppc_elf_dyn_relocs *q;
309
310 for (q = edir->dyn_relocs; q != NULL; q = q->next)
311 if (q->sec == p->sec)
312 {
ee05f2fe 313 q->pc_count += p->pc_count;
7fce784e
AS
314 q->count += p->count;
315 *pp = p->next;
316 break;
317 }
318 if (q == NULL)
319 pp = &p->next;
320 }
321 *pp = edir->dyn_relocs;
322 }
323
324 edir->dyn_relocs = eind->dyn_relocs;
325 eind->dyn_relocs = NULL;
326 }
327
7619e7c7
AM
328 edir->tls_mask |= eind->tls_mask;
329
81848ca0
AM
330 if (ELIMINATE_COPY_RELOCS
331 && ind->root.type != bfd_link_hash_indirect
332 && (dir->elf_link_hash_flags & ELF_LINK_HASH_DYNAMIC_ADJUSTED) != 0)
fc0bffd6
AM
333 /* If called to transfer flags for a weakdef during processing
334 of elf_adjust_dynamic_symbol, don't copy ELF_LINK_NON_GOT_REF.
335 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
336 dir->elf_link_hash_flags |=
337 (ind->elf_link_hash_flags & (ELF_LINK_HASH_REF_DYNAMIC
338 | ELF_LINK_HASH_REF_REGULAR
3addb0a9
DJ
339 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
340 | ELF_LINK_HASH_NEEDS_PLT));
fc0bffd6
AM
341 else
342 _bfd_elf_link_hash_copy_indirect (bed, dir, ind);
7fce784e
AS
343}
344\f
e47cd125 345static reloc_howto_type *ppc_elf_howto_table[R_PPC_max];
252b5132 346
8da6118f 347static reloc_howto_type ppc_elf_howto_raw[] = {
252b5132
RH
348 /* This reloc does nothing. */
349 HOWTO (R_PPC_NONE, /* type */
350 0, /* rightshift */
351 2, /* size (0 = byte, 1 = short, 2 = long) */
352 32, /* bitsize */
b34976b6 353 FALSE, /* pc_relative */
252b5132
RH
354 0, /* bitpos */
355 complain_overflow_bitfield, /* complain_on_overflow */
356 bfd_elf_generic_reloc, /* special_function */
357 "R_PPC_NONE", /* name */
b34976b6 358 FALSE, /* partial_inplace */
252b5132
RH
359 0, /* src_mask */
360 0, /* dst_mask */
b34976b6 361 FALSE), /* pcrel_offset */
252b5132
RH
362
363 /* A standard 32 bit relocation. */
364 HOWTO (R_PPC_ADDR32, /* type */
365 0, /* rightshift */
366 2, /* size (0 = byte, 1 = short, 2 = long) */
367 32, /* bitsize */
b34976b6 368 FALSE, /* pc_relative */
252b5132
RH
369 0, /* bitpos */
370 complain_overflow_bitfield, /* complain_on_overflow */
371 bfd_elf_generic_reloc, /* special_function */
372 "R_PPC_ADDR32", /* name */
b34976b6 373 FALSE, /* partial_inplace */
252b5132
RH
374 0, /* src_mask */
375 0xffffffff, /* dst_mask */
b34976b6 376 FALSE), /* pcrel_offset */
252b5132
RH
377
378 /* An absolute 26 bit branch; the lower two bits must be zero.
379 FIXME: we don't check that, we just clear them. */
380 HOWTO (R_PPC_ADDR24, /* type */
381 0, /* rightshift */
382 2, /* size (0 = byte, 1 = short, 2 = long) */
383 26, /* bitsize */
b34976b6 384 FALSE, /* pc_relative */
252b5132
RH
385 0, /* bitpos */
386 complain_overflow_bitfield, /* complain_on_overflow */
387 bfd_elf_generic_reloc, /* special_function */
388 "R_PPC_ADDR24", /* name */
b34976b6 389 FALSE, /* partial_inplace */
252b5132
RH
390 0, /* src_mask */
391 0x3fffffc, /* dst_mask */
b34976b6 392 FALSE), /* pcrel_offset */
252b5132
RH
393
394 /* A standard 16 bit relocation. */
395 HOWTO (R_PPC_ADDR16, /* type */
396 0, /* rightshift */
397 1, /* size (0 = byte, 1 = short, 2 = long) */
398 16, /* bitsize */
b34976b6 399 FALSE, /* pc_relative */
252b5132
RH
400 0, /* bitpos */
401 complain_overflow_bitfield, /* complain_on_overflow */
402 bfd_elf_generic_reloc, /* special_function */
403 "R_PPC_ADDR16", /* name */
b34976b6 404 FALSE, /* partial_inplace */
252b5132
RH
405 0, /* src_mask */
406 0xffff, /* dst_mask */
b34976b6 407 FALSE), /* pcrel_offset */
252b5132
RH
408
409 /* A 16 bit relocation without overflow. */
410 HOWTO (R_PPC_ADDR16_LO, /* type */
411 0, /* rightshift */
412 1, /* size (0 = byte, 1 = short, 2 = long) */
413 16, /* bitsize */
b34976b6 414 FALSE, /* pc_relative */
252b5132
RH
415 0, /* bitpos */
416 complain_overflow_dont,/* complain_on_overflow */
417 bfd_elf_generic_reloc, /* special_function */
418 "R_PPC_ADDR16_LO", /* name */
b34976b6 419 FALSE, /* partial_inplace */
252b5132
RH
420 0, /* src_mask */
421 0xffff, /* dst_mask */
b34976b6 422 FALSE), /* pcrel_offset */
252b5132
RH
423
424 /* The high order 16 bits of an address. */
425 HOWTO (R_PPC_ADDR16_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_dont, /* complain_on_overflow */
432 bfd_elf_generic_reloc, /* special_function */
433 "R_PPC_ADDR16_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 /* The high order 16 bits of an address, plus 1 if the contents of
8da6118f 440 the low 16 bits, treated as a signed number, is negative. */
252b5132
RH
441 HOWTO (R_PPC_ADDR16_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_dont, /* complain_on_overflow */
448 ppc_elf_addr16_ha_reloc, /* special_function */
449 "R_PPC_ADDR16_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 /* An absolute 16 bit branch; the lower two bits must be zero.
456 FIXME: we don't check that, we just clear them. */
457 HOWTO (R_PPC_ADDR14, /* type */
458 0, /* rightshift */
459 2, /* size (0 = byte, 1 = short, 2 = long) */
460 16, /* bitsize */
b34976b6 461 FALSE, /* pc_relative */
252b5132
RH
462 0, /* bitpos */
463 complain_overflow_bitfield, /* complain_on_overflow */
464 bfd_elf_generic_reloc, /* special_function */
465 "R_PPC_ADDR14", /* name */
b34976b6 466 FALSE, /* partial_inplace */
252b5132
RH
467 0, /* src_mask */
468 0xfffc, /* dst_mask */
b34976b6 469 FALSE), /* pcrel_offset */
252b5132
RH
470
471 /* An absolute 16 bit branch, for which bit 10 should be set to
472 indicate that the branch is expected to be taken. The lower two
8da6118f 473 bits must be zero. */
252b5132
RH
474 HOWTO (R_PPC_ADDR14_BRTAKEN, /* type */
475 0, /* rightshift */
476 2, /* size (0 = byte, 1 = short, 2 = long) */
477 16, /* bitsize */
b34976b6 478 FALSE, /* pc_relative */
252b5132
RH
479 0, /* bitpos */
480 complain_overflow_bitfield, /* complain_on_overflow */
481 bfd_elf_generic_reloc, /* special_function */
482 "R_PPC_ADDR14_BRTAKEN",/* name */
b34976b6 483 FALSE, /* partial_inplace */
252b5132
RH
484 0, /* src_mask */
485 0xfffc, /* dst_mask */
b34976b6 486 FALSE), /* pcrel_offset */
252b5132
RH
487
488 /* An absolute 16 bit branch, for which bit 10 should be set to
489 indicate that the branch is not expected to be taken. The lower
490 two bits must be zero. */
491 HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */
492 0, /* rightshift */
493 2, /* size (0 = byte, 1 = short, 2 = long) */
494 16, /* bitsize */
b34976b6 495 FALSE, /* pc_relative */
252b5132
RH
496 0, /* bitpos */
497 complain_overflow_bitfield, /* complain_on_overflow */
498 bfd_elf_generic_reloc, /* special_function */
499 "R_PPC_ADDR14_BRNTAKEN",/* name */
b34976b6 500 FALSE, /* partial_inplace */
252b5132
RH
501 0, /* src_mask */
502 0xfffc, /* dst_mask */
b34976b6 503 FALSE), /* pcrel_offset */
252b5132 504
8da6118f 505 /* A relative 26 bit branch; the lower two bits must be zero. */
252b5132
RH
506 HOWTO (R_PPC_REL24, /* type */
507 0, /* rightshift */
508 2, /* size (0 = byte, 1 = short, 2 = long) */
509 26, /* bitsize */
b34976b6 510 TRUE, /* pc_relative */
252b5132
RH
511 0, /* bitpos */
512 complain_overflow_signed, /* complain_on_overflow */
513 bfd_elf_generic_reloc, /* special_function */
514 "R_PPC_REL24", /* name */
b34976b6 515 FALSE, /* partial_inplace */
252b5132
RH
516 0, /* src_mask */
517 0x3fffffc, /* dst_mask */
b34976b6 518 TRUE), /* pcrel_offset */
252b5132 519
8da6118f 520 /* A relative 16 bit branch; the lower two bits must be zero. */
252b5132
RH
521 HOWTO (R_PPC_REL14, /* type */
522 0, /* rightshift */
523 2, /* size (0 = byte, 1 = short, 2 = long) */
524 16, /* bitsize */
b34976b6 525 TRUE, /* pc_relative */
252b5132
RH
526 0, /* bitpos */
527 complain_overflow_signed, /* complain_on_overflow */
528 bfd_elf_generic_reloc, /* special_function */
529 "R_PPC_REL14", /* name */
b34976b6 530 FALSE, /* partial_inplace */
252b5132
RH
531 0, /* src_mask */
532 0xfffc, /* dst_mask */
b34976b6 533 TRUE), /* pcrel_offset */
252b5132 534
8da6118f 535 /* A relative 16 bit branch. Bit 10 should be set to indicate that
252b5132
RH
536 the branch is expected to be taken. The lower two bits must be
537 zero. */
538 HOWTO (R_PPC_REL14_BRTAKEN, /* type */
539 0, /* rightshift */
540 2, /* size (0 = byte, 1 = short, 2 = long) */
541 16, /* bitsize */
b34976b6 542 TRUE, /* pc_relative */
252b5132
RH
543 0, /* bitpos */
544 complain_overflow_signed, /* complain_on_overflow */
545 bfd_elf_generic_reloc, /* special_function */
546 "R_PPC_REL14_BRTAKEN", /* name */
b34976b6 547 FALSE, /* partial_inplace */
252b5132
RH
548 0, /* src_mask */
549 0xfffc, /* dst_mask */
b34976b6 550 TRUE), /* pcrel_offset */
252b5132 551
8da6118f 552 /* A relative 16 bit branch. Bit 10 should be set to indicate that
252b5132
RH
553 the branch is not expected to be taken. The lower two bits must
554 be zero. */
555 HOWTO (R_PPC_REL14_BRNTAKEN, /* type */
556 0, /* rightshift */
557 2, /* size (0 = byte, 1 = short, 2 = long) */
558 16, /* bitsize */
b34976b6 559 TRUE, /* pc_relative */
252b5132
RH
560 0, /* bitpos */
561 complain_overflow_signed, /* complain_on_overflow */
562 bfd_elf_generic_reloc, /* special_function */
563 "R_PPC_REL14_BRNTAKEN",/* name */
b34976b6 564 FALSE, /* partial_inplace */
252b5132
RH
565 0, /* src_mask */
566 0xfffc, /* dst_mask */
b34976b6 567 TRUE), /* pcrel_offset */
252b5132
RH
568
569 /* Like R_PPC_ADDR16, but referring to the GOT table entry for the
570 symbol. */
571 HOWTO (R_PPC_GOT16, /* 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_signed, /* complain_on_overflow */
578 bfd_elf_generic_reloc, /* special_function */
579 "R_PPC_GOT16", /* 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 /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for
586 the symbol. */
587 HOWTO (R_PPC_GOT16_LO, /* type */
588 0, /* rightshift */
589 1, /* size (0 = byte, 1 = short, 2 = long) */
590 16, /* bitsize */
b34976b6 591 FALSE, /* pc_relative */
252b5132
RH
592 0, /* bitpos */
593 complain_overflow_dont, /* complain_on_overflow */
594 bfd_elf_generic_reloc, /* special_function */
595 "R_PPC_GOT16_LO", /* name */
b34976b6 596 FALSE, /* partial_inplace */
252b5132
RH
597 0, /* src_mask */
598 0xffff, /* dst_mask */
b34976b6 599 FALSE), /* pcrel_offset */
252b5132
RH
600
601 /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for
602 the symbol. */
603 HOWTO (R_PPC_GOT16_HI, /* type */
604 16, /* rightshift */
605 1, /* size (0 = byte, 1 = short, 2 = long) */
606 16, /* bitsize */
b34976b6 607 FALSE, /* pc_relative */
252b5132
RH
608 0, /* bitpos */
609 complain_overflow_bitfield, /* complain_on_overflow */
610 bfd_elf_generic_reloc, /* special_function */
611 "R_PPC_GOT16_HI", /* name */
b34976b6 612 FALSE, /* partial_inplace */
252b5132
RH
613 0, /* src_mask */
614 0xffff, /* dst_mask */
b34976b6 615 FALSE), /* pcrel_offset */
252b5132
RH
616
617 /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for
618 the symbol. */
619 HOWTO (R_PPC_GOT16_HA, /* type */
620 16, /* rightshift */
621 1, /* size (0 = byte, 1 = short, 2 = long) */
622 16, /* bitsize */
b34976b6 623 FALSE, /* pc_relative */
252b5132
RH
624 0, /* bitpos */
625 complain_overflow_bitfield, /* complain_on_overflow */
626 ppc_elf_addr16_ha_reloc, /* special_function */
627 "R_PPC_GOT16_HA", /* name */
b34976b6 628 FALSE, /* partial_inplace */
252b5132
RH
629 0, /* src_mask */
630 0xffff, /* dst_mask */
b34976b6 631 FALSE), /* pcrel_offset */
252b5132
RH
632
633 /* Like R_PPC_REL24, but referring to the procedure linkage table
634 entry for the symbol. */
635 HOWTO (R_PPC_PLTREL24, /* type */
636 0, /* rightshift */
637 2, /* size (0 = byte, 1 = short, 2 = long) */
638 26, /* bitsize */
b34976b6 639 TRUE, /* pc_relative */
252b5132
RH
640 0, /* bitpos */
641 complain_overflow_signed, /* complain_on_overflow */
642 bfd_elf_generic_reloc, /* special_function */
643 "R_PPC_PLTREL24", /* name */
b34976b6 644 FALSE, /* partial_inplace */
252b5132
RH
645 0, /* src_mask */
646 0x3fffffc, /* dst_mask */
b34976b6 647 TRUE), /* pcrel_offset */
252b5132
RH
648
649 /* This is used only by the dynamic linker. The symbol should exist
650 both in the object being run and in some shared library. The
651 dynamic linker copies the data addressed by the symbol from the
652 shared library into the object, because the object being
653 run has to have the data at some particular address. */
654 HOWTO (R_PPC_COPY, /* type */
655 0, /* rightshift */
656 2, /* size (0 = byte, 1 = short, 2 = long) */
657 32, /* bitsize */
b34976b6 658 FALSE, /* pc_relative */
252b5132
RH
659 0, /* bitpos */
660 complain_overflow_bitfield, /* complain_on_overflow */
661 bfd_elf_generic_reloc, /* special_function */
662 "R_PPC_COPY", /* name */
b34976b6 663 FALSE, /* partial_inplace */
252b5132
RH
664 0, /* src_mask */
665 0, /* dst_mask */
b34976b6 666 FALSE), /* pcrel_offset */
252b5132
RH
667
668 /* Like R_PPC_ADDR32, but used when setting global offset table
669 entries. */
670 HOWTO (R_PPC_GLOB_DAT, /* type */
671 0, /* rightshift */
672 2, /* size (0 = byte, 1 = short, 2 = long) */
673 32, /* bitsize */
b34976b6 674 FALSE, /* pc_relative */
252b5132
RH
675 0, /* bitpos */
676 complain_overflow_bitfield, /* complain_on_overflow */
677 bfd_elf_generic_reloc, /* special_function */
678 "R_PPC_GLOB_DAT", /* name */
b34976b6 679 FALSE, /* partial_inplace */
252b5132
RH
680 0, /* src_mask */
681 0xffffffff, /* dst_mask */
b34976b6 682 FALSE), /* pcrel_offset */
252b5132
RH
683
684 /* Marks a procedure linkage table entry for a symbol. */
685 HOWTO (R_PPC_JMP_SLOT, /* type */
686 0, /* rightshift */
687 2, /* size (0 = byte, 1 = short, 2 = long) */
688 32, /* bitsize */
b34976b6 689 FALSE, /* pc_relative */
252b5132
RH
690 0, /* bitpos */
691 complain_overflow_bitfield, /* complain_on_overflow */
692 bfd_elf_generic_reloc, /* special_function */
693 "R_PPC_JMP_SLOT", /* name */
b34976b6 694 FALSE, /* partial_inplace */
252b5132
RH
695 0, /* src_mask */
696 0, /* dst_mask */
b34976b6 697 FALSE), /* pcrel_offset */
252b5132
RH
698
699 /* Used only by the dynamic linker. When the object is run, this
700 longword is set to the load address of the object, plus the
701 addend. */
702 HOWTO (R_PPC_RELATIVE, /* type */
703 0, /* rightshift */
704 2, /* size (0 = byte, 1 = short, 2 = long) */
705 32, /* bitsize */
b34976b6 706 FALSE, /* pc_relative */
252b5132
RH
707 0, /* bitpos */
708 complain_overflow_bitfield, /* complain_on_overflow */
709 bfd_elf_generic_reloc, /* special_function */
710 "R_PPC_RELATIVE", /* name */
b34976b6 711 FALSE, /* partial_inplace */
252b5132
RH
712 0, /* src_mask */
713 0xffffffff, /* dst_mask */
b34976b6 714 FALSE), /* pcrel_offset */
252b5132
RH
715
716 /* Like R_PPC_REL24, but uses the value of the symbol within the
717 object rather than the final value. Normally used for
718 _GLOBAL_OFFSET_TABLE_. */
719 HOWTO (R_PPC_LOCAL24PC, /* type */
720 0, /* rightshift */
721 2, /* size (0 = byte, 1 = short, 2 = long) */
722 26, /* bitsize */
b34976b6 723 TRUE, /* pc_relative */
252b5132
RH
724 0, /* bitpos */
725 complain_overflow_signed, /* complain_on_overflow */
726 bfd_elf_generic_reloc, /* special_function */
727 "R_PPC_LOCAL24PC", /* name */
b34976b6 728 FALSE, /* partial_inplace */
252b5132
RH
729 0, /* src_mask */
730 0x3fffffc, /* dst_mask */
b34976b6 731 TRUE), /* pcrel_offset */
252b5132
RH
732
733 /* Like R_PPC_ADDR32, but may be unaligned. */
734 HOWTO (R_PPC_UADDR32, /* type */
735 0, /* rightshift */
736 2, /* size (0 = byte, 1 = short, 2 = long) */
737 32, /* bitsize */
b34976b6 738 FALSE, /* pc_relative */
252b5132
RH
739 0, /* bitpos */
740 complain_overflow_bitfield, /* complain_on_overflow */
741 bfd_elf_generic_reloc, /* special_function */
742 "R_PPC_UADDR32", /* name */
b34976b6 743 FALSE, /* partial_inplace */
252b5132
RH
744 0, /* src_mask */
745 0xffffffff, /* dst_mask */
b34976b6 746 FALSE), /* pcrel_offset */
252b5132
RH
747
748 /* Like R_PPC_ADDR16, but may be unaligned. */
749 HOWTO (R_PPC_UADDR16, /* type */
750 0, /* rightshift */
751 1, /* size (0 = byte, 1 = short, 2 = long) */
752 16, /* bitsize */
b34976b6 753 FALSE, /* pc_relative */
252b5132
RH
754 0, /* bitpos */
755 complain_overflow_bitfield, /* complain_on_overflow */
756 bfd_elf_generic_reloc, /* special_function */
757 "R_PPC_UADDR16", /* name */
b34976b6 758 FALSE, /* partial_inplace */
252b5132
RH
759 0, /* src_mask */
760 0xffff, /* dst_mask */
b34976b6 761 FALSE), /* pcrel_offset */
252b5132
RH
762
763 /* 32-bit PC relative */
764 HOWTO (R_PPC_REL32, /* type */
765 0, /* rightshift */
766 2, /* size (0 = byte, 1 = short, 2 = long) */
767 32, /* bitsize */
b34976b6 768 TRUE, /* pc_relative */
252b5132
RH
769 0, /* bitpos */
770 complain_overflow_bitfield, /* complain_on_overflow */
771 bfd_elf_generic_reloc, /* special_function */
772 "R_PPC_REL32", /* name */
b34976b6 773 FALSE, /* partial_inplace */
252b5132
RH
774 0, /* src_mask */
775 0xffffffff, /* dst_mask */
b34976b6 776 TRUE), /* pcrel_offset */
252b5132
RH
777
778 /* 32-bit relocation to the symbol's procedure linkage table.
c3668558 779 FIXME: not supported. */
252b5132
RH
780 HOWTO (R_PPC_PLT32, /* type */
781 0, /* rightshift */
782 2, /* size (0 = byte, 1 = short, 2 = long) */
783 32, /* bitsize */
b34976b6 784 FALSE, /* pc_relative */
252b5132
RH
785 0, /* bitpos */
786 complain_overflow_bitfield, /* complain_on_overflow */
787 bfd_elf_generic_reloc, /* special_function */
788 "R_PPC_PLT32", /* name */
b34976b6 789 FALSE, /* partial_inplace */
252b5132
RH
790 0, /* src_mask */
791 0, /* dst_mask */
b34976b6 792 FALSE), /* pcrel_offset */
252b5132
RH
793
794 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
c3668558 795 FIXME: not supported. */
252b5132
RH
796 HOWTO (R_PPC_PLTREL32, /* type */
797 0, /* rightshift */
798 2, /* size (0 = byte, 1 = short, 2 = long) */
799 32, /* bitsize */
b34976b6 800 TRUE, /* pc_relative */
252b5132
RH
801 0, /* bitpos */
802 complain_overflow_bitfield, /* complain_on_overflow */
803 bfd_elf_generic_reloc, /* special_function */
804 "R_PPC_PLTREL32", /* name */
b34976b6 805 FALSE, /* partial_inplace */
252b5132
RH
806 0, /* src_mask */
807 0, /* dst_mask */
b34976b6 808 TRUE), /* pcrel_offset */
252b5132
RH
809
810 /* Like R_PPC_ADDR16_LO, but referring to the PLT table entry for
811 the symbol. */
812 HOWTO (R_PPC_PLT16_LO, /* type */
813 0, /* rightshift */
814 1, /* size (0 = byte, 1 = short, 2 = long) */
815 16, /* bitsize */
b34976b6 816 FALSE, /* pc_relative */
252b5132
RH
817 0, /* bitpos */
818 complain_overflow_dont, /* complain_on_overflow */
819 bfd_elf_generic_reloc, /* special_function */
820 "R_PPC_PLT16_LO", /* name */
b34976b6 821 FALSE, /* partial_inplace */
252b5132
RH
822 0, /* src_mask */
823 0xffff, /* dst_mask */
b34976b6 824 FALSE), /* pcrel_offset */
252b5132
RH
825
826 /* Like R_PPC_ADDR16_HI, but referring to the PLT table entry for
827 the symbol. */
828 HOWTO (R_PPC_PLT16_HI, /* type */
829 16, /* rightshift */
830 1, /* size (0 = byte, 1 = short, 2 = long) */
831 16, /* bitsize */
b34976b6 832 FALSE, /* pc_relative */
252b5132
RH
833 0, /* bitpos */
834 complain_overflow_bitfield, /* complain_on_overflow */
835 bfd_elf_generic_reloc, /* special_function */
836 "R_PPC_PLT16_HI", /* name */
b34976b6 837 FALSE, /* partial_inplace */
252b5132
RH
838 0, /* src_mask */
839 0xffff, /* dst_mask */
b34976b6 840 FALSE), /* pcrel_offset */
252b5132
RH
841
842 /* Like R_PPC_ADDR16_HA, but referring to the PLT table entry for
843 the symbol. */
844 HOWTO (R_PPC_PLT16_HA, /* type */
845 16, /* rightshift */
846 1, /* size (0 = byte, 1 = short, 2 = long) */
847 16, /* bitsize */
b34976b6 848 FALSE, /* pc_relative */
252b5132
RH
849 0, /* bitpos */
850 complain_overflow_bitfield, /* complain_on_overflow */
851 ppc_elf_addr16_ha_reloc, /* special_function */
852 "R_PPC_PLT16_HA", /* name */
b34976b6 853 FALSE, /* partial_inplace */
252b5132
RH
854 0, /* src_mask */
855 0xffff, /* dst_mask */
b34976b6 856 FALSE), /* pcrel_offset */
252b5132
RH
857
858 /* A sign-extended 16 bit value relative to _SDA_BASE_, for use with
859 small data items. */
860 HOWTO (R_PPC_SDAREL16, /* type */
861 0, /* rightshift */
862 1, /* size (0 = byte, 1 = short, 2 = long) */
863 16, /* bitsize */
b34976b6 864 FALSE, /* pc_relative */
252b5132
RH
865 0, /* bitpos */
866 complain_overflow_signed, /* complain_on_overflow */
867 bfd_elf_generic_reloc, /* special_function */
868 "R_PPC_SDAREL16", /* name */
b34976b6 869 FALSE, /* partial_inplace */
252b5132
RH
870 0, /* src_mask */
871 0xffff, /* dst_mask */
b34976b6 872 FALSE), /* pcrel_offset */
252b5132 873
c061c2d8 874 /* 16-bit section relative relocation. */
252b5132
RH
875 HOWTO (R_PPC_SECTOFF, /* type */
876 0, /* rightshift */
c061c2d8
AM
877 1, /* size (0 = byte, 1 = short, 2 = long) */
878 16, /* bitsize */
b34976b6 879 FALSE, /* pc_relative */
252b5132
RH
880 0, /* bitpos */
881 complain_overflow_bitfield, /* complain_on_overflow */
882 bfd_elf_generic_reloc, /* special_function */
883 "R_PPC_SECTOFF", /* name */
b34976b6 884 FALSE, /* partial_inplace */
252b5132 885 0, /* src_mask */
c061c2d8 886 0xffff, /* dst_mask */
b34976b6 887 FALSE), /* pcrel_offset */
252b5132 888
c3668558 889 /* 16-bit lower half section relative relocation. */
252b5132
RH
890 HOWTO (R_PPC_SECTOFF_LO, /* type */
891 0, /* rightshift */
892 1, /* size (0 = byte, 1 = short, 2 = long) */
893 16, /* bitsize */
b34976b6 894 FALSE, /* pc_relative */
252b5132
RH
895 0, /* bitpos */
896 complain_overflow_dont, /* complain_on_overflow */
897 bfd_elf_generic_reloc, /* special_function */
898 "R_PPC_SECTOFF_LO", /* name */
b34976b6 899 FALSE, /* partial_inplace */
252b5132
RH
900 0, /* src_mask */
901 0xffff, /* dst_mask */
b34976b6 902 FALSE), /* pcrel_offset */
252b5132 903
c3668558 904 /* 16-bit upper half section relative relocation. */
252b5132
RH
905 HOWTO (R_PPC_SECTOFF_HI, /* type */
906 16, /* rightshift */
907 1, /* size (0 = byte, 1 = short, 2 = long) */
908 16, /* bitsize */
b34976b6 909 FALSE, /* pc_relative */
252b5132
RH
910 0, /* bitpos */
911 complain_overflow_bitfield, /* complain_on_overflow */
912 bfd_elf_generic_reloc, /* special_function */
913 "R_PPC_SECTOFF_HI", /* name */
b34976b6 914 FALSE, /* partial_inplace */
252b5132
RH
915 0, /* src_mask */
916 0xffff, /* dst_mask */
b34976b6 917 FALSE), /* pcrel_offset */
252b5132 918
c3668558 919 /* 16-bit upper half adjusted section relative relocation. */
252b5132
RH
920 HOWTO (R_PPC_SECTOFF_HA, /* type */
921 16, /* rightshift */
922 1, /* size (0 = byte, 1 = short, 2 = long) */
923 16, /* bitsize */
b34976b6 924 FALSE, /* pc_relative */
252b5132
RH
925 0, /* bitpos */
926 complain_overflow_bitfield, /* complain_on_overflow */
927 ppc_elf_addr16_ha_reloc, /* special_function */
928 "R_PPC_SECTOFF_HA", /* name */
b34976b6 929 FALSE, /* partial_inplace */
252b5132
RH
930 0, /* src_mask */
931 0xffff, /* dst_mask */
b34976b6 932 FALSE), /* pcrel_offset */
252b5132 933
7619e7c7
AM
934 /* Marker reloc for TLS. */
935 HOWTO (R_PPC_TLS,
252b5132
RH
936 0, /* rightshift */
937 2, /* size (0 = byte, 1 = short, 2 = long) */
938 32, /* bitsize */
b34976b6 939 FALSE, /* pc_relative */
252b5132 940 0, /* bitpos */
7619e7c7 941 complain_overflow_dont, /* complain_on_overflow */
252b5132 942 bfd_elf_generic_reloc, /* special_function */
7619e7c7
AM
943 "R_PPC_TLS", /* name */
944 FALSE, /* partial_inplace */
945 0, /* src_mask */
946 0, /* dst_mask */
947 FALSE), /* pcrel_offset */
948
949 /* Computes the load module index of the load module that contains the
950 definition of its TLS sym. */
951 HOWTO (R_PPC_DTPMOD32,
952 0, /* rightshift */
953 2, /* size (0 = byte, 1 = short, 2 = long) */
954 32, /* bitsize */
955 FALSE, /* pc_relative */
956 0, /* bitpos */
957 complain_overflow_dont, /* complain_on_overflow */
958 ppc_elf_unhandled_reloc, /* special_function */
959 "R_PPC_DTPMOD32", /* name */
b34976b6 960 FALSE, /* partial_inplace */
252b5132
RH
961 0, /* src_mask */
962 0xffffffff, /* dst_mask */
b34976b6 963 FALSE), /* pcrel_offset */
252b5132 964
7619e7c7
AM
965 /* Computes a dtv-relative displacement, the difference between the value
966 of sym+add and the base address of the thread-local storage block that
967 contains the definition of sym, minus 0x8000. */
968 HOWTO (R_PPC_DTPREL32,
969 0, /* rightshift */
970 2, /* size (0 = byte, 1 = short, 2 = long) */
971 32, /* bitsize */
972 FALSE, /* pc_relative */
973 0, /* bitpos */
974 complain_overflow_dont, /* complain_on_overflow */
975 ppc_elf_unhandled_reloc, /* special_function */
976 "R_PPC_DTPREL32", /* name */
977 FALSE, /* partial_inplace */
978 0, /* src_mask */
979 0xffffffff, /* dst_mask */
980 FALSE), /* pcrel_offset */
981
982 /* A 16 bit dtprel reloc. */
983 HOWTO (R_PPC_DTPREL16,
252b5132
RH
984 0, /* rightshift */
985 1, /* size (0 = byte, 1 = short, 2 = long) */
986 16, /* bitsize */
b34976b6 987 FALSE, /* pc_relative */
252b5132 988 0, /* bitpos */
7619e7c7
AM
989 complain_overflow_signed, /* complain_on_overflow */
990 ppc_elf_unhandled_reloc, /* special_function */
991 "R_PPC_DTPREL16", /* name */
b34976b6 992 FALSE, /* partial_inplace */
252b5132
RH
993 0, /* src_mask */
994 0xffff, /* dst_mask */
b34976b6 995 FALSE), /* pcrel_offset */
252b5132 996
7619e7c7
AM
997 /* Like DTPREL16, but no overflow. */
998 HOWTO (R_PPC_DTPREL16_LO,
252b5132
RH
999 0, /* rightshift */
1000 1, /* size (0 = byte, 1 = short, 2 = long) */
1001 16, /* bitsize */
b34976b6 1002 FALSE, /* pc_relative */
252b5132 1003 0, /* bitpos */
7619e7c7
AM
1004 complain_overflow_dont, /* complain_on_overflow */
1005 ppc_elf_unhandled_reloc, /* special_function */
1006 "R_PPC_DTPREL16_LO", /* name */
b34976b6 1007 FALSE, /* partial_inplace */
252b5132
RH
1008 0, /* src_mask */
1009 0xffff, /* dst_mask */
b34976b6 1010 FALSE), /* pcrel_offset */
252b5132 1011
7619e7c7
AM
1012 /* Like DTPREL16_LO, but next higher group of 16 bits. */
1013 HOWTO (R_PPC_DTPREL16_HI,
252b5132
RH
1014 16, /* rightshift */
1015 1, /* size (0 = byte, 1 = short, 2 = long) */
1016 16, /* bitsize */
b34976b6 1017 FALSE, /* pc_relative */
252b5132
RH
1018 0, /* bitpos */
1019 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM
1020 ppc_elf_unhandled_reloc, /* special_function */
1021 "R_PPC_DTPREL16_HI", /* name */
b34976b6 1022 FALSE, /* partial_inplace */
252b5132
RH
1023 0, /* src_mask */
1024 0xffff, /* dst_mask */
b34976b6 1025 FALSE), /* pcrel_offset */
252b5132 1026
7619e7c7
AM
1027 /* Like DTPREL16_HI, but adjust for low 16 bits. */
1028 HOWTO (R_PPC_DTPREL16_HA,
252b5132
RH
1029 16, /* rightshift */
1030 1, /* size (0 = byte, 1 = short, 2 = long) */
1031 16, /* bitsize */
b34976b6 1032 FALSE, /* pc_relative */
252b5132
RH
1033 0, /* bitpos */
1034 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM
1035 ppc_elf_unhandled_reloc, /* special_function */
1036 "R_PPC_DTPREL16_HA", /* name */
b34976b6 1037 FALSE, /* partial_inplace */
252b5132
RH
1038 0, /* src_mask */
1039 0xffff, /* dst_mask */
b34976b6 1040 FALSE), /* pcrel_offset */
252b5132 1041
7619e7c7
AM
1042 /* Computes a tp-relative displacement, the difference between the value of
1043 sym+add and the value of the thread pointer (r13). */
1044 HOWTO (R_PPC_TPREL32,
1045 0, /* rightshift */
1046 2, /* size (0 = byte, 1 = short, 2 = long) */
1047 32, /* bitsize */
1048 FALSE, /* pc_relative */
1049 0, /* bitpos */
1050 complain_overflow_dont, /* complain_on_overflow */
1051 ppc_elf_unhandled_reloc, /* special_function */
1052 "R_PPC_TPREL32", /* name */
1053 FALSE, /* partial_inplace */
1054 0, /* src_mask */
1055 0xffffffff, /* dst_mask */
1056 FALSE), /* pcrel_offset */
1057
1058 /* A 16 bit tprel reloc. */
1059 HOWTO (R_PPC_TPREL16,
252b5132
RH
1060 0, /* rightshift */
1061 1, /* size (0 = byte, 1 = short, 2 = long) */
1062 16, /* bitsize */
b34976b6 1063 FALSE, /* pc_relative */
252b5132 1064 0, /* bitpos */
7619e7c7
AM
1065 complain_overflow_signed, /* complain_on_overflow */
1066 ppc_elf_unhandled_reloc, /* special_function */
1067 "R_PPC_TPREL16", /* name */
b34976b6 1068 FALSE, /* partial_inplace */
252b5132
RH
1069 0, /* src_mask */
1070 0xffff, /* dst_mask */
b34976b6 1071 FALSE), /* pcrel_offset */
252b5132 1072
7619e7c7
AM
1073 /* Like TPREL16, but no overflow. */
1074 HOWTO (R_PPC_TPREL16_LO,
252b5132
RH
1075 0, /* rightshift */
1076 1, /* size (0 = byte, 1 = short, 2 = long) */
1077 16, /* bitsize */
b34976b6 1078 FALSE, /* pc_relative */
252b5132 1079 0, /* bitpos */
7619e7c7
AM
1080 complain_overflow_dont, /* complain_on_overflow */
1081 ppc_elf_unhandled_reloc, /* special_function */
1082 "R_PPC_TPREL16_LO", /* name */
b34976b6 1083 FALSE, /* partial_inplace */
252b5132
RH
1084 0, /* src_mask */
1085 0xffff, /* dst_mask */
b34976b6 1086 FALSE), /* pcrel_offset */
252b5132 1087
7619e7c7
AM
1088 /* Like TPREL16_LO, but next higher group of 16 bits. */
1089 HOWTO (R_PPC_TPREL16_HI,
1090 16, /* rightshift */
1091 1, /* size (0 = byte, 1 = short, 2 = long) */
1092 16, /* bitsize */
1093 FALSE, /* pc_relative */
1094 0, /* bitpos */
1095 complain_overflow_dont, /* complain_on_overflow */
1096 ppc_elf_unhandled_reloc, /* special_function */
1097 "R_PPC_TPREL16_HI", /* name */
1098 FALSE, /* partial_inplace */
1099 0, /* src_mask */
1100 0xffff, /* dst_mask */
1101 FALSE), /* pcrel_offset */
1102
1103 /* Like TPREL16_HI, but adjust for low 16 bits. */
1104 HOWTO (R_PPC_TPREL16_HA,
1105 16, /* rightshift */
1106 1, /* size (0 = byte, 1 = short, 2 = long) */
1107 16, /* bitsize */
1108 FALSE, /* pc_relative */
1109 0, /* bitpos */
1110 complain_overflow_dont, /* complain_on_overflow */
1111 ppc_elf_unhandled_reloc, /* special_function */
1112 "R_PPC_TPREL16_HA", /* name */
1113 FALSE, /* partial_inplace */
1114 0, /* src_mask */
1115 0xffff, /* dst_mask */
1116 FALSE), /* pcrel_offset */
1117
1118 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1119 with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
1120 to the first entry. */
1121 HOWTO (R_PPC_GOT_TLSGD16,
252b5132
RH
1122 0, /* rightshift */
1123 1, /* size (0 = byte, 1 = short, 2 = long) */
1124 16, /* bitsize */
b34976b6 1125 FALSE, /* pc_relative */
252b5132
RH
1126 0, /* bitpos */
1127 complain_overflow_signed, /* complain_on_overflow */
7619e7c7
AM
1128 ppc_elf_unhandled_reloc, /* special_function */
1129 "R_PPC_GOT_TLSGD16", /* name */
b34976b6 1130 FALSE, /* partial_inplace */
252b5132
RH
1131 0, /* src_mask */
1132 0xffff, /* dst_mask */
b34976b6 1133 FALSE), /* pcrel_offset */
252b5132 1134
7619e7c7
AM
1135 /* Like GOT_TLSGD16, but no overflow. */
1136 HOWTO (R_PPC_GOT_TLSGD16_LO,
252b5132 1137 0, /* rightshift */
7619e7c7 1138 1, /* size (0 = byte, 1 = short, 2 = long) */
252b5132 1139 16, /* bitsize */
b34976b6 1140 FALSE, /* pc_relative */
252b5132 1141 0, /* bitpos */
7619e7c7
AM
1142 complain_overflow_dont, /* complain_on_overflow */
1143 ppc_elf_unhandled_reloc, /* special_function */
1144 "R_PPC_GOT_TLSGD16_LO", /* name */
b34976b6 1145 FALSE, /* partial_inplace */
252b5132
RH
1146 0, /* src_mask */
1147 0xffff, /* dst_mask */
b34976b6 1148 FALSE), /* pcrel_offset */
252b5132 1149
7619e7c7
AM
1150 /* Like GOT_TLSGD16_LO, but next higher group of 16 bits. */
1151 HOWTO (R_PPC_GOT_TLSGD16_HI,
1152 16, /* rightshift */
1153 1, /* size (0 = byte, 1 = short, 2 = long) */
1154 16, /* bitsize */
1155 FALSE, /* pc_relative */
1156 0, /* bitpos */
1157 complain_overflow_dont, /* complain_on_overflow */
1158 ppc_elf_unhandled_reloc, /* special_function */
1159 "R_PPC_GOT_TLSGD16_HI", /* name */
1160 FALSE, /* partial_inplace */
1161 0, /* src_mask */
1162 0xffff, /* dst_mask */
1163 FALSE), /* pcrel_offset */
252b5132 1164
7619e7c7
AM
1165 /* Like GOT_TLSGD16_HI, but adjust for low 16 bits. */
1166 HOWTO (R_PPC_GOT_TLSGD16_HA,
1167 16, /* rightshift */
1168 1, /* size (0 = byte, 1 = short, 2 = long) */
1169 16, /* bitsize */
1170 FALSE, /* pc_relative */
1171 0, /* bitpos */
1172 complain_overflow_dont, /* complain_on_overflow */
1173 ppc_elf_unhandled_reloc, /* special_function */
1174 "R_PPC_GOT_TLSGD16_HA", /* name */
1175 FALSE, /* partial_inplace */
1176 0, /* src_mask */
1177 0xffff, /* dst_mask */
1178 FALSE), /* pcrel_offset */
1179
1180 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1181 with values (sym+add)@dtpmod and zero, and computes the offset to the
1182 first entry. */
1183 HOWTO (R_PPC_GOT_TLSLD16,
252b5132
RH
1184 0, /* rightshift */
1185 1, /* size (0 = byte, 1 = short, 2 = long) */
1186 16, /* bitsize */
7619e7c7 1187 FALSE, /* pc_relative */
252b5132
RH
1188 0, /* bitpos */
1189 complain_overflow_signed, /* complain_on_overflow */
7619e7c7
AM
1190 ppc_elf_unhandled_reloc, /* special_function */
1191 "R_PPC_GOT_TLSLD16", /* name */
b34976b6 1192 FALSE, /* partial_inplace */
252b5132
RH
1193 0, /* src_mask */
1194 0xffff, /* dst_mask */
b34976b6 1195 FALSE), /* pcrel_offset */
252b5132 1196
7619e7c7
AM
1197 /* Like GOT_TLSLD16, but no overflow. */
1198 HOWTO (R_PPC_GOT_TLSLD16_LO,
252b5132 1199 0, /* rightshift */
7619e7c7
AM
1200 1, /* size (0 = byte, 1 = short, 2 = long) */
1201 16, /* bitsize */
b34976b6 1202 FALSE, /* pc_relative */
252b5132
RH
1203 0, /* bitpos */
1204 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM
1205 ppc_elf_unhandled_reloc, /* special_function */
1206 "R_PPC_GOT_TLSLD16_LO", /* name */
b34976b6 1207 FALSE, /* partial_inplace */
252b5132 1208 0, /* src_mask */
7619e7c7 1209 0xffff, /* dst_mask */
b34976b6 1210 FALSE), /* pcrel_offset */
252b5132 1211
7619e7c7
AM
1212 /* Like GOT_TLSLD16_LO, but next higher group of 16 bits. */
1213 HOWTO (R_PPC_GOT_TLSLD16_HI,
1214 16, /* rightshift */
1215 1, /* size (0 = byte, 1 = short, 2 = long) */
1216 16, /* bitsize */
b34976b6 1217 FALSE, /* pc_relative */
252b5132
RH
1218 0, /* bitpos */
1219 complain_overflow_dont, /* complain_on_overflow */
7619e7c7
AM
1220 ppc_elf_unhandled_reloc, /* special_function */
1221 "R_PPC_GOT_TLSLD16_HI", /* name */
b34976b6 1222 FALSE, /* partial_inplace */
252b5132 1223 0, /* src_mask */
7619e7c7 1224 0xffff, /* dst_mask */
b34976b6 1225 FALSE), /* pcrel_offset */
252b5132 1226
7619e7c7
AM
1227 /* Like GOT_TLSLD16_HI, but adjust for low 16 bits. */
1228 HOWTO (R_PPC_GOT_TLSLD16_HA,
1229 16, /* rightshift */
1230 1, /* size (0 = byte, 1 = short, 2 = long) */
1231 16, /* bitsize */
1232 FALSE, /* pc_relative */
1233 0, /* bitpos */
1234 complain_overflow_dont, /* complain_on_overflow */
1235 ppc_elf_unhandled_reloc, /* special_function */
1236 "R_PPC_GOT_TLSLD16_HA", /* name */
1237 FALSE, /* partial_inplace */
1238 0, /* src_mask */
1239 0xffff, /* dst_mask */
1240 FALSE), /* pcrel_offset */
1241
1242 /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1243 the offset to the entry. */
1244 HOWTO (R_PPC_GOT_DTPREL16,
252b5132
RH
1245 0, /* rightshift */
1246 1, /* size (0 = byte, 1 = short, 2 = long) */
1247 16, /* bitsize */
b34976b6 1248 FALSE, /* pc_relative */
252b5132
RH
1249 0, /* bitpos */
1250 complain_overflow_signed, /* complain_on_overflow */
7619e7c7
AM
1251 ppc_elf_unhandled_reloc, /* special_function */
1252 "R_PPC_GOT_DTPREL16", /* name */
b34976b6 1253 FALSE, /* partial_inplace */
252b5132
RH
1254 0, /* src_mask */
1255 0xffff, /* dst_mask */
b34976b6 1256 FALSE), /* pcrel_offset */
252b5132 1257
7619e7c7
AM
1258 /* Like GOT_DTPREL16, but no overflow. */
1259 HOWTO (R_PPC_GOT_DTPREL16_LO,
1260 0, /* rightshift */
1261 1, /* size (0 = byte, 1 = short, 2 = long) */
1262 16, /* bitsize */
1263 FALSE, /* pc_relative */
1264 0, /* bitpos */
1265 complain_overflow_dont, /* complain_on_overflow */
1266 ppc_elf_unhandled_reloc, /* special_function */
1267 "R_PPC_GOT_DTPREL16_LO", /* name */
1268 FALSE, /* partial_inplace */
1269 0, /* src_mask */
1270 0xffff, /* dst_mask */
1271 FALSE), /* pcrel_offset */
252b5132 1272
7619e7c7
AM
1273 /* Like GOT_DTPREL16_LO, but next higher group of 16 bits. */
1274 HOWTO (R_PPC_GOT_DTPREL16_HI,
1275 16, /* rightshift */
1276 1, /* size (0 = byte, 1 = short, 2 = long) */
1277 16, /* bitsize */
1278 FALSE, /* pc_relative */
1279 0, /* bitpos */
1280 complain_overflow_dont, /* complain_on_overflow */
1281 ppc_elf_unhandled_reloc, /* special_function */
1282 "R_PPC_GOT_DTPREL16_HI", /* name */
1283 FALSE, /* partial_inplace */
1284 0, /* src_mask */
1285 0xffff, /* dst_mask */
1286 FALSE), /* pcrel_offset */
252b5132 1287
7619e7c7
AM
1288 /* Like GOT_DTPREL16_HI, but adjust for low 16 bits. */
1289 HOWTO (R_PPC_GOT_DTPREL16_HA,
1290 16, /* rightshift */
1291 1, /* size (0 = byte, 1 = short, 2 = long) */
1292 16, /* bitsize */
1293 FALSE, /* pc_relative */
1294 0, /* bitpos */
1295 complain_overflow_dont, /* complain_on_overflow */
1296 ppc_elf_unhandled_reloc, /* special_function */
1297 "R_PPC_GOT_DTPREL16_HA", /* name */
1298 FALSE, /* partial_inplace */
1299 0, /* src_mask */
1300 0xffff, /* dst_mask */
1301 FALSE), /* pcrel_offset */
c3668558 1302
7619e7c7
AM
1303 /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1304 offset to the entry. */
1305 HOWTO (R_PPC_GOT_TPREL16,
1306 0, /* rightshift */
1307 1, /* size (0 = byte, 1 = short, 2 = long) */
1308 16, /* bitsize */
1309 FALSE, /* pc_relative */
1310 0, /* bitpos */
1311 complain_overflow_signed, /* complain_on_overflow */
1312 ppc_elf_unhandled_reloc, /* special_function */
1313 "R_PPC_GOT_TPREL16", /* name */
1314 FALSE, /* partial_inplace */
1315 0, /* src_mask */
1316 0xffff, /* dst_mask */
1317 FALSE), /* pcrel_offset */
1318
1319 /* Like GOT_TPREL16, but no overflow. */
1320 HOWTO (R_PPC_GOT_TPREL16_LO,
1321 0, /* rightshift */
1322 1, /* size (0 = byte, 1 = short, 2 = long) */
1323 16, /* bitsize */
1324 FALSE, /* pc_relative */
1325 0, /* bitpos */
1326 complain_overflow_dont, /* complain_on_overflow */
1327 ppc_elf_unhandled_reloc, /* special_function */
1328 "R_PPC_GOT_TPREL16_LO", /* name */
1329 FALSE, /* partial_inplace */
1330 0, /* src_mask */
1331 0xffff, /* dst_mask */
1332 FALSE), /* pcrel_offset */
1333
1334 /* Like GOT_TPREL16_LO, but next higher group of 16 bits. */
1335 HOWTO (R_PPC_GOT_TPREL16_HI,
1336 16, /* rightshift */
1337 1, /* size (0 = byte, 1 = short, 2 = long) */
1338 16, /* bitsize */
1339 FALSE, /* pc_relative */
1340 0, /* bitpos */
1341 complain_overflow_dont, /* complain_on_overflow */
1342 ppc_elf_unhandled_reloc, /* special_function */
1343 "R_PPC_GOT_TPREL16_HI", /* name */
1344 FALSE, /* partial_inplace */
1345 0, /* src_mask */
1346 0xffff, /* dst_mask */
1347 FALSE), /* pcrel_offset */
1348
1349 /* Like GOT_TPREL16_HI, but adjust for low 16 bits. */
1350 HOWTO (R_PPC_GOT_TPREL16_HA,
1351 16, /* rightshift */
1352 1, /* size (0 = byte, 1 = short, 2 = long) */
1353 16, /* bitsize */
1354 FALSE, /* pc_relative */
1355 0, /* bitpos */
1356 complain_overflow_dont, /* complain_on_overflow */
1357 ppc_elf_unhandled_reloc, /* special_function */
1358 "R_PPC_GOT_TPREL16_HA", /* name */
1359 FALSE, /* partial_inplace */
1360 0, /* src_mask */
1361 0xffff, /* dst_mask */
1362 FALSE), /* pcrel_offset */
1363
1364 /* The remaining relocs are from the Embedded ELF ABI, and are not
1365 in the SVR4 ELF ABI. */
1366
1367 /* 32 bit value resulting from the addend minus the symbol. */
1368 HOWTO (R_PPC_EMB_NADDR32, /* type */
1369 0, /* rightshift */
1370 2, /* size (0 = byte, 1 = short, 2 = long) */
1371 32, /* bitsize */
1372 FALSE, /* pc_relative */
1373 0, /* bitpos */
1374 complain_overflow_bitfield, /* complain_on_overflow */
1375 bfd_elf_generic_reloc, /* special_function */
1376 "R_PPC_EMB_NADDR32", /* name */
1377 FALSE, /* partial_inplace */
1378 0, /* src_mask */
1379 0xffffffff, /* dst_mask */
1380 FALSE), /* pcrel_offset */
1381
1382 /* 16 bit value resulting from the addend minus the symbol. */
1383 HOWTO (R_PPC_EMB_NADDR16, /* type */
1384 0, /* rightshift */
1385 1, /* size (0 = byte, 1 = short, 2 = long) */
1386 16, /* bitsize */
1387 FALSE, /* pc_relative */
1388 0, /* bitpos */
1389 complain_overflow_bitfield, /* complain_on_overflow */
1390 bfd_elf_generic_reloc, /* special_function */
1391 "R_PPC_EMB_NADDR16", /* name */
1392 FALSE, /* partial_inplace */
1393 0, /* src_mask */
1394 0xffff, /* dst_mask */
1395 FALSE), /* pcrel_offset */
1396
1397 /* 16 bit value resulting from the addend minus the symbol. */
1398 HOWTO (R_PPC_EMB_NADDR16_LO, /* type */
1399 0, /* rightshift */
1400 1, /* size (0 = byte, 1 = short, 2 = long) */
1401 16, /* bitsize */
1402 FALSE, /* pc_relative */
1403 0, /* bitpos */
1404 complain_overflow_dont,/* complain_on_overflow */
1405 bfd_elf_generic_reloc, /* special_function */
1406 "R_PPC_EMB_ADDR16_LO", /* name */
1407 FALSE, /* partial_inplace */
1408 0, /* src_mask */
1409 0xffff, /* dst_mask */
1410 FALSE), /* pcrel_offset */
1411
1412 /* The high order 16 bits of the addend minus the symbol. */
1413 HOWTO (R_PPC_EMB_NADDR16_HI, /* type */
1414 16, /* rightshift */
1415 1, /* size (0 = byte, 1 = short, 2 = long) */
1416 16, /* bitsize */
1417 FALSE, /* pc_relative */
1418 0, /* bitpos */
1419 complain_overflow_dont, /* complain_on_overflow */
1420 bfd_elf_generic_reloc, /* special_function */
1421 "R_PPC_EMB_NADDR16_HI", /* name */
1422 FALSE, /* partial_inplace */
1423 0, /* src_mask */
1424 0xffff, /* dst_mask */
1425 FALSE), /* pcrel_offset */
1426
1427 /* The high order 16 bits of the result of the addend minus the address,
1428 plus 1 if the contents of the low 16 bits, treated as a signed number,
1429 is negative. */
1430 HOWTO (R_PPC_EMB_NADDR16_HA, /* type */
1431 16, /* rightshift */
1432 1, /* size (0 = byte, 1 = short, 2 = long) */
1433 16, /* bitsize */
1434 FALSE, /* pc_relative */
1435 0, /* bitpos */
1436 complain_overflow_dont, /* complain_on_overflow */
1437 ppc_elf_addr16_ha_reloc, /* special_function */
1438 "R_PPC_EMB_NADDR16_HA", /* name */
1439 FALSE, /* partial_inplace */
1440 0, /* src_mask */
1441 0xffff, /* dst_mask */
1442 FALSE), /* pcrel_offset */
1443
1444 /* 16 bit value resulting from allocating a 4 byte word to hold an
1445 address in the .sdata section, and returning the offset from
1446 _SDA_BASE_ for that relocation. */
1447 HOWTO (R_PPC_EMB_SDAI16, /* type */
1448 0, /* rightshift */
1449 1, /* size (0 = byte, 1 = short, 2 = long) */
1450 16, /* bitsize */
1451 FALSE, /* pc_relative */
1452 0, /* bitpos */
1453 complain_overflow_bitfield, /* complain_on_overflow */
1454 bfd_elf_generic_reloc, /* special_function */
1455 "R_PPC_EMB_SDAI16", /* name */
1456 FALSE, /* partial_inplace */
1457 0, /* src_mask */
1458 0xffff, /* dst_mask */
1459 FALSE), /* pcrel_offset */
1460
1461 /* 16 bit value resulting from allocating a 4 byte word to hold an
1462 address in the .sdata2 section, and returning the offset from
1463 _SDA2_BASE_ for that relocation. */
1464 HOWTO (R_PPC_EMB_SDA2I16, /* type */
1465 0, /* rightshift */
1466 1, /* size (0 = byte, 1 = short, 2 = long) */
1467 16, /* bitsize */
1468 FALSE, /* pc_relative */
1469 0, /* bitpos */
1470 complain_overflow_bitfield, /* complain_on_overflow */
1471 bfd_elf_generic_reloc, /* special_function */
1472 "R_PPC_EMB_SDA2I16", /* name */
1473 FALSE, /* partial_inplace */
1474 0, /* src_mask */
1475 0xffff, /* dst_mask */
1476 FALSE), /* pcrel_offset */
1477
1478 /* A sign-extended 16 bit value relative to _SDA2_BASE_, for use with
1479 small data items. */
1480 HOWTO (R_PPC_EMB_SDA2REL, /* type */
1481 0, /* rightshift */
1482 1, /* size (0 = byte, 1 = short, 2 = long) */
1483 16, /* bitsize */
1484 FALSE, /* pc_relative */
1485 0, /* bitpos */
1486 complain_overflow_signed, /* complain_on_overflow */
1487 bfd_elf_generic_reloc, /* special_function */
1488 "R_PPC_EMB_SDA2REL", /* name */
1489 FALSE, /* partial_inplace */
1490 0, /* src_mask */
1491 0xffff, /* dst_mask */
1492 FALSE), /* pcrel_offset */
1493
1494 /* Relocate against either _SDA_BASE_ or _SDA2_BASE_, filling in the 16 bit
1495 signed offset from the appropriate base, and filling in the register
1496 field with the appropriate register (0, 2, or 13). */
1497 HOWTO (R_PPC_EMB_SDA21, /* type */
1498 0, /* rightshift */
1499 2, /* size (0 = byte, 1 = short, 2 = long) */
1500 16, /* bitsize */
1501 FALSE, /* pc_relative */
1502 0, /* bitpos */
1503 complain_overflow_signed, /* complain_on_overflow */
1504 bfd_elf_generic_reloc, /* special_function */
1505 "R_PPC_EMB_SDA21", /* name */
1506 FALSE, /* partial_inplace */
1507 0, /* src_mask */
1508 0xffff, /* dst_mask */
1509 FALSE), /* pcrel_offset */
1510
1511 /* Relocation not handled: R_PPC_EMB_MRKREF */
1512 /* Relocation not handled: R_PPC_EMB_RELSEC16 */
1513 /* Relocation not handled: R_PPC_EMB_RELST_LO */
1514 /* Relocation not handled: R_PPC_EMB_RELST_HI */
1515 /* Relocation not handled: R_PPC_EMB_RELST_HA */
1516 /* Relocation not handled: R_PPC_EMB_BIT_FLD */
1517
1518 /* PC relative relocation against either _SDA_BASE_ or _SDA2_BASE_, filling
1519 in the 16 bit signed offset from the appropriate base, and filling in the
1520 register field with the appropriate register (0, 2, or 13). */
1521 HOWTO (R_PPC_EMB_RELSDA, /* type */
1522 0, /* rightshift */
1523 1, /* size (0 = byte, 1 = short, 2 = long) */
1524 16, /* bitsize */
1525 TRUE, /* pc_relative */
1526 0, /* bitpos */
1527 complain_overflow_signed, /* complain_on_overflow */
1528 bfd_elf_generic_reloc, /* special_function */
1529 "R_PPC_EMB_RELSDA", /* name */
1530 FALSE, /* partial_inplace */
1531 0, /* src_mask */
1532 0xffff, /* dst_mask */
1533 FALSE), /* pcrel_offset */
1534
f31a141e 1535 /* Phony relocs to handle branch stubs. */
9abc968f
AM
1536 HOWTO (R_PPC_RELAX32, /* type */
1537 0, /* rightshift */
1538 0, /* size */
deaaf2f3
EC
1539 0, /* bitsize */
1540 FALSE, /* pc_relative */
1541 0, /* bitpos */
1542 complain_overflow_dont, /* complain_on_overflow */
1543 bfd_elf_generic_reloc, /* special_function */
9abc968f 1544 "R_PPC_RELAX32", /* name */
deaaf2f3
EC
1545 FALSE, /* partial_inplace */
1546 0, /* src_mask */
9abc968f 1547 0, /* dst_mask */
deaaf2f3
EC
1548 FALSE), /* pcrel_offset */
1549
9abc968f
AM
1550 HOWTO (R_PPC_RELAX32PC, /* type */
1551 0, /* rightshift */
1552 0, /* size */
f31a141e
AM
1553 0, /* bitsize */
1554 FALSE, /* pc_relative */
1555 0, /* bitpos */
1556 complain_overflow_dont, /* complain_on_overflow */
1557 bfd_elf_generic_reloc, /* special_function */
9abc968f 1558 "R_PPC_RELAX32PC", /* name */
f31a141e
AM
1559 FALSE, /* partial_inplace */
1560 0, /* src_mask */
9abc968f 1561 0, /* dst_mask */
f31a141e
AM
1562 FALSE), /* pcrel_offset */
1563
7619e7c7
AM
1564 /* GNU extension to record C++ vtable hierarchy. */
1565 HOWTO (R_PPC_GNU_VTINHERIT, /* type */
1566 0, /* rightshift */
1567 0, /* size (0 = byte, 1 = short, 2 = long) */
1568 0, /* bitsize */
1569 FALSE, /* pc_relative */
1570 0, /* bitpos */
1571 complain_overflow_dont, /* complain_on_overflow */
1572 NULL, /* special_function */
1573 "R_PPC_GNU_VTINHERIT", /* name */
1574 FALSE, /* partial_inplace */
1575 0, /* src_mask */
1576 0, /* dst_mask */
1577 FALSE), /* pcrel_offset */
1578
1579 /* GNU extension to record C++ vtable member usage. */
1580 HOWTO (R_PPC_GNU_VTENTRY, /* type */
1581 0, /* rightshift */
1582 0, /* size (0 = byte, 1 = short, 2 = long) */
1583 0, /* bitsize */
1584 FALSE, /* pc_relative */
1585 0, /* bitpos */
1586 complain_overflow_dont, /* complain_on_overflow */
1587 NULL, /* special_function */
1588 "R_PPC_GNU_VTENTRY", /* name */
1589 FALSE, /* partial_inplace */
1590 0, /* src_mask */
1591 0, /* dst_mask */
1592 FALSE), /* pcrel_offset */
1593
1594 /* Phony reloc to handle AIX style TOC entries. */
1595 HOWTO (R_PPC_TOC16, /* type */
1596 0, /* rightshift */
1597 1, /* size (0 = byte, 1 = short, 2 = long) */
1598 16, /* bitsize */
1599 FALSE, /* pc_relative */
1600 0, /* bitpos */
1601 complain_overflow_signed, /* complain_on_overflow */
1602 bfd_elf_generic_reloc, /* special_function */
1603 "R_PPC_TOC16", /* name */
1604 FALSE, /* partial_inplace */
1605 0, /* src_mask */
1606 0xffff, /* dst_mask */
1607 FALSE), /* pcrel_offset */
1608};
1609\f
1610/* Initialize the ppc_elf_howto_table, so that linear accesses can be done. */
1611
1612static void
55fd94b0 1613ppc_elf_howto_init (void)
7619e7c7
AM
1614{
1615 unsigned int i, type;
1616
fc0bffd6
AM
1617 for (i = 0;
1618 i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]);
1619 i++)
7619e7c7
AM
1620 {
1621 type = ppc_elf_howto_raw[i].type;
fc0bffd6
AM
1622 if (type >= (sizeof (ppc_elf_howto_table)
1623 / sizeof (ppc_elf_howto_table[0])))
1624 abort ();
7619e7c7
AM
1625 ppc_elf_howto_table[type] = &ppc_elf_howto_raw[i];
1626 }
1627}
1628\f
9abc968f 1629#define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
deaaf2f3 1630
9abc968f 1631static const int shared_stub_entry[] =
deaaf2f3 1632 {
9abc968f
AM
1633 0x7c0802a6, /* mflr 0 */
1634 0x429f0005, /* bcl 20, 31, .Lxxx */
1635 0x7d6802a6, /* mflr 11 */
1636 0x3d6b0000, /* addis 11, 11, (xxx-.Lxxx)@ha */
1637 0x396b0018, /* addi 11, 11, (xxx-.Lxxx)@l */
1638 0x7c0803a6, /* mtlr 0 */
1639 0x7d6903a6, /* mtctr 11 */
1640 0x4e800420, /* bctr */
deaaf2f3
EC
1641 };
1642
9abc968f 1643static const int stub_entry[] =
deaaf2f3 1644 {
9abc968f
AM
1645 0x3d600000, /* lis 11,xxx@ha */
1646 0x396b0000, /* addi 11,11,xxx@l */
1647 0x7d6903a6, /* mtctr 11 */
1648 0x4e800420, /* bctr */
deaaf2f3
EC
1649 };
1650
1651
b34976b6 1652static bfd_boolean
55fd94b0
AM
1653ppc_elf_relax_section (bfd *abfd,
1654 asection *isec,
1655 struct bfd_link_info *link_info,
1656 bfd_boolean *again)
252b5132 1657{
deaaf2f3
EC
1658 struct one_fixup
1659 {
1660 struct one_fixup *next;
1661 asection *tsec;
1662 bfd_vma toff;
1663 bfd_vma trampoff;
1664 };
252b5132 1665
deaaf2f3 1666 Elf_Internal_Shdr *symtab_hdr;
252b5132 1667 bfd_byte *contents = NULL;
deaaf2f3 1668 Elf_Internal_Sym *isymbuf = NULL;
252b5132 1669 Elf_Internal_Rela *internal_relocs = NULL;
deaaf2f3 1670 Elf_Internal_Rela *irel, *irelend;
deaaf2f3 1671 struct one_fixup *fixups = NULL;
9abc968f 1672 bfd_boolean changed;
deaaf2f3 1673 struct ppc_elf_link_hash_table *ppc_info;
9abc968f 1674 bfd_size_type trampoff;
252b5132 1675
b34976b6 1676 *again = FALSE;
252b5132 1677
a070c2b1
L
1678 /* Nothing to do if there are no relocations. */
1679 if ((isec->flags & SEC_RELOC) == 0 || isec->reloc_count == 0)
deaaf2f3
EC
1680 return TRUE;
1681
eea6121a 1682 trampoff = (isec->size + 3) & (bfd_vma) -4;
9abc968f
AM
1683 /* Space for a branch around any trampolines. */
1684 trampoff += 4;
1685
deaaf2f3
EC
1686 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1687
1688 /* Get a copy of the native relocations. */
e656e369
AM
1689 internal_relocs = _bfd_elf_link_read_relocs (abfd, isec, NULL, NULL,
1690 link_info->keep_memory);
deaaf2f3
EC
1691 if (internal_relocs == NULL)
1692 goto error_return;
deaaf2f3
EC
1693
1694 ppc_info = ppc_elf_hash_table (link_info);
1695 irelend = internal_relocs + isec->reloc_count;
252b5132 1696
deaaf2f3
EC
1697 for (irel = internal_relocs; irel < irelend; irel++)
1698 {
1699 unsigned long r_type = ELF32_R_TYPE (irel->r_info);
9abc968f 1700 bfd_vma symaddr, reladdr, toff, roff;
deaaf2f3 1701 asection *tsec;
deaaf2f3
EC
1702 struct one_fixup *f;
1703 size_t insn_offset = 0;
9abc968f
AM
1704 bfd_vma max_branch_offset, val;
1705 bfd_byte *hit_addr;
1706 unsigned long t0;
d1c6de6f 1707 unsigned char sym_type;
deaaf2f3
EC
1708
1709 switch (r_type)
8da6118f 1710 {
deaaf2f3
EC
1711 case R_PPC_REL24:
1712 case R_PPC_LOCAL24PC:
9abc968f
AM
1713 case R_PPC_PLTREL24:
1714 max_branch_offset = 1 << 25;
1715 break;
1716
deaaf2f3
EC
1717 case R_PPC_REL14:
1718 case R_PPC_REL14_BRTAKEN:
1719 case R_PPC_REL14_BRNTAKEN:
9abc968f 1720 max_branch_offset = 1 << 15;
deaaf2f3 1721 break;
70bccea4 1722
deaaf2f3
EC
1723 default:
1724 continue;
1725 }
70bccea4 1726
deaaf2f3
EC
1727 /* Get the value of the symbol referred to by the reloc. */
1728 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1729 {
1730 /* A local symbol. */
1731 Elf_Internal_Sym *isym;
1732
1733 /* Read this BFD's local symbols. */
1734 if (isymbuf == NULL)
1735 {
1736 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1737 if (isymbuf == NULL)
1738 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
1739 symtab_hdr->sh_info, 0,
1740 NULL, NULL, NULL);
1741 if (isymbuf == 0)
1742 goto error_return;
70bccea4 1743 }
deaaf2f3
EC
1744 isym = isymbuf + ELF32_R_SYM (irel->r_info);
1745 if (isym->st_shndx == SHN_UNDEF)
4cc11e76 1746 continue; /* We can't do anything with undefined symbols. */
deaaf2f3
EC
1747 else if (isym->st_shndx == SHN_ABS)
1748 tsec = bfd_abs_section_ptr;
1749 else if (isym->st_shndx == SHN_COMMON)
1750 tsec = bfd_com_section_ptr;
e656e369 1751 else
deaaf2f3
EC
1752 tsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
1753
1754 toff = isym->st_value;
d1c6de6f 1755 sym_type = ELF_ST_TYPE (isym->st_info);
8da6118f 1756 }
deaaf2f3 1757 else
70bccea4 1758 {
9abc968f 1759 /* Global symbol handling. */
deaaf2f3
EC
1760 unsigned long indx;
1761 struct elf_link_hash_entry *h;
1762
1763 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
1764 h = elf_sym_hashes (abfd)[indx];
1765
1766 while (h->root.type == bfd_link_hash_indirect
1767 || h->root.type == bfd_link_hash_warning)
1768 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1769
9abc968f
AM
1770 if (r_type == R_PPC_PLTREL24
1771 && ppc_info->plt != NULL
1772 && h->plt.offset != (bfd_vma) -1)
70bccea4 1773 {
9abc968f
AM
1774 tsec = ppc_info->plt;
1775 toff = h->plt.offset;
deaaf2f3 1776 }
9abc968f
AM
1777 else if (h->root.type == bfd_link_hash_defined
1778 || h->root.type == bfd_link_hash_defweak)
deaaf2f3
EC
1779 {
1780 tsec = h->root.u.def.section;
1781 toff = h->root.u.def.value;
1782 }
9abc968f
AM
1783 else
1784 continue;
d1c6de6f
AM
1785
1786 sym_type = h->type;
deaaf2f3
EC
1787 }
1788
9abc968f
AM
1789 /* If the branch and target are in the same section, you have
1790 no hope of adding stubs. We'll error out later should the
1791 branch overflow. */
1792 if (tsec == isec)
1793 continue;
1794
d1c6de6f
AM
1795 /* There probably isn't any reason to handle symbols in
1796 SEC_MERGE sections; SEC_MERGE doesn't seem a likely
1797 attribute for a code section, and we are only looking at
1798 branches. However, implement it correctly here as a
1799 reference for other target relax_section functions. */
1800 if (0 && tsec->sec_info_type == ELF_INFO_TYPE_MERGE)
1801 {
1802 /* At this stage in linking, no SEC_MERGE symbol has been
1803 adjusted, so all references to such symbols need to be
1804 passed through _bfd_merged_section_offset. (Later, in
1805 relocate_section, all SEC_MERGE symbols *except* for
1806 section symbols have been adjusted.)
1807
1808 gas may reduce relocations against symbols in SEC_MERGE
1809 sections to a relocation against the section symbol when
1810 the original addend was zero. When the reloc is against
1811 a section symbol we should include the addend in the
1812 offset passed to _bfd_merged_section_offset, since the
1813 location of interest is the original symbol. On the
1814 other hand, an access to "sym+addend" where "sym" is not
1815 a section symbol should not include the addend; Such an
1816 access is presumed to be an offset from "sym"; The
1817 location of interest is just "sym". */
1818 if (sym_type == STT_SECTION)
1819 toff += irel->r_addend;
1820
1821 toff = _bfd_merged_section_offset (abfd, &tsec,
1822 elf_section_data (tsec)->sec_info,
1823 toff);
1824
1825 if (sym_type != STT_SECTION)
1826 toff += irel->r_addend;
1827 }
1828 else
1829 toff += irel->r_addend;
deaaf2f3
EC
1830
1831 symaddr = tsec->output_section->vma + tsec->output_offset + toff;
1832
1833 roff = irel->r_offset;
51992aec 1834 reladdr = isec->output_section->vma + isec->output_offset + roff;
e656e369
AM
1835
1836 /* If the branch is in range, no need to do anything. */
9abc968f 1837 if (symaddr - reladdr + max_branch_offset < 2 * max_branch_offset)
e656e369
AM
1838 continue;
1839
9abc968f 1840 /* Look for an existing fixup to this address. */
e656e369
AM
1841 for (f = fixups; f ; f = f->next)
1842 if (f->tsec == tsec && f->toff == toff)
1843 break;
deaaf2f3 1844
e656e369
AM
1845 if (f == NULL)
1846 {
1847 size_t size;
f31a141e 1848 unsigned long stub_rtype;
deaaf2f3 1849
9abc968f
AM
1850 val = trampoff - roff;
1851 if (val >= max_branch_offset)
1852 /* Oh dear, we can't reach a trampoline. Don't try to add
1853 one. We'll report an error later. */
1854 continue;
1855
1856 if (link_info->shared)
deaaf2f3 1857 {
9abc968f
AM
1858 size = 4 * ARRAY_SIZE (shared_stub_entry);
1859 insn_offset = 12;
f31a141e 1860 stub_rtype = R_PPC_RELAX32PC;
70bccea4 1861 }
deaaf2f3
EC
1862 else
1863 {
9abc968f
AM
1864 size = 4 * ARRAY_SIZE (stub_entry);
1865 insn_offset = 0;
f31a141e 1866 stub_rtype = R_PPC_RELAX32;
deaaf2f3
EC
1867 }
1868
e656e369
AM
1869 /* Hijack the old relocation. Since we need two
1870 relocations for this use a "composite" reloc. */
1871 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
f31a141e 1872 stub_rtype);
e656e369
AM
1873 irel->r_offset = trampoff + insn_offset;
1874
1875 /* Record the fixup so we don't do it again this section. */
1876 f = bfd_malloc (sizeof (*f));
1877 f->next = fixups;
1878 f->tsec = tsec;
1879 f->toff = toff;
1880 f->trampoff = trampoff;
1881 fixups = f;
9abc968f
AM
1882
1883 trampoff += size;
e656e369
AM
1884 }
1885 else
1886 {
9abc968f
AM
1887 val = f->trampoff - roff;
1888 if (val >= max_branch_offset)
1889 continue;
1890
e656e369
AM
1891 /* Nop out the reloc, since we're finalizing things here. */
1892 irel->r_info = ELF32_R_INFO (0, R_PPC_NONE);
252b5132 1893 }
e656e369 1894
eea6121a
AM
1895 /* Get the section contents. */
1896 if (contents == NULL)
1897 {
1898 /* Get cached copy if it exists. */
1899 if (elf_section_data (isec)->this_hdr.contents != NULL)
1900 contents = elf_section_data (isec)->this_hdr.contents;
1901 else
1902 {
1903 /* Go get them off disk. */
1904 if (!bfd_malloc_and_get_section (abfd, isec, &contents))
1905 goto error_return;
1906 }
1907 }
1908
9abc968f
AM
1909 /* Fix up the existing branch to hit the trampoline. */
1910 hit_addr = contents + roff;
1911 switch (r_type)
1912 {
1913 case R_PPC_REL24:
1914 case R_PPC_LOCAL24PC:
1915 case R_PPC_PLTREL24:
1916 t0 = bfd_get_32 (abfd, hit_addr);
1917 t0 &= ~0x3fffffc;
1918 t0 |= val & 0x3fffffc;
1919 bfd_put_32 (abfd, t0, hit_addr);
1920 break;
e656e369 1921
9abc968f
AM
1922 case R_PPC_REL14:
1923 case R_PPC_REL14_BRTAKEN:
1924 case R_PPC_REL14_BRNTAKEN:
1925 t0 = bfd_get_32 (abfd, hit_addr);
1926 t0 &= ~0xfffc;
1927 t0 |= val & 0xfffc;
1928 bfd_put_32 (abfd, t0, hit_addr);
1929 break;
1930 }
252b5132
RH
1931 }
1932
9abc968f
AM
1933 /* Write out the trampolines. */
1934 changed = fixups != NULL;
1935 if (fixups != NULL)
252b5132 1936 {
9abc968f
AM
1937 const int *stub;
1938 bfd_byte *dest;
1939 bfd_vma val;
1940 int i, size;
1941
1942 do
1943 {
1944 struct one_fixup *f = fixups;
1945 fixups = fixups->next;
1946 free (f);
1947 }
1948 while (fixups);
1949
1950 contents = bfd_realloc (contents, trampoff);
1951 if (contents == NULL)
1952 goto error_return;
1953
eea6121a 1954 isec->size = (isec->size + 3) & (bfd_vma) -4;
9abc968f 1955 /* Branch around the trampolines. */
eea6121a
AM
1956 val = trampoff - isec->size + 0x48000000;
1957 dest = contents + isec->size;
1958 isec->size = trampoff;
9abc968f
AM
1959 bfd_put_32 (abfd, val, dest);
1960 dest += 4;
1961
1962 if (link_info->shared)
1963 {
1964 stub = shared_stub_entry;
1965 size = ARRAY_SIZE (shared_stub_entry);
1966 }
1967 else
1968 {
1969 stub = stub_entry;
1970 size = ARRAY_SIZE (stub_entry);
1971 }
1972
1973 i = 0;
1974 while (dest < contents + trampoff)
1975 {
1976 bfd_put_32 (abfd, stub[i], dest);
1977 i++;
1978 if (i == size)
1979 i = 0;
1980 dest += 4;
1981 }
1982 BFD_ASSERT (i == 0);
252b5132 1983 }
9abc968f 1984
deaaf2f3
EC
1985 if (isymbuf != NULL
1986 && symtab_hdr->contents != (unsigned char *) isymbuf)
252b5132 1987 {
deaaf2f3
EC
1988 if (! link_info->keep_memory)
1989 free (isymbuf);
1990 else
1991 {
1992 /* Cache the symbols for elf_link_input_bfd. */
1993 symtab_hdr->contents = (unsigned char *) isymbuf;
1994 }
252b5132
RH
1995 }
1996
deaaf2f3
EC
1997 if (contents != NULL
1998 && elf_section_data (isec)->this_hdr.contents != contents)
252b5132 1999 {
9abc968f 2000 if (!changed && !link_info->keep_memory)
deaaf2f3 2001 free (contents);
252b5132
RH
2002 else
2003 {
2004 /* Cache the section contents for elf_link_input_bfd. */
2005 elf_section_data (isec)->this_hdr.contents = contents;
2006 }
252b5132
RH
2007 }
2008
deaaf2f3
EC
2009 if (elf_section_data (isec)->relocs != internal_relocs)
2010 {
9abc968f 2011 if (!changed)
deaaf2f3
EC
2012 free (internal_relocs);
2013 else
2014 elf_section_data (isec)->relocs = internal_relocs;
2015 }
2016
9abc968f 2017 *again = changed;
b34976b6 2018 return TRUE;
252b5132 2019
70bccea4 2020 error_return:
deaaf2f3
EC
2021 if (isymbuf != NULL && (unsigned char *) isymbuf != symtab_hdr->contents)
2022 free (isymbuf);
2023 if (contents != NULL
2024 && elf_section_data (isec)->this_hdr.contents != contents)
2025 free (contents);
2026 if (internal_relocs != NULL
2027 && elf_section_data (isec)->relocs != internal_relocs)
2028 free (internal_relocs);
b34976b6 2029 return FALSE;
252b5132 2030}
252b5132
RH
2031\f
2032static reloc_howto_type *
55fd94b0
AM
2033ppc_elf_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
2034 bfd_reloc_code_real_type code)
252b5132 2035{
7619e7c7 2036 enum elf_ppc_reloc_type r;
252b5132 2037
e47cd125 2038 /* Initialize howto table if not already done. */
252b5132 2039 if (!ppc_elf_howto_table[R_PPC_ADDR32])
252b5132
RH
2040 ppc_elf_howto_init ();
2041
55fd94b0 2042 switch (code)
252b5132
RH
2043 {
2044 default:
55fd94b0 2045 return NULL;
252b5132 2046
7619e7c7
AM
2047 case BFD_RELOC_NONE: r = R_PPC_NONE; break;
2048 case BFD_RELOC_32: r = R_PPC_ADDR32; break;
2049 case BFD_RELOC_PPC_BA26: r = R_PPC_ADDR24; break;
2050 case BFD_RELOC_16: r = R_PPC_ADDR16; break;
2051 case BFD_RELOC_LO16: r = R_PPC_ADDR16_LO; break;
2052 case BFD_RELOC_HI16: r = R_PPC_ADDR16_HI; break;
2053 case BFD_RELOC_HI16_S: r = R_PPC_ADDR16_HA; break;
2054 case BFD_RELOC_PPC_BA16: r = R_PPC_ADDR14; break;
2055 case BFD_RELOC_PPC_BA16_BRTAKEN: r = R_PPC_ADDR14_BRTAKEN; break;
2056 case BFD_RELOC_PPC_BA16_BRNTAKEN: r = R_PPC_ADDR14_BRNTAKEN; break;
2057 case BFD_RELOC_PPC_B26: r = R_PPC_REL24; break;
2058 case BFD_RELOC_PPC_B16: r = R_PPC_REL14; break;
2059 case BFD_RELOC_PPC_B16_BRTAKEN: r = R_PPC_REL14_BRTAKEN; break;
2060 case BFD_RELOC_PPC_B16_BRNTAKEN: r = R_PPC_REL14_BRNTAKEN; break;
2061 case BFD_RELOC_16_GOTOFF: r = R_PPC_GOT16; break;
2062 case BFD_RELOC_LO16_GOTOFF: r = R_PPC_GOT16_LO; break;
2063 case BFD_RELOC_HI16_GOTOFF: r = R_PPC_GOT16_HI; break;
2064 case BFD_RELOC_HI16_S_GOTOFF: r = R_PPC_GOT16_HA; break;
2065 case BFD_RELOC_24_PLT_PCREL: r = R_PPC_PLTREL24; break;
2066 case BFD_RELOC_PPC_COPY: r = R_PPC_COPY; break;
2067 case BFD_RELOC_PPC_GLOB_DAT: r = R_PPC_GLOB_DAT; break;
2068 case BFD_RELOC_PPC_LOCAL24PC: r = R_PPC_LOCAL24PC; break;
2069 case BFD_RELOC_32_PCREL: r = R_PPC_REL32; break;
2070 case BFD_RELOC_32_PLTOFF: r = R_PPC_PLT32; break;
2071 case BFD_RELOC_32_PLT_PCREL: r = R_PPC_PLTREL32; break;
2072 case BFD_RELOC_LO16_PLTOFF: r = R_PPC_PLT16_LO; break;
2073 case BFD_RELOC_HI16_PLTOFF: r = R_PPC_PLT16_HI; break;
2074 case BFD_RELOC_HI16_S_PLTOFF: r = R_PPC_PLT16_HA; break;
2075 case BFD_RELOC_GPREL16: r = R_PPC_SDAREL16; break;
2076 case BFD_RELOC_16_BASEREL: r = R_PPC_SECTOFF; break;
2077 case BFD_RELOC_LO16_BASEREL: r = R_PPC_SECTOFF_LO; break;
2078 case BFD_RELOC_HI16_BASEREL: r = R_PPC_SECTOFF_HI; break;
2079 case BFD_RELOC_HI16_S_BASEREL: r = R_PPC_SECTOFF_HA; break;
2080 case BFD_RELOC_CTOR: r = R_PPC_ADDR32; break;
2081 case BFD_RELOC_PPC_TOC16: r = R_PPC_TOC16; break;
2082 case BFD_RELOC_PPC_TLS: r = R_PPC_TLS; break;
2083 case BFD_RELOC_PPC_DTPMOD: r = R_PPC_DTPMOD32; break;
2084 case BFD_RELOC_PPC_TPREL16: r = R_PPC_TPREL16; break;
2085 case BFD_RELOC_PPC_TPREL16_LO: r = R_PPC_TPREL16_LO; break;
2086 case BFD_RELOC_PPC_TPREL16_HI: r = R_PPC_TPREL16_HI; break;
2087 case BFD_RELOC_PPC_TPREL16_HA: r = R_PPC_TPREL16_HA; break;
2088 case BFD_RELOC_PPC_TPREL: r = R_PPC_TPREL32; break;
2089 case BFD_RELOC_PPC_DTPREL16: r = R_PPC_DTPREL16; break;
2090 case BFD_RELOC_PPC_DTPREL16_LO: r = R_PPC_DTPREL16_LO; break;
2091 case BFD_RELOC_PPC_DTPREL16_HI: r = R_PPC_DTPREL16_HI; break;
2092 case BFD_RELOC_PPC_DTPREL16_HA: r = R_PPC_DTPREL16_HA; break;
2093 case BFD_RELOC_PPC_DTPREL: r = R_PPC_DTPREL32; break;
2094 case BFD_RELOC_PPC_GOT_TLSGD16: r = R_PPC_GOT_TLSGD16; break;
2095 case BFD_RELOC_PPC_GOT_TLSGD16_LO: r = R_PPC_GOT_TLSGD16_LO; break;
2096 case BFD_RELOC_PPC_GOT_TLSGD16_HI: r = R_PPC_GOT_TLSGD16_HI; break;
2097 case BFD_RELOC_PPC_GOT_TLSGD16_HA: r = R_PPC_GOT_TLSGD16_HA; break;
2098 case BFD_RELOC_PPC_GOT_TLSLD16: r = R_PPC_GOT_TLSLD16; break;
2099 case BFD_RELOC_PPC_GOT_TLSLD16_LO: r = R_PPC_GOT_TLSLD16_LO; break;
2100 case BFD_RELOC_PPC_GOT_TLSLD16_HI: r = R_PPC_GOT_TLSLD16_HI; break;
2101 case BFD_RELOC_PPC_GOT_TLSLD16_HA: r = R_PPC_GOT_TLSLD16_HA; break;
2102 case BFD_RELOC_PPC_GOT_TPREL16: r = R_PPC_GOT_TPREL16; break;
2103 case BFD_RELOC_PPC_GOT_TPREL16_LO: r = R_PPC_GOT_TPREL16_LO; break;
2104 case BFD_RELOC_PPC_GOT_TPREL16_HI: r = R_PPC_GOT_TPREL16_HI; break;
2105 case BFD_RELOC_PPC_GOT_TPREL16_HA: r = R_PPC_GOT_TPREL16_HA; break;
2106 case BFD_RELOC_PPC_GOT_DTPREL16: r = R_PPC_GOT_DTPREL16; break;
2107 case BFD_RELOC_PPC_GOT_DTPREL16_LO: r = R_PPC_GOT_DTPREL16_LO; break;
2108 case BFD_RELOC_PPC_GOT_DTPREL16_HI: r = R_PPC_GOT_DTPREL16_HI; break;
2109 case BFD_RELOC_PPC_GOT_DTPREL16_HA: r = R_PPC_GOT_DTPREL16_HA; break;
2110 case BFD_RELOC_PPC_EMB_NADDR32: r = R_PPC_EMB_NADDR32; break;
2111 case BFD_RELOC_PPC_EMB_NADDR16: r = R_PPC_EMB_NADDR16; break;
2112 case BFD_RELOC_PPC_EMB_NADDR16_LO: r = R_PPC_EMB_NADDR16_LO; break;
2113 case BFD_RELOC_PPC_EMB_NADDR16_HI: r = R_PPC_EMB_NADDR16_HI; break;
2114 case BFD_RELOC_PPC_EMB_NADDR16_HA: r = R_PPC_EMB_NADDR16_HA; break;
2115 case BFD_RELOC_PPC_EMB_SDAI16: r = R_PPC_EMB_SDAI16; break;
2116 case BFD_RELOC_PPC_EMB_SDA2I16: r = R_PPC_EMB_SDA2I16; break;
2117 case BFD_RELOC_PPC_EMB_SDA2REL: r = R_PPC_EMB_SDA2REL; break;
2118 case BFD_RELOC_PPC_EMB_SDA21: r = R_PPC_EMB_SDA21; break;
2119 case BFD_RELOC_PPC_EMB_MRKREF: r = R_PPC_EMB_MRKREF; break;
2120 case BFD_RELOC_PPC_EMB_RELSEC16: r = R_PPC_EMB_RELSEC16; break;
2121 case BFD_RELOC_PPC_EMB_RELST_LO: r = R_PPC_EMB_RELST_LO; break;
2122 case BFD_RELOC_PPC_EMB_RELST_HI: r = R_PPC_EMB_RELST_HI; break;
2123 case BFD_RELOC_PPC_EMB_RELST_HA: r = R_PPC_EMB_RELST_HA; break;
2124 case BFD_RELOC_PPC_EMB_BIT_FLD: r = R_PPC_EMB_BIT_FLD; break;
2125 case BFD_RELOC_PPC_EMB_RELSDA: r = R_PPC_EMB_RELSDA; break;
2126 case BFD_RELOC_VTABLE_INHERIT: r = R_PPC_GNU_VTINHERIT; break;
2127 case BFD_RELOC_VTABLE_ENTRY: r = R_PPC_GNU_VTENTRY; break;
252b5132
RH
2128 }
2129
55fd94b0 2130 return ppc_elf_howto_table[r];
252b5132
RH
2131};
2132
2133/* Set the howto pointer for a PowerPC ELF reloc. */
2134
2135static void
55fd94b0
AM
2136ppc_elf_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
2137 arelent *cache_ptr,
2138 Elf_Internal_Rela *dst)
252b5132 2139{
e47cd125 2140 /* Initialize howto table if not already done. */
8da6118f 2141 if (!ppc_elf_howto_table[R_PPC_ADDR32])
252b5132
RH
2142 ppc_elf_howto_init ();
2143
2144 BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max);
2145 cache_ptr->howto = ppc_elf_howto_table[ELF32_R_TYPE (dst->r_info)];
2146}
2147
2148/* Handle the R_PPC_ADDR16_HA reloc. */
2149
2150static bfd_reloc_status_type
55fd94b0
AM
2151ppc_elf_addr16_ha_reloc (bfd *abfd ATTRIBUTE_UNUSED,
2152 arelent *reloc_entry,
2153 asymbol *symbol,
2154 void *data ATTRIBUTE_UNUSED,
2155 asection *input_section,
2156 bfd *output_bfd,
2157 char **error_message ATTRIBUTE_UNUSED)
252b5132
RH
2158{
2159 bfd_vma relocation;
eea6121a 2160 bfd_size_type sz;
252b5132
RH
2161
2162 if (output_bfd != NULL)
2163 {
2164 reloc_entry->address += input_section->output_offset;
2165 return bfd_reloc_ok;
2166 }
2167
eea6121a
AM
2168 sz = input_section->rawsize ? input_section->rawsize : input_section->size;
2169 if (reloc_entry->address > sz)
252b5132
RH
2170 return bfd_reloc_outofrange;
2171
2172 if (bfd_is_com_section (symbol->section))
2173 relocation = 0;
2174 else
2175 relocation = symbol->value;
2176
2177 relocation += symbol->section->output_section->vma;
2178 relocation += symbol->section->output_offset;
2179 relocation += reloc_entry->addend;
2180
2181 reloc_entry->addend += (relocation & 0x8000) << 1;
2182
2183 return bfd_reloc_continue;
2184}
2185
7619e7c7 2186static bfd_reloc_status_type
55fd94b0
AM
2187ppc_elf_unhandled_reloc (bfd *abfd,
2188 arelent *reloc_entry,
2189 asymbol *symbol,
2190 void *data,
2191 asection *input_section,
2192 bfd *output_bfd,
2193 char **error_message)
7619e7c7
AM
2194{
2195 /* If this is a relocatable link (output_bfd test tells us), just
2196 call the generic function. Any adjustment will be done at final
2197 link time. */
2198 if (output_bfd != NULL)
2199 return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
2200 input_section, output_bfd, error_message);
2201
2202 if (error_message != NULL)
2203 {
2204 static char buf[60];
55fd94b0 2205 sprintf (buf, _("generic linker can't handle %s"),
7619e7c7
AM
2206 reloc_entry->howto->name);
2207 *error_message = buf;
2208 }
2209 return bfd_reloc_dangerous;
2210}
2211
feee612b
AM
2212/* Fix bad default arch selected for a 32 bit input bfd when the
2213 default is 64 bit. */
2214
b34976b6 2215static bfd_boolean
55fd94b0 2216ppc_elf_object_p (bfd *abfd)
feee612b
AM
2217{
2218 if (abfd->arch_info->the_default && abfd->arch_info->bits_per_word == 64)
2219 {
2220 Elf_Internal_Ehdr *i_ehdr = elf_elfheader (abfd);
2221
2222 if (i_ehdr->e_ident[EI_CLASS] == ELFCLASS32)
2223 {
2224 /* Relies on arch after 64 bit default being 32 bit default. */
2225 abfd->arch_info = abfd->arch_info->next;
2226 BFD_ASSERT (abfd->arch_info->bits_per_word == 32);
2227 }
2228 }
b34976b6 2229 return TRUE;
feee612b
AM
2230}
2231
c3668558 2232/* Function to set whether a module needs the -mrelocatable bit set. */
252b5132 2233
b34976b6 2234static bfd_boolean
55fd94b0 2235ppc_elf_set_private_flags (bfd *abfd, flagword flags)
252b5132
RH
2236{
2237 BFD_ASSERT (!elf_flags_init (abfd)
2238 || elf_elfheader (abfd)->e_flags == flags);
2239
2240 elf_elfheader (abfd)->e_flags = flags;
b34976b6
AM
2241 elf_flags_init (abfd) = TRUE;
2242 return TRUE;
252b5132
RH
2243}
2244
252b5132 2245/* Merge backend specific data from an object file to the output
ae9a127f
NC
2246 object file when linking. */
2247
b34976b6 2248static bfd_boolean
55fd94b0 2249ppc_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
252b5132
RH
2250{
2251 flagword old_flags;
2252 flagword new_flags;
b34976b6 2253 bfd_boolean error;
252b5132 2254
ae9a127f 2255 /* Check if we have the same endianess. */
82e51918 2256 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
b34976b6 2257 return FALSE;
252b5132
RH
2258
2259 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
2260 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
b34976b6 2261 return TRUE;
252b5132
RH
2262
2263 new_flags = elf_elfheader (ibfd)->e_flags;
2264 old_flags = elf_elfheader (obfd)->e_flags;
70bccea4 2265 if (!elf_flags_init (obfd))
252b5132 2266 {
70bccea4 2267 /* First call, no flags set. */
b34976b6 2268 elf_flags_init (obfd) = TRUE;
252b5132
RH
2269 elf_elfheader (obfd)->e_flags = new_flags;
2270 }
2271
70bccea4
AM
2272 /* Compatible flags are ok. */
2273 else if (new_flags == old_flags)
252b5132
RH
2274 ;
2275
70bccea4
AM
2276 /* Incompatible flags. */
2277 else
252b5132 2278 {
70bccea4
AM
2279 /* Warn about -mrelocatable mismatch. Allow -mrelocatable-lib
2280 to be linked with either. */
b34976b6 2281 error = FALSE;
252b5132
RH
2282 if ((new_flags & EF_PPC_RELOCATABLE) != 0
2283 && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
2284 {
b34976b6 2285 error = TRUE;
252b5132 2286 (*_bfd_error_handler)
55fd94b0
AM
2287 (_("%s: compiled with -mrelocatable and linked with "
2288 "modules compiled normally"),
8f615d07 2289 bfd_archive_filename (ibfd));
252b5132
RH
2290 }
2291 else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
2292 && (old_flags & EF_PPC_RELOCATABLE) != 0)
2293 {
b34976b6 2294 error = TRUE;
252b5132 2295 (*_bfd_error_handler)
55fd94b0
AM
2296 (_("%s: compiled normally and linked with "
2297 "modules compiled with -mrelocatable"),
8f615d07 2298 bfd_archive_filename (ibfd));
252b5132
RH
2299 }
2300
2301 /* The output is -mrelocatable-lib iff both the input files are. */
2302 if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
2303 elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
2304
2305 /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
70bccea4 2306 but each input file is either -mrelocatable or -mrelocatable-lib. */
252b5132
RH
2307 if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
2308 && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
2309 && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
2310 elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
2311
70bccea4
AM
2312 /* Do not warn about eabi vs. V.4 mismatch, just or in the bit if
2313 any module uses it. */
252b5132
RH
2314 elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
2315
70bccea4
AM
2316 new_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
2317 old_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
252b5132 2318
ae9a127f 2319 /* Warn about any other mismatches. */
252b5132
RH
2320 if (new_flags != old_flags)
2321 {
b34976b6 2322 error = TRUE;
252b5132 2323 (*_bfd_error_handler)
55fd94b0
AM
2324 (_("%s: uses different e_flags (0x%lx) fields "
2325 "than previous modules (0x%lx)"),
8f615d07 2326 bfd_archive_filename (ibfd), (long) new_flags, (long) old_flags);
252b5132
RH
2327 }
2328
2329 if (error)
2330 {
2331 bfd_set_error (bfd_error_bad_value);
b34976b6 2332 return FALSE;
252b5132
RH
2333 }
2334 }
2335
b34976b6 2336 return TRUE;
252b5132 2337}
252b5132
RH
2338\f
2339/* Handle a PowerPC specific section when reading an object file. This
2340 is called when elfcode.h finds a section with an unknown type. */
2341
b34976b6 2342static bfd_boolean
55fd94b0 2343ppc_elf_section_from_shdr (bfd *abfd, Elf_Internal_Shdr *hdr, const char *name)
252b5132
RH
2344{
2345 asection *newsect;
2346 flagword flags;
2347
2348 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name))
b34976b6 2349 return FALSE;
252b5132
RH
2350
2351 newsect = hdr->bfd_section;
2352 flags = bfd_get_section_flags (abfd, newsect);
2353 if (hdr->sh_flags & SHF_EXCLUDE)
2354 flags |= SEC_EXCLUDE;
2355
2356 if (hdr->sh_type == SHT_ORDERED)
2357 flags |= SEC_SORT_ENTRIES;
2358
2359 bfd_set_section_flags (abfd, newsect, flags);
b34976b6 2360 return TRUE;
252b5132 2361}
252b5132
RH
2362\f
2363/* Set up any other section flags and such that may be necessary. */
2364
b34976b6 2365static bfd_boolean
55fd94b0
AM
2366ppc_elf_fake_sections (bfd *abfd ATTRIBUTE_UNUSED,
2367 Elf_Internal_Shdr *shdr,
2368 asection *asect)
252b5132
RH
2369{
2370 if ((asect->flags & SEC_EXCLUDE) != 0)
2371 shdr->sh_flags |= SHF_EXCLUDE;
2372
2373 if ((asect->flags & SEC_SORT_ENTRIES) != 0)
2374 shdr->sh_type = SHT_ORDERED;
2375
b34976b6 2376 return TRUE;
252b5132 2377}
252b5132 2378\f
3dab13f6
AM
2379/* Find a linker generated pointer with a given addend and type. */
2380
2381static elf_linker_section_pointers_t *
2382elf_find_pointer_linker_section
2383 (elf_linker_section_pointers_t *linker_pointers,
2384 bfd_vma addend,
58111eb7 2385 elf_linker_section_t *lsect)
3dab13f6
AM
2386{
2387 for ( ; linker_pointers != NULL; linker_pointers = linker_pointers->next)
58111eb7 2388 if (lsect == linker_pointers->lsect && addend == linker_pointers->addend)
3dab13f6
AM
2389 return linker_pointers;
2390
2391 return NULL;
2392}
2393\f
2394/* Allocate a pointer to live in a linker created section. */
2395
2396static bfd_boolean
2397elf_create_pointer_linker_section (bfd *abfd,
2398 struct bfd_link_info *info,
2399 elf_linker_section_t *lsect,
2400 struct elf_link_hash_entry *h,
2401 const Elf_Internal_Rela *rel)
2402{
2403 elf_linker_section_pointers_t **ptr_linker_section_ptr = NULL;
2404 elf_linker_section_pointers_t *linker_section_ptr;
2405 unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
2406 bfd_size_type amt;
2407
2408 BFD_ASSERT (lsect != NULL);
2409
2410 /* Is this a global symbol? */
2411 if (h != NULL)
2412 {
58111eb7
AM
2413 struct ppc_elf_link_hash_entry *eh;
2414
3dab13f6 2415 /* Has this symbol already been allocated? If so, our work is done. */
58111eb7
AM
2416 eh = (struct ppc_elf_link_hash_entry *) h;
2417 if (elf_find_pointer_linker_section (eh->linker_section_pointer,
3dab13f6 2418 rel->r_addend,
58111eb7 2419 lsect))
3dab13f6
AM
2420 return TRUE;
2421
58111eb7 2422 ptr_linker_section_ptr = &eh->linker_section_pointer;
3dab13f6
AM
2423 /* Make sure this symbol is output as a dynamic symbol. */
2424 if (h->dynindx == -1)
2425 {
c152c796 2426 if (! bfd_elf_link_record_dynamic_symbol (info, h))
3dab13f6
AM
2427 return FALSE;
2428 }
2429
2430 if (lsect->rel_section)
eea6121a 2431 lsect->rel_section->size += sizeof (Elf32_External_Rela);
3dab13f6
AM
2432 }
2433 else
2434 {
2435 /* Allocation of a pointer to a local symbol. */
2436 elf_linker_section_pointers_t **ptr = elf_local_ptr_offsets (abfd);
2437
2438 /* Allocate a table to hold the local symbols if first time. */
2439 if (!ptr)
2440 {
2441 unsigned int num_symbols = elf_tdata (abfd)->symtab_hdr.sh_info;
3dab13f6
AM
2442
2443 amt = num_symbols;
2444 amt *= sizeof (elf_linker_section_pointers_t *);
58111eb7 2445 ptr = bfd_zalloc (abfd, amt);
3dab13f6
AM
2446
2447 if (!ptr)
2448 return FALSE;
2449
2450 elf_local_ptr_offsets (abfd) = ptr;
3dab13f6
AM
2451 }
2452
2453 /* Has this symbol already been allocated? If so, our work is done. */
2454 if (elf_find_pointer_linker_section (ptr[r_symndx],
2455 rel->r_addend,
58111eb7 2456 lsect))
3dab13f6
AM
2457 return TRUE;
2458
2459 ptr_linker_section_ptr = &ptr[r_symndx];
2460
2461 if (info->shared)
2462 {
2463 /* If we are generating a shared object, we need to
2464 output a R_<xxx>_RELATIVE reloc so that the
2465 dynamic linker can adjust this GOT entry. */
2466 BFD_ASSERT (lsect->rel_section != NULL);
eea6121a 2467 lsect->rel_section->size += sizeof (Elf32_External_Rela);
3dab13f6
AM
2468 }
2469 }
2470
2471 /* Allocate space for a pointer in the linker section, and allocate
2472 a new pointer record from internal memory. */
2473 BFD_ASSERT (ptr_linker_section_ptr != NULL);
2474 amt = sizeof (elf_linker_section_pointers_t);
2475 linker_section_ptr = bfd_alloc (abfd, amt);
2476
2477 if (!linker_section_ptr)
2478 return FALSE;
2479
2480 linker_section_ptr->next = *ptr_linker_section_ptr;
2481 linker_section_ptr->addend = rel->r_addend;
58111eb7 2482 linker_section_ptr->lsect = lsect;
3dab13f6
AM
2483 linker_section_ptr->written_address_p = FALSE;
2484 *ptr_linker_section_ptr = linker_section_ptr;
2485
eea6121a
AM
2486 linker_section_ptr->offset = lsect->section->size;
2487 lsect->section->size += 4;
3dab13f6
AM
2488
2489#ifdef DEBUG
2490 fprintf (stderr,
2491 "Create pointer in linker section %s, offset = %ld, section size = %ld\n",
2492 lsect->name, (long) linker_section_ptr->offset,
eea6121a 2493 (long) lsect->section->size);
3dab13f6
AM
2494#endif
2495
2496 return TRUE;
2497}
2498\f
2499#define bfd_put_ptr(BFD, VAL, ADDR) bfd_put_32 (BFD, VAL, ADDR)
2500
2501/* Fill in the address for a pointer generated in a linker section. */
2502
2503static bfd_vma
2504elf_finish_pointer_linker_section (bfd *output_bfd,
2505 bfd *input_bfd,
2506 struct bfd_link_info *info,
2507 elf_linker_section_t *lsect,
2508 struct elf_link_hash_entry *h,
2509 bfd_vma relocation,
2510 const Elf_Internal_Rela *rel,
2511 int relative_reloc)
2512{
2513 elf_linker_section_pointers_t *linker_section_ptr;
2514
2515 BFD_ASSERT (lsect != NULL);
2516
2517 if (h != NULL)
2518 {
2519 /* Handle global symbol. */
58111eb7
AM
2520 struct ppc_elf_link_hash_entry *eh;
2521
2522 eh = (struct ppc_elf_link_hash_entry *) h;
3dab13f6 2523 linker_section_ptr
58111eb7 2524 = elf_find_pointer_linker_section (eh->linker_section_pointer,
3dab13f6 2525 rel->r_addend,
58111eb7 2526 lsect);
3dab13f6
AM
2527
2528 BFD_ASSERT (linker_section_ptr != NULL);
2529
2530 if (! elf_hash_table (info)->dynamic_sections_created
2531 || (info->shared
2532 && info->symbolic
2533 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR)))
2534 {
2535 /* This is actually a static link, or it is a
2536 -Bsymbolic link and the symbol is defined
2537 locally. We must initialize this entry in the
2538 global section.
2539
2540 When doing a dynamic link, we create a .rela.<xxx>
2541 relocation entry to initialize the value. This
2542 is done in the finish_dynamic_symbol routine. */
2543 if (!linker_section_ptr->written_address_p)
2544 {
2545 linker_section_ptr->written_address_p = TRUE;
2546 bfd_put_ptr (output_bfd,
2547 relocation + linker_section_ptr->addend,
2548 (lsect->section->contents
2549 + linker_section_ptr->offset));
2550 }
2551 }
2552 }
2553 else
2554 {
2555 /* Handle local symbol. */
2556 unsigned long r_symndx = ELF32_R_SYM (rel->r_info);
2557 BFD_ASSERT (elf_local_ptr_offsets (input_bfd) != NULL);
2558 BFD_ASSERT (elf_local_ptr_offsets (input_bfd)[r_symndx] != NULL);
2559 linker_section_ptr = (elf_find_pointer_linker_section
2560 (elf_local_ptr_offsets (input_bfd)[r_symndx],
2561 rel->r_addend,
58111eb7 2562 lsect));
3dab13f6
AM
2563
2564 BFD_ASSERT (linker_section_ptr != NULL);
2565
2566 /* Write out pointer if it hasn't been rewritten out before. */
2567 if (!linker_section_ptr->written_address_p)
2568 {
2569 linker_section_ptr->written_address_p = TRUE;
2570 bfd_put_ptr (output_bfd, relocation + linker_section_ptr->addend,
2571 lsect->section->contents + linker_section_ptr->offset);
2572
2573 if (info->shared)
2574 {
58111eb7
AM
2575 /* We need to generate a relative reloc for the dynamic
2576 linker. */
2577
3dab13f6
AM
2578 asection *srel = lsect->rel_section;
2579 Elf_Internal_Rela outrel[MAX_INT_RELS_PER_EXT_REL];
2580 bfd_byte *erel;
9c5bfbb7 2581 const struct elf_backend_data *bed;
3dab13f6
AM
2582 unsigned int i;
2583
3dab13f6
AM
2584 BFD_ASSERT (srel != NULL);
2585
9c5bfbb7 2586 bed = get_elf_backend_data (output_bfd);
3dab13f6
AM
2587 for (i = 0; i < bed->s->int_rels_per_ext_rel; i++)
2588 {
2589 outrel[i].r_offset = (lsect->section->output_section->vma
2590 + lsect->section->output_offset
2591 + linker_section_ptr->offset);
2592 outrel[i].r_info = 0;
2593 outrel[i].r_addend = 0;
2594 }
2595 outrel[0].r_info = ELF32_R_INFO (0, relative_reloc);
2596 erel = lsect->section->contents;
2597 erel += (elf_section_data (lsect->section)->rel_count++
2598 * sizeof (Elf32_External_Rela));
2599 bfd_elf32_swap_reloca_out (output_bfd, outrel, erel);
2600 }
2601 }
2602 }
2603
2604 relocation = (lsect->section->output_offset
2605 + linker_section_ptr->offset
3dab13f6
AM
2606 - lsect->sym_offset);
2607
2608#ifdef DEBUG
2609 fprintf (stderr,
2610 "Finish pointer in linker section %s, offset = %ld (0x%lx)\n",
2611 lsect->name, (long) relocation, (long) relocation);
2612#endif
2613
2614 /* Subtract out the addend, because it will get added back in by the normal
2615 processing. */
2616 return relocation - linker_section_ptr->addend;
2617}
2618\f
252b5132
RH
2619/* Create a special linker section */
2620static elf_linker_section_t *
55fd94b0
AM
2621ppc_elf_create_linker_section (bfd *abfd,
2622 struct bfd_link_info *info,
2623 enum elf_linker_section_enum which)
252b5132 2624{
252b5132 2625 elf_linker_section_t *lsect;
58111eb7 2626 struct ppc_elf_link_hash_table *htab = ppc_elf_hash_table (info);
8528d62e 2627 asection *s, *sym_sec;
58111eb7
AM
2628 bfd_size_type amt;
2629 flagword flags;
2630 const char *name;
2631 const char *rel_name;
2632 const char *sym_name;
2633 bfd_vma sym_offset;
2634
2635 /* Both of these sections are (technically) created by the user
2636 putting data in them, so they shouldn't be marked
2637 SEC_LINKER_CREATED.
2638
2639 The linker creates them so it has somewhere to attach their
2640 respective symbols. In fact, if they were empty it would
2641 be OK to leave the symbol set to 0 (or any random number), because
2642 the appropriate register should never be used. */
2643 flags = SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY;
2644 sym_offset = 32768;
2645
2646 switch (which)
2647 {
2648 default:
2649 abort ();
2650 return NULL;
252b5132 2651
58111eb7
AM
2652 case LINKER_SECTION_SDATA: /* .sdata/.sbss section */
2653 name = ".sdata";
2654 rel_name = ".rela.sdata";
2655 sym_name = "_SDA_BASE_";
2656 break;
2657
2658 case LINKER_SECTION_SDATA2: /* .sdata2/.sbss2 section */
2659 name = ".sdata2";
2660 rel_name = ".rela.sdata2";
2661 sym_name = "_SDA2_BASE_";
2662 flags |= SEC_READONLY;
2663 break;
2664 }
2665
2666 /* Record the first bfd that needs the special sections. */
2667 if (!htab->elf.dynobj)
2668 htab->elf.dynobj = abfd;
2669
2670 amt = sizeof (elf_linker_section_t);
2671 lsect = bfd_zalloc (htab->elf.dynobj, amt);
252b5132 2672
58111eb7
AM
2673 lsect->sym_offset = sym_offset;
2674
2675 /* See if the sections already exist. */
8528d62e 2676 sym_sec = s = bfd_get_section_by_name (htab->elf.dynobj, name);
58111eb7 2677 if (s == NULL || (s->flags & flags) != flags)
252b5132 2678 {
58111eb7
AM
2679 s = bfd_make_section_anyway (htab->elf.dynobj, name);
2680 if (s == NULL
2681 || !bfd_set_section_flags (htab->elf.dynobj, s, flags))
2682 return NULL;
8528d62e
DJ
2683 if (sym_sec == NULL)
2684 sym_sec = s;
58111eb7
AM
2685 }
2686 lsect->section = s;
252b5132 2687
58111eb7
AM
2688 if (bfd_get_section_alignment (htab->elf.dynobj, s) < 2
2689 && !bfd_set_section_alignment (htab->elf.dynobj, s, 2))
2690 return NULL;
252b5132 2691
eea6121a 2692 s->size = align_power (s->size, 2);
58111eb7
AM
2693
2694#ifdef DEBUG
2695 fprintf (stderr, "Creating section %s, current size = %ld\n",
eea6121a 2696 name, (long) s->size);
58111eb7
AM
2697#endif
2698
2699 if (sym_name)
2700 {
2701 struct elf_link_hash_entry *h;
2702 struct bfd_link_hash_entry *bh;
2703
2704#ifdef DEBUG
2705 fprintf (stderr, "Adding %s to section %s\n", sym_name, name);
2706#endif
2707 bh = bfd_link_hash_lookup (info->hash, sym_name,
2708 FALSE, FALSE, FALSE);
252b5132 2709
58111eb7
AM
2710 if ((bh == NULL || bh->type == bfd_link_hash_undefined)
2711 && !(_bfd_generic_link_add_one_symbol
8528d62e 2712 (info, abfd, sym_name, BSF_GLOBAL, sym_sec, sym_offset, NULL,
58111eb7
AM
2713 FALSE, get_elf_backend_data (abfd)->collect, &bh)))
2714 return NULL;
2715 h = (struct elf_link_hash_entry *) bh;
2716
2717 h->type = STT_OBJECT;
2718 lsect->sym_hash = h;
2719
2720 if (info->shared
c152c796 2721 && ! bfd_elf_link_record_dynamic_symbol (info, h))
58111eb7
AM
2722 return NULL;
2723 }
2724
2725 if (info->shared)
2726 {
2727 s = bfd_make_section_anyway (htab->elf.dynobj, rel_name);
2728 lsect->rel_section = s;
2729 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2730 | SEC_LINKER_CREATED | SEC_READONLY);
2731 if (s == NULL
2732 || ! bfd_set_section_flags (htab->elf.dynobj, s, flags)
2733 || ! bfd_set_section_alignment (htab->elf.dynobj, s, 2))
2734 return NULL;
252b5132
RH
2735 }
2736
2737 return lsect;
2738}
252b5132 2739\f
8da6118f
KH
2740/* If we have a non-zero sized .sbss2 or .PPC.EMB.sbss0 sections, we
2741 need to bump up the number of section headers. */
252b5132
RH
2742
2743static int
55fd94b0 2744ppc_elf_additional_program_headers (bfd *abfd)
252b5132
RH
2745{
2746 asection *s;
2747 int ret;
2748
2749 ret = 0;
2750
2751 s = bfd_get_section_by_name (abfd, ".interp");
2752 if (s != NULL)
2753 ++ret;
2754
2755 s = bfd_get_section_by_name (abfd, ".sbss2");
eea6121a 2756 if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->size > 0)
252b5132
RH
2757 ++ret;
2758
2759 s = bfd_get_section_by_name (abfd, ".PPC.EMB.sbss0");
eea6121a 2760 if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->size > 0)
252b5132
RH
2761 ++ret;
2762
2763 return ret;
2764}
2765
8da6118f 2766/* Modify the segment map if needed. */
252b5132 2767
b34976b6 2768static bfd_boolean
c84fca4d
AO
2769ppc_elf_modify_segment_map (bfd *abfd ATTRIBUTE_UNUSED,
2770 struct bfd_link_info *info ATTRIBUTE_UNUSED)
252b5132 2771{
b34976b6 2772 return TRUE;
252b5132
RH
2773}
2774\f
41fcb14e
AM
2775/* The powerpc .got has a blrl instruction in it. Mark it executable. */
2776
7619e7c7 2777static bfd_boolean
55fd94b0 2778ppc_elf_create_got (bfd *abfd, struct bfd_link_info *info)
41fcb14e 2779{
7619e7c7
AM
2780 struct ppc_elf_link_hash_table *htab;
2781 asection *s;
41fcb14e
AM
2782 flagword flags;
2783
2784 if (!_bfd_elf_create_got_section (abfd, info))
7619e7c7 2785 return FALSE;
41fcb14e 2786
7619e7c7
AM
2787 htab = ppc_elf_hash_table (info);
2788 htab->got = s = bfd_get_section_by_name (abfd, ".got");
41fcb14e
AM
2789 if (s == NULL)
2790 abort ();
2791
2792 flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2793 | SEC_LINKER_CREATED);
2794 if (!bfd_set_section_flags (abfd, s, flags))
7619e7c7
AM
2795 return FALSE;
2796
2797 htab->relgot = bfd_make_section (abfd, ".rela.got");
2798 if (!htab->relgot
2799 || ! bfd_set_section_flags (abfd, htab->relgot,
2800 (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
2801 | SEC_IN_MEMORY | SEC_LINKER_CREATED
2802 | SEC_READONLY))
2803 || ! bfd_set_section_alignment (abfd, htab->relgot, 2))
2804 return FALSE;
2805
2806 return TRUE;
41fcb14e
AM
2807}
2808
252b5132
RH
2809/* We have to create .dynsbss and .rela.sbss here so that they get mapped
2810 to output sections (just like _bfd_elf_create_dynamic_sections has
2811 to create .dynbss and .rela.bss). */
2812
b34976b6 2813static bfd_boolean
55fd94b0 2814ppc_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
252b5132 2815{
7619e7c7
AM
2816 struct ppc_elf_link_hash_table *htab;
2817 asection *s;
252b5132
RH
2818 flagword flags;
2819
3dab13f6
AM
2820 htab = ppc_elf_hash_table (info);
2821
2822 if (htab->got == NULL
2823 && !ppc_elf_create_got (abfd, info))
b34976b6 2824 return FALSE;
41fcb14e 2825
8da6118f 2826 if (!_bfd_elf_create_dynamic_sections (abfd, info))
b34976b6 2827 return FALSE;
252b5132
RH
2828
2829 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2830 | SEC_LINKER_CREATED);
2831
7619e7c7
AM
2832 htab->dynbss = bfd_get_section_by_name (abfd, ".dynbss");
2833 htab->dynsbss = s = bfd_make_section (abfd, ".dynsbss");
252b5132
RH
2834 if (s == NULL
2835 || ! bfd_set_section_flags (abfd, s, SEC_ALLOC))
b34976b6 2836 return FALSE;
252b5132
RH
2837
2838 if (! info->shared)
2839 {
7619e7c7
AM
2840 htab->relbss = bfd_get_section_by_name (abfd, ".rela.bss");
2841 htab->relsbss = s = bfd_make_section (abfd, ".rela.sbss");
252b5132
RH
2842 if (s == NULL
2843 || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)
2844 || ! bfd_set_section_alignment (abfd, s, 2))
b34976b6 2845 return FALSE;
252b5132 2846 }
41fcb14e 2847
7619e7c7
AM
2848 htab->relplt = bfd_get_section_by_name (abfd, ".rela.plt");
2849 htab->plt = s = bfd_get_section_by_name (abfd, ".plt");
41fcb14e
AM
2850 if (s == NULL)
2851 abort ();
2852
2853 flags = SEC_ALLOC | SEC_CODE | SEC_IN_MEMORY | SEC_LINKER_CREATED;
2854 return bfd_set_section_flags (abfd, s, flags);
252b5132
RH
2855}
2856
2857/* Adjust a symbol defined by a dynamic object and referenced by a
2858 regular object. The current definition is in some section of the
2859 dynamic object, but we're not including those sections. We have to
2860 change the definition to something the rest of the link can
2861 understand. */
2862
b34976b6 2863static bfd_boolean
55fd94b0
AM
2864ppc_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
2865 struct elf_link_hash_entry *h)
252b5132 2866{
7619e7c7 2867 struct ppc_elf_link_hash_table *htab;
252b5132
RH
2868 asection *s;
2869 unsigned int power_of_two;
252b5132
RH
2870
2871#ifdef DEBUG
70bccea4
AM
2872 fprintf (stderr, "ppc_elf_adjust_dynamic_symbol called for %s\n",
2873 h->root.root.string);
252b5132
RH
2874#endif
2875
2876 /* Make sure we know what is going on here. */
7619e7c7
AM
2877 htab = ppc_elf_hash_table (info);
2878 BFD_ASSERT (htab->elf.dynobj != NULL
252b5132
RH
2879 && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
2880 || h->weakdef != NULL
2881 || ((h->elf_link_hash_flags
2882 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
2883 && (h->elf_link_hash_flags
2884 & ELF_LINK_HASH_REF_REGULAR) != 0
2885 && (h->elf_link_hash_flags
2886 & ELF_LINK_HASH_DEF_REGULAR) == 0)));
2887
7619e7c7 2888 /* Deal with function syms. */
252b5132
RH
2889 if (h->type == STT_FUNC
2890 || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
2891 {
7619e7c7
AM
2892 /* Clear procedure linkage table information for any symbol that
2893 won't need a .plt entry. */
9c7a29a3 2894 if (h->plt.refcount <= 0
fc0bffd6 2895 || SYMBOL_CALLS_LOCAL (info, h)
9c7a29a3
AM
2896 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2897 && h->root.type == bfd_link_hash_undefweak))
252b5132
RH
2898 {
2899 /* A PLT entry is not required/allowed when:
2900
9c7a29a3
AM
2901 1. We are not using ld.so; because then the PLT entry
2902 can't be set up, so we can't use one. In this case,
2903 ppc_elf_adjust_dynamic_symbol won't even be called.
252b5132 2904
9c7a29a3 2905 2. GC has rendered the entry unused.
252b5132 2906
9c7a29a3
AM
2907 3. We know for certain that a call to this symbol
2908 will go to this object, or will remain undefined. */
252b5132
RH
2909 h->plt.offset = (bfd_vma) -1;
2910 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
252b5132 2911 }
b34976b6 2912 return TRUE;
252b5132 2913 }
bbd7ec4a
AM
2914 else
2915 h->plt.offset = (bfd_vma) -1;
252b5132
RH
2916
2917 /* If this is a weak symbol, and there is a real definition, the
2918 processor independent code will have arranged for us to see the
2919 real definition first, and we can just use the same value. */
2920 if (h->weakdef != NULL)
2921 {
2922 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
2923 || h->weakdef->root.type == bfd_link_hash_defweak);
2924 h->root.u.def.section = h->weakdef->root.u.def.section;
2925 h->root.u.def.value = h->weakdef->root.u.def.value;
a23b6845
AM
2926 if (ELIMINATE_COPY_RELOCS)
2927 h->elf_link_hash_flags
2928 = ((h->elf_link_hash_flags & ~ELF_LINK_NON_GOT_REF)
2929 | (h->weakdef->elf_link_hash_flags & ELF_LINK_NON_GOT_REF));
b34976b6 2930 return TRUE;
252b5132
RH
2931 }
2932
2933 /* This is a reference to a symbol defined by a dynamic object which
2934 is not a function. */
2935
2936 /* If we are creating a shared library, we must presume that the
2937 only references to the symbol are via the global offset table.
2938 For such cases we need not do anything here; the relocations will
2939 be handled correctly by relocate_section. */
2940 if (info->shared)
b34976b6 2941 return TRUE;
252b5132 2942
7619e7c7
AM
2943 /* If there are no references to this symbol that do not use the
2944 GOT, we don't need to generate a copy reloc. */
2945 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0)
2946 return TRUE;
2947
ee05f2fe
AM
2948 if (ELIMINATE_COPY_RELOCS)
2949 {
2950 struct ppc_elf_dyn_relocs *p;
2951 for (p = ppc_elf_hash_entry (h)->dyn_relocs; p != NULL; p = p->next)
2952 {
2953 s = p->sec->output_section;
2954 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2955 break;
2956 }
2957
2958 /* If we didn't find any dynamic relocs in read-only sections, then
2959 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
2960 if (p == NULL)
2961 {
2962 h->elf_link_hash_flags &= ~ELF_LINK_NON_GOT_REF;
2963 return TRUE;
2964 }
2965 }
2966
252b5132
RH
2967 /* We must allocate the symbol in our .dynbss section, which will
2968 become part of the .bss section of the executable. There will be
2969 an entry for this symbol in the .dynsym section. The dynamic
2970 object will contain position independent code, so all references
2971 from the dynamic object to this symbol will go through the global
2972 offset table. The dynamic linker will use the .dynsym entry to
2973 determine the address it must put in the global offset table, so
2974 both the dynamic object and the regular object will refer to the
2975 same memory location for the variable.
2976
2977 Of course, if the symbol is sufficiently small, we must instead
2978 allocate it in .sbss. FIXME: It would be better to do this if and
2979 only if there were actually SDAREL relocs for that symbol. */
2980
7619e7c7
AM
2981 if (h->size <= elf_gp_size (htab->elf.dynobj))
2982 s = htab->dynsbss;
252b5132 2983 else
7619e7c7 2984 s = htab->dynbss;
252b5132
RH
2985 BFD_ASSERT (s != NULL);
2986
2987 /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
2988 copy the initial value out of the dynamic object and into the
2989 runtime process image. We need to remember the offset into the
2990 .rela.bss section we are going to use. */
2991 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
2992 {
2993 asection *srel;
2994
7619e7c7
AM
2995 if (h->size <= elf_gp_size (htab->elf.dynobj))
2996 srel = htab->relsbss;
252b5132 2997 else
7619e7c7 2998 srel = htab->relbss;
252b5132 2999 BFD_ASSERT (srel != NULL);
eea6121a 3000 srel->size += sizeof (Elf32_External_Rela);
252b5132
RH
3001 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
3002 }
3003
3004 /* We need to figure out the alignment required for this symbol. I
3005 have no idea how ELF linkers handle this. */
3006 power_of_two = bfd_log2 (h->size);
3007 if (power_of_two > 4)
3008 power_of_two = 4;
3009
3010 /* Apply the required alignment. */
eea6121a 3011 s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
7619e7c7 3012 if (power_of_two > bfd_get_section_alignment (htab->elf.dynobj, s))
252b5132 3013 {
7619e7c7 3014 if (! bfd_set_section_alignment (htab->elf.dynobj, s, power_of_two))
b34976b6 3015 return FALSE;
252b5132
RH
3016 }
3017
3018 /* Define the symbol as being at this point in the section. */
3019 h->root.u.def.section = s;
eea6121a 3020 h->root.u.def.value = s->size;
252b5132
RH
3021
3022 /* Increment the section size to make room for the symbol. */
eea6121a 3023 s->size += h->size;
252b5132 3024
b34976b6 3025 return TRUE;
252b5132 3026}
252b5132 3027\f
ee05f2fe
AM
3028/* Of those relocs that might be copied as dynamic relocs, this macro
3029 selects those that must be copied when linking a shared library,
3030 even when the symbol is local. */
3031
3032#define MUST_BE_DYN_RELOC(RTYPE) \
3033 ((RTYPE) != R_PPC_REL24 \
3034 && (RTYPE) != R_PPC_REL14 \
3035 && (RTYPE) != R_PPC_REL14_BRTAKEN \
3036 && (RTYPE) != R_PPC_REL14_BRNTAKEN \
3037 && (RTYPE) != R_PPC_REL32)
3038
7fce784e
AS
3039/* Allocate space in associated reloc sections for dynamic relocs. */
3040
7619e7c7 3041static bfd_boolean
55fd94b0 3042allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
7619e7c7 3043{
55fd94b0 3044 struct bfd_link_info *info = inf;
7619e7c7
AM
3045 struct ppc_elf_link_hash_entry *eh;
3046 struct ppc_elf_link_hash_table *htab;
3047 struct ppc_elf_dyn_relocs *p;
3048
3049 if (h->root.type == bfd_link_hash_indirect)
3050 return TRUE;
3051
3052 if (h->root.type == bfd_link_hash_warning)
3053 /* When warning symbols are created, they **replace** the "real"
3054 entry in the hash table, thus we never get to see the real
3055 symbol in a hash traversal. So look at it now. */
3056 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3057
3058 htab = ppc_elf_hash_table (info);
3059 if (htab->elf.dynamic_sections_created
9c7a29a3 3060 && h->plt.refcount > 0)
7619e7c7
AM
3061 {
3062 /* Make sure this symbol is output as a dynamic symbol. */
3063 if (h->dynindx == -1
3064 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
3065 {
c152c796 3066 if (! bfd_elf_link_record_dynamic_symbol (info, h))
7619e7c7
AM
3067 return FALSE;
3068 }
3069
ee05f2fe
AM
3070 if (info->shared
3071 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
7619e7c7
AM
3072 {
3073 asection *s = htab->plt;
3074
3075 /* If this is the first .plt entry, make room for the special
3076 first entry. */
eea6121a
AM
3077 if (s->size == 0)
3078 s->size += PLT_INITIAL_ENTRY_SIZE;
7619e7c7
AM
3079
3080 /* The PowerPC PLT is actually composed of two parts, the
3081 first part is 2 words (for a load and a jump), and then
3082 there is a remaining word available at the end. */
3083 h->plt.offset = (PLT_INITIAL_ENTRY_SIZE
3084 + (PLT_SLOT_SIZE
eea6121a 3085 * ((s->size - PLT_INITIAL_ENTRY_SIZE)
7619e7c7
AM
3086 / PLT_ENTRY_SIZE)));
3087
3088 /* If this symbol is not defined in a regular file, and we
3089 are not generating a shared library, then set the symbol
3090 to this location in the .plt. This is required to make
3091 function pointers compare as equal between the normal
3092 executable and the shared library. */
3093 if (! info->shared
3094 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
3095 {
3096 h->root.u.def.section = s;
3097 h->root.u.def.value = h->plt.offset;
3098 }
3099
3100 /* Make room for this entry. After the 8192nd entry, room
3101 for two entries is allocated. */
eea6121a
AM
3102 s->size += PLT_ENTRY_SIZE;
3103 if ((s->size - PLT_INITIAL_ENTRY_SIZE) / PLT_ENTRY_SIZE
f2c822e3 3104 > PLT_NUM_SINGLE_ENTRIES)
eea6121a 3105 s->size += PLT_ENTRY_SIZE;
7619e7c7
AM
3106
3107 /* We also need to make an entry in the .rela.plt section. */
eea6121a 3108 htab->relplt->size += sizeof (Elf32_External_Rela);
7619e7c7
AM
3109 }
3110 else
3111 {
3112 h->plt.offset = (bfd_vma) -1;
3113 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
3114 }
3115 }
3116 else
3117 {
3118 h->plt.offset = (bfd_vma) -1;
3119 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
3120 }
7fce784e 3121
7619e7c7
AM
3122 eh = (struct ppc_elf_link_hash_entry *) h;
3123 if (eh->elf.got.refcount > 0)
3124 {
3125 /* Make sure this symbol is output as a dynamic symbol. */
3126 if (eh->elf.dynindx == -1
3127 && (eh->elf.elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
3128 {
c152c796 3129 if (!bfd_elf_link_record_dynamic_symbol (info, &eh->elf))
7619e7c7
AM
3130 return FALSE;
3131 }
7fce784e 3132
7619e7c7
AM
3133 if (eh->tls_mask == (TLS_TLS | TLS_LD)
3134 && !(eh->elf.elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC))
3135 /* If just an LD reloc, we'll just use htab->tlsld_got.offset. */
3136 eh->elf.got.offset = (bfd_vma) -1;
3137 else
3138 {
3139 bfd_boolean dyn;
eea6121a 3140 eh->elf.got.offset = htab->got->size;
7619e7c7
AM
3141 if ((eh->tls_mask & TLS_TLS) != 0)
3142 {
70bccea4 3143 if ((eh->tls_mask & TLS_LD) != 0)
eea6121a 3144 htab->got->size += 8;
70bccea4 3145 if ((eh->tls_mask & TLS_GD) != 0)
eea6121a 3146 htab->got->size += 8;
7619e7c7 3147 if ((eh->tls_mask & (TLS_TPREL | TLS_TPRELGD)) != 0)
eea6121a 3148 htab->got->size += 4;
7619e7c7 3149 if ((eh->tls_mask & TLS_DTPREL) != 0)
eea6121a 3150 htab->got->size += 4;
7619e7c7
AM
3151 }
3152 else
eea6121a 3153 htab->got->size += 4;
7619e7c7 3154 dyn = htab->elf.dynamic_sections_created;
4e795f50
AM
3155 if ((info->shared
3156 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, &eh->elf))
3157 && (ELF_ST_VISIBILITY (eh->elf.other) == STV_DEFAULT
3158 || eh->elf.root.type != bfd_link_hash_undefweak))
7619e7c7
AM
3159 {
3160 /* All the entries we allocated need relocs. */
eea6121a
AM
3161 htab->relgot->size
3162 += ((htab->got->size - eh->elf.got.offset) / 4
7619e7c7
AM
3163 * sizeof (Elf32_External_Rela));
3164 /* Except LD only needs one. */
3165 if ((eh->tls_mask & TLS_LD) != 0)
eea6121a 3166 htab->relgot->size -= sizeof (Elf32_External_Rela);
7619e7c7
AM
3167 }
3168 }
3169 }
3170 else
3171 eh->elf.got.offset = (bfd_vma) -1;
7fce784e 3172
ee05f2fe
AM
3173 if (eh->dyn_relocs == NULL)
3174 return TRUE;
3175
3176 /* In the shared -Bsymbolic case, discard space allocated for
3177 dynamic pc-relative relocs against symbols which turn out to be
3178 defined in regular objects. For the normal shared case, discard
3179 space for relocs that have become local due to symbol visibility
3180 changes. */
586119b3 3181
ee05f2fe
AM
3182 if (info->shared)
3183 {
9c7a29a3
AM
3184 /* Relocs that use pc_count are those that appear on a call insn,
3185 or certain REL relocs (see MUST_BE_DYN_RELOC) that can be
3186 generated via assembly. We want calls to protected symbols to
3187 resolve directly to the function rather than going via the plt.
3188 If people want function pointer comparisons to work as expected
55fd94b0 3189 then they should avoid writing weird assembly. */
09695f56 3190 if (SYMBOL_CALLS_LOCAL (info, h))
ee05f2fe
AM
3191 {
3192 struct ppc_elf_dyn_relocs **pp;
3193
3194 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
3195 {
3196 p->count -= p->pc_count;
3197 p->pc_count = 0;
3198 if (p->count == 0)
3199 *pp = p->next;
3200 else
3201 pp = &p->next;
3202 }
3203 }
4e795f50
AM
3204
3205 /* Also discard relocs on undefined weak syms with non-default
3206 visibility. */
3207 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
3208 && h->root.type == bfd_link_hash_undefweak)
3209 eh->dyn_relocs = NULL;
a876ecf9
JJ
3210
3211 /* Make sure undefined weak symbols are output as a dynamic symbol
3212 in PIEs. */
3213 if (info->pie
3214 && eh->dyn_relocs != NULL
3215 && h->dynindx == -1
3216 && h->root.type == bfd_link_hash_undefweak
3217 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
3218 {
c152c796 3219 if (! bfd_elf_link_record_dynamic_symbol (info, h))
a876ecf9
JJ
3220 return FALSE;
3221 }
ee05f2fe
AM
3222 }
3223 else if (ELIMINATE_COPY_RELOCS)
3224 {
3225 /* For the non-shared case, discard space for relocs against
3226 symbols which turn out to need copy relocs or are not
3227 dynamic. */
3228
3229 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
3230 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
3231 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
3232 {
3233 /* Make sure this symbol is output as a dynamic symbol.
3234 Undefined weak syms won't yet be marked as dynamic. */
3235 if (h->dynindx == -1
3236 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
3237 {
c152c796 3238 if (! bfd_elf_link_record_dynamic_symbol (info, h))
ee05f2fe
AM
3239 return FALSE;
3240 }
3241
3242 /* If that succeeded, we know we'll be keeping all the
3243 relocs. */
3244 if (h->dynindx != -1)
3245 goto keep;
3246 }
3247
3248 eh->dyn_relocs = NULL;
3249
3250 keep: ;
3251 }
3252
3253 /* Finally, allocate space. */
7619e7c7 3254 for (p = eh->dyn_relocs; p != NULL; p = p->next)
7fce784e
AS
3255 {
3256 asection *sreloc = elf_section_data (p->sec)->sreloc;
eea6121a 3257 sreloc->size += p->count * sizeof (Elf32_External_Rela);
7fce784e
AS
3258 }
3259
3260 return TRUE;
3261}
3262
3263/* Find any dynamic relocs that apply to read-only sections. */
3264
3265static bfd_boolean
55fd94b0 3266readonly_dynrelocs (struct elf_link_hash_entry *h, void *info)
7fce784e
AS
3267{
3268 struct ppc_elf_dyn_relocs *p;
3269
3270 if (h->root.type == bfd_link_hash_indirect)
3271 return TRUE;
3272
3273 if (h->root.type == bfd_link_hash_warning)
3274 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3275
3276 for (p = ppc_elf_hash_entry (h)->dyn_relocs; p != NULL; p = p->next)
3277 {
3278 asection *s = p->sec->output_section;
3279
3280 if (s != NULL
3281 && ((s->flags & (SEC_READONLY | SEC_ALLOC))
3282 == (SEC_READONLY | SEC_ALLOC)))
3283 {
3284 ((struct bfd_link_info *) info)->flags |= DF_TEXTREL;
3285
3286 /* Not an error, just cut short the traversal. */
3287 return FALSE;
3288 }
3289 }
3290 return TRUE;
3291}
3292
252b5132
RH
3293/* Set the sizes of the dynamic sections. */
3294
b34976b6 3295static bfd_boolean
55fd94b0
AM
3296ppc_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
3297 struct bfd_link_info *info)
252b5132 3298{
7619e7c7 3299 struct ppc_elf_link_hash_table *htab;
252b5132 3300 asection *s;
b34976b6 3301 bfd_boolean relocs;
7fce784e 3302 bfd *ibfd;
252b5132
RH
3303
3304#ifdef DEBUG
3305 fprintf (stderr, "ppc_elf_size_dynamic_sections called\n");
3306#endif
3307
7619e7c7
AM
3308 htab = ppc_elf_hash_table (info);
3309 BFD_ASSERT (htab->elf.dynobj != NULL);
252b5132
RH
3310
3311 if (elf_hash_table (info)->dynamic_sections_created)
3312 {
3313 /* Set the contents of the .interp section to the interpreter. */
36af4a4e 3314 if (info->executable)
252b5132 3315 {
7619e7c7 3316 s = bfd_get_section_by_name (htab->elf.dynobj, ".interp");
252b5132 3317 BFD_ASSERT (s != NULL);
eea6121a 3318 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
252b5132
RH
3319 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
3320 }
3321 }
7619e7c7
AM
3322
3323 if (htab->tlsld_got.refcount > 0)
252b5132 3324 {
eea6121a
AM
3325 htab->tlsld_got.offset = htab->got->size;
3326 htab->got->size += 8;
7619e7c7 3327 if (info->shared)
eea6121a 3328 htab->relgot->size += sizeof (Elf32_External_Rela);
252b5132 3329 }
7619e7c7
AM
3330 else
3331 htab->tlsld_got.offset = (bfd_vma) -1;
252b5132 3332
7619e7c7
AM
3333 /* Set up .got offsets for local syms, and space for local dynamic
3334 relocs. */
7fce784e
AS
3335 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
3336 {
7619e7c7
AM
3337 bfd_signed_vma *local_got;
3338 bfd_signed_vma *end_local_got;
3339 char *lgot_masks;
3340 bfd_size_type locsymcount;
3341 Elf_Internal_Shdr *symtab_hdr;
3342 asection *srel;
3343
7fce784e
AS
3344 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
3345 continue;
3346
3347 for (s = ibfd->sections; s != NULL; s = s->next)
3348 {
3349 struct ppc_elf_dyn_relocs *p;
3350
3351 for (p = ((struct ppc_elf_dyn_relocs *)
70bccea4
AM
3352 elf_section_data (s)->local_dynrel);
3353 p != NULL;
3354 p = p->next)
7fce784e
AS
3355 {
3356 if (!bfd_is_abs_section (p->sec)
3357 && bfd_is_abs_section (p->sec->output_section))
3358 {
3359 /* Input section has been discarded, either because
3360 it is a copy of a linkonce section or due to
3361 linker script /DISCARD/, so we'll be discarding
3362 the relocs too. */
3363 }
3364 else if (p->count != 0)
3365 {
eea6121a 3366 elf_section_data (p->sec)->sreloc->size
7fce784e
AS
3367 += p->count * sizeof (Elf32_External_Rela);
3368 if ((p->sec->output_section->flags
3369 & (SEC_READONLY | SEC_ALLOC))
3370 == (SEC_READONLY | SEC_ALLOC))
3371 info->flags |= DF_TEXTREL;
3372 }
3373 }
3374 }
7619e7c7
AM
3375
3376 local_got = elf_local_got_refcounts (ibfd);
3377 if (!local_got)
3378 continue;
3379
3380 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
3381 locsymcount = symtab_hdr->sh_info;
3382 end_local_got = local_got + locsymcount;
3383 lgot_masks = (char *) end_local_got;
3384 s = htab->got;
3385 srel = htab->relgot;
3386 for (; local_got < end_local_got; ++local_got, ++lgot_masks)
3387 if (*local_got > 0)
3388 {
3389 if (*lgot_masks == (TLS_TLS | TLS_LD))
3390 {
3391 /* If just an LD reloc, we'll just use
3392 htab->tlsld_got.offset. */
3393 if (htab->tlsld_got.offset == (bfd_vma) -1)
3394 {
eea6121a
AM
3395 htab->tlsld_got.offset = s->size;
3396 s->size += 8;
7619e7c7 3397 if (info->shared)
eea6121a 3398 srel->size += sizeof (Elf32_External_Rela);
7619e7c7
AM
3399 }
3400 *local_got = (bfd_vma) -1;
3401 }
3402 else
3403 {
eea6121a 3404 *local_got = s->size;
7619e7c7
AM
3405 if ((*lgot_masks & TLS_TLS) != 0)
3406 {
3407 if ((*lgot_masks & TLS_GD) != 0)
eea6121a 3408 s->size += 8;
7619e7c7 3409 if ((*lgot_masks & (TLS_TPREL | TLS_TPRELGD)) != 0)
eea6121a 3410 s->size += 4;
7619e7c7 3411 if ((*lgot_masks & TLS_DTPREL) != 0)
eea6121a 3412 s->size += 4;
7619e7c7
AM
3413 }
3414 else
eea6121a 3415 s->size += 4;
7619e7c7 3416 if (info->shared)
eea6121a
AM
3417 srel->size += ((s->size - *local_got) / 4
3418 * sizeof (Elf32_External_Rela));
7619e7c7
AM
3419 }
3420 }
3421 else
3422 *local_got = (bfd_vma) -1;
7fce784e
AS
3423 }
3424
3425 /* Allocate space for global sym dynamic relocs. */
7619e7c7 3426 elf_link_hash_traverse (elf_hash_table (info), allocate_dynrelocs, info);
7fce784e 3427
7619e7c7
AM
3428 /* We've now determined the sizes of the various dynamic sections.
3429 Allocate memory for them. */
b34976b6 3430 relocs = FALSE;
7619e7c7 3431 for (s = htab->elf.dynobj->sections; s != NULL; s = s->next)
252b5132 3432 {
252b5132
RH
3433 if ((s->flags & SEC_LINKER_CREATED) == 0)
3434 continue;
3435
7619e7c7
AM
3436 if (s == htab->plt
3437 || s == htab->got
3438 || (htab->sdata != NULL && s == htab->sdata->section)
3439 || (htab->sdata2 != NULL && s == htab->sdata2->section))
252b5132 3440 {
7619e7c7
AM
3441 /* Strip this section if we don't need it; see the
3442 comment below. */
252b5132 3443 }
7619e7c7 3444 else if (strncmp (bfd_get_section_name (dynobj, s), ".rela", 5) == 0)
252b5132 3445 {
eea6121a 3446 if (s->size == 0)
252b5132
RH
3447 {
3448 /* If we don't need this section, strip it from the
3449 output file. This is mostly to handle .rela.bss and
3450 .rela.plt. We must create both sections in
3451 create_dynamic_sections, because they must be created
3452 before the linker maps input sections to output
3453 sections. The linker does that before
3454 adjust_dynamic_symbol is called, and it is that
3455 function which decides whether anything needs to go
3456 into these sections. */
252b5132
RH
3457 }
3458 else
3459 {
c3668558 3460 /* Remember whether there are any relocation sections. */
b34976b6 3461 relocs = TRUE;
252b5132 3462
252b5132
RH
3463 /* We use the reloc_count field as a counter if we need
3464 to copy relocs into the output file. */
3465 s->reloc_count = 0;
3466 }
3467 }
7619e7c7 3468 else
252b5132
RH
3469 {
3470 /* It's not one of our sections, so don't allocate space. */
3471 continue;
3472 }
3473
eea6121a 3474 if (s->size == 0)
252b5132 3475 {
7f8d5fc9 3476 _bfd_strip_section_from_output (info, s);
252b5132
RH
3477 continue;
3478 }
3479
3480 /* Allocate memory for the section contents. */
eea6121a 3481 s->contents = bfd_zalloc (htab->elf.dynobj, s->size);
7619e7c7 3482 if (s->contents == NULL)
b34976b6 3483 return FALSE;
252b5132
RH
3484 }
3485
7619e7c7 3486 if (htab->elf.dynamic_sections_created)
252b5132
RH
3487 {
3488 /* Add some entries to the .dynamic section. We fill in the
3489 values later, in ppc_elf_finish_dynamic_sections, but we
3490 must add the entries now so that we get the correct size for
3491 the .dynamic section. The DT_DEBUG entry is filled in by the
3492 dynamic linker and used by the debugger. */
dc810e39 3493#define add_dynamic_entry(TAG, VAL) \
5a580b3a 3494 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
dc810e39 3495
36af4a4e 3496 if (info->executable)
252b5132 3497 {
dc810e39 3498 if (!add_dynamic_entry (DT_DEBUG, 0))
b34976b6 3499 return FALSE;
252b5132
RH
3500 }
3501
eea6121a 3502 if (htab->plt != NULL && htab->plt->size != 0)
252b5132 3503 {
dc810e39
AM
3504 if (!add_dynamic_entry (DT_PLTGOT, 0)
3505 || !add_dynamic_entry (DT_PLTRELSZ, 0)
3506 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3507 || !add_dynamic_entry (DT_JMPREL, 0))
b34976b6 3508 return FALSE;
252b5132
RH
3509 }
3510
3511 if (relocs)
3512 {
dc810e39
AM
3513 if (!add_dynamic_entry (DT_RELA, 0)
3514 || !add_dynamic_entry (DT_RELASZ, 0)
3515 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
b34976b6 3516 return FALSE;
252b5132
RH
3517 }
3518
7fce784e
AS
3519 /* If any dynamic relocs apply to a read-only section, then we
3520 need a DT_TEXTREL entry. */
3521 if ((info->flags & DF_TEXTREL) == 0)
3522 elf_link_hash_traverse (elf_hash_table (info), readonly_dynrelocs,
55fd94b0 3523 info);
7fce784e 3524
29c2fb7c 3525 if ((info->flags & DF_TEXTREL) != 0)
252b5132 3526 {
dc810e39 3527 if (!add_dynamic_entry (DT_TEXTREL, 0))
b34976b6 3528 return FALSE;
252b5132
RH
3529 }
3530 }
dc810e39 3531#undef add_dynamic_entry
252b5132 3532
b34976b6 3533 return TRUE;
252b5132 3534}
252b5132 3535\f
7619e7c7 3536static bfd_boolean
55fd94b0
AM
3537update_local_sym_info (bfd *abfd,
3538 Elf_Internal_Shdr *symtab_hdr,
3539 unsigned long r_symndx,
3540 int tls_type)
7619e7c7
AM
3541{
3542 bfd_signed_vma *local_got_refcounts = elf_local_got_refcounts (abfd);
3543 char *local_got_tls_masks;
3544
3545 if (local_got_refcounts == NULL)
3546 {
3547 bfd_size_type size = symtab_hdr->sh_info;
3548
3549 size *= sizeof (*local_got_refcounts) + sizeof (*local_got_tls_masks);
55fd94b0 3550 local_got_refcounts = bfd_zalloc (abfd, size);
7619e7c7
AM
3551 if (local_got_refcounts == NULL)
3552 return FALSE;
3553 elf_local_got_refcounts (abfd) = local_got_refcounts;
3554 }
3555
3556 local_got_refcounts[r_symndx] += 1;
3557 local_got_tls_masks = (char *) (local_got_refcounts + symtab_hdr->sh_info);
3558 local_got_tls_masks[r_symndx] |= tls_type;
3559 return TRUE;
3560}
3561
3562static void
55fd94b0 3563bad_shared_reloc (bfd *abfd, enum elf_ppc_reloc_type r_type)
7619e7c7
AM
3564{
3565 (*_bfd_error_handler)
3566 (_("%s: relocation %s cannot be used when making a shared object"),
3567 bfd_archive_filename (abfd),
55fd94b0 3568 ppc_elf_howto_table[r_type]->name);
7619e7c7
AM
3569 bfd_set_error (bfd_error_bad_value);
3570}
3571
252b5132
RH
3572/* Look through the relocs for a section during the first phase, and
3573 allocate space in the global offset table or procedure linkage
3574 table. */
3575
b34976b6 3576static bfd_boolean
55fd94b0
AM
3577ppc_elf_check_relocs (bfd *abfd,
3578 struct bfd_link_info *info,
3579 asection *sec,
3580 const Elf_Internal_Rela *relocs)
252b5132 3581{
7619e7c7 3582 struct ppc_elf_link_hash_table *htab;
252b5132 3583 Elf_Internal_Shdr *symtab_hdr;
7619e7c7 3584 struct elf_link_hash_entry **sym_hashes;
252b5132
RH
3585 const Elf_Internal_Rela *rel;
3586 const Elf_Internal_Rela *rel_end;
252b5132 3587 asection *sreloc;
252b5132 3588
1049f94e 3589 if (info->relocatable)
b34976b6 3590 return TRUE;
252b5132
RH
3591
3592#ifdef DEBUG
3593 fprintf (stderr, "ppc_elf_check_relocs called for section %s in %s\n",
3594 bfd_get_section_name (abfd, sec),
8f615d07 3595 bfd_archive_filename (abfd));
252b5132
RH
3596#endif
3597
e47cd125
AM
3598 /* Initialize howto table if not already done. */
3599 if (!ppc_elf_howto_table[R_PPC_ADDR32])
3600 ppc_elf_howto_init ();
3601
252b5132
RH
3602 /* Create the linker generated sections all the time so that the
3603 special symbols are created. */
7619e7c7
AM
3604 htab = ppc_elf_hash_table (info);
3605 if (htab->sdata == NULL)
252b5132 3606 {
58111eb7
AM
3607 htab->sdata = ppc_elf_create_linker_section (abfd, info,
3608 LINKER_SECTION_SDATA);
7619e7c7 3609 if (htab->sdata == NULL)
b34976b6 3610 return FALSE;
252b5132
RH
3611 }
3612
7619e7c7 3613 if (htab->sdata2 == NULL)
252b5132 3614 {
58111eb7
AM
3615 htab->sdata2 = ppc_elf_create_linker_section (abfd, info,
3616 LINKER_SECTION_SDATA2);
7619e7c7 3617 if (htab->sdata2 == NULL)
b34976b6 3618 return FALSE;
252b5132
RH
3619 }
3620
252b5132 3621 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
252b5132 3622 sym_hashes = elf_sym_hashes (abfd);
252b5132
RH
3623 sreloc = NULL;
3624
3625 rel_end = relocs + sec->reloc_count;
3626 for (rel = relocs; rel < rel_end; rel++)
3627 {
3628 unsigned long r_symndx;
7619e7c7 3629 enum elf_ppc_reloc_type r_type;
252b5132 3630 struct elf_link_hash_entry *h;
7619e7c7 3631 int tls_type = 0;
252b5132
RH
3632
3633 r_symndx = ELF32_R_SYM (rel->r_info);
3634 if (r_symndx < symtab_hdr->sh_info)
3635 h = NULL;
3636 else
3637 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3638
3639 /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
3640 This shows up in particular in an R_PPC_ADDR32 in the eabi
3641 startup code. */
3642 if (h && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3643 {
7619e7c7 3644 if (htab->got == NULL)
252b5132 3645 {
7619e7c7
AM
3646 if (htab->elf.dynobj == NULL)
3647 htab->elf.dynobj = abfd;
3648 if (!ppc_elf_create_got (htab->elf.dynobj, info))
b34976b6 3649 return FALSE;
252b5132
RH
3650 }
3651 }
3652
55fd94b0 3653 r_type = ELF32_R_TYPE (rel->r_info);
7619e7c7 3654 switch (r_type)
252b5132 3655 {
7619e7c7
AM
3656 case R_PPC_GOT_TLSLD16:
3657 case R_PPC_GOT_TLSLD16_LO:
3658 case R_PPC_GOT_TLSLD16_HI:
3659 case R_PPC_GOT_TLSLD16_HA:
3660 htab->tlsld_got.refcount += 1;
3661 tls_type = TLS_TLS | TLS_LD;
3662 goto dogottls;
3663
3664 case R_PPC_GOT_TLSGD16:
3665 case R_PPC_GOT_TLSGD16_LO:
3666 case R_PPC_GOT_TLSGD16_HI:
3667 case R_PPC_GOT_TLSGD16_HA:
3668 tls_type = TLS_TLS | TLS_GD;
3669 goto dogottls;
3670
3671 case R_PPC_GOT_TPREL16:
3672 case R_PPC_GOT_TPREL16_LO:
3673 case R_PPC_GOT_TPREL16_HI:
3674 case R_PPC_GOT_TPREL16_HA:
3675 if (info->shared)
3676 info->flags |= DF_STATIC_TLS;
3677 tls_type = TLS_TLS | TLS_TPREL;
3678 goto dogottls;
3679
3680 case R_PPC_GOT_DTPREL16:
3681 case R_PPC_GOT_DTPREL16_LO:
3682 case R_PPC_GOT_DTPREL16_HI:
3683 case R_PPC_GOT_DTPREL16_HA:
3684 tls_type = TLS_TLS | TLS_DTPREL;
3685 dogottls:
3686 sec->has_tls_reloc = 1;
3687 /* Fall thru */
3688
70bccea4 3689 /* GOT16 relocations */
252b5132
RH
3690 case R_PPC_GOT16:
3691 case R_PPC_GOT16_LO:
3692 case R_PPC_GOT16_HI:
3693 case R_PPC_GOT16_HA:
3694 /* This symbol requires a global offset table entry. */
7619e7c7 3695 if (htab->got == NULL)
252b5132 3696 {
7619e7c7
AM
3697 if (htab->elf.dynobj == NULL)
3698 htab->elf.dynobj = abfd;
3699 if (!ppc_elf_create_got (htab->elf.dynobj, info))
b34976b6 3700 return FALSE;
252b5132 3701 }
252b5132
RH
3702 if (h != NULL)
3703 {
7619e7c7
AM
3704 h->got.refcount += 1;
3705 ppc_elf_hash_entry (h)->tls_mask |= tls_type;
252b5132
RH
3706 }
3707 else
7619e7c7
AM
3708 /* This is a global offset table entry for a local symbol. */
3709 if (!update_local_sym_info (abfd, symtab_hdr, r_symndx, tls_type))
3710 return FALSE;
252b5132
RH
3711 break;
3712
70bccea4 3713 /* Indirect .sdata relocation. */
252b5132
RH
3714 case R_PPC_EMB_SDAI16:
3715 if (info->shared)
3716 {
7619e7c7 3717 bad_shared_reloc (abfd, r_type);
b34976b6 3718 return FALSE;
252b5132 3719 }
3dab13f6
AM
3720 if (!elf_create_pointer_linker_section (abfd, info,
3721 htab->sdata, h, rel))
b34976b6 3722 return FALSE;
252b5132
RH
3723 break;
3724
70bccea4 3725 /* Indirect .sdata2 relocation. */
252b5132
RH
3726 case R_PPC_EMB_SDA2I16:
3727 if (info->shared)
3728 {
7619e7c7 3729 bad_shared_reloc (abfd, r_type);
b34976b6 3730 return FALSE;
252b5132 3731 }
3dab13f6
AM
3732 if (!elf_create_pointer_linker_section (abfd, info,
3733 htab->sdata2, h, rel))
b34976b6 3734 return FALSE;
252b5132
RH
3735 break;
3736
3737 case R_PPC_SDAREL16:
3738 case R_PPC_EMB_SDA2REL:
3739 case R_PPC_EMB_SDA21:
7619e7c7
AM
3740 case R_PPC_EMB_RELSDA:
3741 case R_PPC_EMB_NADDR32:
3742 case R_PPC_EMB_NADDR16:
3743 case R_PPC_EMB_NADDR16_LO:
3744 case R_PPC_EMB_NADDR16_HI:
3745 case R_PPC_EMB_NADDR16_HA:
252b5132
RH
3746 if (info->shared)
3747 {
7619e7c7 3748 bad_shared_reloc (abfd, r_type);
b34976b6 3749 return FALSE;
252b5132
RH
3750 }
3751 break;
3752
3753 case R_PPC_PLT32:
3754 case R_PPC_PLTREL24:
7619e7c7 3755 case R_PPC_PLTREL32:
252b5132
RH
3756 case R_PPC_PLT16_LO:
3757 case R_PPC_PLT16_HI:
3758 case R_PPC_PLT16_HA:
3759#ifdef DEBUG
3760 fprintf (stderr, "Reloc requires a PLT entry\n");
3761#endif
3762 /* This symbol requires a procedure linkage table entry. We
70bccea4
AM
3763 actually build the entry in finish_dynamic_symbol,
3764 because this might be a case of linking PIC code without
3765 linking in any dynamic objects, in which case we don't
3766 need to generate a procedure linkage table after all. */
252b5132
RH
3767
3768 if (h == NULL)
3769 {
3770 /* It does not make sense to have a procedure linkage
70bccea4 3771 table entry for a local symbol. */
d85f2c7d
AM
3772 (*_bfd_error_handler) (_("%s(%s+0x%lx): %s reloc against "
3773 "local symbol"),
3774 bfd_archive_filename (abfd),
3775 sec->name,
3776 (long) rel->r_offset,
3777 ppc_elf_howto_table[r_type]->name);
252b5132 3778 bfd_set_error (bfd_error_bad_value);
b34976b6 3779 return FALSE;
252b5132
RH
3780 }
3781
51b64d56
AM
3782 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
3783 h->plt.refcount++;
252b5132
RH
3784 break;
3785
3786 /* The following relocations don't need to propagate the
3787 relocation if linking a shared object since they are
3788 section relative. */
3789 case R_PPC_SECTOFF:
3790 case R_PPC_SECTOFF_LO:
3791 case R_PPC_SECTOFF_HI:
3792 case R_PPC_SECTOFF_HA:
7619e7c7
AM
3793 case R_PPC_DTPREL16:
3794 case R_PPC_DTPREL16_LO:
3795 case R_PPC_DTPREL16_HI:
3796 case R_PPC_DTPREL16_HA:
3797 case R_PPC_TOC16:
3798 break;
3799
3800 /* This are just markers. */
3801 case R_PPC_TLS:
3802 case R_PPC_EMB_MRKREF:
3803 case R_PPC_NONE:
3804 case R_PPC_max:
3805 break;
3806
3807 /* These should only appear in dynamic objects. */
3808 case R_PPC_COPY:
3809 case R_PPC_GLOB_DAT:
3810 case R_PPC_JMP_SLOT:
3811 case R_PPC_RELATIVE:
3812 break;
3813
3814 /* These aren't handled yet. We'll report an error later. */
3815 case R_PPC_ADDR30:
3816 case R_PPC_EMB_RELSEC16:
3817 case R_PPC_EMB_RELST_LO:
3818 case R_PPC_EMB_RELST_HI:
3819 case R_PPC_EMB_RELST_HA:
3820 case R_PPC_EMB_BIT_FLD:
252b5132
RH
3821 break;
3822
ae9a127f 3823 /* This refers only to functions defined in the shared library. */
252b5132
RH
3824 case R_PPC_LOCAL24PC:
3825 break;
3826
3827 /* This relocation describes the C++ object vtable hierarchy.
3828 Reconstruct it for later use during GC. */
3829 case R_PPC_GNU_VTINHERIT:
c152c796 3830 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
b34976b6 3831 return FALSE;
252b5132
RH
3832 break;
3833
3834 /* This relocation describes which C++ vtable entries are actually
3835 used. Record for later use during GC. */
3836 case R_PPC_GNU_VTENTRY:
c152c796 3837 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
b34976b6 3838 return FALSE;
252b5132
RH
3839 break;
3840
7619e7c7
AM
3841 /* We shouldn't really be seeing these. */
3842 case R_PPC_TPREL32:
3843 if (info->shared)
3844 info->flags |= DF_STATIC_TLS;
3845 goto dodyn;
3846
3847 /* Nor these. */
3848 case R_PPC_DTPMOD32:
3849 case R_PPC_DTPREL32:
3850 goto dodyn;
3851
3852 case R_PPC_TPREL16:
3853 case R_PPC_TPREL16_LO:
3854 case R_PPC_TPREL16_HI:
3855 case R_PPC_TPREL16_HA:
3856 if (info->shared)
3857 info->flags |= DF_STATIC_TLS;
3858 goto dodyn;
3859
252b5132
RH
3860 /* When creating a shared object, we must copy these
3861 relocs into the output file. We create a reloc
3862 section in dynobj and make room for the reloc. */
3863 case R_PPC_REL24:
3864 case R_PPC_REL14:
3865 case R_PPC_REL14_BRTAKEN:
3866 case R_PPC_REL14_BRNTAKEN:
3867 case R_PPC_REL32:
3868 if (h == NULL
2b98e6c0 3869 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
252b5132
RH
3870 break;
3871 /* fall through */
3872
7619e7c7
AM
3873 case R_PPC_ADDR32:
3874 case R_PPC_ADDR24:
3875 case R_PPC_ADDR16:
3876 case R_PPC_ADDR16_LO:
3877 case R_PPC_ADDR16_HI:
3878 case R_PPC_ADDR16_HA:
3879 case R_PPC_ADDR14:
3880 case R_PPC_ADDR14_BRTAKEN:
3881 case R_PPC_ADDR14_BRNTAKEN:
3882 case R_PPC_UADDR32:
3883 case R_PPC_UADDR16:
3884 if (h != NULL && !info->shared)
3885 {
3886 /* We may need a plt entry if the symbol turns out to be
3887 a function defined in a dynamic object. */
3888 h->plt.refcount++;
3889
3890 /* We may need a copy reloc too. */
3891 h->elf_link_hash_flags |= ELF_LINK_NON_GOT_REF;
3892 }
ee05f2fe 3893
7619e7c7 3894 dodyn:
ee05f2fe
AM
3895 /* If we are creating a shared library, and this is a reloc
3896 against a global symbol, or a non PC relative reloc
3897 against a local symbol, then we need to copy the reloc
3898 into the shared library. However, if we are linking with
3899 -Bsymbolic, we do not need to copy a reloc against a
3900 global symbol which is defined in an object we are
3901 including in the link (i.e., DEF_REGULAR is set). At
3902 this point we have not seen all the input files, so it is
3903 possible that DEF_REGULAR is not set now but will be set
3904 later (it is never cleared). In case of a weak definition,
3905 DEF_REGULAR may be cleared later by a strong definition in
3906 a shared library. We account for that possibility below by
3907 storing information in the dyn_relocs field of the hash
3908 table entry. A similar situation occurs when creating
3909 shared libraries and symbol visibility changes render the
3910 symbol local.
3911
3912 If on the other hand, we are creating an executable, we
3913 may need to keep relocations for symbols satisfied by a
3914 dynamic library if we manage to avoid copy relocs for the
3915 symbol. */
3916 if ((info->shared
3917 && (MUST_BE_DYN_RELOC (r_type)
3918 || (h != NULL
3919 && (! info->symbolic
3920 || h->root.type == bfd_link_hash_defweak
3921 || (h->elf_link_hash_flags
3922 & ELF_LINK_HASH_DEF_REGULAR) == 0))))
3923 || (ELIMINATE_COPY_RELOCS
3924 && !info->shared
3925 && (sec->flags & SEC_ALLOC) != 0
3926 && h != NULL
3927 && (h->root.type == bfd_link_hash_defweak
3928 || (h->elf_link_hash_flags
3929 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
252b5132 3930 {
7fce784e
AS
3931 struct ppc_elf_dyn_relocs *p;
3932 struct ppc_elf_dyn_relocs **head;
3933
252b5132 3934#ifdef DEBUG
55fd94b0
AM
3935 fprintf (stderr,
3936 "ppc_elf_check_relocs needs to "
3937 "create relocation for %s\n",
70bccea4
AM
3938 (h && h->root.root.string
3939 ? h->root.root.string : "<unknown>"));
252b5132
RH
3940#endif
3941 if (sreloc == NULL)
3942 {
3943 const char *name;
3944
3945 name = (bfd_elf_string_from_elf_section
3946 (abfd,
3947 elf_elfheader (abfd)->e_shstrndx,
3948 elf_section_data (sec)->rel_hdr.sh_name));
3949 if (name == NULL)
b34976b6 3950 return FALSE;
252b5132
RH
3951
3952 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
3953 && strcmp (bfd_get_section_name (abfd, sec),
3954 name + 5) == 0);
3955
7619e7c7 3956 sreloc = bfd_get_section_by_name (htab->elf.dynobj, name);
252b5132
RH
3957 if (sreloc == NULL)
3958 {
3959 flagword flags;
3960
7619e7c7 3961 sreloc = bfd_make_section (htab->elf.dynobj, name);
252b5132
RH
3962 flags = (SEC_HAS_CONTENTS | SEC_READONLY
3963 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3964 if ((sec->flags & SEC_ALLOC) != 0)
3965 flags |= SEC_ALLOC | SEC_LOAD;
3966 if (sreloc == NULL
7619e7c7
AM
3967 || ! bfd_set_section_flags (htab->elf.dynobj,
3968 sreloc, flags)
3969 || ! bfd_set_section_alignment (htab->elf.dynobj,
3970 sreloc, 2))
b34976b6 3971 return FALSE;
252b5132 3972 }
7fce784e
AS
3973 elf_section_data (sec)->sreloc = sreloc;
3974 }
3975
3976 /* If this is a global symbol, we count the number of
3977 relocations we need for this symbol. */
3978 if (h != NULL)
3979 {
3980 head = &ppc_elf_hash_entry (h)->dyn_relocs;
252b5132 3981 }
7fce784e
AS
3982 else
3983 {
3984 /* Track dynamic relocs needed for local syms too.
3985 We really need local syms available to do this
3986 easily. Oh well. */
3987
3988 asection *s;
ee05f2fe
AM
3989 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
3990 sec, r_symndx);
7fce784e
AS
3991 if (s == NULL)
3992 return FALSE;
252b5132 3993
7fce784e
AS
3994 head = ((struct ppc_elf_dyn_relocs **)
3995 &elf_section_data (s)->local_dynrel);
3996 }
252b5132 3997
7fce784e
AS
3998 p = *head;
3999 if (p == NULL || p->sec != sec)
4000 {
55fd94b0 4001 p = bfd_alloc (htab->elf.dynobj, sizeof *p);
7fce784e
AS
4002 if (p == NULL)
4003 return FALSE;
4004 p->next = *head;
4005 *head = p;
4006 p->sec = sec;
4007 p->count = 0;
ee05f2fe 4008 p->pc_count = 0;
7fce784e
AS
4009 }
4010
ee05f2fe
AM
4011 p->count += 1;
4012 if (!MUST_BE_DYN_RELOC (r_type))
4013 p->pc_count += 1;
252b5132
RH
4014 }
4015
4016 break;
4017 }
4018 }
4019
b34976b6 4020 return TRUE;
252b5132
RH
4021}
4022
4023/* Return the section that should be marked against GC for a given
4024 relocation. */
4025
4026static asection *
55fd94b0
AM
4027ppc_elf_gc_mark_hook (asection *sec,
4028 struct bfd_link_info *info ATTRIBUTE_UNUSED,
4029 Elf_Internal_Rela *rel,
4030 struct elf_link_hash_entry *h,
4031 Elf_Internal_Sym *sym)
252b5132
RH
4032{
4033 if (h != NULL)
4034 {
4035 switch (ELF32_R_TYPE (rel->r_info))
4036 {
4037 case R_PPC_GNU_VTINHERIT:
4038 case R_PPC_GNU_VTENTRY:
4039 break;
4040
4041 default:
4042 switch (h->root.type)
4043 {
4044 case bfd_link_hash_defined:
4045 case bfd_link_hash_defweak:
4046 return h->root.u.def.section;
4047
4048 case bfd_link_hash_common:
4049 return h->root.u.c.p->section;
4050
4051 default:
4052 break;
4053 }
4054 }
4055 }
4056 else
1e2f5b6e 4057 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
252b5132
RH
4058
4059 return NULL;
4060}
4061
7619e7c7
AM
4062/* Update the got, plt and dynamic reloc reference counts for the
4063 section being removed. */
252b5132 4064
b34976b6 4065static bfd_boolean
55fd94b0
AM
4066ppc_elf_gc_sweep_hook (bfd *abfd,
4067 struct bfd_link_info *info,
4068 asection *sec,
4069 const Elf_Internal_Rela *relocs)
252b5132 4070{
7619e7c7 4071 struct ppc_elf_link_hash_table *htab;
252b5132
RH
4072 Elf_Internal_Shdr *symtab_hdr;
4073 struct elf_link_hash_entry **sym_hashes;
4074 bfd_signed_vma *local_got_refcounts;
4075 const Elf_Internal_Rela *rel, *relend;
252b5132 4076
7fce784e
AS
4077 elf_section_data (sec)->local_dynrel = NULL;
4078
7619e7c7 4079 htab = ppc_elf_hash_table (info);
252b5132
RH
4080 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
4081 sym_hashes = elf_sym_hashes (abfd);
4082 local_got_refcounts = elf_local_got_refcounts (abfd);
4083
4084 relend = relocs + sec->reloc_count;
4085 for (rel = relocs; rel < relend; rel++)
7619e7c7
AM
4086 {
4087 unsigned long r_symndx;
4088 enum elf_ppc_reloc_type r_type;
4089 struct elf_link_hash_entry *h = NULL;
252b5132 4090
7619e7c7
AM
4091 r_symndx = ELF32_R_SYM (rel->r_info);
4092 if (r_symndx >= symtab_hdr->sh_info)
4093 {
4094 struct ppc_elf_dyn_relocs **pp, *p;
4095 struct ppc_elf_link_hash_entry *eh;
4096
4097 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4098 eh = (struct ppc_elf_link_hash_entry *) h;
4099
4100 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
4101 if (p->sec == sec)
4102 {
4103 /* Everything must go for SEC. */
4104 *pp = p->next;
4105 break;
4106 }
4107 }
4108
55fd94b0 4109 r_type = ELF32_R_TYPE (rel->r_info);
7619e7c7
AM
4110 switch (r_type)
4111 {
4112 case R_PPC_GOT_TLSLD16:
4113 case R_PPC_GOT_TLSLD16_LO:
4114 case R_PPC_GOT_TLSLD16_HI:
4115 case R_PPC_GOT_TLSLD16_HA:
4116 htab->tlsld_got.refcount -= 1;
4117 /* Fall thru */
4118
4119 case R_PPC_GOT_TLSGD16:
4120 case R_PPC_GOT_TLSGD16_LO:
4121 case R_PPC_GOT_TLSGD16_HI:
4122 case R_PPC_GOT_TLSGD16_HA:
4123 case R_PPC_GOT_TPREL16:
4124 case R_PPC_GOT_TPREL16_LO:
4125 case R_PPC_GOT_TPREL16_HI:
4126 case R_PPC_GOT_TPREL16_HA:
4127 case R_PPC_GOT_DTPREL16:
4128 case R_PPC_GOT_DTPREL16_LO:
4129 case R_PPC_GOT_DTPREL16_HI:
4130 case R_PPC_GOT_DTPREL16_HA:
4131 case R_PPC_GOT16:
4132 case R_PPC_GOT16_LO:
4133 case R_PPC_GOT16_HI:
4134 case R_PPC_GOT16_HA:
4135 if (h != NULL)
4136 {
4137 if (h->got.refcount > 0)
4138 h->got.refcount--;
4139 }
4140 else if (local_got_refcounts != NULL)
4141 {
4142 if (local_got_refcounts[r_symndx] > 0)
4143 local_got_refcounts[r_symndx]--;
4144 }
4145 break;
4146
4147 case R_PPC_REL24:
4148 case R_PPC_REL14:
4149 case R_PPC_REL14_BRTAKEN:
4150 case R_PPC_REL14_BRNTAKEN:
4151 case R_PPC_REL32:
4152 if (h == NULL
2b98e6c0 4153 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
7619e7c7
AM
4154 break;
4155 /* Fall thru */
4156
4157 case R_PPC_ADDR32:
4158 case R_PPC_ADDR24:
4159 case R_PPC_ADDR16:
4160 case R_PPC_ADDR16_LO:
4161 case R_PPC_ADDR16_HI:
4162 case R_PPC_ADDR16_HA:
4163 case R_PPC_ADDR14:
4164 case R_PPC_ADDR14_BRTAKEN:
4165 case R_PPC_ADDR14_BRNTAKEN:
4166 case R_PPC_UADDR32:
4167 case R_PPC_UADDR16:
4168 case R_PPC_PLT32:
4169 case R_PPC_PLTREL24:
4170 case R_PPC_PLT16_LO:
4171 case R_PPC_PLT16_HI:
4172 case R_PPC_PLT16_HA:
4173 if (h != NULL)
4174 {
4175 if (h->plt.refcount > 0)
4176 h->plt.refcount--;
4177 }
4178 break;
4179
4180 default:
4181 break;
4182 }
4183 }
4184 return TRUE;
4185}
4186
e1918d23 4187/* Set htab->tls_get_addr and call the generic ELF tls_setup function. */
7619e7c7 4188
e1918d23 4189asection *
55fd94b0 4190ppc_elf_tls_setup (bfd *obfd, struct bfd_link_info *info)
7619e7c7 4191{
7619e7c7
AM
4192 struct ppc_elf_link_hash_table *htab;
4193
4194 htab = ppc_elf_hash_table (info);
4195 htab->tls_get_addr = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
4196 FALSE, FALSE, TRUE);
4197
e1918d23 4198 return _bfd_elf_tls_setup (obfd, info);
7619e7c7
AM
4199}
4200
4201/* Run through all the TLS relocs looking for optimization
4202 opportunities. */
4203
4204bfd_boolean
55fd94b0
AM
4205ppc_elf_tls_optimize (bfd *obfd ATTRIBUTE_UNUSED,
4206 struct bfd_link_info *info)
7619e7c7
AM
4207{
4208 bfd *ibfd;
4209 asection *sec;
4210 struct ppc_elf_link_hash_table *htab;
4211
1049f94e 4212 if (info->relocatable || info->shared)
7619e7c7
AM
4213 return TRUE;
4214
4215 htab = ppc_elf_hash_table (info);
4216 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
4217 {
4218 Elf_Internal_Sym *locsyms = NULL;
4219 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
4220
4221 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
4222 if (sec->has_tls_reloc && !bfd_is_abs_section (sec->output_section))
7fce784e 4223 {
7619e7c7
AM
4224 Elf_Internal_Rela *relstart, *rel, *relend;
4225 int expecting_tls_get_addr;
4226
4227 /* Read the relocations. */
55fd94b0 4228 relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
45d6a902 4229 info->keep_memory);
7619e7c7
AM
4230 if (relstart == NULL)
4231 return FALSE;
4232
4233 expecting_tls_get_addr = 0;
4234 relend = relstart + sec->reloc_count;
4235 for (rel = relstart; rel < relend; rel++)
4236 {
4237 enum elf_ppc_reloc_type r_type;
4238 unsigned long r_symndx;
4239 struct elf_link_hash_entry *h = NULL;
4240 char *tls_mask;
4241 char tls_set, tls_clear;
4242 bfd_boolean is_local;
4243
4244 r_symndx = ELF32_R_SYM (rel->r_info);
4245 if (r_symndx >= symtab_hdr->sh_info)
4246 {
4247 struct elf_link_hash_entry **sym_hashes;
7fce784e 4248
7619e7c7
AM
4249 sym_hashes = elf_sym_hashes (ibfd);
4250 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4251 while (h->root.type == bfd_link_hash_indirect
4252 || h->root.type == bfd_link_hash_warning)
4253 h = (struct elf_link_hash_entry *) h->root.u.i.link;
4254 }
7fce784e 4255
7619e7c7
AM
4256 is_local = FALSE;
4257 if (h == NULL
4258 || !(h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC))
4259 is_local = TRUE;
4260
55fd94b0 4261 r_type = ELF32_R_TYPE (rel->r_info);
7619e7c7
AM
4262 switch (r_type)
4263 {
4264 case R_PPC_GOT_TLSLD16:
4265 case R_PPC_GOT_TLSLD16_LO:
4266 case R_PPC_GOT_TLSLD16_HI:
4267 case R_PPC_GOT_TLSLD16_HA:
4268 /* These relocs should never be against a symbol
4269 defined in a shared lib. Leave them alone if
4270 that turns out to be the case. */
4271 expecting_tls_get_addr = 0;
4272 htab->tlsld_got.refcount -= 1;
4273 if (!is_local)
4274 continue;
4275
4276 /* LD -> LE */
4277 tls_set = 0;
4278 tls_clear = TLS_LD;
4279 expecting_tls_get_addr = 1;
4280 break;
4281
4282 case R_PPC_GOT_TLSGD16:
4283 case R_PPC_GOT_TLSGD16_LO:
4284 case R_PPC_GOT_TLSGD16_HI:
4285 case R_PPC_GOT_TLSGD16_HA:
4286 if (is_local)
4287 /* GD -> LE */
4288 tls_set = 0;
4289 else
4290 /* GD -> IE */
4291 tls_set = TLS_TLS | TLS_TPRELGD;
4292 tls_clear = TLS_GD;
4293 expecting_tls_get_addr = 1;
4294 break;
4295
4296 case R_PPC_GOT_TPREL16:
4297 case R_PPC_GOT_TPREL16_LO:
4298 case R_PPC_GOT_TPREL16_HI:
4299 case R_PPC_GOT_TPREL16_HA:
4300 expecting_tls_get_addr = 0;
4301 if (is_local)
4302 {
4303 /* IE -> LE */
4304 tls_set = 0;
4305 tls_clear = TLS_TPREL;
4306 break;
4307 }
4308 else
4309 continue;
4310
4311 case R_PPC_REL14:
4312 case R_PPC_REL14_BRTAKEN:
4313 case R_PPC_REL14_BRNTAKEN:
4314 case R_PPC_REL24:
4315 if (expecting_tls_get_addr
4316 && h != NULL
4317 && h == htab->tls_get_addr)
4318 {
4319 if (h->plt.refcount > 0)
4320 h->plt.refcount -= 1;
4321 }
4322 expecting_tls_get_addr = 0;
4323 continue;
4324
4325 default:
4326 expecting_tls_get_addr = 0;
4327 continue;
4328 }
4329
4330 if (h != NULL)
4331 {
4332 if (tls_set == 0)
4333 {
4334 /* We managed to get rid of a got entry. */
4335 if (h->got.refcount > 0)
4336 h->got.refcount -= 1;
4337 }
4338 tls_mask = &ppc_elf_hash_entry (h)->tls_mask;
4339 }
4340 else
4341 {
4342 Elf_Internal_Sym *sym;
4343 bfd_signed_vma *lgot_refs;
4344 char *lgot_masks;
4345
4346 if (locsyms == NULL)
4347 {
4348 locsyms = (Elf_Internal_Sym *) symtab_hdr->contents;
4349 if (locsyms == NULL)
4350 locsyms = bfd_elf_get_elf_syms (ibfd, symtab_hdr,
4351 symtab_hdr->sh_info,
4352 0, NULL, NULL, NULL);
4353 if (locsyms == NULL)
4354 {
4355 if (elf_section_data (sec)->relocs != relstart)
4356 free (relstart);
4357 return FALSE;
4358 }
4359 }
4360 sym = locsyms + r_symndx;
4361 lgot_refs = elf_local_got_refcounts (ibfd);
4362 if (lgot_refs == NULL)
4363 abort ();
4364 if (tls_set == 0)
4365 {
4366 /* We managed to get rid of a got entry. */
4367 if (lgot_refs[r_symndx] > 0)
4368 lgot_refs[r_symndx] -= 1;
4369 }
4370 lgot_masks = (char *) (lgot_refs + symtab_hdr->sh_info);
4371 tls_mask = &lgot_masks[r_symndx];
4372 }
4373
4374 *tls_mask |= tls_set;
4375 *tls_mask &= ~tls_clear;
4376 }
4377
4378 if (elf_section_data (sec)->relocs != relstart)
4379 free (relstart);
7fce784e 4380 }
252b5132 4381
7619e7c7
AM
4382 if (locsyms != NULL
4383 && (symtab_hdr->contents != (unsigned char *) locsyms))
4384 {
4385 if (!info->keep_memory)
4386 free (locsyms);
4387 else
4388 symtab_hdr->contents = (unsigned char *) locsyms;
4389 }
4390 }
b34976b6 4391 return TRUE;
252b5132
RH
4392}
4393\f
4394/* Hook called by the linker routine which adds symbols from an object
4395 file. We use it to put .comm items in .sbss, and not .bss. */
4396
b34976b6 4397static bfd_boolean
55fd94b0
AM
4398ppc_elf_add_symbol_hook (bfd *abfd,
4399 struct bfd_link_info *info,
555cd476 4400 Elf_Internal_Sym *sym,
55fd94b0
AM
4401 const char **namep ATTRIBUTE_UNUSED,
4402 flagword *flagsp ATTRIBUTE_UNUSED,
4403 asection **secp,
4404 bfd_vma *valp)
252b5132
RH
4405{
4406 if (sym->st_shndx == SHN_COMMON
1049f94e 4407 && !info->relocatable
27242387 4408 && sym->st_size <= elf_gp_size (abfd)
58111eb7
AM
4409 && (info->hash->creator == abfd->xvec
4410 || info->hash->creator == abfd->xvec->alternative_target))
252b5132
RH
4411 {
4412 /* Common symbols less than or equal to -G nn bytes are automatically
58111eb7
AM
4413 put into .sbss. */
4414 struct ppc_elf_link_hash_table *htab;
252b5132 4415
58111eb7
AM
4416 htab = ppc_elf_hash_table (info);
4417 if (htab->sbss == NULL)
252b5132 4418 {
58111eb7 4419 flagword flags = SEC_IS_COMMON;
dc810e39 4420
58111eb7
AM
4421 htab->sbss = bfd_make_section_anyway (abfd, ".sbss");
4422 if (htab->sbss == NULL
4423 || ! bfd_set_section_flags (abfd, htab->sbss, flags))
b34976b6 4424 return FALSE;
252b5132
RH
4425 }
4426
58111eb7 4427 *secp = htab->sbss;
252b5132
RH
4428 *valp = sym->st_size;
4429 }
4430
b34976b6 4431 return TRUE;
252b5132 4432}
252b5132
RH
4433\f
4434/* Finish up dynamic symbol handling. We set the contents of various
4435 dynamic sections here. */
4436
b34976b6 4437static bfd_boolean
55fd94b0
AM
4438ppc_elf_finish_dynamic_symbol (bfd *output_bfd,
4439 struct bfd_link_info *info,
4440 struct elf_link_hash_entry *h,
4441 Elf_Internal_Sym *sym)
252b5132 4442{
7619e7c7 4443 struct ppc_elf_link_hash_table *htab;
252b5132
RH
4444
4445#ifdef DEBUG
4446 fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
4447 h->root.root.string);
4448#endif
4449
7619e7c7
AM
4450 htab = ppc_elf_hash_table (info);
4451 BFD_ASSERT (htab->elf.dynobj != NULL);
252b5132
RH
4452
4453 if (h->plt.offset != (bfd_vma) -1)
4454 {
252b5132 4455 Elf_Internal_Rela rela;
947216bf 4456 bfd_byte *loc;
252b5132
RH
4457 bfd_vma reloc_index;
4458
4459#ifdef DEBUG
4460 fprintf (stderr, ", plt_offset = %d", h->plt.offset);
4461#endif
4462
4463 /* This symbol has an entry in the procedure linkage table. Set
70bccea4 4464 it up. */
252b5132
RH
4465
4466 BFD_ASSERT (h->dynindx != -1);
7619e7c7 4467 BFD_ASSERT (htab->plt != NULL && htab->relplt != NULL);
252b5132
RH
4468
4469 /* We don't need to fill in the .plt. The ppc dynamic linker
4470 will fill it in. */
4471
4472 /* Fill in the entry in the .rela.plt section. */
7619e7c7
AM
4473 rela.r_offset = (htab->plt->output_section->vma
4474 + htab->plt->output_offset
252b5132
RH
4475 + h->plt.offset);
4476 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
4477 rela.r_addend = 0;
4478
4479 reloc_index = (h->plt.offset - PLT_INITIAL_ENTRY_SIZE) / PLT_SLOT_SIZE;
4480 if (reloc_index > PLT_NUM_SINGLE_ENTRIES)
4481 reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
7619e7c7
AM
4482 loc = (htab->relplt->contents
4483 + reloc_index * sizeof (Elf32_External_Rela));
947216bf 4484 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
252b5132
RH
4485
4486 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
4487 {
4488 /* Mark the symbol as undefined, rather than as defined in
4489 the .plt section. Leave the value alone. */
4490 sym->st_shndx = SHN_UNDEF;
a4b120e1
GK
4491 /* If the symbol is weak, we do need to clear the value.
4492 Otherwise, the PLT entry would provide a definition for
4493 the symbol even if the symbol wasn't defined anywhere,
4494 and so the symbol would never be NULL. */
c3668558 4495 if ((h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR_NONWEAK)
a4b120e1
GK
4496 == 0)
4497 sym->st_value = 0;
252b5132
RH
4498 }
4499 }
4500
252b5132
RH
4501 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
4502 {
4503 asection *s;
4504 Elf_Internal_Rela rela;
947216bf 4505 bfd_byte *loc;
252b5132
RH
4506
4507 /* This symbols needs a copy reloc. Set it up. */
4508
4509#ifdef DEBUG
4510 fprintf (stderr, ", copy");
4511#endif
4512
4513 BFD_ASSERT (h->dynindx != -1);
4514
7619e7c7
AM
4515 if (h->size <= elf_gp_size (htab->elf.dynobj))
4516 s = htab->relsbss;
252b5132 4517 else
7619e7c7 4518 s = htab->relbss;
252b5132
RH
4519 BFD_ASSERT (s != NULL);
4520
4521 rela.r_offset = (h->root.u.def.value
4522 + h->root.u.def.section->output_section->vma
4523 + h->root.u.def.section->output_offset);
4524 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
4525 rela.r_addend = 0;
947216bf
AM
4526 loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
4527 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
252b5132
RH
4528 }
4529
4530#ifdef DEBUG
4531 fprintf (stderr, "\n");
4532#endif
4533
4534 /* Mark some specially defined symbols as absolute. */
4535 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
4536 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
4537 || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
4538 sym->st_shndx = SHN_ABS;
4539
b34976b6 4540 return TRUE;
252b5132 4541}
252b5132
RH
4542\f
4543/* Finish up the dynamic sections. */
4544
b34976b6 4545static bfd_boolean
55fd94b0
AM
4546ppc_elf_finish_dynamic_sections (bfd *output_bfd,
4547 struct bfd_link_info *info)
252b5132
RH
4548{
4549 asection *sdyn;
7619e7c7 4550 struct ppc_elf_link_hash_table *htab;
252b5132
RH
4551
4552#ifdef DEBUG
4553 fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
4554#endif
4555
7619e7c7
AM
4556 htab = ppc_elf_hash_table (info);
4557 sdyn = bfd_get_section_by_name (htab->elf.dynobj, ".dynamic");
252b5132 4558
7619e7c7 4559 if (htab->elf.dynamic_sections_created)
252b5132 4560 {
252b5132
RH
4561 Elf32_External_Dyn *dyncon, *dynconend;
4562
7619e7c7 4563 BFD_ASSERT (htab->plt != NULL && sdyn != NULL);
252b5132
RH
4564
4565 dyncon = (Elf32_External_Dyn *) sdyn->contents;
eea6121a 4566 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
252b5132
RH
4567 for (; dyncon < dynconend; dyncon++)
4568 {
4569 Elf_Internal_Dyn dyn;
7619e7c7 4570 asection *s;
252b5132 4571
7619e7c7 4572 bfd_elf32_swap_dyn_in (htab->elf.dynobj, dyncon, &dyn);
252b5132
RH
4573
4574 switch (dyn.d_tag)
4575 {
7619e7c7
AM
4576 case DT_PLTGOT:
4577 s = htab->plt;
4578 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4579 break;
252b5132 4580
7619e7c7 4581 case DT_PLTRELSZ:
eea6121a 4582 dyn.d_un.d_val = htab->relplt->size;
7619e7c7 4583 break;
252b5132 4584
7619e7c7
AM
4585 case DT_JMPREL:
4586 s = htab->relplt;
4587 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4588 break;
4589
4590 default:
4591 continue;
252b5132 4592 }
7619e7c7
AM
4593
4594 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
252b5132
RH
4595 }
4596 }
4597
4598 /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4 so that a function can
4599 easily find the address of the _GLOBAL_OFFSET_TABLE_. */
7619e7c7 4600 if (htab->got)
252b5132 4601 {
7619e7c7 4602 unsigned char *contents = htab->got->contents;
55fd94b0 4603 bfd_put_32 (output_bfd, 0x4e800021 /* blrl */, contents);
252b5132
RH
4604
4605 if (sdyn == NULL)
55fd94b0 4606 bfd_put_32 (output_bfd, 0, contents + 4);
252b5132
RH
4607 else
4608 bfd_put_32 (output_bfd,
4609 sdyn->output_section->vma + sdyn->output_offset,
7619e7c7 4610 contents + 4);
252b5132 4611
7619e7c7 4612 elf_section_data (htab->got->output_section)->this_hdr.sh_entsize = 4;
252b5132
RH
4613 }
4614
b34976b6 4615 return TRUE;
252b5132 4616}
252b5132
RH
4617\f
4618/* The RELOCATE_SECTION function is called by the ELF backend linker
4619 to handle the relocations for a section.
4620
4621 The relocs are always passed as Rela structures; if the section
4622 actually uses Rel structures, the r_addend field will always be
4623 zero.
4624
4625 This function is responsible for adjust the section contents as
4626 necessary, and (if using Rela relocs and generating a
1049f94e 4627 relocatable output file) adjusting the reloc addend as
252b5132
RH
4628 necessary.
4629
4630 This function does not have to worry about setting the reloc
4631 address or the reloc symbol index.
4632
4633 LOCAL_SYMS is a pointer to the swapped in local symbols.
4634
4635 LOCAL_SECTIONS is an array giving the section in the input file
4636 corresponding to the st_shndx field of each local symbol.
4637
4638 The global hash table entry for the global symbols can be found
4639 via elf_sym_hashes (input_bfd).
4640
1049f94e 4641 When generating relocatable output, this function must handle
252b5132
RH
4642 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
4643 going to be the section symbol corresponding to the output
4644 section, which means that the addend must be adjusted
4645 accordingly. */
4646
b34976b6 4647static bfd_boolean
55fd94b0
AM
4648ppc_elf_relocate_section (bfd *output_bfd,
4649 struct bfd_link_info *info,
4650 bfd *input_bfd,
4651 asection *input_section,
4652 bfd_byte *contents,
4653 Elf_Internal_Rela *relocs,
4654 Elf_Internal_Sym *local_syms,
4655 asection **local_sections)
252b5132 4656{
7619e7c7
AM
4657 Elf_Internal_Shdr *symtab_hdr;
4658 struct elf_link_hash_entry **sym_hashes;
4659 struct ppc_elf_link_hash_table *htab;
4660 Elf_Internal_Rela *rel;
4661 Elf_Internal_Rela *relend;
4662 Elf_Internal_Rela outrel;
4663 bfd_byte *loc;
b34976b6 4664 asection *sreloc = NULL;
252b5132 4665 bfd_vma *local_got_offsets;
b34976b6 4666 bfd_boolean ret = TRUE;
b34976b6 4667
252b5132 4668#ifdef DEBUG
55fd94b0
AM
4669 fprintf (stderr, "ppc_elf_relocate_section called for %s section %s, "
4670 "%ld relocations%s\n",
8f615d07 4671 bfd_archive_filename (input_bfd),
252b5132 4672 bfd_section_name(input_bfd, input_section),
8da6118f 4673 (long) input_section->reloc_count,
1049f94e 4674 (info->relocatable) ? " (relocatable)" : "");
252b5132
RH
4675#endif
4676
1049f94e 4677 if (info->relocatable)
b34976b6 4678 return TRUE;
b491616a 4679
e47cd125 4680 /* Initialize howto table if not already done. */
8da6118f 4681 if (!ppc_elf_howto_table[R_PPC_ADDR32])
252b5132
RH
4682 ppc_elf_howto_init ();
4683
7619e7c7 4684 htab = ppc_elf_hash_table (info);
252b5132 4685 local_got_offsets = elf_local_got_offsets (input_bfd);
7619e7c7
AM
4686 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
4687 sym_hashes = elf_sym_hashes (input_bfd);
4688 rel = relocs;
4689 relend = relocs + input_section->reloc_count;
252b5132
RH
4690 for (; rel < relend; rel++)
4691 {
7619e7c7
AM
4692 enum elf_ppc_reloc_type r_type;
4693 bfd_vma addend;
4694 bfd_reloc_status_type r;
4695 Elf_Internal_Sym *sym;
4696 asection *sec;
4697 struct elf_link_hash_entry *h;
4698 const char *sym_name;
252b5132
RH
4699 reloc_howto_type *howto;
4700 unsigned long r_symndx;
4701 bfd_vma relocation;
7619e7c7 4702 bfd_vma branch_bit, insn, from;
7619e7c7
AM
4703 bfd_boolean unresolved_reloc;
4704 bfd_boolean warned;
4705 unsigned int tls_type, tls_mask, tls_gd;
4706
55fd94b0
AM
4707 r_type = ELF32_R_TYPE (rel->r_info);
4708 sym = NULL;
4709 sec = NULL;
4710 h = NULL;
7619e7c7
AM
4711 unresolved_reloc = FALSE;
4712 warned = FALSE;
252b5132 4713 r_symndx = ELF32_R_SYM (rel->r_info);
560e09e9 4714
252b5132
RH
4715 if (r_symndx < symtab_hdr->sh_info)
4716 {
4717 sym = local_syms + r_symndx;
4718 sec = local_sections[r_symndx];
7619e7c7 4719 sym_name = bfd_elf_local_sym_name (input_bfd, sym);
252b5132 4720
8517fae7 4721 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
252b5132
RH
4722 }
4723 else
4724 {
b2a8e766
AM
4725 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
4726 r_symndx, symtab_hdr, sym_hashes,
4727 h, sec, relocation,
4728 unresolved_reloc, warned);
9abc968f 4729
252b5132 4730 sym_name = h->root.root.string;
7619e7c7
AM
4731 }
4732
4733 /* TLS optimizations. Replace instruction sequences and relocs
4734 based on information we collected in tls_optimize. We edit
4735 RELOCS so that --emit-relocs will output something sensible
4736 for the final instruction stream. */
4737 tls_mask = 0;
4738 tls_gd = 0;
4739 if (IS_PPC_TLS_RELOC (r_type))
4740 {
4741 if (h != NULL)
4742 tls_mask = ((struct ppc_elf_link_hash_entry *) h)->tls_mask;
4743 else if (local_got_offsets != NULL)
4744 {
4745 char *lgot_masks;
4746 lgot_masks = (char *) (local_got_offsets + symtab_hdr->sh_info);
4747 tls_mask = lgot_masks[r_symndx];
4748 }
4749 }
4750
4751 /* Ensure reloc mapping code below stays sane. */
4752 if ((R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TLSGD16 & 3)
4753 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TLSGD16_LO & 3)
4754 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TLSGD16_HI & 3)
4755 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TLSGD16_HA & 3)
4756 || (R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TPREL16 & 3)
4757 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TPREL16_LO & 3)
4758 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TPREL16_HI & 3)
4759 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TPREL16_HA & 3))
4760 abort ();
4761 switch (r_type)
4762 {
4763 default:
4764 break;
4765
4766 case R_PPC_GOT_TPREL16:
4767 case R_PPC_GOT_TPREL16_LO:
4768 if (tls_mask != 0
4769 && (tls_mask & TLS_TPREL) == 0)
4770 {
4771 bfd_vma insn;
4772 insn = bfd_get_32 (output_bfd, contents + rel->r_offset - 2);
4773 insn &= 31 << 21;
4774 insn |= 0x3c020000; /* addis 0,2,0 */
4775 bfd_put_32 (output_bfd, insn, contents + rel->r_offset - 2);
4776 r_type = R_PPC_TPREL16_HA;
4777 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4778 }
4779 break;
4780
4781 case R_PPC_TLS:
4782 if (tls_mask != 0
4783 && (tls_mask & TLS_TPREL) == 0)
4784 {
4785 bfd_vma insn, rtra;
4786 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
4787 if ((insn & ((31 << 26) | (31 << 11)))
4788 == ((31 << 26) | (2 << 11)))
4789 rtra = insn & ((1 << 26) - (1 << 16));
4790 else if ((insn & ((31 << 26) | (31 << 16)))
4791 == ((31 << 26) | (2 << 16)))
4792 rtra = (insn & (31 << 21)) | ((insn & (31 << 11)) << 5);
4793 else
4794 abort ();
4795 if ((insn & ((1 << 11) - (1 << 1))) == 266 << 1)
4796 /* add -> addi. */
4797 insn = 14 << 26;
4798 else if ((insn & (31 << 1)) == 23 << 1
4799 && ((insn & (31 << 6)) < 14 << 6
4800 || ((insn & (31 << 6)) >= 16 << 6
4801 && (insn & (31 << 6)) < 24 << 6)))
4802 /* load and store indexed -> dform. */
4803 insn = (32 | ((insn >> 6) & 31)) << 26;
4804 else if ((insn & (31 << 1)) == 21 << 1
4805 && (insn & (0x1a << 6)) == 0)
4806 /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu. */
4807 insn = (((58 | ((insn >> 6) & 4)) << 26)
4808 | ((insn >> 6) & 1));
4809 else if ((insn & (31 << 1)) == 21 << 1
4810 && (insn & ((1 << 11) - (1 << 1))) == 341 << 1)
4811 /* lwax -> lwa. */
4812 insn = (58 << 26) | 2;
4813 else
4814 abort ();
4815 insn |= rtra;
4816 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
4817 r_type = R_PPC_TPREL16_LO;
4818 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4819 /* Was PPC_TLS which sits on insn boundary, now
4820 PPC_TPREL16_LO which is at insn+2. */
4821 rel->r_offset += 2;
4822 }
4823 break;
4824
4825 case R_PPC_GOT_TLSGD16_HI:
4826 case R_PPC_GOT_TLSGD16_HA:
4827 tls_gd = TLS_TPRELGD;
4828 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
4829 goto tls_gdld_hi;
4830 break;
4831
4832 case R_PPC_GOT_TLSLD16_HI:
4833 case R_PPC_GOT_TLSLD16_HA:
4834 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
4835 {
4836 tls_gdld_hi:
4837 if ((tls_mask & tls_gd) != 0)
4838 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
4839 + R_PPC_GOT_TPREL16);
4840 else
4841 {
4842 bfd_put_32 (output_bfd, NOP, contents + rel->r_offset);
4843 rel->r_offset -= 2;
4844 r_type = R_PPC_NONE;
4845 }
4846 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4847 }
4848 break;
4849
4850 case R_PPC_GOT_TLSGD16:
4851 case R_PPC_GOT_TLSGD16_LO:
4852 tls_gd = TLS_TPRELGD;
4853 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
4854 goto tls_get_addr_check;
4855 break;
4856
4857 case R_PPC_GOT_TLSLD16:
4858 case R_PPC_GOT_TLSLD16_LO:
4859 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
4860 {
4861 tls_get_addr_check:
4862 if (rel + 1 < relend)
4863 {
4864 enum elf_ppc_reloc_type r_type2;
4865 unsigned long r_symndx2;
4866 struct elf_link_hash_entry *h2;
87d243f1 4867 bfd_vma insn1, insn2;
7619e7c7
AM
4868 bfd_vma offset;
4869
4870 /* The next instruction should be a call to
4871 __tls_get_addr. Peek at the reloc to be sure. */
55fd94b0 4872 r_type2 = ELF32_R_TYPE (rel[1].r_info);
7619e7c7
AM
4873 r_symndx2 = ELF32_R_SYM (rel[1].r_info);
4874 if (r_symndx2 < symtab_hdr->sh_info
4875 || (r_type2 != R_PPC_REL14
4876 && r_type2 != R_PPC_REL14_BRTAKEN
4877 && r_type2 != R_PPC_REL14_BRNTAKEN
4878 && r_type2 != R_PPC_REL24
4879 && r_type2 != R_PPC_PLTREL24))
4880 break;
4881
4882 h2 = sym_hashes[r_symndx2 - symtab_hdr->sh_info];
4883 while (h2->root.type == bfd_link_hash_indirect
4884 || h2->root.type == bfd_link_hash_warning)
4885 h2 = (struct elf_link_hash_entry *) h2->root.u.i.link;
4886 if (h2 == NULL || h2 != htab->tls_get_addr)
4887 break;
4888
4889 /* OK, it checks out. Replace the call. */
4890 offset = rel[1].r_offset;
4891 insn1 = bfd_get_32 (output_bfd,
4892 contents + rel->r_offset - 2);
7619e7c7
AM
4893 if ((tls_mask & tls_gd) != 0)
4894 {
4895 /* IE */
4896 insn1 &= (1 << 26) - 1;
4897 insn1 |= 32 << 26; /* lwz */
4898 insn2 = 0x7c631214; /* add 3,3,2 */
4899 rel[1].r_info = ELF32_R_INFO (r_symndx2, R_PPC_NONE);
4900 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
4901 + R_PPC_GOT_TPREL16);
4902 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4903 }
4904 else
4905 {
4906 /* LE */
4907 insn1 = 0x3c620000; /* addis 3,2,0 */
4908 insn2 = 0x38630000; /* addi 3,3,0 */
4909 if (tls_gd == 0)
4910 {
4911 /* Was an LD reloc. */
4912 r_symndx = 0;
e1918d23
AM
4913 rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
4914 rel[1].r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
7619e7c7
AM
4915 }
4916 r_type = R_PPC_TPREL16_HA;
4917 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4918 rel[1].r_info = ELF32_R_INFO (r_symndx,
4919 R_PPC_TPREL16_LO);
4920 rel[1].r_offset += 2;
4921 }
7619e7c7
AM
4922 bfd_put_32 (output_bfd, insn1, contents + rel->r_offset - 2);
4923 bfd_put_32 (output_bfd, insn2, contents + offset);
7619e7c7
AM
4924 if (tls_gd == 0)
4925 {
4926 /* We changed the symbol on an LD reloc. Start over
70bccea4 4927 in order to get h, sym, sec etc. right. */
7619e7c7
AM
4928 rel--;
4929 continue;
4930 }
4931 }
252b5132 4932 }
7619e7c7
AM
4933 break;
4934 }
4935
4936 /* Handle other relocations that tweak non-addend part of insn. */
4937 branch_bit = 0;
4938 switch (r_type)
4939 {
4940 default:
4941 break;
4942
4943 /* Branch taken prediction relocations. */
4944 case R_PPC_ADDR14_BRTAKEN:
4945 case R_PPC_REL14_BRTAKEN:
4946 branch_bit = BRANCH_PREDICT_BIT;
4947 /* Fall thru */
4948
4cc11e76 4949 /* Branch not taken prediction relocations. */
7619e7c7
AM
4950 case R_PPC_ADDR14_BRNTAKEN:
4951 case R_PPC_REL14_BRNTAKEN:
4952 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
4953 insn &= ~BRANCH_PREDICT_BIT;
4954 insn |= branch_bit;
4955
4956 from = (rel->r_offset
4957 + input_section->output_offset
4958 + input_section->output_section->vma);
4959
4960 /* Invert 'y' bit if not the default. */
4961 if ((bfd_signed_vma) (relocation + rel->r_addend - from) < 0)
4962 insn ^= BRANCH_PREDICT_BIT;
4963
4964 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
4965 break;
252b5132
RH
4966 }
4967
7619e7c7
AM
4968 addend = rel->r_addend;
4969 tls_type = 0;
4970 howto = NULL;
55fd94b0
AM
4971 if (r_type < R_PPC_max)
4972 howto = ppc_elf_howto_table[r_type];
7619e7c7 4973 switch (r_type)
252b5132
RH
4974 {
4975 default:
7619e7c7
AM
4976 (*_bfd_error_handler)
4977 (_("%s: unknown relocation type %d for symbol %s"),
4978 bfd_archive_filename (input_bfd), (int) r_type, sym_name);
252b5132
RH
4979
4980 bfd_set_error (bfd_error_bad_value);
b34976b6 4981 ret = FALSE;
252b5132
RH
4982 continue;
4983
7619e7c7
AM
4984 case R_PPC_NONE:
4985 case R_PPC_TLS:
4986 case R_PPC_EMB_MRKREF:
4987 case R_PPC_GNU_VTINHERIT:
4988 case R_PPC_GNU_VTENTRY:
7595d193
L
4989 continue;
4990
7619e7c7
AM
4991 /* GOT16 relocations. Like an ADDR16 using the symbol's
4992 address in the GOT as relocation value instead of the
4993 symbol's value itself. Also, create a GOT entry for the
4994 symbol and put the symbol value there. */
4995 case R_PPC_GOT_TLSGD16:
4996 case R_PPC_GOT_TLSGD16_LO:
4997 case R_PPC_GOT_TLSGD16_HI:
4998 case R_PPC_GOT_TLSGD16_HA:
4999 tls_type = TLS_TLS | TLS_GD;
5000 goto dogot;
5001
5002 case R_PPC_GOT_TLSLD16:
5003 case R_PPC_GOT_TLSLD16_LO:
5004 case R_PPC_GOT_TLSLD16_HI:
5005 case R_PPC_GOT_TLSLD16_HA:
5006 tls_type = TLS_TLS | TLS_LD;
5007 goto dogot;
5008
5009 case R_PPC_GOT_TPREL16:
5010 case R_PPC_GOT_TPREL16_LO:
5011 case R_PPC_GOT_TPREL16_HI:
5012 case R_PPC_GOT_TPREL16_HA:
5013 tls_type = TLS_TLS | TLS_TPREL;
5014 goto dogot;
5015
5016 case R_PPC_GOT_DTPREL16:
5017 case R_PPC_GOT_DTPREL16_LO:
5018 case R_PPC_GOT_DTPREL16_HI:
5019 case R_PPC_GOT_DTPREL16_HA:
5020 tls_type = TLS_TLS | TLS_DTPREL;
5021 goto dogot;
5022
5023 case R_PPC_GOT16:
5024 case R_PPC_GOT16_LO:
5025 case R_PPC_GOT16_HI:
5026 case R_PPC_GOT16_HA:
5027 dogot:
5028 {
5029 /* Relocation is to the entry for this symbol in the global
5030 offset table. */
5031 bfd_vma off;
5032 bfd_vma *offp;
5033 unsigned long indx;
5034
5035 if (htab->got == NULL)
5036 abort ();
5037
5038 indx = 0;
5039 if (tls_type == (TLS_TLS | TLS_LD)
d881513a 5040 && (h == NULL
7619e7c7
AM
5041 || !(h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC)))
5042 offp = &htab->tlsld_got.offset;
5043 else if (h != NULL)
5044 {
5045 bfd_boolean dyn;
5046 dyn = htab->elf.dynamic_sections_created;
ee05f2fe 5047 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
7619e7c7
AM
5048 || (info->shared
5049 && SYMBOL_REFERENCES_LOCAL (info, h)))
5050 /* This is actually a static link, or it is a
5051 -Bsymbolic link and the symbol is defined
5052 locally, or the symbol was forced to be local
5053 because of a version file. */
5054 ;
5055 else
5056 {
5057 indx = h->dynindx;
5058 unresolved_reloc = FALSE;
5059 }
5060 offp = &h->got.offset;
5061 }
5062 else
5063 {
5064 if (local_got_offsets == NULL)
5065 abort ();
5066 offp = &local_got_offsets[r_symndx];
5067 }
5068
5069 /* The offset must always be a multiple of 4. We use the
5070 least significant bit to record whether we have already
5071 processed this entry. */
5072 off = *offp;
5073 if ((off & 1) != 0)
5074 off &= ~1;
5075 else
5076 {
70bccea4
AM
5077 unsigned int tls_m = (tls_mask
5078 & (TLS_LD | TLS_GD | TLS_DTPREL
5079 | TLS_TPREL | TLS_TPRELGD));
5080
5081 if (offp == &htab->tlsld_got.offset)
5082 tls_m = TLS_LD;
5083 else if (h == NULL
5084 || !(h->elf_link_hash_flags
5085 & ELF_LINK_HASH_DEF_DYNAMIC))
5086 tls_m &= ~TLS_LD;
5087
5088 /* We might have multiple got entries for this sym.
5089 Initialize them all. */
5090 do
7619e7c7 5091 {
70bccea4
AM
5092 int tls_ty = 0;
5093
5094 if ((tls_m & TLS_LD) != 0)
7619e7c7 5095 {
70bccea4
AM
5096 tls_ty = TLS_TLS | TLS_LD;
5097 tls_m &= ~TLS_LD;
5098 }
5099 else if ((tls_m & TLS_GD) != 0)
5100 {
5101 tls_ty = TLS_TLS | TLS_GD;
5102 tls_m &= ~TLS_GD;
5103 }
5104 else if ((tls_m & TLS_DTPREL) != 0)
5105 {
5106 tls_ty = TLS_TLS | TLS_DTPREL;
5107 tls_m &= ~TLS_DTPREL;
5108 }
5109 else if ((tls_m & (TLS_TPREL | TLS_TPRELGD)) != 0)
5110 {
5111 tls_ty = TLS_TLS | TLS_TPREL;
5112 tls_m = 0;
7619e7c7 5113 }
7619e7c7 5114
70bccea4 5115 /* Generate relocs for the dynamic linker. */
4e795f50
AM
5116 if ((info->shared || indx != 0)
5117 && (h == NULL
5118 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
5119 || h->root.type != bfd_link_hash_undefweak))
7619e7c7 5120 {
70bccea4
AM
5121 outrel.r_offset = (htab->got->output_section->vma
5122 + htab->got->output_offset
5123 + off);
e515b051 5124 outrel.r_addend = 0;
70bccea4
AM
5125 if (tls_ty & (TLS_LD | TLS_GD))
5126 {
5127 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPMOD32);
70bccea4
AM
5128 if (tls_ty == (TLS_TLS | TLS_GD))
5129 {
5130 loc = htab->relgot->contents;
5131 loc += (htab->relgot->reloc_count++
5132 * sizeof (Elf32_External_Rela));
5133 bfd_elf32_swap_reloca_out (output_bfd,
5134 &outrel, loc);
e515b051 5135 outrel.r_offset += 4;
70bccea4
AM
5136 outrel.r_info
5137 = ELF32_R_INFO (indx, R_PPC_DTPREL32);
70bccea4
AM
5138 }
5139 }
5140 else if (tls_ty == (TLS_TLS | TLS_DTPREL))
5141 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPREL32);
5142 else if (tls_ty == (TLS_TLS | TLS_TPREL))
5143 outrel.r_info = ELF32_R_INFO (indx, R_PPC_TPREL32);
5144 else if (indx == 0)
5145 outrel.r_info = ELF32_R_INFO (indx, R_PPC_RELATIVE);
5146 else
5147 outrel.r_info = ELF32_R_INFO (indx, R_PPC_GLOB_DAT);
70bccea4 5148 if (indx == 0)
e515b051
AM
5149 {
5150 outrel.r_addend += relocation;
5151 if (tls_ty & (TLS_GD | TLS_DTPREL | TLS_TPREL))
e1918d23 5152 outrel.r_addend -= htab->elf.tls_sec->vma;
e515b051 5153 }
70bccea4
AM
5154 loc = htab->relgot->contents;
5155 loc += (htab->relgot->reloc_count++
5156 * sizeof (Elf32_External_Rela));
5157 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
7619e7c7
AM
5158 }
5159
70bccea4
AM
5160 /* Init the .got section contents if we're not
5161 emitting a reloc. */
5162 else
7619e7c7 5163 {
70bccea4
AM
5164 bfd_vma value = relocation;
5165
7b609f53
AM
5166 if (tls_ty == (TLS_TLS | TLS_LD))
5167 value = 1;
5168 else if (tls_ty != 0)
70bccea4 5169 {
e1918d23 5170 value -= htab->elf.tls_sec->vma + DTP_OFFSET;
7b609f53 5171 if (tls_ty == (TLS_TLS | TLS_TPREL))
70bccea4 5172 value += DTP_OFFSET - TP_OFFSET;
70bccea4 5173
7b609f53
AM
5174 if (tls_ty == (TLS_TLS | TLS_GD))
5175 {
5176 bfd_put_32 (output_bfd, value,
5177 htab->got->contents + off + 4);
5178 value = 1;
5179 }
70bccea4 5180 }
70bccea4
AM
5181 bfd_put_32 (output_bfd, value,
5182 htab->got->contents + off);
7619e7c7 5183 }
70bccea4
AM
5184
5185 off += 4;
5186 if (tls_ty & (TLS_LD | TLS_GD))
5187 off += 4;
7619e7c7 5188 }
70bccea4
AM
5189 while (tls_m != 0);
5190
5191 off = *offp;
5192 *offp = off | 1;
7619e7c7
AM
5193 }
5194
5195 if (off >= (bfd_vma) -2)
5196 abort ();
5197
70bccea4
AM
5198 if ((tls_type & TLS_TLS) != 0)
5199 {
5200 if (tls_type != (TLS_TLS | TLS_LD))
5201 {
5202 if ((tls_mask & TLS_LD) != 0
5203 && !(h == NULL
5204 || !(h->elf_link_hash_flags
5205 & ELF_LINK_HASH_DEF_DYNAMIC)))
5206 off += 8;
5207 if (tls_type != (TLS_TLS | TLS_GD))
5208 {
5209 if ((tls_mask & TLS_GD) != 0)
5210 off += 8;
5211 if (tls_type != (TLS_TLS | TLS_DTPREL))
5212 {
5213 if ((tls_mask & TLS_DTPREL) != 0)
5214 off += 4;
5215 }
5216 }
5217 }
5218 }
5219
7619e7c7
AM
5220 relocation = htab->got->output_offset + off - 4;
5221
5222 /* Addends on got relocations don't make much sense.
5223 x+off@got is actually x@got+off, and since the got is
5224 generated by a hash table traversal, the value in the
5225 got at entry m+n bears little relation to the entry m. */
5226 if (addend != 0)
5227 (*_bfd_error_handler)
7b609f53 5228 (_("%s(%s+0x%lx): non-zero addend on %s reloc against `%s'"),
7619e7c7
AM
5229 bfd_archive_filename (input_bfd),
5230 bfd_get_section_name (input_bfd, input_section),
5231 (long) rel->r_offset,
7b609f53 5232 howto->name,
7619e7c7
AM
5233 sym_name);
5234 }
70bccea4 5235 break;
7619e7c7 5236
252b5132 5237 /* Relocations that need no special processing. */
7619e7c7 5238 case R_PPC_LOCAL24PC:
252b5132
RH
5239 /* It makes no sense to point a local relocation
5240 at a symbol not in this object. */
7b609f53 5241 if (unresolved_reloc)
252b5132 5242 {
464e1740
ILT
5243 if (! (*info->callbacks->undefined_symbol) (info,
5244 h->root.root.string,
5245 input_bfd,
5246 input_section,
5cc7c785 5247 rel->r_offset,
b34976b6
AM
5248 TRUE))
5249 return FALSE;
252b5132
RH
5250 continue;
5251 }
5252 break;
5253
7619e7c7
AM
5254 case R_PPC_DTPREL16:
5255 case R_PPC_DTPREL16_LO:
5256 case R_PPC_DTPREL16_HI:
5257 case R_PPC_DTPREL16_HA:
e1918d23 5258 addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
7619e7c7
AM
5259 break;
5260
70bccea4
AM
5261 /* Relocations that may need to be propagated if this is a shared
5262 object. */
7619e7c7
AM
5263 case R_PPC_TPREL16:
5264 case R_PPC_TPREL16_LO:
5265 case R_PPC_TPREL16_HI:
5266 case R_PPC_TPREL16_HA:
e1918d23 5267 addend -= htab->elf.tls_sec->vma + TP_OFFSET;
7619e7c7
AM
5268 /* The TPREL16 relocs shouldn't really be used in shared
5269 libs as they will result in DT_TEXTREL being set, but
5270 support them anyway. */
5271 goto dodyn;
5272
5273 case R_PPC_TPREL32:
e1918d23 5274 addend -= htab->elf.tls_sec->vma + TP_OFFSET;
7619e7c7
AM
5275 goto dodyn;
5276
5277 case R_PPC_DTPREL32:
e1918d23 5278 addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
7619e7c7
AM
5279 goto dodyn;
5280
e515b051
AM
5281 case R_PPC_DTPMOD32:
5282 relocation = 1;
5283 addend = 0;
5284 goto dodyn;
5285
7619e7c7
AM
5286 case R_PPC_REL24:
5287 case R_PPC_REL32:
5288 case R_PPC_REL14:
5289 case R_PPC_REL14_BRTAKEN:
5290 case R_PPC_REL14_BRNTAKEN:
252b5132
RH
5291 /* If these relocations are not to a named symbol, they can be
5292 handled right here, no need to bother the dynamic linker. */
f6c52c13
AM
5293 if (SYMBOL_REFERENCES_LOCAL (info, h)
5294 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
252b5132 5295 break;
70bccea4 5296 /* fall through */
252b5132 5297
70bccea4
AM
5298 /* Relocations that always need to be propagated if this is a shared
5299 object. */
7619e7c7
AM
5300 case R_PPC_ADDR32:
5301 case R_PPC_ADDR24:
5302 case R_PPC_ADDR16:
5303 case R_PPC_ADDR16_LO:
5304 case R_PPC_ADDR16_HI:
5305 case R_PPC_ADDR16_HA:
5306 case R_PPC_ADDR14:
5307 case R_PPC_ADDR14_BRTAKEN:
5308 case R_PPC_ADDR14_BRNTAKEN:
5309 case R_PPC_UADDR32:
5310 case R_PPC_UADDR16:
ee05f2fe
AM
5311 /* r_symndx will be zero only for relocs against symbols
5312 from removed linkonce sections, or sections discarded by
5313 a linker script. */
7619e7c7 5314 dodyn:
ee05f2fe
AM
5315 if (r_symndx == 0)
5316 break;
5317 /* Fall thru. */
5318
5319 if ((info->shared
4e795f50
AM
5320 && (h == NULL
5321 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
5322 || h->root.type != bfd_link_hash_undefweak)
ee05f2fe 5323 && (MUST_BE_DYN_RELOC (r_type)
f6c52c13 5324 || !SYMBOL_CALLS_LOCAL (info, h)))
ee05f2fe
AM
5325 || (ELIMINATE_COPY_RELOCS
5326 && !info->shared
5327 && (input_section->flags & SEC_ALLOC) != 0
5328 && h != NULL
5329 && h->dynindx != -1
5330 && (h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
5331 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
5332 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0))
252b5132 5333 {
0bb2d96a 5334 int skip;
252b5132
RH
5335
5336#ifdef DEBUG
55fd94b0
AM
5337 fprintf (stderr, "ppc_elf_relocate_section needs to "
5338 "create relocation for %s\n",
70bccea4
AM
5339 (h && h->root.root.string
5340 ? h->root.root.string : "<unknown>"));
252b5132
RH
5341#endif
5342
5343 /* When generating a shared object, these relocations
70bccea4
AM
5344 are copied into the output file to be resolved at run
5345 time. */
252b5132
RH
5346 if (sreloc == NULL)
5347 {
5348 const char *name;
5349
5350 name = (bfd_elf_string_from_elf_section
5351 (input_bfd,
5352 elf_elfheader (input_bfd)->e_shstrndx,
5353 elf_section_data (input_section)->rel_hdr.sh_name));
5354 if (name == NULL)
b34976b6 5355 return FALSE;
252b5132
RH
5356
5357 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
5358 && strcmp (bfd_get_section_name (input_bfd,
5359 input_section),
5360 name + 5) == 0);
5361
7619e7c7 5362 sreloc = bfd_get_section_by_name (htab->elf.dynobj, name);
252b5132
RH
5363 BFD_ASSERT (sreloc != NULL);
5364 }
5365
0bb2d96a 5366 skip = 0;
252b5132 5367
c629eae0
JJ
5368 outrel.r_offset =
5369 _bfd_elf_section_offset (output_bfd, info, input_section,
5370 rel->r_offset);
0bb2d96a
JJ
5371 if (outrel.r_offset == (bfd_vma) -1
5372 || outrel.r_offset == (bfd_vma) -2)
5373 skip = (int) outrel.r_offset;
252b5132
RH
5374 outrel.r_offset += (input_section->output_section->vma
5375 + input_section->output_offset);
5376
5377 if (skip)
5378 memset (&outrel, 0, sizeof outrel);
f6c52c13 5379 else if (!SYMBOL_REFERENCES_LOCAL (info, h))
252b5132 5380 {
7619e7c7 5381 unresolved_reloc = FALSE;
252b5132
RH
5382 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
5383 outrel.r_addend = rel->r_addend;
5384 }
5385 else
5386 {
47388f4c
AM
5387 outrel.r_addend = relocation + rel->r_addend;
5388
252b5132 5389 if (r_type == R_PPC_ADDR32)
47388f4c 5390 outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
252b5132
RH
5391 else
5392 {
5393 long indx;
5394
47388f4c 5395 if (bfd_is_abs_section (sec))
252b5132
RH
5396 indx = 0;
5397 else if (sec == NULL || sec->owner == NULL)
5398 {
5399 bfd_set_error (bfd_error_bad_value);
b34976b6 5400 return FALSE;
252b5132
RH
5401 }
5402 else
5403 {
5404 asection *osec;
5405
47388f4c
AM
5406 /* We are turning this relocation into one
5407 against a section symbol. It would be
5408 proper to subtract the symbol's value,
5409 osec->vma, from the emitted reloc addend,
5410 but ld.so expects buggy relocs. */
252b5132
RH
5411 osec = sec->output_section;
5412 indx = elf_section_data (osec)->dynindx;
8da6118f 5413 BFD_ASSERT (indx > 0);
252b5132
RH
5414#ifdef DEBUG
5415 if (indx <= 0)
55fd94b0
AM
5416 printf ("indx=%d section=%s flags=%08x name=%s\n",
5417 indx, osec->name, osec->flags,
5418 h->root.root.string);
252b5132
RH
5419#endif
5420 }
5421
5422 outrel.r_info = ELF32_R_INFO (indx, r_type);
252b5132
RH
5423 }
5424 }
5425
947216bf
AM
5426 loc = sreloc->contents;
5427 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
5428 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
252b5132 5429
2243deae 5430 if (skip == -1)
252b5132 5431 continue;
2243deae
L
5432
5433 /* This reloc will be computed at runtime. We clear the memory
5434 so that it contains predictable value. */
5435 if (! skip
5436 && ((input_section->flags & SEC_ALLOC) != 0
5437 || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE))
5438 {
5439 relocation = howto->pc_relative ? outrel.r_offset : 0;
5440 addend = 0;
5441 break;
5442 }
252b5132 5443 }
252b5132
RH
5444 break;
5445
f31a141e
AM
5446 case R_PPC_RELAX32PC:
5447 relocation -= (input_section->output_section->vma
5448 + input_section->output_offset
5449 + rel->r_offset - 4);
5450 /* Fall thru */
deaaf2f3 5451 case R_PPC_RELAX32:
9abc968f
AM
5452 {
5453 unsigned long t0;
5454 unsigned long t1;
5455
5456 t0 = bfd_get_32 (output_bfd, contents + rel->r_offset);
5457 t1 = bfd_get_32 (output_bfd, contents + rel->r_offset + 4);
5458
5459 /* We're clearing the bits for R_PPC_ADDR16_HA
5460 and R_PPC_ADDR16_LO here. */
5461 t0 &= ~0xffff;
5462 t1 &= ~0xffff;
5463
5464 /* t0 is HA, t1 is LO */
5465 relocation += addend;
5466 t0 |= ((relocation + 0x8000) >> 16) & 0xffff;
5467 t1 |= relocation & 0xffff;
5468
5469 bfd_put_32 (output_bfd, t0, contents + rel->r_offset);
5470 bfd_put_32 (output_bfd, t1, contents + rel->r_offset + 4);
5471 }
8517fae7 5472 continue;
deaaf2f3 5473
70bccea4 5474 /* Indirect .sdata relocation. */
7619e7c7
AM
5475 case R_PPC_EMB_SDAI16:
5476 BFD_ASSERT (htab->sdata != NULL);
5477 relocation
3dab13f6
AM
5478 = elf_finish_pointer_linker_section (output_bfd, input_bfd, info,
5479 htab->sdata, h, relocation,
5480 rel, R_PPC_RELATIVE);
252b5132
RH
5481 break;
5482
70bccea4 5483 /* Indirect .sdata2 relocation. */
7619e7c7
AM
5484 case R_PPC_EMB_SDA2I16:
5485 BFD_ASSERT (htab->sdata2 != NULL);
5486 relocation
3dab13f6
AM
5487 = elf_finish_pointer_linker_section (output_bfd, input_bfd, info,
5488 htab->sdata2, h, relocation,
5489 rel, R_PPC_RELATIVE);
252b5132
RH
5490 break;
5491
70bccea4
AM
5492 /* Handle the TOC16 reloc. We want to use the offset within the .got
5493 section, not the actual VMA. This is appropriate when generating
5494 an embedded ELF object, for which the .got section acts like the
5495 AIX .toc section. */
7619e7c7 5496 case R_PPC_TOC16: /* phony GOT16 relocations */
55fd94b0 5497 BFD_ASSERT (sec != NULL);
252b5132
RH
5498 BFD_ASSERT (bfd_is_und_section (sec)
5499 || strcmp (bfd_get_section_name (abfd, sec), ".got") == 0
5500 || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0)
5501
70bccea4 5502 addend -= sec->output_section->vma + sec->output_offset + 0x8000;
252b5132
RH
5503 break;
5504
7619e7c7 5505 case R_PPC_PLTREL24:
252b5132 5506 /* Relocation is to the entry for this symbol in the
70bccea4 5507 procedure linkage table. */
252b5132
RH
5508 BFD_ASSERT (h != NULL);
5509
5510 if (h->plt.offset == (bfd_vma) -1
7619e7c7 5511 || htab->plt == NULL)
252b5132
RH
5512 {
5513 /* We didn't make a PLT entry for this symbol. This
70bccea4
AM
5514 happens when statically linking PIC code, or when
5515 using -Bsymbolic. */
252b5132
RH
5516 break;
5517 }
5518
7619e7c7
AM
5519 unresolved_reloc = FALSE;
5520 relocation = (htab->plt->output_section->vma
5521 + htab->plt->output_offset
252b5132 5522 + h->plt.offset);
8da6118f 5523 break;
252b5132 5524
70bccea4 5525 /* Relocate against _SDA_BASE_. */
7619e7c7 5526 case R_PPC_SDAREL16:
252b5132
RH
5527 {
5528 const char *name;
7619e7c7 5529 const struct elf_link_hash_entry *sh;
252b5132 5530
55fd94b0 5531 BFD_ASSERT (sec != NULL);
252b5132 5532 name = bfd_get_section_name (abfd, sec->output_section);
5f819128
AM
5533 if (! ((strncmp (name, ".sdata", 6) == 0
5534 && (name[6] == 0 || name[6] == '.'))
5535 || (strncmp (name, ".sbss", 5) == 0
5536 && (name[5] == 0 || name[5] == '.'))))
252b5132 5537 {
55fd94b0
AM
5538 (*_bfd_error_handler)
5539 (_("%s: the target (%s) of a %s relocation is "
5540 "in the wrong output section (%s)"),
5541 bfd_archive_filename (input_bfd),
5542 sym_name,
5543 howto->name,
5544 name);
252b5132 5545 }
7619e7c7
AM
5546 sh = htab->sdata->sym_hash;
5547 addend -= (sh->root.u.def.value
5548 + sh->root.u.def.section->output_section->vma
5549 + sh->root.u.def.section->output_offset);
252b5132
RH
5550 }
5551 break;
5552
70bccea4 5553 /* Relocate against _SDA2_BASE_. */
7619e7c7 5554 case R_PPC_EMB_SDA2REL:
252b5132
RH
5555 {
5556 const char *name;
7619e7c7 5557 const struct elf_link_hash_entry *sh;
252b5132 5558
55fd94b0 5559 BFD_ASSERT (sec != NULL);
252b5132 5560 name = bfd_get_section_name (abfd, sec->output_section);
5f819128
AM
5561 if (! (strncmp (name, ".sdata2", 7) == 0
5562 || strncmp (name, ".sbss2", 6) == 0))
252b5132 5563 {
55fd94b0
AM
5564 (*_bfd_error_handler)
5565 (_("%s: the target (%s) of a %s relocation is "
5566 "in the wrong output section (%s)"),
5567 bfd_archive_filename (input_bfd),
5568 sym_name,
5569 howto->name,
5570 name);
c3668558 5571
252b5132 5572 bfd_set_error (bfd_error_bad_value);
b34976b6 5573 ret = FALSE;
252b5132
RH
5574 continue;
5575 }
7619e7c7
AM
5576 sh = htab->sdata2->sym_hash;
5577 addend -= (sh->root.u.def.value
5578 + sh->root.u.def.section->output_section->vma
5579 + sh->root.u.def.section->output_offset);
252b5132
RH
5580 }
5581 break;
5582
70bccea4 5583 /* Relocate against either _SDA_BASE_, _SDA2_BASE_, or 0. */
7619e7c7
AM
5584 case R_PPC_EMB_SDA21:
5585 case R_PPC_EMB_RELSDA:
252b5132
RH
5586 {
5587 const char *name;
7619e7c7 5588 const struct elf_link_hash_entry *sh;
252b5132
RH
5589 int reg;
5590
55fd94b0 5591 BFD_ASSERT (sec != NULL);
252b5132 5592 name = bfd_get_section_name (abfd, sec->output_section);
b34976b6 5593 if (((strncmp (name, ".sdata", 6) == 0
5f819128
AM
5594 && (name[6] == 0 || name[6] == '.'))
5595 || (strncmp (name, ".sbss", 5) == 0
5596 && (name[5] == 0 || name[5] == '.'))))
252b5132
RH
5597 {
5598 reg = 13;
7619e7c7
AM
5599 sh = htab->sdata->sym_hash;
5600 addend -= (sh->root.u.def.value
5601 + sh->root.u.def.section->output_section->vma
5602 + sh->root.u.def.section->output_offset);
252b5132
RH
5603 }
5604
5f819128
AM
5605 else if (strncmp (name, ".sdata2", 7) == 0
5606 || strncmp (name, ".sbss2", 6) == 0)
252b5132
RH
5607 {
5608 reg = 2;
7619e7c7
AM
5609 sh = htab->sdata2->sym_hash;
5610 addend -= (sh->root.u.def.value
5611 + sh->root.u.def.section->output_section->vma
5612 + sh->root.u.def.section->output_offset);
252b5132
RH
5613 }
5614
8da6118f
KH
5615 else if (strcmp (name, ".PPC.EMB.sdata0") == 0
5616 || strcmp (name, ".PPC.EMB.sbss0") == 0)
252b5132
RH
5617 {
5618 reg = 0;
5619 }
5620
5621 else
5622 {
55fd94b0
AM
5623 (*_bfd_error_handler)
5624 (_("%s: the target (%s) of a %s relocation is "
5625 "in the wrong output section (%s)"),
5626 bfd_archive_filename (input_bfd),
5627 sym_name,
5628 howto->name,
5629 name);
252b5132
RH
5630
5631 bfd_set_error (bfd_error_bad_value);
b34976b6 5632 ret = FALSE;
252b5132
RH
5633 continue;
5634 }
5635
5636 if (r_type == R_PPC_EMB_SDA21)
5637 { /* fill in register field */
7619e7c7 5638 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
252b5132 5639 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
7619e7c7 5640 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
252b5132
RH
5641 }
5642 }
5643 break;
5644
70bccea4 5645 /* Relocate against the beginning of the section. */
7619e7c7
AM
5646 case R_PPC_SECTOFF:
5647 case R_PPC_SECTOFF_LO:
5648 case R_PPC_SECTOFF_HI:
5649 case R_PPC_SECTOFF_HA:
55fd94b0 5650 BFD_ASSERT (sec != NULL);
252b5132 5651 addend -= sec->output_section->vma;
252b5132
RH
5652 break;
5653
70bccea4 5654 /* Negative relocations. */
7619e7c7
AM
5655 case R_PPC_EMB_NADDR32:
5656 case R_PPC_EMB_NADDR16:
5657 case R_PPC_EMB_NADDR16_LO:
5658 case R_PPC_EMB_NADDR16_HI:
5659 case R_PPC_EMB_NADDR16_HA:
8da6118f 5660 addend -= 2 * relocation;
252b5132
RH
5661 break;
5662
7619e7c7
AM
5663 case R_PPC_COPY:
5664 case R_PPC_GLOB_DAT:
5665 case R_PPC_JMP_SLOT:
5666 case R_PPC_RELATIVE:
5667 case R_PPC_PLT32:
5668 case R_PPC_PLTREL32:
5669 case R_PPC_PLT16_LO:
5670 case R_PPC_PLT16_HI:
5671 case R_PPC_PLT16_HA:
5672 case R_PPC_ADDR30:
5673 case R_PPC_EMB_RELSEC16:
5674 case R_PPC_EMB_RELST_LO:
5675 case R_PPC_EMB_RELST_HI:
5676 case R_PPC_EMB_RELST_HA:
5677 case R_PPC_EMB_BIT_FLD:
5678 (*_bfd_error_handler)
7b609f53 5679 (_("%s: relocation %s is not yet supported for symbol %s."),
7619e7c7
AM
5680 bfd_archive_filename (input_bfd),
5681 howto->name,
5682 sym_name);
252b5132
RH
5683
5684 bfd_set_error (bfd_error_invalid_operation);
b34976b6 5685 ret = FALSE;
252b5132 5686 continue;
7619e7c7 5687 }
252b5132 5688
7619e7c7
AM
5689 /* Do any further special processing. */
5690 switch (r_type)
5691 {
5692 default:
5693 break;
5694
5695 case R_PPC_ADDR16_HA:
5696 case R_PPC_GOT16_HA:
5697 case R_PPC_PLT16_HA:
5698 case R_PPC_SECTOFF_HA:
5699 case R_PPC_TPREL16_HA:
5700 case R_PPC_DTPREL16_HA:
5701 case R_PPC_GOT_TLSGD16_HA:
5702 case R_PPC_GOT_TLSLD16_HA:
5703 case R_PPC_GOT_TPREL16_HA:
5704 case R_PPC_GOT_DTPREL16_HA:
5705 case R_PPC_EMB_NADDR16_HA:
5706 case R_PPC_EMB_RELST_HA:
5707 /* It's just possible that this symbol is a weak symbol
7b609f53 5708 that's not actually defined anywhere. In that case,
7619e7c7
AM
5709 'sec' would be NULL, and we should leave the symbol
5710 alone (it will be set to zero elsewhere in the link). */
5711 if (sec != NULL)
e515b051
AM
5712 /* Add 0x10000 if sign bit in 0:15 is set.
5713 Bits 0:15 are not used. */
5714 addend += 0x8000;
7619e7c7 5715 break;
252b5132
RH
5716 }
5717
252b5132 5718#ifdef DEBUG
55fd94b0
AM
5719 fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, "
5720 "offset = %ld, addend = %ld\n",
252b5132 5721 howto->name,
8da6118f 5722 (int) r_type,
252b5132
RH
5723 sym_name,
5724 r_symndx,
7619e7c7 5725 (long) rel->r_offset,
8da6118f 5726 (long) addend);
252b5132
RH
5727#endif
5728
7619e7c7
AM
5729 if (unresolved_reloc
5730 && !((input_section->flags & SEC_DEBUGGING) != 0
5731 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
5732 {
5733 (*_bfd_error_handler)
7b609f53 5734 (_("%s(%s+0x%lx): unresolvable %s relocation against symbol `%s'"),
7619e7c7
AM
5735 bfd_archive_filename (input_bfd),
5736 bfd_get_section_name (input_bfd, input_section),
5737 (long) rel->r_offset,
7b609f53 5738 howto->name,
7619e7c7
AM
5739 sym_name);
5740 ret = FALSE;
5741 }
5742
252b5132
RH
5743 r = _bfd_final_link_relocate (howto,
5744 input_bfd,
5745 input_section,
5746 contents,
7619e7c7 5747 rel->r_offset,
252b5132
RH
5748 relocation,
5749 addend);
5750
7619e7c7 5751 if (r != bfd_reloc_ok)
252b5132 5752 {
7619e7c7
AM
5753 if (sym_name == NULL)
5754 sym_name = "(null)";
5755 if (r == bfd_reloc_overflow)
252b5132 5756 {
7619e7c7
AM
5757 if (warned)
5758 continue;
5759 if (h != NULL
5760 && h->root.type == bfd_link_hash_undefweak
dc1bc0c9
RH
5761 && howto->pc_relative)
5762 {
5763 /* Assume this is a call protected by other code that
5764 detect the symbol is undefined. If this is the case,
5765 we can safely ignore the overflow. If not, the
5766 program is hosed anyway, and a little warning isn't
5767 going to help. */
252b5132 5768
dc1bc0c9
RH
5769 continue;
5770 }
252b5132 5771
7619e7c7
AM
5772 if (! (*info->callbacks->reloc_overflow) (info,
5773 sym_name,
5774 howto->name,
5775 rel->r_addend,
5776 input_bfd,
5777 input_section,
5778 rel->r_offset))
5779 return FALSE;
dc1bc0c9
RH
5780 }
5781 else
5782 {
7619e7c7 5783 (*_bfd_error_handler)
7b609f53 5784 (_("%s(%s+0x%lx): %s reloc against `%s': error %d"),
7619e7c7
AM
5785 bfd_archive_filename (input_bfd),
5786 bfd_get_section_name (input_bfd, input_section),
7b609f53 5787 (long) rel->r_offset, howto->name, sym_name, (int) r);
7619e7c7 5788 ret = FALSE;
252b5132
RH
5789 }
5790 }
5791 }
5792
252b5132
RH
5793#ifdef DEBUG
5794 fprintf (stderr, "\n");
5795#endif
5796
5797 return ret;
5798}
29c2fb7c
AJ
5799
5800static enum elf_reloc_type_class
55fd94b0 5801ppc_elf_reloc_type_class (const Elf_Internal_Rela *rela)
29c2fb7c 5802{
55fd94b0 5803 switch (ELF32_R_TYPE (rela->r_info))
29c2fb7c
AJ
5804 {
5805 case R_PPC_RELATIVE:
5806 return reloc_class_relative;
5807 case R_PPC_REL24:
5808 case R_PPC_ADDR24:
5809 case R_PPC_JMP_SLOT:
5810 return reloc_class_plt;
5811 case R_PPC_COPY:
5812 return reloc_class_copy;
5813 default:
5814 return reloc_class_normal;
5815 }
5816}
252b5132 5817\f
ae9a127f
NC
5818/* Support for core dump NOTE sections. */
5819
b34976b6 5820static bfd_boolean
55fd94b0 5821ppc_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
c5fccbec
DJ
5822{
5823 int offset;
eea6121a 5824 unsigned int size;
c5fccbec
DJ
5825
5826 switch (note->descsz)
5827 {
70bccea4
AM
5828 default:
5829 return FALSE;
c5fccbec 5830
70bccea4
AM
5831 case 268: /* Linux/PPC. */
5832 /* pr_cursig */
5833 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
c5fccbec 5834
70bccea4
AM
5835 /* pr_pid */
5836 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
c5fccbec 5837
70bccea4
AM
5838 /* pr_reg */
5839 offset = 72;
eea6121a 5840 size = 192;
c5fccbec 5841
70bccea4 5842 break;
c5fccbec
DJ
5843 }
5844
5845 /* Make a ".reg/999" section. */
5846 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
eea6121a 5847 size, note->descpos + offset);
c5fccbec
DJ
5848}
5849
b34976b6 5850static bfd_boolean
55fd94b0 5851ppc_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
c5fccbec
DJ
5852{
5853 switch (note->descsz)
5854 {
70bccea4
AM
5855 default:
5856 return FALSE;
c5fccbec 5857
70bccea4
AM
5858 case 128: /* Linux/PPC elf_prpsinfo. */
5859 elf_tdata (abfd)->core_program
5860 = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
5861 elf_tdata (abfd)->core_command
5862 = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
c5fccbec
DJ
5863 }
5864
5865 /* Note that for some reason, a spurious space is tacked
5866 onto the end of the args in some (at least one anyway)
5867 implementations, so strip it off if it exists. */
5868
5869 {
5870 char *command = elf_tdata (abfd)->core_command;
5871 int n = strlen (command);
5872
5873 if (0 < n && command[n - 1] == ' ')
5874 command[n - 1] = '\0';
5875 }
5876
b34976b6 5877 return TRUE;
c5fccbec
DJ
5878}
5879\f
e1a9cb8e
NC
5880/* Very simple linked list structure for recording apuinfo values. */
5881typedef struct apuinfo_list
5882{
70bccea4
AM
5883 struct apuinfo_list *next;
5884 unsigned long value;
e1a9cb8e
NC
5885}
5886apuinfo_list;
5887
55fd94b0 5888static apuinfo_list *head;
e1a9cb8e
NC
5889
5890
e1a9cb8e 5891static void
55fd94b0 5892apuinfo_list_init (void)
e1a9cb8e
NC
5893{
5894 head = NULL;
5895}
5896
5897static void
55fd94b0 5898apuinfo_list_add (unsigned long value)
e1a9cb8e 5899{
70bccea4 5900 apuinfo_list *entry = head;
e1a9cb8e
NC
5901
5902 while (entry != NULL)
5903 {
5904 if (entry->value == value)
5905 return;
5906 entry = entry->next;
5907 }
5908
5909 entry = bfd_malloc (sizeof (* entry));
5910 if (entry == NULL)
5911 return;
5912
5913 entry->value = value;
5914 entry->next = head;
5915 head = entry;
5916}
5917
5918static unsigned
55fd94b0 5919apuinfo_list_length (void)
e1a9cb8e 5920{
70bccea4 5921 apuinfo_list *entry;
e1a9cb8e
NC
5922 unsigned long count;
5923
5924 for (entry = head, count = 0;
5925 entry;
5926 entry = entry->next)
5927 ++ count;
5928
5929 return count;
5930}
5931
5932static inline unsigned long
55fd94b0 5933apuinfo_list_element (unsigned long number)
e1a9cb8e
NC
5934{
5935 apuinfo_list * entry;
5936
5937 for (entry = head;
5938 entry && number --;
5939 entry = entry->next)
5940 ;
5941
5942 return entry ? entry->value : 0;
5943}
5944
5945static void
55fd94b0 5946apuinfo_list_finish (void)
e1a9cb8e 5947{
70bccea4 5948 apuinfo_list *entry;
e1a9cb8e
NC
5949
5950 for (entry = head; entry;)
5951 {
70bccea4 5952 apuinfo_list *next = entry->next;
e1a9cb8e
NC
5953 free (entry);
5954 entry = next;
5955 }
5956
5957 head = NULL;
5958}
5959
70bccea4
AM
5960#define APUINFO_SECTION_NAME ".PPC.EMB.apuinfo"
5961#define APUINFO_LABEL "APUinfo"
e1a9cb8e
NC
5962
5963/* Scan the input BFDs and create a linked list of
5964 the APUinfo values that will need to be emitted. */
5965
55fd94b0
AM
5966static void
5967ppc_elf_begin_write_processing (bfd *abfd, struct bfd_link_info *link_info)
e1a9cb8e 5968{
70bccea4
AM
5969 bfd *ibfd;
5970 asection *asec;
5971 char *buffer;
5972 unsigned num_input_sections;
e1a9cb8e 5973 bfd_size_type output_section_size;
70bccea4
AM
5974 unsigned i;
5975 unsigned num_entries;
e1a9cb8e
NC
5976 unsigned long offset;
5977 unsigned long length;
70bccea4 5978 const char *error_message = NULL;
e1a9cb8e 5979
6b0817e5
NC
5980 if (link_info == NULL)
5981 return;
5982
e1a9cb8e
NC
5983 /* Scan the input bfds, looking for apuinfo sections. */
5984 num_input_sections = 0;
5985 output_section_size = 0;
5986
5987 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
5988 {
5989 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
5990 if (asec)
5991 {
5992 ++ num_input_sections;
eea6121a 5993 output_section_size += asec->size;
e1a9cb8e
NC
5994 }
5995 }
5996
5997 /* We need at least one input sections
5998 in order to make merging worthwhile. */
5999 if (num_input_sections < 1)
6000 return;
6001
6002 /* Just make sure that the output section exists as well. */
6003 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
6004 if (asec == NULL)
6005 return;
6006
6007 /* Allocate a buffer for the contents of the input sections. */
6008 buffer = bfd_malloc (output_section_size);
6009 if (buffer == NULL)
6010 return;
6011
6012 offset = 0;
6013 apuinfo_list_init ();
6014
6015 /* Read in the input sections contents. */
6016 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
6017 {
70bccea4
AM
6018 unsigned long datum;
6019 char *ptr;
86bbe32f 6020
e1a9cb8e
NC
6021 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
6022 if (asec == NULL)
6023 continue;
6024
eea6121a 6025 length = asec->size;
e1a9cb8e
NC
6026 if (length < 24)
6027 {
6028 error_message = _("corrupt or empty %s section in %s");
6029 goto fail;
6030 }
86bbe32f 6031
e1a9cb8e
NC
6032 if (bfd_seek (ibfd, asec->filepos, SEEK_SET) != 0
6033 || (bfd_bread (buffer + offset, length, ibfd) != length))
6034 {
6035 error_message = _("unable to read in %s section from %s");
6036 goto fail;
6037 }
6038
6039 /* Process the contents of the section. */
6040 ptr = buffer + offset;
6041 error_message = _("corrupt %s section in %s");
6042
6043 /* Verify the contents of the header. Note - we have to
6044 extract the values this way in order to allow for a
6045 host whose endian-ness is different from the target. */
6046 datum = bfd_get_32 (ibfd, ptr);
6047 if (datum != sizeof APUINFO_LABEL)
6048 goto fail;
6049
6050 datum = bfd_get_32 (ibfd, ptr + 8);
6051 if (datum != 0x2)
6052 goto fail;
6053
6054 if (strcmp (ptr + 12, APUINFO_LABEL) != 0)
6055 goto fail;
6056
88810f8c 6057 /* Get the number of bytes used for apuinfo entries. */
e1a9cb8e 6058 datum = bfd_get_32 (ibfd, ptr + 4);
88810f8c 6059 if (datum + 20 != length)
e1a9cb8e
NC
6060 goto fail;
6061
6062 /* Make sure that we do not run off the end of the section. */
6063 if (offset + length > output_section_size)
6064 goto fail;
6065
6066 /* Scan the apuinfo section, building a list of apuinfo numbers. */
88810f8c
MM
6067 for (i = 0; i < datum; i += 4)
6068 apuinfo_list_add (bfd_get_32 (ibfd, ptr + 20 + i));
e1a9cb8e
NC
6069
6070 /* Update the offset. */
6071 offset += length;
6072 }
6073
6074 error_message = NULL;
6075
6076 /* Compute the size of the output section. */
6077 num_entries = apuinfo_list_length ();
6078 output_section_size = 20 + num_entries * 4;
6079
6080 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
6081
70bccea4 6082 if (! bfd_set_section_size (abfd, asec, output_section_size))
e1a9cb8e
NC
6083 ibfd = abfd,
6084 error_message = _("warning: unable to set size of %s section in %s");
86bbe32f 6085
e1a9cb8e
NC
6086 fail:
6087 free (buffer);
6088
6089 if (error_message)
70bccea4
AM
6090 (*_bfd_error_handler) (error_message, APUINFO_SECTION_NAME,
6091 bfd_archive_filename (ibfd));
e1a9cb8e
NC
6092}
6093
6094
6095/* Prevent the output section from accumulating the input sections'
6096 contents. We have already stored this in our linked list structure. */
6097
55fd94b0
AM
6098static bfd_boolean
6099ppc_elf_write_section (bfd *abfd ATTRIBUTE_UNUSED,
6100 asection *asec,
6101 bfd_byte *contents ATTRIBUTE_UNUSED)
e1a9cb8e 6102{
70bccea4
AM
6103 return (apuinfo_list_length ()
6104 && strcmp (asec->name, APUINFO_SECTION_NAME) == 0);
e1a9cb8e
NC
6105}
6106
6107
6108/* Finally we can generate the output section. */
6109
55fd94b0
AM
6110static void
6111ppc_elf_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
e1a9cb8e 6112{
70bccea4
AM
6113 bfd_byte *buffer;
6114 asection *asec;
6115 unsigned i;
6116 unsigned num_entries;
e1a9cb8e
NC
6117 bfd_size_type length;
6118
6119 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
6120 if (asec == NULL)
6121 return;
6122
6b0817e5
NC
6123 if (apuinfo_list_length () == 0)
6124 return;
6125
eea6121a 6126 length = asec->size;
e1a9cb8e
NC
6127 if (length < 20)
6128 return;
6129
6130 buffer = bfd_malloc (length);
6131 if (buffer == NULL)
6132 {
70bccea4
AM
6133 (*_bfd_error_handler)
6134 (_("failed to allocate space for new APUinfo section."));
e1a9cb8e
NC
6135 return;
6136 }
6137
6138 /* Create the apuinfo header. */
6139 num_entries = apuinfo_list_length ();
6140 bfd_put_32 (abfd, sizeof APUINFO_LABEL, buffer);
88810f8c 6141 bfd_put_32 (abfd, num_entries * 4, buffer + 4);
e1a9cb8e
NC
6142 bfd_put_32 (abfd, 0x2, buffer + 8);
6143 strcpy (buffer + 12, APUINFO_LABEL);
86bbe32f 6144
e1a9cb8e
NC
6145 length = 20;
6146 for (i = 0; i < num_entries; i++)
6147 {
6148 bfd_put_32 (abfd, apuinfo_list_element (i), buffer + length);
6149 length += 4;
6150 }
6151
eea6121a 6152 if (length != asec->size)
70bccea4 6153 (*_bfd_error_handler) (_("failed to compute new APUinfo section."));
86bbe32f 6154
e1a9cb8e 6155 if (! bfd_set_section_contents (abfd, asec, buffer, (file_ptr) 0, length))
70bccea4 6156 (*_bfd_error_handler) (_("failed to install new APUinfo section."));
86bbe32f 6157
e1a9cb8e
NC
6158 free (buffer);
6159
6160 apuinfo_list_finish ();
6161}
2f89ff8d 6162
4c45e5c9
JJ
6163/* Return address for Ith PLT stub in section PLT, for relocation REL
6164 or (bfd_vma) -1 if it should not be included. */
6165
6166static bfd_vma
6167ppc_elf_plt_sym_val (bfd_vma i ATTRIBUTE_UNUSED,
6168 const asection *plt ATTRIBUTE_UNUSED,
6169 const arelent *rel)
6170{
6171 return rel->address;
6172}
6173
2f89ff8d
L
6174/* Add extra PPC sections -- Note, for now, make .sbss2 and
6175 .PPC.EMB.sbss0 a normal section, and not a bss section so
6176 that the linker doesn't crater when trying to make more than
6177 2 sections. */
6178
6179static struct bfd_elf_special_section const ppc_elf_special_sections[]=
6180{
7dcb9820
AM
6181 { ".tags", 5, 0, SHT_ORDERED, SHF_ALLOC },
6182 { ".sdata", 6, -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
6183 { ".sbss", 5, -2, SHT_NOBITS, SHF_ALLOC + SHF_WRITE },
6184 { ".sdata2", 7, -2, SHT_PROGBITS, SHF_ALLOC },
6185 { ".sbss2", 6, -2, SHT_PROGBITS, SHF_ALLOC },
6186 { ".PPC.EMB.apuinfo", 16, 0, SHT_NOTE, 0 },
6187 { ".PPC.EMB.sdata0", 15, 0, SHT_PROGBITS, SHF_ALLOC },
6188 { ".PPC.EMB.sbss0", 14, 0, SHT_PROGBITS, SHF_ALLOC },
6189 { ".plt", 4, 0, SHT_NOBITS, SHF_ALLOC + SHF_EXECINSTR },
6190 { NULL, 0, 0, 0, 0 }
2f89ff8d 6191};
e1a9cb8e 6192\f
252b5132
RH
6193#define TARGET_LITTLE_SYM bfd_elf32_powerpcle_vec
6194#define TARGET_LITTLE_NAME "elf32-powerpcle"
6195#define TARGET_BIG_SYM bfd_elf32_powerpc_vec
6196#define TARGET_BIG_NAME "elf32-powerpc"
6197#define ELF_ARCH bfd_arch_powerpc
6198#define ELF_MACHINE_CODE EM_PPC
d0facd1b
NC
6199#ifdef __QNXTARGET__
6200#define ELF_MAXPAGESIZE 0x1000
6201#else
252b5132 6202#define ELF_MAXPAGESIZE 0x10000
d0facd1b 6203#endif
252b5132
RH
6204#define elf_info_to_howto ppc_elf_info_to_howto
6205
6206#ifdef EM_CYGNUS_POWERPC
6207#define ELF_MACHINE_ALT1 EM_CYGNUS_POWERPC
6208#endif
6209
6210#ifdef EM_PPC_OLD
6211#define ELF_MACHINE_ALT2 EM_PPC_OLD
6212#endif
6213
6214#define elf_backend_plt_not_loaded 1
6215#define elf_backend_got_symbol_offset 4
6216#define elf_backend_can_gc_sections 1
51b64d56 6217#define elf_backend_can_refcount 1
252b5132 6218#define elf_backend_got_header_size 12
b491616a 6219#define elf_backend_rela_normal 1
252b5132 6220
43c40ab2 6221#define bfd_elf32_mkobject ppc_elf_mkobject
252b5132 6222#define bfd_elf32_bfd_merge_private_bfd_data ppc_elf_merge_private_bfd_data
70bccea4 6223#define bfd_elf32_bfd_relax_section ppc_elf_relax_section
252b5132
RH
6224#define bfd_elf32_bfd_reloc_type_lookup ppc_elf_reloc_type_lookup
6225#define bfd_elf32_bfd_set_private_flags ppc_elf_set_private_flags
70bccea4 6226#define bfd_elf32_bfd_link_hash_table_create ppc_elf_link_hash_table_create
252b5132 6227
feee612b 6228#define elf_backend_object_p ppc_elf_object_p
252b5132
RH
6229#define elf_backend_gc_mark_hook ppc_elf_gc_mark_hook
6230#define elf_backend_gc_sweep_hook ppc_elf_gc_sweep_hook
6231#define elf_backend_section_from_shdr ppc_elf_section_from_shdr
6232#define elf_backend_relocate_section ppc_elf_relocate_section
6233#define elf_backend_create_dynamic_sections ppc_elf_create_dynamic_sections
6234#define elf_backend_check_relocs ppc_elf_check_relocs
7fce784e 6235#define elf_backend_copy_indirect_symbol ppc_elf_copy_indirect_symbol
252b5132
RH
6236#define elf_backend_adjust_dynamic_symbol ppc_elf_adjust_dynamic_symbol
6237#define elf_backend_add_symbol_hook ppc_elf_add_symbol_hook
6238#define elf_backend_size_dynamic_sections ppc_elf_size_dynamic_sections
6239#define elf_backend_finish_dynamic_symbol ppc_elf_finish_dynamic_symbol
6240#define elf_backend_finish_dynamic_sections ppc_elf_finish_dynamic_sections
6241#define elf_backend_fake_sections ppc_elf_fake_sections
6242#define elf_backend_additional_program_headers ppc_elf_additional_program_headers
6243#define elf_backend_modify_segment_map ppc_elf_modify_segment_map
c5fccbec
DJ
6244#define elf_backend_grok_prstatus ppc_elf_grok_prstatus
6245#define elf_backend_grok_psinfo ppc_elf_grok_psinfo
29c2fb7c 6246#define elf_backend_reloc_type_class ppc_elf_reloc_type_class
70bccea4
AM
6247#define elf_backend_begin_write_processing ppc_elf_begin_write_processing
6248#define elf_backend_final_write_processing ppc_elf_final_write_processing
6249#define elf_backend_write_section ppc_elf_write_section
2f89ff8d 6250#define elf_backend_special_sections ppc_elf_special_sections
4c45e5c9 6251#define elf_backend_plt_sym_val ppc_elf_plt_sym_val
252b5132
RH
6252
6253#include "elf32-target.h"
This page took 0.654883 seconds and 4 git commands to generate.