1 /* PowerPC64-specific support for 64-bit ELF.
2 Copyright (C) 1999-2016 Free Software Foundation, Inc.
3 Written by Linus Nordberg, Swox AB <info@swox.com>,
4 based on elf32-ppc.c by Ian Lance Taylor.
5 Largely rewritten by Alan Modra.
7 This file is part of BFD, the Binary File Descriptor library.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License along
20 with this program; if not, write to the Free Software Foundation, Inc.,
21 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
24 /* The 64-bit PowerPC ELF ABI may be found at
25 http://www.linuxbase.org/spec/ELF/ppc64/PPC-elf64abi.txt, and
26 http://www.linuxbase.org/spec/ELF/ppc64/spec/book1.html */
34 #include "elf/ppc64.h"
35 #include "elf64-ppc.h"
38 static bfd_reloc_status_type ppc64_elf_ha_reloc
39 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
40 static bfd_reloc_status_type ppc64_elf_branch_reloc
41 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
42 static bfd_reloc_status_type ppc64_elf_brtaken_reloc
43 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
44 static bfd_reloc_status_type ppc64_elf_sectoff_reloc
45 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
46 static bfd_reloc_status_type ppc64_elf_sectoff_ha_reloc
47 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
48 static bfd_reloc_status_type ppc64_elf_toc_reloc
49 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
50 static bfd_reloc_status_type ppc64_elf_toc_ha_reloc
51 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
52 static bfd_reloc_status_type ppc64_elf_toc64_reloc
53 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
54 static bfd_reloc_status_type ppc64_elf_unhandled_reloc
55 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
56 static bfd_vma opd_entry_value
57 (asection
*, bfd_vma
, asection
**, bfd_vma
*, bfd_boolean
);
59 #define TARGET_LITTLE_SYM powerpc_elf64_le_vec
60 #define TARGET_LITTLE_NAME "elf64-powerpcle"
61 #define TARGET_BIG_SYM powerpc_elf64_vec
62 #define TARGET_BIG_NAME "elf64-powerpc"
63 #define ELF_ARCH bfd_arch_powerpc
64 #define ELF_TARGET_ID PPC64_ELF_DATA
65 #define ELF_MACHINE_CODE EM_PPC64
66 #define ELF_MAXPAGESIZE 0x10000
67 #define ELF_COMMONPAGESIZE 0x10000
68 #define elf_info_to_howto ppc64_elf_info_to_howto
70 #define elf_backend_want_got_sym 0
71 #define elf_backend_want_plt_sym 0
72 #define elf_backend_plt_alignment 3
73 #define elf_backend_plt_not_loaded 1
74 #define elf_backend_got_header_size 8
75 #define elf_backend_can_gc_sections 1
76 #define elf_backend_can_refcount 1
77 #define elf_backend_rela_normal 1
78 #define elf_backend_default_execstack 0
80 #define bfd_elf64_mkobject ppc64_elf_mkobject
81 #define bfd_elf64_bfd_reloc_type_lookup ppc64_elf_reloc_type_lookup
82 #define bfd_elf64_bfd_reloc_name_lookup ppc64_elf_reloc_name_lookup
83 #define bfd_elf64_bfd_merge_private_bfd_data ppc64_elf_merge_private_bfd_data
84 #define bfd_elf64_bfd_print_private_bfd_data ppc64_elf_print_private_bfd_data
85 #define bfd_elf64_new_section_hook ppc64_elf_new_section_hook
86 #define bfd_elf64_bfd_link_hash_table_create ppc64_elf_link_hash_table_create
87 #define bfd_elf64_get_synthetic_symtab ppc64_elf_get_synthetic_symtab
88 #define bfd_elf64_bfd_link_just_syms ppc64_elf_link_just_syms
90 #define elf_backend_object_p ppc64_elf_object_p
91 #define elf_backend_grok_prstatus ppc64_elf_grok_prstatus
92 #define elf_backend_grok_psinfo ppc64_elf_grok_psinfo
93 #define elf_backend_write_core_note ppc64_elf_write_core_note
94 #define elf_backend_create_dynamic_sections ppc64_elf_create_dynamic_sections
95 #define elf_backend_copy_indirect_symbol ppc64_elf_copy_indirect_symbol
96 #define elf_backend_add_symbol_hook ppc64_elf_add_symbol_hook
97 #define elf_backend_check_directives ppc64_elf_before_check_relocs
98 #define elf_backend_notice_as_needed ppc64_elf_notice_as_needed
99 #define elf_backend_archive_symbol_lookup ppc64_elf_archive_symbol_lookup
100 #define elf_backend_check_relocs ppc64_elf_check_relocs
101 #define elf_backend_gc_keep ppc64_elf_gc_keep
102 #define elf_backend_gc_mark_dynamic_ref ppc64_elf_gc_mark_dynamic_ref
103 #define elf_backend_gc_mark_hook ppc64_elf_gc_mark_hook
104 #define elf_backend_gc_sweep_hook ppc64_elf_gc_sweep_hook
105 #define elf_backend_adjust_dynamic_symbol ppc64_elf_adjust_dynamic_symbol
106 #define elf_backend_hide_symbol ppc64_elf_hide_symbol
107 #define elf_backend_maybe_function_sym ppc64_elf_maybe_function_sym
108 #define elf_backend_always_size_sections ppc64_elf_func_desc_adjust
109 #define elf_backend_size_dynamic_sections ppc64_elf_size_dynamic_sections
110 #define elf_backend_hash_symbol ppc64_elf_hash_symbol
111 #define elf_backend_init_index_section _bfd_elf_init_2_index_sections
112 #define elf_backend_action_discarded ppc64_elf_action_discarded
113 #define elf_backend_relocate_section ppc64_elf_relocate_section
114 #define elf_backend_finish_dynamic_symbol ppc64_elf_finish_dynamic_symbol
115 #define elf_backend_reloc_type_class ppc64_elf_reloc_type_class
116 #define elf_backend_finish_dynamic_sections ppc64_elf_finish_dynamic_sections
117 #define elf_backend_link_output_symbol_hook ppc64_elf_output_symbol_hook
118 #define elf_backend_special_sections ppc64_elf_special_sections
119 #define elf_backend_merge_symbol_attribute ppc64_elf_merge_symbol_attribute
121 /* The name of the dynamic interpreter. This is put in the .interp
123 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
125 /* The size in bytes of an entry in the procedure linkage table. */
126 #define PLT_ENTRY_SIZE(htab) (htab->opd_abi ? 24 : 8)
128 /* The initial size of the plt reserved for the dynamic linker. */
129 #define PLT_INITIAL_ENTRY_SIZE(htab) (htab->opd_abi ? 24 : 16)
131 /* Offsets to some stack save slots. */
133 #define STK_TOC(htab) (htab->opd_abi ? 40 : 24)
134 /* This one is dodgy. ELFv2 does not have a linker word, so use the
135 CR save slot. Used only by optimised __tls_get_addr call stub,
136 relying on __tls_get_addr_opt not saving CR.. */
137 #define STK_LINKER(htab) (htab->opd_abi ? 32 : 8)
139 /* TOC base pointers offset from start of TOC. */
140 #define TOC_BASE_OFF 0x8000
141 /* TOC base alignment. */
142 #define TOC_BASE_ALIGN 256
144 /* Offset of tp and dtp pointers from start of TLS block. */
145 #define TP_OFFSET 0x7000
146 #define DTP_OFFSET 0x8000
148 /* .plt call stub instructions. The normal stub is like this, but
149 sometimes the .plt entry crosses a 64k boundary and we need to
150 insert an addi to adjust r11. */
151 #define STD_R2_0R1 0xf8410000 /* std %r2,0+40(%r1) */
152 #define ADDIS_R11_R2 0x3d620000 /* addis %r11,%r2,xxx@ha */
153 #define LD_R12_0R11 0xe98b0000 /* ld %r12,xxx+0@l(%r11) */
154 #define MTCTR_R12 0x7d8903a6 /* mtctr %r12 */
155 #define LD_R2_0R11 0xe84b0000 /* ld %r2,xxx+8@l(%r11) */
156 #define LD_R11_0R11 0xe96b0000 /* ld %r11,xxx+16@l(%r11) */
157 #define BCTR 0x4e800420 /* bctr */
159 #define ADDI_R11_R11 0x396b0000 /* addi %r11,%r11,off@l */
160 #define ADDIS_R2_R2 0x3c420000 /* addis %r2,%r2,off@ha */
161 #define ADDI_R2_R2 0x38420000 /* addi %r2,%r2,off@l */
163 #define XOR_R2_R12_R12 0x7d826278 /* xor %r2,%r12,%r12 */
164 #define ADD_R11_R11_R2 0x7d6b1214 /* add %r11,%r11,%r2 */
165 #define XOR_R11_R12_R12 0x7d8b6278 /* xor %r11,%r12,%r12 */
166 #define ADD_R2_R2_R11 0x7c425a14 /* add %r2,%r2,%r11 */
167 #define CMPLDI_R2_0 0x28220000 /* cmpldi %r2,0 */
168 #define BNECTR 0x4ca20420 /* bnectr+ */
169 #define BNECTR_P4 0x4ce20420 /* bnectr+ */
171 #define LD_R12_0R2 0xe9820000 /* ld %r12,xxx+0(%r2) */
172 #define LD_R11_0R2 0xe9620000 /* ld %r11,xxx+0(%r2) */
173 #define LD_R2_0R2 0xe8420000 /* ld %r2,xxx+0(%r2) */
175 #define LD_R2_0R1 0xe8410000 /* ld %r2,0(%r1) */
176 #define LD_R2_0R12 0xe84c0000 /* ld %r2,0(%r12) */
177 #define ADD_R2_R2_R12 0x7c426214 /* add %r2,%r2,%r12 */
179 #define LIS_R2 0x3c400000 /* lis %r2,xxx@ha */
180 #define ADDIS_R2_R12 0x3c4c0000 /* addis %r2,%r12,xxx@ha */
181 #define ADDIS_R12_R2 0x3d820000 /* addis %r12,%r2,xxx@ha */
182 #define ADDIS_R12_R12 0x3d8c0000 /* addis %r12,%r12,xxx@ha */
183 #define LD_R12_0R12 0xe98c0000 /* ld %r12,xxx@l(%r12) */
185 /* glink call stub instructions. We enter with the index in R0. */
186 #define GLINK_CALL_STUB_SIZE (16*4)
190 #define MFLR_R12 0x7d8802a6 /* mflr %12 */
191 #define BCL_20_31 0x429f0005 /* bcl 20,31,1f */
193 #define MFLR_R11 0x7d6802a6 /* mflr %11 */
194 /* ld %2,(0b-1b)(%11) */
195 #define MTLR_R12 0x7d8803a6 /* mtlr %12 */
196 #define ADD_R11_R2_R11 0x7d625a14 /* add %11,%2,%11 */
202 #define MFLR_R0 0x7c0802a6 /* mflr %r0 */
203 #define MTLR_R0 0x7c0803a6 /* mtlr %r0 */
204 #define SUB_R12_R12_R11 0x7d8b6050 /* subf %r12,%r11,%r12 */
205 #define ADDI_R0_R12 0x380c0000 /* addi %r0,%r12,0 */
206 #define SRDI_R0_R0_2 0x7800f082 /* rldicl %r0,%r0,62,2 */
209 #define NOP 0x60000000
211 /* Some other nops. */
212 #define CROR_151515 0x4def7b82
213 #define CROR_313131 0x4ffffb82
215 /* .glink entries for the first 32k functions are two instructions. */
216 #define LI_R0_0 0x38000000 /* li %r0,0 */
217 #define B_DOT 0x48000000 /* b . */
219 /* After that, we need two instructions to load the index, followed by
221 #define LIS_R0_0 0x3c000000 /* lis %r0,0 */
222 #define ORI_R0_R0_0 0x60000000 /* ori %r0,%r0,0 */
224 /* Instructions used by the save and restore reg functions. */
225 #define STD_R0_0R1 0xf8010000 /* std %r0,0(%r1) */
226 #define STD_R0_0R12 0xf80c0000 /* std %r0,0(%r12) */
227 #define LD_R0_0R1 0xe8010000 /* ld %r0,0(%r1) */
228 #define LD_R0_0R12 0xe80c0000 /* ld %r0,0(%r12) */
229 #define STFD_FR0_0R1 0xd8010000 /* stfd %fr0,0(%r1) */
230 #define LFD_FR0_0R1 0xc8010000 /* lfd %fr0,0(%r1) */
231 #define LI_R12_0 0x39800000 /* li %r12,0 */
232 #define STVX_VR0_R12_R0 0x7c0c01ce /* stvx %v0,%r12,%r0 */
233 #define LVX_VR0_R12_R0 0x7c0c00ce /* lvx %v0,%r12,%r0 */
234 #define MTLR_R0 0x7c0803a6 /* mtlr %r0 */
235 #define BLR 0x4e800020 /* blr */
237 /* Since .opd is an array of descriptors and each entry will end up
238 with identical R_PPC64_RELATIVE relocs, there is really no need to
239 propagate .opd relocs; The dynamic linker should be taught to
240 relocate .opd without reloc entries. */
241 #ifndef NO_OPD_RELOCS
242 #define NO_OPD_RELOCS 0
246 #define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
250 abiversion (bfd
*abfd
)
252 return elf_elfheader (abfd
)->e_flags
& EF_PPC64_ABI
;
256 set_abiversion (bfd
*abfd
, int ver
)
258 elf_elfheader (abfd
)->e_flags
&= ~EF_PPC64_ABI
;
259 elf_elfheader (abfd
)->e_flags
|= ver
& EF_PPC64_ABI
;
262 #define ONES(n) (((bfd_vma) 1 << ((n) - 1) << 1) - 1)
264 /* Relocation HOWTO's. */
265 static reloc_howto_type
*ppc64_elf_howto_table
[(int) R_PPC64_max
];
267 static reloc_howto_type ppc64_elf_howto_raw
[] = {
268 /* This reloc does nothing. */
269 HOWTO (R_PPC64_NONE
, /* type */
271 3, /* size (0 = byte, 1 = short, 2 = long) */
273 FALSE
, /* pc_relative */
275 complain_overflow_dont
, /* complain_on_overflow */
276 bfd_elf_generic_reloc
, /* special_function */
277 "R_PPC64_NONE", /* name */
278 FALSE
, /* partial_inplace */
281 FALSE
), /* pcrel_offset */
283 /* A standard 32 bit relocation. */
284 HOWTO (R_PPC64_ADDR32
, /* type */
286 2, /* size (0 = byte, 1 = short, 2 = long) */
288 FALSE
, /* pc_relative */
290 complain_overflow_bitfield
, /* complain_on_overflow */
291 bfd_elf_generic_reloc
, /* special_function */
292 "R_PPC64_ADDR32", /* name */
293 FALSE
, /* partial_inplace */
295 0xffffffff, /* dst_mask */
296 FALSE
), /* pcrel_offset */
298 /* An absolute 26 bit branch; the lower two bits must be zero.
299 FIXME: we don't check that, we just clear them. */
300 HOWTO (R_PPC64_ADDR24
, /* type */
302 2, /* size (0 = byte, 1 = short, 2 = long) */
304 FALSE
, /* pc_relative */
306 complain_overflow_bitfield
, /* complain_on_overflow */
307 bfd_elf_generic_reloc
, /* special_function */
308 "R_PPC64_ADDR24", /* name */
309 FALSE
, /* partial_inplace */
311 0x03fffffc, /* dst_mask */
312 FALSE
), /* pcrel_offset */
314 /* A standard 16 bit relocation. */
315 HOWTO (R_PPC64_ADDR16
, /* type */
317 1, /* size (0 = byte, 1 = short, 2 = long) */
319 FALSE
, /* pc_relative */
321 complain_overflow_bitfield
, /* complain_on_overflow */
322 bfd_elf_generic_reloc
, /* special_function */
323 "R_PPC64_ADDR16", /* name */
324 FALSE
, /* partial_inplace */
326 0xffff, /* dst_mask */
327 FALSE
), /* pcrel_offset */
329 /* A 16 bit relocation without overflow. */
330 HOWTO (R_PPC64_ADDR16_LO
, /* type */
332 1, /* size (0 = byte, 1 = short, 2 = long) */
334 FALSE
, /* pc_relative */
336 complain_overflow_dont
,/* complain_on_overflow */
337 bfd_elf_generic_reloc
, /* special_function */
338 "R_PPC64_ADDR16_LO", /* name */
339 FALSE
, /* partial_inplace */
341 0xffff, /* dst_mask */
342 FALSE
), /* pcrel_offset */
344 /* Bits 16-31 of an address. */
345 HOWTO (R_PPC64_ADDR16_HI
, /* type */
347 1, /* size (0 = byte, 1 = short, 2 = long) */
349 FALSE
, /* pc_relative */
351 complain_overflow_signed
, /* complain_on_overflow */
352 bfd_elf_generic_reloc
, /* special_function */
353 "R_PPC64_ADDR16_HI", /* name */
354 FALSE
, /* partial_inplace */
356 0xffff, /* dst_mask */
357 FALSE
), /* pcrel_offset */
359 /* Bits 16-31 of an address, plus 1 if the contents of the low 16
360 bits, treated as a signed number, is negative. */
361 HOWTO (R_PPC64_ADDR16_HA
, /* type */
363 1, /* size (0 = byte, 1 = short, 2 = long) */
365 FALSE
, /* pc_relative */
367 complain_overflow_signed
, /* complain_on_overflow */
368 ppc64_elf_ha_reloc
, /* special_function */
369 "R_PPC64_ADDR16_HA", /* name */
370 FALSE
, /* partial_inplace */
372 0xffff, /* dst_mask */
373 FALSE
), /* pcrel_offset */
375 /* An absolute 16 bit branch; the lower two bits must be zero.
376 FIXME: we don't check that, we just clear them. */
377 HOWTO (R_PPC64_ADDR14
, /* type */
379 2, /* size (0 = byte, 1 = short, 2 = long) */
381 FALSE
, /* pc_relative */
383 complain_overflow_signed
, /* complain_on_overflow */
384 ppc64_elf_branch_reloc
, /* special_function */
385 "R_PPC64_ADDR14", /* name */
386 FALSE
, /* partial_inplace */
388 0x0000fffc, /* dst_mask */
389 FALSE
), /* pcrel_offset */
391 /* An absolute 16 bit branch, for which bit 10 should be set to
392 indicate that the branch is expected to be taken. The lower two
393 bits must be zero. */
394 HOWTO (R_PPC64_ADDR14_BRTAKEN
, /* type */
396 2, /* size (0 = byte, 1 = short, 2 = long) */
398 FALSE
, /* pc_relative */
400 complain_overflow_signed
, /* complain_on_overflow */
401 ppc64_elf_brtaken_reloc
, /* special_function */
402 "R_PPC64_ADDR14_BRTAKEN",/* name */
403 FALSE
, /* partial_inplace */
405 0x0000fffc, /* dst_mask */
406 FALSE
), /* pcrel_offset */
408 /* An absolute 16 bit branch, for which bit 10 should be set to
409 indicate that the branch is not expected to be taken. The lower
410 two bits must be zero. */
411 HOWTO (R_PPC64_ADDR14_BRNTAKEN
, /* type */
413 2, /* size (0 = byte, 1 = short, 2 = long) */
415 FALSE
, /* pc_relative */
417 complain_overflow_signed
, /* complain_on_overflow */
418 ppc64_elf_brtaken_reloc
, /* special_function */
419 "R_PPC64_ADDR14_BRNTAKEN",/* name */
420 FALSE
, /* partial_inplace */
422 0x0000fffc, /* dst_mask */
423 FALSE
), /* pcrel_offset */
425 /* A relative 26 bit branch; the lower two bits must be zero. */
426 HOWTO (R_PPC64_REL24
, /* type */
428 2, /* size (0 = byte, 1 = short, 2 = long) */
430 TRUE
, /* pc_relative */
432 complain_overflow_signed
, /* complain_on_overflow */
433 ppc64_elf_branch_reloc
, /* special_function */
434 "R_PPC64_REL24", /* name */
435 FALSE
, /* partial_inplace */
437 0x03fffffc, /* dst_mask */
438 TRUE
), /* pcrel_offset */
440 /* A relative 16 bit branch; the lower two bits must be zero. */
441 HOWTO (R_PPC64_REL14
, /* type */
443 2, /* size (0 = byte, 1 = short, 2 = long) */
445 TRUE
, /* pc_relative */
447 complain_overflow_signed
, /* complain_on_overflow */
448 ppc64_elf_branch_reloc
, /* special_function */
449 "R_PPC64_REL14", /* name */
450 FALSE
, /* partial_inplace */
452 0x0000fffc, /* dst_mask */
453 TRUE
), /* pcrel_offset */
455 /* A relative 16 bit branch. Bit 10 should be set to indicate that
456 the branch is expected to be taken. The lower two bits must be
458 HOWTO (R_PPC64_REL14_BRTAKEN
, /* type */
460 2, /* size (0 = byte, 1 = short, 2 = long) */
462 TRUE
, /* pc_relative */
464 complain_overflow_signed
, /* complain_on_overflow */
465 ppc64_elf_brtaken_reloc
, /* special_function */
466 "R_PPC64_REL14_BRTAKEN", /* name */
467 FALSE
, /* partial_inplace */
469 0x0000fffc, /* dst_mask */
470 TRUE
), /* pcrel_offset */
472 /* A relative 16 bit branch. Bit 10 should be set to indicate that
473 the branch is not expected to be taken. The lower two bits must
475 HOWTO (R_PPC64_REL14_BRNTAKEN
, /* type */
477 2, /* size (0 = byte, 1 = short, 2 = long) */
479 TRUE
, /* pc_relative */
481 complain_overflow_signed
, /* complain_on_overflow */
482 ppc64_elf_brtaken_reloc
, /* special_function */
483 "R_PPC64_REL14_BRNTAKEN",/* name */
484 FALSE
, /* partial_inplace */
486 0x0000fffc, /* dst_mask */
487 TRUE
), /* pcrel_offset */
489 /* Like R_PPC64_ADDR16, but referring to the GOT table entry for the
491 HOWTO (R_PPC64_GOT16
, /* type */
493 1, /* size (0 = byte, 1 = short, 2 = long) */
495 FALSE
, /* pc_relative */
497 complain_overflow_signed
, /* complain_on_overflow */
498 ppc64_elf_unhandled_reloc
, /* special_function */
499 "R_PPC64_GOT16", /* name */
500 FALSE
, /* partial_inplace */
502 0xffff, /* dst_mask */
503 FALSE
), /* pcrel_offset */
505 /* Like R_PPC64_ADDR16_LO, but referring to the GOT table entry for
507 HOWTO (R_PPC64_GOT16_LO
, /* type */
509 1, /* 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_GOT16_LO", /* name */
516 FALSE
, /* partial_inplace */
518 0xffff, /* dst_mask */
519 FALSE
), /* pcrel_offset */
521 /* Like R_PPC64_ADDR16_HI, but referring to the GOT table entry for
523 HOWTO (R_PPC64_GOT16_HI
, /* type */
525 1, /* size (0 = byte, 1 = short, 2 = long) */
527 FALSE
, /* pc_relative */
529 complain_overflow_signed
,/* complain_on_overflow */
530 ppc64_elf_unhandled_reloc
, /* special_function */
531 "R_PPC64_GOT16_HI", /* name */
532 FALSE
, /* partial_inplace */
534 0xffff, /* dst_mask */
535 FALSE
), /* pcrel_offset */
537 /* Like R_PPC64_ADDR16_HA, but referring to the GOT table entry for
539 HOWTO (R_PPC64_GOT16_HA
, /* type */
541 1, /* size (0 = byte, 1 = short, 2 = long) */
543 FALSE
, /* pc_relative */
545 complain_overflow_signed
,/* complain_on_overflow */
546 ppc64_elf_unhandled_reloc
, /* special_function */
547 "R_PPC64_GOT16_HA", /* name */
548 FALSE
, /* partial_inplace */
550 0xffff, /* dst_mask */
551 FALSE
), /* pcrel_offset */
553 /* This is used only by the dynamic linker. The symbol should exist
554 both in the object being run and in some shared library. The
555 dynamic linker copies the data addressed by the symbol from the
556 shared library into the object, because the object being
557 run has to have the data at some particular address. */
558 HOWTO (R_PPC64_COPY
, /* type */
560 0, /* this one is variable size */
562 FALSE
, /* pc_relative */
564 complain_overflow_dont
, /* complain_on_overflow */
565 ppc64_elf_unhandled_reloc
, /* special_function */
566 "R_PPC64_COPY", /* name */
567 FALSE
, /* partial_inplace */
570 FALSE
), /* pcrel_offset */
572 /* Like R_PPC64_ADDR64, but used when setting global offset table
574 HOWTO (R_PPC64_GLOB_DAT
, /* type */
576 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
578 FALSE
, /* pc_relative */
580 complain_overflow_dont
, /* complain_on_overflow */
581 ppc64_elf_unhandled_reloc
, /* special_function */
582 "R_PPC64_GLOB_DAT", /* name */
583 FALSE
, /* partial_inplace */
585 ONES (64), /* dst_mask */
586 FALSE
), /* pcrel_offset */
588 /* Created by the link editor. Marks a procedure linkage table
589 entry for a symbol. */
590 HOWTO (R_PPC64_JMP_SLOT
, /* type */
592 0, /* size (0 = byte, 1 = short, 2 = long) */
594 FALSE
, /* pc_relative */
596 complain_overflow_dont
, /* complain_on_overflow */
597 ppc64_elf_unhandled_reloc
, /* special_function */
598 "R_PPC64_JMP_SLOT", /* name */
599 FALSE
, /* partial_inplace */
602 FALSE
), /* pcrel_offset */
604 /* Used only by the dynamic linker. When the object is run, this
605 doubleword64 is set to the load address of the object, plus the
607 HOWTO (R_PPC64_RELATIVE
, /* type */
609 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
611 FALSE
, /* pc_relative */
613 complain_overflow_dont
, /* complain_on_overflow */
614 bfd_elf_generic_reloc
, /* special_function */
615 "R_PPC64_RELATIVE", /* name */
616 FALSE
, /* partial_inplace */
618 ONES (64), /* dst_mask */
619 FALSE
), /* pcrel_offset */
621 /* Like R_PPC64_ADDR32, but may be unaligned. */
622 HOWTO (R_PPC64_UADDR32
, /* type */
624 2, /* size (0 = byte, 1 = short, 2 = long) */
626 FALSE
, /* pc_relative */
628 complain_overflow_bitfield
, /* complain_on_overflow */
629 bfd_elf_generic_reloc
, /* special_function */
630 "R_PPC64_UADDR32", /* name */
631 FALSE
, /* partial_inplace */
633 0xffffffff, /* dst_mask */
634 FALSE
), /* pcrel_offset */
636 /* Like R_PPC64_ADDR16, but may be unaligned. */
637 HOWTO (R_PPC64_UADDR16
, /* type */
639 1, /* size (0 = byte, 1 = short, 2 = long) */
641 FALSE
, /* pc_relative */
643 complain_overflow_bitfield
, /* complain_on_overflow */
644 bfd_elf_generic_reloc
, /* special_function */
645 "R_PPC64_UADDR16", /* name */
646 FALSE
, /* partial_inplace */
648 0xffff, /* dst_mask */
649 FALSE
), /* pcrel_offset */
651 /* 32-bit PC relative. */
652 HOWTO (R_PPC64_REL32
, /* type */
654 2, /* size (0 = byte, 1 = short, 2 = long) */
656 TRUE
, /* pc_relative */
658 complain_overflow_signed
, /* complain_on_overflow */
659 bfd_elf_generic_reloc
, /* special_function */
660 "R_PPC64_REL32", /* name */
661 FALSE
, /* partial_inplace */
663 0xffffffff, /* dst_mask */
664 TRUE
), /* pcrel_offset */
666 /* 32-bit relocation to the symbol's procedure linkage table. */
667 HOWTO (R_PPC64_PLT32
, /* type */
669 2, /* size (0 = byte, 1 = short, 2 = long) */
671 FALSE
, /* pc_relative */
673 complain_overflow_bitfield
, /* complain_on_overflow */
674 ppc64_elf_unhandled_reloc
, /* special_function */
675 "R_PPC64_PLT32", /* name */
676 FALSE
, /* partial_inplace */
678 0xffffffff, /* dst_mask */
679 FALSE
), /* pcrel_offset */
681 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
682 FIXME: R_PPC64_PLTREL32 not supported. */
683 HOWTO (R_PPC64_PLTREL32
, /* type */
685 2, /* size (0 = byte, 1 = short, 2 = long) */
687 TRUE
, /* pc_relative */
689 complain_overflow_signed
, /* complain_on_overflow */
690 bfd_elf_generic_reloc
, /* special_function */
691 "R_PPC64_PLTREL32", /* name */
692 FALSE
, /* partial_inplace */
694 0xffffffff, /* dst_mask */
695 TRUE
), /* pcrel_offset */
697 /* Like R_PPC64_ADDR16_LO, but referring to the PLT table entry for
699 HOWTO (R_PPC64_PLT16_LO
, /* type */
701 1, /* size (0 = byte, 1 = short, 2 = long) */
703 FALSE
, /* pc_relative */
705 complain_overflow_dont
, /* complain_on_overflow */
706 ppc64_elf_unhandled_reloc
, /* special_function */
707 "R_PPC64_PLT16_LO", /* name */
708 FALSE
, /* partial_inplace */
710 0xffff, /* dst_mask */
711 FALSE
), /* pcrel_offset */
713 /* Like R_PPC64_ADDR16_HI, but referring to the PLT table entry for
715 HOWTO (R_PPC64_PLT16_HI
, /* type */
717 1, /* size (0 = byte, 1 = short, 2 = long) */
719 FALSE
, /* pc_relative */
721 complain_overflow_signed
, /* complain_on_overflow */
722 ppc64_elf_unhandled_reloc
, /* special_function */
723 "R_PPC64_PLT16_HI", /* name */
724 FALSE
, /* partial_inplace */
726 0xffff, /* dst_mask */
727 FALSE
), /* pcrel_offset */
729 /* Like R_PPC64_ADDR16_HA, but referring to the PLT table entry for
731 HOWTO (R_PPC64_PLT16_HA
, /* type */
733 1, /* size (0 = byte, 1 = short, 2 = long) */
735 FALSE
, /* pc_relative */
737 complain_overflow_signed
, /* complain_on_overflow */
738 ppc64_elf_unhandled_reloc
, /* special_function */
739 "R_PPC64_PLT16_HA", /* name */
740 FALSE
, /* partial_inplace */
742 0xffff, /* dst_mask */
743 FALSE
), /* pcrel_offset */
745 /* 16-bit section relative relocation. */
746 HOWTO (R_PPC64_SECTOFF
, /* type */
748 1, /* size (0 = byte, 1 = short, 2 = long) */
750 FALSE
, /* pc_relative */
752 complain_overflow_signed
, /* complain_on_overflow */
753 ppc64_elf_sectoff_reloc
, /* special_function */
754 "R_PPC64_SECTOFF", /* name */
755 FALSE
, /* partial_inplace */
757 0xffff, /* dst_mask */
758 FALSE
), /* pcrel_offset */
760 /* Like R_PPC64_SECTOFF, but no overflow warning. */
761 HOWTO (R_PPC64_SECTOFF_LO
, /* type */
763 1, /* size (0 = byte, 1 = short, 2 = long) */
765 FALSE
, /* pc_relative */
767 complain_overflow_dont
, /* complain_on_overflow */
768 ppc64_elf_sectoff_reloc
, /* special_function */
769 "R_PPC64_SECTOFF_LO", /* name */
770 FALSE
, /* partial_inplace */
772 0xffff, /* dst_mask */
773 FALSE
), /* pcrel_offset */
775 /* 16-bit upper half section relative relocation. */
776 HOWTO (R_PPC64_SECTOFF_HI
, /* type */
778 1, /* size (0 = byte, 1 = short, 2 = long) */
780 FALSE
, /* pc_relative */
782 complain_overflow_signed
, /* complain_on_overflow */
783 ppc64_elf_sectoff_reloc
, /* special_function */
784 "R_PPC64_SECTOFF_HI", /* name */
785 FALSE
, /* partial_inplace */
787 0xffff, /* dst_mask */
788 FALSE
), /* pcrel_offset */
790 /* 16-bit upper half adjusted section relative relocation. */
791 HOWTO (R_PPC64_SECTOFF_HA
, /* type */
793 1, /* size (0 = byte, 1 = short, 2 = long) */
795 FALSE
, /* pc_relative */
797 complain_overflow_signed
, /* complain_on_overflow */
798 ppc64_elf_sectoff_ha_reloc
, /* special_function */
799 "R_PPC64_SECTOFF_HA", /* name */
800 FALSE
, /* partial_inplace */
802 0xffff, /* dst_mask */
803 FALSE
), /* pcrel_offset */
805 /* Like R_PPC64_REL24 without touching the two least significant bits. */
806 HOWTO (R_PPC64_REL30
, /* type */
808 2, /* size (0 = byte, 1 = short, 2 = long) */
810 TRUE
, /* pc_relative */
812 complain_overflow_dont
, /* complain_on_overflow */
813 bfd_elf_generic_reloc
, /* special_function */
814 "R_PPC64_REL30", /* name */
815 FALSE
, /* partial_inplace */
817 0xfffffffc, /* dst_mask */
818 TRUE
), /* pcrel_offset */
820 /* Relocs in the 64-bit PowerPC ELF ABI, not in the 32-bit ABI. */
822 /* A standard 64-bit relocation. */
823 HOWTO (R_PPC64_ADDR64
, /* type */
825 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
827 FALSE
, /* pc_relative */
829 complain_overflow_dont
, /* complain_on_overflow */
830 bfd_elf_generic_reloc
, /* special_function */
831 "R_PPC64_ADDR64", /* name */
832 FALSE
, /* partial_inplace */
834 ONES (64), /* dst_mask */
835 FALSE
), /* pcrel_offset */
837 /* The bits 32-47 of an address. */
838 HOWTO (R_PPC64_ADDR16_HIGHER
, /* type */
840 1, /* size (0 = byte, 1 = short, 2 = long) */
842 FALSE
, /* pc_relative */
844 complain_overflow_dont
, /* complain_on_overflow */
845 bfd_elf_generic_reloc
, /* special_function */
846 "R_PPC64_ADDR16_HIGHER", /* name */
847 FALSE
, /* partial_inplace */
849 0xffff, /* dst_mask */
850 FALSE
), /* pcrel_offset */
852 /* The bits 32-47 of an address, plus 1 if the contents of the low
853 16 bits, treated as a signed number, is negative. */
854 HOWTO (R_PPC64_ADDR16_HIGHERA
, /* type */
856 1, /* size (0 = byte, 1 = short, 2 = long) */
858 FALSE
, /* pc_relative */
860 complain_overflow_dont
, /* complain_on_overflow */
861 ppc64_elf_ha_reloc
, /* special_function */
862 "R_PPC64_ADDR16_HIGHERA", /* name */
863 FALSE
, /* partial_inplace */
865 0xffff, /* dst_mask */
866 FALSE
), /* pcrel_offset */
868 /* The bits 48-63 of an address. */
869 HOWTO (R_PPC64_ADDR16_HIGHEST
,/* type */
871 1, /* size (0 = byte, 1 = short, 2 = long) */
873 FALSE
, /* pc_relative */
875 complain_overflow_dont
, /* complain_on_overflow */
876 bfd_elf_generic_reloc
, /* special_function */
877 "R_PPC64_ADDR16_HIGHEST", /* name */
878 FALSE
, /* partial_inplace */
880 0xffff, /* dst_mask */
881 FALSE
), /* pcrel_offset */
883 /* The bits 48-63 of an address, plus 1 if the contents of the low
884 16 bits, treated as a signed number, is negative. */
885 HOWTO (R_PPC64_ADDR16_HIGHESTA
,/* type */
887 1, /* size (0 = byte, 1 = short, 2 = long) */
889 FALSE
, /* pc_relative */
891 complain_overflow_dont
, /* complain_on_overflow */
892 ppc64_elf_ha_reloc
, /* special_function */
893 "R_PPC64_ADDR16_HIGHESTA", /* name */
894 FALSE
, /* partial_inplace */
896 0xffff, /* dst_mask */
897 FALSE
), /* pcrel_offset */
899 /* Like ADDR64, but may be unaligned. */
900 HOWTO (R_PPC64_UADDR64
, /* type */
902 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
904 FALSE
, /* pc_relative */
906 complain_overflow_dont
, /* complain_on_overflow */
907 bfd_elf_generic_reloc
, /* special_function */
908 "R_PPC64_UADDR64", /* name */
909 FALSE
, /* partial_inplace */
911 ONES (64), /* dst_mask */
912 FALSE
), /* pcrel_offset */
914 /* 64-bit relative relocation. */
915 HOWTO (R_PPC64_REL64
, /* type */
917 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
919 TRUE
, /* pc_relative */
921 complain_overflow_dont
, /* complain_on_overflow */
922 bfd_elf_generic_reloc
, /* special_function */
923 "R_PPC64_REL64", /* name */
924 FALSE
, /* partial_inplace */
926 ONES (64), /* dst_mask */
927 TRUE
), /* pcrel_offset */
929 /* 64-bit relocation to the symbol's procedure linkage table. */
930 HOWTO (R_PPC64_PLT64
, /* type */
932 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
934 FALSE
, /* pc_relative */
936 complain_overflow_dont
, /* complain_on_overflow */
937 ppc64_elf_unhandled_reloc
, /* special_function */
938 "R_PPC64_PLT64", /* name */
939 FALSE
, /* partial_inplace */
941 ONES (64), /* dst_mask */
942 FALSE
), /* pcrel_offset */
944 /* 64-bit PC relative relocation to the symbol's procedure linkage
946 /* FIXME: R_PPC64_PLTREL64 not supported. */
947 HOWTO (R_PPC64_PLTREL64
, /* type */
949 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
951 TRUE
, /* pc_relative */
953 complain_overflow_dont
, /* complain_on_overflow */
954 ppc64_elf_unhandled_reloc
, /* special_function */
955 "R_PPC64_PLTREL64", /* name */
956 FALSE
, /* partial_inplace */
958 ONES (64), /* dst_mask */
959 TRUE
), /* pcrel_offset */
961 /* 16 bit TOC-relative relocation. */
963 /* R_PPC64_TOC16 47 half16* S + A - .TOC. */
964 HOWTO (R_PPC64_TOC16
, /* type */
966 1, /* size (0 = byte, 1 = short, 2 = long) */
968 FALSE
, /* pc_relative */
970 complain_overflow_signed
, /* complain_on_overflow */
971 ppc64_elf_toc_reloc
, /* special_function */
972 "R_PPC64_TOC16", /* name */
973 FALSE
, /* partial_inplace */
975 0xffff, /* dst_mask */
976 FALSE
), /* pcrel_offset */
978 /* 16 bit TOC-relative relocation without overflow. */
980 /* R_PPC64_TOC16_LO 48 half16 #lo (S + A - .TOC.) */
981 HOWTO (R_PPC64_TOC16_LO
, /* type */
983 1, /* size (0 = byte, 1 = short, 2 = long) */
985 FALSE
, /* pc_relative */
987 complain_overflow_dont
, /* complain_on_overflow */
988 ppc64_elf_toc_reloc
, /* special_function */
989 "R_PPC64_TOC16_LO", /* name */
990 FALSE
, /* partial_inplace */
992 0xffff, /* dst_mask */
993 FALSE
), /* pcrel_offset */
995 /* 16 bit TOC-relative relocation, high 16 bits. */
997 /* R_PPC64_TOC16_HI 49 half16 #hi (S + A - .TOC.) */
998 HOWTO (R_PPC64_TOC16_HI
, /* type */
1000 1, /* size (0 = byte, 1 = short, 2 = long) */
1002 FALSE
, /* pc_relative */
1004 complain_overflow_signed
, /* complain_on_overflow */
1005 ppc64_elf_toc_reloc
, /* special_function */
1006 "R_PPC64_TOC16_HI", /* name */
1007 FALSE
, /* partial_inplace */
1009 0xffff, /* dst_mask */
1010 FALSE
), /* pcrel_offset */
1012 /* 16 bit TOC-relative relocation, high 16 bits, plus 1 if the
1013 contents of the low 16 bits, treated as a signed number, is
1016 /* R_PPC64_TOC16_HA 50 half16 #ha (S + A - .TOC.) */
1017 HOWTO (R_PPC64_TOC16_HA
, /* type */
1018 16, /* rightshift */
1019 1, /* size (0 = byte, 1 = short, 2 = long) */
1021 FALSE
, /* pc_relative */
1023 complain_overflow_signed
, /* complain_on_overflow */
1024 ppc64_elf_toc_ha_reloc
, /* special_function */
1025 "R_PPC64_TOC16_HA", /* name */
1026 FALSE
, /* partial_inplace */
1028 0xffff, /* dst_mask */
1029 FALSE
), /* pcrel_offset */
1031 /* 64-bit relocation; insert value of TOC base (.TOC.). */
1033 /* R_PPC64_TOC 51 doubleword64 .TOC. */
1034 HOWTO (R_PPC64_TOC
, /* type */
1036 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
1038 FALSE
, /* pc_relative */
1040 complain_overflow_dont
, /* complain_on_overflow */
1041 ppc64_elf_toc64_reloc
, /* special_function */
1042 "R_PPC64_TOC", /* name */
1043 FALSE
, /* partial_inplace */
1045 ONES (64), /* dst_mask */
1046 FALSE
), /* pcrel_offset */
1048 /* Like R_PPC64_GOT16, but also informs the link editor that the
1049 value to relocate may (!) refer to a PLT entry which the link
1050 editor (a) may replace with the symbol value. If the link editor
1051 is unable to fully resolve the symbol, it may (b) create a PLT
1052 entry and store the address to the new PLT entry in the GOT.
1053 This permits lazy resolution of function symbols at run time.
1054 The link editor may also skip all of this and just (c) emit a
1055 R_PPC64_GLOB_DAT to tie the symbol to the GOT entry. */
1056 /* FIXME: R_PPC64_PLTGOT16 not implemented. */
1057 HOWTO (R_PPC64_PLTGOT16
, /* type */
1059 1, /* size (0 = byte, 1 = short, 2 = long) */
1061 FALSE
, /* pc_relative */
1063 complain_overflow_signed
, /* complain_on_overflow */
1064 ppc64_elf_unhandled_reloc
, /* special_function */
1065 "R_PPC64_PLTGOT16", /* name */
1066 FALSE
, /* partial_inplace */
1068 0xffff, /* dst_mask */
1069 FALSE
), /* pcrel_offset */
1071 /* Like R_PPC64_PLTGOT16, but without overflow. */
1072 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1073 HOWTO (R_PPC64_PLTGOT16_LO
, /* type */
1075 1, /* size (0 = byte, 1 = short, 2 = long) */
1077 FALSE
, /* pc_relative */
1079 complain_overflow_dont
, /* complain_on_overflow */
1080 ppc64_elf_unhandled_reloc
, /* special_function */
1081 "R_PPC64_PLTGOT16_LO", /* name */
1082 FALSE
, /* partial_inplace */
1084 0xffff, /* dst_mask */
1085 FALSE
), /* pcrel_offset */
1087 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address. */
1088 /* FIXME: R_PPC64_PLTGOT16_HI not implemented. */
1089 HOWTO (R_PPC64_PLTGOT16_HI
, /* type */
1090 16, /* rightshift */
1091 1, /* size (0 = byte, 1 = short, 2 = long) */
1093 FALSE
, /* pc_relative */
1095 complain_overflow_signed
, /* complain_on_overflow */
1096 ppc64_elf_unhandled_reloc
, /* special_function */
1097 "R_PPC64_PLTGOT16_HI", /* name */
1098 FALSE
, /* partial_inplace */
1100 0xffff, /* dst_mask */
1101 FALSE
), /* pcrel_offset */
1103 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address, plus
1104 1 if the contents of the low 16 bits, treated as a signed number,
1106 /* FIXME: R_PPC64_PLTGOT16_HA not implemented. */
1107 HOWTO (R_PPC64_PLTGOT16_HA
, /* type */
1108 16, /* rightshift */
1109 1, /* size (0 = byte, 1 = short, 2 = long) */
1111 FALSE
, /* pc_relative */
1113 complain_overflow_signed
, /* complain_on_overflow */
1114 ppc64_elf_unhandled_reloc
, /* special_function */
1115 "R_PPC64_PLTGOT16_HA", /* name */
1116 FALSE
, /* partial_inplace */
1118 0xffff, /* dst_mask */
1119 FALSE
), /* pcrel_offset */
1121 /* Like R_PPC64_ADDR16, but for instructions with a DS field. */
1122 HOWTO (R_PPC64_ADDR16_DS
, /* type */
1124 1, /* size (0 = byte, 1 = short, 2 = long) */
1126 FALSE
, /* pc_relative */
1128 complain_overflow_signed
, /* complain_on_overflow */
1129 bfd_elf_generic_reloc
, /* special_function */
1130 "R_PPC64_ADDR16_DS", /* name */
1131 FALSE
, /* partial_inplace */
1133 0xfffc, /* dst_mask */
1134 FALSE
), /* pcrel_offset */
1136 /* Like R_PPC64_ADDR16_LO, but for instructions with a DS field. */
1137 HOWTO (R_PPC64_ADDR16_LO_DS
, /* type */
1139 1, /* size (0 = byte, 1 = short, 2 = long) */
1141 FALSE
, /* pc_relative */
1143 complain_overflow_dont
,/* complain_on_overflow */
1144 bfd_elf_generic_reloc
, /* special_function */
1145 "R_PPC64_ADDR16_LO_DS",/* name */
1146 FALSE
, /* partial_inplace */
1148 0xfffc, /* dst_mask */
1149 FALSE
), /* pcrel_offset */
1151 /* Like R_PPC64_GOT16, but for instructions with a DS field. */
1152 HOWTO (R_PPC64_GOT16_DS
, /* type */
1154 1, /* size (0 = byte, 1 = short, 2 = long) */
1156 FALSE
, /* pc_relative */
1158 complain_overflow_signed
, /* complain_on_overflow */
1159 ppc64_elf_unhandled_reloc
, /* special_function */
1160 "R_PPC64_GOT16_DS", /* name */
1161 FALSE
, /* partial_inplace */
1163 0xfffc, /* dst_mask */
1164 FALSE
), /* pcrel_offset */
1166 /* Like R_PPC64_GOT16_LO, but for instructions with a DS field. */
1167 HOWTO (R_PPC64_GOT16_LO_DS
, /* type */
1169 1, /* size (0 = byte, 1 = short, 2 = long) */
1171 FALSE
, /* pc_relative */
1173 complain_overflow_dont
, /* complain_on_overflow */
1174 ppc64_elf_unhandled_reloc
, /* special_function */
1175 "R_PPC64_GOT16_LO_DS", /* name */
1176 FALSE
, /* partial_inplace */
1178 0xfffc, /* dst_mask */
1179 FALSE
), /* pcrel_offset */
1181 /* Like R_PPC64_PLT16_LO, but for instructions with a DS field. */
1182 HOWTO (R_PPC64_PLT16_LO_DS
, /* type */
1184 1, /* size (0 = byte, 1 = short, 2 = long) */
1186 FALSE
, /* pc_relative */
1188 complain_overflow_dont
, /* complain_on_overflow */
1189 ppc64_elf_unhandled_reloc
, /* special_function */
1190 "R_PPC64_PLT16_LO_DS", /* name */
1191 FALSE
, /* partial_inplace */
1193 0xfffc, /* dst_mask */
1194 FALSE
), /* pcrel_offset */
1196 /* Like R_PPC64_SECTOFF, but for instructions with a DS field. */
1197 HOWTO (R_PPC64_SECTOFF_DS
, /* type */
1199 1, /* size (0 = byte, 1 = short, 2 = long) */
1201 FALSE
, /* pc_relative */
1203 complain_overflow_signed
, /* complain_on_overflow */
1204 ppc64_elf_sectoff_reloc
, /* special_function */
1205 "R_PPC64_SECTOFF_DS", /* name */
1206 FALSE
, /* partial_inplace */
1208 0xfffc, /* dst_mask */
1209 FALSE
), /* pcrel_offset */
1211 /* Like R_PPC64_SECTOFF_LO, but for instructions with a DS field. */
1212 HOWTO (R_PPC64_SECTOFF_LO_DS
, /* type */
1214 1, /* size (0 = byte, 1 = short, 2 = long) */
1216 FALSE
, /* pc_relative */
1218 complain_overflow_dont
, /* complain_on_overflow */
1219 ppc64_elf_sectoff_reloc
, /* special_function */
1220 "R_PPC64_SECTOFF_LO_DS",/* name */
1221 FALSE
, /* partial_inplace */
1223 0xfffc, /* dst_mask */
1224 FALSE
), /* pcrel_offset */
1226 /* Like R_PPC64_TOC16, but for instructions with a DS field. */
1227 HOWTO (R_PPC64_TOC16_DS
, /* type */
1229 1, /* size (0 = byte, 1 = short, 2 = long) */
1231 FALSE
, /* pc_relative */
1233 complain_overflow_signed
, /* complain_on_overflow */
1234 ppc64_elf_toc_reloc
, /* special_function */
1235 "R_PPC64_TOC16_DS", /* name */
1236 FALSE
, /* partial_inplace */
1238 0xfffc, /* dst_mask */
1239 FALSE
), /* pcrel_offset */
1241 /* Like R_PPC64_TOC16_LO, but for instructions with a DS field. */
1242 HOWTO (R_PPC64_TOC16_LO_DS
, /* type */
1244 1, /* size (0 = byte, 1 = short, 2 = long) */
1246 FALSE
, /* pc_relative */
1248 complain_overflow_dont
, /* complain_on_overflow */
1249 ppc64_elf_toc_reloc
, /* special_function */
1250 "R_PPC64_TOC16_LO_DS", /* name */
1251 FALSE
, /* partial_inplace */
1253 0xfffc, /* dst_mask */
1254 FALSE
), /* pcrel_offset */
1256 /* Like R_PPC64_PLTGOT16, but for instructions with a DS field. */
1257 /* FIXME: R_PPC64_PLTGOT16_DS not implemented. */
1258 HOWTO (R_PPC64_PLTGOT16_DS
, /* type */
1260 1, /* size (0 = byte, 1 = short, 2 = long) */
1262 FALSE
, /* pc_relative */
1264 complain_overflow_signed
, /* complain_on_overflow */
1265 ppc64_elf_unhandled_reloc
, /* special_function */
1266 "R_PPC64_PLTGOT16_DS", /* name */
1267 FALSE
, /* partial_inplace */
1269 0xfffc, /* dst_mask */
1270 FALSE
), /* pcrel_offset */
1272 /* Like R_PPC64_PLTGOT16_LO, but for instructions with a DS field. */
1273 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1274 HOWTO (R_PPC64_PLTGOT16_LO_DS
,/* type */
1276 1, /* size (0 = byte, 1 = short, 2 = long) */
1278 FALSE
, /* pc_relative */
1280 complain_overflow_dont
, /* complain_on_overflow */
1281 ppc64_elf_unhandled_reloc
, /* special_function */
1282 "R_PPC64_PLTGOT16_LO_DS",/* name */
1283 FALSE
, /* partial_inplace */
1285 0xfffc, /* dst_mask */
1286 FALSE
), /* pcrel_offset */
1288 /* Marker relocs for TLS. */
1291 2, /* size (0 = byte, 1 = short, 2 = long) */
1293 FALSE
, /* pc_relative */
1295 complain_overflow_dont
, /* complain_on_overflow */
1296 bfd_elf_generic_reloc
, /* special_function */
1297 "R_PPC64_TLS", /* name */
1298 FALSE
, /* partial_inplace */
1301 FALSE
), /* pcrel_offset */
1303 HOWTO (R_PPC64_TLSGD
,
1305 2, /* size (0 = byte, 1 = short, 2 = long) */
1307 FALSE
, /* pc_relative */
1309 complain_overflow_dont
, /* complain_on_overflow */
1310 bfd_elf_generic_reloc
, /* special_function */
1311 "R_PPC64_TLSGD", /* name */
1312 FALSE
, /* partial_inplace */
1315 FALSE
), /* pcrel_offset */
1317 HOWTO (R_PPC64_TLSLD
,
1319 2, /* size (0 = byte, 1 = short, 2 = long) */
1321 FALSE
, /* pc_relative */
1323 complain_overflow_dont
, /* complain_on_overflow */
1324 bfd_elf_generic_reloc
, /* special_function */
1325 "R_PPC64_TLSLD", /* name */
1326 FALSE
, /* partial_inplace */
1329 FALSE
), /* pcrel_offset */
1331 HOWTO (R_PPC64_TOCSAVE
,
1333 2, /* size (0 = byte, 1 = short, 2 = long) */
1335 FALSE
, /* pc_relative */
1337 complain_overflow_dont
, /* complain_on_overflow */
1338 bfd_elf_generic_reloc
, /* special_function */
1339 "R_PPC64_TOCSAVE", /* name */
1340 FALSE
, /* partial_inplace */
1343 FALSE
), /* pcrel_offset */
1345 /* Computes the load module index of the load module that contains the
1346 definition of its TLS sym. */
1347 HOWTO (R_PPC64_DTPMOD64
,
1349 4, /* size (0 = byte, 1 = short, 2 = long) */
1351 FALSE
, /* pc_relative */
1353 complain_overflow_dont
, /* complain_on_overflow */
1354 ppc64_elf_unhandled_reloc
, /* special_function */
1355 "R_PPC64_DTPMOD64", /* name */
1356 FALSE
, /* partial_inplace */
1358 ONES (64), /* dst_mask */
1359 FALSE
), /* pcrel_offset */
1361 /* Computes a dtv-relative displacement, the difference between the value
1362 of sym+add and the base address of the thread-local storage block that
1363 contains the definition of sym, minus 0x8000. */
1364 HOWTO (R_PPC64_DTPREL64
,
1366 4, /* size (0 = byte, 1 = short, 2 = long) */
1368 FALSE
, /* pc_relative */
1370 complain_overflow_dont
, /* complain_on_overflow */
1371 ppc64_elf_unhandled_reloc
, /* special_function */
1372 "R_PPC64_DTPREL64", /* name */
1373 FALSE
, /* partial_inplace */
1375 ONES (64), /* dst_mask */
1376 FALSE
), /* pcrel_offset */
1378 /* A 16 bit dtprel reloc. */
1379 HOWTO (R_PPC64_DTPREL16
,
1381 1, /* size (0 = byte, 1 = short, 2 = long) */
1383 FALSE
, /* pc_relative */
1385 complain_overflow_signed
, /* complain_on_overflow */
1386 ppc64_elf_unhandled_reloc
, /* special_function */
1387 "R_PPC64_DTPREL16", /* name */
1388 FALSE
, /* partial_inplace */
1390 0xffff, /* dst_mask */
1391 FALSE
), /* pcrel_offset */
1393 /* Like DTPREL16, but no overflow. */
1394 HOWTO (R_PPC64_DTPREL16_LO
,
1396 1, /* size (0 = byte, 1 = short, 2 = long) */
1398 FALSE
, /* pc_relative */
1400 complain_overflow_dont
, /* complain_on_overflow */
1401 ppc64_elf_unhandled_reloc
, /* special_function */
1402 "R_PPC64_DTPREL16_LO", /* name */
1403 FALSE
, /* partial_inplace */
1405 0xffff, /* dst_mask */
1406 FALSE
), /* pcrel_offset */
1408 /* Like DTPREL16_LO, but next higher group of 16 bits. */
1409 HOWTO (R_PPC64_DTPREL16_HI
,
1410 16, /* rightshift */
1411 1, /* size (0 = byte, 1 = short, 2 = long) */
1413 FALSE
, /* pc_relative */
1415 complain_overflow_signed
, /* complain_on_overflow */
1416 ppc64_elf_unhandled_reloc
, /* special_function */
1417 "R_PPC64_DTPREL16_HI", /* name */
1418 FALSE
, /* partial_inplace */
1420 0xffff, /* dst_mask */
1421 FALSE
), /* pcrel_offset */
1423 /* Like DTPREL16_HI, but adjust for low 16 bits. */
1424 HOWTO (R_PPC64_DTPREL16_HA
,
1425 16, /* rightshift */
1426 1, /* size (0 = byte, 1 = short, 2 = long) */
1428 FALSE
, /* pc_relative */
1430 complain_overflow_signed
, /* complain_on_overflow */
1431 ppc64_elf_unhandled_reloc
, /* special_function */
1432 "R_PPC64_DTPREL16_HA", /* name */
1433 FALSE
, /* partial_inplace */
1435 0xffff, /* dst_mask */
1436 FALSE
), /* pcrel_offset */
1438 /* Like DTPREL16_HI, but next higher group of 16 bits. */
1439 HOWTO (R_PPC64_DTPREL16_HIGHER
,
1440 32, /* rightshift */
1441 1, /* size (0 = byte, 1 = short, 2 = long) */
1443 FALSE
, /* pc_relative */
1445 complain_overflow_dont
, /* complain_on_overflow */
1446 ppc64_elf_unhandled_reloc
, /* special_function */
1447 "R_PPC64_DTPREL16_HIGHER", /* name */
1448 FALSE
, /* partial_inplace */
1450 0xffff, /* dst_mask */
1451 FALSE
), /* pcrel_offset */
1453 /* Like DTPREL16_HIGHER, but adjust for low 16 bits. */
1454 HOWTO (R_PPC64_DTPREL16_HIGHERA
,
1455 32, /* rightshift */
1456 1, /* size (0 = byte, 1 = short, 2 = long) */
1458 FALSE
, /* pc_relative */
1460 complain_overflow_dont
, /* complain_on_overflow */
1461 ppc64_elf_unhandled_reloc
, /* special_function */
1462 "R_PPC64_DTPREL16_HIGHERA", /* name */
1463 FALSE
, /* partial_inplace */
1465 0xffff, /* dst_mask */
1466 FALSE
), /* pcrel_offset */
1468 /* Like DTPREL16_HIGHER, but next higher group of 16 bits. */
1469 HOWTO (R_PPC64_DTPREL16_HIGHEST
,
1470 48, /* rightshift */
1471 1, /* size (0 = byte, 1 = short, 2 = long) */
1473 FALSE
, /* pc_relative */
1475 complain_overflow_dont
, /* complain_on_overflow */
1476 ppc64_elf_unhandled_reloc
, /* special_function */
1477 "R_PPC64_DTPREL16_HIGHEST", /* name */
1478 FALSE
, /* partial_inplace */
1480 0xffff, /* dst_mask */
1481 FALSE
), /* pcrel_offset */
1483 /* Like DTPREL16_HIGHEST, but adjust for low 16 bits. */
1484 HOWTO (R_PPC64_DTPREL16_HIGHESTA
,
1485 48, /* rightshift */
1486 1, /* size (0 = byte, 1 = short, 2 = long) */
1488 FALSE
, /* pc_relative */
1490 complain_overflow_dont
, /* complain_on_overflow */
1491 ppc64_elf_unhandled_reloc
, /* special_function */
1492 "R_PPC64_DTPREL16_HIGHESTA", /* name */
1493 FALSE
, /* partial_inplace */
1495 0xffff, /* dst_mask */
1496 FALSE
), /* pcrel_offset */
1498 /* Like DTPREL16, but for insns with a DS field. */
1499 HOWTO (R_PPC64_DTPREL16_DS
,
1501 1, /* size (0 = byte, 1 = short, 2 = long) */
1503 FALSE
, /* pc_relative */
1505 complain_overflow_signed
, /* complain_on_overflow */
1506 ppc64_elf_unhandled_reloc
, /* special_function */
1507 "R_PPC64_DTPREL16_DS", /* name */
1508 FALSE
, /* partial_inplace */
1510 0xfffc, /* dst_mask */
1511 FALSE
), /* pcrel_offset */
1513 /* Like DTPREL16_DS, but no overflow. */
1514 HOWTO (R_PPC64_DTPREL16_LO_DS
,
1516 1, /* size (0 = byte, 1 = short, 2 = long) */
1518 FALSE
, /* pc_relative */
1520 complain_overflow_dont
, /* complain_on_overflow */
1521 ppc64_elf_unhandled_reloc
, /* special_function */
1522 "R_PPC64_DTPREL16_LO_DS", /* name */
1523 FALSE
, /* partial_inplace */
1525 0xfffc, /* dst_mask */
1526 FALSE
), /* pcrel_offset */
1528 /* Computes a tp-relative displacement, the difference between the value of
1529 sym+add and the value of the thread pointer (r13). */
1530 HOWTO (R_PPC64_TPREL64
,
1532 4, /* size (0 = byte, 1 = short, 2 = long) */
1534 FALSE
, /* pc_relative */
1536 complain_overflow_dont
, /* complain_on_overflow */
1537 ppc64_elf_unhandled_reloc
, /* special_function */
1538 "R_PPC64_TPREL64", /* name */
1539 FALSE
, /* partial_inplace */
1541 ONES (64), /* dst_mask */
1542 FALSE
), /* pcrel_offset */
1544 /* A 16 bit tprel reloc. */
1545 HOWTO (R_PPC64_TPREL16
,
1547 1, /* size (0 = byte, 1 = short, 2 = long) */
1549 FALSE
, /* pc_relative */
1551 complain_overflow_signed
, /* complain_on_overflow */
1552 ppc64_elf_unhandled_reloc
, /* special_function */
1553 "R_PPC64_TPREL16", /* name */
1554 FALSE
, /* partial_inplace */
1556 0xffff, /* dst_mask */
1557 FALSE
), /* pcrel_offset */
1559 /* Like TPREL16, but no overflow. */
1560 HOWTO (R_PPC64_TPREL16_LO
,
1562 1, /* size (0 = byte, 1 = short, 2 = long) */
1564 FALSE
, /* pc_relative */
1566 complain_overflow_dont
, /* complain_on_overflow */
1567 ppc64_elf_unhandled_reloc
, /* special_function */
1568 "R_PPC64_TPREL16_LO", /* name */
1569 FALSE
, /* partial_inplace */
1571 0xffff, /* dst_mask */
1572 FALSE
), /* pcrel_offset */
1574 /* Like TPREL16_LO, but next higher group of 16 bits. */
1575 HOWTO (R_PPC64_TPREL16_HI
,
1576 16, /* rightshift */
1577 1, /* size (0 = byte, 1 = short, 2 = long) */
1579 FALSE
, /* pc_relative */
1581 complain_overflow_signed
, /* complain_on_overflow */
1582 ppc64_elf_unhandled_reloc
, /* special_function */
1583 "R_PPC64_TPREL16_HI", /* name */
1584 FALSE
, /* partial_inplace */
1586 0xffff, /* dst_mask */
1587 FALSE
), /* pcrel_offset */
1589 /* Like TPREL16_HI, but adjust for low 16 bits. */
1590 HOWTO (R_PPC64_TPREL16_HA
,
1591 16, /* rightshift */
1592 1, /* size (0 = byte, 1 = short, 2 = long) */
1594 FALSE
, /* pc_relative */
1596 complain_overflow_signed
, /* complain_on_overflow */
1597 ppc64_elf_unhandled_reloc
, /* special_function */
1598 "R_PPC64_TPREL16_HA", /* name */
1599 FALSE
, /* partial_inplace */
1601 0xffff, /* dst_mask */
1602 FALSE
), /* pcrel_offset */
1604 /* Like TPREL16_HI, but next higher group of 16 bits. */
1605 HOWTO (R_PPC64_TPREL16_HIGHER
,
1606 32, /* rightshift */
1607 1, /* size (0 = byte, 1 = short, 2 = long) */
1609 FALSE
, /* pc_relative */
1611 complain_overflow_dont
, /* complain_on_overflow */
1612 ppc64_elf_unhandled_reloc
, /* special_function */
1613 "R_PPC64_TPREL16_HIGHER", /* name */
1614 FALSE
, /* partial_inplace */
1616 0xffff, /* dst_mask */
1617 FALSE
), /* pcrel_offset */
1619 /* Like TPREL16_HIGHER, but adjust for low 16 bits. */
1620 HOWTO (R_PPC64_TPREL16_HIGHERA
,
1621 32, /* rightshift */
1622 1, /* size (0 = byte, 1 = short, 2 = long) */
1624 FALSE
, /* pc_relative */
1626 complain_overflow_dont
, /* complain_on_overflow */
1627 ppc64_elf_unhandled_reloc
, /* special_function */
1628 "R_PPC64_TPREL16_HIGHERA", /* name */
1629 FALSE
, /* partial_inplace */
1631 0xffff, /* dst_mask */
1632 FALSE
), /* pcrel_offset */
1634 /* Like TPREL16_HIGHER, but next higher group of 16 bits. */
1635 HOWTO (R_PPC64_TPREL16_HIGHEST
,
1636 48, /* rightshift */
1637 1, /* size (0 = byte, 1 = short, 2 = long) */
1639 FALSE
, /* pc_relative */
1641 complain_overflow_dont
, /* complain_on_overflow */
1642 ppc64_elf_unhandled_reloc
, /* special_function */
1643 "R_PPC64_TPREL16_HIGHEST", /* name */
1644 FALSE
, /* partial_inplace */
1646 0xffff, /* dst_mask */
1647 FALSE
), /* pcrel_offset */
1649 /* Like TPREL16_HIGHEST, but adjust for low 16 bits. */
1650 HOWTO (R_PPC64_TPREL16_HIGHESTA
,
1651 48, /* rightshift */
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_TPREL16_HIGHESTA", /* name */
1659 FALSE
, /* partial_inplace */
1661 0xffff, /* dst_mask */
1662 FALSE
), /* pcrel_offset */
1664 /* Like TPREL16, but for insns with a DS field. */
1665 HOWTO (R_PPC64_TPREL16_DS
,
1667 1, /* size (0 = byte, 1 = short, 2 = long) */
1669 FALSE
, /* pc_relative */
1671 complain_overflow_signed
, /* complain_on_overflow */
1672 ppc64_elf_unhandled_reloc
, /* special_function */
1673 "R_PPC64_TPREL16_DS", /* name */
1674 FALSE
, /* partial_inplace */
1676 0xfffc, /* dst_mask */
1677 FALSE
), /* pcrel_offset */
1679 /* Like TPREL16_DS, but no overflow. */
1680 HOWTO (R_PPC64_TPREL16_LO_DS
,
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_TPREL16_LO_DS", /* name */
1689 FALSE
, /* partial_inplace */
1691 0xfffc, /* dst_mask */
1692 FALSE
), /* pcrel_offset */
1694 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1695 with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
1696 to the first entry relative to the TOC base (r2). */
1697 HOWTO (R_PPC64_GOT_TLSGD16
,
1699 1, /* size (0 = byte, 1 = short, 2 = long) */
1701 FALSE
, /* pc_relative */
1703 complain_overflow_signed
, /* complain_on_overflow */
1704 ppc64_elf_unhandled_reloc
, /* special_function */
1705 "R_PPC64_GOT_TLSGD16", /* name */
1706 FALSE
, /* partial_inplace */
1708 0xffff, /* dst_mask */
1709 FALSE
), /* pcrel_offset */
1711 /* Like GOT_TLSGD16, but no overflow. */
1712 HOWTO (R_PPC64_GOT_TLSGD16_LO
,
1714 1, /* size (0 = byte, 1 = short, 2 = long) */
1716 FALSE
, /* pc_relative */
1718 complain_overflow_dont
, /* complain_on_overflow */
1719 ppc64_elf_unhandled_reloc
, /* special_function */
1720 "R_PPC64_GOT_TLSGD16_LO", /* name */
1721 FALSE
, /* partial_inplace */
1723 0xffff, /* dst_mask */
1724 FALSE
), /* pcrel_offset */
1726 /* Like GOT_TLSGD16_LO, but next higher group of 16 bits. */
1727 HOWTO (R_PPC64_GOT_TLSGD16_HI
,
1728 16, /* rightshift */
1729 1, /* size (0 = byte, 1 = short, 2 = long) */
1731 FALSE
, /* pc_relative */
1733 complain_overflow_signed
, /* complain_on_overflow */
1734 ppc64_elf_unhandled_reloc
, /* special_function */
1735 "R_PPC64_GOT_TLSGD16_HI", /* name */
1736 FALSE
, /* partial_inplace */
1738 0xffff, /* dst_mask */
1739 FALSE
), /* pcrel_offset */
1741 /* Like GOT_TLSGD16_HI, but adjust for low 16 bits. */
1742 HOWTO (R_PPC64_GOT_TLSGD16_HA
,
1743 16, /* rightshift */
1744 1, /* size (0 = byte, 1 = short, 2 = long) */
1746 FALSE
, /* pc_relative */
1748 complain_overflow_signed
, /* complain_on_overflow */
1749 ppc64_elf_unhandled_reloc
, /* special_function */
1750 "R_PPC64_GOT_TLSGD16_HA", /* name */
1751 FALSE
, /* partial_inplace */
1753 0xffff, /* dst_mask */
1754 FALSE
), /* pcrel_offset */
1756 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1757 with values (sym+add)@dtpmod and zero, and computes the offset to the
1758 first entry relative to the TOC base (r2). */
1759 HOWTO (R_PPC64_GOT_TLSLD16
,
1761 1, /* size (0 = byte, 1 = short, 2 = long) */
1763 FALSE
, /* pc_relative */
1765 complain_overflow_signed
, /* complain_on_overflow */
1766 ppc64_elf_unhandled_reloc
, /* special_function */
1767 "R_PPC64_GOT_TLSLD16", /* name */
1768 FALSE
, /* partial_inplace */
1770 0xffff, /* dst_mask */
1771 FALSE
), /* pcrel_offset */
1773 /* Like GOT_TLSLD16, but no overflow. */
1774 HOWTO (R_PPC64_GOT_TLSLD16_LO
,
1776 1, /* size (0 = byte, 1 = short, 2 = long) */
1778 FALSE
, /* pc_relative */
1780 complain_overflow_dont
, /* complain_on_overflow */
1781 ppc64_elf_unhandled_reloc
, /* special_function */
1782 "R_PPC64_GOT_TLSLD16_LO", /* name */
1783 FALSE
, /* partial_inplace */
1785 0xffff, /* dst_mask */
1786 FALSE
), /* pcrel_offset */
1788 /* Like GOT_TLSLD16_LO, but next higher group of 16 bits. */
1789 HOWTO (R_PPC64_GOT_TLSLD16_HI
,
1790 16, /* rightshift */
1791 1, /* size (0 = byte, 1 = short, 2 = long) */
1793 FALSE
, /* pc_relative */
1795 complain_overflow_signed
, /* complain_on_overflow */
1796 ppc64_elf_unhandled_reloc
, /* special_function */
1797 "R_PPC64_GOT_TLSLD16_HI", /* name */
1798 FALSE
, /* partial_inplace */
1800 0xffff, /* dst_mask */
1801 FALSE
), /* pcrel_offset */
1803 /* Like GOT_TLSLD16_HI, but adjust for low 16 bits. */
1804 HOWTO (R_PPC64_GOT_TLSLD16_HA
,
1805 16, /* rightshift */
1806 1, /* size (0 = byte, 1 = short, 2 = long) */
1808 FALSE
, /* pc_relative */
1810 complain_overflow_signed
, /* complain_on_overflow */
1811 ppc64_elf_unhandled_reloc
, /* special_function */
1812 "R_PPC64_GOT_TLSLD16_HA", /* name */
1813 FALSE
, /* partial_inplace */
1815 0xffff, /* dst_mask */
1816 FALSE
), /* pcrel_offset */
1818 /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1819 the offset to the entry relative to the TOC base (r2). */
1820 HOWTO (R_PPC64_GOT_DTPREL16_DS
,
1822 1, /* size (0 = byte, 1 = short, 2 = long) */
1824 FALSE
, /* pc_relative */
1826 complain_overflow_signed
, /* complain_on_overflow */
1827 ppc64_elf_unhandled_reloc
, /* special_function */
1828 "R_PPC64_GOT_DTPREL16_DS", /* name */
1829 FALSE
, /* partial_inplace */
1831 0xfffc, /* dst_mask */
1832 FALSE
), /* pcrel_offset */
1834 /* Like GOT_DTPREL16_DS, but no overflow. */
1835 HOWTO (R_PPC64_GOT_DTPREL16_LO_DS
,
1837 1, /* size (0 = byte, 1 = short, 2 = long) */
1839 FALSE
, /* pc_relative */
1841 complain_overflow_dont
, /* complain_on_overflow */
1842 ppc64_elf_unhandled_reloc
, /* special_function */
1843 "R_PPC64_GOT_DTPREL16_LO_DS", /* name */
1844 FALSE
, /* partial_inplace */
1846 0xfffc, /* dst_mask */
1847 FALSE
), /* pcrel_offset */
1849 /* Like GOT_DTPREL16_LO_DS, but next higher group of 16 bits. */
1850 HOWTO (R_PPC64_GOT_DTPREL16_HI
,
1851 16, /* rightshift */
1852 1, /* size (0 = byte, 1 = short, 2 = long) */
1854 FALSE
, /* pc_relative */
1856 complain_overflow_signed
, /* complain_on_overflow */
1857 ppc64_elf_unhandled_reloc
, /* special_function */
1858 "R_PPC64_GOT_DTPREL16_HI", /* name */
1859 FALSE
, /* partial_inplace */
1861 0xffff, /* dst_mask */
1862 FALSE
), /* pcrel_offset */
1864 /* Like GOT_DTPREL16_HI, but adjust for low 16 bits. */
1865 HOWTO (R_PPC64_GOT_DTPREL16_HA
,
1866 16, /* rightshift */
1867 1, /* size (0 = byte, 1 = short, 2 = long) */
1869 FALSE
, /* pc_relative */
1871 complain_overflow_signed
, /* complain_on_overflow */
1872 ppc64_elf_unhandled_reloc
, /* special_function */
1873 "R_PPC64_GOT_DTPREL16_HA", /* name */
1874 FALSE
, /* partial_inplace */
1876 0xffff, /* dst_mask */
1877 FALSE
), /* pcrel_offset */
1879 /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1880 offset to the entry relative to the TOC base (r2). */
1881 HOWTO (R_PPC64_GOT_TPREL16_DS
,
1883 1, /* size (0 = byte, 1 = short, 2 = long) */
1885 FALSE
, /* pc_relative */
1887 complain_overflow_signed
, /* complain_on_overflow */
1888 ppc64_elf_unhandled_reloc
, /* special_function */
1889 "R_PPC64_GOT_TPREL16_DS", /* name */
1890 FALSE
, /* partial_inplace */
1892 0xfffc, /* dst_mask */
1893 FALSE
), /* pcrel_offset */
1895 /* Like GOT_TPREL16_DS, but no overflow. */
1896 HOWTO (R_PPC64_GOT_TPREL16_LO_DS
,
1898 1, /* size (0 = byte, 1 = short, 2 = long) */
1900 FALSE
, /* pc_relative */
1902 complain_overflow_dont
, /* complain_on_overflow */
1903 ppc64_elf_unhandled_reloc
, /* special_function */
1904 "R_PPC64_GOT_TPREL16_LO_DS", /* name */
1905 FALSE
, /* partial_inplace */
1907 0xfffc, /* dst_mask */
1908 FALSE
), /* pcrel_offset */
1910 /* Like GOT_TPREL16_LO_DS, but next higher group of 16 bits. */
1911 HOWTO (R_PPC64_GOT_TPREL16_HI
,
1912 16, /* rightshift */
1913 1, /* size (0 = byte, 1 = short, 2 = long) */
1915 FALSE
, /* pc_relative */
1917 complain_overflow_signed
, /* complain_on_overflow */
1918 ppc64_elf_unhandled_reloc
, /* special_function */
1919 "R_PPC64_GOT_TPREL16_HI", /* name */
1920 FALSE
, /* partial_inplace */
1922 0xffff, /* dst_mask */
1923 FALSE
), /* pcrel_offset */
1925 /* Like GOT_TPREL16_HI, but adjust for low 16 bits. */
1926 HOWTO (R_PPC64_GOT_TPREL16_HA
,
1927 16, /* rightshift */
1928 1, /* size (0 = byte, 1 = short, 2 = long) */
1930 FALSE
, /* pc_relative */
1932 complain_overflow_signed
, /* complain_on_overflow */
1933 ppc64_elf_unhandled_reloc
, /* special_function */
1934 "R_PPC64_GOT_TPREL16_HA", /* name */
1935 FALSE
, /* partial_inplace */
1937 0xffff, /* dst_mask */
1938 FALSE
), /* pcrel_offset */
1940 HOWTO (R_PPC64_JMP_IREL
, /* type */
1942 0, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
1944 FALSE
, /* pc_relative */
1946 complain_overflow_dont
, /* complain_on_overflow */
1947 ppc64_elf_unhandled_reloc
, /* special_function */
1948 "R_PPC64_JMP_IREL", /* name */
1949 FALSE
, /* partial_inplace */
1952 FALSE
), /* pcrel_offset */
1954 HOWTO (R_PPC64_IRELATIVE
, /* type */
1956 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
1958 FALSE
, /* pc_relative */
1960 complain_overflow_dont
, /* complain_on_overflow */
1961 bfd_elf_generic_reloc
, /* special_function */
1962 "R_PPC64_IRELATIVE", /* name */
1963 FALSE
, /* partial_inplace */
1965 ONES (64), /* dst_mask */
1966 FALSE
), /* pcrel_offset */
1968 /* A 16 bit relative relocation. */
1969 HOWTO (R_PPC64_REL16
, /* type */
1971 1, /* size (0 = byte, 1 = short, 2 = long) */
1973 TRUE
, /* pc_relative */
1975 complain_overflow_signed
, /* complain_on_overflow */
1976 bfd_elf_generic_reloc
, /* special_function */
1977 "R_PPC64_REL16", /* name */
1978 FALSE
, /* partial_inplace */
1980 0xffff, /* dst_mask */
1981 TRUE
), /* pcrel_offset */
1983 /* A 16 bit relative relocation without overflow. */
1984 HOWTO (R_PPC64_REL16_LO
, /* type */
1986 1, /* size (0 = byte, 1 = short, 2 = long) */
1988 TRUE
, /* pc_relative */
1990 complain_overflow_dont
,/* complain_on_overflow */
1991 bfd_elf_generic_reloc
, /* special_function */
1992 "R_PPC64_REL16_LO", /* name */
1993 FALSE
, /* partial_inplace */
1995 0xffff, /* dst_mask */
1996 TRUE
), /* pcrel_offset */
1998 /* The high order 16 bits of a relative address. */
1999 HOWTO (R_PPC64_REL16_HI
, /* type */
2000 16, /* rightshift */
2001 1, /* size (0 = byte, 1 = short, 2 = long) */
2003 TRUE
, /* pc_relative */
2005 complain_overflow_signed
, /* complain_on_overflow */
2006 bfd_elf_generic_reloc
, /* special_function */
2007 "R_PPC64_REL16_HI", /* name */
2008 FALSE
, /* partial_inplace */
2010 0xffff, /* dst_mask */
2011 TRUE
), /* pcrel_offset */
2013 /* The high order 16 bits of a relative address, plus 1 if the contents of
2014 the low 16 bits, treated as a signed number, is negative. */
2015 HOWTO (R_PPC64_REL16_HA
, /* type */
2016 16, /* rightshift */
2017 1, /* size (0 = byte, 1 = short, 2 = long) */
2019 TRUE
, /* pc_relative */
2021 complain_overflow_signed
, /* complain_on_overflow */
2022 ppc64_elf_ha_reloc
, /* special_function */
2023 "R_PPC64_REL16_HA", /* name */
2024 FALSE
, /* partial_inplace */
2026 0xffff, /* dst_mask */
2027 TRUE
), /* pcrel_offset */
2029 /* Like R_PPC64_REL16_HA but for split field in addpcis. */
2030 HOWTO (R_PPC64_REL16DX_HA
, /* type */
2031 16, /* rightshift */
2032 2, /* size (0 = byte, 1 = short, 2 = long) */
2034 TRUE
, /* pc_relative */
2036 complain_overflow_signed
, /* complain_on_overflow */
2037 ppc64_elf_ha_reloc
, /* special_function */
2038 "R_PPC64_REL16DX_HA", /* name */
2039 FALSE
, /* partial_inplace */
2041 0x1fffc1, /* dst_mask */
2042 TRUE
), /* pcrel_offset */
2044 /* Like R_PPC64_ADDR16_HI, but no overflow. */
2045 HOWTO (R_PPC64_ADDR16_HIGH
, /* type */
2046 16, /* rightshift */
2047 1, /* size (0 = byte, 1 = short, 2 = long) */
2049 FALSE
, /* pc_relative */
2051 complain_overflow_dont
, /* complain_on_overflow */
2052 bfd_elf_generic_reloc
, /* special_function */
2053 "R_PPC64_ADDR16_HIGH", /* name */
2054 FALSE
, /* partial_inplace */
2056 0xffff, /* dst_mask */
2057 FALSE
), /* pcrel_offset */
2059 /* Like R_PPC64_ADDR16_HA, but no overflow. */
2060 HOWTO (R_PPC64_ADDR16_HIGHA
, /* type */
2061 16, /* rightshift */
2062 1, /* size (0 = byte, 1 = short, 2 = long) */
2064 FALSE
, /* pc_relative */
2066 complain_overflow_dont
, /* complain_on_overflow */
2067 ppc64_elf_ha_reloc
, /* special_function */
2068 "R_PPC64_ADDR16_HIGHA", /* name */
2069 FALSE
, /* partial_inplace */
2071 0xffff, /* dst_mask */
2072 FALSE
), /* pcrel_offset */
2074 /* Like R_PPC64_DTPREL16_HI, but no overflow. */
2075 HOWTO (R_PPC64_DTPREL16_HIGH
,
2076 16, /* rightshift */
2077 1, /* size (0 = byte, 1 = short, 2 = long) */
2079 FALSE
, /* pc_relative */
2081 complain_overflow_dont
, /* complain_on_overflow */
2082 ppc64_elf_unhandled_reloc
, /* special_function */
2083 "R_PPC64_DTPREL16_HIGH", /* name */
2084 FALSE
, /* partial_inplace */
2086 0xffff, /* dst_mask */
2087 FALSE
), /* pcrel_offset */
2089 /* Like R_PPC64_DTPREL16_HA, but no overflow. */
2090 HOWTO (R_PPC64_DTPREL16_HIGHA
,
2091 16, /* rightshift */
2092 1, /* size (0 = byte, 1 = short, 2 = long) */
2094 FALSE
, /* pc_relative */
2096 complain_overflow_dont
, /* complain_on_overflow */
2097 ppc64_elf_unhandled_reloc
, /* special_function */
2098 "R_PPC64_DTPREL16_HIGHA", /* name */
2099 FALSE
, /* partial_inplace */
2101 0xffff, /* dst_mask */
2102 FALSE
), /* pcrel_offset */
2104 /* Like R_PPC64_TPREL16_HI, but no overflow. */
2105 HOWTO (R_PPC64_TPREL16_HIGH
,
2106 16, /* rightshift */
2107 1, /* size (0 = byte, 1 = short, 2 = long) */
2109 FALSE
, /* pc_relative */
2111 complain_overflow_dont
, /* complain_on_overflow */
2112 ppc64_elf_unhandled_reloc
, /* special_function */
2113 "R_PPC64_TPREL16_HIGH", /* name */
2114 FALSE
, /* partial_inplace */
2116 0xffff, /* dst_mask */
2117 FALSE
), /* pcrel_offset */
2119 /* Like R_PPC64_TPREL16_HA, but no overflow. */
2120 HOWTO (R_PPC64_TPREL16_HIGHA
,
2121 16, /* rightshift */
2122 1, /* size (0 = byte, 1 = short, 2 = long) */
2124 FALSE
, /* pc_relative */
2126 complain_overflow_dont
, /* complain_on_overflow */
2127 ppc64_elf_unhandled_reloc
, /* special_function */
2128 "R_PPC64_TPREL16_HIGHA", /* name */
2129 FALSE
, /* partial_inplace */
2131 0xffff, /* dst_mask */
2132 FALSE
), /* pcrel_offset */
2134 /* Marker reloc on ELFv2 large-model function entry. */
2135 HOWTO (R_PPC64_ENTRY
,
2137 2, /* size (0 = byte, 1 = short, 2 = long) */
2139 FALSE
, /* pc_relative */
2141 complain_overflow_dont
, /* complain_on_overflow */
2142 bfd_elf_generic_reloc
, /* special_function */
2143 "R_PPC64_ENTRY", /* name */
2144 FALSE
, /* partial_inplace */
2147 FALSE
), /* pcrel_offset */
2149 /* Like ADDR64, but use local entry point of function. */
2150 HOWTO (R_PPC64_ADDR64_LOCAL
, /* type */
2152 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
2154 FALSE
, /* pc_relative */
2156 complain_overflow_dont
, /* complain_on_overflow */
2157 bfd_elf_generic_reloc
, /* special_function */
2158 "R_PPC64_ADDR64_LOCAL", /* name */
2159 FALSE
, /* partial_inplace */
2161 ONES (64), /* dst_mask */
2162 FALSE
), /* pcrel_offset */
2164 /* GNU extension to record C++ vtable hierarchy. */
2165 HOWTO (R_PPC64_GNU_VTINHERIT
, /* type */
2167 0, /* size (0 = byte, 1 = short, 2 = long) */
2169 FALSE
, /* pc_relative */
2171 complain_overflow_dont
, /* complain_on_overflow */
2172 NULL
, /* special_function */
2173 "R_PPC64_GNU_VTINHERIT", /* name */
2174 FALSE
, /* partial_inplace */
2177 FALSE
), /* pcrel_offset */
2179 /* GNU extension to record C++ vtable member usage. */
2180 HOWTO (R_PPC64_GNU_VTENTRY
, /* type */
2182 0, /* size (0 = byte, 1 = short, 2 = long) */
2184 FALSE
, /* pc_relative */
2186 complain_overflow_dont
, /* complain_on_overflow */
2187 NULL
, /* special_function */
2188 "R_PPC64_GNU_VTENTRY", /* name */
2189 FALSE
, /* partial_inplace */
2192 FALSE
), /* pcrel_offset */
2196 /* Initialize the ppc64_elf_howto_table, so that linear accesses can
2200 ppc_howto_init (void)
2202 unsigned int i
, type
;
2204 for (i
= 0; i
< ARRAY_SIZE (ppc64_elf_howto_raw
); i
++)
2206 type
= ppc64_elf_howto_raw
[i
].type
;
2207 BFD_ASSERT (type
< ARRAY_SIZE (ppc64_elf_howto_table
));
2208 ppc64_elf_howto_table
[type
] = &ppc64_elf_howto_raw
[i
];
2212 static reloc_howto_type
*
2213 ppc64_elf_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
2214 bfd_reloc_code_real_type code
)
2216 enum elf_ppc64_reloc_type r
= R_PPC64_NONE
;
2218 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
2219 /* Initialize howto table if needed. */
2227 case BFD_RELOC_NONE
: r
= R_PPC64_NONE
;
2229 case BFD_RELOC_32
: r
= R_PPC64_ADDR32
;
2231 case BFD_RELOC_PPC_BA26
: r
= R_PPC64_ADDR24
;
2233 case BFD_RELOC_16
: r
= R_PPC64_ADDR16
;
2235 case BFD_RELOC_LO16
: r
= R_PPC64_ADDR16_LO
;
2237 case BFD_RELOC_HI16
: r
= R_PPC64_ADDR16_HI
;
2239 case BFD_RELOC_PPC64_ADDR16_HIGH
: r
= R_PPC64_ADDR16_HIGH
;
2241 case BFD_RELOC_HI16_S
: r
= R_PPC64_ADDR16_HA
;
2243 case BFD_RELOC_PPC64_ADDR16_HIGHA
: r
= R_PPC64_ADDR16_HIGHA
;
2245 case BFD_RELOC_PPC_BA16
: r
= R_PPC64_ADDR14
;
2247 case BFD_RELOC_PPC_BA16_BRTAKEN
: r
= R_PPC64_ADDR14_BRTAKEN
;
2249 case BFD_RELOC_PPC_BA16_BRNTAKEN
: r
= R_PPC64_ADDR14_BRNTAKEN
;
2251 case BFD_RELOC_PPC_B26
: r
= R_PPC64_REL24
;
2253 case BFD_RELOC_PPC_B16
: r
= R_PPC64_REL14
;
2255 case BFD_RELOC_PPC_B16_BRTAKEN
: r
= R_PPC64_REL14_BRTAKEN
;
2257 case BFD_RELOC_PPC_B16_BRNTAKEN
: r
= R_PPC64_REL14_BRNTAKEN
;
2259 case BFD_RELOC_16_GOTOFF
: r
= R_PPC64_GOT16
;
2261 case BFD_RELOC_LO16_GOTOFF
: r
= R_PPC64_GOT16_LO
;
2263 case BFD_RELOC_HI16_GOTOFF
: r
= R_PPC64_GOT16_HI
;
2265 case BFD_RELOC_HI16_S_GOTOFF
: r
= R_PPC64_GOT16_HA
;
2267 case BFD_RELOC_PPC_COPY
: r
= R_PPC64_COPY
;
2269 case BFD_RELOC_PPC_GLOB_DAT
: r
= R_PPC64_GLOB_DAT
;
2271 case BFD_RELOC_32_PCREL
: r
= R_PPC64_REL32
;
2273 case BFD_RELOC_32_PLTOFF
: r
= R_PPC64_PLT32
;
2275 case BFD_RELOC_32_PLT_PCREL
: r
= R_PPC64_PLTREL32
;
2277 case BFD_RELOC_LO16_PLTOFF
: r
= R_PPC64_PLT16_LO
;
2279 case BFD_RELOC_HI16_PLTOFF
: r
= R_PPC64_PLT16_HI
;
2281 case BFD_RELOC_HI16_S_PLTOFF
: r
= R_PPC64_PLT16_HA
;
2283 case BFD_RELOC_16_BASEREL
: r
= R_PPC64_SECTOFF
;
2285 case BFD_RELOC_LO16_BASEREL
: r
= R_PPC64_SECTOFF_LO
;
2287 case BFD_RELOC_HI16_BASEREL
: r
= R_PPC64_SECTOFF_HI
;
2289 case BFD_RELOC_HI16_S_BASEREL
: r
= R_PPC64_SECTOFF_HA
;
2291 case BFD_RELOC_CTOR
: r
= R_PPC64_ADDR64
;
2293 case BFD_RELOC_64
: r
= R_PPC64_ADDR64
;
2295 case BFD_RELOC_PPC64_HIGHER
: r
= R_PPC64_ADDR16_HIGHER
;
2297 case BFD_RELOC_PPC64_HIGHER_S
: r
= R_PPC64_ADDR16_HIGHERA
;
2299 case BFD_RELOC_PPC64_HIGHEST
: r
= R_PPC64_ADDR16_HIGHEST
;
2301 case BFD_RELOC_PPC64_HIGHEST_S
: r
= R_PPC64_ADDR16_HIGHESTA
;
2303 case BFD_RELOC_64_PCREL
: r
= R_PPC64_REL64
;
2305 case BFD_RELOC_64_PLTOFF
: r
= R_PPC64_PLT64
;
2307 case BFD_RELOC_64_PLT_PCREL
: r
= R_PPC64_PLTREL64
;
2309 case BFD_RELOC_PPC_TOC16
: r
= R_PPC64_TOC16
;
2311 case BFD_RELOC_PPC64_TOC16_LO
: r
= R_PPC64_TOC16_LO
;
2313 case BFD_RELOC_PPC64_TOC16_HI
: r
= R_PPC64_TOC16_HI
;
2315 case BFD_RELOC_PPC64_TOC16_HA
: r
= R_PPC64_TOC16_HA
;
2317 case BFD_RELOC_PPC64_TOC
: r
= R_PPC64_TOC
;
2319 case BFD_RELOC_PPC64_PLTGOT16
: r
= R_PPC64_PLTGOT16
;
2321 case BFD_RELOC_PPC64_PLTGOT16_LO
: r
= R_PPC64_PLTGOT16_LO
;
2323 case BFD_RELOC_PPC64_PLTGOT16_HI
: r
= R_PPC64_PLTGOT16_HI
;
2325 case BFD_RELOC_PPC64_PLTGOT16_HA
: r
= R_PPC64_PLTGOT16_HA
;
2327 case BFD_RELOC_PPC64_ADDR16_DS
: r
= R_PPC64_ADDR16_DS
;
2329 case BFD_RELOC_PPC64_ADDR16_LO_DS
: r
= R_PPC64_ADDR16_LO_DS
;
2331 case BFD_RELOC_PPC64_GOT16_DS
: r
= R_PPC64_GOT16_DS
;
2333 case BFD_RELOC_PPC64_GOT16_LO_DS
: r
= R_PPC64_GOT16_LO_DS
;
2335 case BFD_RELOC_PPC64_PLT16_LO_DS
: r
= R_PPC64_PLT16_LO_DS
;
2337 case BFD_RELOC_PPC64_SECTOFF_DS
: r
= R_PPC64_SECTOFF_DS
;
2339 case BFD_RELOC_PPC64_SECTOFF_LO_DS
: r
= R_PPC64_SECTOFF_LO_DS
;
2341 case BFD_RELOC_PPC64_TOC16_DS
: r
= R_PPC64_TOC16_DS
;
2343 case BFD_RELOC_PPC64_TOC16_LO_DS
: r
= R_PPC64_TOC16_LO_DS
;
2345 case BFD_RELOC_PPC64_PLTGOT16_DS
: r
= R_PPC64_PLTGOT16_DS
;
2347 case BFD_RELOC_PPC64_PLTGOT16_LO_DS
: r
= R_PPC64_PLTGOT16_LO_DS
;
2349 case BFD_RELOC_PPC_TLS
: r
= R_PPC64_TLS
;
2351 case BFD_RELOC_PPC_TLSGD
: r
= R_PPC64_TLSGD
;
2353 case BFD_RELOC_PPC_TLSLD
: r
= R_PPC64_TLSLD
;
2355 case BFD_RELOC_PPC_DTPMOD
: r
= R_PPC64_DTPMOD64
;
2357 case BFD_RELOC_PPC_TPREL16
: r
= R_PPC64_TPREL16
;
2359 case BFD_RELOC_PPC_TPREL16_LO
: r
= R_PPC64_TPREL16_LO
;
2361 case BFD_RELOC_PPC_TPREL16_HI
: r
= R_PPC64_TPREL16_HI
;
2363 case BFD_RELOC_PPC64_TPREL16_HIGH
: r
= R_PPC64_TPREL16_HIGH
;
2365 case BFD_RELOC_PPC_TPREL16_HA
: r
= R_PPC64_TPREL16_HA
;
2367 case BFD_RELOC_PPC64_TPREL16_HIGHA
: r
= R_PPC64_TPREL16_HIGHA
;
2369 case BFD_RELOC_PPC_TPREL
: r
= R_PPC64_TPREL64
;
2371 case BFD_RELOC_PPC_DTPREL16
: r
= R_PPC64_DTPREL16
;
2373 case BFD_RELOC_PPC_DTPREL16_LO
: r
= R_PPC64_DTPREL16_LO
;
2375 case BFD_RELOC_PPC_DTPREL16_HI
: r
= R_PPC64_DTPREL16_HI
;
2377 case BFD_RELOC_PPC64_DTPREL16_HIGH
: r
= R_PPC64_DTPREL16_HIGH
;
2379 case BFD_RELOC_PPC_DTPREL16_HA
: r
= R_PPC64_DTPREL16_HA
;
2381 case BFD_RELOC_PPC64_DTPREL16_HIGHA
: r
= R_PPC64_DTPREL16_HIGHA
;
2383 case BFD_RELOC_PPC_DTPREL
: r
= R_PPC64_DTPREL64
;
2385 case BFD_RELOC_PPC_GOT_TLSGD16
: r
= R_PPC64_GOT_TLSGD16
;
2387 case BFD_RELOC_PPC_GOT_TLSGD16_LO
: r
= R_PPC64_GOT_TLSGD16_LO
;
2389 case BFD_RELOC_PPC_GOT_TLSGD16_HI
: r
= R_PPC64_GOT_TLSGD16_HI
;
2391 case BFD_RELOC_PPC_GOT_TLSGD16_HA
: r
= R_PPC64_GOT_TLSGD16_HA
;
2393 case BFD_RELOC_PPC_GOT_TLSLD16
: r
= R_PPC64_GOT_TLSLD16
;
2395 case BFD_RELOC_PPC_GOT_TLSLD16_LO
: r
= R_PPC64_GOT_TLSLD16_LO
;
2397 case BFD_RELOC_PPC_GOT_TLSLD16_HI
: r
= R_PPC64_GOT_TLSLD16_HI
;
2399 case BFD_RELOC_PPC_GOT_TLSLD16_HA
: r
= R_PPC64_GOT_TLSLD16_HA
;
2401 case BFD_RELOC_PPC_GOT_TPREL16
: r
= R_PPC64_GOT_TPREL16_DS
;
2403 case BFD_RELOC_PPC_GOT_TPREL16_LO
: r
= R_PPC64_GOT_TPREL16_LO_DS
;
2405 case BFD_RELOC_PPC_GOT_TPREL16_HI
: r
= R_PPC64_GOT_TPREL16_HI
;
2407 case BFD_RELOC_PPC_GOT_TPREL16_HA
: r
= R_PPC64_GOT_TPREL16_HA
;
2409 case BFD_RELOC_PPC_GOT_DTPREL16
: r
= R_PPC64_GOT_DTPREL16_DS
;
2411 case BFD_RELOC_PPC_GOT_DTPREL16_LO
: r
= R_PPC64_GOT_DTPREL16_LO_DS
;
2413 case BFD_RELOC_PPC_GOT_DTPREL16_HI
: r
= R_PPC64_GOT_DTPREL16_HI
;
2415 case BFD_RELOC_PPC_GOT_DTPREL16_HA
: r
= R_PPC64_GOT_DTPREL16_HA
;
2417 case BFD_RELOC_PPC64_TPREL16_DS
: r
= R_PPC64_TPREL16_DS
;
2419 case BFD_RELOC_PPC64_TPREL16_LO_DS
: r
= R_PPC64_TPREL16_LO_DS
;
2421 case BFD_RELOC_PPC64_TPREL16_HIGHER
: r
= R_PPC64_TPREL16_HIGHER
;
2423 case BFD_RELOC_PPC64_TPREL16_HIGHERA
: r
= R_PPC64_TPREL16_HIGHERA
;
2425 case BFD_RELOC_PPC64_TPREL16_HIGHEST
: r
= R_PPC64_TPREL16_HIGHEST
;
2427 case BFD_RELOC_PPC64_TPREL16_HIGHESTA
: r
= R_PPC64_TPREL16_HIGHESTA
;
2429 case BFD_RELOC_PPC64_DTPREL16_DS
: r
= R_PPC64_DTPREL16_DS
;
2431 case BFD_RELOC_PPC64_DTPREL16_LO_DS
: r
= R_PPC64_DTPREL16_LO_DS
;
2433 case BFD_RELOC_PPC64_DTPREL16_HIGHER
: r
= R_PPC64_DTPREL16_HIGHER
;
2435 case BFD_RELOC_PPC64_DTPREL16_HIGHERA
: r
= R_PPC64_DTPREL16_HIGHERA
;
2437 case BFD_RELOC_PPC64_DTPREL16_HIGHEST
: r
= R_PPC64_DTPREL16_HIGHEST
;
2439 case BFD_RELOC_PPC64_DTPREL16_HIGHESTA
: r
= R_PPC64_DTPREL16_HIGHESTA
;
2441 case BFD_RELOC_16_PCREL
: r
= R_PPC64_REL16
;
2443 case BFD_RELOC_LO16_PCREL
: r
= R_PPC64_REL16_LO
;
2445 case BFD_RELOC_HI16_PCREL
: r
= R_PPC64_REL16_HI
;
2447 case BFD_RELOC_HI16_S_PCREL
: r
= R_PPC64_REL16_HA
;
2449 case BFD_RELOC_PPC_REL16DX_HA
: r
= R_PPC64_REL16DX_HA
;
2451 case BFD_RELOC_PPC64_ENTRY
: r
= R_PPC64_ENTRY
;
2453 case BFD_RELOC_PPC64_ADDR64_LOCAL
: r
= R_PPC64_ADDR64_LOCAL
;
2455 case BFD_RELOC_VTABLE_INHERIT
: r
= R_PPC64_GNU_VTINHERIT
;
2457 case BFD_RELOC_VTABLE_ENTRY
: r
= R_PPC64_GNU_VTENTRY
;
2461 return ppc64_elf_howto_table
[r
];
2464 static reloc_howto_type
*
2465 ppc64_elf_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
2470 for (i
= 0; i
< ARRAY_SIZE (ppc64_elf_howto_raw
); i
++)
2471 if (ppc64_elf_howto_raw
[i
].name
!= NULL
2472 && strcasecmp (ppc64_elf_howto_raw
[i
].name
, r_name
) == 0)
2473 return &ppc64_elf_howto_raw
[i
];
2478 /* Set the howto pointer for a PowerPC ELF reloc. */
2481 ppc64_elf_info_to_howto (bfd
*abfd ATTRIBUTE_UNUSED
, arelent
*cache_ptr
,
2482 Elf_Internal_Rela
*dst
)
2486 /* Initialize howto table if needed. */
2487 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
2490 type
= ELF64_R_TYPE (dst
->r_info
);
2491 if (type
>= ARRAY_SIZE (ppc64_elf_howto_table
))
2493 (*_bfd_error_handler
) (_("%B: invalid relocation type %d"),
2495 type
= R_PPC64_NONE
;
2497 cache_ptr
->howto
= ppc64_elf_howto_table
[type
];
2500 /* Handle the R_PPC64_ADDR16_HA and similar relocs. */
2502 static bfd_reloc_status_type
2503 ppc64_elf_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2504 void *data
, asection
*input_section
,
2505 bfd
*output_bfd
, char **error_message
)
2507 enum elf_ppc64_reloc_type r_type
;
2509 bfd_size_type octets
;
2512 /* If this is a relocatable link (output_bfd test tells us), just
2513 call the generic function. Any adjustment will be done at final
2515 if (output_bfd
!= NULL
)
2516 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2517 input_section
, output_bfd
, error_message
);
2519 /* Adjust the addend for sign extension of the low 16 bits.
2520 We won't actually be using the low 16 bits, so trashing them
2522 reloc_entry
->addend
+= 0x8000;
2523 r_type
= reloc_entry
->howto
->type
;
2524 if (r_type
!= R_PPC64_REL16DX_HA
)
2525 return bfd_reloc_continue
;
2528 if (!bfd_is_com_section (symbol
->section
))
2529 value
= symbol
->value
;
2530 value
+= (reloc_entry
->addend
2531 + symbol
->section
->output_offset
2532 + symbol
->section
->output_section
->vma
);
2533 value
-= (reloc_entry
->address
2534 + input_section
->output_offset
2535 + input_section
->output_section
->vma
);
2536 value
= (bfd_signed_vma
) value
>> 16;
2538 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2539 insn
= bfd_get_32 (abfd
, (bfd_byte
*) data
+ octets
);
2541 insn
|= (value
& 0xffc1) | ((value
& 0x3e) << 15);
2542 bfd_put_32 (abfd
, insn
, (bfd_byte
*) data
+ octets
);
2543 if (value
+ 0x8000 > 0xffff)
2544 return bfd_reloc_overflow
;
2545 return bfd_reloc_ok
;
2548 static bfd_reloc_status_type
2549 ppc64_elf_branch_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2550 void *data
, asection
*input_section
,
2551 bfd
*output_bfd
, char **error_message
)
2553 if (output_bfd
!= NULL
)
2554 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2555 input_section
, output_bfd
, error_message
);
2557 if (strcmp (symbol
->section
->name
, ".opd") == 0
2558 && (symbol
->section
->owner
->flags
& DYNAMIC
) == 0)
2560 bfd_vma dest
= opd_entry_value (symbol
->section
,
2561 symbol
->value
+ reloc_entry
->addend
,
2563 if (dest
!= (bfd_vma
) -1)
2564 reloc_entry
->addend
= dest
- (symbol
->value
2565 + symbol
->section
->output_section
->vma
2566 + symbol
->section
->output_offset
);
2570 elf_symbol_type
*elfsym
= (elf_symbol_type
*) symbol
;
2572 if (symbol
->section
->owner
!= abfd
2573 && abiversion (symbol
->section
->owner
) >= 2)
2577 for (i
= 0; i
< symbol
->section
->owner
->symcount
; ++i
)
2579 asymbol
*symdef
= symbol
->section
->owner
->outsymbols
[i
];
2581 if (strcmp (symdef
->name
, symbol
->name
) == 0)
2583 elfsym
= (elf_symbol_type
*) symdef
;
2589 += PPC64_LOCAL_ENTRY_OFFSET (elfsym
->internal_elf_sym
.st_other
);
2591 return bfd_reloc_continue
;
2594 static bfd_reloc_status_type
2595 ppc64_elf_brtaken_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2596 void *data
, asection
*input_section
,
2597 bfd
*output_bfd
, char **error_message
)
2600 enum elf_ppc64_reloc_type r_type
;
2601 bfd_size_type octets
;
2602 /* Assume 'at' branch hints. */
2603 bfd_boolean is_isa_v2
= TRUE
;
2605 /* If this is a relocatable link (output_bfd test tells us), just
2606 call the generic function. Any adjustment will be done at final
2608 if (output_bfd
!= NULL
)
2609 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2610 input_section
, output_bfd
, error_message
);
2612 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2613 insn
= bfd_get_32 (abfd
, (bfd_byte
*) data
+ octets
);
2614 insn
&= ~(0x01 << 21);
2615 r_type
= reloc_entry
->howto
->type
;
2616 if (r_type
== R_PPC64_ADDR14_BRTAKEN
2617 || r_type
== R_PPC64_REL14_BRTAKEN
)
2618 insn
|= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
2622 /* Set 'a' bit. This is 0b00010 in BO field for branch
2623 on CR(BI) insns (BO == 001at or 011at), and 0b01000
2624 for branch on CTR insns (BO == 1a00t or 1a01t). */
2625 if ((insn
& (0x14 << 21)) == (0x04 << 21))
2627 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
2637 if (!bfd_is_com_section (symbol
->section
))
2638 target
= symbol
->value
;
2639 target
+= symbol
->section
->output_section
->vma
;
2640 target
+= symbol
->section
->output_offset
;
2641 target
+= reloc_entry
->addend
;
2643 from
= (reloc_entry
->address
2644 + input_section
->output_offset
2645 + input_section
->output_section
->vma
);
2647 /* Invert 'y' bit if not the default. */
2648 if ((bfd_signed_vma
) (target
- from
) < 0)
2651 bfd_put_32 (abfd
, insn
, (bfd_byte
*) data
+ octets
);
2653 return ppc64_elf_branch_reloc (abfd
, reloc_entry
, symbol
, data
,
2654 input_section
, output_bfd
, error_message
);
2657 static bfd_reloc_status_type
2658 ppc64_elf_sectoff_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2659 void *data
, asection
*input_section
,
2660 bfd
*output_bfd
, char **error_message
)
2662 /* If this is a relocatable link (output_bfd test tells us), just
2663 call the generic function. Any adjustment will be done at final
2665 if (output_bfd
!= NULL
)
2666 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2667 input_section
, output_bfd
, error_message
);
2669 /* Subtract the symbol section base address. */
2670 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2671 return bfd_reloc_continue
;
2674 static bfd_reloc_status_type
2675 ppc64_elf_sectoff_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2676 void *data
, asection
*input_section
,
2677 bfd
*output_bfd
, char **error_message
)
2679 /* If this is a relocatable link (output_bfd test tells us), just
2680 call the generic function. Any adjustment will be done at final
2682 if (output_bfd
!= NULL
)
2683 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2684 input_section
, output_bfd
, error_message
);
2686 /* Subtract the symbol section base address. */
2687 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2689 /* Adjust the addend for sign extension of the low 16 bits. */
2690 reloc_entry
->addend
+= 0x8000;
2691 return bfd_reloc_continue
;
2694 static bfd_reloc_status_type
2695 ppc64_elf_toc_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2696 void *data
, asection
*input_section
,
2697 bfd
*output_bfd
, char **error_message
)
2701 /* If this is a relocatable link (output_bfd test tells us), just
2702 call the generic function. Any adjustment will be done at final
2704 if (output_bfd
!= NULL
)
2705 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2706 input_section
, output_bfd
, error_message
);
2708 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2710 TOCstart
= ppc64_elf_set_toc (NULL
, input_section
->output_section
->owner
);
2712 /* Subtract the TOC base address. */
2713 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2714 return bfd_reloc_continue
;
2717 static bfd_reloc_status_type
2718 ppc64_elf_toc_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2719 void *data
, asection
*input_section
,
2720 bfd
*output_bfd
, char **error_message
)
2724 /* If this is a relocatable link (output_bfd test tells us), just
2725 call the generic function. Any adjustment will be done at final
2727 if (output_bfd
!= NULL
)
2728 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2729 input_section
, output_bfd
, error_message
);
2731 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2733 TOCstart
= ppc64_elf_set_toc (NULL
, input_section
->output_section
->owner
);
2735 /* Subtract the TOC base address. */
2736 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2738 /* Adjust the addend for sign extension of the low 16 bits. */
2739 reloc_entry
->addend
+= 0x8000;
2740 return bfd_reloc_continue
;
2743 static bfd_reloc_status_type
2744 ppc64_elf_toc64_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2745 void *data
, asection
*input_section
,
2746 bfd
*output_bfd
, char **error_message
)
2749 bfd_size_type octets
;
2751 /* If this is a relocatable link (output_bfd test tells us), just
2752 call the generic function. Any adjustment will be done at final
2754 if (output_bfd
!= NULL
)
2755 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2756 input_section
, output_bfd
, error_message
);
2758 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2760 TOCstart
= ppc64_elf_set_toc (NULL
, input_section
->output_section
->owner
);
2762 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2763 bfd_put_64 (abfd
, TOCstart
+ TOC_BASE_OFF
, (bfd_byte
*) data
+ octets
);
2764 return bfd_reloc_ok
;
2767 static bfd_reloc_status_type
2768 ppc64_elf_unhandled_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2769 void *data
, asection
*input_section
,
2770 bfd
*output_bfd
, char **error_message
)
2772 /* If this is a relocatable link (output_bfd test tells us), just
2773 call the generic function. Any adjustment will be done at final
2775 if (output_bfd
!= NULL
)
2776 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2777 input_section
, output_bfd
, error_message
);
2779 if (error_message
!= NULL
)
2781 static char buf
[60];
2782 sprintf (buf
, "generic linker can't handle %s",
2783 reloc_entry
->howto
->name
);
2784 *error_message
= buf
;
2786 return bfd_reloc_dangerous
;
2789 /* Track GOT entries needed for a given symbol. We might need more
2790 than one got entry per symbol. */
2793 struct got_entry
*next
;
2795 /* The symbol addend that we'll be placing in the GOT. */
2798 /* Unlike other ELF targets, we use separate GOT entries for the same
2799 symbol referenced from different input files. This is to support
2800 automatic multiple TOC/GOT sections, where the TOC base can vary
2801 from one input file to another. After partitioning into TOC groups
2802 we merge entries within the group.
2804 Point to the BFD owning this GOT entry. */
2807 /* Zero for non-tls entries, or TLS_TLS and one of TLS_GD, TLS_LD,
2808 TLS_TPREL or TLS_DTPREL for tls entries. */
2809 unsigned char tls_type
;
2811 /* Non-zero if got.ent points to real entry. */
2812 unsigned char is_indirect
;
2814 /* Reference count until size_dynamic_sections, GOT offset thereafter. */
2817 bfd_signed_vma refcount
;
2819 struct got_entry
*ent
;
2823 /* The same for PLT. */
2826 struct plt_entry
*next
;
2832 bfd_signed_vma refcount
;
2837 struct ppc64_elf_obj_tdata
2839 struct elf_obj_tdata elf
;
2841 /* Shortcuts to dynamic linker sections. */
2845 /* Used during garbage collection. We attach global symbols defined
2846 on removed .opd entries to this section so that the sym is removed. */
2847 asection
*deleted_section
;
2849 /* TLS local dynamic got entry handling. Support for multiple GOT
2850 sections means we potentially need one of these for each input bfd. */
2851 struct got_entry tlsld_got
;
2854 /* A copy of relocs before they are modified for --emit-relocs. */
2855 Elf_Internal_Rela
*relocs
;
2857 /* Section contents. */
2861 /* Nonzero if this bfd has small toc/got relocs, ie. that expect
2862 the reloc to be in the range -32768 to 32767. */
2863 unsigned int has_small_toc_reloc
: 1;
2865 /* Set if toc/got ha relocs detected not using r2, or lo reloc
2866 instruction not one we handle. */
2867 unsigned int unexpected_toc_insn
: 1;
2870 #define ppc64_elf_tdata(bfd) \
2871 ((struct ppc64_elf_obj_tdata *) (bfd)->tdata.any)
2873 #define ppc64_tlsld_got(bfd) \
2874 (&ppc64_elf_tdata (bfd)->tlsld_got)
2876 #define is_ppc64_elf(bfd) \
2877 (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
2878 && elf_object_id (bfd) == PPC64_ELF_DATA)
2880 /* Override the generic function because we store some extras. */
2883 ppc64_elf_mkobject (bfd
*abfd
)
2885 return bfd_elf_allocate_object (abfd
, sizeof (struct ppc64_elf_obj_tdata
),
2889 /* Fix bad default arch selected for a 64 bit input bfd when the
2890 default is 32 bit. */
2893 ppc64_elf_object_p (bfd
*abfd
)
2895 if (abfd
->arch_info
->the_default
&& abfd
->arch_info
->bits_per_word
== 32)
2897 Elf_Internal_Ehdr
*i_ehdr
= elf_elfheader (abfd
);
2899 if (i_ehdr
->e_ident
[EI_CLASS
] == ELFCLASS64
)
2901 /* Relies on arch after 32 bit default being 64 bit default. */
2902 abfd
->arch_info
= abfd
->arch_info
->next
;
2903 BFD_ASSERT (abfd
->arch_info
->bits_per_word
== 64);
2909 /* Support for core dump NOTE sections. */
2912 ppc64_elf_grok_prstatus (bfd
*abfd
, Elf_Internal_Note
*note
)
2914 size_t offset
, size
;
2916 if (note
->descsz
!= 504)
2920 elf_tdata (abfd
)->core
->signal
= bfd_get_16 (abfd
, note
->descdata
+ 12);
2923 elf_tdata (abfd
)->core
->lwpid
= bfd_get_32 (abfd
, note
->descdata
+ 32);
2929 /* Make a ".reg/999" section. */
2930 return _bfd_elfcore_make_pseudosection (abfd
, ".reg",
2931 size
, note
->descpos
+ offset
);
2935 ppc64_elf_grok_psinfo (bfd
*abfd
, Elf_Internal_Note
*note
)
2937 if (note
->descsz
!= 136)
2940 elf_tdata (abfd
)->core
->pid
2941 = bfd_get_32 (abfd
, note
->descdata
+ 24);
2942 elf_tdata (abfd
)->core
->program
2943 = _bfd_elfcore_strndup (abfd
, note
->descdata
+ 40, 16);
2944 elf_tdata (abfd
)->core
->command
2945 = _bfd_elfcore_strndup (abfd
, note
->descdata
+ 56, 80);
2951 ppc64_elf_write_core_note (bfd
*abfd
, char *buf
, int *bufsiz
, int note_type
,
2964 va_start (ap
, note_type
);
2965 memset (data
, 0, sizeof (data
));
2966 strncpy (data
+ 40, va_arg (ap
, const char *), 16);
2967 strncpy (data
+ 56, va_arg (ap
, const char *), 80);
2969 return elfcore_write_note (abfd
, buf
, bufsiz
,
2970 "CORE", note_type
, data
, sizeof (data
));
2981 va_start (ap
, note_type
);
2982 memset (data
, 0, 112);
2983 pid
= va_arg (ap
, long);
2984 bfd_put_32 (abfd
, pid
, data
+ 32);
2985 cursig
= va_arg (ap
, int);
2986 bfd_put_16 (abfd
, cursig
, data
+ 12);
2987 greg
= va_arg (ap
, const void *);
2988 memcpy (data
+ 112, greg
, 384);
2989 memset (data
+ 496, 0, 8);
2991 return elfcore_write_note (abfd
, buf
, bufsiz
,
2992 "CORE", note_type
, data
, sizeof (data
));
2997 /* Add extra PPC sections. */
2999 static const struct bfd_elf_special_section ppc64_elf_special_sections
[]=
3001 { STRING_COMMA_LEN (".plt"), 0, SHT_NOBITS
, 0 },
3002 { STRING_COMMA_LEN (".sbss"), -2, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
3003 { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
3004 { STRING_COMMA_LEN (".toc"), 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
3005 { STRING_COMMA_LEN (".toc1"), 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
3006 { STRING_COMMA_LEN (".tocbss"), 0, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
3007 { NULL
, 0, 0, 0, 0 }
3010 enum _ppc64_sec_type
{
3016 struct _ppc64_elf_section_data
3018 struct bfd_elf_section_data elf
;
3022 /* An array with one entry for each opd function descriptor,
3023 and some spares since opd entries may be either 16 or 24 bytes. */
3024 #define OPD_NDX(OFF) ((OFF) >> 4)
3025 struct _opd_sec_data
3027 /* Points to the function code section for local opd entries. */
3028 asection
**func_sec
;
3030 /* After editing .opd, adjust references to opd local syms. */
3034 /* An array for toc sections, indexed by offset/8. */
3035 struct _toc_sec_data
3037 /* Specifies the relocation symbol index used at a given toc offset. */
3040 /* And the relocation addend. */
3045 enum _ppc64_sec_type sec_type
:2;
3047 /* Flag set when small branches are detected. Used to
3048 select suitable defaults for the stub group size. */
3049 unsigned int has_14bit_branch
:1;
3052 #define ppc64_elf_section_data(sec) \
3053 ((struct _ppc64_elf_section_data *) elf_section_data (sec))
3056 ppc64_elf_new_section_hook (bfd
*abfd
, asection
*sec
)
3058 if (!sec
->used_by_bfd
)
3060 struct _ppc64_elf_section_data
*sdata
;
3061 bfd_size_type amt
= sizeof (*sdata
);
3063 sdata
= bfd_zalloc (abfd
, amt
);
3066 sec
->used_by_bfd
= sdata
;
3069 return _bfd_elf_new_section_hook (abfd
, sec
);
3072 static struct _opd_sec_data
*
3073 get_opd_info (asection
* sec
)
3076 && ppc64_elf_section_data (sec
) != NULL
3077 && ppc64_elf_section_data (sec
)->sec_type
== sec_opd
)
3078 return &ppc64_elf_section_data (sec
)->u
.opd
;
3082 /* Parameters for the qsort hook. */
3083 static bfd_boolean synthetic_relocatable
;
3085 /* qsort comparison function for ppc64_elf_get_synthetic_symtab. */
3088 compare_symbols (const void *ap
, const void *bp
)
3090 const asymbol
*a
= * (const asymbol
**) ap
;
3091 const asymbol
*b
= * (const asymbol
**) bp
;
3093 /* Section symbols first. */
3094 if ((a
->flags
& BSF_SECTION_SYM
) && !(b
->flags
& BSF_SECTION_SYM
))
3096 if (!(a
->flags
& BSF_SECTION_SYM
) && (b
->flags
& BSF_SECTION_SYM
))
3099 /* then .opd symbols. */
3100 if (strcmp (a
->section
->name
, ".opd") == 0
3101 && strcmp (b
->section
->name
, ".opd") != 0)
3103 if (strcmp (a
->section
->name
, ".opd") != 0
3104 && strcmp (b
->section
->name
, ".opd") == 0)
3107 /* then other code symbols. */
3108 if ((a
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
3109 == (SEC_CODE
| SEC_ALLOC
)
3110 && (b
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
3111 != (SEC_CODE
| SEC_ALLOC
))
3114 if ((a
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
3115 != (SEC_CODE
| SEC_ALLOC
)
3116 && (b
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
3117 == (SEC_CODE
| SEC_ALLOC
))
3120 if (synthetic_relocatable
)
3122 if (a
->section
->id
< b
->section
->id
)
3125 if (a
->section
->id
> b
->section
->id
)
3129 if (a
->value
+ a
->section
->vma
< b
->value
+ b
->section
->vma
)
3132 if (a
->value
+ a
->section
->vma
> b
->value
+ b
->section
->vma
)
3135 /* For syms with the same value, prefer strong dynamic global function
3136 syms over other syms. */
3137 if ((a
->flags
& BSF_GLOBAL
) != 0 && (b
->flags
& BSF_GLOBAL
) == 0)
3140 if ((a
->flags
& BSF_GLOBAL
) == 0 && (b
->flags
& BSF_GLOBAL
) != 0)
3143 if ((a
->flags
& BSF_FUNCTION
) != 0 && (b
->flags
& BSF_FUNCTION
) == 0)
3146 if ((a
->flags
& BSF_FUNCTION
) == 0 && (b
->flags
& BSF_FUNCTION
) != 0)
3149 if ((a
->flags
& BSF_WEAK
) == 0 && (b
->flags
& BSF_WEAK
) != 0)
3152 if ((a
->flags
& BSF_WEAK
) != 0 && (b
->flags
& BSF_WEAK
) == 0)
3155 if ((a
->flags
& BSF_DYNAMIC
) != 0 && (b
->flags
& BSF_DYNAMIC
) == 0)
3158 if ((a
->flags
& BSF_DYNAMIC
) == 0 && (b
->flags
& BSF_DYNAMIC
) != 0)
3164 /* Search SYMS for a symbol of the given VALUE. */
3167 sym_exists_at (asymbol
**syms
, long lo
, long hi
, unsigned int id
, bfd_vma value
)
3171 if (id
== (unsigned) -1)
3175 mid
= (lo
+ hi
) >> 1;
3176 if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
< value
)
3178 else if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
> value
)
3188 mid
= (lo
+ hi
) >> 1;
3189 if (syms
[mid
]->section
->id
< id
)
3191 else if (syms
[mid
]->section
->id
> id
)
3193 else if (syms
[mid
]->value
< value
)
3195 else if (syms
[mid
]->value
> value
)
3205 section_covers_vma (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*section
, void *ptr
)
3207 bfd_vma vma
= *(bfd_vma
*) ptr
;
3208 return ((section
->flags
& SEC_ALLOC
) != 0
3209 && section
->vma
<= vma
3210 && vma
< section
->vma
+ section
->size
);
3213 /* Create synthetic symbols, effectively restoring "dot-symbol" function
3214 entry syms. Also generate @plt symbols for the glink branch table.
3215 Returns count of synthetic symbols in RET or -1 on error. */
3218 ppc64_elf_get_synthetic_symtab (bfd
*abfd
,
3219 long static_count
, asymbol
**static_syms
,
3220 long dyn_count
, asymbol
**dyn_syms
,
3227 long symcount
, codesecsym
, codesecsymend
, secsymend
, opdsymend
;
3228 asection
*opd
= NULL
;
3229 bfd_boolean relocatable
= (abfd
->flags
& (EXEC_P
| DYNAMIC
)) == 0;
3231 int abi
= abiversion (abfd
);
3237 opd
= bfd_get_section_by_name (abfd
, ".opd");
3238 if (opd
== NULL
&& abi
== 1)
3242 symcount
= static_count
;
3244 symcount
+= dyn_count
;
3248 syms
= bfd_malloc ((symcount
+ 1) * sizeof (*syms
));
3252 if (!relocatable
&& static_count
!= 0 && dyn_count
!= 0)
3254 /* Use both symbol tables. */
3255 memcpy (syms
, static_syms
, static_count
* sizeof (*syms
));
3256 memcpy (syms
+ static_count
, dyn_syms
, (dyn_count
+ 1) * sizeof (*syms
));
3258 else if (!relocatable
&& static_count
== 0)
3259 memcpy (syms
, dyn_syms
, (symcount
+ 1) * sizeof (*syms
));
3261 memcpy (syms
, static_syms
, (symcount
+ 1) * sizeof (*syms
));
3263 synthetic_relocatable
= relocatable
;
3264 qsort (syms
, symcount
, sizeof (*syms
), compare_symbols
);
3266 if (!relocatable
&& symcount
> 1)
3269 /* Trim duplicate syms, since we may have merged the normal and
3270 dynamic symbols. Actually, we only care about syms that have
3271 different values, so trim any with the same value. */
3272 for (i
= 1, j
= 1; i
< symcount
; ++i
)
3273 if (syms
[i
- 1]->value
+ syms
[i
- 1]->section
->vma
3274 != syms
[i
]->value
+ syms
[i
]->section
->vma
)
3275 syms
[j
++] = syms
[i
];
3280 if (strcmp (syms
[i
]->section
->name
, ".opd") == 0)
3284 for (; i
< symcount
; ++i
)
3285 if (((syms
[i
]->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
3286 != (SEC_CODE
| SEC_ALLOC
))
3287 || (syms
[i
]->flags
& BSF_SECTION_SYM
) == 0)
3291 for (; i
< symcount
; ++i
)
3292 if ((syms
[i
]->flags
& BSF_SECTION_SYM
) == 0)
3296 for (; i
< symcount
; ++i
)
3297 if (strcmp (syms
[i
]->section
->name
, ".opd") != 0)
3301 for (; i
< symcount
; ++i
)
3302 if ((syms
[i
]->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
3303 != (SEC_CODE
| SEC_ALLOC
))
3311 bfd_boolean (*slurp_relocs
) (bfd
*, asection
*, asymbol
**, bfd_boolean
);
3316 if (opdsymend
== secsymend
)
3319 slurp_relocs
= get_elf_backend_data (abfd
)->s
->slurp_reloc_table
;
3320 relcount
= (opd
->flags
& SEC_RELOC
) ? opd
->reloc_count
: 0;
3324 if (!(*slurp_relocs
) (abfd
, opd
, static_syms
, FALSE
))
3331 for (i
= secsymend
, r
= opd
->relocation
; i
< opdsymend
; ++i
)
3335 while (r
< opd
->relocation
+ relcount
3336 && r
->address
< syms
[i
]->value
+ opd
->vma
)
3339 if (r
== opd
->relocation
+ relcount
)
3342 if (r
->address
!= syms
[i
]->value
+ opd
->vma
)
3345 if (r
->howto
->type
!= R_PPC64_ADDR64
)
3348 sym
= *r
->sym_ptr_ptr
;
3349 if (!sym_exists_at (syms
, opdsymend
, symcount
,
3350 sym
->section
->id
, sym
->value
+ r
->addend
))
3353 size
+= sizeof (asymbol
);
3354 size
+= strlen (syms
[i
]->name
) + 2;
3360 s
= *ret
= bfd_malloc (size
);
3367 names
= (char *) (s
+ count
);
3369 for (i
= secsymend
, r
= opd
->relocation
; i
< opdsymend
; ++i
)
3373 while (r
< opd
->relocation
+ relcount
3374 && r
->address
< syms
[i
]->value
+ opd
->vma
)
3377 if (r
== opd
->relocation
+ relcount
)
3380 if (r
->address
!= syms
[i
]->value
+ opd
->vma
)
3383 if (r
->howto
->type
!= R_PPC64_ADDR64
)
3386 sym
= *r
->sym_ptr_ptr
;
3387 if (!sym_exists_at (syms
, opdsymend
, symcount
,
3388 sym
->section
->id
, sym
->value
+ r
->addend
))
3393 s
->flags
|= BSF_SYNTHETIC
;
3394 s
->section
= sym
->section
;
3395 s
->value
= sym
->value
+ r
->addend
;
3398 len
= strlen (syms
[i
]->name
);
3399 memcpy (names
, syms
[i
]->name
, len
+ 1);
3401 /* Have udata.p point back to the original symbol this
3402 synthetic symbol was derived from. */
3403 s
->udata
.p
= syms
[i
];
3410 bfd_boolean (*slurp_relocs
) (bfd
*, asection
*, asymbol
**, bfd_boolean
);
3411 bfd_byte
*contents
= NULL
;
3414 bfd_vma glink_vma
= 0, resolv_vma
= 0;
3415 asection
*dynamic
, *glink
= NULL
, *relplt
= NULL
;
3418 if (opd
!= NULL
&& !bfd_malloc_and_get_section (abfd
, opd
, &contents
))
3420 free_contents_and_exit_err
:
3422 free_contents_and_exit
:
3429 for (i
= secsymend
; i
< opdsymend
; ++i
)
3433 /* Ignore bogus symbols. */
3434 if (syms
[i
]->value
> opd
->size
- 8)
3437 ent
= bfd_get_64 (abfd
, contents
+ syms
[i
]->value
);
3438 if (!sym_exists_at (syms
, opdsymend
, symcount
, -1, ent
))
3441 size
+= sizeof (asymbol
);
3442 size
+= strlen (syms
[i
]->name
) + 2;
3446 /* Get start of .glink stubs from DT_PPC64_GLINK. */
3448 && (dynamic
= bfd_get_section_by_name (abfd
, ".dynamic")) != NULL
)
3450 bfd_byte
*dynbuf
, *extdyn
, *extdynend
;
3452 void (*swap_dyn_in
) (bfd
*, const void *, Elf_Internal_Dyn
*);
3454 if (!bfd_malloc_and_get_section (abfd
, dynamic
, &dynbuf
))
3455 goto free_contents_and_exit_err
;
3457 extdynsize
= get_elf_backend_data (abfd
)->s
->sizeof_dyn
;
3458 swap_dyn_in
= get_elf_backend_data (abfd
)->s
->swap_dyn_in
;
3461 extdynend
= extdyn
+ dynamic
->size
;
3462 for (; extdyn
< extdynend
; extdyn
+= extdynsize
)
3464 Elf_Internal_Dyn dyn
;
3465 (*swap_dyn_in
) (abfd
, extdyn
, &dyn
);
3467 if (dyn
.d_tag
== DT_NULL
)
3470 if (dyn
.d_tag
== DT_PPC64_GLINK
)
3472 /* The first glink stub starts at offset 32; see
3473 comment in ppc64_elf_finish_dynamic_sections. */
3474 glink_vma
= dyn
.d_un
.d_val
+ GLINK_CALL_STUB_SIZE
- 8 * 4;
3475 /* The .glink section usually does not survive the final
3476 link; search for the section (usually .text) where the
3477 glink stubs now reside. */
3478 glink
= bfd_sections_find_if (abfd
, section_covers_vma
,
3489 /* Determine __glink trampoline by reading the relative branch
3490 from the first glink stub. */
3492 unsigned int off
= 0;
3494 while (bfd_get_section_contents (abfd
, glink
, buf
,
3495 glink_vma
+ off
- glink
->vma
, 4))
3497 unsigned int insn
= bfd_get_32 (abfd
, buf
);
3499 if ((insn
& ~0x3fffffc) == 0)
3501 resolv_vma
= glink_vma
+ off
+ (insn
^ 0x2000000) - 0x2000000;
3510 size
+= sizeof (asymbol
) + sizeof ("__glink_PLTresolve");
3512 relplt
= bfd_get_section_by_name (abfd
, ".rela.plt");
3515 slurp_relocs
= get_elf_backend_data (abfd
)->s
->slurp_reloc_table
;
3516 if (! (*slurp_relocs
) (abfd
, relplt
, dyn_syms
, TRUE
))
3517 goto free_contents_and_exit_err
;
3519 plt_count
= relplt
->size
/ sizeof (Elf64_External_Rela
);
3520 size
+= plt_count
* sizeof (asymbol
);
3522 p
= relplt
->relocation
;
3523 for (i
= 0; i
< plt_count
; i
++, p
++)
3525 size
+= strlen ((*p
->sym_ptr_ptr
)->name
) + sizeof ("@plt");
3527 size
+= sizeof ("+0x") - 1 + 16;
3533 goto free_contents_and_exit
;
3534 s
= *ret
= bfd_malloc (size
);
3536 goto free_contents_and_exit_err
;
3538 names
= (char *) (s
+ count
+ plt_count
+ (resolv_vma
!= 0));
3540 for (i
= secsymend
; i
< opdsymend
; ++i
)
3544 if (syms
[i
]->value
> opd
->size
- 8)
3547 ent
= bfd_get_64 (abfd
, contents
+ syms
[i
]->value
);
3548 if (!sym_exists_at (syms
, opdsymend
, symcount
, -1, ent
))
3552 asection
*sec
= abfd
->sections
;
3559 long mid
= (lo
+ hi
) >> 1;
3560 if (syms
[mid
]->section
->vma
< ent
)
3562 else if (syms
[mid
]->section
->vma
> ent
)
3566 sec
= syms
[mid
]->section
;
3571 if (lo
>= hi
&& lo
> codesecsym
)
3572 sec
= syms
[lo
- 1]->section
;
3574 for (; sec
!= NULL
; sec
= sec
->next
)
3578 /* SEC_LOAD may not be set if SEC is from a separate debug
3580 if ((sec
->flags
& SEC_ALLOC
) == 0)
3582 if ((sec
->flags
& SEC_CODE
) != 0)
3585 s
->flags
|= BSF_SYNTHETIC
;
3586 s
->value
= ent
- s
->section
->vma
;
3589 len
= strlen (syms
[i
]->name
);
3590 memcpy (names
, syms
[i
]->name
, len
+ 1);
3592 /* Have udata.p point back to the original symbol this
3593 synthetic symbol was derived from. */
3594 s
->udata
.p
= syms
[i
];
3600 if (glink
!= NULL
&& relplt
!= NULL
)
3604 /* Add a symbol for the main glink trampoline. */
3605 memset (s
, 0, sizeof *s
);
3607 s
->flags
= BSF_GLOBAL
| BSF_SYNTHETIC
;
3609 s
->value
= resolv_vma
- glink
->vma
;
3611 memcpy (names
, "__glink_PLTresolve", sizeof ("__glink_PLTresolve"));
3612 names
+= sizeof ("__glink_PLTresolve");
3617 /* FIXME: It would be very much nicer to put sym@plt on the
3618 stub rather than on the glink branch table entry. The
3619 objdump disassembler would then use a sensible symbol
3620 name on plt calls. The difficulty in doing so is
3621 a) finding the stubs, and,
3622 b) matching stubs against plt entries, and,
3623 c) there can be multiple stubs for a given plt entry.
3625 Solving (a) could be done by code scanning, but older
3626 ppc64 binaries used different stubs to current code.
3627 (b) is the tricky one since you need to known the toc
3628 pointer for at least one function that uses a pic stub to
3629 be able to calculate the plt address referenced.
3630 (c) means gdb would need to set multiple breakpoints (or
3631 find the glink branch itself) when setting breakpoints
3632 for pending shared library loads. */
3633 p
= relplt
->relocation
;
3634 for (i
= 0; i
< plt_count
; i
++, p
++)
3638 *s
= **p
->sym_ptr_ptr
;
3639 /* Undefined syms won't have BSF_LOCAL or BSF_GLOBAL set. Since
3640 we are defining a symbol, ensure one of them is set. */
3641 if ((s
->flags
& BSF_LOCAL
) == 0)
3642 s
->flags
|= BSF_GLOBAL
;
3643 s
->flags
|= BSF_SYNTHETIC
;
3645 s
->value
= glink_vma
- glink
->vma
;
3648 len
= strlen ((*p
->sym_ptr_ptr
)->name
);
3649 memcpy (names
, (*p
->sym_ptr_ptr
)->name
, len
);
3653 memcpy (names
, "+0x", sizeof ("+0x") - 1);
3654 names
+= sizeof ("+0x") - 1;
3655 bfd_sprintf_vma (abfd
, names
, p
->addend
);
3656 names
+= strlen (names
);
3658 memcpy (names
, "@plt", sizeof ("@plt"));
3659 names
+= sizeof ("@plt");
3679 /* The following functions are specific to the ELF linker, while
3680 functions above are used generally. Those named ppc64_elf_* are
3681 called by the main ELF linker code. They appear in this file more
3682 or less in the order in which they are called. eg.
3683 ppc64_elf_check_relocs is called early in the link process,
3684 ppc64_elf_finish_dynamic_sections is one of the last functions
3687 PowerPC64-ELF uses a similar scheme to PowerPC64-XCOFF in that
3688 functions have both a function code symbol and a function descriptor
3689 symbol. A call to foo in a relocatable object file looks like:
3696 The function definition in another object file might be:
3700 . .quad .TOC.@tocbase
3706 When the linker resolves the call during a static link, the branch
3707 unsurprisingly just goes to .foo and the .opd information is unused.
3708 If the function definition is in a shared library, things are a little
3709 different: The call goes via a plt call stub, the opd information gets
3710 copied to the plt, and the linker patches the nop.
3718 . std 2,40(1) # in practice, the call stub
3719 . addis 11,2,Lfoo@toc@ha # is slightly optimized, but
3720 . addi 11,11,Lfoo@toc@l # this is the general idea
3728 . Lfoo: reloc (R_PPC64_JMP_SLOT, foo)
3730 The "reloc ()" notation is supposed to indicate that the linker emits
3731 an R_PPC64_JMP_SLOT reloc against foo. The dynamic linker does the opd
3734 What are the difficulties here? Well, firstly, the relocations
3735 examined by the linker in check_relocs are against the function code
3736 sym .foo, while the dynamic relocation in the plt is emitted against
3737 the function descriptor symbol, foo. Somewhere along the line, we need
3738 to carefully copy dynamic link information from one symbol to the other.
3739 Secondly, the generic part of the elf linker will make .foo a dynamic
3740 symbol as is normal for most other backends. We need foo dynamic
3741 instead, at least for an application final link. However, when
3742 creating a shared library containing foo, we need to have both symbols
3743 dynamic so that references to .foo are satisfied during the early
3744 stages of linking. Otherwise the linker might decide to pull in a
3745 definition from some other object, eg. a static library.
3747 Update: As of August 2004, we support a new convention. Function
3748 calls may use the function descriptor symbol, ie. "bl foo". This
3749 behaves exactly as "bl .foo". */
3751 /* Of those relocs that might be copied as dynamic relocs, this function
3752 selects those that must be copied when linking a shared library,
3753 even when the symbol is local. */
3756 must_be_dyn_reloc (struct bfd_link_info
*info
,
3757 enum elf_ppc64_reloc_type r_type
)
3769 case R_PPC64_TPREL16
:
3770 case R_PPC64_TPREL16_LO
:
3771 case R_PPC64_TPREL16_HI
:
3772 case R_PPC64_TPREL16_HA
:
3773 case R_PPC64_TPREL16_DS
:
3774 case R_PPC64_TPREL16_LO_DS
:
3775 case R_PPC64_TPREL16_HIGH
:
3776 case R_PPC64_TPREL16_HIGHA
:
3777 case R_PPC64_TPREL16_HIGHER
:
3778 case R_PPC64_TPREL16_HIGHERA
:
3779 case R_PPC64_TPREL16_HIGHEST
:
3780 case R_PPC64_TPREL16_HIGHESTA
:
3781 case R_PPC64_TPREL64
:
3782 return !bfd_link_executable (info
);
3786 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
3787 copying dynamic variables from a shared lib into an app's dynbss
3788 section, and instead use a dynamic relocation to point into the
3789 shared lib. With code that gcc generates, it's vital that this be
3790 enabled; In the PowerPC64 ABI, the address of a function is actually
3791 the address of a function descriptor, which resides in the .opd
3792 section. gcc uses the descriptor directly rather than going via the
3793 GOT as some other ABI's do, which means that initialized function
3794 pointers must reference the descriptor. Thus, a function pointer
3795 initialized to the address of a function in a shared library will
3796 either require a copy reloc, or a dynamic reloc. Using a copy reloc
3797 redefines the function descriptor symbol to point to the copy. This
3798 presents a problem as a plt entry for that function is also
3799 initialized from the function descriptor symbol and the copy reloc
3800 may not be initialized first. */
3801 #define ELIMINATE_COPY_RELOCS 1
3803 /* Section name for stubs is the associated section name plus this
3805 #define STUB_SUFFIX ".stub"
3808 ppc_stub_long_branch:
3809 Used when a 14 bit branch (or even a 24 bit branch) can't reach its
3810 destination, but a 24 bit branch in a stub section will reach.
3813 ppc_stub_plt_branch:
3814 Similar to the above, but a 24 bit branch in the stub section won't
3815 reach its destination.
3816 . addis %r11,%r2,xxx@toc@ha
3817 . ld %r12,xxx@toc@l(%r11)
3822 Used to call a function in a shared library. If it so happens that
3823 the plt entry referenced crosses a 64k boundary, then an extra
3824 "addi %r11,%r11,xxx@toc@l" will be inserted before the "mtctr".
3826 . addis %r11,%r2,xxx@toc@ha
3827 . ld %r12,xxx+0@toc@l(%r11)
3829 . ld %r2,xxx+8@toc@l(%r11)
3830 . ld %r11,xxx+16@toc@l(%r11)
3833 ppc_stub_long_branch and ppc_stub_plt_branch may also have additional
3834 code to adjust the value and save r2 to support multiple toc sections.
3835 A ppc_stub_long_branch with an r2 offset looks like:
3837 . addis %r2,%r2,off@ha
3838 . addi %r2,%r2,off@l
3841 A ppc_stub_plt_branch with an r2 offset looks like:
3843 . addis %r11,%r2,xxx@toc@ha
3844 . ld %r12,xxx@toc@l(%r11)
3845 . addis %r2,%r2,off@ha
3846 . addi %r2,%r2,off@l
3850 In cases where the "addis" instruction would add zero, the "addis" is
3851 omitted and following instructions modified slightly in some cases.
3854 enum ppc_stub_type
{
3856 ppc_stub_long_branch
,
3857 ppc_stub_long_branch_r2off
,
3858 ppc_stub_plt_branch
,
3859 ppc_stub_plt_branch_r2off
,
3861 ppc_stub_plt_call_r2save
,
3862 ppc_stub_global_entry
,
3866 /* Information on stub grouping. */
3869 /* The stub section. */
3871 /* This is the section to which stubs in the group will be attached. */
3874 struct map_stub
*next
;
3875 /* Whether to emit a copy of register save/restore functions in this
3880 struct ppc_stub_hash_entry
{
3882 /* Base hash table entry structure. */
3883 struct bfd_hash_entry root
;
3885 enum ppc_stub_type stub_type
;
3887 /* Group information. */
3888 struct map_stub
*group
;
3890 /* Offset within stub_sec of the beginning of this stub. */
3891 bfd_vma stub_offset
;
3893 /* Given the symbol's value and its section we can determine its final
3894 value when building the stubs (so the stub knows where to jump. */
3895 bfd_vma target_value
;
3896 asection
*target_section
;
3898 /* The symbol table entry, if any, that this was derived from. */
3899 struct ppc_link_hash_entry
*h
;
3900 struct plt_entry
*plt_ent
;
3902 /* Symbol st_other. */
3903 unsigned char other
;
3906 struct ppc_branch_hash_entry
{
3908 /* Base hash table entry structure. */
3909 struct bfd_hash_entry root
;
3911 /* Offset within branch lookup table. */
3912 unsigned int offset
;
3914 /* Generation marker. */
3918 /* Used to track dynamic relocations for local symbols. */
3919 struct ppc_dyn_relocs
3921 struct ppc_dyn_relocs
*next
;
3923 /* The input section of the reloc. */
3926 /* Total number of relocs copied for the input section. */
3927 unsigned int count
: 31;
3929 /* Whether this entry is for STT_GNU_IFUNC symbols. */
3930 unsigned int ifunc
: 1;
3933 struct ppc_link_hash_entry
3935 struct elf_link_hash_entry elf
;
3938 /* A pointer to the most recently used stub hash entry against this
3940 struct ppc_stub_hash_entry
*stub_cache
;
3942 /* A pointer to the next symbol starting with a '.' */
3943 struct ppc_link_hash_entry
*next_dot_sym
;
3946 /* Track dynamic relocs copied for this symbol. */
3947 struct elf_dyn_relocs
*dyn_relocs
;
3949 /* Link between function code and descriptor symbols. */
3950 struct ppc_link_hash_entry
*oh
;
3952 /* Flag function code and descriptor symbols. */
3953 unsigned int is_func
:1;
3954 unsigned int is_func_descriptor
:1;
3955 unsigned int fake
:1;
3957 /* Whether global opd/toc sym has been adjusted or not.
3958 After ppc64_elf_edit_opd/ppc64_elf_edit_toc has run, this flag
3959 should be set for all globals defined in any opd/toc section. */
3960 unsigned int adjust_done
:1;
3962 /* Set if we twiddled this symbol to weak at some stage. */
3963 unsigned int was_undefined
:1;
3965 /* Set if this is an out-of-line register save/restore function,
3966 with non-standard calling convention. */
3967 unsigned int save_res
:1;
3969 /* Contexts in which symbol is used in the GOT (or TOC).
3970 TLS_GD .. TLS_EXPLICIT bits are or'd into the mask as the
3971 corresponding relocs are encountered during check_relocs.
3972 tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
3973 indicate the corresponding GOT entry type is not needed.
3974 tls_optimize may also set TLS_TPRELGD when a GD reloc turns into
3975 a TPREL one. We use a separate flag rather than setting TPREL
3976 just for convenience in distinguishing the two cases. */
3977 #define TLS_GD 1 /* GD reloc. */
3978 #define TLS_LD 2 /* LD reloc. */
3979 #define TLS_TPREL 4 /* TPREL reloc, => IE. */
3980 #define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
3981 #define TLS_TLS 16 /* Any TLS reloc. */
3982 #define TLS_EXPLICIT 32 /* Marks TOC section TLS relocs. */
3983 #define TLS_TPRELGD 64 /* TPREL reloc resulting from GD->IE. */
3984 #define PLT_IFUNC 128 /* STT_GNU_IFUNC. */
3985 unsigned char tls_mask
;
3988 /* ppc64 ELF linker hash table. */
3990 struct ppc_link_hash_table
3992 struct elf_link_hash_table elf
;
3994 /* The stub hash table. */
3995 struct bfd_hash_table stub_hash_table
;
3997 /* Another hash table for plt_branch stubs. */
3998 struct bfd_hash_table branch_hash_table
;
4000 /* Hash table for function prologue tocsave. */
4001 htab_t tocsave_htab
;
4003 /* Various options and other info passed from the linker. */
4004 struct ppc64_elf_params
*params
;
4006 /* The size of sec_info below. */
4007 unsigned int sec_info_arr_size
;
4009 /* Per-section array of extra section info. Done this way rather
4010 than as part of ppc64_elf_section_data so we have the info for
4011 non-ppc64 sections. */
4014 /* Along with elf_gp, specifies the TOC pointer used by this section. */
4019 /* The section group that this section belongs to. */
4020 struct map_stub
*group
;
4021 /* A temp section list pointer. */
4026 /* Linked list of groups. */
4027 struct map_stub
*group
;
4029 /* Temp used when calculating TOC pointers. */
4032 asection
*toc_first_sec
;
4034 /* Used when adding symbols. */
4035 struct ppc_link_hash_entry
*dot_syms
;
4037 /* Shortcuts to get to dynamic linker sections. */
4044 asection
*glink_eh_frame
;
4046 /* Shortcut to .__tls_get_addr and __tls_get_addr. */
4047 struct ppc_link_hash_entry
*tls_get_addr
;
4048 struct ppc_link_hash_entry
*tls_get_addr_fd
;
4050 /* The size of reliplt used by got entry relocs. */
4051 bfd_size_type got_reli_size
;
4054 unsigned long stub_count
[ppc_stub_global_entry
];
4056 /* Number of stubs against global syms. */
4057 unsigned long stub_globals
;
4059 /* Set if we're linking code with function descriptors. */
4060 unsigned int opd_abi
:1;
4062 /* Support for multiple toc sections. */
4063 unsigned int do_multi_toc
:1;
4064 unsigned int multi_toc_needed
:1;
4065 unsigned int second_toc_pass
:1;
4066 unsigned int do_toc_opt
:1;
4069 unsigned int stub_error
:1;
4071 /* Temp used by ppc64_elf_before_check_relocs. */
4072 unsigned int twiddled_syms
:1;
4074 /* Incremented every time we size stubs. */
4075 unsigned int stub_iteration
;
4077 /* Small local sym cache. */
4078 struct sym_cache sym_cache
;
4081 /* Rename some of the generic section flags to better document how they
4084 /* Nonzero if this section has TLS related relocations. */
4085 #define has_tls_reloc sec_flg0
4087 /* Nonzero if this section has a call to __tls_get_addr. */
4088 #define has_tls_get_addr_call sec_flg1
4090 /* Nonzero if this section has any toc or got relocs. */
4091 #define has_toc_reloc sec_flg2
4093 /* Nonzero if this section has a call to another section that uses
4095 #define makes_toc_func_call sec_flg3
4097 /* Recursion protection when determining above flag. */
4098 #define call_check_in_progress sec_flg4
4099 #define call_check_done sec_flg5
4101 /* Get the ppc64 ELF linker hash table from a link_info structure. */
4103 #define ppc_hash_table(p) \
4104 (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
4105 == PPC64_ELF_DATA ? ((struct ppc_link_hash_table *) ((p)->hash)) : NULL)
4107 #define ppc_stub_hash_lookup(table, string, create, copy) \
4108 ((struct ppc_stub_hash_entry *) \
4109 bfd_hash_lookup ((table), (string), (create), (copy)))
4111 #define ppc_branch_hash_lookup(table, string, create, copy) \
4112 ((struct ppc_branch_hash_entry *) \
4113 bfd_hash_lookup ((table), (string), (create), (copy)))
4115 /* Create an entry in the stub hash table. */
4117 static struct bfd_hash_entry
*
4118 stub_hash_newfunc (struct bfd_hash_entry
*entry
,
4119 struct bfd_hash_table
*table
,
4122 /* Allocate the structure if it has not already been allocated by a
4126 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_stub_hash_entry
));
4131 /* Call the allocation method of the superclass. */
4132 entry
= bfd_hash_newfunc (entry
, table
, string
);
4135 struct ppc_stub_hash_entry
*eh
;
4137 /* Initialize the local fields. */
4138 eh
= (struct ppc_stub_hash_entry
*) entry
;
4139 eh
->stub_type
= ppc_stub_none
;
4141 eh
->stub_offset
= 0;
4142 eh
->target_value
= 0;
4143 eh
->target_section
= NULL
;
4152 /* Create an entry in the branch hash table. */
4154 static struct bfd_hash_entry
*
4155 branch_hash_newfunc (struct bfd_hash_entry
*entry
,
4156 struct bfd_hash_table
*table
,
4159 /* Allocate the structure if it has not already been allocated by a
4163 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_branch_hash_entry
));
4168 /* Call the allocation method of the superclass. */
4169 entry
= bfd_hash_newfunc (entry
, table
, string
);
4172 struct ppc_branch_hash_entry
*eh
;
4174 /* Initialize the local fields. */
4175 eh
= (struct ppc_branch_hash_entry
*) entry
;
4183 /* Create an entry in a ppc64 ELF linker hash table. */
4185 static struct bfd_hash_entry
*
4186 link_hash_newfunc (struct bfd_hash_entry
*entry
,
4187 struct bfd_hash_table
*table
,
4190 /* Allocate the structure if it has not already been allocated by a
4194 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_link_hash_entry
));
4199 /* Call the allocation method of the superclass. */
4200 entry
= _bfd_elf_link_hash_newfunc (entry
, table
, string
);
4203 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) entry
;
4205 memset (&eh
->u
.stub_cache
, 0,
4206 (sizeof (struct ppc_link_hash_entry
)
4207 - offsetof (struct ppc_link_hash_entry
, u
.stub_cache
)));
4209 /* When making function calls, old ABI code references function entry
4210 points (dot symbols), while new ABI code references the function
4211 descriptor symbol. We need to make any combination of reference and
4212 definition work together, without breaking archive linking.
4214 For a defined function "foo" and an undefined call to "bar":
4215 An old object defines "foo" and ".foo", references ".bar" (possibly
4217 A new object defines "foo" and references "bar".
4219 A new object thus has no problem with its undefined symbols being
4220 satisfied by definitions in an old object. On the other hand, the
4221 old object won't have ".bar" satisfied by a new object.
4223 Keep a list of newly added dot-symbols. */
4225 if (string
[0] == '.')
4227 struct ppc_link_hash_table
*htab
;
4229 htab
= (struct ppc_link_hash_table
*) table
;
4230 eh
->u
.next_dot_sym
= htab
->dot_syms
;
4231 htab
->dot_syms
= eh
;
4238 struct tocsave_entry
{
4244 tocsave_htab_hash (const void *p
)
4246 const struct tocsave_entry
*e
= (const struct tocsave_entry
*) p
;
4247 return ((bfd_vma
)(intptr_t) e
->sec
^ e
->offset
) >> 3;
4251 tocsave_htab_eq (const void *p1
, const void *p2
)
4253 const struct tocsave_entry
*e1
= (const struct tocsave_entry
*) p1
;
4254 const struct tocsave_entry
*e2
= (const struct tocsave_entry
*) p2
;
4255 return e1
->sec
== e2
->sec
&& e1
->offset
== e2
->offset
;
4258 /* Destroy a ppc64 ELF linker hash table. */
4261 ppc64_elf_link_hash_table_free (bfd
*obfd
)
4263 struct ppc_link_hash_table
*htab
;
4265 htab
= (struct ppc_link_hash_table
*) obfd
->link
.hash
;
4266 if (htab
->tocsave_htab
)
4267 htab_delete (htab
->tocsave_htab
);
4268 bfd_hash_table_free (&htab
->branch_hash_table
);
4269 bfd_hash_table_free (&htab
->stub_hash_table
);
4270 _bfd_elf_link_hash_table_free (obfd
);
4273 /* Create a ppc64 ELF linker hash table. */
4275 static struct bfd_link_hash_table
*
4276 ppc64_elf_link_hash_table_create (bfd
*abfd
)
4278 struct ppc_link_hash_table
*htab
;
4279 bfd_size_type amt
= sizeof (struct ppc_link_hash_table
);
4281 htab
= bfd_zmalloc (amt
);
4285 if (!_bfd_elf_link_hash_table_init (&htab
->elf
, abfd
, link_hash_newfunc
,
4286 sizeof (struct ppc_link_hash_entry
),
4293 /* Init the stub hash table too. */
4294 if (!bfd_hash_table_init (&htab
->stub_hash_table
, stub_hash_newfunc
,
4295 sizeof (struct ppc_stub_hash_entry
)))
4297 _bfd_elf_link_hash_table_free (abfd
);
4301 /* And the branch hash table. */
4302 if (!bfd_hash_table_init (&htab
->branch_hash_table
, branch_hash_newfunc
,
4303 sizeof (struct ppc_branch_hash_entry
)))
4305 bfd_hash_table_free (&htab
->stub_hash_table
);
4306 _bfd_elf_link_hash_table_free (abfd
);
4310 htab
->tocsave_htab
= htab_try_create (1024,
4314 if (htab
->tocsave_htab
== NULL
)
4316 ppc64_elf_link_hash_table_free (abfd
);
4319 htab
->elf
.root
.hash_table_free
= ppc64_elf_link_hash_table_free
;
4321 /* Initializing two fields of the union is just cosmetic. We really
4322 only care about glist, but when compiled on a 32-bit host the
4323 bfd_vma fields are larger. Setting the bfd_vma to zero makes
4324 debugger inspection of these fields look nicer. */
4325 htab
->elf
.init_got_refcount
.refcount
= 0;
4326 htab
->elf
.init_got_refcount
.glist
= NULL
;
4327 htab
->elf
.init_plt_refcount
.refcount
= 0;
4328 htab
->elf
.init_plt_refcount
.glist
= NULL
;
4329 htab
->elf
.init_got_offset
.offset
= 0;
4330 htab
->elf
.init_got_offset
.glist
= NULL
;
4331 htab
->elf
.init_plt_offset
.offset
= 0;
4332 htab
->elf
.init_plt_offset
.glist
= NULL
;
4334 return &htab
->elf
.root
;
4337 /* Create sections for linker generated code. */
4340 create_linkage_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
4342 struct ppc_link_hash_table
*htab
;
4345 htab
= ppc_hash_table (info
);
4347 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_CODE
| SEC_READONLY
4348 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
4349 if (htab
->params
->save_restore_funcs
)
4351 /* Create .sfpr for code to save and restore fp regs. */
4352 htab
->sfpr
= bfd_make_section_anyway_with_flags (dynobj
, ".sfpr",
4354 if (htab
->sfpr
== NULL
4355 || ! bfd_set_section_alignment (dynobj
, htab
->sfpr
, 2))
4359 if (bfd_link_relocatable (info
))
4362 /* Create .glink for lazy dynamic linking support. */
4363 htab
->glink
= bfd_make_section_anyway_with_flags (dynobj
, ".glink",
4365 if (htab
->glink
== NULL
4366 || ! bfd_set_section_alignment (dynobj
, htab
->glink
, 3))
4369 if (!info
->no_ld_generated_unwind_info
)
4371 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
| SEC_HAS_CONTENTS
4372 | SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
4373 htab
->glink_eh_frame
= bfd_make_section_anyway_with_flags (dynobj
,
4376 if (htab
->glink_eh_frame
== NULL
4377 || !bfd_set_section_alignment (dynobj
, htab
->glink_eh_frame
, 2))
4381 flags
= SEC_ALLOC
| SEC_LINKER_CREATED
;
4382 htab
->elf
.iplt
= bfd_make_section_anyway_with_flags (dynobj
, ".iplt", flags
);
4383 if (htab
->elf
.iplt
== NULL
4384 || ! bfd_set_section_alignment (dynobj
, htab
->elf
.iplt
, 3))
4387 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
4388 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
4390 = bfd_make_section_anyway_with_flags (dynobj
, ".rela.iplt", flags
);
4391 if (htab
->elf
.irelplt
== NULL
4392 || ! bfd_set_section_alignment (dynobj
, htab
->elf
.irelplt
, 3))
4395 /* Create branch lookup table for plt_branch stubs. */
4396 flags
= (SEC_ALLOC
| SEC_LOAD
4397 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
4398 htab
->brlt
= bfd_make_section_anyway_with_flags (dynobj
, ".branch_lt",
4400 if (htab
->brlt
== NULL
4401 || ! bfd_set_section_alignment (dynobj
, htab
->brlt
, 3))
4404 if (!bfd_link_pic (info
))
4407 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
4408 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
4409 htab
->relbrlt
= bfd_make_section_anyway_with_flags (dynobj
,
4412 if (htab
->relbrlt
== NULL
4413 || ! bfd_set_section_alignment (dynobj
, htab
->relbrlt
, 3))
4419 /* Satisfy the ELF linker by filling in some fields in our fake bfd. */
4422 ppc64_elf_init_stub_bfd (struct bfd_link_info
*info
,
4423 struct ppc64_elf_params
*params
)
4425 struct ppc_link_hash_table
*htab
;
4427 elf_elfheader (params
->stub_bfd
)->e_ident
[EI_CLASS
] = ELFCLASS64
;
4429 /* Always hook our dynamic sections into the first bfd, which is the
4430 linker created stub bfd. This ensures that the GOT header is at
4431 the start of the output TOC section. */
4432 htab
= ppc_hash_table (info
);
4435 htab
->elf
.dynobj
= params
->stub_bfd
;
4436 htab
->params
= params
;
4438 return create_linkage_sections (htab
->elf
.dynobj
, info
);
4441 /* Build a name for an entry in the stub hash table. */
4444 ppc_stub_name (const asection
*input_section
,
4445 const asection
*sym_sec
,
4446 const struct ppc_link_hash_entry
*h
,
4447 const Elf_Internal_Rela
*rel
)
4452 /* rel->r_addend is actually 64 bit, but who uses more than +/- 2^31
4453 offsets from a sym as a branch target? In fact, we could
4454 probably assume the addend is always zero. */
4455 BFD_ASSERT (((int) rel
->r_addend
& 0xffffffff) == rel
->r_addend
);
4459 len
= 8 + 1 + strlen (h
->elf
.root
.root
.string
) + 1 + 8 + 1;
4460 stub_name
= bfd_malloc (len
);
4461 if (stub_name
== NULL
)
4464 len
= sprintf (stub_name
, "%08x.%s+%x",
4465 input_section
->id
& 0xffffffff,
4466 h
->elf
.root
.root
.string
,
4467 (int) rel
->r_addend
& 0xffffffff);
4471 len
= 8 + 1 + 8 + 1 + 8 + 1 + 8 + 1;
4472 stub_name
= bfd_malloc (len
);
4473 if (stub_name
== NULL
)
4476 len
= sprintf (stub_name
, "%08x.%x:%x+%x",
4477 input_section
->id
& 0xffffffff,
4478 sym_sec
->id
& 0xffffffff,
4479 (int) ELF64_R_SYM (rel
->r_info
) & 0xffffffff,
4480 (int) rel
->r_addend
& 0xffffffff);
4482 if (len
> 2 && stub_name
[len
- 2] == '+' && stub_name
[len
- 1] == '0')
4483 stub_name
[len
- 2] = 0;
4487 /* Look up an entry in the stub hash. Stub entries are cached because
4488 creating the stub name takes a bit of time. */
4490 static struct ppc_stub_hash_entry
*
4491 ppc_get_stub_entry (const asection
*input_section
,
4492 const asection
*sym_sec
,
4493 struct ppc_link_hash_entry
*h
,
4494 const Elf_Internal_Rela
*rel
,
4495 struct ppc_link_hash_table
*htab
)
4497 struct ppc_stub_hash_entry
*stub_entry
;
4498 struct map_stub
*group
;
4500 /* If this input section is part of a group of sections sharing one
4501 stub section, then use the id of the first section in the group.
4502 Stub names need to include a section id, as there may well be
4503 more than one stub used to reach say, printf, and we need to
4504 distinguish between them. */
4505 group
= htab
->sec_info
[input_section
->id
].u
.group
;
4507 if (h
!= NULL
&& h
->u
.stub_cache
!= NULL
4508 && h
->u
.stub_cache
->h
== h
4509 && h
->u
.stub_cache
->group
== group
)
4511 stub_entry
= h
->u
.stub_cache
;
4517 stub_name
= ppc_stub_name (group
->link_sec
, sym_sec
, h
, rel
);
4518 if (stub_name
== NULL
)
4521 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
4522 stub_name
, FALSE
, FALSE
);
4524 h
->u
.stub_cache
= stub_entry
;
4532 /* Add a new stub entry to the stub hash. Not all fields of the new
4533 stub entry are initialised. */
4535 static struct ppc_stub_hash_entry
*
4536 ppc_add_stub (const char *stub_name
,
4538 struct bfd_link_info
*info
)
4540 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
4541 struct map_stub
*group
;
4544 struct ppc_stub_hash_entry
*stub_entry
;
4546 group
= htab
->sec_info
[section
->id
].u
.group
;
4547 link_sec
= group
->link_sec
;
4548 stub_sec
= group
->stub_sec
;
4549 if (stub_sec
== NULL
)
4555 namelen
= strlen (link_sec
->name
);
4556 len
= namelen
+ sizeof (STUB_SUFFIX
);
4557 s_name
= bfd_alloc (htab
->params
->stub_bfd
, len
);
4561 memcpy (s_name
, link_sec
->name
, namelen
);
4562 memcpy (s_name
+ namelen
, STUB_SUFFIX
, sizeof (STUB_SUFFIX
));
4563 stub_sec
= (*htab
->params
->add_stub_section
) (s_name
, link_sec
);
4564 if (stub_sec
== NULL
)
4566 group
->stub_sec
= stub_sec
;
4569 /* Enter this entry into the linker stub hash table. */
4570 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
, stub_name
,
4572 if (stub_entry
== NULL
)
4574 info
->callbacks
->einfo (_("%P: %B: cannot create stub entry %s\n"),
4575 section
->owner
, stub_name
);
4579 stub_entry
->group
= group
;
4580 stub_entry
->stub_offset
= 0;
4584 /* Create .got and .rela.got sections in ABFD, and .got in dynobj if
4585 not already done. */
4588 create_got_section (bfd
*abfd
, struct bfd_link_info
*info
)
4590 asection
*got
, *relgot
;
4592 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
4594 if (!is_ppc64_elf (abfd
))
4600 && !_bfd_elf_create_got_section (htab
->elf
.dynobj
, info
))
4603 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
4604 | SEC_LINKER_CREATED
);
4606 got
= bfd_make_section_anyway_with_flags (abfd
, ".got", flags
);
4608 || !bfd_set_section_alignment (abfd
, got
, 3))
4611 relgot
= bfd_make_section_anyway_with_flags (abfd
, ".rela.got",
4612 flags
| SEC_READONLY
);
4614 || ! bfd_set_section_alignment (abfd
, relgot
, 3))
4617 ppc64_elf_tdata (abfd
)->got
= got
;
4618 ppc64_elf_tdata (abfd
)->relgot
= relgot
;
4622 /* Create the dynamic sections, and set up shortcuts. */
4625 ppc64_elf_create_dynamic_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
4627 struct ppc_link_hash_table
*htab
;
4629 if (!_bfd_elf_create_dynamic_sections (dynobj
, info
))
4632 htab
= ppc_hash_table (info
);
4636 htab
->dynbss
= bfd_get_linker_section (dynobj
, ".dynbss");
4637 if (!bfd_link_pic (info
))
4638 htab
->relbss
= bfd_get_linker_section (dynobj
, ".rela.bss");
4640 if (!htab
->elf
.sgot
|| !htab
->elf
.splt
|| !htab
->elf
.srelplt
|| !htab
->dynbss
4641 || (!bfd_link_pic (info
) && !htab
->relbss
))
4647 /* Follow indirect and warning symbol links. */
4649 static inline struct bfd_link_hash_entry
*
4650 follow_link (struct bfd_link_hash_entry
*h
)
4652 while (h
->type
== bfd_link_hash_indirect
4653 || h
->type
== bfd_link_hash_warning
)
4658 static inline struct elf_link_hash_entry
*
4659 elf_follow_link (struct elf_link_hash_entry
*h
)
4661 return (struct elf_link_hash_entry
*) follow_link (&h
->root
);
4664 static inline struct ppc_link_hash_entry
*
4665 ppc_follow_link (struct ppc_link_hash_entry
*h
)
4667 return (struct ppc_link_hash_entry
*) follow_link (&h
->elf
.root
);
4670 /* Merge PLT info on FROM with that on TO. */
4673 move_plt_plist (struct ppc_link_hash_entry
*from
,
4674 struct ppc_link_hash_entry
*to
)
4676 if (from
->elf
.plt
.plist
!= NULL
)
4678 if (to
->elf
.plt
.plist
!= NULL
)
4680 struct plt_entry
**entp
;
4681 struct plt_entry
*ent
;
4683 for (entp
= &from
->elf
.plt
.plist
; (ent
= *entp
) != NULL
; )
4685 struct plt_entry
*dent
;
4687 for (dent
= to
->elf
.plt
.plist
; dent
!= NULL
; dent
= dent
->next
)
4688 if (dent
->addend
== ent
->addend
)
4690 dent
->plt
.refcount
+= ent
->plt
.refcount
;
4697 *entp
= to
->elf
.plt
.plist
;
4700 to
->elf
.plt
.plist
= from
->elf
.plt
.plist
;
4701 from
->elf
.plt
.plist
= NULL
;
4705 /* Copy the extra info we tack onto an elf_link_hash_entry. */
4708 ppc64_elf_copy_indirect_symbol (struct bfd_link_info
*info
,
4709 struct elf_link_hash_entry
*dir
,
4710 struct elf_link_hash_entry
*ind
)
4712 struct ppc_link_hash_entry
*edir
, *eind
;
4714 edir
= (struct ppc_link_hash_entry
*) dir
;
4715 eind
= (struct ppc_link_hash_entry
*) ind
;
4717 edir
->is_func
|= eind
->is_func
;
4718 edir
->is_func_descriptor
|= eind
->is_func_descriptor
;
4719 edir
->tls_mask
|= eind
->tls_mask
;
4720 if (eind
->oh
!= NULL
)
4721 edir
->oh
= ppc_follow_link (eind
->oh
);
4723 /* If called to transfer flags for a weakdef during processing
4724 of elf_adjust_dynamic_symbol, don't copy NON_GOT_REF.
4725 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
4726 if (!(ELIMINATE_COPY_RELOCS
4727 && eind
->elf
.root
.type
!= bfd_link_hash_indirect
4728 && edir
->elf
.dynamic_adjusted
))
4729 edir
->elf
.non_got_ref
|= eind
->elf
.non_got_ref
;
4731 edir
->elf
.ref_dynamic
|= eind
->elf
.ref_dynamic
;
4732 edir
->elf
.ref_regular
|= eind
->elf
.ref_regular
;
4733 edir
->elf
.ref_regular_nonweak
|= eind
->elf
.ref_regular_nonweak
;
4734 edir
->elf
.needs_plt
|= eind
->elf
.needs_plt
;
4735 edir
->elf
.pointer_equality_needed
|= eind
->elf
.pointer_equality_needed
;
4737 /* Copy over any dynamic relocs we may have on the indirect sym. */
4738 if (eind
->dyn_relocs
!= NULL
)
4740 if (edir
->dyn_relocs
!= NULL
)
4742 struct elf_dyn_relocs
**pp
;
4743 struct elf_dyn_relocs
*p
;
4745 /* Add reloc counts against the indirect sym to the direct sym
4746 list. Merge any entries against the same section. */
4747 for (pp
= &eind
->dyn_relocs
; (p
= *pp
) != NULL
; )
4749 struct elf_dyn_relocs
*q
;
4751 for (q
= edir
->dyn_relocs
; q
!= NULL
; q
= q
->next
)
4752 if (q
->sec
== p
->sec
)
4754 q
->pc_count
+= p
->pc_count
;
4755 q
->count
+= p
->count
;
4762 *pp
= edir
->dyn_relocs
;
4765 edir
->dyn_relocs
= eind
->dyn_relocs
;
4766 eind
->dyn_relocs
= NULL
;
4769 /* If we were called to copy over info for a weak sym, that's all.
4770 You might think dyn_relocs need not be copied over; After all,
4771 both syms will be dynamic or both non-dynamic so we're just
4772 moving reloc accounting around. However, ELIMINATE_COPY_RELOCS
4773 code in ppc64_elf_adjust_dynamic_symbol needs to check for
4774 dyn_relocs in read-only sections, and it does so on what is the
4776 if (eind
->elf
.root
.type
!= bfd_link_hash_indirect
)
4779 /* Copy over got entries that we may have already seen to the
4780 symbol which just became indirect. */
4781 if (eind
->elf
.got
.glist
!= NULL
)
4783 if (edir
->elf
.got
.glist
!= NULL
)
4785 struct got_entry
**entp
;
4786 struct got_entry
*ent
;
4788 for (entp
= &eind
->elf
.got
.glist
; (ent
= *entp
) != NULL
; )
4790 struct got_entry
*dent
;
4792 for (dent
= edir
->elf
.got
.glist
; dent
!= NULL
; dent
= dent
->next
)
4793 if (dent
->addend
== ent
->addend
4794 && dent
->owner
== ent
->owner
4795 && dent
->tls_type
== ent
->tls_type
)
4797 dent
->got
.refcount
+= ent
->got
.refcount
;
4804 *entp
= edir
->elf
.got
.glist
;
4807 edir
->elf
.got
.glist
= eind
->elf
.got
.glist
;
4808 eind
->elf
.got
.glist
= NULL
;
4811 /* And plt entries. */
4812 move_plt_plist (eind
, edir
);
4814 if (eind
->elf
.dynindx
!= -1)
4816 if (edir
->elf
.dynindx
!= -1)
4817 _bfd_elf_strtab_delref (elf_hash_table (info
)->dynstr
,
4818 edir
->elf
.dynstr_index
);
4819 edir
->elf
.dynindx
= eind
->elf
.dynindx
;
4820 edir
->elf
.dynstr_index
= eind
->elf
.dynstr_index
;
4821 eind
->elf
.dynindx
= -1;
4822 eind
->elf
.dynstr_index
= 0;
4826 /* Find the function descriptor hash entry from the given function code
4827 hash entry FH. Link the entries via their OH fields. */
4829 static struct ppc_link_hash_entry
*
4830 lookup_fdh (struct ppc_link_hash_entry
*fh
, struct ppc_link_hash_table
*htab
)
4832 struct ppc_link_hash_entry
*fdh
= fh
->oh
;
4836 const char *fd_name
= fh
->elf
.root
.root
.string
+ 1;
4838 fdh
= (struct ppc_link_hash_entry
*)
4839 elf_link_hash_lookup (&htab
->elf
, fd_name
, FALSE
, FALSE
, FALSE
);
4843 fdh
->is_func_descriptor
= 1;
4849 return ppc_follow_link (fdh
);
4852 /* Make a fake function descriptor sym for the code sym FH. */
4854 static struct ppc_link_hash_entry
*
4855 make_fdh (struct bfd_link_info
*info
,
4856 struct ppc_link_hash_entry
*fh
)
4860 struct bfd_link_hash_entry
*bh
;
4861 struct ppc_link_hash_entry
*fdh
;
4863 abfd
= fh
->elf
.root
.u
.undef
.abfd
;
4864 newsym
= bfd_make_empty_symbol (abfd
);
4865 newsym
->name
= fh
->elf
.root
.root
.string
+ 1;
4866 newsym
->section
= bfd_und_section_ptr
;
4868 newsym
->flags
= BSF_WEAK
;
4871 if (!_bfd_generic_link_add_one_symbol (info
, abfd
, newsym
->name
,
4872 newsym
->flags
, newsym
->section
,
4873 newsym
->value
, NULL
, FALSE
, FALSE
,
4877 fdh
= (struct ppc_link_hash_entry
*) bh
;
4878 fdh
->elf
.non_elf
= 0;
4880 fdh
->is_func_descriptor
= 1;
4887 /* Fix function descriptor symbols defined in .opd sections to be
4891 ppc64_elf_add_symbol_hook (bfd
*ibfd
,
4892 struct bfd_link_info
*info
,
4893 Elf_Internal_Sym
*isym
,
4895 flagword
*flags ATTRIBUTE_UNUSED
,
4899 if ((ELF_ST_TYPE (isym
->st_info
) == STT_GNU_IFUNC
4900 || ELF_ST_BIND (isym
->st_info
) == STB_GNU_UNIQUE
)
4901 && (ibfd
->flags
& DYNAMIC
) == 0
4902 && bfd_get_flavour (info
->output_bfd
) == bfd_target_elf_flavour
)
4903 elf_tdata (info
->output_bfd
)->has_gnu_symbols
= elf_gnu_symbol_any
;
4906 && strcmp ((*sec
)->name
, ".opd") == 0)
4910 if (!(ELF_ST_TYPE (isym
->st_info
) == STT_GNU_IFUNC
4911 || ELF_ST_TYPE (isym
->st_info
) == STT_FUNC
))
4912 isym
->st_info
= ELF_ST_INFO (ELF_ST_BIND (isym
->st_info
), STT_FUNC
);
4914 /* If the symbol is a function defined in .opd, and the function
4915 code is in a discarded group, let it appear to be undefined. */
4916 if (!bfd_link_relocatable (info
)
4917 && (*sec
)->reloc_count
!= 0
4918 && opd_entry_value (*sec
, *value
, &code_sec
, NULL
,
4919 FALSE
) != (bfd_vma
) -1
4920 && discarded_section (code_sec
))
4922 *sec
= bfd_und_section_ptr
;
4923 isym
->st_shndx
= SHN_UNDEF
;
4926 else if (*sec
!= NULL
4927 && strcmp ((*sec
)->name
, ".toc") == 0
4928 && ELF_ST_TYPE (isym
->st_info
) == STT_OBJECT
)
4930 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
4932 htab
->params
->object_in_toc
= 1;
4935 if ((STO_PPC64_LOCAL_MASK
& isym
->st_other
) != 0)
4937 if (abiversion (ibfd
) == 0)
4938 set_abiversion (ibfd
, 2);
4939 else if (abiversion (ibfd
) == 1)
4941 info
->callbacks
->einfo (_("%P: symbol '%s' has invalid st_other"
4942 " for ABI version 1\n"), name
);
4943 bfd_set_error (bfd_error_bad_value
);
4951 /* Merge non-visibility st_other attributes: local entry point. */
4954 ppc64_elf_merge_symbol_attribute (struct elf_link_hash_entry
*h
,
4955 const Elf_Internal_Sym
*isym
,
4956 bfd_boolean definition
,
4957 bfd_boolean dynamic
)
4959 if (definition
&& !dynamic
)
4960 h
->other
= ((isym
->st_other
& ~ELF_ST_VISIBILITY (-1))
4961 | ELF_ST_VISIBILITY (h
->other
));
4964 /* This function makes an old ABI object reference to ".bar" cause the
4965 inclusion of a new ABI object archive that defines "bar".
4966 NAME is a symbol defined in an archive. Return a symbol in the hash
4967 table that might be satisfied by the archive symbols. */
4969 static struct elf_link_hash_entry
*
4970 ppc64_elf_archive_symbol_lookup (bfd
*abfd
,
4971 struct bfd_link_info
*info
,
4974 struct elf_link_hash_entry
*h
;
4978 h
= _bfd_elf_archive_symbol_lookup (abfd
, info
, name
);
4980 /* Don't return this sym if it is a fake function descriptor
4981 created by add_symbol_adjust. */
4982 && !(h
->root
.type
== bfd_link_hash_undefweak
4983 && ((struct ppc_link_hash_entry
*) h
)->fake
))
4989 len
= strlen (name
);
4990 dot_name
= bfd_alloc (abfd
, len
+ 2);
4991 if (dot_name
== NULL
)
4992 return (struct elf_link_hash_entry
*) 0 - 1;
4994 memcpy (dot_name
+ 1, name
, len
+ 1);
4995 h
= _bfd_elf_archive_symbol_lookup (abfd
, info
, dot_name
);
4996 bfd_release (abfd
, dot_name
);
5000 /* This function satisfies all old ABI object references to ".bar" if a
5001 new ABI object defines "bar". Well, at least, undefined dot symbols
5002 are made weak. This stops later archive searches from including an
5003 object if we already have a function descriptor definition. It also
5004 prevents the linker complaining about undefined symbols.
5005 We also check and correct mismatched symbol visibility here. The
5006 most restrictive visibility of the function descriptor and the
5007 function entry symbol is used. */
5010 add_symbol_adjust (struct ppc_link_hash_entry
*eh
, struct bfd_link_info
*info
)
5012 struct ppc_link_hash_table
*htab
;
5013 struct ppc_link_hash_entry
*fdh
;
5015 if (eh
->elf
.root
.type
== bfd_link_hash_indirect
)
5018 if (eh
->elf
.root
.type
== bfd_link_hash_warning
)
5019 eh
= (struct ppc_link_hash_entry
*) eh
->elf
.root
.u
.i
.link
;
5021 if (eh
->elf
.root
.root
.string
[0] != '.')
5024 htab
= ppc_hash_table (info
);
5028 fdh
= lookup_fdh (eh
, htab
);
5031 if (!bfd_link_relocatable (info
)
5032 && (eh
->elf
.root
.type
== bfd_link_hash_undefined
5033 || eh
->elf
.root
.type
== bfd_link_hash_undefweak
)
5034 && eh
->elf
.ref_regular
)
5036 /* Make an undefweak function descriptor sym, which is enough to
5037 pull in an --as-needed shared lib, but won't cause link
5038 errors. Archives are handled elsewhere. */
5039 fdh
= make_fdh (info
, eh
);
5042 fdh
->elf
.ref_regular
= 1;
5047 unsigned entry_vis
= ELF_ST_VISIBILITY (eh
->elf
.other
) - 1;
5048 unsigned descr_vis
= ELF_ST_VISIBILITY (fdh
->elf
.other
) - 1;
5049 if (entry_vis
< descr_vis
)
5050 fdh
->elf
.other
+= entry_vis
- descr_vis
;
5051 else if (entry_vis
> descr_vis
)
5052 eh
->elf
.other
+= descr_vis
- entry_vis
;
5054 if ((fdh
->elf
.root
.type
== bfd_link_hash_defined
5055 || fdh
->elf
.root
.type
== bfd_link_hash_defweak
)
5056 && eh
->elf
.root
.type
== bfd_link_hash_undefined
)
5058 eh
->elf
.root
.type
= bfd_link_hash_undefweak
;
5059 eh
->was_undefined
= 1;
5060 htab
->twiddled_syms
= 1;
5067 /* Set up opd section info and abiversion for IBFD, and process list
5068 of dot-symbols we made in link_hash_newfunc. */
5071 ppc64_elf_before_check_relocs (bfd
*ibfd
, struct bfd_link_info
*info
)
5073 struct ppc_link_hash_table
*htab
;
5074 struct ppc_link_hash_entry
**p
, *eh
;
5075 asection
*opd
= bfd_get_section_by_name (ibfd
, ".opd");
5077 if (opd
!= NULL
&& opd
->size
!= 0)
5079 if (abiversion (ibfd
) == 0)
5080 set_abiversion (ibfd
, 1);
5081 else if (abiversion (ibfd
) == 2)
5083 info
->callbacks
->einfo (_("%P: %B .opd not allowed in ABI"
5085 ibfd
, abiversion (ibfd
));
5086 bfd_set_error (bfd_error_bad_value
);
5090 if ((ibfd
->flags
& DYNAMIC
) == 0
5091 && (opd
->flags
& SEC_RELOC
) != 0
5092 && opd
->reloc_count
!= 0
5093 && !bfd_is_abs_section (opd
->output_section
))
5095 /* Garbage collection needs some extra help with .opd sections.
5096 We don't want to necessarily keep everything referenced by
5097 relocs in .opd, as that would keep all functions. Instead,
5098 if we reference an .opd symbol (a function descriptor), we
5099 want to keep the function code symbol's section. This is
5100 easy for global symbols, but for local syms we need to keep
5101 information about the associated function section. */
5103 asection
**opd_sym_map
;
5105 amt
= OPD_NDX (opd
->size
) * sizeof (*opd_sym_map
);
5106 opd_sym_map
= bfd_zalloc (ibfd
, amt
);
5107 if (opd_sym_map
== NULL
)
5109 ppc64_elf_section_data (opd
)->u
.opd
.func_sec
= opd_sym_map
;
5110 BFD_ASSERT (ppc64_elf_section_data (opd
)->sec_type
== sec_normal
);
5111 ppc64_elf_section_data (opd
)->sec_type
= sec_opd
;
5115 if (!is_ppc64_elf (info
->output_bfd
))
5117 htab
= ppc_hash_table (info
);
5121 /* For input files without an explicit abiversion in e_flags
5122 we should have flagged any with symbol st_other bits set
5123 as ELFv1 and above flagged those with .opd as ELFv2.
5124 Set the output abiversion if not yet set, and for any input
5125 still ambiguous, take its abiversion from the output.
5126 Differences in ABI are reported later. */
5127 if (abiversion (info
->output_bfd
) == 0)
5128 set_abiversion (info
->output_bfd
, abiversion (ibfd
));
5129 else if (abiversion (ibfd
) == 0)
5130 set_abiversion (ibfd
, abiversion (info
->output_bfd
));
5132 p
= &htab
->dot_syms
;
5133 while ((eh
= *p
) != NULL
)
5136 if (&eh
->elf
== htab
->elf
.hgot
)
5138 else if (htab
->elf
.hgot
== NULL
5139 && strcmp (eh
->elf
.root
.root
.string
, ".TOC.") == 0)
5140 htab
->elf
.hgot
= &eh
->elf
;
5141 else if (!add_symbol_adjust (eh
, info
))
5143 p
= &eh
->u
.next_dot_sym
;
5146 /* Clear the list for non-ppc64 input files. */
5147 p
= &htab
->dot_syms
;
5148 while ((eh
= *p
) != NULL
)
5151 p
= &eh
->u
.next_dot_sym
;
5154 /* We need to fix the undefs list for any syms we have twiddled to
5156 if (htab
->twiddled_syms
)
5158 bfd_link_repair_undef_list (&htab
->elf
.root
);
5159 htab
->twiddled_syms
= 0;
5164 /* Undo hash table changes when an --as-needed input file is determined
5165 not to be needed. */
5168 ppc64_elf_notice_as_needed (bfd
*ibfd
,
5169 struct bfd_link_info
*info
,
5170 enum notice_asneeded_action act
)
5172 if (act
== notice_not_needed
)
5174 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
5179 htab
->dot_syms
= NULL
;
5181 return _bfd_elf_notice_as_needed (ibfd
, info
, act
);
5184 /* If --just-symbols against a final linked binary, then assume we need
5185 toc adjusting stubs when calling functions defined there. */
5188 ppc64_elf_link_just_syms (asection
*sec
, struct bfd_link_info
*info
)
5190 if ((sec
->flags
& SEC_CODE
) != 0
5191 && (sec
->owner
->flags
& (EXEC_P
| DYNAMIC
)) != 0
5192 && is_ppc64_elf (sec
->owner
))
5194 if (abiversion (sec
->owner
) >= 2
5195 || bfd_get_section_by_name (sec
->owner
, ".opd") != NULL
)
5196 sec
->has_toc_reloc
= 1;
5198 _bfd_elf_link_just_syms (sec
, info
);
5201 static struct plt_entry
**
5202 update_local_sym_info (bfd
*abfd
, Elf_Internal_Shdr
*symtab_hdr
,
5203 unsigned long r_symndx
, bfd_vma r_addend
, int tls_type
)
5205 struct got_entry
**local_got_ents
= elf_local_got_ents (abfd
);
5206 struct plt_entry
**local_plt
;
5207 unsigned char *local_got_tls_masks
;
5209 if (local_got_ents
== NULL
)
5211 bfd_size_type size
= symtab_hdr
->sh_info
;
5213 size
*= (sizeof (*local_got_ents
)
5214 + sizeof (*local_plt
)
5215 + sizeof (*local_got_tls_masks
));
5216 local_got_ents
= bfd_zalloc (abfd
, size
);
5217 if (local_got_ents
== NULL
)
5219 elf_local_got_ents (abfd
) = local_got_ents
;
5222 if ((tls_type
& (PLT_IFUNC
| TLS_EXPLICIT
)) == 0)
5224 struct got_entry
*ent
;
5226 for (ent
= local_got_ents
[r_symndx
]; ent
!= NULL
; ent
= ent
->next
)
5227 if (ent
->addend
== r_addend
5228 && ent
->owner
== abfd
5229 && ent
->tls_type
== tls_type
)
5233 bfd_size_type amt
= sizeof (*ent
);
5234 ent
= bfd_alloc (abfd
, amt
);
5237 ent
->next
= local_got_ents
[r_symndx
];
5238 ent
->addend
= r_addend
;
5240 ent
->tls_type
= tls_type
;
5241 ent
->is_indirect
= FALSE
;
5242 ent
->got
.refcount
= 0;
5243 local_got_ents
[r_symndx
] = ent
;
5245 ent
->got
.refcount
+= 1;
5248 local_plt
= (struct plt_entry
**) (local_got_ents
+ symtab_hdr
->sh_info
);
5249 local_got_tls_masks
= (unsigned char *) (local_plt
+ symtab_hdr
->sh_info
);
5250 local_got_tls_masks
[r_symndx
] |= tls_type
;
5252 return local_plt
+ r_symndx
;
5256 update_plt_info (bfd
*abfd
, struct plt_entry
**plist
, bfd_vma addend
)
5258 struct plt_entry
*ent
;
5260 for (ent
= *plist
; ent
!= NULL
; ent
= ent
->next
)
5261 if (ent
->addend
== addend
)
5265 bfd_size_type amt
= sizeof (*ent
);
5266 ent
= bfd_alloc (abfd
, amt
);
5270 ent
->addend
= addend
;
5271 ent
->plt
.refcount
= 0;
5274 ent
->plt
.refcount
+= 1;
5279 is_branch_reloc (enum elf_ppc64_reloc_type r_type
)
5281 return (r_type
== R_PPC64_REL24
5282 || r_type
== R_PPC64_REL14
5283 || r_type
== R_PPC64_REL14_BRTAKEN
5284 || r_type
== R_PPC64_REL14_BRNTAKEN
5285 || r_type
== R_PPC64_ADDR24
5286 || r_type
== R_PPC64_ADDR14
5287 || r_type
== R_PPC64_ADDR14_BRTAKEN
5288 || r_type
== R_PPC64_ADDR14_BRNTAKEN
);
5291 /* Look through the relocs for a section during the first phase, and
5292 calculate needed space in the global offset table, procedure
5293 linkage table, and dynamic reloc sections. */
5296 ppc64_elf_check_relocs (bfd
*abfd
, struct bfd_link_info
*info
,
5297 asection
*sec
, const Elf_Internal_Rela
*relocs
)
5299 struct ppc_link_hash_table
*htab
;
5300 Elf_Internal_Shdr
*symtab_hdr
;
5301 struct elf_link_hash_entry
**sym_hashes
;
5302 const Elf_Internal_Rela
*rel
;
5303 const Elf_Internal_Rela
*rel_end
;
5305 asection
**opd_sym_map
;
5306 struct elf_link_hash_entry
*tga
, *dottga
;
5308 if (bfd_link_relocatable (info
))
5311 /* Don't do anything special with non-loaded, non-alloced sections.
5312 In particular, any relocs in such sections should not affect GOT
5313 and PLT reference counting (ie. we don't allow them to create GOT
5314 or PLT entries), there's no possibility or desire to optimize TLS
5315 relocs, and there's not much point in propagating relocs to shared
5316 libs that the dynamic linker won't relocate. */
5317 if ((sec
->flags
& SEC_ALLOC
) == 0)
5320 BFD_ASSERT (is_ppc64_elf (abfd
));
5322 htab
= ppc_hash_table (info
);
5326 tga
= elf_link_hash_lookup (&htab
->elf
, "__tls_get_addr",
5327 FALSE
, FALSE
, TRUE
);
5328 dottga
= elf_link_hash_lookup (&htab
->elf
, ".__tls_get_addr",
5329 FALSE
, FALSE
, TRUE
);
5330 symtab_hdr
= &elf_symtab_hdr (abfd
);
5331 sym_hashes
= elf_sym_hashes (abfd
);
5334 if (ppc64_elf_section_data (sec
) != NULL
5335 && ppc64_elf_section_data (sec
)->sec_type
== sec_opd
)
5336 opd_sym_map
= ppc64_elf_section_data (sec
)->u
.opd
.func_sec
;
5338 rel_end
= relocs
+ sec
->reloc_count
;
5339 for (rel
= relocs
; rel
< rel_end
; rel
++)
5341 unsigned long r_symndx
;
5342 struct elf_link_hash_entry
*h
;
5343 enum elf_ppc64_reloc_type r_type
;
5345 struct _ppc64_elf_section_data
*ppc64_sec
;
5346 struct plt_entry
**ifunc
, **plt_list
;
5348 r_symndx
= ELF64_R_SYM (rel
->r_info
);
5349 if (r_symndx
< symtab_hdr
->sh_info
)
5353 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
5354 h
= elf_follow_link (h
);
5356 /* PR15323, ref flags aren't set for references in the same
5358 h
->root
.non_ir_ref
= 1;
5360 if (h
== htab
->elf
.hgot
)
5361 sec
->has_toc_reloc
= 1;
5368 if (h
->type
== STT_GNU_IFUNC
)
5371 ifunc
= &h
->plt
.plist
;
5376 Elf_Internal_Sym
*isym
= bfd_sym_from_r_symndx (&htab
->sym_cache
,
5381 if (ELF_ST_TYPE (isym
->st_info
) == STT_GNU_IFUNC
)
5383 ifunc
= update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
5384 rel
->r_addend
, PLT_IFUNC
);
5390 r_type
= ELF64_R_TYPE (rel
->r_info
);
5395 /* These special tls relocs tie a call to __tls_get_addr with
5396 its parameter symbol. */
5399 case R_PPC64_GOT_TLSLD16
:
5400 case R_PPC64_GOT_TLSLD16_LO
:
5401 case R_PPC64_GOT_TLSLD16_HI
:
5402 case R_PPC64_GOT_TLSLD16_HA
:
5403 tls_type
= TLS_TLS
| TLS_LD
;
5406 case R_PPC64_GOT_TLSGD16
:
5407 case R_PPC64_GOT_TLSGD16_LO
:
5408 case R_PPC64_GOT_TLSGD16_HI
:
5409 case R_PPC64_GOT_TLSGD16_HA
:
5410 tls_type
= TLS_TLS
| TLS_GD
;
5413 case R_PPC64_GOT_TPREL16_DS
:
5414 case R_PPC64_GOT_TPREL16_LO_DS
:
5415 case R_PPC64_GOT_TPREL16_HI
:
5416 case R_PPC64_GOT_TPREL16_HA
:
5417 if (bfd_link_pic (info
))
5418 info
->flags
|= DF_STATIC_TLS
;
5419 tls_type
= TLS_TLS
| TLS_TPREL
;
5422 case R_PPC64_GOT_DTPREL16_DS
:
5423 case R_PPC64_GOT_DTPREL16_LO_DS
:
5424 case R_PPC64_GOT_DTPREL16_HI
:
5425 case R_PPC64_GOT_DTPREL16_HA
:
5426 tls_type
= TLS_TLS
| TLS_DTPREL
;
5428 sec
->has_tls_reloc
= 1;
5432 case R_PPC64_GOT16_DS
:
5433 case R_PPC64_GOT16_HA
:
5434 case R_PPC64_GOT16_HI
:
5435 case R_PPC64_GOT16_LO
:
5436 case R_PPC64_GOT16_LO_DS
:
5437 /* This symbol requires a global offset table entry. */
5438 sec
->has_toc_reloc
= 1;
5439 if (r_type
== R_PPC64_GOT_TLSLD16
5440 || r_type
== R_PPC64_GOT_TLSGD16
5441 || r_type
== R_PPC64_GOT_TPREL16_DS
5442 || r_type
== R_PPC64_GOT_DTPREL16_DS
5443 || r_type
== R_PPC64_GOT16
5444 || r_type
== R_PPC64_GOT16_DS
)
5446 htab
->do_multi_toc
= 1;
5447 ppc64_elf_tdata (abfd
)->has_small_toc_reloc
= 1;
5450 if (ppc64_elf_tdata (abfd
)->got
== NULL
5451 && !create_got_section (abfd
, info
))
5456 struct ppc_link_hash_entry
*eh
;
5457 struct got_entry
*ent
;
5459 eh
= (struct ppc_link_hash_entry
*) h
;
5460 for (ent
= eh
->elf
.got
.glist
; ent
!= NULL
; ent
= ent
->next
)
5461 if (ent
->addend
== rel
->r_addend
5462 && ent
->owner
== abfd
5463 && ent
->tls_type
== tls_type
)
5467 bfd_size_type amt
= sizeof (*ent
);
5468 ent
= bfd_alloc (abfd
, amt
);
5471 ent
->next
= eh
->elf
.got
.glist
;
5472 ent
->addend
= rel
->r_addend
;
5474 ent
->tls_type
= tls_type
;
5475 ent
->is_indirect
= FALSE
;
5476 ent
->got
.refcount
= 0;
5477 eh
->elf
.got
.glist
= ent
;
5479 ent
->got
.refcount
+= 1;
5480 eh
->tls_mask
|= tls_type
;
5483 /* This is a global offset table entry for a local symbol. */
5484 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
5485 rel
->r_addend
, tls_type
))
5488 /* We may also need a plt entry if the symbol turns out to be
5490 if (h
!= NULL
&& !bfd_link_pic (info
) && abiversion (abfd
) != 1)
5492 if (!update_plt_info (abfd
, &h
->plt
.plist
, rel
->r_addend
))
5497 case R_PPC64_PLT16_HA
:
5498 case R_PPC64_PLT16_HI
:
5499 case R_PPC64_PLT16_LO
:
5502 /* This symbol requires a procedure linkage table entry. */
5507 if (h
->root
.root
.string
[0] == '.'
5508 && h
->root
.root
.string
[1] != '\0')
5509 ((struct ppc_link_hash_entry
*) h
)->is_func
= 1;
5510 plt_list
= &h
->plt
.plist
;
5512 if (plt_list
== NULL
)
5514 /* It does not make sense to have a procedure linkage
5515 table entry for a non-ifunc local symbol. */
5516 info
->callbacks
->einfo
5517 (_("%P: %H: %s reloc against local symbol\n"),
5518 abfd
, sec
, rel
->r_offset
,
5519 ppc64_elf_howto_table
[r_type
]->name
);
5520 bfd_set_error (bfd_error_bad_value
);
5523 if (!update_plt_info (abfd
, plt_list
, rel
->r_addend
))
5527 /* The following relocations don't need to propagate the
5528 relocation if linking a shared object since they are
5529 section relative. */
5530 case R_PPC64_SECTOFF
:
5531 case R_PPC64_SECTOFF_LO
:
5532 case R_PPC64_SECTOFF_HI
:
5533 case R_PPC64_SECTOFF_HA
:
5534 case R_PPC64_SECTOFF_DS
:
5535 case R_PPC64_SECTOFF_LO_DS
:
5536 case R_PPC64_DTPREL16
:
5537 case R_PPC64_DTPREL16_LO
:
5538 case R_PPC64_DTPREL16_HI
:
5539 case R_PPC64_DTPREL16_HA
:
5540 case R_PPC64_DTPREL16_DS
:
5541 case R_PPC64_DTPREL16_LO_DS
:
5542 case R_PPC64_DTPREL16_HIGH
:
5543 case R_PPC64_DTPREL16_HIGHA
:
5544 case R_PPC64_DTPREL16_HIGHER
:
5545 case R_PPC64_DTPREL16_HIGHERA
:
5546 case R_PPC64_DTPREL16_HIGHEST
:
5547 case R_PPC64_DTPREL16_HIGHESTA
:
5552 case R_PPC64_REL16_LO
:
5553 case R_PPC64_REL16_HI
:
5554 case R_PPC64_REL16_HA
:
5555 case R_PPC64_REL16DX_HA
:
5558 /* Not supported as a dynamic relocation. */
5559 case R_PPC64_ADDR64_LOCAL
:
5560 if (bfd_link_pic (info
))
5562 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
5564 info
->callbacks
->einfo (_("%P: %H: %s reloc unsupported "
5565 "in shared libraries and PIEs.\n"),
5566 abfd
, sec
, rel
->r_offset
,
5567 ppc64_elf_howto_table
[r_type
]->name
);
5568 bfd_set_error (bfd_error_bad_value
);
5574 case R_PPC64_TOC16_DS
:
5575 htab
->do_multi_toc
= 1;
5576 ppc64_elf_tdata (abfd
)->has_small_toc_reloc
= 1;
5577 case R_PPC64_TOC16_LO
:
5578 case R_PPC64_TOC16_HI
:
5579 case R_PPC64_TOC16_HA
:
5580 case R_PPC64_TOC16_LO_DS
:
5581 sec
->has_toc_reloc
= 1;
5588 /* This relocation describes the C++ object vtable hierarchy.
5589 Reconstruct it for later use during GC. */
5590 case R_PPC64_GNU_VTINHERIT
:
5591 if (!bfd_elf_gc_record_vtinherit (abfd
, sec
, h
, rel
->r_offset
))
5595 /* This relocation describes which C++ vtable entries are actually
5596 used. Record for later use during GC. */
5597 case R_PPC64_GNU_VTENTRY
:
5598 BFD_ASSERT (h
!= NULL
);
5600 && !bfd_elf_gc_record_vtentry (abfd
, sec
, h
, rel
->r_addend
))
5605 case R_PPC64_REL14_BRTAKEN
:
5606 case R_PPC64_REL14_BRNTAKEN
:
5608 asection
*dest
= NULL
;
5610 /* Heuristic: If jumping outside our section, chances are
5611 we are going to need a stub. */
5614 /* If the sym is weak it may be overridden later, so
5615 don't assume we know where a weak sym lives. */
5616 if (h
->root
.type
== bfd_link_hash_defined
)
5617 dest
= h
->root
.u
.def
.section
;
5621 Elf_Internal_Sym
*isym
;
5623 isym
= bfd_sym_from_r_symndx (&htab
->sym_cache
,
5628 dest
= bfd_section_from_elf_index (abfd
, isym
->st_shndx
);
5632 ppc64_elf_section_data (sec
)->has_14bit_branch
= 1;
5641 if (h
->root
.root
.string
[0] == '.'
5642 && h
->root
.root
.string
[1] != '\0')
5643 ((struct ppc_link_hash_entry
*) h
)->is_func
= 1;
5645 if (h
== tga
|| h
== dottga
)
5647 sec
->has_tls_reloc
= 1;
5649 && (ELF64_R_TYPE (rel
[-1].r_info
) == R_PPC64_TLSGD
5650 || ELF64_R_TYPE (rel
[-1].r_info
) == R_PPC64_TLSLD
))
5651 /* We have a new-style __tls_get_addr call with
5655 /* Mark this section as having an old-style call. */
5656 sec
->has_tls_get_addr_call
= 1;
5658 plt_list
= &h
->plt
.plist
;
5661 /* We may need a .plt entry if the function this reloc
5662 refers to is in a shared lib. */
5664 && !update_plt_info (abfd
, plt_list
, rel
->r_addend
))
5668 case R_PPC64_ADDR14
:
5669 case R_PPC64_ADDR14_BRNTAKEN
:
5670 case R_PPC64_ADDR14_BRTAKEN
:
5671 case R_PPC64_ADDR24
:
5674 case R_PPC64_TPREL64
:
5675 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_TPREL
;
5676 if (bfd_link_pic (info
))
5677 info
->flags
|= DF_STATIC_TLS
;
5680 case R_PPC64_DTPMOD64
:
5681 if (rel
+ 1 < rel_end
5682 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
5683 && rel
[1].r_offset
== rel
->r_offset
+ 8)
5684 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_GD
;
5686 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_LD
;
5689 case R_PPC64_DTPREL64
:
5690 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_DTPREL
;
5692 && rel
[-1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPMOD64
)
5693 && rel
[-1].r_offset
== rel
->r_offset
- 8)
5694 /* This is the second reloc of a dtpmod, dtprel pair.
5695 Don't mark with TLS_DTPREL. */
5699 sec
->has_tls_reloc
= 1;
5702 struct ppc_link_hash_entry
*eh
;
5703 eh
= (struct ppc_link_hash_entry
*) h
;
5704 eh
->tls_mask
|= tls_type
;
5707 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
5708 rel
->r_addend
, tls_type
))
5711 ppc64_sec
= ppc64_elf_section_data (sec
);
5712 if (ppc64_sec
->sec_type
!= sec_toc
)
5716 /* One extra to simplify get_tls_mask. */
5717 amt
= sec
->size
* sizeof (unsigned) / 8 + sizeof (unsigned);
5718 ppc64_sec
->u
.toc
.symndx
= bfd_zalloc (abfd
, amt
);
5719 if (ppc64_sec
->u
.toc
.symndx
== NULL
)
5721 amt
= sec
->size
* sizeof (bfd_vma
) / 8;
5722 ppc64_sec
->u
.toc
.add
= bfd_zalloc (abfd
, amt
);
5723 if (ppc64_sec
->u
.toc
.add
== NULL
)
5725 BFD_ASSERT (ppc64_sec
->sec_type
== sec_normal
);
5726 ppc64_sec
->sec_type
= sec_toc
;
5728 BFD_ASSERT (rel
->r_offset
% 8 == 0);
5729 ppc64_sec
->u
.toc
.symndx
[rel
->r_offset
/ 8] = r_symndx
;
5730 ppc64_sec
->u
.toc
.add
[rel
->r_offset
/ 8] = rel
->r_addend
;
5732 /* Mark the second slot of a GD or LD entry.
5733 -1 to indicate GD and -2 to indicate LD. */
5734 if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_GD
))
5735 ppc64_sec
->u
.toc
.symndx
[rel
->r_offset
/ 8 + 1] = -1;
5736 else if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_LD
))
5737 ppc64_sec
->u
.toc
.symndx
[rel
->r_offset
/ 8 + 1] = -2;
5740 case R_PPC64_TPREL16
:
5741 case R_PPC64_TPREL16_LO
:
5742 case R_PPC64_TPREL16_HI
:
5743 case R_PPC64_TPREL16_HA
:
5744 case R_PPC64_TPREL16_DS
:
5745 case R_PPC64_TPREL16_LO_DS
:
5746 case R_PPC64_TPREL16_HIGH
:
5747 case R_PPC64_TPREL16_HIGHA
:
5748 case R_PPC64_TPREL16_HIGHER
:
5749 case R_PPC64_TPREL16_HIGHERA
:
5750 case R_PPC64_TPREL16_HIGHEST
:
5751 case R_PPC64_TPREL16_HIGHESTA
:
5752 if (bfd_link_pic (info
))
5754 info
->flags
|= DF_STATIC_TLS
;
5759 case R_PPC64_ADDR64
:
5760 if (opd_sym_map
!= NULL
5761 && rel
+ 1 < rel_end
5762 && ELF64_R_TYPE ((rel
+ 1)->r_info
) == R_PPC64_TOC
)
5766 if (h
->root
.root
.string
[0] == '.'
5767 && h
->root
.root
.string
[1] != 0
5768 && lookup_fdh ((struct ppc_link_hash_entry
*) h
, htab
))
5771 ((struct ppc_link_hash_entry
*) h
)->is_func
= 1;
5776 Elf_Internal_Sym
*isym
;
5778 isym
= bfd_sym_from_r_symndx (&htab
->sym_cache
,
5783 s
= bfd_section_from_elf_index (abfd
, isym
->st_shndx
);
5784 if (s
!= NULL
&& s
!= sec
)
5785 opd_sym_map
[OPD_NDX (rel
->r_offset
)] = s
;
5790 case R_PPC64_ADDR16
:
5791 case R_PPC64_ADDR16_DS
:
5792 case R_PPC64_ADDR16_HA
:
5793 case R_PPC64_ADDR16_HI
:
5794 case R_PPC64_ADDR16_HIGH
:
5795 case R_PPC64_ADDR16_HIGHA
:
5796 case R_PPC64_ADDR16_HIGHER
:
5797 case R_PPC64_ADDR16_HIGHERA
:
5798 case R_PPC64_ADDR16_HIGHEST
:
5799 case R_PPC64_ADDR16_HIGHESTA
:
5800 case R_PPC64_ADDR16_LO
:
5801 case R_PPC64_ADDR16_LO_DS
:
5802 if (h
!= NULL
&& !bfd_link_pic (info
) && abiversion (abfd
) != 1
5803 && rel
->r_addend
== 0)
5805 /* We may need a .plt entry if this reloc refers to a
5806 function in a shared lib. */
5807 if (!update_plt_info (abfd
, &h
->plt
.plist
, rel
->r_addend
))
5809 h
->pointer_equality_needed
= 1;
5816 case R_PPC64_ADDR32
:
5817 case R_PPC64_UADDR16
:
5818 case R_PPC64_UADDR32
:
5819 case R_PPC64_UADDR64
:
5821 if (h
!= NULL
&& !bfd_link_pic (info
))
5822 /* We may need a copy reloc. */
5825 /* Don't propagate .opd relocs. */
5826 if (NO_OPD_RELOCS
&& opd_sym_map
!= NULL
)
5829 /* If we are creating a shared library, and this is a reloc
5830 against a global symbol, or a non PC relative reloc
5831 against a local symbol, then we need to copy the reloc
5832 into the shared library. However, if we are linking with
5833 -Bsymbolic, we do not need to copy a reloc against a
5834 global symbol which is defined in an object we are
5835 including in the link (i.e., DEF_REGULAR is set). At
5836 this point we have not seen all the input files, so it is
5837 possible that DEF_REGULAR is not set now but will be set
5838 later (it is never cleared). In case of a weak definition,
5839 DEF_REGULAR may be cleared later by a strong definition in
5840 a shared library. We account for that possibility below by
5841 storing information in the dyn_relocs field of the hash
5842 table entry. A similar situation occurs when creating
5843 shared libraries and symbol visibility changes render the
5846 If on the other hand, we are creating an executable, we
5847 may need to keep relocations for symbols satisfied by a
5848 dynamic library if we manage to avoid copy relocs for the
5851 if ((bfd_link_pic (info
)
5852 && (must_be_dyn_reloc (info
, r_type
)
5854 && (!SYMBOLIC_BIND (info
, h
)
5855 || h
->root
.type
== bfd_link_hash_defweak
5856 || !h
->def_regular
))))
5857 || (ELIMINATE_COPY_RELOCS
5858 && !bfd_link_pic (info
)
5860 && (h
->root
.type
== bfd_link_hash_defweak
5861 || !h
->def_regular
))
5862 || (!bfd_link_pic (info
)
5865 /* We must copy these reloc types into the output file.
5866 Create a reloc section in dynobj and make room for
5870 sreloc
= _bfd_elf_make_dynamic_reloc_section
5871 (sec
, htab
->elf
.dynobj
, 3, abfd
, /*rela?*/ TRUE
);
5877 /* If this is a global symbol, we count the number of
5878 relocations we need for this symbol. */
5881 struct elf_dyn_relocs
*p
;
5882 struct elf_dyn_relocs
**head
;
5884 head
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
5886 if (p
== NULL
|| p
->sec
!= sec
)
5888 p
= bfd_alloc (htab
->elf
.dynobj
, sizeof *p
);
5898 if (!must_be_dyn_reloc (info
, r_type
))
5903 /* Track dynamic relocs needed for local syms too.
5904 We really need local syms available to do this
5906 struct ppc_dyn_relocs
*p
;
5907 struct ppc_dyn_relocs
**head
;
5908 bfd_boolean is_ifunc
;
5911 Elf_Internal_Sym
*isym
;
5913 isym
= bfd_sym_from_r_symndx (&htab
->sym_cache
,
5918 s
= bfd_section_from_elf_index (abfd
, isym
->st_shndx
);
5922 vpp
= &elf_section_data (s
)->local_dynrel
;
5923 head
= (struct ppc_dyn_relocs
**) vpp
;
5924 is_ifunc
= ELF_ST_TYPE (isym
->st_info
) == STT_GNU_IFUNC
;
5926 if (p
!= NULL
&& p
->sec
== sec
&& p
->ifunc
!= is_ifunc
)
5928 if (p
== NULL
|| p
->sec
!= sec
|| p
->ifunc
!= is_ifunc
)
5930 p
= bfd_alloc (htab
->elf
.dynobj
, sizeof *p
);
5936 p
->ifunc
= is_ifunc
;
5952 /* Merge backend specific data from an object file to the output
5953 object file when linking. */
5956 ppc64_elf_merge_private_bfd_data (bfd
*ibfd
, bfd
*obfd
)
5958 unsigned long iflags
, oflags
;
5960 if ((ibfd
->flags
& BFD_LINKER_CREATED
) != 0)
5963 if (!is_ppc64_elf (ibfd
) || !is_ppc64_elf (obfd
))
5966 if (!_bfd_generic_verify_endian_match (ibfd
, obfd
))
5969 iflags
= elf_elfheader (ibfd
)->e_flags
;
5970 oflags
= elf_elfheader (obfd
)->e_flags
;
5972 if (iflags
& ~EF_PPC64_ABI
)
5974 (*_bfd_error_handler
)
5975 (_("%B uses unknown e_flags 0x%lx"), ibfd
, iflags
);
5976 bfd_set_error (bfd_error_bad_value
);
5979 else if (iflags
!= oflags
&& iflags
!= 0)
5981 (*_bfd_error_handler
)
5982 (_("%B: ABI version %ld is not compatible with ABI version %ld output"),
5983 ibfd
, iflags
, oflags
);
5984 bfd_set_error (bfd_error_bad_value
);
5988 /* Merge Tag_compatibility attributes and any common GNU ones. */
5989 _bfd_elf_merge_object_attributes (ibfd
, obfd
);
5995 ppc64_elf_print_private_bfd_data (bfd
*abfd
, void *ptr
)
5997 /* Print normal ELF private data. */
5998 _bfd_elf_print_private_bfd_data (abfd
, ptr
);
6000 if (elf_elfheader (abfd
)->e_flags
!= 0)
6004 /* xgettext:c-format */
6005 fprintf (file
, _("private flags = 0x%lx:"),
6006 elf_elfheader (abfd
)->e_flags
);
6008 if ((elf_elfheader (abfd
)->e_flags
& EF_PPC64_ABI
) != 0)
6009 fprintf (file
, _(" [abiv%ld]"),
6010 elf_elfheader (abfd
)->e_flags
& EF_PPC64_ABI
);
6017 /* OFFSET in OPD_SEC specifies a function descriptor. Return the address
6018 of the code entry point, and its section, which must be in the same
6019 object as OPD_SEC. Returns (bfd_vma) -1 on error. */
6022 opd_entry_value (asection
*opd_sec
,
6024 asection
**code_sec
,
6026 bfd_boolean in_code_sec
)
6028 bfd
*opd_bfd
= opd_sec
->owner
;
6029 Elf_Internal_Rela
*relocs
;
6030 Elf_Internal_Rela
*lo
, *hi
, *look
;
6033 /* No relocs implies we are linking a --just-symbols object, or looking
6034 at a final linked executable with addr2line or somesuch. */
6035 if (opd_sec
->reloc_count
== 0)
6037 bfd_byte
*contents
= ppc64_elf_tdata (opd_bfd
)->opd
.contents
;
6039 if (contents
== NULL
)
6041 if (!bfd_malloc_and_get_section (opd_bfd
, opd_sec
, &contents
))
6042 return (bfd_vma
) -1;
6043 ppc64_elf_tdata (opd_bfd
)->opd
.contents
= contents
;
6046 /* PR 17512: file: 64b9dfbb. */
6047 if (offset
+ 7 >= opd_sec
->size
|| offset
+ 7 < offset
)
6048 return (bfd_vma
) -1;
6050 val
= bfd_get_64 (opd_bfd
, contents
+ offset
);
6051 if (code_sec
!= NULL
)
6053 asection
*sec
, *likely
= NULL
;
6059 && val
< sec
->vma
+ sec
->size
)
6065 for (sec
= opd_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
6067 && (sec
->flags
& SEC_LOAD
) != 0
6068 && (sec
->flags
& SEC_ALLOC
) != 0)
6073 if (code_off
!= NULL
)
6074 *code_off
= val
- likely
->vma
;
6080 BFD_ASSERT (is_ppc64_elf (opd_bfd
));
6082 relocs
= ppc64_elf_tdata (opd_bfd
)->opd
.relocs
;
6084 relocs
= _bfd_elf_link_read_relocs (opd_bfd
, opd_sec
, NULL
, NULL
, TRUE
);
6085 /* PR 17512: file: df8e1fd6. */
6087 return (bfd_vma
) -1;
6089 /* Go find the opd reloc at the sym address. */
6091 hi
= lo
+ opd_sec
->reloc_count
- 1; /* ignore last reloc */
6095 look
= lo
+ (hi
- lo
) / 2;
6096 if (look
->r_offset
< offset
)
6098 else if (look
->r_offset
> offset
)
6102 Elf_Internal_Shdr
*symtab_hdr
= &elf_symtab_hdr (opd_bfd
);
6104 if (ELF64_R_TYPE (look
->r_info
) == R_PPC64_ADDR64
6105 && ELF64_R_TYPE ((look
+ 1)->r_info
) == R_PPC64_TOC
)
6107 unsigned long symndx
= ELF64_R_SYM (look
->r_info
);
6108 asection
*sec
= NULL
;
6110 if (symndx
>= symtab_hdr
->sh_info
6111 && elf_sym_hashes (opd_bfd
) != NULL
)
6113 struct elf_link_hash_entry
**sym_hashes
;
6114 struct elf_link_hash_entry
*rh
;
6116 sym_hashes
= elf_sym_hashes (opd_bfd
);
6117 rh
= sym_hashes
[symndx
- symtab_hdr
->sh_info
];
6120 rh
= elf_follow_link (rh
);
6121 if (rh
->root
.type
!= bfd_link_hash_defined
6122 && rh
->root
.type
!= bfd_link_hash_defweak
)
6124 if (rh
->root
.u
.def
.section
->owner
== opd_bfd
)
6126 val
= rh
->root
.u
.def
.value
;
6127 sec
= rh
->root
.u
.def
.section
;
6134 Elf_Internal_Sym
*sym
;
6136 if (symndx
< symtab_hdr
->sh_info
)
6138 sym
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
6141 size_t symcnt
= symtab_hdr
->sh_info
;
6142 sym
= bfd_elf_get_elf_syms (opd_bfd
, symtab_hdr
,
6147 symtab_hdr
->contents
= (bfd_byte
*) sym
;
6153 sym
= bfd_elf_get_elf_syms (opd_bfd
, symtab_hdr
,
6159 sec
= bfd_section_from_elf_index (opd_bfd
, sym
->st_shndx
);
6162 BFD_ASSERT ((sec
->flags
& SEC_MERGE
) == 0);
6163 val
= sym
->st_value
;
6166 val
+= look
->r_addend
;
6167 if (code_off
!= NULL
)
6169 if (code_sec
!= NULL
)
6171 if (in_code_sec
&& *code_sec
!= sec
)
6176 if (sec
->output_section
!= NULL
)
6177 val
+= sec
->output_section
->vma
+ sec
->output_offset
;
6186 /* If the ELF symbol SYM might be a function in SEC, return the
6187 function size and set *CODE_OFF to the function's entry point,
6188 otherwise return zero. */
6190 static bfd_size_type
6191 ppc64_elf_maybe_function_sym (const asymbol
*sym
, asection
*sec
,
6196 if ((sym
->flags
& (BSF_SECTION_SYM
| BSF_FILE
| BSF_OBJECT
6197 | BSF_THREAD_LOCAL
| BSF_RELC
| BSF_SRELC
)) != 0)
6201 if (!(sym
->flags
& BSF_SYNTHETIC
))
6202 size
= ((elf_symbol_type
*) sym
)->internal_elf_sym
.st_size
;
6204 if (strcmp (sym
->section
->name
, ".opd") == 0)
6206 struct _opd_sec_data
*opd
= get_opd_info (sym
->section
);
6207 bfd_vma symval
= sym
->value
;
6210 && opd
->adjust
!= NULL
6211 && elf_section_data (sym
->section
)->relocs
!= NULL
)
6213 /* opd_entry_value will use cached relocs that have been
6214 adjusted, but with raw symbols. That means both local
6215 and global symbols need adjusting. */
6216 long adjust
= opd
->adjust
[OPD_NDX (symval
)];
6222 if (opd_entry_value (sym
->section
, symval
,
6223 &sec
, code_off
, TRUE
) == (bfd_vma
) -1)
6225 /* An old ABI binary with dot-syms has a size of 24 on the .opd
6226 symbol. This size has nothing to do with the code size of the
6227 function, which is what we're supposed to return, but the
6228 code size isn't available without looking up the dot-sym.
6229 However, doing that would be a waste of time particularly
6230 since elf_find_function will look at the dot-sym anyway.
6231 Now, elf_find_function will keep the largest size of any
6232 function sym found at the code address of interest, so return
6233 1 here to avoid it incorrectly caching a larger function size
6234 for a small function. This does mean we return the wrong
6235 size for a new-ABI function of size 24, but all that does is
6236 disable caching for such functions. */
6242 if (sym
->section
!= sec
)
6244 *code_off
= sym
->value
;
6251 /* Return true if symbol is defined in a regular object file. */
6254 is_static_defined (struct elf_link_hash_entry
*h
)
6256 return ((h
->root
.type
== bfd_link_hash_defined
6257 || h
->root
.type
== bfd_link_hash_defweak
)
6258 && h
->root
.u
.def
.section
!= NULL
6259 && h
->root
.u
.def
.section
->output_section
!= NULL
);
6262 /* If FDH is a function descriptor symbol, return the associated code
6263 entry symbol if it is defined. Return NULL otherwise. */
6265 static struct ppc_link_hash_entry
*
6266 defined_code_entry (struct ppc_link_hash_entry
*fdh
)
6268 if (fdh
->is_func_descriptor
)
6270 struct ppc_link_hash_entry
*fh
= ppc_follow_link (fdh
->oh
);
6271 if (fh
->elf
.root
.type
== bfd_link_hash_defined
6272 || fh
->elf
.root
.type
== bfd_link_hash_defweak
)
6278 /* If FH is a function code entry symbol, return the associated
6279 function descriptor symbol if it is defined. Return NULL otherwise. */
6281 static struct ppc_link_hash_entry
*
6282 defined_func_desc (struct ppc_link_hash_entry
*fh
)
6285 && fh
->oh
->is_func_descriptor
)
6287 struct ppc_link_hash_entry
*fdh
= ppc_follow_link (fh
->oh
);
6288 if (fdh
->elf
.root
.type
== bfd_link_hash_defined
6289 || fdh
->elf
.root
.type
== bfd_link_hash_defweak
)
6295 /* Mark all our entry sym sections, both opd and code section. */
6298 ppc64_elf_gc_keep (struct bfd_link_info
*info
)
6300 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
6301 struct bfd_sym_chain
*sym
;
6306 for (sym
= info
->gc_sym_list
; sym
!= NULL
; sym
= sym
->next
)
6308 struct ppc_link_hash_entry
*eh
, *fh
;
6311 eh
= (struct ppc_link_hash_entry
*)
6312 elf_link_hash_lookup (&htab
->elf
, sym
->name
, FALSE
, FALSE
, TRUE
);
6315 if (eh
->elf
.root
.type
!= bfd_link_hash_defined
6316 && eh
->elf
.root
.type
!= bfd_link_hash_defweak
)
6319 fh
= defined_code_entry (eh
);
6322 sec
= fh
->elf
.root
.u
.def
.section
;
6323 sec
->flags
|= SEC_KEEP
;
6325 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
6326 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
6327 eh
->elf
.root
.u
.def
.value
,
6328 &sec
, NULL
, FALSE
) != (bfd_vma
) -1)
6329 sec
->flags
|= SEC_KEEP
;
6331 sec
= eh
->elf
.root
.u
.def
.section
;
6332 sec
->flags
|= SEC_KEEP
;
6336 /* Mark sections containing dynamically referenced symbols. When
6337 building shared libraries, we must assume that any visible symbol is
6341 ppc64_elf_gc_mark_dynamic_ref (struct elf_link_hash_entry
*h
, void *inf
)
6343 struct bfd_link_info
*info
= (struct bfd_link_info
*) inf
;
6344 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) h
;
6345 struct ppc_link_hash_entry
*fdh
;
6346 struct bfd_elf_dynamic_list
*d
= info
->dynamic_list
;
6348 /* Dynamic linking info is on the func descriptor sym. */
6349 fdh
= defined_func_desc (eh
);
6353 if ((eh
->elf
.root
.type
== bfd_link_hash_defined
6354 || eh
->elf
.root
.type
== bfd_link_hash_defweak
)
6355 && (eh
->elf
.ref_dynamic
6356 || ((eh
->elf
.def_regular
|| ELF_COMMON_DEF_P (&eh
->elf
))
6357 && ELF_ST_VISIBILITY (eh
->elf
.other
) != STV_INTERNAL
6358 && ELF_ST_VISIBILITY (eh
->elf
.other
) != STV_HIDDEN
6359 && (!bfd_link_executable (info
)
6360 || info
->export_dynamic
6363 && (*d
->match
) (&d
->head
, NULL
, eh
->elf
.root
.root
.string
)))
6364 && (strchr (eh
->elf
.root
.root
.string
, ELF_VER_CHR
) != NULL
6365 || !bfd_hide_sym_by_version (info
->version_info
,
6366 eh
->elf
.root
.root
.string
)))))
6369 struct ppc_link_hash_entry
*fh
;
6371 eh
->elf
.root
.u
.def
.section
->flags
|= SEC_KEEP
;
6373 /* Function descriptor syms cause the associated
6374 function code sym section to be marked. */
6375 fh
= defined_code_entry (eh
);
6378 code_sec
= fh
->elf
.root
.u
.def
.section
;
6379 code_sec
->flags
|= SEC_KEEP
;
6381 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
6382 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
6383 eh
->elf
.root
.u
.def
.value
,
6384 &code_sec
, NULL
, FALSE
) != (bfd_vma
) -1)
6385 code_sec
->flags
|= SEC_KEEP
;
6391 /* Return the section that should be marked against GC for a given
6395 ppc64_elf_gc_mark_hook (asection
*sec
,
6396 struct bfd_link_info
*info
,
6397 Elf_Internal_Rela
*rel
,
6398 struct elf_link_hash_entry
*h
,
6399 Elf_Internal_Sym
*sym
)
6403 /* Syms return NULL if we're marking .opd, so we avoid marking all
6404 function sections, as all functions are referenced in .opd. */
6406 if (get_opd_info (sec
) != NULL
)
6411 enum elf_ppc64_reloc_type r_type
;
6412 struct ppc_link_hash_entry
*eh
, *fh
, *fdh
;
6414 r_type
= ELF64_R_TYPE (rel
->r_info
);
6417 case R_PPC64_GNU_VTINHERIT
:
6418 case R_PPC64_GNU_VTENTRY
:
6422 switch (h
->root
.type
)
6424 case bfd_link_hash_defined
:
6425 case bfd_link_hash_defweak
:
6426 eh
= (struct ppc_link_hash_entry
*) h
;
6427 fdh
= defined_func_desc (eh
);
6431 /* Function descriptor syms cause the associated
6432 function code sym section to be marked. */
6433 fh
= defined_code_entry (eh
);
6436 /* They also mark their opd section. */
6437 eh
->elf
.root
.u
.def
.section
->gc_mark
= 1;
6439 rsec
= fh
->elf
.root
.u
.def
.section
;
6441 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
6442 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
6443 eh
->elf
.root
.u
.def
.value
,
6444 &rsec
, NULL
, FALSE
) != (bfd_vma
) -1)
6445 eh
->elf
.root
.u
.def
.section
->gc_mark
= 1;
6447 rsec
= h
->root
.u
.def
.section
;
6450 case bfd_link_hash_common
:
6451 rsec
= h
->root
.u
.c
.p
->section
;
6455 return _bfd_elf_gc_mark_hook (sec
, info
, rel
, h
, sym
);
6461 struct _opd_sec_data
*opd
;
6463 rsec
= bfd_section_from_elf_index (sec
->owner
, sym
->st_shndx
);
6464 opd
= get_opd_info (rsec
);
6465 if (opd
!= NULL
&& opd
->func_sec
!= NULL
)
6469 rsec
= opd
->func_sec
[OPD_NDX (sym
->st_value
+ rel
->r_addend
)];
6476 /* Update the .got, .plt. and dynamic reloc reference counts for the
6477 section being removed. */
6480 ppc64_elf_gc_sweep_hook (bfd
*abfd
, struct bfd_link_info
*info
,
6481 asection
*sec
, const Elf_Internal_Rela
*relocs
)
6483 struct ppc_link_hash_table
*htab
;
6484 Elf_Internal_Shdr
*symtab_hdr
;
6485 struct elf_link_hash_entry
**sym_hashes
;
6486 struct got_entry
**local_got_ents
;
6487 const Elf_Internal_Rela
*rel
, *relend
;
6489 if (bfd_link_relocatable (info
))
6492 if ((sec
->flags
& SEC_ALLOC
) == 0)
6495 elf_section_data (sec
)->local_dynrel
= NULL
;
6497 htab
= ppc_hash_table (info
);
6501 symtab_hdr
= &elf_symtab_hdr (abfd
);
6502 sym_hashes
= elf_sym_hashes (abfd
);
6503 local_got_ents
= elf_local_got_ents (abfd
);
6505 relend
= relocs
+ sec
->reloc_count
;
6506 for (rel
= relocs
; rel
< relend
; rel
++)
6508 unsigned long r_symndx
;
6509 enum elf_ppc64_reloc_type r_type
;
6510 struct elf_link_hash_entry
*h
= NULL
;
6511 struct plt_entry
**plt_list
;
6512 unsigned char tls_type
= 0;
6514 r_symndx
= ELF64_R_SYM (rel
->r_info
);
6515 r_type
= ELF64_R_TYPE (rel
->r_info
);
6516 if (r_symndx
>= symtab_hdr
->sh_info
)
6518 struct ppc_link_hash_entry
*eh
;
6519 struct elf_dyn_relocs
**pp
;
6520 struct elf_dyn_relocs
*p
;
6522 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
6523 h
= elf_follow_link (h
);
6524 eh
= (struct ppc_link_hash_entry
*) h
;
6526 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; pp
= &p
->next
)
6529 /* Everything must go for SEC. */
6537 case R_PPC64_GOT_TLSLD16
:
6538 case R_PPC64_GOT_TLSLD16_LO
:
6539 case R_PPC64_GOT_TLSLD16_HI
:
6540 case R_PPC64_GOT_TLSLD16_HA
:
6541 tls_type
= TLS_TLS
| TLS_LD
;
6544 case R_PPC64_GOT_TLSGD16
:
6545 case R_PPC64_GOT_TLSGD16_LO
:
6546 case R_PPC64_GOT_TLSGD16_HI
:
6547 case R_PPC64_GOT_TLSGD16_HA
:
6548 tls_type
= TLS_TLS
| TLS_GD
;
6551 case R_PPC64_GOT_TPREL16_DS
:
6552 case R_PPC64_GOT_TPREL16_LO_DS
:
6553 case R_PPC64_GOT_TPREL16_HI
:
6554 case R_PPC64_GOT_TPREL16_HA
:
6555 tls_type
= TLS_TLS
| TLS_TPREL
;
6558 case R_PPC64_GOT_DTPREL16_DS
:
6559 case R_PPC64_GOT_DTPREL16_LO_DS
:
6560 case R_PPC64_GOT_DTPREL16_HI
:
6561 case R_PPC64_GOT_DTPREL16_HA
:
6562 tls_type
= TLS_TLS
| TLS_DTPREL
;
6566 case R_PPC64_GOT16_DS
:
6567 case R_PPC64_GOT16_HA
:
6568 case R_PPC64_GOT16_HI
:
6569 case R_PPC64_GOT16_LO
:
6570 case R_PPC64_GOT16_LO_DS
:
6573 struct got_entry
*ent
;
6578 ent
= local_got_ents
[r_symndx
];
6580 for (; ent
!= NULL
; ent
= ent
->next
)
6581 if (ent
->addend
== rel
->r_addend
6582 && ent
->owner
== abfd
6583 && ent
->tls_type
== tls_type
)
6587 if (ent
->got
.refcount
> 0)
6588 ent
->got
.refcount
-= 1;
6592 case R_PPC64_PLT16_HA
:
6593 case R_PPC64_PLT16_HI
:
6594 case R_PPC64_PLT16_LO
:
6598 case R_PPC64_REL14_BRNTAKEN
:
6599 case R_PPC64_REL14_BRTAKEN
:
6603 plt_list
= &h
->plt
.plist
;
6604 else if (local_got_ents
!= NULL
)
6606 struct plt_entry
**local_plt
= (struct plt_entry
**)
6607 (local_got_ents
+ symtab_hdr
->sh_info
);
6608 unsigned char *local_got_tls_masks
= (unsigned char *)
6609 (local_plt
+ symtab_hdr
->sh_info
);
6610 if ((local_got_tls_masks
[r_symndx
] & PLT_IFUNC
) != 0)
6611 plt_list
= local_plt
+ r_symndx
;
6615 struct plt_entry
*ent
;
6617 for (ent
= *plt_list
; ent
!= NULL
; ent
= ent
->next
)
6618 if (ent
->addend
== rel
->r_addend
)
6620 if (ent
!= NULL
&& ent
->plt
.refcount
> 0)
6621 ent
->plt
.refcount
-= 1;
6632 /* The maximum size of .sfpr. */
6633 #define SFPR_MAX (218*4)
6635 struct sfpr_def_parms
6637 const char name
[12];
6638 unsigned char lo
, hi
;
6639 bfd_byte
* (*write_ent
) (bfd
*, bfd_byte
*, int);
6640 bfd_byte
* (*write_tail
) (bfd
*, bfd_byte
*, int);
6643 /* Auto-generate _save*, _rest* functions in .sfpr.
6644 If STUB_SEC is non-null, define alias symbols in STUB_SEC
6648 sfpr_define (struct bfd_link_info
*info
,
6649 const struct sfpr_def_parms
*parm
,
6652 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
6654 size_t len
= strlen (parm
->name
);
6655 bfd_boolean writing
= FALSE
;
6661 memcpy (sym
, parm
->name
, len
);
6664 for (i
= parm
->lo
; i
<= parm
->hi
; i
++)
6666 struct ppc_link_hash_entry
*h
;
6668 sym
[len
+ 0] = i
/ 10 + '0';
6669 sym
[len
+ 1] = i
% 10 + '0';
6670 h
= (struct ppc_link_hash_entry
*)
6671 elf_link_hash_lookup (&htab
->elf
, sym
, writing
, TRUE
, TRUE
);
6672 if (stub_sec
!= NULL
)
6675 && h
->elf
.root
.type
== bfd_link_hash_defined
6676 && h
->elf
.root
.u
.def
.section
== htab
->sfpr
)
6678 struct elf_link_hash_entry
*s
;
6680 sprintf (buf
, "%08x.%s", stub_sec
->id
& 0xffffffff, sym
);
6681 s
= elf_link_hash_lookup (&htab
->elf
, buf
, TRUE
, TRUE
, FALSE
);
6684 if (s
->root
.type
== bfd_link_hash_new
6685 || (s
->root
.type
= bfd_link_hash_defined
6686 && s
->root
.u
.def
.section
== stub_sec
))
6688 s
->root
.type
= bfd_link_hash_defined
;
6689 s
->root
.u
.def
.section
= stub_sec
;
6690 s
->root
.u
.def
.value
= (stub_sec
->size
6691 + h
->elf
.root
.u
.def
.value
);
6694 s
->ref_regular_nonweak
= 1;
6695 s
->forced_local
= 1;
6697 s
->root
.linker_def
= 1;
6705 if (!h
->elf
.def_regular
)
6707 h
->elf
.root
.type
= bfd_link_hash_defined
;
6708 h
->elf
.root
.u
.def
.section
= htab
->sfpr
;
6709 h
->elf
.root
.u
.def
.value
= htab
->sfpr
->size
;
6710 h
->elf
.type
= STT_FUNC
;
6711 h
->elf
.def_regular
= 1;
6713 _bfd_elf_link_hash_hide_symbol (info
, &h
->elf
, TRUE
);
6715 if (htab
->sfpr
->contents
== NULL
)
6717 htab
->sfpr
->contents
= bfd_alloc (htab
->elf
.dynobj
, SFPR_MAX
);
6718 if (htab
->sfpr
->contents
== NULL
)
6725 bfd_byte
*p
= htab
->sfpr
->contents
+ htab
->sfpr
->size
;
6727 p
= (*parm
->write_ent
) (htab
->elf
.dynobj
, p
, i
);
6729 p
= (*parm
->write_tail
) (htab
->elf
.dynobj
, p
, i
);
6730 htab
->sfpr
->size
= p
- htab
->sfpr
->contents
;
6738 savegpr0 (bfd
*abfd
, bfd_byte
*p
, int r
)
6740 bfd_put_32 (abfd
, STD_R0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
6745 savegpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6747 p
= savegpr0 (abfd
, p
, r
);
6748 bfd_put_32 (abfd
, STD_R0_0R1
+ STK_LR
, p
);
6750 bfd_put_32 (abfd
, BLR
, p
);
6755 restgpr0 (bfd
*abfd
, bfd_byte
*p
, int r
)
6757 bfd_put_32 (abfd
, LD_R0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
6762 restgpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6764 bfd_put_32 (abfd
, LD_R0_0R1
+ STK_LR
, p
);
6766 p
= restgpr0 (abfd
, p
, r
);
6767 bfd_put_32 (abfd
, MTLR_R0
, p
);
6771 p
= restgpr0 (abfd
, p
, 30);
6772 p
= restgpr0 (abfd
, p
, 31);
6774 bfd_put_32 (abfd
, BLR
, p
);
6779 savegpr1 (bfd
*abfd
, bfd_byte
*p
, int r
)
6781 bfd_put_32 (abfd
, STD_R0_0R12
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
6786 savegpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6788 p
= savegpr1 (abfd
, p
, r
);
6789 bfd_put_32 (abfd
, BLR
, p
);
6794 restgpr1 (bfd
*abfd
, bfd_byte
*p
, int r
)
6796 bfd_put_32 (abfd
, LD_R0_0R12
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
6801 restgpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6803 p
= restgpr1 (abfd
, p
, r
);
6804 bfd_put_32 (abfd
, BLR
, p
);
6809 savefpr (bfd
*abfd
, bfd_byte
*p
, int r
)
6811 bfd_put_32 (abfd
, STFD_FR0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
6816 savefpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6818 p
= savefpr (abfd
, p
, r
);
6819 bfd_put_32 (abfd
, STD_R0_0R1
+ STK_LR
, p
);
6821 bfd_put_32 (abfd
, BLR
, p
);
6826 restfpr (bfd
*abfd
, bfd_byte
*p
, int r
)
6828 bfd_put_32 (abfd
, LFD_FR0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
6833 restfpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6835 bfd_put_32 (abfd
, LD_R0_0R1
+ STK_LR
, p
);
6837 p
= restfpr (abfd
, p
, r
);
6838 bfd_put_32 (abfd
, MTLR_R0
, p
);
6842 p
= restfpr (abfd
, p
, 30);
6843 p
= restfpr (abfd
, p
, 31);
6845 bfd_put_32 (abfd
, BLR
, p
);
6850 savefpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6852 p
= savefpr (abfd
, p
, r
);
6853 bfd_put_32 (abfd
, BLR
, p
);
6858 restfpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6860 p
= restfpr (abfd
, p
, r
);
6861 bfd_put_32 (abfd
, BLR
, p
);
6866 savevr (bfd
*abfd
, bfd_byte
*p
, int r
)
6868 bfd_put_32 (abfd
, LI_R12_0
+ (1 << 16) - (32 - r
) * 16, p
);
6870 bfd_put_32 (abfd
, STVX_VR0_R12_R0
+ (r
<< 21), p
);
6875 savevr_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6877 p
= savevr (abfd
, p
, r
);
6878 bfd_put_32 (abfd
, BLR
, p
);
6883 restvr (bfd
*abfd
, bfd_byte
*p
, int r
)
6885 bfd_put_32 (abfd
, LI_R12_0
+ (1 << 16) - (32 - r
) * 16, p
);
6887 bfd_put_32 (abfd
, LVX_VR0_R12_R0
+ (r
<< 21), p
);
6892 restvr_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
6894 p
= restvr (abfd
, p
, r
);
6895 bfd_put_32 (abfd
, BLR
, p
);
6899 /* Called via elf_link_hash_traverse to transfer dynamic linking
6900 information on function code symbol entries to their corresponding
6901 function descriptor symbol entries. */
6904 func_desc_adjust (struct elf_link_hash_entry
*h
, void *inf
)
6906 struct bfd_link_info
*info
;
6907 struct ppc_link_hash_table
*htab
;
6908 struct plt_entry
*ent
;
6909 struct ppc_link_hash_entry
*fh
;
6910 struct ppc_link_hash_entry
*fdh
;
6911 bfd_boolean force_local
;
6913 fh
= (struct ppc_link_hash_entry
*) h
;
6914 if (fh
->elf
.root
.type
== bfd_link_hash_indirect
)
6918 htab
= ppc_hash_table (info
);
6922 /* Resolve undefined references to dot-symbols as the value
6923 in the function descriptor, if we have one in a regular object.
6924 This is to satisfy cases like ".quad .foo". Calls to functions
6925 in dynamic objects are handled elsewhere. */
6926 if (fh
->elf
.root
.type
== bfd_link_hash_undefweak
6927 && fh
->was_undefined
6928 && (fdh
= defined_func_desc (fh
)) != NULL
6929 && get_opd_info (fdh
->elf
.root
.u
.def
.section
) != NULL
6930 && opd_entry_value (fdh
->elf
.root
.u
.def
.section
,
6931 fdh
->elf
.root
.u
.def
.value
,
6932 &fh
->elf
.root
.u
.def
.section
,
6933 &fh
->elf
.root
.u
.def
.value
, FALSE
) != (bfd_vma
) -1)
6935 fh
->elf
.root
.type
= fdh
->elf
.root
.type
;
6936 fh
->elf
.forced_local
= 1;
6937 fh
->elf
.def_regular
= fdh
->elf
.def_regular
;
6938 fh
->elf
.def_dynamic
= fdh
->elf
.def_dynamic
;
6941 /* If this is a function code symbol, transfer dynamic linking
6942 information to the function descriptor symbol. */
6946 for (ent
= fh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
6947 if (ent
->plt
.refcount
> 0)
6950 || fh
->elf
.root
.root
.string
[0] != '.'
6951 || fh
->elf
.root
.root
.string
[1] == '\0')
6954 /* Find the corresponding function descriptor symbol. Create it
6955 as undefined if necessary. */
6957 fdh
= lookup_fdh (fh
, htab
);
6959 && !bfd_link_executable (info
)
6960 && (fh
->elf
.root
.type
== bfd_link_hash_undefined
6961 || fh
->elf
.root
.type
== bfd_link_hash_undefweak
))
6963 fdh
= make_fdh (info
, fh
);
6968 /* Fake function descriptors are made undefweak. If the function
6969 code symbol is strong undefined, make the fake sym the same.
6970 If the function code symbol is defined, then force the fake
6971 descriptor local; We can't support overriding of symbols in a
6972 shared library on a fake descriptor. */
6976 && fdh
->elf
.root
.type
== bfd_link_hash_undefweak
)
6978 if (fh
->elf
.root
.type
== bfd_link_hash_undefined
)
6980 fdh
->elf
.root
.type
= bfd_link_hash_undefined
;
6981 bfd_link_add_undef (&htab
->elf
.root
, &fdh
->elf
.root
);
6983 else if (fh
->elf
.root
.type
== bfd_link_hash_defined
6984 || fh
->elf
.root
.type
== bfd_link_hash_defweak
)
6986 _bfd_elf_link_hash_hide_symbol (info
, &fdh
->elf
, TRUE
);
6991 && !fdh
->elf
.forced_local
6992 && (!bfd_link_executable (info
)
6993 || fdh
->elf
.def_dynamic
6994 || fdh
->elf
.ref_dynamic
6995 || (fdh
->elf
.root
.type
== bfd_link_hash_undefweak
6996 && ELF_ST_VISIBILITY (fdh
->elf
.other
) == STV_DEFAULT
)))
6998 if (fdh
->elf
.dynindx
== -1)
6999 if (! bfd_elf_link_record_dynamic_symbol (info
, &fdh
->elf
))
7001 fdh
->elf
.ref_regular
|= fh
->elf
.ref_regular
;
7002 fdh
->elf
.ref_dynamic
|= fh
->elf
.ref_dynamic
;
7003 fdh
->elf
.ref_regular_nonweak
|= fh
->elf
.ref_regular_nonweak
;
7004 fdh
->elf
.non_got_ref
|= fh
->elf
.non_got_ref
;
7005 if (ELF_ST_VISIBILITY (fh
->elf
.other
) == STV_DEFAULT
)
7007 move_plt_plist (fh
, fdh
);
7008 fdh
->elf
.needs_plt
= 1;
7010 fdh
->is_func_descriptor
= 1;
7015 /* Now that the info is on the function descriptor, clear the
7016 function code sym info. Any function code syms for which we
7017 don't have a definition in a regular file, we force local.
7018 This prevents a shared library from exporting syms that have
7019 been imported from another library. Function code syms that
7020 are really in the library we must leave global to prevent the
7021 linker dragging in a definition from a static library. */
7022 force_local
= (!fh
->elf
.def_regular
7024 || !fdh
->elf
.def_regular
7025 || fdh
->elf
.forced_local
);
7026 _bfd_elf_link_hash_hide_symbol (info
, &fh
->elf
, force_local
);
7031 static const struct sfpr_def_parms save_res_funcs
[] =
7033 { "_savegpr0_", 14, 31, savegpr0
, savegpr0_tail
},
7034 { "_restgpr0_", 14, 29, restgpr0
, restgpr0_tail
},
7035 { "_restgpr0_", 30, 31, restgpr0
, restgpr0_tail
},
7036 { "_savegpr1_", 14, 31, savegpr1
, savegpr1_tail
},
7037 { "_restgpr1_", 14, 31, restgpr1
, restgpr1_tail
},
7038 { "_savefpr_", 14, 31, savefpr
, savefpr0_tail
},
7039 { "_restfpr_", 14, 29, restfpr
, restfpr0_tail
},
7040 { "_restfpr_", 30, 31, restfpr
, restfpr0_tail
},
7041 { "._savef", 14, 31, savefpr
, savefpr1_tail
},
7042 { "._restf", 14, 31, restfpr
, restfpr1_tail
},
7043 { "_savevr_", 20, 31, savevr
, savevr_tail
},
7044 { "_restvr_", 20, 31, restvr
, restvr_tail
}
7047 /* Called near the start of bfd_elf_size_dynamic_sections. We use
7048 this hook to a) provide some gcc support functions, and b) transfer
7049 dynamic linking information gathered so far on function code symbol
7050 entries, to their corresponding function descriptor symbol entries. */
7053 ppc64_elf_func_desc_adjust (bfd
*obfd ATTRIBUTE_UNUSED
,
7054 struct bfd_link_info
*info
)
7056 struct ppc_link_hash_table
*htab
;
7058 htab
= ppc_hash_table (info
);
7062 /* Provide any missing _save* and _rest* functions. */
7063 if (htab
->sfpr
!= NULL
)
7067 htab
->sfpr
->size
= 0;
7068 for (i
= 0; i
< ARRAY_SIZE (save_res_funcs
); i
++)
7069 if (!sfpr_define (info
, &save_res_funcs
[i
], NULL
))
7071 if (htab
->sfpr
->size
== 0)
7072 htab
->sfpr
->flags
|= SEC_EXCLUDE
;
7075 if (bfd_link_relocatable (info
))
7078 if (htab
->elf
.hgot
!= NULL
)
7080 _bfd_elf_link_hash_hide_symbol (info
, htab
->elf
.hgot
, TRUE
);
7081 /* Make .TOC. defined so as to prevent it being made dynamic.
7082 The wrong value here is fixed later in ppc64_elf_set_toc. */
7083 if (!htab
->elf
.hgot
->def_regular
7084 || htab
->elf
.hgot
->root
.type
!= bfd_link_hash_defined
)
7086 htab
->elf
.hgot
->root
.type
= bfd_link_hash_defined
;
7087 htab
->elf
.hgot
->root
.u
.def
.value
= 0;
7088 htab
->elf
.hgot
->root
.u
.def
.section
= bfd_abs_section_ptr
;
7089 htab
->elf
.hgot
->def_regular
= 1;
7090 htab
->elf
.hgot
->root
.linker_def
= 1;
7092 htab
->elf
.hgot
->type
= STT_OBJECT
;
7093 htab
->elf
.hgot
->other
= ((htab
->elf
.hgot
->other
& ~ELF_ST_VISIBILITY (-1))
7097 elf_link_hash_traverse (&htab
->elf
, func_desc_adjust
, info
);
7102 /* Return true if we have dynamic relocs that apply to read-only sections. */
7105 readonly_dynrelocs (struct elf_link_hash_entry
*h
)
7107 struct ppc_link_hash_entry
*eh
;
7108 struct elf_dyn_relocs
*p
;
7110 eh
= (struct ppc_link_hash_entry
*) h
;
7111 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
7113 asection
*s
= p
->sec
->output_section
;
7115 if (s
!= NULL
&& (s
->flags
& SEC_READONLY
) != 0)
7121 /* Adjust a symbol defined by a dynamic object and referenced by a
7122 regular object. The current definition is in some section of the
7123 dynamic object, but we're not including those sections. We have to
7124 change the definition to something the rest of the link can
7128 ppc64_elf_adjust_dynamic_symbol (struct bfd_link_info
*info
,
7129 struct elf_link_hash_entry
*h
)
7131 struct ppc_link_hash_table
*htab
;
7134 htab
= ppc_hash_table (info
);
7138 /* Deal with function syms. */
7139 if (h
->type
== STT_FUNC
7140 || h
->type
== STT_GNU_IFUNC
7143 /* Clear procedure linkage table information for any symbol that
7144 won't need a .plt entry. */
7145 struct plt_entry
*ent
;
7146 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
7147 if (ent
->plt
.refcount
> 0)
7150 || (h
->type
!= STT_GNU_IFUNC
7151 && (SYMBOL_CALLS_LOCAL (info
, h
)
7152 || (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
7153 && h
->root
.type
== bfd_link_hash_undefweak
)))
7154 || ((struct ppc_link_hash_entry
*) h
)->save_res
)
7156 h
->plt
.plist
= NULL
;
7158 h
->pointer_equality_needed
= 0;
7160 else if (abiversion (info
->output_bfd
) == 2)
7162 /* Taking a function's address in a read/write section
7163 doesn't require us to define the function symbol in the
7164 executable on a global entry stub. A dynamic reloc can
7166 if (h
->pointer_equality_needed
7167 && h
->type
!= STT_GNU_IFUNC
7168 && !readonly_dynrelocs (h
))
7170 h
->pointer_equality_needed
= 0;
7174 /* After adjust_dynamic_symbol, non_got_ref set in the
7175 non-shared case means that we have allocated space in
7176 .dynbss for the symbol and thus dyn_relocs for this
7177 symbol should be discarded.
7178 If we get here we know we are making a PLT entry for this
7179 symbol, and in an executable we'd normally resolve
7180 relocations against this symbol to the PLT entry. Allow
7181 dynamic relocs if the reference is weak, and the dynamic
7182 relocs will not cause text relocation. */
7183 else if (!h
->ref_regular_nonweak
7185 && h
->type
!= STT_GNU_IFUNC
7186 && !readonly_dynrelocs (h
))
7189 /* If making a plt entry, then we don't need copy relocs. */
7194 h
->plt
.plist
= NULL
;
7196 /* If this is a weak symbol, and there is a real definition, the
7197 processor independent code will have arranged for us to see the
7198 real definition first, and we can just use the same value. */
7199 if (h
->u
.weakdef
!= NULL
)
7201 BFD_ASSERT (h
->u
.weakdef
->root
.type
== bfd_link_hash_defined
7202 || h
->u
.weakdef
->root
.type
== bfd_link_hash_defweak
);
7203 h
->root
.u
.def
.section
= h
->u
.weakdef
->root
.u
.def
.section
;
7204 h
->root
.u
.def
.value
= h
->u
.weakdef
->root
.u
.def
.value
;
7205 if (ELIMINATE_COPY_RELOCS
)
7206 h
->non_got_ref
= h
->u
.weakdef
->non_got_ref
;
7210 /* If we are creating a shared library, we must presume that the
7211 only references to the symbol are via the global offset table.
7212 For such cases we need not do anything here; the relocations will
7213 be handled correctly by relocate_section. */
7214 if (bfd_link_pic (info
))
7217 /* If there are no references to this symbol that do not use the
7218 GOT, we don't need to generate a copy reloc. */
7219 if (!h
->non_got_ref
)
7222 /* Don't generate a copy reloc for symbols defined in the executable. */
7223 if (!h
->def_dynamic
|| !h
->ref_regular
|| h
->def_regular
)
7226 /* If -z nocopyreloc was given, don't generate them either. */
7227 if (info
->nocopyreloc
)
7233 /* If we didn't find any dynamic relocs in read-only sections, then
7234 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
7235 if (ELIMINATE_COPY_RELOCS
&& !readonly_dynrelocs (h
))
7241 /* Protected variables do not work with .dynbss. The copy in
7242 .dynbss won't be used by the shared library with the protected
7243 definition for the variable. Text relocations are preferable
7244 to an incorrect program. */
7245 if (h
->protected_def
)
7251 if (h
->plt
.plist
!= NULL
)
7253 /* We should never get here, but unfortunately there are versions
7254 of gcc out there that improperly (for this ABI) put initialized
7255 function pointers, vtable refs and suchlike in read-only
7256 sections. Allow them to proceed, but warn that this might
7257 break at runtime. */
7258 info
->callbacks
->einfo
7259 (_("%P: copy reloc against `%T' requires lazy plt linking; "
7260 "avoid setting LD_BIND_NOW=1 or upgrade gcc\n"),
7261 h
->root
.root
.string
);
7264 /* This is a reference to a symbol defined by a dynamic object which
7265 is not a function. */
7267 /* We must allocate the symbol in our .dynbss section, which will
7268 become part of the .bss section of the executable. There will be
7269 an entry for this symbol in the .dynsym section. The dynamic
7270 object will contain position independent code, so all references
7271 from the dynamic object to this symbol will go through the global
7272 offset table. The dynamic linker will use the .dynsym entry to
7273 determine the address it must put in the global offset table, so
7274 both the dynamic object and the regular object will refer to the
7275 same memory location for the variable. */
7277 /* We must generate a R_PPC64_COPY reloc to tell the dynamic linker
7278 to copy the initial value out of the dynamic object and into the
7279 runtime process image. We need to remember the offset into the
7280 .rela.bss section we are going to use. */
7281 if ((h
->root
.u
.def
.section
->flags
& SEC_ALLOC
) != 0 && h
->size
!= 0)
7283 htab
->relbss
->size
+= sizeof (Elf64_External_Rela
);
7289 return _bfd_elf_adjust_dynamic_copy (info
, h
, s
);
7292 /* If given a function descriptor symbol, hide both the function code
7293 sym and the descriptor. */
7295 ppc64_elf_hide_symbol (struct bfd_link_info
*info
,
7296 struct elf_link_hash_entry
*h
,
7297 bfd_boolean force_local
)
7299 struct ppc_link_hash_entry
*eh
;
7300 _bfd_elf_link_hash_hide_symbol (info
, h
, force_local
);
7302 eh
= (struct ppc_link_hash_entry
*) h
;
7303 if (eh
->is_func_descriptor
)
7305 struct ppc_link_hash_entry
*fh
= eh
->oh
;
7310 struct ppc_link_hash_table
*htab
;
7313 /* We aren't supposed to use alloca in BFD because on
7314 systems which do not have alloca the version in libiberty
7315 calls xmalloc, which might cause the program to crash
7316 when it runs out of memory. This function doesn't have a
7317 return status, so there's no way to gracefully return an
7318 error. So cheat. We know that string[-1] can be safely
7319 accessed; It's either a string in an ELF string table,
7320 or allocated in an objalloc structure. */
7322 p
= eh
->elf
.root
.root
.string
- 1;
7325 htab
= ppc_hash_table (info
);
7329 fh
= (struct ppc_link_hash_entry
*)
7330 elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
7333 /* Unfortunately, if it so happens that the string we were
7334 looking for was allocated immediately before this string,
7335 then we overwrote the string terminator. That's the only
7336 reason the lookup should fail. */
7339 q
= eh
->elf
.root
.root
.string
+ strlen (eh
->elf
.root
.root
.string
);
7340 while (q
>= eh
->elf
.root
.root
.string
&& *q
== *p
)
7342 if (q
< eh
->elf
.root
.root
.string
&& *p
== '.')
7343 fh
= (struct ppc_link_hash_entry
*)
7344 elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
7353 _bfd_elf_link_hash_hide_symbol (info
, &fh
->elf
, force_local
);
7358 get_sym_h (struct elf_link_hash_entry
**hp
,
7359 Elf_Internal_Sym
**symp
,
7361 unsigned char **tls_maskp
,
7362 Elf_Internal_Sym
**locsymsp
,
7363 unsigned long r_symndx
,
7366 Elf_Internal_Shdr
*symtab_hdr
= &elf_symtab_hdr (ibfd
);
7368 if (r_symndx
>= symtab_hdr
->sh_info
)
7370 struct elf_link_hash_entry
**sym_hashes
= elf_sym_hashes (ibfd
);
7371 struct elf_link_hash_entry
*h
;
7373 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
7374 h
= elf_follow_link (h
);
7382 if (symsecp
!= NULL
)
7384 asection
*symsec
= NULL
;
7385 if (h
->root
.type
== bfd_link_hash_defined
7386 || h
->root
.type
== bfd_link_hash_defweak
)
7387 symsec
= h
->root
.u
.def
.section
;
7391 if (tls_maskp
!= NULL
)
7393 struct ppc_link_hash_entry
*eh
;
7395 eh
= (struct ppc_link_hash_entry
*) h
;
7396 *tls_maskp
= &eh
->tls_mask
;
7401 Elf_Internal_Sym
*sym
;
7402 Elf_Internal_Sym
*locsyms
= *locsymsp
;
7404 if (locsyms
== NULL
)
7406 locsyms
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
7407 if (locsyms
== NULL
)
7408 locsyms
= bfd_elf_get_elf_syms (ibfd
, symtab_hdr
,
7409 symtab_hdr
->sh_info
,
7410 0, NULL
, NULL
, NULL
);
7411 if (locsyms
== NULL
)
7413 *locsymsp
= locsyms
;
7415 sym
= locsyms
+ r_symndx
;
7423 if (symsecp
!= NULL
)
7424 *symsecp
= bfd_section_from_elf_index (ibfd
, sym
->st_shndx
);
7426 if (tls_maskp
!= NULL
)
7428 struct got_entry
**lgot_ents
;
7429 unsigned char *tls_mask
;
7432 lgot_ents
= elf_local_got_ents (ibfd
);
7433 if (lgot_ents
!= NULL
)
7435 struct plt_entry
**local_plt
= (struct plt_entry
**)
7436 (lgot_ents
+ symtab_hdr
->sh_info
);
7437 unsigned char *lgot_masks
= (unsigned char *)
7438 (local_plt
+ symtab_hdr
->sh_info
);
7439 tls_mask
= &lgot_masks
[r_symndx
];
7441 *tls_maskp
= tls_mask
;
7447 /* Returns TLS_MASKP for the given REL symbol. Function return is 0 on
7448 error, 2 on a toc GD type suitable for optimization, 3 on a toc LD
7449 type suitable for optimization, and 1 otherwise. */
7452 get_tls_mask (unsigned char **tls_maskp
,
7453 unsigned long *toc_symndx
,
7454 bfd_vma
*toc_addend
,
7455 Elf_Internal_Sym
**locsymsp
,
7456 const Elf_Internal_Rela
*rel
,
7459 unsigned long r_symndx
;
7461 struct elf_link_hash_entry
*h
;
7462 Elf_Internal_Sym
*sym
;
7466 r_symndx
= ELF64_R_SYM (rel
->r_info
);
7467 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
7470 if ((*tls_maskp
!= NULL
&& **tls_maskp
!= 0)
7472 || ppc64_elf_section_data (sec
) == NULL
7473 || ppc64_elf_section_data (sec
)->sec_type
!= sec_toc
)
7476 /* Look inside a TOC section too. */
7479 BFD_ASSERT (h
->root
.type
== bfd_link_hash_defined
);
7480 off
= h
->root
.u
.def
.value
;
7483 off
= sym
->st_value
;
7484 off
+= rel
->r_addend
;
7485 BFD_ASSERT (off
% 8 == 0);
7486 r_symndx
= ppc64_elf_section_data (sec
)->u
.toc
.symndx
[off
/ 8];
7487 next_r
= ppc64_elf_section_data (sec
)->u
.toc
.symndx
[off
/ 8 + 1];
7488 if (toc_symndx
!= NULL
)
7489 *toc_symndx
= r_symndx
;
7490 if (toc_addend
!= NULL
)
7491 *toc_addend
= ppc64_elf_section_data (sec
)->u
.toc
.add
[off
/ 8];
7492 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
7494 if ((h
== NULL
|| is_static_defined (h
))
7495 && (next_r
== -1 || next_r
== -2))
7500 /* Find (or create) an entry in the tocsave hash table. */
7502 static struct tocsave_entry
*
7503 tocsave_find (struct ppc_link_hash_table
*htab
,
7504 enum insert_option insert
,
7505 Elf_Internal_Sym
**local_syms
,
7506 const Elf_Internal_Rela
*irela
,
7509 unsigned long r_indx
;
7510 struct elf_link_hash_entry
*h
;
7511 Elf_Internal_Sym
*sym
;
7512 struct tocsave_entry ent
, *p
;
7514 struct tocsave_entry
**slot
;
7516 r_indx
= ELF64_R_SYM (irela
->r_info
);
7517 if (!get_sym_h (&h
, &sym
, &ent
.sec
, NULL
, local_syms
, r_indx
, ibfd
))
7519 if (ent
.sec
== NULL
|| ent
.sec
->output_section
== NULL
)
7521 (*_bfd_error_handler
)
7522 (_("%B: undefined symbol on R_PPC64_TOCSAVE relocation"));
7527 ent
.offset
= h
->root
.u
.def
.value
;
7529 ent
.offset
= sym
->st_value
;
7530 ent
.offset
+= irela
->r_addend
;
7532 hash
= tocsave_htab_hash (&ent
);
7533 slot
= ((struct tocsave_entry
**)
7534 htab_find_slot_with_hash (htab
->tocsave_htab
, &ent
, hash
, insert
));
7540 p
= (struct tocsave_entry
*) bfd_alloc (ibfd
, sizeof (*p
));
7549 /* Adjust all global syms defined in opd sections. In gcc generated
7550 code for the old ABI, these will already have been done. */
7553 adjust_opd_syms (struct elf_link_hash_entry
*h
, void *inf ATTRIBUTE_UNUSED
)
7555 struct ppc_link_hash_entry
*eh
;
7557 struct _opd_sec_data
*opd
;
7559 if (h
->root
.type
== bfd_link_hash_indirect
)
7562 if (h
->root
.type
!= bfd_link_hash_defined
7563 && h
->root
.type
!= bfd_link_hash_defweak
)
7566 eh
= (struct ppc_link_hash_entry
*) h
;
7567 if (eh
->adjust_done
)
7570 sym_sec
= eh
->elf
.root
.u
.def
.section
;
7571 opd
= get_opd_info (sym_sec
);
7572 if (opd
!= NULL
&& opd
->adjust
!= NULL
)
7574 long adjust
= opd
->adjust
[OPD_NDX (eh
->elf
.root
.u
.def
.value
)];
7577 /* This entry has been deleted. */
7578 asection
*dsec
= ppc64_elf_tdata (sym_sec
->owner
)->deleted_section
;
7581 for (dsec
= sym_sec
->owner
->sections
; dsec
; dsec
= dsec
->next
)
7582 if (discarded_section (dsec
))
7584 ppc64_elf_tdata (sym_sec
->owner
)->deleted_section
= dsec
;
7588 eh
->elf
.root
.u
.def
.value
= 0;
7589 eh
->elf
.root
.u
.def
.section
= dsec
;
7592 eh
->elf
.root
.u
.def
.value
+= adjust
;
7593 eh
->adjust_done
= 1;
7598 /* Handles decrementing dynamic reloc counts for the reloc specified by
7599 R_INFO in section SEC. If LOCAL_SYMS is NULL, then H and SYM
7600 have already been determined. */
7603 dec_dynrel_count (bfd_vma r_info
,
7605 struct bfd_link_info
*info
,
7606 Elf_Internal_Sym
**local_syms
,
7607 struct elf_link_hash_entry
*h
,
7608 Elf_Internal_Sym
*sym
)
7610 enum elf_ppc64_reloc_type r_type
;
7611 asection
*sym_sec
= NULL
;
7613 /* Can this reloc be dynamic? This switch, and later tests here
7614 should be kept in sync with the code in check_relocs. */
7615 r_type
= ELF64_R_TYPE (r_info
);
7621 case R_PPC64_TPREL16
:
7622 case R_PPC64_TPREL16_LO
:
7623 case R_PPC64_TPREL16_HI
:
7624 case R_PPC64_TPREL16_HA
:
7625 case R_PPC64_TPREL16_DS
:
7626 case R_PPC64_TPREL16_LO_DS
:
7627 case R_PPC64_TPREL16_HIGH
:
7628 case R_PPC64_TPREL16_HIGHA
:
7629 case R_PPC64_TPREL16_HIGHER
:
7630 case R_PPC64_TPREL16_HIGHERA
:
7631 case R_PPC64_TPREL16_HIGHEST
:
7632 case R_PPC64_TPREL16_HIGHESTA
:
7633 if (!bfd_link_pic (info
))
7636 case R_PPC64_TPREL64
:
7637 case R_PPC64_DTPMOD64
:
7638 case R_PPC64_DTPREL64
:
7639 case R_PPC64_ADDR64
:
7643 case R_PPC64_ADDR14
:
7644 case R_PPC64_ADDR14_BRNTAKEN
:
7645 case R_PPC64_ADDR14_BRTAKEN
:
7646 case R_PPC64_ADDR16
:
7647 case R_PPC64_ADDR16_DS
:
7648 case R_PPC64_ADDR16_HA
:
7649 case R_PPC64_ADDR16_HI
:
7650 case R_PPC64_ADDR16_HIGH
:
7651 case R_PPC64_ADDR16_HIGHA
:
7652 case R_PPC64_ADDR16_HIGHER
:
7653 case R_PPC64_ADDR16_HIGHERA
:
7654 case R_PPC64_ADDR16_HIGHEST
:
7655 case R_PPC64_ADDR16_HIGHESTA
:
7656 case R_PPC64_ADDR16_LO
:
7657 case R_PPC64_ADDR16_LO_DS
:
7658 case R_PPC64_ADDR24
:
7659 case R_PPC64_ADDR32
:
7660 case R_PPC64_UADDR16
:
7661 case R_PPC64_UADDR32
:
7662 case R_PPC64_UADDR64
:
7667 if (local_syms
!= NULL
)
7669 unsigned long r_symndx
;
7670 bfd
*ibfd
= sec
->owner
;
7672 r_symndx
= ELF64_R_SYM (r_info
);
7673 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, local_syms
, r_symndx
, ibfd
))
7677 if ((bfd_link_pic (info
)
7678 && (must_be_dyn_reloc (info
, r_type
)
7680 && (!SYMBOLIC_BIND (info
, h
)
7681 || h
->root
.type
== bfd_link_hash_defweak
7682 || !h
->def_regular
))))
7683 || (ELIMINATE_COPY_RELOCS
7684 && !bfd_link_pic (info
)
7686 && (h
->root
.type
== bfd_link_hash_defweak
7687 || !h
->def_regular
)))
7694 struct elf_dyn_relocs
*p
;
7695 struct elf_dyn_relocs
**pp
;
7696 pp
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
7698 /* elf_gc_sweep may have already removed all dyn relocs associated
7699 with local syms for a given section. Also, symbol flags are
7700 changed by elf_gc_sweep_symbol, confusing the test above. Don't
7701 report a dynreloc miscount. */
7702 if (*pp
== NULL
&& info
->gc_sections
)
7705 while ((p
= *pp
) != NULL
)
7709 if (!must_be_dyn_reloc (info
, r_type
))
7721 struct ppc_dyn_relocs
*p
;
7722 struct ppc_dyn_relocs
**pp
;
7724 bfd_boolean is_ifunc
;
7726 if (local_syms
== NULL
)
7727 sym_sec
= bfd_section_from_elf_index (sec
->owner
, sym
->st_shndx
);
7728 if (sym_sec
== NULL
)
7731 vpp
= &elf_section_data (sym_sec
)->local_dynrel
;
7732 pp
= (struct ppc_dyn_relocs
**) vpp
;
7734 if (*pp
== NULL
&& info
->gc_sections
)
7737 is_ifunc
= ELF_ST_TYPE (sym
->st_info
) == STT_GNU_IFUNC
;
7738 while ((p
= *pp
) != NULL
)
7740 if (p
->sec
== sec
&& p
->ifunc
== is_ifunc
)
7751 info
->callbacks
->einfo (_("%P: dynreloc miscount for %B, section %A\n"),
7753 bfd_set_error (bfd_error_bad_value
);
7757 /* Remove unused Official Procedure Descriptor entries. Currently we
7758 only remove those associated with functions in discarded link-once
7759 sections, or weakly defined functions that have been overridden. It
7760 would be possible to remove many more entries for statically linked
7764 ppc64_elf_edit_opd (struct bfd_link_info
*info
)
7767 bfd_boolean some_edited
= FALSE
;
7768 asection
*need_pad
= NULL
;
7769 struct ppc_link_hash_table
*htab
;
7771 htab
= ppc_hash_table (info
);
7775 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
7778 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
7779 Elf_Internal_Shdr
*symtab_hdr
;
7780 Elf_Internal_Sym
*local_syms
;
7781 struct _opd_sec_data
*opd
;
7782 bfd_boolean need_edit
, add_aux_fields
, broken
;
7783 bfd_size_type cnt_16b
= 0;
7785 if (!is_ppc64_elf (ibfd
))
7788 sec
= bfd_get_section_by_name (ibfd
, ".opd");
7789 if (sec
== NULL
|| sec
->size
== 0)
7792 if (sec
->sec_info_type
== SEC_INFO_TYPE_JUST_SYMS
)
7795 if (sec
->output_section
== bfd_abs_section_ptr
)
7798 /* Look through the section relocs. */
7799 if ((sec
->flags
& SEC_RELOC
) == 0 || sec
->reloc_count
== 0)
7803 symtab_hdr
= &elf_symtab_hdr (ibfd
);
7805 /* Read the relocations. */
7806 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
7808 if (relstart
== NULL
)
7811 /* First run through the relocs to check they are sane, and to
7812 determine whether we need to edit this opd section. */
7816 relend
= relstart
+ sec
->reloc_count
;
7817 for (rel
= relstart
; rel
< relend
; )
7819 enum elf_ppc64_reloc_type r_type
;
7820 unsigned long r_symndx
;
7822 struct elf_link_hash_entry
*h
;
7823 Elf_Internal_Sym
*sym
;
7826 /* .opd contains an array of 16 or 24 byte entries. We're
7827 only interested in the reloc pointing to a function entry
7829 offset
= rel
->r_offset
;
7830 if (rel
+ 1 == relend
7831 || rel
[1].r_offset
!= offset
+ 8)
7833 /* If someone messes with .opd alignment then after a
7834 "ld -r" we might have padding in the middle of .opd.
7835 Also, there's nothing to prevent someone putting
7836 something silly in .opd with the assembler. No .opd
7837 optimization for them! */
7839 (*_bfd_error_handler
)
7840 (_("%B: .opd is not a regular array of opd entries"), ibfd
);
7845 if ((r_type
= ELF64_R_TYPE (rel
->r_info
)) != R_PPC64_ADDR64
7846 || (r_type
= ELF64_R_TYPE ((rel
+ 1)->r_info
)) != R_PPC64_TOC
)
7848 (*_bfd_error_handler
)
7849 (_("%B: unexpected reloc type %u in .opd section"),
7855 r_symndx
= ELF64_R_SYM (rel
->r_info
);
7856 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
7860 if (sym_sec
== NULL
|| sym_sec
->owner
== NULL
)
7862 const char *sym_name
;
7864 sym_name
= h
->root
.root
.string
;
7866 sym_name
= bfd_elf_sym_name (ibfd
, symtab_hdr
, sym
,
7869 (*_bfd_error_handler
)
7870 (_("%B: undefined sym `%s' in .opd section"),
7876 /* opd entries are always for functions defined in the
7877 current input bfd. If the symbol isn't defined in the
7878 input bfd, then we won't be using the function in this
7879 bfd; It must be defined in a linkonce section in another
7880 bfd, or is weak. It's also possible that we are
7881 discarding the function due to a linker script /DISCARD/,
7882 which we test for via the output_section. */
7883 if (sym_sec
->owner
!= ibfd
7884 || sym_sec
->output_section
== bfd_abs_section_ptr
)
7888 if (rel
+ 1 == relend
7889 || (rel
+ 2 < relend
7890 && ELF64_R_TYPE (rel
[2].r_info
) == R_PPC64_TOC
))
7895 if (sec
->size
== offset
+ 24)
7900 if (sec
->size
== offset
+ 16)
7907 else if (rel
+ 1 < relend
7908 && ELF64_R_TYPE (rel
[0].r_info
) == R_PPC64_ADDR64
7909 && ELF64_R_TYPE (rel
[1].r_info
) == R_PPC64_TOC
)
7911 if (rel
[0].r_offset
== offset
+ 16)
7913 else if (rel
[0].r_offset
!= offset
+ 24)
7920 add_aux_fields
= htab
->params
->non_overlapping_opd
&& cnt_16b
> 0;
7922 if (!broken
&& (need_edit
|| add_aux_fields
))
7924 Elf_Internal_Rela
*write_rel
;
7925 Elf_Internal_Shdr
*rel_hdr
;
7926 bfd_byte
*rptr
, *wptr
;
7927 bfd_byte
*new_contents
;
7930 new_contents
= NULL
;
7931 amt
= OPD_NDX (sec
->size
) * sizeof (long);
7932 opd
= &ppc64_elf_section_data (sec
)->u
.opd
;
7933 opd
->adjust
= bfd_zalloc (sec
->owner
, amt
);
7934 if (opd
->adjust
== NULL
)
7936 ppc64_elf_section_data (sec
)->sec_type
= sec_opd
;
7938 /* This seems a waste of time as input .opd sections are all
7939 zeros as generated by gcc, but I suppose there's no reason
7940 this will always be so. We might start putting something in
7941 the third word of .opd entries. */
7942 if ((sec
->flags
& SEC_IN_MEMORY
) == 0)
7945 if (!bfd_malloc_and_get_section (ibfd
, sec
, &loc
))
7950 if (local_syms
!= NULL
7951 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
7953 if (elf_section_data (sec
)->relocs
!= relstart
)
7957 sec
->contents
= loc
;
7958 sec
->flags
|= (SEC_IN_MEMORY
| SEC_HAS_CONTENTS
);
7961 elf_section_data (sec
)->relocs
= relstart
;
7963 new_contents
= sec
->contents
;
7966 new_contents
= bfd_malloc (sec
->size
+ cnt_16b
* 8);
7967 if (new_contents
== NULL
)
7971 wptr
= new_contents
;
7972 rptr
= sec
->contents
;
7973 write_rel
= relstart
;
7974 for (rel
= relstart
; rel
< relend
; )
7976 unsigned long r_symndx
;
7978 struct elf_link_hash_entry
*h
;
7979 struct ppc_link_hash_entry
*fdh
= NULL
;
7980 Elf_Internal_Sym
*sym
;
7982 Elf_Internal_Rela
*next_rel
;
7985 r_symndx
= ELF64_R_SYM (rel
->r_info
);
7986 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
7991 if (next_rel
+ 1 == relend
7992 || (next_rel
+ 2 < relend
7993 && ELF64_R_TYPE (next_rel
[2].r_info
) == R_PPC64_TOC
))
7996 /* See if the .opd entry is full 24 byte or
7997 16 byte (with fd_aux entry overlapped with next
8000 if (next_rel
== relend
)
8002 if (sec
->size
== rel
->r_offset
+ 16)
8005 else if (next_rel
->r_offset
== rel
->r_offset
+ 16)
8009 && h
->root
.root
.string
[0] == '.')
8011 fdh
= lookup_fdh ((struct ppc_link_hash_entry
*) h
, htab
);
8013 && fdh
->elf
.root
.type
!= bfd_link_hash_defined
8014 && fdh
->elf
.root
.type
!= bfd_link_hash_defweak
)
8018 skip
= (sym_sec
->owner
!= ibfd
8019 || sym_sec
->output_section
== bfd_abs_section_ptr
);
8022 if (fdh
!= NULL
&& sym_sec
->owner
== ibfd
)
8024 /* Arrange for the function descriptor sym
8026 fdh
->elf
.root
.u
.def
.value
= 0;
8027 fdh
->elf
.root
.u
.def
.section
= sym_sec
;
8029 opd
->adjust
[OPD_NDX (rel
->r_offset
)] = -1;
8031 if (NO_OPD_RELOCS
|| bfd_link_relocatable (info
))
8036 if (!dec_dynrel_count (rel
->r_info
, sec
, info
,
8040 if (++rel
== next_rel
)
8043 r_symndx
= ELF64_R_SYM (rel
->r_info
);
8044 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
8051 /* We'll be keeping this opd entry. */
8056 /* Redefine the function descriptor symbol to
8057 this location in the opd section. It is
8058 necessary to update the value here rather
8059 than using an array of adjustments as we do
8060 for local symbols, because various places
8061 in the generic ELF code use the value
8062 stored in u.def.value. */
8063 fdh
->elf
.root
.u
.def
.value
= wptr
- new_contents
;
8064 fdh
->adjust_done
= 1;
8067 /* Local syms are a bit tricky. We could
8068 tweak them as they can be cached, but
8069 we'd need to look through the local syms
8070 for the function descriptor sym which we
8071 don't have at the moment. So keep an
8072 array of adjustments. */
8073 adjust
= (wptr
- new_contents
) - (rptr
- sec
->contents
);
8074 opd
->adjust
[OPD_NDX (rel
->r_offset
)] = adjust
;
8077 memcpy (wptr
, rptr
, opd_ent_size
);
8078 wptr
+= opd_ent_size
;
8079 if (add_aux_fields
&& opd_ent_size
== 16)
8081 memset (wptr
, '\0', 8);
8085 /* We need to adjust any reloc offsets to point to the
8087 for ( ; rel
!= next_rel
; ++rel
)
8089 rel
->r_offset
+= adjust
;
8090 if (write_rel
!= rel
)
8091 memcpy (write_rel
, rel
, sizeof (*rel
));
8096 rptr
+= opd_ent_size
;
8099 sec
->size
= wptr
- new_contents
;
8100 sec
->reloc_count
= write_rel
- relstart
;
8103 free (sec
->contents
);
8104 sec
->contents
= new_contents
;
8107 /* Fudge the header size too, as this is used later in
8108 elf_bfd_final_link if we are emitting relocs. */
8109 rel_hdr
= _bfd_elf_single_rel_hdr (sec
);
8110 rel_hdr
->sh_size
= sec
->reloc_count
* rel_hdr
->sh_entsize
;
8113 else if (elf_section_data (sec
)->relocs
!= relstart
)
8116 if (local_syms
!= NULL
8117 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
8119 if (!info
->keep_memory
)
8122 symtab_hdr
->contents
= (unsigned char *) local_syms
;
8127 elf_link_hash_traverse (elf_hash_table (info
), adjust_opd_syms
, NULL
);
8129 /* If we are doing a final link and the last .opd entry is just 16 byte
8130 long, add a 8 byte padding after it. */
8131 if (need_pad
!= NULL
&& !bfd_link_relocatable (info
))
8135 if ((need_pad
->flags
& SEC_IN_MEMORY
) == 0)
8137 BFD_ASSERT (need_pad
->size
> 0);
8139 p
= bfd_malloc (need_pad
->size
+ 8);
8143 if (! bfd_get_section_contents (need_pad
->owner
, need_pad
,
8144 p
, 0, need_pad
->size
))
8147 need_pad
->contents
= p
;
8148 need_pad
->flags
|= (SEC_IN_MEMORY
| SEC_HAS_CONTENTS
);
8152 p
= bfd_realloc (need_pad
->contents
, need_pad
->size
+ 8);
8156 need_pad
->contents
= p
;
8159 memset (need_pad
->contents
+ need_pad
->size
, 0, 8);
8160 need_pad
->size
+= 8;
8166 /* Set htab->tls_get_addr and call the generic ELF tls_setup function. */
8169 ppc64_elf_tls_setup (struct bfd_link_info
*info
)
8171 struct ppc_link_hash_table
*htab
;
8173 htab
= ppc_hash_table (info
);
8177 if (abiversion (info
->output_bfd
) == 1)
8180 if (htab
->params
->no_multi_toc
)
8181 htab
->do_multi_toc
= 0;
8182 else if (!htab
->do_multi_toc
)
8183 htab
->params
->no_multi_toc
= 1;
8185 htab
->tls_get_addr
= ((struct ppc_link_hash_entry
*)
8186 elf_link_hash_lookup (&htab
->elf
, ".__tls_get_addr",
8187 FALSE
, FALSE
, TRUE
));
8188 /* Move dynamic linking info to the function descriptor sym. */
8189 if (htab
->tls_get_addr
!= NULL
)
8190 func_desc_adjust (&htab
->tls_get_addr
->elf
, info
);
8191 htab
->tls_get_addr_fd
= ((struct ppc_link_hash_entry
*)
8192 elf_link_hash_lookup (&htab
->elf
, "__tls_get_addr",
8193 FALSE
, FALSE
, TRUE
));
8194 if (htab
->params
->tls_get_addr_opt
)
8196 struct elf_link_hash_entry
*opt
, *opt_fd
, *tga
, *tga_fd
;
8198 opt
= elf_link_hash_lookup (&htab
->elf
, ".__tls_get_addr_opt",
8199 FALSE
, FALSE
, TRUE
);
8201 func_desc_adjust (opt
, info
);
8202 opt_fd
= elf_link_hash_lookup (&htab
->elf
, "__tls_get_addr_opt",
8203 FALSE
, FALSE
, TRUE
);
8205 && (opt_fd
->root
.type
== bfd_link_hash_defined
8206 || opt_fd
->root
.type
== bfd_link_hash_defweak
))
8208 /* If glibc supports an optimized __tls_get_addr call stub,
8209 signalled by the presence of __tls_get_addr_opt, and we'll
8210 be calling __tls_get_addr via a plt call stub, then
8211 make __tls_get_addr point to __tls_get_addr_opt. */
8212 tga_fd
= &htab
->tls_get_addr_fd
->elf
;
8213 if (htab
->elf
.dynamic_sections_created
8215 && (tga_fd
->type
== STT_FUNC
8216 || tga_fd
->needs_plt
)
8217 && !(SYMBOL_CALLS_LOCAL (info
, tga_fd
)
8218 || (ELF_ST_VISIBILITY (tga_fd
->other
) != STV_DEFAULT
8219 && tga_fd
->root
.type
== bfd_link_hash_undefweak
)))
8221 struct plt_entry
*ent
;
8223 for (ent
= tga_fd
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
8224 if (ent
->plt
.refcount
> 0)
8228 tga_fd
->root
.type
= bfd_link_hash_indirect
;
8229 tga_fd
->root
.u
.i
.link
= &opt_fd
->root
;
8230 ppc64_elf_copy_indirect_symbol (info
, opt_fd
, tga_fd
);
8231 if (opt_fd
->dynindx
!= -1)
8233 /* Use __tls_get_addr_opt in dynamic relocations. */
8234 opt_fd
->dynindx
= -1;
8235 _bfd_elf_strtab_delref (elf_hash_table (info
)->dynstr
,
8236 opt_fd
->dynstr_index
);
8237 if (!bfd_elf_link_record_dynamic_symbol (info
, opt_fd
))
8240 htab
->tls_get_addr_fd
= (struct ppc_link_hash_entry
*) opt_fd
;
8241 tga
= &htab
->tls_get_addr
->elf
;
8242 if (opt
!= NULL
&& tga
!= NULL
)
8244 tga
->root
.type
= bfd_link_hash_indirect
;
8245 tga
->root
.u
.i
.link
= &opt
->root
;
8246 ppc64_elf_copy_indirect_symbol (info
, opt
, tga
);
8247 _bfd_elf_link_hash_hide_symbol (info
, opt
,
8249 htab
->tls_get_addr
= (struct ppc_link_hash_entry
*) opt
;
8251 htab
->tls_get_addr_fd
->oh
= htab
->tls_get_addr
;
8252 htab
->tls_get_addr_fd
->is_func_descriptor
= 1;
8253 if (htab
->tls_get_addr
!= NULL
)
8255 htab
->tls_get_addr
->oh
= htab
->tls_get_addr_fd
;
8256 htab
->tls_get_addr
->is_func
= 1;
8261 else if (htab
->params
->tls_get_addr_opt
< 0)
8262 htab
->params
->tls_get_addr_opt
= 0;
8264 return _bfd_elf_tls_setup (info
->output_bfd
, info
);
8267 /* Return TRUE iff REL is a branch reloc with a global symbol matching
8271 branch_reloc_hash_match (const bfd
*ibfd
,
8272 const Elf_Internal_Rela
*rel
,
8273 const struct ppc_link_hash_entry
*hash1
,
8274 const struct ppc_link_hash_entry
*hash2
)
8276 Elf_Internal_Shdr
*symtab_hdr
= &elf_symtab_hdr (ibfd
);
8277 enum elf_ppc64_reloc_type r_type
= ELF64_R_TYPE (rel
->r_info
);
8278 unsigned int r_symndx
= ELF64_R_SYM (rel
->r_info
);
8280 if (r_symndx
>= symtab_hdr
->sh_info
&& is_branch_reloc (r_type
))
8282 struct elf_link_hash_entry
**sym_hashes
= elf_sym_hashes (ibfd
);
8283 struct elf_link_hash_entry
*h
;
8285 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
8286 h
= elf_follow_link (h
);
8287 if (h
== &hash1
->elf
|| h
== &hash2
->elf
)
8293 /* Run through all the TLS relocs looking for optimization
8294 opportunities. The linker has been hacked (see ppc64elf.em) to do
8295 a preliminary section layout so that we know the TLS segment
8296 offsets. We can't optimize earlier because some optimizations need
8297 to know the tp offset, and we need to optimize before allocating
8298 dynamic relocations. */
8301 ppc64_elf_tls_optimize (struct bfd_link_info
*info
)
8305 struct ppc_link_hash_table
*htab
;
8306 unsigned char *toc_ref
;
8309 if (!bfd_link_executable (info
))
8312 htab
= ppc_hash_table (info
);
8316 /* Make two passes over the relocs. On the first pass, mark toc
8317 entries involved with tls relocs, and check that tls relocs
8318 involved in setting up a tls_get_addr call are indeed followed by
8319 such a call. If they are not, we can't do any tls optimization.
8320 On the second pass twiddle tls_mask flags to notify
8321 relocate_section that optimization can be done, and adjust got
8322 and plt refcounts. */
8324 for (pass
= 0; pass
< 2; ++pass
)
8325 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
8327 Elf_Internal_Sym
*locsyms
= NULL
;
8328 asection
*toc
= bfd_get_section_by_name (ibfd
, ".toc");
8330 for (sec
= ibfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8331 if (sec
->has_tls_reloc
&& !bfd_is_abs_section (sec
->output_section
))
8333 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
8334 bfd_boolean found_tls_get_addr_arg
= 0;
8336 /* Read the relocations. */
8337 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
8339 if (relstart
== NULL
)
8345 relend
= relstart
+ sec
->reloc_count
;
8346 for (rel
= relstart
; rel
< relend
; rel
++)
8348 enum elf_ppc64_reloc_type r_type
;
8349 unsigned long r_symndx
;
8350 struct elf_link_hash_entry
*h
;
8351 Elf_Internal_Sym
*sym
;
8353 unsigned char *tls_mask
;
8354 unsigned char tls_set
, tls_clear
, tls_type
= 0;
8356 bfd_boolean ok_tprel
, is_local
;
8357 long toc_ref_index
= 0;
8358 int expecting_tls_get_addr
= 0;
8359 bfd_boolean ret
= FALSE
;
8361 r_symndx
= ELF64_R_SYM (rel
->r_info
);
8362 if (!get_sym_h (&h
, &sym
, &sym_sec
, &tls_mask
, &locsyms
,
8366 if (elf_section_data (sec
)->relocs
!= relstart
)
8368 if (toc_ref
!= NULL
)
8371 && (elf_symtab_hdr (ibfd
).contents
8372 != (unsigned char *) locsyms
))
8379 if (h
->root
.type
== bfd_link_hash_defined
8380 || h
->root
.type
== bfd_link_hash_defweak
)
8381 value
= h
->root
.u
.def
.value
;
8382 else if (h
->root
.type
== bfd_link_hash_undefweak
)
8386 found_tls_get_addr_arg
= 0;
8391 /* Symbols referenced by TLS relocs must be of type
8392 STT_TLS. So no need for .opd local sym adjust. */
8393 value
= sym
->st_value
;
8402 && h
->root
.type
== bfd_link_hash_undefweak
)
8404 else if (sym_sec
!= NULL
8405 && sym_sec
->output_section
!= NULL
)
8407 value
+= sym_sec
->output_offset
;
8408 value
+= sym_sec
->output_section
->vma
;
8409 value
-= htab
->elf
.tls_sec
->vma
;
8410 ok_tprel
= (value
+ TP_OFFSET
+ ((bfd_vma
) 1 << 31)
8411 < (bfd_vma
) 1 << 32);
8415 r_type
= ELF64_R_TYPE (rel
->r_info
);
8416 /* If this section has old-style __tls_get_addr calls
8417 without marker relocs, then check that each
8418 __tls_get_addr call reloc is preceded by a reloc
8419 that conceivably belongs to the __tls_get_addr arg
8420 setup insn. If we don't find matching arg setup
8421 relocs, don't do any tls optimization. */
8423 && sec
->has_tls_get_addr_call
8425 && (h
== &htab
->tls_get_addr
->elf
8426 || h
== &htab
->tls_get_addr_fd
->elf
)
8427 && !found_tls_get_addr_arg
8428 && is_branch_reloc (r_type
))
8430 info
->callbacks
->minfo (_("%H __tls_get_addr lost arg, "
8431 "TLS optimization disabled\n"),
8432 ibfd
, sec
, rel
->r_offset
);
8437 found_tls_get_addr_arg
= 0;
8440 case R_PPC64_GOT_TLSLD16
:
8441 case R_PPC64_GOT_TLSLD16_LO
:
8442 expecting_tls_get_addr
= 1;
8443 found_tls_get_addr_arg
= 1;
8446 case R_PPC64_GOT_TLSLD16_HI
:
8447 case R_PPC64_GOT_TLSLD16_HA
:
8448 /* These relocs should never be against a symbol
8449 defined in a shared lib. Leave them alone if
8450 that turns out to be the case. */
8457 tls_type
= TLS_TLS
| TLS_LD
;
8460 case R_PPC64_GOT_TLSGD16
:
8461 case R_PPC64_GOT_TLSGD16_LO
:
8462 expecting_tls_get_addr
= 1;
8463 found_tls_get_addr_arg
= 1;
8466 case R_PPC64_GOT_TLSGD16_HI
:
8467 case R_PPC64_GOT_TLSGD16_HA
:
8473 tls_set
= TLS_TLS
| TLS_TPRELGD
;
8475 tls_type
= TLS_TLS
| TLS_GD
;
8478 case R_PPC64_GOT_TPREL16_DS
:
8479 case R_PPC64_GOT_TPREL16_LO_DS
:
8480 case R_PPC64_GOT_TPREL16_HI
:
8481 case R_PPC64_GOT_TPREL16_HA
:
8486 tls_clear
= TLS_TPREL
;
8487 tls_type
= TLS_TLS
| TLS_TPREL
;
8494 found_tls_get_addr_arg
= 1;
8499 case R_PPC64_TOC16_LO
:
8500 if (sym_sec
== NULL
|| sym_sec
!= toc
)
8503 /* Mark this toc entry as referenced by a TLS
8504 code sequence. We can do that now in the
8505 case of R_PPC64_TLS, and after checking for
8506 tls_get_addr for the TOC16 relocs. */
8507 if (toc_ref
== NULL
)
8508 toc_ref
= bfd_zmalloc (toc
->output_section
->rawsize
/ 8);
8509 if (toc_ref
== NULL
)
8513 value
= h
->root
.u
.def
.value
;
8515 value
= sym
->st_value
;
8516 value
+= rel
->r_addend
;
8519 BFD_ASSERT (value
< toc
->size
8520 && toc
->output_offset
% 8 == 0);
8521 toc_ref_index
= (value
+ toc
->output_offset
) / 8;
8522 if (r_type
== R_PPC64_TLS
8523 || r_type
== R_PPC64_TLSGD
8524 || r_type
== R_PPC64_TLSLD
)
8526 toc_ref
[toc_ref_index
] = 1;
8530 if (pass
!= 0 && toc_ref
[toc_ref_index
] == 0)
8535 expecting_tls_get_addr
= 2;
8538 case R_PPC64_TPREL64
:
8542 || !toc_ref
[(rel
->r_offset
+ toc
->output_offset
) / 8])
8547 tls_set
= TLS_EXPLICIT
;
8548 tls_clear
= TLS_TPREL
;
8553 case R_PPC64_DTPMOD64
:
8557 || !toc_ref
[(rel
->r_offset
+ toc
->output_offset
) / 8])
8559 if (rel
+ 1 < relend
8561 == ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
))
8562 && rel
[1].r_offset
== rel
->r_offset
+ 8)
8566 tls_set
= TLS_EXPLICIT
| TLS_GD
;
8569 tls_set
= TLS_EXPLICIT
| TLS_GD
| TLS_TPRELGD
;
8578 tls_set
= TLS_EXPLICIT
;
8589 if (!expecting_tls_get_addr
8590 || !sec
->has_tls_get_addr_call
)
8593 if (rel
+ 1 < relend
8594 && branch_reloc_hash_match (ibfd
, rel
+ 1,
8596 htab
->tls_get_addr_fd
))
8598 if (expecting_tls_get_addr
== 2)
8600 /* Check for toc tls entries. */
8601 unsigned char *toc_tls
;
8604 retval
= get_tls_mask (&toc_tls
, NULL
, NULL
,
8609 if (toc_tls
!= NULL
)
8611 if ((*toc_tls
& (TLS_GD
| TLS_LD
)) != 0)
8612 found_tls_get_addr_arg
= 1;
8614 toc_ref
[toc_ref_index
] = 1;
8620 if (expecting_tls_get_addr
!= 1)
8623 /* Uh oh, we didn't find the expected call. We
8624 could just mark this symbol to exclude it
8625 from tls optimization but it's safer to skip
8626 the entire optimization. */
8627 info
->callbacks
->minfo (_("%H arg lost __tls_get_addr, "
8628 "TLS optimization disabled\n"),
8629 ibfd
, sec
, rel
->r_offset
);
8634 if (expecting_tls_get_addr
&& htab
->tls_get_addr
!= NULL
)
8636 struct plt_entry
*ent
;
8637 for (ent
= htab
->tls_get_addr
->elf
.plt
.plist
;
8640 if (ent
->addend
== 0)
8642 if (ent
->plt
.refcount
> 0)
8644 ent
->plt
.refcount
-= 1;
8645 expecting_tls_get_addr
= 0;
8651 if (expecting_tls_get_addr
&& htab
->tls_get_addr_fd
!= NULL
)
8653 struct plt_entry
*ent
;
8654 for (ent
= htab
->tls_get_addr_fd
->elf
.plt
.plist
;
8657 if (ent
->addend
== 0)
8659 if (ent
->plt
.refcount
> 0)
8660 ent
->plt
.refcount
-= 1;
8668 if ((tls_set
& TLS_EXPLICIT
) == 0)
8670 struct got_entry
*ent
;
8672 /* Adjust got entry for this reloc. */
8676 ent
= elf_local_got_ents (ibfd
)[r_symndx
];
8678 for (; ent
!= NULL
; ent
= ent
->next
)
8679 if (ent
->addend
== rel
->r_addend
8680 && ent
->owner
== ibfd
8681 && ent
->tls_type
== tls_type
)
8688 /* We managed to get rid of a got entry. */
8689 if (ent
->got
.refcount
> 0)
8690 ent
->got
.refcount
-= 1;
8695 /* If we got rid of a DTPMOD/DTPREL reloc pair then
8696 we'll lose one or two dyn relocs. */
8697 if (!dec_dynrel_count (rel
->r_info
, sec
, info
,
8701 if (tls_set
== (TLS_EXPLICIT
| TLS_GD
))
8703 if (!dec_dynrel_count ((rel
+ 1)->r_info
, sec
, info
,
8709 *tls_mask
|= tls_set
;
8710 *tls_mask
&= ~tls_clear
;
8713 if (elf_section_data (sec
)->relocs
!= relstart
)
8718 && (elf_symtab_hdr (ibfd
).contents
!= (unsigned char *) locsyms
))
8720 if (!info
->keep_memory
)
8723 elf_symtab_hdr (ibfd
).contents
= (unsigned char *) locsyms
;
8727 if (toc_ref
!= NULL
)
8732 /* Called via elf_link_hash_traverse from ppc64_elf_edit_toc to adjust
8733 the values of any global symbols in a toc section that has been
8734 edited. Globals in toc sections should be a rarity, so this function
8735 sets a flag if any are found in toc sections other than the one just
8736 edited, so that futher hash table traversals can be avoided. */
8738 struct adjust_toc_info
8741 unsigned long *skip
;
8742 bfd_boolean global_toc_syms
;
8745 enum toc_skip_enum
{ ref_from_discarded
= 1, can_optimize
= 2 };
8748 adjust_toc_syms (struct elf_link_hash_entry
*h
, void *inf
)
8750 struct ppc_link_hash_entry
*eh
;
8751 struct adjust_toc_info
*toc_inf
= (struct adjust_toc_info
*) inf
;
8754 if (h
->root
.type
!= bfd_link_hash_defined
8755 && h
->root
.type
!= bfd_link_hash_defweak
)
8758 eh
= (struct ppc_link_hash_entry
*) h
;
8759 if (eh
->adjust_done
)
8762 if (eh
->elf
.root
.u
.def
.section
== toc_inf
->toc
)
8764 if (eh
->elf
.root
.u
.def
.value
> toc_inf
->toc
->rawsize
)
8765 i
= toc_inf
->toc
->rawsize
>> 3;
8767 i
= eh
->elf
.root
.u
.def
.value
>> 3;
8769 if ((toc_inf
->skip
[i
] & (ref_from_discarded
| can_optimize
)) != 0)
8771 (*_bfd_error_handler
)
8772 (_("%s defined on removed toc entry"), eh
->elf
.root
.root
.string
);
8775 while ((toc_inf
->skip
[i
] & (ref_from_discarded
| can_optimize
)) != 0);
8776 eh
->elf
.root
.u
.def
.value
= (bfd_vma
) i
<< 3;
8779 eh
->elf
.root
.u
.def
.value
-= toc_inf
->skip
[i
];
8780 eh
->adjust_done
= 1;
8782 else if (strcmp (eh
->elf
.root
.u
.def
.section
->name
, ".toc") == 0)
8783 toc_inf
->global_toc_syms
= TRUE
;
8788 /* Return TRUE iff INSN is one we expect on a _LO variety toc/got reloc. */
8791 ok_lo_toc_insn (unsigned int insn
)
8793 return ((insn
& (0x3f << 26)) == 14u << 26 /* addi */
8794 || (insn
& (0x3f << 26)) == 32u << 26 /* lwz */
8795 || (insn
& (0x3f << 26)) == 34u << 26 /* lbz */
8796 || (insn
& (0x3f << 26)) == 36u << 26 /* stw */
8797 || (insn
& (0x3f << 26)) == 38u << 26 /* stb */
8798 || (insn
& (0x3f << 26)) == 40u << 26 /* lhz */
8799 || (insn
& (0x3f << 26)) == 42u << 26 /* lha */
8800 || (insn
& (0x3f << 26)) == 44u << 26 /* sth */
8801 || (insn
& (0x3f << 26)) == 46u << 26 /* lmw */
8802 || (insn
& (0x3f << 26)) == 47u << 26 /* stmw */
8803 || (insn
& (0x3f << 26)) == 48u << 26 /* lfs */
8804 || (insn
& (0x3f << 26)) == 50u << 26 /* lfd */
8805 || (insn
& (0x3f << 26)) == 52u << 26 /* stfs */
8806 || (insn
& (0x3f << 26)) == 54u << 26 /* stfd */
8807 || ((insn
& (0x3f << 26)) == 58u << 26 /* lwa,ld,lmd */
8809 || ((insn
& (0x3f << 26)) == 62u << 26 /* std, stmd */
8810 && ((insn
& 3) == 0 || (insn
& 3) == 3))
8811 || (insn
& (0x3f << 26)) == 12u << 26 /* addic */);
8814 /* Examine all relocs referencing .toc sections in order to remove
8815 unused .toc entries. */
8818 ppc64_elf_edit_toc (struct bfd_link_info
*info
)
8821 struct adjust_toc_info toc_inf
;
8822 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
8824 htab
->do_toc_opt
= 1;
8825 toc_inf
.global_toc_syms
= TRUE
;
8826 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
8828 asection
*toc
, *sec
;
8829 Elf_Internal_Shdr
*symtab_hdr
;
8830 Elf_Internal_Sym
*local_syms
;
8831 Elf_Internal_Rela
*relstart
, *rel
, *toc_relocs
;
8832 unsigned long *skip
, *drop
;
8833 unsigned char *used
;
8834 unsigned char *keep
, last
, some_unused
;
8836 if (!is_ppc64_elf (ibfd
))
8839 toc
= bfd_get_section_by_name (ibfd
, ".toc");
8842 || toc
->sec_info_type
== SEC_INFO_TYPE_JUST_SYMS
8843 || discarded_section (toc
))
8848 symtab_hdr
= &elf_symtab_hdr (ibfd
);
8850 /* Look at sections dropped from the final link. */
8853 for (sec
= ibfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8855 if (sec
->reloc_count
== 0
8856 || !discarded_section (sec
)
8857 || get_opd_info (sec
)
8858 || (sec
->flags
& SEC_ALLOC
) == 0
8859 || (sec
->flags
& SEC_DEBUGGING
) != 0)
8862 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
, FALSE
);
8863 if (relstart
== NULL
)
8866 /* Run through the relocs to see which toc entries might be
8868 for (rel
= relstart
; rel
< relstart
+ sec
->reloc_count
; ++rel
)
8870 enum elf_ppc64_reloc_type r_type
;
8871 unsigned long r_symndx
;
8873 struct elf_link_hash_entry
*h
;
8874 Elf_Internal_Sym
*sym
;
8877 r_type
= ELF64_R_TYPE (rel
->r_info
);
8884 case R_PPC64_TOC16_LO
:
8885 case R_PPC64_TOC16_HI
:
8886 case R_PPC64_TOC16_HA
:
8887 case R_PPC64_TOC16_DS
:
8888 case R_PPC64_TOC16_LO_DS
:
8892 r_symndx
= ELF64_R_SYM (rel
->r_info
);
8893 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
8901 val
= h
->root
.u
.def
.value
;
8903 val
= sym
->st_value
;
8904 val
+= rel
->r_addend
;
8906 if (val
>= toc
->size
)
8909 /* Anything in the toc ought to be aligned to 8 bytes.
8910 If not, don't mark as unused. */
8916 skip
= bfd_zmalloc (sizeof (*skip
) * (toc
->size
+ 15) / 8);
8921 skip
[val
>> 3] = ref_from_discarded
;
8924 if (elf_section_data (sec
)->relocs
!= relstart
)
8928 /* For largetoc loads of address constants, we can convert
8929 . addis rx,2,addr@got@ha
8930 . ld ry,addr@got@l(rx)
8932 . addis rx,2,addr@toc@ha
8933 . addi ry,rx,addr@toc@l
8934 when addr is within 2G of the toc pointer. This then means
8935 that the word storing "addr" in the toc is no longer needed. */
8937 if (!ppc64_elf_tdata (ibfd
)->has_small_toc_reloc
8938 && toc
->output_section
->rawsize
< (bfd_vma
) 1 << 31
8939 && toc
->reloc_count
!= 0)
8941 /* Read toc relocs. */
8942 toc_relocs
= _bfd_elf_link_read_relocs (ibfd
, toc
, NULL
, NULL
,
8944 if (toc_relocs
== NULL
)
8947 for (rel
= toc_relocs
; rel
< toc_relocs
+ toc
->reloc_count
; ++rel
)
8949 enum elf_ppc64_reloc_type r_type
;
8950 unsigned long r_symndx
;
8952 struct elf_link_hash_entry
*h
;
8953 Elf_Internal_Sym
*sym
;
8956 r_type
= ELF64_R_TYPE (rel
->r_info
);
8957 if (r_type
!= R_PPC64_ADDR64
)
8960 r_symndx
= ELF64_R_SYM (rel
->r_info
);
8961 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
8966 || sym_sec
->output_section
== NULL
8967 || discarded_section (sym_sec
))
8970 if (!SYMBOL_REFERENCES_LOCAL (info
, h
))
8975 if (h
->type
== STT_GNU_IFUNC
)
8977 val
= h
->root
.u
.def
.value
;
8981 if (ELF_ST_TYPE (sym
->st_info
) == STT_GNU_IFUNC
)
8983 val
= sym
->st_value
;
8985 val
+= rel
->r_addend
;
8986 val
+= sym_sec
->output_section
->vma
+ sym_sec
->output_offset
;
8988 /* We don't yet know the exact toc pointer value, but we
8989 know it will be somewhere in the toc section. Don't
8990 optimize if the difference from any possible toc
8991 pointer is outside [ff..f80008000, 7fff7fff]. */
8992 addr
= toc
->output_section
->vma
+ TOC_BASE_OFF
;
8993 if (val
- addr
+ (bfd_vma
) 0x80008000 >= (bfd_vma
) 1 << 32)
8996 addr
= toc
->output_section
->vma
+ toc
->output_section
->rawsize
;
8997 if (val
- addr
+ (bfd_vma
) 0x80008000 >= (bfd_vma
) 1 << 32)
9002 skip
= bfd_zmalloc (sizeof (*skip
) * (toc
->size
+ 15) / 8);
9007 skip
[rel
->r_offset
>> 3]
9008 |= can_optimize
| ((rel
- toc_relocs
) << 2);
9015 used
= bfd_zmalloc (sizeof (*used
) * (toc
->size
+ 7) / 8);
9019 if (local_syms
!= NULL
9020 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
9024 && elf_section_data (sec
)->relocs
!= relstart
)
9026 if (toc_relocs
!= NULL
9027 && elf_section_data (toc
)->relocs
!= toc_relocs
)
9034 /* Now check all kept sections that might reference the toc.
9035 Check the toc itself last. */
9036 for (sec
= (ibfd
->sections
== toc
&& toc
->next
? toc
->next
9039 sec
= (sec
== toc
? NULL
9040 : sec
->next
== NULL
? toc
9041 : sec
->next
== toc
&& toc
->next
? toc
->next
9046 if (sec
->reloc_count
== 0
9047 || discarded_section (sec
)
9048 || get_opd_info (sec
)
9049 || (sec
->flags
& SEC_ALLOC
) == 0
9050 || (sec
->flags
& SEC_DEBUGGING
) != 0)
9053 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
9055 if (relstart
== NULL
)
9061 /* Mark toc entries referenced as used. */
9065 for (rel
= relstart
; rel
< relstart
+ sec
->reloc_count
; ++rel
)
9067 enum elf_ppc64_reloc_type r_type
;
9068 unsigned long r_symndx
;
9070 struct elf_link_hash_entry
*h
;
9071 Elf_Internal_Sym
*sym
;
9073 enum {no_check
, check_lo
, check_ha
} insn_check
;
9075 r_type
= ELF64_R_TYPE (rel
->r_info
);
9079 insn_check
= no_check
;
9082 case R_PPC64_GOT_TLSLD16_HA
:
9083 case R_PPC64_GOT_TLSGD16_HA
:
9084 case R_PPC64_GOT_TPREL16_HA
:
9085 case R_PPC64_GOT_DTPREL16_HA
:
9086 case R_PPC64_GOT16_HA
:
9087 case R_PPC64_TOC16_HA
:
9088 insn_check
= check_ha
;
9091 case R_PPC64_GOT_TLSLD16_LO
:
9092 case R_PPC64_GOT_TLSGD16_LO
:
9093 case R_PPC64_GOT_TPREL16_LO_DS
:
9094 case R_PPC64_GOT_DTPREL16_LO_DS
:
9095 case R_PPC64_GOT16_LO
:
9096 case R_PPC64_GOT16_LO_DS
:
9097 case R_PPC64_TOC16_LO
:
9098 case R_PPC64_TOC16_LO_DS
:
9099 insn_check
= check_lo
;
9103 if (insn_check
!= no_check
)
9105 bfd_vma off
= rel
->r_offset
& ~3;
9106 unsigned char buf
[4];
9109 if (!bfd_get_section_contents (ibfd
, sec
, buf
, off
, 4))
9114 insn
= bfd_get_32 (ibfd
, buf
);
9115 if (insn_check
== check_lo
9116 ? !ok_lo_toc_insn (insn
)
9117 : ((insn
& ((0x3f << 26) | 0x1f << 16))
9118 != ((15u << 26) | (2 << 16)) /* addis rt,2,imm */))
9122 ppc64_elf_tdata (ibfd
)->unexpected_toc_insn
= 1;
9123 sprintf (str
, "%#08x", insn
);
9124 info
->callbacks
->einfo
9125 (_("%P: %H: toc optimization is not supported for"
9126 " %s instruction.\n"),
9127 ibfd
, sec
, rel
->r_offset
& ~3, str
);
9134 case R_PPC64_TOC16_LO
:
9135 case R_PPC64_TOC16_HI
:
9136 case R_PPC64_TOC16_HA
:
9137 case R_PPC64_TOC16_DS
:
9138 case R_PPC64_TOC16_LO_DS
:
9139 /* In case we're taking addresses of toc entries. */
9140 case R_PPC64_ADDR64
:
9147 r_symndx
= ELF64_R_SYM (rel
->r_info
);
9148 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
9159 val
= h
->root
.u
.def
.value
;
9161 val
= sym
->st_value
;
9162 val
+= rel
->r_addend
;
9164 if (val
>= toc
->size
)
9167 if ((skip
[val
>> 3] & can_optimize
) != 0)
9174 case R_PPC64_TOC16_HA
:
9177 case R_PPC64_TOC16_LO_DS
:
9178 off
= rel
->r_offset
;
9179 off
+= (bfd_big_endian (ibfd
) ? -2 : 3);
9180 if (!bfd_get_section_contents (ibfd
, sec
, &opc
,
9186 if ((opc
& (0x3f << 2)) == (58u << 2))
9191 /* Wrong sort of reloc, or not a ld. We may
9192 as well clear ref_from_discarded too. */
9199 /* For the toc section, we only mark as used if this
9200 entry itself isn't unused. */
9201 else if ((used
[rel
->r_offset
>> 3]
9202 || !(skip
[rel
->r_offset
>> 3] & ref_from_discarded
))
9205 /* Do all the relocs again, to catch reference
9214 if (elf_section_data (sec
)->relocs
!= relstart
)
9218 /* Merge the used and skip arrays. Assume that TOC
9219 doublewords not appearing as either used or unused belong
9220 to to an entry more than one doubleword in size. */
9221 for (drop
= skip
, keep
= used
, last
= 0, some_unused
= 0;
9222 drop
< skip
+ (toc
->size
+ 7) / 8;
9227 *drop
&= ~ref_from_discarded
;
9228 if ((*drop
& can_optimize
) != 0)
9232 else if ((*drop
& ref_from_discarded
) != 0)
9235 last
= ref_from_discarded
;
9245 bfd_byte
*contents
, *src
;
9247 Elf_Internal_Sym
*sym
;
9248 bfd_boolean local_toc_syms
= FALSE
;
9250 /* Shuffle the toc contents, and at the same time convert the
9251 skip array from booleans into offsets. */
9252 if (!bfd_malloc_and_get_section (ibfd
, toc
, &contents
))
9255 elf_section_data (toc
)->this_hdr
.contents
= contents
;
9257 for (src
= contents
, off
= 0, drop
= skip
;
9258 src
< contents
+ toc
->size
;
9261 if ((*drop
& (can_optimize
| ref_from_discarded
)) != 0)
9266 memcpy (src
- off
, src
, 8);
9270 toc
->rawsize
= toc
->size
;
9271 toc
->size
= src
- contents
- off
;
9273 /* Adjust addends for relocs against the toc section sym,
9274 and optimize any accesses we can. */
9275 for (sec
= ibfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
9277 if (sec
->reloc_count
== 0
9278 || discarded_section (sec
))
9281 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
9283 if (relstart
== NULL
)
9286 for (rel
= relstart
; rel
< relstart
+ sec
->reloc_count
; ++rel
)
9288 enum elf_ppc64_reloc_type r_type
;
9289 unsigned long r_symndx
;
9291 struct elf_link_hash_entry
*h
;
9294 r_type
= ELF64_R_TYPE (rel
->r_info
);
9301 case R_PPC64_TOC16_LO
:
9302 case R_PPC64_TOC16_HI
:
9303 case R_PPC64_TOC16_HA
:
9304 case R_PPC64_TOC16_DS
:
9305 case R_PPC64_TOC16_LO_DS
:
9306 case R_PPC64_ADDR64
:
9310 r_symndx
= ELF64_R_SYM (rel
->r_info
);
9311 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
9319 val
= h
->root
.u
.def
.value
;
9322 val
= sym
->st_value
;
9324 local_toc_syms
= TRUE
;
9327 val
+= rel
->r_addend
;
9329 if (val
> toc
->rawsize
)
9331 else if ((skip
[val
>> 3] & ref_from_discarded
) != 0)
9333 else if ((skip
[val
>> 3] & can_optimize
) != 0)
9335 Elf_Internal_Rela
*tocrel
9336 = toc_relocs
+ (skip
[val
>> 3] >> 2);
9337 unsigned long tsym
= ELF64_R_SYM (tocrel
->r_info
);
9341 case R_PPC64_TOC16_HA
:
9342 rel
->r_info
= ELF64_R_INFO (tsym
, R_PPC64_TOC16_HA
);
9345 case R_PPC64_TOC16_LO_DS
:
9346 rel
->r_info
= ELF64_R_INFO (tsym
, R_PPC64_LO_DS_OPT
);
9350 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
9352 info
->callbacks
->einfo
9353 (_("%P: %H: %s references "
9354 "optimized away TOC entry\n"),
9355 ibfd
, sec
, rel
->r_offset
,
9356 ppc64_elf_howto_table
[r_type
]->name
);
9357 bfd_set_error (bfd_error_bad_value
);
9360 rel
->r_addend
= tocrel
->r_addend
;
9361 elf_section_data (sec
)->relocs
= relstart
;
9365 if (h
!= NULL
|| sym
->st_value
!= 0)
9368 rel
->r_addend
-= skip
[val
>> 3];
9369 elf_section_data (sec
)->relocs
= relstart
;
9372 if (elf_section_data (sec
)->relocs
!= relstart
)
9376 /* We shouldn't have local or global symbols defined in the TOC,
9377 but handle them anyway. */
9378 if (local_syms
!= NULL
)
9379 for (sym
= local_syms
;
9380 sym
< local_syms
+ symtab_hdr
->sh_info
;
9382 if (sym
->st_value
!= 0
9383 && bfd_section_from_elf_index (ibfd
, sym
->st_shndx
) == toc
)
9387 if (sym
->st_value
> toc
->rawsize
)
9388 i
= toc
->rawsize
>> 3;
9390 i
= sym
->st_value
>> 3;
9392 if ((skip
[i
] & (ref_from_discarded
| can_optimize
)) != 0)
9395 (*_bfd_error_handler
)
9396 (_("%s defined on removed toc entry"),
9397 bfd_elf_sym_name (ibfd
, symtab_hdr
, sym
, NULL
));
9400 while ((skip
[i
] & (ref_from_discarded
| can_optimize
)));
9401 sym
->st_value
= (bfd_vma
) i
<< 3;
9404 sym
->st_value
-= skip
[i
];
9405 symtab_hdr
->contents
= (unsigned char *) local_syms
;
9408 /* Adjust any global syms defined in this toc input section. */
9409 if (toc_inf
.global_toc_syms
)
9412 toc_inf
.skip
= skip
;
9413 toc_inf
.global_toc_syms
= FALSE
;
9414 elf_link_hash_traverse (elf_hash_table (info
), adjust_toc_syms
,
9418 if (toc
->reloc_count
!= 0)
9420 Elf_Internal_Shdr
*rel_hdr
;
9421 Elf_Internal_Rela
*wrel
;
9424 /* Remove unused toc relocs, and adjust those we keep. */
9425 if (toc_relocs
== NULL
)
9426 toc_relocs
= _bfd_elf_link_read_relocs (ibfd
, toc
, NULL
, NULL
,
9428 if (toc_relocs
== NULL
)
9432 for (rel
= toc_relocs
; rel
< toc_relocs
+ toc
->reloc_count
; ++rel
)
9433 if ((skip
[rel
->r_offset
>> 3]
9434 & (ref_from_discarded
| can_optimize
)) == 0)
9436 wrel
->r_offset
= rel
->r_offset
- skip
[rel
->r_offset
>> 3];
9437 wrel
->r_info
= rel
->r_info
;
9438 wrel
->r_addend
= rel
->r_addend
;
9441 else if (!dec_dynrel_count (rel
->r_info
, toc
, info
,
9442 &local_syms
, NULL
, NULL
))
9445 elf_section_data (toc
)->relocs
= toc_relocs
;
9446 toc
->reloc_count
= wrel
- toc_relocs
;
9447 rel_hdr
= _bfd_elf_single_rel_hdr (toc
);
9448 sz
= rel_hdr
->sh_entsize
;
9449 rel_hdr
->sh_size
= toc
->reloc_count
* sz
;
9452 else if (toc_relocs
!= NULL
9453 && elf_section_data (toc
)->relocs
!= toc_relocs
)
9456 if (local_syms
!= NULL
9457 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
9459 if (!info
->keep_memory
)
9462 symtab_hdr
->contents
= (unsigned char *) local_syms
;
9470 /* Return true iff input section I references the TOC using
9471 instructions limited to +/-32k offsets. */
9474 ppc64_elf_has_small_toc_reloc (asection
*i
)
9476 return (is_ppc64_elf (i
->owner
)
9477 && ppc64_elf_tdata (i
->owner
)->has_small_toc_reloc
);
9480 /* Allocate space for one GOT entry. */
9483 allocate_got (struct elf_link_hash_entry
*h
,
9484 struct bfd_link_info
*info
,
9485 struct got_entry
*gent
)
9487 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
9489 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) h
;
9490 int entsize
= (gent
->tls_type
& eh
->tls_mask
& (TLS_GD
| TLS_LD
)
9492 int rentsize
= (gent
->tls_type
& eh
->tls_mask
& TLS_GD
9493 ? 2 : 1) * sizeof (Elf64_External_Rela
);
9494 asection
*got
= ppc64_elf_tdata (gent
->owner
)->got
;
9496 gent
->got
.offset
= got
->size
;
9497 got
->size
+= entsize
;
9499 dyn
= htab
->elf
.dynamic_sections_created
;
9500 if (h
->type
== STT_GNU_IFUNC
)
9502 htab
->elf
.irelplt
->size
+= rentsize
;
9503 htab
->got_reli_size
+= rentsize
;
9505 else if ((bfd_link_pic (info
)
9506 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, 0, h
))
9507 && (ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
9508 || h
->root
.type
!= bfd_link_hash_undefweak
))
9510 asection
*relgot
= ppc64_elf_tdata (gent
->owner
)->relgot
;
9511 relgot
->size
+= rentsize
;
9515 /* This function merges got entries in the same toc group. */
9518 merge_got_entries (struct got_entry
**pent
)
9520 struct got_entry
*ent
, *ent2
;
9522 for (ent
= *pent
; ent
!= NULL
; ent
= ent
->next
)
9523 if (!ent
->is_indirect
)
9524 for (ent2
= ent
->next
; ent2
!= NULL
; ent2
= ent2
->next
)
9525 if (!ent2
->is_indirect
9526 && ent2
->addend
== ent
->addend
9527 && ent2
->tls_type
== ent
->tls_type
9528 && elf_gp (ent2
->owner
) == elf_gp (ent
->owner
))
9530 ent2
->is_indirect
= TRUE
;
9531 ent2
->got
.ent
= ent
;
9535 /* Allocate space in .plt, .got and associated reloc sections for
9539 allocate_dynrelocs (struct elf_link_hash_entry
*h
, void *inf
)
9541 struct bfd_link_info
*info
;
9542 struct ppc_link_hash_table
*htab
;
9544 struct ppc_link_hash_entry
*eh
;
9545 struct elf_dyn_relocs
*p
;
9546 struct got_entry
**pgent
, *gent
;
9548 if (h
->root
.type
== bfd_link_hash_indirect
)
9551 info
= (struct bfd_link_info
*) inf
;
9552 htab
= ppc_hash_table (info
);
9556 if ((htab
->elf
.dynamic_sections_created
9558 && WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info
), h
))
9559 || h
->type
== STT_GNU_IFUNC
)
9561 struct plt_entry
*pent
;
9562 bfd_boolean doneone
= FALSE
;
9563 for (pent
= h
->plt
.plist
; pent
!= NULL
; pent
= pent
->next
)
9564 if (pent
->plt
.refcount
> 0)
9566 if (!htab
->elf
.dynamic_sections_created
9567 || h
->dynindx
== -1)
9570 pent
->plt
.offset
= s
->size
;
9571 s
->size
+= PLT_ENTRY_SIZE (htab
);
9572 s
= htab
->elf
.irelplt
;
9576 /* If this is the first .plt entry, make room for the special
9580 s
->size
+= PLT_INITIAL_ENTRY_SIZE (htab
);
9582 pent
->plt
.offset
= s
->size
;
9584 /* Make room for this entry. */
9585 s
->size
+= PLT_ENTRY_SIZE (htab
);
9587 /* Make room for the .glink code. */
9590 s
->size
+= GLINK_CALL_STUB_SIZE
;
9593 /* We need bigger stubs past index 32767. */
9594 if (s
->size
>= GLINK_CALL_STUB_SIZE
+ 32768*2*4)
9601 /* We also need to make an entry in the .rela.plt section. */
9602 s
= htab
->elf
.srelplt
;
9604 s
->size
+= sizeof (Elf64_External_Rela
);
9608 pent
->plt
.offset
= (bfd_vma
) -1;
9611 h
->plt
.plist
= NULL
;
9617 h
->plt
.plist
= NULL
;
9621 eh
= (struct ppc_link_hash_entry
*) h
;
9622 /* Run through the TLS GD got entries first if we're changing them
9624 if ((eh
->tls_mask
& TLS_TPRELGD
) != 0)
9625 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
9626 if (gent
->got
.refcount
> 0
9627 && (gent
->tls_type
& TLS_GD
) != 0)
9629 /* This was a GD entry that has been converted to TPREL. If
9630 there happens to be a TPREL entry we can use that one. */
9631 struct got_entry
*ent
;
9632 for (ent
= h
->got
.glist
; ent
!= NULL
; ent
= ent
->next
)
9633 if (ent
->got
.refcount
> 0
9634 && (ent
->tls_type
& TLS_TPREL
) != 0
9635 && ent
->addend
== gent
->addend
9636 && ent
->owner
== gent
->owner
)
9638 gent
->got
.refcount
= 0;
9642 /* If not, then we'll be using our own TPREL entry. */
9643 if (gent
->got
.refcount
!= 0)
9644 gent
->tls_type
= TLS_TLS
| TLS_TPREL
;
9647 /* Remove any list entry that won't generate a word in the GOT before
9648 we call merge_got_entries. Otherwise we risk merging to empty
9650 pgent
= &h
->got
.glist
;
9651 while ((gent
= *pgent
) != NULL
)
9652 if (gent
->got
.refcount
> 0)
9654 if ((gent
->tls_type
& TLS_LD
) != 0
9657 ppc64_tlsld_got (gent
->owner
)->got
.refcount
+= 1;
9658 *pgent
= gent
->next
;
9661 pgent
= &gent
->next
;
9664 *pgent
= gent
->next
;
9666 if (!htab
->do_multi_toc
)
9667 merge_got_entries (&h
->got
.glist
);
9669 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
9670 if (!gent
->is_indirect
)
9672 /* Make sure this symbol is output as a dynamic symbol.
9673 Undefined weak syms won't yet be marked as dynamic,
9674 nor will all TLS symbols. */
9675 if (h
->dynindx
== -1
9677 && h
->type
!= STT_GNU_IFUNC
9678 && htab
->elf
.dynamic_sections_created
)
9680 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
9684 if (!is_ppc64_elf (gent
->owner
))
9687 allocate_got (h
, info
, gent
);
9690 if (eh
->dyn_relocs
== NULL
9691 || (!htab
->elf
.dynamic_sections_created
9692 && h
->type
!= STT_GNU_IFUNC
))
9695 /* In the shared -Bsymbolic case, discard space allocated for
9696 dynamic pc-relative relocs against symbols which turn out to be
9697 defined in regular objects. For the normal shared case, discard
9698 space for relocs that have become local due to symbol visibility
9701 if (bfd_link_pic (info
))
9703 /* Relocs that use pc_count are those that appear on a call insn,
9704 or certain REL relocs (see must_be_dyn_reloc) that can be
9705 generated via assembly. We want calls to protected symbols to
9706 resolve directly to the function rather than going via the plt.
9707 If people want function pointer comparisons to work as expected
9708 then they should avoid writing weird assembly. */
9709 if (SYMBOL_CALLS_LOCAL (info
, h
))
9711 struct elf_dyn_relocs
**pp
;
9713 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; )
9715 p
->count
-= p
->pc_count
;
9724 /* Also discard relocs on undefined weak syms with non-default
9726 if (eh
->dyn_relocs
!= NULL
9727 && h
->root
.type
== bfd_link_hash_undefweak
)
9729 if (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
)
9730 eh
->dyn_relocs
= NULL
;
9732 /* Make sure this symbol is output as a dynamic symbol.
9733 Undefined weak syms won't yet be marked as dynamic. */
9734 else if (h
->dynindx
== -1
9735 && !h
->forced_local
)
9737 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
9742 else if (h
->type
== STT_GNU_IFUNC
)
9744 if (!h
->non_got_ref
)
9745 eh
->dyn_relocs
= NULL
;
9747 else if (ELIMINATE_COPY_RELOCS
)
9749 /* For the non-shared case, discard space for relocs against
9750 symbols which turn out to need copy relocs or are not
9756 /* Make sure this symbol is output as a dynamic symbol.
9757 Undefined weak syms won't yet be marked as dynamic. */
9758 if (h
->dynindx
== -1
9759 && !h
->forced_local
)
9761 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
9765 /* If that succeeded, we know we'll be keeping all the
9767 if (h
->dynindx
!= -1)
9771 eh
->dyn_relocs
= NULL
;
9776 /* Finally, allocate space. */
9777 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
9779 asection
*sreloc
= elf_section_data (p
->sec
)->sreloc
;
9780 if (eh
->elf
.type
== STT_GNU_IFUNC
)
9781 sreloc
= htab
->elf
.irelplt
;
9782 sreloc
->size
+= p
->count
* sizeof (Elf64_External_Rela
);
9788 /* Called via elf_link_hash_traverse from ppc64_elf_size_dynamic_sections
9789 to set up space for global entry stubs. These are put in glink,
9790 after the branch table. */
9793 size_global_entry_stubs (struct elf_link_hash_entry
*h
, void *inf
)
9795 struct bfd_link_info
*info
;
9796 struct ppc_link_hash_table
*htab
;
9797 struct plt_entry
*pent
;
9800 if (h
->root
.type
== bfd_link_hash_indirect
)
9803 if (!h
->pointer_equality_needed
)
9810 htab
= ppc_hash_table (info
);
9815 for (pent
= h
->plt
.plist
; pent
!= NULL
; pent
= pent
->next
)
9816 if (pent
->plt
.offset
!= (bfd_vma
) -1
9817 && pent
->addend
== 0)
9819 /* For ELFv2, if this symbol is not defined in a regular file
9820 and we are not generating a shared library or pie, then we
9821 need to define the symbol in the executable on a call stub.
9822 This is to avoid text relocations. */
9823 s
->size
= (s
->size
+ 15) & -16;
9824 h
->root
.u
.def
.section
= s
;
9825 h
->root
.u
.def
.value
= s
->size
;
9832 /* Set DF_TEXTREL if we find any dynamic relocs that apply to
9833 read-only sections. */
9836 maybe_set_textrel (struct elf_link_hash_entry
*h
, void *info
)
9838 if (h
->root
.type
== bfd_link_hash_indirect
)
9841 if (readonly_dynrelocs (h
))
9843 ((struct bfd_link_info
*) info
)->flags
|= DF_TEXTREL
;
9845 /* Not an error, just cut short the traversal. */
9851 /* Set the sizes of the dynamic sections. */
9854 ppc64_elf_size_dynamic_sections (bfd
*output_bfd
,
9855 struct bfd_link_info
*info
)
9857 struct ppc_link_hash_table
*htab
;
9862 struct got_entry
*first_tlsld
;
9864 htab
= ppc_hash_table (info
);
9868 dynobj
= htab
->elf
.dynobj
;
9872 if (htab
->elf
.dynamic_sections_created
)
9874 /* Set the contents of the .interp section to the interpreter. */
9875 if (bfd_link_executable (info
) && !info
->nointerp
)
9877 s
= bfd_get_linker_section (dynobj
, ".interp");
9880 s
->size
= sizeof ELF_DYNAMIC_INTERPRETER
;
9881 s
->contents
= (unsigned char *) ELF_DYNAMIC_INTERPRETER
;
9885 /* Set up .got offsets for local syms, and space for local dynamic
9887 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
9889 struct got_entry
**lgot_ents
;
9890 struct got_entry
**end_lgot_ents
;
9891 struct plt_entry
**local_plt
;
9892 struct plt_entry
**end_local_plt
;
9893 unsigned char *lgot_masks
;
9894 bfd_size_type locsymcount
;
9895 Elf_Internal_Shdr
*symtab_hdr
;
9897 if (!is_ppc64_elf (ibfd
))
9900 for (s
= ibfd
->sections
; s
!= NULL
; s
= s
->next
)
9902 struct ppc_dyn_relocs
*p
;
9904 for (p
= elf_section_data (s
)->local_dynrel
; p
!= NULL
; p
= p
->next
)
9906 if (!bfd_is_abs_section (p
->sec
)
9907 && bfd_is_abs_section (p
->sec
->output_section
))
9909 /* Input section has been discarded, either because
9910 it is a copy of a linkonce section or due to
9911 linker script /DISCARD/, so we'll be discarding
9914 else if (p
->count
!= 0)
9916 asection
*srel
= elf_section_data (p
->sec
)->sreloc
;
9918 srel
= htab
->elf
.irelplt
;
9919 srel
->size
+= p
->count
* sizeof (Elf64_External_Rela
);
9920 if ((p
->sec
->output_section
->flags
& SEC_READONLY
) != 0)
9921 info
->flags
|= DF_TEXTREL
;
9926 lgot_ents
= elf_local_got_ents (ibfd
);
9930 symtab_hdr
= &elf_symtab_hdr (ibfd
);
9931 locsymcount
= symtab_hdr
->sh_info
;
9932 end_lgot_ents
= lgot_ents
+ locsymcount
;
9933 local_plt
= (struct plt_entry
**) end_lgot_ents
;
9934 end_local_plt
= local_plt
+ locsymcount
;
9935 lgot_masks
= (unsigned char *) end_local_plt
;
9936 s
= ppc64_elf_tdata (ibfd
)->got
;
9937 for (; lgot_ents
< end_lgot_ents
; ++lgot_ents
, ++lgot_masks
)
9939 struct got_entry
**pent
, *ent
;
9942 while ((ent
= *pent
) != NULL
)
9943 if (ent
->got
.refcount
> 0)
9945 if ((ent
->tls_type
& *lgot_masks
& TLS_LD
) != 0)
9947 ppc64_tlsld_got (ibfd
)->got
.refcount
+= 1;
9952 unsigned int ent_size
= 8;
9953 unsigned int rel_size
= sizeof (Elf64_External_Rela
);
9955 ent
->got
.offset
= s
->size
;
9956 if ((ent
->tls_type
& *lgot_masks
& TLS_GD
) != 0)
9961 s
->size
+= ent_size
;
9962 if ((*lgot_masks
& PLT_IFUNC
) != 0)
9964 htab
->elf
.irelplt
->size
+= rel_size
;
9965 htab
->got_reli_size
+= rel_size
;
9967 else if (bfd_link_pic (info
))
9969 asection
*srel
= ppc64_elf_tdata (ibfd
)->relgot
;
9970 srel
->size
+= rel_size
;
9979 /* Allocate space for calls to local STT_GNU_IFUNC syms in .iplt. */
9980 for (; local_plt
< end_local_plt
; ++local_plt
)
9982 struct plt_entry
*ent
;
9984 for (ent
= *local_plt
; ent
!= NULL
; ent
= ent
->next
)
9985 if (ent
->plt
.refcount
> 0)
9988 ent
->plt
.offset
= s
->size
;
9989 s
->size
+= PLT_ENTRY_SIZE (htab
);
9991 htab
->elf
.irelplt
->size
+= sizeof (Elf64_External_Rela
);
9994 ent
->plt
.offset
= (bfd_vma
) -1;
9998 /* Allocate global sym .plt and .got entries, and space for global
9999 sym dynamic relocs. */
10000 elf_link_hash_traverse (&htab
->elf
, allocate_dynrelocs
, info
);
10001 /* Stash the end of glink branch table. */
10002 if (htab
->glink
!= NULL
)
10003 htab
->glink
->rawsize
= htab
->glink
->size
;
10005 if (!htab
->opd_abi
&& !bfd_link_pic (info
))
10006 elf_link_hash_traverse (&htab
->elf
, size_global_entry_stubs
, info
);
10008 first_tlsld
= NULL
;
10009 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
10011 struct got_entry
*ent
;
10013 if (!is_ppc64_elf (ibfd
))
10016 ent
= ppc64_tlsld_got (ibfd
);
10017 if (ent
->got
.refcount
> 0)
10019 if (!htab
->do_multi_toc
&& first_tlsld
!= NULL
)
10021 ent
->is_indirect
= TRUE
;
10022 ent
->got
.ent
= first_tlsld
;
10026 if (first_tlsld
== NULL
)
10028 s
= ppc64_elf_tdata (ibfd
)->got
;
10029 ent
->got
.offset
= s
->size
;
10032 if (bfd_link_pic (info
))
10034 asection
*srel
= ppc64_elf_tdata (ibfd
)->relgot
;
10035 srel
->size
+= sizeof (Elf64_External_Rela
);
10040 ent
->got
.offset
= (bfd_vma
) -1;
10043 /* We now have determined the sizes of the various dynamic sections.
10044 Allocate memory for them. */
10046 for (s
= dynobj
->sections
; s
!= NULL
; s
= s
->next
)
10048 if ((s
->flags
& SEC_LINKER_CREATED
) == 0)
10051 if (s
== htab
->brlt
|| s
== htab
->relbrlt
)
10052 /* These haven't been allocated yet; don't strip. */
10054 else if (s
== htab
->elf
.sgot
10055 || s
== htab
->elf
.splt
10056 || s
== htab
->elf
.iplt
10057 || s
== htab
->glink
10058 || s
== htab
->dynbss
)
10060 /* Strip this section if we don't need it; see the
10063 else if (s
== htab
->glink_eh_frame
)
10065 if (!bfd_is_abs_section (s
->output_section
))
10066 /* Not sized yet. */
10069 else if (CONST_STRNEQ (s
->name
, ".rela"))
10073 if (s
!= htab
->elf
.srelplt
)
10076 /* We use the reloc_count field as a counter if we need
10077 to copy relocs into the output file. */
10078 s
->reloc_count
= 0;
10083 /* It's not one of our sections, so don't allocate space. */
10089 /* If we don't need this section, strip it from the
10090 output file. This is mostly to handle .rela.bss and
10091 .rela.plt. We must create both sections in
10092 create_dynamic_sections, because they must be created
10093 before the linker maps input sections to output
10094 sections. The linker does that before
10095 adjust_dynamic_symbol is called, and it is that
10096 function which decides whether anything needs to go
10097 into these sections. */
10098 s
->flags
|= SEC_EXCLUDE
;
10102 if ((s
->flags
& SEC_HAS_CONTENTS
) == 0)
10105 /* Allocate memory for the section contents. We use bfd_zalloc
10106 here in case unused entries are not reclaimed before the
10107 section's contents are written out. This should not happen,
10108 but this way if it does we get a R_PPC64_NONE reloc in .rela
10109 sections instead of garbage.
10110 We also rely on the section contents being zero when writing
10112 s
->contents
= bfd_zalloc (dynobj
, s
->size
);
10113 if (s
->contents
== NULL
)
10117 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
10119 if (!is_ppc64_elf (ibfd
))
10122 s
= ppc64_elf_tdata (ibfd
)->got
;
10123 if (s
!= NULL
&& s
!= htab
->elf
.sgot
)
10126 s
->flags
|= SEC_EXCLUDE
;
10129 s
->contents
= bfd_zalloc (ibfd
, s
->size
);
10130 if (s
->contents
== NULL
)
10134 s
= ppc64_elf_tdata (ibfd
)->relgot
;
10138 s
->flags
|= SEC_EXCLUDE
;
10141 s
->contents
= bfd_zalloc (ibfd
, s
->size
);
10142 if (s
->contents
== NULL
)
10145 s
->reloc_count
= 0;
10150 if (htab
->elf
.dynamic_sections_created
)
10152 bfd_boolean tls_opt
;
10154 /* Add some entries to the .dynamic section. We fill in the
10155 values later, in ppc64_elf_finish_dynamic_sections, but we
10156 must add the entries now so that we get the correct size for
10157 the .dynamic section. The DT_DEBUG entry is filled in by the
10158 dynamic linker and used by the debugger. */
10159 #define add_dynamic_entry(TAG, VAL) \
10160 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
10162 if (bfd_link_executable (info
))
10164 if (!add_dynamic_entry (DT_DEBUG
, 0))
10168 if (htab
->elf
.splt
!= NULL
&& htab
->elf
.splt
->size
!= 0)
10170 if (!add_dynamic_entry (DT_PLTGOT
, 0)
10171 || !add_dynamic_entry (DT_PLTRELSZ
, 0)
10172 || !add_dynamic_entry (DT_PLTREL
, DT_RELA
)
10173 || !add_dynamic_entry (DT_JMPREL
, 0)
10174 || !add_dynamic_entry (DT_PPC64_GLINK
, 0))
10178 if (NO_OPD_RELOCS
&& abiversion (output_bfd
) <= 1)
10180 if (!add_dynamic_entry (DT_PPC64_OPD
, 0)
10181 || !add_dynamic_entry (DT_PPC64_OPDSZ
, 0))
10185 tls_opt
= (htab
->params
->tls_get_addr_opt
10186 && htab
->tls_get_addr_fd
!= NULL
10187 && htab
->tls_get_addr_fd
->elf
.plt
.plist
!= NULL
);
10188 if (tls_opt
|| !htab
->opd_abi
)
10190 if (!add_dynamic_entry (DT_PPC64_OPT
, tls_opt
? PPC64_OPT_TLS
: 0))
10196 if (!add_dynamic_entry (DT_RELA
, 0)
10197 || !add_dynamic_entry (DT_RELASZ
, 0)
10198 || !add_dynamic_entry (DT_RELAENT
, sizeof (Elf64_External_Rela
)))
10201 /* If any dynamic relocs apply to a read-only section,
10202 then we need a DT_TEXTREL entry. */
10203 if ((info
->flags
& DF_TEXTREL
) == 0)
10204 elf_link_hash_traverse (&htab
->elf
, maybe_set_textrel
, info
);
10206 if ((info
->flags
& DF_TEXTREL
) != 0)
10208 if (!add_dynamic_entry (DT_TEXTREL
, 0))
10213 #undef add_dynamic_entry
10218 /* Return TRUE if symbol should be hashed in the `.gnu.hash' section. */
10221 ppc64_elf_hash_symbol (struct elf_link_hash_entry
*h
)
10223 if (h
->plt
.plist
!= NULL
10225 && !h
->pointer_equality_needed
)
10228 return _bfd_elf_hash_symbol (h
);
10231 /* Determine the type of stub needed, if any, for a call. */
10233 static inline enum ppc_stub_type
10234 ppc_type_of_stub (asection
*input_sec
,
10235 const Elf_Internal_Rela
*rel
,
10236 struct ppc_link_hash_entry
**hash
,
10237 struct plt_entry
**plt_ent
,
10238 bfd_vma destination
,
10239 unsigned long local_off
)
10241 struct ppc_link_hash_entry
*h
= *hash
;
10243 bfd_vma branch_offset
;
10244 bfd_vma max_branch_offset
;
10245 enum elf_ppc64_reloc_type r_type
;
10249 struct plt_entry
*ent
;
10250 struct ppc_link_hash_entry
*fdh
= h
;
10252 && h
->oh
->is_func_descriptor
)
10254 fdh
= ppc_follow_link (h
->oh
);
10258 for (ent
= fdh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
10259 if (ent
->addend
== rel
->r_addend
10260 && ent
->plt
.offset
!= (bfd_vma
) -1)
10263 return ppc_stub_plt_call
;
10266 /* Here, we know we don't have a plt entry. If we don't have a
10267 either a defined function descriptor or a defined entry symbol
10268 in a regular object file, then it is pointless trying to make
10269 any other type of stub. */
10270 if (!is_static_defined (&fdh
->elf
)
10271 && !is_static_defined (&h
->elf
))
10272 return ppc_stub_none
;
10274 else if (elf_local_got_ents (input_sec
->owner
) != NULL
)
10276 Elf_Internal_Shdr
*symtab_hdr
= &elf_symtab_hdr (input_sec
->owner
);
10277 struct plt_entry
**local_plt
= (struct plt_entry
**)
10278 elf_local_got_ents (input_sec
->owner
) + symtab_hdr
->sh_info
;
10279 unsigned long r_symndx
= ELF64_R_SYM (rel
->r_info
);
10281 if (local_plt
[r_symndx
] != NULL
)
10283 struct plt_entry
*ent
;
10285 for (ent
= local_plt
[r_symndx
]; ent
!= NULL
; ent
= ent
->next
)
10286 if (ent
->addend
== rel
->r_addend
10287 && ent
->plt
.offset
!= (bfd_vma
) -1)
10290 return ppc_stub_plt_call
;
10295 /* Determine where the call point is. */
10296 location
= (input_sec
->output_offset
10297 + input_sec
->output_section
->vma
10300 branch_offset
= destination
- location
;
10301 r_type
= ELF64_R_TYPE (rel
->r_info
);
10303 /* Determine if a long branch stub is needed. */
10304 max_branch_offset
= 1 << 25;
10305 if (r_type
!= R_PPC64_REL24
)
10306 max_branch_offset
= 1 << 15;
10308 if (branch_offset
+ max_branch_offset
>= 2 * max_branch_offset
- local_off
)
10309 /* We need a stub. Figure out whether a long_branch or plt_branch
10310 is needed later. */
10311 return ppc_stub_long_branch
;
10313 return ppc_stub_none
;
10316 /* With power7 weakly ordered memory model, it is possible for ld.so
10317 to update a plt entry in one thread and have another thread see a
10318 stale zero toc entry. To avoid this we need some sort of acquire
10319 barrier in the call stub. One solution is to make the load of the
10320 toc word seem to appear to depend on the load of the function entry
10321 word. Another solution is to test for r2 being zero, and branch to
10322 the appropriate glink entry if so.
10324 . fake dep barrier compare
10325 . ld 12,xxx(2) ld 12,xxx(2)
10326 . mtctr 12 mtctr 12
10327 . xor 11,12,12 ld 2,xxx+8(2)
10328 . add 2,2,11 cmpldi 2,0
10329 . ld 2,xxx+8(2) bnectr+
10330 . bctr b <glink_entry>
10332 The solution involving the compare turns out to be faster, so
10333 that's what we use unless the branch won't reach. */
10335 #define ALWAYS_USE_FAKE_DEP 0
10336 #define ALWAYS_EMIT_R2SAVE 0
10338 #define PPC_LO(v) ((v) & 0xffff)
10339 #define PPC_HI(v) (((v) >> 16) & 0xffff)
10340 #define PPC_HA(v) PPC_HI ((v) + 0x8000)
10342 static inline unsigned int
10343 plt_stub_size (struct ppc_link_hash_table
*htab
,
10344 struct ppc_stub_hash_entry
*stub_entry
,
10347 unsigned size
= 12;
10349 if (ALWAYS_EMIT_R2SAVE
10350 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
10352 if (PPC_HA (off
) != 0)
10357 if (htab
->params
->plt_static_chain
)
10359 if (htab
->params
->plt_thread_safe
10360 && htab
->elf
.dynamic_sections_created
10361 && stub_entry
->h
!= NULL
10362 && stub_entry
->h
->elf
.dynindx
!= -1)
10364 if (PPC_HA (off
+ 8 + 8 * htab
->params
->plt_static_chain
) != PPC_HA (off
))
10367 if (stub_entry
->h
!= NULL
10368 && (stub_entry
->h
== htab
->tls_get_addr_fd
10369 || stub_entry
->h
== htab
->tls_get_addr
)
10370 && htab
->params
->tls_get_addr_opt
)
10375 /* If this stub would cross fewer 2**plt_stub_align boundaries if we align,
10376 then return the padding needed to do so. */
10377 static inline unsigned int
10378 plt_stub_pad (struct ppc_link_hash_table
*htab
,
10379 struct ppc_stub_hash_entry
*stub_entry
,
10382 int stub_align
= 1 << htab
->params
->plt_stub_align
;
10383 unsigned stub_size
= plt_stub_size (htab
, stub_entry
, plt_off
);
10384 bfd_vma stub_off
= stub_entry
->group
->stub_sec
->size
;
10386 if (((stub_off
+ stub_size
- 1) & -stub_align
) - (stub_off
& -stub_align
)
10387 > ((stub_size
- 1) & -stub_align
))
10388 return stub_align
- (stub_off
& (stub_align
- 1));
10392 /* Build a .plt call stub. */
10394 static inline bfd_byte
*
10395 build_plt_stub (struct ppc_link_hash_table
*htab
,
10396 struct ppc_stub_hash_entry
*stub_entry
,
10397 bfd_byte
*p
, bfd_vma offset
, Elf_Internal_Rela
*r
)
10399 bfd
*obfd
= htab
->params
->stub_bfd
;
10400 bfd_boolean plt_load_toc
= htab
->opd_abi
;
10401 bfd_boolean plt_static_chain
= htab
->params
->plt_static_chain
;
10402 bfd_boolean plt_thread_safe
= (htab
->params
->plt_thread_safe
10403 && htab
->elf
.dynamic_sections_created
10404 && stub_entry
->h
!= NULL
10405 && stub_entry
->h
->elf
.dynindx
!= -1);
10406 bfd_boolean use_fake_dep
= plt_thread_safe
;
10407 bfd_vma cmp_branch_off
= 0;
10409 if (!ALWAYS_USE_FAKE_DEP
10412 && !((stub_entry
->h
== htab
->tls_get_addr_fd
10413 || stub_entry
->h
== htab
->tls_get_addr
)
10414 && htab
->params
->tls_get_addr_opt
))
10416 bfd_vma pltoff
= stub_entry
->plt_ent
->plt
.offset
& ~1;
10417 bfd_vma pltindex
= ((pltoff
- PLT_INITIAL_ENTRY_SIZE (htab
))
10418 / PLT_ENTRY_SIZE (htab
));
10419 bfd_vma glinkoff
= GLINK_CALL_STUB_SIZE
+ pltindex
* 8;
10422 if (pltindex
> 32768)
10423 glinkoff
+= (pltindex
- 32768) * 4;
10425 + htab
->glink
->output_offset
10426 + htab
->glink
->output_section
->vma
);
10427 from
= (p
- stub_entry
->group
->stub_sec
->contents
10428 + 4 * (ALWAYS_EMIT_R2SAVE
10429 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
10430 + 4 * (PPC_HA (offset
) != 0)
10431 + 4 * (PPC_HA (offset
+ 8 + 8 * plt_static_chain
)
10432 != PPC_HA (offset
))
10433 + 4 * (plt_static_chain
!= 0)
10435 + stub_entry
->group
->stub_sec
->output_offset
10436 + stub_entry
->group
->stub_sec
->output_section
->vma
);
10437 cmp_branch_off
= to
- from
;
10438 use_fake_dep
= cmp_branch_off
+ (1 << 25) >= (1 << 26);
10441 if (PPC_HA (offset
) != 0)
10445 if (ALWAYS_EMIT_R2SAVE
10446 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
10447 r
[0].r_offset
+= 4;
10448 r
[0].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_HA
);
10449 r
[1].r_offset
= r
[0].r_offset
+ 4;
10450 r
[1].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS
);
10451 r
[1].r_addend
= r
[0].r_addend
;
10454 if (PPC_HA (offset
+ 8 + 8 * plt_static_chain
) != PPC_HA (offset
))
10456 r
[2].r_offset
= r
[1].r_offset
+ 4;
10457 r
[2].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_LO
);
10458 r
[2].r_addend
= r
[0].r_addend
;
10462 r
[2].r_offset
= r
[1].r_offset
+ 8 + 8 * use_fake_dep
;
10463 r
[2].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS
);
10464 r
[2].r_addend
= r
[0].r_addend
+ 8;
10465 if (plt_static_chain
)
10467 r
[3].r_offset
= r
[2].r_offset
+ 4;
10468 r
[3].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS
);
10469 r
[3].r_addend
= r
[0].r_addend
+ 16;
10474 if (ALWAYS_EMIT_R2SAVE
10475 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
10476 bfd_put_32 (obfd
, STD_R2_0R1
+ STK_TOC (htab
), p
), p
+= 4;
10479 bfd_put_32 (obfd
, ADDIS_R11_R2
| PPC_HA (offset
), p
), p
+= 4;
10480 bfd_put_32 (obfd
, LD_R12_0R11
| PPC_LO (offset
), p
), p
+= 4;
10484 bfd_put_32 (obfd
, ADDIS_R12_R2
| PPC_HA (offset
), p
), p
+= 4;
10485 bfd_put_32 (obfd
, LD_R12_0R12
| PPC_LO (offset
), p
), p
+= 4;
10488 && PPC_HA (offset
+ 8 + 8 * plt_static_chain
) != PPC_HA (offset
))
10490 bfd_put_32 (obfd
, ADDI_R11_R11
| PPC_LO (offset
), p
), p
+= 4;
10493 bfd_put_32 (obfd
, MTCTR_R12
, p
), p
+= 4;
10498 bfd_put_32 (obfd
, XOR_R2_R12_R12
, p
), p
+= 4;
10499 bfd_put_32 (obfd
, ADD_R11_R11_R2
, p
), p
+= 4;
10501 bfd_put_32 (obfd
, LD_R2_0R11
| PPC_LO (offset
+ 8), p
), p
+= 4;
10502 if (plt_static_chain
)
10503 bfd_put_32 (obfd
, LD_R11_0R11
| PPC_LO (offset
+ 16), p
), p
+= 4;
10510 if (ALWAYS_EMIT_R2SAVE
10511 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
10512 r
[0].r_offset
+= 4;
10513 r
[0].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_DS
);
10516 if (PPC_HA (offset
+ 8 + 8 * plt_static_chain
) != PPC_HA (offset
))
10518 r
[1].r_offset
= r
[0].r_offset
+ 4;
10519 r
[1].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16
);
10520 r
[1].r_addend
= r
[0].r_addend
;
10524 r
[1].r_offset
= r
[0].r_offset
+ 8 + 8 * use_fake_dep
;
10525 r
[1].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_DS
);
10526 r
[1].r_addend
= r
[0].r_addend
+ 8 + 8 * plt_static_chain
;
10527 if (plt_static_chain
)
10529 r
[2].r_offset
= r
[1].r_offset
+ 4;
10530 r
[2].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_DS
);
10531 r
[2].r_addend
= r
[0].r_addend
+ 8;
10536 if (ALWAYS_EMIT_R2SAVE
10537 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
10538 bfd_put_32 (obfd
, STD_R2_0R1
+ STK_TOC (htab
), p
), p
+= 4;
10539 bfd_put_32 (obfd
, LD_R12_0R2
| PPC_LO (offset
), p
), p
+= 4;
10541 && PPC_HA (offset
+ 8 + 8 * plt_static_chain
) != PPC_HA (offset
))
10543 bfd_put_32 (obfd
, ADDI_R2_R2
| PPC_LO (offset
), p
), p
+= 4;
10546 bfd_put_32 (obfd
, MTCTR_R12
, p
), p
+= 4;
10551 bfd_put_32 (obfd
, XOR_R11_R12_R12
, p
), p
+= 4;
10552 bfd_put_32 (obfd
, ADD_R2_R2_R11
, p
), p
+= 4;
10554 if (plt_static_chain
)
10555 bfd_put_32 (obfd
, LD_R11_0R2
| PPC_LO (offset
+ 16), p
), p
+= 4;
10556 bfd_put_32 (obfd
, LD_R2_0R2
| PPC_LO (offset
+ 8), p
), p
+= 4;
10559 if (plt_load_toc
&& plt_thread_safe
&& !use_fake_dep
)
10561 bfd_put_32 (obfd
, CMPLDI_R2_0
, p
), p
+= 4;
10562 bfd_put_32 (obfd
, BNECTR_P4
, p
), p
+= 4;
10563 bfd_put_32 (obfd
, B_DOT
| (cmp_branch_off
& 0x3fffffc), p
), p
+= 4;
10566 bfd_put_32 (obfd
, BCTR
, p
), p
+= 4;
10570 /* Build a special .plt call stub for __tls_get_addr. */
10572 #define LD_R11_0R3 0xe9630000
10573 #define LD_R12_0R3 0xe9830000
10574 #define MR_R0_R3 0x7c601b78
10575 #define CMPDI_R11_0 0x2c2b0000
10576 #define ADD_R3_R12_R13 0x7c6c6a14
10577 #define BEQLR 0x4d820020
10578 #define MR_R3_R0 0x7c030378
10579 #define STD_R11_0R1 0xf9610000
10580 #define BCTRL 0x4e800421
10581 #define LD_R11_0R1 0xe9610000
10582 #define MTLR_R11 0x7d6803a6
10584 static inline bfd_byte
*
10585 build_tls_get_addr_stub (struct ppc_link_hash_table
*htab
,
10586 struct ppc_stub_hash_entry
*stub_entry
,
10587 bfd_byte
*p
, bfd_vma offset
, Elf_Internal_Rela
*r
)
10589 bfd
*obfd
= htab
->params
->stub_bfd
;
10591 bfd_put_32 (obfd
, LD_R11_0R3
+ 0, p
), p
+= 4;
10592 bfd_put_32 (obfd
, LD_R12_0R3
+ 8, p
), p
+= 4;
10593 bfd_put_32 (obfd
, MR_R0_R3
, p
), p
+= 4;
10594 bfd_put_32 (obfd
, CMPDI_R11_0
, p
), p
+= 4;
10595 bfd_put_32 (obfd
, ADD_R3_R12_R13
, p
), p
+= 4;
10596 bfd_put_32 (obfd
, BEQLR
, p
), p
+= 4;
10597 bfd_put_32 (obfd
, MR_R3_R0
, p
), p
+= 4;
10598 bfd_put_32 (obfd
, MFLR_R11
, p
), p
+= 4;
10599 bfd_put_32 (obfd
, STD_R11_0R1
+ STK_LINKER (htab
), p
), p
+= 4;
10602 r
[0].r_offset
+= 9 * 4;
10603 p
= build_plt_stub (htab
, stub_entry
, p
, offset
, r
);
10604 bfd_put_32 (obfd
, BCTRL
, p
- 4);
10606 bfd_put_32 (obfd
, LD_R2_0R1
+ STK_TOC (htab
), p
), p
+= 4;
10607 bfd_put_32 (obfd
, LD_R11_0R1
+ STK_LINKER (htab
), p
), p
+= 4;
10608 bfd_put_32 (obfd
, MTLR_R11
, p
), p
+= 4;
10609 bfd_put_32 (obfd
, BLR
, p
), p
+= 4;
10614 static Elf_Internal_Rela
*
10615 get_relocs (asection
*sec
, int count
)
10617 Elf_Internal_Rela
*relocs
;
10618 struct bfd_elf_section_data
*elfsec_data
;
10620 elfsec_data
= elf_section_data (sec
);
10621 relocs
= elfsec_data
->relocs
;
10622 if (relocs
== NULL
)
10624 bfd_size_type relsize
;
10625 relsize
= sec
->reloc_count
* sizeof (*relocs
);
10626 relocs
= bfd_alloc (sec
->owner
, relsize
);
10627 if (relocs
== NULL
)
10629 elfsec_data
->relocs
= relocs
;
10630 elfsec_data
->rela
.hdr
= bfd_zalloc (sec
->owner
,
10631 sizeof (Elf_Internal_Shdr
));
10632 if (elfsec_data
->rela
.hdr
== NULL
)
10634 elfsec_data
->rela
.hdr
->sh_size
= (sec
->reloc_count
10635 * sizeof (Elf64_External_Rela
));
10636 elfsec_data
->rela
.hdr
->sh_entsize
= sizeof (Elf64_External_Rela
);
10637 sec
->reloc_count
= 0;
10639 relocs
+= sec
->reloc_count
;
10640 sec
->reloc_count
+= count
;
10645 get_r2off (struct bfd_link_info
*info
,
10646 struct ppc_stub_hash_entry
*stub_entry
)
10648 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
10649 bfd_vma r2off
= htab
->sec_info
[stub_entry
->target_section
->id
].toc_off
;
10653 /* Support linking -R objects. Get the toc pointer from the
10656 if (!htab
->opd_abi
)
10658 asection
*opd
= stub_entry
->h
->elf
.root
.u
.def
.section
;
10659 bfd_vma opd_off
= stub_entry
->h
->elf
.root
.u
.def
.value
;
10661 if (strcmp (opd
->name
, ".opd") != 0
10662 || opd
->reloc_count
!= 0)
10664 info
->callbacks
->einfo (_("%P: cannot find opd entry toc for `%T'\n"),
10665 stub_entry
->h
->elf
.root
.root
.string
);
10666 bfd_set_error (bfd_error_bad_value
);
10667 return (bfd_vma
) -1;
10669 if (!bfd_get_section_contents (opd
->owner
, opd
, buf
, opd_off
+ 8, 8))
10670 return (bfd_vma
) -1;
10671 r2off
= bfd_get_64 (opd
->owner
, buf
);
10672 r2off
-= elf_gp (info
->output_bfd
);
10674 r2off
-= htab
->sec_info
[stub_entry
->group
->link_sec
->id
].toc_off
;
10679 ppc_build_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
10681 struct ppc_stub_hash_entry
*stub_entry
;
10682 struct ppc_branch_hash_entry
*br_entry
;
10683 struct bfd_link_info
*info
;
10684 struct ppc_link_hash_table
*htab
;
10689 Elf_Internal_Rela
*r
;
10692 /* Massage our args to the form they really have. */
10693 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
10696 htab
= ppc_hash_table (info
);
10700 /* Make a note of the offset within the stubs for this entry. */
10701 stub_entry
->stub_offset
= stub_entry
->group
->stub_sec
->size
;
10702 loc
= stub_entry
->group
->stub_sec
->contents
+ stub_entry
->stub_offset
;
10704 htab
->stub_count
[stub_entry
->stub_type
- 1] += 1;
10705 switch (stub_entry
->stub_type
)
10707 case ppc_stub_long_branch
:
10708 case ppc_stub_long_branch_r2off
:
10709 /* Branches are relative. This is where we are going to. */
10710 dest
= (stub_entry
->target_value
10711 + stub_entry
->target_section
->output_offset
10712 + stub_entry
->target_section
->output_section
->vma
);
10713 dest
+= PPC64_LOCAL_ENTRY_OFFSET (stub_entry
->other
);
10716 /* And this is where we are coming from. */
10717 off
-= (stub_entry
->stub_offset
10718 + stub_entry
->group
->stub_sec
->output_offset
10719 + stub_entry
->group
->stub_sec
->output_section
->vma
);
10722 if (stub_entry
->stub_type
== ppc_stub_long_branch_r2off
)
10724 bfd_vma r2off
= get_r2off (info
, stub_entry
);
10726 if (r2off
== (bfd_vma
) -1)
10728 htab
->stub_error
= TRUE
;
10731 bfd_put_32 (htab
->params
->stub_bfd
, STD_R2_0R1
+ STK_TOC (htab
), loc
);
10734 if (PPC_HA (r2off
) != 0)
10736 bfd_put_32 (htab
->params
->stub_bfd
,
10737 ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
10741 if (PPC_LO (r2off
) != 0)
10743 bfd_put_32 (htab
->params
->stub_bfd
,
10744 ADDI_R2_R2
| PPC_LO (r2off
), loc
);
10750 bfd_put_32 (htab
->params
->stub_bfd
, B_DOT
| (off
& 0x3fffffc), loc
);
10752 if (off
+ (1 << 25) >= (bfd_vma
) (1 << 26))
10754 info
->callbacks
->einfo
10755 (_("%P: long branch stub `%s' offset overflow\n"),
10756 stub_entry
->root
.string
);
10757 htab
->stub_error
= TRUE
;
10761 if (info
->emitrelocations
)
10763 r
= get_relocs (stub_entry
->group
->stub_sec
, 1);
10766 r
->r_offset
= loc
- stub_entry
->group
->stub_sec
->contents
;
10767 r
->r_info
= ELF64_R_INFO (0, R_PPC64_REL24
);
10768 r
->r_addend
= dest
;
10769 if (stub_entry
->h
!= NULL
)
10771 struct elf_link_hash_entry
**hashes
;
10772 unsigned long symndx
;
10773 struct ppc_link_hash_entry
*h
;
10775 hashes
= elf_sym_hashes (htab
->params
->stub_bfd
);
10776 if (hashes
== NULL
)
10778 bfd_size_type hsize
;
10780 hsize
= (htab
->stub_globals
+ 1) * sizeof (*hashes
);
10781 hashes
= bfd_zalloc (htab
->params
->stub_bfd
, hsize
);
10782 if (hashes
== NULL
)
10784 elf_sym_hashes (htab
->params
->stub_bfd
) = hashes
;
10785 htab
->stub_globals
= 1;
10787 symndx
= htab
->stub_globals
++;
10789 hashes
[symndx
] = &h
->elf
;
10790 r
->r_info
= ELF64_R_INFO (symndx
, R_PPC64_REL24
);
10791 if (h
->oh
!= NULL
&& h
->oh
->is_func
)
10792 h
= ppc_follow_link (h
->oh
);
10793 if (h
->elf
.root
.u
.def
.section
!= stub_entry
->target_section
)
10794 /* H is an opd symbol. The addend must be zero. */
10798 off
= (h
->elf
.root
.u
.def
.value
10799 + h
->elf
.root
.u
.def
.section
->output_offset
10800 + h
->elf
.root
.u
.def
.section
->output_section
->vma
);
10801 r
->r_addend
-= off
;
10807 case ppc_stub_plt_branch
:
10808 case ppc_stub_plt_branch_r2off
:
10809 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
10810 stub_entry
->root
.string
+ 9,
10812 if (br_entry
== NULL
)
10814 info
->callbacks
->einfo (_("%P: can't find branch stub `%s'\n"),
10815 stub_entry
->root
.string
);
10816 htab
->stub_error
= TRUE
;
10820 dest
= (stub_entry
->target_value
10821 + stub_entry
->target_section
->output_offset
10822 + stub_entry
->target_section
->output_section
->vma
);
10823 if (stub_entry
->stub_type
!= ppc_stub_plt_branch_r2off
)
10824 dest
+= PPC64_LOCAL_ENTRY_OFFSET (stub_entry
->other
);
10826 bfd_put_64 (htab
->brlt
->owner
, dest
,
10827 htab
->brlt
->contents
+ br_entry
->offset
);
10829 if (br_entry
->iter
== htab
->stub_iteration
)
10831 br_entry
->iter
= 0;
10833 if (htab
->relbrlt
!= NULL
)
10835 /* Create a reloc for the branch lookup table entry. */
10836 Elf_Internal_Rela rela
;
10839 rela
.r_offset
= (br_entry
->offset
10840 + htab
->brlt
->output_offset
10841 + htab
->brlt
->output_section
->vma
);
10842 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
10843 rela
.r_addend
= dest
;
10845 rl
= htab
->relbrlt
->contents
;
10846 rl
+= (htab
->relbrlt
->reloc_count
++
10847 * sizeof (Elf64_External_Rela
));
10848 bfd_elf64_swap_reloca_out (htab
->relbrlt
->owner
, &rela
, rl
);
10850 else if (info
->emitrelocations
)
10852 r
= get_relocs (htab
->brlt
, 1);
10855 /* brlt, being SEC_LINKER_CREATED does not go through the
10856 normal reloc processing. Symbols and offsets are not
10857 translated from input file to output file form, so
10858 set up the offset per the output file. */
10859 r
->r_offset
= (br_entry
->offset
10860 + htab
->brlt
->output_offset
10861 + htab
->brlt
->output_section
->vma
);
10862 r
->r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
10863 r
->r_addend
= dest
;
10867 dest
= (br_entry
->offset
10868 + htab
->brlt
->output_offset
10869 + htab
->brlt
->output_section
->vma
);
10872 - elf_gp (htab
->brlt
->output_section
->owner
)
10873 - htab
->sec_info
[stub_entry
->group
->link_sec
->id
].toc_off
);
10875 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
10877 info
->callbacks
->einfo
10878 (_("%P: linkage table error against `%T'\n"),
10879 stub_entry
->root
.string
);
10880 bfd_set_error (bfd_error_bad_value
);
10881 htab
->stub_error
= TRUE
;
10885 if (info
->emitrelocations
)
10887 r
= get_relocs (stub_entry
->group
->stub_sec
, 1 + (PPC_HA (off
) != 0));
10890 r
[0].r_offset
= loc
- stub_entry
->group
->stub_sec
->contents
;
10891 if (bfd_big_endian (info
->output_bfd
))
10892 r
[0].r_offset
+= 2;
10893 if (stub_entry
->stub_type
== ppc_stub_plt_branch_r2off
)
10894 r
[0].r_offset
+= 4;
10895 r
[0].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_DS
);
10896 r
[0].r_addend
= dest
;
10897 if (PPC_HA (off
) != 0)
10899 r
[0].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_HA
);
10900 r
[1].r_offset
= r
[0].r_offset
+ 4;
10901 r
[1].r_info
= ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS
);
10902 r
[1].r_addend
= r
[0].r_addend
;
10906 if (stub_entry
->stub_type
!= ppc_stub_plt_branch_r2off
)
10908 if (PPC_HA (off
) != 0)
10911 bfd_put_32 (htab
->params
->stub_bfd
,
10912 ADDIS_R12_R2
| PPC_HA (off
), loc
);
10914 bfd_put_32 (htab
->params
->stub_bfd
,
10915 LD_R12_0R12
| PPC_LO (off
), loc
);
10920 bfd_put_32 (htab
->params
->stub_bfd
,
10921 LD_R12_0R2
| PPC_LO (off
), loc
);
10926 bfd_vma r2off
= get_r2off (info
, stub_entry
);
10928 if (r2off
== (bfd_vma
) -1)
10930 htab
->stub_error
= TRUE
;
10934 bfd_put_32 (htab
->params
->stub_bfd
, STD_R2_0R1
+ STK_TOC (htab
), loc
);
10937 if (PPC_HA (off
) != 0)
10940 bfd_put_32 (htab
->params
->stub_bfd
,
10941 ADDIS_R12_R2
| PPC_HA (off
), loc
);
10943 bfd_put_32 (htab
->params
->stub_bfd
,
10944 LD_R12_0R12
| PPC_LO (off
), loc
);
10947 bfd_put_32 (htab
->params
->stub_bfd
, LD_R12_0R2
| PPC_LO (off
), loc
);
10949 if (PPC_HA (r2off
) != 0)
10953 bfd_put_32 (htab
->params
->stub_bfd
,
10954 ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
10956 if (PPC_LO (r2off
) != 0)
10960 bfd_put_32 (htab
->params
->stub_bfd
,
10961 ADDI_R2_R2
| PPC_LO (r2off
), loc
);
10965 bfd_put_32 (htab
->params
->stub_bfd
, MTCTR_R12
, loc
);
10967 bfd_put_32 (htab
->params
->stub_bfd
, BCTR
, loc
);
10970 case ppc_stub_plt_call
:
10971 case ppc_stub_plt_call_r2save
:
10972 if (stub_entry
->h
!= NULL
10973 && stub_entry
->h
->is_func_descriptor
10974 && stub_entry
->h
->oh
!= NULL
)
10976 struct ppc_link_hash_entry
*fh
= ppc_follow_link (stub_entry
->h
->oh
);
10978 /* If the old-ABI "dot-symbol" is undefined make it weak so
10979 we don't get a link error from RELOC_FOR_GLOBAL_SYMBOL. */
10980 if (fh
->elf
.root
.type
== bfd_link_hash_undefined
)
10981 fh
->elf
.root
.type
= bfd_link_hash_undefweak
;
10982 /* Stop undo_symbol_twiddle changing it back to undefined. */
10983 fh
->was_undefined
= 0;
10986 /* Now build the stub. */
10987 dest
= stub_entry
->plt_ent
->plt
.offset
& ~1;
10988 if (dest
>= (bfd_vma
) -2)
10991 plt
= htab
->elf
.splt
;
10992 if (!htab
->elf
.dynamic_sections_created
10993 || stub_entry
->h
== NULL
10994 || stub_entry
->h
->elf
.dynindx
== -1)
10995 plt
= htab
->elf
.iplt
;
10997 dest
+= plt
->output_offset
+ plt
->output_section
->vma
;
10999 if (stub_entry
->h
== NULL
11000 && (stub_entry
->plt_ent
->plt
.offset
& 1) == 0)
11002 Elf_Internal_Rela rela
;
11005 rela
.r_offset
= dest
;
11007 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_JMP_IREL
);
11009 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_IRELATIVE
);
11010 rela
.r_addend
= (stub_entry
->target_value
11011 + stub_entry
->target_section
->output_offset
11012 + stub_entry
->target_section
->output_section
->vma
);
11014 rl
= (htab
->elf
.irelplt
->contents
11015 + (htab
->elf
.irelplt
->reloc_count
++
11016 * sizeof (Elf64_External_Rela
)));
11017 bfd_elf64_swap_reloca_out (info
->output_bfd
, &rela
, rl
);
11018 stub_entry
->plt_ent
->plt
.offset
|= 1;
11022 - elf_gp (plt
->output_section
->owner
)
11023 - htab
->sec_info
[stub_entry
->group
->link_sec
->id
].toc_off
);
11025 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
11027 info
->callbacks
->einfo
11028 (_("%P: linkage table error against `%T'\n"),
11029 stub_entry
->h
!= NULL
11030 ? stub_entry
->h
->elf
.root
.root
.string
11032 bfd_set_error (bfd_error_bad_value
);
11033 htab
->stub_error
= TRUE
;
11037 if (htab
->params
->plt_stub_align
!= 0)
11039 unsigned pad
= plt_stub_pad (htab
, stub_entry
, off
);
11041 stub_entry
->group
->stub_sec
->size
+= pad
;
11042 stub_entry
->stub_offset
= stub_entry
->group
->stub_sec
->size
;
11047 if (info
->emitrelocations
)
11049 r
= get_relocs (stub_entry
->group
->stub_sec
,
11050 ((PPC_HA (off
) != 0)
11052 ? 2 + (htab
->params
->plt_static_chain
11053 && PPC_HA (off
+ 16) == PPC_HA (off
))
11057 r
[0].r_offset
= loc
- stub_entry
->group
->stub_sec
->contents
;
11058 if (bfd_big_endian (info
->output_bfd
))
11059 r
[0].r_offset
+= 2;
11060 r
[0].r_addend
= dest
;
11062 if (stub_entry
->h
!= NULL
11063 && (stub_entry
->h
== htab
->tls_get_addr_fd
11064 || stub_entry
->h
== htab
->tls_get_addr
)
11065 && htab
->params
->tls_get_addr_opt
)
11066 p
= build_tls_get_addr_stub (htab
, stub_entry
, loc
, off
, r
);
11068 p
= build_plt_stub (htab
, stub_entry
, loc
, off
, r
);
11072 case ppc_stub_save_res
:
11080 stub_entry
->group
->stub_sec
->size
+= size
;
11082 if (htab
->params
->emit_stub_syms
)
11084 struct elf_link_hash_entry
*h
;
11087 const char *const stub_str
[] = { "long_branch",
11088 "long_branch_r2off",
11090 "plt_branch_r2off",
11094 len1
= strlen (stub_str
[stub_entry
->stub_type
- 1]);
11095 len2
= strlen (stub_entry
->root
.string
);
11096 name
= bfd_malloc (len1
+ len2
+ 2);
11099 memcpy (name
, stub_entry
->root
.string
, 9);
11100 memcpy (name
+ 9, stub_str
[stub_entry
->stub_type
- 1], len1
);
11101 memcpy (name
+ len1
+ 9, stub_entry
->root
.string
+ 8, len2
- 8 + 1);
11102 h
= elf_link_hash_lookup (&htab
->elf
, name
, TRUE
, FALSE
, FALSE
);
11105 if (h
->root
.type
== bfd_link_hash_new
)
11107 h
->root
.type
= bfd_link_hash_defined
;
11108 h
->root
.u
.def
.section
= stub_entry
->group
->stub_sec
;
11109 h
->root
.u
.def
.value
= stub_entry
->stub_offset
;
11110 h
->ref_regular
= 1;
11111 h
->def_regular
= 1;
11112 h
->ref_regular_nonweak
= 1;
11113 h
->forced_local
= 1;
11115 h
->root
.linker_def
= 1;
11122 /* As above, but don't actually build the stub. Just bump offset so
11123 we know stub section sizes, and select plt_branch stubs where
11124 long_branch stubs won't do. */
11127 ppc_size_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
11129 struct ppc_stub_hash_entry
*stub_entry
;
11130 struct bfd_link_info
*info
;
11131 struct ppc_link_hash_table
*htab
;
11135 /* Massage our args to the form they really have. */
11136 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
11139 htab
= ppc_hash_table (info
);
11143 if (stub_entry
->h
!= NULL
11144 && stub_entry
->h
->save_res
11145 && stub_entry
->h
->elf
.root
.type
== bfd_link_hash_defined
11146 && stub_entry
->h
->elf
.root
.u
.def
.section
== htab
->sfpr
)
11148 /* Don't make stubs to out-of-line register save/restore
11149 functions. Instead, emit copies of the functions. */
11150 stub_entry
->group
->needs_save_res
= 1;
11151 stub_entry
->stub_type
= ppc_stub_save_res
;
11155 if (stub_entry
->stub_type
== ppc_stub_plt_call
11156 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
11159 off
= stub_entry
->plt_ent
->plt
.offset
& ~(bfd_vma
) 1;
11160 if (off
>= (bfd_vma
) -2)
11162 plt
= htab
->elf
.splt
;
11163 if (!htab
->elf
.dynamic_sections_created
11164 || stub_entry
->h
== NULL
11165 || stub_entry
->h
->elf
.dynindx
== -1)
11166 plt
= htab
->elf
.iplt
;
11167 off
+= (plt
->output_offset
11168 + plt
->output_section
->vma
11169 - elf_gp (plt
->output_section
->owner
)
11170 - htab
->sec_info
[stub_entry
->group
->link_sec
->id
].toc_off
);
11172 size
= plt_stub_size (htab
, stub_entry
, off
);
11173 if (htab
->params
->plt_stub_align
)
11174 size
+= plt_stub_pad (htab
, stub_entry
, off
);
11175 if (info
->emitrelocations
)
11177 stub_entry
->group
->stub_sec
->reloc_count
11178 += ((PPC_HA (off
) != 0)
11180 ? 2 + (htab
->params
->plt_static_chain
11181 && PPC_HA (off
+ 16) == PPC_HA (off
))
11183 stub_entry
->group
->stub_sec
->flags
|= SEC_RELOC
;
11188 /* ppc_stub_long_branch or ppc_stub_plt_branch, or their r2off
11191 bfd_vma local_off
= 0;
11193 off
= (stub_entry
->target_value
11194 + stub_entry
->target_section
->output_offset
11195 + stub_entry
->target_section
->output_section
->vma
);
11196 off
-= (stub_entry
->group
->stub_sec
->size
11197 + stub_entry
->group
->stub_sec
->output_offset
11198 + stub_entry
->group
->stub_sec
->output_section
->vma
);
11200 /* Reset the stub type from the plt variant in case we now
11201 can reach with a shorter stub. */
11202 if (stub_entry
->stub_type
>= ppc_stub_plt_branch
)
11203 stub_entry
->stub_type
+= ppc_stub_long_branch
- ppc_stub_plt_branch
;
11206 if (stub_entry
->stub_type
== ppc_stub_long_branch_r2off
)
11208 r2off
= get_r2off (info
, stub_entry
);
11209 if (r2off
== (bfd_vma
) -1)
11211 htab
->stub_error
= TRUE
;
11215 if (PPC_HA (r2off
) != 0)
11217 if (PPC_LO (r2off
) != 0)
11222 local_off
= PPC64_LOCAL_ENTRY_OFFSET (stub_entry
->other
);
11224 /* If the branch offset if too big, use a ppc_stub_plt_branch.
11225 Do the same for -R objects without function descriptors. */
11226 if (off
+ (1 << 25) >= (bfd_vma
) (1 << 26) - local_off
11227 || (stub_entry
->stub_type
== ppc_stub_long_branch_r2off
11229 && htab
->sec_info
[stub_entry
->target_section
->id
].toc_off
== 0))
11231 struct ppc_branch_hash_entry
*br_entry
;
11233 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
11234 stub_entry
->root
.string
+ 9,
11236 if (br_entry
== NULL
)
11238 info
->callbacks
->einfo (_("%P: can't build branch stub `%s'\n"),
11239 stub_entry
->root
.string
);
11240 htab
->stub_error
= TRUE
;
11244 if (br_entry
->iter
!= htab
->stub_iteration
)
11246 br_entry
->iter
= htab
->stub_iteration
;
11247 br_entry
->offset
= htab
->brlt
->size
;
11248 htab
->brlt
->size
+= 8;
11250 if (htab
->relbrlt
!= NULL
)
11251 htab
->relbrlt
->size
+= sizeof (Elf64_External_Rela
);
11252 else if (info
->emitrelocations
)
11254 htab
->brlt
->reloc_count
+= 1;
11255 htab
->brlt
->flags
|= SEC_RELOC
;
11259 stub_entry
->stub_type
+= ppc_stub_plt_branch
- ppc_stub_long_branch
;
11260 off
= (br_entry
->offset
11261 + htab
->brlt
->output_offset
11262 + htab
->brlt
->output_section
->vma
11263 - elf_gp (htab
->brlt
->output_section
->owner
)
11264 - htab
->sec_info
[stub_entry
->group
->link_sec
->id
].toc_off
);
11266 if (info
->emitrelocations
)
11268 stub_entry
->group
->stub_sec
->reloc_count
11269 += 1 + (PPC_HA (off
) != 0);
11270 stub_entry
->group
->stub_sec
->flags
|= SEC_RELOC
;
11273 if (stub_entry
->stub_type
!= ppc_stub_plt_branch_r2off
)
11276 if (PPC_HA (off
) != 0)
11282 if (PPC_HA (off
) != 0)
11285 if (PPC_HA (r2off
) != 0)
11287 if (PPC_LO (r2off
) != 0)
11291 else if (info
->emitrelocations
)
11293 stub_entry
->group
->stub_sec
->reloc_count
+= 1;
11294 stub_entry
->group
->stub_sec
->flags
|= SEC_RELOC
;
11298 stub_entry
->group
->stub_sec
->size
+= size
;
11302 /* Set up various things so that we can make a list of input sections
11303 for each output section included in the link. Returns -1 on error,
11304 0 when no stubs will be needed, and 1 on success. */
11307 ppc64_elf_setup_section_lists (struct bfd_link_info
*info
)
11311 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
11316 htab
->sec_info_arr_size
= bfd_get_next_section_id ();
11317 amt
= sizeof (*htab
->sec_info
) * (htab
->sec_info_arr_size
);
11318 htab
->sec_info
= bfd_zmalloc (amt
);
11319 if (htab
->sec_info
== NULL
)
11322 /* Set toc_off for com, und, abs and ind sections. */
11323 for (id
= 0; id
< 3; id
++)
11324 htab
->sec_info
[id
].toc_off
= TOC_BASE_OFF
;
11329 /* Set up for first pass at multitoc partitioning. */
11332 ppc64_elf_start_multitoc_partition (struct bfd_link_info
*info
)
11334 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
11336 htab
->toc_curr
= ppc64_elf_set_toc (info
, info
->output_bfd
);
11337 htab
->toc_bfd
= NULL
;
11338 htab
->toc_first_sec
= NULL
;
11341 /* The linker repeatedly calls this function for each TOC input section
11342 and linker generated GOT section. Group input bfds such that the toc
11343 within a group is less than 64k in size. */
11346 ppc64_elf_next_toc_section (struct bfd_link_info
*info
, asection
*isec
)
11348 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
11349 bfd_vma addr
, off
, limit
;
11354 if (!htab
->second_toc_pass
)
11356 /* Keep track of the first .toc or .got section for this input bfd. */
11357 bfd_boolean new_bfd
= htab
->toc_bfd
!= isec
->owner
;
11361 htab
->toc_bfd
= isec
->owner
;
11362 htab
->toc_first_sec
= isec
;
11365 addr
= isec
->output_offset
+ isec
->output_section
->vma
;
11366 off
= addr
- htab
->toc_curr
;
11367 limit
= 0x80008000;
11368 if (ppc64_elf_tdata (isec
->owner
)->has_small_toc_reloc
)
11370 if (off
+ isec
->size
> limit
)
11372 addr
= (htab
->toc_first_sec
->output_offset
11373 + htab
->toc_first_sec
->output_section
->vma
);
11374 htab
->toc_curr
= addr
;
11375 htab
->toc_curr
&= -TOC_BASE_ALIGN
;
11378 /* toc_curr is the base address of this toc group. Set elf_gp
11379 for the input section to be the offset relative to the
11380 output toc base plus 0x8000. Making the input elf_gp an
11381 offset allows us to move the toc as a whole without
11382 recalculating input elf_gp. */
11383 off
= htab
->toc_curr
- elf_gp (isec
->output_section
->owner
);
11384 off
+= TOC_BASE_OFF
;
11386 /* Die if someone uses a linker script that doesn't keep input
11387 file .toc and .got together. */
11389 && elf_gp (isec
->owner
) != 0
11390 && elf_gp (isec
->owner
) != off
)
11393 elf_gp (isec
->owner
) = off
;
11397 /* During the second pass toc_first_sec points to the start of
11398 a toc group, and toc_curr is used to track the old elf_gp.
11399 We use toc_bfd to ensure we only look at each bfd once. */
11400 if (htab
->toc_bfd
== isec
->owner
)
11402 htab
->toc_bfd
= isec
->owner
;
11404 if (htab
->toc_first_sec
== NULL
11405 || htab
->toc_curr
!= elf_gp (isec
->owner
))
11407 htab
->toc_curr
= elf_gp (isec
->owner
);
11408 htab
->toc_first_sec
= isec
;
11410 addr
= (htab
->toc_first_sec
->output_offset
11411 + htab
->toc_first_sec
->output_section
->vma
);
11412 off
= addr
- elf_gp (isec
->output_section
->owner
) + TOC_BASE_OFF
;
11413 elf_gp (isec
->owner
) = off
;
11418 /* Called via elf_link_hash_traverse to merge GOT entries for global
11422 merge_global_got (struct elf_link_hash_entry
*h
, void *inf ATTRIBUTE_UNUSED
)
11424 if (h
->root
.type
== bfd_link_hash_indirect
)
11427 merge_got_entries (&h
->got
.glist
);
11432 /* Called via elf_link_hash_traverse to allocate GOT entries for global
11436 reallocate_got (struct elf_link_hash_entry
*h
, void *inf
)
11438 struct got_entry
*gent
;
11440 if (h
->root
.type
== bfd_link_hash_indirect
)
11443 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
11444 if (!gent
->is_indirect
)
11445 allocate_got (h
, (struct bfd_link_info
*) inf
, gent
);
11449 /* Called on the first multitoc pass after the last call to
11450 ppc64_elf_next_toc_section. This function removes duplicate GOT
11454 ppc64_elf_layout_multitoc (struct bfd_link_info
*info
)
11456 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
11457 struct bfd
*ibfd
, *ibfd2
;
11458 bfd_boolean done_something
;
11460 htab
->multi_toc_needed
= htab
->toc_curr
!= elf_gp (info
->output_bfd
);
11462 if (!htab
->do_multi_toc
)
11465 /* Merge global sym got entries within a toc group. */
11466 elf_link_hash_traverse (&htab
->elf
, merge_global_got
, info
);
11468 /* And tlsld_got. */
11469 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
11471 struct got_entry
*ent
, *ent2
;
11473 if (!is_ppc64_elf (ibfd
))
11476 ent
= ppc64_tlsld_got (ibfd
);
11477 if (!ent
->is_indirect
11478 && ent
->got
.offset
!= (bfd_vma
) -1)
11480 for (ibfd2
= ibfd
->link
.next
; ibfd2
!= NULL
; ibfd2
= ibfd2
->link
.next
)
11482 if (!is_ppc64_elf (ibfd2
))
11485 ent2
= ppc64_tlsld_got (ibfd2
);
11486 if (!ent2
->is_indirect
11487 && ent2
->got
.offset
!= (bfd_vma
) -1
11488 && elf_gp (ibfd2
) == elf_gp (ibfd
))
11490 ent2
->is_indirect
= TRUE
;
11491 ent2
->got
.ent
= ent
;
11497 /* Zap sizes of got sections. */
11498 htab
->elf
.irelplt
->rawsize
= htab
->elf
.irelplt
->size
;
11499 htab
->elf
.irelplt
->size
-= htab
->got_reli_size
;
11500 htab
->got_reli_size
= 0;
11502 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
11504 asection
*got
, *relgot
;
11506 if (!is_ppc64_elf (ibfd
))
11509 got
= ppc64_elf_tdata (ibfd
)->got
;
11512 got
->rawsize
= got
->size
;
11514 relgot
= ppc64_elf_tdata (ibfd
)->relgot
;
11515 relgot
->rawsize
= relgot
->size
;
11520 /* Now reallocate the got, local syms first. We don't need to
11521 allocate section contents again since we never increase size. */
11522 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
11524 struct got_entry
**lgot_ents
;
11525 struct got_entry
**end_lgot_ents
;
11526 struct plt_entry
**local_plt
;
11527 struct plt_entry
**end_local_plt
;
11528 unsigned char *lgot_masks
;
11529 bfd_size_type locsymcount
;
11530 Elf_Internal_Shdr
*symtab_hdr
;
11533 if (!is_ppc64_elf (ibfd
))
11536 lgot_ents
= elf_local_got_ents (ibfd
);
11540 symtab_hdr
= &elf_symtab_hdr (ibfd
);
11541 locsymcount
= symtab_hdr
->sh_info
;
11542 end_lgot_ents
= lgot_ents
+ locsymcount
;
11543 local_plt
= (struct plt_entry
**) end_lgot_ents
;
11544 end_local_plt
= local_plt
+ locsymcount
;
11545 lgot_masks
= (unsigned char *) end_local_plt
;
11546 s
= ppc64_elf_tdata (ibfd
)->got
;
11547 for (; lgot_ents
< end_lgot_ents
; ++lgot_ents
, ++lgot_masks
)
11549 struct got_entry
*ent
;
11551 for (ent
= *lgot_ents
; ent
!= NULL
; ent
= ent
->next
)
11553 unsigned int ent_size
= 8;
11554 unsigned int rel_size
= sizeof (Elf64_External_Rela
);
11556 ent
->got
.offset
= s
->size
;
11557 if ((ent
->tls_type
& *lgot_masks
& TLS_GD
) != 0)
11562 s
->size
+= ent_size
;
11563 if ((*lgot_masks
& PLT_IFUNC
) != 0)
11565 htab
->elf
.irelplt
->size
+= rel_size
;
11566 htab
->got_reli_size
+= rel_size
;
11568 else if (bfd_link_pic (info
))
11570 asection
*srel
= ppc64_elf_tdata (ibfd
)->relgot
;
11571 srel
->size
+= rel_size
;
11577 elf_link_hash_traverse (&htab
->elf
, reallocate_got
, info
);
11579 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
11581 struct got_entry
*ent
;
11583 if (!is_ppc64_elf (ibfd
))
11586 ent
= ppc64_tlsld_got (ibfd
);
11587 if (!ent
->is_indirect
11588 && ent
->got
.offset
!= (bfd_vma
) -1)
11590 asection
*s
= ppc64_elf_tdata (ibfd
)->got
;
11591 ent
->got
.offset
= s
->size
;
11593 if (bfd_link_pic (info
))
11595 asection
*srel
= ppc64_elf_tdata (ibfd
)->relgot
;
11596 srel
->size
+= sizeof (Elf64_External_Rela
);
11601 done_something
= htab
->elf
.irelplt
->rawsize
!= htab
->elf
.irelplt
->size
;
11602 if (!done_something
)
11603 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link
.next
)
11607 if (!is_ppc64_elf (ibfd
))
11610 got
= ppc64_elf_tdata (ibfd
)->got
;
11613 done_something
= got
->rawsize
!= got
->size
;
11614 if (done_something
)
11619 if (done_something
)
11620 (*htab
->params
->layout_sections_again
) ();
11622 /* Set up for second pass over toc sections to recalculate elf_gp
11623 on input sections. */
11624 htab
->toc_bfd
= NULL
;
11625 htab
->toc_first_sec
= NULL
;
11626 htab
->second_toc_pass
= TRUE
;
11627 return done_something
;
11630 /* Called after second pass of multitoc partitioning. */
11633 ppc64_elf_finish_multitoc_partition (struct bfd_link_info
*info
)
11635 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
11637 /* After the second pass, toc_curr tracks the TOC offset used
11638 for code sections below in ppc64_elf_next_input_section. */
11639 htab
->toc_curr
= TOC_BASE_OFF
;
11642 /* No toc references were found in ISEC. If the code in ISEC makes no
11643 calls, then there's no need to use toc adjusting stubs when branching
11644 into ISEC. Actually, indirect calls from ISEC are OK as they will
11645 load r2. Returns -1 on error, 0 for no stub needed, 1 for stub
11646 needed, and 2 if a cyclical call-graph was found but no other reason
11647 for a stub was detected. If called from the top level, a return of
11648 2 means the same as a return of 0. */
11651 toc_adjusting_stub_needed (struct bfd_link_info
*info
, asection
*isec
)
11655 /* Mark this section as checked. */
11656 isec
->call_check_done
= 1;
11658 /* We know none of our code bearing sections will need toc stubs. */
11659 if ((isec
->flags
& SEC_LINKER_CREATED
) != 0)
11662 if (isec
->size
== 0)
11665 if (isec
->output_section
== NULL
)
11669 if (isec
->reloc_count
!= 0)
11671 Elf_Internal_Rela
*relstart
, *rel
;
11672 Elf_Internal_Sym
*local_syms
;
11673 struct ppc_link_hash_table
*htab
;
11675 relstart
= _bfd_elf_link_read_relocs (isec
->owner
, isec
, NULL
, NULL
,
11676 info
->keep_memory
);
11677 if (relstart
== NULL
)
11680 /* Look for branches to outside of this section. */
11682 htab
= ppc_hash_table (info
);
11686 for (rel
= relstart
; rel
< relstart
+ isec
->reloc_count
; ++rel
)
11688 enum elf_ppc64_reloc_type r_type
;
11689 unsigned long r_symndx
;
11690 struct elf_link_hash_entry
*h
;
11691 struct ppc_link_hash_entry
*eh
;
11692 Elf_Internal_Sym
*sym
;
11694 struct _opd_sec_data
*opd
;
11698 r_type
= ELF64_R_TYPE (rel
->r_info
);
11699 if (r_type
!= R_PPC64_REL24
11700 && r_type
!= R_PPC64_REL14
11701 && r_type
!= R_PPC64_REL14_BRTAKEN
11702 && r_type
!= R_PPC64_REL14_BRNTAKEN
)
11705 r_symndx
= ELF64_R_SYM (rel
->r_info
);
11706 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
, r_symndx
,
11713 /* Calls to dynamic lib functions go through a plt call stub
11715 eh
= (struct ppc_link_hash_entry
*) h
;
11717 && (eh
->elf
.plt
.plist
!= NULL
11719 && ppc_follow_link (eh
->oh
)->elf
.plt
.plist
!= NULL
)))
11725 if (sym_sec
== NULL
)
11726 /* Ignore other undefined symbols. */
11729 /* Assume branches to other sections not included in the
11730 link need stubs too, to cover -R and absolute syms. */
11731 if (sym_sec
->output_section
== NULL
)
11738 sym_value
= sym
->st_value
;
11741 if (h
->root
.type
!= bfd_link_hash_defined
11742 && h
->root
.type
!= bfd_link_hash_defweak
)
11744 sym_value
= h
->root
.u
.def
.value
;
11746 sym_value
+= rel
->r_addend
;
11748 /* If this branch reloc uses an opd sym, find the code section. */
11749 opd
= get_opd_info (sym_sec
);
11752 if (h
== NULL
&& opd
->adjust
!= NULL
)
11756 adjust
= opd
->adjust
[OPD_NDX (sym_value
)];
11758 /* Assume deleted functions won't ever be called. */
11760 sym_value
+= adjust
;
11763 dest
= opd_entry_value (sym_sec
, sym_value
,
11764 &sym_sec
, NULL
, FALSE
);
11765 if (dest
== (bfd_vma
) -1)
11770 + sym_sec
->output_offset
11771 + sym_sec
->output_section
->vma
);
11773 /* Ignore branch to self. */
11774 if (sym_sec
== isec
)
11777 /* If the called function uses the toc, we need a stub. */
11778 if (sym_sec
->has_toc_reloc
11779 || sym_sec
->makes_toc_func_call
)
11785 /* Assume any branch that needs a long branch stub might in fact
11786 need a plt_branch stub. A plt_branch stub uses r2. */
11787 else if (dest
- (isec
->output_offset
11788 + isec
->output_section
->vma
11789 + rel
->r_offset
) + (1 << 25)
11790 >= (2u << 25) - PPC64_LOCAL_ENTRY_OFFSET (h
11798 /* If calling back to a section in the process of being
11799 tested, we can't say for sure that no toc adjusting stubs
11800 are needed, so don't return zero. */
11801 else if (sym_sec
->call_check_in_progress
)
11804 /* Branches to another section that itself doesn't have any TOC
11805 references are OK. Recursively call ourselves to check. */
11806 else if (!sym_sec
->call_check_done
)
11810 /* Mark current section as indeterminate, so that other
11811 sections that call back to current won't be marked as
11813 isec
->call_check_in_progress
= 1;
11814 recur
= toc_adjusting_stub_needed (info
, sym_sec
);
11815 isec
->call_check_in_progress
= 0;
11826 if (local_syms
!= NULL
11827 && (elf_symtab_hdr (isec
->owner
).contents
11828 != (unsigned char *) local_syms
))
11830 if (elf_section_data (isec
)->relocs
!= relstart
)
11835 && isec
->map_head
.s
!= NULL
11836 && (strcmp (isec
->output_section
->name
, ".init") == 0
11837 || strcmp (isec
->output_section
->name
, ".fini") == 0))
11839 if (isec
->map_head
.s
->has_toc_reloc
11840 || isec
->map_head
.s
->makes_toc_func_call
)
11842 else if (!isec
->map_head
.s
->call_check_done
)
11845 isec
->call_check_in_progress
= 1;
11846 recur
= toc_adjusting_stub_needed (info
, isec
->map_head
.s
);
11847 isec
->call_check_in_progress
= 0;
11854 isec
->makes_toc_func_call
= 1;
11859 /* The linker repeatedly calls this function for each input section,
11860 in the order that input sections are linked into output sections.
11861 Build lists of input sections to determine groupings between which
11862 we may insert linker stubs. */
11865 ppc64_elf_next_input_section (struct bfd_link_info
*info
, asection
*isec
)
11867 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
11872 if ((isec
->output_section
->flags
& SEC_CODE
) != 0
11873 && isec
->output_section
->id
< htab
->sec_info_arr_size
)
11875 /* This happens to make the list in reverse order,
11876 which is what we want. */
11877 htab
->sec_info
[isec
->id
].u
.list
11878 = htab
->sec_info
[isec
->output_section
->id
].u
.list
;
11879 htab
->sec_info
[isec
->output_section
->id
].u
.list
= isec
;
11882 if (htab
->multi_toc_needed
)
11884 /* Analyse sections that aren't already flagged as needing a
11885 valid toc pointer. Exclude .fixup for the linux kernel.
11886 .fixup contains branches, but only back to the function that
11887 hit an exception. */
11888 if (!(isec
->has_toc_reloc
11889 || (isec
->flags
& SEC_CODE
) == 0
11890 || strcmp (isec
->name
, ".fixup") == 0
11891 || isec
->call_check_done
))
11893 if (toc_adjusting_stub_needed (info
, isec
) < 0)
11896 /* Make all sections use the TOC assigned for this object file.
11897 This will be wrong for pasted sections; We fix that in
11898 check_pasted_section(). */
11899 if (elf_gp (isec
->owner
) != 0)
11900 htab
->toc_curr
= elf_gp (isec
->owner
);
11903 htab
->sec_info
[isec
->id
].toc_off
= htab
->toc_curr
;
11907 /* Check that all .init and .fini sections use the same toc, if they
11908 have toc relocs. */
11911 check_pasted_section (struct bfd_link_info
*info
, const char *name
)
11913 asection
*o
= bfd_get_section_by_name (info
->output_bfd
, name
);
11917 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
11918 bfd_vma toc_off
= 0;
11921 for (i
= o
->map_head
.s
; i
!= NULL
; i
= i
->map_head
.s
)
11922 if (i
->has_toc_reloc
)
11925 toc_off
= htab
->sec_info
[i
->id
].toc_off
;
11926 else if (toc_off
!= htab
->sec_info
[i
->id
].toc_off
)
11931 for (i
= o
->map_head
.s
; i
!= NULL
; i
= i
->map_head
.s
)
11932 if (i
->makes_toc_func_call
)
11934 toc_off
= htab
->sec_info
[i
->id
].toc_off
;
11938 /* Make sure the whole pasted function uses the same toc offset. */
11940 for (i
= o
->map_head
.s
; i
!= NULL
; i
= i
->map_head
.s
)
11941 htab
->sec_info
[i
->id
].toc_off
= toc_off
;
11947 ppc64_elf_check_init_fini (struct bfd_link_info
*info
)
11949 return (check_pasted_section (info
, ".init")
11950 & check_pasted_section (info
, ".fini"));
11953 /* See whether we can group stub sections together. Grouping stub
11954 sections may result in fewer stubs. More importantly, we need to
11955 put all .init* and .fini* stubs at the beginning of the .init or
11956 .fini output sections respectively, because glibc splits the
11957 _init and _fini functions into multiple parts. Putting a stub in
11958 the middle of a function is not a good idea. */
11961 group_sections (struct bfd_link_info
*info
,
11962 bfd_size_type stub_group_size
,
11963 bfd_boolean stubs_always_before_branch
)
11965 struct ppc_link_hash_table
*htab
;
11967 bfd_size_type stub14_group_size
;
11968 bfd_boolean suppress_size_errors
;
11970 htab
= ppc_hash_table (info
);
11974 suppress_size_errors
= FALSE
;
11975 stub14_group_size
= stub_group_size
>> 10;
11976 if (stub_group_size
== 1)
11978 /* Default values. */
11979 if (stubs_always_before_branch
)
11981 stub_group_size
= 0x1e00000;
11982 stub14_group_size
= 0x7800;
11986 stub_group_size
= 0x1c00000;
11987 stub14_group_size
= 0x7000;
11989 suppress_size_errors
= TRUE
;
11992 for (osec
= info
->output_bfd
->sections
; osec
!= NULL
; osec
= osec
->next
)
11996 if (osec
->id
>= htab
->sec_info_arr_size
)
11999 tail
= htab
->sec_info
[osec
->id
].u
.list
;
12000 while (tail
!= NULL
)
12004 bfd_size_type total
;
12005 bfd_boolean big_sec
;
12007 struct map_stub
*group
;
12010 total
= tail
->size
;
12011 big_sec
= total
> (ppc64_elf_section_data (tail
) != NULL
12012 && ppc64_elf_section_data (tail
)->has_14bit_branch
12013 ? stub14_group_size
: stub_group_size
);
12014 if (big_sec
&& !suppress_size_errors
)
12015 (*_bfd_error_handler
) (_("%B section %A exceeds stub group size"),
12016 tail
->owner
, tail
);
12017 curr_toc
= htab
->sec_info
[tail
->id
].toc_off
;
12019 while ((prev
= htab
->sec_info
[curr
->id
].u
.list
) != NULL
12020 && ((total
+= curr
->output_offset
- prev
->output_offset
)
12021 < (ppc64_elf_section_data (prev
) != NULL
12022 && ppc64_elf_section_data (prev
)->has_14bit_branch
12023 ? stub14_group_size
: stub_group_size
))
12024 && htab
->sec_info
[prev
->id
].toc_off
== curr_toc
)
12027 /* OK, the size from the start of CURR to the end is less
12028 than stub_group_size and thus can be handled by one stub
12029 section. (or the tail section is itself larger than
12030 stub_group_size, in which case we may be toast.) We
12031 should really be keeping track of the total size of stubs
12032 added here, as stubs contribute to the final output
12033 section size. That's a little tricky, and this way will
12034 only break if stubs added make the total size more than
12035 2^25, ie. for the default stub_group_size, if stubs total
12036 more than 2097152 bytes, or nearly 75000 plt call stubs. */
12037 group
= bfd_alloc (curr
->owner
, sizeof (*group
));
12040 group
->link_sec
= curr
;
12041 group
->stub_sec
= NULL
;
12042 group
->needs_save_res
= 0;
12043 group
->next
= htab
->group
;
12044 htab
->group
= group
;
12047 prev
= htab
->sec_info
[tail
->id
].u
.list
;
12048 /* Set up this stub group. */
12049 htab
->sec_info
[tail
->id
].u
.group
= group
;
12051 while (tail
!= curr
&& (tail
= prev
) != NULL
);
12053 /* But wait, there's more! Input sections up to stub_group_size
12054 bytes before the stub section can be handled by it too.
12055 Don't do this if we have a really large section after the
12056 stubs, as adding more stubs increases the chance that
12057 branches may not reach into the stub section. */
12058 if (!stubs_always_before_branch
&& !big_sec
)
12061 while (prev
!= NULL
12062 && ((total
+= tail
->output_offset
- prev
->output_offset
)
12063 < (ppc64_elf_section_data (prev
) != NULL
12064 && ppc64_elf_section_data (prev
)->has_14bit_branch
12065 ? stub14_group_size
: stub_group_size
))
12066 && htab
->sec_info
[prev
->id
].toc_off
== curr_toc
)
12069 prev
= htab
->sec_info
[tail
->id
].u
.list
;
12070 htab
->sec_info
[tail
->id
].u
.group
= group
;
12079 static const unsigned char glink_eh_frame_cie
[] =
12081 0, 0, 0, 16, /* length. */
12082 0, 0, 0, 0, /* id. */
12083 1, /* CIE version. */
12084 'z', 'R', 0, /* Augmentation string. */
12085 4, /* Code alignment. */
12086 0x78, /* Data alignment. */
12088 1, /* Augmentation size. */
12089 DW_EH_PE_pcrel
| DW_EH_PE_sdata4
, /* FDE encoding. */
12090 DW_CFA_def_cfa
, 1, 0, /* def_cfa: r1 offset 0. */
12094 /* Stripping output sections is normally done before dynamic section
12095 symbols have been allocated. This function is called later, and
12096 handles cases like htab->brlt which is mapped to its own output
12100 maybe_strip_output (struct bfd_link_info
*info
, asection
*isec
)
12102 if (isec
->size
== 0
12103 && isec
->output_section
->size
== 0
12104 && !(isec
->output_section
->flags
& SEC_KEEP
)
12105 && !bfd_section_removed_from_list (info
->output_bfd
,
12106 isec
->output_section
)
12107 && elf_section_data (isec
->output_section
)->dynindx
== 0)
12109 isec
->output_section
->flags
|= SEC_EXCLUDE
;
12110 bfd_section_list_remove (info
->output_bfd
, isec
->output_section
);
12111 info
->output_bfd
->section_count
--;
12115 /* Determine and set the size of the stub section for a final link.
12117 The basic idea here is to examine all the relocations looking for
12118 PC-relative calls to a target that is unreachable with a "bl"
12122 ppc64_elf_size_stubs (struct bfd_link_info
*info
)
12124 bfd_size_type stub_group_size
;
12125 bfd_boolean stubs_always_before_branch
;
12126 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
12131 if (htab
->params
->plt_thread_safe
== -1 && !bfd_link_executable (info
))
12132 htab
->params
->plt_thread_safe
= 1;
12133 if (!htab
->opd_abi
)
12134 htab
->params
->plt_thread_safe
= 0;
12135 else if (htab
->params
->plt_thread_safe
== -1)
12137 static const char *const thread_starter
[] =
12141 "_ZNSt6thread15_M_start_threadESt10shared_ptrINS_10_Impl_baseEE",
12143 "aio_init", "aio_read", "aio_write", "aio_fsync", "lio_listio",
12144 "mq_notify", "create_timer",
12149 "GOMP_parallel_start",
12150 "GOMP_parallel_loop_static",
12151 "GOMP_parallel_loop_static_start",
12152 "GOMP_parallel_loop_dynamic",
12153 "GOMP_parallel_loop_dynamic_start",
12154 "GOMP_parallel_loop_guided",
12155 "GOMP_parallel_loop_guided_start",
12156 "GOMP_parallel_loop_runtime",
12157 "GOMP_parallel_loop_runtime_start",
12158 "GOMP_parallel_sections",
12159 "GOMP_parallel_sections_start",
12165 for (i
= 0; i
< ARRAY_SIZE (thread_starter
); i
++)
12167 struct elf_link_hash_entry
*h
;
12168 h
= elf_link_hash_lookup (&htab
->elf
, thread_starter
[i
],
12169 FALSE
, FALSE
, TRUE
);
12170 htab
->params
->plt_thread_safe
= h
!= NULL
&& h
->ref_regular
;
12171 if (htab
->params
->plt_thread_safe
)
12175 stubs_always_before_branch
= htab
->params
->group_size
< 0;
12176 if (htab
->params
->group_size
< 0)
12177 stub_group_size
= -htab
->params
->group_size
;
12179 stub_group_size
= htab
->params
->group_size
;
12181 if (!group_sections (info
, stub_group_size
, stubs_always_before_branch
))
12187 unsigned int bfd_indx
;
12188 struct map_stub
*group
;
12189 asection
*stub_sec
;
12191 htab
->stub_iteration
+= 1;
12193 for (input_bfd
= info
->input_bfds
, bfd_indx
= 0;
12195 input_bfd
= input_bfd
->link
.next
, bfd_indx
++)
12197 Elf_Internal_Shdr
*symtab_hdr
;
12199 Elf_Internal_Sym
*local_syms
= NULL
;
12201 if (!is_ppc64_elf (input_bfd
))
12204 /* We'll need the symbol table in a second. */
12205 symtab_hdr
= &elf_symtab_hdr (input_bfd
);
12206 if (symtab_hdr
->sh_info
== 0)
12209 /* Walk over each section attached to the input bfd. */
12210 for (section
= input_bfd
->sections
;
12212 section
= section
->next
)
12214 Elf_Internal_Rela
*internal_relocs
, *irelaend
, *irela
;
12216 /* If there aren't any relocs, then there's nothing more
12218 if ((section
->flags
& SEC_RELOC
) == 0
12219 || (section
->flags
& SEC_ALLOC
) == 0
12220 || (section
->flags
& SEC_LOAD
) == 0
12221 || (section
->flags
& SEC_CODE
) == 0
12222 || section
->reloc_count
== 0)
12225 /* If this section is a link-once section that will be
12226 discarded, then don't create any stubs. */
12227 if (section
->output_section
== NULL
12228 || section
->output_section
->owner
!= info
->output_bfd
)
12231 /* Get the relocs. */
12233 = _bfd_elf_link_read_relocs (input_bfd
, section
, NULL
, NULL
,
12234 info
->keep_memory
);
12235 if (internal_relocs
== NULL
)
12236 goto error_ret_free_local
;
12238 /* Now examine each relocation. */
12239 irela
= internal_relocs
;
12240 irelaend
= irela
+ section
->reloc_count
;
12241 for (; irela
< irelaend
; irela
++)
12243 enum elf_ppc64_reloc_type r_type
;
12244 unsigned int r_indx
;
12245 enum ppc_stub_type stub_type
;
12246 struct ppc_stub_hash_entry
*stub_entry
;
12247 asection
*sym_sec
, *code_sec
;
12248 bfd_vma sym_value
, code_value
;
12249 bfd_vma destination
;
12250 unsigned long local_off
;
12251 bfd_boolean ok_dest
;
12252 struct ppc_link_hash_entry
*hash
;
12253 struct ppc_link_hash_entry
*fdh
;
12254 struct elf_link_hash_entry
*h
;
12255 Elf_Internal_Sym
*sym
;
12257 const asection
*id_sec
;
12258 struct _opd_sec_data
*opd
;
12259 struct plt_entry
*plt_ent
;
12261 r_type
= ELF64_R_TYPE (irela
->r_info
);
12262 r_indx
= ELF64_R_SYM (irela
->r_info
);
12264 if (r_type
>= R_PPC64_max
)
12266 bfd_set_error (bfd_error_bad_value
);
12267 goto error_ret_free_internal
;
12270 /* Only look for stubs on branch instructions. */
12271 if (r_type
!= R_PPC64_REL24
12272 && r_type
!= R_PPC64_REL14
12273 && r_type
!= R_PPC64_REL14_BRTAKEN
12274 && r_type
!= R_PPC64_REL14_BRNTAKEN
)
12277 /* Now determine the call target, its name, value,
12279 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
12280 r_indx
, input_bfd
))
12281 goto error_ret_free_internal
;
12282 hash
= (struct ppc_link_hash_entry
*) h
;
12289 sym_value
= sym
->st_value
;
12290 if (sym_sec
!= NULL
12291 && sym_sec
->output_section
!= NULL
)
12294 else if (hash
->elf
.root
.type
== bfd_link_hash_defined
12295 || hash
->elf
.root
.type
== bfd_link_hash_defweak
)
12297 sym_value
= hash
->elf
.root
.u
.def
.value
;
12298 if (sym_sec
->output_section
!= NULL
)
12301 else if (hash
->elf
.root
.type
== bfd_link_hash_undefweak
12302 || hash
->elf
.root
.type
== bfd_link_hash_undefined
)
12304 /* Recognise an old ABI func code entry sym, and
12305 use the func descriptor sym instead if it is
12307 if (hash
->elf
.root
.root
.string
[0] == '.'
12308 && (fdh
= lookup_fdh (hash
, htab
)) != NULL
)
12310 if (fdh
->elf
.root
.type
== bfd_link_hash_defined
12311 || fdh
->elf
.root
.type
== bfd_link_hash_defweak
)
12313 sym_sec
= fdh
->elf
.root
.u
.def
.section
;
12314 sym_value
= fdh
->elf
.root
.u
.def
.value
;
12315 if (sym_sec
->output_section
!= NULL
)
12324 bfd_set_error (bfd_error_bad_value
);
12325 goto error_ret_free_internal
;
12332 sym_value
+= irela
->r_addend
;
12333 destination
= (sym_value
12334 + sym_sec
->output_offset
12335 + sym_sec
->output_section
->vma
);
12336 local_off
= PPC64_LOCAL_ENTRY_OFFSET (hash
12341 code_sec
= sym_sec
;
12342 code_value
= sym_value
;
12343 opd
= get_opd_info (sym_sec
);
12348 if (hash
== NULL
&& opd
->adjust
!= NULL
)
12350 long adjust
= opd
->adjust
[OPD_NDX (sym_value
)];
12353 code_value
+= adjust
;
12354 sym_value
+= adjust
;
12356 dest
= opd_entry_value (sym_sec
, sym_value
,
12357 &code_sec
, &code_value
, FALSE
);
12358 if (dest
!= (bfd_vma
) -1)
12360 destination
= dest
;
12363 /* Fixup old ABI sym to point at code
12365 hash
->elf
.root
.type
= bfd_link_hash_defweak
;
12366 hash
->elf
.root
.u
.def
.section
= code_sec
;
12367 hash
->elf
.root
.u
.def
.value
= code_value
;
12372 /* Determine what (if any) linker stub is needed. */
12374 stub_type
= ppc_type_of_stub (section
, irela
, &hash
,
12375 &plt_ent
, destination
,
12378 if (stub_type
!= ppc_stub_plt_call
)
12380 /* Check whether we need a TOC adjusting stub.
12381 Since the linker pastes together pieces from
12382 different object files when creating the
12383 _init and _fini functions, it may be that a
12384 call to what looks like a local sym is in
12385 fact a call needing a TOC adjustment. */
12386 if (code_sec
!= NULL
12387 && code_sec
->output_section
!= NULL
12388 && (htab
->sec_info
[code_sec
->id
].toc_off
12389 != htab
->sec_info
[section
->id
].toc_off
)
12390 && (code_sec
->has_toc_reloc
12391 || code_sec
->makes_toc_func_call
))
12392 stub_type
= ppc_stub_long_branch_r2off
;
12395 if (stub_type
== ppc_stub_none
)
12398 /* __tls_get_addr calls might be eliminated. */
12399 if (stub_type
!= ppc_stub_plt_call
12401 && (hash
== htab
->tls_get_addr
12402 || hash
== htab
->tls_get_addr_fd
)
12403 && section
->has_tls_reloc
12404 && irela
!= internal_relocs
)
12406 /* Get tls info. */
12407 unsigned char *tls_mask
;
12409 if (!get_tls_mask (&tls_mask
, NULL
, NULL
, &local_syms
,
12410 irela
- 1, input_bfd
))
12411 goto error_ret_free_internal
;
12412 if (*tls_mask
!= 0)
12416 if (stub_type
== ppc_stub_plt_call
12417 && irela
+ 1 < irelaend
12418 && irela
[1].r_offset
== irela
->r_offset
+ 4
12419 && ELF64_R_TYPE (irela
[1].r_info
) == R_PPC64_TOCSAVE
)
12421 if (!tocsave_find (htab
, INSERT
,
12422 &local_syms
, irela
+ 1, input_bfd
))
12423 goto error_ret_free_internal
;
12425 else if (stub_type
== ppc_stub_plt_call
)
12426 stub_type
= ppc_stub_plt_call_r2save
;
12428 /* Support for grouping stub sections. */
12429 id_sec
= htab
->sec_info
[section
->id
].u
.group
->link_sec
;
12431 /* Get the name of this stub. */
12432 stub_name
= ppc_stub_name (id_sec
, sym_sec
, hash
, irela
);
12434 goto error_ret_free_internal
;
12436 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
12437 stub_name
, FALSE
, FALSE
);
12438 if (stub_entry
!= NULL
)
12440 /* The proper stub has already been created. */
12442 if (stub_type
== ppc_stub_plt_call_r2save
)
12443 stub_entry
->stub_type
= stub_type
;
12447 stub_entry
= ppc_add_stub (stub_name
, section
, info
);
12448 if (stub_entry
== NULL
)
12451 error_ret_free_internal
:
12452 if (elf_section_data (section
)->relocs
== NULL
)
12453 free (internal_relocs
);
12454 error_ret_free_local
:
12455 if (local_syms
!= NULL
12456 && (symtab_hdr
->contents
12457 != (unsigned char *) local_syms
))
12462 stub_entry
->stub_type
= stub_type
;
12463 if (stub_type
!= ppc_stub_plt_call
12464 && stub_type
!= ppc_stub_plt_call_r2save
)
12466 stub_entry
->target_value
= code_value
;
12467 stub_entry
->target_section
= code_sec
;
12471 stub_entry
->target_value
= sym_value
;
12472 stub_entry
->target_section
= sym_sec
;
12474 stub_entry
->h
= hash
;
12475 stub_entry
->plt_ent
= plt_ent
;
12476 stub_entry
->other
= hash
? hash
->elf
.other
: sym
->st_other
;
12478 if (stub_entry
->h
!= NULL
)
12479 htab
->stub_globals
+= 1;
12482 /* We're done with the internal relocs, free them. */
12483 if (elf_section_data (section
)->relocs
!= internal_relocs
)
12484 free (internal_relocs
);
12487 if (local_syms
!= NULL
12488 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
12490 if (!info
->keep_memory
)
12493 symtab_hdr
->contents
= (unsigned char *) local_syms
;
12497 /* We may have added some stubs. Find out the new size of the
12499 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
12501 stub_sec
= stub_sec
->next
)
12502 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
12504 stub_sec
->rawsize
= stub_sec
->size
;
12505 stub_sec
->size
= 0;
12506 stub_sec
->reloc_count
= 0;
12507 stub_sec
->flags
&= ~SEC_RELOC
;
12510 htab
->brlt
->size
= 0;
12511 htab
->brlt
->reloc_count
= 0;
12512 htab
->brlt
->flags
&= ~SEC_RELOC
;
12513 if (htab
->relbrlt
!= NULL
)
12514 htab
->relbrlt
->size
= 0;
12516 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_size_one_stub
, info
);
12518 for (group
= htab
->group
; group
!= NULL
; group
= group
->next
)
12519 if (group
->needs_save_res
)
12520 group
->stub_sec
->size
+= htab
->sfpr
->size
;
12522 if (info
->emitrelocations
12523 && htab
->glink
!= NULL
&& htab
->glink
->size
!= 0)
12525 htab
->glink
->reloc_count
= 1;
12526 htab
->glink
->flags
|= SEC_RELOC
;
12529 if (htab
->glink_eh_frame
!= NULL
12530 && !bfd_is_abs_section (htab
->glink_eh_frame
->output_section
)
12531 && htab
->glink_eh_frame
->output_section
->size
!= 0)
12533 size_t size
= 0, align
;
12535 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
12537 stub_sec
= stub_sec
->next
)
12538 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
12540 if (htab
->glink
!= NULL
&& htab
->glink
->size
!= 0)
12543 size
+= sizeof (glink_eh_frame_cie
);
12545 align
<<= htab
->glink_eh_frame
->output_section
->alignment_power
;
12547 size
= (size
+ align
) & ~align
;
12548 htab
->glink_eh_frame
->rawsize
= htab
->glink_eh_frame
->size
;
12549 htab
->glink_eh_frame
->size
= size
;
12552 if (htab
->params
->plt_stub_align
!= 0)
12553 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
12555 stub_sec
= stub_sec
->next
)
12556 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
12557 stub_sec
->size
= ((stub_sec
->size
12558 + (1 << htab
->params
->plt_stub_align
) - 1)
12559 & -(1 << htab
->params
->plt_stub_align
));
12561 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
12563 stub_sec
= stub_sec
->next
)
12564 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0
12565 && stub_sec
->rawsize
!= stub_sec
->size
)
12568 /* Exit from this loop when no stubs have been added, and no stubs
12569 have changed size. */
12570 if (stub_sec
== NULL
12571 && (htab
->glink_eh_frame
== NULL
12572 || htab
->glink_eh_frame
->rawsize
== htab
->glink_eh_frame
->size
))
12575 /* Ask the linker to do its stuff. */
12576 (*htab
->params
->layout_sections_again
) ();
12579 if (htab
->glink_eh_frame
!= NULL
12580 && htab
->glink_eh_frame
->size
!= 0)
12583 bfd_byte
*p
, *last_fde
;
12584 size_t last_fde_len
, size
, align
, pad
;
12585 asection
*stub_sec
;
12587 p
= bfd_zalloc (htab
->glink_eh_frame
->owner
, htab
->glink_eh_frame
->size
);
12590 htab
->glink_eh_frame
->contents
= p
;
12593 memcpy (p
, glink_eh_frame_cie
, sizeof (glink_eh_frame_cie
));
12594 /* CIE length (rewrite in case little-endian). */
12595 last_fde_len
= sizeof (glink_eh_frame_cie
) - 4;
12596 bfd_put_32 (htab
->elf
.dynobj
, last_fde_len
, p
);
12597 p
+= sizeof (glink_eh_frame_cie
);
12599 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
12601 stub_sec
= stub_sec
->next
)
12602 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
12607 bfd_put_32 (htab
->elf
.dynobj
, 20, p
);
12610 val
= p
- htab
->glink_eh_frame
->contents
;
12611 bfd_put_32 (htab
->elf
.dynobj
, val
, p
);
12613 /* Offset to stub section, written later. */
12615 /* stub section size. */
12616 bfd_put_32 (htab
->elf
.dynobj
, stub_sec
->size
, p
);
12618 /* Augmentation. */
12623 if (htab
->glink
!= NULL
&& htab
->glink
->size
!= 0)
12628 bfd_put_32 (htab
->elf
.dynobj
, 20, p
);
12631 val
= p
- htab
->glink_eh_frame
->contents
;
12632 bfd_put_32 (htab
->elf
.dynobj
, val
, p
);
12634 /* Offset to .glink, written later. */
12637 bfd_put_32 (htab
->elf
.dynobj
, htab
->glink
->size
- 8, p
);
12639 /* Augmentation. */
12642 *p
++ = DW_CFA_advance_loc
+ 1;
12643 *p
++ = DW_CFA_register
;
12645 *p
++ = htab
->opd_abi
? 12 : 0;
12646 *p
++ = DW_CFA_advance_loc
+ 4;
12647 *p
++ = DW_CFA_restore_extended
;
12650 /* Subsume any padding into the last FDE if user .eh_frame
12651 sections are aligned more than glink_eh_frame. Otherwise any
12652 zero padding will be seen as a terminator. */
12653 size
= p
- htab
->glink_eh_frame
->contents
;
12655 align
<<= htab
->glink_eh_frame
->output_section
->alignment_power
;
12657 pad
= ((size
+ align
) & ~align
) - size
;
12658 htab
->glink_eh_frame
->size
= size
+ pad
;
12659 bfd_put_32 (htab
->elf
.dynobj
, last_fde_len
+ pad
, last_fde
);
12662 maybe_strip_output (info
, htab
->brlt
);
12663 if (htab
->glink_eh_frame
!= NULL
)
12664 maybe_strip_output (info
, htab
->glink_eh_frame
);
12669 /* Called after we have determined section placement. If sections
12670 move, we'll be called again. Provide a value for TOCstart. */
12673 ppc64_elf_set_toc (struct bfd_link_info
*info
, bfd
*obfd
)
12676 bfd_vma TOCstart
, adjust
;
12680 struct elf_link_hash_entry
*h
;
12681 struct elf_link_hash_table
*htab
= elf_hash_table (info
);
12683 if (is_elf_hash_table (htab
)
12684 && htab
->hgot
!= NULL
)
12688 h
= elf_link_hash_lookup (htab
, ".TOC.", FALSE
, FALSE
, TRUE
);
12689 if (is_elf_hash_table (htab
))
12693 && h
->root
.type
== bfd_link_hash_defined
12694 && !h
->root
.linker_def
12695 && (!is_elf_hash_table (htab
)
12696 || h
->def_regular
))
12698 TOCstart
= (h
->root
.u
.def
.value
- TOC_BASE_OFF
12699 + h
->root
.u
.def
.section
->output_offset
12700 + h
->root
.u
.def
.section
->output_section
->vma
);
12701 _bfd_set_gp_value (obfd
, TOCstart
);
12706 /* The TOC consists of sections .got, .toc, .tocbss, .plt in that
12707 order. The TOC starts where the first of these sections starts. */
12708 s
= bfd_get_section_by_name (obfd
, ".got");
12709 if (s
== NULL
|| (s
->flags
& SEC_EXCLUDE
) != 0)
12710 s
= bfd_get_section_by_name (obfd
, ".toc");
12711 if (s
== NULL
|| (s
->flags
& SEC_EXCLUDE
) != 0)
12712 s
= bfd_get_section_by_name (obfd
, ".tocbss");
12713 if (s
== NULL
|| (s
->flags
& SEC_EXCLUDE
) != 0)
12714 s
= bfd_get_section_by_name (obfd
, ".plt");
12715 if (s
== NULL
|| (s
->flags
& SEC_EXCLUDE
) != 0)
12717 /* This may happen for
12718 o references to TOC base (SYM@toc / TOC[tc0]) without a
12720 o bad linker script
12721 o --gc-sections and empty TOC sections
12723 FIXME: Warn user? */
12725 /* Look for a likely section. We probably won't even be
12727 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
12728 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
| SEC_READONLY
12730 == (SEC_ALLOC
| SEC_SMALL_DATA
))
12733 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
12734 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
| SEC_EXCLUDE
))
12735 == (SEC_ALLOC
| SEC_SMALL_DATA
))
12738 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
12739 if ((s
->flags
& (SEC_ALLOC
| SEC_READONLY
| SEC_EXCLUDE
))
12743 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
12744 if ((s
->flags
& (SEC_ALLOC
| SEC_EXCLUDE
)) == SEC_ALLOC
)
12750 TOCstart
= s
->output_section
->vma
+ s
->output_offset
;
12752 /* Force alignment. */
12753 adjust
= TOCstart
& (TOC_BASE_ALIGN
- 1);
12754 TOCstart
-= adjust
;
12755 _bfd_set_gp_value (obfd
, TOCstart
);
12757 if (info
!= NULL
&& s
!= NULL
)
12759 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
12763 if (htab
->elf
.hgot
!= NULL
)
12765 htab
->elf
.hgot
->root
.u
.def
.value
= TOC_BASE_OFF
- adjust
;
12766 htab
->elf
.hgot
->root
.u
.def
.section
= s
;
12771 struct bfd_link_hash_entry
*bh
= NULL
;
12772 _bfd_generic_link_add_one_symbol (info
, obfd
, ".TOC.", BSF_GLOBAL
,
12773 s
, TOC_BASE_OFF
- adjust
,
12774 NULL
, FALSE
, FALSE
, &bh
);
12780 /* Called via elf_link_hash_traverse from ppc64_elf_build_stubs to
12781 write out any global entry stubs. */
12784 build_global_entry_stubs (struct elf_link_hash_entry
*h
, void *inf
)
12786 struct bfd_link_info
*info
;
12787 struct ppc_link_hash_table
*htab
;
12788 struct plt_entry
*pent
;
12791 if (h
->root
.type
== bfd_link_hash_indirect
)
12794 if (!h
->pointer_equality_needed
)
12797 if (h
->def_regular
)
12801 htab
= ppc_hash_table (info
);
12806 for (pent
= h
->plt
.plist
; pent
!= NULL
; pent
= pent
->next
)
12807 if (pent
->plt
.offset
!= (bfd_vma
) -1
12808 && pent
->addend
== 0)
12814 p
= s
->contents
+ h
->root
.u
.def
.value
;
12815 plt
= htab
->elf
.splt
;
12816 if (!htab
->elf
.dynamic_sections_created
12817 || h
->dynindx
== -1)
12818 plt
= htab
->elf
.iplt
;
12819 off
= pent
->plt
.offset
+ plt
->output_offset
+ plt
->output_section
->vma
;
12820 off
-= h
->root
.u
.def
.value
+ s
->output_offset
+ s
->output_section
->vma
;
12822 if (off
+ 0x80008000 > 0xffffffff || (off
& 3) != 0)
12824 info
->callbacks
->einfo
12825 (_("%P: linkage table error against `%T'\n"),
12826 h
->root
.root
.string
);
12827 bfd_set_error (bfd_error_bad_value
);
12828 htab
->stub_error
= TRUE
;
12831 htab
->stub_count
[ppc_stub_global_entry
- 1] += 1;
12832 if (htab
->params
->emit_stub_syms
)
12834 size_t len
= strlen (h
->root
.root
.string
);
12835 char *name
= bfd_malloc (sizeof "12345678.global_entry." + len
);
12840 sprintf (name
, "%08x.global_entry.%s", s
->id
, h
->root
.root
.string
);
12841 h
= elf_link_hash_lookup (&htab
->elf
, name
, TRUE
, FALSE
, FALSE
);
12844 if (h
->root
.type
== bfd_link_hash_new
)
12846 h
->root
.type
= bfd_link_hash_defined
;
12847 h
->root
.u
.def
.section
= s
;
12848 h
->root
.u
.def
.value
= p
- s
->contents
;
12849 h
->ref_regular
= 1;
12850 h
->def_regular
= 1;
12851 h
->ref_regular_nonweak
= 1;
12852 h
->forced_local
= 1;
12854 h
->root
.linker_def
= 1;
12858 if (PPC_HA (off
) != 0)
12860 bfd_put_32 (s
->owner
, ADDIS_R12_R12
| PPC_HA (off
), p
);
12863 bfd_put_32 (s
->owner
, LD_R12_0R12
| PPC_LO (off
), p
);
12865 bfd_put_32 (s
->owner
, MTCTR_R12
, p
);
12867 bfd_put_32 (s
->owner
, BCTR
, p
);
12873 /* Build all the stubs associated with the current output file.
12874 The stubs are kept in a hash table attached to the main linker
12875 hash table. This function is called via gldelf64ppc_finish. */
12878 ppc64_elf_build_stubs (struct bfd_link_info
*info
,
12881 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
12882 struct map_stub
*group
;
12883 asection
*stub_sec
;
12885 int stub_sec_count
= 0;
12890 /* Allocate memory to hold the linker stubs. */
12891 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
12893 stub_sec
= stub_sec
->next
)
12894 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0
12895 && stub_sec
->size
!= 0)
12897 stub_sec
->contents
= bfd_zalloc (htab
->params
->stub_bfd
, stub_sec
->size
);
12898 if (stub_sec
->contents
== NULL
)
12900 /* We want to check that built size is the same as calculated
12901 size. rawsize is a convenient location to use. */
12902 stub_sec
->rawsize
= stub_sec
->size
;
12903 stub_sec
->size
= 0;
12906 if (htab
->glink
!= NULL
&& htab
->glink
->size
!= 0)
12911 /* Build the .glink plt call stub. */
12912 if (htab
->params
->emit_stub_syms
)
12914 struct elf_link_hash_entry
*h
;
12915 h
= elf_link_hash_lookup (&htab
->elf
, "__glink_PLTresolve",
12916 TRUE
, FALSE
, FALSE
);
12919 if (h
->root
.type
== bfd_link_hash_new
)
12921 h
->root
.type
= bfd_link_hash_defined
;
12922 h
->root
.u
.def
.section
= htab
->glink
;
12923 h
->root
.u
.def
.value
= 8;
12924 h
->ref_regular
= 1;
12925 h
->def_regular
= 1;
12926 h
->ref_regular_nonweak
= 1;
12927 h
->forced_local
= 1;
12929 h
->root
.linker_def
= 1;
12932 plt0
= (htab
->elf
.splt
->output_section
->vma
12933 + htab
->elf
.splt
->output_offset
12935 if (info
->emitrelocations
)
12937 Elf_Internal_Rela
*r
= get_relocs (htab
->glink
, 1);
12940 r
->r_offset
= (htab
->glink
->output_offset
12941 + htab
->glink
->output_section
->vma
);
12942 r
->r_info
= ELF64_R_INFO (0, R_PPC64_REL64
);
12943 r
->r_addend
= plt0
;
12945 p
= htab
->glink
->contents
;
12946 plt0
-= htab
->glink
->output_section
->vma
+ htab
->glink
->output_offset
;
12947 bfd_put_64 (htab
->glink
->owner
, plt0
, p
);
12951 bfd_put_32 (htab
->glink
->owner
, MFLR_R12
, p
);
12953 bfd_put_32 (htab
->glink
->owner
, BCL_20_31
, p
);
12955 bfd_put_32 (htab
->glink
->owner
, MFLR_R11
, p
);
12957 bfd_put_32 (htab
->glink
->owner
, LD_R2_0R11
| (-16 & 0xfffc), p
);
12959 bfd_put_32 (htab
->glink
->owner
, MTLR_R12
, p
);
12961 bfd_put_32 (htab
->glink
->owner
, ADD_R11_R2_R11
, p
);
12963 bfd_put_32 (htab
->glink
->owner
, LD_R12_0R11
, p
);
12965 bfd_put_32 (htab
->glink
->owner
, LD_R2_0R11
| 8, p
);
12967 bfd_put_32 (htab
->glink
->owner
, MTCTR_R12
, p
);
12969 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R11
| 16, p
);
12974 bfd_put_32 (htab
->glink
->owner
, MFLR_R0
, p
);
12976 bfd_put_32 (htab
->glink
->owner
, BCL_20_31
, p
);
12978 bfd_put_32 (htab
->glink
->owner
, MFLR_R11
, p
);
12980 bfd_put_32 (htab
->glink
->owner
, LD_R2_0R11
| (-16 & 0xfffc), p
);
12982 bfd_put_32 (htab
->glink
->owner
, MTLR_R0
, p
);
12984 bfd_put_32 (htab
->glink
->owner
, SUB_R12_R12_R11
, p
);
12986 bfd_put_32 (htab
->glink
->owner
, ADD_R11_R2_R11
, p
);
12988 bfd_put_32 (htab
->glink
->owner
, ADDI_R0_R12
| (-48 & 0xffff), p
);
12990 bfd_put_32 (htab
->glink
->owner
, LD_R12_0R11
, p
);
12992 bfd_put_32 (htab
->glink
->owner
, SRDI_R0_R0_2
, p
);
12994 bfd_put_32 (htab
->glink
->owner
, MTCTR_R12
, p
);
12996 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R11
| 8, p
);
12999 bfd_put_32 (htab
->glink
->owner
, BCTR
, p
);
13001 while (p
- htab
->glink
->contents
< GLINK_CALL_STUB_SIZE
)
13003 bfd_put_32 (htab
->glink
->owner
, NOP
, p
);
13007 /* Build the .glink lazy link call stubs. */
13009 while (p
< htab
->glink
->contents
+ htab
->glink
->rawsize
)
13015 bfd_put_32 (htab
->glink
->owner
, LI_R0_0
| indx
, p
);
13020 bfd_put_32 (htab
->glink
->owner
, LIS_R0_0
| PPC_HI (indx
), p
);
13022 bfd_put_32 (htab
->glink
->owner
, ORI_R0_R0_0
| PPC_LO (indx
),
13027 bfd_put_32 (htab
->glink
->owner
,
13028 B_DOT
| ((htab
->glink
->contents
- p
+ 8) & 0x3fffffc), p
);
13033 /* Build .glink global entry stubs. */
13034 if (htab
->glink
->size
> htab
->glink
->rawsize
)
13035 elf_link_hash_traverse (&htab
->elf
, build_global_entry_stubs
, info
);
13038 if (htab
->brlt
!= NULL
&& htab
->brlt
->size
!= 0)
13040 htab
->brlt
->contents
= bfd_zalloc (htab
->brlt
->owner
,
13042 if (htab
->brlt
->contents
== NULL
)
13045 if (htab
->relbrlt
!= NULL
&& htab
->relbrlt
->size
!= 0)
13047 htab
->relbrlt
->contents
= bfd_zalloc (htab
->relbrlt
->owner
,
13048 htab
->relbrlt
->size
);
13049 if (htab
->relbrlt
->contents
== NULL
)
13053 /* Build the stubs as directed by the stub hash table. */
13054 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_build_one_stub
, info
);
13056 for (group
= htab
->group
; group
!= NULL
; group
= group
->next
)
13057 if (group
->needs_save_res
)
13059 stub_sec
= group
->stub_sec
;
13060 memcpy (stub_sec
->contents
+ stub_sec
->size
, htab
->sfpr
->contents
,
13062 if (htab
->params
->emit_stub_syms
)
13066 for (i
= 0; i
< ARRAY_SIZE (save_res_funcs
); i
++)
13067 if (!sfpr_define (info
, &save_res_funcs
[i
], stub_sec
))
13070 stub_sec
->size
+= htab
->sfpr
->size
;
13073 if (htab
->relbrlt
!= NULL
)
13074 htab
->relbrlt
->reloc_count
= 0;
13076 if (htab
->params
->plt_stub_align
!= 0)
13077 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
13079 stub_sec
= stub_sec
->next
)
13080 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
13081 stub_sec
->size
= ((stub_sec
->size
13082 + (1 << htab
->params
->plt_stub_align
) - 1)
13083 & -(1 << htab
->params
->plt_stub_align
));
13085 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
13087 stub_sec
= stub_sec
->next
)
13088 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
13090 stub_sec_count
+= 1;
13091 if (stub_sec
->rawsize
!= stub_sec
->size
)
13095 /* Note that the glink_eh_frame check here is not only testing that
13096 the generated size matched the calculated size but also that
13097 bfd_elf_discard_info didn't make any changes to the section. */
13098 if (stub_sec
!= NULL
13099 || (htab
->glink_eh_frame
!= NULL
13100 && htab
->glink_eh_frame
->rawsize
!= htab
->glink_eh_frame
->size
))
13102 htab
->stub_error
= TRUE
;
13103 info
->callbacks
->einfo (_("%P: stubs don't match calculated size\n"));
13106 if (htab
->stub_error
)
13111 *stats
= bfd_malloc (500);
13112 if (*stats
== NULL
)
13115 sprintf (*stats
, _("linker stubs in %u group%s\n"
13117 " toc adjust %lu\n"
13118 " long branch %lu\n"
13119 " long toc adj %lu\n"
13121 " plt call toc %lu\n"
13122 " global entry %lu"),
13124 stub_sec_count
== 1 ? "" : "s",
13125 htab
->stub_count
[ppc_stub_long_branch
- 1],
13126 htab
->stub_count
[ppc_stub_long_branch_r2off
- 1],
13127 htab
->stub_count
[ppc_stub_plt_branch
- 1],
13128 htab
->stub_count
[ppc_stub_plt_branch_r2off
- 1],
13129 htab
->stub_count
[ppc_stub_plt_call
- 1],
13130 htab
->stub_count
[ppc_stub_plt_call_r2save
- 1],
13131 htab
->stub_count
[ppc_stub_global_entry
- 1]);
13136 /* This function undoes the changes made by add_symbol_adjust. */
13139 undo_symbol_twiddle (struct elf_link_hash_entry
*h
, void *inf ATTRIBUTE_UNUSED
)
13141 struct ppc_link_hash_entry
*eh
;
13143 if (h
->root
.type
== bfd_link_hash_indirect
)
13146 eh
= (struct ppc_link_hash_entry
*) h
;
13147 if (eh
->elf
.root
.type
!= bfd_link_hash_undefweak
|| !eh
->was_undefined
)
13150 eh
->elf
.root
.type
= bfd_link_hash_undefined
;
13155 ppc64_elf_restore_symbols (struct bfd_link_info
*info
)
13157 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
13160 elf_link_hash_traverse (&htab
->elf
, undo_symbol_twiddle
, info
);
13163 /* What to do when ld finds relocations against symbols defined in
13164 discarded sections. */
13166 static unsigned int
13167 ppc64_elf_action_discarded (asection
*sec
)
13169 if (strcmp (".opd", sec
->name
) == 0)
13172 if (strcmp (".toc", sec
->name
) == 0)
13175 if (strcmp (".toc1", sec
->name
) == 0)
13178 return _bfd_elf_default_action_discarded (sec
);
13181 /* The RELOCATE_SECTION function is called by the ELF backend linker
13182 to handle the relocations for a section.
13184 The relocs are always passed as Rela structures; if the section
13185 actually uses Rel structures, the r_addend field will always be
13188 This function is responsible for adjust the section contents as
13189 necessary, and (if using Rela relocs and generating a
13190 relocatable output file) adjusting the reloc addend as
13193 This function does not have to worry about setting the reloc
13194 address or the reloc symbol index.
13196 LOCAL_SYMS is a pointer to the swapped in local symbols.
13198 LOCAL_SECTIONS is an array giving the section in the input file
13199 corresponding to the st_shndx field of each local symbol.
13201 The global hash table entry for the global symbols can be found
13202 via elf_sym_hashes (input_bfd).
13204 When generating relocatable output, this function must handle
13205 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
13206 going to be the section symbol corresponding to the output
13207 section, which means that the addend must be adjusted
13211 ppc64_elf_relocate_section (bfd
*output_bfd
,
13212 struct bfd_link_info
*info
,
13214 asection
*input_section
,
13215 bfd_byte
*contents
,
13216 Elf_Internal_Rela
*relocs
,
13217 Elf_Internal_Sym
*local_syms
,
13218 asection
**local_sections
)
13220 struct ppc_link_hash_table
*htab
;
13221 Elf_Internal_Shdr
*symtab_hdr
;
13222 struct elf_link_hash_entry
**sym_hashes
;
13223 Elf_Internal_Rela
*rel
;
13224 Elf_Internal_Rela
*wrel
;
13225 Elf_Internal_Rela
*relend
;
13226 Elf_Internal_Rela outrel
;
13228 struct got_entry
**local_got_ents
;
13230 bfd_boolean ret
= TRUE
;
13231 bfd_boolean is_opd
;
13232 /* Assume 'at' branch hints. */
13233 bfd_boolean is_isa_v2
= TRUE
;
13234 bfd_vma d_offset
= (bfd_big_endian (output_bfd
) ? 2 : 0);
13236 /* Initialize howto table if needed. */
13237 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
13240 htab
= ppc_hash_table (info
);
13244 /* Don't relocate stub sections. */
13245 if (input_section
->owner
== htab
->params
->stub_bfd
)
13248 BFD_ASSERT (is_ppc64_elf (input_bfd
));
13250 local_got_ents
= elf_local_got_ents (input_bfd
);
13251 TOCstart
= elf_gp (output_bfd
);
13252 symtab_hdr
= &elf_symtab_hdr (input_bfd
);
13253 sym_hashes
= elf_sym_hashes (input_bfd
);
13254 is_opd
= ppc64_elf_section_data (input_section
)->sec_type
== sec_opd
;
13256 rel
= wrel
= relocs
;
13257 relend
= relocs
+ input_section
->reloc_count
;
13258 for (; rel
< relend
; wrel
++, rel
++)
13260 enum elf_ppc64_reloc_type r_type
;
13262 bfd_reloc_status_type r
;
13263 Elf_Internal_Sym
*sym
;
13265 struct elf_link_hash_entry
*h_elf
;
13266 struct ppc_link_hash_entry
*h
;
13267 struct ppc_link_hash_entry
*fdh
;
13268 const char *sym_name
;
13269 unsigned long r_symndx
, toc_symndx
;
13270 bfd_vma toc_addend
;
13271 unsigned char tls_mask
, tls_gd
, tls_type
;
13272 unsigned char sym_type
;
13273 bfd_vma relocation
;
13274 bfd_boolean unresolved_reloc
;
13275 bfd_boolean warned
;
13276 enum { DEST_NORMAL
, DEST_OPD
, DEST_STUB
} reloc_dest
;
13279 struct ppc_stub_hash_entry
*stub_entry
;
13280 bfd_vma max_br_offset
;
13282 Elf_Internal_Rela orig_rel
;
13283 reloc_howto_type
*howto
;
13284 struct reloc_howto_struct alt_howto
;
13289 r_type
= ELF64_R_TYPE (rel
->r_info
);
13290 r_symndx
= ELF64_R_SYM (rel
->r_info
);
13292 /* For old style R_PPC64_TOC relocs with a zero symbol, use the
13293 symbol of the previous ADDR64 reloc. The symbol gives us the
13294 proper TOC base to use. */
13295 if (rel
->r_info
== ELF64_R_INFO (0, R_PPC64_TOC
)
13297 && ELF64_R_TYPE (wrel
[-1].r_info
) == R_PPC64_ADDR64
13299 r_symndx
= ELF64_R_SYM (wrel
[-1].r_info
);
13305 unresolved_reloc
= FALSE
;
13308 if (r_symndx
< symtab_hdr
->sh_info
)
13310 /* It's a local symbol. */
13311 struct _opd_sec_data
*opd
;
13313 sym
= local_syms
+ r_symndx
;
13314 sec
= local_sections
[r_symndx
];
13315 sym_name
= bfd_elf_sym_name (input_bfd
, symtab_hdr
, sym
, sec
);
13316 sym_type
= ELF64_ST_TYPE (sym
->st_info
);
13317 relocation
= _bfd_elf_rela_local_sym (output_bfd
, sym
, &sec
, rel
);
13318 opd
= get_opd_info (sec
);
13319 if (opd
!= NULL
&& opd
->adjust
!= NULL
)
13321 long adjust
= opd
->adjust
[OPD_NDX (sym
->st_value
13327 /* If this is a relocation against the opd section sym
13328 and we have edited .opd, adjust the reloc addend so
13329 that ld -r and ld --emit-relocs output is correct.
13330 If it is a reloc against some other .opd symbol,
13331 then the symbol value will be adjusted later. */
13332 if (ELF_ST_TYPE (sym
->st_info
) == STT_SECTION
)
13333 rel
->r_addend
+= adjust
;
13335 relocation
+= adjust
;
13341 bfd_boolean ignored
;
13343 RELOC_FOR_GLOBAL_SYMBOL (info
, input_bfd
, input_section
, rel
,
13344 r_symndx
, symtab_hdr
, sym_hashes
,
13345 h_elf
, sec
, relocation
,
13346 unresolved_reloc
, warned
, ignored
);
13347 sym_name
= h_elf
->root
.root
.string
;
13348 sym_type
= h_elf
->type
;
13350 && sec
->owner
== output_bfd
13351 && strcmp (sec
->name
, ".opd") == 0)
13353 /* This is a symbol defined in a linker script. All
13354 such are defined in output sections, even those
13355 defined by simple assignment from a symbol defined in
13356 an input section. Transfer the symbol to an
13357 appropriate input .opd section, so that a branch to
13358 this symbol will be mapped to the location specified
13359 by the opd entry. */
13360 struct bfd_link_order
*lo
;
13361 for (lo
= sec
->map_head
.link_order
; lo
!= NULL
; lo
= lo
->next
)
13362 if (lo
->type
== bfd_indirect_link_order
)
13364 asection
*isec
= lo
->u
.indirect
.section
;
13365 if (h_elf
->root
.u
.def
.value
>= isec
->output_offset
13366 && h_elf
->root
.u
.def
.value
< (isec
->output_offset
13369 h_elf
->root
.u
.def
.value
-= isec
->output_offset
;
13370 h_elf
->root
.u
.def
.section
= isec
;
13377 h
= (struct ppc_link_hash_entry
*) h_elf
;
13379 if (sec
!= NULL
&& discarded_section (sec
))
13381 _bfd_clear_contents (ppc64_elf_howto_table
[r_type
],
13382 input_bfd
, input_section
,
13383 contents
+ rel
->r_offset
);
13384 wrel
->r_offset
= rel
->r_offset
;
13386 wrel
->r_addend
= 0;
13388 /* For ld -r, remove relocations in debug sections against
13389 sections defined in discarded sections. Not done for
13390 non-debug to preserve relocs in .eh_frame which the
13391 eh_frame editing code expects to be present. */
13392 if (bfd_link_relocatable (info
)
13393 && (input_section
->flags
& SEC_DEBUGGING
))
13399 if (bfd_link_relocatable (info
))
13402 if (h
!= NULL
&& &h
->elf
== htab
->elf
.hgot
)
13404 relocation
= TOCstart
+ htab
->sec_info
[input_section
->id
].toc_off
;
13405 sec
= bfd_abs_section_ptr
;
13406 unresolved_reloc
= FALSE
;
13409 /* TLS optimizations. Replace instruction sequences and relocs
13410 based on information we collected in tls_optimize. We edit
13411 RELOCS so that --emit-relocs will output something sensible
13412 for the final instruction stream. */
13417 tls_mask
= h
->tls_mask
;
13418 else if (local_got_ents
!= NULL
)
13420 struct plt_entry
**local_plt
= (struct plt_entry
**)
13421 (local_got_ents
+ symtab_hdr
->sh_info
);
13422 unsigned char *lgot_masks
= (unsigned char *)
13423 (local_plt
+ symtab_hdr
->sh_info
);
13424 tls_mask
= lgot_masks
[r_symndx
];
13427 && (r_type
== R_PPC64_TLS
13428 || r_type
== R_PPC64_TLSGD
13429 || r_type
== R_PPC64_TLSLD
))
13431 /* Check for toc tls entries. */
13432 unsigned char *toc_tls
;
13434 if (!get_tls_mask (&toc_tls
, &toc_symndx
, &toc_addend
,
13435 &local_syms
, rel
, input_bfd
))
13439 tls_mask
= *toc_tls
;
13442 /* Check that tls relocs are used with tls syms, and non-tls
13443 relocs are used with non-tls syms. */
13444 if (r_symndx
!= STN_UNDEF
13445 && r_type
!= R_PPC64_NONE
13447 || h
->elf
.root
.type
== bfd_link_hash_defined
13448 || h
->elf
.root
.type
== bfd_link_hash_defweak
)
13449 && (IS_PPC64_TLS_RELOC (r_type
)
13450 != (sym_type
== STT_TLS
13451 || (sym_type
== STT_SECTION
13452 && (sec
->flags
& SEC_THREAD_LOCAL
) != 0))))
13455 && (r_type
== R_PPC64_TLS
13456 || r_type
== R_PPC64_TLSGD
13457 || r_type
== R_PPC64_TLSLD
))
13458 /* R_PPC64_TLS is OK against a symbol in the TOC. */
13461 info
->callbacks
->einfo
13462 (!IS_PPC64_TLS_RELOC (r_type
)
13463 ? _("%P: %H: %s used with TLS symbol `%T'\n")
13464 : _("%P: %H: %s used with non-TLS symbol `%T'\n"),
13465 input_bfd
, input_section
, rel
->r_offset
,
13466 ppc64_elf_howto_table
[r_type
]->name
,
13470 /* Ensure reloc mapping code below stays sane. */
13471 if (R_PPC64_TOC16_LO_DS
!= R_PPC64_TOC16_DS
+ 1
13472 || R_PPC64_TOC16_LO
!= R_PPC64_TOC16
+ 1
13473 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TLSGD16
& 3)
13474 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TLSGD16_LO
& 3)
13475 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TLSGD16_HI
& 3)
13476 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TLSGD16_HA
& 3)
13477 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TPREL16_DS
& 3)
13478 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TPREL16_LO_DS
& 3)
13479 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TPREL16_HI
& 3)
13480 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TPREL16_HA
& 3))
13488 case R_PPC64_LO_DS_OPT
:
13489 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
- d_offset
);
13490 if ((insn
& (0x3f << 26)) != 58u << 26)
13492 insn
+= (14u << 26) - (58u << 26);
13493 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
- d_offset
);
13494 r_type
= R_PPC64_TOC16_LO
;
13495 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13498 case R_PPC64_TOC16
:
13499 case R_PPC64_TOC16_LO
:
13500 case R_PPC64_TOC16_DS
:
13501 case R_PPC64_TOC16_LO_DS
:
13503 /* Check for toc tls entries. */
13504 unsigned char *toc_tls
;
13507 retval
= get_tls_mask (&toc_tls
, &toc_symndx
, &toc_addend
,
13508 &local_syms
, rel
, input_bfd
);
13514 tls_mask
= *toc_tls
;
13515 if (r_type
== R_PPC64_TOC16_DS
13516 || r_type
== R_PPC64_TOC16_LO_DS
)
13519 && (tls_mask
& (TLS_DTPREL
| TLS_TPREL
)) == 0)
13524 /* If we found a GD reloc pair, then we might be
13525 doing a GD->IE transition. */
13528 tls_gd
= TLS_TPRELGD
;
13529 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
13532 else if (retval
== 3)
13534 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
13542 case R_PPC64_GOT_TPREL16_HI
:
13543 case R_PPC64_GOT_TPREL16_HA
:
13545 && (tls_mask
& TLS_TPREL
) == 0)
13547 rel
->r_offset
-= d_offset
;
13548 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
13549 r_type
= R_PPC64_NONE
;
13550 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13554 case R_PPC64_GOT_TPREL16_DS
:
13555 case R_PPC64_GOT_TPREL16_LO_DS
:
13557 && (tls_mask
& TLS_TPREL
) == 0)
13560 insn
= bfd_get_32 (output_bfd
,
13561 contents
+ rel
->r_offset
- d_offset
);
13563 insn
|= 0x3c0d0000; /* addis 0,13,0 */
13564 bfd_put_32 (output_bfd
, insn
,
13565 contents
+ rel
->r_offset
- d_offset
);
13566 r_type
= R_PPC64_TPREL16_HA
;
13567 if (toc_symndx
!= 0)
13569 rel
->r_info
= ELF64_R_INFO (toc_symndx
, r_type
);
13570 rel
->r_addend
= toc_addend
;
13571 /* We changed the symbol. Start over in order to
13572 get h, sym, sec etc. right. */
13576 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13582 && (tls_mask
& TLS_TPREL
) == 0)
13584 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
);
13585 insn
= _bfd_elf_ppc_at_tls_transform (insn
, 13);
13588 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
13589 /* Was PPC64_TLS which sits on insn boundary, now
13590 PPC64_TPREL16_LO which is at low-order half-word. */
13591 rel
->r_offset
+= d_offset
;
13592 r_type
= R_PPC64_TPREL16_LO
;
13593 if (toc_symndx
!= 0)
13595 rel
->r_info
= ELF64_R_INFO (toc_symndx
, r_type
);
13596 rel
->r_addend
= toc_addend
;
13597 /* We changed the symbol. Start over in order to
13598 get h, sym, sec etc. right. */
13602 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13606 case R_PPC64_GOT_TLSGD16_HI
:
13607 case R_PPC64_GOT_TLSGD16_HA
:
13608 tls_gd
= TLS_TPRELGD
;
13609 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
13613 case R_PPC64_GOT_TLSLD16_HI
:
13614 case R_PPC64_GOT_TLSLD16_HA
:
13615 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
13618 if ((tls_mask
& tls_gd
) != 0)
13619 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
13620 + R_PPC64_GOT_TPREL16_DS
);
13623 rel
->r_offset
-= d_offset
;
13624 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
13625 r_type
= R_PPC64_NONE
;
13627 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13631 case R_PPC64_GOT_TLSGD16
:
13632 case R_PPC64_GOT_TLSGD16_LO
:
13633 tls_gd
= TLS_TPRELGD
;
13634 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
13638 case R_PPC64_GOT_TLSLD16
:
13639 case R_PPC64_GOT_TLSLD16_LO
:
13640 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
13642 unsigned int insn1
, insn2
, insn3
;
13646 offset
= (bfd_vma
) -1;
13647 /* If not using the newer R_PPC64_TLSGD/LD to mark
13648 __tls_get_addr calls, we must trust that the call
13649 stays with its arg setup insns, ie. that the next
13650 reloc is the __tls_get_addr call associated with
13651 the current reloc. Edit both insns. */
13652 if (input_section
->has_tls_get_addr_call
13653 && rel
+ 1 < relend
13654 && branch_reloc_hash_match (input_bfd
, rel
+ 1,
13655 htab
->tls_get_addr
,
13656 htab
->tls_get_addr_fd
))
13657 offset
= rel
[1].r_offset
;
13658 /* We read the low GOT_TLS (or TOC16) insn because we
13659 need to keep the destination reg. It may be
13660 something other than the usual r3, and moved to r3
13661 before the call by intervening code. */
13662 insn1
= bfd_get_32 (output_bfd
,
13663 contents
+ rel
->r_offset
- d_offset
);
13664 if ((tls_mask
& tls_gd
) != 0)
13667 insn1
&= (0x1f << 21) | (0x1f << 16);
13668 insn1
|= 58 << 26; /* ld */
13669 insn2
= 0x7c636a14; /* add 3,3,13 */
13670 if (offset
!= (bfd_vma
) -1)
13671 rel
[1].r_info
= ELF64_R_INFO (STN_UNDEF
, R_PPC64_NONE
);
13672 if ((tls_mask
& TLS_EXPLICIT
) == 0)
13673 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
13674 + R_PPC64_GOT_TPREL16_DS
);
13676 r_type
+= R_PPC64_TOC16_DS
- R_PPC64_TOC16
;
13677 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13682 insn1
&= 0x1f << 21;
13683 insn1
|= 0x3c0d0000; /* addis r,13,0 */
13684 insn2
= 0x38630000; /* addi 3,3,0 */
13687 /* Was an LD reloc. */
13689 sec
= local_sections
[toc_symndx
];
13691 r_symndx
< symtab_hdr
->sh_info
;
13693 if (local_sections
[r_symndx
] == sec
)
13695 if (r_symndx
>= symtab_hdr
->sh_info
)
13696 r_symndx
= STN_UNDEF
;
13697 rel
->r_addend
= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
13698 if (r_symndx
!= STN_UNDEF
)
13699 rel
->r_addend
-= (local_syms
[r_symndx
].st_value
13700 + sec
->output_offset
13701 + sec
->output_section
->vma
);
13703 else if (toc_symndx
!= 0)
13705 r_symndx
= toc_symndx
;
13706 rel
->r_addend
= toc_addend
;
13708 r_type
= R_PPC64_TPREL16_HA
;
13709 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13710 if (offset
!= (bfd_vma
) -1)
13712 rel
[1].r_info
= ELF64_R_INFO (r_symndx
,
13713 R_PPC64_TPREL16_LO
);
13714 rel
[1].r_offset
= offset
+ d_offset
;
13715 rel
[1].r_addend
= rel
->r_addend
;
13718 bfd_put_32 (output_bfd
, insn1
,
13719 contents
+ rel
->r_offset
- d_offset
);
13720 if (offset
!= (bfd_vma
) -1)
13722 insn3
= bfd_get_32 (output_bfd
,
13723 contents
+ offset
+ 4);
13725 || insn3
== CROR_151515
|| insn3
== CROR_313131
)
13727 rel
[1].r_offset
+= 4;
13728 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
+ 4);
13731 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
);
13733 if ((tls_mask
& tls_gd
) == 0
13734 && (tls_gd
== 0 || toc_symndx
!= 0))
13736 /* We changed the symbol. Start over in order
13737 to get h, sym, sec etc. right. */
13743 case R_PPC64_TLSGD
:
13744 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
13746 unsigned int insn2
, insn3
;
13747 bfd_vma offset
= rel
->r_offset
;
13749 if ((tls_mask
& TLS_TPRELGD
) != 0)
13752 r_type
= R_PPC64_NONE
;
13753 insn2
= 0x7c636a14; /* add 3,3,13 */
13758 if (toc_symndx
!= 0)
13760 r_symndx
= toc_symndx
;
13761 rel
->r_addend
= toc_addend
;
13763 r_type
= R_PPC64_TPREL16_LO
;
13764 rel
->r_offset
= offset
+ d_offset
;
13765 insn2
= 0x38630000; /* addi 3,3,0 */
13767 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13768 /* Zap the reloc on the _tls_get_addr call too. */
13769 BFD_ASSERT (offset
== rel
[1].r_offset
);
13770 rel
[1].r_info
= ELF64_R_INFO (STN_UNDEF
, R_PPC64_NONE
);
13771 insn3
= bfd_get_32 (output_bfd
,
13772 contents
+ offset
+ 4);
13774 || insn3
== CROR_151515
|| insn3
== CROR_313131
)
13776 rel
->r_offset
+= 4;
13777 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
+ 4);
13780 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
);
13781 if ((tls_mask
& TLS_TPRELGD
) == 0 && toc_symndx
!= 0)
13786 case R_PPC64_TLSLD
:
13787 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
13789 unsigned int insn2
, insn3
;
13790 bfd_vma offset
= rel
->r_offset
;
13793 sec
= local_sections
[toc_symndx
];
13795 r_symndx
< symtab_hdr
->sh_info
;
13797 if (local_sections
[r_symndx
] == sec
)
13799 if (r_symndx
>= symtab_hdr
->sh_info
)
13800 r_symndx
= STN_UNDEF
;
13801 rel
->r_addend
= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
13802 if (r_symndx
!= STN_UNDEF
)
13803 rel
->r_addend
-= (local_syms
[r_symndx
].st_value
13804 + sec
->output_offset
13805 + sec
->output_section
->vma
);
13807 r_type
= R_PPC64_TPREL16_LO
;
13808 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13809 rel
->r_offset
= offset
+ d_offset
;
13810 /* Zap the reloc on the _tls_get_addr call too. */
13811 BFD_ASSERT (offset
== rel
[1].r_offset
);
13812 rel
[1].r_info
= ELF64_R_INFO (STN_UNDEF
, R_PPC64_NONE
);
13813 insn2
= 0x38630000; /* addi 3,3,0 */
13814 insn3
= bfd_get_32 (output_bfd
,
13815 contents
+ offset
+ 4);
13817 || insn3
== CROR_151515
|| insn3
== CROR_313131
)
13819 rel
->r_offset
+= 4;
13820 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
+ 4);
13823 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
);
13828 case R_PPC64_DTPMOD64
:
13829 if (rel
+ 1 < relend
13830 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
13831 && rel
[1].r_offset
== rel
->r_offset
+ 8)
13833 if ((tls_mask
& TLS_GD
) == 0)
13835 rel
[1].r_info
= ELF64_R_INFO (r_symndx
, R_PPC64_NONE
);
13836 if ((tls_mask
& TLS_TPRELGD
) != 0)
13837 r_type
= R_PPC64_TPREL64
;
13840 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
13841 r_type
= R_PPC64_NONE
;
13843 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13848 if ((tls_mask
& TLS_LD
) == 0)
13850 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
13851 r_type
= R_PPC64_NONE
;
13852 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13857 case R_PPC64_TPREL64
:
13858 if ((tls_mask
& TLS_TPREL
) == 0)
13860 r_type
= R_PPC64_NONE
;
13861 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13865 case R_PPC64_ENTRY
:
13866 relocation
= TOCstart
+ htab
->sec_info
[input_section
->id
].toc_off
;
13867 if (!bfd_link_pic (info
)
13868 && !info
->traditional_format
13869 && relocation
+ 0x80008000 <= 0xffffffff)
13871 unsigned int insn1
, insn2
;
13873 insn1
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
);
13874 insn2
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
+ 4);
13875 if ((insn1
& ~0xfffc) == LD_R2_0R12
13876 && insn2
== ADD_R2_R2_R12
)
13878 bfd_put_32 (output_bfd
,
13879 LIS_R2
+ PPC_HA (relocation
),
13880 contents
+ rel
->r_offset
);
13881 bfd_put_32 (output_bfd
,
13882 ADDI_R2_R2
+ PPC_LO (relocation
),
13883 contents
+ rel
->r_offset
+ 4);
13888 relocation
-= (rel
->r_offset
13889 + input_section
->output_offset
13890 + input_section
->output_section
->vma
);
13891 if (relocation
+ 0x80008000 <= 0xffffffff)
13893 unsigned int insn1
, insn2
;
13895 insn1
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
);
13896 insn2
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
+ 4);
13897 if ((insn1
& ~0xfffc) == LD_R2_0R12
13898 && insn2
== ADD_R2_R2_R12
)
13900 bfd_put_32 (output_bfd
,
13901 ADDIS_R2_R12
+ PPC_HA (relocation
),
13902 contents
+ rel
->r_offset
);
13903 bfd_put_32 (output_bfd
,
13904 ADDI_R2_R2
+ PPC_LO (relocation
),
13905 contents
+ rel
->r_offset
+ 4);
13911 case R_PPC64_REL16_HA
:
13912 /* If we are generating a non-PIC executable, edit
13913 . 0: addis 2,12,.TOC.-0b@ha
13914 . addi 2,2,.TOC.-0b@l
13915 used by ELFv2 global entry points to set up r2, to
13918 if .TOC. is in range. */
13919 if (!bfd_link_pic (info
)
13920 && !info
->traditional_format
13922 && rel
->r_addend
== d_offset
13923 && h
!= NULL
&& &h
->elf
== htab
->elf
.hgot
13924 && rel
+ 1 < relend
13925 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_REL16_LO
)
13926 && rel
[1].r_offset
== rel
->r_offset
+ 4
13927 && rel
[1].r_addend
== rel
->r_addend
+ 4
13928 && relocation
+ 0x80008000 <= 0xffffffff)
13930 unsigned int insn1
, insn2
;
13931 bfd_vma offset
= rel
->r_offset
- d_offset
;
13932 insn1
= bfd_get_32 (output_bfd
, contents
+ offset
);
13933 insn2
= bfd_get_32 (output_bfd
, contents
+ offset
+ 4);
13934 if ((insn1
& 0xffff0000) == ADDIS_R2_R12
13935 && (insn2
& 0xffff0000) == ADDI_R2_R2
)
13937 r_type
= R_PPC64_ADDR16_HA
;
13938 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
13939 rel
->r_addend
-= d_offset
;
13940 rel
[1].r_info
= ELF64_R_INFO (r_symndx
, R_PPC64_ADDR16_LO
);
13941 rel
[1].r_addend
-= d_offset
+ 4;
13942 bfd_put_32 (output_bfd
, LIS_R2
, contents
+ offset
);
13948 /* Handle other relocations that tweak non-addend part of insn. */
13950 max_br_offset
= 1 << 25;
13951 addend
= rel
->r_addend
;
13952 reloc_dest
= DEST_NORMAL
;
13958 case R_PPC64_TOCSAVE
:
13959 if (relocation
+ addend
== (rel
->r_offset
13960 + input_section
->output_offset
13961 + input_section
->output_section
->vma
)
13962 && tocsave_find (htab
, NO_INSERT
,
13963 &local_syms
, rel
, input_bfd
))
13965 insn
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
);
13967 || insn
== CROR_151515
|| insn
== CROR_313131
)
13968 bfd_put_32 (input_bfd
,
13969 STD_R2_0R1
+ STK_TOC (htab
),
13970 contents
+ rel
->r_offset
);
13974 /* Branch taken prediction relocations. */
13975 case R_PPC64_ADDR14_BRTAKEN
:
13976 case R_PPC64_REL14_BRTAKEN
:
13977 insn
= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
13980 /* Branch not taken prediction relocations. */
13981 case R_PPC64_ADDR14_BRNTAKEN
:
13982 case R_PPC64_REL14_BRNTAKEN
:
13983 insn
|= bfd_get_32 (output_bfd
,
13984 contents
+ rel
->r_offset
) & ~(0x01 << 21);
13987 case R_PPC64_REL14
:
13988 max_br_offset
= 1 << 15;
13991 case R_PPC64_REL24
:
13992 /* Calls to functions with a different TOC, such as calls to
13993 shared objects, need to alter the TOC pointer. This is
13994 done using a linkage stub. A REL24 branching to these
13995 linkage stubs needs to be followed by a nop, as the nop
13996 will be replaced with an instruction to restore the TOC
14001 && h
->oh
->is_func_descriptor
)
14002 fdh
= ppc_follow_link (h
->oh
);
14003 stub_entry
= ppc_get_stub_entry (input_section
, sec
, fdh
, &orig_rel
,
14005 if (stub_entry
!= NULL
14006 && (stub_entry
->stub_type
== ppc_stub_plt_call
14007 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
14008 || stub_entry
->stub_type
== ppc_stub_plt_branch_r2off
14009 || stub_entry
->stub_type
== ppc_stub_long_branch_r2off
))
14011 bfd_boolean can_plt_call
= FALSE
;
14013 /* All of these stubs will modify r2, so there must be a
14014 branch and link followed by a nop. The nop is
14015 replaced by an insn to restore r2. */
14016 if (rel
->r_offset
+ 8 <= input_section
->size
)
14020 br
= bfd_get_32 (input_bfd
,
14021 contents
+ rel
->r_offset
);
14026 nop
= bfd_get_32 (input_bfd
,
14027 contents
+ rel
->r_offset
+ 4);
14029 || nop
== CROR_151515
|| nop
== CROR_313131
)
14032 && (h
== htab
->tls_get_addr_fd
14033 || h
== htab
->tls_get_addr
)
14034 && htab
->params
->tls_get_addr_opt
)
14036 /* Special stub used, leave nop alone. */
14039 bfd_put_32 (input_bfd
,
14040 LD_R2_0R1
+ STK_TOC (htab
),
14041 contents
+ rel
->r_offset
+ 4);
14042 can_plt_call
= TRUE
;
14047 if (!can_plt_call
&& h
!= NULL
)
14049 const char *name
= h
->elf
.root
.root
.string
;
14054 if (strncmp (name
, "__libc_start_main", 17) == 0
14055 && (name
[17] == 0 || name
[17] == '@'))
14057 /* Allow crt1 branch to go via a toc adjusting
14058 stub. Other calls that never return could do
14059 the same, if we could detect such. */
14060 can_plt_call
= TRUE
;
14066 /* g++ as of 20130507 emits self-calls without a
14067 following nop. This is arguably wrong since we
14068 have conflicting information. On the one hand a
14069 global symbol and on the other a local call
14070 sequence, but don't error for this special case.
14071 It isn't possible to cheaply verify we have
14072 exactly such a call. Allow all calls to the same
14074 asection
*code_sec
= sec
;
14076 if (get_opd_info (sec
) != NULL
)
14078 bfd_vma off
= (relocation
+ addend
14079 - sec
->output_section
->vma
14080 - sec
->output_offset
);
14082 opd_entry_value (sec
, off
, &code_sec
, NULL
, FALSE
);
14084 if (code_sec
== input_section
)
14085 can_plt_call
= TRUE
;
14090 if (stub_entry
->stub_type
== ppc_stub_plt_call
14091 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
14092 info
->callbacks
->einfo
14093 (_("%P: %H: call to `%T' lacks nop, can't restore toc; "
14094 "recompile with -fPIC\n"),
14095 input_bfd
, input_section
, rel
->r_offset
, sym_name
);
14097 info
->callbacks
->einfo
14098 (_("%P: %H: call to `%T' lacks nop, can't restore toc; "
14099 "(-mcmodel=small toc adjust stub)\n"),
14100 input_bfd
, input_section
, rel
->r_offset
, sym_name
);
14102 bfd_set_error (bfd_error_bad_value
);
14107 && (stub_entry
->stub_type
== ppc_stub_plt_call
14108 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
))
14109 unresolved_reloc
= FALSE
;
14112 if ((stub_entry
== NULL
14113 || stub_entry
->stub_type
== ppc_stub_long_branch
14114 || stub_entry
->stub_type
== ppc_stub_plt_branch
)
14115 && get_opd_info (sec
) != NULL
)
14117 /* The branch destination is the value of the opd entry. */
14118 bfd_vma off
= (relocation
+ addend
14119 - sec
->output_section
->vma
14120 - sec
->output_offset
);
14121 bfd_vma dest
= opd_entry_value (sec
, off
, NULL
, NULL
, FALSE
);
14122 if (dest
!= (bfd_vma
) -1)
14126 reloc_dest
= DEST_OPD
;
14130 /* If the branch is out of reach we ought to have a long
14132 from
= (rel
->r_offset
14133 + input_section
->output_offset
14134 + input_section
->output_section
->vma
);
14136 relocation
+= PPC64_LOCAL_ENTRY_OFFSET (fdh
14140 if (stub_entry
!= NULL
14141 && (stub_entry
->stub_type
== ppc_stub_long_branch
14142 || stub_entry
->stub_type
== ppc_stub_plt_branch
)
14143 && (r_type
== R_PPC64_ADDR14_BRTAKEN
14144 || r_type
== R_PPC64_ADDR14_BRNTAKEN
14145 || (relocation
+ addend
- from
+ max_br_offset
14146 < 2 * max_br_offset
)))
14147 /* Don't use the stub if this branch is in range. */
14150 if (stub_entry
!= NULL
)
14152 /* Munge up the value and addend so that we call the stub
14153 rather than the procedure directly. */
14154 asection
*stub_sec
= stub_entry
->group
->stub_sec
;
14156 if (stub_entry
->stub_type
== ppc_stub_save_res
)
14157 relocation
+= (stub_sec
->output_offset
14158 + stub_sec
->output_section
->vma
14159 + stub_sec
->size
- htab
->sfpr
->size
14160 - htab
->sfpr
->output_offset
14161 - htab
->sfpr
->output_section
->vma
);
14163 relocation
= (stub_entry
->stub_offset
14164 + stub_sec
->output_offset
14165 + stub_sec
->output_section
->vma
);
14167 reloc_dest
= DEST_STUB
;
14169 if ((stub_entry
->stub_type
== ppc_stub_plt_call
14170 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
14171 && (ALWAYS_EMIT_R2SAVE
14172 || stub_entry
->stub_type
== ppc_stub_plt_call_r2save
)
14173 && rel
+ 1 < relend
14174 && rel
[1].r_offset
== rel
->r_offset
+ 4
14175 && ELF64_R_TYPE (rel
[1].r_info
) == R_PPC64_TOCSAVE
)
14183 /* Set 'a' bit. This is 0b00010 in BO field for branch
14184 on CR(BI) insns (BO == 001at or 011at), and 0b01000
14185 for branch on CTR insns (BO == 1a00t or 1a01t). */
14186 if ((insn
& (0x14 << 21)) == (0x04 << 21))
14187 insn
|= 0x02 << 21;
14188 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
14189 insn
|= 0x08 << 21;
14195 /* Invert 'y' bit if not the default. */
14196 if ((bfd_signed_vma
) (relocation
+ addend
- from
) < 0)
14197 insn
^= 0x01 << 21;
14200 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
14203 /* NOP out calls to undefined weak functions.
14204 We can thus call a weak function without first
14205 checking whether the function is defined. */
14207 && h
->elf
.root
.type
== bfd_link_hash_undefweak
14208 && h
->elf
.dynindx
== -1
14209 && r_type
== R_PPC64_REL24
14213 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
14219 /* Set `addend'. */
14224 info
->callbacks
->einfo
14225 (_("%P: %B: unknown relocation type %d for `%T'\n"),
14226 input_bfd
, (int) r_type
, sym_name
);
14228 bfd_set_error (bfd_error_bad_value
);
14234 case R_PPC64_TLSGD
:
14235 case R_PPC64_TLSLD
:
14236 case R_PPC64_TOCSAVE
:
14237 case R_PPC64_GNU_VTINHERIT
:
14238 case R_PPC64_GNU_VTENTRY
:
14239 case R_PPC64_ENTRY
:
14242 /* GOT16 relocations. Like an ADDR16 using the symbol's
14243 address in the GOT as relocation value instead of the
14244 symbol's value itself. Also, create a GOT entry for the
14245 symbol and put the symbol value there. */
14246 case R_PPC64_GOT_TLSGD16
:
14247 case R_PPC64_GOT_TLSGD16_LO
:
14248 case R_PPC64_GOT_TLSGD16_HI
:
14249 case R_PPC64_GOT_TLSGD16_HA
:
14250 tls_type
= TLS_TLS
| TLS_GD
;
14253 case R_PPC64_GOT_TLSLD16
:
14254 case R_PPC64_GOT_TLSLD16_LO
:
14255 case R_PPC64_GOT_TLSLD16_HI
:
14256 case R_PPC64_GOT_TLSLD16_HA
:
14257 tls_type
= TLS_TLS
| TLS_LD
;
14260 case R_PPC64_GOT_TPREL16_DS
:
14261 case R_PPC64_GOT_TPREL16_LO_DS
:
14262 case R_PPC64_GOT_TPREL16_HI
:
14263 case R_PPC64_GOT_TPREL16_HA
:
14264 tls_type
= TLS_TLS
| TLS_TPREL
;
14267 case R_PPC64_GOT_DTPREL16_DS
:
14268 case R_PPC64_GOT_DTPREL16_LO_DS
:
14269 case R_PPC64_GOT_DTPREL16_HI
:
14270 case R_PPC64_GOT_DTPREL16_HA
:
14271 tls_type
= TLS_TLS
| TLS_DTPREL
;
14274 case R_PPC64_GOT16
:
14275 case R_PPC64_GOT16_LO
:
14276 case R_PPC64_GOT16_HI
:
14277 case R_PPC64_GOT16_HA
:
14278 case R_PPC64_GOT16_DS
:
14279 case R_PPC64_GOT16_LO_DS
:
14282 /* Relocation is to the entry for this symbol in the global
14287 unsigned long indx
= 0;
14288 struct got_entry
*ent
;
14290 if (tls_type
== (TLS_TLS
| TLS_LD
)
14292 || !h
->elf
.def_dynamic
))
14293 ent
= ppc64_tlsld_got (input_bfd
);
14299 bfd_boolean dyn
= htab
->elf
.dynamic_sections_created
;
14300 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, bfd_link_pic (info
),
14302 || (bfd_link_pic (info
)
14303 && SYMBOL_REFERENCES_LOCAL (info
, &h
->elf
)))
14304 /* This is actually a static link, or it is a
14305 -Bsymbolic link and the symbol is defined
14306 locally, or the symbol was forced to be local
14307 because of a version file. */
14311 BFD_ASSERT (h
->elf
.dynindx
!= -1);
14312 indx
= h
->elf
.dynindx
;
14313 unresolved_reloc
= FALSE
;
14315 ent
= h
->elf
.got
.glist
;
14319 if (local_got_ents
== NULL
)
14321 ent
= local_got_ents
[r_symndx
];
14324 for (; ent
!= NULL
; ent
= ent
->next
)
14325 if (ent
->addend
== orig_rel
.r_addend
14326 && ent
->owner
== input_bfd
14327 && ent
->tls_type
== tls_type
)
14333 if (ent
->is_indirect
)
14334 ent
= ent
->got
.ent
;
14335 offp
= &ent
->got
.offset
;
14336 got
= ppc64_elf_tdata (ent
->owner
)->got
;
14340 /* The offset must always be a multiple of 8. We use the
14341 least significant bit to record whether we have already
14342 processed this entry. */
14344 if ((off
& 1) != 0)
14348 /* Generate relocs for the dynamic linker, except in
14349 the case of TLSLD where we'll use one entry per
14357 ? h
->elf
.type
== STT_GNU_IFUNC
14358 : ELF_ST_TYPE (sym
->st_info
) == STT_GNU_IFUNC
);
14360 relgot
= htab
->elf
.irelplt
;
14361 else if ((bfd_link_pic (info
) || indx
!= 0)
14363 || (tls_type
== (TLS_TLS
| TLS_LD
)
14364 && !h
->elf
.def_dynamic
)
14365 || ELF_ST_VISIBILITY (h
->elf
.other
) == STV_DEFAULT
14366 || h
->elf
.root
.type
!= bfd_link_hash_undefweak
))
14367 relgot
= ppc64_elf_tdata (ent
->owner
)->relgot
;
14368 if (relgot
!= NULL
)
14370 outrel
.r_offset
= (got
->output_section
->vma
14371 + got
->output_offset
14373 outrel
.r_addend
= addend
;
14374 if (tls_type
& (TLS_LD
| TLS_GD
))
14376 outrel
.r_addend
= 0;
14377 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPMOD64
);
14378 if (tls_type
== (TLS_TLS
| TLS_GD
))
14380 loc
= relgot
->contents
;
14381 loc
+= (relgot
->reloc_count
++
14382 * sizeof (Elf64_External_Rela
));
14383 bfd_elf64_swap_reloca_out (output_bfd
,
14385 outrel
.r_offset
+= 8;
14386 outrel
.r_addend
= addend
;
14388 = ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
14391 else if (tls_type
== (TLS_TLS
| TLS_DTPREL
))
14392 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
14393 else if (tls_type
== (TLS_TLS
| TLS_TPREL
))
14394 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_TPREL64
);
14395 else if (indx
!= 0)
14396 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_GLOB_DAT
);
14400 outrel
.r_info
= ELF64_R_INFO (0, R_PPC64_IRELATIVE
);
14402 outrel
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
14404 /* Write the .got section contents for the sake
14406 loc
= got
->contents
+ off
;
14407 bfd_put_64 (output_bfd
, outrel
.r_addend
+ relocation
,
14411 if (indx
== 0 && tls_type
!= (TLS_TLS
| TLS_LD
))
14413 outrel
.r_addend
+= relocation
;
14414 if (tls_type
& (TLS_GD
| TLS_DTPREL
| TLS_TPREL
))
14416 if (htab
->elf
.tls_sec
== NULL
)
14417 outrel
.r_addend
= 0;
14419 outrel
.r_addend
-= htab
->elf
.tls_sec
->vma
;
14422 loc
= relgot
->contents
;
14423 loc
+= (relgot
->reloc_count
++
14424 * sizeof (Elf64_External_Rela
));
14425 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
14428 /* Init the .got section contents here if we're not
14429 emitting a reloc. */
14432 relocation
+= addend
;
14433 if (tls_type
== (TLS_TLS
| TLS_LD
))
14435 else if (tls_type
!= 0)
14437 if (htab
->elf
.tls_sec
== NULL
)
14441 relocation
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
14442 if (tls_type
== (TLS_TLS
| TLS_TPREL
))
14443 relocation
+= DTP_OFFSET
- TP_OFFSET
;
14446 if (tls_type
== (TLS_TLS
| TLS_GD
))
14448 bfd_put_64 (output_bfd
, relocation
,
14449 got
->contents
+ off
+ 8);
14454 bfd_put_64 (output_bfd
, relocation
,
14455 got
->contents
+ off
);
14459 if (off
>= (bfd_vma
) -2)
14462 relocation
= got
->output_section
->vma
+ got
->output_offset
+ off
;
14463 addend
= -(TOCstart
+ htab
->sec_info
[input_section
->id
].toc_off
);
14467 case R_PPC64_PLT16_HA
:
14468 case R_PPC64_PLT16_HI
:
14469 case R_PPC64_PLT16_LO
:
14470 case R_PPC64_PLT32
:
14471 case R_PPC64_PLT64
:
14472 /* Relocation is to the entry for this symbol in the
14473 procedure linkage table. */
14475 struct plt_entry
**plt_list
= NULL
;
14477 plt_list
= &h
->elf
.plt
.plist
;
14478 else if (local_got_ents
!= NULL
)
14480 struct plt_entry
**local_plt
= (struct plt_entry
**)
14481 (local_got_ents
+ symtab_hdr
->sh_info
);
14482 unsigned char *local_got_tls_masks
= (unsigned char *)
14483 (local_plt
+ symtab_hdr
->sh_info
);
14484 if ((local_got_tls_masks
[r_symndx
] & PLT_IFUNC
) != 0)
14485 plt_list
= local_plt
+ r_symndx
;
14489 struct plt_entry
*ent
;
14491 for (ent
= *plt_list
; ent
!= NULL
; ent
= ent
->next
)
14492 if (ent
->plt
.offset
!= (bfd_vma
) -1
14493 && ent
->addend
== orig_rel
.r_addend
)
14497 plt
= htab
->elf
.splt
;
14498 if (!htab
->elf
.dynamic_sections_created
14500 || h
->elf
.dynindx
== -1)
14501 plt
= htab
->elf
.iplt
;
14502 relocation
= (plt
->output_section
->vma
14503 + plt
->output_offset
14504 + ent
->plt
.offset
);
14506 unresolved_reloc
= FALSE
;
14514 /* Relocation value is TOC base. */
14515 relocation
= TOCstart
;
14516 if (r_symndx
== STN_UNDEF
)
14517 relocation
+= htab
->sec_info
[input_section
->id
].toc_off
;
14518 else if (unresolved_reloc
)
14520 else if (sec
!= NULL
&& sec
->id
< htab
->sec_info_arr_size
)
14521 relocation
+= htab
->sec_info
[sec
->id
].toc_off
;
14523 unresolved_reloc
= TRUE
;
14526 /* TOC16 relocs. We want the offset relative to the TOC base,
14527 which is the address of the start of the TOC plus 0x8000.
14528 The TOC consists of sections .got, .toc, .tocbss, and .plt,
14530 case R_PPC64_TOC16
:
14531 case R_PPC64_TOC16_LO
:
14532 case R_PPC64_TOC16_HI
:
14533 case R_PPC64_TOC16_DS
:
14534 case R_PPC64_TOC16_LO_DS
:
14535 case R_PPC64_TOC16_HA
:
14536 addend
-= TOCstart
+ htab
->sec_info
[input_section
->id
].toc_off
;
14539 /* Relocate against the beginning of the section. */
14540 case R_PPC64_SECTOFF
:
14541 case R_PPC64_SECTOFF_LO
:
14542 case R_PPC64_SECTOFF_HI
:
14543 case R_PPC64_SECTOFF_DS
:
14544 case R_PPC64_SECTOFF_LO_DS
:
14545 case R_PPC64_SECTOFF_HA
:
14547 addend
-= sec
->output_section
->vma
;
14550 case R_PPC64_REL16
:
14551 case R_PPC64_REL16_LO
:
14552 case R_PPC64_REL16_HI
:
14553 case R_PPC64_REL16_HA
:
14554 case R_PPC64_REL16DX_HA
:
14557 case R_PPC64_REL14
:
14558 case R_PPC64_REL14_BRNTAKEN
:
14559 case R_PPC64_REL14_BRTAKEN
:
14560 case R_PPC64_REL24
:
14563 case R_PPC64_TPREL16
:
14564 case R_PPC64_TPREL16_LO
:
14565 case R_PPC64_TPREL16_HI
:
14566 case R_PPC64_TPREL16_HA
:
14567 case R_PPC64_TPREL16_DS
:
14568 case R_PPC64_TPREL16_LO_DS
:
14569 case R_PPC64_TPREL16_HIGH
:
14570 case R_PPC64_TPREL16_HIGHA
:
14571 case R_PPC64_TPREL16_HIGHER
:
14572 case R_PPC64_TPREL16_HIGHERA
:
14573 case R_PPC64_TPREL16_HIGHEST
:
14574 case R_PPC64_TPREL16_HIGHESTA
:
14576 && h
->elf
.root
.type
== bfd_link_hash_undefweak
14577 && h
->elf
.dynindx
== -1)
14579 /* Make this relocation against an undefined weak symbol
14580 resolve to zero. This is really just a tweak, since
14581 code using weak externs ought to check that they are
14582 defined before using them. */
14583 bfd_byte
*p
= contents
+ rel
->r_offset
- d_offset
;
14585 insn
= bfd_get_32 (output_bfd
, p
);
14586 insn
= _bfd_elf_ppc_at_tprel_transform (insn
, 13);
14588 bfd_put_32 (output_bfd
, insn
, p
);
14591 if (htab
->elf
.tls_sec
!= NULL
)
14592 addend
-= htab
->elf
.tls_sec
->vma
+ TP_OFFSET
;
14593 if (bfd_link_pic (info
))
14594 /* The TPREL16 relocs shouldn't really be used in shared
14595 libs as they will result in DT_TEXTREL being set, but
14596 support them anyway. */
14600 case R_PPC64_DTPREL16
:
14601 case R_PPC64_DTPREL16_LO
:
14602 case R_PPC64_DTPREL16_HI
:
14603 case R_PPC64_DTPREL16_HA
:
14604 case R_PPC64_DTPREL16_DS
:
14605 case R_PPC64_DTPREL16_LO_DS
:
14606 case R_PPC64_DTPREL16_HIGH
:
14607 case R_PPC64_DTPREL16_HIGHA
:
14608 case R_PPC64_DTPREL16_HIGHER
:
14609 case R_PPC64_DTPREL16_HIGHERA
:
14610 case R_PPC64_DTPREL16_HIGHEST
:
14611 case R_PPC64_DTPREL16_HIGHESTA
:
14612 if (htab
->elf
.tls_sec
!= NULL
)
14613 addend
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
14616 case R_PPC64_ADDR64_LOCAL
:
14617 addend
+= PPC64_LOCAL_ENTRY_OFFSET (h
!= NULL
14622 case R_PPC64_DTPMOD64
:
14627 case R_PPC64_TPREL64
:
14628 if (htab
->elf
.tls_sec
!= NULL
)
14629 addend
-= htab
->elf
.tls_sec
->vma
+ TP_OFFSET
;
14632 case R_PPC64_DTPREL64
:
14633 if (htab
->elf
.tls_sec
!= NULL
)
14634 addend
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
14637 /* Relocations that may need to be propagated if this is a
14639 case R_PPC64_REL30
:
14640 case R_PPC64_REL32
:
14641 case R_PPC64_REL64
:
14642 case R_PPC64_ADDR14
:
14643 case R_PPC64_ADDR14_BRNTAKEN
:
14644 case R_PPC64_ADDR14_BRTAKEN
:
14645 case R_PPC64_ADDR16
:
14646 case R_PPC64_ADDR16_DS
:
14647 case R_PPC64_ADDR16_HA
:
14648 case R_PPC64_ADDR16_HI
:
14649 case R_PPC64_ADDR16_HIGH
:
14650 case R_PPC64_ADDR16_HIGHA
:
14651 case R_PPC64_ADDR16_HIGHER
:
14652 case R_PPC64_ADDR16_HIGHERA
:
14653 case R_PPC64_ADDR16_HIGHEST
:
14654 case R_PPC64_ADDR16_HIGHESTA
:
14655 case R_PPC64_ADDR16_LO
:
14656 case R_PPC64_ADDR16_LO_DS
:
14657 case R_PPC64_ADDR24
:
14658 case R_PPC64_ADDR32
:
14659 case R_PPC64_ADDR64
:
14660 case R_PPC64_UADDR16
:
14661 case R_PPC64_UADDR32
:
14662 case R_PPC64_UADDR64
:
14664 if ((input_section
->flags
& SEC_ALLOC
) == 0)
14667 if (NO_OPD_RELOCS
&& is_opd
)
14670 if ((bfd_link_pic (info
)
14672 || ELF_ST_VISIBILITY (h
->elf
.other
) == STV_DEFAULT
14673 || h
->elf
.root
.type
!= bfd_link_hash_undefweak
)
14674 && (must_be_dyn_reloc (info
, r_type
)
14675 || !SYMBOL_CALLS_LOCAL (info
, &h
->elf
)))
14676 || (ELIMINATE_COPY_RELOCS
14677 && !bfd_link_pic (info
)
14679 && h
->elf
.dynindx
!= -1
14680 && !h
->elf
.non_got_ref
14681 && !h
->elf
.def_regular
)
14682 || (!bfd_link_pic (info
)
14684 ? h
->elf
.type
== STT_GNU_IFUNC
14685 : ELF_ST_TYPE (sym
->st_info
) == STT_GNU_IFUNC
)))
14687 bfd_boolean skip
, relocate
;
14691 /* When generating a dynamic object, these relocations
14692 are copied into the output file to be resolved at run
14698 out_off
= _bfd_elf_section_offset (output_bfd
, info
,
14699 input_section
, rel
->r_offset
);
14700 if (out_off
== (bfd_vma
) -1)
14702 else if (out_off
== (bfd_vma
) -2)
14703 skip
= TRUE
, relocate
= TRUE
;
14704 out_off
+= (input_section
->output_section
->vma
14705 + input_section
->output_offset
);
14706 outrel
.r_offset
= out_off
;
14707 outrel
.r_addend
= rel
->r_addend
;
14709 /* Optimize unaligned reloc use. */
14710 if ((r_type
== R_PPC64_ADDR64
&& (out_off
& 7) != 0)
14711 || (r_type
== R_PPC64_UADDR64
&& (out_off
& 7) == 0))
14712 r_type
^= R_PPC64_ADDR64
^ R_PPC64_UADDR64
;
14713 else if ((r_type
== R_PPC64_ADDR32
&& (out_off
& 3) != 0)
14714 || (r_type
== R_PPC64_UADDR32
&& (out_off
& 3) == 0))
14715 r_type
^= R_PPC64_ADDR32
^ R_PPC64_UADDR32
;
14716 else if ((r_type
== R_PPC64_ADDR16
&& (out_off
& 1) != 0)
14717 || (r_type
== R_PPC64_UADDR16
&& (out_off
& 1) == 0))
14718 r_type
^= R_PPC64_ADDR16
^ R_PPC64_UADDR16
;
14721 memset (&outrel
, 0, sizeof outrel
);
14722 else if (!SYMBOL_REFERENCES_LOCAL (info
, &h
->elf
)
14724 && r_type
!= R_PPC64_TOC
)
14726 BFD_ASSERT (h
->elf
.dynindx
!= -1);
14727 outrel
.r_info
= ELF64_R_INFO (h
->elf
.dynindx
, r_type
);
14731 /* This symbol is local, or marked to become local,
14732 or this is an opd section reloc which must point
14733 at a local function. */
14734 outrel
.r_addend
+= relocation
;
14735 if (r_type
== R_PPC64_ADDR64
|| r_type
== R_PPC64_TOC
)
14737 if (is_opd
&& h
!= NULL
)
14739 /* Lie about opd entries. This case occurs
14740 when building shared libraries and we
14741 reference a function in another shared
14742 lib. The same thing happens for a weak
14743 definition in an application that's
14744 overridden by a strong definition in a
14745 shared lib. (I believe this is a generic
14746 bug in binutils handling of weak syms.)
14747 In these cases we won't use the opd
14748 entry in this lib. */
14749 unresolved_reloc
= FALSE
;
14752 && r_type
== R_PPC64_ADDR64
14754 ? h
->elf
.type
== STT_GNU_IFUNC
14755 : ELF_ST_TYPE (sym
->st_info
) == STT_GNU_IFUNC
))
14756 outrel
.r_info
= ELF64_R_INFO (0, R_PPC64_IRELATIVE
);
14759 outrel
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
14761 /* We need to relocate .opd contents for ld.so.
14762 Prelink also wants simple and consistent rules
14763 for relocs. This make all RELATIVE relocs have
14764 *r_offset equal to r_addend. */
14773 ? h
->elf
.type
== STT_GNU_IFUNC
14774 : ELF_ST_TYPE (sym
->st_info
) == STT_GNU_IFUNC
)
14776 info
->callbacks
->einfo
14777 (_("%P: %H: %s for indirect "
14778 "function `%T' unsupported\n"),
14779 input_bfd
, input_section
, rel
->r_offset
,
14780 ppc64_elf_howto_table
[r_type
]->name
,
14784 else if (r_symndx
== STN_UNDEF
|| bfd_is_abs_section (sec
))
14786 else if (sec
== NULL
|| sec
->owner
== NULL
)
14788 bfd_set_error (bfd_error_bad_value
);
14795 osec
= sec
->output_section
;
14796 indx
= elf_section_data (osec
)->dynindx
;
14800 if ((osec
->flags
& SEC_READONLY
) == 0
14801 && htab
->elf
.data_index_section
!= NULL
)
14802 osec
= htab
->elf
.data_index_section
;
14804 osec
= htab
->elf
.text_index_section
;
14805 indx
= elf_section_data (osec
)->dynindx
;
14807 BFD_ASSERT (indx
!= 0);
14809 /* We are turning this relocation into one
14810 against a section symbol, so subtract out
14811 the output section's address but not the
14812 offset of the input section in the output
14814 outrel
.r_addend
-= osec
->vma
;
14817 outrel
.r_info
= ELF64_R_INFO (indx
, r_type
);
14821 sreloc
= elf_section_data (input_section
)->sreloc
;
14823 ? h
->elf
.type
== STT_GNU_IFUNC
14824 : ELF_ST_TYPE (sym
->st_info
) == STT_GNU_IFUNC
)
14825 sreloc
= htab
->elf
.irelplt
;
14826 if (sreloc
== NULL
)
14829 if (sreloc
->reloc_count
* sizeof (Elf64_External_Rela
)
14832 loc
= sreloc
->contents
;
14833 loc
+= sreloc
->reloc_count
++ * sizeof (Elf64_External_Rela
);
14834 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
14836 /* If this reloc is against an external symbol, it will
14837 be computed at runtime, so there's no need to do
14838 anything now. However, for the sake of prelink ensure
14839 that the section contents are a known value. */
14842 unresolved_reloc
= FALSE
;
14843 /* The value chosen here is quite arbitrary as ld.so
14844 ignores section contents except for the special
14845 case of .opd where the contents might be accessed
14846 before relocation. Choose zero, as that won't
14847 cause reloc overflow. */
14850 /* Use *r_offset == r_addend for R_PPC64_ADDR64 relocs
14851 to improve backward compatibility with older
14853 if (r_type
== R_PPC64_ADDR64
)
14854 addend
= outrel
.r_addend
;
14855 /* Adjust pc_relative relocs to have zero in *r_offset. */
14856 else if (ppc64_elf_howto_table
[r_type
]->pc_relative
)
14857 addend
= (input_section
->output_section
->vma
14858 + input_section
->output_offset
14865 case R_PPC64_GLOB_DAT
:
14866 case R_PPC64_JMP_SLOT
:
14867 case R_PPC64_JMP_IREL
:
14868 case R_PPC64_RELATIVE
:
14869 /* We shouldn't ever see these dynamic relocs in relocatable
14871 /* Fall through. */
14873 case R_PPC64_PLTGOT16
:
14874 case R_PPC64_PLTGOT16_DS
:
14875 case R_PPC64_PLTGOT16_HA
:
14876 case R_PPC64_PLTGOT16_HI
:
14877 case R_PPC64_PLTGOT16_LO
:
14878 case R_PPC64_PLTGOT16_LO_DS
:
14879 case R_PPC64_PLTREL32
:
14880 case R_PPC64_PLTREL64
:
14881 /* These ones haven't been implemented yet. */
14883 info
->callbacks
->einfo
14884 (_("%P: %B: %s is not supported for `%T'\n"),
14886 ppc64_elf_howto_table
[r_type
]->name
, sym_name
);
14888 bfd_set_error (bfd_error_invalid_operation
);
14893 /* Multi-instruction sequences that access the TOC can be
14894 optimized, eg. addis ra,r2,0; addi rb,ra,x;
14895 to nop; addi rb,r2,x; */
14901 case R_PPC64_GOT_TLSLD16_HI
:
14902 case R_PPC64_GOT_TLSGD16_HI
:
14903 case R_PPC64_GOT_TPREL16_HI
:
14904 case R_PPC64_GOT_DTPREL16_HI
:
14905 case R_PPC64_GOT16_HI
:
14906 case R_PPC64_TOC16_HI
:
14907 /* These relocs would only be useful if building up an
14908 offset to later add to r2, perhaps in an indexed
14909 addressing mode instruction. Don't try to optimize.
14910 Unfortunately, the possibility of someone building up an
14911 offset like this or even with the HA relocs, means that
14912 we need to check the high insn when optimizing the low
14916 case R_PPC64_GOT_TLSLD16_HA
:
14917 case R_PPC64_GOT_TLSGD16_HA
:
14918 case R_PPC64_GOT_TPREL16_HA
:
14919 case R_PPC64_GOT_DTPREL16_HA
:
14920 case R_PPC64_GOT16_HA
:
14921 case R_PPC64_TOC16_HA
:
14922 if (htab
->do_toc_opt
&& relocation
+ addend
+ 0x8000 < 0x10000
14923 && !ppc64_elf_tdata (input_bfd
)->unexpected_toc_insn
)
14925 bfd_byte
*p
= contents
+ (rel
->r_offset
& ~3);
14926 bfd_put_32 (input_bfd
, NOP
, p
);
14930 case R_PPC64_GOT_TLSLD16_LO
:
14931 case R_PPC64_GOT_TLSGD16_LO
:
14932 case R_PPC64_GOT_TPREL16_LO_DS
:
14933 case R_PPC64_GOT_DTPREL16_LO_DS
:
14934 case R_PPC64_GOT16_LO
:
14935 case R_PPC64_GOT16_LO_DS
:
14936 case R_PPC64_TOC16_LO
:
14937 case R_PPC64_TOC16_LO_DS
:
14938 if (htab
->do_toc_opt
&& relocation
+ addend
+ 0x8000 < 0x10000
14939 && !ppc64_elf_tdata (input_bfd
)->unexpected_toc_insn
)
14941 bfd_byte
*p
= contents
+ (rel
->r_offset
& ~3);
14942 insn
= bfd_get_32 (input_bfd
, p
);
14943 if ((insn
& (0x3f << 26)) == 12u << 26 /* addic */)
14945 /* Transform addic to addi when we change reg. */
14946 insn
&= ~((0x3f << 26) | (0x1f << 16));
14947 insn
|= (14u << 26) | (2 << 16);
14951 insn
&= ~(0x1f << 16);
14954 bfd_put_32 (input_bfd
, insn
, p
);
14959 /* Do any further special processing. */
14960 howto
= ppc64_elf_howto_table
[(int) r_type
];
14966 case R_PPC64_REL16_HA
:
14967 case R_PPC64_REL16DX_HA
:
14968 case R_PPC64_ADDR16_HA
:
14969 case R_PPC64_ADDR16_HIGHA
:
14970 case R_PPC64_ADDR16_HIGHERA
:
14971 case R_PPC64_ADDR16_HIGHESTA
:
14972 case R_PPC64_TOC16_HA
:
14973 case R_PPC64_SECTOFF_HA
:
14974 case R_PPC64_TPREL16_HA
:
14975 case R_PPC64_TPREL16_HIGHA
:
14976 case R_PPC64_TPREL16_HIGHERA
:
14977 case R_PPC64_TPREL16_HIGHESTA
:
14978 case R_PPC64_DTPREL16_HA
:
14979 case R_PPC64_DTPREL16_HIGHA
:
14980 case R_PPC64_DTPREL16_HIGHERA
:
14981 case R_PPC64_DTPREL16_HIGHESTA
:
14982 /* It's just possible that this symbol is a weak symbol
14983 that's not actually defined anywhere. In that case,
14984 'sec' would be NULL, and we should leave the symbol
14985 alone (it will be set to zero elsewhere in the link). */
14990 case R_PPC64_GOT16_HA
:
14991 case R_PPC64_PLTGOT16_HA
:
14992 case R_PPC64_PLT16_HA
:
14993 case R_PPC64_GOT_TLSGD16_HA
:
14994 case R_PPC64_GOT_TLSLD16_HA
:
14995 case R_PPC64_GOT_TPREL16_HA
:
14996 case R_PPC64_GOT_DTPREL16_HA
:
14997 /* Add 0x10000 if sign bit in 0:15 is set.
14998 Bits 0:15 are not used. */
15002 case R_PPC64_ADDR16_DS
:
15003 case R_PPC64_ADDR16_LO_DS
:
15004 case R_PPC64_GOT16_DS
:
15005 case R_PPC64_GOT16_LO_DS
:
15006 case R_PPC64_PLT16_LO_DS
:
15007 case R_PPC64_SECTOFF_DS
:
15008 case R_PPC64_SECTOFF_LO_DS
:
15009 case R_PPC64_TOC16_DS
:
15010 case R_PPC64_TOC16_LO_DS
:
15011 case R_PPC64_PLTGOT16_DS
:
15012 case R_PPC64_PLTGOT16_LO_DS
:
15013 case R_PPC64_GOT_TPREL16_DS
:
15014 case R_PPC64_GOT_TPREL16_LO_DS
:
15015 case R_PPC64_GOT_DTPREL16_DS
:
15016 case R_PPC64_GOT_DTPREL16_LO_DS
:
15017 case R_PPC64_TPREL16_DS
:
15018 case R_PPC64_TPREL16_LO_DS
:
15019 case R_PPC64_DTPREL16_DS
:
15020 case R_PPC64_DTPREL16_LO_DS
:
15021 insn
= bfd_get_32 (input_bfd
, contents
+ (rel
->r_offset
& ~3));
15023 /* If this reloc is against an lq, lxv, or stxv insn, then
15024 the value must be a multiple of 16. This is somewhat of
15025 a hack, but the "correct" way to do this by defining _DQ
15026 forms of all the _DS relocs bloats all reloc switches in
15027 this file. It doesn't make much sense to use these
15028 relocs in data, so testing the insn should be safe. */
15029 if ((insn
& (0x3f << 26)) == (56u << 26)
15030 || ((insn
& (0x3f << 26)) == (61u << 26) && (insn
& 3) == 1))
15032 relocation
+= addend
;
15033 addend
= insn
& (mask
^ 3);
15034 if ((relocation
& mask
) != 0)
15036 relocation
^= relocation
& mask
;
15037 info
->callbacks
->einfo
15038 (_("%P: %H: error: %s not a multiple of %u\n"),
15039 input_bfd
, input_section
, rel
->r_offset
,
15042 bfd_set_error (bfd_error_bad_value
);
15049 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
15050 because such sections are not SEC_ALLOC and thus ld.so will
15051 not process them. */
15052 if (unresolved_reloc
15053 && !((input_section
->flags
& SEC_DEBUGGING
) != 0
15054 && h
->elf
.def_dynamic
)
15055 && _bfd_elf_section_offset (output_bfd
, info
, input_section
,
15056 rel
->r_offset
) != (bfd_vma
) -1)
15058 info
->callbacks
->einfo
15059 (_("%P: %H: unresolvable %s against `%T'\n"),
15060 input_bfd
, input_section
, rel
->r_offset
,
15062 h
->elf
.root
.root
.string
);
15066 /* 16-bit fields in insns mostly have signed values, but a
15067 few insns have 16-bit unsigned values. Really, we should
15068 have different reloc types. */
15069 if (howto
->complain_on_overflow
!= complain_overflow_dont
15070 && howto
->dst_mask
== 0xffff
15071 && (input_section
->flags
& SEC_CODE
) != 0)
15073 enum complain_overflow complain
= complain_overflow_signed
;
15075 insn
= bfd_get_32 (input_bfd
, contents
+ (rel
->r_offset
& ~3));
15076 if ((insn
& (0x3f << 26)) == 10u << 26 /* cmpli */)
15077 complain
= complain_overflow_bitfield
;
15078 else if (howto
->rightshift
== 0
15079 ? ((insn
& (0x3f << 26)) == 28u << 26 /* andi */
15080 || (insn
& (0x3f << 26)) == 24u << 26 /* ori */
15081 || (insn
& (0x3f << 26)) == 26u << 26 /* xori */)
15082 : ((insn
& (0x3f << 26)) == 29u << 26 /* andis */
15083 || (insn
& (0x3f << 26)) == 25u << 26 /* oris */
15084 || (insn
& (0x3f << 26)) == 27u << 26 /* xoris */))
15085 complain
= complain_overflow_unsigned
;
15086 if (howto
->complain_on_overflow
!= complain
)
15088 alt_howto
= *howto
;
15089 alt_howto
.complain_on_overflow
= complain
;
15090 howto
= &alt_howto
;
15094 if (r_type
== R_PPC64_REL16DX_HA
)
15096 /* Split field reloc isn't handled by _bfd_final_link_relocate. */
15097 if (rel
->r_offset
+ 4 > input_section
->size
)
15098 r
= bfd_reloc_outofrange
;
15101 relocation
+= addend
;
15102 relocation
-= (rel
->r_offset
15103 + input_section
->output_offset
15104 + input_section
->output_section
->vma
);
15105 relocation
= (bfd_signed_vma
) relocation
>> 16;
15106 insn
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
);
15108 insn
|= (relocation
& 0xffc1) | ((relocation
& 0x3e) << 15);
15109 bfd_put_32 (input_bfd
, insn
, contents
+ rel
->r_offset
);
15111 if (relocation
+ 0x8000 > 0xffff)
15112 r
= bfd_reloc_overflow
;
15116 r
= _bfd_final_link_relocate (howto
, input_bfd
, input_section
, contents
,
15117 rel
->r_offset
, relocation
, addend
);
15119 if (r
!= bfd_reloc_ok
)
15121 char *more_info
= NULL
;
15122 const char *reloc_name
= howto
->name
;
15124 if (reloc_dest
!= DEST_NORMAL
)
15126 more_info
= bfd_malloc (strlen (reloc_name
) + 8);
15127 if (more_info
!= NULL
)
15129 strcpy (more_info
, reloc_name
);
15130 strcat (more_info
, (reloc_dest
== DEST_OPD
15131 ? " (OPD)" : " (stub)"));
15132 reloc_name
= more_info
;
15136 if (r
== bfd_reloc_overflow
)
15138 /* On code like "if (foo) foo();" don't report overflow
15139 on a branch to zero when foo is undefined. */
15141 && (reloc_dest
== DEST_STUB
15143 && (h
->elf
.root
.type
== bfd_link_hash_undefweak
15144 || h
->elf
.root
.type
== bfd_link_hash_undefined
)
15145 && is_branch_reloc (r_type
))))
15147 if (!((*info
->callbacks
->reloc_overflow
)
15148 (info
, &h
->elf
.root
, sym_name
,
15149 reloc_name
, orig_rel
.r_addend
,
15150 input_bfd
, input_section
, rel
->r_offset
)))
15156 info
->callbacks
->einfo
15157 (_("%P: %H: %s against `%T': error %d\n"),
15158 input_bfd
, input_section
, rel
->r_offset
,
15159 reloc_name
, sym_name
, (int) r
);
15162 if (more_info
!= NULL
)
15172 Elf_Internal_Shdr
*rel_hdr
;
15173 size_t deleted
= rel
- wrel
;
15175 rel_hdr
= _bfd_elf_single_rel_hdr (input_section
->output_section
);
15176 rel_hdr
->sh_size
-= rel_hdr
->sh_entsize
* deleted
;
15177 if (rel_hdr
->sh_size
== 0)
15179 /* It is too late to remove an empty reloc section. Leave
15181 ??? What is wrong with an empty section??? */
15182 rel_hdr
->sh_size
= rel_hdr
->sh_entsize
;
15185 rel_hdr
= _bfd_elf_single_rel_hdr (input_section
);
15186 rel_hdr
->sh_size
-= rel_hdr
->sh_entsize
* deleted
;
15187 input_section
->reloc_count
-= deleted
;
15190 /* If we're emitting relocations, then shortly after this function
15191 returns, reloc offsets and addends for this section will be
15192 adjusted. Worse, reloc symbol indices will be for the output
15193 file rather than the input. Save a copy of the relocs for
15194 opd_entry_value. */
15195 if (is_opd
&& (info
->emitrelocations
|| bfd_link_relocatable (info
)))
15198 amt
= input_section
->reloc_count
* sizeof (Elf_Internal_Rela
);
15199 rel
= bfd_alloc (input_bfd
, amt
);
15200 BFD_ASSERT (ppc64_elf_tdata (input_bfd
)->opd
.relocs
== NULL
);
15201 ppc64_elf_tdata (input_bfd
)->opd
.relocs
= rel
;
15204 memcpy (rel
, relocs
, amt
);
15209 /* Adjust the value of any local symbols in opd sections. */
15212 ppc64_elf_output_symbol_hook (struct bfd_link_info
*info
,
15213 const char *name ATTRIBUTE_UNUSED
,
15214 Elf_Internal_Sym
*elfsym
,
15215 asection
*input_sec
,
15216 struct elf_link_hash_entry
*h
)
15218 struct _opd_sec_data
*opd
;
15225 opd
= get_opd_info (input_sec
);
15226 if (opd
== NULL
|| opd
->adjust
== NULL
)
15229 value
= elfsym
->st_value
- input_sec
->output_offset
;
15230 if (!bfd_link_relocatable (info
))
15231 value
-= input_sec
->output_section
->vma
;
15233 adjust
= opd
->adjust
[OPD_NDX (value
)];
15237 elfsym
->st_value
+= adjust
;
15241 /* Finish up dynamic symbol handling. We set the contents of various
15242 dynamic sections here. */
15245 ppc64_elf_finish_dynamic_symbol (bfd
*output_bfd
,
15246 struct bfd_link_info
*info
,
15247 struct elf_link_hash_entry
*h
,
15248 Elf_Internal_Sym
*sym ATTRIBUTE_UNUSED
)
15250 struct ppc_link_hash_table
*htab
;
15251 struct plt_entry
*ent
;
15252 Elf_Internal_Rela rela
;
15255 htab
= ppc_hash_table (info
);
15259 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
15260 if (ent
->plt
.offset
!= (bfd_vma
) -1)
15262 /* This symbol has an entry in the procedure linkage
15263 table. Set it up. */
15264 if (!htab
->elf
.dynamic_sections_created
15265 || h
->dynindx
== -1)
15267 BFD_ASSERT (h
->type
== STT_GNU_IFUNC
15269 && (h
->root
.type
== bfd_link_hash_defined
15270 || h
->root
.type
== bfd_link_hash_defweak
));
15271 rela
.r_offset
= (htab
->elf
.iplt
->output_section
->vma
15272 + htab
->elf
.iplt
->output_offset
15273 + ent
->plt
.offset
);
15275 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_JMP_IREL
);
15277 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_IRELATIVE
);
15278 rela
.r_addend
= (h
->root
.u
.def
.value
15279 + h
->root
.u
.def
.section
->output_offset
15280 + h
->root
.u
.def
.section
->output_section
->vma
15282 loc
= (htab
->elf
.irelplt
->contents
15283 + (htab
->elf
.irelplt
->reloc_count
++
15284 * sizeof (Elf64_External_Rela
)));
15288 rela
.r_offset
= (htab
->elf
.splt
->output_section
->vma
15289 + htab
->elf
.splt
->output_offset
15290 + ent
->plt
.offset
);
15291 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_JMP_SLOT
);
15292 rela
.r_addend
= ent
->addend
;
15293 loc
= (htab
->elf
.srelplt
->contents
15294 + ((ent
->plt
.offset
- PLT_INITIAL_ENTRY_SIZE (htab
))
15295 / PLT_ENTRY_SIZE (htab
) * sizeof (Elf64_External_Rela
)));
15297 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
15299 if (!htab
->opd_abi
)
15301 if (!h
->def_regular
)
15303 /* Mark the symbol as undefined, rather than as
15304 defined in glink. Leave the value if there were
15305 any relocations where pointer equality matters
15306 (this is a clue for the dynamic linker, to make
15307 function pointer comparisons work between an
15308 application and shared library), otherwise set it
15310 sym
->st_shndx
= SHN_UNDEF
;
15311 if (!h
->pointer_equality_needed
)
15313 else if (!h
->ref_regular_nonweak
)
15315 /* This breaks function pointer comparisons, but
15316 that is better than breaking tests for a NULL
15317 function pointer. */
15326 /* This symbol needs a copy reloc. Set it up. */
15328 if (h
->dynindx
== -1
15329 || (h
->root
.type
!= bfd_link_hash_defined
15330 && h
->root
.type
!= bfd_link_hash_defweak
)
15331 || htab
->relbss
== NULL
)
15334 rela
.r_offset
= (h
->root
.u
.def
.value
15335 + h
->root
.u
.def
.section
->output_section
->vma
15336 + h
->root
.u
.def
.section
->output_offset
);
15337 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_COPY
);
15339 loc
= htab
->relbss
->contents
;
15340 loc
+= htab
->relbss
->reloc_count
++ * sizeof (Elf64_External_Rela
);
15341 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
15347 /* Used to decide how to sort relocs in an optimal manner for the
15348 dynamic linker, before writing them out. */
15350 static enum elf_reloc_type_class
15351 ppc64_elf_reloc_type_class (const struct bfd_link_info
*info
,
15352 const asection
*rel_sec
,
15353 const Elf_Internal_Rela
*rela
)
15355 enum elf_ppc64_reloc_type r_type
;
15356 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
15358 if (rel_sec
== htab
->elf
.irelplt
)
15359 return reloc_class_ifunc
;
15361 r_type
= ELF64_R_TYPE (rela
->r_info
);
15364 case R_PPC64_RELATIVE
:
15365 return reloc_class_relative
;
15366 case R_PPC64_JMP_SLOT
:
15367 return reloc_class_plt
;
15369 return reloc_class_copy
;
15371 return reloc_class_normal
;
15375 /* Finish up the dynamic sections. */
15378 ppc64_elf_finish_dynamic_sections (bfd
*output_bfd
,
15379 struct bfd_link_info
*info
)
15381 struct ppc_link_hash_table
*htab
;
15385 htab
= ppc_hash_table (info
);
15389 dynobj
= htab
->elf
.dynobj
;
15390 sdyn
= bfd_get_linker_section (dynobj
, ".dynamic");
15392 if (htab
->elf
.dynamic_sections_created
)
15394 Elf64_External_Dyn
*dyncon
, *dynconend
;
15396 if (sdyn
== NULL
|| htab
->elf
.sgot
== NULL
)
15399 dyncon
= (Elf64_External_Dyn
*) sdyn
->contents
;
15400 dynconend
= (Elf64_External_Dyn
*) (sdyn
->contents
+ sdyn
->size
);
15401 for (; dyncon
< dynconend
; dyncon
++)
15403 Elf_Internal_Dyn dyn
;
15406 bfd_elf64_swap_dyn_in (dynobj
, dyncon
, &dyn
);
15413 case DT_PPC64_GLINK
:
15415 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
15416 /* We stupidly defined DT_PPC64_GLINK to be the start
15417 of glink rather than the first entry point, which is
15418 what ld.so needs, and now have a bigger stub to
15419 support automatic multiple TOCs. */
15420 dyn
.d_un
.d_ptr
+= GLINK_CALL_STUB_SIZE
- 8 * 4;
15424 s
= bfd_get_section_by_name (output_bfd
, ".opd");
15427 dyn
.d_un
.d_ptr
= s
->vma
;
15431 if (htab
->do_multi_toc
&& htab
->multi_toc_needed
)
15432 dyn
.d_un
.d_val
|= PPC64_OPT_MULTI_TOC
;
15435 case DT_PPC64_OPDSZ
:
15436 s
= bfd_get_section_by_name (output_bfd
, ".opd");
15439 dyn
.d_un
.d_val
= s
->size
;
15443 s
= htab
->elf
.splt
;
15444 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
15448 s
= htab
->elf
.srelplt
;
15449 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
15453 dyn
.d_un
.d_val
= htab
->elf
.srelplt
->size
;
15457 /* Don't count procedure linkage table relocs in the
15458 overall reloc count. */
15459 s
= htab
->elf
.srelplt
;
15462 dyn
.d_un
.d_val
-= s
->size
;
15466 /* We may not be using the standard ELF linker script.
15467 If .rela.plt is the first .rela section, we adjust
15468 DT_RELA to not include it. */
15469 s
= htab
->elf
.srelplt
;
15472 if (dyn
.d_un
.d_ptr
!= s
->output_section
->vma
+ s
->output_offset
)
15474 dyn
.d_un
.d_ptr
+= s
->size
;
15478 bfd_elf64_swap_dyn_out (output_bfd
, &dyn
, dyncon
);
15482 if (htab
->elf
.sgot
!= NULL
&& htab
->elf
.sgot
->size
!= 0)
15484 /* Fill in the first entry in the global offset table.
15485 We use it to hold the link-time TOCbase. */
15486 bfd_put_64 (output_bfd
,
15487 elf_gp (output_bfd
) + TOC_BASE_OFF
,
15488 htab
->elf
.sgot
->contents
);
15490 /* Set .got entry size. */
15491 elf_section_data (htab
->elf
.sgot
->output_section
)->this_hdr
.sh_entsize
= 8;
15494 if (htab
->elf
.splt
!= NULL
&& htab
->elf
.splt
->size
!= 0)
15496 /* Set .plt entry size. */
15497 elf_section_data (htab
->elf
.splt
->output_section
)->this_hdr
.sh_entsize
15498 = PLT_ENTRY_SIZE (htab
);
15501 /* brlt is SEC_LINKER_CREATED, so we need to write out relocs for
15502 brlt ourselves if emitrelocations. */
15503 if (htab
->brlt
!= NULL
15504 && htab
->brlt
->reloc_count
!= 0
15505 && !_bfd_elf_link_output_relocs (output_bfd
,
15507 elf_section_data (htab
->brlt
)->rela
.hdr
,
15508 elf_section_data (htab
->brlt
)->relocs
,
15512 if (htab
->glink
!= NULL
15513 && htab
->glink
->reloc_count
!= 0
15514 && !_bfd_elf_link_output_relocs (output_bfd
,
15516 elf_section_data (htab
->glink
)->rela
.hdr
,
15517 elf_section_data (htab
->glink
)->relocs
,
15521 if (htab
->glink_eh_frame
!= NULL
15522 && htab
->glink_eh_frame
->size
!= 0)
15526 asection
*stub_sec
;
15528 p
= htab
->glink_eh_frame
->contents
+ sizeof (glink_eh_frame_cie
);
15529 for (stub_sec
= htab
->params
->stub_bfd
->sections
;
15531 stub_sec
= stub_sec
->next
)
15532 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
15538 /* Offset to stub section. */
15539 val
= (stub_sec
->output_section
->vma
15540 + stub_sec
->output_offset
);
15541 val
-= (htab
->glink_eh_frame
->output_section
->vma
15542 + htab
->glink_eh_frame
->output_offset
15543 + (p
- htab
->glink_eh_frame
->contents
));
15544 if (val
+ 0x80000000 > 0xffffffff)
15546 info
->callbacks
->einfo
15547 (_("%P: %s offset too large for .eh_frame sdata4 encoding"),
15551 bfd_put_32 (dynobj
, val
, p
);
15553 /* stub section size. */
15555 /* Augmentation. */
15560 if (htab
->glink
!= NULL
&& htab
->glink
->size
!= 0)
15566 /* Offset to .glink. */
15567 val
= (htab
->glink
->output_section
->vma
15568 + htab
->glink
->output_offset
15570 val
-= (htab
->glink_eh_frame
->output_section
->vma
15571 + htab
->glink_eh_frame
->output_offset
15572 + (p
- htab
->glink_eh_frame
->contents
));
15573 if (val
+ 0x80000000 > 0xffffffff)
15575 info
->callbacks
->einfo
15576 (_("%P: %s offset too large for .eh_frame sdata4 encoding"),
15577 htab
->glink
->name
);
15580 bfd_put_32 (dynobj
, val
, p
);
15584 /* Augmentation. */
15590 if (htab
->glink_eh_frame
->sec_info_type
== SEC_INFO_TYPE_EH_FRAME
15591 && !_bfd_elf_write_section_eh_frame (output_bfd
, info
,
15592 htab
->glink_eh_frame
,
15593 htab
->glink_eh_frame
->contents
))
15597 /* We need to handle writing out multiple GOT sections ourselves,
15598 since we didn't add them to DYNOBJ. We know dynobj is the first
15600 while ((dynobj
= dynobj
->link
.next
) != NULL
)
15604 if (!is_ppc64_elf (dynobj
))
15607 s
= ppc64_elf_tdata (dynobj
)->got
;
15610 && s
->output_section
!= bfd_abs_section_ptr
15611 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
15612 s
->contents
, s
->output_offset
,
15615 s
= ppc64_elf_tdata (dynobj
)->relgot
;
15618 && s
->output_section
!= bfd_abs_section_ptr
15619 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
15620 s
->contents
, s
->output_offset
,
15628 #include "elf64-target.h"
15630 /* FreeBSD support */
15632 #undef TARGET_LITTLE_SYM
15633 #undef TARGET_LITTLE_NAME
15635 #undef TARGET_BIG_SYM
15636 #define TARGET_BIG_SYM powerpc_elf64_fbsd_vec
15637 #undef TARGET_BIG_NAME
15638 #define TARGET_BIG_NAME "elf64-powerpc-freebsd"
15641 #define ELF_OSABI ELFOSABI_FREEBSD
15644 #define elf64_bed elf64_powerpc_fbsd_bed
15646 #include "elf64-target.h"