1 /* PowerPC64-specific support for 64-bit ELF.
2 Copyright 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
3 Written by Linus Nordberg, Swox AB <info@swox.com>,
4 based on elf32-ppc.c by Ian Lance Taylor.
6 This file is part of BFD, the Binary File Descriptor library.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License along
19 with this program; if not, write to the Free Software Foundation, Inc.,
20 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22 /* The 64-bit PowerPC ELF ABI may be found at
23 http://www.linuxbase.org/spec/ELF/ppc64/PPC-elf64abi.txt, and
24 http://www.linuxbase.org/spec/ELF/ppc64/spec/book1.html */
31 #include "elf/ppc64.h"
32 #include "elf64-ppc.h"
34 static bfd_reloc_status_type ppc64_elf_ha_reloc
35 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
36 static bfd_reloc_status_type ppc64_elf_brtaken_reloc
37 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
38 static bfd_reloc_status_type ppc64_elf_sectoff_reloc
39 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
40 static bfd_reloc_status_type ppc64_elf_sectoff_ha_reloc
41 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
42 static bfd_reloc_status_type ppc64_elf_toc_reloc
43 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
44 static bfd_reloc_status_type ppc64_elf_toc_ha_reloc
45 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
46 static bfd_reloc_status_type ppc64_elf_toc64_reloc
47 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
48 static bfd_reloc_status_type ppc64_elf_unhandled_reloc
49 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
52 #define TARGET_LITTLE_SYM bfd_elf64_powerpcle_vec
53 #define TARGET_LITTLE_NAME "elf64-powerpcle"
54 #define TARGET_BIG_SYM bfd_elf64_powerpc_vec
55 #define TARGET_BIG_NAME "elf64-powerpc"
56 #define ELF_ARCH bfd_arch_powerpc
57 #define ELF_MACHINE_CODE EM_PPC64
58 #define ELF_MAXPAGESIZE 0x10000
59 #define elf_info_to_howto ppc64_elf_info_to_howto
61 #define elf_backend_want_got_sym 0
62 #define elf_backend_want_plt_sym 0
63 #define elf_backend_plt_alignment 3
64 #define elf_backend_plt_not_loaded 1
65 #define elf_backend_got_symbol_offset 0
66 #define elf_backend_got_header_size 8
67 #define elf_backend_plt_header_size PLT_INITIAL_ENTRY_SIZE
68 #define elf_backend_can_gc_sections 1
69 #define elf_backend_can_refcount 1
70 #define elf_backend_rela_normal 1
72 #define bfd_elf64_mkobject ppc64_elf_mkobject
73 #define bfd_elf64_bfd_reloc_type_lookup ppc64_elf_reloc_type_lookup
74 #define bfd_elf64_bfd_merge_private_bfd_data ppc64_elf_merge_private_bfd_data
75 #define bfd_elf64_new_section_hook ppc64_elf_new_section_hook
76 #define bfd_elf64_bfd_link_hash_table_create ppc64_elf_link_hash_table_create
77 #define bfd_elf64_bfd_link_hash_table_free ppc64_elf_link_hash_table_free
79 #define elf_backend_object_p ppc64_elf_object_p
80 #define elf_backend_create_dynamic_sections ppc64_elf_create_dynamic_sections
81 #define elf_backend_copy_indirect_symbol ppc64_elf_copy_indirect_symbol
82 #define elf_backend_check_relocs ppc64_elf_check_relocs
83 #define elf_backend_gc_mark_hook ppc64_elf_gc_mark_hook
84 #define elf_backend_gc_sweep_hook ppc64_elf_gc_sweep_hook
85 #define elf_backend_adjust_dynamic_symbol ppc64_elf_adjust_dynamic_symbol
86 #define elf_backend_hide_symbol ppc64_elf_hide_symbol
87 #define elf_backend_always_size_sections ppc64_elf_func_desc_adjust
88 #define elf_backend_size_dynamic_sections ppc64_elf_size_dynamic_sections
89 #define elf_backend_relocate_section ppc64_elf_relocate_section
90 #define elf_backend_finish_dynamic_symbol ppc64_elf_finish_dynamic_symbol
91 #define elf_backend_reloc_type_class ppc64_elf_reloc_type_class
92 #define elf_backend_finish_dynamic_sections ppc64_elf_finish_dynamic_sections
93 #define elf_backend_special_sections ppc64_elf_special_sections
95 /* The name of the dynamic interpreter. This is put in the .interp
97 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
99 /* The size in bytes of an entry in the procedure linkage table. */
100 #define PLT_ENTRY_SIZE 24
102 /* The initial size of the plt reserved for the dynamic linker. */
103 #define PLT_INITIAL_ENTRY_SIZE PLT_ENTRY_SIZE
105 /* TOC base pointers offset from start of TOC. */
106 #define TOC_BASE_OFF 0x8000
108 /* Offset of tp and dtp pointers from start of TLS block. */
109 #define TP_OFFSET 0x7000
110 #define DTP_OFFSET 0x8000
112 /* .plt call stub instructions. The normal stub is like this, but
113 sometimes the .plt entry crosses a 64k boundary and we need to
114 insert an addis to adjust r12. */
115 #define PLT_CALL_STUB_SIZE (7*4)
116 #define ADDIS_R12_R2 0x3d820000 /* addis %r12,%r2,xxx@ha */
117 #define STD_R2_40R1 0xf8410028 /* std %r2,40(%r1) */
118 #define LD_R11_0R12 0xe96c0000 /* ld %r11,xxx+0@l(%r12) */
119 #define LD_R2_0R12 0xe84c0000 /* ld %r2,xxx+8@l(%r12) */
120 #define MTCTR_R11 0x7d6903a6 /* mtctr %r11 */
121 /* ld %r11,xxx+16@l(%r12) */
122 #define BCTR 0x4e800420 /* bctr */
125 #define ADDIS_R2_R2 0x3c420000 /* addis %r2,%r2,off@ha */
126 #define ADDI_R2_R2 0x38420000 /* addi %r2,%r2,off@l */
128 #define LD_R2_40R1 0xe8410028 /* ld %r2,40(%r1) */
130 /* glink call stub instructions. We enter with the index in R0, and the
131 address of glink entry in CTR. From that, we can calculate PLT0. */
132 #define GLINK_CALL_STUB_SIZE (16*4)
133 #define MFCTR_R12 0x7d8902a6 /* mfctr %r12 */
134 #define SLDI_R11_R0_3 0x780b1f24 /* sldi %r11,%r0,3 */
135 #define ADDIC_R2_R0_32K 0x34408000 /* addic. %r2,%r0,-32768 */
136 #define SUB_R12_R12_R11 0x7d8b6050 /* sub %r12,%r12,%r11 */
137 #define SRADI_R2_R2_63 0x7c42fe76 /* sradi %r2,%r2,63 */
138 #define SLDI_R11_R0_2 0x780b1764 /* sldi %r11,%r0,2 */
139 #define AND_R2_R2_R11 0x7c425838 /* and %r2,%r2,%r11 */
140 /* sub %r12,%r12,%r11 */
141 #define ADD_R12_R12_R2 0x7d8c1214 /* add %r12,%r12,%r2 */
142 #define ADDIS_R12_R12 0x3d8c0000 /* addis %r12,%r12,xxx@ha */
143 /* ld %r11,xxx@l(%r12) */
144 #define ADDI_R12_R12 0x398c0000 /* addi %r12,%r12,xxx@l */
147 /* ld %r11,16(%r12) */
151 #define NOP 0x60000000
153 /* Some other nops. */
154 #define CROR_151515 0x4def7b82
155 #define CROR_313131 0x4ffffb82
157 /* .glink entries for the first 32k functions are two instructions. */
158 #define LI_R0_0 0x38000000 /* li %r0,0 */
159 #define B_DOT 0x48000000 /* b . */
161 /* After that, we need two instructions to load the index, followed by
163 #define LIS_R0_0 0x3c000000 /* lis %r0,0 */
164 #define ORI_R0_R0_0 0x60000000 /* ori %r0,%r0,0 */
166 /* Instructions to save and restore floating point regs. */
167 #define STFD_FR0_0R1 0xd8010000 /* stfd %fr0,0(%r1) */
168 #define LFD_FR0_0R1 0xc8010000 /* lfd %fr0,0(%r1) */
169 #define BLR 0x4e800020 /* blr */
171 /* Since .opd is an array of descriptors and each entry will end up
172 with identical R_PPC64_RELATIVE relocs, there is really no need to
173 propagate .opd relocs; The dynamic linker should be taught to
174 relocate .opd without reloc entries. */
175 #ifndef NO_OPD_RELOCS
176 #define NO_OPD_RELOCS 0
179 #define ONES(n) (((bfd_vma) 1 << ((n) - 1) << 1) - 1)
181 /* Relocation HOWTO's. */
182 static reloc_howto_type
*ppc64_elf_howto_table
[(int) R_PPC64_max
];
184 static reloc_howto_type ppc64_elf_howto_raw
[] = {
185 /* This reloc does nothing. */
186 HOWTO (R_PPC64_NONE
, /* type */
188 2, /* size (0 = byte, 1 = short, 2 = long) */
190 FALSE
, /* pc_relative */
192 complain_overflow_dont
, /* complain_on_overflow */
193 bfd_elf_generic_reloc
, /* special_function */
194 "R_PPC64_NONE", /* name */
195 FALSE
, /* partial_inplace */
198 FALSE
), /* pcrel_offset */
200 /* A standard 32 bit relocation. */
201 HOWTO (R_PPC64_ADDR32
, /* type */
203 2, /* size (0 = byte, 1 = short, 2 = long) */
205 FALSE
, /* pc_relative */
207 complain_overflow_bitfield
, /* complain_on_overflow */
208 bfd_elf_generic_reloc
, /* special_function */
209 "R_PPC64_ADDR32", /* name */
210 FALSE
, /* partial_inplace */
212 0xffffffff, /* dst_mask */
213 FALSE
), /* pcrel_offset */
215 /* An absolute 26 bit branch; the lower two bits must be zero.
216 FIXME: we don't check that, we just clear them. */
217 HOWTO (R_PPC64_ADDR24
, /* type */
219 2, /* size (0 = byte, 1 = short, 2 = long) */
221 FALSE
, /* pc_relative */
223 complain_overflow_bitfield
, /* complain_on_overflow */
224 bfd_elf_generic_reloc
, /* special_function */
225 "R_PPC64_ADDR24", /* name */
226 FALSE
, /* partial_inplace */
228 0x03fffffc, /* dst_mask */
229 FALSE
), /* pcrel_offset */
231 /* A standard 16 bit relocation. */
232 HOWTO (R_PPC64_ADDR16
, /* type */
234 1, /* size (0 = byte, 1 = short, 2 = long) */
236 FALSE
, /* pc_relative */
238 complain_overflow_bitfield
, /* complain_on_overflow */
239 bfd_elf_generic_reloc
, /* special_function */
240 "R_PPC64_ADDR16", /* name */
241 FALSE
, /* partial_inplace */
243 0xffff, /* dst_mask */
244 FALSE
), /* pcrel_offset */
246 /* A 16 bit relocation without overflow. */
247 HOWTO (R_PPC64_ADDR16_LO
, /* type */
249 1, /* size (0 = byte, 1 = short, 2 = long) */
251 FALSE
, /* pc_relative */
253 complain_overflow_dont
,/* complain_on_overflow */
254 bfd_elf_generic_reloc
, /* special_function */
255 "R_PPC64_ADDR16_LO", /* name */
256 FALSE
, /* partial_inplace */
258 0xffff, /* dst_mask */
259 FALSE
), /* pcrel_offset */
261 /* Bits 16-31 of an address. */
262 HOWTO (R_PPC64_ADDR16_HI
, /* type */
264 1, /* size (0 = byte, 1 = short, 2 = long) */
266 FALSE
, /* pc_relative */
268 complain_overflow_dont
, /* complain_on_overflow */
269 bfd_elf_generic_reloc
, /* special_function */
270 "R_PPC64_ADDR16_HI", /* name */
271 FALSE
, /* partial_inplace */
273 0xffff, /* dst_mask */
274 FALSE
), /* pcrel_offset */
276 /* Bits 16-31 of an address, plus 1 if the contents of the low 16
277 bits, treated as a signed number, is negative. */
278 HOWTO (R_PPC64_ADDR16_HA
, /* type */
280 1, /* size (0 = byte, 1 = short, 2 = long) */
282 FALSE
, /* pc_relative */
284 complain_overflow_dont
, /* complain_on_overflow */
285 ppc64_elf_ha_reloc
, /* special_function */
286 "R_PPC64_ADDR16_HA", /* name */
287 FALSE
, /* partial_inplace */
289 0xffff, /* dst_mask */
290 FALSE
), /* pcrel_offset */
292 /* An absolute 16 bit branch; the lower two bits must be zero.
293 FIXME: we don't check that, we just clear them. */
294 HOWTO (R_PPC64_ADDR14
, /* type */
296 2, /* size (0 = byte, 1 = short, 2 = long) */
298 FALSE
, /* pc_relative */
300 complain_overflow_bitfield
, /* complain_on_overflow */
301 bfd_elf_generic_reloc
, /* special_function */
302 "R_PPC64_ADDR14", /* name */
303 FALSE
, /* partial_inplace */
305 0x0000fffc, /* dst_mask */
306 FALSE
), /* pcrel_offset */
308 /* An absolute 16 bit branch, for which bit 10 should be set to
309 indicate that the branch is expected to be taken. The lower two
310 bits must be zero. */
311 HOWTO (R_PPC64_ADDR14_BRTAKEN
, /* type */
313 2, /* size (0 = byte, 1 = short, 2 = long) */
315 FALSE
, /* pc_relative */
317 complain_overflow_bitfield
, /* complain_on_overflow */
318 ppc64_elf_brtaken_reloc
, /* special_function */
319 "R_PPC64_ADDR14_BRTAKEN",/* name */
320 FALSE
, /* partial_inplace */
322 0x0000fffc, /* dst_mask */
323 FALSE
), /* pcrel_offset */
325 /* An absolute 16 bit branch, for which bit 10 should be set to
326 indicate that the branch is not expected to be taken. The lower
327 two bits must be zero. */
328 HOWTO (R_PPC64_ADDR14_BRNTAKEN
, /* type */
330 2, /* size (0 = byte, 1 = short, 2 = long) */
332 FALSE
, /* pc_relative */
334 complain_overflow_bitfield
, /* complain_on_overflow */
335 ppc64_elf_brtaken_reloc
, /* special_function */
336 "R_PPC64_ADDR14_BRNTAKEN",/* name */
337 FALSE
, /* partial_inplace */
339 0x0000fffc, /* dst_mask */
340 FALSE
), /* pcrel_offset */
342 /* A relative 26 bit branch; the lower two bits must be zero. */
343 HOWTO (R_PPC64_REL24
, /* type */
345 2, /* size (0 = byte, 1 = short, 2 = long) */
347 TRUE
, /* pc_relative */
349 complain_overflow_signed
, /* complain_on_overflow */
350 bfd_elf_generic_reloc
, /* special_function */
351 "R_PPC64_REL24", /* name */
352 FALSE
, /* partial_inplace */
354 0x03fffffc, /* dst_mask */
355 TRUE
), /* pcrel_offset */
357 /* A relative 16 bit branch; the lower two bits must be zero. */
358 HOWTO (R_PPC64_REL14
, /* type */
360 2, /* size (0 = byte, 1 = short, 2 = long) */
362 TRUE
, /* pc_relative */
364 complain_overflow_signed
, /* complain_on_overflow */
365 bfd_elf_generic_reloc
, /* special_function */
366 "R_PPC64_REL14", /* name */
367 FALSE
, /* partial_inplace */
369 0x0000fffc, /* dst_mask */
370 TRUE
), /* pcrel_offset */
372 /* A relative 16 bit branch. Bit 10 should be set to indicate that
373 the branch is expected to be taken. The lower two bits must be
375 HOWTO (R_PPC64_REL14_BRTAKEN
, /* type */
377 2, /* size (0 = byte, 1 = short, 2 = long) */
379 TRUE
, /* pc_relative */
381 complain_overflow_signed
, /* complain_on_overflow */
382 ppc64_elf_brtaken_reloc
, /* special_function */
383 "R_PPC64_REL14_BRTAKEN", /* name */
384 FALSE
, /* partial_inplace */
386 0x0000fffc, /* dst_mask */
387 TRUE
), /* pcrel_offset */
389 /* A relative 16 bit branch. Bit 10 should be set to indicate that
390 the branch is not expected to be taken. The lower two bits must
392 HOWTO (R_PPC64_REL14_BRNTAKEN
, /* type */
394 2, /* size (0 = byte, 1 = short, 2 = long) */
396 TRUE
, /* pc_relative */
398 complain_overflow_signed
, /* complain_on_overflow */
399 ppc64_elf_brtaken_reloc
, /* special_function */
400 "R_PPC64_REL14_BRNTAKEN",/* name */
401 FALSE
, /* partial_inplace */
403 0x0000fffc, /* dst_mask */
404 TRUE
), /* pcrel_offset */
406 /* Like R_PPC64_ADDR16, but referring to the GOT table entry for the
408 HOWTO (R_PPC64_GOT16
, /* type */
410 1, /* size (0 = byte, 1 = short, 2 = long) */
412 FALSE
, /* pc_relative */
414 complain_overflow_signed
, /* complain_on_overflow */
415 ppc64_elf_unhandled_reloc
, /* special_function */
416 "R_PPC64_GOT16", /* name */
417 FALSE
, /* partial_inplace */
419 0xffff, /* dst_mask */
420 FALSE
), /* pcrel_offset */
422 /* Like R_PPC64_ADDR16_LO, but referring to the GOT table entry for
424 HOWTO (R_PPC64_GOT16_LO
, /* type */
426 1, /* size (0 = byte, 1 = short, 2 = long) */
428 FALSE
, /* pc_relative */
430 complain_overflow_dont
, /* complain_on_overflow */
431 ppc64_elf_unhandled_reloc
, /* special_function */
432 "R_PPC64_GOT16_LO", /* name */
433 FALSE
, /* partial_inplace */
435 0xffff, /* dst_mask */
436 FALSE
), /* pcrel_offset */
438 /* Like R_PPC64_ADDR16_HI, but referring to the GOT table entry for
440 HOWTO (R_PPC64_GOT16_HI
, /* type */
442 1, /* size (0 = byte, 1 = short, 2 = long) */
444 FALSE
, /* pc_relative */
446 complain_overflow_dont
,/* complain_on_overflow */
447 ppc64_elf_unhandled_reloc
, /* special_function */
448 "R_PPC64_GOT16_HI", /* name */
449 FALSE
, /* partial_inplace */
451 0xffff, /* dst_mask */
452 FALSE
), /* pcrel_offset */
454 /* Like R_PPC64_ADDR16_HA, but referring to the GOT table entry for
456 HOWTO (R_PPC64_GOT16_HA
, /* type */
458 1, /* size (0 = byte, 1 = short, 2 = long) */
460 FALSE
, /* pc_relative */
462 complain_overflow_dont
,/* complain_on_overflow */
463 ppc64_elf_unhandled_reloc
, /* special_function */
464 "R_PPC64_GOT16_HA", /* name */
465 FALSE
, /* partial_inplace */
467 0xffff, /* dst_mask */
468 FALSE
), /* pcrel_offset */
470 /* This is used only by the dynamic linker. The symbol should exist
471 both in the object being run and in some shared library. The
472 dynamic linker copies the data addressed by the symbol from the
473 shared library into the object, because the object being
474 run has to have the data at some particular address. */
475 HOWTO (R_PPC64_COPY
, /* type */
477 0, /* this one is variable size */
479 FALSE
, /* pc_relative */
481 complain_overflow_dont
, /* complain_on_overflow */
482 ppc64_elf_unhandled_reloc
, /* special_function */
483 "R_PPC64_COPY", /* name */
484 FALSE
, /* partial_inplace */
487 FALSE
), /* pcrel_offset */
489 /* Like R_PPC64_ADDR64, but used when setting global offset table
491 HOWTO (R_PPC64_GLOB_DAT
, /* type */
493 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
495 FALSE
, /* pc_relative */
497 complain_overflow_dont
, /* complain_on_overflow */
498 ppc64_elf_unhandled_reloc
, /* special_function */
499 "R_PPC64_GLOB_DAT", /* name */
500 FALSE
, /* partial_inplace */
502 ONES (64), /* dst_mask */
503 FALSE
), /* pcrel_offset */
505 /* Created by the link editor. Marks a procedure linkage table
506 entry for a symbol. */
507 HOWTO (R_PPC64_JMP_SLOT
, /* type */
509 0, /* size (0 = byte, 1 = short, 2 = long) */
511 FALSE
, /* pc_relative */
513 complain_overflow_dont
, /* complain_on_overflow */
514 ppc64_elf_unhandled_reloc
, /* special_function */
515 "R_PPC64_JMP_SLOT", /* name */
516 FALSE
, /* partial_inplace */
519 FALSE
), /* pcrel_offset */
521 /* Used only by the dynamic linker. When the object is run, this
522 doubleword64 is set to the load address of the object, plus the
524 HOWTO (R_PPC64_RELATIVE
, /* type */
526 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
528 FALSE
, /* pc_relative */
530 complain_overflow_dont
, /* complain_on_overflow */
531 bfd_elf_generic_reloc
, /* special_function */
532 "R_PPC64_RELATIVE", /* name */
533 FALSE
, /* partial_inplace */
535 ONES (64), /* dst_mask */
536 FALSE
), /* pcrel_offset */
538 /* Like R_PPC64_ADDR32, but may be unaligned. */
539 HOWTO (R_PPC64_UADDR32
, /* type */
541 2, /* size (0 = byte, 1 = short, 2 = long) */
543 FALSE
, /* pc_relative */
545 complain_overflow_bitfield
, /* complain_on_overflow */
546 bfd_elf_generic_reloc
, /* special_function */
547 "R_PPC64_UADDR32", /* name */
548 FALSE
, /* partial_inplace */
550 0xffffffff, /* dst_mask */
551 FALSE
), /* pcrel_offset */
553 /* Like R_PPC64_ADDR16, but may be unaligned. */
554 HOWTO (R_PPC64_UADDR16
, /* type */
556 1, /* size (0 = byte, 1 = short, 2 = long) */
558 FALSE
, /* pc_relative */
560 complain_overflow_bitfield
, /* complain_on_overflow */
561 bfd_elf_generic_reloc
, /* special_function */
562 "R_PPC64_UADDR16", /* name */
563 FALSE
, /* partial_inplace */
565 0xffff, /* dst_mask */
566 FALSE
), /* pcrel_offset */
568 /* 32-bit PC relative. */
569 HOWTO (R_PPC64_REL32
, /* type */
571 2, /* size (0 = byte, 1 = short, 2 = long) */
573 TRUE
, /* pc_relative */
575 /* FIXME: Verify. Was complain_overflow_bitfield. */
576 complain_overflow_signed
, /* complain_on_overflow */
577 bfd_elf_generic_reloc
, /* special_function */
578 "R_PPC64_REL32", /* name */
579 FALSE
, /* partial_inplace */
581 0xffffffff, /* dst_mask */
582 TRUE
), /* pcrel_offset */
584 /* 32-bit relocation to the symbol's procedure linkage table. */
585 HOWTO (R_PPC64_PLT32
, /* type */
587 2, /* size (0 = byte, 1 = short, 2 = long) */
589 FALSE
, /* pc_relative */
591 complain_overflow_bitfield
, /* complain_on_overflow */
592 ppc64_elf_unhandled_reloc
, /* special_function */
593 "R_PPC64_PLT32", /* name */
594 FALSE
, /* partial_inplace */
596 0xffffffff, /* dst_mask */
597 FALSE
), /* pcrel_offset */
599 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
600 FIXME: R_PPC64_PLTREL32 not supported. */
601 HOWTO (R_PPC64_PLTREL32
, /* type */
603 2, /* size (0 = byte, 1 = short, 2 = long) */
605 TRUE
, /* pc_relative */
607 complain_overflow_signed
, /* complain_on_overflow */
608 bfd_elf_generic_reloc
, /* special_function */
609 "R_PPC64_PLTREL32", /* name */
610 FALSE
, /* partial_inplace */
612 0xffffffff, /* dst_mask */
613 TRUE
), /* pcrel_offset */
615 /* Like R_PPC64_ADDR16_LO, but referring to the PLT table entry for
617 HOWTO (R_PPC64_PLT16_LO
, /* type */
619 1, /* size (0 = byte, 1 = short, 2 = long) */
621 FALSE
, /* pc_relative */
623 complain_overflow_dont
, /* complain_on_overflow */
624 ppc64_elf_unhandled_reloc
, /* special_function */
625 "R_PPC64_PLT16_LO", /* name */
626 FALSE
, /* partial_inplace */
628 0xffff, /* dst_mask */
629 FALSE
), /* pcrel_offset */
631 /* Like R_PPC64_ADDR16_HI, but referring to the PLT table entry for
633 HOWTO (R_PPC64_PLT16_HI
, /* type */
635 1, /* size (0 = byte, 1 = short, 2 = long) */
637 FALSE
, /* pc_relative */
639 complain_overflow_dont
, /* complain_on_overflow */
640 ppc64_elf_unhandled_reloc
, /* special_function */
641 "R_PPC64_PLT16_HI", /* name */
642 FALSE
, /* partial_inplace */
644 0xffff, /* dst_mask */
645 FALSE
), /* pcrel_offset */
647 /* Like R_PPC64_ADDR16_HA, but referring to the PLT table entry for
649 HOWTO (R_PPC64_PLT16_HA
, /* type */
651 1, /* size (0 = byte, 1 = short, 2 = long) */
653 FALSE
, /* pc_relative */
655 complain_overflow_dont
, /* complain_on_overflow */
656 ppc64_elf_unhandled_reloc
, /* special_function */
657 "R_PPC64_PLT16_HA", /* name */
658 FALSE
, /* partial_inplace */
660 0xffff, /* dst_mask */
661 FALSE
), /* pcrel_offset */
663 /* 16-bit section relative relocation. */
664 HOWTO (R_PPC64_SECTOFF
, /* type */
666 1, /* size (0 = byte, 1 = short, 2 = long) */
668 FALSE
, /* pc_relative */
670 complain_overflow_bitfield
, /* complain_on_overflow */
671 ppc64_elf_sectoff_reloc
, /* special_function */
672 "R_PPC64_SECTOFF", /* name */
673 FALSE
, /* partial_inplace */
675 0xffff, /* dst_mask */
676 FALSE
), /* pcrel_offset */
678 /* Like R_PPC64_SECTOFF, but no overflow warning. */
679 HOWTO (R_PPC64_SECTOFF_LO
, /* type */
681 1, /* size (0 = byte, 1 = short, 2 = long) */
683 FALSE
, /* pc_relative */
685 complain_overflow_dont
, /* complain_on_overflow */
686 ppc64_elf_sectoff_reloc
, /* special_function */
687 "R_PPC64_SECTOFF_LO", /* name */
688 FALSE
, /* partial_inplace */
690 0xffff, /* dst_mask */
691 FALSE
), /* pcrel_offset */
693 /* 16-bit upper half section relative relocation. */
694 HOWTO (R_PPC64_SECTOFF_HI
, /* type */
696 1, /* size (0 = byte, 1 = short, 2 = long) */
698 FALSE
, /* pc_relative */
700 complain_overflow_dont
, /* complain_on_overflow */
701 ppc64_elf_sectoff_reloc
, /* special_function */
702 "R_PPC64_SECTOFF_HI", /* name */
703 FALSE
, /* partial_inplace */
705 0xffff, /* dst_mask */
706 FALSE
), /* pcrel_offset */
708 /* 16-bit upper half adjusted section relative relocation. */
709 HOWTO (R_PPC64_SECTOFF_HA
, /* type */
711 1, /* size (0 = byte, 1 = short, 2 = long) */
713 FALSE
, /* pc_relative */
715 complain_overflow_dont
, /* complain_on_overflow */
716 ppc64_elf_sectoff_ha_reloc
, /* special_function */
717 "R_PPC64_SECTOFF_HA", /* name */
718 FALSE
, /* partial_inplace */
720 0xffff, /* dst_mask */
721 FALSE
), /* pcrel_offset */
723 /* Like R_PPC64_REL24 without touching the two least significant bits. */
724 HOWTO (R_PPC64_REL30
, /* type */
726 2, /* size (0 = byte, 1 = short, 2 = long) */
728 TRUE
, /* pc_relative */
730 complain_overflow_dont
, /* complain_on_overflow */
731 bfd_elf_generic_reloc
, /* special_function */
732 "R_PPC64_REL30", /* name */
733 FALSE
, /* partial_inplace */
735 0xfffffffc, /* dst_mask */
736 TRUE
), /* pcrel_offset */
738 /* Relocs in the 64-bit PowerPC ELF ABI, not in the 32-bit ABI. */
740 /* A standard 64-bit relocation. */
741 HOWTO (R_PPC64_ADDR64
, /* type */
743 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
745 FALSE
, /* pc_relative */
747 complain_overflow_dont
, /* complain_on_overflow */
748 bfd_elf_generic_reloc
, /* special_function */
749 "R_PPC64_ADDR64", /* name */
750 FALSE
, /* partial_inplace */
752 ONES (64), /* dst_mask */
753 FALSE
), /* pcrel_offset */
755 /* The bits 32-47 of an address. */
756 HOWTO (R_PPC64_ADDR16_HIGHER
, /* type */
758 1, /* size (0 = byte, 1 = short, 2 = long) */
760 FALSE
, /* pc_relative */
762 complain_overflow_dont
, /* complain_on_overflow */
763 bfd_elf_generic_reloc
, /* special_function */
764 "R_PPC64_ADDR16_HIGHER", /* name */
765 FALSE
, /* partial_inplace */
767 0xffff, /* dst_mask */
768 FALSE
), /* pcrel_offset */
770 /* The bits 32-47 of an address, plus 1 if the contents of the low
771 16 bits, treated as a signed number, is negative. */
772 HOWTO (R_PPC64_ADDR16_HIGHERA
, /* type */
774 1, /* size (0 = byte, 1 = short, 2 = long) */
776 FALSE
, /* pc_relative */
778 complain_overflow_dont
, /* complain_on_overflow */
779 ppc64_elf_ha_reloc
, /* special_function */
780 "R_PPC64_ADDR16_HIGHERA", /* name */
781 FALSE
, /* partial_inplace */
783 0xffff, /* dst_mask */
784 FALSE
), /* pcrel_offset */
786 /* The bits 48-63 of an address. */
787 HOWTO (R_PPC64_ADDR16_HIGHEST
,/* type */
789 1, /* size (0 = byte, 1 = short, 2 = long) */
791 FALSE
, /* pc_relative */
793 complain_overflow_dont
, /* complain_on_overflow */
794 bfd_elf_generic_reloc
, /* special_function */
795 "R_PPC64_ADDR16_HIGHEST", /* name */
796 FALSE
, /* partial_inplace */
798 0xffff, /* dst_mask */
799 FALSE
), /* pcrel_offset */
801 /* The bits 48-63 of an address, plus 1 if the contents of the low
802 16 bits, treated as a signed number, is negative. */
803 HOWTO (R_PPC64_ADDR16_HIGHESTA
,/* type */
805 1, /* size (0 = byte, 1 = short, 2 = long) */
807 FALSE
, /* pc_relative */
809 complain_overflow_dont
, /* complain_on_overflow */
810 ppc64_elf_ha_reloc
, /* special_function */
811 "R_PPC64_ADDR16_HIGHESTA", /* name */
812 FALSE
, /* partial_inplace */
814 0xffff, /* dst_mask */
815 FALSE
), /* pcrel_offset */
817 /* Like ADDR64, but may be unaligned. */
818 HOWTO (R_PPC64_UADDR64
, /* type */
820 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
822 FALSE
, /* pc_relative */
824 complain_overflow_dont
, /* complain_on_overflow */
825 bfd_elf_generic_reloc
, /* special_function */
826 "R_PPC64_UADDR64", /* name */
827 FALSE
, /* partial_inplace */
829 ONES (64), /* dst_mask */
830 FALSE
), /* pcrel_offset */
832 /* 64-bit relative relocation. */
833 HOWTO (R_PPC64_REL64
, /* type */
835 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
837 TRUE
, /* pc_relative */
839 complain_overflow_dont
, /* complain_on_overflow */
840 bfd_elf_generic_reloc
, /* special_function */
841 "R_PPC64_REL64", /* name */
842 FALSE
, /* partial_inplace */
844 ONES (64), /* dst_mask */
845 TRUE
), /* pcrel_offset */
847 /* 64-bit relocation to the symbol's procedure linkage table. */
848 HOWTO (R_PPC64_PLT64
, /* type */
850 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
852 FALSE
, /* pc_relative */
854 complain_overflow_dont
, /* complain_on_overflow */
855 ppc64_elf_unhandled_reloc
, /* special_function */
856 "R_PPC64_PLT64", /* name */
857 FALSE
, /* partial_inplace */
859 ONES (64), /* dst_mask */
860 FALSE
), /* pcrel_offset */
862 /* 64-bit PC relative relocation to the symbol's procedure linkage
864 /* FIXME: R_PPC64_PLTREL64 not supported. */
865 HOWTO (R_PPC64_PLTREL64
, /* type */
867 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
869 TRUE
, /* pc_relative */
871 complain_overflow_dont
, /* complain_on_overflow */
872 ppc64_elf_unhandled_reloc
, /* special_function */
873 "R_PPC64_PLTREL64", /* name */
874 FALSE
, /* partial_inplace */
876 ONES (64), /* dst_mask */
877 TRUE
), /* pcrel_offset */
879 /* 16 bit TOC-relative relocation. */
881 /* R_PPC64_TOC16 47 half16* S + A - .TOC. */
882 HOWTO (R_PPC64_TOC16
, /* type */
884 1, /* size (0 = byte, 1 = short, 2 = long) */
886 FALSE
, /* pc_relative */
888 complain_overflow_signed
, /* complain_on_overflow */
889 ppc64_elf_toc_reloc
, /* special_function */
890 "R_PPC64_TOC16", /* name */
891 FALSE
, /* partial_inplace */
893 0xffff, /* dst_mask */
894 FALSE
), /* pcrel_offset */
896 /* 16 bit TOC-relative relocation without overflow. */
898 /* R_PPC64_TOC16_LO 48 half16 #lo (S + A - .TOC.) */
899 HOWTO (R_PPC64_TOC16_LO
, /* type */
901 1, /* size (0 = byte, 1 = short, 2 = long) */
903 FALSE
, /* pc_relative */
905 complain_overflow_dont
, /* complain_on_overflow */
906 ppc64_elf_toc_reloc
, /* special_function */
907 "R_PPC64_TOC16_LO", /* name */
908 FALSE
, /* partial_inplace */
910 0xffff, /* dst_mask */
911 FALSE
), /* pcrel_offset */
913 /* 16 bit TOC-relative relocation, high 16 bits. */
915 /* R_PPC64_TOC16_HI 49 half16 #hi (S + A - .TOC.) */
916 HOWTO (R_PPC64_TOC16_HI
, /* type */
918 1, /* size (0 = byte, 1 = short, 2 = long) */
920 FALSE
, /* pc_relative */
922 complain_overflow_dont
, /* complain_on_overflow */
923 ppc64_elf_toc_reloc
, /* special_function */
924 "R_PPC64_TOC16_HI", /* name */
925 FALSE
, /* partial_inplace */
927 0xffff, /* dst_mask */
928 FALSE
), /* pcrel_offset */
930 /* 16 bit TOC-relative relocation, high 16 bits, plus 1 if the
931 contents of the low 16 bits, treated as a signed number, is
934 /* R_PPC64_TOC16_HA 50 half16 #ha (S + A - .TOC.) */
935 HOWTO (R_PPC64_TOC16_HA
, /* type */
937 1, /* size (0 = byte, 1 = short, 2 = long) */
939 FALSE
, /* pc_relative */
941 complain_overflow_dont
, /* complain_on_overflow */
942 ppc64_elf_toc_ha_reloc
, /* special_function */
943 "R_PPC64_TOC16_HA", /* name */
944 FALSE
, /* partial_inplace */
946 0xffff, /* dst_mask */
947 FALSE
), /* pcrel_offset */
949 /* 64-bit relocation; insert value of TOC base (.TOC.). */
951 /* R_PPC64_TOC 51 doubleword64 .TOC. */
952 HOWTO (R_PPC64_TOC
, /* type */
954 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
956 FALSE
, /* pc_relative */
958 complain_overflow_bitfield
, /* complain_on_overflow */
959 ppc64_elf_toc64_reloc
, /* special_function */
960 "R_PPC64_TOC", /* name */
961 FALSE
, /* partial_inplace */
963 ONES (64), /* dst_mask */
964 FALSE
), /* pcrel_offset */
966 /* Like R_PPC64_GOT16, but also informs the link editor that the
967 value to relocate may (!) refer to a PLT entry which the link
968 editor (a) may replace with the symbol value. If the link editor
969 is unable to fully resolve the symbol, it may (b) create a PLT
970 entry and store the address to the new PLT entry in the GOT.
971 This permits lazy resolution of function symbols at run time.
972 The link editor may also skip all of this and just (c) emit a
973 R_PPC64_GLOB_DAT to tie the symbol to the GOT entry. */
974 /* FIXME: R_PPC64_PLTGOT16 not implemented. */
975 HOWTO (R_PPC64_PLTGOT16
, /* type */
977 1, /* size (0 = byte, 1 = short, 2 = long) */
979 FALSE
, /* pc_relative */
981 complain_overflow_signed
, /* complain_on_overflow */
982 ppc64_elf_unhandled_reloc
, /* special_function */
983 "R_PPC64_PLTGOT16", /* name */
984 FALSE
, /* partial_inplace */
986 0xffff, /* dst_mask */
987 FALSE
), /* pcrel_offset */
989 /* Like R_PPC64_PLTGOT16, but without overflow. */
990 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
991 HOWTO (R_PPC64_PLTGOT16_LO
, /* type */
993 1, /* size (0 = byte, 1 = short, 2 = long) */
995 FALSE
, /* pc_relative */
997 complain_overflow_dont
, /* complain_on_overflow */
998 ppc64_elf_unhandled_reloc
, /* special_function */
999 "R_PPC64_PLTGOT16_LO", /* name */
1000 FALSE
, /* partial_inplace */
1002 0xffff, /* dst_mask */
1003 FALSE
), /* pcrel_offset */
1005 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address. */
1006 /* FIXME: R_PPC64_PLTGOT16_HI not implemented. */
1007 HOWTO (R_PPC64_PLTGOT16_HI
, /* type */
1008 16, /* rightshift */
1009 1, /* size (0 = byte, 1 = short, 2 = long) */
1011 FALSE
, /* pc_relative */
1013 complain_overflow_dont
, /* complain_on_overflow */
1014 ppc64_elf_unhandled_reloc
, /* special_function */
1015 "R_PPC64_PLTGOT16_HI", /* name */
1016 FALSE
, /* partial_inplace */
1018 0xffff, /* dst_mask */
1019 FALSE
), /* pcrel_offset */
1021 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address, plus
1022 1 if the contents of the low 16 bits, treated as a signed number,
1024 /* FIXME: R_PPC64_PLTGOT16_HA not implemented. */
1025 HOWTO (R_PPC64_PLTGOT16_HA
, /* type */
1026 16, /* rightshift */
1027 1, /* size (0 = byte, 1 = short, 2 = long) */
1029 FALSE
, /* pc_relative */
1031 complain_overflow_dont
,/* complain_on_overflow */
1032 ppc64_elf_unhandled_reloc
, /* special_function */
1033 "R_PPC64_PLTGOT16_HA", /* name */
1034 FALSE
, /* partial_inplace */
1036 0xffff, /* dst_mask */
1037 FALSE
), /* pcrel_offset */
1039 /* Like R_PPC64_ADDR16, but for instructions with a DS field. */
1040 HOWTO (R_PPC64_ADDR16_DS
, /* type */
1042 1, /* size (0 = byte, 1 = short, 2 = long) */
1044 FALSE
, /* pc_relative */
1046 complain_overflow_bitfield
, /* complain_on_overflow */
1047 bfd_elf_generic_reloc
, /* special_function */
1048 "R_PPC64_ADDR16_DS", /* name */
1049 FALSE
, /* partial_inplace */
1051 0xfffc, /* dst_mask */
1052 FALSE
), /* pcrel_offset */
1054 /* Like R_PPC64_ADDR16_LO, but for instructions with a DS field. */
1055 HOWTO (R_PPC64_ADDR16_LO_DS
, /* type */
1057 1, /* size (0 = byte, 1 = short, 2 = long) */
1059 FALSE
, /* pc_relative */
1061 complain_overflow_dont
,/* complain_on_overflow */
1062 bfd_elf_generic_reloc
, /* special_function */
1063 "R_PPC64_ADDR16_LO_DS",/* name */
1064 FALSE
, /* partial_inplace */
1066 0xfffc, /* dst_mask */
1067 FALSE
), /* pcrel_offset */
1069 /* Like R_PPC64_GOT16, but for instructions with a DS field. */
1070 HOWTO (R_PPC64_GOT16_DS
, /* type */
1072 1, /* size (0 = byte, 1 = short, 2 = long) */
1074 FALSE
, /* pc_relative */
1076 complain_overflow_signed
, /* complain_on_overflow */
1077 ppc64_elf_unhandled_reloc
, /* special_function */
1078 "R_PPC64_GOT16_DS", /* name */
1079 FALSE
, /* partial_inplace */
1081 0xfffc, /* dst_mask */
1082 FALSE
), /* pcrel_offset */
1084 /* Like R_PPC64_GOT16_LO, but for instructions with a DS field. */
1085 HOWTO (R_PPC64_GOT16_LO_DS
, /* type */
1087 1, /* size (0 = byte, 1 = short, 2 = long) */
1089 FALSE
, /* pc_relative */
1091 complain_overflow_dont
, /* complain_on_overflow */
1092 ppc64_elf_unhandled_reloc
, /* special_function */
1093 "R_PPC64_GOT16_LO_DS", /* name */
1094 FALSE
, /* partial_inplace */
1096 0xfffc, /* dst_mask */
1097 FALSE
), /* pcrel_offset */
1099 /* Like R_PPC64_PLT16_LO, but for instructions with a DS field. */
1100 HOWTO (R_PPC64_PLT16_LO_DS
, /* type */
1102 1, /* size (0 = byte, 1 = short, 2 = long) */
1104 FALSE
, /* pc_relative */
1106 complain_overflow_dont
, /* complain_on_overflow */
1107 ppc64_elf_unhandled_reloc
, /* special_function */
1108 "R_PPC64_PLT16_LO_DS", /* name */
1109 FALSE
, /* partial_inplace */
1111 0xfffc, /* dst_mask */
1112 FALSE
), /* pcrel_offset */
1114 /* Like R_PPC64_SECTOFF, but for instructions with a DS field. */
1115 HOWTO (R_PPC64_SECTOFF_DS
, /* type */
1117 1, /* size (0 = byte, 1 = short, 2 = long) */
1119 FALSE
, /* pc_relative */
1121 complain_overflow_bitfield
, /* complain_on_overflow */
1122 ppc64_elf_sectoff_reloc
, /* special_function */
1123 "R_PPC64_SECTOFF_DS", /* name */
1124 FALSE
, /* partial_inplace */
1126 0xfffc, /* dst_mask */
1127 FALSE
), /* pcrel_offset */
1129 /* Like R_PPC64_SECTOFF_LO, but for instructions with a DS field. */
1130 HOWTO (R_PPC64_SECTOFF_LO_DS
, /* type */
1132 1, /* size (0 = byte, 1 = short, 2 = long) */
1134 FALSE
, /* pc_relative */
1136 complain_overflow_dont
, /* complain_on_overflow */
1137 ppc64_elf_sectoff_reloc
, /* special_function */
1138 "R_PPC64_SECTOFF_LO_DS",/* name */
1139 FALSE
, /* partial_inplace */
1141 0xfffc, /* dst_mask */
1142 FALSE
), /* pcrel_offset */
1144 /* Like R_PPC64_TOC16, but for instructions with a DS field. */
1145 HOWTO (R_PPC64_TOC16_DS
, /* type */
1147 1, /* size (0 = byte, 1 = short, 2 = long) */
1149 FALSE
, /* pc_relative */
1151 complain_overflow_signed
, /* complain_on_overflow */
1152 ppc64_elf_toc_reloc
, /* special_function */
1153 "R_PPC64_TOC16_DS", /* name */
1154 FALSE
, /* partial_inplace */
1156 0xfffc, /* dst_mask */
1157 FALSE
), /* pcrel_offset */
1159 /* Like R_PPC64_TOC16_LO, but for instructions with a DS field. */
1160 HOWTO (R_PPC64_TOC16_LO_DS
, /* type */
1162 1, /* size (0 = byte, 1 = short, 2 = long) */
1164 FALSE
, /* pc_relative */
1166 complain_overflow_dont
, /* complain_on_overflow */
1167 ppc64_elf_toc_reloc
, /* special_function */
1168 "R_PPC64_TOC16_LO_DS", /* name */
1169 FALSE
, /* partial_inplace */
1171 0xfffc, /* dst_mask */
1172 FALSE
), /* pcrel_offset */
1174 /* Like R_PPC64_PLTGOT16, but for instructions with a DS field. */
1175 /* FIXME: R_PPC64_PLTGOT16_DS not implemented. */
1176 HOWTO (R_PPC64_PLTGOT16_DS
, /* type */
1178 1, /* size (0 = byte, 1 = short, 2 = long) */
1180 FALSE
, /* pc_relative */
1182 complain_overflow_signed
, /* complain_on_overflow */
1183 ppc64_elf_unhandled_reloc
, /* special_function */
1184 "R_PPC64_PLTGOT16_DS", /* name */
1185 FALSE
, /* partial_inplace */
1187 0xfffc, /* dst_mask */
1188 FALSE
), /* pcrel_offset */
1190 /* Like R_PPC64_PLTGOT16_LO, but for instructions with a DS field. */
1191 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1192 HOWTO (R_PPC64_PLTGOT16_LO_DS
,/* type */
1194 1, /* size (0 = byte, 1 = short, 2 = long) */
1196 FALSE
, /* pc_relative */
1198 complain_overflow_dont
, /* complain_on_overflow */
1199 ppc64_elf_unhandled_reloc
, /* special_function */
1200 "R_PPC64_PLTGOT16_LO_DS",/* name */
1201 FALSE
, /* partial_inplace */
1203 0xfffc, /* dst_mask */
1204 FALSE
), /* pcrel_offset */
1206 /* Marker reloc for TLS. */
1209 2, /* size (0 = byte, 1 = short, 2 = long) */
1211 FALSE
, /* pc_relative */
1213 complain_overflow_dont
, /* complain_on_overflow */
1214 bfd_elf_generic_reloc
, /* special_function */
1215 "R_PPC64_TLS", /* name */
1216 FALSE
, /* partial_inplace */
1219 FALSE
), /* pcrel_offset */
1221 /* Computes the load module index of the load module that contains the
1222 definition of its TLS sym. */
1223 HOWTO (R_PPC64_DTPMOD64
,
1225 4, /* size (0 = byte, 1 = short, 2 = long) */
1227 FALSE
, /* pc_relative */
1229 complain_overflow_dont
, /* complain_on_overflow */
1230 ppc64_elf_unhandled_reloc
, /* special_function */
1231 "R_PPC64_DTPMOD64", /* name */
1232 FALSE
, /* partial_inplace */
1234 ONES (64), /* dst_mask */
1235 FALSE
), /* pcrel_offset */
1237 /* Computes a dtv-relative displacement, the difference between the value
1238 of sym+add and the base address of the thread-local storage block that
1239 contains the definition of sym, minus 0x8000. */
1240 HOWTO (R_PPC64_DTPREL64
,
1242 4, /* size (0 = byte, 1 = short, 2 = long) */
1244 FALSE
, /* pc_relative */
1246 complain_overflow_dont
, /* complain_on_overflow */
1247 ppc64_elf_unhandled_reloc
, /* special_function */
1248 "R_PPC64_DTPREL64", /* name */
1249 FALSE
, /* partial_inplace */
1251 ONES (64), /* dst_mask */
1252 FALSE
), /* pcrel_offset */
1254 /* A 16 bit dtprel reloc. */
1255 HOWTO (R_PPC64_DTPREL16
,
1257 1, /* size (0 = byte, 1 = short, 2 = long) */
1259 FALSE
, /* pc_relative */
1261 complain_overflow_signed
, /* complain_on_overflow */
1262 ppc64_elf_unhandled_reloc
, /* special_function */
1263 "R_PPC64_DTPREL16", /* name */
1264 FALSE
, /* partial_inplace */
1266 0xffff, /* dst_mask */
1267 FALSE
), /* pcrel_offset */
1269 /* Like DTPREL16, but no overflow. */
1270 HOWTO (R_PPC64_DTPREL16_LO
,
1272 1, /* size (0 = byte, 1 = short, 2 = long) */
1274 FALSE
, /* pc_relative */
1276 complain_overflow_dont
, /* complain_on_overflow */
1277 ppc64_elf_unhandled_reloc
, /* special_function */
1278 "R_PPC64_DTPREL16_LO", /* name */
1279 FALSE
, /* partial_inplace */
1281 0xffff, /* dst_mask */
1282 FALSE
), /* pcrel_offset */
1284 /* Like DTPREL16_LO, but next higher group of 16 bits. */
1285 HOWTO (R_PPC64_DTPREL16_HI
,
1286 16, /* rightshift */
1287 1, /* size (0 = byte, 1 = short, 2 = long) */
1289 FALSE
, /* pc_relative */
1291 complain_overflow_dont
, /* complain_on_overflow */
1292 ppc64_elf_unhandled_reloc
, /* special_function */
1293 "R_PPC64_DTPREL16_HI", /* name */
1294 FALSE
, /* partial_inplace */
1296 0xffff, /* dst_mask */
1297 FALSE
), /* pcrel_offset */
1299 /* Like DTPREL16_HI, but adjust for low 16 bits. */
1300 HOWTO (R_PPC64_DTPREL16_HA
,
1301 16, /* rightshift */
1302 1, /* size (0 = byte, 1 = short, 2 = long) */
1304 FALSE
, /* pc_relative */
1306 complain_overflow_dont
, /* complain_on_overflow */
1307 ppc64_elf_unhandled_reloc
, /* special_function */
1308 "R_PPC64_DTPREL16_HA", /* name */
1309 FALSE
, /* partial_inplace */
1311 0xffff, /* dst_mask */
1312 FALSE
), /* pcrel_offset */
1314 /* Like DTPREL16_HI, but next higher group of 16 bits. */
1315 HOWTO (R_PPC64_DTPREL16_HIGHER
,
1316 32, /* rightshift */
1317 1, /* size (0 = byte, 1 = short, 2 = long) */
1319 FALSE
, /* pc_relative */
1321 complain_overflow_dont
, /* complain_on_overflow */
1322 ppc64_elf_unhandled_reloc
, /* special_function */
1323 "R_PPC64_DTPREL16_HIGHER", /* name */
1324 FALSE
, /* partial_inplace */
1326 0xffff, /* dst_mask */
1327 FALSE
), /* pcrel_offset */
1329 /* Like DTPREL16_HIGHER, but adjust for low 16 bits. */
1330 HOWTO (R_PPC64_DTPREL16_HIGHERA
,
1331 32, /* rightshift */
1332 1, /* size (0 = byte, 1 = short, 2 = long) */
1334 FALSE
, /* pc_relative */
1336 complain_overflow_dont
, /* complain_on_overflow */
1337 ppc64_elf_unhandled_reloc
, /* special_function */
1338 "R_PPC64_DTPREL16_HIGHERA", /* name */
1339 FALSE
, /* partial_inplace */
1341 0xffff, /* dst_mask */
1342 FALSE
), /* pcrel_offset */
1344 /* Like DTPREL16_HIGHER, but next higher group of 16 bits. */
1345 HOWTO (R_PPC64_DTPREL16_HIGHEST
,
1346 48, /* rightshift */
1347 1, /* size (0 = byte, 1 = short, 2 = long) */
1349 FALSE
, /* pc_relative */
1351 complain_overflow_dont
, /* complain_on_overflow */
1352 ppc64_elf_unhandled_reloc
, /* special_function */
1353 "R_PPC64_DTPREL16_HIGHEST", /* name */
1354 FALSE
, /* partial_inplace */
1356 0xffff, /* dst_mask */
1357 FALSE
), /* pcrel_offset */
1359 /* Like DTPREL16_HIGHEST, but adjust for low 16 bits. */
1360 HOWTO (R_PPC64_DTPREL16_HIGHESTA
,
1361 48, /* rightshift */
1362 1, /* size (0 = byte, 1 = short, 2 = long) */
1364 FALSE
, /* pc_relative */
1366 complain_overflow_dont
, /* complain_on_overflow */
1367 ppc64_elf_unhandled_reloc
, /* special_function */
1368 "R_PPC64_DTPREL16_HIGHESTA", /* name */
1369 FALSE
, /* partial_inplace */
1371 0xffff, /* dst_mask */
1372 FALSE
), /* pcrel_offset */
1374 /* Like DTPREL16, but for insns with a DS field. */
1375 HOWTO (R_PPC64_DTPREL16_DS
,
1377 1, /* size (0 = byte, 1 = short, 2 = long) */
1379 FALSE
, /* pc_relative */
1381 complain_overflow_signed
, /* complain_on_overflow */
1382 ppc64_elf_unhandled_reloc
, /* special_function */
1383 "R_PPC64_DTPREL16_DS", /* name */
1384 FALSE
, /* partial_inplace */
1386 0xfffc, /* dst_mask */
1387 FALSE
), /* pcrel_offset */
1389 /* Like DTPREL16_DS, but no overflow. */
1390 HOWTO (R_PPC64_DTPREL16_LO_DS
,
1392 1, /* size (0 = byte, 1 = short, 2 = long) */
1394 FALSE
, /* pc_relative */
1396 complain_overflow_dont
, /* complain_on_overflow */
1397 ppc64_elf_unhandled_reloc
, /* special_function */
1398 "R_PPC64_DTPREL16_LO_DS", /* name */
1399 FALSE
, /* partial_inplace */
1401 0xfffc, /* dst_mask */
1402 FALSE
), /* pcrel_offset */
1404 /* Computes a tp-relative displacement, the difference between the value of
1405 sym+add and the value of the thread pointer (r13). */
1406 HOWTO (R_PPC64_TPREL64
,
1408 4, /* size (0 = byte, 1 = short, 2 = long) */
1410 FALSE
, /* pc_relative */
1412 complain_overflow_dont
, /* complain_on_overflow */
1413 ppc64_elf_unhandled_reloc
, /* special_function */
1414 "R_PPC64_TPREL64", /* name */
1415 FALSE
, /* partial_inplace */
1417 ONES (64), /* dst_mask */
1418 FALSE
), /* pcrel_offset */
1420 /* A 16 bit tprel reloc. */
1421 HOWTO (R_PPC64_TPREL16
,
1423 1, /* size (0 = byte, 1 = short, 2 = long) */
1425 FALSE
, /* pc_relative */
1427 complain_overflow_signed
, /* complain_on_overflow */
1428 ppc64_elf_unhandled_reloc
, /* special_function */
1429 "R_PPC64_TPREL16", /* name */
1430 FALSE
, /* partial_inplace */
1432 0xffff, /* dst_mask */
1433 FALSE
), /* pcrel_offset */
1435 /* Like TPREL16, but no overflow. */
1436 HOWTO (R_PPC64_TPREL16_LO
,
1438 1, /* size (0 = byte, 1 = short, 2 = long) */
1440 FALSE
, /* pc_relative */
1442 complain_overflow_dont
, /* complain_on_overflow */
1443 ppc64_elf_unhandled_reloc
, /* special_function */
1444 "R_PPC64_TPREL16_LO", /* name */
1445 FALSE
, /* partial_inplace */
1447 0xffff, /* dst_mask */
1448 FALSE
), /* pcrel_offset */
1450 /* Like TPREL16_LO, but next higher group of 16 bits. */
1451 HOWTO (R_PPC64_TPREL16_HI
,
1452 16, /* rightshift */
1453 1, /* size (0 = byte, 1 = short, 2 = long) */
1455 FALSE
, /* pc_relative */
1457 complain_overflow_dont
, /* complain_on_overflow */
1458 ppc64_elf_unhandled_reloc
, /* special_function */
1459 "R_PPC64_TPREL16_HI", /* name */
1460 FALSE
, /* partial_inplace */
1462 0xffff, /* dst_mask */
1463 FALSE
), /* pcrel_offset */
1465 /* Like TPREL16_HI, but adjust for low 16 bits. */
1466 HOWTO (R_PPC64_TPREL16_HA
,
1467 16, /* rightshift */
1468 1, /* size (0 = byte, 1 = short, 2 = long) */
1470 FALSE
, /* pc_relative */
1472 complain_overflow_dont
, /* complain_on_overflow */
1473 ppc64_elf_unhandled_reloc
, /* special_function */
1474 "R_PPC64_TPREL16_HA", /* name */
1475 FALSE
, /* partial_inplace */
1477 0xffff, /* dst_mask */
1478 FALSE
), /* pcrel_offset */
1480 /* Like TPREL16_HI, but next higher group of 16 bits. */
1481 HOWTO (R_PPC64_TPREL16_HIGHER
,
1482 32, /* rightshift */
1483 1, /* size (0 = byte, 1 = short, 2 = long) */
1485 FALSE
, /* pc_relative */
1487 complain_overflow_dont
, /* complain_on_overflow */
1488 ppc64_elf_unhandled_reloc
, /* special_function */
1489 "R_PPC64_TPREL16_HIGHER", /* name */
1490 FALSE
, /* partial_inplace */
1492 0xffff, /* dst_mask */
1493 FALSE
), /* pcrel_offset */
1495 /* Like TPREL16_HIGHER, but adjust for low 16 bits. */
1496 HOWTO (R_PPC64_TPREL16_HIGHERA
,
1497 32, /* rightshift */
1498 1, /* size (0 = byte, 1 = short, 2 = long) */
1500 FALSE
, /* pc_relative */
1502 complain_overflow_dont
, /* complain_on_overflow */
1503 ppc64_elf_unhandled_reloc
, /* special_function */
1504 "R_PPC64_TPREL16_HIGHERA", /* name */
1505 FALSE
, /* partial_inplace */
1507 0xffff, /* dst_mask */
1508 FALSE
), /* pcrel_offset */
1510 /* Like TPREL16_HIGHER, but next higher group of 16 bits. */
1511 HOWTO (R_PPC64_TPREL16_HIGHEST
,
1512 48, /* rightshift */
1513 1, /* size (0 = byte, 1 = short, 2 = long) */
1515 FALSE
, /* pc_relative */
1517 complain_overflow_dont
, /* complain_on_overflow */
1518 ppc64_elf_unhandled_reloc
, /* special_function */
1519 "R_PPC64_TPREL16_HIGHEST", /* name */
1520 FALSE
, /* partial_inplace */
1522 0xffff, /* dst_mask */
1523 FALSE
), /* pcrel_offset */
1525 /* Like TPREL16_HIGHEST, but adjust for low 16 bits. */
1526 HOWTO (R_PPC64_TPREL16_HIGHESTA
,
1527 48, /* rightshift */
1528 1, /* size (0 = byte, 1 = short, 2 = long) */
1530 FALSE
, /* pc_relative */
1532 complain_overflow_dont
, /* complain_on_overflow */
1533 ppc64_elf_unhandled_reloc
, /* special_function */
1534 "R_PPC64_TPREL16_HIGHESTA", /* name */
1535 FALSE
, /* partial_inplace */
1537 0xffff, /* dst_mask */
1538 FALSE
), /* pcrel_offset */
1540 /* Like TPREL16, but for insns with a DS field. */
1541 HOWTO (R_PPC64_TPREL16_DS
,
1543 1, /* size (0 = byte, 1 = short, 2 = long) */
1545 FALSE
, /* pc_relative */
1547 complain_overflow_signed
, /* complain_on_overflow */
1548 ppc64_elf_unhandled_reloc
, /* special_function */
1549 "R_PPC64_TPREL16_DS", /* name */
1550 FALSE
, /* partial_inplace */
1552 0xfffc, /* dst_mask */
1553 FALSE
), /* pcrel_offset */
1555 /* Like TPREL16_DS, but no overflow. */
1556 HOWTO (R_PPC64_TPREL16_LO_DS
,
1558 1, /* size (0 = byte, 1 = short, 2 = long) */
1560 FALSE
, /* pc_relative */
1562 complain_overflow_dont
, /* complain_on_overflow */
1563 ppc64_elf_unhandled_reloc
, /* special_function */
1564 "R_PPC64_TPREL16_LO_DS", /* name */
1565 FALSE
, /* partial_inplace */
1567 0xfffc, /* dst_mask */
1568 FALSE
), /* pcrel_offset */
1570 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1571 with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
1572 to the first entry relative to the TOC base (r2). */
1573 HOWTO (R_PPC64_GOT_TLSGD16
,
1575 1, /* size (0 = byte, 1 = short, 2 = long) */
1577 FALSE
, /* pc_relative */
1579 complain_overflow_signed
, /* complain_on_overflow */
1580 ppc64_elf_unhandled_reloc
, /* special_function */
1581 "R_PPC64_GOT_TLSGD16", /* name */
1582 FALSE
, /* partial_inplace */
1584 0xffff, /* dst_mask */
1585 FALSE
), /* pcrel_offset */
1587 /* Like GOT_TLSGD16, but no overflow. */
1588 HOWTO (R_PPC64_GOT_TLSGD16_LO
,
1590 1, /* size (0 = byte, 1 = short, 2 = long) */
1592 FALSE
, /* pc_relative */
1594 complain_overflow_dont
, /* complain_on_overflow */
1595 ppc64_elf_unhandled_reloc
, /* special_function */
1596 "R_PPC64_GOT_TLSGD16_LO", /* name */
1597 FALSE
, /* partial_inplace */
1599 0xffff, /* dst_mask */
1600 FALSE
), /* pcrel_offset */
1602 /* Like GOT_TLSGD16_LO, but next higher group of 16 bits. */
1603 HOWTO (R_PPC64_GOT_TLSGD16_HI
,
1604 16, /* rightshift */
1605 1, /* size (0 = byte, 1 = short, 2 = long) */
1607 FALSE
, /* pc_relative */
1609 complain_overflow_dont
, /* complain_on_overflow */
1610 ppc64_elf_unhandled_reloc
, /* special_function */
1611 "R_PPC64_GOT_TLSGD16_HI", /* name */
1612 FALSE
, /* partial_inplace */
1614 0xffff, /* dst_mask */
1615 FALSE
), /* pcrel_offset */
1617 /* Like GOT_TLSGD16_HI, but adjust for low 16 bits. */
1618 HOWTO (R_PPC64_GOT_TLSGD16_HA
,
1619 16, /* rightshift */
1620 1, /* size (0 = byte, 1 = short, 2 = long) */
1622 FALSE
, /* pc_relative */
1624 complain_overflow_dont
, /* complain_on_overflow */
1625 ppc64_elf_unhandled_reloc
, /* special_function */
1626 "R_PPC64_GOT_TLSGD16_HA", /* name */
1627 FALSE
, /* partial_inplace */
1629 0xffff, /* dst_mask */
1630 FALSE
), /* pcrel_offset */
1632 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1633 with values (sym+add)@dtpmod and zero, and computes the offset to the
1634 first entry relative to the TOC base (r2). */
1635 HOWTO (R_PPC64_GOT_TLSLD16
,
1637 1, /* size (0 = byte, 1 = short, 2 = long) */
1639 FALSE
, /* pc_relative */
1641 complain_overflow_signed
, /* complain_on_overflow */
1642 ppc64_elf_unhandled_reloc
, /* special_function */
1643 "R_PPC64_GOT_TLSLD16", /* name */
1644 FALSE
, /* partial_inplace */
1646 0xffff, /* dst_mask */
1647 FALSE
), /* pcrel_offset */
1649 /* Like GOT_TLSLD16, but no overflow. */
1650 HOWTO (R_PPC64_GOT_TLSLD16_LO
,
1652 1, /* size (0 = byte, 1 = short, 2 = long) */
1654 FALSE
, /* pc_relative */
1656 complain_overflow_dont
, /* complain_on_overflow */
1657 ppc64_elf_unhandled_reloc
, /* special_function */
1658 "R_PPC64_GOT_TLSLD16_LO", /* name */
1659 FALSE
, /* partial_inplace */
1661 0xffff, /* dst_mask */
1662 FALSE
), /* pcrel_offset */
1664 /* Like GOT_TLSLD16_LO, but next higher group of 16 bits. */
1665 HOWTO (R_PPC64_GOT_TLSLD16_HI
,
1666 16, /* rightshift */
1667 1, /* size (0 = byte, 1 = short, 2 = long) */
1669 FALSE
, /* pc_relative */
1671 complain_overflow_dont
, /* complain_on_overflow */
1672 ppc64_elf_unhandled_reloc
, /* special_function */
1673 "R_PPC64_GOT_TLSLD16_HI", /* name */
1674 FALSE
, /* partial_inplace */
1676 0xffff, /* dst_mask */
1677 FALSE
), /* pcrel_offset */
1679 /* Like GOT_TLSLD16_HI, but adjust for low 16 bits. */
1680 HOWTO (R_PPC64_GOT_TLSLD16_HA
,
1681 16, /* rightshift */
1682 1, /* size (0 = byte, 1 = short, 2 = long) */
1684 FALSE
, /* pc_relative */
1686 complain_overflow_dont
, /* complain_on_overflow */
1687 ppc64_elf_unhandled_reloc
, /* special_function */
1688 "R_PPC64_GOT_TLSLD16_HA", /* name */
1689 FALSE
, /* partial_inplace */
1691 0xffff, /* dst_mask */
1692 FALSE
), /* pcrel_offset */
1694 /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1695 the offset to the entry relative to the TOC base (r2). */
1696 HOWTO (R_PPC64_GOT_DTPREL16_DS
,
1698 1, /* size (0 = byte, 1 = short, 2 = long) */
1700 FALSE
, /* pc_relative */
1702 complain_overflow_signed
, /* complain_on_overflow */
1703 ppc64_elf_unhandled_reloc
, /* special_function */
1704 "R_PPC64_GOT_DTPREL16_DS", /* name */
1705 FALSE
, /* partial_inplace */
1707 0xfffc, /* dst_mask */
1708 FALSE
), /* pcrel_offset */
1710 /* Like GOT_DTPREL16_DS, but no overflow. */
1711 HOWTO (R_PPC64_GOT_DTPREL16_LO_DS
,
1713 1, /* size (0 = byte, 1 = short, 2 = long) */
1715 FALSE
, /* pc_relative */
1717 complain_overflow_dont
, /* complain_on_overflow */
1718 ppc64_elf_unhandled_reloc
, /* special_function */
1719 "R_PPC64_GOT_DTPREL16_LO_DS", /* name */
1720 FALSE
, /* partial_inplace */
1722 0xfffc, /* dst_mask */
1723 FALSE
), /* pcrel_offset */
1725 /* Like GOT_DTPREL16_LO_DS, but next higher group of 16 bits. */
1726 HOWTO (R_PPC64_GOT_DTPREL16_HI
,
1727 16, /* rightshift */
1728 1, /* size (0 = byte, 1 = short, 2 = long) */
1730 FALSE
, /* pc_relative */
1732 complain_overflow_dont
, /* complain_on_overflow */
1733 ppc64_elf_unhandled_reloc
, /* special_function */
1734 "R_PPC64_GOT_DTPREL16_HI", /* name */
1735 FALSE
, /* partial_inplace */
1737 0xffff, /* dst_mask */
1738 FALSE
), /* pcrel_offset */
1740 /* Like GOT_DTPREL16_HI, but adjust for low 16 bits. */
1741 HOWTO (R_PPC64_GOT_DTPREL16_HA
,
1742 16, /* rightshift */
1743 1, /* size (0 = byte, 1 = short, 2 = long) */
1745 FALSE
, /* pc_relative */
1747 complain_overflow_dont
, /* complain_on_overflow */
1748 ppc64_elf_unhandled_reloc
, /* special_function */
1749 "R_PPC64_GOT_DTPREL16_HA", /* name */
1750 FALSE
, /* partial_inplace */
1752 0xffff, /* dst_mask */
1753 FALSE
), /* pcrel_offset */
1755 /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1756 offset to the entry relative to the TOC base (r2). */
1757 HOWTO (R_PPC64_GOT_TPREL16_DS
,
1759 1, /* size (0 = byte, 1 = short, 2 = long) */
1761 FALSE
, /* pc_relative */
1763 complain_overflow_signed
, /* complain_on_overflow */
1764 ppc64_elf_unhandled_reloc
, /* special_function */
1765 "R_PPC64_GOT_TPREL16_DS", /* name */
1766 FALSE
, /* partial_inplace */
1768 0xfffc, /* dst_mask */
1769 FALSE
), /* pcrel_offset */
1771 /* Like GOT_TPREL16_DS, but no overflow. */
1772 HOWTO (R_PPC64_GOT_TPREL16_LO_DS
,
1774 1, /* size (0 = byte, 1 = short, 2 = long) */
1776 FALSE
, /* pc_relative */
1778 complain_overflow_dont
, /* complain_on_overflow */
1779 ppc64_elf_unhandled_reloc
, /* special_function */
1780 "R_PPC64_GOT_TPREL16_LO_DS", /* name */
1781 FALSE
, /* partial_inplace */
1783 0xfffc, /* dst_mask */
1784 FALSE
), /* pcrel_offset */
1786 /* Like GOT_TPREL16_LO_DS, but next higher group of 16 bits. */
1787 HOWTO (R_PPC64_GOT_TPREL16_HI
,
1788 16, /* rightshift */
1789 1, /* size (0 = byte, 1 = short, 2 = long) */
1791 FALSE
, /* pc_relative */
1793 complain_overflow_dont
, /* complain_on_overflow */
1794 ppc64_elf_unhandled_reloc
, /* special_function */
1795 "R_PPC64_GOT_TPREL16_HI", /* name */
1796 FALSE
, /* partial_inplace */
1798 0xffff, /* dst_mask */
1799 FALSE
), /* pcrel_offset */
1801 /* Like GOT_TPREL16_HI, but adjust for low 16 bits. */
1802 HOWTO (R_PPC64_GOT_TPREL16_HA
,
1803 16, /* rightshift */
1804 1, /* size (0 = byte, 1 = short, 2 = long) */
1806 FALSE
, /* pc_relative */
1808 complain_overflow_dont
, /* complain_on_overflow */
1809 ppc64_elf_unhandled_reloc
, /* special_function */
1810 "R_PPC64_GOT_TPREL16_HA", /* name */
1811 FALSE
, /* partial_inplace */
1813 0xffff, /* dst_mask */
1814 FALSE
), /* pcrel_offset */
1816 /* GNU extension to record C++ vtable hierarchy. */
1817 HOWTO (R_PPC64_GNU_VTINHERIT
, /* type */
1819 0, /* size (0 = byte, 1 = short, 2 = long) */
1821 FALSE
, /* pc_relative */
1823 complain_overflow_dont
, /* complain_on_overflow */
1824 NULL
, /* special_function */
1825 "R_PPC64_GNU_VTINHERIT", /* name */
1826 FALSE
, /* partial_inplace */
1829 FALSE
), /* pcrel_offset */
1831 /* GNU extension to record C++ vtable member usage. */
1832 HOWTO (R_PPC64_GNU_VTENTRY
, /* type */
1834 0, /* size (0 = byte, 1 = short, 2 = long) */
1836 FALSE
, /* pc_relative */
1838 complain_overflow_dont
, /* complain_on_overflow */
1839 NULL
, /* special_function */
1840 "R_PPC64_GNU_VTENTRY", /* name */
1841 FALSE
, /* partial_inplace */
1844 FALSE
), /* pcrel_offset */
1848 /* Initialize the ppc64_elf_howto_table, so that linear accesses can
1852 ppc_howto_init (void)
1854 unsigned int i
, type
;
1857 i
< sizeof (ppc64_elf_howto_raw
) / sizeof (ppc64_elf_howto_raw
[0]);
1860 type
= ppc64_elf_howto_raw
[i
].type
;
1861 BFD_ASSERT (type
< (sizeof (ppc64_elf_howto_table
)
1862 / sizeof (ppc64_elf_howto_table
[0])));
1863 ppc64_elf_howto_table
[type
] = &ppc64_elf_howto_raw
[i
];
1867 static reloc_howto_type
*
1868 ppc64_elf_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1869 bfd_reloc_code_real_type code
)
1871 enum elf_ppc64_reloc_type r
= R_PPC64_NONE
;
1873 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
1874 /* Initialize howto table if needed. */
1882 case BFD_RELOC_NONE
: r
= R_PPC64_NONE
;
1884 case BFD_RELOC_32
: r
= R_PPC64_ADDR32
;
1886 case BFD_RELOC_PPC_BA26
: r
= R_PPC64_ADDR24
;
1888 case BFD_RELOC_16
: r
= R_PPC64_ADDR16
;
1890 case BFD_RELOC_LO16
: r
= R_PPC64_ADDR16_LO
;
1892 case BFD_RELOC_HI16
: r
= R_PPC64_ADDR16_HI
;
1894 case BFD_RELOC_HI16_S
: r
= R_PPC64_ADDR16_HA
;
1896 case BFD_RELOC_PPC_BA16
: r
= R_PPC64_ADDR14
;
1898 case BFD_RELOC_PPC_BA16_BRTAKEN
: r
= R_PPC64_ADDR14_BRTAKEN
;
1900 case BFD_RELOC_PPC_BA16_BRNTAKEN
: r
= R_PPC64_ADDR14_BRNTAKEN
;
1902 case BFD_RELOC_PPC_B26
: r
= R_PPC64_REL24
;
1904 case BFD_RELOC_PPC_B16
: r
= R_PPC64_REL14
;
1906 case BFD_RELOC_PPC_B16_BRTAKEN
: r
= R_PPC64_REL14_BRTAKEN
;
1908 case BFD_RELOC_PPC_B16_BRNTAKEN
: r
= R_PPC64_REL14_BRNTAKEN
;
1910 case BFD_RELOC_16_GOTOFF
: r
= R_PPC64_GOT16
;
1912 case BFD_RELOC_LO16_GOTOFF
: r
= R_PPC64_GOT16_LO
;
1914 case BFD_RELOC_HI16_GOTOFF
: r
= R_PPC64_GOT16_HI
;
1916 case BFD_RELOC_HI16_S_GOTOFF
: r
= R_PPC64_GOT16_HA
;
1918 case BFD_RELOC_PPC_COPY
: r
= R_PPC64_COPY
;
1920 case BFD_RELOC_PPC_GLOB_DAT
: r
= R_PPC64_GLOB_DAT
;
1922 case BFD_RELOC_32_PCREL
: r
= R_PPC64_REL32
;
1924 case BFD_RELOC_32_PLTOFF
: r
= R_PPC64_PLT32
;
1926 case BFD_RELOC_32_PLT_PCREL
: r
= R_PPC64_PLTREL32
;
1928 case BFD_RELOC_LO16_PLTOFF
: r
= R_PPC64_PLT16_LO
;
1930 case BFD_RELOC_HI16_PLTOFF
: r
= R_PPC64_PLT16_HI
;
1932 case BFD_RELOC_HI16_S_PLTOFF
: r
= R_PPC64_PLT16_HA
;
1934 case BFD_RELOC_16_BASEREL
: r
= R_PPC64_SECTOFF
;
1936 case BFD_RELOC_LO16_BASEREL
: r
= R_PPC64_SECTOFF_LO
;
1938 case BFD_RELOC_HI16_BASEREL
: r
= R_PPC64_SECTOFF_HI
;
1940 case BFD_RELOC_HI16_S_BASEREL
: r
= R_PPC64_SECTOFF_HA
;
1942 case BFD_RELOC_CTOR
: r
= R_PPC64_ADDR64
;
1944 case BFD_RELOC_64
: r
= R_PPC64_ADDR64
;
1946 case BFD_RELOC_PPC64_HIGHER
: r
= R_PPC64_ADDR16_HIGHER
;
1948 case BFD_RELOC_PPC64_HIGHER_S
: r
= R_PPC64_ADDR16_HIGHERA
;
1950 case BFD_RELOC_PPC64_HIGHEST
: r
= R_PPC64_ADDR16_HIGHEST
;
1952 case BFD_RELOC_PPC64_HIGHEST_S
: r
= R_PPC64_ADDR16_HIGHESTA
;
1954 case BFD_RELOC_64_PCREL
: r
= R_PPC64_REL64
;
1956 case BFD_RELOC_64_PLTOFF
: r
= R_PPC64_PLT64
;
1958 case BFD_RELOC_64_PLT_PCREL
: r
= R_PPC64_PLTREL64
;
1960 case BFD_RELOC_PPC_TOC16
: r
= R_PPC64_TOC16
;
1962 case BFD_RELOC_PPC64_TOC16_LO
: r
= R_PPC64_TOC16_LO
;
1964 case BFD_RELOC_PPC64_TOC16_HI
: r
= R_PPC64_TOC16_HI
;
1966 case BFD_RELOC_PPC64_TOC16_HA
: r
= R_PPC64_TOC16_HA
;
1968 case BFD_RELOC_PPC64_TOC
: r
= R_PPC64_TOC
;
1970 case BFD_RELOC_PPC64_PLTGOT16
: r
= R_PPC64_PLTGOT16
;
1972 case BFD_RELOC_PPC64_PLTGOT16_LO
: r
= R_PPC64_PLTGOT16_LO
;
1974 case BFD_RELOC_PPC64_PLTGOT16_HI
: r
= R_PPC64_PLTGOT16_HI
;
1976 case BFD_RELOC_PPC64_PLTGOT16_HA
: r
= R_PPC64_PLTGOT16_HA
;
1978 case BFD_RELOC_PPC64_ADDR16_DS
: r
= R_PPC64_ADDR16_DS
;
1980 case BFD_RELOC_PPC64_ADDR16_LO_DS
: r
= R_PPC64_ADDR16_LO_DS
;
1982 case BFD_RELOC_PPC64_GOT16_DS
: r
= R_PPC64_GOT16_DS
;
1984 case BFD_RELOC_PPC64_GOT16_LO_DS
: r
= R_PPC64_GOT16_LO_DS
;
1986 case BFD_RELOC_PPC64_PLT16_LO_DS
: r
= R_PPC64_PLT16_LO_DS
;
1988 case BFD_RELOC_PPC64_SECTOFF_DS
: r
= R_PPC64_SECTOFF_DS
;
1990 case BFD_RELOC_PPC64_SECTOFF_LO_DS
: r
= R_PPC64_SECTOFF_LO_DS
;
1992 case BFD_RELOC_PPC64_TOC16_DS
: r
= R_PPC64_TOC16_DS
;
1994 case BFD_RELOC_PPC64_TOC16_LO_DS
: r
= R_PPC64_TOC16_LO_DS
;
1996 case BFD_RELOC_PPC64_PLTGOT16_DS
: r
= R_PPC64_PLTGOT16_DS
;
1998 case BFD_RELOC_PPC64_PLTGOT16_LO_DS
: r
= R_PPC64_PLTGOT16_LO_DS
;
2000 case BFD_RELOC_PPC_TLS
: r
= R_PPC64_TLS
;
2002 case BFD_RELOC_PPC_DTPMOD
: r
= R_PPC64_DTPMOD64
;
2004 case BFD_RELOC_PPC_TPREL16
: r
= R_PPC64_TPREL16
;
2006 case BFD_RELOC_PPC_TPREL16_LO
: r
= R_PPC64_TPREL16_LO
;
2008 case BFD_RELOC_PPC_TPREL16_HI
: r
= R_PPC64_TPREL16_HI
;
2010 case BFD_RELOC_PPC_TPREL16_HA
: r
= R_PPC64_TPREL16_HA
;
2012 case BFD_RELOC_PPC_TPREL
: r
= R_PPC64_TPREL64
;
2014 case BFD_RELOC_PPC_DTPREL16
: r
= R_PPC64_DTPREL16
;
2016 case BFD_RELOC_PPC_DTPREL16_LO
: r
= R_PPC64_DTPREL16_LO
;
2018 case BFD_RELOC_PPC_DTPREL16_HI
: r
= R_PPC64_DTPREL16_HI
;
2020 case BFD_RELOC_PPC_DTPREL16_HA
: r
= R_PPC64_DTPREL16_HA
;
2022 case BFD_RELOC_PPC_DTPREL
: r
= R_PPC64_DTPREL64
;
2024 case BFD_RELOC_PPC_GOT_TLSGD16
: r
= R_PPC64_GOT_TLSGD16
;
2026 case BFD_RELOC_PPC_GOT_TLSGD16_LO
: r
= R_PPC64_GOT_TLSGD16_LO
;
2028 case BFD_RELOC_PPC_GOT_TLSGD16_HI
: r
= R_PPC64_GOT_TLSGD16_HI
;
2030 case BFD_RELOC_PPC_GOT_TLSGD16_HA
: r
= R_PPC64_GOT_TLSGD16_HA
;
2032 case BFD_RELOC_PPC_GOT_TLSLD16
: r
= R_PPC64_GOT_TLSLD16
;
2034 case BFD_RELOC_PPC_GOT_TLSLD16_LO
: r
= R_PPC64_GOT_TLSLD16_LO
;
2036 case BFD_RELOC_PPC_GOT_TLSLD16_HI
: r
= R_PPC64_GOT_TLSLD16_HI
;
2038 case BFD_RELOC_PPC_GOT_TLSLD16_HA
: r
= R_PPC64_GOT_TLSLD16_HA
;
2040 case BFD_RELOC_PPC_GOT_TPREL16
: r
= R_PPC64_GOT_TPREL16_DS
;
2042 case BFD_RELOC_PPC_GOT_TPREL16_LO
: r
= R_PPC64_GOT_TPREL16_LO_DS
;
2044 case BFD_RELOC_PPC_GOT_TPREL16_HI
: r
= R_PPC64_GOT_TPREL16_HI
;
2046 case BFD_RELOC_PPC_GOT_TPREL16_HA
: r
= R_PPC64_GOT_TPREL16_HA
;
2048 case BFD_RELOC_PPC_GOT_DTPREL16
: r
= R_PPC64_GOT_DTPREL16_DS
;
2050 case BFD_RELOC_PPC_GOT_DTPREL16_LO
: r
= R_PPC64_GOT_DTPREL16_LO_DS
;
2052 case BFD_RELOC_PPC_GOT_DTPREL16_HI
: r
= R_PPC64_GOT_DTPREL16_HI
;
2054 case BFD_RELOC_PPC_GOT_DTPREL16_HA
: r
= R_PPC64_GOT_DTPREL16_HA
;
2056 case BFD_RELOC_PPC64_TPREL16_DS
: r
= R_PPC64_TPREL16_DS
;
2058 case BFD_RELOC_PPC64_TPREL16_LO_DS
: r
= R_PPC64_TPREL16_LO_DS
;
2060 case BFD_RELOC_PPC64_TPREL16_HIGHER
: r
= R_PPC64_TPREL16_HIGHER
;
2062 case BFD_RELOC_PPC64_TPREL16_HIGHERA
: r
= R_PPC64_TPREL16_HIGHERA
;
2064 case BFD_RELOC_PPC64_TPREL16_HIGHEST
: r
= R_PPC64_TPREL16_HIGHEST
;
2066 case BFD_RELOC_PPC64_TPREL16_HIGHESTA
: r
= R_PPC64_TPREL16_HIGHESTA
;
2068 case BFD_RELOC_PPC64_DTPREL16_DS
: r
= R_PPC64_DTPREL16_DS
;
2070 case BFD_RELOC_PPC64_DTPREL16_LO_DS
: r
= R_PPC64_DTPREL16_LO_DS
;
2072 case BFD_RELOC_PPC64_DTPREL16_HIGHER
: r
= R_PPC64_DTPREL16_HIGHER
;
2074 case BFD_RELOC_PPC64_DTPREL16_HIGHERA
: r
= R_PPC64_DTPREL16_HIGHERA
;
2076 case BFD_RELOC_PPC64_DTPREL16_HIGHEST
: r
= R_PPC64_DTPREL16_HIGHEST
;
2078 case BFD_RELOC_PPC64_DTPREL16_HIGHESTA
: r
= R_PPC64_DTPREL16_HIGHESTA
;
2080 case BFD_RELOC_VTABLE_INHERIT
: r
= R_PPC64_GNU_VTINHERIT
;
2082 case BFD_RELOC_VTABLE_ENTRY
: r
= R_PPC64_GNU_VTENTRY
;
2086 return ppc64_elf_howto_table
[r
];
2089 /* Set the howto pointer for a PowerPC ELF reloc. */
2092 ppc64_elf_info_to_howto (bfd
*abfd ATTRIBUTE_UNUSED
, arelent
*cache_ptr
,
2093 Elf_Internal_Rela
*dst
)
2097 /* Initialize howto table if needed. */
2098 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
2101 type
= ELF64_R_TYPE (dst
->r_info
);
2102 BFD_ASSERT (type
< (sizeof (ppc64_elf_howto_table
)
2103 / sizeof (ppc64_elf_howto_table
[0])));
2104 cache_ptr
->howto
= ppc64_elf_howto_table
[type
];
2107 /* Handle the R_PPC64_ADDR16_HA and similar relocs. */
2109 static bfd_reloc_status_type
2110 ppc64_elf_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2111 void *data
, asection
*input_section
,
2112 bfd
*output_bfd
, char **error_message
)
2114 /* If this is a relocatable link (output_bfd test tells us), just
2115 call the generic function. Any adjustment will be done at final
2117 if (output_bfd
!= NULL
)
2118 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2119 input_section
, output_bfd
, error_message
);
2121 /* Adjust the addend for sign extension of the low 16 bits.
2122 We won't actually be using the low 16 bits, so trashing them
2124 reloc_entry
->addend
+= 0x8000;
2125 return bfd_reloc_continue
;
2128 static bfd_reloc_status_type
2129 ppc64_elf_brtaken_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2130 void *data
, asection
*input_section
,
2131 bfd
*output_bfd
, char **error_message
)
2134 enum elf_ppc64_reloc_type r_type
;
2135 bfd_size_type octets
;
2136 /* Disabled until we sort out how ld should choose 'y' vs 'at'. */
2137 bfd_boolean is_power4
= FALSE
;
2139 /* If this is a relocatable link (output_bfd test tells us), just
2140 call the generic function. Any adjustment will be done at final
2142 if (output_bfd
!= NULL
)
2143 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2144 input_section
, output_bfd
, error_message
);
2146 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2147 insn
= bfd_get_32 (abfd
, (bfd_byte
*) data
+ octets
);
2148 insn
&= ~(0x01 << 21);
2149 r_type
= reloc_entry
->howto
->type
;
2150 if (r_type
== R_PPC64_ADDR14_BRTAKEN
2151 || r_type
== R_PPC64_REL14_BRTAKEN
)
2152 insn
|= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
2156 /* Set 'a' bit. This is 0b00010 in BO field for branch
2157 on CR(BI) insns (BO == 001at or 011at), and 0b01000
2158 for branch on CTR insns (BO == 1a00t or 1a01t). */
2159 if ((insn
& (0x14 << 21)) == (0x04 << 21))
2161 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
2164 return bfd_reloc_continue
;
2171 if (!bfd_is_com_section (symbol
->section
))
2172 target
= symbol
->value
;
2173 target
+= symbol
->section
->output_section
->vma
;
2174 target
+= symbol
->section
->output_offset
;
2175 target
+= reloc_entry
->addend
;
2177 from
= (reloc_entry
->address
2178 + input_section
->output_offset
2179 + input_section
->output_section
->vma
);
2181 /* Invert 'y' bit if not the default. */
2182 if ((bfd_signed_vma
) (target
- from
) < 0)
2185 bfd_put_32 (abfd
, insn
, (bfd_byte
*) data
+ octets
);
2186 return bfd_reloc_continue
;
2189 static bfd_reloc_status_type
2190 ppc64_elf_sectoff_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2191 void *data
, asection
*input_section
,
2192 bfd
*output_bfd
, char **error_message
)
2194 /* If this is a relocatable link (output_bfd test tells us), just
2195 call the generic function. Any adjustment will be done at final
2197 if (output_bfd
!= NULL
)
2198 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2199 input_section
, output_bfd
, error_message
);
2201 /* Subtract the symbol section base address. */
2202 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2203 return bfd_reloc_continue
;
2206 static bfd_reloc_status_type
2207 ppc64_elf_sectoff_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2208 void *data
, asection
*input_section
,
2209 bfd
*output_bfd
, char **error_message
)
2211 /* If this is a relocatable link (output_bfd test tells us), just
2212 call the generic function. Any adjustment will be done at final
2214 if (output_bfd
!= NULL
)
2215 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2216 input_section
, output_bfd
, error_message
);
2218 /* Subtract the symbol section base address. */
2219 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2221 /* Adjust the addend for sign extension of the low 16 bits. */
2222 reloc_entry
->addend
+= 0x8000;
2223 return bfd_reloc_continue
;
2226 static bfd_reloc_status_type
2227 ppc64_elf_toc_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2228 void *data
, asection
*input_section
,
2229 bfd
*output_bfd
, char **error_message
)
2233 /* If this is a relocatable link (output_bfd test tells us), just
2234 call the generic function. Any adjustment will be done at final
2236 if (output_bfd
!= NULL
)
2237 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2238 input_section
, output_bfd
, error_message
);
2240 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2242 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2244 /* Subtract the TOC base address. */
2245 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2246 return bfd_reloc_continue
;
2249 static bfd_reloc_status_type
2250 ppc64_elf_toc_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2251 void *data
, asection
*input_section
,
2252 bfd
*output_bfd
, char **error_message
)
2256 /* If this is a relocatable link (output_bfd test tells us), just
2257 call the generic function. Any adjustment will be done at final
2259 if (output_bfd
!= NULL
)
2260 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2261 input_section
, output_bfd
, error_message
);
2263 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2265 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2267 /* Subtract the TOC base address. */
2268 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2270 /* Adjust the addend for sign extension of the low 16 bits. */
2271 reloc_entry
->addend
+= 0x8000;
2272 return bfd_reloc_continue
;
2275 static bfd_reloc_status_type
2276 ppc64_elf_toc64_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2277 void *data
, asection
*input_section
,
2278 bfd
*output_bfd
, char **error_message
)
2281 bfd_size_type octets
;
2283 /* If this is a relocatable link (output_bfd test tells us), just
2284 call the generic function. Any adjustment will be done at final
2286 if (output_bfd
!= NULL
)
2287 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2288 input_section
, output_bfd
, error_message
);
2290 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2292 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2294 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2295 bfd_put_64 (abfd
, TOCstart
+ TOC_BASE_OFF
, (bfd_byte
*) data
+ octets
);
2296 return bfd_reloc_ok
;
2299 static bfd_reloc_status_type
2300 ppc64_elf_unhandled_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2301 void *data
, asection
*input_section
,
2302 bfd
*output_bfd
, char **error_message
)
2304 /* If this is a relocatable link (output_bfd test tells us), just
2305 call the generic function. Any adjustment will be done at final
2307 if (output_bfd
!= NULL
)
2308 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2309 input_section
, output_bfd
, error_message
);
2311 if (error_message
!= NULL
)
2313 static char buf
[60];
2314 sprintf (buf
, "generic linker can't handle %s",
2315 reloc_entry
->howto
->name
);
2316 *error_message
= buf
;
2318 return bfd_reloc_dangerous
;
2321 struct ppc64_elf_obj_tdata
2323 struct elf_obj_tdata elf
;
2325 /* Shortcuts to dynamic linker sections. */
2329 /* TLS local dynamic got entry handling. Suppose for multiple GOT
2330 sections means we potentially need one of these for each input bfd. */
2332 bfd_signed_vma refcount
;
2337 #define ppc64_elf_tdata(bfd) \
2338 ((struct ppc64_elf_obj_tdata *) (bfd)->tdata.any)
2340 #define ppc64_tlsld_got(bfd) \
2341 (&ppc64_elf_tdata (bfd)->tlsld_got)
2343 /* Override the generic function because we store some extras. */
2346 ppc64_elf_mkobject (bfd
*abfd
)
2348 bfd_size_type amt
= sizeof (struct ppc64_elf_obj_tdata
);
2349 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2350 if (abfd
->tdata
.any
== NULL
)
2355 /* Fix bad default arch selected for a 64 bit input bfd when the
2356 default is 32 bit. */
2359 ppc64_elf_object_p (bfd
*abfd
)
2361 if (abfd
->arch_info
->the_default
&& abfd
->arch_info
->bits_per_word
== 32)
2363 Elf_Internal_Ehdr
*i_ehdr
= elf_elfheader (abfd
);
2365 if (i_ehdr
->e_ident
[EI_CLASS
] == ELFCLASS64
)
2367 /* Relies on arch after 32 bit default being 64 bit default. */
2368 abfd
->arch_info
= abfd
->arch_info
->next
;
2369 BFD_ASSERT (abfd
->arch_info
->bits_per_word
== 64);
2375 /* Merge backend specific data from an object file to the output
2376 object file when linking. */
2379 ppc64_elf_merge_private_bfd_data (bfd
*ibfd
, bfd
*obfd
)
2381 /* Check if we have the same endianess. */
2382 if (ibfd
->xvec
->byteorder
!= obfd
->xvec
->byteorder
2383 && ibfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
2384 && obfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
)
2388 if (bfd_big_endian (ibfd
))
2389 msg
= _("%s: compiled for a big endian system "
2390 "and target is little endian");
2392 msg
= _("%s: compiled for a little endian system "
2393 "and target is big endian");
2395 (*_bfd_error_handler
) (msg
, bfd_archive_filename (ibfd
));
2397 bfd_set_error (bfd_error_wrong_format
);
2404 /* Add extra PPC sections. */
2406 static struct bfd_elf_special_section
const ppc64_elf_special_sections
[]=
2408 { ".sdata", 6, -2, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2409 { ".sbss", 5, -2, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
2410 { ".plt", 4, 0, SHT_NOBITS
, 0 },
2411 { ".toc", 4, 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2412 { ".toc1", 5, 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2413 { ".tocbss", 7, 0, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
2414 { NULL
, 0, 0, 0, 0 }
2417 struct _ppc64_elf_section_data
2419 struct bfd_elf_section_data elf
;
2421 /* An array with one entry for each opd function descriptor. */
2424 /* Points to the function code section for local opd entries. */
2425 asection
**func_sec
;
2426 /* After editing .opd, adjust references to opd local syms. */
2430 /* An array for toc sections, indexed by offset/8.
2431 Specifies the relocation symbol index used at a given toc offset. */
2435 #define ppc64_elf_section_data(sec) \
2436 ((struct _ppc64_elf_section_data *) elf_section_data (sec))
2439 ppc64_elf_new_section_hook (bfd
*abfd
, asection
*sec
)
2441 struct _ppc64_elf_section_data
*sdata
;
2442 bfd_size_type amt
= sizeof (*sdata
);
2444 sdata
= bfd_zalloc (abfd
, amt
);
2447 sec
->used_by_bfd
= sdata
;
2449 return _bfd_elf_new_section_hook (abfd
, sec
);
2452 /* The following functions are specific to the ELF linker, while
2453 functions above are used generally. Those named ppc64_elf_* are
2454 called by the main ELF linker code. They appear in this file more
2455 or less in the order in which they are called. eg.
2456 ppc64_elf_check_relocs is called early in the link process,
2457 ppc64_elf_finish_dynamic_sections is one of the last functions
2460 PowerPC64-ELF uses a similar scheme to PowerPC64-XCOFF in that
2461 functions have both a function code symbol and a function descriptor
2462 symbol. A call to foo in a relocatable object file looks like:
2469 The function definition in another object file might be:
2473 . .quad .TOC.@tocbase
2479 When the linker resolves the call during a static link, the branch
2480 unsurprisingly just goes to .foo and the .opd information is unused.
2481 If the function definition is in a shared library, things are a little
2482 different: The call goes via a plt call stub, the opd information gets
2483 copied to the plt, and the linker patches the nop.
2491 . addis 12,2,Lfoo@toc@ha # in practice, the call stub
2492 . addi 12,12,Lfoo@toc@l # is slightly optimized, but
2493 . std 2,40(1) # this is the general idea
2501 . Lfoo: reloc (R_PPC64_JMP_SLOT, foo)
2503 The "reloc ()" notation is supposed to indicate that the linker emits
2504 an R_PPC64_JMP_SLOT reloc against foo. The dynamic linker does the opd
2507 What are the difficulties here? Well, firstly, the relocations
2508 examined by the linker in check_relocs are against the function code
2509 sym .foo, while the dynamic relocation in the plt is emitted against
2510 the function descriptor symbol, foo. Somewhere along the line, we need
2511 to carefully copy dynamic link information from one symbol to the other.
2512 Secondly, the generic part of the elf linker will make .foo a dynamic
2513 symbol as is normal for most other backends. We need foo dynamic
2514 instead, at least for an application final link. However, when
2515 creating a shared library containing foo, we need to have both symbols
2516 dynamic so that references to .foo are satisfied during the early
2517 stages of linking. Otherwise the linker might decide to pull in a
2518 definition from some other object, eg. a static library. */
2520 /* The linker needs to keep track of the number of relocs that it
2521 decides to copy as dynamic relocs in check_relocs for each symbol.
2522 This is so that it can later discard them if they are found to be
2523 unnecessary. We store the information in a field extending the
2524 regular ELF linker hash table. */
2526 struct ppc_dyn_relocs
2528 struct ppc_dyn_relocs
*next
;
2530 /* The input section of the reloc. */
2533 /* Total number of relocs copied for the input section. */
2534 bfd_size_type count
;
2536 /* Number of pc-relative relocs copied for the input section. */
2537 bfd_size_type pc_count
;
2540 /* Track GOT entries needed for a given symbol. We might need more
2541 than one got entry per symbol. */
2544 struct got_entry
*next
;
2546 /* The symbol addend that we'll be placing in the GOT. */
2549 /* Unlike other ELF targets, we use separate GOT entries for the same
2550 symbol referenced from different input files. This is to support
2551 automatic multiple TOC/GOT sections, where the TOC base can vary
2552 from one input file to another.
2554 Point to the BFD owning this GOT entry. */
2557 /* Zero for non-tls entries, or TLS_TLS and one of TLS_GD, TLS_LD,
2558 TLS_TPREL or TLS_DTPREL for tls entries. */
2561 /* Reference count until size_dynamic_sections, GOT offset thereafter. */
2564 bfd_signed_vma refcount
;
2569 /* The same for PLT. */
2572 struct plt_entry
*next
;
2578 bfd_signed_vma refcount
;
2583 /* Of those relocs that might be copied as dynamic relocs, this macro
2584 selects those that must be copied when linking a shared library,
2585 even when the symbol is local. */
2587 #define MUST_BE_DYN_RELOC(RTYPE) \
2588 ((RTYPE) != R_PPC64_REL32 \
2589 && (RTYPE) != R_PPC64_REL64 \
2590 && (RTYPE) != R_PPC64_REL30)
2592 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
2593 copying dynamic variables from a shared lib into an app's dynbss
2594 section, and instead use a dynamic relocation to point into the
2595 shared lib. With code that gcc generates, it's vital that this be
2596 enabled; In the PowerPC64 ABI, the address of a function is actually
2597 the address of a function descriptor, which resides in the .opd
2598 section. gcc uses the descriptor directly rather than going via the
2599 GOT as some other ABI's do, which means that initialized function
2600 pointers must reference the descriptor. Thus, a function pointer
2601 initialized to the address of a function in a shared library will
2602 either require a copy reloc, or a dynamic reloc. Using a copy reloc
2603 redefines the function desctriptor symbol to point to the copy. This
2604 presents a problem as a plt entry for that function is also
2605 initialized from the function descriptor symbol and the copy reloc
2606 may not be initialized first. */
2607 #define ELIMINATE_COPY_RELOCS 1
2609 /* Section name for stubs is the associated section name plus this
2611 #define STUB_SUFFIX ".stub"
2614 ppc_stub_long_branch:
2615 Used when a 14 bit branch (or even a 24 bit branch) can't reach its
2616 destination, but a 24 bit branch in a stub section will reach.
2619 ppc_stub_plt_branch:
2620 Similar to the above, but a 24 bit branch in the stub section won't
2621 reach its destination.
2622 . addis %r12,%r2,xxx@toc@ha
2623 . ld %r11,xxx@toc@l(%r12)
2628 Used to call a function in a shared library.
2629 . addis %r12,%r2,xxx@toc@ha
2631 . ld %r11,xxx+0@toc@l(%r12)
2632 . ld %r2,xxx+8@toc@l(%r12)
2634 . ld %r11,xxx+16@toc@l(%r12)
2637 ppc_stub_long_branch and ppc_stub_plt_branch may also have additional
2638 code to adjust the value and save r2 to support multiple toc sections.
2639 A ppc_stub_long_branch with an r2 offset looks like:
2641 . addis %r2,%r2,off@ha
2642 . addi %r2,%r2,off@l
2645 A ppc_stub_plt_branch with an r2 offset looks like:
2647 . addis %r12,%r2,xxx@toc@ha
2648 . ld %r11,xxx@toc@l(%r12)
2649 . addis %r2,%r2,off@ha
2650 . addi %r2,%r2,off@l
2655 enum ppc_stub_type
{
2657 ppc_stub_long_branch
,
2658 ppc_stub_long_branch_r2off
,
2659 ppc_stub_plt_branch
,
2660 ppc_stub_plt_branch_r2off
,
2664 struct ppc_stub_hash_entry
{
2666 /* Base hash table entry structure. */
2667 struct bfd_hash_entry root
;
2669 enum ppc_stub_type stub_type
;
2671 /* The stub section. */
2674 /* Offset within stub_sec of the beginning of this stub. */
2675 bfd_vma stub_offset
;
2677 /* Given the symbol's value and its section we can determine its final
2678 value when building the stubs (so the stub knows where to jump. */
2679 bfd_vma target_value
;
2680 asection
*target_section
;
2682 /* The symbol table entry, if any, that this was derived from. */
2683 struct ppc_link_hash_entry
*h
;
2685 /* And the reloc addend that this was derived from. */
2688 /* Where this stub is being called from, or, in the case of combined
2689 stub sections, the first input section in the group. */
2693 struct ppc_branch_hash_entry
{
2695 /* Base hash table entry structure. */
2696 struct bfd_hash_entry root
;
2698 /* Offset within .branch_lt. */
2699 unsigned int offset
;
2701 /* Generation marker. */
2705 struct ppc_link_hash_entry
2707 struct elf_link_hash_entry elf
;
2709 /* A pointer to the most recently used stub hash entry against this
2711 struct ppc_stub_hash_entry
*stub_cache
;
2713 /* Track dynamic relocs copied for this symbol. */
2714 struct ppc_dyn_relocs
*dyn_relocs
;
2716 /* Link between function code and descriptor symbols. */
2717 struct elf_link_hash_entry
*oh
;
2719 /* Flag function code and descriptor symbols. */
2720 unsigned int is_func
:1;
2721 unsigned int is_func_descriptor
:1;
2722 unsigned int is_entry
:1;
2724 /* Contexts in which symbol is used in the GOT (or TOC).
2725 TLS_GD .. TLS_EXPLICIT bits are or'd into the mask as the
2726 corresponding relocs are encountered during check_relocs.
2727 tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
2728 indicate the corresponding GOT entry type is not needed.
2729 tls_optimize may also set TLS_TPRELGD when a GD reloc turns into
2730 a TPREL one. We use a separate flag rather than setting TPREL
2731 just for convenience in distinguishing the two cases. */
2732 #define TLS_GD 1 /* GD reloc. */
2733 #define TLS_LD 2 /* LD reloc. */
2734 #define TLS_TPREL 4 /* TPREL reloc, => IE. */
2735 #define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
2736 #define TLS_TLS 16 /* Any TLS reloc. */
2737 #define TLS_EXPLICIT 32 /* Marks TOC section TLS relocs. */
2738 #define TLS_TPRELGD 64 /* TPREL reloc resulting from GD->IE. */
2742 /* ppc64 ELF linker hash table. */
2744 struct ppc_link_hash_table
2746 struct elf_link_hash_table elf
;
2748 /* The stub hash table. */
2749 struct bfd_hash_table stub_hash_table
;
2751 /* Another hash table for plt_branch stubs. */
2752 struct bfd_hash_table branch_hash_table
;
2754 /* Linker stub bfd. */
2757 /* Linker call-backs. */
2758 asection
* (*add_stub_section
) (const char *, asection
*);
2759 void (*layout_sections_again
) (void);
2761 /* Array to keep track of which stub sections have been created, and
2762 information on stub grouping. */
2764 /* This is the section to which stubs in the group will be attached. */
2766 /* The stub section. */
2768 /* Along with elf_gp, specifies the TOC pointer used in this group. */
2772 /* Support for multiple toc sections. */
2773 unsigned int no_multi_toc
;
2774 unsigned int multi_toc_needed
;
2776 /* Temp used when calculating TOC pointers. */
2779 /* Highest input section id. */
2782 /* Highest output section index. */
2785 /* List of input sections for each output section. */
2786 asection
**input_list
;
2788 /* Short-cuts to get to dynamic linker sections. */
2799 /* Short-cut to first output tls section. */
2802 /* Shortcut to .__tls_get_addr. */
2803 struct elf_link_hash_entry
*tls_get_addr
;
2806 unsigned long stub_count
[ppc_stub_plt_call
];
2808 /* Set if we should emit symbols for stubs. */
2809 unsigned int emit_stub_syms
;
2812 unsigned int stub_error
;
2814 /* Flag set when small branches are detected. Used to
2815 select suitable defaults for the stub group size. */
2816 unsigned int has_14bit_branch
;
2818 /* Set if we detect a reference undefined weak symbol. */
2819 unsigned int have_undefweak
;
2821 /* Incremented every time we size stubs. */
2822 unsigned int stub_iteration
;
2824 /* Small local sym to section mapping cache. */
2825 struct sym_sec_cache sym_sec
;
2828 /* Get the ppc64 ELF linker hash table from a link_info structure. */
2830 #define ppc_hash_table(p) \
2831 ((struct ppc_link_hash_table *) ((p)->hash))
2833 #define ppc_stub_hash_lookup(table, string, create, copy) \
2834 ((struct ppc_stub_hash_entry *) \
2835 bfd_hash_lookup ((table), (string), (create), (copy)))
2837 #define ppc_branch_hash_lookup(table, string, create, copy) \
2838 ((struct ppc_branch_hash_entry *) \
2839 bfd_hash_lookup ((table), (string), (create), (copy)))
2841 /* Create an entry in the stub hash table. */
2843 static struct bfd_hash_entry
*
2844 stub_hash_newfunc (struct bfd_hash_entry
*entry
,
2845 struct bfd_hash_table
*table
,
2848 /* Allocate the structure if it has not already been allocated by a
2852 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_stub_hash_entry
));
2857 /* Call the allocation method of the superclass. */
2858 entry
= bfd_hash_newfunc (entry
, table
, string
);
2861 struct ppc_stub_hash_entry
*eh
;
2863 /* Initialize the local fields. */
2864 eh
= (struct ppc_stub_hash_entry
*) entry
;
2865 eh
->stub_type
= ppc_stub_none
;
2866 eh
->stub_sec
= NULL
;
2867 eh
->stub_offset
= 0;
2868 eh
->target_value
= 0;
2869 eh
->target_section
= NULL
;
2877 /* Create an entry in the branch hash table. */
2879 static struct bfd_hash_entry
*
2880 branch_hash_newfunc (struct bfd_hash_entry
*entry
,
2881 struct bfd_hash_table
*table
,
2884 /* Allocate the structure if it has not already been allocated by a
2888 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_branch_hash_entry
));
2893 /* Call the allocation method of the superclass. */
2894 entry
= bfd_hash_newfunc (entry
, table
, string
);
2897 struct ppc_branch_hash_entry
*eh
;
2899 /* Initialize the local fields. */
2900 eh
= (struct ppc_branch_hash_entry
*) entry
;
2908 /* Create an entry in a ppc64 ELF linker hash table. */
2910 static struct bfd_hash_entry
*
2911 link_hash_newfunc (struct bfd_hash_entry
*entry
,
2912 struct bfd_hash_table
*table
,
2915 /* Allocate the structure if it has not already been allocated by a
2919 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_link_hash_entry
));
2924 /* Call the allocation method of the superclass. */
2925 entry
= _bfd_elf_link_hash_newfunc (entry
, table
, string
);
2928 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) entry
;
2930 eh
->stub_cache
= NULL
;
2931 eh
->dyn_relocs
= NULL
;
2934 eh
->is_func_descriptor
= 0;
2942 /* Create a ppc64 ELF linker hash table. */
2944 static struct bfd_link_hash_table
*
2945 ppc64_elf_link_hash_table_create (bfd
*abfd
)
2947 struct ppc_link_hash_table
*htab
;
2948 bfd_size_type amt
= sizeof (struct ppc_link_hash_table
);
2950 htab
= bfd_zmalloc (amt
);
2954 if (! _bfd_elf_link_hash_table_init (&htab
->elf
, abfd
, link_hash_newfunc
))
2960 /* Init the stub hash table too. */
2961 if (!bfd_hash_table_init (&htab
->stub_hash_table
, stub_hash_newfunc
))
2964 /* And the branch hash table. */
2965 if (!bfd_hash_table_init (&htab
->branch_hash_table
, branch_hash_newfunc
))
2968 /* Initializing two fields of the union is just cosmetic. We really
2969 only care about glist, but when compiled on a 32-bit host the
2970 bfd_vma fields are larger. Setting the bfd_vma to zero makes
2971 debugger inspection of these fields look nicer. */
2972 htab
->elf
.init_refcount
.refcount
= 0;
2973 htab
->elf
.init_refcount
.glist
= NULL
;
2974 htab
->elf
.init_offset
.offset
= 0;
2975 htab
->elf
.init_offset
.glist
= NULL
;
2977 return &htab
->elf
.root
;
2980 /* Free the derived linker hash table. */
2983 ppc64_elf_link_hash_table_free (struct bfd_link_hash_table
*hash
)
2985 struct ppc_link_hash_table
*ret
= (struct ppc_link_hash_table
*) hash
;
2987 bfd_hash_table_free (&ret
->stub_hash_table
);
2988 bfd_hash_table_free (&ret
->branch_hash_table
);
2989 _bfd_generic_link_hash_table_free (hash
);
2992 /* Satisfy the ELF linker by filling in some fields in our fake bfd. */
2995 ppc64_elf_init_stub_bfd (bfd
*abfd
, struct bfd_link_info
*info
)
2997 struct ppc_link_hash_table
*htab
;
2999 elf_elfheader (abfd
)->e_ident
[EI_CLASS
] = ELFCLASS64
;
3001 /* Always hook our dynamic sections into the first bfd, which is the
3002 linker created stub bfd. This ensures that the GOT header is at
3003 the start of the output TOC section. */
3004 htab
= ppc_hash_table (info
);
3005 htab
->stub_bfd
= abfd
;
3006 htab
->elf
.dynobj
= abfd
;
3009 /* Build a name for an entry in the stub hash table. */
3012 ppc_stub_name (const asection
*input_section
,
3013 const asection
*sym_sec
,
3014 const struct ppc_link_hash_entry
*h
,
3015 const Elf_Internal_Rela
*rel
)
3020 /* rel->r_addend is actually 64 bit, but who uses more than +/- 2^31
3021 offsets from a sym as a branch target? In fact, we could
3022 probably assume the addend is always zero. */
3023 BFD_ASSERT (((int) rel
->r_addend
& 0xffffffff) == rel
->r_addend
);
3027 len
= 8 + 1 + strlen (h
->elf
.root
.root
.string
) + 1 + 8 + 1;
3028 stub_name
= bfd_malloc (len
);
3029 if (stub_name
!= NULL
)
3031 sprintf (stub_name
, "%08x.%s+%x",
3032 input_section
->id
& 0xffffffff,
3033 h
->elf
.root
.root
.string
,
3034 (int) rel
->r_addend
& 0xffffffff);
3039 len
= 8 + 1 + 8 + 1 + 8 + 1 + 8 + 1;
3040 stub_name
= bfd_malloc (len
);
3041 if (stub_name
!= NULL
)
3043 sprintf (stub_name
, "%08x.%x:%x+%x",
3044 input_section
->id
& 0xffffffff,
3045 sym_sec
->id
& 0xffffffff,
3046 (int) ELF64_R_SYM (rel
->r_info
) & 0xffffffff,
3047 (int) rel
->r_addend
& 0xffffffff);
3053 /* Look up an entry in the stub hash. Stub entries are cached because
3054 creating the stub name takes a bit of time. */
3056 static struct ppc_stub_hash_entry
*
3057 ppc_get_stub_entry (const asection
*input_section
,
3058 const asection
*sym_sec
,
3059 struct elf_link_hash_entry
*hash
,
3060 const Elf_Internal_Rela
*rel
,
3061 struct ppc_link_hash_table
*htab
)
3063 struct ppc_stub_hash_entry
*stub_entry
;
3064 struct ppc_link_hash_entry
*h
= (struct ppc_link_hash_entry
*) hash
;
3065 const asection
*id_sec
;
3067 /* If this input section is part of a group of sections sharing one
3068 stub section, then use the id of the first section in the group.
3069 Stub names need to include a section id, as there may well be
3070 more than one stub used to reach say, printf, and we need to
3071 distinguish between them. */
3072 id_sec
= htab
->stub_group
[input_section
->id
].link_sec
;
3074 if (h
!= NULL
&& h
->stub_cache
!= NULL
3075 && h
->stub_cache
->h
== h
3076 && h
->stub_cache
->id_sec
== id_sec
)
3078 stub_entry
= h
->stub_cache
;
3084 stub_name
= ppc_stub_name (id_sec
, sym_sec
, h
, rel
);
3085 if (stub_name
== NULL
)
3088 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
3089 stub_name
, FALSE
, FALSE
);
3091 h
->stub_cache
= stub_entry
;
3099 /* Add a new stub entry to the stub hash. Not all fields of the new
3100 stub entry are initialised. */
3102 static struct ppc_stub_hash_entry
*
3103 ppc_add_stub (const char *stub_name
,
3105 struct ppc_link_hash_table
*htab
)
3109 struct ppc_stub_hash_entry
*stub_entry
;
3111 link_sec
= htab
->stub_group
[section
->id
].link_sec
;
3112 stub_sec
= htab
->stub_group
[section
->id
].stub_sec
;
3113 if (stub_sec
== NULL
)
3115 stub_sec
= htab
->stub_group
[link_sec
->id
].stub_sec
;
3116 if (stub_sec
== NULL
)
3122 namelen
= strlen (link_sec
->name
);
3123 len
= namelen
+ sizeof (STUB_SUFFIX
);
3124 s_name
= bfd_alloc (htab
->stub_bfd
, len
);
3128 memcpy (s_name
, link_sec
->name
, namelen
);
3129 memcpy (s_name
+ namelen
, STUB_SUFFIX
, sizeof (STUB_SUFFIX
));
3130 stub_sec
= (*htab
->add_stub_section
) (s_name
, link_sec
);
3131 if (stub_sec
== NULL
)
3133 htab
->stub_group
[link_sec
->id
].stub_sec
= stub_sec
;
3135 htab
->stub_group
[section
->id
].stub_sec
= stub_sec
;
3138 /* Enter this entry into the linker stub hash table. */
3139 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
, stub_name
,
3141 if (stub_entry
== NULL
)
3143 (*_bfd_error_handler
) (_("%s: cannot create stub entry %s"),
3144 bfd_archive_filename (section
->owner
),
3149 stub_entry
->stub_sec
= stub_sec
;
3150 stub_entry
->stub_offset
= 0;
3151 stub_entry
->id_sec
= link_sec
;
3155 /* Create sections for linker generated code. */
3158 create_linkage_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
3160 struct ppc_link_hash_table
*htab
;
3163 htab
= ppc_hash_table (info
);
3165 /* Create .sfpr for code to save and restore fp regs. */
3166 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_CODE
| SEC_READONLY
3167 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3168 htab
->sfpr
= bfd_make_section_anyway (dynobj
, ".sfpr");
3169 if (htab
->sfpr
== NULL
3170 || ! bfd_set_section_flags (dynobj
, htab
->sfpr
, flags
)
3171 || ! bfd_set_section_alignment (dynobj
, htab
->sfpr
, 2))
3174 /* Create .glink for lazy dynamic linking support. */
3175 htab
->glink
= bfd_make_section_anyway (dynobj
, ".glink");
3176 if (htab
->glink
== NULL
3177 || ! bfd_set_section_flags (dynobj
, htab
->glink
, flags
)
3178 || ! bfd_set_section_alignment (dynobj
, htab
->glink
, 2))
3181 /* Create .branch_lt for plt_branch stubs. */
3182 flags
= (SEC_ALLOC
| SEC_LOAD
3183 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3184 htab
->brlt
= bfd_make_section_anyway (dynobj
, ".branch_lt");
3185 if (htab
->brlt
== NULL
3186 || ! bfd_set_section_flags (dynobj
, htab
->brlt
, flags
)
3187 || ! bfd_set_section_alignment (dynobj
, htab
->brlt
, 3))
3192 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
3193 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3194 htab
->relbrlt
= bfd_make_section_anyway (dynobj
, ".rela.branch_lt");
3196 || ! bfd_set_section_flags (dynobj
, htab
->relbrlt
, flags
)
3197 || ! bfd_set_section_alignment (dynobj
, htab
->relbrlt
, 3))
3203 /* Create .got and .rela.got sections in ABFD, and .got in dynobj if
3204 not already done. */
3207 create_got_section (bfd
*abfd
, struct bfd_link_info
*info
)
3209 asection
*got
, *relgot
;
3211 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
3215 if (! _bfd_elf_create_got_section (htab
->elf
.dynobj
, info
))
3218 htab
->got
= bfd_get_section_by_name (htab
->elf
.dynobj
, ".got");
3223 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
3224 | SEC_LINKER_CREATED
);
3226 got
= bfd_make_section (abfd
, ".got");
3228 || !bfd_set_section_flags (abfd
, got
, flags
)
3229 || !bfd_set_section_alignment (abfd
, got
, 3))
3232 relgot
= bfd_make_section (abfd
, ".rela.got");
3234 || ! bfd_set_section_flags (abfd
, relgot
, flags
| SEC_READONLY
)
3235 || ! bfd_set_section_alignment (abfd
, relgot
, 3))
3238 ppc64_elf_tdata (abfd
)->got
= got
;
3239 ppc64_elf_tdata (abfd
)->relgot
= relgot
;
3243 /* Create the dynamic sections, and set up shortcuts. */
3246 ppc64_elf_create_dynamic_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
3248 struct ppc_link_hash_table
*htab
;
3250 if (!_bfd_elf_create_dynamic_sections (dynobj
, info
))
3253 htab
= ppc_hash_table (info
);
3255 htab
->got
= bfd_get_section_by_name (dynobj
, ".got");
3256 htab
->plt
= bfd_get_section_by_name (dynobj
, ".plt");
3257 htab
->relplt
= bfd_get_section_by_name (dynobj
, ".rela.plt");
3258 htab
->dynbss
= bfd_get_section_by_name (dynobj
, ".dynbss");
3260 htab
->relbss
= bfd_get_section_by_name (dynobj
, ".rela.bss");
3262 if (!htab
->got
|| !htab
->plt
|| !htab
->relplt
|| !htab
->dynbss
3263 || (!info
->shared
&& !htab
->relbss
))
3269 /* Copy the extra info we tack onto an elf_link_hash_entry. */
3272 ppc64_elf_copy_indirect_symbol
3273 (const struct elf_backend_data
*bed ATTRIBUTE_UNUSED
,
3274 struct elf_link_hash_entry
*dir
,
3275 struct elf_link_hash_entry
*ind
)
3277 struct ppc_link_hash_entry
*edir
, *eind
;
3280 edir
= (struct ppc_link_hash_entry
*) dir
;
3281 eind
= (struct ppc_link_hash_entry
*) ind
;
3283 /* Copy over any dynamic relocs we may have on the indirect sym. */
3284 if (eind
->dyn_relocs
!= NULL
)
3286 if (edir
->dyn_relocs
!= NULL
)
3288 struct ppc_dyn_relocs
**pp
;
3289 struct ppc_dyn_relocs
*p
;
3291 if (eind
->elf
.root
.type
== bfd_link_hash_indirect
)
3294 /* Add reloc counts against the weak sym to the strong sym
3295 list. Merge any entries against the same section. */
3296 for (pp
= &eind
->dyn_relocs
; (p
= *pp
) != NULL
; )
3298 struct ppc_dyn_relocs
*q
;
3300 for (q
= edir
->dyn_relocs
; q
!= NULL
; q
= q
->next
)
3301 if (q
->sec
== p
->sec
)
3303 q
->pc_count
+= p
->pc_count
;
3304 q
->count
+= p
->count
;
3311 *pp
= edir
->dyn_relocs
;
3314 edir
->dyn_relocs
= eind
->dyn_relocs
;
3315 eind
->dyn_relocs
= NULL
;
3318 edir
->is_func
|= eind
->is_func
;
3319 edir
->is_func_descriptor
|= eind
->is_func_descriptor
;
3320 edir
->is_entry
|= eind
->is_entry
;
3321 edir
->tls_mask
|= eind
->tls_mask
;
3323 mask
= (ELF_LINK_HASH_REF_DYNAMIC
| ELF_LINK_HASH_REF_REGULAR
3324 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
| ELF_LINK_NON_GOT_REF
);
3325 /* If called to transfer flags for a weakdef during processing
3326 of elf_adjust_dynamic_symbol, don't copy ELF_LINK_NON_GOT_REF.
3327 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
3328 if (ELIMINATE_COPY_RELOCS
3329 && eind
->elf
.root
.type
!= bfd_link_hash_indirect
3330 && (edir
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DYNAMIC_ADJUSTED
) != 0)
3331 mask
&= ~ELF_LINK_NON_GOT_REF
;
3333 edir
->elf
.elf_link_hash_flags
|= eind
->elf
.elf_link_hash_flags
& mask
;
3335 /* If we were called to copy over info for a weak sym, that's all. */
3336 if (eind
->elf
.root
.type
!= bfd_link_hash_indirect
)
3339 /* Copy over got entries that we may have already seen to the
3340 symbol which just became indirect. */
3341 if (eind
->elf
.got
.glist
!= NULL
)
3343 if (edir
->elf
.got
.glist
!= NULL
)
3345 struct got_entry
**entp
;
3346 struct got_entry
*ent
;
3348 for (entp
= &eind
->elf
.got
.glist
; (ent
= *entp
) != NULL
; )
3350 struct got_entry
*dent
;
3352 for (dent
= edir
->elf
.got
.glist
; dent
!= NULL
; dent
= dent
->next
)
3353 if (dent
->addend
== ent
->addend
3354 && dent
->owner
== ent
->owner
3355 && dent
->tls_type
== ent
->tls_type
)
3357 dent
->got
.refcount
+= ent
->got
.refcount
;
3364 *entp
= edir
->elf
.got
.glist
;
3367 edir
->elf
.got
.glist
= eind
->elf
.got
.glist
;
3368 eind
->elf
.got
.glist
= NULL
;
3371 /* And plt entries. */
3372 if (eind
->elf
.plt
.plist
!= NULL
)
3374 if (edir
->elf
.plt
.plist
!= NULL
)
3376 struct plt_entry
**entp
;
3377 struct plt_entry
*ent
;
3379 for (entp
= &eind
->elf
.plt
.plist
; (ent
= *entp
) != NULL
; )
3381 struct plt_entry
*dent
;
3383 for (dent
= edir
->elf
.plt
.plist
; dent
!= NULL
; dent
= dent
->next
)
3384 if (dent
->addend
== ent
->addend
)
3386 dent
->plt
.refcount
+= ent
->plt
.refcount
;
3393 *entp
= edir
->elf
.plt
.plist
;
3396 edir
->elf
.plt
.plist
= eind
->elf
.plt
.plist
;
3397 eind
->elf
.plt
.plist
= NULL
;
3400 if (edir
->elf
.dynindx
== -1)
3402 edir
->elf
.dynindx
= eind
->elf
.dynindx
;
3403 edir
->elf
.dynstr_index
= eind
->elf
.dynstr_index
;
3404 eind
->elf
.dynindx
= -1;
3405 eind
->elf
.dynstr_index
= 0;
3408 BFD_ASSERT (eind
->elf
.dynindx
== -1);
3411 /* Set a flag, used by ppc64_elf_gc_mark_hook, on the entry symbol and
3412 symbols undefined on the command-line. */
3415 ppc64_elf_mark_entry_syms (struct bfd_link_info
*info
)
3417 struct ppc_link_hash_table
*htab
;
3418 struct bfd_sym_chain
*sym
;
3420 htab
= ppc_hash_table (info
);
3421 for (sym
= info
->gc_sym_list
; sym
; sym
= sym
->next
)
3423 struct elf_link_hash_entry
*h
;
3425 h
= elf_link_hash_lookup (&htab
->elf
, sym
->name
, FALSE
, FALSE
, FALSE
);
3427 ((struct ppc_link_hash_entry
*) h
)->is_entry
= 1;
3433 update_local_sym_info (bfd
*abfd
, Elf_Internal_Shdr
*symtab_hdr
,
3434 unsigned long r_symndx
, bfd_vma r_addend
, int tls_type
)
3436 struct got_entry
**local_got_ents
= elf_local_got_ents (abfd
);
3437 char *local_got_tls_masks
;
3439 if (local_got_ents
== NULL
)
3441 bfd_size_type size
= symtab_hdr
->sh_info
;
3443 size
*= sizeof (*local_got_ents
) + sizeof (*local_got_tls_masks
);
3444 local_got_ents
= bfd_zalloc (abfd
, size
);
3445 if (local_got_ents
== NULL
)
3447 elf_local_got_ents (abfd
) = local_got_ents
;
3450 if ((tls_type
& TLS_EXPLICIT
) == 0)
3452 struct got_entry
*ent
;
3454 for (ent
= local_got_ents
[r_symndx
]; ent
!= NULL
; ent
= ent
->next
)
3455 if (ent
->addend
== r_addend
3456 && ent
->owner
== abfd
3457 && ent
->tls_type
== tls_type
)
3461 bfd_size_type amt
= sizeof (*ent
);
3462 ent
= bfd_alloc (abfd
, amt
);
3465 ent
->next
= local_got_ents
[r_symndx
];
3466 ent
->addend
= r_addend
;
3468 ent
->tls_type
= tls_type
;
3469 ent
->got
.refcount
= 0;
3470 local_got_ents
[r_symndx
] = ent
;
3472 ent
->got
.refcount
+= 1;
3475 local_got_tls_masks
= (char *) (local_got_ents
+ symtab_hdr
->sh_info
);
3476 local_got_tls_masks
[r_symndx
] |= tls_type
;
3481 update_plt_info (bfd
*abfd
, struct ppc_link_hash_entry
*eh
, bfd_vma addend
)
3483 struct plt_entry
*ent
;
3485 for (ent
= eh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
3486 if (ent
->addend
== addend
)
3490 bfd_size_type amt
= sizeof (*ent
);
3491 ent
= bfd_alloc (abfd
, amt
);
3494 ent
->next
= eh
->elf
.plt
.plist
;
3495 ent
->addend
= addend
;
3496 ent
->plt
.refcount
= 0;
3497 eh
->elf
.plt
.plist
= ent
;
3499 ent
->plt
.refcount
+= 1;
3500 eh
->elf
.elf_link_hash_flags
|= ELF_LINK_HASH_NEEDS_PLT
;
3505 /* Find the function descriptor hash entry from the given function code
3506 hash entry FH. Link the entries via their OH fields. */
3507 static struct ppc_link_hash_entry
*
3508 get_fdh (struct ppc_link_hash_entry
*fh
, struct ppc_link_hash_table
*htab
)
3510 struct ppc_link_hash_entry
*fdh
= (struct ppc_link_hash_entry
*) fh
->oh
;
3514 const char *fd_name
= fh
->elf
.root
.root
.string
+ 1;
3516 fdh
= (struct ppc_link_hash_entry
*)
3517 elf_link_hash_lookup (&htab
->elf
, fd_name
, FALSE
, FALSE
, FALSE
);
3520 fdh
->is_func_descriptor
= 1;
3530 /* Look through the relocs for a section during the first phase, and
3531 calculate needed space in the global offset table, procedure
3532 linkage table, and dynamic reloc sections. */
3535 ppc64_elf_check_relocs (bfd
*abfd
, struct bfd_link_info
*info
,
3536 asection
*sec
, const Elf_Internal_Rela
*relocs
)
3538 struct ppc_link_hash_table
*htab
;
3539 Elf_Internal_Shdr
*symtab_hdr
;
3540 struct elf_link_hash_entry
**sym_hashes
, **sym_hashes_end
;
3541 const Elf_Internal_Rela
*rel
;
3542 const Elf_Internal_Rela
*rel_end
;
3544 asection
**opd_sym_map
;
3546 if (info
->relocatable
)
3549 htab
= ppc_hash_table (info
);
3550 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
3552 sym_hashes
= elf_sym_hashes (abfd
);
3553 sym_hashes_end
= (sym_hashes
3554 + symtab_hdr
->sh_size
/ sizeof (Elf64_External_Sym
)
3555 - symtab_hdr
->sh_info
);
3559 if (strcmp (bfd_get_section_name (abfd
, sec
), ".opd") == 0)
3561 /* Garbage collection needs some extra help with .opd sections.
3562 We don't want to necessarily keep everything referenced by
3563 relocs in .opd, as that would keep all functions. Instead,
3564 if we reference an .opd symbol (a function descriptor), we
3565 want to keep the function code symbol's section. This is
3566 easy for global symbols, but for local syms we need to keep
3567 information about the associated function section. Later, if
3568 edit_opd deletes entries, we'll use this array to adjust
3569 local syms in .opd. */
3571 asection
*func_section
;
3576 amt
= sec
->_raw_size
* sizeof (union opd_info
) / 24;
3577 opd_sym_map
= bfd_zalloc (abfd
, amt
);
3578 if (opd_sym_map
== NULL
)
3580 ppc64_elf_section_data (sec
)->opd
.func_sec
= opd_sym_map
;
3583 if (htab
->sfpr
== NULL
3584 && !create_linkage_sections (htab
->elf
.dynobj
, info
))
3587 rel_end
= relocs
+ sec
->reloc_count
;
3588 for (rel
= relocs
; rel
< rel_end
; rel
++)
3590 unsigned long r_symndx
;
3591 struct elf_link_hash_entry
*h
;
3592 enum elf_ppc64_reloc_type r_type
;
3595 r_symndx
= ELF64_R_SYM (rel
->r_info
);
3596 if (r_symndx
< symtab_hdr
->sh_info
)
3599 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
3601 r_type
= ELF64_R_TYPE (rel
->r_info
);
3604 case R_PPC64_GOT_TLSLD16
:
3605 case R_PPC64_GOT_TLSLD16_LO
:
3606 case R_PPC64_GOT_TLSLD16_HI
:
3607 case R_PPC64_GOT_TLSLD16_HA
:
3608 ppc64_tlsld_got (abfd
)->refcount
+= 1;
3609 tls_type
= TLS_TLS
| TLS_LD
;
3612 case R_PPC64_GOT_TLSGD16
:
3613 case R_PPC64_GOT_TLSGD16_LO
:
3614 case R_PPC64_GOT_TLSGD16_HI
:
3615 case R_PPC64_GOT_TLSGD16_HA
:
3616 tls_type
= TLS_TLS
| TLS_GD
;
3619 case R_PPC64_GOT_TPREL16_DS
:
3620 case R_PPC64_GOT_TPREL16_LO_DS
:
3621 case R_PPC64_GOT_TPREL16_HI
:
3622 case R_PPC64_GOT_TPREL16_HA
:
3624 info
->flags
|= DF_STATIC_TLS
;
3625 tls_type
= TLS_TLS
| TLS_TPREL
;
3628 case R_PPC64_GOT_DTPREL16_DS
:
3629 case R_PPC64_GOT_DTPREL16_LO_DS
:
3630 case R_PPC64_GOT_DTPREL16_HI
:
3631 case R_PPC64_GOT_DTPREL16_HA
:
3632 tls_type
= TLS_TLS
| TLS_DTPREL
;
3634 sec
->has_tls_reloc
= 1;
3638 case R_PPC64_GOT16_DS
:
3639 case R_PPC64_GOT16_HA
:
3640 case R_PPC64_GOT16_HI
:
3641 case R_PPC64_GOT16_LO
:
3642 case R_PPC64_GOT16_LO_DS
:
3643 /* This symbol requires a global offset table entry. */
3644 sec
->has_gp_reloc
= 1;
3645 if (ppc64_elf_tdata (abfd
)->got
== NULL
3646 && !create_got_section (abfd
, info
))
3651 struct ppc_link_hash_entry
*eh
;
3652 struct got_entry
*ent
;
3654 eh
= (struct ppc_link_hash_entry
*) h
;
3655 for (ent
= eh
->elf
.got
.glist
; ent
!= NULL
; ent
= ent
->next
)
3656 if (ent
->addend
== rel
->r_addend
3657 && ent
->owner
== abfd
3658 && ent
->tls_type
== tls_type
)
3662 bfd_size_type amt
= sizeof (*ent
);
3663 ent
= bfd_alloc (abfd
, amt
);
3666 ent
->next
= eh
->elf
.got
.glist
;
3667 ent
->addend
= rel
->r_addend
;
3669 ent
->tls_type
= tls_type
;
3670 ent
->got
.refcount
= 0;
3671 eh
->elf
.got
.glist
= ent
;
3673 ent
->got
.refcount
+= 1;
3674 eh
->tls_mask
|= tls_type
;
3677 /* This is a global offset table entry for a local symbol. */
3678 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
3679 rel
->r_addend
, tls_type
))
3683 case R_PPC64_PLT16_HA
:
3684 case R_PPC64_PLT16_HI
:
3685 case R_PPC64_PLT16_LO
:
3688 /* This symbol requires a procedure linkage table entry. We
3689 actually build the entry in adjust_dynamic_symbol,
3690 because this might be a case of linking PIC code without
3691 linking in any dynamic objects, in which case we don't
3692 need to generate a procedure linkage table after all. */
3695 /* It does not make sense to have a procedure linkage
3696 table entry for a local symbol. */
3697 bfd_set_error (bfd_error_bad_value
);
3701 if (!update_plt_info (abfd
, (struct ppc_link_hash_entry
*) h
,
3706 /* The following relocations don't need to propagate the
3707 relocation if linking a shared object since they are
3708 section relative. */
3709 case R_PPC64_SECTOFF
:
3710 case R_PPC64_SECTOFF_LO
:
3711 case R_PPC64_SECTOFF_HI
:
3712 case R_PPC64_SECTOFF_HA
:
3713 case R_PPC64_SECTOFF_DS
:
3714 case R_PPC64_SECTOFF_LO_DS
:
3715 case R_PPC64_DTPREL16
:
3716 case R_PPC64_DTPREL16_LO
:
3717 case R_PPC64_DTPREL16_HI
:
3718 case R_PPC64_DTPREL16_HA
:
3719 case R_PPC64_DTPREL16_DS
:
3720 case R_PPC64_DTPREL16_LO_DS
:
3721 case R_PPC64_DTPREL16_HIGHER
:
3722 case R_PPC64_DTPREL16_HIGHERA
:
3723 case R_PPC64_DTPREL16_HIGHEST
:
3724 case R_PPC64_DTPREL16_HIGHESTA
:
3729 case R_PPC64_TOC16_LO
:
3730 case R_PPC64_TOC16_HI
:
3731 case R_PPC64_TOC16_HA
:
3732 case R_PPC64_TOC16_DS
:
3733 case R_PPC64_TOC16_LO_DS
:
3734 sec
->has_gp_reloc
= 1;
3737 /* This relocation describes the C++ object vtable hierarchy.
3738 Reconstruct it for later use during GC. */
3739 case R_PPC64_GNU_VTINHERIT
:
3740 if (!_bfd_elf64_gc_record_vtinherit (abfd
, sec
, h
, rel
->r_offset
))
3744 /* This relocation describes which C++ vtable entries are actually
3745 used. Record for later use during GC. */
3746 case R_PPC64_GNU_VTENTRY
:
3747 if (!_bfd_elf64_gc_record_vtentry (abfd
, sec
, h
, rel
->r_addend
))
3752 case R_PPC64_REL14_BRTAKEN
:
3753 case R_PPC64_REL14_BRNTAKEN
:
3754 htab
->has_14bit_branch
= 1;
3759 && h
->root
.root
.string
[0] == '.'
3760 && h
->root
.root
.string
[1] != 0)
3762 /* We may need a .plt entry if the function this reloc
3763 refers to is in a shared lib. */
3764 if (!update_plt_info (abfd
, (struct ppc_link_hash_entry
*) h
,
3767 if (h
== htab
->tls_get_addr
)
3768 sec
->has_tls_reloc
= 1;
3769 else if ((strncmp (h
->root
.root
.string
, ".__tls_get_addr", 15)
3771 && (h
->root
.root
.string
[15] == 0
3772 || h
->root
.root
.string
[15] == '@'))
3774 htab
->tls_get_addr
= h
;
3775 sec
->has_tls_reloc
= 1;
3780 case R_PPC64_TPREL64
:
3781 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_TPREL
;
3783 info
->flags
|= DF_STATIC_TLS
;
3786 case R_PPC64_DTPMOD64
:
3787 if (rel
+ 1 < rel_end
3788 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
3789 && rel
[1].r_offset
== rel
->r_offset
+ 8)
3790 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_GD
;
3792 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_LD
;
3795 case R_PPC64_DTPREL64
:
3796 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_DTPREL
;
3798 && rel
[-1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPMOD64
)
3799 && rel
[-1].r_offset
== rel
->r_offset
- 8)
3800 /* This is the second reloc of a dtpmod, dtprel pair.
3801 Don't mark with TLS_DTPREL. */
3805 sec
->has_tls_reloc
= 1;
3808 struct ppc_link_hash_entry
*eh
;
3809 eh
= (struct ppc_link_hash_entry
*) h
;
3810 eh
->tls_mask
|= tls_type
;
3813 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
3814 rel
->r_addend
, tls_type
))
3817 if (ppc64_elf_section_data (sec
)->t_symndx
== NULL
)
3819 /* One extra to simplify get_tls_mask. */
3820 bfd_size_type amt
= sec
->_raw_size
* sizeof (unsigned) / 8 + 1;
3821 ppc64_elf_section_data (sec
)->t_symndx
= bfd_zalloc (abfd
, amt
);
3822 if (ppc64_elf_section_data (sec
)->t_symndx
== NULL
)
3825 BFD_ASSERT (rel
->r_offset
% 8 == 0);
3826 ppc64_elf_section_data (sec
)->t_symndx
[rel
->r_offset
/ 8] = r_symndx
;
3828 /* Mark the second slot of a GD or LD entry.
3829 -1 to indicate GD and -2 to indicate LD. */
3830 if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_GD
))
3831 ppc64_elf_section_data (sec
)->t_symndx
[rel
->r_offset
/ 8 + 1] = -1;
3832 else if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_LD
))
3833 ppc64_elf_section_data (sec
)->t_symndx
[rel
->r_offset
/ 8 + 1] = -2;
3836 case R_PPC64_TPREL16
:
3837 case R_PPC64_TPREL16_LO
:
3838 case R_PPC64_TPREL16_HI
:
3839 case R_PPC64_TPREL16_HA
:
3840 case R_PPC64_TPREL16_DS
:
3841 case R_PPC64_TPREL16_LO_DS
:
3842 case R_PPC64_TPREL16_HIGHER
:
3843 case R_PPC64_TPREL16_HIGHERA
:
3844 case R_PPC64_TPREL16_HIGHEST
:
3845 case R_PPC64_TPREL16_HIGHESTA
:
3848 info
->flags
|= DF_STATIC_TLS
;
3853 case R_PPC64_ADDR64
:
3854 if (opd_sym_map
!= NULL
3856 && h
->root
.root
.string
[0] == '.'
3857 && h
->root
.root
.string
[1] != 0)
3858 get_fdh ((struct ppc_link_hash_entry
*) h
, htab
);
3860 if (opd_sym_map
!= NULL
3862 && rel
+ 1 < rel_end
3863 && ELF64_R_TYPE ((rel
+ 1)->r_info
) == R_PPC64_TOC
)
3867 s
= bfd_section_from_r_symndx (abfd
, &htab
->sym_sec
, sec
,
3872 opd_sym_map
[rel
->r_offset
/ 24] = s
;
3879 case R_PPC64_ADDR14
:
3880 case R_PPC64_ADDR14_BRNTAKEN
:
3881 case R_PPC64_ADDR14_BRTAKEN
:
3882 case R_PPC64_ADDR16
:
3883 case R_PPC64_ADDR16_DS
:
3884 case R_PPC64_ADDR16_HA
:
3885 case R_PPC64_ADDR16_HI
:
3886 case R_PPC64_ADDR16_HIGHER
:
3887 case R_PPC64_ADDR16_HIGHERA
:
3888 case R_PPC64_ADDR16_HIGHEST
:
3889 case R_PPC64_ADDR16_HIGHESTA
:
3890 case R_PPC64_ADDR16_LO
:
3891 case R_PPC64_ADDR16_LO_DS
:
3892 case R_PPC64_ADDR24
:
3893 case R_PPC64_ADDR32
:
3894 case R_PPC64_UADDR16
:
3895 case R_PPC64_UADDR32
:
3896 case R_PPC64_UADDR64
:
3898 if (h
!= NULL
&& !info
->shared
)
3899 /* We may need a copy reloc. */
3900 h
->elf_link_hash_flags
|= ELF_LINK_NON_GOT_REF
;
3902 /* Don't propagate .opd relocs. */
3903 if (NO_OPD_RELOCS
&& opd_sym_map
!= NULL
)
3906 /* Don't propagate relocs that the dynamic linker won't relocate. */
3907 if ((sec
->flags
& SEC_ALLOC
) == 0)
3910 /* If we are creating a shared library, and this is a reloc
3911 against a global symbol, or a non PC relative reloc
3912 against a local symbol, then we need to copy the reloc
3913 into the shared library. However, if we are linking with
3914 -Bsymbolic, we do not need to copy a reloc against a
3915 global symbol which is defined in an object we are
3916 including in the link (i.e., DEF_REGULAR is set). At
3917 this point we have not seen all the input files, so it is
3918 possible that DEF_REGULAR is not set now but will be set
3919 later (it is never cleared). In case of a weak definition,
3920 DEF_REGULAR may be cleared later by a strong definition in
3921 a shared library. We account for that possibility below by
3922 storing information in the dyn_relocs field of the hash
3923 table entry. A similar situation occurs when creating
3924 shared libraries and symbol visibility changes render the
3927 If on the other hand, we are creating an executable, we
3928 may need to keep relocations for symbols satisfied by a
3929 dynamic library if we manage to avoid copy relocs for the
3933 && (MUST_BE_DYN_RELOC (r_type
)
3935 && (! info
->symbolic
3936 || h
->root
.type
== bfd_link_hash_defweak
3937 || (h
->elf_link_hash_flags
3938 & ELF_LINK_HASH_DEF_REGULAR
) == 0))))
3939 || (ELIMINATE_COPY_RELOCS
3942 && (h
->root
.type
== bfd_link_hash_defweak
3943 || (h
->elf_link_hash_flags
3944 & ELF_LINK_HASH_DEF_REGULAR
) == 0)))
3946 struct ppc_dyn_relocs
*p
;
3947 struct ppc_dyn_relocs
**head
;
3949 /* We must copy these reloc types into the output file.
3950 Create a reloc section in dynobj and make room for
3957 name
= (bfd_elf_string_from_elf_section
3959 elf_elfheader (abfd
)->e_shstrndx
,
3960 elf_section_data (sec
)->rel_hdr
.sh_name
));
3964 if (strncmp (name
, ".rela", 5) != 0
3965 || strcmp (bfd_get_section_name (abfd
, sec
),
3968 (*_bfd_error_handler
)
3969 (_("%s: bad relocation section name `%s\'"),
3970 bfd_archive_filename (abfd
), name
);
3971 bfd_set_error (bfd_error_bad_value
);
3974 dynobj
= htab
->elf
.dynobj
;
3975 sreloc
= bfd_get_section_by_name (dynobj
, name
);
3980 sreloc
= bfd_make_section (dynobj
, name
);
3981 flags
= (SEC_HAS_CONTENTS
| SEC_READONLY
3982 | SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3983 if ((sec
->flags
& SEC_ALLOC
) != 0)
3984 flags
|= SEC_ALLOC
| SEC_LOAD
;
3986 || ! bfd_set_section_flags (dynobj
, sreloc
, flags
)
3987 || ! bfd_set_section_alignment (dynobj
, sreloc
, 3))
3990 elf_section_data (sec
)->sreloc
= sreloc
;
3993 /* If this is a global symbol, we count the number of
3994 relocations we need for this symbol. */
3997 head
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
4001 /* Track dynamic relocs needed for local syms too.
4002 We really need local syms available to do this
4006 s
= bfd_section_from_r_symndx (abfd
, &htab
->sym_sec
,
4011 head
= ((struct ppc_dyn_relocs
**)
4012 &elf_section_data (s
)->local_dynrel
);
4016 if (p
== NULL
|| p
->sec
!= sec
)
4018 p
= bfd_alloc (htab
->elf
.dynobj
, sizeof *p
);
4029 if (!MUST_BE_DYN_RELOC (r_type
))
4042 /* Return the section that should be marked against GC for a given
4046 ppc64_elf_gc_mark_hook (asection
*sec
,
4047 struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
4048 Elf_Internal_Rela
*rel
,
4049 struct elf_link_hash_entry
*h
,
4050 Elf_Internal_Sym
*sym
)
4052 asection
*rsec
= NULL
;
4056 enum elf_ppc64_reloc_type r_type
;
4057 struct ppc_link_hash_entry
*fdh
;
4059 r_type
= ELF64_R_TYPE (rel
->r_info
);
4062 case R_PPC64_GNU_VTINHERIT
:
4063 case R_PPC64_GNU_VTENTRY
:
4067 switch (h
->root
.type
)
4069 case bfd_link_hash_defined
:
4070 case bfd_link_hash_defweak
:
4071 fdh
= (struct ppc_link_hash_entry
*) h
;
4073 /* Function descriptor syms cause the associated
4074 function code sym section to be marked. */
4075 if (fdh
->is_func_descriptor
)
4076 rsec
= fdh
->oh
->root
.u
.def
.section
;
4078 /* Function entry syms return NULL if they are in .opd
4079 and are not ._start (or others undefined on the ld
4080 command line). Thus we avoid marking all function
4081 sections, as all functions are referenced in .opd. */
4082 else if ((fdh
->oh
!= NULL
4083 && ((struct ppc_link_hash_entry
*) fdh
->oh
)->is_entry
)
4084 || ppc64_elf_section_data (sec
)->opd
.func_sec
== NULL
)
4085 rsec
= h
->root
.u
.def
.section
;
4088 case bfd_link_hash_common
:
4089 rsec
= h
->root
.u
.c
.p
->section
;
4099 asection
**opd_sym_section
;
4101 rsec
= bfd_section_from_elf_index (sec
->owner
, sym
->st_shndx
);
4102 opd_sym_section
= ppc64_elf_section_data (rsec
)->opd
.func_sec
;
4103 if (opd_sym_section
!= NULL
)
4104 rsec
= opd_sym_section
[sym
->st_value
/ 24];
4105 else if (ppc64_elf_section_data (sec
)->opd
.func_sec
!= NULL
)
4112 /* Update the .got, .plt. and dynamic reloc reference counts for the
4113 section being removed. */
4116 ppc64_elf_gc_sweep_hook (bfd
*abfd
, struct bfd_link_info
*info
,
4117 asection
*sec
, const Elf_Internal_Rela
*relocs
)
4119 struct ppc_link_hash_table
*htab
;
4120 Elf_Internal_Shdr
*symtab_hdr
;
4121 struct elf_link_hash_entry
**sym_hashes
;
4122 struct got_entry
**local_got_ents
;
4123 const Elf_Internal_Rela
*rel
, *relend
;
4125 elf_section_data (sec
)->local_dynrel
= NULL
;
4127 htab
= ppc_hash_table (info
);
4128 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
4129 sym_hashes
= elf_sym_hashes (abfd
);
4130 local_got_ents
= elf_local_got_ents (abfd
);
4132 relend
= relocs
+ sec
->reloc_count
;
4133 for (rel
= relocs
; rel
< relend
; rel
++)
4135 unsigned long r_symndx
;
4136 enum elf_ppc64_reloc_type r_type
;
4137 struct elf_link_hash_entry
*h
= NULL
;
4140 r_symndx
= ELF64_R_SYM (rel
->r_info
);
4141 r_type
= ELF64_R_TYPE (rel
->r_info
);
4142 if (r_symndx
>= symtab_hdr
->sh_info
)
4144 struct ppc_link_hash_entry
*eh
;
4145 struct ppc_dyn_relocs
**pp
;
4146 struct ppc_dyn_relocs
*p
;
4148 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
4149 eh
= (struct ppc_link_hash_entry
*) h
;
4151 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; pp
= &p
->next
)
4154 /* Everything must go for SEC. */
4162 case R_PPC64_GOT_TLSLD16
:
4163 case R_PPC64_GOT_TLSLD16_LO
:
4164 case R_PPC64_GOT_TLSLD16_HI
:
4165 case R_PPC64_GOT_TLSLD16_HA
:
4166 ppc64_tlsld_got (abfd
)->refcount
-= 1;
4167 tls_type
= TLS_TLS
| TLS_LD
;
4170 case R_PPC64_GOT_TLSGD16
:
4171 case R_PPC64_GOT_TLSGD16_LO
:
4172 case R_PPC64_GOT_TLSGD16_HI
:
4173 case R_PPC64_GOT_TLSGD16_HA
:
4174 tls_type
= TLS_TLS
| TLS_GD
;
4177 case R_PPC64_GOT_TPREL16_DS
:
4178 case R_PPC64_GOT_TPREL16_LO_DS
:
4179 case R_PPC64_GOT_TPREL16_HI
:
4180 case R_PPC64_GOT_TPREL16_HA
:
4181 tls_type
= TLS_TLS
| TLS_TPREL
;
4184 case R_PPC64_GOT_DTPREL16_DS
:
4185 case R_PPC64_GOT_DTPREL16_LO_DS
:
4186 case R_PPC64_GOT_DTPREL16_HI
:
4187 case R_PPC64_GOT_DTPREL16_HA
:
4188 tls_type
= TLS_TLS
| TLS_DTPREL
;
4192 case R_PPC64_GOT16_DS
:
4193 case R_PPC64_GOT16_HA
:
4194 case R_PPC64_GOT16_HI
:
4195 case R_PPC64_GOT16_LO
:
4196 case R_PPC64_GOT16_LO_DS
:
4199 struct got_entry
*ent
;
4204 ent
= local_got_ents
[r_symndx
];
4206 for (; ent
!= NULL
; ent
= ent
->next
)
4207 if (ent
->addend
== rel
->r_addend
4208 && ent
->owner
== abfd
4209 && ent
->tls_type
== tls_type
)
4213 if (ent
->got
.refcount
> 0)
4214 ent
->got
.refcount
-= 1;
4218 case R_PPC64_PLT16_HA
:
4219 case R_PPC64_PLT16_HI
:
4220 case R_PPC64_PLT16_LO
:
4224 case R_PPC64_REL14_BRNTAKEN
:
4225 case R_PPC64_REL14_BRTAKEN
:
4229 struct plt_entry
*ent
;
4231 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
4232 if (ent
->addend
== rel
->r_addend
)
4236 if (ent
->plt
.refcount
> 0)
4237 ent
->plt
.refcount
-= 1;
4248 /* Called via elf_link_hash_traverse to transfer dynamic linking
4249 information on function code symbol entries to their corresponding
4250 function descriptor symbol entries. */
4252 func_desc_adjust (struct elf_link_hash_entry
*h
, void *inf
)
4254 struct bfd_link_info
*info
;
4255 struct ppc_link_hash_table
*htab
;
4256 struct plt_entry
*ent
;
4257 struct ppc_link_hash_entry
*fh
;
4258 struct ppc_link_hash_entry
*fdh
;
4259 bfd_boolean force_local
;
4261 fh
= (struct ppc_link_hash_entry
*) h
;
4262 if (fh
->elf
.root
.type
== bfd_link_hash_indirect
)
4265 if (fh
->elf
.root
.type
== bfd_link_hash_warning
)
4266 fh
= (struct ppc_link_hash_entry
*) fh
->elf
.root
.u
.i
.link
;
4269 htab
= ppc_hash_table (info
);
4271 /* If this is a function code symbol, transfer dynamic linking
4272 information to the function descriptor symbol. */
4276 if (fh
->elf
.root
.type
== bfd_link_hash_undefweak
4277 && (fh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_REF_REGULAR
))
4278 htab
->have_undefweak
= TRUE
;
4280 for (ent
= fh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
4281 if (ent
->plt
.refcount
> 0)
4284 || fh
->elf
.root
.root
.string
[0] != '.'
4285 || fh
->elf
.root
.root
.string
[1] == '\0')
4288 /* Find the corresponding function descriptor symbol. Create it
4289 as undefined if necessary. */
4291 fdh
= get_fdh (fh
, htab
);
4293 while (fdh
->elf
.root
.type
== bfd_link_hash_indirect
4294 || fdh
->elf
.root
.type
== bfd_link_hash_warning
)
4295 fdh
= (struct ppc_link_hash_entry
*) fdh
->elf
.root
.u
.i
.link
;
4299 && (fh
->elf
.root
.type
== bfd_link_hash_undefined
4300 || fh
->elf
.root
.type
== bfd_link_hash_undefweak
))
4304 struct bfd_link_hash_entry
*bh
;
4306 abfd
= fh
->elf
.root
.u
.undef
.abfd
;
4307 newsym
= bfd_make_empty_symbol (abfd
);
4308 newsym
->name
= fh
->elf
.root
.root
.string
+ 1;
4309 newsym
->section
= bfd_und_section_ptr
;
4311 newsym
->flags
= BSF_OBJECT
;
4312 if (fh
->elf
.root
.type
== bfd_link_hash_undefweak
)
4313 newsym
->flags
|= BSF_WEAK
;
4315 bh
= &fdh
->elf
.root
;
4316 if ( !(_bfd_generic_link_add_one_symbol
4317 (info
, abfd
, newsym
->name
, newsym
->flags
,
4318 newsym
->section
, newsym
->value
, NULL
, FALSE
, FALSE
, &bh
)))
4322 fdh
= (struct ppc_link_hash_entry
*) bh
;
4323 fdh
->elf
.elf_link_hash_flags
&= ~ELF_LINK_NON_ELF
;
4325 fdh
->elf
.type
= STT_OBJECT
;
4329 && (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) == 0
4331 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0
4332 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_REF_DYNAMIC
) != 0
4333 || (fdh
->elf
.root
.type
== bfd_link_hash_undefweak
4334 && ELF_ST_VISIBILITY (fdh
->elf
.other
) == STV_DEFAULT
)))
4336 if (fdh
->elf
.dynindx
== -1)
4337 if (! bfd_elf64_link_record_dynamic_symbol (info
, &fdh
->elf
))
4339 fdh
->elf
.elf_link_hash_flags
4340 |= (fh
->elf
.elf_link_hash_flags
& (ELF_LINK_HASH_REF_REGULAR
4341 | ELF_LINK_HASH_REF_DYNAMIC
4342 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
4343 | ELF_LINK_NON_GOT_REF
));
4344 if (ELF_ST_VISIBILITY (fh
->elf
.other
) == STV_DEFAULT
)
4346 fdh
->elf
.plt
.plist
= fh
->elf
.plt
.plist
;
4347 fdh
->elf
.elf_link_hash_flags
|= ELF_LINK_HASH_NEEDS_PLT
;
4349 fdh
->is_func_descriptor
= 1;
4354 /* Now that the info is on the function descriptor, clear the
4355 function code sym info. Any function code syms for which we
4356 don't have a definition in a regular file, we force local.
4357 This prevents a shared library from exporting syms that have
4358 been imported from another library. Function code syms that
4359 are really in the library we must leave global to prevent the
4360 linker dragging in a definition from a static library. */
4363 && ((fh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0
4365 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0
4366 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) != 0));
4367 _bfd_elf_link_hash_hide_symbol (info
, &fh
->elf
, force_local
);
4372 #define MIN_SAVE_FPR 14
4373 #define MAX_SAVE_FPR 31
4375 /* Called near the start of bfd_elf_size_dynamic_sections. We use
4376 this hook to a) provide some gcc support functions, and b) transfer
4377 dynamic linking information gathered so far on function code symbol
4378 entries, to their corresponding function descriptor symbol entries. */
4380 ppc64_elf_func_desc_adjust (bfd
*obfd ATTRIBUTE_UNUSED
,
4381 struct bfd_link_info
*info
)
4383 struct ppc_link_hash_table
*htab
;
4384 unsigned int lowest_savef
= MAX_SAVE_FPR
+ 2;
4385 unsigned int lowest_restf
= MAX_SAVE_FPR
+ 2;
4387 struct elf_link_hash_entry
*h
;
4391 htab
= ppc_hash_table (info
);
4393 if (htab
->sfpr
== NULL
)
4394 /* We don't have any relocs. */
4397 /* First provide any missing ._savef* and ._restf* functions. */
4398 memcpy (sym
, "._savef14", 10);
4399 for (i
= MIN_SAVE_FPR
; i
<= MAX_SAVE_FPR
; i
++)
4401 sym
[7] = i
/ 10 + '0';
4402 sym
[8] = i
% 10 + '0';
4403 h
= elf_link_hash_lookup (&htab
->elf
, sym
, FALSE
, FALSE
, TRUE
);
4405 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0)
4407 if (lowest_savef
> i
)
4409 h
->root
.type
= bfd_link_hash_defined
;
4410 h
->root
.u
.def
.section
= htab
->sfpr
;
4411 h
->root
.u
.def
.value
= (i
- lowest_savef
) * 4;
4413 h
->elf_link_hash_flags
|= ELF_LINK_HASH_DEF_REGULAR
;
4414 _bfd_elf_link_hash_hide_symbol (info
, h
, TRUE
);
4418 memcpy (sym
, "._restf14", 10);
4419 for (i
= MIN_SAVE_FPR
; i
<= MAX_SAVE_FPR
; i
++)
4421 sym
[7] = i
/ 10 + '0';
4422 sym
[8] = i
% 10 + '0';
4423 h
= elf_link_hash_lookup (&htab
->elf
, sym
, FALSE
, FALSE
, TRUE
);
4425 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0)
4427 if (lowest_restf
> i
)
4429 h
->root
.type
= bfd_link_hash_defined
;
4430 h
->root
.u
.def
.section
= htab
->sfpr
;
4431 h
->root
.u
.def
.value
= ((MAX_SAVE_FPR
+ 2 - lowest_savef
) * 4
4432 + (i
- lowest_restf
) * 4);
4434 h
->elf_link_hash_flags
|= ELF_LINK_HASH_DEF_REGULAR
;
4435 _bfd_elf_link_hash_hide_symbol (info
, h
, TRUE
);
4439 elf_link_hash_traverse (&htab
->elf
, func_desc_adjust
, info
);
4441 htab
->sfpr
->_raw_size
= ((MAX_SAVE_FPR
+ 2 - lowest_savef
) * 4
4442 + (MAX_SAVE_FPR
+ 2 - lowest_restf
) * 4);
4444 if (htab
->sfpr
->_raw_size
== 0)
4446 if (!htab
->have_undefweak
)
4448 _bfd_strip_section_from_output (info
, htab
->sfpr
);
4452 htab
->sfpr
->_raw_size
= 4;
4455 p
= bfd_alloc (htab
->elf
.dynobj
, htab
->sfpr
->_raw_size
);
4458 htab
->sfpr
->contents
= p
;
4460 for (i
= lowest_savef
; i
<= MAX_SAVE_FPR
; i
++)
4462 unsigned int fpr
= i
<< 21;
4463 unsigned int stackoff
= (1 << 16) - (MAX_SAVE_FPR
+ 1 - i
) * 8;
4464 bfd_put_32 (htab
->elf
.dynobj
, STFD_FR0_0R1
+ fpr
+ stackoff
, p
);
4467 if (lowest_savef
<= MAX_SAVE_FPR
)
4469 bfd_put_32 (htab
->elf
.dynobj
, BLR
, p
);
4473 for (i
= lowest_restf
; i
<= MAX_SAVE_FPR
; i
++)
4475 unsigned int fpr
= i
<< 21;
4476 unsigned int stackoff
= (1 << 16) - (MAX_SAVE_FPR
+ 1 - i
) * 8;
4477 bfd_put_32 (htab
->elf
.dynobj
, LFD_FR0_0R1
+ fpr
+ stackoff
, p
);
4480 if (lowest_restf
<= MAX_SAVE_FPR
4481 || htab
->sfpr
->_raw_size
== 4)
4483 bfd_put_32 (htab
->elf
.dynobj
, BLR
, p
);
4489 /* Adjust a symbol defined by a dynamic object and referenced by a
4490 regular object. The current definition is in some section of the
4491 dynamic object, but we're not including those sections. We have to
4492 change the definition to something the rest of the link can
4496 ppc64_elf_adjust_dynamic_symbol (struct bfd_link_info
*info
,
4497 struct elf_link_hash_entry
*h
)
4499 struct ppc_link_hash_table
*htab
;
4501 unsigned int power_of_two
;
4503 htab
= ppc_hash_table (info
);
4505 /* Deal with function syms. */
4506 if (h
->type
== STT_FUNC
4507 || (h
->elf_link_hash_flags
& ELF_LINK_HASH_NEEDS_PLT
) != 0)
4509 /* Clear procedure linkage table information for any symbol that
4510 won't need a .plt entry. */
4511 struct plt_entry
*ent
;
4512 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
4513 if (ent
->plt
.refcount
> 0)
4515 if (!((struct ppc_link_hash_entry
*) h
)->is_func_descriptor
4517 || SYMBOL_CALLS_LOCAL (info
, h
)
4518 || (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
4519 && h
->root
.type
== bfd_link_hash_undefweak
))
4521 h
->plt
.plist
= NULL
;
4522 h
->elf_link_hash_flags
&= ~ELF_LINK_HASH_NEEDS_PLT
;
4526 h
->plt
.plist
= NULL
;
4528 /* If this is a weak symbol, and there is a real definition, the
4529 processor independent code will have arranged for us to see the
4530 real definition first, and we can just use the same value. */
4531 if (h
->weakdef
!= NULL
)
4533 BFD_ASSERT (h
->weakdef
->root
.type
== bfd_link_hash_defined
4534 || h
->weakdef
->root
.type
== bfd_link_hash_defweak
);
4535 h
->root
.u
.def
.section
= h
->weakdef
->root
.u
.def
.section
;
4536 h
->root
.u
.def
.value
= h
->weakdef
->root
.u
.def
.value
;
4537 if (ELIMINATE_COPY_RELOCS
)
4538 h
->elf_link_hash_flags
4539 = ((h
->elf_link_hash_flags
& ~ELF_LINK_NON_GOT_REF
)
4540 | (h
->weakdef
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
));
4544 /* If we are creating a shared library, we must presume that the
4545 only references to the symbol are via the global offset table.
4546 For such cases we need not do anything here; the relocations will
4547 be handled correctly by relocate_section. */
4551 /* If there are no references to this symbol that do not use the
4552 GOT, we don't need to generate a copy reloc. */
4553 if ((h
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
) == 0)
4556 if (ELIMINATE_COPY_RELOCS
)
4558 struct ppc_link_hash_entry
* eh
;
4559 struct ppc_dyn_relocs
*p
;
4561 eh
= (struct ppc_link_hash_entry
*) h
;
4562 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
4564 s
= p
->sec
->output_section
;
4565 if (s
!= NULL
&& (s
->flags
& SEC_READONLY
) != 0)
4569 /* If we didn't find any dynamic relocs in read-only sections, then
4570 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
4573 h
->elf_link_hash_flags
&= ~ELF_LINK_NON_GOT_REF
;
4578 if (h
->plt
.plist
!= NULL
)
4580 /* We should never get here, but unfortunately there are versions
4581 of gcc out there that improperly (for this ABI) put initialized
4582 function pointers, vtable refs and suchlike in read-only
4583 sections. Allow them to proceed, but warn that this might
4584 break at runtime. */
4585 (*_bfd_error_handler
)
4586 (_("copy reloc against `%s' requires lazy plt linking; "
4587 "avoid setting LD_BIND_NOW=1 or upgrade gcc"),
4588 h
->root
.root
.string
);
4591 /* This is a reference to a symbol defined by a dynamic object which
4592 is not a function. */
4594 /* We must allocate the symbol in our .dynbss section, which will
4595 become part of the .bss section of the executable. There will be
4596 an entry for this symbol in the .dynsym section. The dynamic
4597 object will contain position independent code, so all references
4598 from the dynamic object to this symbol will go through the global
4599 offset table. The dynamic linker will use the .dynsym entry to
4600 determine the address it must put in the global offset table, so
4601 both the dynamic object and the regular object will refer to the
4602 same memory location for the variable. */
4604 /* We must generate a R_PPC64_COPY reloc to tell the dynamic linker
4605 to copy the initial value out of the dynamic object and into the
4606 runtime process image. We need to remember the offset into the
4607 .rela.bss section we are going to use. */
4608 if ((h
->root
.u
.def
.section
->flags
& SEC_ALLOC
) != 0)
4610 htab
->relbss
->_raw_size
+= sizeof (Elf64_External_Rela
);
4611 h
->elf_link_hash_flags
|= ELF_LINK_HASH_NEEDS_COPY
;
4614 /* We need to figure out the alignment required for this symbol. I
4615 have no idea how ELF linkers handle this. */
4616 power_of_two
= bfd_log2 (h
->size
);
4617 if (power_of_two
> 4)
4620 /* Apply the required alignment. */
4622 s
->_raw_size
= BFD_ALIGN (s
->_raw_size
, (bfd_size_type
) (1 << power_of_two
));
4623 if (power_of_two
> bfd_get_section_alignment (htab
->elf
.dynobj
, s
))
4625 if (! bfd_set_section_alignment (htab
->elf
.dynobj
, s
, power_of_two
))
4629 /* Define the symbol as being at this point in the section. */
4630 h
->root
.u
.def
.section
= s
;
4631 h
->root
.u
.def
.value
= s
->_raw_size
;
4633 /* Increment the section size to make room for the symbol. */
4634 s
->_raw_size
+= h
->size
;
4639 /* If given a function descriptor symbol, hide both the function code
4640 sym and the descriptor. */
4642 ppc64_elf_hide_symbol (struct bfd_link_info
*info
,
4643 struct elf_link_hash_entry
*h
,
4644 bfd_boolean force_local
)
4646 _bfd_elf_link_hash_hide_symbol (info
, h
, force_local
);
4648 if (((struct ppc_link_hash_entry
*) h
)->is_func_descriptor
)
4650 struct elf_link_hash_entry
*fh
= ((struct ppc_link_hash_entry
*) h
)->oh
;
4655 struct ppc_link_hash_table
*htab
;
4658 /* We aren't supposed to use alloca in BFD because on
4659 systems which do not have alloca the version in libiberty
4660 calls xmalloc, which might cause the program to crash
4661 when it runs out of memory. This function doesn't have a
4662 return status, so there's no way to gracefully return an
4663 error. So cheat. We know that string[-1] can be safely
4664 dereferenced; It's either a string in an ELF string
4665 table, or allocated in an objalloc structure. */
4667 p
= h
->root
.root
.string
- 1;
4670 htab
= ppc_hash_table (info
);
4671 fh
= elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
4674 /* Unfortunately, if it so happens that the string we were
4675 looking for was allocated immediately before this string,
4676 then we overwrote the string terminator. That's the only
4677 reason the lookup should fail. */
4680 q
= h
->root
.root
.string
+ strlen (h
->root
.root
.string
);
4681 while (q
>= h
->root
.root
.string
&& *q
== *p
)
4683 if (q
< h
->root
.root
.string
&& *p
== '.')
4684 fh
= elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
4688 ((struct ppc_link_hash_entry
*) h
)->oh
= fh
;
4689 ((struct ppc_link_hash_entry
*) fh
)->oh
= h
;
4693 _bfd_elf_link_hash_hide_symbol (info
, fh
, force_local
);
4698 get_sym_h (struct elf_link_hash_entry
**hp
, Elf_Internal_Sym
**symp
,
4699 asection
**symsecp
, char **tls_maskp
, Elf_Internal_Sym
**locsymsp
,
4700 unsigned long r_symndx
, bfd
*ibfd
)
4702 Elf_Internal_Shdr
*symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
4704 if (r_symndx
>= symtab_hdr
->sh_info
)
4706 struct elf_link_hash_entry
**sym_hashes
= elf_sym_hashes (ibfd
);
4707 struct elf_link_hash_entry
*h
;
4709 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
4710 while (h
->root
.type
== bfd_link_hash_indirect
4711 || h
->root
.type
== bfd_link_hash_warning
)
4712 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
4720 if (symsecp
!= NULL
)
4722 asection
*symsec
= NULL
;
4723 if (h
->root
.type
== bfd_link_hash_defined
4724 || h
->root
.type
== bfd_link_hash_defweak
)
4725 symsec
= h
->root
.u
.def
.section
;
4729 if (tls_maskp
!= NULL
)
4731 struct ppc_link_hash_entry
*eh
;
4733 eh
= (struct ppc_link_hash_entry
*) h
;
4734 *tls_maskp
= &eh
->tls_mask
;
4739 Elf_Internal_Sym
*sym
;
4740 Elf_Internal_Sym
*locsyms
= *locsymsp
;
4742 if (locsyms
== NULL
)
4744 locsyms
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
4745 if (locsyms
== NULL
)
4746 locsyms
= bfd_elf_get_elf_syms (ibfd
, symtab_hdr
,
4747 symtab_hdr
->sh_info
,
4748 0, NULL
, NULL
, NULL
);
4749 if (locsyms
== NULL
)
4751 *locsymsp
= locsyms
;
4753 sym
= locsyms
+ r_symndx
;
4761 if (symsecp
!= NULL
)
4763 asection
*symsec
= NULL
;
4764 if ((sym
->st_shndx
!= SHN_UNDEF
4765 && sym
->st_shndx
< SHN_LORESERVE
)
4766 || sym
->st_shndx
> SHN_HIRESERVE
)
4767 symsec
= bfd_section_from_elf_index (ibfd
, sym
->st_shndx
);
4771 if (tls_maskp
!= NULL
)
4773 struct got_entry
**lgot_ents
;
4777 lgot_ents
= elf_local_got_ents (ibfd
);
4778 if (lgot_ents
!= NULL
)
4780 char *lgot_masks
= (char *) (lgot_ents
+ symtab_hdr
->sh_info
);
4781 tls_mask
= &lgot_masks
[r_symndx
];
4783 *tls_maskp
= tls_mask
;
4789 /* Returns TLS_MASKP for the given REL symbol. Function return is 0 on
4790 error, 2 on a toc GD type suitable for optimization, 3 on a toc LD
4791 type suitable for optimization, and 1 otherwise. */
4794 get_tls_mask (char **tls_maskp
, Elf_Internal_Sym
**locsymsp
,
4795 const Elf_Internal_Rela
*rel
, bfd
*ibfd
)
4797 unsigned long r_symndx
;
4798 unsigned int next_r
;
4799 struct elf_link_hash_entry
*h
;
4800 Elf_Internal_Sym
*sym
;
4804 r_symndx
= ELF64_R_SYM (rel
->r_info
);
4805 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
4808 if ((*tls_maskp
!= NULL
&& **tls_maskp
!= 0)
4810 || ppc64_elf_section_data (sec
)->t_symndx
== NULL
)
4813 /* Look inside a TOC section too. */
4816 BFD_ASSERT (h
->root
.type
== bfd_link_hash_defined
);
4817 off
= h
->root
.u
.def
.value
;
4820 off
= sym
->st_value
;
4821 off
+= rel
->r_addend
;
4822 BFD_ASSERT (off
% 8 == 0);
4823 r_symndx
= ppc64_elf_section_data (sec
)->t_symndx
[off
/ 8];
4824 next_r
= ppc64_elf_section_data (sec
)->t_symndx
[off
/ 8 + 1];
4825 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
4828 || h
->root
.type
== bfd_link_hash_defined
4829 || h
->root
.type
== bfd_link_hash_defweak
)
4831 if (next_r
== (unsigned) -1)
4833 if (next_r
== (unsigned) -2
4835 || !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
)))
4842 ppc64_elf_edit_opd (bfd
*obfd
, struct bfd_link_info
*info
)
4846 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
4849 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
4850 Elf_Internal_Shdr
*symtab_hdr
;
4851 Elf_Internal_Sym
*local_syms
;
4852 struct elf_link_hash_entry
**sym_hashes
;
4856 bfd_boolean need_edit
;
4858 sec
= bfd_get_section_by_name (ibfd
, ".opd");
4862 amt
= sec
->_raw_size
* sizeof (long) / 24;
4863 adjust
= ppc64_elf_section_data (sec
)->opd
.adjust
;
4866 /* Must be a ld -r link. ie. check_relocs hasn't been
4868 adjust
= bfd_zalloc (obfd
, amt
);
4869 ppc64_elf_section_data (sec
)->opd
.adjust
= adjust
;
4871 memset (adjust
, 0, amt
);
4873 if (sec
->output_section
== bfd_abs_section_ptr
)
4876 /* Look through the section relocs. */
4877 if ((sec
->flags
& SEC_RELOC
) == 0 || sec
->reloc_count
== 0)
4881 symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
4882 sym_hashes
= elf_sym_hashes (ibfd
);
4884 /* Read the relocations. */
4885 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
4887 if (relstart
== NULL
)
4890 /* First run through the relocs to check they are sane, and to
4891 determine whether we need to edit this opd section. */
4894 relend
= relstart
+ sec
->reloc_count
;
4895 for (rel
= relstart
; rel
< relend
; )
4897 enum elf_ppc64_reloc_type r_type
;
4898 unsigned long r_symndx
;
4900 struct elf_link_hash_entry
*h
;
4901 Elf_Internal_Sym
*sym
;
4903 /* .opd contains a regular array of 24 byte entries. We're
4904 only interested in the reloc pointing to a function entry
4906 if (rel
->r_offset
!= offset
4907 || rel
+ 1 >= relend
4908 || (rel
+ 1)->r_offset
!= offset
+ 8)
4910 /* If someone messes with .opd alignment then after a
4911 "ld -r" we might have padding in the middle of .opd.
4912 Also, there's nothing to prevent someone putting
4913 something silly in .opd with the assembler. No .opd
4914 optimization for them! */
4915 (*_bfd_error_handler
)
4916 (_("%s: .opd is not a regular array of opd entries"),
4917 bfd_archive_filename (ibfd
));
4922 if ((r_type
= ELF64_R_TYPE (rel
->r_info
)) != R_PPC64_ADDR64
4923 || (r_type
= ELF64_R_TYPE ((rel
+ 1)->r_info
)) != R_PPC64_TOC
)
4925 (*_bfd_error_handler
)
4926 (_("%s: unexpected reloc type %u in .opd section"),
4927 bfd_archive_filename (ibfd
), r_type
);
4932 r_symndx
= ELF64_R_SYM (rel
->r_info
);
4933 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
4937 if (sym_sec
== NULL
|| sym_sec
->owner
== NULL
)
4939 const char *sym_name
;
4941 sym_name
= h
->root
.root
.string
;
4943 sym_name
= bfd_elf_local_sym_name (ibfd
, sym
);
4945 (*_bfd_error_handler
)
4946 (_("%s: undefined sym `%s' in .opd section"),
4947 bfd_archive_filename (ibfd
),
4953 /* opd entries are always for functions defined in the
4954 current input bfd. If the symbol isn't defined in the
4955 input bfd, then we won't be using the function in this
4956 bfd; It must be defined in a linkonce section in another
4957 bfd, or is weak. It's also possible that we are
4958 discarding the function due to a linker script /DISCARD/,
4959 which we test for via the output_section. */
4960 if (sym_sec
->owner
!= ibfd
4961 || sym_sec
->output_section
== bfd_abs_section_ptr
)
4966 /* Allow for the possibility of a reloc on the third word. */
4968 && rel
->r_offset
== offset
- 8)
4974 Elf_Internal_Rela
*write_rel
;
4975 bfd_byte
*rptr
, *wptr
;
4978 /* This seems a waste of time as input .opd sections are all
4979 zeros as generated by gcc, but I suppose there's no reason
4980 this will always be so. We might start putting something in
4981 the third word of .opd entries. */
4982 if ((sec
->flags
& SEC_IN_MEMORY
) == 0)
4984 bfd_byte
*loc
= bfd_alloc (ibfd
, sec
->_raw_size
);
4986 || !bfd_get_section_contents (ibfd
, sec
, loc
, 0,
4990 if (local_syms
!= NULL
4991 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
4993 if (elf_section_data (sec
)->relocs
!= relstart
)
4997 sec
->contents
= loc
;
4998 sec
->flags
|= (SEC_IN_MEMORY
| SEC_HAS_CONTENTS
);
5001 elf_section_data (sec
)->relocs
= relstart
;
5003 wptr
= sec
->contents
;
5004 rptr
= sec
->contents
;
5005 write_rel
= relstart
;
5008 for (rel
= relstart
; rel
< relend
; rel
++)
5010 unsigned long r_symndx
;
5012 struct elf_link_hash_entry
*h
;
5013 Elf_Internal_Sym
*sym
;
5015 r_symndx
= ELF64_R_SYM (rel
->r_info
);
5016 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
5020 if (rel
->r_offset
== offset
)
5022 struct ppc_link_hash_entry
*fdh
= NULL
;
5024 fdh
= get_fdh ((struct ppc_link_hash_entry
*) h
,
5025 ppc_hash_table (info
));
5027 skip
= (sym_sec
->owner
!= ibfd
5028 || sym_sec
->output_section
== bfd_abs_section_ptr
);
5031 if (h
!= NULL
&& sym_sec
->owner
== ibfd
)
5033 /* Arrange for the function descriptor sym
5035 fdh
->elf
.root
.u
.def
.value
= 0;
5036 fdh
->elf
.root
.u
.def
.section
= sym_sec
;
5041 /* We'll be keeping this opd entry. */
5045 /* Redefine the function descriptor symbol
5046 to this location in the opd section.
5047 We've checked above that opd relocs are
5049 fdh
->elf
.root
.u
.def
.value
= wptr
- sec
->contents
;
5053 /* Local syms are a bit tricky. We could
5054 tweak them as they can be cached, but
5055 we'd need to look through the local syms
5056 for the function descriptor sym which we
5057 don't have at the moment. So keep an
5058 array of adjustments. */
5059 adjust
[rel
->r_offset
/ 24] = wptr
- rptr
;
5063 memcpy (wptr
, rptr
, 24);
5072 BFD_ASSERT (MUST_BE_DYN_RELOC (ELF64_R_TYPE (rel
->r_info
)));
5075 /* We won't be needing dynamic relocs here. */
5076 struct ppc_dyn_relocs
**pp
;
5077 struct ppc_dyn_relocs
*p
;
5080 pp
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
5081 else if (sym_sec
!= NULL
)
5082 pp
= ((struct ppc_dyn_relocs
**)
5083 &elf_section_data (sym_sec
)->local_dynrel
);
5085 pp
= ((struct ppc_dyn_relocs
**)
5086 &elf_section_data (sec
)->local_dynrel
);
5087 while ((p
= *pp
) != NULL
)
5102 /* We need to adjust any reloc offsets to point to the
5103 new opd entries. While we're at it, we may as well
5104 remove redundant relocs. */
5105 rel
->r_offset
+= wptr
- rptr
;
5106 if (write_rel
!= rel
)
5107 memcpy (write_rel
, rel
, sizeof (*rel
));
5112 sec
->_cooked_size
= wptr
- sec
->contents
;
5113 sec
->reloc_count
= write_rel
- relstart
;
5114 /* Fudge the size too, as this is used later in
5115 elf_bfd_final_link if we are emitting relocs. */
5116 elf_section_data (sec
)->rel_hdr
.sh_size
5117 = sec
->reloc_count
* elf_section_data (sec
)->rel_hdr
.sh_entsize
;
5118 BFD_ASSERT (elf_section_data (sec
)->rel_hdr2
== NULL
);
5120 else if (elf_section_data (sec
)->relocs
!= relstart
)
5123 if (local_syms
!= NULL
5124 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
5126 if (!info
->keep_memory
)
5129 symtab_hdr
->contents
= (unsigned char *) local_syms
;
5136 /* Set htab->tls_sec. */
5139 ppc64_elf_tls_setup (bfd
*obfd
, struct bfd_link_info
*info
)
5142 struct ppc_link_hash_table
*htab
;
5144 for (tls
= obfd
->sections
; tls
!= NULL
; tls
= tls
->next
)
5145 if ((tls
->flags
& (SEC_THREAD_LOCAL
| SEC_LOAD
))
5146 == (SEC_THREAD_LOCAL
| SEC_LOAD
))
5149 htab
= ppc_hash_table (info
);
5150 htab
->tls_sec
= tls
;
5152 if (htab
->tls_get_addr
!= NULL
)
5154 struct elf_link_hash_entry
*h
= htab
->tls_get_addr
;
5156 while (h
->root
.type
== bfd_link_hash_indirect
5157 || h
->root
.type
== bfd_link_hash_warning
)
5158 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
5160 htab
->tls_get_addr
= h
;
5166 /* Run through all the TLS relocs looking for optimization
5167 opportunities. The linker has been hacked (see ppc64elf.em) to do
5168 a preliminary section layout so that we know the TLS segment
5169 offsets. We can't optimize earlier because some optimizations need
5170 to know the tp offset, and we need to optimize before allocating
5171 dynamic relocations. */
5174 ppc64_elf_tls_optimize (bfd
*obfd ATTRIBUTE_UNUSED
, struct bfd_link_info
*info
)
5178 struct ppc_link_hash_table
*htab
;
5180 if (info
->relocatable
|| info
->shared
)
5183 htab
= ppc_hash_table (info
);
5184 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
5186 Elf_Internal_Sym
*locsyms
= NULL
;
5188 for (sec
= ibfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
5189 if (sec
->has_tls_reloc
&& !bfd_is_abs_section (sec
->output_section
))
5191 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
5192 int expecting_tls_get_addr
;
5194 /* Read the relocations. */
5195 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
5197 if (relstart
== NULL
)
5200 expecting_tls_get_addr
= 0;
5201 relend
= relstart
+ sec
->reloc_count
;
5202 for (rel
= relstart
; rel
< relend
; rel
++)
5204 enum elf_ppc64_reloc_type r_type
;
5205 unsigned long r_symndx
;
5206 struct elf_link_hash_entry
*h
;
5207 Elf_Internal_Sym
*sym
;
5210 char tls_set
, tls_clear
, tls_type
= 0;
5212 bfd_boolean ok_tprel
, is_local
;
5214 r_symndx
= ELF64_R_SYM (rel
->r_info
);
5215 if (!get_sym_h (&h
, &sym
, &sym_sec
, &tls_mask
, &locsyms
,
5219 if (elf_section_data (sec
)->relocs
!= relstart
)
5222 && (elf_tdata (ibfd
)->symtab_hdr
.contents
5223 != (unsigned char *) locsyms
))
5230 if (h
->root
.type
!= bfd_link_hash_defined
5231 && h
->root
.type
!= bfd_link_hash_defweak
)
5233 value
= h
->root
.u
.def
.value
;
5236 value
= sym
->st_value
;
5241 || !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
))
5244 value
+= sym_sec
->output_offset
;
5245 value
+= sym_sec
->output_section
->vma
;
5246 value
-= htab
->tls_sec
->vma
;
5247 ok_tprel
= (value
+ TP_OFFSET
+ ((bfd_vma
) 1 << 31)
5248 < (bfd_vma
) 1 << 32);
5251 r_type
= ELF64_R_TYPE (rel
->r_info
);
5254 case R_PPC64_GOT_TLSLD16
:
5255 case R_PPC64_GOT_TLSLD16_LO
:
5256 case R_PPC64_GOT_TLSLD16_HI
:
5257 case R_PPC64_GOT_TLSLD16_HA
:
5258 /* These relocs should never be against a symbol
5259 defined in a shared lib. Leave them alone if
5260 that turns out to be the case. */
5261 ppc64_tlsld_got (ibfd
)->refcount
-= 1;
5268 tls_type
= TLS_TLS
| TLS_LD
;
5269 expecting_tls_get_addr
= 1;
5272 case R_PPC64_GOT_TLSGD16
:
5273 case R_PPC64_GOT_TLSGD16_LO
:
5274 case R_PPC64_GOT_TLSGD16_HI
:
5275 case R_PPC64_GOT_TLSGD16_HA
:
5281 tls_set
= TLS_TLS
| TLS_TPRELGD
;
5283 tls_type
= TLS_TLS
| TLS_GD
;
5284 expecting_tls_get_addr
= 1;
5287 case R_PPC64_GOT_TPREL16_DS
:
5288 case R_PPC64_GOT_TPREL16_LO_DS
:
5289 case R_PPC64_GOT_TPREL16_HI
:
5290 case R_PPC64_GOT_TPREL16_HA
:
5291 expecting_tls_get_addr
= 0;
5296 tls_clear
= TLS_TPREL
;
5297 tls_type
= TLS_TLS
| TLS_TPREL
;
5304 case R_PPC64_REL14_BRTAKEN
:
5305 case R_PPC64_REL14_BRNTAKEN
:
5308 && h
== htab
->tls_get_addr
)
5310 if (!expecting_tls_get_addr
5312 && ((ELF64_R_TYPE (rel
[-1].r_info
)
5314 || (ELF64_R_TYPE (rel
[-1].r_info
)
5315 == R_PPC64_TOC16_LO
)))
5317 /* Check for toc tls entries. */
5321 retval
= get_tls_mask (&toc_tls
, &locsyms
,
5325 if (toc_tls
!= NULL
)
5326 expecting_tls_get_addr
= retval
> 1;
5329 if (expecting_tls_get_addr
)
5331 struct plt_entry
*ent
;
5332 for (ent
= h
->plt
.plist
; ent
; ent
= ent
->next
)
5333 if (ent
->addend
== 0)
5335 if (ent
->plt
.refcount
> 0)
5336 ent
->plt
.refcount
-= 1;
5341 expecting_tls_get_addr
= 0;
5344 case R_PPC64_TPREL64
:
5345 expecting_tls_get_addr
= 0;
5349 tls_set
= TLS_EXPLICIT
;
5350 tls_clear
= TLS_TPREL
;
5356 case R_PPC64_DTPMOD64
:
5357 expecting_tls_get_addr
= 0;
5358 if (rel
+ 1 < relend
5360 == ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
))
5361 && rel
[1].r_offset
== rel
->r_offset
+ 8)
5365 tls_set
= TLS_EXPLICIT
| TLS_GD
;
5368 tls_set
= TLS_EXPLICIT
| TLS_GD
| TLS_TPRELGD
;
5377 tls_set
= TLS_EXPLICIT
;
5383 expecting_tls_get_addr
= 0;
5387 if ((tls_set
& TLS_EXPLICIT
) == 0)
5389 struct got_entry
*ent
;
5391 /* Adjust got entry for this reloc. */
5395 ent
= elf_local_got_ents (ibfd
)[r_symndx
];
5397 for (; ent
!= NULL
; ent
= ent
->next
)
5398 if (ent
->addend
== rel
->r_addend
5399 && ent
->owner
== ibfd
5400 && ent
->tls_type
== tls_type
)
5407 /* We managed to get rid of a got entry. */
5408 if (ent
->got
.refcount
> 0)
5409 ent
->got
.refcount
-= 1;
5414 struct ppc_link_hash_entry
* eh
;
5415 struct ppc_dyn_relocs
**pp
;
5416 struct ppc_dyn_relocs
*p
;
5418 /* Adjust dynamic relocs. */
5419 eh
= (struct ppc_link_hash_entry
*) h
;
5420 for (pp
= &eh
->dyn_relocs
;
5425 /* If we got rid of a DTPMOD/DTPREL reloc
5426 pair then we'll lose one or two dyn
5428 if (tls_set
== (TLS_EXPLICIT
| TLS_GD
))
5437 *tls_mask
|= tls_set
;
5438 *tls_mask
&= ~tls_clear
;
5441 if (elf_section_data (sec
)->relocs
!= relstart
)
5446 && (elf_tdata (ibfd
)->symtab_hdr
.contents
5447 != (unsigned char *) locsyms
))
5449 if (!info
->keep_memory
)
5452 elf_tdata (ibfd
)->symtab_hdr
.contents
= (unsigned char *) locsyms
;
5458 /* This is the condition under which ppc64_elf_finish_dynamic_symbol
5459 will be called from elflink.h. If elflink.h doesn't call our
5460 finish_dynamic_symbol routine, we'll need to do something about
5461 initializing any .plt and .got entries in ppc64_elf_relocate_section. */
5462 #define WILL_CALL_FINISH_DYNAMIC_SYMBOL(DYN, SHARED, H) \
5465 || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0) \
5466 && ((H)->dynindx != -1 \
5467 || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0))
5469 /* Allocate space in .plt, .got and associated reloc sections for
5473 allocate_dynrelocs (struct elf_link_hash_entry
*h
, void *inf
)
5475 struct bfd_link_info
*info
;
5476 struct ppc_link_hash_table
*htab
;
5478 struct ppc_link_hash_entry
*eh
;
5479 struct ppc_dyn_relocs
*p
;
5480 struct got_entry
*gent
;
5482 if (h
->root
.type
== bfd_link_hash_indirect
)
5485 if (h
->root
.type
== bfd_link_hash_warning
)
5486 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
5488 info
= (struct bfd_link_info
*) inf
;
5489 htab
= ppc_hash_table (info
);
5491 if (htab
->elf
.dynamic_sections_created
5493 && WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info
->shared
, h
))
5495 struct plt_entry
*pent
;
5496 bfd_boolean doneone
= FALSE
;
5497 for (pent
= h
->plt
.plist
; pent
!= NULL
; pent
= pent
->next
)
5498 if (pent
->plt
.refcount
> 0)
5500 BFD_ASSERT (((struct ppc_link_hash_entry
*) h
)->is_func_descriptor
);
5502 /* If this is the first .plt entry, make room for the special
5505 if (s
->_raw_size
== 0)
5506 s
->_raw_size
+= PLT_INITIAL_ENTRY_SIZE
;
5508 pent
->plt
.offset
= s
->_raw_size
;
5510 /* Make room for this entry. */
5511 s
->_raw_size
+= PLT_ENTRY_SIZE
;
5513 /* Make room for the .glink code. */
5515 if (s
->_raw_size
== 0)
5516 s
->_raw_size
+= GLINK_CALL_STUB_SIZE
;
5517 /* We need bigger stubs past index 32767. */
5518 if (s
->_raw_size
>= GLINK_CALL_STUB_SIZE
+ 32768*2*4)
5520 s
->_raw_size
+= 2*4;
5522 /* We also need to make an entry in the .rela.plt section. */
5524 s
->_raw_size
+= sizeof (Elf64_External_Rela
);
5528 pent
->plt
.offset
= (bfd_vma
) -1;
5531 h
->plt
.plist
= NULL
;
5532 h
->elf_link_hash_flags
&= ~ELF_LINK_HASH_NEEDS_PLT
;
5537 h
->plt
.plist
= NULL
;
5538 h
->elf_link_hash_flags
&= ~ELF_LINK_HASH_NEEDS_PLT
;
5541 eh
= (struct ppc_link_hash_entry
*) h
;
5542 /* Run through the TLS GD got entries first if we're changing them
5544 if ((eh
->tls_mask
& TLS_TPRELGD
) != 0)
5545 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
5546 if (gent
->got
.refcount
> 0
5547 && (gent
->tls_type
& TLS_GD
) != 0)
5549 /* This was a GD entry that has been converted to TPREL. If
5550 there happens to be a TPREL entry we can use that one. */
5551 struct got_entry
*ent
;
5552 for (ent
= h
->got
.glist
; ent
!= NULL
; ent
= ent
->next
)
5553 if (ent
->got
.refcount
> 0
5554 && (ent
->tls_type
& TLS_TPREL
) != 0
5555 && ent
->addend
== gent
->addend
5556 && ent
->owner
== gent
->owner
)
5558 gent
->got
.refcount
= 0;
5562 /* If not, then we'll be using our own TPREL entry. */
5563 if (gent
->got
.refcount
!= 0)
5564 gent
->tls_type
= TLS_TLS
| TLS_TPREL
;
5567 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
5568 if (gent
->got
.refcount
> 0)
5572 /* Make sure this symbol is output as a dynamic symbol.
5573 Undefined weak syms won't yet be marked as dynamic,
5574 nor will all TLS symbols. */
5575 if (h
->dynindx
== -1
5576 && (h
->elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) == 0)
5578 if (! bfd_elf64_link_record_dynamic_symbol (info
, h
))
5582 if ((gent
->tls_type
& TLS_LD
) != 0
5583 && !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
))
5585 gent
->got
.offset
= ppc64_tlsld_got (gent
->owner
)->offset
;
5589 s
= ppc64_elf_tdata (gent
->owner
)->got
;
5590 gent
->got
.offset
= s
->_raw_size
;
5592 += (gent
->tls_type
& eh
->tls_mask
& (TLS_GD
| TLS_LD
)) ? 16 : 8;
5593 dyn
= htab
->elf
.dynamic_sections_created
;
5595 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, 0, h
))
5596 && (ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
5597 || h
->root
.type
!= bfd_link_hash_undefweak
))
5598 ppc64_elf_tdata (gent
->owner
)->relgot
->_raw_size
5599 += (gent
->tls_type
& eh
->tls_mask
& TLS_GD
5600 ? 2 * sizeof (Elf64_External_Rela
)
5601 : sizeof (Elf64_External_Rela
));
5604 gent
->got
.offset
= (bfd_vma
) -1;
5606 if (eh
->dyn_relocs
== NULL
)
5609 /* In the shared -Bsymbolic case, discard space allocated for
5610 dynamic pc-relative relocs against symbols which turn out to be
5611 defined in regular objects. For the normal shared case, discard
5612 space for relocs that have become local due to symbol visibility
5617 /* Relocs that use pc_count are those that appear on a call insn,
5618 or certain REL relocs (see MUST_BE_DYN_RELOC) that can be
5619 generated via assembly. We want calls to protected symbols to
5620 resolve directly to the function rather than going via the plt.
5621 If people want function pointer comparisons to work as expected
5622 then they should avoid writing weird assembly. */
5623 if (SYMBOL_CALLS_LOCAL (info
, h
))
5625 struct ppc_dyn_relocs
**pp
;
5627 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; )
5629 p
->count
-= p
->pc_count
;
5638 /* Also discard relocs on undefined weak syms with non-default
5640 if (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
5641 && h
->root
.type
== bfd_link_hash_undefweak
)
5642 eh
->dyn_relocs
= NULL
;
5644 else if (ELIMINATE_COPY_RELOCS
)
5646 /* For the non-shared case, discard space for relocs against
5647 symbols which turn out to need copy relocs or are not
5650 if ((h
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
) == 0
5651 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0
5652 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0)
5654 /* Make sure this symbol is output as a dynamic symbol.
5655 Undefined weak syms won't yet be marked as dynamic. */
5656 if (h
->dynindx
== -1
5657 && (h
->elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) == 0)
5659 if (! bfd_elf64_link_record_dynamic_symbol (info
, h
))
5663 /* If that succeeded, we know we'll be keeping all the
5665 if (h
->dynindx
!= -1)
5669 eh
->dyn_relocs
= NULL
;
5674 /* Finally, allocate space. */
5675 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
5677 asection
*sreloc
= elf_section_data (p
->sec
)->sreloc
;
5678 sreloc
->_raw_size
+= p
->count
* sizeof (Elf64_External_Rela
);
5684 /* Find any dynamic relocs that apply to read-only sections. */
5687 readonly_dynrelocs (struct elf_link_hash_entry
*h
, void *inf
)
5689 struct ppc_link_hash_entry
*eh
;
5690 struct ppc_dyn_relocs
*p
;
5692 if (h
->root
.type
== bfd_link_hash_warning
)
5693 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
5695 eh
= (struct ppc_link_hash_entry
*) h
;
5696 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
5698 asection
*s
= p
->sec
->output_section
;
5700 if (s
!= NULL
&& (s
->flags
& SEC_READONLY
) != 0)
5702 struct bfd_link_info
*info
= inf
;
5704 info
->flags
|= DF_TEXTREL
;
5706 /* Not an error, just cut short the traversal. */
5713 /* Set the sizes of the dynamic sections. */
5716 ppc64_elf_size_dynamic_sections (bfd
*output_bfd ATTRIBUTE_UNUSED
,
5717 struct bfd_link_info
*info
)
5719 struct ppc_link_hash_table
*htab
;
5725 htab
= ppc_hash_table (info
);
5726 dynobj
= htab
->elf
.dynobj
;
5730 if (htab
->elf
.dynamic_sections_created
)
5732 /* Set the contents of the .interp section to the interpreter. */
5733 if (info
->executable
)
5735 s
= bfd_get_section_by_name (dynobj
, ".interp");
5738 s
->_raw_size
= sizeof ELF_DYNAMIC_INTERPRETER
;
5739 s
->contents
= (unsigned char *) ELF_DYNAMIC_INTERPRETER
;
5743 /* Set up .got offsets for local syms, and space for local dynamic
5745 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
5747 struct got_entry
**lgot_ents
;
5748 struct got_entry
**end_lgot_ents
;
5750 bfd_size_type locsymcount
;
5751 Elf_Internal_Shdr
*symtab_hdr
;
5754 if (bfd_get_flavour (ibfd
) != bfd_target_elf_flavour
)
5757 if (ppc64_tlsld_got (ibfd
)->refcount
> 0)
5759 s
= ppc64_elf_tdata (ibfd
)->got
;
5760 ppc64_tlsld_got (ibfd
)->offset
= s
->_raw_size
;
5764 srel
= ppc64_elf_tdata (ibfd
)->relgot
;
5765 srel
->_raw_size
+= sizeof (Elf64_External_Rela
);
5769 ppc64_tlsld_got (ibfd
)->offset
= (bfd_vma
) -1;
5771 for (s
= ibfd
->sections
; s
!= NULL
; s
= s
->next
)
5773 struct ppc_dyn_relocs
*p
;
5775 for (p
= *((struct ppc_dyn_relocs
**)
5776 &elf_section_data (s
)->local_dynrel
);
5780 if (!bfd_is_abs_section (p
->sec
)
5781 && bfd_is_abs_section (p
->sec
->output_section
))
5783 /* Input section has been discarded, either because
5784 it is a copy of a linkonce section or due to
5785 linker script /DISCARD/, so we'll be discarding
5788 else if (p
->count
!= 0)
5790 srel
= elf_section_data (p
->sec
)->sreloc
;
5791 srel
->_raw_size
+= p
->count
* sizeof (Elf64_External_Rela
);
5792 if ((p
->sec
->output_section
->flags
& SEC_READONLY
) != 0)
5793 info
->flags
|= DF_TEXTREL
;
5798 lgot_ents
= elf_local_got_ents (ibfd
);
5802 symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
5803 locsymcount
= symtab_hdr
->sh_info
;
5804 end_lgot_ents
= lgot_ents
+ locsymcount
;
5805 lgot_masks
= (char *) end_lgot_ents
;
5806 s
= ppc64_elf_tdata (ibfd
)->got
;
5807 srel
= ppc64_elf_tdata (ibfd
)->relgot
;
5808 for (; lgot_ents
< end_lgot_ents
; ++lgot_ents
, ++lgot_masks
)
5810 struct got_entry
*ent
;
5812 for (ent
= *lgot_ents
; ent
!= NULL
; ent
= ent
->next
)
5813 if (ent
->got
.refcount
> 0)
5815 if ((ent
->tls_type
& *lgot_masks
& TLS_LD
) != 0)
5817 if (ppc64_tlsld_got (ibfd
)->offset
== (bfd_vma
) -1)
5819 ppc64_tlsld_got (ibfd
)->offset
= s
->_raw_size
;
5822 srel
->_raw_size
+= sizeof (Elf64_External_Rela
);
5824 ent
->got
.offset
= ppc64_tlsld_got (ibfd
)->offset
;
5828 ent
->got
.offset
= s
->_raw_size
;
5829 if ((ent
->tls_type
& *lgot_masks
& TLS_GD
) != 0)
5833 srel
->_raw_size
+= 2 * sizeof (Elf64_External_Rela
);
5839 srel
->_raw_size
+= sizeof (Elf64_External_Rela
);
5844 ent
->got
.offset
= (bfd_vma
) -1;
5848 /* Allocate global sym .plt and .got entries, and space for global
5849 sym dynamic relocs. */
5850 elf_link_hash_traverse (&htab
->elf
, allocate_dynrelocs
, info
);
5852 /* We now have determined the sizes of the various dynamic sections.
5853 Allocate memory for them. */
5855 for (s
= dynobj
->sections
; s
!= NULL
; s
= s
->next
)
5857 if ((s
->flags
& SEC_LINKER_CREATED
) == 0)
5860 /* Reset _cooked_size since prelim layout will set it wrongly,
5861 and a non-zero _cooked_size sticks. */
5862 s
->_cooked_size
= 0;
5864 if (s
== htab
->brlt
|| s
== htab
->relbrlt
)
5865 /* These haven't been allocated yet; don't strip. */
5867 else if (s
== htab
->got
5869 || s
== htab
->glink
)
5871 /* Strip this section if we don't need it; see the
5874 else if (strncmp (bfd_get_section_name (dynobj
, s
), ".rela", 5) == 0)
5876 if (s
->_raw_size
== 0)
5878 /* If we don't need this section, strip it from the
5879 output file. This is mostly to handle .rela.bss and
5880 .rela.plt. We must create both sections in
5881 create_dynamic_sections, because they must be created
5882 before the linker maps input sections to output
5883 sections. The linker does that before
5884 adjust_dynamic_symbol is called, and it is that
5885 function which decides whether anything needs to go
5886 into these sections. */
5890 if (s
!= htab
->relplt
)
5893 /* We use the reloc_count field as a counter if we need
5894 to copy relocs into the output file. */
5900 /* It's not one of our sections, so don't allocate space. */
5904 if (s
->_raw_size
== 0)
5906 _bfd_strip_section_from_output (info
, s
);
5910 /* .plt is in the bss section. We don't initialise it. */
5911 if ((s
->flags
& SEC_LOAD
) == 0)
5914 /* Allocate memory for the section contents. We use bfd_zalloc
5915 here in case unused entries are not reclaimed before the
5916 section's contents are written out. This should not happen,
5917 but this way if it does we get a R_PPC64_NONE reloc in .rela
5918 sections instead of garbage.
5919 We also rely on the section contents being zero when writing
5921 s
->contents
= bfd_zalloc (dynobj
, s
->_raw_size
);
5922 if (s
->contents
== NULL
)
5926 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
5928 s
= ppc64_elf_tdata (ibfd
)->got
;
5929 if (s
!= NULL
&& s
!= htab
->got
)
5931 s
->_cooked_size
= 0;
5932 if (s
->_raw_size
== 0)
5933 _bfd_strip_section_from_output (info
, s
);
5936 s
->contents
= bfd_zalloc (ibfd
, s
->_raw_size
);
5937 if (s
->contents
== NULL
)
5941 s
= ppc64_elf_tdata (ibfd
)->relgot
;
5944 s
->_cooked_size
= 0;
5945 if (s
->_raw_size
== 0)
5946 _bfd_strip_section_from_output (info
, s
);
5949 s
->contents
= bfd_zalloc (ibfd
, s
->_raw_size
);
5950 if (s
->contents
== NULL
)
5958 if (htab
->elf
.dynamic_sections_created
)
5960 /* Add some entries to the .dynamic section. We fill in the
5961 values later, in ppc64_elf_finish_dynamic_sections, but we
5962 must add the entries now so that we get the correct size for
5963 the .dynamic section. The DT_DEBUG entry is filled in by the
5964 dynamic linker and used by the debugger. */
5965 #define add_dynamic_entry(TAG, VAL) \
5966 bfd_elf64_add_dynamic_entry (info, (TAG), (VAL))
5968 if (info
->executable
)
5970 if (!add_dynamic_entry (DT_DEBUG
, 0))
5974 if (htab
->plt
!= NULL
&& htab
->plt
->_raw_size
!= 0)
5976 if (!add_dynamic_entry (DT_PLTGOT
, 0)
5977 || !add_dynamic_entry (DT_PLTRELSZ
, 0)
5978 || !add_dynamic_entry (DT_PLTREL
, DT_RELA
)
5979 || !add_dynamic_entry (DT_JMPREL
, 0)
5980 || !add_dynamic_entry (DT_PPC64_GLINK
, 0))
5986 if (!add_dynamic_entry (DT_PPC64_OPD
, 0)
5987 || !add_dynamic_entry (DT_PPC64_OPDSZ
, 0))
5993 if (!add_dynamic_entry (DT_RELA
, 0)
5994 || !add_dynamic_entry (DT_RELASZ
, 0)
5995 || !add_dynamic_entry (DT_RELAENT
, sizeof (Elf64_External_Rela
)))
5998 /* If any dynamic relocs apply to a read-only section,
5999 then we need a DT_TEXTREL entry. */
6000 if ((info
->flags
& DF_TEXTREL
) == 0)
6001 elf_link_hash_traverse (&htab
->elf
, readonly_dynrelocs
, info
);
6003 if ((info
->flags
& DF_TEXTREL
) != 0)
6005 if (!add_dynamic_entry (DT_TEXTREL
, 0))
6010 #undef add_dynamic_entry
6015 /* Determine the type of stub needed, if any, for a call. */
6017 static inline enum ppc_stub_type
6018 ppc_type_of_stub (asection
*input_sec
,
6019 const Elf_Internal_Rela
*rel
,
6020 struct ppc_link_hash_entry
**hash
,
6021 bfd_vma destination
)
6023 struct ppc_link_hash_entry
*h
= *hash
;
6025 bfd_vma branch_offset
;
6026 bfd_vma max_branch_offset
;
6027 enum elf_ppc64_reloc_type r_type
;
6032 && h
->oh
->dynindx
!= -1)
6034 struct plt_entry
*ent
;
6035 for (ent
= h
->oh
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
6036 if (ent
->addend
== rel
->r_addend
6037 && ent
->plt
.offset
!= (bfd_vma
) -1)
6039 *hash
= (struct ppc_link_hash_entry
*) h
->oh
;
6040 return ppc_stub_plt_call
;
6044 if (h
->elf
.root
.type
!= bfd_link_hash_defined
6045 && h
->elf
.root
.type
!= bfd_link_hash_defweak
)
6046 return ppc_stub_none
;
6049 /* Determine where the call point is. */
6050 location
= (input_sec
->output_offset
6051 + input_sec
->output_section
->vma
6054 branch_offset
= destination
- location
;
6055 r_type
= ELF64_R_TYPE (rel
->r_info
);
6057 /* Determine if a long branch stub is needed. */
6058 max_branch_offset
= 1 << 25;
6059 if (r_type
!= R_PPC64_REL24
)
6060 max_branch_offset
= 1 << 15;
6062 if (branch_offset
+ max_branch_offset
>= 2 * max_branch_offset
)
6063 /* We need a stub. Figure out whether a long_branch or plt_branch
6065 return ppc_stub_long_branch
;
6067 return ppc_stub_none
;
6070 /* Build a .plt call stub. */
6072 static inline bfd_byte
*
6073 build_plt_stub (bfd
*obfd
, bfd_byte
*p
, int offset
)
6075 #define PPC_LO(v) ((v) & 0xffff)
6076 #define PPC_HI(v) (((v) >> 16) & 0xffff)
6077 #define PPC_HA(v) PPC_HI ((v) + 0x8000)
6079 bfd_put_32 (obfd
, ADDIS_R12_R2
| PPC_HA (offset
), p
), p
+= 4;
6080 bfd_put_32 (obfd
, STD_R2_40R1
, p
), p
+= 4;
6081 bfd_put_32 (obfd
, LD_R11_0R12
| PPC_LO (offset
), p
), p
+= 4;
6082 if (PPC_HA (offset
+ 8) != PPC_HA (offset
))
6083 bfd_put_32 (obfd
, ADDIS_R12_R12
| 1, p
), p
+= 4;
6085 bfd_put_32 (obfd
, LD_R2_0R12
| PPC_LO (offset
), p
), p
+= 4;
6086 if (PPC_HA (offset
+ 8) != PPC_HA (offset
))
6087 bfd_put_32 (obfd
, ADDIS_R12_R12
| 1, p
), p
+= 4;
6089 bfd_put_32 (obfd
, MTCTR_R11
, p
), p
+= 4;
6090 bfd_put_32 (obfd
, LD_R11_0R12
| PPC_LO (offset
), p
), p
+= 4;
6091 bfd_put_32 (obfd
, BCTR
, p
), p
+= 4;
6096 ppc_build_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
6098 struct ppc_stub_hash_entry
*stub_entry
;
6099 struct ppc_branch_hash_entry
*br_entry
;
6100 struct bfd_link_info
*info
;
6101 struct ppc_link_hash_table
*htab
;
6105 struct plt_entry
*ent
;
6109 /* Massage our args to the form they really have. */
6110 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
6113 htab
= ppc_hash_table (info
);
6115 /* Make a note of the offset within the stubs for this entry. */
6116 stub_entry
->stub_offset
= stub_entry
->stub_sec
->_cooked_size
;
6117 loc
= stub_entry
->stub_sec
->contents
+ stub_entry
->stub_offset
;
6119 htab
->stub_count
[stub_entry
->stub_type
- 1] += 1;
6120 switch (stub_entry
->stub_type
)
6122 case ppc_stub_long_branch
:
6123 case ppc_stub_long_branch_r2off
:
6124 /* Branches are relative. This is where we are going to. */
6125 off
= (stub_entry
->target_value
6126 + stub_entry
->target_section
->output_offset
6127 + stub_entry
->target_section
->output_section
->vma
);
6129 /* And this is where we are coming from. */
6130 off
-= (stub_entry
->stub_offset
6131 + stub_entry
->stub_sec
->output_offset
6132 + stub_entry
->stub_sec
->output_section
->vma
);
6134 if (stub_entry
->stub_type
!= ppc_stub_long_branch_r2off
)
6140 r2off
= (htab
->stub_group
[stub_entry
->target_section
->id
].toc_off
6141 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
6142 bfd_put_32 (htab
->stub_bfd
, STD_R2_40R1
, loc
);
6144 bfd_put_32 (htab
->stub_bfd
, ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
6146 bfd_put_32 (htab
->stub_bfd
, ADDI_R2_R2
| PPC_LO (r2off
), loc
);
6151 bfd_put_32 (htab
->stub_bfd
, B_DOT
| (off
& 0x3fffffc), loc
);
6153 BFD_ASSERT (off
+ (1 << 25) < (bfd_vma
) (1 << 26));
6156 case ppc_stub_plt_branch
:
6157 case ppc_stub_plt_branch_r2off
:
6158 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
6159 stub_entry
->root
.string
+ 9,
6161 if (br_entry
== NULL
)
6163 (*_bfd_error_handler
) (_("can't find branch stub `%s'"),
6164 stub_entry
->root
.string
+ 9);
6165 htab
->stub_error
= TRUE
;
6169 off
= (stub_entry
->target_value
6170 + stub_entry
->target_section
->output_offset
6171 + stub_entry
->target_section
->output_section
->vma
);
6173 bfd_put_64 (htab
->brlt
->owner
, off
,
6174 htab
->brlt
->contents
+ br_entry
->offset
);
6178 /* Create a reloc for the branch lookup table entry. */
6179 Elf_Internal_Rela rela
;
6182 rela
.r_offset
= (br_entry
->offset
6183 + htab
->brlt
->output_offset
6184 + htab
->brlt
->output_section
->vma
);
6185 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
6186 rela
.r_addend
= off
;
6188 rl
= htab
->relbrlt
->contents
;
6189 rl
+= htab
->relbrlt
->reloc_count
++ * sizeof (Elf64_External_Rela
);
6190 bfd_elf64_swap_reloca_out (htab
->relbrlt
->owner
, &rela
, rl
);
6193 off
= (br_entry
->offset
6194 + htab
->brlt
->output_offset
6195 + htab
->brlt
->output_section
->vma
6196 - elf_gp (htab
->brlt
->output_section
->owner
)
6197 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
6199 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
6201 (*_bfd_error_handler
)
6202 (_("linkage table error against `%s'"),
6203 stub_entry
->root
.string
);
6204 bfd_set_error (bfd_error_bad_value
);
6205 htab
->stub_error
= TRUE
;
6210 if (stub_entry
->stub_type
!= ppc_stub_plt_branch_r2off
)
6212 bfd_put_32 (htab
->stub_bfd
, ADDIS_R12_R2
| PPC_HA (indx
), loc
);
6214 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R12
| PPC_LO (indx
), loc
);
6221 r2off
= (htab
->stub_group
[stub_entry
->target_section
->id
].toc_off
6222 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
6223 bfd_put_32 (htab
->stub_bfd
, STD_R2_40R1
, loc
);
6225 bfd_put_32 (htab
->stub_bfd
, ADDIS_R12_R2
| PPC_HA (indx
), loc
);
6227 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R12
| PPC_LO (indx
), loc
);
6229 bfd_put_32 (htab
->stub_bfd
, ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
6231 bfd_put_32 (htab
->stub_bfd
, ADDI_R2_R2
| PPC_LO (r2off
), loc
);
6235 bfd_put_32 (htab
->stub_bfd
, MTCTR_R11
, loc
);
6237 bfd_put_32 (htab
->stub_bfd
, BCTR
, loc
);
6240 case ppc_stub_plt_call
:
6241 /* Do the best we can for shared libraries built without
6242 exporting ".foo" for each "foo". This can happen when symbol
6243 versioning scripts strip all bar a subset of symbols. */
6244 if (stub_entry
->h
->oh
->root
.type
!= bfd_link_hash_defined
6245 && stub_entry
->h
->oh
->root
.type
!= bfd_link_hash_defweak
)
6247 /* Point the symbol at the stub. There may be multiple stubs,
6248 we don't really care; The main thing is to make this sym
6249 defined somewhere. Maybe defining the symbol in the stub
6250 section is a silly idea. If we didn't do this, htab->top_id
6252 stub_entry
->h
->oh
->root
.type
= bfd_link_hash_defined
;
6253 stub_entry
->h
->oh
->root
.u
.def
.section
= stub_entry
->stub_sec
;
6254 stub_entry
->h
->oh
->root
.u
.def
.value
= stub_entry
->stub_offset
;
6257 /* Now build the stub. */
6259 for (ent
= stub_entry
->h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
6260 if (ent
->addend
== stub_entry
->addend
)
6262 off
= ent
->plt
.offset
;
6265 if (off
>= (bfd_vma
) -2)
6268 off
&= ~ (bfd_vma
) 1;
6269 off
+= (htab
->plt
->output_offset
6270 + htab
->plt
->output_section
->vma
6271 - elf_gp (htab
->plt
->output_section
->owner
)
6272 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
6274 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
6276 (*_bfd_error_handler
)
6277 (_("linkage table error against `%s'"),
6278 stub_entry
->h
->elf
.root
.root
.string
);
6279 bfd_set_error (bfd_error_bad_value
);
6280 htab
->stub_error
= TRUE
;
6284 p
= build_plt_stub (htab
->stub_bfd
, loc
, off
);
6293 stub_entry
->stub_sec
->_cooked_size
+= size
;
6295 if (htab
->emit_stub_syms
6296 && !(stub_entry
->stub_type
== ppc_stub_plt_call
6297 && stub_entry
->h
->oh
->root
.type
== bfd_link_hash_defined
6298 && stub_entry
->h
->oh
->root
.u
.def
.section
== stub_entry
->stub_sec
6299 && stub_entry
->h
->oh
->root
.u
.def
.value
== stub_entry
->stub_offset
))
6301 struct elf_link_hash_entry
*h
;
6302 h
= elf_link_hash_lookup (&htab
->elf
, stub_entry
->root
.string
,
6303 TRUE
, FALSE
, FALSE
);
6306 if (h
->root
.type
== bfd_link_hash_new
)
6308 h
->root
.type
= bfd_link_hash_defined
;
6309 h
->root
.u
.def
.section
= stub_entry
->stub_sec
;
6310 h
->root
.u
.def
.value
= stub_entry
->stub_offset
;
6311 h
->elf_link_hash_flags
= (ELF_LINK_HASH_REF_REGULAR
6312 | ELF_LINK_HASH_DEF_REGULAR
6313 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
6314 | ELF_LINK_FORCED_LOCAL
);
6321 /* As above, but don't actually build the stub. Just bump offset so
6322 we know stub section sizes, and select plt_branch stubs where
6323 long_branch stubs won't do. */
6326 ppc_size_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
6328 struct ppc_stub_hash_entry
*stub_entry
;
6329 struct ppc_link_hash_table
*htab
;
6333 /* Massage our args to the form they really have. */
6334 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
6337 if (stub_entry
->stub_type
== ppc_stub_plt_call
)
6339 struct plt_entry
*ent
;
6341 for (ent
= stub_entry
->h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
6342 if (ent
->addend
== stub_entry
->addend
)
6344 off
= ent
->plt
.offset
& ~(bfd_vma
) 1;
6347 if (off
>= (bfd_vma
) -2)
6349 off
+= (htab
->plt
->output_offset
6350 + htab
->plt
->output_section
->vma
6351 - elf_gp (htab
->plt
->output_section
->owner
)
6352 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
6354 size
= PLT_CALL_STUB_SIZE
;
6355 if (PPC_HA (off
+ 16) != PPC_HA (off
))
6360 /* ppc_stub_long_branch or ppc_stub_plt_branch, or their r2off
6362 off
= (stub_entry
->target_value
6363 + stub_entry
->target_section
->output_offset
6364 + stub_entry
->target_section
->output_section
->vma
);
6365 off
-= (stub_entry
->stub_sec
->_raw_size
6366 + stub_entry
->stub_sec
->output_offset
6367 + stub_entry
->stub_sec
->output_section
->vma
);
6369 /* Reset the stub type from the plt variant in case we now
6370 can reach with a shorter stub. */
6371 if (stub_entry
->stub_type
>= ppc_stub_plt_branch
)
6372 stub_entry
->stub_type
+= ppc_stub_long_branch
- ppc_stub_plt_branch
;
6375 if (stub_entry
->stub_type
== ppc_stub_long_branch_r2off
)
6381 /* If the branch offset if too big, use a ppc_stub_plt_branch. */
6382 if (off
+ (1 << 25) >= (bfd_vma
) (1 << 26))
6384 struct ppc_branch_hash_entry
*br_entry
;
6386 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
6387 stub_entry
->root
.string
+ 9,
6389 if (br_entry
== NULL
)
6391 (*_bfd_error_handler
) (_("can't build branch stub `%s'"),
6392 stub_entry
->root
.string
+ 9);
6393 htab
->stub_error
= TRUE
;
6397 if (br_entry
->iter
!= htab
->stub_iteration
)
6399 br_entry
->iter
= htab
->stub_iteration
;
6400 br_entry
->offset
= htab
->brlt
->_raw_size
;
6401 htab
->brlt
->_raw_size
+= 8;
6404 stub_entry
->stub_type
+= ppc_stub_plt_branch
- ppc_stub_long_branch
;
6406 if (stub_entry
->stub_type
!= ppc_stub_plt_branch
)
6411 stub_entry
->stub_sec
->_raw_size
+= size
;
6415 /* Set up various things so that we can make a list of input sections
6416 for each output section included in the link. Returns -1 on error,
6417 0 when no stubs will be needed, and 1 on success. */
6420 ppc64_elf_setup_section_lists (bfd
*output_bfd
, struct bfd_link_info
*info
)
6423 int top_id
, top_index
, id
;
6425 asection
**input_list
;
6427 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
6429 if (htab
->brlt
== NULL
)
6432 /* Find the top input section id. */
6433 for (input_bfd
= info
->input_bfds
, top_id
= 3;
6435 input_bfd
= input_bfd
->link_next
)
6437 for (section
= input_bfd
->sections
;
6439 section
= section
->next
)
6441 if (top_id
< section
->id
)
6442 top_id
= section
->id
;
6446 htab
->top_id
= top_id
;
6447 amt
= sizeof (struct map_stub
) * (top_id
+ 1);
6448 htab
->stub_group
= bfd_zmalloc (amt
);
6449 if (htab
->stub_group
== NULL
)
6452 /* Set toc_off for com, und, abs and ind sections. */
6453 for (id
= 0; id
< 3; id
++)
6454 htab
->stub_group
[id
].toc_off
= TOC_BASE_OFF
;
6456 elf_gp (output_bfd
) = htab
->toc_curr
= ppc64_elf_toc (output_bfd
);
6458 /* We can't use output_bfd->section_count here to find the top output
6459 section index as some sections may have been removed, and
6460 _bfd_strip_section_from_output doesn't renumber the indices. */
6461 for (section
= output_bfd
->sections
, top_index
= 0;
6463 section
= section
->next
)
6465 if (top_index
< section
->index
)
6466 top_index
= section
->index
;
6469 htab
->top_index
= top_index
;
6470 amt
= sizeof (asection
*) * (top_index
+ 1);
6471 input_list
= bfd_zmalloc (amt
);
6472 htab
->input_list
= input_list
;
6473 if (input_list
== NULL
)
6479 /* The linker repeatedly calls this function for each TOC input section
6480 and linker generated GOT section. Group input bfds such that the toc
6481 within a group is less than 64k in size. Will break with cute linker
6482 scripts that play games with dot in the output toc section. */
6485 ppc64_elf_next_toc_section (struct bfd_link_info
*info
, asection
*isec
)
6487 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
6489 if (!htab
->no_multi_toc
)
6491 bfd_vma addr
= isec
->output_offset
+ isec
->output_section
->vma
;
6492 bfd_vma off
= addr
- htab
->toc_curr
;
6493 if (off
+ isec
->_raw_size
> 0x10000)
6495 htab
->toc_curr
= addr
;
6496 htab
->multi_toc_needed
= 1;
6498 elf_gp (isec
->owner
) = (htab
->toc_curr
6499 - elf_gp (isec
->output_section
->owner
)
6504 /* Called after the last call to the above function. */
6507 ppc64_elf_reinit_toc (bfd
*output_bfd ATTRIBUTE_UNUSED
,
6508 struct bfd_link_info
*info
)
6510 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
6512 /* toc_curr tracks the TOC offset used for code sections below in
6513 ppc64_elf_next_input_section. Start off at 0x8000. */
6514 htab
->toc_curr
= TOC_BASE_OFF
;
6517 /* No toc references were found in ISEC. If the code in ISEC makes no
6518 calls, then there's no need to use toc adjusting stubs when branching
6519 into ISEC. Actually, indirect calls from ISEC are OK as they will
6523 toc_adjusting_stub_needed (struct bfd_link_info
*info
, asection
*isec
)
6530 /* We know none of our code bearing sections will need toc stubs. */
6531 if ((isec
->flags
& SEC_LINKER_CREATED
) != 0)
6534 /* Hack for linux kernel. .fixup contains branches, but only back to
6535 the function that hit an exception. */
6536 branch_ok
= strcmp (isec
->name
, ".fixup") == 0;
6538 contents
= elf_section_data (isec
)->this_hdr
.contents
;
6539 if (contents
== NULL
)
6541 contents
= bfd_malloc (isec
->_raw_size
);
6542 if (contents
== NULL
)
6544 if (! bfd_get_section_contents (isec
->owner
, isec
, contents
,
6545 0, isec
->_raw_size
))
6550 if (info
->keep_memory
)
6551 elf_section_data (isec
)->this_hdr
.contents
= contents
;
6554 /* Code scan, because we don't necessarily have relocs on calls to
6555 static functions. */
6557 for (i
= 0; i
< isec
->_raw_size
; i
+= 4)
6559 unsigned long insn
= bfd_get_32 (isec
->owner
, contents
+ i
);
6560 /* Is this a branch? */
6561 if ((insn
& (0x3f << 26)) == (18 << 26)
6562 /* If branch and link, it's a function call. */
6564 /* Sibling calls use a plain branch. I don't know a way
6565 of deciding whether a branch is really a sibling call. */
6573 if (elf_section_data (isec
)->this_hdr
.contents
!= contents
)
6578 /* The linker repeatedly calls this function for each input section,
6579 in the order that input sections are linked into output sections.
6580 Build lists of input sections to determine groupings between which
6581 we may insert linker stubs. */
6584 ppc64_elf_next_input_section (struct bfd_link_info
*info
, asection
*isec
)
6586 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
6589 if ((isec
->output_section
->flags
& SEC_CODE
) != 0
6590 && isec
->output_section
->index
<= htab
->top_index
)
6592 asection
**list
= htab
->input_list
+ isec
->output_section
->index
;
6593 /* Steal the link_sec pointer for our list. */
6594 #define PREV_SEC(sec) (htab->stub_group[(sec)->id].link_sec)
6595 /* This happens to make the list in reverse order,
6596 which is what we want. */
6597 PREV_SEC (isec
) = *list
;
6601 /* If a code section has a function that uses the TOC then we need
6602 to use the right TOC (obviously). Also, make sure that .opd gets
6603 the correct TOC value for R_PPC64_TOC relocs that don't have or
6604 can't find their function symbol (shouldn't ever happen now). */
6605 if (isec
->has_gp_reloc
|| (isec
->flags
& SEC_CODE
) == 0)
6607 if (elf_gp (isec
->owner
) != 0)
6608 htab
->toc_curr
= elf_gp (isec
->owner
);
6610 else if ((ret
= toc_adjusting_stub_needed (info
, isec
)) < 0)
6613 isec
->has_gp_reloc
= ret
;
6615 /* Functions that don't use the TOC can belong in any TOC group.
6616 Use the last TOC base. This happens to make _init and _fini
6618 htab
->stub_group
[isec
->id
].toc_off
= htab
->toc_curr
;
6622 /* See whether we can group stub sections together. Grouping stub
6623 sections may result in fewer stubs. More importantly, we need to
6624 put all .init* and .fini* stubs at the beginning of the .init or
6625 .fini output sections respectively, because glibc splits the
6626 _init and _fini functions into multiple parts. Putting a stub in
6627 the middle of a function is not a good idea. */
6630 group_sections (struct ppc_link_hash_table
*htab
,
6631 bfd_size_type stub_group_size
,
6632 bfd_boolean stubs_always_before_branch
)
6634 asection
**list
= htab
->input_list
+ htab
->top_index
;
6637 asection
*tail
= *list
;
6638 while (tail
!= NULL
)
6642 bfd_size_type total
;
6643 bfd_boolean big_sec
;
6647 if (tail
->_cooked_size
)
6648 total
= tail
->_cooked_size
;
6650 total
= tail
->_raw_size
;
6651 big_sec
= total
>= stub_group_size
;
6652 curr_toc
= htab
->stub_group
[tail
->id
].toc_off
;
6654 while ((prev
= PREV_SEC (curr
)) != NULL
6655 && ((total
+= curr
->output_offset
- prev
->output_offset
)
6657 && htab
->stub_group
[prev
->id
].toc_off
== curr_toc
)
6660 /* OK, the size from the start of CURR to the end is less
6661 than stub_group_size and thus can be handled by one stub
6662 section. (or the tail section is itself larger than
6663 stub_group_size, in which case we may be toast.) We
6664 should really be keeping track of the total size of stubs
6665 added here, as stubs contribute to the final output
6666 section size. That's a little tricky, and this way will
6667 only break if stubs added make the total size more than
6668 2^25, ie. for the default stub_group_size, if stubs total
6669 more than 2097152 bytes, or nearly 75000 plt call stubs. */
6672 prev
= PREV_SEC (tail
);
6673 /* Set up this stub group. */
6674 htab
->stub_group
[tail
->id
].link_sec
= curr
;
6676 while (tail
!= curr
&& (tail
= prev
) != NULL
);
6678 /* But wait, there's more! Input sections up to stub_group_size
6679 bytes before the stub section can be handled by it too.
6680 Don't do this if we have a really large section after the
6681 stubs, as adding more stubs increases the chance that
6682 branches may not reach into the stub section. */
6683 if (!stubs_always_before_branch
&& !big_sec
)
6687 && ((total
+= tail
->output_offset
- prev
->output_offset
)
6689 && htab
->stub_group
[prev
->id
].toc_off
== curr_toc
)
6692 prev
= PREV_SEC (tail
);
6693 htab
->stub_group
[tail
->id
].link_sec
= curr
;
6699 while (list
-- != htab
->input_list
);
6700 free (htab
->input_list
);
6704 /* Determine and set the size of the stub section for a final link.
6706 The basic idea here is to examine all the relocations looking for
6707 PC-relative calls to a target that is unreachable with a "bl"
6711 ppc64_elf_size_stubs (bfd
*output_bfd
,
6712 struct bfd_link_info
*info
,
6713 bfd_signed_vma group_size
,
6714 asection
*(*add_stub_section
) (const char *, asection
*),
6715 void (*layout_sections_again
) (void))
6717 bfd_size_type stub_group_size
;
6718 bfd_boolean stubs_always_before_branch
;
6719 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
6721 /* Stash our params away. */
6722 htab
->add_stub_section
= add_stub_section
;
6723 htab
->layout_sections_again
= layout_sections_again
;
6724 stubs_always_before_branch
= group_size
< 0;
6726 stub_group_size
= -group_size
;
6728 stub_group_size
= group_size
;
6729 if (stub_group_size
== 1)
6731 /* Default values. */
6732 if (stubs_always_before_branch
)
6734 stub_group_size
= 0x1e00000;
6735 if (htab
->has_14bit_branch
)
6736 stub_group_size
= 0x7800;
6740 stub_group_size
= 0x1c00000;
6741 if (htab
->has_14bit_branch
)
6742 stub_group_size
= 0x7000;
6746 group_sections (htab
, stub_group_size
, stubs_always_before_branch
);
6751 unsigned int bfd_indx
;
6753 bfd_boolean stub_changed
;
6755 htab
->stub_iteration
+= 1;
6756 stub_changed
= FALSE
;
6758 for (input_bfd
= info
->input_bfds
, bfd_indx
= 0;
6760 input_bfd
= input_bfd
->link_next
, bfd_indx
++)
6762 Elf_Internal_Shdr
*symtab_hdr
;
6764 Elf_Internal_Sym
*local_syms
= NULL
;
6766 /* We'll need the symbol table in a second. */
6767 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
6768 if (symtab_hdr
->sh_info
== 0)
6771 /* Walk over each section attached to the input bfd. */
6772 for (section
= input_bfd
->sections
;
6774 section
= section
->next
)
6776 Elf_Internal_Rela
*internal_relocs
, *irelaend
, *irela
;
6778 /* If there aren't any relocs, then there's nothing more
6780 if ((section
->flags
& SEC_RELOC
) == 0
6781 || section
->reloc_count
== 0)
6784 /* If this section is a link-once section that will be
6785 discarded, then don't create any stubs. */
6786 if (section
->output_section
== NULL
6787 || section
->output_section
->owner
!= output_bfd
)
6790 /* Get the relocs. */
6792 = _bfd_elf_link_read_relocs (input_bfd
, section
, NULL
, NULL
,
6794 if (internal_relocs
== NULL
)
6795 goto error_ret_free_local
;
6797 /* Now examine each relocation. */
6798 irela
= internal_relocs
;
6799 irelaend
= irela
+ section
->reloc_count
;
6800 for (; irela
< irelaend
; irela
++)
6802 enum elf_ppc64_reloc_type r_type
;
6803 unsigned int r_indx
;
6804 enum ppc_stub_type stub_type
;
6805 struct ppc_stub_hash_entry
*stub_entry
;
6808 bfd_vma destination
;
6809 struct ppc_link_hash_entry
*hash
;
6810 struct elf_link_hash_entry
*h
;
6811 Elf_Internal_Sym
*sym
;
6813 const asection
*id_sec
;
6815 r_type
= ELF64_R_TYPE (irela
->r_info
);
6816 r_indx
= ELF64_R_SYM (irela
->r_info
);
6818 if (r_type
>= R_PPC64_max
)
6820 bfd_set_error (bfd_error_bad_value
);
6821 goto error_ret_free_internal
;
6824 /* Only look for stubs on branch instructions. */
6825 if (r_type
!= R_PPC64_REL24
6826 && r_type
!= R_PPC64_REL14
6827 && r_type
!= R_PPC64_REL14_BRTAKEN
6828 && r_type
!= R_PPC64_REL14_BRNTAKEN
)
6831 /* Now determine the call target, its name, value,
6834 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
6836 goto error_ret_free_internal
;
6837 hash
= (struct ppc_link_hash_entry
*) h
;
6841 /* It's a local symbol. */
6842 sym_value
= sym
->st_value
;
6843 destination
= (sym_value
+ irela
->r_addend
6844 + sym_sec
->output_offset
6845 + sym_sec
->output_section
->vma
);
6849 /* It's an external symbol. */
6851 if (hash
->elf
.root
.type
== bfd_link_hash_defined
6852 || hash
->elf
.root
.type
== bfd_link_hash_defweak
)
6854 sym_value
= hash
->elf
.root
.u
.def
.value
;
6855 if (sym_sec
->output_section
!= NULL
)
6856 destination
= (sym_value
+ irela
->r_addend
6857 + sym_sec
->output_offset
6858 + sym_sec
->output_section
->vma
);
6860 else if (hash
->elf
.root
.type
== bfd_link_hash_undefweak
)
6862 else if (hash
->elf
.root
.type
== bfd_link_hash_undefined
)
6866 bfd_set_error (bfd_error_bad_value
);
6867 goto error_ret_free_internal
;
6871 /* Determine what (if any) linker stub is needed. */
6872 stub_type
= ppc_type_of_stub (section
, irela
, &hash
,
6875 if (stub_type
!= ppc_stub_plt_call
)
6877 /* Check whether we need a TOC adjusting stub.
6878 Since the linker pastes together pieces from
6879 different object files when creating the
6880 _init and _fini functions, it may be that a
6881 call to what looks like a local sym is in
6882 fact a call needing a TOC adjustment. */
6884 && sym_sec
->output_section
!= NULL
6885 && (htab
->stub_group
[sym_sec
->id
].toc_off
6886 != htab
->stub_group
[section
->id
].toc_off
)
6887 && sym_sec
->has_gp_reloc
6888 && section
->has_gp_reloc
)
6889 stub_type
= ppc_stub_long_branch_r2off
;
6892 if (stub_type
== ppc_stub_none
)
6895 /* __tls_get_addr calls might be eliminated. */
6896 if (stub_type
!= ppc_stub_plt_call
6898 && &hash
->elf
== htab
->tls_get_addr
6899 && section
->has_tls_reloc
6900 && irela
!= internal_relocs
)
6905 if (!get_tls_mask (&tls_mask
, &local_syms
,
6906 irela
- 1, input_bfd
))
6907 goto error_ret_free_internal
;
6912 /* Support for grouping stub sections. */
6913 id_sec
= htab
->stub_group
[section
->id
].link_sec
;
6915 /* Get the name of this stub. */
6916 stub_name
= ppc_stub_name (id_sec
, sym_sec
, hash
, irela
);
6918 goto error_ret_free_internal
;
6920 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
6921 stub_name
, FALSE
, FALSE
);
6922 if (stub_entry
!= NULL
)
6924 /* The proper stub has already been created. */
6929 stub_entry
= ppc_add_stub (stub_name
, section
, htab
);
6930 if (stub_entry
== NULL
)
6933 error_ret_free_internal
:
6934 if (elf_section_data (section
)->relocs
== NULL
)
6935 free (internal_relocs
);
6936 error_ret_free_local
:
6937 if (local_syms
!= NULL
6938 && (symtab_hdr
->contents
6939 != (unsigned char *) local_syms
))
6944 stub_entry
->stub_type
= stub_type
;
6945 stub_entry
->target_value
= sym_value
;
6946 stub_entry
->target_section
= sym_sec
;
6947 stub_entry
->h
= hash
;
6948 stub_entry
->addend
= irela
->r_addend
;
6949 stub_changed
= TRUE
;
6952 /* We're done with the internal relocs, free them. */
6953 if (elf_section_data (section
)->relocs
!= internal_relocs
)
6954 free (internal_relocs
);
6957 if (local_syms
!= NULL
6958 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
6960 if (!info
->keep_memory
)
6963 symtab_hdr
->contents
= (unsigned char *) local_syms
;
6970 /* OK, we've added some stubs. Find out the new size of the
6972 for (stub_sec
= htab
->stub_bfd
->sections
;
6974 stub_sec
= stub_sec
->next
)
6975 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
6977 stub_sec
->_raw_size
= 0;
6978 stub_sec
->_cooked_size
= 0;
6980 htab
->brlt
->_raw_size
= 0;
6981 htab
->brlt
->_cooked_size
= 0;
6983 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_size_one_stub
, htab
);
6985 /* Ask the linker to do its stuff. */
6986 (*htab
->layout_sections_again
) ();
6989 /* It would be nice to strip .branch_lt from the output if the
6990 section is empty, but it's too late. If we strip sections here,
6991 the dynamic symbol table is corrupted since the section symbol
6992 for the stripped section isn't written. */
6997 /* Called after we have determined section placement. If sections
6998 move, we'll be called again. Provide a value for TOCstart. */
7001 ppc64_elf_toc (bfd
*obfd
)
7006 /* The TOC consists of sections .got, .toc, .tocbss, .plt in that
7007 order. The TOC starts where the first of these sections starts. */
7008 s
= bfd_get_section_by_name (obfd
, ".got");
7010 s
= bfd_get_section_by_name (obfd
, ".toc");
7012 s
= bfd_get_section_by_name (obfd
, ".tocbss");
7014 s
= bfd_get_section_by_name (obfd
, ".plt");
7017 /* This may happen for
7018 o references to TOC base (SYM@toc / TOC[tc0]) without a
7021 o --gc-sections and empty TOC sections
7023 FIXME: Warn user? */
7025 /* Look for a likely section. We probably won't even be
7027 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
7028 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
| SEC_READONLY
))
7029 == (SEC_ALLOC
| SEC_SMALL_DATA
))
7032 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
7033 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
))
7034 == (SEC_ALLOC
| SEC_SMALL_DATA
))
7037 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
7038 if ((s
->flags
& (SEC_ALLOC
| SEC_READONLY
)) == SEC_ALLOC
)
7041 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
7042 if ((s
->flags
& SEC_ALLOC
) == SEC_ALLOC
)
7048 TOCstart
= s
->output_section
->vma
+ s
->output_offset
;
7053 /* Build all the stubs associated with the current output file.
7054 The stubs are kept in a hash table attached to the main linker
7055 hash table. This function is called via gldelf64ppc_finish. */
7058 ppc64_elf_build_stubs (bfd_boolean emit_stub_syms
,
7059 struct bfd_link_info
*info
,
7062 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
7065 int stub_sec_count
= 0;
7067 htab
->emit_stub_syms
= emit_stub_syms
;
7068 for (stub_sec
= htab
->stub_bfd
->sections
;
7070 stub_sec
= stub_sec
->next
)
7071 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
7075 /* Allocate memory to hold the linker stubs. */
7076 size
= stub_sec
->_raw_size
;
7079 stub_sec
->contents
= bfd_zalloc (htab
->stub_bfd
, size
);
7080 if (stub_sec
->contents
== NULL
)
7083 stub_sec
->_cooked_size
= 0;
7086 if (htab
->plt
!= NULL
)
7091 /* Build the .glink plt call stub. */
7092 plt0
= (htab
->plt
->output_section
->vma
7093 + htab
->plt
->output_offset
7094 - (htab
->glink
->output_section
->vma
7095 + htab
->glink
->output_offset
7096 + GLINK_CALL_STUB_SIZE
));
7097 if (plt0
+ 0x80008000 > 0xffffffff)
7099 (*_bfd_error_handler
) (_(".glink and .plt too far apart"));
7100 bfd_set_error (bfd_error_bad_value
);
7104 if (htab
->emit_stub_syms
)
7106 struct elf_link_hash_entry
*h
;
7107 h
= elf_link_hash_lookup (&htab
->elf
, "__glink", TRUE
, FALSE
, FALSE
);
7110 if (h
->root
.type
== bfd_link_hash_new
)
7112 h
->root
.type
= bfd_link_hash_defined
;
7113 h
->root
.u
.def
.section
= htab
->glink
;
7114 h
->root
.u
.def
.value
= 0;
7115 h
->elf_link_hash_flags
= (ELF_LINK_HASH_REF_REGULAR
7116 | ELF_LINK_HASH_DEF_REGULAR
7117 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
7118 | ELF_LINK_FORCED_LOCAL
);
7121 p
= htab
->glink
->contents
;
7122 bfd_put_32 (htab
->glink
->owner
, MFCTR_R12
, p
);
7124 bfd_put_32 (htab
->glink
->owner
, SLDI_R11_R0_3
, p
);
7126 bfd_put_32 (htab
->glink
->owner
, ADDIC_R2_R0_32K
, p
);
7128 bfd_put_32 (htab
->glink
->owner
, SUB_R12_R12_R11
, p
);
7130 bfd_put_32 (htab
->glink
->owner
, SRADI_R2_R2_63
, p
);
7132 bfd_put_32 (htab
->glink
->owner
, SLDI_R11_R0_2
, p
);
7134 bfd_put_32 (htab
->glink
->owner
, AND_R2_R2_R11
, p
);
7136 bfd_put_32 (htab
->glink
->owner
, SUB_R12_R12_R11
, p
);
7138 bfd_put_32 (htab
->glink
->owner
, ADD_R12_R12_R2
, p
);
7140 bfd_put_32 (htab
->glink
->owner
, ADDIS_R12_R12
| PPC_HA (plt0
), p
);
7142 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R12
| PPC_LO (plt0
), p
);
7144 bfd_put_32 (htab
->glink
->owner
, ADDI_R12_R12
| PPC_LO (plt0
), p
);
7146 bfd_put_32 (htab
->glink
->owner
, LD_R2_0R12
| 8, p
);
7148 bfd_put_32 (htab
->glink
->owner
, MTCTR_R11
, p
);
7150 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R12
| 16, p
);
7152 bfd_put_32 (htab
->glink
->owner
, BCTR
, p
);
7155 /* Build the .glink lazy link call stubs. */
7157 while (p
< htab
->glink
->contents
+ htab
->glink
->_raw_size
)
7161 bfd_put_32 (htab
->glink
->owner
, LI_R0_0
| indx
, p
);
7166 bfd_put_32 (htab
->glink
->owner
, LIS_R0_0
| PPC_HI (indx
), p
);
7168 bfd_put_32 (htab
->glink
->owner
, ORI_R0_R0_0
| PPC_LO (indx
), p
);
7171 bfd_put_32 (htab
->glink
->owner
,
7172 B_DOT
| ((htab
->glink
->contents
- p
) & 0x3fffffc), p
);
7176 htab
->glink
->_cooked_size
= p
- htab
->glink
->contents
;
7179 if (htab
->brlt
->_raw_size
!= 0)
7181 htab
->brlt
->contents
= bfd_zalloc (htab
->brlt
->owner
,
7182 htab
->brlt
->_raw_size
);
7183 if (htab
->brlt
->contents
== NULL
)
7187 /* Build the stubs as directed by the stub hash table. */
7188 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_build_one_stub
, info
);
7190 for (stub_sec
= htab
->stub_bfd
->sections
;
7192 stub_sec
= stub_sec
->next
)
7193 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
7195 stub_sec_count
+= 1;
7196 if (stub_sec
->_raw_size
!= stub_sec
->_cooked_size
)
7200 if (stub_sec
!= NULL
7201 || htab
->glink
->_raw_size
!= htab
->glink
->_cooked_size
)
7203 htab
->stub_error
= TRUE
;
7204 (*_bfd_error_handler
) (_("stubs don't match calculated size"));
7207 if (htab
->stub_error
)
7212 *stats
= bfd_malloc (500);
7216 sprintf (*stats
, _("linker stubs in %u groups\n"
7219 " long branch %lu\n"
7220 " long toc adj %lu\n"
7223 htab
->stub_count
[ppc_stub_long_branch
- 1],
7224 htab
->stub_count
[ppc_stub_long_branch_r2off
- 1],
7225 htab
->stub_count
[ppc_stub_plt_branch
- 1],
7226 htab
->stub_count
[ppc_stub_plt_branch_r2off
- 1],
7227 htab
->stub_count
[ppc_stub_plt_call
- 1]);
7232 /* The RELOCATE_SECTION function is called by the ELF backend linker
7233 to handle the relocations for a section.
7235 The relocs are always passed as Rela structures; if the section
7236 actually uses Rel structures, the r_addend field will always be
7239 This function is responsible for adjust the section contents as
7240 necessary, and (if using Rela relocs and generating a
7241 relocatable output file) adjusting the reloc addend as
7244 This function does not have to worry about setting the reloc
7245 address or the reloc symbol index.
7247 LOCAL_SYMS is a pointer to the swapped in local symbols.
7249 LOCAL_SECTIONS is an array giving the section in the input file
7250 corresponding to the st_shndx field of each local symbol.
7252 The global hash table entry for the global symbols can be found
7253 via elf_sym_hashes (input_bfd).
7255 When generating relocatable output, this function must handle
7256 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
7257 going to be the section symbol corresponding to the output
7258 section, which means that the addend must be adjusted
7262 ppc64_elf_relocate_section (bfd
*output_bfd
,
7263 struct bfd_link_info
*info
,
7265 asection
*input_section
,
7267 Elf_Internal_Rela
*relocs
,
7268 Elf_Internal_Sym
*local_syms
,
7269 asection
**local_sections
)
7271 struct ppc_link_hash_table
*htab
;
7272 Elf_Internal_Shdr
*symtab_hdr
;
7273 struct elf_link_hash_entry
**sym_hashes
;
7274 Elf_Internal_Rela
*rel
;
7275 Elf_Internal_Rela
*relend
;
7276 Elf_Internal_Rela outrel
;
7278 struct got_entry
**local_got_ents
;
7280 bfd_boolean ret
= TRUE
;
7282 /* Disabled until we sort out how ld should choose 'y' vs 'at'. */
7283 bfd_boolean is_power4
= FALSE
;
7285 if (info
->relocatable
)
7288 /* Initialize howto table if needed. */
7289 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
7292 htab
= ppc_hash_table (info
);
7293 local_got_ents
= elf_local_got_ents (input_bfd
);
7294 TOCstart
= elf_gp (output_bfd
);
7295 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
7296 sym_hashes
= elf_sym_hashes (input_bfd
);
7297 is_opd
= ppc64_elf_section_data (input_section
)->opd
.adjust
!= NULL
;
7300 relend
= relocs
+ input_section
->reloc_count
;
7301 for (; rel
< relend
; rel
++)
7303 enum elf_ppc64_reloc_type r_type
;
7305 bfd_reloc_status_type r
;
7306 Elf_Internal_Sym
*sym
;
7308 struct elf_link_hash_entry
*h
;
7309 struct elf_link_hash_entry
*fdh
;
7310 const char *sym_name
;
7311 unsigned long r_symndx
;
7312 char tls_mask
, tls_gd
, tls_type
;
7314 bfd_boolean unresolved_reloc
;
7316 unsigned long insn
, mask
;
7317 struct ppc_stub_hash_entry
*stub_entry
;
7318 bfd_vma max_br_offset
;
7321 r_type
= ELF64_R_TYPE (rel
->r_info
);
7322 r_symndx
= ELF64_R_SYM (rel
->r_info
);
7324 /* For old style R_PPC64_TOC relocs with a zero symbol, use the
7325 symbol of the previous ADDR64 reloc. The symbol gives us the
7326 proper TOC base to use. */
7327 if (rel
->r_info
== ELF64_R_INFO (0, R_PPC64_TOC
)
7329 && ELF64_R_TYPE (rel
[-1].r_info
) == R_PPC64_ADDR64
7331 r_symndx
= ELF64_R_SYM (rel
[-1].r_info
);
7337 unresolved_reloc
= FALSE
;
7340 if (r_symndx
< symtab_hdr
->sh_info
)
7342 /* It's a local symbol. */
7343 sym
= local_syms
+ r_symndx
;
7344 sec
= local_sections
[r_symndx
];
7345 sym_name
= bfd_elf_local_sym_name (input_bfd
, sym
);
7346 relocation
= _bfd_elf_rela_local_sym (output_bfd
, sym
, sec
, rel
);
7347 if (elf_section_data (sec
) != NULL
)
7349 long *opd_sym_adjust
;
7351 opd_sym_adjust
= ppc64_elf_section_data (sec
)->opd
.adjust
;
7352 if (opd_sym_adjust
!= NULL
&& sym
->st_value
% 24 == 0)
7353 relocation
+= opd_sym_adjust
[sym
->st_value
/ 24];
7358 RELOC_FOR_GLOBAL_SYMBOL (h
, sym_hashes
, r_symndx
,
7359 symtab_hdr
, relocation
, sec
,
7360 unresolved_reloc
, info
,
7362 sym_name
= h
->root
.root
.string
;
7365 /* TLS optimizations. Replace instruction sequences and relocs
7366 based on information we collected in tls_optimize. We edit
7367 RELOCS so that --emit-relocs will output something sensible
7368 for the final instruction stream. */
7371 if (IS_PPC64_TLS_RELOC (r_type
))
7374 tls_mask
= ((struct ppc_link_hash_entry
*) h
)->tls_mask
;
7375 else if (local_got_ents
!= NULL
)
7378 lgot_masks
= (char *) (local_got_ents
+ symtab_hdr
->sh_info
);
7379 tls_mask
= lgot_masks
[r_symndx
];
7383 /* Ensure reloc mapping code below stays sane. */
7384 if (R_PPC64_TOC16_LO_DS
!= R_PPC64_TOC16_DS
+ 1
7385 || R_PPC64_TOC16_LO
!= R_PPC64_TOC16
+ 1
7386 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TLSGD16
& 3)
7387 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TLSGD16_LO
& 3)
7388 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TLSGD16_HI
& 3)
7389 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TLSGD16_HA
& 3)
7390 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TPREL16_DS
& 3)
7391 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TPREL16_LO_DS
& 3)
7392 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TPREL16_HI
& 3)
7393 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TPREL16_HA
& 3))
7401 case R_PPC64_TOC16_LO
:
7402 case R_PPC64_TOC16_DS
:
7403 case R_PPC64_TOC16_LO_DS
:
7405 /* Check for toc tls entries. */
7409 retval
= get_tls_mask (&toc_tls
, &local_syms
, rel
, input_bfd
);
7415 tls_mask
= *toc_tls
;
7416 if (r_type
== R_PPC64_TOC16_DS
7417 || r_type
== R_PPC64_TOC16_LO_DS
)
7420 && (tls_mask
& (TLS_DTPREL
| TLS_TPREL
)) == 0)
7425 /* If we found a GD reloc pair, then we might be
7426 doing a GD->IE transition. */
7429 tls_gd
= TLS_TPRELGD
;
7430 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
7431 goto tls_get_addr_check
;
7433 else if (retval
== 3)
7435 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
7436 goto tls_get_addr_check
;
7443 case R_PPC64_GOT_TPREL16_DS
:
7444 case R_PPC64_GOT_TPREL16_LO_DS
:
7446 && (tls_mask
& TLS_TPREL
) == 0)
7449 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
- 2);
7451 insn
|= 0x3c0d0000; /* addis 0,13,0 */
7452 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
- 2);
7453 r_type
= R_PPC64_TPREL16_HA
;
7454 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7461 /* Check for toc tls entries. */
7464 if (!get_tls_mask (&toc_tls
, &local_syms
, rel
, input_bfd
))
7468 tls_mask
= *toc_tls
;
7471 && (tls_mask
& TLS_TPREL
) == 0)
7474 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
);
7475 if ((insn
& ((0x3f << 26) | (31 << 11)))
7476 == ((31 << 26) | (13 << 11)))
7477 rtra
= insn
& ((1 << 26) - (1 << 16));
7478 else if ((insn
& ((0x3f << 26) | (31 << 16)))
7479 == ((31 << 26) | (13 << 16)))
7480 rtra
= (insn
& (31 << 21)) | ((insn
& (31 << 11)) << 5);
7483 if ((insn
& ((1 << 11) - (1 << 1))) == 266 << 1)
7486 else if ((insn
& (31 << 1)) == 23 << 1
7487 && ((insn
& (31 << 6)) < 14 << 6
7488 || ((insn
& (31 << 6)) >= 16 << 6
7489 && (insn
& (31 << 6)) < 24 << 6)))
7490 /* load and store indexed -> dform. */
7491 insn
= (32 | ((insn
>> 6) & 31)) << 26;
7492 else if ((insn
& (31 << 1)) == 21 << 1
7493 && (insn
& (0x1a << 6)) == 0)
7494 /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu. */
7495 insn
= (((58 | ((insn
>> 6) & 4)) << 26)
7496 | ((insn
>> 6) & 1));
7497 else if ((insn
& (31 << 1)) == 21 << 1
7498 && (insn
& ((1 << 11) - (1 << 1))) == 341 << 1)
7500 insn
= (58 << 26) | 2;
7504 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
7505 r_type
= R_PPC64_TPREL16_LO
;
7506 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7507 /* Was PPC64_TLS which sits on insn boundary, now
7508 PPC64_TPREL16_LO which is at insn+2. */
7513 case R_PPC64_GOT_TLSGD16_HI
:
7514 case R_PPC64_GOT_TLSGD16_HA
:
7515 tls_gd
= TLS_TPRELGD
;
7516 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
7520 case R_PPC64_GOT_TLSLD16_HI
:
7521 case R_PPC64_GOT_TLSLD16_HA
:
7522 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
7525 if ((tls_mask
& tls_gd
) != 0)
7526 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
7527 + R_PPC64_GOT_TPREL16_DS
);
7530 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
7532 r_type
= R_PPC64_NONE
;
7534 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7538 case R_PPC64_GOT_TLSGD16
:
7539 case R_PPC64_GOT_TLSGD16_LO
:
7540 tls_gd
= TLS_TPRELGD
;
7541 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
7542 goto tls_get_addr_check
;
7545 case R_PPC64_GOT_TLSLD16
:
7546 case R_PPC64_GOT_TLSLD16_LO
:
7547 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
7550 if (rel
+ 1 < relend
)
7552 enum elf_ppc64_reloc_type r_type2
;
7553 unsigned long r_symndx2
;
7554 struct elf_link_hash_entry
*h2
;
7555 bfd_vma insn1
, insn2
, insn3
;
7558 /* The next instruction should be a call to
7559 __tls_get_addr. Peek at the reloc to be sure. */
7560 r_type2
= ELF64_R_TYPE (rel
[1].r_info
);
7561 r_symndx2
= ELF64_R_SYM (rel
[1].r_info
);
7562 if (r_symndx2
< symtab_hdr
->sh_info
7563 || (r_type2
!= R_PPC64_REL14
7564 && r_type2
!= R_PPC64_REL14_BRTAKEN
7565 && r_type2
!= R_PPC64_REL14_BRNTAKEN
7566 && r_type2
!= R_PPC64_REL24
))
7569 h2
= sym_hashes
[r_symndx2
- symtab_hdr
->sh_info
];
7570 while (h2
->root
.type
== bfd_link_hash_indirect
7571 || h2
->root
.type
== bfd_link_hash_warning
)
7572 h2
= (struct elf_link_hash_entry
*) h2
->root
.u
.i
.link
;
7573 if (h2
== NULL
|| h2
!= htab
->tls_get_addr
)
7576 /* OK, it checks out. Replace the call. */
7577 offset
= rel
[1].r_offset
;
7578 insn1
= bfd_get_32 (output_bfd
,
7579 contents
+ rel
->r_offset
- 2);
7580 insn3
= bfd_get_32 (output_bfd
,
7581 contents
+ offset
+ 4);
7582 if ((tls_mask
& tls_gd
) != 0)
7585 insn1
&= (1 << 26) - (1 << 2);
7586 insn1
|= 58 << 26; /* ld */
7587 insn2
= 0x7c636a14; /* add 3,3,13 */
7588 rel
[1].r_info
= ELF64_R_INFO (r_symndx2
, R_PPC64_NONE
);
7589 if ((tls_mask
& TLS_EXPLICIT
) == 0)
7590 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
7591 + R_PPC64_GOT_TPREL16_DS
);
7593 r_type
+= R_PPC64_TOC16_DS
- R_PPC64_TOC16
;
7594 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7599 insn1
= 0x3c6d0000; /* addis 3,13,0 */
7600 insn2
= 0x38630000; /* addi 3,3,0 */
7603 /* Was an LD reloc. */
7605 rel
->r_addend
= htab
->tls_sec
->vma
+ DTP_OFFSET
;
7606 rel
[1].r_addend
= htab
->tls_sec
->vma
+ DTP_OFFSET
;
7608 r_type
= R_PPC64_TPREL16_HA
;
7609 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7610 rel
[1].r_info
= ELF64_R_INFO (r_symndx
,
7611 R_PPC64_TPREL16_LO
);
7612 rel
[1].r_offset
+= 2;
7615 || insn3
== CROR_151515
|| insn3
== CROR_313131
)
7619 rel
[1].r_offset
+= 4;
7621 bfd_put_32 (output_bfd
, insn1
, contents
+ rel
->r_offset
- 2);
7622 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
);
7623 bfd_put_32 (output_bfd
, insn3
, contents
+ offset
+ 4);
7626 /* We changed the symbol on an LD reloc. Start over
7627 in order to get h, sym, sec etc. right. */
7635 case R_PPC64_DTPMOD64
:
7636 if (rel
+ 1 < relend
7637 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
7638 && rel
[1].r_offset
== rel
->r_offset
+ 8)
7640 if ((tls_mask
& TLS_GD
) == 0)
7642 rel
[1].r_info
= ELF64_R_INFO (r_symndx
, R_PPC64_NONE
);
7643 if ((tls_mask
& TLS_TPRELGD
) != 0)
7644 r_type
= R_PPC64_TPREL64
;
7647 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
7648 r_type
= R_PPC64_NONE
;
7650 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7655 if ((tls_mask
& TLS_LD
) == 0)
7657 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
7658 r_type
= R_PPC64_NONE
;
7659 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7664 case R_PPC64_TPREL64
:
7665 if ((tls_mask
& TLS_TPREL
) == 0)
7667 r_type
= R_PPC64_NONE
;
7668 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
7673 /* Handle other relocations that tweak non-addend part of insn. */
7680 /* Branch taken prediction relocations. */
7681 case R_PPC64_ADDR14_BRTAKEN
:
7682 case R_PPC64_REL14_BRTAKEN
:
7683 insn
= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
7686 /* Branch not taken prediction relocations. */
7687 case R_PPC64_ADDR14_BRNTAKEN
:
7688 case R_PPC64_REL14_BRNTAKEN
:
7689 insn
|= bfd_get_32 (output_bfd
,
7690 contents
+ rel
->r_offset
) & ~(0x01 << 21);
7693 /* Set 'a' bit. This is 0b00010 in BO field for branch
7694 on CR(BI) insns (BO == 001at or 011at), and 0b01000
7695 for branch on CTR insns (BO == 1a00t or 1a01t). */
7696 if ((insn
& (0x14 << 21)) == (0x04 << 21))
7698 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
7705 from
= (rel
->r_offset
7706 + input_section
->output_offset
7707 + input_section
->output_section
->vma
);
7709 /* Invert 'y' bit if not the default. */
7710 if ((bfd_signed_vma
) (relocation
+ rel
->r_addend
- from
) < 0)
7714 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
7718 /* Calls to functions with a different TOC, such as calls to
7719 shared objects, need to alter the TOC pointer. This is
7720 done using a linkage stub. A REL24 branching to these
7721 linkage stubs needs to be followed by a nop, as the nop
7722 will be replaced with an instruction to restore the TOC
7725 && (fdh
= ((struct ppc_link_hash_entry
*) h
)->oh
) != NULL
7726 && fdh
->plt
.plist
!= NULL
)
7727 || ((fdh
= h
, sec
) != NULL
7728 && sec
->output_section
!= NULL
7729 && (htab
->stub_group
[sec
->id
].toc_off
7730 != htab
->stub_group
[input_section
->id
].toc_off
)))
7731 && (stub_entry
= ppc_get_stub_entry (input_section
, sec
, fdh
,
7733 && (stub_entry
->stub_type
== ppc_stub_plt_call
7734 || stub_entry
->stub_type
== ppc_stub_plt_branch_r2off
7735 || stub_entry
->stub_type
== ppc_stub_long_branch_r2off
))
7737 bfd_boolean can_plt_call
= 0;
7739 if (rel
->r_offset
+ 8 <= input_section
->_cooked_size
)
7741 insn
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
+ 4);
7743 || insn
== CROR_151515
|| insn
== CROR_313131
)
7745 bfd_put_32 (input_bfd
, LD_R2_40R1
,
7746 contents
+ rel
->r_offset
+ 4);
7753 if (stub_entry
->stub_type
== ppc_stub_plt_call
)
7755 /* If this is a plain branch rather than a branch
7756 and link, don't require a nop. */
7757 insn
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
);
7758 if ((insn
& 1) == 0)
7762 && strcmp (h
->root
.root
.string
,
7763 ".__libc_start_main") == 0)
7765 /* Allow crt1 branch to go via a toc adjusting stub. */
7770 if (strcmp (input_section
->output_section
->name
,
7772 || strcmp (input_section
->output_section
->name
,
7774 (*_bfd_error_handler
)
7775 (_("%s(%s+0x%lx): automatic multiple TOCs "
7776 "not supported using your crt files; "
7777 "recompile with -mminimal-toc or upgrade gcc"),
7778 bfd_archive_filename (input_bfd
),
7779 input_section
->name
,
7780 (long) rel
->r_offset
);
7782 (*_bfd_error_handler
)
7783 (_("%s(%s+0x%lx): sibling call optimization to `%s' "
7784 "does not allow automatic multiple TOCs; "
7785 "recompile with -mminimal-toc or "
7786 "-fno-optimize-sibling-calls, "
7787 "or make `%s' extern"),
7788 bfd_archive_filename (input_bfd
),
7789 input_section
->name
,
7790 (long) rel
->r_offset
,
7793 bfd_set_error (bfd_error_bad_value
);
7800 relocation
= (stub_entry
->stub_offset
7801 + stub_entry
->stub_sec
->output_offset
7802 + stub_entry
->stub_sec
->output_section
->vma
);
7803 if (stub_entry
->stub_type
== ppc_stub_plt_call
)
7804 unresolved_reloc
= FALSE
;
7809 && h
->root
.type
== bfd_link_hash_undefweak
7811 && rel
->r_addend
== 0)
7813 /* Tweak calls to undefined weak functions to point at a
7814 blr. We can thus call a weak function without first
7815 checking whether the function is defined. We have a
7816 blr at the end of .sfpr. */
7817 BFD_ASSERT (htab
->sfpr
->_raw_size
!= 0);
7818 relocation
= (htab
->sfpr
->_raw_size
- 4
7819 + htab
->sfpr
->output_offset
7820 + htab
->sfpr
->output_section
->vma
);
7821 from
= (rel
->r_offset
7822 + input_section
->output_offset
7823 + input_section
->output_section
->vma
);
7825 /* But let's not be silly about it. If the blr isn't in
7826 reach, just go to the next instruction. */
7827 if (relocation
- from
+ (1 << 25) >= (1 << 26)
7828 || htab
->sfpr
->_raw_size
== 0)
7829 relocation
= from
+ 4;
7836 addend
= rel
->r_addend
;
7840 (*_bfd_error_handler
)
7841 (_("%s: unknown relocation type %d for symbol %s"),
7842 bfd_archive_filename (input_bfd
), (int) r_type
, sym_name
);
7844 bfd_set_error (bfd_error_bad_value
);
7850 case R_PPC64_GNU_VTINHERIT
:
7851 case R_PPC64_GNU_VTENTRY
:
7854 /* GOT16 relocations. Like an ADDR16 using the symbol's
7855 address in the GOT as relocation value instead of the
7856 symbol's value itself. Also, create a GOT entry for the
7857 symbol and put the symbol value there. */
7858 case R_PPC64_GOT_TLSGD16
:
7859 case R_PPC64_GOT_TLSGD16_LO
:
7860 case R_PPC64_GOT_TLSGD16_HI
:
7861 case R_PPC64_GOT_TLSGD16_HA
:
7862 tls_type
= TLS_TLS
| TLS_GD
;
7865 case R_PPC64_GOT_TLSLD16
:
7866 case R_PPC64_GOT_TLSLD16_LO
:
7867 case R_PPC64_GOT_TLSLD16_HI
:
7868 case R_PPC64_GOT_TLSLD16_HA
:
7869 tls_type
= TLS_TLS
| TLS_LD
;
7872 case R_PPC64_GOT_TPREL16_DS
:
7873 case R_PPC64_GOT_TPREL16_LO_DS
:
7874 case R_PPC64_GOT_TPREL16_HI
:
7875 case R_PPC64_GOT_TPREL16_HA
:
7876 tls_type
= TLS_TLS
| TLS_TPREL
;
7879 case R_PPC64_GOT_DTPREL16_DS
:
7880 case R_PPC64_GOT_DTPREL16_LO_DS
:
7881 case R_PPC64_GOT_DTPREL16_HI
:
7882 case R_PPC64_GOT_DTPREL16_HA
:
7883 tls_type
= TLS_TLS
| TLS_DTPREL
;
7887 case R_PPC64_GOT16_LO
:
7888 case R_PPC64_GOT16_HI
:
7889 case R_PPC64_GOT16_HA
:
7890 case R_PPC64_GOT16_DS
:
7891 case R_PPC64_GOT16_LO_DS
:
7894 /* Relocation is to the entry for this symbol in the global
7899 unsigned long indx
= 0;
7901 if (tls_type
== (TLS_TLS
| TLS_LD
)
7903 || !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
)))
7904 offp
= &ppc64_tlsld_got (input_bfd
)->offset
;
7907 struct got_entry
*ent
;
7911 bfd_boolean dyn
= htab
->elf
.dynamic_sections_created
;
7912 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, info
->shared
, h
)
7914 && SYMBOL_REFERENCES_LOCAL (info
, h
)))
7915 /* This is actually a static link, or it is a
7916 -Bsymbolic link and the symbol is defined
7917 locally, or the symbol was forced to be local
7918 because of a version file. */
7923 unresolved_reloc
= FALSE
;
7929 if (local_got_ents
== NULL
)
7931 ent
= local_got_ents
[r_symndx
];
7934 for (; ent
!= NULL
; ent
= ent
->next
)
7935 if (ent
->addend
== rel
->r_addend
7936 && ent
->owner
== input_bfd
7937 && ent
->tls_type
== tls_type
)
7941 offp
= &ent
->got
.offset
;
7944 got
= ppc64_elf_tdata (input_bfd
)->got
;
7948 /* The offset must always be a multiple of 8. We use the
7949 least significant bit to record whether we have already
7950 processed this entry. */
7956 /* Generate relocs for the dynamic linker, except in
7957 the case of TLSLD where we'll use one entry per
7959 asection
*relgot
= ppc64_elf_tdata (input_bfd
)->relgot
;
7962 if ((info
->shared
|| indx
!= 0)
7964 || ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
7965 || h
->root
.type
!= bfd_link_hash_undefweak
))
7967 outrel
.r_offset
= (got
->output_section
->vma
7968 + got
->output_offset
7970 outrel
.r_addend
= rel
->r_addend
;
7971 if (tls_type
& (TLS_LD
| TLS_GD
))
7973 outrel
.r_addend
= 0;
7974 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPMOD64
);
7975 if (tls_type
== (TLS_TLS
| TLS_GD
))
7977 loc
= relgot
->contents
;
7978 loc
+= (relgot
->reloc_count
++
7979 * sizeof (Elf64_External_Rela
));
7980 bfd_elf64_swap_reloca_out (output_bfd
,
7982 outrel
.r_offset
+= 8;
7983 outrel
.r_addend
= rel
->r_addend
;
7985 = ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
7988 else if (tls_type
== (TLS_TLS
| TLS_DTPREL
))
7989 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
7990 else if (tls_type
== (TLS_TLS
| TLS_TPREL
))
7991 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_TPREL64
);
7994 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_RELATIVE
);
7996 /* Write the .got section contents for the sake
7998 loc
= got
->contents
+ off
;
7999 bfd_put_64 (output_bfd
, outrel
.r_addend
+ relocation
,
8003 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_GLOB_DAT
);
8005 if (indx
== 0 && tls_type
!= (TLS_TLS
| TLS_LD
))
8007 outrel
.r_addend
+= relocation
;
8008 if (tls_type
& (TLS_GD
| TLS_DTPREL
| TLS_TPREL
))
8009 outrel
.r_addend
-= htab
->tls_sec
->vma
;
8011 loc
= relgot
->contents
;
8012 loc
+= (relgot
->reloc_count
++
8013 * sizeof (Elf64_External_Rela
));
8014 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
8017 /* Init the .got section contents here if we're not
8018 emitting a reloc. */
8021 relocation
+= rel
->r_addend
;
8022 if (tls_type
== (TLS_TLS
| TLS_LD
))
8024 else if (tls_type
!= 0)
8026 relocation
-= htab
->tls_sec
->vma
+ DTP_OFFSET
;
8027 if (tls_type
== (TLS_TLS
| TLS_TPREL
))
8028 relocation
+= DTP_OFFSET
- TP_OFFSET
;
8030 if (tls_type
== (TLS_TLS
| TLS_GD
))
8032 bfd_put_64 (output_bfd
, relocation
,
8033 got
->contents
+ off
+ 8);
8038 bfd_put_64 (output_bfd
, relocation
,
8039 got
->contents
+ off
);
8043 if (off
>= (bfd_vma
) -2)
8046 relocation
= got
->output_offset
+ off
;
8048 /* TOC base (r2) is TOC start plus 0x8000. */
8049 addend
= -TOC_BASE_OFF
;
8053 case R_PPC64_PLT16_HA
:
8054 case R_PPC64_PLT16_HI
:
8055 case R_PPC64_PLT16_LO
:
8058 /* Relocation is to the entry for this symbol in the
8059 procedure linkage table. */
8061 /* Resolve a PLT reloc against a local symbol directly,
8062 without using the procedure linkage table. */
8066 /* It's possible that we didn't make a PLT entry for this
8067 symbol. This happens when statically linking PIC code,
8068 or when using -Bsymbolic. Go find a match if there is a
8070 if (htab
->plt
!= NULL
)
8072 struct plt_entry
*ent
;
8073 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
8074 if (ent
->addend
== rel
->r_addend
8075 && ent
->plt
.offset
!= (bfd_vma
) -1)
8077 relocation
= (htab
->plt
->output_section
->vma
8078 + htab
->plt
->output_offset
8080 unresolved_reloc
= FALSE
;
8086 /* Relocation value is TOC base. */
8087 relocation
= TOCstart
;
8089 relocation
+= htab
->stub_group
[input_section
->id
].toc_off
;
8090 else if (sec
!= NULL
&& !unresolved_reloc
)
8091 relocation
+= htab
->stub_group
[sec
->id
].toc_off
;
8093 unresolved_reloc
= TRUE
;
8096 /* TOC16 relocs. We want the offset relative to the TOC base,
8097 which is the address of the start of the TOC plus 0x8000.
8098 The TOC consists of sections .got, .toc, .tocbss, and .plt,
8101 case R_PPC64_TOC16_LO
:
8102 case R_PPC64_TOC16_HI
:
8103 case R_PPC64_TOC16_DS
:
8104 case R_PPC64_TOC16_LO_DS
:
8105 case R_PPC64_TOC16_HA
:
8106 addend
-= TOCstart
+ htab
->stub_group
[input_section
->id
].toc_off
;
8109 /* Relocate against the beginning of the section. */
8110 case R_PPC64_SECTOFF
:
8111 case R_PPC64_SECTOFF_LO
:
8112 case R_PPC64_SECTOFF_HI
:
8113 case R_PPC64_SECTOFF_DS
:
8114 case R_PPC64_SECTOFF_LO_DS
:
8115 case R_PPC64_SECTOFF_HA
:
8117 addend
-= sec
->output_section
->vma
;
8121 case R_PPC64_REL14_BRNTAKEN
:
8122 case R_PPC64_REL14_BRTAKEN
:
8126 case R_PPC64_TPREL16
:
8127 case R_PPC64_TPREL16_LO
:
8128 case R_PPC64_TPREL16_HI
:
8129 case R_PPC64_TPREL16_HA
:
8130 case R_PPC64_TPREL16_DS
:
8131 case R_PPC64_TPREL16_LO_DS
:
8132 case R_PPC64_TPREL16_HIGHER
:
8133 case R_PPC64_TPREL16_HIGHERA
:
8134 case R_PPC64_TPREL16_HIGHEST
:
8135 case R_PPC64_TPREL16_HIGHESTA
:
8136 addend
-= htab
->tls_sec
->vma
+ TP_OFFSET
;
8138 /* The TPREL16 relocs shouldn't really be used in shared
8139 libs as they will result in DT_TEXTREL being set, but
8140 support them anyway. */
8144 case R_PPC64_DTPREL16
:
8145 case R_PPC64_DTPREL16_LO
:
8146 case R_PPC64_DTPREL16_HI
:
8147 case R_PPC64_DTPREL16_HA
:
8148 case R_PPC64_DTPREL16_DS
:
8149 case R_PPC64_DTPREL16_LO_DS
:
8150 case R_PPC64_DTPREL16_HIGHER
:
8151 case R_PPC64_DTPREL16_HIGHERA
:
8152 case R_PPC64_DTPREL16_HIGHEST
:
8153 case R_PPC64_DTPREL16_HIGHESTA
:
8154 addend
-= htab
->tls_sec
->vma
+ DTP_OFFSET
;
8157 case R_PPC64_DTPMOD64
:
8162 case R_PPC64_TPREL64
:
8163 addend
-= htab
->tls_sec
->vma
+ TP_OFFSET
;
8166 case R_PPC64_DTPREL64
:
8167 addend
-= htab
->tls_sec
->vma
+ DTP_OFFSET
;
8170 /* Relocations that may need to be propagated if this is a
8175 case R_PPC64_ADDR14
:
8176 case R_PPC64_ADDR14_BRNTAKEN
:
8177 case R_PPC64_ADDR14_BRTAKEN
:
8178 case R_PPC64_ADDR16
:
8179 case R_PPC64_ADDR16_DS
:
8180 case R_PPC64_ADDR16_HA
:
8181 case R_PPC64_ADDR16_HI
:
8182 case R_PPC64_ADDR16_HIGHER
:
8183 case R_PPC64_ADDR16_HIGHERA
:
8184 case R_PPC64_ADDR16_HIGHEST
:
8185 case R_PPC64_ADDR16_HIGHESTA
:
8186 case R_PPC64_ADDR16_LO
:
8187 case R_PPC64_ADDR16_LO_DS
:
8188 case R_PPC64_ADDR24
:
8189 case R_PPC64_ADDR32
:
8190 case R_PPC64_ADDR64
:
8191 case R_PPC64_UADDR16
:
8192 case R_PPC64_UADDR32
:
8193 case R_PPC64_UADDR64
:
8194 /* r_symndx will be zero only for relocs against symbols
8195 from removed linkonce sections, or sections discarded by
8203 if ((input_section
->flags
& SEC_ALLOC
) == 0)
8206 if (NO_OPD_RELOCS
&& is_opd
)
8211 || ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
8212 || h
->root
.type
!= bfd_link_hash_undefweak
)
8213 && (MUST_BE_DYN_RELOC (r_type
)
8214 || !SYMBOL_CALLS_LOCAL (info
, h
)))
8215 || (ELIMINATE_COPY_RELOCS
8219 && (h
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
) == 0
8220 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0
8221 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0))
8223 Elf_Internal_Rela outrel
;
8224 bfd_boolean skip
, relocate
;
8229 /* When generating a dynamic object, these relocations
8230 are copied into the output file to be resolved at run
8236 out_off
= _bfd_elf_section_offset (output_bfd
, info
,
8237 input_section
, rel
->r_offset
);
8238 if (out_off
== (bfd_vma
) -1)
8240 else if (out_off
== (bfd_vma
) -2)
8241 skip
= TRUE
, relocate
= TRUE
;
8242 out_off
+= (input_section
->output_section
->vma
8243 + input_section
->output_offset
);
8244 outrel
.r_offset
= out_off
;
8245 outrel
.r_addend
= rel
->r_addend
;
8247 /* Optimize unaligned reloc use. */
8248 if ((r_type
== R_PPC64_ADDR64
&& (out_off
& 7) != 0)
8249 || (r_type
== R_PPC64_UADDR64
&& (out_off
& 7) == 0))
8250 r_type
^= R_PPC64_ADDR64
^ R_PPC64_UADDR64
;
8251 else if ((r_type
== R_PPC64_ADDR32
&& (out_off
& 3) != 0)
8252 || (r_type
== R_PPC64_UADDR32
&& (out_off
& 3) == 0))
8253 r_type
^= R_PPC64_ADDR32
^ R_PPC64_UADDR32
;
8254 else if ((r_type
== R_PPC64_ADDR16
&& (out_off
& 1) != 0)
8255 || (r_type
== R_PPC64_UADDR16
&& (out_off
& 1) == 0))
8256 r_type
^= R_PPC64_ADDR16
^ R_PPC64_UADDR16
;
8259 memset (&outrel
, 0, sizeof outrel
);
8260 else if (!SYMBOL_REFERENCES_LOCAL (info
, h
)
8262 && r_type
!= R_PPC64_TOC
)
8263 outrel
.r_info
= ELF64_R_INFO (h
->dynindx
, r_type
);
8266 /* This symbol is local, or marked to become local,
8267 or this is an opd section reloc which must point
8268 at a local function. */
8269 outrel
.r_addend
+= relocation
;
8270 if (r_type
== R_PPC64_ADDR64
|| r_type
== R_PPC64_TOC
)
8272 if (is_opd
&& h
!= NULL
)
8274 /* Lie about opd entries. This case occurs
8275 when building shared libraries and we
8276 reference a function in another shared
8277 lib. The same thing happens for a weak
8278 definition in an application that's
8279 overridden by a strong definition in a
8280 shared lib. (I believe this is a generic
8281 bug in binutils handling of weak syms.)
8282 In these cases we won't use the opd
8283 entry in this lib. */
8284 unresolved_reloc
= FALSE
;
8286 outrel
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
8288 /* We need to relocate .opd contents for ld.so.
8289 Prelink also wants simple and consistent rules
8290 for relocs. This make all RELATIVE relocs have
8291 *r_offset equal to r_addend. */
8298 if (bfd_is_abs_section (sec
))
8300 else if (sec
== NULL
|| sec
->owner
== NULL
)
8302 bfd_set_error (bfd_error_bad_value
);
8309 osec
= sec
->output_section
;
8310 indx
= elf_section_data (osec
)->dynindx
;
8312 /* We are turning this relocation into one
8313 against a section symbol, so subtract out
8314 the output section's address but not the
8315 offset of the input section in the output
8317 outrel
.r_addend
-= osec
->vma
;
8320 outrel
.r_info
= ELF64_R_INFO (indx
, r_type
);
8324 sreloc
= elf_section_data (input_section
)->sreloc
;
8328 loc
= sreloc
->contents
;
8329 loc
+= sreloc
->reloc_count
++ * sizeof (Elf64_External_Rela
);
8330 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
8332 /* If this reloc is against an external symbol, it will
8333 be computed at runtime, so there's no need to do
8334 anything now. However, for the sake of prelink ensure
8335 that the section contents are a known value. */
8338 unresolved_reloc
= FALSE
;
8339 /* The value chosen here is quite arbitrary as ld.so
8340 ignores section contents except for the special
8341 case of .opd where the contents might be accessed
8342 before relocation. Choose zero, as that won't
8343 cause reloc overflow. */
8346 /* Use *r_offset == r_addend for R_PPC64_ADDR64 relocs
8347 to improve backward compatibility with older
8349 if (r_type
== R_PPC64_ADDR64
)
8350 addend
= outrel
.r_addend
;
8351 /* Adjust pc_relative relocs to have zero in *r_offset. */
8352 else if (ppc64_elf_howto_table
[r_type
]->pc_relative
)
8353 addend
= (input_section
->output_section
->vma
8354 + input_section
->output_offset
8361 case R_PPC64_GLOB_DAT
:
8362 case R_PPC64_JMP_SLOT
:
8363 case R_PPC64_RELATIVE
:
8364 /* We shouldn't ever see these dynamic relocs in relocatable
8368 case R_PPC64_PLTGOT16
:
8369 case R_PPC64_PLTGOT16_DS
:
8370 case R_PPC64_PLTGOT16_HA
:
8371 case R_PPC64_PLTGOT16_HI
:
8372 case R_PPC64_PLTGOT16_LO
:
8373 case R_PPC64_PLTGOT16_LO_DS
:
8374 case R_PPC64_PLTREL32
:
8375 case R_PPC64_PLTREL64
:
8376 /* These ones haven't been implemented yet. */
8378 (*_bfd_error_handler
)
8379 (_("%s: relocation %s is not supported for symbol %s."),
8380 bfd_archive_filename (input_bfd
),
8381 ppc64_elf_howto_table
[r_type
]->name
, sym_name
);
8383 bfd_set_error (bfd_error_invalid_operation
);
8388 /* Do any further special processing. */
8394 case R_PPC64_ADDR16_HA
:
8395 case R_PPC64_ADDR16_HIGHERA
:
8396 case R_PPC64_ADDR16_HIGHESTA
:
8397 case R_PPC64_GOT16_HA
:
8398 case R_PPC64_PLTGOT16_HA
:
8399 case R_PPC64_PLT16_HA
:
8400 case R_PPC64_TOC16_HA
:
8401 case R_PPC64_SECTOFF_HA
:
8402 case R_PPC64_TPREL16_HA
:
8403 case R_PPC64_DTPREL16_HA
:
8404 case R_PPC64_GOT_TLSGD16_HA
:
8405 case R_PPC64_GOT_TLSLD16_HA
:
8406 case R_PPC64_GOT_TPREL16_HA
:
8407 case R_PPC64_GOT_DTPREL16_HA
:
8408 case R_PPC64_TPREL16_HIGHER
:
8409 case R_PPC64_TPREL16_HIGHERA
:
8410 case R_PPC64_TPREL16_HIGHEST
:
8411 case R_PPC64_TPREL16_HIGHESTA
:
8412 case R_PPC64_DTPREL16_HIGHER
:
8413 case R_PPC64_DTPREL16_HIGHERA
:
8414 case R_PPC64_DTPREL16_HIGHEST
:
8415 case R_PPC64_DTPREL16_HIGHESTA
:
8416 /* It's just possible that this symbol is a weak symbol
8417 that's not actually defined anywhere. In that case,
8418 'sec' would be NULL, and we should leave the symbol
8419 alone (it will be set to zero elsewhere in the link). */
8421 /* Add 0x10000 if sign bit in 0:15 is set.
8422 Bits 0:15 are not used. */
8426 case R_PPC64_ADDR16_DS
:
8427 case R_PPC64_ADDR16_LO_DS
:
8428 case R_PPC64_GOT16_DS
:
8429 case R_PPC64_GOT16_LO_DS
:
8430 case R_PPC64_PLT16_LO_DS
:
8431 case R_PPC64_SECTOFF_DS
:
8432 case R_PPC64_SECTOFF_LO_DS
:
8433 case R_PPC64_TOC16_DS
:
8434 case R_PPC64_TOC16_LO_DS
:
8435 case R_PPC64_PLTGOT16_DS
:
8436 case R_PPC64_PLTGOT16_LO_DS
:
8437 case R_PPC64_GOT_TPREL16_DS
:
8438 case R_PPC64_GOT_TPREL16_LO_DS
:
8439 case R_PPC64_GOT_DTPREL16_DS
:
8440 case R_PPC64_GOT_DTPREL16_LO_DS
:
8441 case R_PPC64_TPREL16_DS
:
8442 case R_PPC64_TPREL16_LO_DS
:
8443 case R_PPC64_DTPREL16_DS
:
8444 case R_PPC64_DTPREL16_LO_DS
:
8445 insn
= bfd_get_32 (input_bfd
, contents
+ (rel
->r_offset
& ~3));
8447 /* If this reloc is against an lq insn, then the value must be
8448 a multiple of 16. This is somewhat of a hack, but the
8449 "correct" way to do this by defining _DQ forms of all the
8450 _DS relocs bloats all reloc switches in this file. It
8451 doesn't seem to make much sense to use any of these relocs
8452 in data, so testing the insn should be safe. */
8453 if ((insn
& (0x3f << 26)) == (56u << 26))
8455 if (((relocation
+ addend
) & mask
) != 0)
8457 (*_bfd_error_handler
)
8458 (_("%s: error: relocation %s not a multiple of %d"),
8459 bfd_archive_filename (input_bfd
),
8460 ppc64_elf_howto_table
[r_type
]->name
,
8462 bfd_set_error (bfd_error_bad_value
);
8469 case R_PPC64_REL14_BRNTAKEN
:
8470 case R_PPC64_REL14_BRTAKEN
:
8471 max_br_offset
= 1 << 15;
8475 max_br_offset
= 1 << 25;
8478 /* If the branch is out of reach or the TOC register needs
8479 adjusting, then redirect the call to the local stub for
8481 from
= (rel
->r_offset
8482 + input_section
->output_offset
8483 + input_section
->output_section
->vma
);
8484 if ((relocation
+ addend
- from
+ max_br_offset
>= 2 * max_br_offset
8486 && sec
->output_section
!= NULL
8487 && sec
->id
<= htab
->top_id
8488 && (htab
->stub_group
[sec
->id
].toc_off
8489 != htab
->stub_group
[input_section
->id
].toc_off
)))
8490 && (stub_entry
= ppc_get_stub_entry (input_section
, sec
, h
,
8491 rel
, htab
)) != NULL
)
8493 /* Munge up the value and addend so that we call the stub
8494 rather than the procedure directly. */
8495 relocation
= (stub_entry
->stub_offset
8496 + stub_entry
->stub_sec
->output_offset
8497 + stub_entry
->stub_sec
->output_section
->vma
);
8503 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
8504 because such sections are not SEC_ALLOC and thus ld.so will
8505 not process them. */
8506 if (unresolved_reloc
8507 && !((input_section
->flags
& SEC_DEBUGGING
) != 0
8508 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0))
8510 (*_bfd_error_handler
)
8511 (_("%s(%s+0x%lx): unresolvable %s relocation against symbol `%s'"),
8512 bfd_archive_filename (input_bfd
),
8513 bfd_get_section_name (input_bfd
, input_section
),
8514 (long) rel
->r_offset
,
8515 ppc64_elf_howto_table
[(int) r_type
]->name
,
8516 h
->root
.root
.string
);
8520 r
= _bfd_final_link_relocate (ppc64_elf_howto_table
[(int) r_type
],
8528 if (r
!= bfd_reloc_ok
)
8530 if (sym_name
== NULL
)
8531 sym_name
= "(null)";
8532 if (r
== bfd_reloc_overflow
)
8537 && h
->root
.type
== bfd_link_hash_undefweak
8538 && ppc64_elf_howto_table
[r_type
]->pc_relative
)
8540 /* Assume this is a call protected by other code that
8541 detects the symbol is undefined. If this is the case,
8542 we can safely ignore the overflow. If not, the
8543 program is hosed anyway, and a little warning isn't
8549 if (!((*info
->callbacks
->reloc_overflow
)
8550 (info
, sym_name
, ppc64_elf_howto_table
[r_type
]->name
,
8551 rel
->r_addend
, input_bfd
, input_section
, rel
->r_offset
)))
8556 (*_bfd_error_handler
)
8557 (_("%s(%s+0x%lx): %s reloc against `%s': error %d"),
8558 bfd_archive_filename (input_bfd
),
8559 bfd_get_section_name (input_bfd
, input_section
),
8560 (long) rel
->r_offset
,
8561 ppc64_elf_howto_table
[r_type
]->name
,
8572 /* Finish up dynamic symbol handling. We set the contents of various
8573 dynamic sections here. */
8576 ppc64_elf_finish_dynamic_symbol (bfd
*output_bfd
,
8577 struct bfd_link_info
*info
,
8578 struct elf_link_hash_entry
*h
,
8579 Elf_Internal_Sym
*sym
)
8581 struct ppc_link_hash_table
*htab
;
8584 htab
= ppc_hash_table (info
);
8585 dynobj
= htab
->elf
.dynobj
;
8587 if (((struct ppc_link_hash_entry
*) h
)->is_func_descriptor
)
8589 struct plt_entry
*ent
;
8590 Elf_Internal_Rela rela
;
8593 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
8594 if (ent
->plt
.offset
!= (bfd_vma
) -1)
8596 /* This symbol has an entry in the procedure linkage
8597 table. Set it up. */
8599 if (htab
->plt
== NULL
8600 || htab
->relplt
== NULL
8601 || htab
->glink
== NULL
)
8604 /* Create a JMP_SLOT reloc to inform the dynamic linker to
8605 fill in the PLT entry. */
8606 rela
.r_offset
= (htab
->plt
->output_section
->vma
8607 + htab
->plt
->output_offset
8609 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_JMP_SLOT
);
8610 rela
.r_addend
= ent
->addend
;
8612 loc
= htab
->relplt
->contents
;
8613 loc
+= ((ent
->plt
.offset
- PLT_INITIAL_ENTRY_SIZE
) / PLT_ENTRY_SIZE
8614 * sizeof (Elf64_External_Rela
));
8615 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
8619 if ((h
->elf_link_hash_flags
& ELF_LINK_HASH_NEEDS_COPY
) != 0)
8621 Elf_Internal_Rela rela
;
8624 /* This symbol needs a copy reloc. Set it up. */
8626 if (h
->dynindx
== -1
8627 || (h
->root
.type
!= bfd_link_hash_defined
8628 && h
->root
.type
!= bfd_link_hash_defweak
)
8629 || htab
->relbss
== NULL
)
8632 rela
.r_offset
= (h
->root
.u
.def
.value
8633 + h
->root
.u
.def
.section
->output_section
->vma
8634 + h
->root
.u
.def
.section
->output_offset
);
8635 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_COPY
);
8637 loc
= htab
->relbss
->contents
;
8638 loc
+= htab
->relbss
->reloc_count
++ * sizeof (Elf64_External_Rela
);
8639 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
8642 /* Mark some specially defined symbols as absolute. */
8643 if (strcmp (h
->root
.root
.string
, "_DYNAMIC") == 0)
8644 sym
->st_shndx
= SHN_ABS
;
8649 /* Used to decide how to sort relocs in an optimal manner for the
8650 dynamic linker, before writing them out. */
8652 static enum elf_reloc_type_class
8653 ppc64_elf_reloc_type_class (const Elf_Internal_Rela
*rela
)
8655 enum elf_ppc64_reloc_type r_type
;
8657 r_type
= ELF64_R_TYPE (rela
->r_info
);
8660 case R_PPC64_RELATIVE
:
8661 return reloc_class_relative
;
8662 case R_PPC64_JMP_SLOT
:
8663 return reloc_class_plt
;
8665 return reloc_class_copy
;
8667 return reloc_class_normal
;
8671 /* Finish up the dynamic sections. */
8674 ppc64_elf_finish_dynamic_sections (bfd
*output_bfd
,
8675 struct bfd_link_info
*info
)
8677 struct ppc_link_hash_table
*htab
;
8681 htab
= ppc_hash_table (info
);
8682 dynobj
= htab
->elf
.dynobj
;
8683 sdyn
= bfd_get_section_by_name (dynobj
, ".dynamic");
8685 if (htab
->elf
.dynamic_sections_created
)
8687 Elf64_External_Dyn
*dyncon
, *dynconend
;
8689 if (sdyn
== NULL
|| htab
->got
== NULL
)
8692 dyncon
= (Elf64_External_Dyn
*) sdyn
->contents
;
8693 dynconend
= (Elf64_External_Dyn
*) (sdyn
->contents
+ sdyn
->_raw_size
);
8694 for (; dyncon
< dynconend
; dyncon
++)
8696 Elf_Internal_Dyn dyn
;
8699 bfd_elf64_swap_dyn_in (dynobj
, dyncon
, &dyn
);
8706 case DT_PPC64_GLINK
:
8708 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
8709 /* We stupidly defined DT_PPC64_GLINK to be the start
8710 of glink rather than the first entry point, which is
8711 what ld.so needs, and now have a bigger stub to
8712 support automatic multiple TOCs. */
8713 dyn
.d_un
.d_ptr
+= GLINK_CALL_STUB_SIZE
- 32;
8717 s
= bfd_get_section_by_name (output_bfd
, ".opd");
8720 dyn
.d_un
.d_ptr
= s
->vma
;
8723 case DT_PPC64_OPDSZ
:
8724 s
= bfd_get_section_by_name (output_bfd
, ".opd");
8727 dyn
.d_un
.d_val
= s
->_raw_size
;
8732 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
8737 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
8741 dyn
.d_un
.d_val
= htab
->relplt
->_raw_size
;
8745 /* Don't count procedure linkage table relocs in the
8746 overall reloc count. */
8750 dyn
.d_un
.d_val
-= s
->_raw_size
;
8754 /* We may not be using the standard ELF linker script.
8755 If .rela.plt is the first .rela section, we adjust
8756 DT_RELA to not include it. */
8760 if (dyn
.d_un
.d_ptr
!= s
->output_section
->vma
+ s
->output_offset
)
8762 dyn
.d_un
.d_ptr
+= s
->_raw_size
;
8766 bfd_elf64_swap_dyn_out (output_bfd
, &dyn
, dyncon
);
8770 if (htab
->got
!= NULL
&& htab
->got
->_raw_size
!= 0)
8772 /* Fill in the first entry in the global offset table.
8773 We use it to hold the link-time TOCbase. */
8774 bfd_put_64 (output_bfd
,
8775 elf_gp (output_bfd
) + TOC_BASE_OFF
,
8776 htab
->got
->contents
);
8778 /* Set .got entry size. */
8779 elf_section_data (htab
->got
->output_section
)->this_hdr
.sh_entsize
= 8;
8782 if (htab
->plt
!= NULL
&& htab
->plt
->_raw_size
!= 0)
8784 /* Set .plt entry size. */
8785 elf_section_data (htab
->plt
->output_section
)->this_hdr
.sh_entsize
8789 /* We need to handle writing out multiple GOT sections ourselves,
8790 since we didn't add them to DYNOBJ. */
8791 while ((dynobj
= dynobj
->link_next
) != NULL
)
8794 s
= ppc64_elf_tdata (dynobj
)->got
;
8796 && s
->_raw_size
!= 0
8797 && s
->output_section
!= bfd_abs_section_ptr
8798 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
8799 s
->contents
, s
->output_offset
,
8802 s
= ppc64_elf_tdata (dynobj
)->relgot
;
8804 && s
->_raw_size
!= 0
8805 && s
->output_section
!= bfd_abs_section_ptr
8806 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
8807 s
->contents
, s
->output_offset
,
8815 #include "elf64-target.h"