projects / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
* elf32-i386.c: Convert to C90 function definitions, remove unnecessary
[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[(int) 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 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1834 /* Initialize howto table if needed. */
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 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1936 /* Initialize howto table if needed. */
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->relocateable)
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 /* Create the linker generated sections all the time so that the
3098 special symbols are created. */
3099
3100 htab = ppc_elf_hash_table (info);
3101 if (htab->sdata == NULL)
3102 {
3103 htab->sdata = elf_linker_section (abfd, LINKER_SECTION_SDATA);
3104 if (htab->sdata == NULL)
3105 htab->sdata = ppc_elf_create_linker_section (abfd, info,
3106 LINKER_SECTION_SDATA);
3107 if (htab->sdata == NULL)
3108 return FALSE;
3109 }
3110
3111 if (htab->sdata2 == NULL)
3112 {
3113 htab->sdata2 = elf_linker_section (abfd, LINKER_SECTION_SDATA2);
3114 if (htab->sdata2 == NULL)
3115 htab->sdata2 = ppc_elf_create_linker_section (abfd, info,
3116 LINKER_SECTION_SDATA2);
3117 if (htab->sdata2 == NULL)
3118 return FALSE;
3119 }
3120
3121 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3122 sym_hashes = elf_sym_hashes (abfd);
3123 sreloc = NULL;
3124
3125 rel_end = relocs + sec->reloc_count;
3126 for (rel = relocs; rel < rel_end; rel++)
3127 {
3128 unsigned long r_symndx;
3129 enum elf_ppc_reloc_type r_type;
3130 struct elf_link_hash_entry *h;
3131 int tls_type = 0;
3132
3133 r_symndx = ELF32_R_SYM (rel->r_info);
3134 if (r_symndx < symtab_hdr->sh_info)
3135 h = NULL;
3136 else
3137 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3138
3139 /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
3140 This shows up in particular in an R_PPC_ADDR32 in the eabi
3141 startup code. */
3142 if (h && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3143 {
3144 if (htab->got == NULL)
3145 {
3146 if (htab->elf.dynobj == NULL)
3147 htab->elf.dynobj = abfd;
3148 if (!ppc_elf_create_got (htab->elf.dynobj, info))
3149 return FALSE;
3150 }
3151 }
3152
3153 r_type = ELF32_R_TYPE (rel->r_info);
3154 switch (r_type)
3155 {
3156 case R_PPC_GOT_TLSLD16:
3157 case R_PPC_GOT_TLSLD16_LO:
3158 case R_PPC_GOT_TLSLD16_HI:
3159 case R_PPC_GOT_TLSLD16_HA:
3160 htab->tlsld_got.refcount += 1;
3161 tls_type = TLS_TLS | TLS_LD;
3162 goto dogottls;
3163
3164 case R_PPC_GOT_TLSGD16:
3165 case R_PPC_GOT_TLSGD16_LO:
3166 case R_PPC_GOT_TLSGD16_HI:
3167 case R_PPC_GOT_TLSGD16_HA:
3168 tls_type = TLS_TLS | TLS_GD;
3169 goto dogottls;
3170
3171 case R_PPC_GOT_TPREL16:
3172 case R_PPC_GOT_TPREL16_LO:
3173 case R_PPC_GOT_TPREL16_HI:
3174 case R_PPC_GOT_TPREL16_HA:
3175 if (info->shared)
3176 info->flags |= DF_STATIC_TLS;
3177 tls_type = TLS_TLS | TLS_TPREL;
3178 goto dogottls;
3179
3180 case R_PPC_GOT_DTPREL16:
3181 case R_PPC_GOT_DTPREL16_LO:
3182 case R_PPC_GOT_DTPREL16_HI:
3183 case R_PPC_GOT_DTPREL16_HA:
3184 tls_type = TLS_TLS | TLS_DTPREL;
3185 dogottls:
3186 sec->has_tls_reloc = 1;
3187 /* Fall thru */
3188
3189 /* GOT16 relocations */
3190 case R_PPC_GOT16:
3191 case R_PPC_GOT16_LO:
3192 case R_PPC_GOT16_HI:
3193 case R_PPC_GOT16_HA:
3194 /* This symbol requires a global offset table entry. */
3195 if (htab->got == NULL)
3196 {
3197 if (htab->elf.dynobj == NULL)
3198 htab->elf.dynobj = abfd;
3199 if (!ppc_elf_create_got (htab->elf.dynobj, info))
3200 return FALSE;
3201 }
3202 if (h != NULL)
3203 {
3204 h->got.refcount += 1;
3205 ppc_elf_hash_entry (h)->tls_mask |= tls_type;
3206 }
3207 else
3208 /* This is a global offset table entry for a local symbol. */
3209 if (!update_local_sym_info (abfd, symtab_hdr, r_symndx, tls_type))
3210 return FALSE;
3211 break;
3212
3213 /* Indirect .sdata relocation. */
3214 case R_PPC_EMB_SDAI16:
3215 if (info->shared)
3216 {
3217 bad_shared_reloc (abfd, r_type);
3218 return FALSE;
3219 }
3220 if (!bfd_elf32_create_pointer_linker_section (abfd, info,
3221 htab->sdata, h, rel))
3222 return FALSE;
3223 break;
3224
3225 /* Indirect .sdata2 relocation. */
3226 case R_PPC_EMB_SDA2I16:
3227 if (info->shared)
3228 {
3229 bad_shared_reloc (abfd, r_type);
3230 return FALSE;
3231 }
3232 if (!bfd_elf32_create_pointer_linker_section (abfd, info,
3233 htab->sdata2, h, rel))
3234 return FALSE;
3235 break;
3236
3237 case R_PPC_SDAREL16:
3238 case R_PPC_EMB_SDA2REL:
3239 case R_PPC_EMB_SDA21:
3240 case R_PPC_EMB_RELSDA:
3241 case R_PPC_EMB_NADDR32:
3242 case R_PPC_EMB_NADDR16:
3243 case R_PPC_EMB_NADDR16_LO:
3244 case R_PPC_EMB_NADDR16_HI:
3245 case R_PPC_EMB_NADDR16_HA:
3246 if (info->shared)
3247 {
3248 bad_shared_reloc (abfd, r_type);
3249 return FALSE;
3250 }
3251 break;
3252
3253 case R_PPC_PLT32:
3254 case R_PPC_PLTREL24:
3255 case R_PPC_PLTREL32:
3256 case R_PPC_PLT16_LO:
3257 case R_PPC_PLT16_HI:
3258 case R_PPC_PLT16_HA:
3259 #ifdef DEBUG
3260 fprintf (stderr, "Reloc requires a PLT entry\n");
3261 #endif
3262 /* This symbol requires a procedure linkage table entry. We
3263 actually build the entry in finish_dynamic_symbol,
3264 because this might be a case of linking PIC code without
3265 linking in any dynamic objects, in which case we don't
3266 need to generate a procedure linkage table after all. */
3267
3268 if (h == NULL)
3269 {
3270 /* It does not make sense to have a procedure linkage
3271 table entry for a local symbol. */
3272 bfd_set_error (bfd_error_bad_value);
3273 return FALSE;
3274 }
3275
3276 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
3277 h->plt.refcount++;
3278 break;
3279
3280 /* The following relocations don't need to propagate the
3281 relocation if linking a shared object since they are
3282 section relative. */
3283 case R_PPC_SECTOFF:
3284 case R_PPC_SECTOFF_LO:
3285 case R_PPC_SECTOFF_HI:
3286 case R_PPC_SECTOFF_HA:
3287 case R_PPC_DTPREL16:
3288 case R_PPC_DTPREL16_LO:
3289 case R_PPC_DTPREL16_HI:
3290 case R_PPC_DTPREL16_HA:
3291 case R_PPC_TOC16:
3292 break;
3293
3294 /* This are just markers. */
3295 case R_PPC_TLS:
3296 case R_PPC_EMB_MRKREF:
3297 case R_PPC_NONE:
3298 case R_PPC_max:
3299 break;
3300
3301 /* These should only appear in dynamic objects. */
3302 case R_PPC_COPY:
3303 case R_PPC_GLOB_DAT:
3304 case R_PPC_JMP_SLOT:
3305 case R_PPC_RELATIVE:
3306 break;
3307
3308 /* These aren't handled yet. We'll report an error later. */
3309 case R_PPC_ADDR30:
3310 case R_PPC_EMB_RELSEC16:
3311 case R_PPC_EMB_RELST_LO:
3312 case R_PPC_EMB_RELST_HI:
3313 case R_PPC_EMB_RELST_HA:
3314 case R_PPC_EMB_BIT_FLD:
3315 break;
3316
3317 /* This refers only to functions defined in the shared library. */
3318 case R_PPC_LOCAL24PC:
3319 break;
3320
3321 /* This relocation describes the C++ object vtable hierarchy.
3322 Reconstruct it for later use during GC. */
3323 case R_PPC_GNU_VTINHERIT:
3324 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
3325 return FALSE;
3326 break;
3327
3328 /* This relocation describes which C++ vtable entries are actually
3329 used. Record for later use during GC. */
3330 case R_PPC_GNU_VTENTRY:
3331 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
3332 return FALSE;
3333 break;
3334
3335 /* We shouldn't really be seeing these. */
3336 case R_PPC_TPREL32:
3337 if (info->shared)
3338 info->flags |= DF_STATIC_TLS;
3339 goto dodyn;
3340
3341 /* Nor these. */
3342 case R_PPC_DTPMOD32:
3343 case R_PPC_DTPREL32:
3344 goto dodyn;
3345
3346 case R_PPC_TPREL16:
3347 case R_PPC_TPREL16_LO:
3348 case R_PPC_TPREL16_HI:
3349 case R_PPC_TPREL16_HA:
3350 if (info->shared)
3351 info->flags |= DF_STATIC_TLS;
3352 goto dodyn;
3353
3354 /* When creating a shared object, we must copy these
3355 relocs into the output file. We create a reloc
3356 section in dynobj and make room for the reloc. */
3357 case R_PPC_REL24:
3358 case R_PPC_REL14:
3359 case R_PPC_REL14_BRTAKEN:
3360 case R_PPC_REL14_BRNTAKEN:
3361 case R_PPC_REL32:
3362 if (h == NULL
3363 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3364 break;
3365 /* fall through */
3366
3367 case R_PPC_ADDR32:
3368 case R_PPC_ADDR24:
3369 case R_PPC_ADDR16:
3370 case R_PPC_ADDR16_LO:
3371 case R_PPC_ADDR16_HI:
3372 case R_PPC_ADDR16_HA:
3373 case R_PPC_ADDR14:
3374 case R_PPC_ADDR14_BRTAKEN:
3375 case R_PPC_ADDR14_BRNTAKEN:
3376 case R_PPC_UADDR32:
3377 case R_PPC_UADDR16:
3378 if (h != NULL && !info->shared)
3379 {
3380 /* We may need a plt entry if the symbol turns out to be
3381 a function defined in a dynamic object. */
3382 h->plt.refcount++;
3383
3384 /* We may need a copy reloc too. */
3385 h->elf_link_hash_flags |= ELF_LINK_NON_GOT_REF;
3386 }
3387
3388 dodyn:
3389 /* If we are creating a shared library, and this is a reloc
3390 against a global symbol, or a non PC relative reloc
3391 against a local symbol, then we need to copy the reloc
3392 into the shared library. However, if we are linking with
3393 -Bsymbolic, we do not need to copy a reloc against a
3394 global symbol which is defined in an object we are
3395 including in the link (i.e., DEF_REGULAR is set). At
3396 this point we have not seen all the input files, so it is
3397 possible that DEF_REGULAR is not set now but will be set
3398 later (it is never cleared). In case of a weak definition,
3399 DEF_REGULAR may be cleared later by a strong definition in
3400 a shared library. We account for that possibility below by
3401 storing information in the dyn_relocs field of the hash
3402 table entry. A similar situation occurs when creating
3403 shared libraries and symbol visibility changes render the
3404 symbol local.
3405
3406 If on the other hand, we are creating an executable, we
3407 may need to keep relocations for symbols satisfied by a
3408 dynamic library if we manage to avoid copy relocs for the
3409 symbol. */
3410 if ((info->shared
3411 && (MUST_BE_DYN_RELOC (r_type)
3412 || (h != NULL
3413 && (! info->symbolic
3414 || h->root.type == bfd_link_hash_defweak
3415 || (h->elf_link_hash_flags
3416 & ELF_LINK_HASH_DEF_REGULAR) == 0))))
3417 || (ELIMINATE_COPY_RELOCS
3418 && !info->shared
3419 && (sec->flags & SEC_ALLOC) != 0
3420 && h != NULL
3421 && (h->root.type == bfd_link_hash_defweak
3422 || (h->elf_link_hash_flags
3423 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
3424 {
3425 struct ppc_elf_dyn_relocs *p;
3426 struct ppc_elf_dyn_relocs **head;
3427
3428 #ifdef DEBUG
3429 fprintf (stderr,
3430 "ppc_elf_check_relocs needs to "
3431 "create relocation for %s\n",
3432 (h && h->root.root.string
3433 ? h->root.root.string : "<unknown>"));
3434 #endif
3435 if (sreloc == NULL)
3436 {
3437 const char *name;
3438
3439 name = (bfd_elf_string_from_elf_section
3440 (abfd,
3441 elf_elfheader (abfd)->e_shstrndx,
3442 elf_section_data (sec)->rel_hdr.sh_name));
3443 if (name == NULL)
3444 return FALSE;
3445
3446 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
3447 && strcmp (bfd_get_section_name (abfd, sec),
3448 name + 5) == 0);
3449
3450 sreloc = bfd_get_section_by_name (htab->elf.dynobj, name);
3451 if (sreloc == NULL)
3452 {
3453 flagword flags;
3454
3455 sreloc = bfd_make_section (htab->elf.dynobj, name);
3456 flags = (SEC_HAS_CONTENTS | SEC_READONLY
3457 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3458 if ((sec->flags & SEC_ALLOC) != 0)
3459 flags |= SEC_ALLOC | SEC_LOAD;
3460 if (sreloc == NULL
3461 || ! bfd_set_section_flags (htab->elf.dynobj,
3462 sreloc, flags)
3463 || ! bfd_set_section_alignment (htab->elf.dynobj,
3464 sreloc, 2))
3465 return FALSE;
3466 }
3467 elf_section_data (sec)->sreloc = sreloc;
3468 }
3469
3470 /* If this is a global symbol, we count the number of
3471 relocations we need for this symbol. */
3472 if (h != NULL)
3473 {
3474 head = &ppc_elf_hash_entry (h)->dyn_relocs;
3475 }
3476 else
3477 {
3478 /* Track dynamic relocs needed for local syms too.
3479 We really need local syms available to do this
3480 easily. Oh well. */
3481
3482 asection *s;
3483 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
3484 sec, r_symndx);
3485 if (s == NULL)
3486 return FALSE;
3487
3488 head = ((struct ppc_elf_dyn_relocs **)
3489 &elf_section_data (s)->local_dynrel);
3490 }
3491
3492 p = *head;
3493 if (p == NULL || p->sec != sec)
3494 {
3495 p = bfd_alloc (htab->elf.dynobj, sizeof *p);
3496 if (p == NULL)
3497 return FALSE;
3498 p->next = *head;
3499 *head = p;
3500 p->sec = sec;
3501 p->count = 0;
3502 p->pc_count = 0;
3503 }
3504
3505 p->count += 1;
3506 if (!MUST_BE_DYN_RELOC (r_type))
3507 p->pc_count += 1;
3508 }
3509
3510 break;
3511 }
3512 }
3513
3514 return TRUE;
3515 }
3516
3517 /* Return the section that should be marked against GC for a given
3518 relocation. */
3519
3520 static asection *
3521 ppc_elf_gc_mark_hook (asection *sec,
3522 struct bfd_link_info *info ATTRIBUTE_UNUSED,
3523 Elf_Internal_Rela *rel,
3524 struct elf_link_hash_entry *h,
3525 Elf_Internal_Sym *sym)
3526 {
3527 if (h != NULL)
3528 {
3529 switch (ELF32_R_TYPE (rel->r_info))
3530 {
3531 case R_PPC_GNU_VTINHERIT:
3532 case R_PPC_GNU_VTENTRY:
3533 break;
3534
3535 default:
3536 switch (h->root.type)
3537 {
3538 case bfd_link_hash_defined:
3539 case bfd_link_hash_defweak:
3540 return h->root.u.def.section;
3541
3542 case bfd_link_hash_common:
3543 return h->root.u.c.p->section;
3544
3545 default:
3546 break;
3547 }
3548 }
3549 }
3550 else
3551 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
3552
3553 return NULL;
3554 }
3555
3556 /* Update the got, plt and dynamic reloc reference counts for the
3557 section being removed. */
3558
3559 static bfd_boolean
3560 ppc_elf_gc_sweep_hook (bfd *abfd,
3561 struct bfd_link_info *info,
3562 asection *sec,
3563 const Elf_Internal_Rela *relocs)
3564 {
3565 struct ppc_elf_link_hash_table *htab;
3566 Elf_Internal_Shdr *symtab_hdr;
3567 struct elf_link_hash_entry **sym_hashes;
3568 bfd_signed_vma *local_got_refcounts;
3569 const Elf_Internal_Rela *rel, *relend;
3570
3571 elf_section_data (sec)->local_dynrel = NULL;
3572
3573 htab = ppc_elf_hash_table (info);
3574 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3575 sym_hashes = elf_sym_hashes (abfd);
3576 local_got_refcounts = elf_local_got_refcounts (abfd);
3577
3578 relend = relocs + sec->reloc_count;
3579 for (rel = relocs; rel < relend; rel++)
3580 {
3581 unsigned long r_symndx;
3582 enum elf_ppc_reloc_type r_type;
3583 struct elf_link_hash_entry *h = NULL;
3584
3585 r_symndx = ELF32_R_SYM (rel->r_info);
3586 if (r_symndx >= symtab_hdr->sh_info)
3587 {
3588 struct ppc_elf_dyn_relocs **pp, *p;
3589 struct ppc_elf_link_hash_entry *eh;
3590
3591 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3592 eh = (struct ppc_elf_link_hash_entry *) h;
3593
3594 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
3595 if (p->sec == sec)
3596 {
3597 /* Everything must go for SEC. */
3598 *pp = p->next;
3599 break;
3600 }
3601 }
3602
3603 r_type = ELF32_R_TYPE (rel->r_info);
3604 switch (r_type)
3605 {
3606 case R_PPC_GOT_TLSLD16:
3607 case R_PPC_GOT_TLSLD16_LO:
3608 case R_PPC_GOT_TLSLD16_HI:
3609 case R_PPC_GOT_TLSLD16_HA:
3610 htab->tlsld_got.refcount -= 1;
3611 /* Fall thru */
3612
3613 case R_PPC_GOT_TLSGD16:
3614 case R_PPC_GOT_TLSGD16_LO:
3615 case R_PPC_GOT_TLSGD16_HI:
3616 case R_PPC_GOT_TLSGD16_HA:
3617 case R_PPC_GOT_TPREL16:
3618 case R_PPC_GOT_TPREL16_LO:
3619 case R_PPC_GOT_TPREL16_HI:
3620 case R_PPC_GOT_TPREL16_HA:
3621 case R_PPC_GOT_DTPREL16:
3622 case R_PPC_GOT_DTPREL16_LO:
3623 case R_PPC_GOT_DTPREL16_HI:
3624 case R_PPC_GOT_DTPREL16_HA:
3625 case R_PPC_GOT16:
3626 case R_PPC_GOT16_LO:
3627 case R_PPC_GOT16_HI:
3628 case R_PPC_GOT16_HA:
3629 if (h != NULL)
3630 {
3631 if (h->got.refcount > 0)
3632 h->got.refcount--;
3633 }
3634 else if (local_got_refcounts != NULL)
3635 {
3636 if (local_got_refcounts[r_symndx] > 0)
3637 local_got_refcounts[r_symndx]--;
3638 }
3639 break;
3640
3641 case R_PPC_REL24:
3642 case R_PPC_REL14:
3643 case R_PPC_REL14_BRTAKEN:
3644 case R_PPC_REL14_BRNTAKEN:
3645 case R_PPC_REL32:
3646 if (h == NULL
3647 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3648 break;
3649 /* Fall thru */
3650
3651 case R_PPC_ADDR32:
3652 case R_PPC_ADDR24:
3653 case R_PPC_ADDR16:
3654 case R_PPC_ADDR16_LO:
3655 case R_PPC_ADDR16_HI:
3656 case R_PPC_ADDR16_HA:
3657 case R_PPC_ADDR14:
3658 case R_PPC_ADDR14_BRTAKEN:
3659 case R_PPC_ADDR14_BRNTAKEN:
3660 case R_PPC_UADDR32:
3661 case R_PPC_UADDR16:
3662 case R_PPC_PLT32:
3663 case R_PPC_PLTREL24:
3664 case R_PPC_PLT16_LO:
3665 case R_PPC_PLT16_HI:
3666 case R_PPC_PLT16_HA:
3667 if (h != NULL)
3668 {
3669 if (h->plt.refcount > 0)
3670 h->plt.refcount--;
3671 }
3672 break;
3673
3674 default:
3675 break;
3676 }
3677 }
3678 return TRUE;
3679 }
3680
3681 /* Set htab->tls_sec and htab->tls_get_addr. */
3682
3683 bfd_boolean
3684 ppc_elf_tls_setup (bfd *obfd, struct bfd_link_info *info)
3685 {
3686 asection *tls;
3687 struct ppc_elf_link_hash_table *htab;
3688
3689 htab = ppc_elf_hash_table (info);
3690 htab->tls_get_addr = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
3691 FALSE, FALSE, TRUE);
3692
3693 for (tls = obfd->sections; tls != NULL; tls = tls->next)
3694 if ((tls->flags & (SEC_THREAD_LOCAL | SEC_LOAD))
3695 == (SEC_THREAD_LOCAL | SEC_LOAD))
3696 break;
3697 htab->tls_sec = tls;
3698
3699 return tls != NULL;
3700 }
3701
3702 /* Run through all the TLS relocs looking for optimization
3703 opportunities. */
3704
3705 bfd_boolean
3706 ppc_elf_tls_optimize (bfd *obfd ATTRIBUTE_UNUSED,
3707 struct bfd_link_info *info)
3708 {
3709 bfd *ibfd;
3710 asection *sec;
3711 struct ppc_elf_link_hash_table *htab;
3712
3713 if (info->relocateable || info->shared)
3714 return TRUE;
3715
3716 htab = ppc_elf_hash_table (info);
3717 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
3718 {
3719 Elf_Internal_Sym *locsyms = NULL;
3720 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
3721
3722 for (sec = ibfd->sections; sec != NULL; sec = sec->next)
3723 if (sec->has_tls_reloc && !bfd_is_abs_section (sec->output_section))
3724 {
3725 Elf_Internal_Rela *relstart, *rel, *relend;
3726 int expecting_tls_get_addr;
3727
3728 /* Read the relocations. */
3729 relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
3730 info->keep_memory);
3731 if (relstart == NULL)
3732 return FALSE;
3733
3734 expecting_tls_get_addr = 0;
3735 relend = relstart + sec->reloc_count;
3736 for (rel = relstart; rel < relend; rel++)
3737 {
3738 enum elf_ppc_reloc_type r_type;
3739 unsigned long r_symndx;
3740 struct elf_link_hash_entry *h = NULL;
3741 char *tls_mask;
3742 char tls_set, tls_clear;
3743 bfd_boolean is_local;
3744
3745 r_symndx = ELF32_R_SYM (rel->r_info);
3746 if (r_symndx >= symtab_hdr->sh_info)
3747 {
3748 struct elf_link_hash_entry **sym_hashes;
3749
3750 sym_hashes = elf_sym_hashes (ibfd);
3751 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3752 while (h->root.type == bfd_link_hash_indirect
3753 || h->root.type == bfd_link_hash_warning)
3754 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3755 }
3756
3757 is_local = FALSE;
3758 if (h == NULL
3759 || !(h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC))
3760 is_local = TRUE;
3761
3762 r_type = ELF32_R_TYPE (rel->r_info);
3763 switch (r_type)
3764 {
3765 case R_PPC_GOT_TLSLD16:
3766 case R_PPC_GOT_TLSLD16_LO:
3767 case R_PPC_GOT_TLSLD16_HI:
3768 case R_PPC_GOT_TLSLD16_HA:
3769 /* These relocs should never be against a symbol
3770 defined in a shared lib. Leave them alone if
3771 that turns out to be the case. */
3772 expecting_tls_get_addr = 0;
3773 htab->tlsld_got.refcount -= 1;
3774 if (!is_local)
3775 continue;
3776
3777 /* LD -> LE */
3778 tls_set = 0;
3779 tls_clear = TLS_LD;
3780 expecting_tls_get_addr = 1;
3781 break;
3782
3783 case R_PPC_GOT_TLSGD16:
3784 case R_PPC_GOT_TLSGD16_LO:
3785 case R_PPC_GOT_TLSGD16_HI:
3786 case R_PPC_GOT_TLSGD16_HA:
3787 if (is_local)
3788 /* GD -> LE */
3789 tls_set = 0;
3790 else
3791 /* GD -> IE */
3792 tls_set = TLS_TLS | TLS_TPRELGD;
3793 tls_clear = TLS_GD;
3794 expecting_tls_get_addr = 1;
3795 break;
3796
3797 case R_PPC_GOT_TPREL16:
3798 case R_PPC_GOT_TPREL16_LO:
3799 case R_PPC_GOT_TPREL16_HI:
3800 case R_PPC_GOT_TPREL16_HA:
3801 expecting_tls_get_addr = 0;
3802 if (is_local)
3803 {
3804 /* IE -> LE */
3805 tls_set = 0;
3806 tls_clear = TLS_TPREL;
3807 break;
3808 }
3809 else
3810 continue;
3811
3812 case R_PPC_REL14:
3813 case R_PPC_REL14_BRTAKEN:
3814 case R_PPC_REL14_BRNTAKEN:
3815 case R_PPC_REL24:
3816 if (expecting_tls_get_addr
3817 && h != NULL
3818 && h == htab->tls_get_addr)
3819 {
3820 if (h->plt.refcount > 0)
3821 h->plt.refcount -= 1;
3822 }
3823 expecting_tls_get_addr = 0;
3824 continue;
3825
3826 default:
3827 expecting_tls_get_addr = 0;
3828 continue;
3829 }
3830
3831 if (h != NULL)
3832 {
3833 if (tls_set == 0)
3834 {
3835 /* We managed to get rid of a got entry. */
3836 if (h->got.refcount > 0)
3837 h->got.refcount -= 1;
3838 }
3839 tls_mask = &ppc_elf_hash_entry (h)->tls_mask;
3840 }
3841 else
3842 {
3843 Elf_Internal_Sym *sym;
3844 bfd_signed_vma *lgot_refs;
3845 char *lgot_masks;
3846
3847 if (locsyms == NULL)
3848 {
3849 locsyms = (Elf_Internal_Sym *) symtab_hdr->contents;
3850 if (locsyms == NULL)
3851 locsyms = bfd_elf_get_elf_syms (ibfd, symtab_hdr,
3852 symtab_hdr->sh_info,
3853 0, NULL, NULL, NULL);
3854 if (locsyms == NULL)
3855 {
3856 if (elf_section_data (sec)->relocs != relstart)
3857 free (relstart);
3858 return FALSE;
3859 }
3860 }
3861 sym = locsyms + r_symndx;
3862 lgot_refs = elf_local_got_refcounts (ibfd);
3863 if (lgot_refs == NULL)
3864 abort ();
3865 if (tls_set == 0)
3866 {
3867 /* We managed to get rid of a got entry. */
3868 if (lgot_refs[r_symndx] > 0)
3869 lgot_refs[r_symndx] -= 1;
3870 }
3871 lgot_masks = (char *) (lgot_refs + symtab_hdr->sh_info);
3872 tls_mask = &lgot_masks[r_symndx];
3873 }
3874
3875 *tls_mask |= tls_set;
3876 *tls_mask &= ~tls_clear;
3877 }
3878
3879 if (elf_section_data (sec)->relocs != relstart)
3880 free (relstart);
3881 }
3882
3883 if (locsyms != NULL
3884 && (symtab_hdr->contents != (unsigned char *) locsyms))
3885 {
3886 if (!info->keep_memory)
3887 free (locsyms);
3888 else
3889 symtab_hdr->contents = (unsigned char *) locsyms;
3890 }
3891 }
3892 return TRUE;
3893 }
3894 \f
3895 /* Hook called by the linker routine which adds symbols from an object
3896 file. We use it to put .comm items in .sbss, and not .bss. */
3897
3898 static bfd_boolean
3899 ppc_elf_add_symbol_hook (bfd *abfd,
3900 struct bfd_link_info *info,
3901 const Elf_Internal_Sym *sym,
3902 const char **namep ATTRIBUTE_UNUSED,
3903 flagword *flagsp ATTRIBUTE_UNUSED,
3904 asection **secp,
3905 bfd_vma *valp)
3906 {
3907 if (sym->st_shndx == SHN_COMMON
3908 && !info->relocateable
3909 && sym->st_size <= elf_gp_size (abfd)
3910 && info->hash->creator->flavour == bfd_target_elf_flavour)
3911 {
3912 /* Common symbols less than or equal to -G nn bytes are automatically
3913 put into .sdata. */
3914 elf_linker_section_t *sdata
3915 = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA);
3916
3917 if (!sdata->bss_section)
3918 {
3919 bfd_size_type amt;
3920
3921 /* We don't go through bfd_make_section, because we don't
3922 want to attach this common section to DYNOBJ. The linker
3923 will move the symbols to the appropriate output section
3924 when it defines common symbols. */
3925 amt = sizeof (asection);
3926 sdata->bss_section = bfd_zalloc (abfd, amt);
3927 if (sdata->bss_section == NULL)
3928 return FALSE;
3929 sdata->bss_section->name = sdata->bss_name;
3930 sdata->bss_section->flags = SEC_IS_COMMON;
3931 sdata->bss_section->output_section = sdata->bss_section;
3932 amt = sizeof (asymbol);
3933 sdata->bss_section->symbol = bfd_zalloc (abfd, amt);
3934 amt = sizeof (asymbol *);
3935 sdata->bss_section->symbol_ptr_ptr = bfd_zalloc (abfd, amt);
3936 if (sdata->bss_section->symbol == NULL
3937 || sdata->bss_section->symbol_ptr_ptr == NULL)
3938 return FALSE;
3939 sdata->bss_section->symbol->name = sdata->bss_name;
3940 sdata->bss_section->symbol->flags = BSF_SECTION_SYM;
3941 sdata->bss_section->symbol->section = sdata->bss_section;
3942 *sdata->bss_section->symbol_ptr_ptr = sdata->bss_section->symbol;
3943 }
3944
3945 *secp = sdata->bss_section;
3946 *valp = sym->st_size;
3947 }
3948
3949 return TRUE;
3950 }
3951 \f
3952 /* Finish up dynamic symbol handling. We set the contents of various
3953 dynamic sections here. */
3954
3955 static bfd_boolean
3956 ppc_elf_finish_dynamic_symbol (bfd *output_bfd,
3957 struct bfd_link_info *info,
3958 struct elf_link_hash_entry *h,
3959 Elf_Internal_Sym *sym)
3960 {
3961 struct ppc_elf_link_hash_table *htab;
3962
3963 #ifdef DEBUG
3964 fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
3965 h->root.root.string);
3966 #endif
3967
3968 htab = ppc_elf_hash_table (info);
3969 BFD_ASSERT (htab->elf.dynobj != NULL);
3970
3971 if (h->plt.offset != (bfd_vma) -1)
3972 {
3973 Elf_Internal_Rela rela;
3974 bfd_byte *loc;
3975 bfd_vma reloc_index;
3976
3977 #ifdef DEBUG
3978 fprintf (stderr, ", plt_offset = %d", h->plt.offset);
3979 #endif
3980
3981 /* This symbol has an entry in the procedure linkage table. Set
3982 it up. */
3983
3984 BFD_ASSERT (h->dynindx != -1);
3985 BFD_ASSERT (htab->plt != NULL && htab->relplt != NULL);
3986
3987 /* We don't need to fill in the .plt. The ppc dynamic linker
3988 will fill it in. */
3989
3990 /* Fill in the entry in the .rela.plt section. */
3991 rela.r_offset = (htab->plt->output_section->vma
3992 + htab->plt->output_offset
3993 + h->plt.offset);
3994 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
3995 rela.r_addend = 0;
3996
3997 reloc_index = (h->plt.offset - PLT_INITIAL_ENTRY_SIZE) / PLT_SLOT_SIZE;
3998 if (reloc_index > PLT_NUM_SINGLE_ENTRIES)
3999 reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
4000 loc = (htab->relplt->contents
4001 + reloc_index * sizeof (Elf32_External_Rela));
4002 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4003
4004 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
4005 {
4006 /* Mark the symbol as undefined, rather than as defined in
4007 the .plt section. Leave the value alone. */
4008 sym->st_shndx = SHN_UNDEF;
4009 /* If the symbol is weak, we do need to clear the value.
4010 Otherwise, the PLT entry would provide a definition for
4011 the symbol even if the symbol wasn't defined anywhere,
4012 and so the symbol would never be NULL. */
4013 if ((h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR_NONWEAK)
4014 == 0)
4015 sym->st_value = 0;
4016 }
4017 }
4018
4019 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
4020 {
4021 asection *s;
4022 Elf_Internal_Rela rela;
4023 bfd_byte *loc;
4024
4025 /* This symbols needs a copy reloc. Set it up. */
4026
4027 #ifdef DEBUG
4028 fprintf (stderr, ", copy");
4029 #endif
4030
4031 BFD_ASSERT (h->dynindx != -1);
4032
4033 if (h->size <= elf_gp_size (htab->elf.dynobj))
4034 s = htab->relsbss;
4035 else
4036 s = htab->relbss;
4037 BFD_ASSERT (s != NULL);
4038
4039 rela.r_offset = (h->root.u.def.value
4040 + h->root.u.def.section->output_section->vma
4041 + h->root.u.def.section->output_offset);
4042 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
4043 rela.r_addend = 0;
4044 loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
4045 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4046 }
4047
4048 #ifdef DEBUG
4049 fprintf (stderr, "\n");
4050 #endif
4051
4052 /* Mark some specially defined symbols as absolute. */
4053 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
4054 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
4055 || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
4056 sym->st_shndx = SHN_ABS;
4057
4058 return TRUE;
4059 }
4060 \f
4061 /* Finish up the dynamic sections. */
4062
4063 static bfd_boolean
4064 ppc_elf_finish_dynamic_sections (bfd *output_bfd,
4065 struct bfd_link_info *info)
4066 {
4067 asection *sdyn;
4068 struct ppc_elf_link_hash_table *htab;
4069
4070 #ifdef DEBUG
4071 fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
4072 #endif
4073
4074 htab = ppc_elf_hash_table (info);
4075 sdyn = bfd_get_section_by_name (htab->elf.dynobj, ".dynamic");
4076
4077 if (htab->elf.dynamic_sections_created)
4078 {
4079 Elf32_External_Dyn *dyncon, *dynconend;
4080
4081 BFD_ASSERT (htab->plt != NULL && sdyn != NULL);
4082
4083 dyncon = (Elf32_External_Dyn *) sdyn->contents;
4084 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
4085 for (; dyncon < dynconend; dyncon++)
4086 {
4087 Elf_Internal_Dyn dyn;
4088 asection *s;
4089
4090 bfd_elf32_swap_dyn_in (htab->elf.dynobj, dyncon, &dyn);
4091
4092 switch (dyn.d_tag)
4093 {
4094 case DT_PLTGOT:
4095 s = htab->plt;
4096 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4097 break;
4098
4099 case DT_PLTRELSZ:
4100 dyn.d_un.d_val = htab->relplt->_raw_size;
4101 break;
4102
4103 case DT_JMPREL:
4104 s = htab->relplt;
4105 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4106 break;
4107
4108 default:
4109 continue;
4110 }
4111
4112 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4113 }
4114 }
4115
4116 /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4 so that a function can
4117 easily find the address of the _GLOBAL_OFFSET_TABLE_. */
4118 if (htab->got)
4119 {
4120 unsigned char *contents = htab->got->contents;
4121 bfd_put_32 (output_bfd, 0x4e800021 /* blrl */, contents);
4122
4123 if (sdyn == NULL)
4124 bfd_put_32 (output_bfd, 0, contents + 4);
4125 else
4126 bfd_put_32 (output_bfd,
4127 sdyn->output_section->vma + sdyn->output_offset,
4128 contents + 4);
4129
4130 elf_section_data (htab->got->output_section)->this_hdr.sh_entsize = 4;
4131 }
4132
4133 return TRUE;
4134 }
4135 \f
4136 /* The RELOCATE_SECTION function is called by the ELF backend linker
4137 to handle the relocations for a section.
4138
4139 The relocs are always passed as Rela structures; if the section
4140 actually uses Rel structures, the r_addend field will always be
4141 zero.
4142
4143 This function is responsible for adjust the section contents as
4144 necessary, and (if using Rela relocs and generating a
4145 relocateable output file) adjusting the reloc addend as
4146 necessary.
4147
4148 This function does not have to worry about setting the reloc
4149 address or the reloc symbol index.
4150
4151 LOCAL_SYMS is a pointer to the swapped in local symbols.
4152
4153 LOCAL_SECTIONS is an array giving the section in the input file
4154 corresponding to the st_shndx field of each local symbol.
4155
4156 The global hash table entry for the global symbols can be found
4157 via elf_sym_hashes (input_bfd).
4158
4159 When generating relocateable output, this function must handle
4160 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
4161 going to be the section symbol corresponding to the output
4162 section, which means that the addend must be adjusted
4163 accordingly. */
4164
4165 static bfd_boolean
4166 ppc_elf_relocate_section (bfd *output_bfd,
4167 struct bfd_link_info *info,
4168 bfd *input_bfd,
4169 asection *input_section,
4170 bfd_byte *contents,
4171 Elf_Internal_Rela *relocs,
4172 Elf_Internal_Sym *local_syms,
4173 asection **local_sections)
4174 {
4175 Elf_Internal_Shdr *symtab_hdr;
4176 struct elf_link_hash_entry **sym_hashes;
4177 struct ppc_elf_link_hash_table *htab;
4178 Elf_Internal_Rela *rel;
4179 Elf_Internal_Rela *relend;
4180 Elf_Internal_Rela outrel;
4181 bfd_byte *loc;
4182 asection *sreloc = NULL;
4183 bfd_vma *local_got_offsets;
4184 bfd_boolean ret = TRUE;
4185
4186 #ifdef DEBUG
4187 fprintf (stderr, "ppc_elf_relocate_section called for %s section %s, "
4188 "%ld relocations%s\n",
4189 bfd_archive_filename (input_bfd),
4190 bfd_section_name(input_bfd, input_section),
4191 (long) input_section->reloc_count,
4192 (info->relocateable) ? " (relocatable)" : "");
4193 #endif
4194
4195 if (info->relocateable)
4196 return TRUE;
4197
4198 if (!ppc_elf_howto_table[R_PPC_ADDR32])
4199 /* Initialize howto table if needed. */
4200 ppc_elf_howto_init ();
4201
4202 htab = ppc_elf_hash_table (info);
4203 local_got_offsets = elf_local_got_offsets (input_bfd);
4204 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
4205 sym_hashes = elf_sym_hashes (input_bfd);
4206 rel = relocs;
4207 relend = relocs + input_section->reloc_count;
4208 for (; rel < relend; rel++)
4209 {
4210 enum elf_ppc_reloc_type r_type;
4211 bfd_vma addend;
4212 bfd_reloc_status_type r;
4213 Elf_Internal_Sym *sym;
4214 asection *sec;
4215 struct elf_link_hash_entry *h;
4216 const char *sym_name;
4217 reloc_howto_type *howto;
4218 unsigned long r_symndx;
4219 bfd_vma relocation;
4220 bfd_vma branch_bit, insn, from;
4221 bfd_boolean unresolved_reloc;
4222 bfd_boolean warned;
4223 unsigned int tls_type, tls_mask, tls_gd;
4224
4225 r_type = ELF32_R_TYPE (rel->r_info);
4226 sym = NULL;
4227 sec = NULL;
4228 h = NULL;
4229 unresolved_reloc = FALSE;
4230 warned = FALSE;
4231 r_symndx = ELF32_R_SYM (rel->r_info);
4232 if (r_symndx < symtab_hdr->sh_info)
4233 {
4234 sym = local_syms + r_symndx;
4235 sec = local_sections[r_symndx];
4236 sym_name = bfd_elf_local_sym_name (input_bfd, sym);
4237
4238 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, sec, rel);
4239 }
4240 else
4241 {
4242 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4243 while (h->root.type == bfd_link_hash_indirect
4244 || h->root.type == bfd_link_hash_warning)
4245 h = (struct elf_link_hash_entry *) h->root.u.i.link;
4246 sym_name = h->root.root.string;
4247
4248 relocation = 0;
4249 if (h->root.type == bfd_link_hash_defined
4250 || h->root.type == bfd_link_hash_defweak)
4251 {
4252 sec = h->root.u.def.section;
4253 /* Set a flag that will be cleared later if we find a
4254 relocation value for this symbol. output_section
4255 is typically NULL for symbols satisfied by a shared
4256 library. */
4257 if (sec->output_section == NULL)
4258 unresolved_reloc = TRUE;
4259 else
4260 relocation = (h->root.u.def.value
4261 + sec->output_section->vma
4262 + sec->output_offset);
4263 }
4264 else if (h->root.type == bfd_link_hash_undefweak)
4265 ;
4266 else if (info->shared
4267 && !info->no_undefined
4268 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
4269 ;
4270 else
4271 {
4272 if (! ((*info->callbacks->undefined_symbol)
4273 (info, h->root.root.string, input_bfd, input_section,
4274 rel->r_offset, (!info->shared
4275 || info->no_undefined
4276 || ELF_ST_VISIBILITY (h->other)))))
4277 return FALSE;
4278 warned = TRUE;
4279 }
4280 }
4281
4282 /* TLS optimizations. Replace instruction sequences and relocs
4283 based on information we collected in tls_optimize. We edit
4284 RELOCS so that --emit-relocs will output something sensible
4285 for the final instruction stream. */
4286 tls_mask = 0;
4287 tls_gd = 0;
4288 if (IS_PPC_TLS_RELOC (r_type))
4289 {
4290 if (h != NULL)
4291 tls_mask = ((struct ppc_elf_link_hash_entry *) h)->tls_mask;
4292 else if (local_got_offsets != NULL)
4293 {
4294 char *lgot_masks;
4295 lgot_masks = (char *) (local_got_offsets + symtab_hdr->sh_info);
4296 tls_mask = lgot_masks[r_symndx];
4297 }
4298 }
4299
4300 /* Ensure reloc mapping code below stays sane. */
4301 if ((R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TLSGD16 & 3)
4302 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TLSGD16_LO & 3)
4303 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TLSGD16_HI & 3)
4304 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TLSGD16_HA & 3)
4305 || (R_PPC_GOT_TLSLD16 & 3) != (R_PPC_GOT_TPREL16 & 3)
4306 || (R_PPC_GOT_TLSLD16_LO & 3) != (R_PPC_GOT_TPREL16_LO & 3)
4307 || (R_PPC_GOT_TLSLD16_HI & 3) != (R_PPC_GOT_TPREL16_HI & 3)
4308 || (R_PPC_GOT_TLSLD16_HA & 3) != (R_PPC_GOT_TPREL16_HA & 3))
4309 abort ();
4310 switch (r_type)
4311 {
4312 default:
4313 break;
4314
4315 case R_PPC_GOT_TPREL16:
4316 case R_PPC_GOT_TPREL16_LO:
4317 if (tls_mask != 0
4318 && (tls_mask & TLS_TPREL) == 0)
4319 {
4320 bfd_vma insn;
4321 insn = bfd_get_32 (output_bfd, contents + rel->r_offset - 2);
4322 insn &= 31 << 21;
4323 insn |= 0x3c020000; /* addis 0,2,0 */
4324 bfd_put_32 (output_bfd, insn, contents + rel->r_offset - 2);
4325 r_type = R_PPC_TPREL16_HA;
4326 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4327 }
4328 break;
4329
4330 case R_PPC_TLS:
4331 if (tls_mask != 0
4332 && (tls_mask & TLS_TPREL) == 0)
4333 {
4334 bfd_vma insn, rtra;
4335 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
4336 if ((insn & ((31 << 26) | (31 << 11)))
4337 == ((31 << 26) | (2 << 11)))
4338 rtra = insn & ((1 << 26) - (1 << 16));
4339 else if ((insn & ((31 << 26) | (31 << 16)))
4340 == ((31 << 26) | (2 << 16)))
4341 rtra = (insn & (31 << 21)) | ((insn & (31 << 11)) << 5);
4342 else
4343 abort ();
4344 if ((insn & ((1 << 11) - (1 << 1))) == 266 << 1)
4345 /* add -> addi. */
4346 insn = 14 << 26;
4347 else if ((insn & (31 << 1)) == 23 << 1
4348 && ((insn & (31 << 6)) < 14 << 6
4349 || ((insn & (31 << 6)) >= 16 << 6
4350 && (insn & (31 << 6)) < 24 << 6)))
4351 /* load and store indexed -> dform. */
4352 insn = (32 | ((insn >> 6) & 31)) << 26;
4353 else if ((insn & (31 << 1)) == 21 << 1
4354 && (insn & (0x1a << 6)) == 0)
4355 /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu. */
4356 insn = (((58 | ((insn >> 6) & 4)) << 26)
4357 | ((insn >> 6) & 1));
4358 else if ((insn & (31 << 1)) == 21 << 1
4359 && (insn & ((1 << 11) - (1 << 1))) == 341 << 1)
4360 /* lwax -> lwa. */
4361 insn = (58 << 26) | 2;
4362 else
4363 abort ();
4364 insn |= rtra;
4365 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
4366 r_type = R_PPC_TPREL16_LO;
4367 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4368 /* Was PPC_TLS which sits on insn boundary, now
4369 PPC_TPREL16_LO which is at insn+2. */
4370 rel->r_offset += 2;
4371 }
4372 break;
4373
4374 case R_PPC_GOT_TLSGD16_HI:
4375 case R_PPC_GOT_TLSGD16_HA:
4376 tls_gd = TLS_TPRELGD;
4377 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
4378 goto tls_gdld_hi;
4379 break;
4380
4381 case R_PPC_GOT_TLSLD16_HI:
4382 case R_PPC_GOT_TLSLD16_HA:
4383 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
4384 {
4385 tls_gdld_hi:
4386 if ((tls_mask & tls_gd) != 0)
4387 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
4388 + R_PPC_GOT_TPREL16);
4389 else
4390 {
4391 bfd_put_32 (output_bfd, NOP, contents + rel->r_offset);
4392 rel->r_offset -= 2;
4393 r_type = R_PPC_NONE;
4394 }
4395 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4396 }
4397 break;
4398
4399 case R_PPC_GOT_TLSGD16:
4400 case R_PPC_GOT_TLSGD16_LO:
4401 tls_gd = TLS_TPRELGD;
4402 if (tls_mask != 0 && (tls_mask & TLS_GD) == 0)
4403 goto tls_get_addr_check;
4404 break;
4405
4406 case R_PPC_GOT_TLSLD16:
4407 case R_PPC_GOT_TLSLD16_LO:
4408 if (tls_mask != 0 && (tls_mask & TLS_LD) == 0)
4409 {
4410 tls_get_addr_check:
4411 if (rel + 1 < relend)
4412 {
4413 enum elf_ppc_reloc_type r_type2;
4414 unsigned long r_symndx2;
4415 struct elf_link_hash_entry *h2;
4416 bfd_vma insn1, insn2;
4417 bfd_vma offset;
4418
4419 /* The next instruction should be a call to
4420 __tls_get_addr. Peek at the reloc to be sure. */
4421 r_type2 = ELF32_R_TYPE (rel[1].r_info);
4422 r_symndx2 = ELF32_R_SYM (rel[1].r_info);
4423 if (r_symndx2 < symtab_hdr->sh_info
4424 || (r_type2 != R_PPC_REL14
4425 && r_type2 != R_PPC_REL14_BRTAKEN
4426 && r_type2 != R_PPC_REL14_BRNTAKEN
4427 && r_type2 != R_PPC_REL24
4428 && r_type2 != R_PPC_PLTREL24))
4429 break;
4430
4431 h2 = sym_hashes[r_symndx2 - symtab_hdr->sh_info];
4432 while (h2->root.type == bfd_link_hash_indirect
4433 || h2->root.type == bfd_link_hash_warning)
4434 h2 = (struct elf_link_hash_entry *) h2->root.u.i.link;
4435 if (h2 == NULL || h2 != htab->tls_get_addr)
4436 break;
4437
4438 /* OK, it checks out. Replace the call. */
4439 offset = rel[1].r_offset;
4440 insn1 = bfd_get_32 (output_bfd,
4441 contents + rel->r_offset - 2);
4442 if ((tls_mask & tls_gd) != 0)
4443 {
4444 /* IE */
4445 insn1 &= (1 << 26) - 1;
4446 insn1 |= 32 << 26; /* lwz */
4447 insn2 = 0x7c631214; /* add 3,3,2 */
4448 rel[1].r_info = ELF32_R_INFO (r_symndx2, R_PPC_NONE);
4449 r_type = (((r_type - (R_PPC_GOT_TLSGD16 & 3)) & 3)
4450 + R_PPC_GOT_TPREL16);
4451 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4452 }
4453 else
4454 {
4455 /* LE */
4456 insn1 = 0x3c620000; /* addis 3,2,0 */
4457 insn2 = 0x38630000; /* addi 3,3,0 */
4458 if (tls_gd == 0)
4459 {
4460 /* Was an LD reloc. */
4461 r_symndx = 0;
4462 rel->r_addend = htab->tls_sec->vma + DTP_OFFSET;
4463 rel[1].r_addend = htab->tls_sec->vma + DTP_OFFSET;
4464 }
4465 r_type = R_PPC_TPREL16_HA;
4466 rel->r_info = ELF32_R_INFO (r_symndx, r_type);
4467 rel[1].r_info = ELF32_R_INFO (r_symndx,
4468 R_PPC_TPREL16_LO);
4469 rel[1].r_offset += 2;
4470 }
4471 bfd_put_32 (output_bfd, insn1, contents + rel->r_offset - 2);
4472 bfd_put_32 (output_bfd, insn2, contents + offset);
4473 if (tls_gd == 0)
4474 {
4475 /* We changed the symbol on an LD reloc. Start over
4476 in order to get h, sym, sec etc. right. */
4477 rel--;
4478 continue;
4479 }
4480 }
4481 }
4482 break;
4483 }
4484
4485 /* Handle other relocations that tweak non-addend part of insn. */
4486 branch_bit = 0;
4487 switch (r_type)
4488 {
4489 default:
4490 break;
4491
4492 /* Branch taken prediction relocations. */
4493 case R_PPC_ADDR14_BRTAKEN:
4494 case R_PPC_REL14_BRTAKEN:
4495 branch_bit = BRANCH_PREDICT_BIT;
4496 /* Fall thru */
4497
4498 /* Branch not taken predicition relocations. */
4499 case R_PPC_ADDR14_BRNTAKEN:
4500 case R_PPC_REL14_BRNTAKEN:
4501 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
4502 insn &= ~BRANCH_PREDICT_BIT;
4503 insn |= branch_bit;
4504
4505 from = (rel->r_offset
4506 + input_section->output_offset
4507 + input_section->output_section->vma);
4508
4509 /* Invert 'y' bit if not the default. */
4510 if ((bfd_signed_vma) (relocation + rel->r_addend - from) < 0)
4511 insn ^= BRANCH_PREDICT_BIT;
4512
4513 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
4514 break;
4515 }
4516
4517 addend = rel->r_addend;
4518 tls_type = 0;
4519 howto = NULL;
4520 if (r_type < R_PPC_max)
4521 howto = ppc_elf_howto_table[r_type];
4522 switch (r_type)
4523 {
4524 default:
4525 (*_bfd_error_handler)
4526 (_("%s: unknown relocation type %d for symbol %s"),
4527 bfd_archive_filename (input_bfd), (int) r_type, sym_name);
4528
4529 bfd_set_error (bfd_error_bad_value);
4530 ret = FALSE;
4531 continue;
4532
4533 case R_PPC_NONE:
4534 case R_PPC_TLS:
4535 case R_PPC_EMB_MRKREF:
4536 case R_PPC_GNU_VTINHERIT:
4537 case R_PPC_GNU_VTENTRY:
4538 continue;
4539
4540 /* GOT16 relocations. Like an ADDR16 using the symbol's
4541 address in the GOT as relocation value instead of the
4542 symbol's value itself. Also, create a GOT entry for the
4543 symbol and put the symbol value there. */
4544 case R_PPC_GOT_TLSGD16:
4545 case R_PPC_GOT_TLSGD16_LO:
4546 case R_PPC_GOT_TLSGD16_HI:
4547 case R_PPC_GOT_TLSGD16_HA:
4548 tls_type = TLS_TLS | TLS_GD;
4549 goto dogot;
4550
4551 case R_PPC_GOT_TLSLD16:
4552 case R_PPC_GOT_TLSLD16_LO:
4553 case R_PPC_GOT_TLSLD16_HI:
4554 case R_PPC_GOT_TLSLD16_HA:
4555 tls_type = TLS_TLS | TLS_LD;
4556 goto dogot;
4557
4558 case R_PPC_GOT_TPREL16:
4559 case R_PPC_GOT_TPREL16_LO:
4560 case R_PPC_GOT_TPREL16_HI:
4561 case R_PPC_GOT_TPREL16_HA:
4562 tls_type = TLS_TLS | TLS_TPREL;
4563 goto dogot;
4564
4565 case R_PPC_GOT_DTPREL16:
4566 case R_PPC_GOT_DTPREL16_LO:
4567 case R_PPC_GOT_DTPREL16_HI:
4568 case R_PPC_GOT_DTPREL16_HA:
4569 tls_type = TLS_TLS | TLS_DTPREL;
4570 goto dogot;
4571
4572 case R_PPC_GOT16:
4573 case R_PPC_GOT16_LO:
4574 case R_PPC_GOT16_HI:
4575 case R_PPC_GOT16_HA:
4576 dogot:
4577 {
4578 /* Relocation is to the entry for this symbol in the global
4579 offset table. */
4580 bfd_vma off;
4581 bfd_vma *offp;
4582 unsigned long indx;
4583
4584 if (htab->got == NULL)
4585 abort ();
4586
4587 indx = 0;
4588 if (tls_type == (TLS_TLS | TLS_LD)
4589 && (h == NULL
4590 || !(h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC)))
4591 offp = &htab->tlsld_got.offset;
4592 else if (h != NULL)
4593 {
4594 bfd_boolean dyn;
4595 dyn = htab->elf.dynamic_sections_created;
4596 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
4597 || (info->shared
4598 && SYMBOL_REFERENCES_LOCAL (info, h)))
4599 /* This is actually a static link, or it is a
4600 -Bsymbolic link and the symbol is defined
4601 locally, or the symbol was forced to be local
4602 because of a version file. */
4603 ;
4604 else
4605 {
4606 indx = h->dynindx;
4607 unresolved_reloc = FALSE;
4608 }
4609 offp = &h->got.offset;
4610 }
4611 else
4612 {
4613 if (local_got_offsets == NULL)
4614 abort ();
4615 offp = &local_got_offsets[r_symndx];
4616 }
4617
4618 /* The offset must always be a multiple of 4. We use the
4619 least significant bit to record whether we have already
4620 processed this entry. */
4621 off = *offp;
4622 if ((off & 1) != 0)
4623 off &= ~1;
4624 else
4625 {
4626 unsigned int tls_m = (tls_mask
4627 & (TLS_LD | TLS_GD | TLS_DTPREL
4628 | TLS_TPREL | TLS_TPRELGD));
4629
4630 if (offp == &htab->tlsld_got.offset)
4631 tls_m = TLS_LD;
4632 else if (h == NULL
4633 || !(h->elf_link_hash_flags
4634 & ELF_LINK_HASH_DEF_DYNAMIC))
4635 tls_m &= ~TLS_LD;
4636
4637 /* We might have multiple got entries for this sym.
4638 Initialize them all. */
4639 do
4640 {
4641 int tls_ty = 0;
4642
4643 if ((tls_m & TLS_LD) != 0)
4644 {
4645 tls_ty = TLS_TLS | TLS_LD;
4646 tls_m &= ~TLS_LD;
4647 }
4648 else if ((tls_m & TLS_GD) != 0)
4649 {
4650 tls_ty = TLS_TLS | TLS_GD;
4651 tls_m &= ~TLS_GD;
4652 }
4653 else if ((tls_m & TLS_DTPREL) != 0)
4654 {
4655 tls_ty = TLS_TLS | TLS_DTPREL;
4656 tls_m &= ~TLS_DTPREL;
4657 }
4658 else if ((tls_m & (TLS_TPREL | TLS_TPRELGD)) != 0)
4659 {
4660 tls_ty = TLS_TLS | TLS_TPREL;
4661 tls_m = 0;
4662 }
4663
4664 /* Generate relocs for the dynamic linker. */
4665 if ((info->shared || indx != 0)
4666 && (h == NULL
4667 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
4668 || h->root.type != bfd_link_hash_undefweak))
4669 {
4670 outrel.r_offset = (htab->got->output_section->vma
4671 + htab->got->output_offset
4672 + off);
4673 outrel.r_addend = 0;
4674 if (tls_ty & (TLS_LD | TLS_GD))
4675 {
4676 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPMOD32);
4677 if (tls_ty == (TLS_TLS | TLS_GD))
4678 {
4679 loc = htab->relgot->contents;
4680 loc += (htab->relgot->reloc_count++
4681 * sizeof (Elf32_External_Rela));
4682 bfd_elf32_swap_reloca_out (output_bfd,
4683 &outrel, loc);
4684 outrel.r_offset += 4;
4685 outrel.r_info
4686 = ELF32_R_INFO (indx, R_PPC_DTPREL32);
4687 }
4688 }
4689 else if (tls_ty == (TLS_TLS | TLS_DTPREL))
4690 outrel.r_info = ELF32_R_INFO (indx, R_PPC_DTPREL32);
4691 else if (tls_ty == (TLS_TLS | TLS_TPREL))
4692 outrel.r_info = ELF32_R_INFO (indx, R_PPC_TPREL32);
4693 else if (indx == 0)
4694 outrel.r_info = ELF32_R_INFO (indx, R_PPC_RELATIVE);
4695 else
4696 outrel.r_info = ELF32_R_INFO (indx, R_PPC_GLOB_DAT);
4697 if (indx == 0)
4698 {
4699 outrel.r_addend += relocation;
4700 if (tls_ty & (TLS_GD | TLS_DTPREL | TLS_TPREL))
4701 outrel.r_addend -= htab->tls_sec->vma;
4702 }
4703 loc = htab->relgot->contents;
4704 loc += (htab->relgot->reloc_count++
4705 * sizeof (Elf32_External_Rela));
4706 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
4707 }
4708
4709 /* Init the .got section contents if we're not
4710 emitting a reloc. */
4711 else
4712 {
4713 bfd_vma value = relocation;
4714
4715 if (tls_ty == (TLS_TLS | TLS_LD))
4716 value = 1;
4717 else if (tls_ty != 0)
4718 {
4719 value -= htab->tls_sec->vma + DTP_OFFSET;
4720 if (tls_ty == (TLS_TLS | TLS_TPREL))
4721 value += DTP_OFFSET - TP_OFFSET;
4722
4723 if (tls_ty == (TLS_TLS | TLS_GD))
4724 {
4725 bfd_put_32 (output_bfd, value,
4726 htab->got->contents + off + 4);
4727 value = 1;
4728 }
4729 }
4730 bfd_put_32 (output_bfd, value,
4731 htab->got->contents + off);
4732 }
4733
4734 off += 4;
4735 if (tls_ty & (TLS_LD | TLS_GD))
4736 off += 4;
4737 }
4738 while (tls_m != 0);
4739
4740 off = *offp;
4741 *offp = off | 1;
4742 }
4743
4744 if (off >= (bfd_vma) -2)
4745 abort ();
4746
4747 if ((tls_type & TLS_TLS) != 0)
4748 {
4749 if (tls_type != (TLS_TLS | TLS_LD))
4750 {
4751 if ((tls_mask & TLS_LD) != 0
4752 && !(h == NULL
4753 || !(h->elf_link_hash_flags
4754 & ELF_LINK_HASH_DEF_DYNAMIC)))
4755 off += 8;
4756 if (tls_type != (TLS_TLS | TLS_GD))
4757 {
4758 if ((tls_mask & TLS_GD) != 0)
4759 off += 8;
4760 if (tls_type != (TLS_TLS | TLS_DTPREL))
4761 {
4762 if ((tls_mask & TLS_DTPREL) != 0)
4763 off += 4;
4764 }
4765 }
4766 }
4767 }
4768
4769 relocation = htab->got->output_offset + off - 4;
4770
4771 /* Addends on got relocations don't make much sense.
4772 x+off@got is actually x@got+off, and since the got is
4773 generated by a hash table traversal, the value in the
4774 got at entry m+n bears little relation to the entry m. */
4775 if (addend != 0)
4776 (*_bfd_error_handler)
4777 (_("%s(%s+0x%lx): non-zero addend on %s reloc against `%s'"),
4778 bfd_archive_filename (input_bfd),
4779 bfd_get_section_name (input_bfd, input_section),
4780 (long) rel->r_offset,
4781 howto->name,
4782 sym_name);
4783 }
4784 break;
4785
4786 /* Relocations that need no special processing. */
4787 case R_PPC_LOCAL24PC:
4788 /* It makes no sense to point a local relocation
4789 at a symbol not in this object. */
4790 if (unresolved_reloc)
4791 {
4792 if (! (*info->callbacks->undefined_symbol) (info,
4793 h->root.root.string,
4794 input_bfd,
4795 input_section,
4796 rel->r_offset,
4797 TRUE))
4798 return FALSE;
4799 continue;
4800 }
4801 break;
4802
4803 case R_PPC_DTPREL16:
4804 case R_PPC_DTPREL16_LO:
4805 case R_PPC_DTPREL16_HI:
4806 case R_PPC_DTPREL16_HA:
4807 addend -= htab->tls_sec->vma + DTP_OFFSET;
4808 break;
4809
4810 /* Relocations that may need to be propagated if this is a shared
4811 object. */
4812 case R_PPC_TPREL16:
4813 case R_PPC_TPREL16_LO:
4814 case R_PPC_TPREL16_HI:
4815 case R_PPC_TPREL16_HA:
4816 addend -= htab->tls_sec->vma + TP_OFFSET;
4817 /* The TPREL16 relocs shouldn't really be used in shared
4818 libs as they will result in DT_TEXTREL being set, but
4819 support them anyway. */
4820 goto dodyn;
4821
4822 case R_PPC_TPREL32:
4823 addend -= htab->tls_sec->vma + TP_OFFSET;
4824 goto dodyn;
4825
4826 case R_PPC_DTPREL32:
4827 addend -= htab->tls_sec->vma + DTP_OFFSET;
4828 goto dodyn;
4829
4830 case R_PPC_DTPMOD32:
4831 relocation = 1;
4832 addend = 0;
4833 goto dodyn;
4834
4835 case R_PPC_REL24:
4836 case R_PPC_REL32:
4837 case R_PPC_REL14:
4838 case R_PPC_REL14_BRTAKEN:
4839 case R_PPC_REL14_BRNTAKEN:
4840 /* If these relocations are not to a named symbol, they can be
4841 handled right here, no need to bother the dynamic linker. */
4842 if (h == NULL
4843 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
4844 || SYMBOL_REFERENCES_LOCAL (info, h))
4845 break;
4846 /* fall through */
4847
4848 /* Relocations that always need to be propagated if this is a shared
4849 object. */
4850 case R_PPC_ADDR32:
4851 case R_PPC_ADDR24:
4852 case R_PPC_ADDR16:
4853 case R_PPC_ADDR16_LO:
4854 case R_PPC_ADDR16_HI:
4855 case R_PPC_ADDR16_HA:
4856 case R_PPC_ADDR14:
4857 case R_PPC_ADDR14_BRTAKEN:
4858 case R_PPC_ADDR14_BRNTAKEN:
4859 case R_PPC_UADDR32:
4860 case R_PPC_UADDR16:
4861 /* r_symndx will be zero only for relocs against symbols
4862 from removed linkonce sections, or sections discarded by
4863 a linker script. */
4864 dodyn:
4865 if (r_symndx == 0)
4866 break;
4867 /* Fall thru. */
4868
4869 if ((info->shared
4870 && (h == NULL
4871 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
4872 || h->root.type != bfd_link_hash_undefweak)
4873 && (MUST_BE_DYN_RELOC (r_type)
4874 || (h != NULL
4875 && !SYMBOL_CALLS_LOCAL (info, h))))
4876 || (ELIMINATE_COPY_RELOCS
4877 && !info->shared
4878 && (input_section->flags & SEC_ALLOC) != 0
4879 && h != NULL
4880 && h->dynindx != -1
4881 && (h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
4882 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
4883 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0))
4884 {
4885 int skip;
4886
4887 #ifdef DEBUG
4888 fprintf (stderr, "ppc_elf_relocate_section needs to "
4889 "create relocation for %s\n",
4890 (h && h->root.root.string
4891 ? h->root.root.string : "<unknown>"));
4892 #endif
4893
4894 /* When generating a shared object, these relocations
4895 are copied into the output file to be resolved at run
4896 time. */
4897 if (sreloc == NULL)
4898 {
4899 const char *name;
4900
4901 name = (bfd_elf_string_from_elf_section
4902 (input_bfd,
4903 elf_elfheader (input_bfd)->e_shstrndx,
4904 elf_section_data (input_section)->rel_hdr.sh_name));
4905 if (name == NULL)
4906 return FALSE;
4907
4908 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
4909 && strcmp (bfd_get_section_name (input_bfd,
4910 input_section),
4911 name + 5) == 0);
4912
4913 sreloc = bfd_get_section_by_name (htab->elf.dynobj, name);
4914 BFD_ASSERT (sreloc != NULL);
4915 }
4916
4917 skip = 0;
4918
4919 outrel.r_offset =
4920 _bfd_elf_section_offset (output_bfd, info, input_section,
4921 rel->r_offset);
4922 if (outrel.r_offset == (bfd_vma) -1
4923 || outrel.r_offset == (bfd_vma) -2)
4924 skip = (int) outrel.r_offset;
4925 outrel.r_offset += (input_section->output_section->vma
4926 + input_section->output_offset);
4927
4928 if (skip)
4929 memset (&outrel, 0, sizeof outrel);
4930 else if (h != NULL
4931 && !SYMBOL_REFERENCES_LOCAL (info, h))
4932 {
4933 unresolved_reloc = FALSE;
4934 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
4935 outrel.r_addend = rel->r_addend;
4936 }
4937 else
4938 {
4939 outrel.r_addend = relocation + rel->r_addend;
4940
4941 if (r_type == R_PPC_ADDR32)
4942 outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
4943 else
4944 {
4945 long indx;
4946
4947 if (bfd_is_abs_section (sec))
4948 indx = 0;
4949 else if (sec == NULL || sec->owner == NULL)
4950 {
4951 bfd_set_error (bfd_error_bad_value);
4952 return FALSE;
4953 }
4954 else
4955 {
4956 asection *osec;
4957
4958 /* We are turning this relocation into one
4959 against a section symbol. It would be
4960 proper to subtract the symbol's value,
4961 osec->vma, from the emitted reloc addend,
4962 but ld.so expects buggy relocs. */
4963 osec = sec->output_section;
4964 indx = elf_section_data (osec)->dynindx;
4965 BFD_ASSERT (indx > 0);
4966 #ifdef DEBUG
4967 if (indx <= 0)
4968 printf ("indx=%d section=%s flags=%08x name=%s\n",
4969 indx, osec->name, osec->flags,
4970 h->root.root.string);
4971 #endif
4972 }
4973
4974 outrel.r_info = ELF32_R_INFO (indx, r_type);
4975 }
4976 }
4977
4978 loc = sreloc->contents;
4979 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
4980 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
4981
4982 if (skip == -1)
4983 continue;
4984
4985 /* This reloc will be computed at runtime. We clear the memory
4986 so that it contains predictable value. */
4987 if (! skip
4988 && ((input_section->flags & SEC_ALLOC) != 0
4989 || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE))
4990 {
4991 relocation = howto->pc_relative ? outrel.r_offset : 0;
4992 addend = 0;
4993 break;
4994 }
4995 }
4996 break;
4997
4998 /* Indirect .sdata relocation. */
4999 case R_PPC_EMB_SDAI16:
5000 BFD_ASSERT (htab->sdata != NULL);
5001 relocation
5002 = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd,
5003 info, htab->sdata, h,
5004 relocation, rel,
5005 R_PPC_RELATIVE);
5006 break;
5007
5008 /* Indirect .sdata2 relocation. */
5009 case R_PPC_EMB_SDA2I16:
5010 BFD_ASSERT (htab->sdata2 != NULL);
5011 relocation
5012 = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd,
5013 info, htab->sdata2, h,
5014 relocation, rel,
5015 R_PPC_RELATIVE);
5016 break;
5017
5018 /* Handle the TOC16 reloc. We want to use the offset within the .got
5019 section, not the actual VMA. This is appropriate when generating
5020 an embedded ELF object, for which the .got section acts like the
5021 AIX .toc section. */
5022 case R_PPC_TOC16: /* phony GOT16 relocations */
5023 BFD_ASSERT (sec != NULL);
5024 BFD_ASSERT (bfd_is_und_section (sec)
5025 || strcmp (bfd_get_section_name (abfd, sec), ".got") == 0
5026 || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0)
5027
5028 addend -= sec->output_section->vma + sec->output_offset + 0x8000;
5029 break;
5030
5031 case R_PPC_PLTREL24:
5032 /* Relocation is to the entry for this symbol in the
5033 procedure linkage table. */
5034 BFD_ASSERT (h != NULL);
5035
5036 if (h->plt.offset == (bfd_vma) -1
5037 || htab->plt == NULL)
5038 {
5039 /* We didn't make a PLT entry for this symbol. This
5040 happens when statically linking PIC code, or when
5041 using -Bsymbolic. */
5042 break;
5043 }
5044
5045 unresolved_reloc = FALSE;
5046 relocation = (htab->plt->output_section->vma
5047 + htab->plt->output_offset
5048 + h->plt.offset);
5049 break;
5050
5051 /* Relocate against _SDA_BASE_. */
5052 case R_PPC_SDAREL16:
5053 {
5054 const char *name;
5055 const struct elf_link_hash_entry *sh;
5056
5057 BFD_ASSERT (sec != NULL);
5058 name = bfd_get_section_name (abfd, sec->output_section);
5059 if (! ((strncmp (name, ".sdata", 6) == 0
5060 && (name[6] == 0 || name[6] == '.'))
5061 || (strncmp (name, ".sbss", 5) == 0
5062 && (name[5] == 0 || name[5] == '.'))))
5063 {
5064 (*_bfd_error_handler)
5065 (_("%s: the target (%s) of a %s relocation is "
5066 "in the wrong output section (%s)"),
5067 bfd_archive_filename (input_bfd),
5068 sym_name,
5069 howto->name,
5070 name);
5071 }
5072 sh = htab->sdata->sym_hash;
5073 addend -= (sh->root.u.def.value
5074 + sh->root.u.def.section->output_section->vma
5075 + sh->root.u.def.section->output_offset);
5076 }
5077 break;
5078
5079 /* Relocate against _SDA2_BASE_. */
5080 case R_PPC_EMB_SDA2REL:
5081 {
5082 const char *name;
5083 const struct elf_link_hash_entry *sh;
5084
5085 BFD_ASSERT (sec != NULL);
5086 name = bfd_get_section_name (abfd, sec->output_section);
5087 if (! (strncmp (name, ".sdata2", 7) == 0
5088 || strncmp (name, ".sbss2", 6) == 0))
5089 {
5090 (*_bfd_error_handler)
5091 (_("%s: the target (%s) of a %s relocation is "
5092 "in the wrong output section (%s)"),
5093 bfd_archive_filename (input_bfd),
5094 sym_name,
5095 howto->name,
5096 name);
5097
5098 bfd_set_error (bfd_error_bad_value);
5099 ret = FALSE;
5100 continue;
5101 }
5102 sh = htab->sdata2->sym_hash;
5103 addend -= (sh->root.u.def.value
5104 + sh->root.u.def.section->output_section->vma
5105 + sh->root.u.def.section->output_offset);
5106 }
5107 break;
5108
5109 /* Relocate against either _SDA_BASE_, _SDA2_BASE_, or 0. */
5110 case R_PPC_EMB_SDA21:
5111 case R_PPC_EMB_RELSDA:
5112 {
5113 const char *name;
5114 const struct elf_link_hash_entry *sh;
5115 int reg;
5116
5117 BFD_ASSERT (sec != NULL);
5118 name = bfd_get_section_name (abfd, sec->output_section);
5119 if (((strncmp (name, ".sdata", 6) == 0
5120 && (name[6] == 0 || name[6] == '.'))
5121 || (strncmp (name, ".sbss", 5) == 0
5122 && (name[5] == 0 || name[5] == '.'))))
5123 {
5124 reg = 13;
5125 sh = htab->sdata->sym_hash;
5126 addend -= (sh->root.u.def.value
5127 + sh->root.u.def.section->output_section->vma
5128 + sh->root.u.def.section->output_offset);
5129 }
5130
5131 else if (strncmp (name, ".sdata2", 7) == 0
5132 || strncmp (name, ".sbss2", 6) == 0)
5133 {
5134 reg = 2;
5135 sh = htab->sdata2->sym_hash;
5136 addend -= (sh->root.u.def.value
5137 + sh->root.u.def.section->output_section->vma
5138 + sh->root.u.def.section->output_offset);
5139 }
5140
5141 else if (strcmp (name, ".PPC.EMB.sdata0") == 0
5142 || strcmp (name, ".PPC.EMB.sbss0") == 0)
5143 {
5144 reg = 0;
5145 }
5146
5147 else
5148 {
5149 (*_bfd_error_handler)
5150 (_("%s: the target (%s) of a %s relocation is "
5151 "in the wrong output section (%s)"),
5152 bfd_archive_filename (input_bfd),
5153 sym_name,
5154 howto->name,
5155 name);
5156
5157 bfd_set_error (bfd_error_bad_value);
5158 ret = FALSE;
5159 continue;
5160 }
5161
5162 if (r_type == R_PPC_EMB_SDA21)
5163 { /* fill in register field */
5164 insn = bfd_get_32 (output_bfd, contents + rel->r_offset);
5165 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
5166 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
5167 }
5168 }
5169 break;
5170
5171 /* Relocate against the beginning of the section. */
5172 case R_PPC_SECTOFF:
5173 case R_PPC_SECTOFF_LO:
5174 case R_PPC_SECTOFF_HI:
5175 case R_PPC_SECTOFF_HA:
5176 BFD_ASSERT (sec != NULL);
5177 addend -= sec->output_section->vma;
5178 break;
5179
5180 /* Negative relocations. */
5181 case R_PPC_EMB_NADDR32:
5182 case R_PPC_EMB_NADDR16:
5183 case R_PPC_EMB_NADDR16_LO:
5184 case R_PPC_EMB_NADDR16_HI:
5185 case R_PPC_EMB_NADDR16_HA:
5186 addend -= 2 * relocation;
5187 break;
5188
5189 case R_PPC_COPY:
5190 case R_PPC_GLOB_DAT:
5191 case R_PPC_JMP_SLOT:
5192 case R_PPC_RELATIVE:
5193 case R_PPC_PLT32:
5194 case R_PPC_PLTREL32:
5195 case R_PPC_PLT16_LO:
5196 case R_PPC_PLT16_HI:
5197 case R_PPC_PLT16_HA:
5198 case R_PPC_ADDR30:
5199 case R_PPC_EMB_RELSEC16:
5200 case R_PPC_EMB_RELST_LO:
5201 case R_PPC_EMB_RELST_HI:
5202 case R_PPC_EMB_RELST_HA:
5203 case R_PPC_EMB_BIT_FLD:
5204 (*_bfd_error_handler)
5205 (_("%s: relocation %s is not yet supported for symbol %s."),
5206 bfd_archive_filename (input_bfd),
5207 howto->name,
5208 sym_name);
5209
5210 bfd_set_error (bfd_error_invalid_operation);
5211 ret = FALSE;
5212 continue;
5213 }
5214
5215 /* Do any further special processing. */
5216 switch (r_type)
5217 {
5218 default:
5219 break;
5220
5221 case R_PPC_ADDR16_HA:
5222 case R_PPC_GOT16_HA:
5223 case R_PPC_PLT16_HA:
5224 case R_PPC_SECTOFF_HA:
5225 case R_PPC_TPREL16_HA:
5226 case R_PPC_DTPREL16_HA:
5227 case R_PPC_GOT_TLSGD16_HA:
5228 case R_PPC_GOT_TLSLD16_HA:
5229 case R_PPC_GOT_TPREL16_HA:
5230 case R_PPC_GOT_DTPREL16_HA:
5231 case R_PPC_EMB_NADDR16_HA:
5232 case R_PPC_EMB_RELST_HA:
5233 /* It's just possible that this symbol is a weak symbol
5234 that's not actually defined anywhere. In that case,
5235 'sec' would be NULL, and we should leave the symbol
5236 alone (it will be set to zero elsewhere in the link). */
5237 if (sec != NULL)
5238 /* Add 0x10000 if sign bit in 0:15 is set.
5239 Bits 0:15 are not used. */
5240 addend += 0x8000;
5241 break;
5242 }
5243
5244 #ifdef DEBUG
5245 fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, "
5246 "offset = %ld, addend = %ld\n",
5247 howto->name,
5248 (int) r_type,
5249 sym_name,
5250 r_symndx,
5251 (long) rel->r_offset,
5252 (long) addend);
5253 #endif
5254
5255 if (unresolved_reloc
5256 && !((input_section->flags & SEC_DEBUGGING) != 0
5257 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
5258 {
5259 (*_bfd_error_handler)
5260 (_("%s(%s+0x%lx): unresolvable %s relocation against symbol `%s'"),
5261 bfd_archive_filename (input_bfd),
5262 bfd_get_section_name (input_bfd, input_section),
5263 (long) rel->r_offset,
5264 howto->name,
5265 sym_name);
5266 ret = FALSE;
5267 }
5268
5269 r = _bfd_final_link_relocate (howto,
5270 input_bfd,
5271 input_section,
5272 contents,
5273 rel->r_offset,
5274 relocation,
5275 addend);
5276
5277 if (r != bfd_reloc_ok)
5278 {
5279 if (sym_name == NULL)
5280 sym_name = "(null)";
5281 if (r == bfd_reloc_overflow)
5282 {
5283 if (warned)
5284 continue;
5285 if (h != NULL
5286 && h->root.type == bfd_link_hash_undefweak
5287 && howto->pc_relative)
5288 {
5289 /* Assume this is a call protected by other code that
5290 detect the symbol is undefined. If this is the case,
5291 we can safely ignore the overflow. If not, the
5292 program is hosed anyway, and a little warning isn't
5293 going to help. */
5294
5295 continue;
5296 }
5297
5298 if (! (*info->callbacks->reloc_overflow) (info,
5299 sym_name,
5300 howto->name,
5301 rel->r_addend,
5302 input_bfd,
5303 input_section,
5304 rel->r_offset))
5305 return FALSE;
5306 }
5307 else
5308 {
5309 (*_bfd_error_handler)
5310 (_("%s(%s+0x%lx): %s reloc against `%s': error %d"),
5311 bfd_archive_filename (input_bfd),
5312 bfd_get_section_name (input_bfd, input_section),
5313 (long) rel->r_offset, howto->name, sym_name, (int) r);
5314 ret = FALSE;
5315 }
5316 }
5317 }
5318
5319 #ifdef DEBUG
5320 fprintf (stderr, "\n");
5321 #endif
5322
5323 return ret;
5324 }
5325
5326 static enum elf_reloc_type_class
5327 ppc_elf_reloc_type_class (const Elf_Internal_Rela *rela)
5328 {
5329 switch (ELF32_R_TYPE (rela->r_info))
5330 {
5331 case R_PPC_RELATIVE:
5332 return reloc_class_relative;
5333 case R_PPC_REL24:
5334 case R_PPC_ADDR24:
5335 case R_PPC_JMP_SLOT:
5336 return reloc_class_plt;
5337 case R_PPC_COPY:
5338 return reloc_class_copy;
5339 default:
5340 return reloc_class_normal;
5341 }
5342 }
5343 \f
5344 /* Support for core dump NOTE sections. */
5345
5346 static bfd_boolean
5347 ppc_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
5348 {
5349 int offset;
5350 unsigned int raw_size;
5351
5352 switch (note->descsz)
5353 {
5354 default:
5355 return FALSE;
5356
5357 case 268: /* Linux/PPC. */
5358 /* pr_cursig */
5359 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
5360
5361 /* pr_pid */
5362 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
5363
5364 /* pr_reg */
5365 offset = 72;
5366 raw_size = 192;
5367
5368 break;
5369 }
5370
5371 /* Make a ".reg/999" section. */
5372 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
5373 raw_size, note->descpos + offset);
5374 }
5375
5376 static bfd_boolean
5377 ppc_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
5378 {
5379 switch (note->descsz)
5380 {
5381 default:
5382 return FALSE;
5383
5384 case 128: /* Linux/PPC elf_prpsinfo. */
5385 elf_tdata (abfd)->core_program
5386 = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
5387 elf_tdata (abfd)->core_command
5388 = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
5389 }
5390
5391 /* Note that for some reason, a spurious space is tacked
5392 onto the end of the args in some (at least one anyway)
5393 implementations, so strip it off if it exists. */
5394
5395 {
5396 char *command = elf_tdata (abfd)->core_command;
5397 int n = strlen (command);
5398
5399 if (0 < n && command[n - 1] == ' ')
5400 command[n - 1] = '\0';
5401 }
5402
5403 return TRUE;
5404 }
5405 \f
5406 /* Very simple linked list structure for recording apuinfo values. */
5407 typedef struct apuinfo_list
5408 {
5409 struct apuinfo_list *next;
5410 unsigned long value;
5411 }
5412 apuinfo_list;
5413
5414 static apuinfo_list *head;
5415
5416
5417 static void
5418 apuinfo_list_init (void)
5419 {
5420 head = NULL;
5421 }
5422
5423 static void
5424 apuinfo_list_add (unsigned long value)
5425 {
5426 apuinfo_list *entry = head;
5427
5428 while (entry != NULL)
5429 {
5430 if (entry->value == value)
5431 return;
5432 entry = entry->next;
5433 }
5434
5435 entry = bfd_malloc (sizeof (* entry));
5436 if (entry == NULL)
5437 return;
5438
5439 entry->value = value;
5440 entry->next = head;
5441 head = entry;
5442 }
5443
5444 static unsigned
5445 apuinfo_list_length (void)
5446 {
5447 apuinfo_list *entry;
5448 unsigned long count;
5449
5450 for (entry = head, count = 0;
5451 entry;
5452 entry = entry->next)
5453 ++ count;
5454
5455 return count;
5456 }
5457
5458 static inline unsigned long
5459 apuinfo_list_element (unsigned long number)
5460 {
5461 apuinfo_list * entry;
5462
5463 for (entry = head;
5464 entry && number --;
5465 entry = entry->next)
5466 ;
5467
5468 return entry ? entry->value : 0;
5469 }
5470
5471 static void
5472 apuinfo_list_finish (void)
5473 {
5474 apuinfo_list *entry;
5475
5476 for (entry = head; entry;)
5477 {
5478 apuinfo_list *next = entry->next;
5479 free (entry);
5480 entry = next;
5481 }
5482
5483 head = NULL;
5484 }
5485
5486 #define APUINFO_SECTION_NAME ".PPC.EMB.apuinfo"
5487 #define APUINFO_LABEL "APUinfo"
5488
5489 /* Scan the input BFDs and create a linked list of
5490 the APUinfo values that will need to be emitted. */
5491
5492 static void
5493 ppc_elf_begin_write_processing (bfd *abfd, struct bfd_link_info *link_info)
5494 {
5495 bfd *ibfd;
5496 asection *asec;
5497 char *buffer;
5498 unsigned num_input_sections;
5499 bfd_size_type output_section_size;
5500 unsigned i;
5501 unsigned num_entries;
5502 unsigned long offset;
5503 unsigned long length;
5504 const char *error_message = NULL;
5505
5506 if (link_info == NULL)
5507 return;
5508
5509 /* Scan the input bfds, looking for apuinfo sections. */
5510 num_input_sections = 0;
5511 output_section_size = 0;
5512
5513 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
5514 {
5515 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
5516 if (asec)
5517 {
5518 ++ num_input_sections;
5519 output_section_size += asec->_raw_size;
5520 }
5521 }
5522
5523 /* We need at least one input sections
5524 in order to make merging worthwhile. */
5525 if (num_input_sections < 1)
5526 return;
5527
5528 /* Just make sure that the output section exists as well. */
5529 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
5530 if (asec == NULL)
5531 return;
5532
5533 /* Allocate a buffer for the contents of the input sections. */
5534 buffer = bfd_malloc (output_section_size);
5535 if (buffer == NULL)
5536 return;
5537
5538 offset = 0;
5539 apuinfo_list_init ();
5540
5541 /* Read in the input sections contents. */
5542 for (ibfd = link_info->input_bfds; ibfd; ibfd = ibfd->link_next)
5543 {
5544 unsigned long datum;
5545 char *ptr;
5546
5547 asec = bfd_get_section_by_name (ibfd, APUINFO_SECTION_NAME);
5548 if (asec == NULL)
5549 continue;
5550
5551 length = asec->_raw_size;
5552 if (length < 24)
5553 {
5554 error_message = _("corrupt or empty %s section in %s");
5555 goto fail;
5556 }
5557
5558 if (bfd_seek (ibfd, asec->filepos, SEEK_SET) != 0
5559 || (bfd_bread (buffer + offset, length, ibfd) != length))
5560 {
5561 error_message = _("unable to read in %s section from %s");
5562 goto fail;
5563 }
5564
5565 /* Process the contents of the section. */
5566 ptr = buffer + offset;
5567 error_message = _("corrupt %s section in %s");
5568
5569 /* Verify the contents of the header. Note - we have to
5570 extract the values this way in order to allow for a
5571 host whose endian-ness is different from the target. */
5572 datum = bfd_get_32 (ibfd, ptr);
5573 if (datum != sizeof APUINFO_LABEL)
5574 goto fail;
5575
5576 datum = bfd_get_32 (ibfd, ptr + 8);
5577 if (datum != 0x2)
5578 goto fail;
5579
5580 if (strcmp (ptr + 12, APUINFO_LABEL) != 0)
5581 goto fail;
5582
5583 /* Get the number of bytes used for apuinfo entries. */
5584 datum = bfd_get_32 (ibfd, ptr + 4);
5585 if (datum + 20 != length)
5586 goto fail;
5587
5588 /* Make sure that we do not run off the end of the section. */
5589 if (offset + length > output_section_size)
5590 goto fail;
5591
5592 /* Scan the apuinfo section, building a list of apuinfo numbers. */
5593 for (i = 0; i < datum; i += 4)
5594 apuinfo_list_add (bfd_get_32 (ibfd, ptr + 20 + i));
5595
5596 /* Update the offset. */
5597 offset += length;
5598 }
5599
5600 error_message = NULL;
5601
5602 /* Compute the size of the output section. */
5603 num_entries = apuinfo_list_length ();
5604 output_section_size = 20 + num_entries * 4;
5605
5606 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
5607
5608 if (! bfd_set_section_size (abfd, asec, output_section_size))
5609 ibfd = abfd,
5610 error_message = _("warning: unable to set size of %s section in %s");
5611
5612 fail:
5613 free (buffer);
5614
5615 if (error_message)
5616 (*_bfd_error_handler) (error_message, APUINFO_SECTION_NAME,
5617 bfd_archive_filename (ibfd));
5618 }
5619
5620
5621 /* Prevent the output section from accumulating the input sections'
5622 contents. We have already stored this in our linked list structure. */
5623
5624 static bfd_boolean
5625 ppc_elf_write_section (bfd *abfd ATTRIBUTE_UNUSED,
5626 asection *asec,
5627 bfd_byte *contents ATTRIBUTE_UNUSED)
5628 {
5629 return (apuinfo_list_length ()
5630 && strcmp (asec->name, APUINFO_SECTION_NAME) == 0);
5631 }
5632
5633
5634 /* Finally we can generate the output section. */
5635
5636 static void
5637 ppc_elf_final_write_processing (bfd *abfd, bfd_boolean linker ATTRIBUTE_UNUSED)
5638 {
5639 bfd_byte *buffer;
5640 asection *asec;
5641 unsigned i;
5642 unsigned num_entries;
5643 bfd_size_type length;
5644
5645 asec = bfd_get_section_by_name (abfd, APUINFO_SECTION_NAME);
5646 if (asec == NULL)
5647 return;
5648
5649 if (apuinfo_list_length () == 0)
5650 return;
5651
5652 length = asec->_raw_size;
5653 if (length < 20)
5654 return;
5655
5656 buffer = bfd_malloc (length);
5657 if (buffer == NULL)
5658 {
5659 (*_bfd_error_handler)
5660 (_("failed to allocate space for new APUinfo section."));
5661 return;
5662 }
5663
5664 /* Create the apuinfo header. */
5665 num_entries = apuinfo_list_length ();
5666 bfd_put_32 (abfd, sizeof APUINFO_LABEL, buffer);
5667 bfd_put_32 (abfd, num_entries * 4, buffer + 4);
5668 bfd_put_32 (abfd, 0x2, buffer + 8);
5669 strcpy (buffer + 12, APUINFO_LABEL);
5670
5671 length = 20;
5672 for (i = 0; i < num_entries; i++)
5673 {
5674 bfd_put_32 (abfd, apuinfo_list_element (i), buffer + length);
5675 length += 4;
5676 }
5677
5678 if (length != asec->_raw_size)
5679 (*_bfd_error_handler) (_("failed to compute new APUinfo section."));
5680
5681 if (! bfd_set_section_contents (abfd, asec, buffer, (file_ptr) 0, length))
5682 (*_bfd_error_handler) (_("failed to install new APUinfo section."));
5683
5684 free (buffer);
5685
5686 apuinfo_list_finish ();
5687 }
5688 \f
5689 #define TARGET_LITTLE_SYM bfd_elf32_powerpcle_vec
5690 #define TARGET_LITTLE_NAME "elf32-powerpcle"
5691 #define TARGET_BIG_SYM bfd_elf32_powerpc_vec
5692 #define TARGET_BIG_NAME "elf32-powerpc"
5693 #define ELF_ARCH bfd_arch_powerpc
5694 #define ELF_MACHINE_CODE EM_PPC
5695 #define ELF_MAXPAGESIZE 0x10000
5696 #define elf_info_to_howto ppc_elf_info_to_howto
5697
5698 #ifdef EM_CYGNUS_POWERPC
5699 #define ELF_MACHINE_ALT1 EM_CYGNUS_POWERPC
5700 #endif
5701
5702 #ifdef EM_PPC_OLD
5703 #define ELF_MACHINE_ALT2 EM_PPC_OLD
5704 #endif
5705
5706 #define elf_backend_plt_not_loaded 1
5707 #define elf_backend_got_symbol_offset 4
5708 #define elf_backend_can_gc_sections 1
5709 #define elf_backend_can_refcount 1
5710 #define elf_backend_got_header_size 12
5711 #define elf_backend_plt_header_size PLT_INITIAL_ENTRY_SIZE
5712 #define elf_backend_rela_normal 1
5713
5714 #define bfd_elf32_bfd_merge_private_bfd_data ppc_elf_merge_private_bfd_data
5715 #define bfd_elf32_bfd_relax_section ppc_elf_relax_section
5716 #define bfd_elf32_bfd_reloc_type_lookup ppc_elf_reloc_type_lookup
5717 #define bfd_elf32_bfd_set_private_flags ppc_elf_set_private_flags
5718 #define bfd_elf32_bfd_link_hash_table_create ppc_elf_link_hash_table_create
5719
5720 #define elf_backend_object_p ppc_elf_object_p
5721 #define elf_backend_gc_mark_hook ppc_elf_gc_mark_hook
5722 #define elf_backend_gc_sweep_hook ppc_elf_gc_sweep_hook
5723 #define elf_backend_section_from_shdr ppc_elf_section_from_shdr
5724 #define elf_backend_relocate_section ppc_elf_relocate_section
5725 #define elf_backend_create_dynamic_sections ppc_elf_create_dynamic_sections
5726 #define elf_backend_check_relocs ppc_elf_check_relocs
5727 #define elf_backend_copy_indirect_symbol ppc_elf_copy_indirect_symbol
5728 #define elf_backend_adjust_dynamic_symbol ppc_elf_adjust_dynamic_symbol
5729 #define elf_backend_add_symbol_hook ppc_elf_add_symbol_hook
5730 #define elf_backend_size_dynamic_sections ppc_elf_size_dynamic_sections
5731 #define elf_backend_finish_dynamic_symbol ppc_elf_finish_dynamic_symbol
5732 #define elf_backend_finish_dynamic_sections ppc_elf_finish_dynamic_sections
5733 #define elf_backend_fake_sections ppc_elf_fake_sections
5734 #define elf_backend_additional_program_headers ppc_elf_additional_program_headers
5735 #define elf_backend_modify_segment_map ppc_elf_modify_segment_map
5736 #define elf_backend_grok_prstatus ppc_elf_grok_prstatus
5737 #define elf_backend_grok_psinfo ppc_elf_grok_psinfo
5738 #define elf_backend_reloc_type_class ppc_elf_reloc_type_class
5739 #define elf_backend_begin_write_processing ppc_elf_begin_write_processing
5740 #define elf_backend_final_write_processing ppc_elf_final_write_processing
5741 #define elf_backend_write_section ppc_elf_write_section
5742
5743 #include "elf32-target.h"