projects / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
* objdump.c (dump_section_header): Dump SEC_ARCH_BIT_0.
[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
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 Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21
22 /* This file is based on a preliminary PowerPC ELF ABI. The
23 information may not match the final PowerPC ELF ABI. It includes
24 suggestions from the in-progress Embedded PowerPC ABI, and that
25 information may also not match. */
26
27 #include "bfd.h"
28 #include "sysdep.h"
29 #include "bfdlink.h"
30 #include "libbfd.h"
31 #include "elf-bfd.h"
32 #include "elf/ppc.h"
33
34 #define USE_RELA /* we want RELA relocations, not REL */
35
36 static reloc_howto_type *ppc_elf_reloc_type_lookup
37 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
38 static void ppc_elf_info_to_howto
39 PARAMS ((bfd *abfd, arelent *cache_ptr, Elf32_Internal_Rela *dst));
40 static void ppc_elf_howto_init PARAMS ((void));
41 static int ppc_elf_sort_rela PARAMS ((const PTR, const PTR));
42 static boolean ppc_elf_relax_section
43 PARAMS ((bfd *, asection *, struct bfd_link_info *, boolean *));
44 static bfd_reloc_status_type ppc_elf_addr16_ha_reloc
45 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
46 static boolean ppc_elf_set_private_flags PARAMS ((bfd *, flagword));
47 static boolean ppc_elf_copy_private_bfd_data PARAMS ((bfd *, bfd *));
48 static boolean ppc_elf_merge_private_bfd_data PARAMS ((bfd *, bfd *));
49
50 static int ppc_elf_additional_program_headers PARAMS ((bfd *));
51 static boolean ppc_elf_modify_segment_map PARAMS ((bfd *));
52
53 static boolean ppc_elf_create_dynamic_sections
54 PARAMS ((bfd *, struct bfd_link_info *));
55
56 static boolean ppc_elf_section_from_shdr PARAMS ((bfd *,
57 Elf32_Internal_Shdr *,
58 char *));
59 static boolean ppc_elf_fake_sections
60 PARAMS ((bfd *, Elf32_Internal_Shdr *, asection *));
61
62 static elf_linker_section_t *ppc_elf_create_linker_section
63 PARAMS ((bfd *abfd,
64 struct bfd_link_info *info,
65 enum elf_linker_section_enum));
66
67 static boolean ppc_elf_check_relocs PARAMS ((bfd *,
68 struct bfd_link_info *,
69 asection *,
70 const Elf_Internal_Rela *));
71
72 static asection * ppc_elf_gc_mark_hook PARAMS ((bfd *abfd,
73 struct bfd_link_info *info,
74 Elf_Internal_Rela *rel,
75 struct elf_link_hash_entry *h,
76 Elf_Internal_Sym *sym));
77
78 static boolean ppc_elf_gc_sweep_hook PARAMS ((bfd *abfd,
79 struct bfd_link_info *info,
80 asection *sec,
81 const Elf_Internal_Rela *relocs));
82
83 static boolean ppc_elf_adjust_dynamic_symbol PARAMS ((struct bfd_link_info *,
84 struct elf_link_hash_entry *));
85
86 static boolean ppc_elf_size_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *));
87
88 static boolean ppc_elf_relocate_section PARAMS ((bfd *,
89 struct bfd_link_info *info,
90 bfd *,
91 asection *,
92 bfd_byte *,
93 Elf_Internal_Rela *relocs,
94 Elf_Internal_Sym *local_syms,
95 asection **));
96
97 static boolean ppc_elf_add_symbol_hook PARAMS ((bfd *,
98 struct bfd_link_info *,
99 const Elf_Internal_Sym *,
100 const char **,
101 flagword *,
102 asection **,
103 bfd_vma *));
104
105 static boolean ppc_elf_finish_dynamic_symbol PARAMS ((bfd *,
106 struct bfd_link_info *,
107 struct elf_link_hash_entry *,
108 Elf_Internal_Sym *));
109
110 static boolean ppc_elf_finish_dynamic_sections PARAMS ((bfd *, struct bfd_link_info *));
111 static enum elf_reloc_type_class ppc_elf_reloc_type_class
112 PARAMS ((const Elf_Internal_Rela *));
113 static boolean ppc_elf_grok_prstatus
114 PARAMS ((bfd *abfd, Elf_Internal_Note *note));
115 static boolean ppc_elf_grok_psinfo
116 PARAMS ((bfd *abfd, Elf_Internal_Note *note));
117
118 #define BRANCH_PREDICT_BIT 0x200000 /* branch prediction bit for branch taken relocs */
119 #define RA_REGISTER_MASK 0x001f0000 /* mask to set RA in memory instructions */
120 #define RA_REGISTER_SHIFT 16 /* value to shift register by to insert RA */
121
122 /* The name of the dynamic interpreter. This is put in the .interp
123 section. */
124
125 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
126
127 /* The size in bytes of an entry in the procedure linkage table. */
128 #define PLT_ENTRY_SIZE 12
129 /* The initial size of the plt reserved for the dynamic linker. */
130 #define PLT_INITIAL_ENTRY_SIZE 72
131 /* The size of the gap between entries in the PLT. */
132 #define PLT_SLOT_SIZE 8
133 /* The number of single-slot PLT entries (the rest use two slots). */
134 #define PLT_NUM_SINGLE_ENTRIES 8192
135
136 /* Will references to this symbol always reference the symbol
137 in this object? */
138 #define SYMBOL_REFERENCES_LOCAL(INFO, H) \
139 ((! INFO->shared \
140 || INFO->symbolic \
141 || H->dynindx == -1 \
142 || ELF_ST_VISIBILITY (H->other) == STV_INTERNAL \
143 || ELF_ST_VISIBILITY (H->other) == STV_HIDDEN) \
144 && (H->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0)
145
146 /* Will _calls_ to this symbol always call the version in this object? */
147 #define SYMBOL_CALLS_LOCAL(INFO, H) \
148 ((! INFO->shared \
149 || INFO->symbolic \
150 || H->dynindx == -1 \
151 || ELF_ST_VISIBILITY (H->other) != STV_DEFAULT) \
152 && (H->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0)
153 \f
154 static reloc_howto_type *ppc_elf_howto_table[(int) R_PPC_max];
155
156 static reloc_howto_type ppc_elf_howto_raw[] = {
157 /* This reloc does nothing. */
158 HOWTO (R_PPC_NONE, /* type */
159 0, /* rightshift */
160 2, /* size (0 = byte, 1 = short, 2 = long) */
161 32, /* bitsize */
162 false, /* pc_relative */
163 0, /* bitpos */
164 complain_overflow_bitfield, /* complain_on_overflow */
165 bfd_elf_generic_reloc, /* special_function */
166 "R_PPC_NONE", /* name */
167 false, /* partial_inplace */
168 0, /* src_mask */
169 0, /* dst_mask */
170 false), /* pcrel_offset */
171
172 /* A standard 32 bit relocation. */
173 HOWTO (R_PPC_ADDR32, /* type */
174 0, /* rightshift */
175 2, /* size (0 = byte, 1 = short, 2 = long) */
176 32, /* bitsize */
177 false, /* pc_relative */
178 0, /* bitpos */
179 complain_overflow_bitfield, /* complain_on_overflow */
180 bfd_elf_generic_reloc, /* special_function */
181 "R_PPC_ADDR32", /* name */
182 false, /* partial_inplace */
183 0, /* src_mask */
184 0xffffffff, /* dst_mask */
185 false), /* pcrel_offset */
186
187 /* An absolute 26 bit branch; the lower two bits must be zero.
188 FIXME: we don't check that, we just clear them. */
189 HOWTO (R_PPC_ADDR24, /* type */
190 0, /* rightshift */
191 2, /* size (0 = byte, 1 = short, 2 = long) */
192 26, /* bitsize */
193 false, /* pc_relative */
194 0, /* bitpos */
195 complain_overflow_bitfield, /* complain_on_overflow */
196 bfd_elf_generic_reloc, /* special_function */
197 "R_PPC_ADDR24", /* name */
198 false, /* partial_inplace */
199 0, /* src_mask */
200 0x3fffffc, /* dst_mask */
201 false), /* pcrel_offset */
202
203 /* A standard 16 bit relocation. */
204 HOWTO (R_PPC_ADDR16, /* type */
205 0, /* rightshift */
206 1, /* size (0 = byte, 1 = short, 2 = long) */
207 16, /* bitsize */
208 false, /* pc_relative */
209 0, /* bitpos */
210 complain_overflow_bitfield, /* complain_on_overflow */
211 bfd_elf_generic_reloc, /* special_function */
212 "R_PPC_ADDR16", /* name */
213 false, /* partial_inplace */
214 0, /* src_mask */
215 0xffff, /* dst_mask */
216 false), /* pcrel_offset */
217
218 /* A 16 bit relocation without overflow. */
219 HOWTO (R_PPC_ADDR16_LO, /* type */
220 0, /* rightshift */
221 1, /* size (0 = byte, 1 = short, 2 = long) */
222 16, /* bitsize */
223 false, /* pc_relative */
224 0, /* bitpos */
225 complain_overflow_dont,/* complain_on_overflow */
226 bfd_elf_generic_reloc, /* special_function */
227 "R_PPC_ADDR16_LO", /* name */
228 false, /* partial_inplace */
229 0, /* src_mask */
230 0xffff, /* dst_mask */
231 false), /* pcrel_offset */
232
233 /* The high order 16 bits of an address. */
234 HOWTO (R_PPC_ADDR16_HI, /* type */
235 16, /* rightshift */
236 1, /* size (0 = byte, 1 = short, 2 = long) */
237 16, /* bitsize */
238 false, /* pc_relative */
239 0, /* bitpos */
240 complain_overflow_dont, /* complain_on_overflow */
241 bfd_elf_generic_reloc, /* special_function */
242 "R_PPC_ADDR16_HI", /* name */
243 false, /* partial_inplace */
244 0, /* src_mask */
245 0xffff, /* dst_mask */
246 false), /* pcrel_offset */
247
248 /* The high order 16 bits of an address, plus 1 if the contents of
249 the low 16 bits, treated as a signed number, is negative. */
250 HOWTO (R_PPC_ADDR16_HA, /* type */
251 16, /* rightshift */
252 1, /* size (0 = byte, 1 = short, 2 = long) */
253 16, /* bitsize */
254 false, /* pc_relative */
255 0, /* bitpos */
256 complain_overflow_dont, /* complain_on_overflow */
257 ppc_elf_addr16_ha_reloc, /* special_function */
258 "R_PPC_ADDR16_HA", /* name */
259 false, /* partial_inplace */
260 0, /* src_mask */
261 0xffff, /* dst_mask */
262 false), /* pcrel_offset */
263
264 /* An absolute 16 bit branch; the lower two bits must be zero.
265 FIXME: we don't check that, we just clear them. */
266 HOWTO (R_PPC_ADDR14, /* type */
267 0, /* rightshift */
268 2, /* size (0 = byte, 1 = short, 2 = long) */
269 16, /* bitsize */
270 false, /* pc_relative */
271 0, /* bitpos */
272 complain_overflow_bitfield, /* complain_on_overflow */
273 bfd_elf_generic_reloc, /* special_function */
274 "R_PPC_ADDR14", /* name */
275 false, /* partial_inplace */
276 0, /* src_mask */
277 0xfffc, /* dst_mask */
278 false), /* pcrel_offset */
279
280 /* An absolute 16 bit branch, for which bit 10 should be set to
281 indicate that the branch is expected to be taken. The lower two
282 bits must be zero. */
283 HOWTO (R_PPC_ADDR14_BRTAKEN, /* type */
284 0, /* rightshift */
285 2, /* size (0 = byte, 1 = short, 2 = long) */
286 16, /* bitsize */
287 false, /* pc_relative */
288 0, /* bitpos */
289 complain_overflow_bitfield, /* complain_on_overflow */
290 bfd_elf_generic_reloc, /* special_function */
291 "R_PPC_ADDR14_BRTAKEN",/* name */
292 false, /* partial_inplace */
293 0, /* src_mask */
294 0xfffc, /* dst_mask */
295 false), /* pcrel_offset */
296
297 /* An absolute 16 bit branch, for which bit 10 should be set to
298 indicate that the branch is not expected to be taken. The lower
299 two bits must be zero. */
300 HOWTO (R_PPC_ADDR14_BRNTAKEN, /* type */
301 0, /* rightshift */
302 2, /* size (0 = byte, 1 = short, 2 = long) */
303 16, /* bitsize */
304 false, /* pc_relative */
305 0, /* bitpos */
306 complain_overflow_bitfield, /* complain_on_overflow */
307 bfd_elf_generic_reloc, /* special_function */
308 "R_PPC_ADDR14_BRNTAKEN",/* name */
309 false, /* partial_inplace */
310 0, /* src_mask */
311 0xfffc, /* dst_mask */
312 false), /* pcrel_offset */
313
314 /* A relative 26 bit branch; the lower two bits must be zero. */
315 HOWTO (R_PPC_REL24, /* type */
316 0, /* rightshift */
317 2, /* size (0 = byte, 1 = short, 2 = long) */
318 26, /* bitsize */
319 true, /* pc_relative */
320 0, /* bitpos */
321 complain_overflow_signed, /* complain_on_overflow */
322 bfd_elf_generic_reloc, /* special_function */
323 "R_PPC_REL24", /* name */
324 false, /* partial_inplace */
325 0, /* src_mask */
326 0x3fffffc, /* dst_mask */
327 true), /* pcrel_offset */
328
329 /* A relative 16 bit branch; the lower two bits must be zero. */
330 HOWTO (R_PPC_REL14, /* type */
331 0, /* rightshift */
332 2, /* size (0 = byte, 1 = short, 2 = long) */
333 16, /* bitsize */
334 true, /* pc_relative */
335 0, /* bitpos */
336 complain_overflow_signed, /* complain_on_overflow */
337 bfd_elf_generic_reloc, /* special_function */
338 "R_PPC_REL14", /* name */
339 false, /* partial_inplace */
340 0, /* src_mask */
341 0xfffc, /* dst_mask */
342 true), /* pcrel_offset */
343
344 /* A relative 16 bit branch. Bit 10 should be set to indicate that
345 the branch is expected to be taken. The lower two bits must be
346 zero. */
347 HOWTO (R_PPC_REL14_BRTAKEN, /* type */
348 0, /* rightshift */
349 2, /* size (0 = byte, 1 = short, 2 = long) */
350 16, /* bitsize */
351 true, /* pc_relative */
352 0, /* bitpos */
353 complain_overflow_signed, /* complain_on_overflow */
354 bfd_elf_generic_reloc, /* special_function */
355 "R_PPC_REL14_BRTAKEN", /* name */
356 false, /* partial_inplace */
357 0, /* src_mask */
358 0xfffc, /* dst_mask */
359 true), /* pcrel_offset */
360
361 /* A relative 16 bit branch. Bit 10 should be set to indicate that
362 the branch is not expected to be taken. The lower two bits must
363 be zero. */
364 HOWTO (R_PPC_REL14_BRNTAKEN, /* type */
365 0, /* rightshift */
366 2, /* size (0 = byte, 1 = short, 2 = long) */
367 16, /* bitsize */
368 true, /* pc_relative */
369 0, /* bitpos */
370 complain_overflow_signed, /* complain_on_overflow */
371 bfd_elf_generic_reloc, /* special_function */
372 "R_PPC_REL14_BRNTAKEN",/* name */
373 false, /* partial_inplace */
374 0, /* src_mask */
375 0xfffc, /* dst_mask */
376 true), /* pcrel_offset */
377
378 /* Like R_PPC_ADDR16, but referring to the GOT table entry for the
379 symbol. */
380 HOWTO (R_PPC_GOT16, /* type */
381 0, /* rightshift */
382 1, /* size (0 = byte, 1 = short, 2 = long) */
383 16, /* bitsize */
384 false, /* pc_relative */
385 0, /* bitpos */
386 complain_overflow_signed, /* complain_on_overflow */
387 bfd_elf_generic_reloc, /* special_function */
388 "R_PPC_GOT16", /* name */
389 false, /* partial_inplace */
390 0, /* src_mask */
391 0xffff, /* dst_mask */
392 false), /* pcrel_offset */
393
394 /* Like R_PPC_ADDR16_LO, but referring to the GOT table entry for
395 the symbol. */
396 HOWTO (R_PPC_GOT16_LO, /* type */
397 0, /* rightshift */
398 1, /* size (0 = byte, 1 = short, 2 = long) */
399 16, /* bitsize */
400 false, /* pc_relative */
401 0, /* bitpos */
402 complain_overflow_dont, /* complain_on_overflow */
403 bfd_elf_generic_reloc, /* special_function */
404 "R_PPC_GOT16_LO", /* name */
405 false, /* partial_inplace */
406 0, /* src_mask */
407 0xffff, /* dst_mask */
408 false), /* pcrel_offset */
409
410 /* Like R_PPC_ADDR16_HI, but referring to the GOT table entry for
411 the symbol. */
412 HOWTO (R_PPC_GOT16_HI, /* type */
413 16, /* rightshift */
414 1, /* size (0 = byte, 1 = short, 2 = long) */
415 16, /* bitsize */
416 false, /* pc_relative */
417 0, /* bitpos */
418 complain_overflow_bitfield, /* complain_on_overflow */
419 bfd_elf_generic_reloc, /* special_function */
420 "R_PPC_GOT16_HI", /* name */
421 false, /* partial_inplace */
422 0, /* src_mask */
423 0xffff, /* dst_mask */
424 false), /* pcrel_offset */
425
426 /* Like R_PPC_ADDR16_HA, but referring to the GOT table entry for
427 the symbol. */
428 HOWTO (R_PPC_GOT16_HA, /* type */
429 16, /* rightshift */
430 1, /* size (0 = byte, 1 = short, 2 = long) */
431 16, /* bitsize */
432 false, /* pc_relative */
433 0, /* bitpos */
434 complain_overflow_bitfield, /* complain_on_overflow */
435 ppc_elf_addr16_ha_reloc, /* special_function */
436 "R_PPC_GOT16_HA", /* name */
437 false, /* partial_inplace */
438 0, /* src_mask */
439 0xffff, /* dst_mask */
440 false), /* pcrel_offset */
441
442 /* Like R_PPC_REL24, but referring to the procedure linkage table
443 entry for the symbol. */
444 HOWTO (R_PPC_PLTREL24, /* type */
445 0, /* rightshift */
446 2, /* size (0 = byte, 1 = short, 2 = long) */
447 26, /* bitsize */
448 true, /* pc_relative */
449 0, /* bitpos */
450 complain_overflow_signed, /* complain_on_overflow */
451 bfd_elf_generic_reloc, /* special_function */
452 "R_PPC_PLTREL24", /* name */
453 false, /* partial_inplace */
454 0, /* src_mask */
455 0x3fffffc, /* dst_mask */
456 true), /* pcrel_offset */
457
458 /* This is used only by the dynamic linker. The symbol should exist
459 both in the object being run and in some shared library. The
460 dynamic linker copies the data addressed by the symbol from the
461 shared library into the object, because the object being
462 run has to have the data at some particular address. */
463 HOWTO (R_PPC_COPY, /* type */
464 0, /* rightshift */
465 2, /* size (0 = byte, 1 = short, 2 = long) */
466 32, /* bitsize */
467 false, /* pc_relative */
468 0, /* bitpos */
469 complain_overflow_bitfield, /* complain_on_overflow */
470 bfd_elf_generic_reloc, /* special_function */
471 "R_PPC_COPY", /* name */
472 false, /* partial_inplace */
473 0, /* src_mask */
474 0, /* dst_mask */
475 false), /* pcrel_offset */
476
477 /* Like R_PPC_ADDR32, but used when setting global offset table
478 entries. */
479 HOWTO (R_PPC_GLOB_DAT, /* type */
480 0, /* rightshift */
481 2, /* size (0 = byte, 1 = short, 2 = long) */
482 32, /* bitsize */
483 false, /* pc_relative */
484 0, /* bitpos */
485 complain_overflow_bitfield, /* complain_on_overflow */
486 bfd_elf_generic_reloc, /* special_function */
487 "R_PPC_GLOB_DAT", /* name */
488 false, /* partial_inplace */
489 0, /* src_mask */
490 0xffffffff, /* dst_mask */
491 false), /* pcrel_offset */
492
493 /* Marks a procedure linkage table entry for a symbol. */
494 HOWTO (R_PPC_JMP_SLOT, /* type */
495 0, /* rightshift */
496 2, /* size (0 = byte, 1 = short, 2 = long) */
497 32, /* bitsize */
498 false, /* pc_relative */
499 0, /* bitpos */
500 complain_overflow_bitfield, /* complain_on_overflow */
501 bfd_elf_generic_reloc, /* special_function */
502 "R_PPC_JMP_SLOT", /* name */
503 false, /* partial_inplace */
504 0, /* src_mask */
505 0, /* dst_mask */
506 false), /* pcrel_offset */
507
508 /* Used only by the dynamic linker. When the object is run, this
509 longword is set to the load address of the object, plus the
510 addend. */
511 HOWTO (R_PPC_RELATIVE, /* type */
512 0, /* rightshift */
513 2, /* size (0 = byte, 1 = short, 2 = long) */
514 32, /* bitsize */
515 false, /* pc_relative */
516 0, /* bitpos */
517 complain_overflow_bitfield, /* complain_on_overflow */
518 bfd_elf_generic_reloc, /* special_function */
519 "R_PPC_RELATIVE", /* name */
520 false, /* partial_inplace */
521 0, /* src_mask */
522 0xffffffff, /* dst_mask */
523 false), /* pcrel_offset */
524
525 /* Like R_PPC_REL24, but uses the value of the symbol within the
526 object rather than the final value. Normally used for
527 _GLOBAL_OFFSET_TABLE_. */
528 HOWTO (R_PPC_LOCAL24PC, /* type */
529 0, /* rightshift */
530 2, /* size (0 = byte, 1 = short, 2 = long) */
531 26, /* bitsize */
532 true, /* pc_relative */
533 0, /* bitpos */
534 complain_overflow_signed, /* complain_on_overflow */
535 bfd_elf_generic_reloc, /* special_function */
536 "R_PPC_LOCAL24PC", /* name */
537 false, /* partial_inplace */
538 0, /* src_mask */
539 0x3fffffc, /* dst_mask */
540 true), /* pcrel_offset */
541
542 /* Like R_PPC_ADDR32, but may be unaligned. */
543 HOWTO (R_PPC_UADDR32, /* type */
544 0, /* rightshift */
545 2, /* size (0 = byte, 1 = short, 2 = long) */
546 32, /* bitsize */
547 false, /* pc_relative */
548 0, /* bitpos */
549 complain_overflow_bitfield, /* complain_on_overflow */
550 bfd_elf_generic_reloc, /* special_function */
551 "R_PPC_UADDR32", /* name */
552 false, /* partial_inplace */
553 0, /* src_mask */
554 0xffffffff, /* dst_mask */
555 false), /* pcrel_offset */
556
557 /* Like R_PPC_ADDR16, but may be unaligned. */
558 HOWTO (R_PPC_UADDR16, /* type */
559 0, /* rightshift */
560 1, /* size (0 = byte, 1 = short, 2 = long) */
561 16, /* bitsize */
562 false, /* pc_relative */
563 0, /* bitpos */
564 complain_overflow_bitfield, /* complain_on_overflow */
565 bfd_elf_generic_reloc, /* special_function */
566 "R_PPC_UADDR16", /* name */
567 false, /* partial_inplace */
568 0, /* src_mask */
569 0xffff, /* dst_mask */
570 false), /* pcrel_offset */
571
572 /* 32-bit PC relative */
573 HOWTO (R_PPC_REL32, /* type */
574 0, /* rightshift */
575 2, /* size (0 = byte, 1 = short, 2 = long) */
576 32, /* bitsize */
577 true, /* pc_relative */
578 0, /* bitpos */
579 complain_overflow_bitfield, /* complain_on_overflow */
580 bfd_elf_generic_reloc, /* special_function */
581 "R_PPC_REL32", /* name */
582 false, /* partial_inplace */
583 0, /* src_mask */
584 0xffffffff, /* dst_mask */
585 true), /* pcrel_offset */
586
587 /* 32-bit relocation to the symbol's procedure linkage table.
588 FIXME: not supported. */
589 HOWTO (R_PPC_PLT32, /* type */
590 0, /* rightshift */
591 2, /* size (0 = byte, 1 = short, 2 = long) */
592 32, /* bitsize */
593 false, /* pc_relative */
594 0, /* bitpos */
595 complain_overflow_bitfield, /* complain_on_overflow */
596 bfd_elf_generic_reloc, /* special_function */
597 "R_PPC_PLT32", /* name */
598 false, /* partial_inplace */
599 0, /* src_mask */
600 0, /* dst_mask */
601 false), /* pcrel_offset */
602
603 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
604 FIXME: not supported. */
605 HOWTO (R_PPC_PLTREL32, /* type */
606 0, /* rightshift */
607 2, /* size (0 = byte, 1 = short, 2 = long) */
608 32, /* bitsize */
609 true, /* pc_relative */
610 0, /* bitpos */
611 complain_overflow_bitfield, /* complain_on_overflow */
612 bfd_elf_generic_reloc, /* special_function */
613 "R_PPC_PLTREL32", /* name */
614 false, /* partial_inplace */
615 0, /* src_mask */
616 0, /* dst_mask */
617 true), /* pcrel_offset */
618
619 /* Like R_PPC_ADDR16_LO, but referring to the PLT table entry for
620 the symbol. */
621 HOWTO (R_PPC_PLT16_LO, /* type */
622 0, /* rightshift */
623 1, /* size (0 = byte, 1 = short, 2 = long) */
624 16, /* bitsize */
625 false, /* pc_relative */
626 0, /* bitpos */
627 complain_overflow_dont, /* complain_on_overflow */
628 bfd_elf_generic_reloc, /* special_function */
629 "R_PPC_PLT16_LO", /* name */
630 false, /* partial_inplace */
631 0, /* src_mask */
632 0xffff, /* dst_mask */
633 false), /* pcrel_offset */
634
635 /* Like R_PPC_ADDR16_HI, but referring to the PLT table entry for
636 the symbol. */
637 HOWTO (R_PPC_PLT16_HI, /* type */
638 16, /* rightshift */
639 1, /* size (0 = byte, 1 = short, 2 = long) */
640 16, /* bitsize */
641 false, /* pc_relative */
642 0, /* bitpos */
643 complain_overflow_bitfield, /* complain_on_overflow */
644 bfd_elf_generic_reloc, /* special_function */
645 "R_PPC_PLT16_HI", /* name */
646 false, /* partial_inplace */
647 0, /* src_mask */
648 0xffff, /* dst_mask */
649 false), /* pcrel_offset */
650
651 /* Like R_PPC_ADDR16_HA, but referring to the PLT table entry for
652 the symbol. */
653 HOWTO (R_PPC_PLT16_HA, /* type */
654 16, /* rightshift */
655 1, /* size (0 = byte, 1 = short, 2 = long) */
656 16, /* bitsize */
657 false, /* pc_relative */
658 0, /* bitpos */
659 complain_overflow_bitfield, /* complain_on_overflow */
660 ppc_elf_addr16_ha_reloc, /* special_function */
661 "R_PPC_PLT16_HA", /* name */
662 false, /* partial_inplace */
663 0, /* src_mask */
664 0xffff, /* dst_mask */
665 false), /* pcrel_offset */
666
667 /* A sign-extended 16 bit value relative to _SDA_BASE_, for use with
668 small data items. */
669 HOWTO (R_PPC_SDAREL16, /* type */
670 0, /* rightshift */
671 1, /* size (0 = byte, 1 = short, 2 = long) */
672 16, /* bitsize */
673 false, /* pc_relative */
674 0, /* bitpos */
675 complain_overflow_signed, /* complain_on_overflow */
676 bfd_elf_generic_reloc, /* special_function */
677 "R_PPC_SDAREL16", /* name */
678 false, /* partial_inplace */
679 0, /* src_mask */
680 0xffff, /* dst_mask */
681 false), /* pcrel_offset */
682
683 /* 32-bit section relative relocation. */
684 HOWTO (R_PPC_SECTOFF, /* type */
685 0, /* rightshift */
686 2, /* size (0 = byte, 1 = short, 2 = long) */
687 32, /* bitsize */
688 true, /* pc_relative */
689 0, /* bitpos */
690 complain_overflow_bitfield, /* complain_on_overflow */
691 bfd_elf_generic_reloc, /* special_function */
692 "R_PPC_SECTOFF", /* name */
693 false, /* partial_inplace */
694 0, /* src_mask */
695 0, /* dst_mask */
696 true), /* pcrel_offset */
697
698 /* 16-bit lower half section relative relocation. */
699 HOWTO (R_PPC_SECTOFF_LO, /* type */
700 0, /* rightshift */
701 1, /* size (0 = byte, 1 = short, 2 = long) */
702 16, /* bitsize */
703 false, /* pc_relative */
704 0, /* bitpos */
705 complain_overflow_dont, /* complain_on_overflow */
706 bfd_elf_generic_reloc, /* special_function */
707 "R_PPC_SECTOFF_LO", /* name */
708 false, /* partial_inplace */
709 0, /* src_mask */
710 0xffff, /* dst_mask */
711 false), /* pcrel_offset */
712
713 /* 16-bit upper half section relative relocation. */
714 HOWTO (R_PPC_SECTOFF_HI, /* type */
715 16, /* rightshift */
716 1, /* size (0 = byte, 1 = short, 2 = long) */
717 16, /* bitsize */
718 false, /* pc_relative */
719 0, /* bitpos */
720 complain_overflow_bitfield, /* complain_on_overflow */
721 bfd_elf_generic_reloc, /* special_function */
722 "R_PPC_SECTOFF_HI", /* name */
723 false, /* partial_inplace */
724 0, /* src_mask */
725 0xffff, /* dst_mask */
726 false), /* pcrel_offset */
727
728 /* 16-bit upper half adjusted section relative relocation. */
729 HOWTO (R_PPC_SECTOFF_HA, /* type */
730 16, /* rightshift */
731 1, /* size (0 = byte, 1 = short, 2 = long) */
732 16, /* bitsize */
733 false, /* pc_relative */
734 0, /* bitpos */
735 complain_overflow_bitfield, /* complain_on_overflow */
736 ppc_elf_addr16_ha_reloc, /* special_function */
737 "R_PPC_SECTOFF_HA", /* name */
738 false, /* partial_inplace */
739 0, /* src_mask */
740 0xffff, /* dst_mask */
741 false), /* pcrel_offset */
742
743 /* The remaining relocs are from the Embedded ELF ABI, and are not
744 in the SVR4 ELF ABI. */
745
746 /* 32 bit value resulting from the addend minus the symbol */
747 HOWTO (R_PPC_EMB_NADDR32, /* type */
748 0, /* rightshift */
749 2, /* size (0 = byte, 1 = short, 2 = long) */
750 32, /* bitsize */
751 false, /* pc_relative */
752 0, /* bitpos */
753 complain_overflow_bitfield, /* complain_on_overflow */
754 bfd_elf_generic_reloc, /* special_function */
755 "R_PPC_EMB_NADDR32", /* name */
756 false, /* partial_inplace */
757 0, /* src_mask */
758 0xffffffff, /* dst_mask */
759 false), /* pcrel_offset */
760
761 /* 16 bit value resulting from the addend minus the symbol */
762 HOWTO (R_PPC_EMB_NADDR16, /* type */
763 0, /* rightshift */
764 1, /* size (0 = byte, 1 = short, 2 = long) */
765 16, /* bitsize */
766 false, /* pc_relative */
767 0, /* bitpos */
768 complain_overflow_bitfield, /* complain_on_overflow */
769 bfd_elf_generic_reloc, /* special_function */
770 "R_PPC_EMB_NADDR16", /* name */
771 false, /* partial_inplace */
772 0, /* src_mask */
773 0xffff, /* dst_mask */
774 false), /* pcrel_offset */
775
776 /* 16 bit value resulting from the addend minus the symbol */
777 HOWTO (R_PPC_EMB_NADDR16_LO, /* type */
778 0, /* rightshift */
779 1, /* size (0 = byte, 1 = short, 2 = long) */
780 16, /* bitsize */
781 false, /* pc_relative */
782 0, /* bitpos */
783 complain_overflow_dont,/* complain_on_overflow */
784 bfd_elf_generic_reloc, /* special_function */
785 "R_PPC_EMB_ADDR16_LO", /* name */
786 false, /* partial_inplace */
787 0, /* src_mask */
788 0xffff, /* dst_mask */
789 false), /* pcrel_offset */
790
791 /* The high order 16 bits of the addend minus the symbol */
792 HOWTO (R_PPC_EMB_NADDR16_HI, /* type */
793 16, /* rightshift */
794 1, /* size (0 = byte, 1 = short, 2 = long) */
795 16, /* bitsize */
796 false, /* pc_relative */
797 0, /* bitpos */
798 complain_overflow_dont, /* complain_on_overflow */
799 bfd_elf_generic_reloc, /* special_function */
800 "R_PPC_EMB_NADDR16_HI", /* name */
801 false, /* partial_inplace */
802 0, /* src_mask */
803 0xffff, /* dst_mask */
804 false), /* pcrel_offset */
805
806 /* The high order 16 bits of the result of the addend minus the address,
807 plus 1 if the contents of the low 16 bits, treated as a signed number,
808 is negative. */
809 HOWTO (R_PPC_EMB_NADDR16_HA, /* type */
810 16, /* rightshift */
811 1, /* size (0 = byte, 1 = short, 2 = long) */
812 16, /* bitsize */
813 false, /* pc_relative */
814 0, /* bitpos */
815 complain_overflow_dont, /* complain_on_overflow */
816 ppc_elf_addr16_ha_reloc, /* special_function */
817 "R_PPC_EMB_NADDR16_HA", /* name */
818 false, /* partial_inplace */
819 0, /* src_mask */
820 0xffff, /* dst_mask */
821 false), /* pcrel_offset */
822
823 /* 16 bit value resulting from allocating a 4 byte word to hold an
824 address in the .sdata section, and returning the offset from
825 _SDA_BASE_ for that relocation */
826 HOWTO (R_PPC_EMB_SDAI16, /* type */
827 0, /* rightshift */
828 1, /* size (0 = byte, 1 = short, 2 = long) */
829 16, /* bitsize */
830 false, /* pc_relative */
831 0, /* bitpos */
832 complain_overflow_bitfield, /* complain_on_overflow */
833 bfd_elf_generic_reloc, /* special_function */
834 "R_PPC_EMB_SDAI16", /* name */
835 false, /* partial_inplace */
836 0, /* src_mask */
837 0xffff, /* dst_mask */
838 false), /* pcrel_offset */
839
840 /* 16 bit value resulting from allocating a 4 byte word to hold an
841 address in the .sdata2 section, and returning the offset from
842 _SDA2_BASE_ for that relocation */
843 HOWTO (R_PPC_EMB_SDA2I16, /* type */
844 0, /* rightshift */
845 1, /* size (0 = byte, 1 = short, 2 = long) */
846 16, /* bitsize */
847 false, /* pc_relative */
848 0, /* bitpos */
849 complain_overflow_bitfield, /* complain_on_overflow */
850 bfd_elf_generic_reloc, /* special_function */
851 "R_PPC_EMB_SDA2I16", /* name */
852 false, /* partial_inplace */
853 0, /* src_mask */
854 0xffff, /* dst_mask */
855 false), /* pcrel_offset */
856
857 /* A sign-extended 16 bit value relative to _SDA2_BASE_, for use with
858 small data items. */
859 HOWTO (R_PPC_EMB_SDA2REL, /* type */
860 0, /* rightshift */
861 1, /* size (0 = byte, 1 = short, 2 = long) */
862 16, /* bitsize */
863 false, /* pc_relative */
864 0, /* bitpos */
865 complain_overflow_signed, /* complain_on_overflow */
866 bfd_elf_generic_reloc, /* special_function */
867 "R_PPC_EMB_SDA2REL", /* name */
868 false, /* partial_inplace */
869 0, /* src_mask */
870 0xffff, /* dst_mask */
871 false), /* pcrel_offset */
872
873 /* Relocate against either _SDA_BASE_ or _SDA2_BASE_, filling in the 16 bit
874 signed offset from the appropriate base, and filling in the register
875 field with the appropriate register (0, 2, or 13). */
876 HOWTO (R_PPC_EMB_SDA21, /* type */
877 0, /* rightshift */
878 2, /* size (0 = byte, 1 = short, 2 = long) */
879 16, /* bitsize */
880 false, /* pc_relative */
881 0, /* bitpos */
882 complain_overflow_signed, /* complain_on_overflow */
883 bfd_elf_generic_reloc, /* special_function */
884 "R_PPC_EMB_SDA21", /* name */
885 false, /* partial_inplace */
886 0, /* src_mask */
887 0xffff, /* dst_mask */
888 false), /* pcrel_offset */
889
890 /* Relocation not handled: R_PPC_EMB_MRKREF */
891 /* Relocation not handled: R_PPC_EMB_RELSEC16 */
892 /* Relocation not handled: R_PPC_EMB_RELST_LO */
893 /* Relocation not handled: R_PPC_EMB_RELST_HI */
894 /* Relocation not handled: R_PPC_EMB_RELST_HA */
895 /* Relocation not handled: R_PPC_EMB_BIT_FLD */
896
897 /* PC relative relocation against either _SDA_BASE_ or _SDA2_BASE_, filling
898 in the 16 bit signed offset from the appropriate base, and filling in the
899 register field with the appropriate register (0, 2, or 13). */
900 HOWTO (R_PPC_EMB_RELSDA, /* type */
901 0, /* rightshift */
902 1, /* size (0 = byte, 1 = short, 2 = long) */
903 16, /* bitsize */
904 true, /* pc_relative */
905 0, /* bitpos */
906 complain_overflow_signed, /* complain_on_overflow */
907 bfd_elf_generic_reloc, /* special_function */
908 "R_PPC_EMB_RELSDA", /* name */
909 false, /* partial_inplace */
910 0, /* src_mask */
911 0xffff, /* dst_mask */
912 false), /* pcrel_offset */
913
914 /* GNU extension to record C++ vtable hierarchy */
915 HOWTO (R_PPC_GNU_VTINHERIT, /* type */
916 0, /* rightshift */
917 0, /* size (0 = byte, 1 = short, 2 = long) */
918 0, /* bitsize */
919 false, /* pc_relative */
920 0, /* bitpos */
921 complain_overflow_dont, /* complain_on_overflow */
922 NULL, /* special_function */
923 "R_PPC_GNU_VTINHERIT", /* name */
924 false, /* partial_inplace */
925 0, /* src_mask */
926 0, /* dst_mask */
927 false), /* pcrel_offset */
928
929 /* GNU extension to record C++ vtable member usage */
930 HOWTO (R_PPC_GNU_VTENTRY, /* type */
931 0, /* rightshift */
932 0, /* size (0 = byte, 1 = short, 2 = long) */
933 0, /* bitsize */
934 false, /* pc_relative */
935 0, /* bitpos */
936 complain_overflow_dont, /* complain_on_overflow */
937 NULL, /* special_function */
938 "R_PPC_GNU_VTENTRY", /* name */
939 false, /* partial_inplace */
940 0, /* src_mask */
941 0, /* dst_mask */
942 false), /* pcrel_offset */
943
944 /* Phony reloc to handle AIX style TOC entries */
945 HOWTO (R_PPC_TOC16, /* type */
946 0, /* rightshift */
947 1, /* size (0 = byte, 1 = short, 2 = long) */
948 16, /* bitsize */
949 false, /* pc_relative */
950 0, /* bitpos */
951 complain_overflow_signed, /* complain_on_overflow */
952 bfd_elf_generic_reloc, /* special_function */
953 "R_PPC_TOC16", /* name */
954 false, /* partial_inplace */
955 0, /* src_mask */
956 0xffff, /* dst_mask */
957 false), /* pcrel_offset */
958 };
959 \f
960 /* Initialize the ppc_elf_howto_table, so that linear accesses can be done. */
961
962 static void
963 ppc_elf_howto_init ()
964 {
965 unsigned int i, type;
966
967 for (i = 0; i < sizeof (ppc_elf_howto_raw) / sizeof (ppc_elf_howto_raw[0]); i++)
968 {
969 type = ppc_elf_howto_raw[i].type;
970 BFD_ASSERT (type < sizeof (ppc_elf_howto_table) / sizeof (ppc_elf_howto_table[0]));
971 ppc_elf_howto_table[type] = &ppc_elf_howto_raw[i];
972 }
973 }
974 \f
975 /* This function handles relaxing for the PPC with option --mpc860c0[=<n>].
976
977 The MPC860, revision C0 or earlier contains a bug in the die.
978 If all of the following conditions are true, the next instruction
979 to be executed *may* be treated as a no-op.
980 1/ A forward branch is executed.
981 2/ The branch is predicted as not taken.
982 3/ The branch is taken.
983 4/ The branch is located in the last 5 words of a page.
984 (The EOP limit is 5 by default but may be specified as any value from 1-10.)
985
986 Our software solution is to detect these problematic branches in a
987 linker pass and modify them as follows:
988 1/ Unconditional branches - Since these are always predicted taken,
989 there is no problem and no action is required.
990 2/ Conditional backward branches - No problem, no action required.
991 3/ Conditional forward branches - Ensure that the "inverse prediction
992 bit" is set (ensure it is predicted taken).
993 4/ Conditional register branches - Ensure that the "y bit" is set
994 (ensure it is predicted taken).
995 */
996
997 /* Sort sections by address. */
998
999 static int
1000 ppc_elf_sort_rela (arg1, arg2)
1001 const PTR arg1;
1002 const PTR arg2;
1003 {
1004 const Elf_Internal_Rela **rela1 = (const Elf_Internal_Rela**) arg1;
1005 const Elf_Internal_Rela **rela2 = (const Elf_Internal_Rela**) arg2;
1006
1007 /* Sort by offset. */
1008 return ((*rela1)->r_offset - (*rela2)->r_offset);
1009 }
1010
1011 static boolean
1012 ppc_elf_relax_section (abfd, isec, link_info, again)
1013 bfd *abfd;
1014 asection *isec;
1015 struct bfd_link_info *link_info;
1016 boolean *again;
1017 {
1018 #define PAGESIZE 0x1000
1019
1020 bfd_byte *contents = NULL;
1021 bfd_byte *free_contents = NULL;
1022 Elf_Internal_Rela *internal_relocs = NULL;
1023 Elf_Internal_Rela *free_relocs = NULL;
1024 Elf_Internal_Rela **rela_comb = NULL;
1025 int comb_curr, comb_count;
1026
1027 /* We never have to do this more than once per input section. */
1028 *again = false;
1029
1030 /* If needed, initialize this section's cooked size. */
1031 if (isec->_cooked_size == 0)
1032 isec->_cooked_size = isec->_raw_size;
1033
1034 /* We're only interested in text sections which overlap the
1035 troublesome area at the end of a page. */
1036 if (link_info->mpc860c0 && (isec->flags & SEC_CODE) && isec->_cooked_size)
1037 {
1038 bfd_vma dot, end_page, end_section;
1039 boolean section_modified;
1040
1041 /* Get the section contents. */
1042 /* Get cached copy if it exists. */
1043 if (elf_section_data (isec)->this_hdr.contents != NULL)
1044 contents = elf_section_data (isec)->this_hdr.contents;
1045 else
1046 {
1047 /* Go get them off disk. */
1048 contents = (bfd_byte *) bfd_malloc (isec->_raw_size);
1049 if (contents == NULL)
1050 goto error_return;
1051 free_contents = contents;
1052
1053 if (! bfd_get_section_contents (abfd, isec, contents,
1054 (file_ptr) 0, isec->_raw_size))
1055 goto error_return;
1056 }
1057
1058 comb_curr = 0;
1059 comb_count = 0;
1060 if (isec->reloc_count)
1061 {
1062 unsigned n;
1063 bfd_size_type amt;
1064
1065 /* Get a copy of the native relocations. */
1066 internal_relocs = _bfd_elf32_link_read_relocs (
1067 abfd, isec, (PTR) NULL, (Elf_Internal_Rela *) NULL,
1068 link_info->keep_memory);
1069 if (internal_relocs == NULL)
1070 goto error_return;
1071 if (! link_info->keep_memory)
1072 free_relocs = internal_relocs;
1073
1074 /* Setup a faster access method for the reloc info we need. */
1075 amt = isec->reloc_count;
1076 amt *= sizeof (Elf_Internal_Rela*);
1077 rela_comb = (Elf_Internal_Rela**) bfd_malloc (amt);
1078 if (rela_comb == NULL)
1079 goto error_return;
1080 for (n = 0; n < isec->reloc_count; ++n)
1081 {
1082 long r_type;
1083
1084 r_type = ELF32_R_TYPE (internal_relocs[n].r_info);
1085 if (r_type < 0 || r_type >= (int) R_PPC_max)
1086 goto error_return;
1087
1088 /* Prologue constants are sometimes present in the ".text"
1089 sections and they can be identified by their associated relocation.
1090 We don't want to process those words and some others which
1091 can also be identified by their relocations. However, not all
1092 conditional branches will have a relocation so we will
1093 only ignore words that 1) have a reloc, and 2) the reloc
1094 is not applicable to a conditional branch.
1095 The array rela_comb is built here for use in the EOP scan loop. */
1096 switch (r_type)
1097 {
1098 case R_PPC_ADDR14_BRNTAKEN: /* absolute, predicted not taken */
1099 case R_PPC_REL14: /* relative cond. br. */
1100 case R_PPC_REL14_BRNTAKEN: /* rel. cond. br., predicted not taken */
1101 /* We should check the instruction. */
1102 break;
1103 default:
1104 /* The word is not a conditional branch - ignore it. */
1105 rela_comb[comb_count++] = &internal_relocs[n];
1106 break;
1107 }
1108 }
1109 if (comb_count > 1)
1110 qsort (rela_comb, (size_t) comb_count, sizeof (int), ppc_elf_sort_rela);
1111 }
1112
1113 /* Enumerate each EOP region that overlaps this section. */
1114 end_section = isec->vma + isec->_cooked_size;
1115 dot = end_page = (isec->vma | (PAGESIZE - 1)) + 1;
1116 dot -= link_info->mpc860c0;
1117 section_modified = false;
1118 if (dot < isec->vma) /* Increment the start position if this section */
1119 dot = isec->vma; /* begins in the middle of its first EOP region. */
1120 for (;
1121 dot < end_section;
1122 dot += PAGESIZE, end_page += PAGESIZE)
1123 {
1124
1125 /* Check each word in this EOP region. */
1126 for (; dot < end_page; dot += 4)
1127 {
1128 bfd_vma isec_offset;
1129 unsigned long insn;
1130 boolean skip, modified;
1131
1132 /* Don't process this word if there is a relocation for it and
1133 the relocation indicates the word is not a conditional branch. */
1134 skip = false;
1135 isec_offset = dot - isec->vma;
1136 for (; comb_curr<comb_count; ++comb_curr)
1137 {
1138 bfd_vma r_offset;
1139
1140 r_offset = rela_comb[comb_curr]->r_offset;
1141 if (r_offset >= isec_offset)
1142 {
1143 if (r_offset == isec_offset) skip = true;
1144 break;
1145 }
1146 }
1147 if (skip) continue;
1148
1149 /* Check the current word for a problematic conditional branch. */
1150 #define BO0(insn) ((insn) & 0x02000000)
1151 #define BO2(insn) ((insn) & 0x00800000)
1152 #define BO4(insn) ((insn) & 0x00200000)
1153 insn = (unsigned long) bfd_get_32 (abfd, contents + isec_offset);
1154 modified = false;
1155 if ((insn & 0xFc000000) == 0x40000000)
1156 {
1157 /* Instruction is BCx */
1158 if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1159 {
1160 bfd_vma target;
1161 /* This branch is predicted as "normal".
1162 If this is a forward branch, it is problematic. */
1163
1164 target = insn & 0x0000Fffc; /*extract*/
1165 target = (target ^ 0x8000) - 0x8000; /*sign extend*/
1166 if ((insn & 0x00000002) == 0)
1167 target += dot; /*convert to abs*/
1168 if (target > dot)
1169 {
1170 insn |= 0x00200000; /* set the prediction bit */
1171 modified = true;
1172 }
1173 }
1174 }
1175 else if ((insn & 0xFc00Fffe) == 0x4c000420)
1176 {
1177 /* Instruction is BCCTRx */
1178 if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1179 {
1180 /* This branch is predicted as not-taken.
1181 If this is a forward branch, it is problematic.
1182 Since we can't tell statically if it will branch forward,
1183 always set the prediction bit. */
1184 insn |= 0x00200000; /* set the prediction bit */
1185 modified = true;
1186 }
1187 }
1188 else if ((insn & 0xFc00Fffe) == 0x4c000020)
1189 {
1190 /* Instruction is BCLRx */
1191 if ((!BO0(insn) || !BO2(insn)) && !BO4(insn))
1192 {
1193 /* This branch is predicted as not-taken.
1194 If this is a forward branch, it is problematic.
1195 Since we can't tell statically if it will branch forward,
1196 always set the prediction bit. */
1197 insn |= 0x00200000; /* set the prediction bit */
1198 modified = true;
1199 }
1200 }
1201 #undef BO0
1202 #undef BO2
1203 #undef BO4
1204 if (modified)
1205 {
1206 bfd_put_32 (abfd, (bfd_vma) insn, contents + isec_offset);
1207 section_modified = true;
1208 }
1209 }
1210 }
1211 if (section_modified)
1212 {
1213 elf_section_data (isec)->this_hdr.contents = contents;
1214 free_contents = NULL;
1215 }
1216 }
1217
1218 if (rela_comb != NULL)
1219 {
1220 free (rela_comb);
1221 rela_comb = NULL;
1222 }
1223
1224 if (free_relocs != NULL)
1225 {
1226 free (free_relocs);
1227 free_relocs = NULL;
1228 }
1229
1230 if (free_contents != NULL)
1231 {
1232 if (! link_info->keep_memory)
1233 free (free_contents);
1234 else
1235 {
1236 /* Cache the section contents for elf_link_input_bfd. */
1237 elf_section_data (isec)->this_hdr.contents = contents;
1238 }
1239 free_contents = NULL;
1240 }
1241
1242 return true;
1243
1244 error_return:
1245 if (rela_comb != NULL)
1246 free (rela_comb);
1247 if (free_relocs != NULL)
1248 free (free_relocs);
1249 if (free_contents != NULL)
1250 free (free_contents);
1251 return false;
1252 }
1253 \f
1254 static reloc_howto_type *
1255 ppc_elf_reloc_type_lookup (abfd, code)
1256 bfd *abfd ATTRIBUTE_UNUSED;
1257 bfd_reloc_code_real_type code;
1258 {
1259 enum elf_ppc_reloc_type ppc_reloc = R_PPC_NONE;
1260
1261 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1262 /* Initialize howto table if needed. */
1263 ppc_elf_howto_init ();
1264
1265 switch ((int) code)
1266 {
1267 default:
1268 return (reloc_howto_type *) NULL;
1269
1270 case BFD_RELOC_NONE: ppc_reloc = R_PPC_NONE; break;
1271 case BFD_RELOC_32: ppc_reloc = R_PPC_ADDR32; break;
1272 case BFD_RELOC_PPC_BA26: ppc_reloc = R_PPC_ADDR24; break;
1273 case BFD_RELOC_16: ppc_reloc = R_PPC_ADDR16; break;
1274 case BFD_RELOC_LO16: ppc_reloc = R_PPC_ADDR16_LO; break;
1275 case BFD_RELOC_HI16: ppc_reloc = R_PPC_ADDR16_HI; break;
1276 case BFD_RELOC_HI16_S: ppc_reloc = R_PPC_ADDR16_HA; break;
1277 case BFD_RELOC_PPC_BA16: ppc_reloc = R_PPC_ADDR14; break;
1278 case BFD_RELOC_PPC_BA16_BRTAKEN: ppc_reloc = R_PPC_ADDR14_BRTAKEN; break;
1279 case BFD_RELOC_PPC_BA16_BRNTAKEN: ppc_reloc = R_PPC_ADDR14_BRNTAKEN; break;
1280 case BFD_RELOC_PPC_B26: ppc_reloc = R_PPC_REL24; break;
1281 case BFD_RELOC_PPC_B16: ppc_reloc = R_PPC_REL14; break;
1282 case BFD_RELOC_PPC_B16_BRTAKEN: ppc_reloc = R_PPC_REL14_BRTAKEN; break;
1283 case BFD_RELOC_PPC_B16_BRNTAKEN: ppc_reloc = R_PPC_REL14_BRNTAKEN; break;
1284 case BFD_RELOC_16_GOTOFF: ppc_reloc = R_PPC_GOT16; break;
1285 case BFD_RELOC_LO16_GOTOFF: ppc_reloc = R_PPC_GOT16_LO; break;
1286 case BFD_RELOC_HI16_GOTOFF: ppc_reloc = R_PPC_GOT16_HI; break;
1287 case BFD_RELOC_HI16_S_GOTOFF: ppc_reloc = R_PPC_GOT16_HA; break;
1288 case BFD_RELOC_24_PLT_PCREL: ppc_reloc = R_PPC_PLTREL24; break;
1289 case BFD_RELOC_PPC_COPY: ppc_reloc = R_PPC_COPY; break;
1290 case BFD_RELOC_PPC_GLOB_DAT: ppc_reloc = R_PPC_GLOB_DAT; break;
1291 case BFD_RELOC_PPC_LOCAL24PC: ppc_reloc = R_PPC_LOCAL24PC; break;
1292 case BFD_RELOC_32_PCREL: ppc_reloc = R_PPC_REL32; break;
1293 case BFD_RELOC_32_PLTOFF: ppc_reloc = R_PPC_PLT32; break;
1294 case BFD_RELOC_32_PLT_PCREL: ppc_reloc = R_PPC_PLTREL32; break;
1295 case BFD_RELOC_LO16_PLTOFF: ppc_reloc = R_PPC_PLT16_LO; break;
1296 case BFD_RELOC_HI16_PLTOFF: ppc_reloc = R_PPC_PLT16_HI; break;
1297 case BFD_RELOC_HI16_S_PLTOFF: ppc_reloc = R_PPC_PLT16_HA; break;
1298 case BFD_RELOC_GPREL16: ppc_reloc = R_PPC_SDAREL16; break;
1299 case BFD_RELOC_32_BASEREL: ppc_reloc = R_PPC_SECTOFF; break;
1300 case BFD_RELOC_LO16_BASEREL: ppc_reloc = R_PPC_SECTOFF_LO; break;
1301 case BFD_RELOC_HI16_BASEREL: ppc_reloc = R_PPC_SECTOFF_HI; break;
1302 case BFD_RELOC_HI16_S_BASEREL: ppc_reloc = R_PPC_SECTOFF_HA; break;
1303 case BFD_RELOC_CTOR: ppc_reloc = R_PPC_ADDR32; break;
1304 case BFD_RELOC_PPC_TOC16: ppc_reloc = R_PPC_TOC16; break;
1305 case BFD_RELOC_PPC_EMB_NADDR32: ppc_reloc = R_PPC_EMB_NADDR32; break;
1306 case BFD_RELOC_PPC_EMB_NADDR16: ppc_reloc = R_PPC_EMB_NADDR16; break;
1307 case BFD_RELOC_PPC_EMB_NADDR16_LO: ppc_reloc = R_PPC_EMB_NADDR16_LO; break;
1308 case BFD_RELOC_PPC_EMB_NADDR16_HI: ppc_reloc = R_PPC_EMB_NADDR16_HI; break;
1309 case BFD_RELOC_PPC_EMB_NADDR16_HA: ppc_reloc = R_PPC_EMB_NADDR16_HA; break;
1310 case BFD_RELOC_PPC_EMB_SDAI16: ppc_reloc = R_PPC_EMB_SDAI16; break;
1311 case BFD_RELOC_PPC_EMB_SDA2I16: ppc_reloc = R_PPC_EMB_SDA2I16; break;
1312 case BFD_RELOC_PPC_EMB_SDA2REL: ppc_reloc = R_PPC_EMB_SDA2REL; break;
1313 case BFD_RELOC_PPC_EMB_SDA21: ppc_reloc = R_PPC_EMB_SDA21; break;
1314 case BFD_RELOC_PPC_EMB_MRKREF: ppc_reloc = R_PPC_EMB_MRKREF; break;
1315 case BFD_RELOC_PPC_EMB_RELSEC16: ppc_reloc = R_PPC_EMB_RELSEC16; break;
1316 case BFD_RELOC_PPC_EMB_RELST_LO: ppc_reloc = R_PPC_EMB_RELST_LO; break;
1317 case BFD_RELOC_PPC_EMB_RELST_HI: ppc_reloc = R_PPC_EMB_RELST_HI; break;
1318 case BFD_RELOC_PPC_EMB_RELST_HA: ppc_reloc = R_PPC_EMB_RELST_HA; break;
1319 case BFD_RELOC_PPC_EMB_BIT_FLD: ppc_reloc = R_PPC_EMB_BIT_FLD; break;
1320 case BFD_RELOC_PPC_EMB_RELSDA: ppc_reloc = R_PPC_EMB_RELSDA; break;
1321 case BFD_RELOC_VTABLE_INHERIT: ppc_reloc = R_PPC_GNU_VTINHERIT; break;
1322 case BFD_RELOC_VTABLE_ENTRY: ppc_reloc = R_PPC_GNU_VTENTRY; break;
1323 }
1324
1325 return ppc_elf_howto_table[(int) ppc_reloc];
1326 };
1327
1328 /* Set the howto pointer for a PowerPC ELF reloc. */
1329
1330 static void
1331 ppc_elf_info_to_howto (abfd, cache_ptr, dst)
1332 bfd *abfd ATTRIBUTE_UNUSED;
1333 arelent *cache_ptr;
1334 Elf32_Internal_Rela *dst;
1335 {
1336 if (!ppc_elf_howto_table[R_PPC_ADDR32])
1337 /* Initialize howto table if needed. */
1338 ppc_elf_howto_init ();
1339
1340 BFD_ASSERT (ELF32_R_TYPE (dst->r_info) < (unsigned int) R_PPC_max);
1341 cache_ptr->howto = ppc_elf_howto_table[ELF32_R_TYPE (dst->r_info)];
1342 }
1343
1344 /* Handle the R_PPC_ADDR16_HA reloc. */
1345
1346 static bfd_reloc_status_type
1347 ppc_elf_addr16_ha_reloc (abfd, reloc_entry, symbol, data, input_section,
1348 output_bfd, error_message)
1349 bfd *abfd ATTRIBUTE_UNUSED;
1350 arelent *reloc_entry;
1351 asymbol *symbol;
1352 PTR data ATTRIBUTE_UNUSED;
1353 asection *input_section;
1354 bfd *output_bfd;
1355 char **error_message ATTRIBUTE_UNUSED;
1356 {
1357 bfd_vma relocation;
1358
1359 if (output_bfd != NULL)
1360 {
1361 reloc_entry->address += input_section->output_offset;
1362 return bfd_reloc_ok;
1363 }
1364
1365 if (reloc_entry->address > input_section->_cooked_size)
1366 return bfd_reloc_outofrange;
1367
1368 if (bfd_is_com_section (symbol->section))
1369 relocation = 0;
1370 else
1371 relocation = symbol->value;
1372
1373 relocation += symbol->section->output_section->vma;
1374 relocation += symbol->section->output_offset;
1375 relocation += reloc_entry->addend;
1376
1377 reloc_entry->addend += (relocation & 0x8000) << 1;
1378
1379 return bfd_reloc_continue;
1380 }
1381
1382 /* Function to set whether a module needs the -mrelocatable bit set. */
1383
1384 static boolean
1385 ppc_elf_set_private_flags (abfd, flags)
1386 bfd *abfd;
1387 flagword flags;
1388 {
1389 BFD_ASSERT (!elf_flags_init (abfd)
1390 || elf_elfheader (abfd)->e_flags == flags);
1391
1392 elf_elfheader (abfd)->e_flags = flags;
1393 elf_flags_init (abfd) = true;
1394 return true;
1395 }
1396
1397 /* Copy backend specific data from one object module to another */
1398 static boolean
1399 ppc_elf_copy_private_bfd_data (ibfd, obfd)
1400 bfd *ibfd;
1401 bfd *obfd;
1402 {
1403 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1404 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1405 return true;
1406
1407 BFD_ASSERT (!elf_flags_init (obfd)
1408 || elf_elfheader (obfd)->e_flags == elf_elfheader (ibfd)->e_flags);
1409
1410 elf_elfheader (obfd)->e_flags = elf_elfheader (ibfd)->e_flags;
1411 elf_flags_init (obfd) = true;
1412 return true;
1413 }
1414
1415 /* Merge backend specific data from an object file to the output
1416 object file when linking */
1417 static boolean
1418 ppc_elf_merge_private_bfd_data (ibfd, obfd)
1419 bfd *ibfd;
1420 bfd *obfd;
1421 {
1422 flagword old_flags;
1423 flagword new_flags;
1424 boolean error;
1425
1426 /* Check if we have the same endianess */
1427 if (_bfd_generic_verify_endian_match (ibfd, obfd) == false)
1428 return false;
1429
1430 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1431 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1432 return true;
1433
1434 new_flags = elf_elfheader (ibfd)->e_flags;
1435 old_flags = elf_elfheader (obfd)->e_flags;
1436 if (!elf_flags_init (obfd)) /* First call, no flags set */
1437 {
1438 elf_flags_init (obfd) = true;
1439 elf_elfheader (obfd)->e_flags = new_flags;
1440 }
1441
1442 else if (new_flags == old_flags) /* Compatible flags are ok */
1443 ;
1444
1445 else /* Incompatible flags */
1446 {
1447 /* Warn about -mrelocatable mismatch. Allow -mrelocatable-lib to be linked
1448 with either. */
1449 error = false;
1450 if ((new_flags & EF_PPC_RELOCATABLE) != 0
1451 && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
1452 {
1453 error = true;
1454 (*_bfd_error_handler)
1455 (_("%s: compiled with -mrelocatable and linked with modules compiled normally"),
1456 bfd_archive_filename (ibfd));
1457 }
1458 else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
1459 && (old_flags & EF_PPC_RELOCATABLE) != 0)
1460 {
1461 error = true;
1462 (*_bfd_error_handler)
1463 (_("%s: compiled normally and linked with modules compiled with -mrelocatable"),
1464 bfd_archive_filename (ibfd));
1465 }
1466
1467 /* The output is -mrelocatable-lib iff both the input files are. */
1468 if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
1469 elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
1470
1471 /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
1472 but each input file is either -mrelocatable or -mrelocatable-lib. */
1473 if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
1474 && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
1475 && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
1476 elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
1477
1478 /* Do not warn about eabi vs. V.4 mismatch, just or in the bit if any module uses it */
1479 elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
1480
1481 new_flags &= ~ (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1482 old_flags &= ~ (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1483
1484 /* Warn about any other mismatches */
1485 if (new_flags != old_flags)
1486 {
1487 error = true;
1488 (*_bfd_error_handler)
1489 (_("%s: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"),
1490 bfd_archive_filename (ibfd), (long) new_flags, (long) old_flags);
1491 }
1492
1493 if (error)
1494 {
1495 bfd_set_error (bfd_error_bad_value);
1496 return false;
1497 }
1498 }
1499
1500 return true;
1501 }
1502 \f
1503 /* Handle a PowerPC specific section when reading an object file. This
1504 is called when elfcode.h finds a section with an unknown type. */
1505
1506 static boolean
1507 ppc_elf_section_from_shdr (abfd, hdr, name)
1508 bfd *abfd;
1509 Elf32_Internal_Shdr *hdr;
1510 char *name;
1511 {
1512 asection *newsect;
1513 flagword flags;
1514
1515 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name))
1516 return false;
1517
1518 newsect = hdr->bfd_section;
1519 flags = bfd_get_section_flags (abfd, newsect);
1520 if (hdr->sh_flags & SHF_EXCLUDE)
1521 flags |= SEC_EXCLUDE;
1522
1523 if (hdr->sh_type == SHT_ORDERED)
1524 flags |= SEC_SORT_ENTRIES;
1525
1526 bfd_set_section_flags (abfd, newsect, flags);
1527 return true;
1528 }
1529 \f
1530 /* Set up any other section flags and such that may be necessary. */
1531
1532 static boolean
1533 ppc_elf_fake_sections (abfd, shdr, asect)
1534 bfd *abfd ATTRIBUTE_UNUSED;
1535 Elf32_Internal_Shdr *shdr;
1536 asection *asect;
1537 {
1538 if ((asect->flags & SEC_EXCLUDE) != 0)
1539 shdr->sh_flags |= SHF_EXCLUDE;
1540
1541 if ((asect->flags & SEC_SORT_ENTRIES) != 0)
1542 shdr->sh_type = SHT_ORDERED;
1543
1544 return true;
1545 }
1546 \f
1547 /* Create a special linker section */
1548 static elf_linker_section_t *
1549 ppc_elf_create_linker_section (abfd, info, which)
1550 bfd *abfd;
1551 struct bfd_link_info *info;
1552 enum elf_linker_section_enum which;
1553 {
1554 bfd *dynobj = elf_hash_table (info)->dynobj;
1555 elf_linker_section_t *lsect;
1556
1557 /* Record the first bfd section that needs the special section */
1558 if (!dynobj)
1559 dynobj = elf_hash_table (info)->dynobj = abfd;
1560
1561 /* If this is the first time, create the section */
1562 lsect = elf_linker_section (dynobj, which);
1563 if (!lsect)
1564 {
1565 elf_linker_section_t defaults;
1566 static elf_linker_section_t zero_section;
1567
1568 defaults = zero_section;
1569 defaults.which = which;
1570 defaults.hole_written_p = false;
1571 defaults.alignment = 2;
1572
1573 /* Both of these sections are (technically) created by the user
1574 putting data in them, so they shouldn't be marked
1575 SEC_LINKER_CREATED.
1576
1577 The linker creates them so it has somewhere to attach their
1578 respective symbols. In fact, if they were empty it would
1579 be OK to leave the symbol set to 0 (or any random number), because
1580 the appropriate register should never be used. */
1581 defaults.flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
1582 | SEC_IN_MEMORY);
1583
1584 switch (which)
1585 {
1586 default:
1587 (*_bfd_error_handler) (_("%s: Unknown special linker type %d"),
1588 bfd_get_filename (abfd),
1589 (int) which);
1590
1591 bfd_set_error (bfd_error_bad_value);
1592 return (elf_linker_section_t *) 0;
1593
1594 case LINKER_SECTION_SDATA: /* .sdata/.sbss section */
1595 defaults.name = ".sdata";
1596 defaults.rel_name = ".rela.sdata";
1597 defaults.bss_name = ".sbss";
1598 defaults.sym_name = "_SDA_BASE_";
1599 defaults.sym_offset = 32768;
1600 break;
1601
1602 case LINKER_SECTION_SDATA2: /* .sdata2/.sbss2 section */
1603 defaults.name = ".sdata2";
1604 defaults.rel_name = ".rela.sdata2";
1605 defaults.bss_name = ".sbss2";
1606 defaults.sym_name = "_SDA2_BASE_";
1607 defaults.sym_offset = 32768;
1608 defaults.flags |= SEC_READONLY;
1609 break;
1610 }
1611
1612 lsect = _bfd_elf_create_linker_section (abfd, info, which, &defaults);
1613 }
1614
1615 return lsect;
1616 }
1617 \f
1618 /* If we have a non-zero sized .sbss2 or .PPC.EMB.sbss0 sections, we
1619 need to bump up the number of section headers. */
1620
1621 static int
1622 ppc_elf_additional_program_headers (abfd)
1623 bfd *abfd;
1624 {
1625 asection *s;
1626 int ret;
1627
1628 ret = 0;
1629
1630 s = bfd_get_section_by_name (abfd, ".interp");
1631 if (s != NULL)
1632 ++ret;
1633
1634 s = bfd_get_section_by_name (abfd, ".sbss2");
1635 if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->_raw_size > 0)
1636 ++ret;
1637
1638 s = bfd_get_section_by_name (abfd, ".PPC.EMB.sbss0");
1639 if (s != NULL && (s->flags & SEC_LOAD) != 0 && s->_raw_size > 0)
1640 ++ret;
1641
1642 return ret;
1643 }
1644
1645 /* Modify the segment map if needed. */
1646
1647 static boolean
1648 ppc_elf_modify_segment_map (abfd)
1649 bfd *abfd ATTRIBUTE_UNUSED;
1650 {
1651 return true;
1652 }
1653 \f
1654 /* We have to create .dynsbss and .rela.sbss here so that they get mapped
1655 to output sections (just like _bfd_elf_create_dynamic_sections has
1656 to create .dynbss and .rela.bss). */
1657
1658 static boolean
1659 ppc_elf_create_dynamic_sections (abfd, info)
1660 bfd *abfd;
1661 struct bfd_link_info *info;
1662 {
1663 register asection *s;
1664 flagword flags;
1665
1666 if (!_bfd_elf_create_dynamic_sections (abfd, info))
1667 return false;
1668
1669 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
1670 | SEC_LINKER_CREATED);
1671
1672 s = bfd_make_section (abfd, ".dynsbss");
1673 if (s == NULL
1674 || ! bfd_set_section_flags (abfd, s, SEC_ALLOC))
1675 return false;
1676
1677 if (! info->shared)
1678 {
1679 s = bfd_make_section (abfd, ".rela.sbss");
1680 if (s == NULL
1681 || ! bfd_set_section_flags (abfd, s, flags | SEC_READONLY)
1682 || ! bfd_set_section_alignment (abfd, s, 2))
1683 return false;
1684 }
1685 return true;
1686 }
1687
1688 /* Adjust a symbol defined by a dynamic object and referenced by a
1689 regular object. The current definition is in some section of the
1690 dynamic object, but we're not including those sections. We have to
1691 change the definition to something the rest of the link can
1692 understand. */
1693
1694 static boolean
1695 ppc_elf_adjust_dynamic_symbol (info, h)
1696 struct bfd_link_info *info;
1697 struct elf_link_hash_entry *h;
1698 {
1699 bfd *dynobj = elf_hash_table (info)->dynobj;
1700 asection *s;
1701 unsigned int power_of_two;
1702 bfd_vma plt_offset;
1703
1704 #ifdef DEBUG
1705 fprintf (stderr, "ppc_elf_adjust_dynamic_symbol called for %s\n", h->root.root.string);
1706 #endif
1707
1708 /* Make sure we know what is going on here. */
1709 BFD_ASSERT (dynobj != NULL
1710 && ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT)
1711 || h->weakdef != NULL
1712 || ((h->elf_link_hash_flags
1713 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
1714 && (h->elf_link_hash_flags
1715 & ELF_LINK_HASH_REF_REGULAR) != 0
1716 && (h->elf_link_hash_flags
1717 & ELF_LINK_HASH_DEF_REGULAR) == 0)));
1718
1719 /* If this is a function, put it in the procedure linkage table. We
1720 will fill in the contents of the procedure linkage table later,
1721 when we know the address of the .got section. */
1722 if (h->type == STT_FUNC
1723 || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
1724 {
1725 if (! elf_hash_table (info)->dynamic_sections_created
1726 || SYMBOL_CALLS_LOCAL (info, h)
1727 || (info->shared && h->plt.refcount <= 0))
1728 {
1729 /* A PLT entry is not required/allowed when:
1730
1731 1. We are not using ld.so; because then the PLT entry
1732 can't be set up, so we can't use one.
1733
1734 2. We know for certain that a call to this symbol
1735 will go to this object.
1736
1737 3. GC has rendered the entry unused.
1738 Note, however, that in an executable all references to the
1739 symbol go to the PLT, so we can't turn it off in that case.
1740 ??? The correct thing to do here is to reference count
1741 all uses of the symbol, not just those to the GOT or PLT. */
1742 h->plt.offset = (bfd_vma) -1;
1743 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
1744 return true;
1745 }
1746
1747 /* Make sure this symbol is output as a dynamic symbol. */
1748 if (h->dynindx == -1)
1749 {
1750 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
1751 return false;
1752 }
1753 BFD_ASSERT (h->dynindx != -1);
1754
1755 s = bfd_get_section_by_name (dynobj, ".plt");
1756 BFD_ASSERT (s != NULL);
1757
1758 /* If this is the first .plt entry, make room for the special
1759 first entry. */
1760 if (s->_raw_size == 0)
1761 s->_raw_size += PLT_INITIAL_ENTRY_SIZE;
1762
1763 /* The PowerPC PLT is actually composed of two parts, the first part
1764 is 2 words (for a load and a jump), and then there is a remaining
1765 word available at the end. */
1766 plt_offset = (PLT_INITIAL_ENTRY_SIZE
1767 + (PLT_SLOT_SIZE
1768 * ((s->_raw_size - PLT_INITIAL_ENTRY_SIZE)
1769 / PLT_ENTRY_SIZE)));
1770
1771 /* If this symbol is not defined in a regular file, and we are
1772 not generating a shared library, then set the symbol to this
1773 location in the .plt. This is required to make function
1774 pointers compare as equal between the normal executable and
1775 the shared library. */
1776 if (! info->shared
1777 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1778 {
1779 h->root.u.def.section = s;
1780 h->root.u.def.value = plt_offset;
1781 }
1782
1783 h->plt.offset = plt_offset;
1784
1785 /* Make room for this entry. After the 8192nd entry, room
1786 for two entries is allocated. */
1787 if ((s->_raw_size - PLT_INITIAL_ENTRY_SIZE) / PLT_ENTRY_SIZE
1788 >= PLT_NUM_SINGLE_ENTRIES)
1789 s->_raw_size += 2 * PLT_ENTRY_SIZE;
1790 else
1791 s->_raw_size += PLT_ENTRY_SIZE;
1792
1793 /* We also need to make an entry in the .rela.plt section. */
1794 s = bfd_get_section_by_name (dynobj, ".rela.plt");
1795 BFD_ASSERT (s != NULL);
1796 s->_raw_size += sizeof (Elf32_External_Rela);
1797
1798 return true;
1799 }
1800
1801 /* If this is a weak symbol, and there is a real definition, the
1802 processor independent code will have arranged for us to see the
1803 real definition first, and we can just use the same value. */
1804 if (h->weakdef != NULL)
1805 {
1806 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
1807 || h->weakdef->root.type == bfd_link_hash_defweak);
1808 h->root.u.def.section = h->weakdef->root.u.def.section;
1809 h->root.u.def.value = h->weakdef->root.u.def.value;
1810 return true;
1811 }
1812
1813 /* This is a reference to a symbol defined by a dynamic object which
1814 is not a function. */
1815
1816 /* If we are creating a shared library, we must presume that the
1817 only references to the symbol are via the global offset table.
1818 For such cases we need not do anything here; the relocations will
1819 be handled correctly by relocate_section. */
1820 if (info->shared)
1821 return true;
1822
1823 /* We must allocate the symbol in our .dynbss section, which will
1824 become part of the .bss section of the executable. There will be
1825 an entry for this symbol in the .dynsym section. The dynamic
1826 object will contain position independent code, so all references
1827 from the dynamic object to this symbol will go through the global
1828 offset table. The dynamic linker will use the .dynsym entry to
1829 determine the address it must put in the global offset table, so
1830 both the dynamic object and the regular object will refer to the
1831 same memory location for the variable.
1832
1833 Of course, if the symbol is sufficiently small, we must instead
1834 allocate it in .sbss. FIXME: It would be better to do this if and
1835 only if there were actually SDAREL relocs for that symbol. */
1836
1837 if (h->size <= elf_gp_size (dynobj))
1838 s = bfd_get_section_by_name (dynobj, ".dynsbss");
1839 else
1840 s = bfd_get_section_by_name (dynobj, ".dynbss");
1841 BFD_ASSERT (s != NULL);
1842
1843 /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
1844 copy the initial value out of the dynamic object and into the
1845 runtime process image. We need to remember the offset into the
1846 .rela.bss section we are going to use. */
1847 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1848 {
1849 asection *srel;
1850
1851 if (h->size <= elf_gp_size (dynobj))
1852 srel = bfd_get_section_by_name (dynobj, ".rela.sbss");
1853 else
1854 srel = bfd_get_section_by_name (dynobj, ".rela.bss");
1855 BFD_ASSERT (srel != NULL);
1856 srel->_raw_size += sizeof (Elf32_External_Rela);
1857 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
1858 }
1859
1860 /* We need to figure out the alignment required for this symbol. I
1861 have no idea how ELF linkers handle this. */
1862 power_of_two = bfd_log2 (h->size);
1863 if (power_of_two > 4)
1864 power_of_two = 4;
1865
1866 /* Apply the required alignment. */
1867 s->_raw_size = BFD_ALIGN (s->_raw_size,
1868 (bfd_size_type) (1 << power_of_two));
1869 if (power_of_two > bfd_get_section_alignment (dynobj, s))
1870 {
1871 if (! bfd_set_section_alignment (dynobj, s, power_of_two))
1872 return false;
1873 }
1874
1875 /* Define the symbol as being at this point in the section. */
1876 h->root.u.def.section = s;
1877 h->root.u.def.value = s->_raw_size;
1878
1879 /* Increment the section size to make room for the symbol. */
1880 s->_raw_size += h->size;
1881
1882 return true;
1883 }
1884 \f
1885 /* Set the sizes of the dynamic sections. */
1886
1887 static boolean
1888 ppc_elf_size_dynamic_sections (output_bfd, info)
1889 bfd *output_bfd ATTRIBUTE_UNUSED;
1890 struct bfd_link_info *info;
1891 {
1892 bfd *dynobj;
1893 asection *s;
1894 boolean plt;
1895 boolean relocs;
1896
1897 #ifdef DEBUG
1898 fprintf (stderr, "ppc_elf_size_dynamic_sections called\n");
1899 #endif
1900
1901 dynobj = elf_hash_table (info)->dynobj;
1902 BFD_ASSERT (dynobj != NULL);
1903
1904 if (elf_hash_table (info)->dynamic_sections_created)
1905 {
1906 /* Set the contents of the .interp section to the interpreter. */
1907 if (! info->shared)
1908 {
1909 s = bfd_get_section_by_name (dynobj, ".interp");
1910 BFD_ASSERT (s != NULL);
1911 s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
1912 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
1913 }
1914 }
1915 else
1916 {
1917 /* We may have created entries in the .rela.got, .rela.sdata, and
1918 .rela.sdata2 sections. However, if we are not creating the
1919 dynamic sections, we will not actually use these entries. Reset
1920 the size of .rela.got, et al, which will cause it to get
1921 stripped from the output file below. */
1922 static char *rela_sections[] = { ".rela.got", ".rela.sdata",
1923 ".rela.sdata2", ".rela.sbss",
1924 (char *) 0 };
1925 char **p;
1926
1927 for (p = rela_sections; *p != (char *) 0; p++)
1928 {
1929 s = bfd_get_section_by_name (dynobj, *p);
1930 if (s != NULL)
1931 s->_raw_size = 0;
1932 }
1933 }
1934
1935 /* The check_relocs and adjust_dynamic_symbol entry points have
1936 determined the sizes of the various dynamic sections. Allocate
1937 memory for them. */
1938 plt = false;
1939 relocs = false;
1940 for (s = dynobj->sections; s != NULL; s = s->next)
1941 {
1942 const char *name;
1943 boolean strip;
1944
1945 if ((s->flags & SEC_LINKER_CREATED) == 0)
1946 continue;
1947
1948 /* It's OK to base decisions on the section name, because none
1949 of the dynobj section names depend upon the input files. */
1950 name = bfd_get_section_name (dynobj, s);
1951
1952 strip = false;
1953
1954 if (strcmp (name, ".plt") == 0)
1955 {
1956 if (s->_raw_size == 0)
1957 {
1958 /* Strip this section if we don't need it; see the
1959 comment below. */
1960 strip = true;
1961 }
1962 else
1963 {
1964 /* Remember whether there is a PLT. */
1965 plt = true;
1966 }
1967 }
1968 else if (strncmp (name, ".rela", 5) == 0)
1969 {
1970 if (s->_raw_size == 0)
1971 {
1972 /* If we don't need this section, strip it from the
1973 output file. This is mostly to handle .rela.bss and
1974 .rela.plt. We must create both sections in
1975 create_dynamic_sections, because they must be created
1976 before the linker maps input sections to output
1977 sections. The linker does that before
1978 adjust_dynamic_symbol is called, and it is that
1979 function which decides whether anything needs to go
1980 into these sections. */
1981 strip = true;
1982 }
1983 else
1984 {
1985 /* Remember whether there are any relocation sections. */
1986 relocs = true;
1987
1988 /* We use the reloc_count field as a counter if we need
1989 to copy relocs into the output file. */
1990 s->reloc_count = 0;
1991 }
1992 }
1993 else if (strcmp (name, ".got") != 0
1994 && strcmp (name, ".sdata") != 0
1995 && strcmp (name, ".sdata2") != 0)
1996 {
1997 /* It's not one of our sections, so don't allocate space. */
1998 continue;
1999 }
2000
2001 if (strip)
2002 {
2003 _bfd_strip_section_from_output (info, s);
2004 continue;
2005 }
2006
2007 /* Allocate memory for the section contents. */
2008 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
2009 if (s->contents == NULL && s->_raw_size != 0)
2010 return false;
2011 }
2012
2013 if (elf_hash_table (info)->dynamic_sections_created)
2014 {
2015 /* Add some entries to the .dynamic section. We fill in the
2016 values later, in ppc_elf_finish_dynamic_sections, but we
2017 must add the entries now so that we get the correct size for
2018 the .dynamic section. The DT_DEBUG entry is filled in by the
2019 dynamic linker and used by the debugger. */
2020 #define add_dynamic_entry(TAG, VAL) \
2021 bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
2022
2023 if (!info->shared)
2024 {
2025 if (!add_dynamic_entry (DT_DEBUG, 0))
2026 return false;
2027 }
2028
2029 if (plt)
2030 {
2031 if (!add_dynamic_entry (DT_PLTGOT, 0)
2032 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2033 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2034 || !add_dynamic_entry (DT_JMPREL, 0))
2035 return false;
2036 }
2037
2038 if (relocs)
2039 {
2040 if (!add_dynamic_entry (DT_RELA, 0)
2041 || !add_dynamic_entry (DT_RELASZ, 0)
2042 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
2043 return false;
2044 }
2045
2046 if ((info->flags & DF_TEXTREL) != 0)
2047 {
2048 if (!add_dynamic_entry (DT_TEXTREL, 0))
2049 return false;
2050 info->flags |= DF_TEXTREL;
2051 }
2052 }
2053 #undef add_dynamic_entry
2054
2055 return true;
2056 }
2057 \f
2058 /* Look through the relocs for a section during the first phase, and
2059 allocate space in the global offset table or procedure linkage
2060 table. */
2061
2062 static boolean
2063 ppc_elf_check_relocs (abfd, info, sec, relocs)
2064 bfd *abfd;
2065 struct bfd_link_info *info;
2066 asection *sec;
2067 const Elf_Internal_Rela *relocs;
2068 {
2069 bfd *dynobj;
2070 Elf_Internal_Shdr *symtab_hdr;
2071 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
2072 const Elf_Internal_Rela *rel;
2073 const Elf_Internal_Rela *rel_end;
2074 bfd_signed_vma *local_got_refcounts;
2075 elf_linker_section_t *sdata;
2076 elf_linker_section_t *sdata2;
2077 asection *sreloc;
2078 asection *sgot = NULL;
2079 asection *srelgot = NULL;
2080
2081 if (info->relocateable)
2082 return true;
2083
2084 #ifdef DEBUG
2085 fprintf (stderr, "ppc_elf_check_relocs called for section %s in %s\n",
2086 bfd_get_section_name (abfd, sec),
2087 bfd_archive_filename (abfd));
2088 #endif
2089
2090 /* Create the linker generated sections all the time so that the
2091 special symbols are created. */
2092
2093 if ((sdata = elf_linker_section (abfd, LINKER_SECTION_SDATA)) == NULL)
2094 {
2095 sdata = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA);
2096 if (!sdata)
2097 return false;
2098 }
2099
2100 if ((sdata2 = elf_linker_section (abfd, LINKER_SECTION_SDATA2)) == NULL)
2101 {
2102 sdata2 = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA2);
2103 if (!sdata2)
2104 return false;
2105 }
2106
2107 dynobj = elf_hash_table (info)->dynobj;
2108 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2109 local_got_refcounts = elf_local_got_refcounts (abfd);
2110
2111 sym_hashes = elf_sym_hashes (abfd);
2112 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof (Elf32_External_Sym);
2113 if (!elf_bad_symtab (abfd))
2114 sym_hashes_end -= symtab_hdr->sh_info;
2115
2116 sreloc = NULL;
2117
2118 rel_end = relocs + sec->reloc_count;
2119 for (rel = relocs; rel < rel_end; rel++)
2120 {
2121 unsigned long r_symndx;
2122 struct elf_link_hash_entry *h;
2123
2124 r_symndx = ELF32_R_SYM (rel->r_info);
2125 if (r_symndx < symtab_hdr->sh_info)
2126 h = NULL;
2127 else
2128 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2129
2130 /* If a relocation refers to _GLOBAL_OFFSET_TABLE_, create the .got.
2131 This shows up in particular in an R_PPC_ADDR32 in the eabi
2132 startup code. */
2133 if (h && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
2134 {
2135 if (sgot == NULL)
2136 {
2137 if (dynobj == NULL)
2138 elf_hash_table (info)->dynobj = dynobj = abfd;
2139 if (! _bfd_elf_create_got_section (dynobj, info))
2140 return false;
2141 sgot = bfd_get_section_by_name (dynobj, ".got");
2142 BFD_ASSERT (sgot != NULL);
2143 }
2144 }
2145
2146 switch (ELF32_R_TYPE (rel->r_info))
2147 {
2148 /* GOT16 relocations */
2149 case R_PPC_GOT16:
2150 case R_PPC_GOT16_LO:
2151 case R_PPC_GOT16_HI:
2152 case R_PPC_GOT16_HA:
2153 /* This symbol requires a global offset table entry. */
2154
2155 if (sgot == NULL)
2156 {
2157 if (dynobj == NULL)
2158 elf_hash_table (info)->dynobj = dynobj = abfd;
2159 if (! _bfd_elf_create_got_section (dynobj, info))
2160 return false;
2161 sgot = bfd_get_section_by_name (dynobj, ".got");
2162 BFD_ASSERT (sgot != NULL);
2163 }
2164
2165 if (srelgot == NULL
2166 && (h != NULL || info->shared))
2167 {
2168 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2169 if (srelgot == NULL)
2170 {
2171 srelgot = bfd_make_section (dynobj, ".rela.got");
2172 if (srelgot == NULL
2173 || ! bfd_set_section_flags (dynobj, srelgot,
2174 (SEC_ALLOC
2175 | SEC_LOAD
2176 | SEC_HAS_CONTENTS
2177 | SEC_IN_MEMORY
2178 | SEC_LINKER_CREATED
2179 | SEC_READONLY))
2180 || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2181 return false;
2182 }
2183 }
2184
2185 if (h != NULL)
2186 {
2187 if (h->got.refcount == -1)
2188 {
2189 /* Make sure this symbol is output as a dynamic symbol. */
2190 if (h->dynindx == -1)
2191 if (!bfd_elf32_link_record_dynamic_symbol (info, h))
2192 return false;
2193
2194 /* Allocate space in the .got. */
2195 sgot->_raw_size += 4;
2196 /* Allocate relocation space. */
2197 srelgot->_raw_size += sizeof (Elf32_External_Rela);
2198
2199 h->got.refcount = 1;
2200 }
2201 else
2202 h->got.refcount++;
2203 }
2204 else
2205 {
2206 /* This is a global offset table entry for a local symbol. */
2207 if (local_got_refcounts == NULL)
2208 {
2209 bfd_size_type size;
2210
2211 size = symtab_hdr->sh_info;
2212 size *= sizeof (bfd_signed_vma);
2213 local_got_refcounts
2214 = (bfd_signed_vma *) bfd_alloc (abfd, size);
2215 if (local_got_refcounts == NULL)
2216 return false;
2217 elf_local_got_refcounts (abfd) = local_got_refcounts;
2218 memset (local_got_refcounts, -1, (size_t) size);
2219 }
2220 if (local_got_refcounts[r_symndx] == -1)
2221 {
2222 sgot->_raw_size += 4;
2223
2224 /* If we are generating a shared object, we need to
2225 output a R_PPC_RELATIVE reloc so that the
2226 dynamic linker can adjust this GOT entry. */
2227 if (info->shared)
2228 srelgot->_raw_size += sizeof (Elf32_External_Rela);
2229
2230 local_got_refcounts[r_symndx] = 1;
2231 }
2232 else
2233 local_got_refcounts[r_symndx]++;
2234 }
2235 break;
2236
2237 /* Indirect .sdata relocation */
2238 case R_PPC_EMB_SDAI16:
2239 if (info->shared)
2240 {
2241 ((*_bfd_error_handler)
2242 (_("%s: relocation %s cannot be used when making a shared object"),
2243 bfd_archive_filename (abfd), "R_PPC_EMB_SDAI16"));
2244 return false;
2245 }
2246
2247 if (srelgot == NULL && (h != NULL || info->shared))
2248 {
2249 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2250 if (srelgot == NULL)
2251 {
2252 srelgot = bfd_make_section (dynobj, ".rela.got");
2253 if (srelgot == NULL
2254 || ! bfd_set_section_flags (dynobj, srelgot,
2255 (SEC_ALLOC
2256 | SEC_LOAD
2257 | SEC_HAS_CONTENTS
2258 | SEC_IN_MEMORY
2259 | SEC_LINKER_CREATED
2260 | SEC_READONLY))
2261 || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2262 return false;
2263 }
2264 }
2265
2266 if (!bfd_elf32_create_pointer_linker_section (abfd, info, sdata, h, rel))
2267 return false;
2268
2269 break;
2270
2271 /* Indirect .sdata2 relocation */
2272 case R_PPC_EMB_SDA2I16:
2273 if (info->shared)
2274 {
2275 ((*_bfd_error_handler)
2276 (_("%s: relocation %s cannot be used when making a shared object"),
2277 bfd_archive_filename (abfd), "R_PPC_EMB_SDA2I16"));
2278 return false;
2279 }
2280
2281 if (srelgot == NULL && (h != NULL || info->shared))
2282 {
2283 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
2284 if (srelgot == NULL)
2285 {
2286 srelgot = bfd_make_section (dynobj, ".rela.got");
2287 if (srelgot == NULL
2288 || ! bfd_set_section_flags (dynobj, srelgot,
2289 (SEC_ALLOC
2290 | SEC_LOAD
2291 | SEC_HAS_CONTENTS
2292 | SEC_IN_MEMORY
2293 | SEC_LINKER_CREATED
2294 | SEC_READONLY))
2295 || ! bfd_set_section_alignment (dynobj, srelgot, 2))
2296 return false;
2297 }
2298 }
2299
2300 if (!bfd_elf32_create_pointer_linker_section (abfd, info, sdata2, h, rel))
2301 return false;
2302
2303 break;
2304
2305 case R_PPC_SDAREL16:
2306 case R_PPC_EMB_SDA2REL:
2307 case R_PPC_EMB_SDA21:
2308 if (info->shared)
2309 {
2310 ((*_bfd_error_handler)
2311 (_("%s: relocation %s cannot be used when making a shared object"),
2312 bfd_archive_filename (abfd),
2313 ppc_elf_howto_table[(int) ELF32_R_TYPE (rel->r_info)]->name));
2314 return false;
2315 }
2316 break;
2317
2318 case R_PPC_PLT32:
2319 case R_PPC_PLTREL24:
2320 case R_PPC_PLT16_LO:
2321 case R_PPC_PLT16_HI:
2322 case R_PPC_PLT16_HA:
2323 #ifdef DEBUG
2324 fprintf (stderr, "Reloc requires a PLT entry\n");
2325 #endif
2326 /* This symbol requires a procedure linkage table entry. We
2327 actually build the entry in adjust_dynamic_symbol,
2328 because this might be a case of linking PIC code without
2329 linking in any dynamic objects, in which case we don't
2330 need to generate a procedure linkage table after all. */
2331
2332 if (h == NULL)
2333 {
2334 /* It does not make sense to have a procedure linkage
2335 table entry for a local symbol. */
2336 bfd_set_error (bfd_error_bad_value);
2337 return false;
2338 }
2339
2340 /* Make sure this symbol is output as a dynamic symbol. */
2341 if (h->dynindx == -1)
2342 {
2343 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
2344 return false;
2345 }
2346 if (h->plt.refcount == -1)
2347 {
2348 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2349 h->plt.refcount = 1;
2350 }
2351 else
2352 h->plt.refcount++;
2353 break;
2354
2355 /* The following relocations don't need to propagate the
2356 relocation if linking a shared object since they are
2357 section relative. */
2358 case R_PPC_SECTOFF:
2359 case R_PPC_SECTOFF_LO:
2360 case R_PPC_SECTOFF_HI:
2361 case R_PPC_SECTOFF_HA:
2362 break;
2363
2364 /* This refers only to functions defined in the shared library */
2365 case R_PPC_LOCAL24PC:
2366 break;
2367
2368 /* This relocation describes the C++ object vtable hierarchy.
2369 Reconstruct it for later use during GC. */
2370 case R_PPC_GNU_VTINHERIT:
2371 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2372 return false;
2373 break;
2374
2375 /* This relocation describes which C++ vtable entries are actually
2376 used. Record for later use during GC. */
2377 case R_PPC_GNU_VTENTRY:
2378 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2379 return false;
2380 break;
2381
2382 /* When creating a shared object, we must copy these
2383 relocs into the output file. We create a reloc
2384 section in dynobj and make room for the reloc. */
2385 case R_PPC_REL24:
2386 case R_PPC_REL14:
2387 case R_PPC_REL14_BRTAKEN:
2388 case R_PPC_REL14_BRNTAKEN:
2389 case R_PPC_REL32:
2390 if (h == NULL
2391 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
2392 || SYMBOL_REFERENCES_LOCAL (info, h))
2393 break;
2394 /* fall through */
2395
2396 default:
2397 if (info->shared)
2398 {
2399 #ifdef DEBUG
2400 fprintf (stderr, "ppc_elf_check_relocs need to create relocation for %s\n",
2401 (h && h->root.root.string) ? h->root.root.string : "<unknown>");
2402 #endif
2403 if (sreloc == NULL)
2404 {
2405 const char *name;
2406
2407 name = (bfd_elf_string_from_elf_section
2408 (abfd,
2409 elf_elfheader (abfd)->e_shstrndx,
2410 elf_section_data (sec)->rel_hdr.sh_name));
2411 if (name == NULL)
2412 return false;
2413
2414 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
2415 && strcmp (bfd_get_section_name (abfd, sec),
2416 name + 5) == 0);
2417
2418 sreloc = bfd_get_section_by_name (dynobj, name);
2419 if (sreloc == NULL)
2420 {
2421 flagword flags;
2422
2423 sreloc = bfd_make_section (dynobj, name);
2424 flags = (SEC_HAS_CONTENTS | SEC_READONLY
2425 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2426 if ((sec->flags & SEC_ALLOC) != 0)
2427 flags |= SEC_ALLOC | SEC_LOAD;
2428 if (sreloc == NULL
2429 || ! bfd_set_section_flags (dynobj, sreloc, flags)
2430 || ! bfd_set_section_alignment (dynobj, sreloc, 2))
2431 return false;
2432 }
2433 if (sec->flags & SEC_READONLY)
2434 info->flags |= DF_TEXTREL;
2435 }
2436
2437 sreloc->_raw_size += sizeof (Elf32_External_Rela);
2438
2439 /* FIXME: We should here do what the m68k and i386
2440 backends do: if the reloc is pc-relative, record it
2441 in case it turns out that the reloc is unnecessary
2442 because the symbol is forced local by versioning or
2443 we are linking with -Bdynamic. Fortunately this
2444 case is not frequent. */
2445 }
2446
2447 break;
2448 }
2449 }
2450
2451 return true;
2452 }
2453
2454 /* Return the section that should be marked against GC for a given
2455 relocation. */
2456
2457 static asection *
2458 ppc_elf_gc_mark_hook (abfd, info, rel, h, sym)
2459 bfd *abfd;
2460 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2461 Elf_Internal_Rela *rel;
2462 struct elf_link_hash_entry *h;
2463 Elf_Internal_Sym *sym;
2464 {
2465 if (h != NULL)
2466 {
2467 switch (ELF32_R_TYPE (rel->r_info))
2468 {
2469 case R_PPC_GNU_VTINHERIT:
2470 case R_PPC_GNU_VTENTRY:
2471 break;
2472
2473 default:
2474 switch (h->root.type)
2475 {
2476 case bfd_link_hash_defined:
2477 case bfd_link_hash_defweak:
2478 return h->root.u.def.section;
2479
2480 case bfd_link_hash_common:
2481 return h->root.u.c.p->section;
2482
2483 default:
2484 break;
2485 }
2486 }
2487 }
2488 else
2489 {
2490 if (!(elf_bad_symtab (abfd)
2491 && ELF_ST_BIND (sym->st_info) != STB_LOCAL)
2492 && ! ((sym->st_shndx <= 0 || sym->st_shndx >= SHN_LORESERVE)
2493 && sym->st_shndx != SHN_COMMON))
2494 {
2495 return bfd_section_from_elf_index (abfd, sym->st_shndx);
2496 }
2497 }
2498
2499 return NULL;
2500 }
2501
2502 /* Update the got entry reference counts for the section being removed. */
2503
2504 static boolean
2505 ppc_elf_gc_sweep_hook (abfd, info, sec, relocs)
2506 bfd *abfd;
2507 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2508 asection *sec;
2509 const Elf_Internal_Rela *relocs;
2510 {
2511 Elf_Internal_Shdr *symtab_hdr;
2512 struct elf_link_hash_entry **sym_hashes;
2513 bfd_signed_vma *local_got_refcounts;
2514 const Elf_Internal_Rela *rel, *relend;
2515 unsigned long r_symndx;
2516 struct elf_link_hash_entry *h;
2517
2518 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2519 sym_hashes = elf_sym_hashes (abfd);
2520 local_got_refcounts = elf_local_got_refcounts (abfd);
2521
2522 relend = relocs + sec->reloc_count;
2523 for (rel = relocs; rel < relend; rel++)
2524 switch (ELF32_R_TYPE (rel->r_info))
2525 {
2526 case R_PPC_GOT16:
2527 case R_PPC_GOT16_LO:
2528 case R_PPC_GOT16_HI:
2529 case R_PPC_GOT16_HA:
2530 r_symndx = ELF32_R_SYM (rel->r_info);
2531 if (r_symndx >= symtab_hdr->sh_info)
2532 {
2533 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2534 if (h->got.refcount > 0)
2535 h->got.refcount--;
2536 }
2537 else if (local_got_refcounts != NULL)
2538 {
2539 if (local_got_refcounts[r_symndx] > 0)
2540 local_got_refcounts[r_symndx]--;
2541 }
2542 break;
2543
2544 case R_PPC_PLT32:
2545 case R_PPC_PLTREL24:
2546 case R_PPC_PLT16_LO:
2547 case R_PPC_PLT16_HI:
2548 case R_PPC_PLT16_HA:
2549 r_symndx = ELF32_R_SYM (rel->r_info);
2550 if (r_symndx >= symtab_hdr->sh_info)
2551 {
2552 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2553 if (h->plt.refcount > 0)
2554 h->plt.refcount--;
2555 }
2556 break;
2557
2558 default:
2559 break;
2560 }
2561
2562 return true;
2563 }
2564 \f
2565 /* Hook called by the linker routine which adds symbols from an object
2566 file. We use it to put .comm items in .sbss, and not .bss. */
2567
2568 static boolean
2569 ppc_elf_add_symbol_hook (abfd, info, sym, namep, flagsp, secp, valp)
2570 bfd *abfd;
2571 struct bfd_link_info *info;
2572 const Elf_Internal_Sym *sym;
2573 const char **namep ATTRIBUTE_UNUSED;
2574 flagword *flagsp ATTRIBUTE_UNUSED;
2575 asection **secp;
2576 bfd_vma *valp;
2577 {
2578 if (sym->st_shndx == SHN_COMMON
2579 && !info->relocateable
2580 && sym->st_size <= elf_gp_size (abfd))
2581 {
2582 /* Common symbols less than or equal to -G nn bytes are automatically
2583 put into .sdata. */
2584 elf_linker_section_t *sdata
2585 = ppc_elf_create_linker_section (abfd, info, LINKER_SECTION_SDATA);
2586
2587 if (!sdata->bss_section)
2588 {
2589 bfd_size_type amt;
2590
2591 /* We don't go through bfd_make_section, because we don't
2592 want to attach this common section to DYNOBJ. The linker
2593 will move the symbols to the appropriate output section
2594 when it defines common symbols. */
2595 amt = sizeof (asection);
2596 sdata->bss_section = (asection *) bfd_zalloc (abfd, amt);
2597 if (sdata->bss_section == NULL)
2598 return false;
2599 sdata->bss_section->name = sdata->bss_name;
2600 sdata->bss_section->flags = SEC_IS_COMMON;
2601 sdata->bss_section->output_section = sdata->bss_section;
2602 amt = sizeof (asymbol);
2603 sdata->bss_section->symbol = (asymbol *) bfd_zalloc (abfd, amt);
2604 amt = sizeof (asymbol *);
2605 sdata->bss_section->symbol_ptr_ptr =
2606 (asymbol **) bfd_zalloc (abfd, amt);
2607 if (sdata->bss_section->symbol == NULL
2608 || sdata->bss_section->symbol_ptr_ptr == NULL)
2609 return false;
2610 sdata->bss_section->symbol->name = sdata->bss_name;
2611 sdata->bss_section->symbol->flags = BSF_SECTION_SYM;
2612 sdata->bss_section->symbol->section = sdata->bss_section;
2613 *sdata->bss_section->symbol_ptr_ptr = sdata->bss_section->symbol;
2614 }
2615
2616 *secp = sdata->bss_section;
2617 *valp = sym->st_size;
2618 }
2619
2620 return true;
2621 }
2622 \f
2623 /* Finish up dynamic symbol handling. We set the contents of various
2624 dynamic sections here. */
2625
2626 static boolean
2627 ppc_elf_finish_dynamic_symbol (output_bfd, info, h, sym)
2628 bfd *output_bfd;
2629 struct bfd_link_info *info;
2630 struct elf_link_hash_entry *h;
2631 Elf_Internal_Sym *sym;
2632 {
2633 bfd *dynobj;
2634
2635 #ifdef DEBUG
2636 fprintf (stderr, "ppc_elf_finish_dynamic_symbol called for %s",
2637 h->root.root.string);
2638 #endif
2639
2640 dynobj = elf_hash_table (info)->dynobj;
2641 BFD_ASSERT (dynobj != NULL);
2642
2643 if (h->plt.offset != (bfd_vma) -1)
2644 {
2645 asection *splt;
2646 asection *srela;
2647 Elf_Internal_Rela rela;
2648 bfd_vma reloc_index;
2649
2650 #ifdef DEBUG
2651 fprintf (stderr, ", plt_offset = %d", h->plt.offset);
2652 #endif
2653
2654 /* This symbol has an entry in the procedure linkage table. Set
2655 it up. */
2656
2657 BFD_ASSERT (h->dynindx != -1);
2658
2659 splt = bfd_get_section_by_name (dynobj, ".plt");
2660 srela = bfd_get_section_by_name (dynobj, ".rela.plt");
2661 BFD_ASSERT (splt != NULL && srela != NULL);
2662
2663 /* We don't need to fill in the .plt. The ppc dynamic linker
2664 will fill it in. */
2665
2666 /* Fill in the entry in the .rela.plt section. */
2667 rela.r_offset = (splt->output_section->vma
2668 + splt->output_offset
2669 + h->plt.offset);
2670 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_JMP_SLOT);
2671 rela.r_addend = 0;
2672
2673 reloc_index = (h->plt.offset - PLT_INITIAL_ENTRY_SIZE) / PLT_SLOT_SIZE;
2674 if (reloc_index > PLT_NUM_SINGLE_ENTRIES)
2675 reloc_index -= (reloc_index - PLT_NUM_SINGLE_ENTRIES) / 2;
2676 bfd_elf32_swap_reloca_out (output_bfd, &rela,
2677 ((Elf32_External_Rela *) srela->contents
2678 + reloc_index));
2679
2680 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
2681 {
2682 /* Mark the symbol as undefined, rather than as defined in
2683 the .plt section. Leave the value alone. */
2684 sym->st_shndx = SHN_UNDEF;
2685 /* If the symbol is weak, we do need to clear the value.
2686 Otherwise, the PLT entry would provide a definition for
2687 the symbol even if the symbol wasn't defined anywhere,
2688 and so the symbol would never be NULL. */
2689 if ((h->elf_link_hash_flags & ELF_LINK_HASH_REF_REGULAR_NONWEAK)
2690 == 0)
2691 sym->st_value = 0;
2692 }
2693 }
2694
2695 if (h->got.offset != (bfd_vma) -1)
2696 {
2697 asection *sgot;
2698 asection *srela;
2699 Elf_Internal_Rela rela;
2700
2701 /* This symbol has an entry in the global offset table. Set it
2702 up. */
2703
2704 sgot = bfd_get_section_by_name (dynobj, ".got");
2705 srela = bfd_get_section_by_name (dynobj, ".rela.got");
2706 BFD_ASSERT (sgot != NULL && srela != NULL);
2707
2708 rela.r_offset = (sgot->output_section->vma
2709 + sgot->output_offset
2710 + (h->got.offset &~ (bfd_vma) 1));
2711
2712 /* If this is a -Bsymbolic link, and the symbol is defined
2713 locally, we just want to emit a RELATIVE reloc. The entry in
2714 the global offset table will already have been initialized in
2715 the relocate_section function. */
2716 if (info->shared
2717 && SYMBOL_REFERENCES_LOCAL (info, h))
2718 {
2719 rela.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
2720 rela.r_addend = (h->root.u.def.value
2721 + h->root.u.def.section->output_section->vma
2722 + h->root.u.def.section->output_offset);
2723 }
2724 else
2725 {
2726 BFD_ASSERT ((h->got.offset & 1) == 0);
2727 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
2728 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_GLOB_DAT);
2729 rela.r_addend = 0;
2730 }
2731
2732 bfd_elf32_swap_reloca_out (output_bfd, &rela,
2733 ((Elf32_External_Rela *) srela->contents
2734 + srela->reloc_count));
2735 ++srela->reloc_count;
2736 }
2737
2738 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
2739 {
2740 asection *s;
2741 Elf_Internal_Rela rela;
2742
2743 /* This symbols needs a copy reloc. Set it up. */
2744
2745 #ifdef DEBUG
2746 fprintf (stderr, ", copy");
2747 #endif
2748
2749 BFD_ASSERT (h->dynindx != -1);
2750
2751 if (h->size <= elf_gp_size (dynobj))
2752 s = bfd_get_section_by_name (h->root.u.def.section->owner,
2753 ".rela.sbss");
2754 else
2755 s = bfd_get_section_by_name (h->root.u.def.section->owner,
2756 ".rela.bss");
2757 BFD_ASSERT (s != NULL);
2758
2759 rela.r_offset = (h->root.u.def.value
2760 + h->root.u.def.section->output_section->vma
2761 + h->root.u.def.section->output_offset);
2762 rela.r_info = ELF32_R_INFO (h->dynindx, R_PPC_COPY);
2763 rela.r_addend = 0;
2764 bfd_elf32_swap_reloca_out (output_bfd, &rela,
2765 ((Elf32_External_Rela *) s->contents
2766 + s->reloc_count));
2767 ++s->reloc_count;
2768 }
2769
2770 #ifdef DEBUG
2771 fprintf (stderr, "\n");
2772 #endif
2773
2774 /* Mark some specially defined symbols as absolute. */
2775 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
2776 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
2777 || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
2778 sym->st_shndx = SHN_ABS;
2779
2780 return true;
2781 }
2782 \f
2783 /* Finish up the dynamic sections. */
2784
2785 static boolean
2786 ppc_elf_finish_dynamic_sections (output_bfd, info)
2787 bfd *output_bfd;
2788 struct bfd_link_info *info;
2789 {
2790 asection *sdyn;
2791 bfd *dynobj = elf_hash_table (info)->dynobj;
2792 asection *sgot = bfd_get_section_by_name (dynobj, ".got");
2793
2794 #ifdef DEBUG
2795 fprintf (stderr, "ppc_elf_finish_dynamic_sections called\n");
2796 #endif
2797
2798 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
2799
2800 if (elf_hash_table (info)->dynamic_sections_created)
2801 {
2802 asection *splt;
2803 Elf32_External_Dyn *dyncon, *dynconend;
2804
2805 splt = bfd_get_section_by_name (dynobj, ".plt");
2806 BFD_ASSERT (splt != NULL && sdyn != NULL);
2807
2808 dyncon = (Elf32_External_Dyn *) sdyn->contents;
2809 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
2810 for (; dyncon < dynconend; dyncon++)
2811 {
2812 Elf_Internal_Dyn dyn;
2813 const char *name;
2814 boolean size;
2815
2816 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
2817
2818 switch (dyn.d_tag)
2819 {
2820 case DT_PLTGOT: name = ".plt"; size = false; break;
2821 case DT_PLTRELSZ: name = ".rela.plt"; size = true; break;
2822 case DT_JMPREL: name = ".rela.plt"; size = false; break;
2823 default: name = NULL; size = false; break;
2824 }
2825
2826 if (name != NULL)
2827 {
2828 asection *s;
2829
2830 s = bfd_get_section_by_name (output_bfd, name);
2831 if (s == NULL)
2832 dyn.d_un.d_val = 0;
2833 else
2834 {
2835 if (! size)
2836 dyn.d_un.d_ptr = s->vma;
2837 else
2838 {
2839 if (s->_cooked_size != 0)
2840 dyn.d_un.d_val = s->_cooked_size;
2841 else
2842 dyn.d_un.d_val = s->_raw_size;
2843 }
2844 }
2845 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
2846 }
2847 }
2848 }
2849
2850 /* Add a blrl instruction at _GLOBAL_OFFSET_TABLE_-4 so that a function can
2851 easily find the address of the _GLOBAL_OFFSET_TABLE_. */
2852 if (sgot)
2853 {
2854 unsigned char *contents = sgot->contents;
2855 bfd_put_32 (output_bfd, (bfd_vma) 0x4e800021 /* blrl */, contents);
2856
2857 if (sdyn == NULL)
2858 bfd_put_32 (output_bfd, (bfd_vma) 0, contents+4);
2859 else
2860 bfd_put_32 (output_bfd,
2861 sdyn->output_section->vma + sdyn->output_offset,
2862 contents+4);
2863
2864 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
2865 }
2866
2867 return true;
2868 }
2869 \f
2870 /* The RELOCATE_SECTION function is called by the ELF backend linker
2871 to handle the relocations for a section.
2872
2873 The relocs are always passed as Rela structures; if the section
2874 actually uses Rel structures, the r_addend field will always be
2875 zero.
2876
2877 This function is responsible for adjust the section contents as
2878 necessary, and (if using Rela relocs and generating a
2879 relocateable output file) adjusting the reloc addend as
2880 necessary.
2881
2882 This function does not have to worry about setting the reloc
2883 address or the reloc symbol index.
2884
2885 LOCAL_SYMS is a pointer to the swapped in local symbols.
2886
2887 LOCAL_SECTIONS is an array giving the section in the input file
2888 corresponding to the st_shndx field of each local symbol.
2889
2890 The global hash table entry for the global symbols can be found
2891 via elf_sym_hashes (input_bfd).
2892
2893 When generating relocateable output, this function must handle
2894 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
2895 going to be the section symbol corresponding to the output
2896 section, which means that the addend must be adjusted
2897 accordingly. */
2898
2899 static boolean
2900 ppc_elf_relocate_section (output_bfd, info, input_bfd, input_section,
2901 contents, relocs, local_syms, local_sections)
2902 bfd *output_bfd;
2903 struct bfd_link_info *info;
2904 bfd *input_bfd;
2905 asection *input_section;
2906 bfd_byte *contents;
2907 Elf_Internal_Rela *relocs;
2908 Elf_Internal_Sym *local_syms;
2909 asection **local_sections;
2910 {
2911 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
2912 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
2913 bfd *dynobj = elf_hash_table (info)->dynobj;
2914 elf_linker_section_t *sdata = (dynobj) ? elf_linker_section (dynobj, LINKER_SECTION_SDATA) : NULL;
2915 elf_linker_section_t *sdata2 = (dynobj) ? elf_linker_section (dynobj, LINKER_SECTION_SDATA2) : NULL;
2916 Elf_Internal_Rela *rel = relocs;
2917 Elf_Internal_Rela *relend = relocs + input_section->reloc_count;
2918 asection *sreloc = NULL;
2919 asection *splt;
2920 asection *sgot;
2921 bfd_vma *local_got_offsets;
2922 boolean ret = true;
2923 long insn;
2924
2925 #ifdef DEBUG
2926 fprintf (stderr, "ppc_elf_relocate_section called for %s section %s, %ld relocations%s\n",
2927 bfd_archive_filename (input_bfd),
2928 bfd_section_name(input_bfd, input_section),
2929 (long) input_section->reloc_count,
2930 (info->relocateable) ? " (relocatable)" : "");
2931 #endif
2932
2933 if (!ppc_elf_howto_table[R_PPC_ADDR32])
2934 /* Initialize howto table if needed. */
2935 ppc_elf_howto_init ();
2936
2937 local_got_offsets = elf_local_got_offsets (input_bfd);
2938
2939 splt = sgot = NULL;
2940 if (dynobj != NULL)
2941 {
2942 splt = bfd_get_section_by_name (dynobj, ".plt");
2943 sgot = bfd_get_section_by_name (dynobj, ".got");
2944 }
2945
2946 for (; rel < relend; rel++)
2947 {
2948 enum elf_ppc_reloc_type r_type = (enum elf_ppc_reloc_type)ELF32_R_TYPE (rel->r_info);
2949 bfd_vma offset = rel->r_offset;
2950 bfd_vma addend = rel->r_addend;
2951 bfd_reloc_status_type r = bfd_reloc_other;
2952 Elf_Internal_Sym *sym = (Elf_Internal_Sym *) 0;
2953 asection *sec = (asection *) 0;
2954 struct elf_link_hash_entry *h = (struct elf_link_hash_entry *) 0;
2955 const char *sym_name = (const char *) 0;
2956 reloc_howto_type *howto;
2957 unsigned long r_symndx;
2958 bfd_vma relocation;
2959 int will_become_local;
2960
2961 /* Unknown relocation handling */
2962 if ((unsigned) r_type >= (unsigned) R_PPC_max
2963 || !ppc_elf_howto_table[(int) r_type])
2964 {
2965 (*_bfd_error_handler) (_("%s: unknown relocation type %d"),
2966 bfd_archive_filename (input_bfd),
2967 (int) r_type);
2968
2969 bfd_set_error (bfd_error_bad_value);
2970 ret = false;
2971 continue;
2972 }
2973
2974 howto = ppc_elf_howto_table[(int) r_type];
2975 r_symndx = ELF32_R_SYM (rel->r_info);
2976
2977 if (info->relocateable)
2978 {
2979 /* This is a relocateable link. We don't have to change
2980 anything, unless the reloc is against a section symbol,
2981 in which case we have to adjust according to where the
2982 section symbol winds up in the output section. */
2983 if (r_symndx < symtab_hdr->sh_info)
2984 {
2985 sym = local_syms + r_symndx;
2986 if ((unsigned) ELF_ST_TYPE (sym->st_info) == STT_SECTION)
2987 {
2988 sec = local_sections[r_symndx];
2989 addend = rel->r_addend += sec->output_offset + sym->st_value;
2990 }
2991 }
2992
2993 #ifdef DEBUG
2994 fprintf (stderr, "\ttype = %s (%d), symbol index = %ld, offset = %ld, addend = %ld\n",
2995 howto->name,
2996 (int) r_type,
2997 r_symndx,
2998 (long) offset,
2999 (long) addend);
3000 #endif
3001 continue;
3002 }
3003
3004 /* This is a final link. */
3005 if (r_symndx < symtab_hdr->sh_info)
3006 {
3007 sym = local_syms + r_symndx;
3008 sec = local_sections[r_symndx];
3009 sym_name = "<local symbol>";
3010
3011 relocation = (sec->output_section->vma
3012 + sec->output_offset
3013 + sym->st_value);
3014 /* Relocs to local symbols are always resolved. */
3015 will_become_local = 1;
3016 }
3017 else
3018 {
3019 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3020 while (h->root.type == bfd_link_hash_indirect
3021 || h->root.type == bfd_link_hash_warning)
3022 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3023 sym_name = h->root.root.string;
3024
3025 /* Can this relocation be resolved immediately? */
3026 will_become_local = SYMBOL_REFERENCES_LOCAL (info, h);
3027
3028 if (h->root.type == bfd_link_hash_defined
3029 || h->root.type == bfd_link_hash_defweak)
3030 {
3031 sec = h->root.u.def.section;
3032 if (((r_type == R_PPC_PLT32
3033 || r_type == R_PPC_PLTREL24)
3034 && splt != NULL
3035 && h->plt.offset != (bfd_vma) -1)
3036 || (r_type == R_PPC_LOCAL24PC
3037 && sec->output_section == NULL)
3038 || ((r_type == R_PPC_GOT16
3039 || r_type == R_PPC_GOT16_LO
3040 || r_type == R_PPC_GOT16_HI
3041 || r_type == R_PPC_GOT16_HA)
3042 && elf_hash_table (info)->dynamic_sections_created
3043 && (! info->shared || ! will_become_local))
3044 || (info->shared
3045 && ! will_become_local
3046 && ((input_section->flags & SEC_ALLOC) != 0
3047 /* Testing SEC_DEBUGGING here may be wrong.
3048 It's here to avoid a crash when
3049 generating a shared library with DWARF
3050 debugging information. */
3051 || ((input_section->flags & SEC_DEBUGGING) != 0
3052 && (h->elf_link_hash_flags
3053 & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
3054 && (r_type == R_PPC_ADDR32
3055 || r_type == R_PPC_ADDR24
3056 || r_type == R_PPC_ADDR16
3057 || r_type == R_PPC_ADDR16_LO
3058 || r_type == R_PPC_ADDR16_HI
3059 || r_type == R_PPC_ADDR16_HA
3060 || r_type == R_PPC_ADDR14
3061 || r_type == R_PPC_ADDR14_BRTAKEN
3062 || r_type == R_PPC_ADDR14_BRNTAKEN
3063 || r_type == R_PPC_COPY
3064 || r_type == R_PPC_GLOB_DAT
3065 || r_type == R_PPC_JMP_SLOT
3066 || r_type == R_PPC_UADDR32
3067 || r_type == R_PPC_UADDR16
3068 || r_type == R_PPC_SDAREL16
3069 || r_type == R_PPC_EMB_NADDR32
3070 || r_type == R_PPC_EMB_NADDR16
3071 || r_type == R_PPC_EMB_NADDR16_LO
3072 || r_type == R_PPC_EMB_NADDR16_HI
3073 || r_type == R_PPC_EMB_NADDR16_HA
3074 || r_type == R_PPC_EMB_SDAI16
3075 || r_type == R_PPC_EMB_SDA2I16
3076 || r_type == R_PPC_EMB_SDA2REL
3077 || r_type == R_PPC_EMB_SDA21
3078 || r_type == R_PPC_EMB_MRKREF
3079 || r_type == R_PPC_EMB_BIT_FLD
3080 || r_type == R_PPC_EMB_RELSDA
3081 || ((r_type == R_PPC_REL24
3082 || r_type == R_PPC_REL32
3083 || r_type == R_PPC_REL14
3084 || r_type == R_PPC_REL14_BRTAKEN
3085 || r_type == R_PPC_REL14_BRNTAKEN
3086 || r_type == R_PPC_RELATIVE)
3087 && strcmp (h->root.root.string,
3088 "_GLOBAL_OFFSET_TABLE_") != 0))))
3089 {
3090 /* In these cases, we don't need the relocation
3091 value. We check specially because in some
3092 obscure cases sec->output_section will be NULL. */
3093 relocation = 0;
3094 }
3095 else if (sec->output_section == NULL)
3096 {
3097 (*_bfd_error_handler)
3098 (_("%s: warning: unresolvable relocation against symbol `%s' from %s section"),
3099 bfd_archive_filename (input_bfd), h->root.root.string,
3100 bfd_get_section_name (input_bfd, input_section));
3101 relocation = 0;
3102 }
3103 else
3104 relocation = (h->root.u.def.value
3105 + sec->output_section->vma
3106 + sec->output_offset);
3107 }
3108 else if (h->root.type == bfd_link_hash_undefweak)
3109 relocation = 0;
3110 else if (info->shared
3111 && (!info->symbolic || info->allow_shlib_undefined)
3112 && !info->no_undefined
3113 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
3114 relocation = 0;
3115 else
3116 {
3117 if (! (*info->callbacks->undefined_symbol) (info,
3118 h->root.root.string,
3119 input_bfd,
3120 input_section,
3121 rel->r_offset,
3122 (!info->shared
3123 || info->no_undefined
3124 || ELF_ST_VISIBILITY (h->other))))
3125 return false;
3126 relocation = 0;
3127 }
3128 }
3129
3130 switch ((int) r_type)
3131 {
3132 default:
3133 (*_bfd_error_handler) (_("%s: unknown relocation type %d for symbol %s"),
3134 bfd_archive_filename (input_bfd),
3135 (int) r_type, sym_name);
3136
3137 bfd_set_error (bfd_error_bad_value);
3138 ret = false;
3139 continue;
3140
3141 /* Relocations that need no special processing. */
3142 case (int) R_PPC_LOCAL24PC:
3143 /* It makes no sense to point a local relocation
3144 at a symbol not in this object. */
3145 if (h != NULL
3146 && (h->root.type == bfd_link_hash_defined
3147 || h->root.type == bfd_link_hash_defweak)
3148 && sec->output_section == NULL)
3149 {
3150 if (! (*info->callbacks->undefined_symbol) (info,
3151 h->root.root.string,
3152 input_bfd,
3153 input_section,
3154 rel->r_offset,
3155 true))
3156 return false;
3157 continue;
3158 }
3159 break;
3160
3161 /* Relocations that may need to be propagated if this is a shared
3162 object. */
3163 case (int) R_PPC_REL24:
3164 case (int) R_PPC_REL32:
3165 case (int) R_PPC_REL14:
3166 /* If these relocations are not to a named symbol, they can be
3167 handled right here, no need to bother the dynamic linker. */
3168 if (h == NULL
3169 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
3170 || SYMBOL_REFERENCES_LOCAL (info, h))
3171 break;
3172 /* fall through */
3173
3174 /* Relocations that always need to be propagated if this is a shared
3175 object. */
3176 case (int) R_PPC_NONE:
3177 case (int) R_PPC_ADDR32:
3178 case (int) R_PPC_ADDR24:
3179 case (int) R_PPC_ADDR16:
3180 case (int) R_PPC_ADDR16_LO:
3181 case (int) R_PPC_ADDR16_HI:
3182 case (int) R_PPC_ADDR16_HA:
3183 case (int) R_PPC_ADDR14:
3184 case (int) R_PPC_UADDR32:
3185 case (int) R_PPC_UADDR16:
3186 if (info->shared)
3187 {
3188 Elf_Internal_Rela outrel;
3189 boolean skip;
3190
3191 #ifdef DEBUG
3192 fprintf (stderr, "ppc_elf_relocate_section need to create relocation for %s\n",
3193 (h && h->root.root.string) ? h->root.root.string : "<unknown>");
3194 #endif
3195
3196 /* When generating a shared object, these relocations
3197 are copied into the output file to be resolved at run
3198 time. */
3199
3200 if (sreloc == NULL)
3201 {
3202 const char *name;
3203
3204 name = (bfd_elf_string_from_elf_section
3205 (input_bfd,
3206 elf_elfheader (input_bfd)->e_shstrndx,
3207 elf_section_data (input_section)->rel_hdr.sh_name));
3208 if (name == NULL)
3209 return false;
3210
3211 BFD_ASSERT (strncmp (name, ".rela", 5) == 0
3212 && strcmp (bfd_get_section_name (input_bfd,
3213 input_section),
3214 name + 5) == 0);
3215
3216 sreloc = bfd_get_section_by_name (dynobj, name);
3217 BFD_ASSERT (sreloc != NULL);
3218 }
3219
3220 skip = false;
3221
3222 if (elf_section_data (input_section)->stab_info == NULL)
3223 outrel.r_offset = rel->r_offset;
3224 else
3225 {
3226 bfd_vma off;
3227
3228 off = (_bfd_stab_section_offset
3229 (output_bfd, &elf_hash_table (info)->stab_info,
3230 input_section,
3231 &elf_section_data (input_section)->stab_info,
3232 rel->r_offset));
3233 if (off == (bfd_vma) -1)
3234 skip = true;
3235 outrel.r_offset = off;
3236 }
3237
3238 outrel.r_offset += (input_section->output_section->vma
3239 + input_section->output_offset);
3240
3241 if (skip)
3242 memset (&outrel, 0, sizeof outrel);
3243 /* h->dynindx may be -1 if this symbol was marked to
3244 become local. */
3245 else if (! will_become_local)
3246 {
3247 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3248 outrel.r_addend = rel->r_addend;
3249 }
3250 else
3251 {
3252 if (r_type == R_PPC_ADDR32)
3253 {
3254 outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
3255 outrel.r_addend = relocation + rel->r_addend;
3256 }
3257 else
3258 {
3259 long indx;
3260
3261 if (h == NULL)
3262 sec = local_sections[r_symndx];
3263 else
3264 {
3265 BFD_ASSERT (h->root.type == bfd_link_hash_defined
3266 || (h->root.type
3267 == bfd_link_hash_defweak));
3268 sec = h->root.u.def.section;
3269 }
3270 if (sec != NULL && bfd_is_abs_section (sec))
3271 indx = 0;
3272 else if (sec == NULL || sec->owner == NULL)
3273 {
3274 bfd_set_error (bfd_error_bad_value);
3275 return false;
3276 }
3277 else
3278 {
3279 asection *osec;
3280
3281 osec = sec->output_section;
3282 indx = elf_section_data (osec)->dynindx;
3283 BFD_ASSERT (indx > 0);
3284 #ifdef DEBUG
3285 if (indx <= 0)
3286 {
3287 printf ("indx=%d section=%s flags=%08x name=%s\n",
3288 indx, osec->name, osec->flags,
3289 h->root.root.string);
3290 }
3291 #endif
3292 }
3293
3294 outrel.r_info = ELF32_R_INFO (indx, r_type);
3295 outrel.r_addend = relocation + rel->r_addend;
3296 }
3297 }
3298
3299 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
3300 (((Elf32_External_Rela *)
3301 sreloc->contents)
3302 + sreloc->reloc_count));
3303 ++sreloc->reloc_count;
3304
3305 /* This reloc will be computed at runtime, so there's no
3306 need to do anything now, unless this is a RELATIVE
3307 reloc in an unallocated section. */
3308 if (skip
3309 || (input_section->flags & SEC_ALLOC) != 0
3310 || ELF32_R_TYPE (outrel.r_info) != R_PPC_RELATIVE)
3311 continue;
3312 }
3313
3314 /* Arithmetic adjust relocations that aren't going into a
3315 shared object. */
3316 if (r_type == R_PPC_ADDR16_HA
3317 /* It's just possible that this symbol is a weak symbol
3318 that's not actually defined anywhere. In that case,
3319 'sec' would be NULL, and we should leave the symbol
3320 alone (it will be set to zero elsewhere in the link). */
3321 && sec != NULL)
3322 {
3323 addend += ((relocation + addend) & 0x8000) << 1;
3324 }
3325 break;
3326
3327 /* branch taken prediction relocations */
3328 case (int) R_PPC_ADDR14_BRTAKEN:
3329 case (int) R_PPC_REL14_BRTAKEN:
3330 insn = bfd_get_32 (output_bfd, contents + offset);
3331 if ((relocation - offset) & 0x8000)
3332 insn &= ~BRANCH_PREDICT_BIT;
3333 else
3334 insn |= BRANCH_PREDICT_BIT;
3335 bfd_put_32 (output_bfd, (bfd_vma) insn, contents + offset);
3336 break;
3337
3338 /* branch not taken predicition relocations */
3339 case (int) R_PPC_ADDR14_BRNTAKEN:
3340 case (int) R_PPC_REL14_BRNTAKEN:
3341 insn = bfd_get_32 (output_bfd, contents + offset);
3342 if ((relocation - offset) & 0x8000)
3343 insn |= BRANCH_PREDICT_BIT;
3344 else
3345 insn &= ~BRANCH_PREDICT_BIT;
3346 bfd_put_32 (output_bfd, (bfd_vma) insn, contents + offset);
3347 break;
3348
3349 /* GOT16 relocations */
3350 case (int) R_PPC_GOT16:
3351 case (int) R_PPC_GOT16_LO:
3352 case (int) R_PPC_GOT16_HI:
3353 case (int) R_PPC_GOT16_HA:
3354 /* Relocation is to the entry for this symbol in the global
3355 offset table. */
3356 BFD_ASSERT (sgot != NULL);
3357
3358 if (h != NULL)
3359 {
3360 bfd_vma off;
3361
3362 off = h->got.offset;
3363 BFD_ASSERT (off != (bfd_vma) -1);
3364
3365 if (! elf_hash_table (info)->dynamic_sections_created
3366 || (info->shared
3367 && SYMBOL_REFERENCES_LOCAL (info, h)))
3368 {
3369 /* This is actually a static link, or it is a
3370 -Bsymbolic link and the symbol is defined
3371 locally. We must initialize this entry in the
3372 global offset table. Since the offset must
3373 always be a multiple of 4, we use the least
3374 significant bit to record whether we have
3375 initialized it already.
3376
3377 When doing a dynamic link, we create a .rela.got
3378 relocation entry to initialize the value. This
3379 is done in the finish_dynamic_symbol routine. */
3380 if ((off & 1) != 0)
3381 off &= ~1;
3382 else
3383 {
3384 bfd_put_32 (output_bfd, relocation,
3385 sgot->contents + off);
3386 h->got.offset |= 1;
3387 }
3388 }
3389
3390 relocation = sgot->output_offset + off - 4;
3391 }
3392 else
3393 {
3394 bfd_vma off;
3395
3396 BFD_ASSERT (local_got_offsets != NULL
3397 && local_got_offsets[r_symndx] != (bfd_vma) -1);
3398
3399 off = local_got_offsets[r_symndx];
3400
3401 /* The offset must always be a multiple of 4. We use
3402 the least significant bit to record whether we have
3403 already processed this entry. */
3404 if ((off & 1) != 0)
3405 off &= ~1;
3406 else
3407 {
3408 bfd_put_32 (output_bfd, relocation, sgot->contents + off);
3409
3410 if (info->shared)
3411 {
3412 asection *srelgot;
3413 Elf_Internal_Rela outrel;
3414
3415 /* We need to generate a R_PPC_RELATIVE reloc
3416 for the dynamic linker. */
3417 srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
3418 BFD_ASSERT (srelgot != NULL);
3419
3420 outrel.r_offset = (sgot->output_section->vma
3421 + sgot->output_offset
3422 + off);
3423 outrel.r_info = ELF32_R_INFO (0, R_PPC_RELATIVE);
3424 outrel.r_addend = relocation;
3425 bfd_elf32_swap_reloca_out (output_bfd, &outrel,
3426 (((Elf32_External_Rela *)
3427 srelgot->contents)
3428 + srelgot->reloc_count));
3429 ++srelgot->reloc_count;
3430 }
3431
3432 local_got_offsets[r_symndx] |= 1;
3433 }
3434
3435 relocation = sgot->output_offset + off - 4;
3436 }
3437 break;
3438
3439 /* Indirect .sdata relocation */
3440 case (int) R_PPC_EMB_SDAI16:
3441 BFD_ASSERT (sdata != NULL);
3442 relocation = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd, info,
3443 sdata, h, relocation, rel,
3444 R_PPC_RELATIVE);
3445 break;
3446
3447 /* Indirect .sdata2 relocation */
3448 case (int) R_PPC_EMB_SDA2I16:
3449 BFD_ASSERT (sdata2 != NULL);
3450 relocation = bfd_elf32_finish_pointer_linker_section (output_bfd, input_bfd, info,
3451 sdata2, h, relocation, rel,
3452 R_PPC_RELATIVE);
3453 break;
3454
3455 /* Handle the TOC16 reloc. We want to use the offset within the .got
3456 section, not the actual VMA. This is appropriate when generating
3457 an embedded ELF object, for which the .got section acts like the
3458 AIX .toc section. */
3459 case (int) R_PPC_TOC16: /* phony GOT16 relocations */
3460 BFD_ASSERT (sec != (asection *) 0);
3461 BFD_ASSERT (bfd_is_und_section (sec)
3462 || strcmp (bfd_get_section_name (abfd, sec), ".got") == 0
3463 || strcmp (bfd_get_section_name (abfd, sec), ".cgot") == 0)
3464
3465 addend -= sec->output_section->vma + sec->output_offset + 0x8000;
3466 break;
3467
3468 case (int) R_PPC_PLTREL24:
3469 /* Relocation is to the entry for this symbol in the
3470 procedure linkage table. */
3471 BFD_ASSERT (h != NULL);
3472
3473 if (h->plt.offset == (bfd_vma) -1
3474 || splt == NULL)
3475 {
3476 /* We didn't make a PLT entry for this symbol. This
3477 happens when statically linking PIC code, or when
3478 using -Bsymbolic. */
3479 break;
3480 }
3481
3482 relocation = (splt->output_section->vma
3483 + splt->output_offset
3484 + h->plt.offset);
3485 break;
3486
3487 /* relocate against _SDA_BASE_ */
3488 case (int) R_PPC_SDAREL16:
3489 {
3490 const char *name;
3491
3492 BFD_ASSERT (sec != (asection *) 0);
3493 name = bfd_get_section_name (abfd, sec->output_section);
3494 if (strcmp (name, ".sdata") != 0
3495 && strcmp (name, ".sbss") != 0)
3496 {
3497 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3498 bfd_archive_filename (input_bfd),
3499 sym_name,
3500 ppc_elf_howto_table[(int) r_type]->name,
3501 name);
3502 }
3503 addend -= (sdata->sym_hash->root.u.def.value
3504 + sdata->sym_hash->root.u.def.section->output_section->vma
3505 + sdata->sym_hash->root.u.def.section->output_offset);
3506 }
3507 break;
3508
3509 /* relocate against _SDA2_BASE_ */
3510 case (int) R_PPC_EMB_SDA2REL:
3511 {
3512 const char *name;
3513
3514 BFD_ASSERT (sec != (asection *) 0);
3515 name = bfd_get_section_name (abfd, sec->output_section);
3516 if (strcmp (name, ".sdata2") != 0 && strcmp (name, ".sbss2") != 0)
3517 {
3518 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3519 bfd_archive_filename (input_bfd),
3520 sym_name,
3521 ppc_elf_howto_table[(int) r_type]->name,
3522 name);
3523
3524 bfd_set_error (bfd_error_bad_value);
3525 ret = false;
3526 continue;
3527 }
3528 addend -= (sdata2->sym_hash->root.u.def.value
3529 + sdata2->sym_hash->root.u.def.section->output_section->vma
3530 + sdata2->sym_hash->root.u.def.section->output_offset);
3531 }
3532 break;
3533
3534 /* relocate against either _SDA_BASE_, _SDA2_BASE_, or 0 */
3535 case (int) R_PPC_EMB_SDA21:
3536 case (int) R_PPC_EMB_RELSDA:
3537 {
3538 const char *name;
3539 int reg;
3540
3541 BFD_ASSERT (sec != (asection *) 0);
3542 name = bfd_get_section_name (abfd, sec->output_section);
3543 if (strcmp (name, ".sdata") == 0 || strcmp (name, ".sbss") == 0)
3544 {
3545 reg = 13;
3546 addend -= (sdata->sym_hash->root.u.def.value
3547 + sdata->sym_hash->root.u.def.section->output_section->vma
3548 + sdata->sym_hash->root.u.def.section->output_offset);
3549 }
3550
3551 else if (strcmp (name, ".sdata2") == 0
3552 || strcmp (name, ".sbss2") == 0)
3553 {
3554 reg = 2;
3555 addend -= (sdata2->sym_hash->root.u.def.value
3556 + sdata2->sym_hash->root.u.def.section->output_section->vma
3557 + sdata2->sym_hash->root.u.def.section->output_offset);
3558 }
3559
3560 else if (strcmp (name, ".PPC.EMB.sdata0") == 0
3561 || strcmp (name, ".PPC.EMB.sbss0") == 0)
3562 {
3563 reg = 0;
3564 }
3565
3566 else
3567 {
3568 (*_bfd_error_handler) (_("%s: The target (%s) of a %s relocation is in the wrong output section (%s)"),
3569 bfd_archive_filename (input_bfd),
3570 sym_name,
3571 ppc_elf_howto_table[(int) r_type]->name,
3572 name);
3573
3574 bfd_set_error (bfd_error_bad_value);
3575 ret = false;
3576 continue;
3577 }
3578
3579 if (r_type == R_PPC_EMB_SDA21)
3580 { /* fill in register field */
3581 insn = bfd_get_32 (output_bfd, contents + offset);
3582 insn = (insn & ~RA_REGISTER_MASK) | (reg << RA_REGISTER_SHIFT);
3583 bfd_put_32 (output_bfd, (bfd_vma) insn, contents + offset);
3584 }
3585 }
3586 break;
3587
3588 /* Relocate against the beginning of the section */
3589 case (int) R_PPC_SECTOFF:
3590 case (int) R_PPC_SECTOFF_LO:
3591 case (int) R_PPC_SECTOFF_HI:
3592 BFD_ASSERT (sec != (asection *) 0);
3593 addend -= sec->output_section->vma;
3594 break;
3595
3596 case (int) R_PPC_SECTOFF_HA:
3597 BFD_ASSERT (sec != (asection *) 0);
3598 addend -= sec->output_section->vma;
3599 addend += ((relocation + addend) & 0x8000) << 1;
3600 break;
3601
3602 /* Negative relocations */
3603 case (int) R_PPC_EMB_NADDR32:
3604 case (int) R_PPC_EMB_NADDR16:
3605 case (int) R_PPC_EMB_NADDR16_LO:
3606 case (int) R_PPC_EMB_NADDR16_HI:
3607 addend -= 2 * relocation;
3608 break;
3609
3610 case (int) R_PPC_EMB_NADDR16_HA:
3611 addend -= 2 * relocation;
3612 addend += ((relocation + addend) & 0x8000) << 1;
3613 break;
3614
3615 /* NOP relocation that prevents garbage collecting linkers from omitting a
3616 reference. */
3617 case (int) R_PPC_EMB_MRKREF:
3618 continue;
3619
3620 case (int) R_PPC_COPY:
3621 case (int) R_PPC_GLOB_DAT:
3622 case (int) R_PPC_JMP_SLOT:
3623 case (int) R_PPC_RELATIVE:
3624 case (int) R_PPC_PLT32:
3625 case (int) R_PPC_PLTREL32:
3626 case (int) R_PPC_PLT16_LO:
3627 case (int) R_PPC_PLT16_HI:
3628 case (int) R_PPC_PLT16_HA:
3629 case (int) R_PPC_EMB_RELSEC16:
3630 case (int) R_PPC_EMB_RELST_LO:
3631 case (int) R_PPC_EMB_RELST_HI:
3632 case (int) R_PPC_EMB_RELST_HA:
3633 case (int) R_PPC_EMB_BIT_FLD:
3634 (*_bfd_error_handler) (_("%s: Relocation %s is not yet supported for symbol %s."),
3635 bfd_archive_filename (input_bfd),
3636 ppc_elf_howto_table[(int) r_type]->name,
3637 sym_name);
3638
3639 bfd_set_error (bfd_error_invalid_operation);
3640 ret = false;
3641 continue;
3642
3643 case (int) R_PPC_GNU_VTINHERIT:
3644 case (int) R_PPC_GNU_VTENTRY:
3645 /* These are no-ops in the end. */
3646 continue;
3647 }
3648
3649 #ifdef DEBUG
3650 fprintf (stderr, "\ttype = %s (%d), name = %s, symbol index = %ld, offset = %ld, addend = %ld\n",
3651 howto->name,
3652 (int) r_type,
3653 sym_name,
3654 r_symndx,
3655 (long) offset,
3656 (long) addend);
3657 #endif
3658
3659 r = _bfd_final_link_relocate (howto,
3660 input_bfd,
3661 input_section,
3662 contents,
3663 offset,
3664 relocation,
3665 addend);
3666
3667 if (r == bfd_reloc_ok)
3668 ;
3669 else if (r == bfd_reloc_overflow)
3670 {
3671 const char *name;
3672
3673 if (h != NULL)
3674 {
3675 if (h->root.type == bfd_link_hash_undefweak
3676 && howto->pc_relative)
3677 {
3678 /* Assume this is a call protected by other code that
3679 detect the symbol is undefined. If this is the case,
3680 we can safely ignore the overflow. If not, the
3681 program is hosed anyway, and a little warning isn't
3682 going to help. */
3683
3684 continue;
3685 }
3686
3687 name = h->root.root.string;
3688 }
3689 else
3690 {
3691 name = bfd_elf_string_from_elf_section (input_bfd,
3692 symtab_hdr->sh_link,
3693 sym->st_name);
3694 if (name == NULL)
3695 continue;
3696 if (*name == '\0')
3697 name = bfd_section_name (input_bfd, sec);
3698 }
3699
3700 if (! (*info->callbacks->reloc_overflow) (info,
3701 name,
3702 howto->name,
3703 (bfd_vma) 0,
3704 input_bfd,
3705 input_section,
3706 offset))
3707 return false;
3708 }
3709 else
3710 ret = false;
3711 }
3712
3713 #ifdef DEBUG
3714 fprintf (stderr, "\n");
3715 #endif
3716
3717 return ret;
3718 }
3719
3720 static enum elf_reloc_type_class
3721 ppc_elf_reloc_type_class (rela)
3722 const Elf_Internal_Rela *rela;
3723 {
3724 switch ((int) ELF32_R_TYPE (rela->r_info))
3725 {
3726 case R_PPC_RELATIVE:
3727 return reloc_class_relative;
3728 case R_PPC_REL24:
3729 case R_PPC_ADDR24:
3730 case R_PPC_JMP_SLOT:
3731 return reloc_class_plt;
3732 case R_PPC_COPY:
3733 return reloc_class_copy;
3734 default:
3735 return reloc_class_normal;
3736 }
3737 }
3738 \f
3739 /* Support for core dump NOTE sections */
3740 static boolean
3741 ppc_elf_grok_prstatus (abfd, note)
3742 bfd *abfd;
3743 Elf_Internal_Note *note;
3744 {
3745 int offset;
3746 unsigned int raw_size;
3747
3748 switch (note->descsz)
3749 {
3750 default:
3751 return false;
3752
3753 case 268: /* Linux/PPC */
3754 /* pr_cursig */
3755 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
3756
3757 /* pr_pid */
3758 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
3759
3760 /* pr_reg */
3761 offset = 72;
3762 raw_size = 192;
3763
3764 break;
3765 }
3766
3767 /* Make a ".reg/999" section. */
3768 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
3769 raw_size, note->descpos + offset);
3770 }
3771
3772 static boolean
3773 ppc_elf_grok_psinfo (abfd, note)
3774 bfd *abfd;
3775 Elf_Internal_Note *note;
3776 {
3777 switch (note->descsz)
3778 {
3779 default:
3780 return false;
3781
3782 case 128: /* Linux/PPC elf_prpsinfo */
3783 elf_tdata (abfd)->core_program
3784 = _bfd_elfcore_strndup (abfd, note->descdata + 32, 16);
3785 elf_tdata (abfd)->core_command
3786 = _bfd_elfcore_strndup (abfd, note->descdata + 48, 80);
3787 }
3788
3789 /* Note that for some reason, a spurious space is tacked
3790 onto the end of the args in some (at least one anyway)
3791 implementations, so strip it off if it exists. */
3792
3793 {
3794 char *command = elf_tdata (abfd)->core_command;
3795 int n = strlen (command);
3796
3797 if (0 < n && command[n - 1] == ' ')
3798 command[n - 1] = '\0';
3799 }
3800
3801 return true;
3802 }
3803 \f
3804 #define TARGET_LITTLE_SYM bfd_elf32_powerpcle_vec
3805 #define TARGET_LITTLE_NAME "elf32-powerpcle"
3806 #define TARGET_BIG_SYM bfd_elf32_powerpc_vec
3807 #define TARGET_BIG_NAME "elf32-powerpc"
3808 #define ELF_ARCH bfd_arch_powerpc
3809 #define ELF_MACHINE_CODE EM_PPC
3810 #define ELF_MAXPAGESIZE 0x10000
3811 #define elf_info_to_howto ppc_elf_info_to_howto
3812
3813 #ifdef EM_CYGNUS_POWERPC
3814 #define ELF_MACHINE_ALT1 EM_CYGNUS_POWERPC
3815 #endif
3816
3817 #ifdef EM_PPC_OLD
3818 #define ELF_MACHINE_ALT2 EM_PPC_OLD
3819 #endif
3820
3821 #define elf_backend_plt_not_loaded 1
3822 #define elf_backend_got_symbol_offset 4
3823 #define elf_backend_can_gc_sections 1
3824 #define elf_backend_got_header_size 12
3825 #define elf_backend_plt_header_size PLT_INITIAL_ENTRY_SIZE
3826
3827 #define bfd_elf32_bfd_copy_private_bfd_data ppc_elf_copy_private_bfd_data
3828 #define bfd_elf32_bfd_merge_private_bfd_data ppc_elf_merge_private_bfd_data
3829 #define bfd_elf32_bfd_relax_section ppc_elf_relax_section
3830 #define bfd_elf32_bfd_reloc_type_lookup ppc_elf_reloc_type_lookup
3831 #define bfd_elf32_bfd_set_private_flags ppc_elf_set_private_flags
3832 #define bfd_elf32_bfd_final_link _bfd_elf32_gc_common_final_link
3833
3834 #define elf_backend_gc_mark_hook ppc_elf_gc_mark_hook
3835 #define elf_backend_gc_sweep_hook ppc_elf_gc_sweep_hook
3836 #define elf_backend_section_from_shdr ppc_elf_section_from_shdr
3837 #define elf_backend_relocate_section ppc_elf_relocate_section
3838 #define elf_backend_create_dynamic_sections ppc_elf_create_dynamic_sections
3839 #define elf_backend_check_relocs ppc_elf_check_relocs
3840 #define elf_backend_adjust_dynamic_symbol ppc_elf_adjust_dynamic_symbol
3841 #define elf_backend_add_symbol_hook ppc_elf_add_symbol_hook
3842 #define elf_backend_size_dynamic_sections ppc_elf_size_dynamic_sections
3843 #define elf_backend_finish_dynamic_symbol ppc_elf_finish_dynamic_symbol
3844 #define elf_backend_finish_dynamic_sections ppc_elf_finish_dynamic_sections
3845 #define elf_backend_fake_sections ppc_elf_fake_sections
3846 #define elf_backend_additional_program_headers ppc_elf_additional_program_headers
3847 #define elf_backend_modify_segment_map ppc_elf_modify_segment_map
3848 #define elf_backend_grok_prstatus ppc_elf_grok_prstatus
3849 #define elf_backend_grok_psinfo ppc_elf_grok_psinfo
3850 #define elf_backend_reloc_type_class ppc_elf_reloc_type_class
3851
3852 #include "elf32-target.h"