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