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