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