projects / deliverable / binutils-gdb.git / blob
? search:


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