1 /* PowerPC64-specific support for 64-bit ELF.
2 Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
3 Free Software Foundation, Inc.
4 Written by Linus Nordberg, Swox AB <info@swox.com>,
5 based on elf32-ppc.c by Ian Lance Taylor.
6 Largely rewritten by Alan Modra <amodra@bigpond.net.au>
8 This file is part of BFD, the Binary File Descriptor library.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License along
21 with this program; if not, write to the Free Software Foundation, Inc.,
22 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
25 /* The 64-bit PowerPC ELF ABI may be found at
26 http://www.linuxbase.org/spec/ELF/ppc64/PPC-elf64abi.txt, and
27 http://www.linuxbase.org/spec/ELF/ppc64/spec/book1.html */
35 #include "elf/ppc64.h"
36 #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
*);
59 #define TARGET_LITTLE_SYM bfd_elf64_powerpcle_vec
60 #define TARGET_LITTLE_NAME "elf64-powerpcle"
61 #define TARGET_BIG_SYM bfd_elf64_powerpc_vec
62 #define TARGET_BIG_NAME "elf64-powerpc"
63 #define ELF_ARCH bfd_arch_powerpc
64 #define ELF_MACHINE_CODE EM_PPC64
65 #define ELF_MAXPAGESIZE 0x10000
66 #define ELF_COMMONPAGESIZE 0x1000
67 #define elf_info_to_howto ppc64_elf_info_to_howto
69 #define elf_backend_want_got_sym 0
70 #define elf_backend_want_plt_sym 0
71 #define elf_backend_plt_alignment 3
72 #define elf_backend_plt_not_loaded 1
73 #define elf_backend_got_header_size 8
74 #define elf_backend_can_gc_sections 1
75 #define elf_backend_can_refcount 1
76 #define elf_backend_rela_normal 1
77 #define elf_backend_default_execstack 0
79 #define bfd_elf64_mkobject ppc64_elf_mkobject
80 #define bfd_elf64_bfd_reloc_type_lookup ppc64_elf_reloc_type_lookup
81 #define bfd_elf64_bfd_reloc_name_lookup ppc64_elf_reloc_name_lookup
82 #define bfd_elf64_bfd_merge_private_bfd_data ppc64_elf_merge_private_bfd_data
83 #define bfd_elf64_new_section_hook ppc64_elf_new_section_hook
84 #define bfd_elf64_bfd_link_hash_table_create ppc64_elf_link_hash_table_create
85 #define bfd_elf64_bfd_link_hash_table_free ppc64_elf_link_hash_table_free
86 #define bfd_elf64_get_synthetic_symtab ppc64_elf_get_synthetic_symtab
88 #define elf_backend_object_p ppc64_elf_object_p
89 #define elf_backend_grok_prstatus ppc64_elf_grok_prstatus
90 #define elf_backend_grok_psinfo ppc64_elf_grok_psinfo
91 #define elf_backend_write_core_note ppc64_elf_write_core_note
92 #define elf_backend_create_dynamic_sections ppc64_elf_create_dynamic_sections
93 #define elf_backend_copy_indirect_symbol ppc64_elf_copy_indirect_symbol
94 #define elf_backend_add_symbol_hook ppc64_elf_add_symbol_hook
95 #define elf_backend_check_directives ppc64_elf_check_directives
96 #define elf_backend_as_needed_cleanup ppc64_elf_as_needed_cleanup
97 #define elf_backend_archive_symbol_lookup ppc64_elf_archive_symbol_lookup
98 #define elf_backend_check_relocs ppc64_elf_check_relocs
99 #define elf_backend_gc_mark_dynamic_ref ppc64_elf_gc_mark_dynamic_ref
100 #define elf_backend_gc_mark_hook ppc64_elf_gc_mark_hook
101 #define elf_backend_gc_sweep_hook ppc64_elf_gc_sweep_hook
102 #define elf_backend_adjust_dynamic_symbol ppc64_elf_adjust_dynamic_symbol
103 #define elf_backend_hide_symbol ppc64_elf_hide_symbol
104 #define elf_backend_always_size_sections ppc64_elf_func_desc_adjust
105 #define elf_backend_size_dynamic_sections ppc64_elf_size_dynamic_sections
106 #define elf_backend_init_index_section _bfd_elf_init_2_index_sections
107 #define elf_backend_action_discarded ppc64_elf_action_discarded
108 #define elf_backend_relocate_section ppc64_elf_relocate_section
109 #define elf_backend_finish_dynamic_symbol ppc64_elf_finish_dynamic_symbol
110 #define elf_backend_reloc_type_class ppc64_elf_reloc_type_class
111 #define elf_backend_finish_dynamic_sections ppc64_elf_finish_dynamic_sections
112 #define elf_backend_link_output_symbol_hook ppc64_elf_output_symbol_hook
113 #define elf_backend_special_sections ppc64_elf_special_sections
115 /* The name of the dynamic interpreter. This is put in the .interp
117 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
119 /* The size in bytes of an entry in the procedure linkage table. */
120 #define PLT_ENTRY_SIZE 24
122 /* The initial size of the plt reserved for the dynamic linker. */
123 #define PLT_INITIAL_ENTRY_SIZE PLT_ENTRY_SIZE
125 /* TOC base pointers offset from start of TOC. */
126 #define TOC_BASE_OFF 0x8000
128 /* Offset of tp and dtp pointers from start of TLS block. */
129 #define TP_OFFSET 0x7000
130 #define DTP_OFFSET 0x8000
132 /* .plt call stub instructions. The normal stub is like this, but
133 sometimes the .plt entry crosses a 64k boundary and we need to
134 insert an addi to adjust r12. */
135 #define PLT_CALL_STUB_SIZE (7*4)
136 #define ADDIS_R12_R2 0x3d820000 /* addis %r12,%r2,xxx@ha */
137 #define STD_R2_40R1 0xf8410028 /* std %r2,40(%r1) */
138 #define LD_R11_0R12 0xe96c0000 /* ld %r11,xxx+0@l(%r12) */
139 #define MTCTR_R11 0x7d6903a6 /* mtctr %r11 */
140 #define LD_R2_0R12 0xe84c0000 /* ld %r2,xxx+8@l(%r12) */
141 /* ld %r11,xxx+16@l(%r12) */
142 #define BCTR 0x4e800420 /* bctr */
145 #define ADDIS_R12_R12 0x3d8c0000 /* addis %r12,%r12,off@ha */
146 #define ADDI_R12_R12 0x398c0000 /* addi %r12,%r12,off@l */
147 #define ADDIS_R2_R2 0x3c420000 /* addis %r2,%r2,off@ha */
148 #define ADDI_R2_R2 0x38420000 /* addi %r2,%r2,off@l */
150 #define LD_R11_0R2 0xe9620000 /* ld %r11,xxx+0(%r2) */
151 #define LD_R2_0R2 0xe8420000 /* ld %r2,xxx+0(%r2) */
153 #define LD_R2_40R1 0xe8410028 /* ld %r2,40(%r1) */
155 /* glink call stub instructions. We enter with the index in R0. */
156 #define GLINK_CALL_STUB_SIZE (16*4)
160 #define MFLR_R12 0x7d8802a6 /* mflr %12 */
161 #define BCL_20_31 0x429f0005 /* bcl 20,31,1f */
163 #define MFLR_R11 0x7d6802a6 /* mflr %11 */
164 #define LD_R2_M16R11 0xe84bfff0 /* ld %2,(0b-1b)(%11) */
165 #define MTLR_R12 0x7d8803a6 /* mtlr %12 */
166 #define ADD_R12_R2_R11 0x7d825a14 /* add %12,%2,%11 */
174 #define NOP 0x60000000
176 /* Some other nops. */
177 #define CROR_151515 0x4def7b82
178 #define CROR_313131 0x4ffffb82
180 /* .glink entries for the first 32k functions are two instructions. */
181 #define LI_R0_0 0x38000000 /* li %r0,0 */
182 #define B_DOT 0x48000000 /* b . */
184 /* After that, we need two instructions to load the index, followed by
186 #define LIS_R0_0 0x3c000000 /* lis %r0,0 */
187 #define ORI_R0_R0_0 0x60000000 /* ori %r0,%r0,0 */
189 /* Instructions used by the save and restore reg functions. */
190 #define STD_R0_0R1 0xf8010000 /* std %r0,0(%r1) */
191 #define STD_R0_0R12 0xf80c0000 /* std %r0,0(%r12) */
192 #define LD_R0_0R1 0xe8010000 /* ld %r0,0(%r1) */
193 #define LD_R0_0R12 0xe80c0000 /* ld %r0,0(%r12) */
194 #define STFD_FR0_0R1 0xd8010000 /* stfd %fr0,0(%r1) */
195 #define LFD_FR0_0R1 0xc8010000 /* lfd %fr0,0(%r1) */
196 #define LI_R12_0 0x39800000 /* li %r12,0 */
197 #define STVX_VR0_R12_R0 0x7c0c01ce /* stvx %v0,%r12,%r0 */
198 #define LVX_VR0_R12_R0 0x7c0c00ce /* lvx %v0,%r12,%r0 */
199 #define MTLR_R0 0x7c0803a6 /* mtlr %r0 */
200 #define BLR 0x4e800020 /* blr */
202 /* Since .opd is an array of descriptors and each entry will end up
203 with identical R_PPC64_RELATIVE relocs, there is really no need to
204 propagate .opd relocs; The dynamic linker should be taught to
205 relocate .opd without reloc entries. */
206 #ifndef NO_OPD_RELOCS
207 #define NO_OPD_RELOCS 0
210 #define ONES(n) (((bfd_vma) 1 << ((n) - 1) << 1) - 1)
212 /* Relocation HOWTO's. */
213 static reloc_howto_type
*ppc64_elf_howto_table
[(int) R_PPC64_max
];
215 static reloc_howto_type ppc64_elf_howto_raw
[] = {
216 /* This reloc does nothing. */
217 HOWTO (R_PPC64_NONE
, /* type */
219 2, /* size (0 = byte, 1 = short, 2 = long) */
221 FALSE
, /* pc_relative */
223 complain_overflow_dont
, /* complain_on_overflow */
224 bfd_elf_generic_reloc
, /* special_function */
225 "R_PPC64_NONE", /* name */
226 FALSE
, /* partial_inplace */
229 FALSE
), /* pcrel_offset */
231 /* A standard 32 bit relocation. */
232 HOWTO (R_PPC64_ADDR32
, /* type */
234 2, /* size (0 = byte, 1 = short, 2 = long) */
236 FALSE
, /* pc_relative */
238 complain_overflow_bitfield
, /* complain_on_overflow */
239 bfd_elf_generic_reloc
, /* special_function */
240 "R_PPC64_ADDR32", /* name */
241 FALSE
, /* partial_inplace */
243 0xffffffff, /* dst_mask */
244 FALSE
), /* pcrel_offset */
246 /* An absolute 26 bit branch; the lower two bits must be zero.
247 FIXME: we don't check that, we just clear them. */
248 HOWTO (R_PPC64_ADDR24
, /* type */
250 2, /* size (0 = byte, 1 = short, 2 = long) */
252 FALSE
, /* pc_relative */
254 complain_overflow_bitfield
, /* complain_on_overflow */
255 bfd_elf_generic_reloc
, /* special_function */
256 "R_PPC64_ADDR24", /* name */
257 FALSE
, /* partial_inplace */
259 0x03fffffc, /* dst_mask */
260 FALSE
), /* pcrel_offset */
262 /* A standard 16 bit relocation. */
263 HOWTO (R_PPC64_ADDR16
, /* type */
265 1, /* size (0 = byte, 1 = short, 2 = long) */
267 FALSE
, /* pc_relative */
269 complain_overflow_bitfield
, /* complain_on_overflow */
270 bfd_elf_generic_reloc
, /* special_function */
271 "R_PPC64_ADDR16", /* name */
272 FALSE
, /* partial_inplace */
274 0xffff, /* dst_mask */
275 FALSE
), /* pcrel_offset */
277 /* A 16 bit relocation without overflow. */
278 HOWTO (R_PPC64_ADDR16_LO
, /* type */
280 1, /* size (0 = byte, 1 = short, 2 = long) */
282 FALSE
, /* pc_relative */
284 complain_overflow_dont
,/* complain_on_overflow */
285 bfd_elf_generic_reloc
, /* special_function */
286 "R_PPC64_ADDR16_LO", /* name */
287 FALSE
, /* partial_inplace */
289 0xffff, /* dst_mask */
290 FALSE
), /* pcrel_offset */
292 /* Bits 16-31 of an address. */
293 HOWTO (R_PPC64_ADDR16_HI
, /* type */
295 1, /* size (0 = byte, 1 = short, 2 = long) */
297 FALSE
, /* pc_relative */
299 complain_overflow_dont
, /* complain_on_overflow */
300 bfd_elf_generic_reloc
, /* special_function */
301 "R_PPC64_ADDR16_HI", /* name */
302 FALSE
, /* partial_inplace */
304 0xffff, /* dst_mask */
305 FALSE
), /* pcrel_offset */
307 /* Bits 16-31 of an address, plus 1 if the contents of the low 16
308 bits, treated as a signed number, is negative. */
309 HOWTO (R_PPC64_ADDR16_HA
, /* type */
311 1, /* size (0 = byte, 1 = short, 2 = long) */
313 FALSE
, /* pc_relative */
315 complain_overflow_dont
, /* complain_on_overflow */
316 ppc64_elf_ha_reloc
, /* special_function */
317 "R_PPC64_ADDR16_HA", /* name */
318 FALSE
, /* partial_inplace */
320 0xffff, /* dst_mask */
321 FALSE
), /* pcrel_offset */
323 /* An absolute 16 bit branch; the lower two bits must be zero.
324 FIXME: we don't check that, we just clear them. */
325 HOWTO (R_PPC64_ADDR14
, /* type */
327 2, /* size (0 = byte, 1 = short, 2 = long) */
329 FALSE
, /* pc_relative */
331 complain_overflow_bitfield
, /* complain_on_overflow */
332 ppc64_elf_branch_reloc
, /* special_function */
333 "R_PPC64_ADDR14", /* name */
334 FALSE
, /* partial_inplace */
336 0x0000fffc, /* dst_mask */
337 FALSE
), /* pcrel_offset */
339 /* An absolute 16 bit branch, for which bit 10 should be set to
340 indicate that the branch is expected to be taken. The lower two
341 bits must be zero. */
342 HOWTO (R_PPC64_ADDR14_BRTAKEN
, /* type */
344 2, /* size (0 = byte, 1 = short, 2 = long) */
346 FALSE
, /* pc_relative */
348 complain_overflow_bitfield
, /* complain_on_overflow */
349 ppc64_elf_brtaken_reloc
, /* special_function */
350 "R_PPC64_ADDR14_BRTAKEN",/* name */
351 FALSE
, /* partial_inplace */
353 0x0000fffc, /* dst_mask */
354 FALSE
), /* pcrel_offset */
356 /* An absolute 16 bit branch, for which bit 10 should be set to
357 indicate that the branch is not expected to be taken. The lower
358 two bits must be zero. */
359 HOWTO (R_PPC64_ADDR14_BRNTAKEN
, /* type */
361 2, /* size (0 = byte, 1 = short, 2 = long) */
363 FALSE
, /* pc_relative */
365 complain_overflow_bitfield
, /* complain_on_overflow */
366 ppc64_elf_brtaken_reloc
, /* special_function */
367 "R_PPC64_ADDR14_BRNTAKEN",/* name */
368 FALSE
, /* partial_inplace */
370 0x0000fffc, /* dst_mask */
371 FALSE
), /* pcrel_offset */
373 /* A relative 26 bit branch; the lower two bits must be zero. */
374 HOWTO (R_PPC64_REL24
, /* type */
376 2, /* size (0 = byte, 1 = short, 2 = long) */
378 TRUE
, /* pc_relative */
380 complain_overflow_signed
, /* complain_on_overflow */
381 ppc64_elf_branch_reloc
, /* special_function */
382 "R_PPC64_REL24", /* name */
383 FALSE
, /* partial_inplace */
385 0x03fffffc, /* dst_mask */
386 TRUE
), /* pcrel_offset */
388 /* A relative 16 bit branch; the lower two bits must be zero. */
389 HOWTO (R_PPC64_REL14
, /* type */
391 2, /* size (0 = byte, 1 = short, 2 = long) */
393 TRUE
, /* pc_relative */
395 complain_overflow_signed
, /* complain_on_overflow */
396 ppc64_elf_branch_reloc
, /* special_function */
397 "R_PPC64_REL14", /* name */
398 FALSE
, /* partial_inplace */
400 0x0000fffc, /* dst_mask */
401 TRUE
), /* pcrel_offset */
403 /* A relative 16 bit branch. Bit 10 should be set to indicate that
404 the branch is expected to be taken. The lower two bits must be
406 HOWTO (R_PPC64_REL14_BRTAKEN
, /* type */
408 2, /* size (0 = byte, 1 = short, 2 = long) */
410 TRUE
, /* pc_relative */
412 complain_overflow_signed
, /* complain_on_overflow */
413 ppc64_elf_brtaken_reloc
, /* special_function */
414 "R_PPC64_REL14_BRTAKEN", /* name */
415 FALSE
, /* partial_inplace */
417 0x0000fffc, /* dst_mask */
418 TRUE
), /* pcrel_offset */
420 /* A relative 16 bit branch. Bit 10 should be set to indicate that
421 the branch is not expected to be taken. The lower two bits must
423 HOWTO (R_PPC64_REL14_BRNTAKEN
, /* type */
425 2, /* size (0 = byte, 1 = short, 2 = long) */
427 TRUE
, /* pc_relative */
429 complain_overflow_signed
, /* complain_on_overflow */
430 ppc64_elf_brtaken_reloc
, /* special_function */
431 "R_PPC64_REL14_BRNTAKEN",/* name */
432 FALSE
, /* partial_inplace */
434 0x0000fffc, /* dst_mask */
435 TRUE
), /* pcrel_offset */
437 /* Like R_PPC64_ADDR16, but referring to the GOT table entry for the
439 HOWTO (R_PPC64_GOT16
, /* type */
441 1, /* size (0 = byte, 1 = short, 2 = long) */
443 FALSE
, /* pc_relative */
445 complain_overflow_signed
, /* complain_on_overflow */
446 ppc64_elf_unhandled_reloc
, /* special_function */
447 "R_PPC64_GOT16", /* name */
448 FALSE
, /* partial_inplace */
450 0xffff, /* dst_mask */
451 FALSE
), /* pcrel_offset */
453 /* Like R_PPC64_ADDR16_LO, but referring to the GOT table entry for
455 HOWTO (R_PPC64_GOT16_LO
, /* type */
457 1, /* size (0 = byte, 1 = short, 2 = long) */
459 FALSE
, /* pc_relative */
461 complain_overflow_dont
, /* complain_on_overflow */
462 ppc64_elf_unhandled_reloc
, /* special_function */
463 "R_PPC64_GOT16_LO", /* name */
464 FALSE
, /* partial_inplace */
466 0xffff, /* dst_mask */
467 FALSE
), /* pcrel_offset */
469 /* Like R_PPC64_ADDR16_HI, but referring to the GOT table entry for
471 HOWTO (R_PPC64_GOT16_HI
, /* type */
473 1, /* size (0 = byte, 1 = short, 2 = long) */
475 FALSE
, /* pc_relative */
477 complain_overflow_dont
,/* complain_on_overflow */
478 ppc64_elf_unhandled_reloc
, /* special_function */
479 "R_PPC64_GOT16_HI", /* name */
480 FALSE
, /* partial_inplace */
482 0xffff, /* dst_mask */
483 FALSE
), /* pcrel_offset */
485 /* Like R_PPC64_ADDR16_HA, but referring to the GOT table entry for
487 HOWTO (R_PPC64_GOT16_HA
, /* type */
489 1, /* size (0 = byte, 1 = short, 2 = long) */
491 FALSE
, /* pc_relative */
493 complain_overflow_dont
,/* complain_on_overflow */
494 ppc64_elf_unhandled_reloc
, /* special_function */
495 "R_PPC64_GOT16_HA", /* name */
496 FALSE
, /* partial_inplace */
498 0xffff, /* dst_mask */
499 FALSE
), /* pcrel_offset */
501 /* This is used only by the dynamic linker. The symbol should exist
502 both in the object being run and in some shared library. The
503 dynamic linker copies the data addressed by the symbol from the
504 shared library into the object, because the object being
505 run has to have the data at some particular address. */
506 HOWTO (R_PPC64_COPY
, /* type */
508 0, /* this one is variable size */
510 FALSE
, /* pc_relative */
512 complain_overflow_dont
, /* complain_on_overflow */
513 ppc64_elf_unhandled_reloc
, /* special_function */
514 "R_PPC64_COPY", /* name */
515 FALSE
, /* partial_inplace */
518 FALSE
), /* pcrel_offset */
520 /* Like R_PPC64_ADDR64, but used when setting global offset table
522 HOWTO (R_PPC64_GLOB_DAT
, /* type */
524 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
526 FALSE
, /* pc_relative */
528 complain_overflow_dont
, /* complain_on_overflow */
529 ppc64_elf_unhandled_reloc
, /* special_function */
530 "R_PPC64_GLOB_DAT", /* name */
531 FALSE
, /* partial_inplace */
533 ONES (64), /* dst_mask */
534 FALSE
), /* pcrel_offset */
536 /* Created by the link editor. Marks a procedure linkage table
537 entry for a symbol. */
538 HOWTO (R_PPC64_JMP_SLOT
, /* type */
540 0, /* size (0 = byte, 1 = short, 2 = long) */
542 FALSE
, /* pc_relative */
544 complain_overflow_dont
, /* complain_on_overflow */
545 ppc64_elf_unhandled_reloc
, /* special_function */
546 "R_PPC64_JMP_SLOT", /* name */
547 FALSE
, /* partial_inplace */
550 FALSE
), /* pcrel_offset */
552 /* Used only by the dynamic linker. When the object is run, this
553 doubleword64 is set to the load address of the object, plus the
555 HOWTO (R_PPC64_RELATIVE
, /* type */
557 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
559 FALSE
, /* pc_relative */
561 complain_overflow_dont
, /* complain_on_overflow */
562 bfd_elf_generic_reloc
, /* special_function */
563 "R_PPC64_RELATIVE", /* name */
564 FALSE
, /* partial_inplace */
566 ONES (64), /* dst_mask */
567 FALSE
), /* pcrel_offset */
569 /* Like R_PPC64_ADDR32, but may be unaligned. */
570 HOWTO (R_PPC64_UADDR32
, /* type */
572 2, /* size (0 = byte, 1 = short, 2 = long) */
574 FALSE
, /* pc_relative */
576 complain_overflow_bitfield
, /* complain_on_overflow */
577 bfd_elf_generic_reloc
, /* special_function */
578 "R_PPC64_UADDR32", /* name */
579 FALSE
, /* partial_inplace */
581 0xffffffff, /* dst_mask */
582 FALSE
), /* pcrel_offset */
584 /* Like R_PPC64_ADDR16, but may be unaligned. */
585 HOWTO (R_PPC64_UADDR16
, /* type */
587 1, /* size (0 = byte, 1 = short, 2 = long) */
589 FALSE
, /* pc_relative */
591 complain_overflow_bitfield
, /* complain_on_overflow */
592 bfd_elf_generic_reloc
, /* special_function */
593 "R_PPC64_UADDR16", /* name */
594 FALSE
, /* partial_inplace */
596 0xffff, /* dst_mask */
597 FALSE
), /* pcrel_offset */
599 /* 32-bit PC relative. */
600 HOWTO (R_PPC64_REL32
, /* type */
602 2, /* size (0 = byte, 1 = short, 2 = long) */
604 TRUE
, /* pc_relative */
606 /* FIXME: Verify. Was complain_overflow_bitfield. */
607 complain_overflow_signed
, /* complain_on_overflow */
608 bfd_elf_generic_reloc
, /* special_function */
609 "R_PPC64_REL32", /* name */
610 FALSE
, /* partial_inplace */
612 0xffffffff, /* dst_mask */
613 TRUE
), /* pcrel_offset */
615 /* 32-bit relocation to the symbol's procedure linkage table. */
616 HOWTO (R_PPC64_PLT32
, /* type */
618 2, /* size (0 = byte, 1 = short, 2 = long) */
620 FALSE
, /* pc_relative */
622 complain_overflow_bitfield
, /* complain_on_overflow */
623 ppc64_elf_unhandled_reloc
, /* special_function */
624 "R_PPC64_PLT32", /* name */
625 FALSE
, /* partial_inplace */
627 0xffffffff, /* dst_mask */
628 FALSE
), /* pcrel_offset */
630 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
631 FIXME: R_PPC64_PLTREL32 not supported. */
632 HOWTO (R_PPC64_PLTREL32
, /* type */
634 2, /* size (0 = byte, 1 = short, 2 = long) */
636 TRUE
, /* pc_relative */
638 complain_overflow_signed
, /* complain_on_overflow */
639 bfd_elf_generic_reloc
, /* special_function */
640 "R_PPC64_PLTREL32", /* name */
641 FALSE
, /* partial_inplace */
643 0xffffffff, /* dst_mask */
644 TRUE
), /* pcrel_offset */
646 /* Like R_PPC64_ADDR16_LO, but referring to the PLT table entry for
648 HOWTO (R_PPC64_PLT16_LO
, /* type */
650 1, /* size (0 = byte, 1 = short, 2 = long) */
652 FALSE
, /* pc_relative */
654 complain_overflow_dont
, /* complain_on_overflow */
655 ppc64_elf_unhandled_reloc
, /* special_function */
656 "R_PPC64_PLT16_LO", /* name */
657 FALSE
, /* partial_inplace */
659 0xffff, /* dst_mask */
660 FALSE
), /* pcrel_offset */
662 /* Like R_PPC64_ADDR16_HI, but referring to the PLT table entry for
664 HOWTO (R_PPC64_PLT16_HI
, /* type */
666 1, /* size (0 = byte, 1 = short, 2 = long) */
668 FALSE
, /* pc_relative */
670 complain_overflow_dont
, /* complain_on_overflow */
671 ppc64_elf_unhandled_reloc
, /* special_function */
672 "R_PPC64_PLT16_HI", /* name */
673 FALSE
, /* partial_inplace */
675 0xffff, /* dst_mask */
676 FALSE
), /* pcrel_offset */
678 /* Like R_PPC64_ADDR16_HA, but referring to the PLT table entry for
680 HOWTO (R_PPC64_PLT16_HA
, /* type */
682 1, /* size (0 = byte, 1 = short, 2 = long) */
684 FALSE
, /* pc_relative */
686 complain_overflow_dont
, /* complain_on_overflow */
687 ppc64_elf_unhandled_reloc
, /* special_function */
688 "R_PPC64_PLT16_HA", /* name */
689 FALSE
, /* partial_inplace */
691 0xffff, /* dst_mask */
692 FALSE
), /* pcrel_offset */
694 /* 16-bit section relative relocation. */
695 HOWTO (R_PPC64_SECTOFF
, /* type */
697 1, /* size (0 = byte, 1 = short, 2 = long) */
699 FALSE
, /* pc_relative */
701 complain_overflow_bitfield
, /* complain_on_overflow */
702 ppc64_elf_sectoff_reloc
, /* special_function */
703 "R_PPC64_SECTOFF", /* name */
704 FALSE
, /* partial_inplace */
706 0xffff, /* dst_mask */
707 FALSE
), /* pcrel_offset */
709 /* Like R_PPC64_SECTOFF, but no overflow warning. */
710 HOWTO (R_PPC64_SECTOFF_LO
, /* type */
712 1, /* size (0 = byte, 1 = short, 2 = long) */
714 FALSE
, /* pc_relative */
716 complain_overflow_dont
, /* complain_on_overflow */
717 ppc64_elf_sectoff_reloc
, /* special_function */
718 "R_PPC64_SECTOFF_LO", /* name */
719 FALSE
, /* partial_inplace */
721 0xffff, /* dst_mask */
722 FALSE
), /* pcrel_offset */
724 /* 16-bit upper half section relative relocation. */
725 HOWTO (R_PPC64_SECTOFF_HI
, /* type */
727 1, /* size (0 = byte, 1 = short, 2 = long) */
729 FALSE
, /* pc_relative */
731 complain_overflow_dont
, /* complain_on_overflow */
732 ppc64_elf_sectoff_reloc
, /* special_function */
733 "R_PPC64_SECTOFF_HI", /* name */
734 FALSE
, /* partial_inplace */
736 0xffff, /* dst_mask */
737 FALSE
), /* pcrel_offset */
739 /* 16-bit upper half adjusted section relative relocation. */
740 HOWTO (R_PPC64_SECTOFF_HA
, /* type */
742 1, /* size (0 = byte, 1 = short, 2 = long) */
744 FALSE
, /* pc_relative */
746 complain_overflow_dont
, /* complain_on_overflow */
747 ppc64_elf_sectoff_ha_reloc
, /* special_function */
748 "R_PPC64_SECTOFF_HA", /* name */
749 FALSE
, /* partial_inplace */
751 0xffff, /* dst_mask */
752 FALSE
), /* pcrel_offset */
754 /* Like R_PPC64_REL24 without touching the two least significant bits. */
755 HOWTO (R_PPC64_REL30
, /* type */
757 2, /* size (0 = byte, 1 = short, 2 = long) */
759 TRUE
, /* pc_relative */
761 complain_overflow_dont
, /* complain_on_overflow */
762 bfd_elf_generic_reloc
, /* special_function */
763 "R_PPC64_REL30", /* name */
764 FALSE
, /* partial_inplace */
766 0xfffffffc, /* dst_mask */
767 TRUE
), /* pcrel_offset */
769 /* Relocs in the 64-bit PowerPC ELF ABI, not in the 32-bit ABI. */
771 /* A standard 64-bit relocation. */
772 HOWTO (R_PPC64_ADDR64
, /* type */
774 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
776 FALSE
, /* pc_relative */
778 complain_overflow_dont
, /* complain_on_overflow */
779 bfd_elf_generic_reloc
, /* special_function */
780 "R_PPC64_ADDR64", /* name */
781 FALSE
, /* partial_inplace */
783 ONES (64), /* dst_mask */
784 FALSE
), /* pcrel_offset */
786 /* The bits 32-47 of an address. */
787 HOWTO (R_PPC64_ADDR16_HIGHER
, /* type */
789 1, /* size (0 = byte, 1 = short, 2 = long) */
791 FALSE
, /* pc_relative */
793 complain_overflow_dont
, /* complain_on_overflow */
794 bfd_elf_generic_reloc
, /* special_function */
795 "R_PPC64_ADDR16_HIGHER", /* name */
796 FALSE
, /* partial_inplace */
798 0xffff, /* dst_mask */
799 FALSE
), /* pcrel_offset */
801 /* The bits 32-47 of an address, plus 1 if the contents of the low
802 16 bits, treated as a signed number, is negative. */
803 HOWTO (R_PPC64_ADDR16_HIGHERA
, /* type */
805 1, /* size (0 = byte, 1 = short, 2 = long) */
807 FALSE
, /* pc_relative */
809 complain_overflow_dont
, /* complain_on_overflow */
810 ppc64_elf_ha_reloc
, /* special_function */
811 "R_PPC64_ADDR16_HIGHERA", /* name */
812 FALSE
, /* partial_inplace */
814 0xffff, /* dst_mask */
815 FALSE
), /* pcrel_offset */
817 /* The bits 48-63 of an address. */
818 HOWTO (R_PPC64_ADDR16_HIGHEST
,/* type */
820 1, /* size (0 = byte, 1 = short, 2 = long) */
822 FALSE
, /* pc_relative */
824 complain_overflow_dont
, /* complain_on_overflow */
825 bfd_elf_generic_reloc
, /* special_function */
826 "R_PPC64_ADDR16_HIGHEST", /* name */
827 FALSE
, /* partial_inplace */
829 0xffff, /* dst_mask */
830 FALSE
), /* pcrel_offset */
832 /* The bits 48-63 of an address, plus 1 if the contents of the low
833 16 bits, treated as a signed number, is negative. */
834 HOWTO (R_PPC64_ADDR16_HIGHESTA
,/* type */
836 1, /* size (0 = byte, 1 = short, 2 = long) */
838 FALSE
, /* pc_relative */
840 complain_overflow_dont
, /* complain_on_overflow */
841 ppc64_elf_ha_reloc
, /* special_function */
842 "R_PPC64_ADDR16_HIGHESTA", /* name */
843 FALSE
, /* partial_inplace */
845 0xffff, /* dst_mask */
846 FALSE
), /* pcrel_offset */
848 /* Like ADDR64, but may be unaligned. */
849 HOWTO (R_PPC64_UADDR64
, /* type */
851 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
853 FALSE
, /* pc_relative */
855 complain_overflow_dont
, /* complain_on_overflow */
856 bfd_elf_generic_reloc
, /* special_function */
857 "R_PPC64_UADDR64", /* name */
858 FALSE
, /* partial_inplace */
860 ONES (64), /* dst_mask */
861 FALSE
), /* pcrel_offset */
863 /* 64-bit relative relocation. */
864 HOWTO (R_PPC64_REL64
, /* type */
866 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
868 TRUE
, /* pc_relative */
870 complain_overflow_dont
, /* complain_on_overflow */
871 bfd_elf_generic_reloc
, /* special_function */
872 "R_PPC64_REL64", /* name */
873 FALSE
, /* partial_inplace */
875 ONES (64), /* dst_mask */
876 TRUE
), /* pcrel_offset */
878 /* 64-bit relocation to the symbol's procedure linkage table. */
879 HOWTO (R_PPC64_PLT64
, /* type */
881 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
883 FALSE
, /* pc_relative */
885 complain_overflow_dont
, /* complain_on_overflow */
886 ppc64_elf_unhandled_reloc
, /* special_function */
887 "R_PPC64_PLT64", /* name */
888 FALSE
, /* partial_inplace */
890 ONES (64), /* dst_mask */
891 FALSE
), /* pcrel_offset */
893 /* 64-bit PC relative relocation to the symbol's procedure linkage
895 /* FIXME: R_PPC64_PLTREL64 not supported. */
896 HOWTO (R_PPC64_PLTREL64
, /* type */
898 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
900 TRUE
, /* pc_relative */
902 complain_overflow_dont
, /* complain_on_overflow */
903 ppc64_elf_unhandled_reloc
, /* special_function */
904 "R_PPC64_PLTREL64", /* name */
905 FALSE
, /* partial_inplace */
907 ONES (64), /* dst_mask */
908 TRUE
), /* pcrel_offset */
910 /* 16 bit TOC-relative relocation. */
912 /* R_PPC64_TOC16 47 half16* S + A - .TOC. */
913 HOWTO (R_PPC64_TOC16
, /* type */
915 1, /* size (0 = byte, 1 = short, 2 = long) */
917 FALSE
, /* pc_relative */
919 complain_overflow_signed
, /* complain_on_overflow */
920 ppc64_elf_toc_reloc
, /* special_function */
921 "R_PPC64_TOC16", /* name */
922 FALSE
, /* partial_inplace */
924 0xffff, /* dst_mask */
925 FALSE
), /* pcrel_offset */
927 /* 16 bit TOC-relative relocation without overflow. */
929 /* R_PPC64_TOC16_LO 48 half16 #lo (S + A - .TOC.) */
930 HOWTO (R_PPC64_TOC16_LO
, /* type */
932 1, /* size (0 = byte, 1 = short, 2 = long) */
934 FALSE
, /* pc_relative */
936 complain_overflow_dont
, /* complain_on_overflow */
937 ppc64_elf_toc_reloc
, /* special_function */
938 "R_PPC64_TOC16_LO", /* name */
939 FALSE
, /* partial_inplace */
941 0xffff, /* dst_mask */
942 FALSE
), /* pcrel_offset */
944 /* 16 bit TOC-relative relocation, high 16 bits. */
946 /* R_PPC64_TOC16_HI 49 half16 #hi (S + A - .TOC.) */
947 HOWTO (R_PPC64_TOC16_HI
, /* type */
949 1, /* size (0 = byte, 1 = short, 2 = long) */
951 FALSE
, /* pc_relative */
953 complain_overflow_dont
, /* complain_on_overflow */
954 ppc64_elf_toc_reloc
, /* special_function */
955 "R_PPC64_TOC16_HI", /* name */
956 FALSE
, /* partial_inplace */
958 0xffff, /* dst_mask */
959 FALSE
), /* pcrel_offset */
961 /* 16 bit TOC-relative relocation, high 16 bits, plus 1 if the
962 contents of the low 16 bits, treated as a signed number, is
965 /* R_PPC64_TOC16_HA 50 half16 #ha (S + A - .TOC.) */
966 HOWTO (R_PPC64_TOC16_HA
, /* type */
968 1, /* size (0 = byte, 1 = short, 2 = long) */
970 FALSE
, /* pc_relative */
972 complain_overflow_dont
, /* complain_on_overflow */
973 ppc64_elf_toc_ha_reloc
, /* special_function */
974 "R_PPC64_TOC16_HA", /* name */
975 FALSE
, /* partial_inplace */
977 0xffff, /* dst_mask */
978 FALSE
), /* pcrel_offset */
980 /* 64-bit relocation; insert value of TOC base (.TOC.). */
982 /* R_PPC64_TOC 51 doubleword64 .TOC. */
983 HOWTO (R_PPC64_TOC
, /* type */
985 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
987 FALSE
, /* pc_relative */
989 complain_overflow_bitfield
, /* complain_on_overflow */
990 ppc64_elf_toc64_reloc
, /* special_function */
991 "R_PPC64_TOC", /* name */
992 FALSE
, /* partial_inplace */
994 ONES (64), /* dst_mask */
995 FALSE
), /* pcrel_offset */
997 /* Like R_PPC64_GOT16, but also informs the link editor that the
998 value to relocate may (!) refer to a PLT entry which the link
999 editor (a) may replace with the symbol value. If the link editor
1000 is unable to fully resolve the symbol, it may (b) create a PLT
1001 entry and store the address to the new PLT entry in the GOT.
1002 This permits lazy resolution of function symbols at run time.
1003 The link editor may also skip all of this and just (c) emit a
1004 R_PPC64_GLOB_DAT to tie the symbol to the GOT entry. */
1005 /* FIXME: R_PPC64_PLTGOT16 not implemented. */
1006 HOWTO (R_PPC64_PLTGOT16
, /* type */
1008 1, /* size (0 = byte, 1 = short, 2 = long) */
1010 FALSE
, /* pc_relative */
1012 complain_overflow_signed
, /* complain_on_overflow */
1013 ppc64_elf_unhandled_reloc
, /* special_function */
1014 "R_PPC64_PLTGOT16", /* name */
1015 FALSE
, /* partial_inplace */
1017 0xffff, /* dst_mask */
1018 FALSE
), /* pcrel_offset */
1020 /* Like R_PPC64_PLTGOT16, but without overflow. */
1021 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1022 HOWTO (R_PPC64_PLTGOT16_LO
, /* type */
1024 1, /* size (0 = byte, 1 = short, 2 = long) */
1026 FALSE
, /* pc_relative */
1028 complain_overflow_dont
, /* complain_on_overflow */
1029 ppc64_elf_unhandled_reloc
, /* special_function */
1030 "R_PPC64_PLTGOT16_LO", /* name */
1031 FALSE
, /* partial_inplace */
1033 0xffff, /* dst_mask */
1034 FALSE
), /* pcrel_offset */
1036 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address. */
1037 /* FIXME: R_PPC64_PLTGOT16_HI not implemented. */
1038 HOWTO (R_PPC64_PLTGOT16_HI
, /* type */
1039 16, /* rightshift */
1040 1, /* size (0 = byte, 1 = short, 2 = long) */
1042 FALSE
, /* pc_relative */
1044 complain_overflow_dont
, /* complain_on_overflow */
1045 ppc64_elf_unhandled_reloc
, /* special_function */
1046 "R_PPC64_PLTGOT16_HI", /* name */
1047 FALSE
, /* partial_inplace */
1049 0xffff, /* dst_mask */
1050 FALSE
), /* pcrel_offset */
1052 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address, plus
1053 1 if the contents of the low 16 bits, treated as a signed number,
1055 /* FIXME: R_PPC64_PLTGOT16_HA not implemented. */
1056 HOWTO (R_PPC64_PLTGOT16_HA
, /* type */
1057 16, /* rightshift */
1058 1, /* size (0 = byte, 1 = short, 2 = long) */
1060 FALSE
, /* pc_relative */
1062 complain_overflow_dont
,/* complain_on_overflow */
1063 ppc64_elf_unhandled_reloc
, /* special_function */
1064 "R_PPC64_PLTGOT16_HA", /* name */
1065 FALSE
, /* partial_inplace */
1067 0xffff, /* dst_mask */
1068 FALSE
), /* pcrel_offset */
1070 /* Like R_PPC64_ADDR16, but for instructions with a DS field. */
1071 HOWTO (R_PPC64_ADDR16_DS
, /* type */
1073 1, /* size (0 = byte, 1 = short, 2 = long) */
1075 FALSE
, /* pc_relative */
1077 complain_overflow_bitfield
, /* complain_on_overflow */
1078 bfd_elf_generic_reloc
, /* special_function */
1079 "R_PPC64_ADDR16_DS", /* name */
1080 FALSE
, /* partial_inplace */
1082 0xfffc, /* dst_mask */
1083 FALSE
), /* pcrel_offset */
1085 /* Like R_PPC64_ADDR16_LO, but for instructions with a DS field. */
1086 HOWTO (R_PPC64_ADDR16_LO_DS
, /* type */
1088 1, /* size (0 = byte, 1 = short, 2 = long) */
1090 FALSE
, /* pc_relative */
1092 complain_overflow_dont
,/* complain_on_overflow */
1093 bfd_elf_generic_reloc
, /* special_function */
1094 "R_PPC64_ADDR16_LO_DS",/* name */
1095 FALSE
, /* partial_inplace */
1097 0xfffc, /* dst_mask */
1098 FALSE
), /* pcrel_offset */
1100 /* Like R_PPC64_GOT16, but for instructions with a DS field. */
1101 HOWTO (R_PPC64_GOT16_DS
, /* type */
1103 1, /* size (0 = byte, 1 = short, 2 = long) */
1105 FALSE
, /* pc_relative */
1107 complain_overflow_signed
, /* complain_on_overflow */
1108 ppc64_elf_unhandled_reloc
, /* special_function */
1109 "R_PPC64_GOT16_DS", /* name */
1110 FALSE
, /* partial_inplace */
1112 0xfffc, /* dst_mask */
1113 FALSE
), /* pcrel_offset */
1115 /* Like R_PPC64_GOT16_LO, but for instructions with a DS field. */
1116 HOWTO (R_PPC64_GOT16_LO_DS
, /* type */
1118 1, /* size (0 = byte, 1 = short, 2 = long) */
1120 FALSE
, /* pc_relative */
1122 complain_overflow_dont
, /* complain_on_overflow */
1123 ppc64_elf_unhandled_reloc
, /* special_function */
1124 "R_PPC64_GOT16_LO_DS", /* name */
1125 FALSE
, /* partial_inplace */
1127 0xfffc, /* dst_mask */
1128 FALSE
), /* pcrel_offset */
1130 /* Like R_PPC64_PLT16_LO, but for instructions with a DS field. */
1131 HOWTO (R_PPC64_PLT16_LO_DS
, /* type */
1133 1, /* size (0 = byte, 1 = short, 2 = long) */
1135 FALSE
, /* pc_relative */
1137 complain_overflow_dont
, /* complain_on_overflow */
1138 ppc64_elf_unhandled_reloc
, /* special_function */
1139 "R_PPC64_PLT16_LO_DS", /* name */
1140 FALSE
, /* partial_inplace */
1142 0xfffc, /* dst_mask */
1143 FALSE
), /* pcrel_offset */
1145 /* Like R_PPC64_SECTOFF, but for instructions with a DS field. */
1146 HOWTO (R_PPC64_SECTOFF_DS
, /* type */
1148 1, /* size (0 = byte, 1 = short, 2 = long) */
1150 FALSE
, /* pc_relative */
1152 complain_overflow_bitfield
, /* complain_on_overflow */
1153 ppc64_elf_sectoff_reloc
, /* special_function */
1154 "R_PPC64_SECTOFF_DS", /* name */
1155 FALSE
, /* partial_inplace */
1157 0xfffc, /* dst_mask */
1158 FALSE
), /* pcrel_offset */
1160 /* Like R_PPC64_SECTOFF_LO, but for instructions with a DS field. */
1161 HOWTO (R_PPC64_SECTOFF_LO_DS
, /* type */
1163 1, /* size (0 = byte, 1 = short, 2 = long) */
1165 FALSE
, /* pc_relative */
1167 complain_overflow_dont
, /* complain_on_overflow */
1168 ppc64_elf_sectoff_reloc
, /* special_function */
1169 "R_PPC64_SECTOFF_LO_DS",/* name */
1170 FALSE
, /* partial_inplace */
1172 0xfffc, /* dst_mask */
1173 FALSE
), /* pcrel_offset */
1175 /* Like R_PPC64_TOC16, but for instructions with a DS field. */
1176 HOWTO (R_PPC64_TOC16_DS
, /* type */
1178 1, /* size (0 = byte, 1 = short, 2 = long) */
1180 FALSE
, /* pc_relative */
1182 complain_overflow_signed
, /* complain_on_overflow */
1183 ppc64_elf_toc_reloc
, /* special_function */
1184 "R_PPC64_TOC16_DS", /* name */
1185 FALSE
, /* partial_inplace */
1187 0xfffc, /* dst_mask */
1188 FALSE
), /* pcrel_offset */
1190 /* Like R_PPC64_TOC16_LO, but for instructions with a DS field. */
1191 HOWTO (R_PPC64_TOC16_LO_DS
, /* type */
1193 1, /* size (0 = byte, 1 = short, 2 = long) */
1195 FALSE
, /* pc_relative */
1197 complain_overflow_dont
, /* complain_on_overflow */
1198 ppc64_elf_toc_reloc
, /* special_function */
1199 "R_PPC64_TOC16_LO_DS", /* name */
1200 FALSE
, /* partial_inplace */
1202 0xfffc, /* dst_mask */
1203 FALSE
), /* pcrel_offset */
1205 /* Like R_PPC64_PLTGOT16, but for instructions with a DS field. */
1206 /* FIXME: R_PPC64_PLTGOT16_DS not implemented. */
1207 HOWTO (R_PPC64_PLTGOT16_DS
, /* type */
1209 1, /* size (0 = byte, 1 = short, 2 = long) */
1211 FALSE
, /* pc_relative */
1213 complain_overflow_signed
, /* complain_on_overflow */
1214 ppc64_elf_unhandled_reloc
, /* special_function */
1215 "R_PPC64_PLTGOT16_DS", /* name */
1216 FALSE
, /* partial_inplace */
1218 0xfffc, /* dst_mask */
1219 FALSE
), /* pcrel_offset */
1221 /* Like R_PPC64_PLTGOT16_LO, but for instructions with a DS field. */
1222 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1223 HOWTO (R_PPC64_PLTGOT16_LO_DS
,/* type */
1225 1, /* size (0 = byte, 1 = short, 2 = long) */
1227 FALSE
, /* pc_relative */
1229 complain_overflow_dont
, /* complain_on_overflow */
1230 ppc64_elf_unhandled_reloc
, /* special_function */
1231 "R_PPC64_PLTGOT16_LO_DS",/* name */
1232 FALSE
, /* partial_inplace */
1234 0xfffc, /* dst_mask */
1235 FALSE
), /* pcrel_offset */
1237 /* Marker reloc for TLS. */
1240 2, /* size (0 = byte, 1 = short, 2 = long) */
1242 FALSE
, /* pc_relative */
1244 complain_overflow_dont
, /* complain_on_overflow */
1245 bfd_elf_generic_reloc
, /* special_function */
1246 "R_PPC64_TLS", /* name */
1247 FALSE
, /* partial_inplace */
1250 FALSE
), /* pcrel_offset */
1252 /* Computes the load module index of the load module that contains the
1253 definition of its TLS sym. */
1254 HOWTO (R_PPC64_DTPMOD64
,
1256 4, /* size (0 = byte, 1 = short, 2 = long) */
1258 FALSE
, /* pc_relative */
1260 complain_overflow_dont
, /* complain_on_overflow */
1261 ppc64_elf_unhandled_reloc
, /* special_function */
1262 "R_PPC64_DTPMOD64", /* name */
1263 FALSE
, /* partial_inplace */
1265 ONES (64), /* dst_mask */
1266 FALSE
), /* pcrel_offset */
1268 /* Computes a dtv-relative displacement, the difference between the value
1269 of sym+add and the base address of the thread-local storage block that
1270 contains the definition of sym, minus 0x8000. */
1271 HOWTO (R_PPC64_DTPREL64
,
1273 4, /* size (0 = byte, 1 = short, 2 = long) */
1275 FALSE
, /* pc_relative */
1277 complain_overflow_dont
, /* complain_on_overflow */
1278 ppc64_elf_unhandled_reloc
, /* special_function */
1279 "R_PPC64_DTPREL64", /* name */
1280 FALSE
, /* partial_inplace */
1282 ONES (64), /* dst_mask */
1283 FALSE
), /* pcrel_offset */
1285 /* A 16 bit dtprel reloc. */
1286 HOWTO (R_PPC64_DTPREL16
,
1288 1, /* size (0 = byte, 1 = short, 2 = long) */
1290 FALSE
, /* pc_relative */
1292 complain_overflow_signed
, /* complain_on_overflow */
1293 ppc64_elf_unhandled_reloc
, /* special_function */
1294 "R_PPC64_DTPREL16", /* name */
1295 FALSE
, /* partial_inplace */
1297 0xffff, /* dst_mask */
1298 FALSE
), /* pcrel_offset */
1300 /* Like DTPREL16, but no overflow. */
1301 HOWTO (R_PPC64_DTPREL16_LO
,
1303 1, /* size (0 = byte, 1 = short, 2 = long) */
1305 FALSE
, /* pc_relative */
1307 complain_overflow_dont
, /* complain_on_overflow */
1308 ppc64_elf_unhandled_reloc
, /* special_function */
1309 "R_PPC64_DTPREL16_LO", /* name */
1310 FALSE
, /* partial_inplace */
1312 0xffff, /* dst_mask */
1313 FALSE
), /* pcrel_offset */
1315 /* Like DTPREL16_LO, but next higher group of 16 bits. */
1316 HOWTO (R_PPC64_DTPREL16_HI
,
1317 16, /* rightshift */
1318 1, /* size (0 = byte, 1 = short, 2 = long) */
1320 FALSE
, /* pc_relative */
1322 complain_overflow_dont
, /* complain_on_overflow */
1323 ppc64_elf_unhandled_reloc
, /* special_function */
1324 "R_PPC64_DTPREL16_HI", /* name */
1325 FALSE
, /* partial_inplace */
1327 0xffff, /* dst_mask */
1328 FALSE
), /* pcrel_offset */
1330 /* Like DTPREL16_HI, but adjust for low 16 bits. */
1331 HOWTO (R_PPC64_DTPREL16_HA
,
1332 16, /* rightshift */
1333 1, /* size (0 = byte, 1 = short, 2 = long) */
1335 FALSE
, /* pc_relative */
1337 complain_overflow_dont
, /* complain_on_overflow */
1338 ppc64_elf_unhandled_reloc
, /* special_function */
1339 "R_PPC64_DTPREL16_HA", /* name */
1340 FALSE
, /* partial_inplace */
1342 0xffff, /* dst_mask */
1343 FALSE
), /* pcrel_offset */
1345 /* Like DTPREL16_HI, but next higher group of 16 bits. */
1346 HOWTO (R_PPC64_DTPREL16_HIGHER
,
1347 32, /* rightshift */
1348 1, /* size (0 = byte, 1 = short, 2 = long) */
1350 FALSE
, /* pc_relative */
1352 complain_overflow_dont
, /* complain_on_overflow */
1353 ppc64_elf_unhandled_reloc
, /* special_function */
1354 "R_PPC64_DTPREL16_HIGHER", /* name */
1355 FALSE
, /* partial_inplace */
1357 0xffff, /* dst_mask */
1358 FALSE
), /* pcrel_offset */
1360 /* Like DTPREL16_HIGHER, but adjust for low 16 bits. */
1361 HOWTO (R_PPC64_DTPREL16_HIGHERA
,
1362 32, /* rightshift */
1363 1, /* size (0 = byte, 1 = short, 2 = long) */
1365 FALSE
, /* pc_relative */
1367 complain_overflow_dont
, /* complain_on_overflow */
1368 ppc64_elf_unhandled_reloc
, /* special_function */
1369 "R_PPC64_DTPREL16_HIGHERA", /* name */
1370 FALSE
, /* partial_inplace */
1372 0xffff, /* dst_mask */
1373 FALSE
), /* pcrel_offset */
1375 /* Like DTPREL16_HIGHER, but next higher group of 16 bits. */
1376 HOWTO (R_PPC64_DTPREL16_HIGHEST
,
1377 48, /* rightshift */
1378 1, /* size (0 = byte, 1 = short, 2 = long) */
1380 FALSE
, /* pc_relative */
1382 complain_overflow_dont
, /* complain_on_overflow */
1383 ppc64_elf_unhandled_reloc
, /* special_function */
1384 "R_PPC64_DTPREL16_HIGHEST", /* name */
1385 FALSE
, /* partial_inplace */
1387 0xffff, /* dst_mask */
1388 FALSE
), /* pcrel_offset */
1390 /* Like DTPREL16_HIGHEST, but adjust for low 16 bits. */
1391 HOWTO (R_PPC64_DTPREL16_HIGHESTA
,
1392 48, /* rightshift */
1393 1, /* size (0 = byte, 1 = short, 2 = long) */
1395 FALSE
, /* pc_relative */
1397 complain_overflow_dont
, /* complain_on_overflow */
1398 ppc64_elf_unhandled_reloc
, /* special_function */
1399 "R_PPC64_DTPREL16_HIGHESTA", /* name */
1400 FALSE
, /* partial_inplace */
1402 0xffff, /* dst_mask */
1403 FALSE
), /* pcrel_offset */
1405 /* Like DTPREL16, but for insns with a DS field. */
1406 HOWTO (R_PPC64_DTPREL16_DS
,
1408 1, /* size (0 = byte, 1 = short, 2 = long) */
1410 FALSE
, /* pc_relative */
1412 complain_overflow_signed
, /* complain_on_overflow */
1413 ppc64_elf_unhandled_reloc
, /* special_function */
1414 "R_PPC64_DTPREL16_DS", /* name */
1415 FALSE
, /* partial_inplace */
1417 0xfffc, /* dst_mask */
1418 FALSE
), /* pcrel_offset */
1420 /* Like DTPREL16_DS, but no overflow. */
1421 HOWTO (R_PPC64_DTPREL16_LO_DS
,
1423 1, /* size (0 = byte, 1 = short, 2 = long) */
1425 FALSE
, /* pc_relative */
1427 complain_overflow_dont
, /* complain_on_overflow */
1428 ppc64_elf_unhandled_reloc
, /* special_function */
1429 "R_PPC64_DTPREL16_LO_DS", /* name */
1430 FALSE
, /* partial_inplace */
1432 0xfffc, /* dst_mask */
1433 FALSE
), /* pcrel_offset */
1435 /* Computes a tp-relative displacement, the difference between the value of
1436 sym+add and the value of the thread pointer (r13). */
1437 HOWTO (R_PPC64_TPREL64
,
1439 4, /* size (0 = byte, 1 = short, 2 = long) */
1441 FALSE
, /* pc_relative */
1443 complain_overflow_dont
, /* complain_on_overflow */
1444 ppc64_elf_unhandled_reloc
, /* special_function */
1445 "R_PPC64_TPREL64", /* name */
1446 FALSE
, /* partial_inplace */
1448 ONES (64), /* dst_mask */
1449 FALSE
), /* pcrel_offset */
1451 /* A 16 bit tprel reloc. */
1452 HOWTO (R_PPC64_TPREL16
,
1454 1, /* size (0 = byte, 1 = short, 2 = long) */
1456 FALSE
, /* pc_relative */
1458 complain_overflow_signed
, /* complain_on_overflow */
1459 ppc64_elf_unhandled_reloc
, /* special_function */
1460 "R_PPC64_TPREL16", /* name */
1461 FALSE
, /* partial_inplace */
1463 0xffff, /* dst_mask */
1464 FALSE
), /* pcrel_offset */
1466 /* Like TPREL16, but no overflow. */
1467 HOWTO (R_PPC64_TPREL16_LO
,
1469 1, /* size (0 = byte, 1 = short, 2 = long) */
1471 FALSE
, /* pc_relative */
1473 complain_overflow_dont
, /* complain_on_overflow */
1474 ppc64_elf_unhandled_reloc
, /* special_function */
1475 "R_PPC64_TPREL16_LO", /* name */
1476 FALSE
, /* partial_inplace */
1478 0xffff, /* dst_mask */
1479 FALSE
), /* pcrel_offset */
1481 /* Like TPREL16_LO, but next higher group of 16 bits. */
1482 HOWTO (R_PPC64_TPREL16_HI
,
1483 16, /* rightshift */
1484 1, /* size (0 = byte, 1 = short, 2 = long) */
1486 FALSE
, /* pc_relative */
1488 complain_overflow_dont
, /* complain_on_overflow */
1489 ppc64_elf_unhandled_reloc
, /* special_function */
1490 "R_PPC64_TPREL16_HI", /* name */
1491 FALSE
, /* partial_inplace */
1493 0xffff, /* dst_mask */
1494 FALSE
), /* pcrel_offset */
1496 /* Like TPREL16_HI, but adjust for low 16 bits. */
1497 HOWTO (R_PPC64_TPREL16_HA
,
1498 16, /* rightshift */
1499 1, /* size (0 = byte, 1 = short, 2 = long) */
1501 FALSE
, /* pc_relative */
1503 complain_overflow_dont
, /* complain_on_overflow */
1504 ppc64_elf_unhandled_reloc
, /* special_function */
1505 "R_PPC64_TPREL16_HA", /* name */
1506 FALSE
, /* partial_inplace */
1508 0xffff, /* dst_mask */
1509 FALSE
), /* pcrel_offset */
1511 /* Like TPREL16_HI, but next higher group of 16 bits. */
1512 HOWTO (R_PPC64_TPREL16_HIGHER
,
1513 32, /* rightshift */
1514 1, /* size (0 = byte, 1 = short, 2 = long) */
1516 FALSE
, /* pc_relative */
1518 complain_overflow_dont
, /* complain_on_overflow */
1519 ppc64_elf_unhandled_reloc
, /* special_function */
1520 "R_PPC64_TPREL16_HIGHER", /* name */
1521 FALSE
, /* partial_inplace */
1523 0xffff, /* dst_mask */
1524 FALSE
), /* pcrel_offset */
1526 /* Like TPREL16_HIGHER, but adjust for low 16 bits. */
1527 HOWTO (R_PPC64_TPREL16_HIGHERA
,
1528 32, /* rightshift */
1529 1, /* size (0 = byte, 1 = short, 2 = long) */
1531 FALSE
, /* pc_relative */
1533 complain_overflow_dont
, /* complain_on_overflow */
1534 ppc64_elf_unhandled_reloc
, /* special_function */
1535 "R_PPC64_TPREL16_HIGHERA", /* name */
1536 FALSE
, /* partial_inplace */
1538 0xffff, /* dst_mask */
1539 FALSE
), /* pcrel_offset */
1541 /* Like TPREL16_HIGHER, but next higher group of 16 bits. */
1542 HOWTO (R_PPC64_TPREL16_HIGHEST
,
1543 48, /* rightshift */
1544 1, /* size (0 = byte, 1 = short, 2 = long) */
1546 FALSE
, /* pc_relative */
1548 complain_overflow_dont
, /* complain_on_overflow */
1549 ppc64_elf_unhandled_reloc
, /* special_function */
1550 "R_PPC64_TPREL16_HIGHEST", /* name */
1551 FALSE
, /* partial_inplace */
1553 0xffff, /* dst_mask */
1554 FALSE
), /* pcrel_offset */
1556 /* Like TPREL16_HIGHEST, but adjust for low 16 bits. */
1557 HOWTO (R_PPC64_TPREL16_HIGHESTA
,
1558 48, /* rightshift */
1559 1, /* size (0 = byte, 1 = short, 2 = long) */
1561 FALSE
, /* pc_relative */
1563 complain_overflow_dont
, /* complain_on_overflow */
1564 ppc64_elf_unhandled_reloc
, /* special_function */
1565 "R_PPC64_TPREL16_HIGHESTA", /* name */
1566 FALSE
, /* partial_inplace */
1568 0xffff, /* dst_mask */
1569 FALSE
), /* pcrel_offset */
1571 /* Like TPREL16, but for insns with a DS field. */
1572 HOWTO (R_PPC64_TPREL16_DS
,
1574 1, /* size (0 = byte, 1 = short, 2 = long) */
1576 FALSE
, /* pc_relative */
1578 complain_overflow_signed
, /* complain_on_overflow */
1579 ppc64_elf_unhandled_reloc
, /* special_function */
1580 "R_PPC64_TPREL16_DS", /* name */
1581 FALSE
, /* partial_inplace */
1583 0xfffc, /* dst_mask */
1584 FALSE
), /* pcrel_offset */
1586 /* Like TPREL16_DS, but no overflow. */
1587 HOWTO (R_PPC64_TPREL16_LO_DS
,
1589 1, /* size (0 = byte, 1 = short, 2 = long) */
1591 FALSE
, /* pc_relative */
1593 complain_overflow_dont
, /* complain_on_overflow */
1594 ppc64_elf_unhandled_reloc
, /* special_function */
1595 "R_PPC64_TPREL16_LO_DS", /* name */
1596 FALSE
, /* partial_inplace */
1598 0xfffc, /* dst_mask */
1599 FALSE
), /* pcrel_offset */
1601 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1602 with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
1603 to the first entry relative to the TOC base (r2). */
1604 HOWTO (R_PPC64_GOT_TLSGD16
,
1606 1, /* size (0 = byte, 1 = short, 2 = long) */
1608 FALSE
, /* pc_relative */
1610 complain_overflow_signed
, /* complain_on_overflow */
1611 ppc64_elf_unhandled_reloc
, /* special_function */
1612 "R_PPC64_GOT_TLSGD16", /* name */
1613 FALSE
, /* partial_inplace */
1615 0xffff, /* dst_mask */
1616 FALSE
), /* pcrel_offset */
1618 /* Like GOT_TLSGD16, but no overflow. */
1619 HOWTO (R_PPC64_GOT_TLSGD16_LO
,
1621 1, /* size (0 = byte, 1 = short, 2 = long) */
1623 FALSE
, /* pc_relative */
1625 complain_overflow_dont
, /* complain_on_overflow */
1626 ppc64_elf_unhandled_reloc
, /* special_function */
1627 "R_PPC64_GOT_TLSGD16_LO", /* name */
1628 FALSE
, /* partial_inplace */
1630 0xffff, /* dst_mask */
1631 FALSE
), /* pcrel_offset */
1633 /* Like GOT_TLSGD16_LO, but next higher group of 16 bits. */
1634 HOWTO (R_PPC64_GOT_TLSGD16_HI
,
1635 16, /* rightshift */
1636 1, /* size (0 = byte, 1 = short, 2 = long) */
1638 FALSE
, /* pc_relative */
1640 complain_overflow_dont
, /* complain_on_overflow */
1641 ppc64_elf_unhandled_reloc
, /* special_function */
1642 "R_PPC64_GOT_TLSGD16_HI", /* name */
1643 FALSE
, /* partial_inplace */
1645 0xffff, /* dst_mask */
1646 FALSE
), /* pcrel_offset */
1648 /* Like GOT_TLSGD16_HI, but adjust for low 16 bits. */
1649 HOWTO (R_PPC64_GOT_TLSGD16_HA
,
1650 16, /* rightshift */
1651 1, /* size (0 = byte, 1 = short, 2 = long) */
1653 FALSE
, /* pc_relative */
1655 complain_overflow_dont
, /* complain_on_overflow */
1656 ppc64_elf_unhandled_reloc
, /* special_function */
1657 "R_PPC64_GOT_TLSGD16_HA", /* name */
1658 FALSE
, /* partial_inplace */
1660 0xffff, /* dst_mask */
1661 FALSE
), /* pcrel_offset */
1663 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1664 with values (sym+add)@dtpmod and zero, and computes the offset to the
1665 first entry relative to the TOC base (r2). */
1666 HOWTO (R_PPC64_GOT_TLSLD16
,
1668 1, /* size (0 = byte, 1 = short, 2 = long) */
1670 FALSE
, /* pc_relative */
1672 complain_overflow_signed
, /* complain_on_overflow */
1673 ppc64_elf_unhandled_reloc
, /* special_function */
1674 "R_PPC64_GOT_TLSLD16", /* name */
1675 FALSE
, /* partial_inplace */
1677 0xffff, /* dst_mask */
1678 FALSE
), /* pcrel_offset */
1680 /* Like GOT_TLSLD16, but no overflow. */
1681 HOWTO (R_PPC64_GOT_TLSLD16_LO
,
1683 1, /* size (0 = byte, 1 = short, 2 = long) */
1685 FALSE
, /* pc_relative */
1687 complain_overflow_dont
, /* complain_on_overflow */
1688 ppc64_elf_unhandled_reloc
, /* special_function */
1689 "R_PPC64_GOT_TLSLD16_LO", /* name */
1690 FALSE
, /* partial_inplace */
1692 0xffff, /* dst_mask */
1693 FALSE
), /* pcrel_offset */
1695 /* Like GOT_TLSLD16_LO, but next higher group of 16 bits. */
1696 HOWTO (R_PPC64_GOT_TLSLD16_HI
,
1697 16, /* rightshift */
1698 1, /* size (0 = byte, 1 = short, 2 = long) */
1700 FALSE
, /* pc_relative */
1702 complain_overflow_dont
, /* complain_on_overflow */
1703 ppc64_elf_unhandled_reloc
, /* special_function */
1704 "R_PPC64_GOT_TLSLD16_HI", /* name */
1705 FALSE
, /* partial_inplace */
1707 0xffff, /* dst_mask */
1708 FALSE
), /* pcrel_offset */
1710 /* Like GOT_TLSLD16_HI, but adjust for low 16 bits. */
1711 HOWTO (R_PPC64_GOT_TLSLD16_HA
,
1712 16, /* rightshift */
1713 1, /* size (0 = byte, 1 = short, 2 = long) */
1715 FALSE
, /* pc_relative */
1717 complain_overflow_dont
, /* complain_on_overflow */
1718 ppc64_elf_unhandled_reloc
, /* special_function */
1719 "R_PPC64_GOT_TLSLD16_HA", /* name */
1720 FALSE
, /* partial_inplace */
1722 0xffff, /* dst_mask */
1723 FALSE
), /* pcrel_offset */
1725 /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1726 the offset to the entry relative to the TOC base (r2). */
1727 HOWTO (R_PPC64_GOT_DTPREL16_DS
,
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_DTPREL16_DS", /* name */
1736 FALSE
, /* partial_inplace */
1738 0xfffc, /* dst_mask */
1739 FALSE
), /* pcrel_offset */
1741 /* Like GOT_DTPREL16_DS, but no overflow. */
1742 HOWTO (R_PPC64_GOT_DTPREL16_LO_DS
,
1744 1, /* size (0 = byte, 1 = short, 2 = long) */
1746 FALSE
, /* pc_relative */
1748 complain_overflow_dont
, /* complain_on_overflow */
1749 ppc64_elf_unhandled_reloc
, /* special_function */
1750 "R_PPC64_GOT_DTPREL16_LO_DS", /* name */
1751 FALSE
, /* partial_inplace */
1753 0xfffc, /* dst_mask */
1754 FALSE
), /* pcrel_offset */
1756 /* Like GOT_DTPREL16_LO_DS, but next higher group of 16 bits. */
1757 HOWTO (R_PPC64_GOT_DTPREL16_HI
,
1758 16, /* rightshift */
1759 1, /* size (0 = byte, 1 = short, 2 = long) */
1761 FALSE
, /* pc_relative */
1763 complain_overflow_dont
, /* complain_on_overflow */
1764 ppc64_elf_unhandled_reloc
, /* special_function */
1765 "R_PPC64_GOT_DTPREL16_HI", /* name */
1766 FALSE
, /* partial_inplace */
1768 0xffff, /* dst_mask */
1769 FALSE
), /* pcrel_offset */
1771 /* Like GOT_DTPREL16_HI, but adjust for low 16 bits. */
1772 HOWTO (R_PPC64_GOT_DTPREL16_HA
,
1773 16, /* rightshift */
1774 1, /* size (0 = byte, 1 = short, 2 = long) */
1776 FALSE
, /* pc_relative */
1778 complain_overflow_dont
, /* complain_on_overflow */
1779 ppc64_elf_unhandled_reloc
, /* special_function */
1780 "R_PPC64_GOT_DTPREL16_HA", /* name */
1781 FALSE
, /* partial_inplace */
1783 0xffff, /* dst_mask */
1784 FALSE
), /* pcrel_offset */
1786 /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1787 offset to the entry relative to the TOC base (r2). */
1788 HOWTO (R_PPC64_GOT_TPREL16_DS
,
1790 1, /* size (0 = byte, 1 = short, 2 = long) */
1792 FALSE
, /* pc_relative */
1794 complain_overflow_signed
, /* complain_on_overflow */
1795 ppc64_elf_unhandled_reloc
, /* special_function */
1796 "R_PPC64_GOT_TPREL16_DS", /* name */
1797 FALSE
, /* partial_inplace */
1799 0xfffc, /* dst_mask */
1800 FALSE
), /* pcrel_offset */
1802 /* Like GOT_TPREL16_DS, but no overflow. */
1803 HOWTO (R_PPC64_GOT_TPREL16_LO_DS
,
1805 1, /* size (0 = byte, 1 = short, 2 = long) */
1807 FALSE
, /* pc_relative */
1809 complain_overflow_dont
, /* complain_on_overflow */
1810 ppc64_elf_unhandled_reloc
, /* special_function */
1811 "R_PPC64_GOT_TPREL16_LO_DS", /* name */
1812 FALSE
, /* partial_inplace */
1814 0xfffc, /* dst_mask */
1815 FALSE
), /* pcrel_offset */
1817 /* Like GOT_TPREL16_LO_DS, but next higher group of 16 bits. */
1818 HOWTO (R_PPC64_GOT_TPREL16_HI
,
1819 16, /* rightshift */
1820 1, /* size (0 = byte, 1 = short, 2 = long) */
1822 FALSE
, /* pc_relative */
1824 complain_overflow_dont
, /* complain_on_overflow */
1825 ppc64_elf_unhandled_reloc
, /* special_function */
1826 "R_PPC64_GOT_TPREL16_HI", /* name */
1827 FALSE
, /* partial_inplace */
1829 0xffff, /* dst_mask */
1830 FALSE
), /* pcrel_offset */
1832 /* Like GOT_TPREL16_HI, but adjust for low 16 bits. */
1833 HOWTO (R_PPC64_GOT_TPREL16_HA
,
1834 16, /* rightshift */
1835 1, /* size (0 = byte, 1 = short, 2 = long) */
1837 FALSE
, /* pc_relative */
1839 complain_overflow_dont
, /* complain_on_overflow */
1840 ppc64_elf_unhandled_reloc
, /* special_function */
1841 "R_PPC64_GOT_TPREL16_HA", /* name */
1842 FALSE
, /* partial_inplace */
1844 0xffff, /* dst_mask */
1845 FALSE
), /* pcrel_offset */
1847 /* GNU extension to record C++ vtable hierarchy. */
1848 HOWTO (R_PPC64_GNU_VTINHERIT
, /* type */
1850 0, /* size (0 = byte, 1 = short, 2 = long) */
1852 FALSE
, /* pc_relative */
1854 complain_overflow_dont
, /* complain_on_overflow */
1855 NULL
, /* special_function */
1856 "R_PPC64_GNU_VTINHERIT", /* name */
1857 FALSE
, /* partial_inplace */
1860 FALSE
), /* pcrel_offset */
1862 /* GNU extension to record C++ vtable member usage. */
1863 HOWTO (R_PPC64_GNU_VTENTRY
, /* type */
1865 0, /* size (0 = byte, 1 = short, 2 = long) */
1867 FALSE
, /* pc_relative */
1869 complain_overflow_dont
, /* complain_on_overflow */
1870 NULL
, /* special_function */
1871 "R_PPC64_GNU_VTENTRY", /* name */
1872 FALSE
, /* partial_inplace */
1875 FALSE
), /* pcrel_offset */
1879 /* Initialize the ppc64_elf_howto_table, so that linear accesses can
1883 ppc_howto_init (void)
1885 unsigned int i
, type
;
1888 i
< sizeof (ppc64_elf_howto_raw
) / sizeof (ppc64_elf_howto_raw
[0]);
1891 type
= ppc64_elf_howto_raw
[i
].type
;
1892 BFD_ASSERT (type
< (sizeof (ppc64_elf_howto_table
)
1893 / sizeof (ppc64_elf_howto_table
[0])));
1894 ppc64_elf_howto_table
[type
] = &ppc64_elf_howto_raw
[i
];
1898 static reloc_howto_type
*
1899 ppc64_elf_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1900 bfd_reloc_code_real_type code
)
1902 enum elf_ppc64_reloc_type r
= R_PPC64_NONE
;
1904 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
1905 /* Initialize howto table if needed. */
1913 case BFD_RELOC_NONE
: r
= R_PPC64_NONE
;
1915 case BFD_RELOC_32
: r
= R_PPC64_ADDR32
;
1917 case BFD_RELOC_PPC_BA26
: r
= R_PPC64_ADDR24
;
1919 case BFD_RELOC_16
: r
= R_PPC64_ADDR16
;
1921 case BFD_RELOC_LO16
: r
= R_PPC64_ADDR16_LO
;
1923 case BFD_RELOC_HI16
: r
= R_PPC64_ADDR16_HI
;
1925 case BFD_RELOC_HI16_S
: r
= R_PPC64_ADDR16_HA
;
1927 case BFD_RELOC_PPC_BA16
: r
= R_PPC64_ADDR14
;
1929 case BFD_RELOC_PPC_BA16_BRTAKEN
: r
= R_PPC64_ADDR14_BRTAKEN
;
1931 case BFD_RELOC_PPC_BA16_BRNTAKEN
: r
= R_PPC64_ADDR14_BRNTAKEN
;
1933 case BFD_RELOC_PPC_B26
: r
= R_PPC64_REL24
;
1935 case BFD_RELOC_PPC_B16
: r
= R_PPC64_REL14
;
1937 case BFD_RELOC_PPC_B16_BRTAKEN
: r
= R_PPC64_REL14_BRTAKEN
;
1939 case BFD_RELOC_PPC_B16_BRNTAKEN
: r
= R_PPC64_REL14_BRNTAKEN
;
1941 case BFD_RELOC_16_GOTOFF
: r
= R_PPC64_GOT16
;
1943 case BFD_RELOC_LO16_GOTOFF
: r
= R_PPC64_GOT16_LO
;
1945 case BFD_RELOC_HI16_GOTOFF
: r
= R_PPC64_GOT16_HI
;
1947 case BFD_RELOC_HI16_S_GOTOFF
: r
= R_PPC64_GOT16_HA
;
1949 case BFD_RELOC_PPC_COPY
: r
= R_PPC64_COPY
;
1951 case BFD_RELOC_PPC_GLOB_DAT
: r
= R_PPC64_GLOB_DAT
;
1953 case BFD_RELOC_32_PCREL
: r
= R_PPC64_REL32
;
1955 case BFD_RELOC_32_PLTOFF
: r
= R_PPC64_PLT32
;
1957 case BFD_RELOC_32_PLT_PCREL
: r
= R_PPC64_PLTREL32
;
1959 case BFD_RELOC_LO16_PLTOFF
: r
= R_PPC64_PLT16_LO
;
1961 case BFD_RELOC_HI16_PLTOFF
: r
= R_PPC64_PLT16_HI
;
1963 case BFD_RELOC_HI16_S_PLTOFF
: r
= R_PPC64_PLT16_HA
;
1965 case BFD_RELOC_16_BASEREL
: r
= R_PPC64_SECTOFF
;
1967 case BFD_RELOC_LO16_BASEREL
: r
= R_PPC64_SECTOFF_LO
;
1969 case BFD_RELOC_HI16_BASEREL
: r
= R_PPC64_SECTOFF_HI
;
1971 case BFD_RELOC_HI16_S_BASEREL
: r
= R_PPC64_SECTOFF_HA
;
1973 case BFD_RELOC_CTOR
: r
= R_PPC64_ADDR64
;
1975 case BFD_RELOC_64
: r
= R_PPC64_ADDR64
;
1977 case BFD_RELOC_PPC64_HIGHER
: r
= R_PPC64_ADDR16_HIGHER
;
1979 case BFD_RELOC_PPC64_HIGHER_S
: r
= R_PPC64_ADDR16_HIGHERA
;
1981 case BFD_RELOC_PPC64_HIGHEST
: r
= R_PPC64_ADDR16_HIGHEST
;
1983 case BFD_RELOC_PPC64_HIGHEST_S
: r
= R_PPC64_ADDR16_HIGHESTA
;
1985 case BFD_RELOC_64_PCREL
: r
= R_PPC64_REL64
;
1987 case BFD_RELOC_64_PLTOFF
: r
= R_PPC64_PLT64
;
1989 case BFD_RELOC_64_PLT_PCREL
: r
= R_PPC64_PLTREL64
;
1991 case BFD_RELOC_PPC_TOC16
: r
= R_PPC64_TOC16
;
1993 case BFD_RELOC_PPC64_TOC16_LO
: r
= R_PPC64_TOC16_LO
;
1995 case BFD_RELOC_PPC64_TOC16_HI
: r
= R_PPC64_TOC16_HI
;
1997 case BFD_RELOC_PPC64_TOC16_HA
: r
= R_PPC64_TOC16_HA
;
1999 case BFD_RELOC_PPC64_TOC
: r
= R_PPC64_TOC
;
2001 case BFD_RELOC_PPC64_PLTGOT16
: r
= R_PPC64_PLTGOT16
;
2003 case BFD_RELOC_PPC64_PLTGOT16_LO
: r
= R_PPC64_PLTGOT16_LO
;
2005 case BFD_RELOC_PPC64_PLTGOT16_HI
: r
= R_PPC64_PLTGOT16_HI
;
2007 case BFD_RELOC_PPC64_PLTGOT16_HA
: r
= R_PPC64_PLTGOT16_HA
;
2009 case BFD_RELOC_PPC64_ADDR16_DS
: r
= R_PPC64_ADDR16_DS
;
2011 case BFD_RELOC_PPC64_ADDR16_LO_DS
: r
= R_PPC64_ADDR16_LO_DS
;
2013 case BFD_RELOC_PPC64_GOT16_DS
: r
= R_PPC64_GOT16_DS
;
2015 case BFD_RELOC_PPC64_GOT16_LO_DS
: r
= R_PPC64_GOT16_LO_DS
;
2017 case BFD_RELOC_PPC64_PLT16_LO_DS
: r
= R_PPC64_PLT16_LO_DS
;
2019 case BFD_RELOC_PPC64_SECTOFF_DS
: r
= R_PPC64_SECTOFF_DS
;
2021 case BFD_RELOC_PPC64_SECTOFF_LO_DS
: r
= R_PPC64_SECTOFF_LO_DS
;
2023 case BFD_RELOC_PPC64_TOC16_DS
: r
= R_PPC64_TOC16_DS
;
2025 case BFD_RELOC_PPC64_TOC16_LO_DS
: r
= R_PPC64_TOC16_LO_DS
;
2027 case BFD_RELOC_PPC64_PLTGOT16_DS
: r
= R_PPC64_PLTGOT16_DS
;
2029 case BFD_RELOC_PPC64_PLTGOT16_LO_DS
: r
= R_PPC64_PLTGOT16_LO_DS
;
2031 case BFD_RELOC_PPC_TLS
: r
= R_PPC64_TLS
;
2033 case BFD_RELOC_PPC_DTPMOD
: r
= R_PPC64_DTPMOD64
;
2035 case BFD_RELOC_PPC_TPREL16
: r
= R_PPC64_TPREL16
;
2037 case BFD_RELOC_PPC_TPREL16_LO
: r
= R_PPC64_TPREL16_LO
;
2039 case BFD_RELOC_PPC_TPREL16_HI
: r
= R_PPC64_TPREL16_HI
;
2041 case BFD_RELOC_PPC_TPREL16_HA
: r
= R_PPC64_TPREL16_HA
;
2043 case BFD_RELOC_PPC_TPREL
: r
= R_PPC64_TPREL64
;
2045 case BFD_RELOC_PPC_DTPREL16
: r
= R_PPC64_DTPREL16
;
2047 case BFD_RELOC_PPC_DTPREL16_LO
: r
= R_PPC64_DTPREL16_LO
;
2049 case BFD_RELOC_PPC_DTPREL16_HI
: r
= R_PPC64_DTPREL16_HI
;
2051 case BFD_RELOC_PPC_DTPREL16_HA
: r
= R_PPC64_DTPREL16_HA
;
2053 case BFD_RELOC_PPC_DTPREL
: r
= R_PPC64_DTPREL64
;
2055 case BFD_RELOC_PPC_GOT_TLSGD16
: r
= R_PPC64_GOT_TLSGD16
;
2057 case BFD_RELOC_PPC_GOT_TLSGD16_LO
: r
= R_PPC64_GOT_TLSGD16_LO
;
2059 case BFD_RELOC_PPC_GOT_TLSGD16_HI
: r
= R_PPC64_GOT_TLSGD16_HI
;
2061 case BFD_RELOC_PPC_GOT_TLSGD16_HA
: r
= R_PPC64_GOT_TLSGD16_HA
;
2063 case BFD_RELOC_PPC_GOT_TLSLD16
: r
= R_PPC64_GOT_TLSLD16
;
2065 case BFD_RELOC_PPC_GOT_TLSLD16_LO
: r
= R_PPC64_GOT_TLSLD16_LO
;
2067 case BFD_RELOC_PPC_GOT_TLSLD16_HI
: r
= R_PPC64_GOT_TLSLD16_HI
;
2069 case BFD_RELOC_PPC_GOT_TLSLD16_HA
: r
= R_PPC64_GOT_TLSLD16_HA
;
2071 case BFD_RELOC_PPC_GOT_TPREL16
: r
= R_PPC64_GOT_TPREL16_DS
;
2073 case BFD_RELOC_PPC_GOT_TPREL16_LO
: r
= R_PPC64_GOT_TPREL16_LO_DS
;
2075 case BFD_RELOC_PPC_GOT_TPREL16_HI
: r
= R_PPC64_GOT_TPREL16_HI
;
2077 case BFD_RELOC_PPC_GOT_TPREL16_HA
: r
= R_PPC64_GOT_TPREL16_HA
;
2079 case BFD_RELOC_PPC_GOT_DTPREL16
: r
= R_PPC64_GOT_DTPREL16_DS
;
2081 case BFD_RELOC_PPC_GOT_DTPREL16_LO
: r
= R_PPC64_GOT_DTPREL16_LO_DS
;
2083 case BFD_RELOC_PPC_GOT_DTPREL16_HI
: r
= R_PPC64_GOT_DTPREL16_HI
;
2085 case BFD_RELOC_PPC_GOT_DTPREL16_HA
: r
= R_PPC64_GOT_DTPREL16_HA
;
2087 case BFD_RELOC_PPC64_TPREL16_DS
: r
= R_PPC64_TPREL16_DS
;
2089 case BFD_RELOC_PPC64_TPREL16_LO_DS
: r
= R_PPC64_TPREL16_LO_DS
;
2091 case BFD_RELOC_PPC64_TPREL16_HIGHER
: r
= R_PPC64_TPREL16_HIGHER
;
2093 case BFD_RELOC_PPC64_TPREL16_HIGHERA
: r
= R_PPC64_TPREL16_HIGHERA
;
2095 case BFD_RELOC_PPC64_TPREL16_HIGHEST
: r
= R_PPC64_TPREL16_HIGHEST
;
2097 case BFD_RELOC_PPC64_TPREL16_HIGHESTA
: r
= R_PPC64_TPREL16_HIGHESTA
;
2099 case BFD_RELOC_PPC64_DTPREL16_DS
: r
= R_PPC64_DTPREL16_DS
;
2101 case BFD_RELOC_PPC64_DTPREL16_LO_DS
: r
= R_PPC64_DTPREL16_LO_DS
;
2103 case BFD_RELOC_PPC64_DTPREL16_HIGHER
: r
= R_PPC64_DTPREL16_HIGHER
;
2105 case BFD_RELOC_PPC64_DTPREL16_HIGHERA
: r
= R_PPC64_DTPREL16_HIGHERA
;
2107 case BFD_RELOC_PPC64_DTPREL16_HIGHEST
: r
= R_PPC64_DTPREL16_HIGHEST
;
2109 case BFD_RELOC_PPC64_DTPREL16_HIGHESTA
: r
= R_PPC64_DTPREL16_HIGHESTA
;
2111 case BFD_RELOC_VTABLE_INHERIT
: r
= R_PPC64_GNU_VTINHERIT
;
2113 case BFD_RELOC_VTABLE_ENTRY
: r
= R_PPC64_GNU_VTENTRY
;
2117 return ppc64_elf_howto_table
[r
];
2120 static reloc_howto_type
*
2121 ppc64_elf_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
2127 i
< sizeof (ppc64_elf_howto_raw
) / sizeof (ppc64_elf_howto_raw
[0]);
2129 if (ppc64_elf_howto_raw
[i
].name
!= NULL
2130 && strcasecmp (ppc64_elf_howto_raw
[i
].name
, r_name
) == 0)
2131 return &ppc64_elf_howto_raw
[i
];
2136 /* Set the howto pointer for a PowerPC ELF reloc. */
2139 ppc64_elf_info_to_howto (bfd
*abfd ATTRIBUTE_UNUSED
, arelent
*cache_ptr
,
2140 Elf_Internal_Rela
*dst
)
2144 /* Initialize howto table if needed. */
2145 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
2148 type
= ELF64_R_TYPE (dst
->r_info
);
2149 if (type
>= (sizeof (ppc64_elf_howto_table
)
2150 / sizeof (ppc64_elf_howto_table
[0])))
2152 (*_bfd_error_handler
) (_("%B: invalid relocation type %d"),
2154 type
= R_PPC64_NONE
;
2156 cache_ptr
->howto
= ppc64_elf_howto_table
[type
];
2159 /* Handle the R_PPC64_ADDR16_HA and similar relocs. */
2161 static bfd_reloc_status_type
2162 ppc64_elf_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2163 void *data
, asection
*input_section
,
2164 bfd
*output_bfd
, char **error_message
)
2166 /* If this is a relocatable link (output_bfd test tells us), just
2167 call the generic function. Any adjustment will be done at final
2169 if (output_bfd
!= NULL
)
2170 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2171 input_section
, output_bfd
, error_message
);
2173 /* Adjust the addend for sign extension of the low 16 bits.
2174 We won't actually be using the low 16 bits, so trashing them
2176 reloc_entry
->addend
+= 0x8000;
2177 return bfd_reloc_continue
;
2180 static bfd_reloc_status_type
2181 ppc64_elf_branch_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2182 void *data
, asection
*input_section
,
2183 bfd
*output_bfd
, char **error_message
)
2185 if (output_bfd
!= NULL
)
2186 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2187 input_section
, output_bfd
, error_message
);
2189 if (strcmp (symbol
->section
->name
, ".opd") == 0
2190 && (symbol
->section
->owner
->flags
& DYNAMIC
) == 0)
2192 bfd_vma dest
= opd_entry_value (symbol
->section
,
2193 symbol
->value
+ reloc_entry
->addend
,
2195 if (dest
!= (bfd_vma
) -1)
2196 reloc_entry
->addend
= dest
- (symbol
->value
2197 + symbol
->section
->output_section
->vma
2198 + symbol
->section
->output_offset
);
2200 return bfd_reloc_continue
;
2203 static bfd_reloc_status_type
2204 ppc64_elf_brtaken_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2205 void *data
, asection
*input_section
,
2206 bfd
*output_bfd
, char **error_message
)
2209 enum elf_ppc64_reloc_type r_type
;
2210 bfd_size_type octets
;
2211 /* Disabled until we sort out how ld should choose 'y' vs 'at'. */
2212 bfd_boolean is_power4
= FALSE
;
2214 /* If this is a relocatable link (output_bfd test tells us), just
2215 call the generic function. Any adjustment will be done at final
2217 if (output_bfd
!= NULL
)
2218 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2219 input_section
, output_bfd
, error_message
);
2221 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2222 insn
= bfd_get_32 (abfd
, (bfd_byte
*) data
+ octets
);
2223 insn
&= ~(0x01 << 21);
2224 r_type
= reloc_entry
->howto
->type
;
2225 if (r_type
== R_PPC64_ADDR14_BRTAKEN
2226 || r_type
== R_PPC64_REL14_BRTAKEN
)
2227 insn
|= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
2231 /* Set 'a' bit. This is 0b00010 in BO field for branch
2232 on CR(BI) insns (BO == 001at or 011at), and 0b01000
2233 for branch on CTR insns (BO == 1a00t or 1a01t). */
2234 if ((insn
& (0x14 << 21)) == (0x04 << 21))
2236 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
2246 if (!bfd_is_com_section (symbol
->section
))
2247 target
= symbol
->value
;
2248 target
+= symbol
->section
->output_section
->vma
;
2249 target
+= symbol
->section
->output_offset
;
2250 target
+= reloc_entry
->addend
;
2252 from
= (reloc_entry
->address
2253 + input_section
->output_offset
2254 + input_section
->output_section
->vma
);
2256 /* Invert 'y' bit if not the default. */
2257 if ((bfd_signed_vma
) (target
- from
) < 0)
2260 bfd_put_32 (abfd
, insn
, (bfd_byte
*) data
+ octets
);
2262 return ppc64_elf_branch_reloc (abfd
, reloc_entry
, symbol
, data
,
2263 input_section
, output_bfd
, error_message
);
2266 static bfd_reloc_status_type
2267 ppc64_elf_sectoff_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2268 void *data
, asection
*input_section
,
2269 bfd
*output_bfd
, char **error_message
)
2271 /* If this is a relocatable link (output_bfd test tells us), just
2272 call the generic function. Any adjustment will be done at final
2274 if (output_bfd
!= NULL
)
2275 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2276 input_section
, output_bfd
, error_message
);
2278 /* Subtract the symbol section base address. */
2279 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2280 return bfd_reloc_continue
;
2283 static bfd_reloc_status_type
2284 ppc64_elf_sectoff_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2285 void *data
, asection
*input_section
,
2286 bfd
*output_bfd
, char **error_message
)
2288 /* If this is a relocatable link (output_bfd test tells us), just
2289 call the generic function. Any adjustment will be done at final
2291 if (output_bfd
!= NULL
)
2292 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2293 input_section
, output_bfd
, error_message
);
2295 /* Subtract the symbol section base address. */
2296 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2298 /* Adjust the addend for sign extension of the low 16 bits. */
2299 reloc_entry
->addend
+= 0x8000;
2300 return bfd_reloc_continue
;
2303 static bfd_reloc_status_type
2304 ppc64_elf_toc_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2305 void *data
, asection
*input_section
,
2306 bfd
*output_bfd
, char **error_message
)
2310 /* If this is a relocatable link (output_bfd test tells us), just
2311 call the generic function. Any adjustment will be done at final
2313 if (output_bfd
!= NULL
)
2314 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2315 input_section
, output_bfd
, error_message
);
2317 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2319 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2321 /* Subtract the TOC base address. */
2322 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2323 return bfd_reloc_continue
;
2326 static bfd_reloc_status_type
2327 ppc64_elf_toc_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2328 void *data
, asection
*input_section
,
2329 bfd
*output_bfd
, char **error_message
)
2333 /* If this is a relocatable link (output_bfd test tells us), just
2334 call the generic function. Any adjustment will be done at final
2336 if (output_bfd
!= NULL
)
2337 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2338 input_section
, output_bfd
, error_message
);
2340 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2342 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2344 /* Subtract the TOC base address. */
2345 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2347 /* Adjust the addend for sign extension of the low 16 bits. */
2348 reloc_entry
->addend
+= 0x8000;
2349 return bfd_reloc_continue
;
2352 static bfd_reloc_status_type
2353 ppc64_elf_toc64_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2354 void *data
, asection
*input_section
,
2355 bfd
*output_bfd
, char **error_message
)
2358 bfd_size_type octets
;
2360 /* If this is a relocatable link (output_bfd test tells us), just
2361 call the generic function. Any adjustment will be done at final
2363 if (output_bfd
!= NULL
)
2364 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2365 input_section
, output_bfd
, error_message
);
2367 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2369 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2371 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2372 bfd_put_64 (abfd
, TOCstart
+ TOC_BASE_OFF
, (bfd_byte
*) data
+ octets
);
2373 return bfd_reloc_ok
;
2376 static bfd_reloc_status_type
2377 ppc64_elf_unhandled_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2378 void *data
, asection
*input_section
,
2379 bfd
*output_bfd
, char **error_message
)
2381 /* If this is a relocatable link (output_bfd test tells us), just
2382 call the generic function. Any adjustment will be done at final
2384 if (output_bfd
!= NULL
)
2385 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2386 input_section
, output_bfd
, error_message
);
2388 if (error_message
!= NULL
)
2390 static char buf
[60];
2391 sprintf (buf
, "generic linker can't handle %s",
2392 reloc_entry
->howto
->name
);
2393 *error_message
= buf
;
2395 return bfd_reloc_dangerous
;
2398 struct ppc64_elf_obj_tdata
2400 struct elf_obj_tdata elf
;
2402 /* Shortcuts to dynamic linker sections. */
2406 /* Used during garbage collection. We attach global symbols defined
2407 on removed .opd entries to this section so that the sym is removed. */
2408 asection
*deleted_section
;
2410 /* TLS local dynamic got entry handling. Suppose for multiple GOT
2411 sections means we potentially need one of these for each input bfd. */
2413 bfd_signed_vma refcount
;
2417 /* A copy of relocs before they are modified for --emit-relocs. */
2418 Elf_Internal_Rela
*opd_relocs
;
2421 #define ppc64_elf_tdata(bfd) \
2422 ((struct ppc64_elf_obj_tdata *) (bfd)->tdata.any)
2424 #define ppc64_tlsld_got(bfd) \
2425 (&ppc64_elf_tdata (bfd)->tlsld_got)
2427 /* Override the generic function because we store some extras. */
2430 ppc64_elf_mkobject (bfd
*abfd
)
2432 if (abfd
->tdata
.any
== NULL
)
2434 bfd_size_type amt
= sizeof (struct ppc64_elf_obj_tdata
);
2435 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2436 if (abfd
->tdata
.any
== NULL
)
2439 return bfd_elf_mkobject (abfd
);
2442 /* Return 1 if target is one of ours. */
2445 is_ppc64_elf_target (const struct bfd_target
*targ
)
2447 extern const bfd_target bfd_elf64_powerpc_vec
;
2448 extern const bfd_target bfd_elf64_powerpcle_vec
;
2450 return targ
== &bfd_elf64_powerpc_vec
|| targ
== &bfd_elf64_powerpcle_vec
;
2453 /* Fix bad default arch selected for a 64 bit input bfd when the
2454 default is 32 bit. */
2457 ppc64_elf_object_p (bfd
*abfd
)
2459 if (abfd
->arch_info
->the_default
&& abfd
->arch_info
->bits_per_word
== 32)
2461 Elf_Internal_Ehdr
*i_ehdr
= elf_elfheader (abfd
);
2463 if (i_ehdr
->e_ident
[EI_CLASS
] == ELFCLASS64
)
2465 /* Relies on arch after 32 bit default being 64 bit default. */
2466 abfd
->arch_info
= abfd
->arch_info
->next
;
2467 BFD_ASSERT (abfd
->arch_info
->bits_per_word
== 64);
2473 /* Support for core dump NOTE sections. */
2476 ppc64_elf_grok_prstatus (bfd
*abfd
, Elf_Internal_Note
*note
)
2478 size_t offset
, size
;
2480 if (note
->descsz
!= 504)
2484 elf_tdata (abfd
)->core_signal
= bfd_get_16 (abfd
, note
->descdata
+ 12);
2487 elf_tdata (abfd
)->core_pid
= bfd_get_32 (abfd
, note
->descdata
+ 32);
2493 /* Make a ".reg/999" section. */
2494 return _bfd_elfcore_make_pseudosection (abfd
, ".reg",
2495 size
, note
->descpos
+ offset
);
2499 ppc64_elf_grok_psinfo (bfd
*abfd
, Elf_Internal_Note
*note
)
2501 if (note
->descsz
!= 136)
2504 elf_tdata (abfd
)->core_program
2505 = _bfd_elfcore_strndup (abfd
, note
->descdata
+ 40, 16);
2506 elf_tdata (abfd
)->core_command
2507 = _bfd_elfcore_strndup (abfd
, note
->descdata
+ 56, 80);
2513 ppc64_elf_write_core_note (bfd
*abfd
, char *buf
, int *bufsiz
, int note_type
,
2526 va_start (ap
, note_type
);
2527 memset (data
, 0, 40);
2528 strncpy (data
+ 40, va_arg (ap
, const char *), 16);
2529 strncpy (data
+ 56, va_arg (ap
, const char *), 80);
2531 return elfcore_write_note (abfd
, buf
, bufsiz
,
2532 "CORE", note_type
, data
, sizeof (data
));
2543 va_start (ap
, note_type
);
2544 memset (data
, 0, 112);
2545 pid
= va_arg (ap
, long);
2546 bfd_put_32 (abfd
, pid
, data
+ 32);
2547 cursig
= va_arg (ap
, int);
2548 bfd_put_16 (abfd
, cursig
, data
+ 12);
2549 greg
= va_arg (ap
, const void *);
2550 memcpy (data
+ 112, greg
, 384);
2551 memset (data
+ 496, 0, 8);
2553 return elfcore_write_note (abfd
, buf
, bufsiz
,
2554 "CORE", note_type
, data
, sizeof (data
));
2559 /* Merge backend specific data from an object file to the output
2560 object file when linking. */
2563 ppc64_elf_merge_private_bfd_data (bfd
*ibfd
, bfd
*obfd
)
2565 /* Check if we have the same endianess. */
2566 if (ibfd
->xvec
->byteorder
!= obfd
->xvec
->byteorder
2567 && ibfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
2568 && obfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
)
2572 if (bfd_big_endian (ibfd
))
2573 msg
= _("%B: compiled for a big endian system "
2574 "and target is little endian");
2576 msg
= _("%B: compiled for a little endian system "
2577 "and target is big endian");
2579 (*_bfd_error_handler
) (msg
, ibfd
);
2581 bfd_set_error (bfd_error_wrong_format
);
2588 /* Add extra PPC sections. */
2590 static const struct bfd_elf_special_section ppc64_elf_special_sections
[]=
2592 { STRING_COMMA_LEN (".plt"), 0, SHT_NOBITS
, 0 },
2593 { STRING_COMMA_LEN (".sbss"), -2, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
2594 { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2595 { STRING_COMMA_LEN (".toc"), 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2596 { STRING_COMMA_LEN (".toc1"), 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2597 { STRING_COMMA_LEN (".tocbss"), 0, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
2598 { NULL
, 0, 0, 0, 0 }
2601 enum _ppc64_sec_type
{
2607 struct _ppc64_elf_section_data
2609 struct bfd_elf_section_data elf
;
2611 /* An array with one entry for each opd function descriptor. */
2614 /* Points to the function code section for local opd entries. */
2615 asection
**opd_func_sec
;
2616 /* After editing .opd, adjust references to opd local syms. */
2619 /* An array for toc sections, indexed by offset/8.
2620 Specifies the relocation symbol index used at a given toc offset. */
2624 enum _ppc64_sec_type sec_type
:2;
2626 /* Flag set when small branches are detected. Used to
2627 select suitable defaults for the stub group size. */
2628 unsigned int has_14bit_branch
:1;
2631 #define ppc64_elf_section_data(sec) \
2632 ((struct _ppc64_elf_section_data *) elf_section_data (sec))
2635 ppc64_elf_new_section_hook (bfd
*abfd
, asection
*sec
)
2637 if (!sec
->used_by_bfd
)
2639 struct _ppc64_elf_section_data
*sdata
;
2640 bfd_size_type amt
= sizeof (*sdata
);
2642 sdata
= bfd_zalloc (abfd
, amt
);
2645 sec
->used_by_bfd
= sdata
;
2648 return _bfd_elf_new_section_hook (abfd
, sec
);
2652 get_opd_info (asection
* sec
)
2655 && ppc64_elf_section_data (sec
) != NULL
2656 && ppc64_elf_section_data (sec
)->sec_type
== sec_opd
)
2657 return ppc64_elf_section_data (sec
)->u
.opd_adjust
;
2661 /* Parameters for the qsort hook. */
2662 static asection
*synthetic_opd
;
2663 static bfd_boolean synthetic_relocatable
;
2665 /* qsort comparison function for ppc64_elf_get_synthetic_symtab. */
2668 compare_symbols (const void *ap
, const void *bp
)
2670 const asymbol
*a
= * (const asymbol
**) ap
;
2671 const asymbol
*b
= * (const asymbol
**) bp
;
2673 /* Section symbols first. */
2674 if ((a
->flags
& BSF_SECTION_SYM
) && !(b
->flags
& BSF_SECTION_SYM
))
2676 if (!(a
->flags
& BSF_SECTION_SYM
) && (b
->flags
& BSF_SECTION_SYM
))
2679 /* then .opd symbols. */
2680 if (a
->section
== synthetic_opd
&& b
->section
!= synthetic_opd
)
2682 if (a
->section
!= synthetic_opd
&& b
->section
== synthetic_opd
)
2685 /* then other code symbols. */
2686 if ((a
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2687 == (SEC_CODE
| SEC_ALLOC
)
2688 && (b
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2689 != (SEC_CODE
| SEC_ALLOC
))
2692 if ((a
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2693 != (SEC_CODE
| SEC_ALLOC
)
2694 && (b
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2695 == (SEC_CODE
| SEC_ALLOC
))
2698 if (synthetic_relocatable
)
2700 if (a
->section
->id
< b
->section
->id
)
2703 if (a
->section
->id
> b
->section
->id
)
2707 if (a
->value
+ a
->section
->vma
< b
->value
+ b
->section
->vma
)
2710 if (a
->value
+ a
->section
->vma
> b
->value
+ b
->section
->vma
)
2713 /* For syms with the same value, prefer strong dynamic global function
2714 syms over other syms. */
2715 if ((a
->flags
& BSF_GLOBAL
) != 0 && (b
->flags
& BSF_GLOBAL
) == 0)
2718 if ((a
->flags
& BSF_GLOBAL
) == 0 && (b
->flags
& BSF_GLOBAL
) != 0)
2721 if ((a
->flags
& BSF_FUNCTION
) != 0 && (b
->flags
& BSF_FUNCTION
) == 0)
2724 if ((a
->flags
& BSF_FUNCTION
) == 0 && (b
->flags
& BSF_FUNCTION
) != 0)
2727 if ((a
->flags
& BSF_WEAK
) == 0 && (b
->flags
& BSF_WEAK
) != 0)
2730 if ((a
->flags
& BSF_WEAK
) != 0 && (b
->flags
& BSF_WEAK
) == 0)
2733 if ((a
->flags
& BSF_DYNAMIC
) != 0 && (b
->flags
& BSF_DYNAMIC
) == 0)
2736 if ((a
->flags
& BSF_DYNAMIC
) == 0 && (b
->flags
& BSF_DYNAMIC
) != 0)
2742 /* Search SYMS for a symbol of the given VALUE. */
2745 sym_exists_at (asymbol
**syms
, long lo
, long hi
, int id
, bfd_vma value
)
2753 mid
= (lo
+ hi
) >> 1;
2754 if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
< value
)
2756 else if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
> value
)
2766 mid
= (lo
+ hi
) >> 1;
2767 if (syms
[mid
]->section
->id
< id
)
2769 else if (syms
[mid
]->section
->id
> id
)
2771 else if (syms
[mid
]->value
< value
)
2773 else if (syms
[mid
]->value
> value
)
2782 /* Create synthetic symbols, effectively restoring "dot-symbol" function
2786 ppc64_elf_get_synthetic_symtab (bfd
*abfd
,
2787 long static_count
, asymbol
**static_syms
,
2788 long dyn_count
, asymbol
**dyn_syms
,
2795 long symcount
, codesecsym
, codesecsymend
, secsymend
, opdsymend
;
2797 bfd_boolean relocatable
= (abfd
->flags
& (EXEC_P
| DYNAMIC
)) == 0;
2802 opd
= bfd_get_section_by_name (abfd
, ".opd");
2806 symcount
= static_count
;
2808 symcount
+= dyn_count
;
2812 syms
= bfd_malloc ((symcount
+ 1) * sizeof (*syms
));
2816 if (!relocatable
&& static_count
!= 0 && dyn_count
!= 0)
2818 /* Use both symbol tables. */
2819 memcpy (syms
, static_syms
, static_count
* sizeof (*syms
));
2820 memcpy (syms
+ static_count
, dyn_syms
, (dyn_count
+ 1) * sizeof (*syms
));
2822 else if (!relocatable
&& static_count
== 0)
2823 memcpy (syms
, dyn_syms
, (symcount
+ 1) * sizeof (*syms
));
2825 memcpy (syms
, static_syms
, (symcount
+ 1) * sizeof (*syms
));
2827 synthetic_opd
= opd
;
2828 synthetic_relocatable
= relocatable
;
2829 qsort (syms
, symcount
, sizeof (*syms
), compare_symbols
);
2831 if (!relocatable
&& symcount
> 1)
2834 /* Trim duplicate syms, since we may have merged the normal and
2835 dynamic symbols. Actually, we only care about syms that have
2836 different values, so trim any with the same value. */
2837 for (i
= 1, j
= 1; i
< symcount
; ++i
)
2838 if (syms
[i
- 1]->value
+ syms
[i
- 1]->section
->vma
2839 != syms
[i
]->value
+ syms
[i
]->section
->vma
)
2840 syms
[j
++] = syms
[i
];
2845 if (syms
[i
]->section
== opd
)
2849 for (; i
< symcount
; ++i
)
2850 if (((syms
[i
]->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2851 != (SEC_CODE
| SEC_ALLOC
))
2852 || (syms
[i
]->flags
& BSF_SECTION_SYM
) == 0)
2856 for (; i
< symcount
; ++i
)
2857 if ((syms
[i
]->flags
& BSF_SECTION_SYM
) == 0)
2861 for (; i
< symcount
; ++i
)
2862 if (syms
[i
]->section
!= opd
)
2866 for (; i
< symcount
; ++i
)
2867 if ((syms
[i
]->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2868 != (SEC_CODE
| SEC_ALLOC
))
2873 if (opdsymend
== secsymend
)
2878 bfd_boolean (*slurp_relocs
) (bfd
*, asection
*, asymbol
**, bfd_boolean
);
2883 slurp_relocs
= get_elf_backend_data (abfd
)->s
->slurp_reloc_table
;
2884 relcount
= (opd
->flags
& SEC_RELOC
) ? opd
->reloc_count
: 0;
2888 if (!(*slurp_relocs
) (abfd
, opd
, static_syms
, FALSE
))
2895 for (i
= secsymend
, r
= opd
->relocation
; i
< opdsymend
; ++i
)
2899 while (r
< opd
->relocation
+ relcount
2900 && r
->address
< syms
[i
]->value
+ opd
->vma
)
2903 if (r
== opd
->relocation
+ relcount
)
2906 if (r
->address
!= syms
[i
]->value
+ opd
->vma
)
2909 if (r
->howto
->type
!= R_PPC64_ADDR64
)
2912 sym
= *r
->sym_ptr_ptr
;
2913 if (!sym_exists_at (syms
, opdsymend
, symcount
,
2914 sym
->section
->id
, sym
->value
+ r
->addend
))
2917 size
+= sizeof (asymbol
);
2918 size
+= strlen (syms
[i
]->name
) + 2;
2922 s
= *ret
= bfd_malloc (size
);
2929 names
= (char *) (s
+ count
);
2931 for (i
= secsymend
, r
= opd
->relocation
; i
< opdsymend
; ++i
)
2935 while (r
< opd
->relocation
+ relcount
2936 && r
->address
< syms
[i
]->value
+ opd
->vma
)
2939 if (r
== opd
->relocation
+ relcount
)
2942 if (r
->address
!= syms
[i
]->value
+ opd
->vma
)
2945 if (r
->howto
->type
!= R_PPC64_ADDR64
)
2948 sym
= *r
->sym_ptr_ptr
;
2949 if (!sym_exists_at (syms
, opdsymend
, symcount
,
2950 sym
->section
->id
, sym
->value
+ r
->addend
))
2955 s
->section
= sym
->section
;
2956 s
->value
= sym
->value
+ r
->addend
;
2959 len
= strlen (syms
[i
]->name
);
2960 memcpy (names
, syms
[i
]->name
, len
+ 1);
2971 if (!bfd_malloc_and_get_section (abfd
, opd
, &contents
))
2975 free_contents_and_exit
:
2983 for (i
= secsymend
; i
< opdsymend
; ++i
)
2987 ent
= bfd_get_64 (abfd
, contents
+ syms
[i
]->value
);
2988 if (!sym_exists_at (syms
, opdsymend
, symcount
, -1, ent
))
2991 size
+= sizeof (asymbol
);
2992 size
+= strlen (syms
[i
]->name
) + 2;
2996 s
= *ret
= bfd_malloc (size
);
2998 goto free_contents_and_exit
;
3000 names
= (char *) (s
+ count
);
3002 for (i
= secsymend
; i
< opdsymend
; ++i
)
3006 ent
= bfd_get_64 (abfd
, contents
+ syms
[i
]->value
);
3007 if (!sym_exists_at (syms
, opdsymend
, symcount
, -1, ent
))
3011 asection
*sec
= abfd
->sections
;
3018 long mid
= (lo
+ hi
) >> 1;
3019 if (syms
[mid
]->section
->vma
< ent
)
3021 else if (syms
[mid
]->section
->vma
> ent
)
3025 sec
= syms
[mid
]->section
;
3030 if (lo
>= hi
&& lo
> codesecsym
)
3031 sec
= syms
[lo
- 1]->section
;
3033 for (; sec
!= NULL
; sec
= sec
->next
)
3037 if ((sec
->flags
& SEC_ALLOC
) == 0
3038 || (sec
->flags
& SEC_LOAD
) == 0)
3040 if ((sec
->flags
& SEC_CODE
) != 0)
3043 s
->value
= ent
- s
->section
->vma
;
3046 len
= strlen (syms
[i
]->name
);
3047 memcpy (names
, syms
[i
]->name
, len
+ 1);
3060 /* The following functions are specific to the ELF linker, while
3061 functions above are used generally. Those named ppc64_elf_* are
3062 called by the main ELF linker code. They appear in this file more
3063 or less in the order in which they are called. eg.
3064 ppc64_elf_check_relocs is called early in the link process,
3065 ppc64_elf_finish_dynamic_sections is one of the last functions
3068 PowerPC64-ELF uses a similar scheme to PowerPC64-XCOFF in that
3069 functions have both a function code symbol and a function descriptor
3070 symbol. A call to foo in a relocatable object file looks like:
3077 The function definition in another object file might be:
3081 . .quad .TOC.@tocbase
3087 When the linker resolves the call during a static link, the branch
3088 unsurprisingly just goes to .foo and the .opd information is unused.
3089 If the function definition is in a shared library, things are a little
3090 different: The call goes via a plt call stub, the opd information gets
3091 copied to the plt, and the linker patches the nop.
3099 . addis 12,2,Lfoo@toc@ha # in practice, the call stub
3100 . addi 12,12,Lfoo@toc@l # is slightly optimized, but
3101 . std 2,40(1) # this is the general idea
3109 . Lfoo: reloc (R_PPC64_JMP_SLOT, foo)
3111 The "reloc ()" notation is supposed to indicate that the linker emits
3112 an R_PPC64_JMP_SLOT reloc against foo. The dynamic linker does the opd
3115 What are the difficulties here? Well, firstly, the relocations
3116 examined by the linker in check_relocs are against the function code
3117 sym .foo, while the dynamic relocation in the plt is emitted against
3118 the function descriptor symbol, foo. Somewhere along the line, we need
3119 to carefully copy dynamic link information from one symbol to the other.
3120 Secondly, the generic part of the elf linker will make .foo a dynamic
3121 symbol as is normal for most other backends. We need foo dynamic
3122 instead, at least for an application final link. However, when
3123 creating a shared library containing foo, we need to have both symbols
3124 dynamic so that references to .foo are satisfied during the early
3125 stages of linking. Otherwise the linker might decide to pull in a
3126 definition from some other object, eg. a static library.
3128 Update: As of August 2004, we support a new convention. Function
3129 calls may use the function descriptor symbol, ie. "bl foo". This
3130 behaves exactly as "bl .foo". */
3132 /* The linker needs to keep track of the number of relocs that it
3133 decides to copy as dynamic relocs in check_relocs for each symbol.
3134 This is so that it can later discard them if they are found to be
3135 unnecessary. We store the information in a field extending the
3136 regular ELF linker hash table. */
3138 struct ppc_dyn_relocs
3140 struct ppc_dyn_relocs
*next
;
3142 /* The input section of the reloc. */
3145 /* Total number of relocs copied for the input section. */
3146 bfd_size_type count
;
3148 /* Number of pc-relative relocs copied for the input section. */
3149 bfd_size_type pc_count
;
3152 /* Track GOT entries needed for a given symbol. We might need more
3153 than one got entry per symbol. */
3156 struct got_entry
*next
;
3158 /* The symbol addend that we'll be placing in the GOT. */
3161 /* Unlike other ELF targets, we use separate GOT entries for the same
3162 symbol referenced from different input files. This is to support
3163 automatic multiple TOC/GOT sections, where the TOC base can vary
3164 from one input file to another.
3166 Point to the BFD owning this GOT entry. */
3169 /* Zero for non-tls entries, or TLS_TLS and one of TLS_GD, TLS_LD,
3170 TLS_TPREL or TLS_DTPREL for tls entries. */
3173 /* Reference count until size_dynamic_sections, GOT offset thereafter. */
3176 bfd_signed_vma refcount
;
3181 /* The same for PLT. */
3184 struct plt_entry
*next
;
3190 bfd_signed_vma refcount
;
3195 /* Of those relocs that might be copied as dynamic relocs, this macro
3196 selects those that must be copied when linking a shared library,
3197 even when the symbol is local. */
3199 #define MUST_BE_DYN_RELOC(RTYPE) \
3200 ((RTYPE) != R_PPC64_REL32 \
3201 && (RTYPE) != R_PPC64_REL64 \
3202 && (RTYPE) != R_PPC64_REL30)
3204 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
3205 copying dynamic variables from a shared lib into an app's dynbss
3206 section, and instead use a dynamic relocation to point into the
3207 shared lib. With code that gcc generates, it's vital that this be
3208 enabled; In the PowerPC64 ABI, the address of a function is actually
3209 the address of a function descriptor, which resides in the .opd
3210 section. gcc uses the descriptor directly rather than going via the
3211 GOT as some other ABI's do, which means that initialized function
3212 pointers must reference the descriptor. Thus, a function pointer
3213 initialized to the address of a function in a shared library will
3214 either require a copy reloc, or a dynamic reloc. Using a copy reloc
3215 redefines the function descriptor symbol to point to the copy. This
3216 presents a problem as a plt entry for that function is also
3217 initialized from the function descriptor symbol and the copy reloc
3218 may not be initialized first. */
3219 #define ELIMINATE_COPY_RELOCS 1
3221 /* Section name for stubs is the associated section name plus this
3223 #define STUB_SUFFIX ".stub"
3226 ppc_stub_long_branch:
3227 Used when a 14 bit branch (or even a 24 bit branch) can't reach its
3228 destination, but a 24 bit branch in a stub section will reach.
3231 ppc_stub_plt_branch:
3232 Similar to the above, but a 24 bit branch in the stub section won't
3233 reach its destination.
3234 . addis %r12,%r2,xxx@toc@ha
3235 . ld %r11,xxx@toc@l(%r12)
3240 Used to call a function in a shared library. If it so happens that
3241 the plt entry referenced crosses a 64k boundary, then an extra
3242 "addi %r12,%r12,xxx@toc@l" will be inserted before the "mtctr".
3243 . addis %r12,%r2,xxx@toc@ha
3245 . ld %r11,xxx+0@toc@l(%r12)
3247 . ld %r2,xxx+8@toc@l(%r12)
3248 . ld %r11,xxx+16@toc@l(%r12)
3251 ppc_stub_long_branch and ppc_stub_plt_branch may also have additional
3252 code to adjust the value and save r2 to support multiple toc sections.
3253 A ppc_stub_long_branch with an r2 offset looks like:
3255 . addis %r2,%r2,off@ha
3256 . addi %r2,%r2,off@l
3259 A ppc_stub_plt_branch with an r2 offset looks like:
3261 . addis %r12,%r2,xxx@toc@ha
3262 . ld %r11,xxx@toc@l(%r12)
3263 . addis %r2,%r2,off@ha
3264 . addi %r2,%r2,off@l
3268 In cases where the "addis" instruction would add zero, the "addis" is
3269 omitted and following instructions modified slightly in some cases.
3272 enum ppc_stub_type
{
3274 ppc_stub_long_branch
,
3275 ppc_stub_long_branch_r2off
,
3276 ppc_stub_plt_branch
,
3277 ppc_stub_plt_branch_r2off
,
3281 struct ppc_stub_hash_entry
{
3283 /* Base hash table entry structure. */
3284 struct bfd_hash_entry root
;
3286 enum ppc_stub_type stub_type
;
3288 /* The stub section. */
3291 /* Offset within stub_sec of the beginning of this stub. */
3292 bfd_vma stub_offset
;
3294 /* Given the symbol's value and its section we can determine its final
3295 value when building the stubs (so the stub knows where to jump. */
3296 bfd_vma target_value
;
3297 asection
*target_section
;
3299 /* The symbol table entry, if any, that this was derived from. */
3300 struct ppc_link_hash_entry
*h
;
3302 /* And the reloc addend that this was derived from. */
3305 /* Where this stub is being called from, or, in the case of combined
3306 stub sections, the first input section in the group. */
3310 struct ppc_branch_hash_entry
{
3312 /* Base hash table entry structure. */
3313 struct bfd_hash_entry root
;
3315 /* Offset within branch lookup table. */
3316 unsigned int offset
;
3318 /* Generation marker. */
3322 struct ppc_link_hash_entry
3324 struct elf_link_hash_entry elf
;
3327 /* A pointer to the most recently used stub hash entry against this
3329 struct ppc_stub_hash_entry
*stub_cache
;
3331 /* A pointer to the next symbol starting with a '.' */
3332 struct ppc_link_hash_entry
*next_dot_sym
;
3335 /* Track dynamic relocs copied for this symbol. */
3336 struct ppc_dyn_relocs
*dyn_relocs
;
3338 /* Link between function code and descriptor symbols. */
3339 struct ppc_link_hash_entry
*oh
;
3341 /* Flag function code and descriptor symbols. */
3342 unsigned int is_func
:1;
3343 unsigned int is_func_descriptor
:1;
3344 unsigned int fake
:1;
3346 /* Whether global opd/toc sym has been adjusted or not.
3347 After ppc64_elf_edit_opd/ppc64_elf_edit_toc has run, this flag
3348 should be set for all globals defined in any opd/toc section. */
3349 unsigned int adjust_done
:1;
3351 /* Set if we twiddled this symbol to weak at some stage. */
3352 unsigned int was_undefined
:1;
3354 /* Contexts in which symbol is used in the GOT (or TOC).
3355 TLS_GD .. TLS_EXPLICIT bits are or'd into the mask as the
3356 corresponding relocs are encountered during check_relocs.
3357 tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
3358 indicate the corresponding GOT entry type is not needed.
3359 tls_optimize may also set TLS_TPRELGD when a GD reloc turns into
3360 a TPREL one. We use a separate flag rather than setting TPREL
3361 just for convenience in distinguishing the two cases. */
3362 #define TLS_GD 1 /* GD reloc. */
3363 #define TLS_LD 2 /* LD reloc. */
3364 #define TLS_TPREL 4 /* TPREL reloc, => IE. */
3365 #define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
3366 #define TLS_TLS 16 /* Any TLS reloc. */
3367 #define TLS_EXPLICIT 32 /* Marks TOC section TLS relocs. */
3368 #define TLS_TPRELGD 64 /* TPREL reloc resulting from GD->IE. */
3372 /* ppc64 ELF linker hash table. */
3374 struct ppc_link_hash_table
3376 struct elf_link_hash_table elf
;
3378 /* The stub hash table. */
3379 struct bfd_hash_table stub_hash_table
;
3381 /* Another hash table for plt_branch stubs. */
3382 struct bfd_hash_table branch_hash_table
;
3384 /* Linker stub bfd. */
3387 /* Linker call-backs. */
3388 asection
* (*add_stub_section
) (const char *, asection
*);
3389 void (*layout_sections_again
) (void);
3391 /* Array to keep track of which stub sections have been created, and
3392 information on stub grouping. */
3394 /* This is the section to which stubs in the group will be attached. */
3396 /* The stub section. */
3398 /* Along with elf_gp, specifies the TOC pointer used in this group. */
3402 /* Temp used when calculating TOC pointers. */
3405 /* Highest input section id. */
3408 /* Highest output section index. */
3411 /* Used when adding symbols. */
3412 struct ppc_link_hash_entry
*dot_syms
;
3414 /* List of input sections for each output section. */
3415 asection
**input_list
;
3417 /* Short-cuts to get to dynamic linker sections. */
3428 /* Shortcut to .__tls_get_addr and __tls_get_addr. */
3429 struct ppc_link_hash_entry
*tls_get_addr
;
3430 struct ppc_link_hash_entry
*tls_get_addr_fd
;
3433 unsigned long stub_count
[ppc_stub_plt_call
];
3435 /* Number of stubs against global syms. */
3436 unsigned long stub_globals
;
3438 /* Set if we should emit symbols for stubs. */
3439 unsigned int emit_stub_syms
:1;
3441 /* Support for multiple toc sections. */
3442 unsigned int no_multi_toc
:1;
3443 unsigned int multi_toc_needed
:1;
3446 unsigned int stub_error
:1;
3448 /* Temp used by ppc64_elf_check_directives. */
3449 unsigned int twiddled_syms
:1;
3451 /* Incremented every time we size stubs. */
3452 unsigned int stub_iteration
;
3454 /* Small local sym to section mapping cache. */
3455 struct sym_sec_cache sym_sec
;
3458 /* Rename some of the generic section flags to better document how they
3460 #define has_toc_reloc has_gp_reloc
3461 #define makes_toc_func_call need_finalize_relax
3462 #define call_check_in_progress reloc_done
3464 /* Get the ppc64 ELF linker hash table from a link_info structure. */
3466 #define ppc_hash_table(p) \
3467 ((struct ppc_link_hash_table *) ((p)->hash))
3469 #define ppc_stub_hash_lookup(table, string, create, copy) \
3470 ((struct ppc_stub_hash_entry *) \
3471 bfd_hash_lookup ((table), (string), (create), (copy)))
3473 #define ppc_branch_hash_lookup(table, string, create, copy) \
3474 ((struct ppc_branch_hash_entry *) \
3475 bfd_hash_lookup ((table), (string), (create), (copy)))
3477 /* Create an entry in the stub hash table. */
3479 static struct bfd_hash_entry
*
3480 stub_hash_newfunc (struct bfd_hash_entry
*entry
,
3481 struct bfd_hash_table
*table
,
3484 /* Allocate the structure if it has not already been allocated by a
3488 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_stub_hash_entry
));
3493 /* Call the allocation method of the superclass. */
3494 entry
= bfd_hash_newfunc (entry
, table
, string
);
3497 struct ppc_stub_hash_entry
*eh
;
3499 /* Initialize the local fields. */
3500 eh
= (struct ppc_stub_hash_entry
*) entry
;
3501 eh
->stub_type
= ppc_stub_none
;
3502 eh
->stub_sec
= NULL
;
3503 eh
->stub_offset
= 0;
3504 eh
->target_value
= 0;
3505 eh
->target_section
= NULL
;
3513 /* Create an entry in the branch hash table. */
3515 static struct bfd_hash_entry
*
3516 branch_hash_newfunc (struct bfd_hash_entry
*entry
,
3517 struct bfd_hash_table
*table
,
3520 /* Allocate the structure if it has not already been allocated by a
3524 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_branch_hash_entry
));
3529 /* Call the allocation method of the superclass. */
3530 entry
= bfd_hash_newfunc (entry
, table
, string
);
3533 struct ppc_branch_hash_entry
*eh
;
3535 /* Initialize the local fields. */
3536 eh
= (struct ppc_branch_hash_entry
*) entry
;
3544 /* Create an entry in a ppc64 ELF linker hash table. */
3546 static struct bfd_hash_entry
*
3547 link_hash_newfunc (struct bfd_hash_entry
*entry
,
3548 struct bfd_hash_table
*table
,
3551 /* Allocate the structure if it has not already been allocated by a
3555 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_link_hash_entry
));
3560 /* Call the allocation method of the superclass. */
3561 entry
= _bfd_elf_link_hash_newfunc (entry
, table
, string
);
3564 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) entry
;
3566 memset (&eh
->u
.stub_cache
, 0,
3567 (sizeof (struct ppc_link_hash_entry
)
3568 - offsetof (struct ppc_link_hash_entry
, u
.stub_cache
)));
3570 /* When making function calls, old ABI code references function entry
3571 points (dot symbols), while new ABI code references the function
3572 descriptor symbol. We need to make any combination of reference and
3573 definition work together, without breaking archive linking.
3575 For a defined function "foo" and an undefined call to "bar":
3576 An old object defines "foo" and ".foo", references ".bar" (possibly
3578 A new object defines "foo" and references "bar".
3580 A new object thus has no problem with its undefined symbols being
3581 satisfied by definitions in an old object. On the other hand, the
3582 old object won't have ".bar" satisfied by a new object.
3584 Keep a list of newly added dot-symbols. */
3586 if (string
[0] == '.')
3588 struct ppc_link_hash_table
*htab
;
3590 htab
= (struct ppc_link_hash_table
*) table
;
3591 eh
->u
.next_dot_sym
= htab
->dot_syms
;
3592 htab
->dot_syms
= eh
;
3599 /* Create a ppc64 ELF linker hash table. */
3601 static struct bfd_link_hash_table
*
3602 ppc64_elf_link_hash_table_create (bfd
*abfd
)
3604 struct ppc_link_hash_table
*htab
;
3605 bfd_size_type amt
= sizeof (struct ppc_link_hash_table
);
3607 htab
= bfd_zmalloc (amt
);
3611 if (!_bfd_elf_link_hash_table_init (&htab
->elf
, abfd
, link_hash_newfunc
,
3612 sizeof (struct ppc_link_hash_entry
)))
3618 /* Init the stub hash table too. */
3619 if (!bfd_hash_table_init (&htab
->stub_hash_table
, stub_hash_newfunc
,
3620 sizeof (struct ppc_stub_hash_entry
)))
3623 /* And the branch hash table. */
3624 if (!bfd_hash_table_init (&htab
->branch_hash_table
, branch_hash_newfunc
,
3625 sizeof (struct ppc_branch_hash_entry
)))
3628 /* Initializing two fields of the union is just cosmetic. We really
3629 only care about glist, but when compiled on a 32-bit host the
3630 bfd_vma fields are larger. Setting the bfd_vma to zero makes
3631 debugger inspection of these fields look nicer. */
3632 htab
->elf
.init_got_refcount
.refcount
= 0;
3633 htab
->elf
.init_got_refcount
.glist
= NULL
;
3634 htab
->elf
.init_plt_refcount
.refcount
= 0;
3635 htab
->elf
.init_plt_refcount
.glist
= NULL
;
3636 htab
->elf
.init_got_offset
.offset
= 0;
3637 htab
->elf
.init_got_offset
.glist
= NULL
;
3638 htab
->elf
.init_plt_offset
.offset
= 0;
3639 htab
->elf
.init_plt_offset
.glist
= NULL
;
3641 return &htab
->elf
.root
;
3644 /* Free the derived linker hash table. */
3647 ppc64_elf_link_hash_table_free (struct bfd_link_hash_table
*hash
)
3649 struct ppc_link_hash_table
*ret
= (struct ppc_link_hash_table
*) hash
;
3651 bfd_hash_table_free (&ret
->stub_hash_table
);
3652 bfd_hash_table_free (&ret
->branch_hash_table
);
3653 _bfd_generic_link_hash_table_free (hash
);
3656 /* Satisfy the ELF linker by filling in some fields in our fake bfd. */
3659 ppc64_elf_init_stub_bfd (bfd
*abfd
, struct bfd_link_info
*info
)
3661 struct ppc_link_hash_table
*htab
;
3663 elf_elfheader (abfd
)->e_ident
[EI_CLASS
] = ELFCLASS64
;
3665 /* Always hook our dynamic sections into the first bfd, which is the
3666 linker created stub bfd. This ensures that the GOT header is at
3667 the start of the output TOC section. */
3668 htab
= ppc_hash_table (info
);
3669 htab
->stub_bfd
= abfd
;
3670 htab
->elf
.dynobj
= abfd
;
3673 /* Build a name for an entry in the stub hash table. */
3676 ppc_stub_name (const asection
*input_section
,
3677 const asection
*sym_sec
,
3678 const struct ppc_link_hash_entry
*h
,
3679 const Elf_Internal_Rela
*rel
)
3684 /* rel->r_addend is actually 64 bit, but who uses more than +/- 2^31
3685 offsets from a sym as a branch target? In fact, we could
3686 probably assume the addend is always zero. */
3687 BFD_ASSERT (((int) rel
->r_addend
& 0xffffffff) == rel
->r_addend
);
3691 len
= 8 + 1 + strlen (h
->elf
.root
.root
.string
) + 1 + 8 + 1;
3692 stub_name
= bfd_malloc (len
);
3693 if (stub_name
== NULL
)
3696 sprintf (stub_name
, "%08x.%s+%x",
3697 input_section
->id
& 0xffffffff,
3698 h
->elf
.root
.root
.string
,
3699 (int) rel
->r_addend
& 0xffffffff);
3703 len
= 8 + 1 + 8 + 1 + 8 + 1 + 8 + 1;
3704 stub_name
= bfd_malloc (len
);
3705 if (stub_name
== NULL
)
3708 sprintf (stub_name
, "%08x.%x:%x+%x",
3709 input_section
->id
& 0xffffffff,
3710 sym_sec
->id
& 0xffffffff,
3711 (int) ELF64_R_SYM (rel
->r_info
) & 0xffffffff,
3712 (int) rel
->r_addend
& 0xffffffff);
3714 if (stub_name
[len
- 2] == '+' && stub_name
[len
- 1] == '0')
3715 stub_name
[len
- 2] = 0;
3719 /* Look up an entry in the stub hash. Stub entries are cached because
3720 creating the stub name takes a bit of time. */
3722 static struct ppc_stub_hash_entry
*
3723 ppc_get_stub_entry (const asection
*input_section
,
3724 const asection
*sym_sec
,
3725 struct ppc_link_hash_entry
*h
,
3726 const Elf_Internal_Rela
*rel
,
3727 struct ppc_link_hash_table
*htab
)
3729 struct ppc_stub_hash_entry
*stub_entry
;
3730 const asection
*id_sec
;
3732 /* If this input section is part of a group of sections sharing one
3733 stub section, then use the id of the first section in the group.
3734 Stub names need to include a section id, as there may well be
3735 more than one stub used to reach say, printf, and we need to
3736 distinguish between them. */
3737 id_sec
= htab
->stub_group
[input_section
->id
].link_sec
;
3739 if (h
!= NULL
&& h
->u
.stub_cache
!= NULL
3740 && h
->u
.stub_cache
->h
== h
3741 && h
->u
.stub_cache
->id_sec
== id_sec
)
3743 stub_entry
= h
->u
.stub_cache
;
3749 stub_name
= ppc_stub_name (id_sec
, sym_sec
, h
, rel
);
3750 if (stub_name
== NULL
)
3753 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
3754 stub_name
, FALSE
, FALSE
);
3756 h
->u
.stub_cache
= stub_entry
;
3764 /* Add a new stub entry to the stub hash. Not all fields of the new
3765 stub entry are initialised. */
3767 static struct ppc_stub_hash_entry
*
3768 ppc_add_stub (const char *stub_name
,
3770 struct ppc_link_hash_table
*htab
)
3774 struct ppc_stub_hash_entry
*stub_entry
;
3776 link_sec
= htab
->stub_group
[section
->id
].link_sec
;
3777 stub_sec
= htab
->stub_group
[section
->id
].stub_sec
;
3778 if (stub_sec
== NULL
)
3780 stub_sec
= htab
->stub_group
[link_sec
->id
].stub_sec
;
3781 if (stub_sec
== NULL
)
3787 namelen
= strlen (link_sec
->name
);
3788 len
= namelen
+ sizeof (STUB_SUFFIX
);
3789 s_name
= bfd_alloc (htab
->stub_bfd
, len
);
3793 memcpy (s_name
, link_sec
->name
, namelen
);
3794 memcpy (s_name
+ namelen
, STUB_SUFFIX
, sizeof (STUB_SUFFIX
));
3795 stub_sec
= (*htab
->add_stub_section
) (s_name
, link_sec
);
3796 if (stub_sec
== NULL
)
3798 htab
->stub_group
[link_sec
->id
].stub_sec
= stub_sec
;
3800 htab
->stub_group
[section
->id
].stub_sec
= stub_sec
;
3803 /* Enter this entry into the linker stub hash table. */
3804 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
, stub_name
,
3806 if (stub_entry
== NULL
)
3808 (*_bfd_error_handler
) (_("%B: cannot create stub entry %s"),
3809 section
->owner
, stub_name
);
3813 stub_entry
->stub_sec
= stub_sec
;
3814 stub_entry
->stub_offset
= 0;
3815 stub_entry
->id_sec
= link_sec
;
3819 /* Create sections for linker generated code. */
3822 create_linkage_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
3824 struct ppc_link_hash_table
*htab
;
3827 htab
= ppc_hash_table (info
);
3829 /* Create .sfpr for code to save and restore fp regs. */
3830 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_CODE
| SEC_READONLY
3831 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3832 htab
->sfpr
= bfd_make_section_anyway_with_flags (dynobj
, ".sfpr",
3834 if (htab
->sfpr
== NULL
3835 || ! bfd_set_section_alignment (dynobj
, htab
->sfpr
, 2))
3838 /* Create .glink for lazy dynamic linking support. */
3839 htab
->glink
= bfd_make_section_anyway_with_flags (dynobj
, ".glink",
3841 if (htab
->glink
== NULL
3842 || ! bfd_set_section_alignment (dynobj
, htab
->glink
, 3))
3845 /* Create branch lookup table for plt_branch stubs. */
3846 flags
= (SEC_ALLOC
| SEC_LOAD
3847 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3848 htab
->brlt
= bfd_make_section_anyway_with_flags (dynobj
, ".branch_lt",
3850 if (htab
->brlt
== NULL
3851 || ! bfd_set_section_alignment (dynobj
, htab
->brlt
, 3))
3857 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
3858 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3859 htab
->relbrlt
= bfd_make_section_anyway_with_flags (dynobj
,
3863 || ! bfd_set_section_alignment (dynobj
, htab
->relbrlt
, 3))
3869 /* Create .got and .rela.got sections in ABFD, and .got in dynobj if
3870 not already done. */
3873 create_got_section (bfd
*abfd
, struct bfd_link_info
*info
)
3875 asection
*got
, *relgot
;
3877 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
3881 if (! _bfd_elf_create_got_section (htab
->elf
.dynobj
, info
))
3884 htab
->got
= bfd_get_section_by_name (htab
->elf
.dynobj
, ".got");
3889 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
3890 | SEC_LINKER_CREATED
);
3892 got
= bfd_make_section_anyway_with_flags (abfd
, ".got", flags
);
3894 || !bfd_set_section_alignment (abfd
, got
, 3))
3897 relgot
= bfd_make_section_anyway_with_flags (abfd
, ".rela.got",
3898 flags
| SEC_READONLY
);
3900 || ! bfd_set_section_alignment (abfd
, relgot
, 3))
3903 ppc64_elf_tdata (abfd
)->got
= got
;
3904 ppc64_elf_tdata (abfd
)->relgot
= relgot
;
3908 /* Create the dynamic sections, and set up shortcuts. */
3911 ppc64_elf_create_dynamic_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
3913 struct ppc_link_hash_table
*htab
;
3915 if (!_bfd_elf_create_dynamic_sections (dynobj
, info
))
3918 htab
= ppc_hash_table (info
);
3920 htab
->got
= bfd_get_section_by_name (dynobj
, ".got");
3921 htab
->plt
= bfd_get_section_by_name (dynobj
, ".plt");
3922 htab
->relplt
= bfd_get_section_by_name (dynobj
, ".rela.plt");
3923 htab
->dynbss
= bfd_get_section_by_name (dynobj
, ".dynbss");
3925 htab
->relbss
= bfd_get_section_by_name (dynobj
, ".rela.bss");
3927 if (!htab
->got
|| !htab
->plt
|| !htab
->relplt
|| !htab
->dynbss
3928 || (!info
->shared
&& !htab
->relbss
))
3934 /* Merge PLT info on FROM with that on TO. */
3937 move_plt_plist (struct ppc_link_hash_entry
*from
,
3938 struct ppc_link_hash_entry
*to
)
3940 if (from
->elf
.plt
.plist
!= NULL
)
3942 if (to
->elf
.plt
.plist
!= NULL
)
3944 struct plt_entry
**entp
;
3945 struct plt_entry
*ent
;
3947 for (entp
= &from
->elf
.plt
.plist
; (ent
= *entp
) != NULL
; )
3949 struct plt_entry
*dent
;
3951 for (dent
= to
->elf
.plt
.plist
; dent
!= NULL
; dent
= dent
->next
)
3952 if (dent
->addend
== ent
->addend
)
3954 dent
->plt
.refcount
+= ent
->plt
.refcount
;
3961 *entp
= to
->elf
.plt
.plist
;
3964 to
->elf
.plt
.plist
= from
->elf
.plt
.plist
;
3965 from
->elf
.plt
.plist
= NULL
;
3969 /* Copy the extra info we tack onto an elf_link_hash_entry. */
3972 ppc64_elf_copy_indirect_symbol (struct bfd_link_info
*info
,
3973 struct elf_link_hash_entry
*dir
,
3974 struct elf_link_hash_entry
*ind
)
3976 struct ppc_link_hash_entry
*edir
, *eind
;
3978 edir
= (struct ppc_link_hash_entry
*) dir
;
3979 eind
= (struct ppc_link_hash_entry
*) ind
;
3981 /* Copy over any dynamic relocs we may have on the indirect sym. */
3982 if (eind
->dyn_relocs
!= NULL
)
3984 if (edir
->dyn_relocs
!= NULL
)
3986 struct ppc_dyn_relocs
**pp
;
3987 struct ppc_dyn_relocs
*p
;
3989 /* Add reloc counts against the indirect sym to the direct sym
3990 list. Merge any entries against the same section. */
3991 for (pp
= &eind
->dyn_relocs
; (p
= *pp
) != NULL
; )
3993 struct ppc_dyn_relocs
*q
;
3995 for (q
= edir
->dyn_relocs
; q
!= NULL
; q
= q
->next
)
3996 if (q
->sec
== p
->sec
)
3998 q
->pc_count
+= p
->pc_count
;
3999 q
->count
+= p
->count
;
4006 *pp
= edir
->dyn_relocs
;
4009 edir
->dyn_relocs
= eind
->dyn_relocs
;
4010 eind
->dyn_relocs
= NULL
;
4013 edir
->is_func
|= eind
->is_func
;
4014 edir
->is_func_descriptor
|= eind
->is_func_descriptor
;
4015 edir
->tls_mask
|= eind
->tls_mask
;
4017 /* If called to transfer flags for a weakdef during processing
4018 of elf_adjust_dynamic_symbol, don't copy NON_GOT_REF.
4019 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
4020 if (!(ELIMINATE_COPY_RELOCS
4021 && eind
->elf
.root
.type
!= bfd_link_hash_indirect
4022 && edir
->elf
.dynamic_adjusted
))
4023 edir
->elf
.non_got_ref
|= eind
->elf
.non_got_ref
;
4025 edir
->elf
.ref_dynamic
|= eind
->elf
.ref_dynamic
;
4026 edir
->elf
.ref_regular
|= eind
->elf
.ref_regular
;
4027 edir
->elf
.ref_regular_nonweak
|= eind
->elf
.ref_regular_nonweak
;
4028 edir
->elf
.needs_plt
|= eind
->elf
.needs_plt
;
4030 /* If we were called to copy over info for a weak sym, that's all. */
4031 if (eind
->elf
.root
.type
!= bfd_link_hash_indirect
)
4034 /* Copy over got entries that we may have already seen to the
4035 symbol which just became indirect. */
4036 if (eind
->elf
.got
.glist
!= NULL
)
4038 if (edir
->elf
.got
.glist
!= NULL
)
4040 struct got_entry
**entp
;
4041 struct got_entry
*ent
;
4043 for (entp
= &eind
->elf
.got
.glist
; (ent
= *entp
) != NULL
; )
4045 struct got_entry
*dent
;
4047 for (dent
= edir
->elf
.got
.glist
; dent
!= NULL
; dent
= dent
->next
)
4048 if (dent
->addend
== ent
->addend
4049 && dent
->owner
== ent
->owner
4050 && dent
->tls_type
== ent
->tls_type
)
4052 dent
->got
.refcount
+= ent
->got
.refcount
;
4059 *entp
= edir
->elf
.got
.glist
;
4062 edir
->elf
.got
.glist
= eind
->elf
.got
.glist
;
4063 eind
->elf
.got
.glist
= NULL
;
4066 /* And plt entries. */
4067 move_plt_plist (eind
, edir
);
4069 if (eind
->elf
.dynindx
!= -1)
4071 if (edir
->elf
.dynindx
!= -1)
4072 _bfd_elf_strtab_delref (elf_hash_table (info
)->dynstr
,
4073 edir
->elf
.dynstr_index
);
4074 edir
->elf
.dynindx
= eind
->elf
.dynindx
;
4075 edir
->elf
.dynstr_index
= eind
->elf
.dynstr_index
;
4076 eind
->elf
.dynindx
= -1;
4077 eind
->elf
.dynstr_index
= 0;
4081 /* Find the function descriptor hash entry from the given function code
4082 hash entry FH. Link the entries via their OH fields. */
4084 static struct ppc_link_hash_entry
*
4085 get_fdh (struct ppc_link_hash_entry
*fh
, struct ppc_link_hash_table
*htab
)
4087 struct ppc_link_hash_entry
*fdh
= fh
->oh
;
4091 const char *fd_name
= fh
->elf
.root
.root
.string
+ 1;
4093 fdh
= (struct ppc_link_hash_entry
*)
4094 elf_link_hash_lookup (&htab
->elf
, fd_name
, FALSE
, FALSE
, FALSE
);
4097 fdh
->is_func_descriptor
= 1;
4107 /* Make a fake function descriptor sym for the code sym FH. */
4109 static struct ppc_link_hash_entry
*
4110 make_fdh (struct bfd_link_info
*info
,
4111 struct ppc_link_hash_entry
*fh
)
4115 struct bfd_link_hash_entry
*bh
;
4116 struct ppc_link_hash_entry
*fdh
;
4118 abfd
= fh
->elf
.root
.u
.undef
.abfd
;
4119 newsym
= bfd_make_empty_symbol (abfd
);
4120 newsym
->name
= fh
->elf
.root
.root
.string
+ 1;
4121 newsym
->section
= bfd_und_section_ptr
;
4123 newsym
->flags
= BSF_WEAK
;
4126 if (!_bfd_generic_link_add_one_symbol (info
, abfd
, newsym
->name
,
4127 newsym
->flags
, newsym
->section
,
4128 newsym
->value
, NULL
, FALSE
, FALSE
,
4132 fdh
= (struct ppc_link_hash_entry
*) bh
;
4133 fdh
->elf
.non_elf
= 0;
4135 fdh
->is_func_descriptor
= 1;
4142 /* Fix function descriptor symbols defined in .opd sections to be
4146 ppc64_elf_add_symbol_hook (bfd
*ibfd ATTRIBUTE_UNUSED
,
4147 struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
4148 Elf_Internal_Sym
*isym
,
4149 const char **name ATTRIBUTE_UNUSED
,
4150 flagword
*flags ATTRIBUTE_UNUSED
,
4152 bfd_vma
*value ATTRIBUTE_UNUSED
)
4155 && strcmp (bfd_get_section_name (ibfd
, *sec
), ".opd") == 0)
4156 isym
->st_info
= ELF_ST_INFO (ELF_ST_BIND (isym
->st_info
), STT_FUNC
);
4161 /* This function makes an old ABI object reference to ".bar" cause the
4162 inclusion of a new ABI object archive that defines "bar".
4163 NAME is a symbol defined in an archive. Return a symbol in the hash
4164 table that might be satisfied by the archive symbols. */
4166 static struct elf_link_hash_entry
*
4167 ppc64_elf_archive_symbol_lookup (bfd
*abfd
,
4168 struct bfd_link_info
*info
,
4171 struct elf_link_hash_entry
*h
;
4175 h
= _bfd_elf_archive_symbol_lookup (abfd
, info
, name
);
4177 /* Don't return this sym if it is a fake function descriptor
4178 created by add_symbol_adjust. */
4179 && !(h
->root
.type
== bfd_link_hash_undefweak
4180 && ((struct ppc_link_hash_entry
*) h
)->fake
))
4186 len
= strlen (name
);
4187 dot_name
= bfd_alloc (abfd
, len
+ 2);
4188 if (dot_name
== NULL
)
4189 return (struct elf_link_hash_entry
*) 0 - 1;
4191 memcpy (dot_name
+ 1, name
, len
+ 1);
4192 h
= _bfd_elf_archive_symbol_lookup (abfd
, info
, dot_name
);
4193 bfd_release (abfd
, dot_name
);
4197 /* This function satisfies all old ABI object references to ".bar" if a
4198 new ABI object defines "bar". Well, at least, undefined dot symbols
4199 are made weak. This stops later archive searches from including an
4200 object if we already have a function descriptor definition. It also
4201 prevents the linker complaining about undefined symbols.
4202 We also check and correct mismatched symbol visibility here. The
4203 most restrictive visibility of the function descriptor and the
4204 function entry symbol is used. */
4207 add_symbol_adjust (struct ppc_link_hash_entry
*eh
, struct bfd_link_info
*info
)
4209 struct ppc_link_hash_table
*htab
;
4210 struct ppc_link_hash_entry
*fdh
;
4212 if (eh
->elf
.root
.type
== bfd_link_hash_indirect
)
4215 if (eh
->elf
.root
.type
== bfd_link_hash_warning
)
4216 eh
= (struct ppc_link_hash_entry
*) eh
->elf
.root
.u
.i
.link
;
4218 if (eh
->elf
.root
.root
.string
[0] != '.')
4221 htab
= ppc_hash_table (info
);
4222 fdh
= get_fdh (eh
, htab
);
4224 && !info
->relocatable
4225 && (eh
->elf
.root
.type
== bfd_link_hash_undefined
4226 || eh
->elf
.root
.type
== bfd_link_hash_undefweak
)
4227 && eh
->elf
.ref_regular
)
4229 /* Make an undefweak function descriptor sym, which is enough to
4230 pull in an --as-needed shared lib, but won't cause link
4231 errors. Archives are handled elsewhere. */
4232 fdh
= make_fdh (info
, eh
);
4236 fdh
->elf
.ref_regular
= 1;
4238 else if (fdh
!= NULL
)
4240 unsigned entry_vis
= ELF_ST_VISIBILITY (eh
->elf
.other
) - 1;
4241 unsigned descr_vis
= ELF_ST_VISIBILITY (fdh
->elf
.other
) - 1;
4242 if (entry_vis
< descr_vis
)
4243 fdh
->elf
.other
+= entry_vis
- descr_vis
;
4244 else if (entry_vis
> descr_vis
)
4245 eh
->elf
.other
+= descr_vis
- entry_vis
;
4247 if ((fdh
->elf
.root
.type
== bfd_link_hash_defined
4248 || fdh
->elf
.root
.type
== bfd_link_hash_defweak
)
4249 && eh
->elf
.root
.type
== bfd_link_hash_undefined
)
4251 eh
->elf
.root
.type
= bfd_link_hash_undefweak
;
4252 eh
->was_undefined
= 1;
4253 htab
->twiddled_syms
= 1;
4260 /* Process list of dot-symbols we made in link_hash_newfunc. */
4263 ppc64_elf_check_directives (bfd
*ibfd
, struct bfd_link_info
*info
)
4265 struct ppc_link_hash_table
*htab
;
4266 struct ppc_link_hash_entry
**p
, *eh
;
4268 htab
= ppc_hash_table (info
);
4269 if (!is_ppc64_elf_target (htab
->elf
.root
.creator
))
4272 if (is_ppc64_elf_target (ibfd
->xvec
))
4274 p
= &htab
->dot_syms
;
4275 while ((eh
= *p
) != NULL
)
4278 if (!add_symbol_adjust (eh
, info
))
4280 p
= &eh
->u
.next_dot_sym
;
4284 /* Clear the list for non-ppc64 input files. */
4285 p
= &htab
->dot_syms
;
4286 while ((eh
= *p
) != NULL
)
4289 p
= &eh
->u
.next_dot_sym
;
4292 /* We need to fix the undefs list for any syms we have twiddled to
4294 if (htab
->twiddled_syms
)
4296 bfd_link_repair_undef_list (&htab
->elf
.root
);
4297 htab
->twiddled_syms
= 0;
4302 /* Undo hash table changes when an --as-needed input file is determined
4303 not to be needed. */
4306 ppc64_elf_as_needed_cleanup (bfd
*ibfd ATTRIBUTE_UNUSED
,
4307 struct bfd_link_info
*info
)
4309 ppc_hash_table (info
)->dot_syms
= NULL
;
4314 update_local_sym_info (bfd
*abfd
, Elf_Internal_Shdr
*symtab_hdr
,
4315 unsigned long r_symndx
, bfd_vma r_addend
, int tls_type
)
4317 struct got_entry
**local_got_ents
= elf_local_got_ents (abfd
);
4318 char *local_got_tls_masks
;
4320 if (local_got_ents
== NULL
)
4322 bfd_size_type size
= symtab_hdr
->sh_info
;
4324 size
*= sizeof (*local_got_ents
) + sizeof (*local_got_tls_masks
);
4325 local_got_ents
= bfd_zalloc (abfd
, size
);
4326 if (local_got_ents
== NULL
)
4328 elf_local_got_ents (abfd
) = local_got_ents
;
4331 if ((tls_type
& TLS_EXPLICIT
) == 0)
4333 struct got_entry
*ent
;
4335 for (ent
= local_got_ents
[r_symndx
]; ent
!= NULL
; ent
= ent
->next
)
4336 if (ent
->addend
== r_addend
4337 && ent
->owner
== abfd
4338 && ent
->tls_type
== tls_type
)
4342 bfd_size_type amt
= sizeof (*ent
);
4343 ent
= bfd_alloc (abfd
, amt
);
4346 ent
->next
= local_got_ents
[r_symndx
];
4347 ent
->addend
= r_addend
;
4349 ent
->tls_type
= tls_type
;
4350 ent
->got
.refcount
= 0;
4351 local_got_ents
[r_symndx
] = ent
;
4353 ent
->got
.refcount
+= 1;
4356 local_got_tls_masks
= (char *) (local_got_ents
+ symtab_hdr
->sh_info
);
4357 local_got_tls_masks
[r_symndx
] |= tls_type
;
4362 update_plt_info (bfd
*abfd
, struct ppc_link_hash_entry
*eh
, bfd_vma addend
)
4364 struct plt_entry
*ent
;
4366 for (ent
= eh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
4367 if (ent
->addend
== addend
)
4371 bfd_size_type amt
= sizeof (*ent
);
4372 ent
= bfd_alloc (abfd
, amt
);
4375 ent
->next
= eh
->elf
.plt
.plist
;
4376 ent
->addend
= addend
;
4377 ent
->plt
.refcount
= 0;
4378 eh
->elf
.plt
.plist
= ent
;
4380 ent
->plt
.refcount
+= 1;
4381 eh
->elf
.needs_plt
= 1;
4382 if (eh
->elf
.root
.root
.string
[0] == '.'
4383 && eh
->elf
.root
.root
.string
[1] != '\0')
4388 /* Look through the relocs for a section during the first phase, and
4389 calculate needed space in the global offset table, procedure
4390 linkage table, and dynamic reloc sections. */
4393 ppc64_elf_check_relocs (bfd
*abfd
, struct bfd_link_info
*info
,
4394 asection
*sec
, const Elf_Internal_Rela
*relocs
)
4396 struct ppc_link_hash_table
*htab
;
4397 Elf_Internal_Shdr
*symtab_hdr
;
4398 struct elf_link_hash_entry
**sym_hashes
, **sym_hashes_end
;
4399 const Elf_Internal_Rela
*rel
;
4400 const Elf_Internal_Rela
*rel_end
;
4402 asection
**opd_sym_map
;
4404 if (info
->relocatable
)
4407 /* Don't do anything special with non-loaded, non-alloced sections.
4408 In particular, any relocs in such sections should not affect GOT
4409 and PLT reference counting (ie. we don't allow them to create GOT
4410 or PLT entries), there's no possibility or desire to optimize TLS
4411 relocs, and there's not much point in propagating relocs to shared
4412 libs that the dynamic linker won't relocate. */
4413 if ((sec
->flags
& SEC_ALLOC
) == 0)
4416 htab
= ppc_hash_table (info
);
4417 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
4419 sym_hashes
= elf_sym_hashes (abfd
);
4420 sym_hashes_end
= (sym_hashes
4421 + symtab_hdr
->sh_size
/ sizeof (Elf64_External_Sym
)
4422 - symtab_hdr
->sh_info
);
4426 if (strcmp (bfd_get_section_name (abfd
, sec
), ".opd") == 0)
4428 /* Garbage collection needs some extra help with .opd sections.
4429 We don't want to necessarily keep everything referenced by
4430 relocs in .opd, as that would keep all functions. Instead,
4431 if we reference an .opd symbol (a function descriptor), we
4432 want to keep the function code symbol's section. This is
4433 easy for global symbols, but for local syms we need to keep
4434 information about the associated function section. Later, if
4435 edit_opd deletes entries, we'll use this array to adjust
4436 local syms in .opd. */
4438 asection
*func_section
;
4443 amt
= sec
->size
* sizeof (union opd_info
) / 8;
4444 opd_sym_map
= bfd_zalloc (abfd
, amt
);
4445 if (opd_sym_map
== NULL
)
4447 ppc64_elf_section_data (sec
)->u
.opd_func_sec
= opd_sym_map
;
4448 BFD_ASSERT (ppc64_elf_section_data (sec
)->sec_type
== sec_normal
);
4449 ppc64_elf_section_data (sec
)->sec_type
= sec_opd
;
4452 if (htab
->sfpr
== NULL
4453 && !create_linkage_sections (htab
->elf
.dynobj
, info
))
4456 rel_end
= relocs
+ sec
->reloc_count
;
4457 for (rel
= relocs
; rel
< rel_end
; rel
++)
4459 unsigned long r_symndx
;
4460 struct elf_link_hash_entry
*h
;
4461 enum elf_ppc64_reloc_type r_type
;
4463 struct _ppc64_elf_section_data
*ppc64_sec
;
4465 r_symndx
= ELF64_R_SYM (rel
->r_info
);
4466 if (r_symndx
< symtab_hdr
->sh_info
)
4470 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
4471 while (h
->root
.type
== bfd_link_hash_indirect
4472 || h
->root
.type
== bfd_link_hash_warning
)
4473 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
4476 r_type
= ELF64_R_TYPE (rel
->r_info
);
4479 case R_PPC64_GOT_TLSLD16
:
4480 case R_PPC64_GOT_TLSLD16_LO
:
4481 case R_PPC64_GOT_TLSLD16_HI
:
4482 case R_PPC64_GOT_TLSLD16_HA
:
4483 ppc64_tlsld_got (abfd
)->refcount
+= 1;
4484 tls_type
= TLS_TLS
| TLS_LD
;
4487 case R_PPC64_GOT_TLSGD16
:
4488 case R_PPC64_GOT_TLSGD16_LO
:
4489 case R_PPC64_GOT_TLSGD16_HI
:
4490 case R_PPC64_GOT_TLSGD16_HA
:
4491 tls_type
= TLS_TLS
| TLS_GD
;
4494 case R_PPC64_GOT_TPREL16_DS
:
4495 case R_PPC64_GOT_TPREL16_LO_DS
:
4496 case R_PPC64_GOT_TPREL16_HI
:
4497 case R_PPC64_GOT_TPREL16_HA
:
4499 info
->flags
|= DF_STATIC_TLS
;
4500 tls_type
= TLS_TLS
| TLS_TPREL
;
4503 case R_PPC64_GOT_DTPREL16_DS
:
4504 case R_PPC64_GOT_DTPREL16_LO_DS
:
4505 case R_PPC64_GOT_DTPREL16_HI
:
4506 case R_PPC64_GOT_DTPREL16_HA
:
4507 tls_type
= TLS_TLS
| TLS_DTPREL
;
4509 sec
->has_tls_reloc
= 1;
4513 case R_PPC64_GOT16_DS
:
4514 case R_PPC64_GOT16_HA
:
4515 case R_PPC64_GOT16_HI
:
4516 case R_PPC64_GOT16_LO
:
4517 case R_PPC64_GOT16_LO_DS
:
4518 /* This symbol requires a global offset table entry. */
4519 sec
->has_toc_reloc
= 1;
4520 if (ppc64_elf_tdata (abfd
)->got
== NULL
4521 && !create_got_section (abfd
, info
))
4526 struct ppc_link_hash_entry
*eh
;
4527 struct got_entry
*ent
;
4529 eh
= (struct ppc_link_hash_entry
*) h
;
4530 for (ent
= eh
->elf
.got
.glist
; ent
!= NULL
; ent
= ent
->next
)
4531 if (ent
->addend
== rel
->r_addend
4532 && ent
->owner
== abfd
4533 && ent
->tls_type
== tls_type
)
4537 bfd_size_type amt
= sizeof (*ent
);
4538 ent
= bfd_alloc (abfd
, amt
);
4541 ent
->next
= eh
->elf
.got
.glist
;
4542 ent
->addend
= rel
->r_addend
;
4544 ent
->tls_type
= tls_type
;
4545 ent
->got
.refcount
= 0;
4546 eh
->elf
.got
.glist
= ent
;
4548 ent
->got
.refcount
+= 1;
4549 eh
->tls_mask
|= tls_type
;
4552 /* This is a global offset table entry for a local symbol. */
4553 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
4554 rel
->r_addend
, tls_type
))
4558 case R_PPC64_PLT16_HA
:
4559 case R_PPC64_PLT16_HI
:
4560 case R_PPC64_PLT16_LO
:
4563 /* This symbol requires a procedure linkage table entry. We
4564 actually build the entry in adjust_dynamic_symbol,
4565 because this might be a case of linking PIC code without
4566 linking in any dynamic objects, in which case we don't
4567 need to generate a procedure linkage table after all. */
4570 /* It does not make sense to have a procedure linkage
4571 table entry for a local symbol. */
4572 bfd_set_error (bfd_error_bad_value
);
4576 if (!update_plt_info (abfd
, (struct ppc_link_hash_entry
*) h
,
4581 /* The following relocations don't need to propagate the
4582 relocation if linking a shared object since they are
4583 section relative. */
4584 case R_PPC64_SECTOFF
:
4585 case R_PPC64_SECTOFF_LO
:
4586 case R_PPC64_SECTOFF_HI
:
4587 case R_PPC64_SECTOFF_HA
:
4588 case R_PPC64_SECTOFF_DS
:
4589 case R_PPC64_SECTOFF_LO_DS
:
4590 case R_PPC64_DTPREL16
:
4591 case R_PPC64_DTPREL16_LO
:
4592 case R_PPC64_DTPREL16_HI
:
4593 case R_PPC64_DTPREL16_HA
:
4594 case R_PPC64_DTPREL16_DS
:
4595 case R_PPC64_DTPREL16_LO_DS
:
4596 case R_PPC64_DTPREL16_HIGHER
:
4597 case R_PPC64_DTPREL16_HIGHERA
:
4598 case R_PPC64_DTPREL16_HIGHEST
:
4599 case R_PPC64_DTPREL16_HIGHESTA
:
4604 case R_PPC64_TOC16_LO
:
4605 case R_PPC64_TOC16_HI
:
4606 case R_PPC64_TOC16_HA
:
4607 case R_PPC64_TOC16_DS
:
4608 case R_PPC64_TOC16_LO_DS
:
4609 sec
->has_toc_reloc
= 1;
4612 /* This relocation describes the C++ object vtable hierarchy.
4613 Reconstruct it for later use during GC. */
4614 case R_PPC64_GNU_VTINHERIT
:
4615 if (!bfd_elf_gc_record_vtinherit (abfd
, sec
, h
, rel
->r_offset
))
4619 /* This relocation describes which C++ vtable entries are actually
4620 used. Record for later use during GC. */
4621 case R_PPC64_GNU_VTENTRY
:
4622 BFD_ASSERT (h
!= NULL
);
4624 && !bfd_elf_gc_record_vtentry (abfd
, sec
, h
, rel
->r_addend
))
4629 case R_PPC64_REL14_BRTAKEN
:
4630 case R_PPC64_REL14_BRNTAKEN
:
4632 asection
*dest
= NULL
;
4634 /* Heuristic: If jumping outside our section, chances are
4635 we are going to need a stub. */
4638 /* If the sym is weak it may be overridden later, so
4639 don't assume we know where a weak sym lives. */
4640 if (h
->root
.type
== bfd_link_hash_defined
)
4641 dest
= h
->root
.u
.def
.section
;
4644 dest
= bfd_section_from_r_symndx (abfd
, &htab
->sym_sec
,
4647 ppc64_elf_section_data (sec
)->has_14bit_branch
= 1;
4654 /* We may need a .plt entry if the function this reloc
4655 refers to is in a shared lib. */
4656 if (!update_plt_info (abfd
, (struct ppc_link_hash_entry
*) h
,
4659 if (h
== &htab
->tls_get_addr
->elf
4660 || h
== &htab
->tls_get_addr_fd
->elf
)
4661 sec
->has_tls_reloc
= 1;
4662 else if (htab
->tls_get_addr
== NULL
4663 && CONST_STRNEQ (h
->root
.root
.string
, ".__tls_get_addr")
4664 && (h
->root
.root
.string
[15] == 0
4665 || h
->root
.root
.string
[15] == '@'))
4667 htab
->tls_get_addr
= (struct ppc_link_hash_entry
*) h
;
4668 sec
->has_tls_reloc
= 1;
4670 else if (htab
->tls_get_addr_fd
== NULL
4671 && CONST_STRNEQ (h
->root
.root
.string
, "__tls_get_addr")
4672 && (h
->root
.root
.string
[14] == 0
4673 || h
->root
.root
.string
[14] == '@'))
4675 htab
->tls_get_addr_fd
= (struct ppc_link_hash_entry
*) h
;
4676 sec
->has_tls_reloc
= 1;
4681 case R_PPC64_TPREL64
:
4682 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_TPREL
;
4684 info
->flags
|= DF_STATIC_TLS
;
4687 case R_PPC64_DTPMOD64
:
4688 if (rel
+ 1 < rel_end
4689 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
4690 && rel
[1].r_offset
== rel
->r_offset
+ 8)
4691 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_GD
;
4693 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_LD
;
4696 case R_PPC64_DTPREL64
:
4697 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_DTPREL
;
4699 && rel
[-1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPMOD64
)
4700 && rel
[-1].r_offset
== rel
->r_offset
- 8)
4701 /* This is the second reloc of a dtpmod, dtprel pair.
4702 Don't mark with TLS_DTPREL. */
4706 sec
->has_tls_reloc
= 1;
4709 struct ppc_link_hash_entry
*eh
;
4710 eh
= (struct ppc_link_hash_entry
*) h
;
4711 eh
->tls_mask
|= tls_type
;
4714 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
4715 rel
->r_addend
, tls_type
))
4718 ppc64_sec
= ppc64_elf_section_data (sec
);
4719 if (ppc64_sec
->sec_type
!= sec_toc
)
4721 /* One extra to simplify get_tls_mask. */
4722 bfd_size_type amt
= sec
->size
* sizeof (unsigned) / 8 + 1;
4723 ppc64_sec
->u
.t_symndx
= bfd_zalloc (abfd
, amt
);
4724 if (ppc64_sec
->u
.t_symndx
== NULL
)
4726 BFD_ASSERT (ppc64_sec
->sec_type
== sec_normal
);
4727 ppc64_sec
->sec_type
= sec_toc
;
4729 BFD_ASSERT (rel
->r_offset
% 8 == 0);
4730 ppc64_sec
->u
.t_symndx
[rel
->r_offset
/ 8] = r_symndx
;
4732 /* Mark the second slot of a GD or LD entry.
4733 -1 to indicate GD and -2 to indicate LD. */
4734 if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_GD
))
4735 ppc64_sec
->u
.t_symndx
[rel
->r_offset
/ 8 + 1] = -1;
4736 else if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_LD
))
4737 ppc64_sec
->u
.t_symndx
[rel
->r_offset
/ 8 + 1] = -2;
4740 case R_PPC64_TPREL16
:
4741 case R_PPC64_TPREL16_LO
:
4742 case R_PPC64_TPREL16_HI
:
4743 case R_PPC64_TPREL16_HA
:
4744 case R_PPC64_TPREL16_DS
:
4745 case R_PPC64_TPREL16_LO_DS
:
4746 case R_PPC64_TPREL16_HIGHER
:
4747 case R_PPC64_TPREL16_HIGHERA
:
4748 case R_PPC64_TPREL16_HIGHEST
:
4749 case R_PPC64_TPREL16_HIGHESTA
:
4752 info
->flags
|= DF_STATIC_TLS
;
4757 case R_PPC64_ADDR64
:
4758 if (opd_sym_map
!= NULL
4759 && rel
+ 1 < rel_end
4760 && ELF64_R_TYPE ((rel
+ 1)->r_info
) == R_PPC64_TOC
)
4764 if (h
->root
.root
.string
[0] == '.'
4765 && h
->root
.root
.string
[1] != 0
4766 && get_fdh ((struct ppc_link_hash_entry
*) h
, htab
))
4769 ((struct ppc_link_hash_entry
*) h
)->is_func
= 1;
4775 s
= bfd_section_from_r_symndx (abfd
, &htab
->sym_sec
, sec
,
4780 opd_sym_map
[rel
->r_offset
/ 8] = s
;
4788 case R_PPC64_ADDR14
:
4789 case R_PPC64_ADDR14_BRNTAKEN
:
4790 case R_PPC64_ADDR14_BRTAKEN
:
4791 case R_PPC64_ADDR16
:
4792 case R_PPC64_ADDR16_DS
:
4793 case R_PPC64_ADDR16_HA
:
4794 case R_PPC64_ADDR16_HI
:
4795 case R_PPC64_ADDR16_HIGHER
:
4796 case R_PPC64_ADDR16_HIGHERA
:
4797 case R_PPC64_ADDR16_HIGHEST
:
4798 case R_PPC64_ADDR16_HIGHESTA
:
4799 case R_PPC64_ADDR16_LO
:
4800 case R_PPC64_ADDR16_LO_DS
:
4801 case R_PPC64_ADDR24
:
4802 case R_PPC64_ADDR32
:
4803 case R_PPC64_UADDR16
:
4804 case R_PPC64_UADDR32
:
4805 case R_PPC64_UADDR64
:
4807 if (h
!= NULL
&& !info
->shared
)
4808 /* We may need a copy reloc. */
4811 /* Don't propagate .opd relocs. */
4812 if (NO_OPD_RELOCS
&& opd_sym_map
!= NULL
)
4815 /* If we are creating a shared library, and this is a reloc
4816 against a global symbol, or a non PC relative reloc
4817 against a local symbol, then we need to copy the reloc
4818 into the shared library. However, if we are linking with
4819 -Bsymbolic, we do not need to copy a reloc against a
4820 global symbol which is defined in an object we are
4821 including in the link (i.e., DEF_REGULAR is set). At
4822 this point we have not seen all the input files, so it is
4823 possible that DEF_REGULAR is not set now but will be set
4824 later (it is never cleared). In case of a weak definition,
4825 DEF_REGULAR may be cleared later by a strong definition in
4826 a shared library. We account for that possibility below by
4827 storing information in the dyn_relocs field of the hash
4828 table entry. A similar situation occurs when creating
4829 shared libraries and symbol visibility changes render the
4832 If on the other hand, we are creating an executable, we
4833 may need to keep relocations for symbols satisfied by a
4834 dynamic library if we manage to avoid copy relocs for the
4838 && (MUST_BE_DYN_RELOC (r_type
)
4840 && (! info
->symbolic
4841 || h
->root
.type
== bfd_link_hash_defweak
4842 || !h
->def_regular
))))
4843 || (ELIMINATE_COPY_RELOCS
4846 && (h
->root
.type
== bfd_link_hash_defweak
4847 || !h
->def_regular
)))
4849 struct ppc_dyn_relocs
*p
;
4850 struct ppc_dyn_relocs
**head
;
4852 /* We must copy these reloc types into the output file.
4853 Create a reloc section in dynobj and make room for
4860 name
= (bfd_elf_string_from_elf_section
4862 elf_elfheader (abfd
)->e_shstrndx
,
4863 elf_section_data (sec
)->rel_hdr
.sh_name
));
4867 if (! CONST_STRNEQ (name
, ".rela")
4868 || strcmp (bfd_get_section_name (abfd
, sec
),
4871 (*_bfd_error_handler
)
4872 (_("%B: bad relocation section name `%s\'"),
4874 bfd_set_error (bfd_error_bad_value
);
4877 dynobj
= htab
->elf
.dynobj
;
4878 sreloc
= bfd_get_section_by_name (dynobj
, name
);
4883 flags
= (SEC_HAS_CONTENTS
| SEC_READONLY
4884 | SEC_IN_MEMORY
| SEC_LINKER_CREATED
4885 | SEC_ALLOC
| SEC_LOAD
);
4886 sreloc
= bfd_make_section_with_flags (dynobj
,
4890 || ! bfd_set_section_alignment (dynobj
, sreloc
, 3))
4893 elf_section_data (sec
)->sreloc
= sreloc
;
4896 /* If this is a global symbol, we count the number of
4897 relocations we need for this symbol. */
4900 head
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
4904 /* Track dynamic relocs needed for local syms too.
4905 We really need local syms available to do this
4911 s
= bfd_section_from_r_symndx (abfd
, &htab
->sym_sec
,
4916 vpp
= &elf_section_data (s
)->local_dynrel
;
4917 head
= (struct ppc_dyn_relocs
**) vpp
;
4921 if (p
== NULL
|| p
->sec
!= sec
)
4923 p
= bfd_alloc (htab
->elf
.dynobj
, sizeof *p
);
4934 if (!MUST_BE_DYN_RELOC (r_type
))
4947 /* OFFSET in OPD_SEC specifies a function descriptor. Return the address
4948 of the code entry point, and its section. */
4951 opd_entry_value (asection
*opd_sec
,
4953 asection
**code_sec
,
4956 bfd
*opd_bfd
= opd_sec
->owner
;
4957 Elf_Internal_Rela
*relocs
;
4958 Elf_Internal_Rela
*lo
, *hi
, *look
;
4961 /* No relocs implies we are linking a --just-symbols object. */
4962 if (opd_sec
->reloc_count
== 0)
4966 if (!bfd_get_section_contents (opd_bfd
, opd_sec
, &val
, offset
, 8))
4967 return (bfd_vma
) -1;
4969 if (code_sec
!= NULL
)
4971 asection
*sec
, *likely
= NULL
;
4972 for (sec
= opd_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
4974 && (sec
->flags
& SEC_LOAD
) != 0
4975 && (sec
->flags
& SEC_ALLOC
) != 0)
4980 if (code_off
!= NULL
)
4981 *code_off
= val
- likely
->vma
;
4987 relocs
= ppc64_elf_tdata (opd_bfd
)->opd_relocs
;
4989 relocs
= _bfd_elf_link_read_relocs (opd_bfd
, opd_sec
, NULL
, NULL
, TRUE
);
4991 /* Go find the opd reloc at the sym address. */
4993 BFD_ASSERT (lo
!= NULL
);
4994 hi
= lo
+ opd_sec
->reloc_count
- 1; /* ignore last reloc */
4998 look
= lo
+ (hi
- lo
) / 2;
4999 if (look
->r_offset
< offset
)
5001 else if (look
->r_offset
> offset
)
5005 Elf_Internal_Shdr
*symtab_hdr
= &elf_tdata (opd_bfd
)->symtab_hdr
;
5006 if (ELF64_R_TYPE (look
->r_info
) == R_PPC64_ADDR64
5007 && ELF64_R_TYPE ((look
+ 1)->r_info
) == R_PPC64_TOC
)
5009 unsigned long symndx
= ELF64_R_SYM (look
->r_info
);
5012 if (symndx
< symtab_hdr
->sh_info
)
5014 Elf_Internal_Sym
*sym
;
5016 sym
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
5019 sym
= bfd_elf_get_elf_syms (opd_bfd
, symtab_hdr
,
5020 symtab_hdr
->sh_info
,
5021 0, NULL
, NULL
, NULL
);
5024 symtab_hdr
->contents
= (bfd_byte
*) sym
;
5028 val
= sym
->st_value
;
5030 if ((sym
->st_shndx
!= SHN_UNDEF
5031 && sym
->st_shndx
< SHN_LORESERVE
)
5032 || sym
->st_shndx
> SHN_HIRESERVE
)
5033 sec
= bfd_section_from_elf_index (opd_bfd
, sym
->st_shndx
);
5034 BFD_ASSERT ((sec
->flags
& SEC_MERGE
) == 0);
5038 struct elf_link_hash_entry
**sym_hashes
;
5039 struct elf_link_hash_entry
*rh
;
5041 sym_hashes
= elf_sym_hashes (opd_bfd
);
5042 rh
= sym_hashes
[symndx
- symtab_hdr
->sh_info
];
5043 while (rh
->root
.type
== bfd_link_hash_indirect
5044 || rh
->root
.type
== bfd_link_hash_warning
)
5045 rh
= ((struct elf_link_hash_entry
*) rh
->root
.u
.i
.link
);
5046 BFD_ASSERT (rh
->root
.type
== bfd_link_hash_defined
5047 || rh
->root
.type
== bfd_link_hash_defweak
);
5048 val
= rh
->root
.u
.def
.value
;
5049 sec
= rh
->root
.u
.def
.section
;
5051 val
+= look
->r_addend
;
5052 if (code_off
!= NULL
)
5054 if (code_sec
!= NULL
)
5056 if (sec
!= NULL
&& sec
->output_section
!= NULL
)
5057 val
+= sec
->output_section
->vma
+ sec
->output_offset
;
5066 /* Mark sections containing dynamically referenced symbols. When
5067 building shared libraries, we must assume that any visible symbol is
5071 ppc64_elf_gc_mark_dynamic_ref (struct elf_link_hash_entry
*h
, void *inf
)
5073 struct bfd_link_info
*info
= (struct bfd_link_info
*) inf
;
5074 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) h
;
5076 if (eh
->elf
.root
.type
== bfd_link_hash_warning
)
5077 eh
= (struct ppc_link_hash_entry
*) eh
->elf
.root
.u
.i
.link
;
5079 /* Dynamic linking info is on the func descriptor sym. */
5081 && eh
->oh
->is_func_descriptor
5082 && (eh
->oh
->elf
.root
.type
== bfd_link_hash_defined
5083 || eh
->oh
->elf
.root
.type
== bfd_link_hash_defweak
))
5086 if ((eh
->elf
.root
.type
== bfd_link_hash_defined
5087 || eh
->elf
.root
.type
== bfd_link_hash_defweak
)
5088 && (eh
->elf
.ref_dynamic
5089 || (!info
->executable
5090 && eh
->elf
.def_regular
5091 && ELF_ST_VISIBILITY (eh
->elf
.other
) != STV_INTERNAL
5092 && ELF_ST_VISIBILITY (eh
->elf
.other
) != STV_HIDDEN
)))
5096 eh
->elf
.root
.u
.def
.section
->flags
|= SEC_KEEP
;
5098 /* Function descriptor syms cause the associated
5099 function code sym section to be marked. */
5100 if (eh
->is_func_descriptor
5101 && (eh
->oh
->elf
.root
.type
== bfd_link_hash_defined
5102 || eh
->oh
->elf
.root
.type
== bfd_link_hash_defweak
))
5103 eh
->oh
->elf
.root
.u
.def
.section
->flags
|= SEC_KEEP
;
5104 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
5105 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
5106 eh
->elf
.root
.u
.def
.value
,
5107 &code_sec
, NULL
) != (bfd_vma
) -1)
5108 code_sec
->flags
|= SEC_KEEP
;
5114 /* Return the section that should be marked against GC for a given
5118 ppc64_elf_gc_mark_hook (asection
*sec
,
5119 struct bfd_link_info
*info
,
5120 Elf_Internal_Rela
*rel
,
5121 struct elf_link_hash_entry
*h
,
5122 Elf_Internal_Sym
*sym
)
5126 /* First mark all our entry sym sections. */
5127 if (info
->gc_sym_list
!= NULL
)
5129 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
5130 struct bfd_sym_chain
*sym
= info
->gc_sym_list
;
5132 info
->gc_sym_list
= NULL
;
5133 for (; sym
!= NULL
; sym
= sym
->next
)
5135 struct ppc_link_hash_entry
*eh
;
5137 eh
= (struct ppc_link_hash_entry
*)
5138 elf_link_hash_lookup (&htab
->elf
, sym
->name
, FALSE
, FALSE
, FALSE
);
5141 if (eh
->elf
.root
.type
!= bfd_link_hash_defined
5142 && eh
->elf
.root
.type
!= bfd_link_hash_defweak
)
5145 if (eh
->is_func_descriptor
5146 && (eh
->oh
->elf
.root
.type
== bfd_link_hash_defined
5147 || eh
->oh
->elf
.root
.type
== bfd_link_hash_defweak
))
5148 rsec
= eh
->oh
->elf
.root
.u
.def
.section
;
5149 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
5150 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
5151 eh
->elf
.root
.u
.def
.value
,
5152 &rsec
, NULL
) != (bfd_vma
) -1)
5158 _bfd_elf_gc_mark (info
, rsec
, ppc64_elf_gc_mark_hook
);
5160 rsec
= eh
->elf
.root
.u
.def
.section
;
5162 _bfd_elf_gc_mark (info
, rsec
, ppc64_elf_gc_mark_hook
);
5166 /* Syms return NULL if we're marking .opd, so we avoid marking all
5167 function sections, as all functions are referenced in .opd. */
5169 if (get_opd_info (sec
) != NULL
)
5174 enum elf_ppc64_reloc_type r_type
;
5175 struct ppc_link_hash_entry
*eh
;
5177 r_type
= ELF64_R_TYPE (rel
->r_info
);
5180 case R_PPC64_GNU_VTINHERIT
:
5181 case R_PPC64_GNU_VTENTRY
:
5185 switch (h
->root
.type
)
5187 case bfd_link_hash_defined
:
5188 case bfd_link_hash_defweak
:
5189 eh
= (struct ppc_link_hash_entry
*) h
;
5191 && eh
->oh
->is_func_descriptor
5192 && (eh
->oh
->elf
.root
.type
== bfd_link_hash_defined
5193 || eh
->oh
->elf
.root
.type
== bfd_link_hash_defweak
))
5196 /* Function descriptor syms cause the associated
5197 function code sym section to be marked. */
5198 if (eh
->is_func_descriptor
5199 && (eh
->oh
->elf
.root
.type
== bfd_link_hash_defined
5200 || eh
->oh
->elf
.root
.type
== bfd_link_hash_defweak
))
5202 /* They also mark their opd section. */
5203 if (!eh
->elf
.root
.u
.def
.section
->gc_mark
)
5204 _bfd_elf_gc_mark (info
, eh
->elf
.root
.u
.def
.section
,
5205 ppc64_elf_gc_mark_hook
);
5207 rsec
= eh
->oh
->elf
.root
.u
.def
.section
;
5209 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
5210 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
5211 eh
->elf
.root
.u
.def
.value
,
5212 &rsec
, NULL
) != (bfd_vma
) -1)
5214 if (!eh
->elf
.root
.u
.def
.section
->gc_mark
)
5215 _bfd_elf_gc_mark (info
, eh
->elf
.root
.u
.def
.section
,
5216 ppc64_elf_gc_mark_hook
);
5219 rsec
= h
->root
.u
.def
.section
;
5222 case bfd_link_hash_common
:
5223 rsec
= h
->root
.u
.c
.p
->section
;
5233 asection
**opd_sym_section
;
5235 rsec
= bfd_section_from_elf_index (sec
->owner
, sym
->st_shndx
);
5236 opd_sym_section
= get_opd_info (rsec
);
5237 if (opd_sym_section
!= NULL
)
5240 _bfd_elf_gc_mark (info
, rsec
, ppc64_elf_gc_mark_hook
);
5242 rsec
= opd_sym_section
[(sym
->st_value
+ rel
->r_addend
) / 8];
5249 /* Update the .got, .plt. and dynamic reloc reference counts for the
5250 section being removed. */
5253 ppc64_elf_gc_sweep_hook (bfd
*abfd
, struct bfd_link_info
*info
,
5254 asection
*sec
, const Elf_Internal_Rela
*relocs
)
5256 struct ppc_link_hash_table
*htab
;
5257 Elf_Internal_Shdr
*symtab_hdr
;
5258 struct elf_link_hash_entry
**sym_hashes
;
5259 struct got_entry
**local_got_ents
;
5260 const Elf_Internal_Rela
*rel
, *relend
;
5262 if ((sec
->flags
& SEC_ALLOC
) == 0)
5265 elf_section_data (sec
)->local_dynrel
= NULL
;
5267 htab
= ppc_hash_table (info
);
5268 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
5269 sym_hashes
= elf_sym_hashes (abfd
);
5270 local_got_ents
= elf_local_got_ents (abfd
);
5272 relend
= relocs
+ sec
->reloc_count
;
5273 for (rel
= relocs
; rel
< relend
; rel
++)
5275 unsigned long r_symndx
;
5276 enum elf_ppc64_reloc_type r_type
;
5277 struct elf_link_hash_entry
*h
= NULL
;
5280 r_symndx
= ELF64_R_SYM (rel
->r_info
);
5281 r_type
= ELF64_R_TYPE (rel
->r_info
);
5282 if (r_symndx
>= symtab_hdr
->sh_info
)
5284 struct ppc_link_hash_entry
*eh
;
5285 struct ppc_dyn_relocs
**pp
;
5286 struct ppc_dyn_relocs
*p
;
5288 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
5289 while (h
->root
.type
== bfd_link_hash_indirect
5290 || h
->root
.type
== bfd_link_hash_warning
)
5291 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
5292 eh
= (struct ppc_link_hash_entry
*) h
;
5294 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; pp
= &p
->next
)
5297 /* Everything must go for SEC. */
5305 case R_PPC64_GOT_TLSLD16
:
5306 case R_PPC64_GOT_TLSLD16_LO
:
5307 case R_PPC64_GOT_TLSLD16_HI
:
5308 case R_PPC64_GOT_TLSLD16_HA
:
5309 ppc64_tlsld_got (abfd
)->refcount
-= 1;
5310 tls_type
= TLS_TLS
| TLS_LD
;
5313 case R_PPC64_GOT_TLSGD16
:
5314 case R_PPC64_GOT_TLSGD16_LO
:
5315 case R_PPC64_GOT_TLSGD16_HI
:
5316 case R_PPC64_GOT_TLSGD16_HA
:
5317 tls_type
= TLS_TLS
| TLS_GD
;
5320 case R_PPC64_GOT_TPREL16_DS
:
5321 case R_PPC64_GOT_TPREL16_LO_DS
:
5322 case R_PPC64_GOT_TPREL16_HI
:
5323 case R_PPC64_GOT_TPREL16_HA
:
5324 tls_type
= TLS_TLS
| TLS_TPREL
;
5327 case R_PPC64_GOT_DTPREL16_DS
:
5328 case R_PPC64_GOT_DTPREL16_LO_DS
:
5329 case R_PPC64_GOT_DTPREL16_HI
:
5330 case R_PPC64_GOT_DTPREL16_HA
:
5331 tls_type
= TLS_TLS
| TLS_DTPREL
;
5335 case R_PPC64_GOT16_DS
:
5336 case R_PPC64_GOT16_HA
:
5337 case R_PPC64_GOT16_HI
:
5338 case R_PPC64_GOT16_LO
:
5339 case R_PPC64_GOT16_LO_DS
:
5342 struct got_entry
*ent
;
5347 ent
= local_got_ents
[r_symndx
];
5349 for (; ent
!= NULL
; ent
= ent
->next
)
5350 if (ent
->addend
== rel
->r_addend
5351 && ent
->owner
== abfd
5352 && ent
->tls_type
== tls_type
)
5356 if (ent
->got
.refcount
> 0)
5357 ent
->got
.refcount
-= 1;
5361 case R_PPC64_PLT16_HA
:
5362 case R_PPC64_PLT16_HI
:
5363 case R_PPC64_PLT16_LO
:
5367 case R_PPC64_REL14_BRNTAKEN
:
5368 case R_PPC64_REL14_BRTAKEN
:
5372 struct plt_entry
*ent
;
5374 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
5375 if (ent
->addend
== rel
->r_addend
)
5379 if (ent
->plt
.refcount
> 0)
5380 ent
->plt
.refcount
-= 1;
5391 /* The maximum size of .sfpr. */
5392 #define SFPR_MAX (218*4)
5394 struct sfpr_def_parms
5396 const char name
[12];
5397 unsigned char lo
, hi
;
5398 bfd_byte
* (*write_ent
) (bfd
*, bfd_byte
*, int);
5399 bfd_byte
* (*write_tail
) (bfd
*, bfd_byte
*, int);
5402 /* Auto-generate _save*, _rest* functions in .sfpr. */
5405 sfpr_define (struct bfd_link_info
*info
, const struct sfpr_def_parms
*parm
)
5407 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
5409 size_t len
= strlen (parm
->name
);
5410 bfd_boolean writing
= FALSE
;
5413 memcpy (sym
, parm
->name
, len
);
5416 for (i
= parm
->lo
; i
<= parm
->hi
; i
++)
5418 struct elf_link_hash_entry
*h
;
5420 sym
[len
+ 0] = i
/ 10 + '0';
5421 sym
[len
+ 1] = i
% 10 + '0';
5422 h
= elf_link_hash_lookup (&htab
->elf
, sym
, FALSE
, FALSE
, TRUE
);
5426 h
->root
.type
= bfd_link_hash_defined
;
5427 h
->root
.u
.def
.section
= htab
->sfpr
;
5428 h
->root
.u
.def
.value
= htab
->sfpr
->size
;
5431 _bfd_elf_link_hash_hide_symbol (info
, h
, TRUE
);
5433 if (htab
->sfpr
->contents
== NULL
)
5435 htab
->sfpr
->contents
= bfd_alloc (htab
->elf
.dynobj
, SFPR_MAX
);
5436 if (htab
->sfpr
->contents
== NULL
)
5442 bfd_byte
*p
= htab
->sfpr
->contents
+ htab
->sfpr
->size
;
5444 p
= (*parm
->write_ent
) (htab
->elf
.dynobj
, p
, i
);
5446 p
= (*parm
->write_tail
) (htab
->elf
.dynobj
, p
, i
);
5447 htab
->sfpr
->size
= p
- htab
->sfpr
->contents
;
5455 savegpr0 (bfd
*abfd
, bfd_byte
*p
, int r
)
5457 bfd_put_32 (abfd
, STD_R0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
5462 savegpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5464 p
= savegpr0 (abfd
, p
, r
);
5465 bfd_put_32 (abfd
, STD_R0_0R1
+ 16, p
);
5467 bfd_put_32 (abfd
, BLR
, p
);
5472 restgpr0 (bfd
*abfd
, bfd_byte
*p
, int r
)
5474 bfd_put_32 (abfd
, LD_R0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
5479 restgpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5481 bfd_put_32 (abfd
, LD_R0_0R1
+ 16, p
);
5483 p
= restgpr0 (abfd
, p
, r
);
5484 bfd_put_32 (abfd
, MTLR_R0
, p
);
5488 p
= restgpr0 (abfd
, p
, 30);
5489 p
= restgpr0 (abfd
, p
, 31);
5491 bfd_put_32 (abfd
, BLR
, p
);
5496 savegpr1 (bfd
*abfd
, bfd_byte
*p
, int r
)
5498 bfd_put_32 (abfd
, STD_R0_0R12
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
5503 savegpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5505 p
= savegpr1 (abfd
, p
, r
);
5506 bfd_put_32 (abfd
, BLR
, p
);
5511 restgpr1 (bfd
*abfd
, bfd_byte
*p
, int r
)
5513 bfd_put_32 (abfd
, LD_R0_0R12
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
5518 restgpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5520 p
= restgpr1 (abfd
, p
, r
);
5521 bfd_put_32 (abfd
, BLR
, p
);
5526 savefpr (bfd
*abfd
, bfd_byte
*p
, int r
)
5528 bfd_put_32 (abfd
, STFD_FR0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
5533 savefpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5535 p
= savefpr (abfd
, p
, r
);
5536 bfd_put_32 (abfd
, STD_R0_0R1
+ 16, p
);
5538 bfd_put_32 (abfd
, BLR
, p
);
5543 restfpr (bfd
*abfd
, bfd_byte
*p
, int r
)
5545 bfd_put_32 (abfd
, LFD_FR0_0R1
+ (r
<< 21) + (1 << 16) - (32 - r
) * 8, p
);
5550 restfpr0_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5552 bfd_put_32 (abfd
, LD_R0_0R1
+ 16, p
);
5554 p
= restfpr (abfd
, p
, r
);
5555 bfd_put_32 (abfd
, MTLR_R0
, p
);
5559 p
= restfpr (abfd
, p
, 30);
5560 p
= restfpr (abfd
, p
, 31);
5562 bfd_put_32 (abfd
, BLR
, p
);
5567 savefpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5569 p
= savefpr (abfd
, p
, r
);
5570 bfd_put_32 (abfd
, BLR
, p
);
5575 restfpr1_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5577 p
= restfpr (abfd
, p
, r
);
5578 bfd_put_32 (abfd
, BLR
, p
);
5583 savevr (bfd
*abfd
, bfd_byte
*p
, int r
)
5585 bfd_put_32 (abfd
, LI_R12_0
+ (1 << 16) - (32 - r
) * 16, p
);
5587 bfd_put_32 (abfd
, STVX_VR0_R12_R0
+ (r
<< 21), p
);
5592 savevr_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5594 p
= savevr (abfd
, p
, r
);
5595 bfd_put_32 (abfd
, BLR
, p
);
5600 restvr (bfd
*abfd
, bfd_byte
*p
, int r
)
5602 bfd_put_32 (abfd
, LI_R12_0
+ (1 << 16) - (32 - r
) * 16, p
);
5604 bfd_put_32 (abfd
, LVX_VR0_R12_R0
+ (r
<< 21), p
);
5609 restvr_tail (bfd
*abfd
, bfd_byte
*p
, int r
)
5611 p
= restvr (abfd
, p
, r
);
5612 bfd_put_32 (abfd
, BLR
, p
);
5616 /* Called via elf_link_hash_traverse to transfer dynamic linking
5617 information on function code symbol entries to their corresponding
5618 function descriptor symbol entries. */
5621 func_desc_adjust (struct elf_link_hash_entry
*h
, void *inf
)
5623 struct bfd_link_info
*info
;
5624 struct ppc_link_hash_table
*htab
;
5625 struct plt_entry
*ent
;
5626 struct ppc_link_hash_entry
*fh
;
5627 struct ppc_link_hash_entry
*fdh
;
5628 bfd_boolean force_local
;
5630 fh
= (struct ppc_link_hash_entry
*) h
;
5631 if (fh
->elf
.root
.type
== bfd_link_hash_indirect
)
5634 if (fh
->elf
.root
.type
== bfd_link_hash_warning
)
5635 fh
= (struct ppc_link_hash_entry
*) fh
->elf
.root
.u
.i
.link
;
5638 htab
= ppc_hash_table (info
);
5640 /* Resolve undefined references to dot-symbols as the value
5641 in the function descriptor, if we have one in a regular object.
5642 This is to satisfy cases like ".quad .foo". Calls to functions
5643 in dynamic objects are handled elsewhere. */
5644 if (fh
->elf
.root
.type
== bfd_link_hash_undefweak
5645 && fh
->was_undefined
5646 && (fh
->oh
->elf
.root
.type
== bfd_link_hash_defined
5647 || fh
->oh
->elf
.root
.type
== bfd_link_hash_defweak
)
5648 && get_opd_info (fh
->oh
->elf
.root
.u
.def
.section
) != NULL
5649 && opd_entry_value (fh
->oh
->elf
.root
.u
.def
.section
,
5650 fh
->oh
->elf
.root
.u
.def
.value
,
5651 &fh
->elf
.root
.u
.def
.section
,
5652 &fh
->elf
.root
.u
.def
.value
) != (bfd_vma
) -1)
5654 fh
->elf
.root
.type
= fh
->oh
->elf
.root
.type
;
5655 fh
->elf
.forced_local
= 1;
5656 fh
->elf
.def_regular
= fh
->oh
->elf
.def_regular
;
5657 fh
->elf
.def_dynamic
= fh
->oh
->elf
.def_dynamic
;
5660 /* If this is a function code symbol, transfer dynamic linking
5661 information to the function descriptor symbol. */
5665 for (ent
= fh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
5666 if (ent
->plt
.refcount
> 0)
5669 || fh
->elf
.root
.root
.string
[0] != '.'
5670 || fh
->elf
.root
.root
.string
[1] == '\0')
5673 /* Find the corresponding function descriptor symbol. Create it
5674 as undefined if necessary. */
5676 fdh
= get_fdh (fh
, htab
);
5678 while (fdh
->elf
.root
.type
== bfd_link_hash_indirect
5679 || fdh
->elf
.root
.type
== bfd_link_hash_warning
)
5680 fdh
= (struct ppc_link_hash_entry
*) fdh
->elf
.root
.u
.i
.link
;
5684 && (fh
->elf
.root
.type
== bfd_link_hash_undefined
5685 || fh
->elf
.root
.type
== bfd_link_hash_undefweak
))
5687 fdh
= make_fdh (info
, fh
);
5692 /* Fake function descriptors are made undefweak. If the function
5693 code symbol is strong undefined, make the fake sym the same.
5694 If the function code symbol is defined, then force the fake
5695 descriptor local; We can't support overriding of symbols in a
5696 shared library on a fake descriptor. */
5700 && fdh
->elf
.root
.type
== bfd_link_hash_undefweak
)
5702 if (fh
->elf
.root
.type
== bfd_link_hash_undefined
)
5704 fdh
->elf
.root
.type
= bfd_link_hash_undefined
;
5705 bfd_link_add_undef (&htab
->elf
.root
, &fdh
->elf
.root
);
5707 else if (fh
->elf
.root
.type
== bfd_link_hash_defined
5708 || fh
->elf
.root
.type
== bfd_link_hash_defweak
)
5710 _bfd_elf_link_hash_hide_symbol (info
, &fdh
->elf
, TRUE
);
5715 && !fdh
->elf
.forced_local
5717 || fdh
->elf
.def_dynamic
5718 || fdh
->elf
.ref_dynamic
5719 || (fdh
->elf
.root
.type
== bfd_link_hash_undefweak
5720 && ELF_ST_VISIBILITY (fdh
->elf
.other
) == STV_DEFAULT
)))
5722 if (fdh
->elf
.dynindx
== -1)
5723 if (! bfd_elf_link_record_dynamic_symbol (info
, &fdh
->elf
))
5725 fdh
->elf
.ref_regular
|= fh
->elf
.ref_regular
;
5726 fdh
->elf
.ref_dynamic
|= fh
->elf
.ref_dynamic
;
5727 fdh
->elf
.ref_regular_nonweak
|= fh
->elf
.ref_regular_nonweak
;
5728 fdh
->elf
.non_got_ref
|= fh
->elf
.non_got_ref
;
5729 if (ELF_ST_VISIBILITY (fh
->elf
.other
) == STV_DEFAULT
)
5731 move_plt_plist (fh
, fdh
);
5732 fdh
->elf
.needs_plt
= 1;
5734 fdh
->is_func_descriptor
= 1;
5739 /* Now that the info is on the function descriptor, clear the
5740 function code sym info. Any function code syms for which we
5741 don't have a definition in a regular file, we force local.
5742 This prevents a shared library from exporting syms that have
5743 been imported from another library. Function code syms that
5744 are really in the library we must leave global to prevent the
5745 linker dragging in a definition from a static library. */
5746 force_local
= (!fh
->elf
.def_regular
5748 || !fdh
->elf
.def_regular
5749 || fdh
->elf
.forced_local
);
5750 _bfd_elf_link_hash_hide_symbol (info
, &fh
->elf
, force_local
);
5755 /* Called near the start of bfd_elf_size_dynamic_sections. We use
5756 this hook to a) provide some gcc support functions, and b) transfer
5757 dynamic linking information gathered so far on function code symbol
5758 entries, to their corresponding function descriptor symbol entries. */
5761 ppc64_elf_func_desc_adjust (bfd
*obfd ATTRIBUTE_UNUSED
,
5762 struct bfd_link_info
*info
)
5764 struct ppc_link_hash_table
*htab
;
5766 const struct sfpr_def_parms funcs
[] =
5768 { "_savegpr0_", 14, 31, savegpr0
, savegpr0_tail
},
5769 { "_restgpr0_", 14, 29, restgpr0
, restgpr0_tail
},
5770 { "_restgpr0_", 30, 31, restgpr0
, restgpr0_tail
},
5771 { "_savegpr1_", 14, 31, savegpr1
, savegpr1_tail
},
5772 { "_restgpr1_", 14, 31, restgpr1
, restgpr1_tail
},
5773 { "_savefpr_", 14, 31, savefpr
, savefpr0_tail
},
5774 { "_restfpr_", 14, 29, restfpr
, restfpr0_tail
},
5775 { "_restfpr_", 30, 31, restfpr
, restfpr0_tail
},
5776 { "._savef", 14, 31, savefpr
, savefpr1_tail
},
5777 { "._restf", 14, 31, restfpr
, restfpr1_tail
},
5778 { "_savevr_", 20, 31, savevr
, savevr_tail
},
5779 { "_restvr_", 20, 31, restvr
, restvr_tail
}
5782 htab
= ppc_hash_table (info
);
5783 if (htab
->sfpr
== NULL
)
5784 /* We don't have any relocs. */
5787 /* Provide any missing _save* and _rest* functions. */
5788 htab
->sfpr
->size
= 0;
5789 for (i
= 0; i
< sizeof (funcs
) / sizeof (funcs
[0]); i
++)
5790 if (!sfpr_define (info
, &funcs
[i
]))
5793 elf_link_hash_traverse (&htab
->elf
, func_desc_adjust
, info
);
5795 if (htab
->sfpr
->size
== 0)
5796 htab
->sfpr
->flags
|= SEC_EXCLUDE
;
5801 /* Adjust a symbol defined by a dynamic object and referenced by a
5802 regular object. The current definition is in some section of the
5803 dynamic object, but we're not including those sections. We have to
5804 change the definition to something the rest of the link can
5808 ppc64_elf_adjust_dynamic_symbol (struct bfd_link_info
*info
,
5809 struct elf_link_hash_entry
*h
)
5811 struct ppc_link_hash_table
*htab
;
5814 htab
= ppc_hash_table (info
);
5816 /* Deal with function syms. */
5817 if (h
->type
== STT_FUNC
5820 /* Clear procedure linkage table information for any symbol that
5821 won't need a .plt entry. */
5822 struct plt_entry
*ent
;
5823 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
5824 if (ent
->plt
.refcount
> 0)
5827 || SYMBOL_CALLS_LOCAL (info
, h
)
5828 || (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
5829 && h
->root
.type
== bfd_link_hash_undefweak
))
5831 h
->plt
.plist
= NULL
;
5836 h
->plt
.plist
= NULL
;
5838 /* If this is a weak symbol, and there is a real definition, the
5839 processor independent code will have arranged for us to see the
5840 real definition first, and we can just use the same value. */
5841 if (h
->u
.weakdef
!= NULL
)
5843 BFD_ASSERT (h
->u
.weakdef
->root
.type
== bfd_link_hash_defined
5844 || h
->u
.weakdef
->root
.type
== bfd_link_hash_defweak
);
5845 h
->root
.u
.def
.section
= h
->u
.weakdef
->root
.u
.def
.section
;
5846 h
->root
.u
.def
.value
= h
->u
.weakdef
->root
.u
.def
.value
;
5847 if (ELIMINATE_COPY_RELOCS
)
5848 h
->non_got_ref
= h
->u
.weakdef
->non_got_ref
;
5852 /* If we are creating a shared library, we must presume that the
5853 only references to the symbol are via the global offset table.
5854 For such cases we need not do anything here; the relocations will
5855 be handled correctly by relocate_section. */
5859 /* If there are no references to this symbol that do not use the
5860 GOT, we don't need to generate a copy reloc. */
5861 if (!h
->non_got_ref
)
5864 /* Don't generate a copy reloc for symbols defined in the executable. */
5865 if (!h
->def_dynamic
|| !h
->ref_regular
|| h
->def_regular
)
5868 if (ELIMINATE_COPY_RELOCS
)
5870 struct ppc_link_hash_entry
* eh
;
5871 struct ppc_dyn_relocs
*p
;
5873 eh
= (struct ppc_link_hash_entry
*) h
;
5874 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
5876 s
= p
->sec
->output_section
;
5877 if (s
!= NULL
&& (s
->flags
& SEC_READONLY
) != 0)
5881 /* If we didn't find any dynamic relocs in read-only sections, then
5882 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
5890 if (h
->plt
.plist
!= NULL
)
5892 /* We should never get here, but unfortunately there are versions
5893 of gcc out there that improperly (for this ABI) put initialized
5894 function pointers, vtable refs and suchlike in read-only
5895 sections. Allow them to proceed, but warn that this might
5896 break at runtime. */
5897 (*_bfd_error_handler
)
5898 (_("copy reloc against `%s' requires lazy plt linking; "
5899 "avoid setting LD_BIND_NOW=1 or upgrade gcc"),
5900 h
->root
.root
.string
);
5903 /* This is a reference to a symbol defined by a dynamic object which
5904 is not a function. */
5908 (*_bfd_error_handler
) (_("dynamic variable `%s' is zero size"),
5909 h
->root
.root
.string
);
5913 /* We must allocate the symbol in our .dynbss section, which will
5914 become part of the .bss section of the executable. There will be
5915 an entry for this symbol in the .dynsym section. The dynamic
5916 object will contain position independent code, so all references
5917 from the dynamic object to this symbol will go through the global
5918 offset table. The dynamic linker will use the .dynsym entry to
5919 determine the address it must put in the global offset table, so
5920 both the dynamic object and the regular object will refer to the
5921 same memory location for the variable. */
5923 /* We must generate a R_PPC64_COPY reloc to tell the dynamic linker
5924 to copy the initial value out of the dynamic object and into the
5925 runtime process image. We need to remember the offset into the
5926 .rela.bss section we are going to use. */
5927 if ((h
->root
.u
.def
.section
->flags
& SEC_ALLOC
) != 0)
5929 htab
->relbss
->size
+= sizeof (Elf64_External_Rela
);
5935 return _bfd_elf_adjust_dynamic_copy (h
, s
);
5938 /* If given a function descriptor symbol, hide both the function code
5939 sym and the descriptor. */
5941 ppc64_elf_hide_symbol (struct bfd_link_info
*info
,
5942 struct elf_link_hash_entry
*h
,
5943 bfd_boolean force_local
)
5945 struct ppc_link_hash_entry
*eh
;
5946 _bfd_elf_link_hash_hide_symbol (info
, h
, force_local
);
5948 eh
= (struct ppc_link_hash_entry
*) h
;
5949 if (eh
->is_func_descriptor
)
5951 struct ppc_link_hash_entry
*fh
= eh
->oh
;
5956 struct ppc_link_hash_table
*htab
;
5959 /* We aren't supposed to use alloca in BFD because on
5960 systems which do not have alloca the version in libiberty
5961 calls xmalloc, which might cause the program to crash
5962 when it runs out of memory. This function doesn't have a
5963 return status, so there's no way to gracefully return an
5964 error. So cheat. We know that string[-1] can be safely
5965 accessed; It's either a string in an ELF string table,
5966 or allocated in an objalloc structure. */
5968 p
= eh
->elf
.root
.root
.string
- 1;
5971 htab
= ppc_hash_table (info
);
5972 fh
= (struct ppc_link_hash_entry
*)
5973 elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
5976 /* Unfortunately, if it so happens that the string we were
5977 looking for was allocated immediately before this string,
5978 then we overwrote the string terminator. That's the only
5979 reason the lookup should fail. */
5982 q
= eh
->elf
.root
.root
.string
+ strlen (eh
->elf
.root
.root
.string
);
5983 while (q
>= eh
->elf
.root
.root
.string
&& *q
== *p
)
5985 if (q
< eh
->elf
.root
.root
.string
&& *p
== '.')
5986 fh
= (struct ppc_link_hash_entry
*)
5987 elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
5996 _bfd_elf_link_hash_hide_symbol (info
, &fh
->elf
, force_local
);
6001 get_sym_h (struct elf_link_hash_entry
**hp
,
6002 Elf_Internal_Sym
**symp
,
6005 Elf_Internal_Sym
**locsymsp
,
6006 unsigned long r_symndx
,
6009 Elf_Internal_Shdr
*symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
6011 if (r_symndx
>= symtab_hdr
->sh_info
)
6013 struct elf_link_hash_entry
**sym_hashes
= elf_sym_hashes (ibfd
);
6014 struct elf_link_hash_entry
*h
;
6016 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
6017 while (h
->root
.type
== bfd_link_hash_indirect
6018 || h
->root
.type
== bfd_link_hash_warning
)
6019 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
6027 if (symsecp
!= NULL
)
6029 asection
*symsec
= NULL
;
6030 if (h
->root
.type
== bfd_link_hash_defined
6031 || h
->root
.type
== bfd_link_hash_defweak
)
6032 symsec
= h
->root
.u
.def
.section
;
6036 if (tls_maskp
!= NULL
)
6038 struct ppc_link_hash_entry
*eh
;
6040 eh
= (struct ppc_link_hash_entry
*) h
;
6041 *tls_maskp
= &eh
->tls_mask
;
6046 Elf_Internal_Sym
*sym
;
6047 Elf_Internal_Sym
*locsyms
= *locsymsp
;
6049 if (locsyms
== NULL
)
6051 locsyms
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
6052 if (locsyms
== NULL
)
6053 locsyms
= bfd_elf_get_elf_syms (ibfd
, symtab_hdr
,
6054 symtab_hdr
->sh_info
,
6055 0, NULL
, NULL
, NULL
);
6056 if (locsyms
== NULL
)
6058 *locsymsp
= locsyms
;
6060 sym
= locsyms
+ r_symndx
;
6068 if (symsecp
!= NULL
)
6070 asection
*symsec
= NULL
;
6071 if ((sym
->st_shndx
!= SHN_UNDEF
6072 && sym
->st_shndx
< SHN_LORESERVE
)
6073 || sym
->st_shndx
> SHN_HIRESERVE
)
6074 symsec
= bfd_section_from_elf_index (ibfd
, sym
->st_shndx
);
6078 if (tls_maskp
!= NULL
)
6080 struct got_entry
**lgot_ents
;
6084 lgot_ents
= elf_local_got_ents (ibfd
);
6085 if (lgot_ents
!= NULL
)
6087 char *lgot_masks
= (char *) (lgot_ents
+ symtab_hdr
->sh_info
);
6088 tls_mask
= &lgot_masks
[r_symndx
];
6090 *tls_maskp
= tls_mask
;
6096 /* Returns TLS_MASKP for the given REL symbol. Function return is 0 on
6097 error, 2 on a toc GD type suitable for optimization, 3 on a toc LD
6098 type suitable for optimization, and 1 otherwise. */
6101 get_tls_mask (char **tls_maskp
, unsigned long *toc_symndx
,
6102 Elf_Internal_Sym
**locsymsp
,
6103 const Elf_Internal_Rela
*rel
, bfd
*ibfd
)
6105 unsigned long r_symndx
;
6107 struct elf_link_hash_entry
*h
;
6108 Elf_Internal_Sym
*sym
;
6112 r_symndx
= ELF64_R_SYM (rel
->r_info
);
6113 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
6116 if ((*tls_maskp
!= NULL
&& **tls_maskp
!= 0)
6118 || ppc64_elf_section_data (sec
)->sec_type
!= sec_toc
)
6121 /* Look inside a TOC section too. */
6124 BFD_ASSERT (h
->root
.type
== bfd_link_hash_defined
);
6125 off
= h
->root
.u
.def
.value
;
6128 off
= sym
->st_value
;
6129 off
+= rel
->r_addend
;
6130 BFD_ASSERT (off
% 8 == 0);
6131 r_symndx
= ppc64_elf_section_data (sec
)->u
.t_symndx
[off
/ 8];
6132 next_r
= ppc64_elf_section_data (sec
)->u
.t_symndx
[off
/ 8 + 1];
6133 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
6135 if (toc_symndx
!= NULL
)
6136 *toc_symndx
= r_symndx
;
6138 || ((h
->root
.type
== bfd_link_hash_defined
6139 || h
->root
.type
== bfd_link_hash_defweak
)
6140 && !h
->def_dynamic
))
6141 && (next_r
== -1 || next_r
== -2))
6146 /* Adjust all global syms defined in opd sections. In gcc generated
6147 code for the old ABI, these will already have been done. */
6150 adjust_opd_syms (struct elf_link_hash_entry
*h
, void *inf ATTRIBUTE_UNUSED
)
6152 struct ppc_link_hash_entry
*eh
;
6156 if (h
->root
.type
== bfd_link_hash_indirect
)
6159 if (h
->root
.type
== bfd_link_hash_warning
)
6160 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
6162 if (h
->root
.type
!= bfd_link_hash_defined
6163 && h
->root
.type
!= bfd_link_hash_defweak
)
6166 eh
= (struct ppc_link_hash_entry
*) h
;
6167 if (eh
->adjust_done
)
6170 sym_sec
= eh
->elf
.root
.u
.def
.section
;
6171 opd_adjust
= get_opd_info (sym_sec
);
6172 if (opd_adjust
!= NULL
)
6174 long adjust
= opd_adjust
[eh
->elf
.root
.u
.def
.value
/ 8];
6177 /* This entry has been deleted. */
6178 asection
*dsec
= ppc64_elf_tdata (sym_sec
->owner
)->deleted_section
;
6181 for (dsec
= sym_sec
->owner
->sections
; dsec
; dsec
= dsec
->next
)
6182 if (elf_discarded_section (dsec
))
6184 ppc64_elf_tdata (sym_sec
->owner
)->deleted_section
= dsec
;
6188 eh
->elf
.root
.u
.def
.value
= 0;
6189 eh
->elf
.root
.u
.def
.section
= dsec
;
6192 eh
->elf
.root
.u
.def
.value
+= adjust
;
6193 eh
->adjust_done
= 1;
6198 /* Handles decrementing dynamic reloc counts for the reloc specified by
6199 R_INFO in section SEC. If LOCAL_SYMS is NULL, then H and SYM_SEC
6200 have already been determined. */
6203 dec_dynrel_count (bfd_vma r_info
,
6205 struct bfd_link_info
*info
,
6206 Elf_Internal_Sym
**local_syms
,
6207 struct elf_link_hash_entry
*h
,
6210 enum elf_ppc64_reloc_type r_type
;
6211 struct ppc_dyn_relocs
*p
;
6212 struct ppc_dyn_relocs
**pp
;
6214 /* Can this reloc be dynamic? This switch, and later tests here
6215 should be kept in sync with the code in check_relocs. */
6216 r_type
= ELF64_R_TYPE (r_info
);
6222 case R_PPC64_TPREL16
:
6223 case R_PPC64_TPREL16_LO
:
6224 case R_PPC64_TPREL16_HI
:
6225 case R_PPC64_TPREL16_HA
:
6226 case R_PPC64_TPREL16_DS
:
6227 case R_PPC64_TPREL16_LO_DS
:
6228 case R_PPC64_TPREL16_HIGHER
:
6229 case R_PPC64_TPREL16_HIGHERA
:
6230 case R_PPC64_TPREL16_HIGHEST
:
6231 case R_PPC64_TPREL16_HIGHESTA
:
6235 case R_PPC64_TPREL64
:
6236 case R_PPC64_DTPMOD64
:
6237 case R_PPC64_DTPREL64
:
6238 case R_PPC64_ADDR64
:
6242 case R_PPC64_ADDR14
:
6243 case R_PPC64_ADDR14_BRNTAKEN
:
6244 case R_PPC64_ADDR14_BRTAKEN
:
6245 case R_PPC64_ADDR16
:
6246 case R_PPC64_ADDR16_DS
:
6247 case R_PPC64_ADDR16_HA
:
6248 case R_PPC64_ADDR16_HI
:
6249 case R_PPC64_ADDR16_HIGHER
:
6250 case R_PPC64_ADDR16_HIGHERA
:
6251 case R_PPC64_ADDR16_HIGHEST
:
6252 case R_PPC64_ADDR16_HIGHESTA
:
6253 case R_PPC64_ADDR16_LO
:
6254 case R_PPC64_ADDR16_LO_DS
:
6255 case R_PPC64_ADDR24
:
6256 case R_PPC64_ADDR32
:
6257 case R_PPC64_UADDR16
:
6258 case R_PPC64_UADDR32
:
6259 case R_PPC64_UADDR64
:
6264 if (local_syms
!= NULL
)
6266 unsigned long r_symndx
;
6267 Elf_Internal_Sym
*sym
;
6268 bfd
*ibfd
= sec
->owner
;
6270 r_symndx
= ELF64_R_SYM (r_info
);
6271 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, local_syms
, r_symndx
, ibfd
))
6276 && (MUST_BE_DYN_RELOC (r_type
)
6279 || h
->root
.type
== bfd_link_hash_defweak
6280 || !h
->def_regular
))))
6281 || (ELIMINATE_COPY_RELOCS
6284 && (h
->root
.type
== bfd_link_hash_defweak
6285 || !h
->def_regular
)))
6291 pp
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
6294 if (sym_sec
!= NULL
)
6296 void *vpp
= &elf_section_data (sym_sec
)->local_dynrel
;
6297 pp
= (struct ppc_dyn_relocs
**) vpp
;
6301 void *vpp
= &elf_section_data (sec
)->local_dynrel
;
6302 pp
= (struct ppc_dyn_relocs
**) vpp
;
6305 /* elf_gc_sweep may have already removed all dyn relocs associated
6306 with local syms for a given section. Don't report a dynreloc
6312 while ((p
= *pp
) != NULL
)
6316 if (!MUST_BE_DYN_RELOC (r_type
))
6326 (*_bfd_error_handler
) (_("dynreloc miscount for %B, section %A"),
6328 bfd_set_error (bfd_error_bad_value
);
6332 /* Remove unused Official Procedure Descriptor entries. Currently we
6333 only remove those associated with functions in discarded link-once
6334 sections, or weakly defined functions that have been overridden. It
6335 would be possible to remove many more entries for statically linked
6339 ppc64_elf_edit_opd (bfd
*obfd
, struct bfd_link_info
*info
,
6340 bfd_boolean no_opd_opt
,
6341 bfd_boolean non_overlapping
)
6344 bfd_boolean some_edited
= FALSE
;
6345 asection
*need_pad
= NULL
;
6347 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
6350 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
6351 Elf_Internal_Shdr
*symtab_hdr
;
6352 Elf_Internal_Sym
*local_syms
;
6353 struct elf_link_hash_entry
**sym_hashes
;
6357 bfd_boolean need_edit
, add_aux_fields
;
6358 bfd_size_type cnt_16b
= 0;
6360 sec
= bfd_get_section_by_name (ibfd
, ".opd");
6361 if (sec
== NULL
|| sec
->size
== 0)
6364 amt
= sec
->size
* sizeof (long) / 8;
6365 opd_adjust
= get_opd_info (sec
);
6366 if (opd_adjust
== NULL
)
6368 /* check_relocs hasn't been called. Must be a ld -r link
6369 or --just-symbols object. */
6370 opd_adjust
= bfd_alloc (obfd
, amt
);
6371 if (opd_adjust
== NULL
)
6373 ppc64_elf_section_data (sec
)->u
.opd_adjust
= opd_adjust
;
6374 BFD_ASSERT (ppc64_elf_section_data (sec
)->sec_type
== sec_normal
);
6375 ppc64_elf_section_data (sec
)->sec_type
= sec_opd
;
6377 memset (opd_adjust
, 0, amt
);
6382 if (sec
->sec_info_type
== ELF_INFO_TYPE_JUST_SYMS
)
6385 if (sec
->output_section
== bfd_abs_section_ptr
)
6388 /* Look through the section relocs. */
6389 if ((sec
->flags
& SEC_RELOC
) == 0 || sec
->reloc_count
== 0)
6393 symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
6394 sym_hashes
= elf_sym_hashes (ibfd
);
6396 /* Read the relocations. */
6397 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
6399 if (relstart
== NULL
)
6402 /* First run through the relocs to check they are sane, and to
6403 determine whether we need to edit this opd section. */
6407 relend
= relstart
+ sec
->reloc_count
;
6408 for (rel
= relstart
; rel
< relend
; )
6410 enum elf_ppc64_reloc_type r_type
;
6411 unsigned long r_symndx
;
6413 struct elf_link_hash_entry
*h
;
6414 Elf_Internal_Sym
*sym
;
6416 /* .opd contains a regular array of 16 or 24 byte entries. We're
6417 only interested in the reloc pointing to a function entry
6419 if (rel
->r_offset
!= offset
6420 || rel
+ 1 >= relend
6421 || (rel
+ 1)->r_offset
!= offset
+ 8)
6423 /* If someone messes with .opd alignment then after a
6424 "ld -r" we might have padding in the middle of .opd.
6425 Also, there's nothing to prevent someone putting
6426 something silly in .opd with the assembler. No .opd
6427 optimization for them! */
6429 (*_bfd_error_handler
)
6430 (_("%B: .opd is not a regular array of opd entries"), ibfd
);
6435 if ((r_type
= ELF64_R_TYPE (rel
->r_info
)) != R_PPC64_ADDR64
6436 || (r_type
= ELF64_R_TYPE ((rel
+ 1)->r_info
)) != R_PPC64_TOC
)
6438 (*_bfd_error_handler
)
6439 (_("%B: unexpected reloc type %u in .opd section"),
6445 r_symndx
= ELF64_R_SYM (rel
->r_info
);
6446 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
6450 if (sym_sec
== NULL
|| sym_sec
->owner
== NULL
)
6452 const char *sym_name
;
6454 sym_name
= h
->root
.root
.string
;
6456 sym_name
= bfd_elf_sym_name (ibfd
, symtab_hdr
, sym
,
6459 (*_bfd_error_handler
)
6460 (_("%B: undefined sym `%s' in .opd section"),
6466 /* opd entries are always for functions defined in the
6467 current input bfd. If the symbol isn't defined in the
6468 input bfd, then we won't be using the function in this
6469 bfd; It must be defined in a linkonce section in another
6470 bfd, or is weak. It's also possible that we are
6471 discarding the function due to a linker script /DISCARD/,
6472 which we test for via the output_section. */
6473 if (sym_sec
->owner
!= ibfd
6474 || sym_sec
->output_section
== bfd_abs_section_ptr
)
6479 || (rel
+ 1 == relend
&& rel
->r_offset
== offset
+ 16))
6481 if (sec
->size
== offset
+ 24)
6486 if (rel
== relend
&& sec
->size
== offset
+ 16)
6494 if (rel
->r_offset
== offset
+ 24)
6496 else if (rel
->r_offset
!= offset
+ 16)
6498 else if (rel
+ 1 < relend
6499 && ELF64_R_TYPE (rel
[0].r_info
) == R_PPC64_ADDR64
6500 && ELF64_R_TYPE (rel
[1].r_info
) == R_PPC64_TOC
)
6505 else if (rel
+ 2 < relend
6506 && ELF64_R_TYPE (rel
[1].r_info
) == R_PPC64_ADDR64
6507 && ELF64_R_TYPE (rel
[2].r_info
) == R_PPC64_TOC
)
6516 add_aux_fields
= non_overlapping
&& cnt_16b
> 0;
6518 if (need_edit
|| add_aux_fields
)
6520 Elf_Internal_Rela
*write_rel
;
6521 bfd_byte
*rptr
, *wptr
;
6522 bfd_byte
*new_contents
= NULL
;
6526 /* This seems a waste of time as input .opd sections are all
6527 zeros as generated by gcc, but I suppose there's no reason
6528 this will always be so. We might start putting something in
6529 the third word of .opd entries. */
6530 if ((sec
->flags
& SEC_IN_MEMORY
) == 0)
6533 if (!bfd_malloc_and_get_section (ibfd
, sec
, &loc
))
6538 if (local_syms
!= NULL
6539 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
6541 if (elf_section_data (sec
)->relocs
!= relstart
)
6545 sec
->contents
= loc
;
6546 sec
->flags
|= (SEC_IN_MEMORY
| SEC_HAS_CONTENTS
);
6549 elf_section_data (sec
)->relocs
= relstart
;
6551 new_contents
= sec
->contents
;
6554 new_contents
= bfd_malloc (sec
->size
+ cnt_16b
* 8);
6555 if (new_contents
== NULL
)
6559 wptr
= new_contents
;
6560 rptr
= sec
->contents
;
6562 write_rel
= relstart
;
6566 for (rel
= relstart
; rel
< relend
; rel
++)
6568 unsigned long r_symndx
;
6570 struct elf_link_hash_entry
*h
;
6571 Elf_Internal_Sym
*sym
;
6573 r_symndx
= ELF64_R_SYM (rel
->r_info
);
6574 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
6578 if (rel
->r_offset
== offset
)
6580 struct ppc_link_hash_entry
*fdh
= NULL
;
6582 /* See if the .opd entry is full 24 byte or
6583 16 byte (with fd_aux entry overlapped with next
6586 if ((rel
+ 2 == relend
&& sec
->size
== offset
+ 16)
6587 || (rel
+ 3 < relend
6588 && rel
[2].r_offset
== offset
+ 16
6589 && rel
[3].r_offset
== offset
+ 24
6590 && ELF64_R_TYPE (rel
[2].r_info
) == R_PPC64_ADDR64
6591 && ELF64_R_TYPE (rel
[3].r_info
) == R_PPC64_TOC
))
6595 && h
->root
.root
.string
[0] == '.')
6597 fdh
= get_fdh ((struct ppc_link_hash_entry
*) h
,
6598 ppc_hash_table (info
));
6600 && fdh
->elf
.root
.type
!= bfd_link_hash_defined
6601 && fdh
->elf
.root
.type
!= bfd_link_hash_defweak
)
6605 skip
= (sym_sec
->owner
!= ibfd
6606 || sym_sec
->output_section
== bfd_abs_section_ptr
);
6609 if (fdh
!= NULL
&& sym_sec
->owner
== ibfd
)
6611 /* Arrange for the function descriptor sym
6613 fdh
->elf
.root
.u
.def
.value
= 0;
6614 fdh
->elf
.root
.u
.def
.section
= sym_sec
;
6616 opd_adjust
[rel
->r_offset
/ 8] = -1;
6620 /* We'll be keeping this opd entry. */
6624 /* Redefine the function descriptor symbol to
6625 this location in the opd section. It is
6626 necessary to update the value here rather
6627 than using an array of adjustments as we do
6628 for local symbols, because various places
6629 in the generic ELF code use the value
6630 stored in u.def.value. */
6631 fdh
->elf
.root
.u
.def
.value
= wptr
- new_contents
;
6632 fdh
->adjust_done
= 1;
6635 /* Local syms are a bit tricky. We could
6636 tweak them as they can be cached, but
6637 we'd need to look through the local syms
6638 for the function descriptor sym which we
6639 don't have at the moment. So keep an
6640 array of adjustments. */
6641 opd_adjust
[rel
->r_offset
/ 8]
6642 = (wptr
- new_contents
) - (rptr
- sec
->contents
);
6645 memcpy (wptr
, rptr
, opd_ent_size
);
6646 wptr
+= opd_ent_size
;
6647 if (add_aux_fields
&& opd_ent_size
== 16)
6649 memset (wptr
, '\0', 8);
6653 rptr
+= opd_ent_size
;
6654 offset
+= opd_ent_size
;
6660 && !info
->relocatable
6661 && !dec_dynrel_count (rel
->r_info
, sec
, info
,
6667 /* We need to adjust any reloc offsets to point to the
6668 new opd entries. While we're at it, we may as well
6669 remove redundant relocs. */
6670 rel
->r_offset
+= opd_adjust
[(offset
- opd_ent_size
) / 8];
6671 if (write_rel
!= rel
)
6672 memcpy (write_rel
, rel
, sizeof (*rel
));
6677 sec
->size
= wptr
- new_contents
;
6678 sec
->reloc_count
= write_rel
- relstart
;
6681 free (sec
->contents
);
6682 sec
->contents
= new_contents
;
6685 /* Fudge the header size too, as this is used later in
6686 elf_bfd_final_link if we are emitting relocs. */
6687 elf_section_data (sec
)->rel_hdr
.sh_size
6688 = sec
->reloc_count
* elf_section_data (sec
)->rel_hdr
.sh_entsize
;
6689 BFD_ASSERT (elf_section_data (sec
)->rel_hdr2
== NULL
);
6692 else if (elf_section_data (sec
)->relocs
!= relstart
)
6695 if (local_syms
!= NULL
6696 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
6698 if (!info
->keep_memory
)
6701 symtab_hdr
->contents
= (unsigned char *) local_syms
;
6706 elf_link_hash_traverse (elf_hash_table (info
), adjust_opd_syms
, NULL
);
6708 /* If we are doing a final link and the last .opd entry is just 16 byte
6709 long, add a 8 byte padding after it. */
6710 if (need_pad
!= NULL
&& !info
->relocatable
)
6714 if ((need_pad
->flags
& SEC_IN_MEMORY
) == 0)
6716 BFD_ASSERT (need_pad
->size
> 0);
6718 p
= bfd_malloc (need_pad
->size
+ 8);
6722 if (! bfd_get_section_contents (need_pad
->owner
, need_pad
,
6723 p
, 0, need_pad
->size
))
6726 need_pad
->contents
= p
;
6727 need_pad
->flags
|= (SEC_IN_MEMORY
| SEC_HAS_CONTENTS
);
6731 p
= bfd_realloc (need_pad
->contents
, need_pad
->size
+ 8);
6735 need_pad
->contents
= p
;
6738 memset (need_pad
->contents
+ need_pad
->size
, 0, 8);
6739 need_pad
->size
+= 8;
6745 /* Set htab->tls_get_addr and call the generic ELF tls_setup function. */
6748 ppc64_elf_tls_setup (bfd
*obfd
, struct bfd_link_info
*info
)
6750 struct ppc_link_hash_table
*htab
;
6752 htab
= ppc_hash_table (info
);
6753 if (htab
->tls_get_addr
!= NULL
)
6755 struct ppc_link_hash_entry
*h
= htab
->tls_get_addr
;
6757 while (h
->elf
.root
.type
== bfd_link_hash_indirect
6758 || h
->elf
.root
.type
== bfd_link_hash_warning
)
6759 h
= (struct ppc_link_hash_entry
*) h
->elf
.root
.u
.i
.link
;
6761 htab
->tls_get_addr
= h
;
6763 if (htab
->tls_get_addr_fd
== NULL
6765 && h
->oh
->is_func_descriptor
6766 && (h
->oh
->elf
.root
.type
== bfd_link_hash_defined
6767 || h
->oh
->elf
.root
.type
== bfd_link_hash_defweak
))
6768 htab
->tls_get_addr_fd
= h
->oh
;
6771 if (htab
->tls_get_addr_fd
!= NULL
)
6773 struct ppc_link_hash_entry
*h
= htab
->tls_get_addr_fd
;
6775 while (h
->elf
.root
.type
== bfd_link_hash_indirect
6776 || h
->elf
.root
.type
== bfd_link_hash_warning
)
6777 h
= (struct ppc_link_hash_entry
*) h
->elf
.root
.u
.i
.link
;
6779 htab
->tls_get_addr_fd
= h
;
6782 return _bfd_elf_tls_setup (obfd
, info
);
6785 /* Run through all the TLS relocs looking for optimization
6786 opportunities. The linker has been hacked (see ppc64elf.em) to do
6787 a preliminary section layout so that we know the TLS segment
6788 offsets. We can't optimize earlier because some optimizations need
6789 to know the tp offset, and we need to optimize before allocating
6790 dynamic relocations. */
6793 ppc64_elf_tls_optimize (bfd
*obfd ATTRIBUTE_UNUSED
, struct bfd_link_info
*info
)
6797 struct ppc_link_hash_table
*htab
;
6799 if (info
->relocatable
|| info
->shared
)
6802 htab
= ppc_hash_table (info
);
6803 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
6805 Elf_Internal_Sym
*locsyms
= NULL
;
6806 asection
*toc
= bfd_get_section_by_name (ibfd
, ".toc");
6807 unsigned char *toc_ref
= NULL
;
6809 /* Look at all the sections for this file, with TOC last. */
6810 for (sec
= (ibfd
->sections
== toc
&& toc
&& toc
->next
? toc
->next
6813 sec
= (sec
== toc
? NULL
6814 : sec
->next
== NULL
? toc
6815 : sec
->next
== toc
&& toc
->next
? toc
->next
6817 if (sec
->has_tls_reloc
&& !bfd_is_abs_section (sec
->output_section
))
6819 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
6820 int expecting_tls_get_addr
;
6821 long toc_ref_index
= 0;
6823 /* Read the relocations. */
6824 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
6826 if (relstart
== NULL
)
6829 expecting_tls_get_addr
= 0;
6830 relend
= relstart
+ sec
->reloc_count
;
6831 for (rel
= relstart
; rel
< relend
; rel
++)
6833 enum elf_ppc64_reloc_type r_type
;
6834 unsigned long r_symndx
;
6835 struct elf_link_hash_entry
*h
;
6836 Elf_Internal_Sym
*sym
;
6839 char tls_set
, tls_clear
, tls_type
= 0;
6841 bfd_boolean ok_tprel
, is_local
;
6843 r_symndx
= ELF64_R_SYM (rel
->r_info
);
6844 if (!get_sym_h (&h
, &sym
, &sym_sec
, &tls_mask
, &locsyms
,
6848 if (elf_section_data (sec
)->relocs
!= relstart
)
6850 if (toc_ref
!= NULL
)
6853 && (elf_tdata (ibfd
)->symtab_hdr
.contents
6854 != (unsigned char *) locsyms
))
6861 if (h
->root
.type
!= bfd_link_hash_defined
6862 && h
->root
.type
!= bfd_link_hash_defweak
)
6864 value
= h
->root
.u
.def
.value
;
6867 /* Symbols referenced by TLS relocs must be of type
6868 STT_TLS. So no need for .opd local sym adjust. */
6869 value
= sym
->st_value
;
6877 value
+= sym_sec
->output_offset
;
6878 value
+= sym_sec
->output_section
->vma
;
6879 value
-= htab
->elf
.tls_sec
->vma
;
6880 ok_tprel
= (value
+ TP_OFFSET
+ ((bfd_vma
) 1 << 31)
6881 < (bfd_vma
) 1 << 32);
6884 r_type
= ELF64_R_TYPE (rel
->r_info
);
6887 case R_PPC64_GOT_TLSLD16
:
6888 case R_PPC64_GOT_TLSLD16_LO
:
6889 case R_PPC64_GOT_TLSLD16_HI
:
6890 case R_PPC64_GOT_TLSLD16_HA
:
6891 /* These relocs should never be against a symbol
6892 defined in a shared lib. Leave them alone if
6893 that turns out to be the case. */
6894 ppc64_tlsld_got (ibfd
)->refcount
-= 1;
6901 tls_type
= TLS_TLS
| TLS_LD
;
6902 expecting_tls_get_addr
= 1;
6905 case R_PPC64_GOT_TLSGD16
:
6906 case R_PPC64_GOT_TLSGD16_LO
:
6907 case R_PPC64_GOT_TLSGD16_HI
:
6908 case R_PPC64_GOT_TLSGD16_HA
:
6914 tls_set
= TLS_TLS
| TLS_TPRELGD
;
6916 tls_type
= TLS_TLS
| TLS_GD
;
6917 expecting_tls_get_addr
= 1;
6920 case R_PPC64_GOT_TPREL16_DS
:
6921 case R_PPC64_GOT_TPREL16_LO_DS
:
6922 case R_PPC64_GOT_TPREL16_HI
:
6923 case R_PPC64_GOT_TPREL16_HA
:
6924 expecting_tls_get_addr
= 0;
6929 tls_clear
= TLS_TPREL
;
6930 tls_type
= TLS_TLS
| TLS_TPREL
;
6937 case R_PPC64_REL14_BRTAKEN
:
6938 case R_PPC64_REL14_BRNTAKEN
:
6941 && (h
== &htab
->tls_get_addr
->elf
6942 || h
== &htab
->tls_get_addr_fd
->elf
))
6944 if (!expecting_tls_get_addr
6946 && ((ELF64_R_TYPE (rel
[-1].r_info
)
6948 || (ELF64_R_TYPE (rel
[-1].r_info
)
6949 == R_PPC64_TOC16_LO
)))
6951 /* Check for toc tls entries. */
6955 retval
= get_tls_mask (&toc_tls
, NULL
, &locsyms
,
6959 if (retval
> 1 && toc_tls
!= NULL
)
6961 expecting_tls_get_addr
= 1;
6962 if (toc_ref
!= NULL
)
6963 toc_ref
[toc_ref_index
] = 1;
6967 if (expecting_tls_get_addr
)
6969 struct plt_entry
*ent
;
6970 for (ent
= h
->plt
.plist
; ent
; ent
= ent
->next
)
6971 if (ent
->addend
== 0)
6973 if (ent
->plt
.refcount
> 0)
6974 ent
->plt
.refcount
-= 1;
6979 expecting_tls_get_addr
= 0;
6983 case R_PPC64_TOC16_LO
:
6985 expecting_tls_get_addr
= 0;
6986 if (sym_sec
== toc
&& toc
!= NULL
)
6988 /* Mark this toc entry as referenced by a TLS
6989 code sequence. We can do that now in the
6990 case of R_PPC64_TLS, and after checking for
6991 tls_get_addr for the TOC16 relocs. */
6992 if (toc_ref
== NULL
)
6994 toc_ref
= bfd_zmalloc (toc
->size
/ 8);
6995 if (toc_ref
== NULL
)
6999 value
= h
->root
.u
.def
.value
;
7001 value
= sym
->st_value
;
7002 value
+= rel
->r_addend
;
7003 BFD_ASSERT (value
< toc
->size
&& value
% 8 == 0);
7004 toc_ref_index
= value
/ 8;
7005 if (r_type
== R_PPC64_TLS
)
7006 toc_ref
[toc_ref_index
] = 1;
7010 case R_PPC64_TPREL64
:
7011 expecting_tls_get_addr
= 0;
7014 || !toc_ref
[rel
->r_offset
/ 8])
7019 tls_set
= TLS_EXPLICIT
;
7020 tls_clear
= TLS_TPREL
;
7026 case R_PPC64_DTPMOD64
:
7027 expecting_tls_get_addr
= 0;
7030 || !toc_ref
[rel
->r_offset
/ 8])
7032 if (rel
+ 1 < relend
7034 == ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
))
7035 && rel
[1].r_offset
== rel
->r_offset
+ 8)
7039 tls_set
= TLS_EXPLICIT
| TLS_GD
;
7042 tls_set
= TLS_EXPLICIT
| TLS_GD
| TLS_TPRELGD
;
7051 tls_set
= TLS_EXPLICIT
;
7057 expecting_tls_get_addr
= 0;
7061 if ((tls_set
& TLS_EXPLICIT
) == 0)
7063 struct got_entry
*ent
;
7065 /* Adjust got entry for this reloc. */
7069 ent
= elf_local_got_ents (ibfd
)[r_symndx
];
7071 for (; ent
!= NULL
; ent
= ent
->next
)
7072 if (ent
->addend
== rel
->r_addend
7073 && ent
->owner
== ibfd
7074 && ent
->tls_type
== tls_type
)
7081 /* We managed to get rid of a got entry. */
7082 if (ent
->got
.refcount
> 0)
7083 ent
->got
.refcount
-= 1;
7088 /* If we got rid of a DTPMOD/DTPREL reloc pair then
7089 we'll lose one or two dyn relocs. */
7090 if (!dec_dynrel_count (rel
->r_info
, sec
, info
,
7094 if (tls_set
== (TLS_EXPLICIT
| TLS_GD
))
7096 if (!dec_dynrel_count ((rel
+ 1)->r_info
, sec
, info
,
7102 *tls_mask
|= tls_set
;
7103 *tls_mask
&= ~tls_clear
;
7106 if (elf_section_data (sec
)->relocs
!= relstart
)
7110 if (toc_ref
!= NULL
)
7114 && (elf_tdata (ibfd
)->symtab_hdr
.contents
7115 != (unsigned char *) locsyms
))
7117 if (!info
->keep_memory
)
7120 elf_tdata (ibfd
)->symtab_hdr
.contents
= (unsigned char *) locsyms
;
7126 /* Called via elf_link_hash_traverse from ppc64_elf_edit_toc to adjust
7127 the values of any global symbols in a toc section that has been
7128 edited. Globals in toc sections should be a rarity, so this function
7129 sets a flag if any are found in toc sections other than the one just
7130 edited, so that futher hash table traversals can be avoided. */
7132 struct adjust_toc_info
7135 unsigned long *skip
;
7136 bfd_boolean global_toc_syms
;
7140 adjust_toc_syms (struct elf_link_hash_entry
*h
, void *inf
)
7142 struct ppc_link_hash_entry
*eh
;
7143 struct adjust_toc_info
*toc_inf
= (struct adjust_toc_info
*) inf
;
7145 if (h
->root
.type
== bfd_link_hash_indirect
)
7148 if (h
->root
.type
== bfd_link_hash_warning
)
7149 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
7151 if (h
->root
.type
!= bfd_link_hash_defined
7152 && h
->root
.type
!= bfd_link_hash_defweak
)
7155 eh
= (struct ppc_link_hash_entry
*) h
;
7156 if (eh
->adjust_done
)
7159 if (eh
->elf
.root
.u
.def
.section
== toc_inf
->toc
)
7161 unsigned long skip
= toc_inf
->skip
[eh
->elf
.root
.u
.def
.value
>> 3];
7162 if (skip
!= (unsigned long) -1)
7163 eh
->elf
.root
.u
.def
.value
-= skip
;
7166 (*_bfd_error_handler
)
7167 (_("%s defined in removed toc entry"), eh
->elf
.root
.root
.string
);
7168 eh
->elf
.root
.u
.def
.section
= &bfd_abs_section
;
7169 eh
->elf
.root
.u
.def
.value
= 0;
7171 eh
->adjust_done
= 1;
7173 else if (strcmp (eh
->elf
.root
.u
.def
.section
->name
, ".toc") == 0)
7174 toc_inf
->global_toc_syms
= TRUE
;
7179 /* Examine all relocs referencing .toc sections in order to remove
7180 unused .toc entries. */
7183 ppc64_elf_edit_toc (bfd
*obfd ATTRIBUTE_UNUSED
, struct bfd_link_info
*info
)
7186 struct adjust_toc_info toc_inf
;
7188 toc_inf
.global_toc_syms
= TRUE
;
7189 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
7191 asection
*toc
, *sec
;
7192 Elf_Internal_Shdr
*symtab_hdr
;
7193 Elf_Internal_Sym
*local_syms
;
7194 struct elf_link_hash_entry
**sym_hashes
;
7195 Elf_Internal_Rela
*relstart
, *rel
;
7196 unsigned long *skip
, *drop
;
7197 unsigned char *used
;
7198 unsigned char *keep
, last
, some_unused
;
7200 toc
= bfd_get_section_by_name (ibfd
, ".toc");
7203 || toc
->sec_info_type
== ELF_INFO_TYPE_JUST_SYMS
7204 || elf_discarded_section (toc
))
7208 symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
7209 sym_hashes
= elf_sym_hashes (ibfd
);
7211 /* Look at sections dropped from the final link. */
7214 for (sec
= ibfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
7216 if (sec
->reloc_count
== 0
7217 || !elf_discarded_section (sec
)
7218 || get_opd_info (sec
)
7219 || (sec
->flags
& SEC_ALLOC
) == 0
7220 || (sec
->flags
& SEC_DEBUGGING
) != 0)
7223 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
, FALSE
);
7224 if (relstart
== NULL
)
7227 /* Run through the relocs to see which toc entries might be
7229 for (rel
= relstart
; rel
< relstart
+ sec
->reloc_count
; ++rel
)
7231 enum elf_ppc64_reloc_type r_type
;
7232 unsigned long r_symndx
;
7234 struct elf_link_hash_entry
*h
;
7235 Elf_Internal_Sym
*sym
;
7238 r_type
= ELF64_R_TYPE (rel
->r_info
);
7245 case R_PPC64_TOC16_LO
:
7246 case R_PPC64_TOC16_HI
:
7247 case R_PPC64_TOC16_HA
:
7248 case R_PPC64_TOC16_DS
:
7249 case R_PPC64_TOC16_LO_DS
:
7253 r_symndx
= ELF64_R_SYM (rel
->r_info
);
7254 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
7262 val
= h
->root
.u
.def
.value
;
7264 val
= sym
->st_value
;
7265 val
+= rel
->r_addend
;
7267 if (val
>= toc
->size
)
7270 /* Anything in the toc ought to be aligned to 8 bytes.
7271 If not, don't mark as unused. */
7277 skip
= bfd_zmalloc (sizeof (*skip
) * (toc
->size
+ 7) / 8);
7285 if (elf_section_data (sec
)->relocs
!= relstart
)
7292 used
= bfd_zmalloc (sizeof (*used
) * (toc
->size
+ 7) / 8);
7296 if (local_syms
!= NULL
7297 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
7301 && elf_section_data (sec
)->relocs
!= relstart
)
7308 /* Now check all kept sections that might reference the toc.
7309 Check the toc itself last. */
7310 for (sec
= (ibfd
->sections
== toc
&& toc
->next
? toc
->next
7313 sec
= (sec
== toc
? NULL
7314 : sec
->next
== NULL
? toc
7315 : sec
->next
== toc
&& toc
->next
? toc
->next
7320 if (sec
->reloc_count
== 0
7321 || elf_discarded_section (sec
)
7322 || get_opd_info (sec
)
7323 || (sec
->flags
& SEC_ALLOC
) == 0
7324 || (sec
->flags
& SEC_DEBUGGING
) != 0)
7327 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
, TRUE
);
7328 if (relstart
== NULL
)
7331 /* Mark toc entries referenced as used. */
7334 for (rel
= relstart
; rel
< relstart
+ sec
->reloc_count
; ++rel
)
7336 enum elf_ppc64_reloc_type r_type
;
7337 unsigned long r_symndx
;
7339 struct elf_link_hash_entry
*h
;
7340 Elf_Internal_Sym
*sym
;
7343 r_type
= ELF64_R_TYPE (rel
->r_info
);
7347 case R_PPC64_TOC16_LO
:
7348 case R_PPC64_TOC16_HI
:
7349 case R_PPC64_TOC16_HA
:
7350 case R_PPC64_TOC16_DS
:
7351 case R_PPC64_TOC16_LO_DS
:
7352 /* In case we're taking addresses of toc entries. */
7353 case R_PPC64_ADDR64
:
7360 r_symndx
= ELF64_R_SYM (rel
->r_info
);
7361 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
7372 val
= h
->root
.u
.def
.value
;
7374 val
= sym
->st_value
;
7375 val
+= rel
->r_addend
;
7377 if (val
>= toc
->size
)
7380 /* For the toc section, we only mark as used if
7381 this entry itself isn't unused. */
7384 && (used
[rel
->r_offset
>> 3]
7385 || !skip
[rel
->r_offset
>> 3]))
7386 /* Do all the relocs again, to catch reference
7395 /* Merge the used and skip arrays. Assume that TOC
7396 doublewords not appearing as either used or unused belong
7397 to to an entry more than one doubleword in size. */
7398 for (drop
= skip
, keep
= used
, last
= 0, some_unused
= 0;
7399 drop
< skip
+ (toc
->size
+ 7) / 8;
7420 bfd_byte
*contents
, *src
;
7423 /* Shuffle the toc contents, and at the same time convert the
7424 skip array from booleans into offsets. */
7425 if (!bfd_malloc_and_get_section (ibfd
, toc
, &contents
))
7428 elf_section_data (toc
)->this_hdr
.contents
= contents
;
7430 for (src
= contents
, off
= 0, drop
= skip
;
7431 src
< contents
+ toc
->size
;
7436 *drop
= (unsigned long) -1;
7442 memcpy (src
- off
, src
, 8);
7445 toc
->rawsize
= toc
->size
;
7446 toc
->size
= src
- contents
- off
;
7448 if (toc
->reloc_count
!= 0)
7450 Elf_Internal_Rela
*wrel
;
7453 /* Read toc relocs. */
7454 relstart
= _bfd_elf_link_read_relocs (ibfd
, toc
, NULL
, NULL
,
7456 if (relstart
== NULL
)
7459 /* Remove unused toc relocs, and adjust those we keep. */
7461 for (rel
= relstart
; rel
< relstart
+ toc
->reloc_count
; ++rel
)
7462 if (skip
[rel
->r_offset
>> 3] != (unsigned long) -1)
7464 wrel
->r_offset
= rel
->r_offset
- skip
[rel
->r_offset
>> 3];
7465 wrel
->r_info
= rel
->r_info
;
7466 wrel
->r_addend
= rel
->r_addend
;
7469 else if (!dec_dynrel_count (rel
->r_info
, toc
, info
,
7470 &local_syms
, NULL
, NULL
))
7473 toc
->reloc_count
= wrel
- relstart
;
7474 sz
= elf_section_data (toc
)->rel_hdr
.sh_entsize
;
7475 elf_section_data (toc
)->rel_hdr
.sh_size
= toc
->reloc_count
* sz
;
7476 BFD_ASSERT (elf_section_data (toc
)->rel_hdr2
== NULL
);
7479 /* Adjust addends for relocs against the toc section sym. */
7480 for (sec
= ibfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
7482 if (sec
->reloc_count
== 0
7483 || elf_discarded_section (sec
))
7486 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
7488 if (relstart
== NULL
)
7491 for (rel
= relstart
; rel
< relstart
+ sec
->reloc_count
; ++rel
)
7493 enum elf_ppc64_reloc_type r_type
;
7494 unsigned long r_symndx
;
7496 struct elf_link_hash_entry
*h
;
7497 Elf_Internal_Sym
*sym
;
7499 r_type
= ELF64_R_TYPE (rel
->r_info
);
7506 case R_PPC64_TOC16_LO
:
7507 case R_PPC64_TOC16_HI
:
7508 case R_PPC64_TOC16_HA
:
7509 case R_PPC64_TOC16_DS
:
7510 case R_PPC64_TOC16_LO_DS
:
7511 case R_PPC64_ADDR64
:
7515 r_symndx
= ELF64_R_SYM (rel
->r_info
);
7516 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
7520 if (sym_sec
!= toc
|| h
!= NULL
|| sym
->st_value
!= 0)
7523 rel
->r_addend
-= skip
[rel
->r_addend
>> 3];
7527 /* We shouldn't have local or global symbols defined in the TOC,
7528 but handle them anyway. */
7529 if (local_syms
!= NULL
)
7531 Elf_Internal_Sym
*sym
;
7533 for (sym
= local_syms
;
7534 sym
< local_syms
+ symtab_hdr
->sh_info
;
7536 if (sym
->st_shndx
!= SHN_UNDEF
7537 && (sym
->st_shndx
< SHN_LORESERVE
7538 || sym
->st_shndx
> SHN_HIRESERVE
)
7539 && sym
->st_value
!= 0
7540 && bfd_section_from_elf_index (ibfd
, sym
->st_shndx
) == toc
)
7542 if (skip
[sym
->st_value
>> 3] != (unsigned long) -1)
7543 sym
->st_value
-= skip
[sym
->st_value
>> 3];
7546 (*_bfd_error_handler
)
7547 (_("%s defined in removed toc entry"),
7548 bfd_elf_sym_name (ibfd
, symtab_hdr
, sym
,
7551 sym
->st_shndx
= SHN_ABS
;
7553 symtab_hdr
->contents
= (unsigned char *) local_syms
;
7557 /* Finally, adjust any global syms defined in the toc. */
7558 if (toc_inf
.global_toc_syms
)
7561 toc_inf
.skip
= skip
;
7562 toc_inf
.global_toc_syms
= FALSE
;
7563 elf_link_hash_traverse (elf_hash_table (info
), adjust_toc_syms
,
7568 if (local_syms
!= NULL
7569 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
7571 if (!info
->keep_memory
)
7574 symtab_hdr
->contents
= (unsigned char *) local_syms
;
7582 /* Allocate space in .plt, .got and associated reloc sections for
7586 allocate_dynrelocs (struct elf_link_hash_entry
*h
, void *inf
)
7588 struct bfd_link_info
*info
;
7589 struct ppc_link_hash_table
*htab
;
7591 struct ppc_link_hash_entry
*eh
;
7592 struct ppc_dyn_relocs
*p
;
7593 struct got_entry
*gent
;
7595 if (h
->root
.type
== bfd_link_hash_indirect
)
7598 if (h
->root
.type
== bfd_link_hash_warning
)
7599 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
7601 info
= (struct bfd_link_info
*) inf
;
7602 htab
= ppc_hash_table (info
);
7604 if (htab
->elf
.dynamic_sections_created
7606 && WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info
->shared
, h
))
7608 struct plt_entry
*pent
;
7609 bfd_boolean doneone
= FALSE
;
7610 for (pent
= h
->plt
.plist
; pent
!= NULL
; pent
= pent
->next
)
7611 if (pent
->plt
.refcount
> 0)
7613 /* If this is the first .plt entry, make room for the special
7617 s
->size
+= PLT_INITIAL_ENTRY_SIZE
;
7619 pent
->plt
.offset
= s
->size
;
7621 /* Make room for this entry. */
7622 s
->size
+= PLT_ENTRY_SIZE
;
7624 /* Make room for the .glink code. */
7627 s
->size
+= GLINK_CALL_STUB_SIZE
;
7628 /* We need bigger stubs past index 32767. */
7629 if (s
->size
>= GLINK_CALL_STUB_SIZE
+ 32768*2*4)
7633 /* We also need to make an entry in the .rela.plt section. */
7635 s
->size
+= sizeof (Elf64_External_Rela
);
7639 pent
->plt
.offset
= (bfd_vma
) -1;
7642 h
->plt
.plist
= NULL
;
7648 h
->plt
.plist
= NULL
;
7652 eh
= (struct ppc_link_hash_entry
*) h
;
7653 /* Run through the TLS GD got entries first if we're changing them
7655 if ((eh
->tls_mask
& TLS_TPRELGD
) != 0)
7656 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
7657 if (gent
->got
.refcount
> 0
7658 && (gent
->tls_type
& TLS_GD
) != 0)
7660 /* This was a GD entry that has been converted to TPREL. If
7661 there happens to be a TPREL entry we can use that one. */
7662 struct got_entry
*ent
;
7663 for (ent
= h
->got
.glist
; ent
!= NULL
; ent
= ent
->next
)
7664 if (ent
->got
.refcount
> 0
7665 && (ent
->tls_type
& TLS_TPREL
) != 0
7666 && ent
->addend
== gent
->addend
7667 && ent
->owner
== gent
->owner
)
7669 gent
->got
.refcount
= 0;
7673 /* If not, then we'll be using our own TPREL entry. */
7674 if (gent
->got
.refcount
!= 0)
7675 gent
->tls_type
= TLS_TLS
| TLS_TPREL
;
7678 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
7679 if (gent
->got
.refcount
> 0)
7683 /* Make sure this symbol is output as a dynamic symbol.
7684 Undefined weak syms won't yet be marked as dynamic,
7685 nor will all TLS symbols. */
7686 if (h
->dynindx
== -1
7687 && !h
->forced_local
)
7689 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
7693 if ((gent
->tls_type
& TLS_LD
) != 0
7696 gent
->got
.offset
= ppc64_tlsld_got (gent
->owner
)->offset
;
7700 s
= ppc64_elf_tdata (gent
->owner
)->got
;
7701 gent
->got
.offset
= s
->size
;
7703 += (gent
->tls_type
& eh
->tls_mask
& (TLS_GD
| TLS_LD
)) ? 16 : 8;
7704 dyn
= htab
->elf
.dynamic_sections_created
;
7706 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, 0, h
))
7707 && (ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
7708 || h
->root
.type
!= bfd_link_hash_undefweak
))
7709 ppc64_elf_tdata (gent
->owner
)->relgot
->size
7710 += (gent
->tls_type
& eh
->tls_mask
& TLS_GD
7711 ? 2 * sizeof (Elf64_External_Rela
)
7712 : sizeof (Elf64_External_Rela
));
7715 gent
->got
.offset
= (bfd_vma
) -1;
7717 if (eh
->dyn_relocs
== NULL
)
7720 /* In the shared -Bsymbolic case, discard space allocated for
7721 dynamic pc-relative relocs against symbols which turn out to be
7722 defined in regular objects. For the normal shared case, discard
7723 space for relocs that have become local due to symbol visibility
7728 /* Relocs that use pc_count are those that appear on a call insn,
7729 or certain REL relocs (see MUST_BE_DYN_RELOC) that can be
7730 generated via assembly. We want calls to protected symbols to
7731 resolve directly to the function rather than going via the plt.
7732 If people want function pointer comparisons to work as expected
7733 then they should avoid writing weird assembly. */
7734 if (SYMBOL_CALLS_LOCAL (info
, h
))
7736 struct ppc_dyn_relocs
**pp
;
7738 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; )
7740 p
->count
-= p
->pc_count
;
7749 /* Also discard relocs on undefined weak syms with non-default
7751 if (eh
->dyn_relocs
!= NULL
7752 && h
->root
.type
== bfd_link_hash_undefweak
)
7754 if (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
)
7755 eh
->dyn_relocs
= NULL
;
7757 /* Make sure this symbol is output as a dynamic symbol.
7758 Undefined weak syms won't yet be marked as dynamic. */
7759 else if (h
->dynindx
== -1
7760 && !h
->forced_local
)
7762 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
7767 else if (ELIMINATE_COPY_RELOCS
)
7769 /* For the non-shared case, discard space for relocs against
7770 symbols which turn out to need copy relocs or are not
7777 /* Make sure this symbol is output as a dynamic symbol.
7778 Undefined weak syms won't yet be marked as dynamic. */
7779 if (h
->dynindx
== -1
7780 && !h
->forced_local
)
7782 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
7786 /* If that succeeded, we know we'll be keeping all the
7788 if (h
->dynindx
!= -1)
7792 eh
->dyn_relocs
= NULL
;
7797 /* Finally, allocate space. */
7798 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
7800 asection
*sreloc
= elf_section_data (p
->sec
)->sreloc
;
7801 sreloc
->size
+= p
->count
* sizeof (Elf64_External_Rela
);
7807 /* Find any dynamic relocs that apply to read-only sections. */
7810 readonly_dynrelocs (struct elf_link_hash_entry
*h
, void *inf
)
7812 struct ppc_link_hash_entry
*eh
;
7813 struct ppc_dyn_relocs
*p
;
7815 if (h
->root
.type
== bfd_link_hash_warning
)
7816 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
7818 eh
= (struct ppc_link_hash_entry
*) h
;
7819 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
7821 asection
*s
= p
->sec
->output_section
;
7823 if (s
!= NULL
&& (s
->flags
& SEC_READONLY
) != 0)
7825 struct bfd_link_info
*info
= inf
;
7827 info
->flags
|= DF_TEXTREL
;
7829 /* Not an error, just cut short the traversal. */
7836 /* Set the sizes of the dynamic sections. */
7839 ppc64_elf_size_dynamic_sections (bfd
*output_bfd ATTRIBUTE_UNUSED
,
7840 struct bfd_link_info
*info
)
7842 struct ppc_link_hash_table
*htab
;
7848 htab
= ppc_hash_table (info
);
7849 dynobj
= htab
->elf
.dynobj
;
7853 if (htab
->elf
.dynamic_sections_created
)
7855 /* Set the contents of the .interp section to the interpreter. */
7856 if (info
->executable
)
7858 s
= bfd_get_section_by_name (dynobj
, ".interp");
7861 s
->size
= sizeof ELF_DYNAMIC_INTERPRETER
;
7862 s
->contents
= (unsigned char *) ELF_DYNAMIC_INTERPRETER
;
7866 /* Set up .got offsets for local syms, and space for local dynamic
7868 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
7870 struct got_entry
**lgot_ents
;
7871 struct got_entry
**end_lgot_ents
;
7873 bfd_size_type locsymcount
;
7874 Elf_Internal_Shdr
*symtab_hdr
;
7877 if (!is_ppc64_elf_target (ibfd
->xvec
))
7880 if (ppc64_tlsld_got (ibfd
)->refcount
> 0)
7882 s
= ppc64_elf_tdata (ibfd
)->got
;
7883 ppc64_tlsld_got (ibfd
)->offset
= s
->size
;
7887 srel
= ppc64_elf_tdata (ibfd
)->relgot
;
7888 srel
->size
+= sizeof (Elf64_External_Rela
);
7892 ppc64_tlsld_got (ibfd
)->offset
= (bfd_vma
) -1;
7894 for (s
= ibfd
->sections
; s
!= NULL
; s
= s
->next
)
7896 struct ppc_dyn_relocs
*p
;
7898 for (p
= elf_section_data (s
)->local_dynrel
; p
!= NULL
; p
= p
->next
)
7900 if (!bfd_is_abs_section (p
->sec
)
7901 && bfd_is_abs_section (p
->sec
->output_section
))
7903 /* Input section has been discarded, either because
7904 it is a copy of a linkonce section or due to
7905 linker script /DISCARD/, so we'll be discarding
7908 else if (p
->count
!= 0)
7910 srel
= elf_section_data (p
->sec
)->sreloc
;
7911 srel
->size
+= p
->count
* sizeof (Elf64_External_Rela
);
7912 if ((p
->sec
->output_section
->flags
& SEC_READONLY
) != 0)
7913 info
->flags
|= DF_TEXTREL
;
7918 lgot_ents
= elf_local_got_ents (ibfd
);
7922 symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
7923 locsymcount
= symtab_hdr
->sh_info
;
7924 end_lgot_ents
= lgot_ents
+ locsymcount
;
7925 lgot_masks
= (char *) end_lgot_ents
;
7926 s
= ppc64_elf_tdata (ibfd
)->got
;
7927 srel
= ppc64_elf_tdata (ibfd
)->relgot
;
7928 for (; lgot_ents
< end_lgot_ents
; ++lgot_ents
, ++lgot_masks
)
7930 struct got_entry
*ent
;
7932 for (ent
= *lgot_ents
; ent
!= NULL
; ent
= ent
->next
)
7933 if (ent
->got
.refcount
> 0)
7935 if ((ent
->tls_type
& *lgot_masks
& TLS_LD
) != 0)
7937 if (ppc64_tlsld_got (ibfd
)->offset
== (bfd_vma
) -1)
7939 ppc64_tlsld_got (ibfd
)->offset
= s
->size
;
7942 srel
->size
+= sizeof (Elf64_External_Rela
);
7944 ent
->got
.offset
= ppc64_tlsld_got (ibfd
)->offset
;
7948 ent
->got
.offset
= s
->size
;
7949 if ((ent
->tls_type
& *lgot_masks
& TLS_GD
) != 0)
7953 srel
->size
+= 2 * sizeof (Elf64_External_Rela
);
7959 srel
->size
+= sizeof (Elf64_External_Rela
);
7964 ent
->got
.offset
= (bfd_vma
) -1;
7968 /* Allocate global sym .plt and .got entries, and space for global
7969 sym dynamic relocs. */
7970 elf_link_hash_traverse (&htab
->elf
, allocate_dynrelocs
, info
);
7972 /* We now have determined the sizes of the various dynamic sections.
7973 Allocate memory for them. */
7975 for (s
= dynobj
->sections
; s
!= NULL
; s
= s
->next
)
7977 if ((s
->flags
& SEC_LINKER_CREATED
) == 0)
7980 if (s
== htab
->brlt
|| s
== htab
->relbrlt
)
7981 /* These haven't been allocated yet; don't strip. */
7983 else if (s
== htab
->got
7986 || s
== htab
->dynbss
)
7988 /* Strip this section if we don't need it; see the
7991 else if (CONST_STRNEQ (bfd_get_section_name (dynobj
, s
), ".rela"))
7995 if (s
!= htab
->relplt
)
7998 /* We use the reloc_count field as a counter if we need
7999 to copy relocs into the output file. */
8005 /* It's not one of our sections, so don't allocate space. */
8011 /* If we don't need this section, strip it from the
8012 output file. This is mostly to handle .rela.bss and
8013 .rela.plt. We must create both sections in
8014 create_dynamic_sections, because they must be created
8015 before the linker maps input sections to output
8016 sections. The linker does that before
8017 adjust_dynamic_symbol is called, and it is that
8018 function which decides whether anything needs to go
8019 into these sections. */
8020 s
->flags
|= SEC_EXCLUDE
;
8024 if ((s
->flags
& SEC_HAS_CONTENTS
) == 0)
8027 /* Allocate memory for the section contents. We use bfd_zalloc
8028 here in case unused entries are not reclaimed before the
8029 section's contents are written out. This should not happen,
8030 but this way if it does we get a R_PPC64_NONE reloc in .rela
8031 sections instead of garbage.
8032 We also rely on the section contents being zero when writing
8034 s
->contents
= bfd_zalloc (dynobj
, s
->size
);
8035 if (s
->contents
== NULL
)
8039 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
8041 if (!is_ppc64_elf_target (ibfd
->xvec
))
8044 s
= ppc64_elf_tdata (ibfd
)->got
;
8045 if (s
!= NULL
&& s
!= htab
->got
)
8048 s
->flags
|= SEC_EXCLUDE
;
8051 s
->contents
= bfd_zalloc (ibfd
, s
->size
);
8052 if (s
->contents
== NULL
)
8056 s
= ppc64_elf_tdata (ibfd
)->relgot
;
8060 s
->flags
|= SEC_EXCLUDE
;
8063 s
->contents
= bfd_zalloc (ibfd
, s
->size
);
8064 if (s
->contents
== NULL
)
8072 if (htab
->elf
.dynamic_sections_created
)
8074 /* Add some entries to the .dynamic section. We fill in the
8075 values later, in ppc64_elf_finish_dynamic_sections, but we
8076 must add the entries now so that we get the correct size for
8077 the .dynamic section. The DT_DEBUG entry is filled in by the
8078 dynamic linker and used by the debugger. */
8079 #define add_dynamic_entry(TAG, VAL) \
8080 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
8082 if (info
->executable
)
8084 if (!add_dynamic_entry (DT_DEBUG
, 0))
8088 if (htab
->plt
!= NULL
&& htab
->plt
->size
!= 0)
8090 if (!add_dynamic_entry (DT_PLTGOT
, 0)
8091 || !add_dynamic_entry (DT_PLTRELSZ
, 0)
8092 || !add_dynamic_entry (DT_PLTREL
, DT_RELA
)
8093 || !add_dynamic_entry (DT_JMPREL
, 0)
8094 || !add_dynamic_entry (DT_PPC64_GLINK
, 0))
8100 if (!add_dynamic_entry (DT_PPC64_OPD
, 0)
8101 || !add_dynamic_entry (DT_PPC64_OPDSZ
, 0))
8107 if (!add_dynamic_entry (DT_RELA
, 0)
8108 || !add_dynamic_entry (DT_RELASZ
, 0)
8109 || !add_dynamic_entry (DT_RELAENT
, sizeof (Elf64_External_Rela
)))
8112 /* If any dynamic relocs apply to a read-only section,
8113 then we need a DT_TEXTREL entry. */
8114 if ((info
->flags
& DF_TEXTREL
) == 0)
8115 elf_link_hash_traverse (&htab
->elf
, readonly_dynrelocs
, info
);
8117 if ((info
->flags
& DF_TEXTREL
) != 0)
8119 if (!add_dynamic_entry (DT_TEXTREL
, 0))
8124 #undef add_dynamic_entry
8129 /* Determine the type of stub needed, if any, for a call. */
8131 static inline enum ppc_stub_type
8132 ppc_type_of_stub (asection
*input_sec
,
8133 const Elf_Internal_Rela
*rel
,
8134 struct ppc_link_hash_entry
**hash
,
8135 bfd_vma destination
)
8137 struct ppc_link_hash_entry
*h
= *hash
;
8139 bfd_vma branch_offset
;
8140 bfd_vma max_branch_offset
;
8141 enum elf_ppc64_reloc_type r_type
;
8145 struct ppc_link_hash_entry
*fdh
= h
;
8147 && fdh
->oh
->is_func_descriptor
)
8150 if (fdh
->elf
.dynindx
!= -1)
8152 struct plt_entry
*ent
;
8154 for (ent
= fdh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
8155 if (ent
->addend
== rel
->r_addend
8156 && ent
->plt
.offset
!= (bfd_vma
) -1)
8159 return ppc_stub_plt_call
;
8163 /* Here, we know we don't have a plt entry. If we don't have a
8164 either a defined function descriptor or a defined entry symbol
8165 in a regular object file, then it is pointless trying to make
8166 any other type of stub. */
8167 if (!((fdh
->elf
.root
.type
== bfd_link_hash_defined
8168 || fdh
->elf
.root
.type
== bfd_link_hash_defweak
)
8169 && fdh
->elf
.root
.u
.def
.section
->output_section
!= NULL
)
8170 && !((h
->elf
.root
.type
== bfd_link_hash_defined
8171 || h
->elf
.root
.type
== bfd_link_hash_defweak
)
8172 && h
->elf
.root
.u
.def
.section
->output_section
!= NULL
))
8173 return ppc_stub_none
;
8176 /* Determine where the call point is. */
8177 location
= (input_sec
->output_offset
8178 + input_sec
->output_section
->vma
8181 branch_offset
= destination
- location
;
8182 r_type
= ELF64_R_TYPE (rel
->r_info
);
8184 /* Determine if a long branch stub is needed. */
8185 max_branch_offset
= 1 << 25;
8186 if (r_type
!= R_PPC64_REL24
)
8187 max_branch_offset
= 1 << 15;
8189 if (branch_offset
+ max_branch_offset
>= 2 * max_branch_offset
)
8190 /* We need a stub. Figure out whether a long_branch or plt_branch
8192 return ppc_stub_long_branch
;
8194 return ppc_stub_none
;
8197 /* Build a .plt call stub. */
8199 static inline bfd_byte
*
8200 build_plt_stub (bfd
*obfd
, bfd_byte
*p
, int offset
)
8202 #define PPC_LO(v) ((v) & 0xffff)
8203 #define PPC_HI(v) (((v) >> 16) & 0xffff)
8204 #define PPC_HA(v) PPC_HI ((v) + 0x8000)
8206 if (PPC_HA (offset
) != 0)
8208 bfd_put_32 (obfd
, ADDIS_R12_R2
| PPC_HA (offset
), p
), p
+= 4;
8209 bfd_put_32 (obfd
, STD_R2_40R1
, p
), p
+= 4;
8210 bfd_put_32 (obfd
, LD_R11_0R12
| PPC_LO (offset
), p
), p
+= 4;
8211 if (PPC_HA (offset
+ 16) != PPC_HA (offset
))
8213 bfd_put_32 (obfd
, ADDI_R12_R12
| PPC_LO (offset
), p
), p
+= 4;
8216 bfd_put_32 (obfd
, MTCTR_R11
, p
), p
+= 4;
8217 bfd_put_32 (obfd
, LD_R2_0R12
| PPC_LO (offset
+ 8), p
), p
+= 4;
8218 bfd_put_32 (obfd
, LD_R11_0R12
| PPC_LO (offset
+ 16), p
), p
+= 4;
8219 bfd_put_32 (obfd
, BCTR
, p
), p
+= 4;
8223 bfd_put_32 (obfd
, STD_R2_40R1
, p
), p
+= 4;
8224 bfd_put_32 (obfd
, LD_R11_0R2
| PPC_LO (offset
), p
), p
+= 4;
8225 if (PPC_HA (offset
+ 16) != PPC_HA (offset
))
8227 bfd_put_32 (obfd
, ADDI_R2_R2
| PPC_LO (offset
), p
), p
+= 4;
8230 bfd_put_32 (obfd
, MTCTR_R11
, p
), p
+= 4;
8231 bfd_put_32 (obfd
, LD_R11_0R2
| PPC_LO (offset
+ 16), p
), p
+= 4;
8232 bfd_put_32 (obfd
, LD_R2_0R2
| PPC_LO (offset
+ 8), p
), p
+= 4;
8233 bfd_put_32 (obfd
, BCTR
, p
), p
+= 4;
8239 ppc_build_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
8241 struct ppc_stub_hash_entry
*stub_entry
;
8242 struct ppc_branch_hash_entry
*br_entry
;
8243 struct bfd_link_info
*info
;
8244 struct ppc_link_hash_table
*htab
;
8248 struct plt_entry
*ent
;
8252 /* Massage our args to the form they really have. */
8253 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
8256 htab
= ppc_hash_table (info
);
8258 /* Make a note of the offset within the stubs for this entry. */
8259 stub_entry
->stub_offset
= stub_entry
->stub_sec
->size
;
8260 loc
= stub_entry
->stub_sec
->contents
+ stub_entry
->stub_offset
;
8262 htab
->stub_count
[stub_entry
->stub_type
- 1] += 1;
8263 switch (stub_entry
->stub_type
)
8265 case ppc_stub_long_branch
:
8266 case ppc_stub_long_branch_r2off
:
8267 /* Branches are relative. This is where we are going to. */
8268 off
= dest
= (stub_entry
->target_value
8269 + stub_entry
->target_section
->output_offset
8270 + stub_entry
->target_section
->output_section
->vma
);
8272 /* And this is where we are coming from. */
8273 off
-= (stub_entry
->stub_offset
8274 + stub_entry
->stub_sec
->output_offset
8275 + stub_entry
->stub_sec
->output_section
->vma
);
8278 if (stub_entry
->stub_type
== ppc_stub_long_branch_r2off
)
8282 r2off
= (htab
->stub_group
[stub_entry
->target_section
->id
].toc_off
8283 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
8284 bfd_put_32 (htab
->stub_bfd
, STD_R2_40R1
, loc
);
8287 if (PPC_HA (r2off
) != 0)
8290 bfd_put_32 (htab
->stub_bfd
, ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
8293 bfd_put_32 (htab
->stub_bfd
, ADDI_R2_R2
| PPC_LO (r2off
), loc
);
8297 bfd_put_32 (htab
->stub_bfd
, B_DOT
| (off
& 0x3fffffc), loc
);
8299 if (off
+ (1 << 25) >= (bfd_vma
) (1 << 26))
8301 (*_bfd_error_handler
) (_("long branch stub `%s' offset overflow"),
8302 stub_entry
->root
.string
);
8303 htab
->stub_error
= TRUE
;
8307 if (info
->emitrelocations
)
8309 Elf_Internal_Rela
*relocs
, *r
;
8310 struct bfd_elf_section_data
*elfsec_data
;
8312 elfsec_data
= elf_section_data (stub_entry
->stub_sec
);
8313 relocs
= elfsec_data
->relocs
;
8316 bfd_size_type relsize
;
8317 relsize
= stub_entry
->stub_sec
->reloc_count
* sizeof (*relocs
);
8318 relocs
= bfd_alloc (htab
->stub_bfd
, relsize
);
8321 elfsec_data
->relocs
= relocs
;
8322 elfsec_data
->rel_hdr
.sh_size
= (stub_entry
->stub_sec
->reloc_count
8323 * sizeof (Elf64_External_Rela
));
8324 elfsec_data
->rel_hdr
.sh_entsize
= sizeof (Elf64_External_Rela
);
8325 stub_entry
->stub_sec
->reloc_count
= 0;
8327 r
= relocs
+ stub_entry
->stub_sec
->reloc_count
;
8328 stub_entry
->stub_sec
->reloc_count
+= 1;
8329 r
->r_offset
= loc
- stub_entry
->stub_sec
->contents
;
8330 r
->r_info
= ELF64_R_INFO (0, R_PPC64_REL24
);
8332 if (stub_entry
->h
!= NULL
)
8334 struct elf_link_hash_entry
**hashes
;
8335 unsigned long symndx
;
8336 struct ppc_link_hash_entry
*h
;
8338 hashes
= elf_sym_hashes (htab
->stub_bfd
);
8341 bfd_size_type hsize
;
8343 hsize
= (htab
->stub_globals
+ 1) * sizeof (*hashes
);
8344 hashes
= bfd_zalloc (htab
->stub_bfd
, hsize
);
8347 elf_sym_hashes (htab
->stub_bfd
) = hashes
;
8348 htab
->stub_globals
= 1;
8350 symndx
= htab
->stub_globals
++;
8352 hashes
[symndx
] = &h
->elf
;
8353 r
->r_info
= ELF64_R_INFO (symndx
, R_PPC64_REL24
);
8354 if (h
->oh
!= NULL
&& h
->oh
->is_func
)
8356 if (h
->elf
.root
.u
.def
.section
!= stub_entry
->target_section
)
8357 /* H is an opd symbol. The addend must be zero. */
8361 off
= (h
->elf
.root
.u
.def
.value
8362 + h
->elf
.root
.u
.def
.section
->output_offset
8363 + h
->elf
.root
.u
.def
.section
->output_section
->vma
);
8370 case ppc_stub_plt_branch
:
8371 case ppc_stub_plt_branch_r2off
:
8372 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
8373 stub_entry
->root
.string
+ 9,
8375 if (br_entry
== NULL
)
8377 (*_bfd_error_handler
) (_("can't find branch stub `%s'"),
8378 stub_entry
->root
.string
);
8379 htab
->stub_error
= TRUE
;
8383 off
= (stub_entry
->target_value
8384 + stub_entry
->target_section
->output_offset
8385 + stub_entry
->target_section
->output_section
->vma
);
8387 bfd_put_64 (htab
->brlt
->owner
, off
,
8388 htab
->brlt
->contents
+ br_entry
->offset
);
8390 if (br_entry
->iter
== htab
->stub_iteration
)
8394 if (htab
->relbrlt
!= NULL
)
8396 /* Create a reloc for the branch lookup table entry. */
8397 Elf_Internal_Rela rela
;
8400 rela
.r_offset
= (br_entry
->offset
8401 + htab
->brlt
->output_offset
8402 + htab
->brlt
->output_section
->vma
);
8403 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
8404 rela
.r_addend
= off
;
8406 rl
= htab
->relbrlt
->contents
;
8407 rl
+= (htab
->relbrlt
->reloc_count
++
8408 * sizeof (Elf64_External_Rela
));
8409 bfd_elf64_swap_reloca_out (htab
->relbrlt
->owner
, &rela
, rl
);
8411 else if (info
->emitrelocations
)
8413 Elf_Internal_Rela
*relocs
, *r
;
8414 struct bfd_elf_section_data
*elfsec_data
;
8416 elfsec_data
= elf_section_data (htab
->brlt
);
8417 relocs
= elfsec_data
->relocs
;
8420 bfd_size_type relsize
;
8421 relsize
= htab
->brlt
->reloc_count
* sizeof (*relocs
);
8422 relocs
= bfd_alloc (htab
->brlt
->owner
, relsize
);
8425 elfsec_data
->relocs
= relocs
;
8426 elfsec_data
->rel_hdr
.sh_size
8427 = (stub_entry
->stub_sec
->reloc_count
8428 * sizeof (Elf64_External_Rela
));
8429 elfsec_data
->rel_hdr
.sh_entsize
8430 = sizeof (Elf64_External_Rela
);
8431 htab
->brlt
->reloc_count
= 0;
8433 r
= relocs
+ htab
->brlt
->reloc_count
;
8434 htab
->brlt
->reloc_count
+= 1;
8435 r
->r_offset
= (br_entry
->offset
8436 + htab
->brlt
->output_offset
8437 + htab
->brlt
->output_section
->vma
);
8438 r
->r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
8443 off
= (br_entry
->offset
8444 + htab
->brlt
->output_offset
8445 + htab
->brlt
->output_section
->vma
8446 - elf_gp (htab
->brlt
->output_section
->owner
)
8447 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
8449 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
8451 (*_bfd_error_handler
)
8452 (_("linkage table error against `%s'"),
8453 stub_entry
->root
.string
);
8454 bfd_set_error (bfd_error_bad_value
);
8455 htab
->stub_error
= TRUE
;
8460 if (stub_entry
->stub_type
!= ppc_stub_plt_branch_r2off
)
8462 if (PPC_HA (indx
) != 0)
8465 bfd_put_32 (htab
->stub_bfd
, ADDIS_R12_R2
| PPC_HA (indx
), loc
);
8467 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R12
| PPC_LO (indx
), loc
);
8472 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R2
| PPC_LO (indx
), loc
);
8479 r2off
= (htab
->stub_group
[stub_entry
->target_section
->id
].toc_off
8480 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
8481 bfd_put_32 (htab
->stub_bfd
, STD_R2_40R1
, loc
);
8484 if (PPC_HA (indx
) != 0)
8487 bfd_put_32 (htab
->stub_bfd
, ADDIS_R12_R2
| PPC_HA (indx
), loc
);
8489 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R12
| PPC_LO (indx
), loc
);
8494 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R2
| PPC_LO (indx
), loc
);
8498 if (PPC_HA (r2off
) != 0)
8501 bfd_put_32 (htab
->stub_bfd
, ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
8504 bfd_put_32 (htab
->stub_bfd
, ADDI_R2_R2
| PPC_LO (r2off
), loc
);
8507 bfd_put_32 (htab
->stub_bfd
, MTCTR_R11
, loc
);
8509 bfd_put_32 (htab
->stub_bfd
, BCTR
, loc
);
8512 case ppc_stub_plt_call
:
8513 /* Do the best we can for shared libraries built without
8514 exporting ".foo" for each "foo". This can happen when symbol
8515 versioning scripts strip all bar a subset of symbols. */
8516 if (stub_entry
->h
->oh
!= NULL
8517 && stub_entry
->h
->oh
->elf
.root
.type
!= bfd_link_hash_defined
8518 && stub_entry
->h
->oh
->elf
.root
.type
!= bfd_link_hash_defweak
)
8520 /* Point the symbol at the stub. There may be multiple stubs,
8521 we don't really care; The main thing is to make this sym
8522 defined somewhere. Maybe defining the symbol in the stub
8523 section is a silly idea. If we didn't do this, htab->top_id
8525 stub_entry
->h
->oh
->elf
.root
.type
= bfd_link_hash_defined
;
8526 stub_entry
->h
->oh
->elf
.root
.u
.def
.section
= stub_entry
->stub_sec
;
8527 stub_entry
->h
->oh
->elf
.root
.u
.def
.value
= stub_entry
->stub_offset
;
8530 /* Now build the stub. */
8532 for (ent
= stub_entry
->h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
8533 if (ent
->addend
== stub_entry
->addend
)
8535 off
= ent
->plt
.offset
;
8538 if (off
>= (bfd_vma
) -2)
8541 off
&= ~ (bfd_vma
) 1;
8542 off
+= (htab
->plt
->output_offset
8543 + htab
->plt
->output_section
->vma
8544 - elf_gp (htab
->plt
->output_section
->owner
)
8545 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
8547 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
8549 (*_bfd_error_handler
)
8550 (_("linkage table error against `%s'"),
8551 stub_entry
->h
->elf
.root
.root
.string
);
8552 bfd_set_error (bfd_error_bad_value
);
8553 htab
->stub_error
= TRUE
;
8557 p
= build_plt_stub (htab
->stub_bfd
, loc
, off
);
8566 stub_entry
->stub_sec
->size
+= size
;
8568 if (htab
->emit_stub_syms
)
8570 struct elf_link_hash_entry
*h
;
8573 const char *const stub_str
[] = { "long_branch",
8574 "long_branch_r2off",
8579 len1
= strlen (stub_str
[stub_entry
->stub_type
- 1]);
8580 len2
= strlen (stub_entry
->root
.string
);
8581 name
= bfd_malloc (len1
+ len2
+ 2);
8584 memcpy (name
, stub_entry
->root
.string
, 9);
8585 memcpy (name
+ 9, stub_str
[stub_entry
->stub_type
- 1], len1
);
8586 memcpy (name
+ len1
+ 9, stub_entry
->root
.string
+ 8, len2
- 8 + 1);
8587 h
= elf_link_hash_lookup (&htab
->elf
, name
, TRUE
, FALSE
, FALSE
);
8590 if (h
->root
.type
== bfd_link_hash_new
)
8592 h
->root
.type
= bfd_link_hash_defined
;
8593 h
->root
.u
.def
.section
= stub_entry
->stub_sec
;
8594 h
->root
.u
.def
.value
= stub_entry
->stub_offset
;
8597 h
->ref_regular_nonweak
= 1;
8598 h
->forced_local
= 1;
8606 /* As above, but don't actually build the stub. Just bump offset so
8607 we know stub section sizes, and select plt_branch stubs where
8608 long_branch stubs won't do. */
8611 ppc_size_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
8613 struct ppc_stub_hash_entry
*stub_entry
;
8614 struct bfd_link_info
*info
;
8615 struct ppc_link_hash_table
*htab
;
8619 /* Massage our args to the form they really have. */
8620 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
8623 htab
= ppc_hash_table (info
);
8625 if (stub_entry
->stub_type
== ppc_stub_plt_call
)
8627 struct plt_entry
*ent
;
8629 for (ent
= stub_entry
->h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
8630 if (ent
->addend
== stub_entry
->addend
)
8632 off
= ent
->plt
.offset
& ~(bfd_vma
) 1;
8635 if (off
>= (bfd_vma
) -2)
8637 off
+= (htab
->plt
->output_offset
8638 + htab
->plt
->output_section
->vma
8639 - elf_gp (htab
->plt
->output_section
->owner
)
8640 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
8642 size
= PLT_CALL_STUB_SIZE
;
8643 if (PPC_HA (off
) == 0)
8645 if (PPC_HA (off
+ 16) != PPC_HA (off
))
8650 /* ppc_stub_long_branch or ppc_stub_plt_branch, or their r2off
8654 off
= (stub_entry
->target_value
8655 + stub_entry
->target_section
->output_offset
8656 + stub_entry
->target_section
->output_section
->vma
);
8657 off
-= (stub_entry
->stub_sec
->size
8658 + stub_entry
->stub_sec
->output_offset
8659 + stub_entry
->stub_sec
->output_section
->vma
);
8661 /* Reset the stub type from the plt variant in case we now
8662 can reach with a shorter stub. */
8663 if (stub_entry
->stub_type
>= ppc_stub_plt_branch
)
8664 stub_entry
->stub_type
+= ppc_stub_long_branch
- ppc_stub_plt_branch
;
8667 if (stub_entry
->stub_type
== ppc_stub_long_branch_r2off
)
8669 r2off
= (htab
->stub_group
[stub_entry
->target_section
->id
].toc_off
8670 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
8672 if (PPC_HA (r2off
) != 0)
8677 /* If the branch offset if too big, use a ppc_stub_plt_branch. */
8678 if (off
+ (1 << 25) >= (bfd_vma
) (1 << 26))
8680 struct ppc_branch_hash_entry
*br_entry
;
8683 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
8684 stub_entry
->root
.string
+ 9,
8686 if (br_entry
== NULL
)
8688 (*_bfd_error_handler
) (_("can't build branch stub `%s'"),
8689 stub_entry
->root
.string
);
8690 htab
->stub_error
= TRUE
;
8694 if (br_entry
->iter
!= htab
->stub_iteration
)
8696 br_entry
->iter
= htab
->stub_iteration
;
8697 br_entry
->offset
= htab
->brlt
->size
;
8698 htab
->brlt
->size
+= 8;
8700 if (htab
->relbrlt
!= NULL
)
8701 htab
->relbrlt
->size
+= sizeof (Elf64_External_Rela
);
8702 else if (info
->emitrelocations
)
8704 htab
->brlt
->reloc_count
+= 1;
8705 htab
->brlt
->flags
|= SEC_RELOC
;
8709 stub_entry
->stub_type
+= ppc_stub_plt_branch
- ppc_stub_long_branch
;
8710 off
= (br_entry
->offset
8711 + htab
->brlt
->output_offset
8712 + htab
->brlt
->output_section
->vma
8713 - elf_gp (htab
->brlt
->output_section
->owner
)
8714 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
8717 if (stub_entry
->stub_type
!= ppc_stub_plt_branch_r2off
)
8720 if (PPC_HA (indx
) != 0)
8726 if (PPC_HA (indx
) != 0)
8729 if (PPC_HA (r2off
) != 0)
8733 else if (info
->emitrelocations
)
8735 stub_entry
->stub_sec
->reloc_count
+= 1;
8736 stub_entry
->stub_sec
->flags
|= SEC_RELOC
;
8740 stub_entry
->stub_sec
->size
+= size
;
8744 /* Set up various things so that we can make a list of input sections
8745 for each output section included in the link. Returns -1 on error,
8746 0 when no stubs will be needed, and 1 on success. */
8749 ppc64_elf_setup_section_lists (bfd
*output_bfd
,
8750 struct bfd_link_info
*info
,
8754 int top_id
, top_index
, id
;
8756 asection
**input_list
;
8758 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
8760 htab
->no_multi_toc
= no_multi_toc
;
8762 if (htab
->brlt
== NULL
)
8765 /* Find the top input section id. */
8766 for (input_bfd
= info
->input_bfds
, top_id
= 3;
8768 input_bfd
= input_bfd
->link_next
)
8770 for (section
= input_bfd
->sections
;
8772 section
= section
->next
)
8774 if (top_id
< section
->id
)
8775 top_id
= section
->id
;
8779 htab
->top_id
= top_id
;
8780 amt
= sizeof (struct map_stub
) * (top_id
+ 1);
8781 htab
->stub_group
= bfd_zmalloc (amt
);
8782 if (htab
->stub_group
== NULL
)
8785 /* Set toc_off for com, und, abs and ind sections. */
8786 for (id
= 0; id
< 3; id
++)
8787 htab
->stub_group
[id
].toc_off
= TOC_BASE_OFF
;
8789 elf_gp (output_bfd
) = htab
->toc_curr
= ppc64_elf_toc (output_bfd
);
8791 /* We can't use output_bfd->section_count here to find the top output
8792 section index as some sections may have been removed, and
8793 strip_excluded_output_sections doesn't renumber the indices. */
8794 for (section
= output_bfd
->sections
, top_index
= 0;
8796 section
= section
->next
)
8798 if (top_index
< section
->index
)
8799 top_index
= section
->index
;
8802 htab
->top_index
= top_index
;
8803 amt
= sizeof (asection
*) * (top_index
+ 1);
8804 input_list
= bfd_zmalloc (amt
);
8805 htab
->input_list
= input_list
;
8806 if (input_list
== NULL
)
8812 /* The linker repeatedly calls this function for each TOC input section
8813 and linker generated GOT section. Group input bfds such that the toc
8814 within a group is less than 64k in size. Will break with cute linker
8815 scripts that play games with dot in the output toc section. */
8818 ppc64_elf_next_toc_section (struct bfd_link_info
*info
, asection
*isec
)
8820 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
8822 if (!htab
->no_multi_toc
)
8824 bfd_vma addr
= isec
->output_offset
+ isec
->output_section
->vma
;
8825 bfd_vma off
= addr
- htab
->toc_curr
;
8827 if (off
+ isec
->size
> 0x10000)
8828 htab
->toc_curr
= addr
;
8830 elf_gp (isec
->owner
) = (htab
->toc_curr
8831 - elf_gp (isec
->output_section
->owner
)
8836 /* Called after the last call to the above function. */
8839 ppc64_elf_reinit_toc (bfd
*output_bfd
, struct bfd_link_info
*info
)
8841 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
8843 htab
->multi_toc_needed
= htab
->toc_curr
!= elf_gp (output_bfd
);
8845 /* toc_curr tracks the TOC offset used for code sections below in
8846 ppc64_elf_next_input_section. Start off at 0x8000. */
8847 htab
->toc_curr
= TOC_BASE_OFF
;
8850 /* No toc references were found in ISEC. If the code in ISEC makes no
8851 calls, then there's no need to use toc adjusting stubs when branching
8852 into ISEC. Actually, indirect calls from ISEC are OK as they will
8853 load r2. Returns -1 on error, 0 for no stub needed, 1 for stub
8854 needed, and 2 if a cyclical call-graph was found but no other reason
8855 for a stub was detected. If called from the top level, a return of
8856 2 means the same as a return of 0. */
8859 toc_adjusting_stub_needed (struct bfd_link_info
*info
, asection
*isec
)
8861 Elf_Internal_Rela
*relstart
, *rel
;
8862 Elf_Internal_Sym
*local_syms
;
8864 struct ppc_link_hash_table
*htab
;
8866 /* We know none of our code bearing sections will need toc stubs. */
8867 if ((isec
->flags
& SEC_LINKER_CREATED
) != 0)
8870 if (isec
->size
== 0)
8873 if (isec
->output_section
== NULL
)
8876 if (isec
->reloc_count
== 0)
8879 relstart
= _bfd_elf_link_read_relocs (isec
->owner
, isec
, NULL
, NULL
,
8881 if (relstart
== NULL
)
8884 /* Look for branches to outside of this section. */
8887 htab
= ppc_hash_table (info
);
8888 for (rel
= relstart
; rel
< relstart
+ isec
->reloc_count
; ++rel
)
8890 enum elf_ppc64_reloc_type r_type
;
8891 unsigned long r_symndx
;
8892 struct elf_link_hash_entry
*h
;
8893 Elf_Internal_Sym
*sym
;
8899 r_type
= ELF64_R_TYPE (rel
->r_info
);
8900 if (r_type
!= R_PPC64_REL24
8901 && r_type
!= R_PPC64_REL14
8902 && r_type
!= R_PPC64_REL14_BRTAKEN
8903 && r_type
!= R_PPC64_REL14_BRNTAKEN
)
8906 r_symndx
= ELF64_R_SYM (rel
->r_info
);
8907 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
, r_symndx
,
8914 /* Calls to dynamic lib functions go through a plt call stub
8915 that uses r2. Branches to undefined symbols might be a call
8916 using old-style dot symbols that can be satisfied by a plt
8917 call into a new-style dynamic library. */
8918 if (sym_sec
== NULL
)
8920 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) h
;
8923 && eh
->oh
->elf
.plt
.plist
!= NULL
)
8929 /* Ignore other undefined symbols. */
8933 /* Assume branches to other sections not included in the link need
8934 stubs too, to cover -R and absolute syms. */
8935 if (sym_sec
->output_section
== NULL
)
8942 sym_value
= sym
->st_value
;
8945 if (h
->root
.type
!= bfd_link_hash_defined
8946 && h
->root
.type
!= bfd_link_hash_defweak
)
8948 sym_value
= h
->root
.u
.def
.value
;
8950 sym_value
+= rel
->r_addend
;
8952 /* If this branch reloc uses an opd sym, find the code section. */
8953 opd_adjust
= get_opd_info (sym_sec
);
8954 if (opd_adjust
!= NULL
)
8960 adjust
= opd_adjust
[sym
->st_value
/ 8];
8962 /* Assume deleted functions won't ever be called. */
8964 sym_value
+= adjust
;
8967 dest
= opd_entry_value (sym_sec
, sym_value
, &sym_sec
, NULL
);
8968 if (dest
== (bfd_vma
) -1)
8973 + sym_sec
->output_offset
8974 + sym_sec
->output_section
->vma
);
8976 /* Ignore branch to self. */
8977 if (sym_sec
== isec
)
8980 /* If the called function uses the toc, we need a stub. */
8981 if (sym_sec
->has_toc_reloc
8982 || sym_sec
->makes_toc_func_call
)
8988 /* Assume any branch that needs a long branch stub might in fact
8989 need a plt_branch stub. A plt_branch stub uses r2. */
8990 else if (dest
- (isec
->output_offset
8991 + isec
->output_section
->vma
8992 + rel
->r_offset
) + (1 << 25) >= (2 << 25))
8998 /* If calling back to a section in the process of being tested, we
8999 can't say for sure that no toc adjusting stubs are needed, so
9000 don't return zero. */
9001 else if (sym_sec
->call_check_in_progress
)
9004 /* Branches to another section that itself doesn't have any TOC
9005 references are OK. Recursively call ourselves to check. */
9006 else if (sym_sec
->id
<= htab
->top_id
9007 && htab
->stub_group
[sym_sec
->id
].toc_off
== 0)
9011 /* Mark current section as indeterminate, so that other
9012 sections that call back to current won't be marked as
9014 isec
->call_check_in_progress
= 1;
9015 recur
= toc_adjusting_stub_needed (info
, sym_sec
);
9016 isec
->call_check_in_progress
= 0;
9020 /* An error. Exit. */
9024 else if (recur
<= 1)
9026 /* Known result. Mark as checked and set section flag. */
9027 htab
->stub_group
[sym_sec
->id
].toc_off
= 1;
9030 sym_sec
->makes_toc_func_call
= 1;
9037 /* Unknown result. Continue checking. */
9043 if (local_syms
!= NULL
9044 && (elf_tdata (isec
->owner
)->symtab_hdr
.contents
9045 != (unsigned char *) local_syms
))
9047 if (elf_section_data (isec
)->relocs
!= relstart
)
9053 /* The linker repeatedly calls this function for each input section,
9054 in the order that input sections are linked into output sections.
9055 Build lists of input sections to determine groupings between which
9056 we may insert linker stubs. */
9059 ppc64_elf_next_input_section (struct bfd_link_info
*info
, asection
*isec
)
9061 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
9063 if ((isec
->output_section
->flags
& SEC_CODE
) != 0
9064 && isec
->output_section
->index
<= htab
->top_index
)
9066 asection
**list
= htab
->input_list
+ isec
->output_section
->index
;
9067 /* Steal the link_sec pointer for our list. */
9068 #define PREV_SEC(sec) (htab->stub_group[(sec)->id].link_sec)
9069 /* This happens to make the list in reverse order,
9070 which is what we want. */
9071 PREV_SEC (isec
) = *list
;
9075 if (htab
->multi_toc_needed
)
9077 /* If a code section has a function that uses the TOC then we need
9078 to use the right TOC (obviously). Also, make sure that .opd gets
9079 the correct TOC value for R_PPC64_TOC relocs that don't have or
9080 can't find their function symbol (shouldn't ever happen now).
9081 Also specially treat .fixup for the linux kernel. .fixup
9082 contains branches, but only back to the function that hit an
9084 if (isec
->has_toc_reloc
9085 || (isec
->flags
& SEC_CODE
) == 0
9086 || strcmp (isec
->name
, ".fixup") == 0)
9088 if (elf_gp (isec
->owner
) != 0)
9089 htab
->toc_curr
= elf_gp (isec
->owner
);
9091 else if (htab
->stub_group
[isec
->id
].toc_off
== 0)
9093 int ret
= toc_adjusting_stub_needed (info
, isec
);
9097 isec
->makes_toc_func_call
= ret
& 1;
9101 /* Functions that don't use the TOC can belong in any TOC group.
9102 Use the last TOC base. This happens to make _init and _fini
9104 htab
->stub_group
[isec
->id
].toc_off
= htab
->toc_curr
;
9108 /* See whether we can group stub sections together. Grouping stub
9109 sections may result in fewer stubs. More importantly, we need to
9110 put all .init* and .fini* stubs at the beginning of the .init or
9111 .fini output sections respectively, because glibc splits the
9112 _init and _fini functions into multiple parts. Putting a stub in
9113 the middle of a function is not a good idea. */
9116 group_sections (struct ppc_link_hash_table
*htab
,
9117 bfd_size_type stub_group_size
,
9118 bfd_boolean stubs_always_before_branch
)
9121 bfd_size_type stub14_group_size
;
9122 bfd_boolean suppress_size_errors
;
9124 suppress_size_errors
= FALSE
;
9125 stub14_group_size
= stub_group_size
;
9126 if (stub_group_size
== 1)
9128 /* Default values. */
9129 if (stubs_always_before_branch
)
9131 stub_group_size
= 0x1e00000;
9132 stub14_group_size
= 0x7800;
9136 stub_group_size
= 0x1c00000;
9137 stub14_group_size
= 0x7000;
9139 suppress_size_errors
= TRUE
;
9142 list
= htab
->input_list
+ htab
->top_index
;
9145 asection
*tail
= *list
;
9146 while (tail
!= NULL
)
9150 bfd_size_type total
;
9151 bfd_boolean big_sec
;
9156 big_sec
= total
> (ppc64_elf_section_data (tail
)->has_14bit_branch
9157 ? stub14_group_size
: stub_group_size
);
9158 if (big_sec
&& !suppress_size_errors
)
9159 (*_bfd_error_handler
) (_("%B section %A exceeds stub group size"),
9161 curr_toc
= htab
->stub_group
[tail
->id
].toc_off
;
9163 while ((prev
= PREV_SEC (curr
)) != NULL
9164 && ((total
+= curr
->output_offset
- prev
->output_offset
)
9165 < (ppc64_elf_section_data (prev
)->has_14bit_branch
9166 ? stub14_group_size
: stub_group_size
))
9167 && htab
->stub_group
[prev
->id
].toc_off
== curr_toc
)
9170 /* OK, the size from the start of CURR to the end is less
9171 than stub_group_size and thus can be handled by one stub
9172 section. (or the tail section is itself larger than
9173 stub_group_size, in which case we may be toast.) We
9174 should really be keeping track of the total size of stubs
9175 added here, as stubs contribute to the final output
9176 section size. That's a little tricky, and this way will
9177 only break if stubs added make the total size more than
9178 2^25, ie. for the default stub_group_size, if stubs total
9179 more than 2097152 bytes, or nearly 75000 plt call stubs. */
9182 prev
= PREV_SEC (tail
);
9183 /* Set up this stub group. */
9184 htab
->stub_group
[tail
->id
].link_sec
= curr
;
9186 while (tail
!= curr
&& (tail
= prev
) != NULL
);
9188 /* But wait, there's more! Input sections up to stub_group_size
9189 bytes before the stub section can be handled by it too.
9190 Don't do this if we have a really large section after the
9191 stubs, as adding more stubs increases the chance that
9192 branches may not reach into the stub section. */
9193 if (!stubs_always_before_branch
&& !big_sec
)
9197 && ((total
+= tail
->output_offset
- prev
->output_offset
)
9198 < (ppc64_elf_section_data (prev
)->has_14bit_branch
9199 ? stub14_group_size
: stub_group_size
))
9200 && htab
->stub_group
[prev
->id
].toc_off
== curr_toc
)
9203 prev
= PREV_SEC (tail
);
9204 htab
->stub_group
[tail
->id
].link_sec
= curr
;
9210 while (list
-- != htab
->input_list
);
9211 free (htab
->input_list
);
9215 /* Determine and set the size of the stub section for a final link.
9217 The basic idea here is to examine all the relocations looking for
9218 PC-relative calls to a target that is unreachable with a "bl"
9222 ppc64_elf_size_stubs (bfd
*output_bfd
,
9223 struct bfd_link_info
*info
,
9224 bfd_signed_vma group_size
,
9225 asection
*(*add_stub_section
) (const char *, asection
*),
9226 void (*layout_sections_again
) (void))
9228 bfd_size_type stub_group_size
;
9229 bfd_boolean stubs_always_before_branch
;
9230 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
9232 /* Stash our params away. */
9233 htab
->add_stub_section
= add_stub_section
;
9234 htab
->layout_sections_again
= layout_sections_again
;
9235 stubs_always_before_branch
= group_size
< 0;
9237 stub_group_size
= -group_size
;
9239 stub_group_size
= group_size
;
9241 group_sections (htab
, stub_group_size
, stubs_always_before_branch
);
9246 unsigned int bfd_indx
;
9249 htab
->stub_iteration
+= 1;
9251 for (input_bfd
= info
->input_bfds
, bfd_indx
= 0;
9253 input_bfd
= input_bfd
->link_next
, bfd_indx
++)
9255 Elf_Internal_Shdr
*symtab_hdr
;
9257 Elf_Internal_Sym
*local_syms
= NULL
;
9259 if (!is_ppc64_elf_target (input_bfd
->xvec
))
9262 /* We'll need the symbol table in a second. */
9263 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
9264 if (symtab_hdr
->sh_info
== 0)
9267 /* Walk over each section attached to the input bfd. */
9268 for (section
= input_bfd
->sections
;
9270 section
= section
->next
)
9272 Elf_Internal_Rela
*internal_relocs
, *irelaend
, *irela
;
9274 /* If there aren't any relocs, then there's nothing more
9276 if ((section
->flags
& SEC_RELOC
) == 0
9277 || (section
->flags
& SEC_ALLOC
) == 0
9278 || (section
->flags
& SEC_LOAD
) == 0
9279 || (section
->flags
& SEC_CODE
) == 0
9280 || section
->reloc_count
== 0)
9283 /* If this section is a link-once section that will be
9284 discarded, then don't create any stubs. */
9285 if (section
->output_section
== NULL
9286 || section
->output_section
->owner
!= output_bfd
)
9289 /* Get the relocs. */
9291 = _bfd_elf_link_read_relocs (input_bfd
, section
, NULL
, NULL
,
9293 if (internal_relocs
== NULL
)
9294 goto error_ret_free_local
;
9296 /* Now examine each relocation. */
9297 irela
= internal_relocs
;
9298 irelaend
= irela
+ section
->reloc_count
;
9299 for (; irela
< irelaend
; irela
++)
9301 enum elf_ppc64_reloc_type r_type
;
9302 unsigned int r_indx
;
9303 enum ppc_stub_type stub_type
;
9304 struct ppc_stub_hash_entry
*stub_entry
;
9305 asection
*sym_sec
, *code_sec
;
9307 bfd_vma destination
;
9308 bfd_boolean ok_dest
;
9309 struct ppc_link_hash_entry
*hash
;
9310 struct ppc_link_hash_entry
*fdh
;
9311 struct elf_link_hash_entry
*h
;
9312 Elf_Internal_Sym
*sym
;
9314 const asection
*id_sec
;
9317 r_type
= ELF64_R_TYPE (irela
->r_info
);
9318 r_indx
= ELF64_R_SYM (irela
->r_info
);
9320 if (r_type
>= R_PPC64_max
)
9322 bfd_set_error (bfd_error_bad_value
);
9323 goto error_ret_free_internal
;
9326 /* Only look for stubs on branch instructions. */
9327 if (r_type
!= R_PPC64_REL24
9328 && r_type
!= R_PPC64_REL14
9329 && r_type
!= R_PPC64_REL14_BRTAKEN
9330 && r_type
!= R_PPC64_REL14_BRNTAKEN
)
9333 /* Now determine the call target, its name, value,
9335 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
9337 goto error_ret_free_internal
;
9338 hash
= (struct ppc_link_hash_entry
*) h
;
9345 sym_value
= sym
->st_value
;
9348 else if (hash
->elf
.root
.type
== bfd_link_hash_defined
9349 || hash
->elf
.root
.type
== bfd_link_hash_defweak
)
9351 sym_value
= hash
->elf
.root
.u
.def
.value
;
9352 if (sym_sec
->output_section
!= NULL
)
9355 else if (hash
->elf
.root
.type
== bfd_link_hash_undefweak
9356 || hash
->elf
.root
.type
== bfd_link_hash_undefined
)
9358 /* Recognise an old ABI func code entry sym, and
9359 use the func descriptor sym instead if it is
9361 if (hash
->elf
.root
.root
.string
[0] == '.'
9362 && (fdh
= get_fdh (hash
, htab
)) != NULL
)
9364 if (fdh
->elf
.root
.type
== bfd_link_hash_defined
9365 || fdh
->elf
.root
.type
== bfd_link_hash_defweak
)
9367 sym_sec
= fdh
->elf
.root
.u
.def
.section
;
9368 sym_value
= fdh
->elf
.root
.u
.def
.value
;
9369 if (sym_sec
->output_section
!= NULL
)
9378 bfd_set_error (bfd_error_bad_value
);
9379 goto error_ret_free_internal
;
9385 sym_value
+= irela
->r_addend
;
9386 destination
= (sym_value
9387 + sym_sec
->output_offset
9388 + sym_sec
->output_section
->vma
);
9392 opd_adjust
= get_opd_info (sym_sec
);
9393 if (opd_adjust
!= NULL
)
9399 long adjust
= opd_adjust
[sym_value
/ 8];
9402 sym_value
+= adjust
;
9404 dest
= opd_entry_value (sym_sec
, sym_value
,
9405 &code_sec
, &sym_value
);
9406 if (dest
!= (bfd_vma
) -1)
9411 /* Fixup old ABI sym to point at code
9413 hash
->elf
.root
.type
= bfd_link_hash_defweak
;
9414 hash
->elf
.root
.u
.def
.section
= code_sec
;
9415 hash
->elf
.root
.u
.def
.value
= sym_value
;
9420 /* Determine what (if any) linker stub is needed. */
9421 stub_type
= ppc_type_of_stub (section
, irela
, &hash
,
9424 if (stub_type
!= ppc_stub_plt_call
)
9426 /* Check whether we need a TOC adjusting stub.
9427 Since the linker pastes together pieces from
9428 different object files when creating the
9429 _init and _fini functions, it may be that a
9430 call to what looks like a local sym is in
9431 fact a call needing a TOC adjustment. */
9432 if (code_sec
!= NULL
9433 && code_sec
->output_section
!= NULL
9434 && (htab
->stub_group
[code_sec
->id
].toc_off
9435 != htab
->stub_group
[section
->id
].toc_off
)
9436 && (code_sec
->has_toc_reloc
9437 || code_sec
->makes_toc_func_call
))
9438 stub_type
= ppc_stub_long_branch_r2off
;
9441 if (stub_type
== ppc_stub_none
)
9444 /* __tls_get_addr calls might be eliminated. */
9445 if (stub_type
!= ppc_stub_plt_call
9447 && (hash
== htab
->tls_get_addr
9448 || hash
== htab
->tls_get_addr_fd
)
9449 && section
->has_tls_reloc
9450 && irela
!= internal_relocs
)
9455 if (!get_tls_mask (&tls_mask
, NULL
, &local_syms
,
9456 irela
- 1, input_bfd
))
9457 goto error_ret_free_internal
;
9462 /* Support for grouping stub sections. */
9463 id_sec
= htab
->stub_group
[section
->id
].link_sec
;
9465 /* Get the name of this stub. */
9466 stub_name
= ppc_stub_name (id_sec
, sym_sec
, hash
, irela
);
9468 goto error_ret_free_internal
;
9470 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
9471 stub_name
, FALSE
, FALSE
);
9472 if (stub_entry
!= NULL
)
9474 /* The proper stub has already been created. */
9479 stub_entry
= ppc_add_stub (stub_name
, section
, htab
);
9480 if (stub_entry
== NULL
)
9483 error_ret_free_internal
:
9484 if (elf_section_data (section
)->relocs
== NULL
)
9485 free (internal_relocs
);
9486 error_ret_free_local
:
9487 if (local_syms
!= NULL
9488 && (symtab_hdr
->contents
9489 != (unsigned char *) local_syms
))
9494 stub_entry
->stub_type
= stub_type
;
9495 stub_entry
->target_value
= sym_value
;
9496 stub_entry
->target_section
= code_sec
;
9497 stub_entry
->h
= hash
;
9498 stub_entry
->addend
= irela
->r_addend
;
9500 if (stub_entry
->h
!= NULL
)
9501 htab
->stub_globals
+= 1;
9504 /* We're done with the internal relocs, free them. */
9505 if (elf_section_data (section
)->relocs
!= internal_relocs
)
9506 free (internal_relocs
);
9509 if (local_syms
!= NULL
9510 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
9512 if (!info
->keep_memory
)
9515 symtab_hdr
->contents
= (unsigned char *) local_syms
;
9519 /* We may have added some stubs. Find out the new size of the
9521 for (stub_sec
= htab
->stub_bfd
->sections
;
9523 stub_sec
= stub_sec
->next
)
9524 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
9526 stub_sec
->rawsize
= stub_sec
->size
;
9528 stub_sec
->reloc_count
= 0;
9529 stub_sec
->flags
&= ~SEC_RELOC
;
9532 htab
->brlt
->size
= 0;
9533 htab
->brlt
->reloc_count
= 0;
9534 htab
->brlt
->flags
&= ~SEC_RELOC
;
9535 if (htab
->relbrlt
!= NULL
)
9536 htab
->relbrlt
->size
= 0;
9538 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_size_one_stub
, info
);
9540 for (stub_sec
= htab
->stub_bfd
->sections
;
9542 stub_sec
= stub_sec
->next
)
9543 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0
9544 && stub_sec
->rawsize
!= stub_sec
->size
)
9547 /* Exit from this loop when no stubs have been added, and no stubs
9548 have changed size. */
9549 if (stub_sec
== NULL
)
9552 /* Ask the linker to do its stuff. */
9553 (*htab
->layout_sections_again
) ();
9556 /* It would be nice to strip htab->brlt from the output if the
9557 section is empty, but it's too late. If we strip sections here,
9558 the dynamic symbol table is corrupted since the section symbol
9559 for the stripped section isn't written. */
9564 /* Called after we have determined section placement. If sections
9565 move, we'll be called again. Provide a value for TOCstart. */
9568 ppc64_elf_toc (bfd
*obfd
)
9573 /* The TOC consists of sections .got, .toc, .tocbss, .plt in that
9574 order. The TOC starts where the first of these sections starts. */
9575 s
= bfd_get_section_by_name (obfd
, ".got");
9577 s
= bfd_get_section_by_name (obfd
, ".toc");
9579 s
= bfd_get_section_by_name (obfd
, ".tocbss");
9581 s
= bfd_get_section_by_name (obfd
, ".plt");
9584 /* This may happen for
9585 o references to TOC base (SYM@toc / TOC[tc0]) without a
9588 o --gc-sections and empty TOC sections
9590 FIXME: Warn user? */
9592 /* Look for a likely section. We probably won't even be
9594 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
9595 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
| SEC_READONLY
))
9596 == (SEC_ALLOC
| SEC_SMALL_DATA
))
9599 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
9600 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
))
9601 == (SEC_ALLOC
| SEC_SMALL_DATA
))
9604 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
9605 if ((s
->flags
& (SEC_ALLOC
| SEC_READONLY
)) == SEC_ALLOC
)
9608 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
9609 if ((s
->flags
& SEC_ALLOC
) == SEC_ALLOC
)
9615 TOCstart
= s
->output_section
->vma
+ s
->output_offset
;
9620 /* Build all the stubs associated with the current output file.
9621 The stubs are kept in a hash table attached to the main linker
9622 hash table. This function is called via gldelf64ppc_finish. */
9625 ppc64_elf_build_stubs (bfd_boolean emit_stub_syms
,
9626 struct bfd_link_info
*info
,
9629 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
9632 int stub_sec_count
= 0;
9634 htab
->emit_stub_syms
= emit_stub_syms
;
9636 /* Allocate memory to hold the linker stubs. */
9637 for (stub_sec
= htab
->stub_bfd
->sections
;
9639 stub_sec
= stub_sec
->next
)
9640 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0
9641 && stub_sec
->size
!= 0)
9643 stub_sec
->contents
= bfd_zalloc (htab
->stub_bfd
, stub_sec
->size
);
9644 if (stub_sec
->contents
== NULL
)
9646 /* We want to check that built size is the same as calculated
9647 size. rawsize is a convenient location to use. */
9648 stub_sec
->rawsize
= stub_sec
->size
;
9652 if (htab
->glink
!= NULL
&& htab
->glink
->size
!= 0)
9657 /* Build the .glink plt call stub. */
9658 if (htab
->emit_stub_syms
)
9660 struct elf_link_hash_entry
*h
;
9661 h
= elf_link_hash_lookup (&htab
->elf
, "__glink", TRUE
, FALSE
, FALSE
);
9664 if (h
->root
.type
== bfd_link_hash_new
)
9666 h
->root
.type
= bfd_link_hash_defined
;
9667 h
->root
.u
.def
.section
= htab
->glink
;
9668 h
->root
.u
.def
.value
= 8;
9671 h
->ref_regular_nonweak
= 1;
9672 h
->forced_local
= 1;
9676 p
= htab
->glink
->contents
;
9677 plt0
= (htab
->plt
->output_section
->vma
9678 + htab
->plt
->output_offset
9679 - (htab
->glink
->output_section
->vma
9680 + htab
->glink
->output_offset
9682 bfd_put_64 (htab
->glink
->owner
, plt0
, p
);
9684 bfd_put_32 (htab
->glink
->owner
, MFLR_R12
, p
);
9686 bfd_put_32 (htab
->glink
->owner
, BCL_20_31
, p
);
9688 bfd_put_32 (htab
->glink
->owner
, MFLR_R11
, p
);
9690 bfd_put_32 (htab
->glink
->owner
, LD_R2_M16R11
, p
);
9692 bfd_put_32 (htab
->glink
->owner
, MTLR_R12
, p
);
9694 bfd_put_32 (htab
->glink
->owner
, ADD_R12_R2_R11
, p
);
9696 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R12
, p
);
9698 bfd_put_32 (htab
->glink
->owner
, LD_R2_0R12
| 8, p
);
9700 bfd_put_32 (htab
->glink
->owner
, MTCTR_R11
, p
);
9702 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R12
| 16, p
);
9704 bfd_put_32 (htab
->glink
->owner
, BCTR
, p
);
9706 while (p
- htab
->glink
->contents
< GLINK_CALL_STUB_SIZE
)
9708 bfd_put_32 (htab
->glink
->owner
, NOP
, p
);
9712 /* Build the .glink lazy link call stubs. */
9714 while (p
< htab
->glink
->contents
+ htab
->glink
->size
)
9718 bfd_put_32 (htab
->glink
->owner
, LI_R0_0
| indx
, p
);
9723 bfd_put_32 (htab
->glink
->owner
, LIS_R0_0
| PPC_HI (indx
), p
);
9725 bfd_put_32 (htab
->glink
->owner
, ORI_R0_R0_0
| PPC_LO (indx
), p
);
9728 bfd_put_32 (htab
->glink
->owner
,
9729 B_DOT
| ((htab
->glink
->contents
- p
+ 8) & 0x3fffffc), p
);
9733 htab
->glink
->rawsize
= p
- htab
->glink
->contents
;
9736 if (htab
->brlt
->size
!= 0)
9738 htab
->brlt
->contents
= bfd_zalloc (htab
->brlt
->owner
,
9740 if (htab
->brlt
->contents
== NULL
)
9743 if (htab
->relbrlt
!= NULL
&& htab
->relbrlt
->size
!= 0)
9745 htab
->relbrlt
->contents
= bfd_zalloc (htab
->relbrlt
->owner
,
9746 htab
->relbrlt
->size
);
9747 if (htab
->relbrlt
->contents
== NULL
)
9751 /* Build the stubs as directed by the stub hash table. */
9752 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_build_one_stub
, info
);
9754 if (htab
->relbrlt
!= NULL
)
9755 htab
->relbrlt
->reloc_count
= 0;
9757 for (stub_sec
= htab
->stub_bfd
->sections
;
9759 stub_sec
= stub_sec
->next
)
9760 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
9762 stub_sec_count
+= 1;
9763 if (stub_sec
->rawsize
!= stub_sec
->size
)
9767 if (stub_sec
!= NULL
9768 || htab
->glink
->rawsize
!= htab
->glink
->size
)
9770 htab
->stub_error
= TRUE
;
9771 (*_bfd_error_handler
) (_("stubs don't match calculated size"));
9774 if (htab
->stub_error
)
9779 *stats
= bfd_malloc (500);
9783 sprintf (*stats
, _("linker stubs in %u group%s\n"
9786 " long branch %lu\n"
9787 " long toc adj %lu\n"
9790 stub_sec_count
== 1 ? "" : "s",
9791 htab
->stub_count
[ppc_stub_long_branch
- 1],
9792 htab
->stub_count
[ppc_stub_long_branch_r2off
- 1],
9793 htab
->stub_count
[ppc_stub_plt_branch
- 1],
9794 htab
->stub_count
[ppc_stub_plt_branch_r2off
- 1],
9795 htab
->stub_count
[ppc_stub_plt_call
- 1]);
9800 /* This function undoes the changes made by add_symbol_adjust. */
9803 undo_symbol_twiddle (struct elf_link_hash_entry
*h
, void *inf ATTRIBUTE_UNUSED
)
9805 struct ppc_link_hash_entry
*eh
;
9807 if (h
->root
.type
== bfd_link_hash_indirect
)
9810 if (h
->root
.type
== bfd_link_hash_warning
)
9811 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
9813 eh
= (struct ppc_link_hash_entry
*) h
;
9814 if (eh
->elf
.root
.type
!= bfd_link_hash_undefweak
|| !eh
->was_undefined
)
9817 eh
->elf
.root
.type
= bfd_link_hash_undefined
;
9822 ppc64_elf_restore_symbols (struct bfd_link_info
*info
)
9824 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
9825 elf_link_hash_traverse (&htab
->elf
, undo_symbol_twiddle
, info
);
9828 /* What to do when ld finds relocations against symbols defined in
9829 discarded sections. */
9832 ppc64_elf_action_discarded (asection
*sec
)
9834 if (strcmp (".opd", sec
->name
) == 0)
9837 if (strcmp (".toc", sec
->name
) == 0)
9840 if (strcmp (".toc1", sec
->name
) == 0)
9843 return _bfd_elf_default_action_discarded (sec
);
9846 /* The RELOCATE_SECTION function is called by the ELF backend linker
9847 to handle the relocations for a section.
9849 The relocs are always passed as Rela structures; if the section
9850 actually uses Rel structures, the r_addend field will always be
9853 This function is responsible for adjust the section contents as
9854 necessary, and (if using Rela relocs and generating a
9855 relocatable output file) adjusting the reloc addend as
9858 This function does not have to worry about setting the reloc
9859 address or the reloc symbol index.
9861 LOCAL_SYMS is a pointer to the swapped in local symbols.
9863 LOCAL_SECTIONS is an array giving the section in the input file
9864 corresponding to the st_shndx field of each local symbol.
9866 The global hash table entry for the global symbols can be found
9867 via elf_sym_hashes (input_bfd).
9869 When generating relocatable output, this function must handle
9870 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
9871 going to be the section symbol corresponding to the output
9872 section, which means that the addend must be adjusted
9876 ppc64_elf_relocate_section (bfd
*output_bfd
,
9877 struct bfd_link_info
*info
,
9879 asection
*input_section
,
9881 Elf_Internal_Rela
*relocs
,
9882 Elf_Internal_Sym
*local_syms
,
9883 asection
**local_sections
)
9885 struct ppc_link_hash_table
*htab
;
9886 Elf_Internal_Shdr
*symtab_hdr
;
9887 struct elf_link_hash_entry
**sym_hashes
;
9888 Elf_Internal_Rela
*rel
;
9889 Elf_Internal_Rela
*relend
;
9890 Elf_Internal_Rela outrel
;
9892 struct got_entry
**local_got_ents
;
9894 bfd_boolean ret
= TRUE
;
9896 /* Disabled until we sort out how ld should choose 'y' vs 'at'. */
9897 bfd_boolean is_power4
= FALSE
;
9898 bfd_vma d_offset
= (bfd_big_endian (output_bfd
) ? 2 : 0);
9900 /* Initialize howto table if needed. */
9901 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
9904 htab
= ppc_hash_table (info
);
9906 /* Don't relocate stub sections. */
9907 if (input_section
->owner
== htab
->stub_bfd
)
9910 local_got_ents
= elf_local_got_ents (input_bfd
);
9911 TOCstart
= elf_gp (output_bfd
);
9912 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
9913 sym_hashes
= elf_sym_hashes (input_bfd
);
9914 is_opd
= ppc64_elf_section_data (input_section
)->sec_type
== sec_opd
;
9917 relend
= relocs
+ input_section
->reloc_count
;
9918 for (; rel
< relend
; rel
++)
9920 enum elf_ppc64_reloc_type r_type
;
9921 bfd_vma addend
, orig_addend
;
9922 bfd_reloc_status_type r
;
9923 Elf_Internal_Sym
*sym
;
9925 struct elf_link_hash_entry
*h_elf
;
9926 struct ppc_link_hash_entry
*h
;
9927 struct ppc_link_hash_entry
*fdh
;
9928 const char *sym_name
;
9929 unsigned long r_symndx
, toc_symndx
;
9930 char tls_mask
, tls_gd
, tls_type
;
9933 bfd_boolean unresolved_reloc
;
9935 unsigned long insn
, mask
;
9936 struct ppc_stub_hash_entry
*stub_entry
;
9937 bfd_vma max_br_offset
;
9940 r_type
= ELF64_R_TYPE (rel
->r_info
);
9941 r_symndx
= ELF64_R_SYM (rel
->r_info
);
9943 /* For old style R_PPC64_TOC relocs with a zero symbol, use the
9944 symbol of the previous ADDR64 reloc. The symbol gives us the
9945 proper TOC base to use. */
9946 if (rel
->r_info
== ELF64_R_INFO (0, R_PPC64_TOC
)
9948 && ELF64_R_TYPE (rel
[-1].r_info
) == R_PPC64_ADDR64
9950 r_symndx
= ELF64_R_SYM (rel
[-1].r_info
);
9956 unresolved_reloc
= FALSE
;
9958 orig_addend
= rel
->r_addend
;
9960 if (r_symndx
< symtab_hdr
->sh_info
)
9962 /* It's a local symbol. */
9965 sym
= local_syms
+ r_symndx
;
9966 sec
= local_sections
[r_symndx
];
9967 sym_name
= bfd_elf_sym_name (input_bfd
, symtab_hdr
, sym
, sec
);
9968 sym_type
= ELF64_ST_TYPE (sym
->st_info
);
9969 relocation
= _bfd_elf_rela_local_sym (output_bfd
, sym
, &sec
, rel
);
9970 opd_adjust
= get_opd_info (sec
);
9971 if (opd_adjust
!= NULL
)
9973 long adjust
= opd_adjust
[(sym
->st_value
+ rel
->r_addend
) / 8];
9978 /* If this is a relocation against the opd section sym
9979 and we have edited .opd, adjust the reloc addend so
9980 that ld -r and ld --emit-relocs output is correct.
9981 If it is a reloc against some other .opd symbol,
9982 then the symbol value will be adjusted later. */
9983 if (ELF_ST_TYPE (sym
->st_info
) == STT_SECTION
)
9984 rel
->r_addend
+= adjust
;
9986 relocation
+= adjust
;
9992 RELOC_FOR_GLOBAL_SYMBOL (info
, input_bfd
, input_section
, rel
,
9993 r_symndx
, symtab_hdr
, sym_hashes
,
9994 h_elf
, sec
, relocation
,
9995 unresolved_reloc
, warned
);
9996 sym_name
= h_elf
->root
.root
.string
;
9997 sym_type
= h_elf
->type
;
9999 h
= (struct ppc_link_hash_entry
*) h_elf
;
10001 if (sec
!= NULL
&& elf_discarded_section (sec
))
10003 /* For relocs against symbols from removed linkonce sections,
10004 or sections discarded by a linker script, we just want the
10005 section contents zeroed. Avoid any special processing. */
10006 _bfd_clear_contents (ppc64_elf_howto_table
[r_type
], input_bfd
,
10007 contents
+ rel
->r_offset
);
10013 if (info
->relocatable
)
10016 /* TLS optimizations. Replace instruction sequences and relocs
10017 based on information we collected in tls_optimize. We edit
10018 RELOCS so that --emit-relocs will output something sensible
10019 for the final instruction stream. */
10023 if (IS_PPC64_TLS_RELOC (r_type
))
10026 tls_mask
= h
->tls_mask
;
10027 else if (local_got_ents
!= NULL
)
10030 lgot_masks
= (char *) (local_got_ents
+ symtab_hdr
->sh_info
);
10031 tls_mask
= lgot_masks
[r_symndx
];
10033 if (tls_mask
== 0 && r_type
== R_PPC64_TLS
)
10035 /* Check for toc tls entries. */
10038 if (!get_tls_mask (&toc_tls
, &toc_symndx
, &local_syms
,
10043 tls_mask
= *toc_tls
;
10047 /* Check that tls relocs are used with tls syms, and non-tls
10048 relocs are used with non-tls syms. */
10050 && r_type
!= R_PPC64_NONE
10052 || h
->elf
.root
.type
== bfd_link_hash_defined
10053 || h
->elf
.root
.type
== bfd_link_hash_defweak
)
10054 && IS_PPC64_TLS_RELOC (r_type
) != (sym_type
== STT_TLS
))
10056 if (r_type
== R_PPC64_TLS
&& tls_mask
!= 0)
10057 /* R_PPC64_TLS is OK against a symbol in the TOC. */
10060 (*_bfd_error_handler
)
10061 (sym_type
== STT_TLS
10062 ? _("%B(%A+0x%lx): %s used with TLS symbol %s")
10063 : _("%B(%A+0x%lx): %s used with non-TLS symbol %s"),
10066 (long) rel
->r_offset
,
10067 ppc64_elf_howto_table
[r_type
]->name
,
10071 /* Ensure reloc mapping code below stays sane. */
10072 if (R_PPC64_TOC16_LO_DS
!= R_PPC64_TOC16_DS
+ 1
10073 || R_PPC64_TOC16_LO
!= R_PPC64_TOC16
+ 1
10074 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TLSGD16
& 3)
10075 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TLSGD16_LO
& 3)
10076 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TLSGD16_HI
& 3)
10077 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TLSGD16_HA
& 3)
10078 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TPREL16_DS
& 3)
10079 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TPREL16_LO_DS
& 3)
10080 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TPREL16_HI
& 3)
10081 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TPREL16_HA
& 3))
10089 case R_PPC64_TOC16
:
10090 case R_PPC64_TOC16_LO
:
10091 case R_PPC64_TOC16_DS
:
10092 case R_PPC64_TOC16_LO_DS
:
10094 /* Check for toc tls entries. */
10098 retval
= get_tls_mask (&toc_tls
, &toc_symndx
, &local_syms
,
10105 tls_mask
= *toc_tls
;
10106 if (r_type
== R_PPC64_TOC16_DS
10107 || r_type
== R_PPC64_TOC16_LO_DS
)
10110 && (tls_mask
& (TLS_DTPREL
| TLS_TPREL
)) == 0)
10115 /* If we found a GD reloc pair, then we might be
10116 doing a GD->IE transition. */
10119 tls_gd
= TLS_TPRELGD
;
10120 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
10121 goto tls_get_addr_check
;
10123 else if (retval
== 3)
10125 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
10126 goto tls_get_addr_check
;
10133 case R_PPC64_GOT_TPREL16_DS
:
10134 case R_PPC64_GOT_TPREL16_LO_DS
:
10136 && (tls_mask
& TLS_TPREL
) == 0)
10139 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
- d_offset
);
10141 insn
|= 0x3c0d0000; /* addis 0,13,0 */
10142 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
- d_offset
);
10143 r_type
= R_PPC64_TPREL16_HA
;
10144 if (toc_symndx
!= 0)
10146 rel
->r_info
= ELF64_R_INFO (toc_symndx
, r_type
);
10147 /* We changed the symbol. Start over in order to
10148 get h, sym, sec etc. right. */
10153 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10159 && (tls_mask
& TLS_TPREL
) == 0)
10162 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
);
10163 if ((insn
& ((0x3f << 26) | (31 << 11)))
10164 == ((31 << 26) | (13 << 11)))
10165 rtra
= insn
& ((1 << 26) - (1 << 16));
10166 else if ((insn
& ((0x3f << 26) | (31 << 16)))
10167 == ((31 << 26) | (13 << 16)))
10168 rtra
= (insn
& (31 << 21)) | ((insn
& (31 << 11)) << 5);
10171 if ((insn
& ((1 << 11) - (1 << 1))) == 266 << 1)
10174 else if ((insn
& (31 << 1)) == 23 << 1
10175 && ((insn
& (31 << 6)) < 14 << 6
10176 || ((insn
& (31 << 6)) >= 16 << 6
10177 && (insn
& (31 << 6)) < 24 << 6)))
10178 /* load and store indexed -> dform. */
10179 insn
= (32 | ((insn
>> 6) & 31)) << 26;
10180 else if ((insn
& (31 << 1)) == 21 << 1
10181 && (insn
& (0x1a << 6)) == 0)
10182 /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu. */
10183 insn
= (((58 | ((insn
>> 6) & 4)) << 26)
10184 | ((insn
>> 6) & 1));
10185 else if ((insn
& (31 << 1)) == 21 << 1
10186 && (insn
& ((1 << 11) - (1 << 1))) == 341 << 1)
10188 insn
= (58 << 26) | 2;
10192 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
10193 /* Was PPC64_TLS which sits on insn boundary, now
10194 PPC64_TPREL16_LO which is at low-order half-word. */
10195 rel
->r_offset
+= d_offset
;
10196 r_type
= R_PPC64_TPREL16_LO
;
10197 if (toc_symndx
!= 0)
10199 rel
->r_info
= ELF64_R_INFO (toc_symndx
, r_type
);
10200 /* We changed the symbol. Start over in order to
10201 get h, sym, sec etc. right. */
10206 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10210 case R_PPC64_GOT_TLSGD16_HI
:
10211 case R_PPC64_GOT_TLSGD16_HA
:
10212 tls_gd
= TLS_TPRELGD
;
10213 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
10217 case R_PPC64_GOT_TLSLD16_HI
:
10218 case R_PPC64_GOT_TLSLD16_HA
:
10219 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
10222 if ((tls_mask
& tls_gd
) != 0)
10223 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
10224 + R_PPC64_GOT_TPREL16_DS
);
10227 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
10228 rel
->r_offset
-= d_offset
;
10229 r_type
= R_PPC64_NONE
;
10231 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10235 case R_PPC64_GOT_TLSGD16
:
10236 case R_PPC64_GOT_TLSGD16_LO
:
10237 tls_gd
= TLS_TPRELGD
;
10238 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
10239 goto tls_get_addr_check
;
10242 case R_PPC64_GOT_TLSLD16
:
10243 case R_PPC64_GOT_TLSLD16_LO
:
10244 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
10246 tls_get_addr_check
:
10247 if (rel
+ 1 < relend
)
10249 enum elf_ppc64_reloc_type r_type2
;
10250 unsigned long r_symndx2
;
10251 struct elf_link_hash_entry
*h2
;
10252 bfd_vma insn1
, insn2
, insn3
;
10255 /* The next instruction should be a call to
10256 __tls_get_addr. Peek at the reloc to be sure. */
10257 r_type2
= ELF64_R_TYPE (rel
[1].r_info
);
10258 r_symndx2
= ELF64_R_SYM (rel
[1].r_info
);
10259 if (r_symndx2
< symtab_hdr
->sh_info
10260 || (r_type2
!= R_PPC64_REL14
10261 && r_type2
!= R_PPC64_REL14_BRTAKEN
10262 && r_type2
!= R_PPC64_REL14_BRNTAKEN
10263 && r_type2
!= R_PPC64_REL24
))
10266 h2
= sym_hashes
[r_symndx2
- symtab_hdr
->sh_info
];
10267 while (h2
->root
.type
== bfd_link_hash_indirect
10268 || h2
->root
.type
== bfd_link_hash_warning
)
10269 h2
= (struct elf_link_hash_entry
*) h2
->root
.u
.i
.link
;
10270 if (h2
== NULL
|| (h2
!= &htab
->tls_get_addr
->elf
10271 && h2
!= &htab
->tls_get_addr_fd
->elf
))
10274 /* OK, it checks out. Replace the call. */
10275 offset
= rel
[1].r_offset
;
10276 insn1
= bfd_get_32 (output_bfd
,
10277 contents
+ rel
->r_offset
- d_offset
);
10278 insn3
= bfd_get_32 (output_bfd
,
10279 contents
+ offset
+ 4);
10280 if ((tls_mask
& tls_gd
) != 0)
10283 insn1
&= (1 << 26) - (1 << 2);
10284 insn1
|= 58 << 26; /* ld */
10285 insn2
= 0x7c636a14; /* add 3,3,13 */
10286 rel
[1].r_info
= ELF64_R_INFO (r_symndx2
, R_PPC64_NONE
);
10287 if ((tls_mask
& TLS_EXPLICIT
) == 0)
10288 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
10289 + R_PPC64_GOT_TPREL16_DS
);
10291 r_type
+= R_PPC64_TOC16_DS
- R_PPC64_TOC16
;
10292 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10297 insn1
= 0x3c6d0000; /* addis 3,13,0 */
10298 insn2
= 0x38630000; /* addi 3,3,0 */
10301 /* Was an LD reloc. */
10303 rel
->r_addend
= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
10304 rel
[1].r_addend
= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
10306 else if (toc_symndx
!= 0)
10307 r_symndx
= toc_symndx
;
10308 r_type
= R_PPC64_TPREL16_HA
;
10309 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10310 rel
[1].r_info
= ELF64_R_INFO (r_symndx
,
10311 R_PPC64_TPREL16_LO
);
10312 rel
[1].r_offset
+= d_offset
;
10315 || insn3
== CROR_151515
|| insn3
== CROR_313131
)
10319 rel
[1].r_offset
+= 4;
10321 bfd_put_32 (output_bfd
, insn1
, contents
+ rel
->r_offset
- d_offset
);
10322 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
);
10323 bfd_put_32 (output_bfd
, insn3
, contents
+ offset
+ 4);
10324 if (tls_gd
== 0 || toc_symndx
!= 0)
10326 /* We changed the symbol. Start over in order
10327 to get h, sym, sec etc. right. */
10335 case R_PPC64_DTPMOD64
:
10336 if (rel
+ 1 < relend
10337 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
10338 && rel
[1].r_offset
== rel
->r_offset
+ 8)
10340 if ((tls_mask
& TLS_GD
) == 0)
10342 rel
[1].r_info
= ELF64_R_INFO (r_symndx
, R_PPC64_NONE
);
10343 if ((tls_mask
& TLS_TPRELGD
) != 0)
10344 r_type
= R_PPC64_TPREL64
;
10347 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
10348 r_type
= R_PPC64_NONE
;
10350 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10355 if ((tls_mask
& TLS_LD
) == 0)
10357 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
10358 r_type
= R_PPC64_NONE
;
10359 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10364 case R_PPC64_TPREL64
:
10365 if ((tls_mask
& TLS_TPREL
) == 0)
10367 r_type
= R_PPC64_NONE
;
10368 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
10373 /* Handle other relocations that tweak non-addend part of insn. */
10375 max_br_offset
= 1 << 25;
10376 addend
= rel
->r_addend
;
10382 /* Branch taken prediction relocations. */
10383 case R_PPC64_ADDR14_BRTAKEN
:
10384 case R_PPC64_REL14_BRTAKEN
:
10385 insn
= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
10388 /* Branch not taken prediction relocations. */
10389 case R_PPC64_ADDR14_BRNTAKEN
:
10390 case R_PPC64_REL14_BRNTAKEN
:
10391 insn
|= bfd_get_32 (output_bfd
,
10392 contents
+ rel
->r_offset
) & ~(0x01 << 21);
10395 case R_PPC64_REL14
:
10396 max_br_offset
= 1 << 15;
10399 case R_PPC64_REL24
:
10400 /* Calls to functions with a different TOC, such as calls to
10401 shared objects, need to alter the TOC pointer. This is
10402 done using a linkage stub. A REL24 branching to these
10403 linkage stubs needs to be followed by a nop, as the nop
10404 will be replaced with an instruction to restore the TOC
10409 && (((fdh
= h
->oh
) != NULL
10410 && fdh
->elf
.plt
.plist
!= NULL
)
10411 || (fdh
= h
)->elf
.plt
.plist
!= NULL
))
10413 && sec
->output_section
!= NULL
10414 && sec
->id
<= htab
->top_id
10415 && (htab
->stub_group
[sec
->id
].toc_off
10416 != htab
->stub_group
[input_section
->id
].toc_off
)))
10417 && (stub_entry
= ppc_get_stub_entry (input_section
, sec
, fdh
,
10418 rel
, htab
)) != NULL
10419 && (stub_entry
->stub_type
== ppc_stub_plt_call
10420 || stub_entry
->stub_type
== ppc_stub_plt_branch_r2off
10421 || stub_entry
->stub_type
== ppc_stub_long_branch_r2off
))
10423 bfd_boolean can_plt_call
= FALSE
;
10425 if (rel
->r_offset
+ 8 <= input_section
->size
)
10428 nop
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
+ 4);
10430 || nop
== CROR_151515
|| nop
== CROR_313131
)
10432 bfd_put_32 (input_bfd
, LD_R2_40R1
,
10433 contents
+ rel
->r_offset
+ 4);
10434 can_plt_call
= TRUE
;
10440 if (stub_entry
->stub_type
== ppc_stub_plt_call
)
10442 /* If this is a plain branch rather than a branch
10443 and link, don't require a nop. However, don't
10444 allow tail calls in a shared library as they
10445 will result in r2 being corrupted. */
10447 br
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
);
10448 if (info
->executable
&& (br
& 1) == 0)
10449 can_plt_call
= TRUE
;
10454 && strcmp (h
->elf
.root
.root
.string
,
10455 ".__libc_start_main") == 0)
10457 /* Allow crt1 branch to go via a toc adjusting stub. */
10458 can_plt_call
= TRUE
;
10462 if (strcmp (input_section
->output_section
->name
,
10464 || strcmp (input_section
->output_section
->name
,
10466 (*_bfd_error_handler
)
10467 (_("%B(%A+0x%lx): automatic multiple TOCs "
10468 "not supported using your crt files; "
10469 "recompile with -mminimal-toc or upgrade gcc"),
10472 (long) rel
->r_offset
);
10474 (*_bfd_error_handler
)
10475 (_("%B(%A+0x%lx): sibling call optimization to `%s' "
10476 "does not allow automatic multiple TOCs; "
10477 "recompile with -mminimal-toc or "
10478 "-fno-optimize-sibling-calls, "
10479 "or make `%s' extern"),
10482 (long) rel
->r_offset
,
10485 bfd_set_error (bfd_error_bad_value
);
10491 && stub_entry
->stub_type
== ppc_stub_plt_call
)
10492 unresolved_reloc
= FALSE
;
10495 if (stub_entry
== NULL
10496 && get_opd_info (sec
) != NULL
)
10498 /* The branch destination is the value of the opd entry. */
10499 bfd_vma off
= (relocation
+ addend
10500 - sec
->output_section
->vma
10501 - sec
->output_offset
);
10502 bfd_vma dest
= opd_entry_value (sec
, off
, NULL
, NULL
);
10503 if (dest
!= (bfd_vma
) -1)
10510 /* If the branch is out of reach we ought to have a long
10512 from
= (rel
->r_offset
10513 + input_section
->output_offset
10514 + input_section
->output_section
->vma
);
10516 if (stub_entry
== NULL
10517 && (relocation
+ addend
- from
+ max_br_offset
10518 >= 2 * max_br_offset
)
10519 && r_type
!= R_PPC64_ADDR14_BRTAKEN
10520 && r_type
!= R_PPC64_ADDR14_BRNTAKEN
)
10521 stub_entry
= ppc_get_stub_entry (input_section
, sec
, h
, rel
,
10524 if (stub_entry
!= NULL
)
10526 /* Munge up the value and addend so that we call the stub
10527 rather than the procedure directly. */
10528 relocation
= (stub_entry
->stub_offset
10529 + stub_entry
->stub_sec
->output_offset
10530 + stub_entry
->stub_sec
->output_section
->vma
);
10538 /* Set 'a' bit. This is 0b00010 in BO field for branch
10539 on CR(BI) insns (BO == 001at or 011at), and 0b01000
10540 for branch on CTR insns (BO == 1a00t or 1a01t). */
10541 if ((insn
& (0x14 << 21)) == (0x04 << 21))
10542 insn
|= 0x02 << 21;
10543 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
10544 insn
|= 0x08 << 21;
10550 /* Invert 'y' bit if not the default. */
10551 if ((bfd_signed_vma
) (relocation
+ addend
- from
) < 0)
10552 insn
^= 0x01 << 21;
10555 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
10558 /* NOP out calls to undefined weak functions.
10559 We can thus call a weak function without first
10560 checking whether the function is defined. */
10562 && h
->elf
.root
.type
== bfd_link_hash_undefweak
10563 && r_type
== R_PPC64_REL24
10567 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
10573 /* Set `addend'. */
10578 (*_bfd_error_handler
)
10579 (_("%B: unknown relocation type %d for symbol %s"),
10580 input_bfd
, (int) r_type
, sym_name
);
10582 bfd_set_error (bfd_error_bad_value
);
10588 case R_PPC64_GNU_VTINHERIT
:
10589 case R_PPC64_GNU_VTENTRY
:
10592 /* GOT16 relocations. Like an ADDR16 using the symbol's
10593 address in the GOT as relocation value instead of the
10594 symbol's value itself. Also, create a GOT entry for the
10595 symbol and put the symbol value there. */
10596 case R_PPC64_GOT_TLSGD16
:
10597 case R_PPC64_GOT_TLSGD16_LO
:
10598 case R_PPC64_GOT_TLSGD16_HI
:
10599 case R_PPC64_GOT_TLSGD16_HA
:
10600 tls_type
= TLS_TLS
| TLS_GD
;
10603 case R_PPC64_GOT_TLSLD16
:
10604 case R_PPC64_GOT_TLSLD16_LO
:
10605 case R_PPC64_GOT_TLSLD16_HI
:
10606 case R_PPC64_GOT_TLSLD16_HA
:
10607 tls_type
= TLS_TLS
| TLS_LD
;
10610 case R_PPC64_GOT_TPREL16_DS
:
10611 case R_PPC64_GOT_TPREL16_LO_DS
:
10612 case R_PPC64_GOT_TPREL16_HI
:
10613 case R_PPC64_GOT_TPREL16_HA
:
10614 tls_type
= TLS_TLS
| TLS_TPREL
;
10617 case R_PPC64_GOT_DTPREL16_DS
:
10618 case R_PPC64_GOT_DTPREL16_LO_DS
:
10619 case R_PPC64_GOT_DTPREL16_HI
:
10620 case R_PPC64_GOT_DTPREL16_HA
:
10621 tls_type
= TLS_TLS
| TLS_DTPREL
;
10624 case R_PPC64_GOT16
:
10625 case R_PPC64_GOT16_LO
:
10626 case R_PPC64_GOT16_HI
:
10627 case R_PPC64_GOT16_HA
:
10628 case R_PPC64_GOT16_DS
:
10629 case R_PPC64_GOT16_LO_DS
:
10632 /* Relocation is to the entry for this symbol in the global
10637 unsigned long indx
= 0;
10639 if (tls_type
== (TLS_TLS
| TLS_LD
)
10641 || !h
->elf
.def_dynamic
))
10642 offp
= &ppc64_tlsld_got (input_bfd
)->offset
;
10645 struct got_entry
*ent
;
10649 bfd_boolean dyn
= htab
->elf
.dynamic_sections_created
;
10650 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, info
->shared
,
10653 && SYMBOL_REFERENCES_LOCAL (info
, &h
->elf
)))
10654 /* This is actually a static link, or it is a
10655 -Bsymbolic link and the symbol is defined
10656 locally, or the symbol was forced to be local
10657 because of a version file. */
10661 indx
= h
->elf
.dynindx
;
10662 unresolved_reloc
= FALSE
;
10664 ent
= h
->elf
.got
.glist
;
10668 if (local_got_ents
== NULL
)
10670 ent
= local_got_ents
[r_symndx
];
10673 for (; ent
!= NULL
; ent
= ent
->next
)
10674 if (ent
->addend
== orig_addend
10675 && ent
->owner
== input_bfd
10676 && ent
->tls_type
== tls_type
)
10680 offp
= &ent
->got
.offset
;
10683 got
= ppc64_elf_tdata (input_bfd
)->got
;
10687 /* The offset must always be a multiple of 8. We use the
10688 least significant bit to record whether we have already
10689 processed this entry. */
10691 if ((off
& 1) != 0)
10695 /* Generate relocs for the dynamic linker, except in
10696 the case of TLSLD where we'll use one entry per
10698 asection
*relgot
= ppc64_elf_tdata (input_bfd
)->relgot
;
10701 if ((info
->shared
|| indx
!= 0)
10703 || ELF_ST_VISIBILITY (h
->elf
.other
) == STV_DEFAULT
10704 || h
->elf
.root
.type
!= bfd_link_hash_undefweak
))
10706 outrel
.r_offset
= (got
->output_section
->vma
10707 + got
->output_offset
10709 outrel
.r_addend
= addend
;
10710 if (tls_type
& (TLS_LD
| TLS_GD
))
10712 outrel
.r_addend
= 0;
10713 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPMOD64
);
10714 if (tls_type
== (TLS_TLS
| TLS_GD
))
10716 loc
= relgot
->contents
;
10717 loc
+= (relgot
->reloc_count
++
10718 * sizeof (Elf64_External_Rela
));
10719 bfd_elf64_swap_reloca_out (output_bfd
,
10721 outrel
.r_offset
+= 8;
10722 outrel
.r_addend
= addend
;
10724 = ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
10727 else if (tls_type
== (TLS_TLS
| TLS_DTPREL
))
10728 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
10729 else if (tls_type
== (TLS_TLS
| TLS_TPREL
))
10730 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_TPREL64
);
10731 else if (indx
== 0)
10733 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_RELATIVE
);
10735 /* Write the .got section contents for the sake
10737 loc
= got
->contents
+ off
;
10738 bfd_put_64 (output_bfd
, outrel
.r_addend
+ relocation
,
10742 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_GLOB_DAT
);
10744 if (indx
== 0 && tls_type
!= (TLS_TLS
| TLS_LD
))
10746 outrel
.r_addend
+= relocation
;
10747 if (tls_type
& (TLS_GD
| TLS_DTPREL
| TLS_TPREL
))
10748 outrel
.r_addend
-= htab
->elf
.tls_sec
->vma
;
10750 loc
= relgot
->contents
;
10751 loc
+= (relgot
->reloc_count
++
10752 * sizeof (Elf64_External_Rela
));
10753 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
10756 /* Init the .got section contents here if we're not
10757 emitting a reloc. */
10760 relocation
+= addend
;
10761 if (tls_type
== (TLS_TLS
| TLS_LD
))
10763 else if (tls_type
!= 0)
10765 relocation
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
10766 if (tls_type
== (TLS_TLS
| TLS_TPREL
))
10767 relocation
+= DTP_OFFSET
- TP_OFFSET
;
10769 if (tls_type
== (TLS_TLS
| TLS_GD
))
10771 bfd_put_64 (output_bfd
, relocation
,
10772 got
->contents
+ off
+ 8);
10777 bfd_put_64 (output_bfd
, relocation
,
10778 got
->contents
+ off
);
10782 if (off
>= (bfd_vma
) -2)
10785 relocation
= got
->output_offset
+ off
;
10787 /* TOC base (r2) is TOC start plus 0x8000. */
10788 addend
= -TOC_BASE_OFF
;
10792 case R_PPC64_PLT16_HA
:
10793 case R_PPC64_PLT16_HI
:
10794 case R_PPC64_PLT16_LO
:
10795 case R_PPC64_PLT32
:
10796 case R_PPC64_PLT64
:
10797 /* Relocation is to the entry for this symbol in the
10798 procedure linkage table. */
10800 /* Resolve a PLT reloc against a local symbol directly,
10801 without using the procedure linkage table. */
10805 /* It's possible that we didn't make a PLT entry for this
10806 symbol. This happens when statically linking PIC code,
10807 or when using -Bsymbolic. Go find a match if there is a
10809 if (htab
->plt
!= NULL
)
10811 struct plt_entry
*ent
;
10812 for (ent
= h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
10813 if (ent
->addend
== orig_addend
10814 && ent
->plt
.offset
!= (bfd_vma
) -1)
10816 relocation
= (htab
->plt
->output_section
->vma
10817 + htab
->plt
->output_offset
10818 + ent
->plt
.offset
);
10819 unresolved_reloc
= FALSE
;
10825 /* Relocation value is TOC base. */
10826 relocation
= TOCstart
;
10828 relocation
+= htab
->stub_group
[input_section
->id
].toc_off
;
10829 else if (unresolved_reloc
)
10831 else if (sec
!= NULL
&& sec
->id
<= htab
->top_id
)
10832 relocation
+= htab
->stub_group
[sec
->id
].toc_off
;
10834 unresolved_reloc
= TRUE
;
10837 /* TOC16 relocs. We want the offset relative to the TOC base,
10838 which is the address of the start of the TOC plus 0x8000.
10839 The TOC consists of sections .got, .toc, .tocbss, and .plt,
10841 case R_PPC64_TOC16
:
10842 case R_PPC64_TOC16_LO
:
10843 case R_PPC64_TOC16_HI
:
10844 case R_PPC64_TOC16_DS
:
10845 case R_PPC64_TOC16_LO_DS
:
10846 case R_PPC64_TOC16_HA
:
10847 addend
-= TOCstart
+ htab
->stub_group
[input_section
->id
].toc_off
;
10850 /* Relocate against the beginning of the section. */
10851 case R_PPC64_SECTOFF
:
10852 case R_PPC64_SECTOFF_LO
:
10853 case R_PPC64_SECTOFF_HI
:
10854 case R_PPC64_SECTOFF_DS
:
10855 case R_PPC64_SECTOFF_LO_DS
:
10856 case R_PPC64_SECTOFF_HA
:
10858 addend
-= sec
->output_section
->vma
;
10861 case R_PPC64_REL14
:
10862 case R_PPC64_REL14_BRNTAKEN
:
10863 case R_PPC64_REL14_BRTAKEN
:
10864 case R_PPC64_REL24
:
10867 case R_PPC64_TPREL16
:
10868 case R_PPC64_TPREL16_LO
:
10869 case R_PPC64_TPREL16_HI
:
10870 case R_PPC64_TPREL16_HA
:
10871 case R_PPC64_TPREL16_DS
:
10872 case R_PPC64_TPREL16_LO_DS
:
10873 case R_PPC64_TPREL16_HIGHER
:
10874 case R_PPC64_TPREL16_HIGHERA
:
10875 case R_PPC64_TPREL16_HIGHEST
:
10876 case R_PPC64_TPREL16_HIGHESTA
:
10877 addend
-= htab
->elf
.tls_sec
->vma
+ TP_OFFSET
;
10879 /* The TPREL16 relocs shouldn't really be used in shared
10880 libs as they will result in DT_TEXTREL being set, but
10881 support them anyway. */
10885 case R_PPC64_DTPREL16
:
10886 case R_PPC64_DTPREL16_LO
:
10887 case R_PPC64_DTPREL16_HI
:
10888 case R_PPC64_DTPREL16_HA
:
10889 case R_PPC64_DTPREL16_DS
:
10890 case R_PPC64_DTPREL16_LO_DS
:
10891 case R_PPC64_DTPREL16_HIGHER
:
10892 case R_PPC64_DTPREL16_HIGHERA
:
10893 case R_PPC64_DTPREL16_HIGHEST
:
10894 case R_PPC64_DTPREL16_HIGHESTA
:
10895 addend
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
10898 case R_PPC64_DTPMOD64
:
10903 case R_PPC64_TPREL64
:
10904 addend
-= htab
->elf
.tls_sec
->vma
+ TP_OFFSET
;
10907 case R_PPC64_DTPREL64
:
10908 addend
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
10911 /* Relocations that may need to be propagated if this is a
10913 case R_PPC64_REL30
:
10914 case R_PPC64_REL32
:
10915 case R_PPC64_REL64
:
10916 case R_PPC64_ADDR14
:
10917 case R_PPC64_ADDR14_BRNTAKEN
:
10918 case R_PPC64_ADDR14_BRTAKEN
:
10919 case R_PPC64_ADDR16
:
10920 case R_PPC64_ADDR16_DS
:
10921 case R_PPC64_ADDR16_HA
:
10922 case R_PPC64_ADDR16_HI
:
10923 case R_PPC64_ADDR16_HIGHER
:
10924 case R_PPC64_ADDR16_HIGHERA
:
10925 case R_PPC64_ADDR16_HIGHEST
:
10926 case R_PPC64_ADDR16_HIGHESTA
:
10927 case R_PPC64_ADDR16_LO
:
10928 case R_PPC64_ADDR16_LO_DS
:
10929 case R_PPC64_ADDR24
:
10930 case R_PPC64_ADDR32
:
10931 case R_PPC64_ADDR64
:
10932 case R_PPC64_UADDR16
:
10933 case R_PPC64_UADDR32
:
10934 case R_PPC64_UADDR64
:
10936 if ((input_section
->flags
& SEC_ALLOC
) == 0)
10939 if (NO_OPD_RELOCS
&& is_opd
)
10944 || ELF_ST_VISIBILITY (h
->elf
.other
) == STV_DEFAULT
10945 || h
->elf
.root
.type
!= bfd_link_hash_undefweak
)
10946 && (MUST_BE_DYN_RELOC (r_type
)
10947 || !SYMBOL_CALLS_LOCAL (info
, &h
->elf
)))
10948 || (ELIMINATE_COPY_RELOCS
10951 && h
->elf
.dynindx
!= -1
10952 && !h
->elf
.non_got_ref
10953 && h
->elf
.def_dynamic
10954 && !h
->elf
.def_regular
))
10956 Elf_Internal_Rela outrel
;
10957 bfd_boolean skip
, relocate
;
10962 /* When generating a dynamic object, these relocations
10963 are copied into the output file to be resolved at run
10969 out_off
= _bfd_elf_section_offset (output_bfd
, info
,
10970 input_section
, rel
->r_offset
);
10971 if (out_off
== (bfd_vma
) -1)
10973 else if (out_off
== (bfd_vma
) -2)
10974 skip
= TRUE
, relocate
= TRUE
;
10975 out_off
+= (input_section
->output_section
->vma
10976 + input_section
->output_offset
);
10977 outrel
.r_offset
= out_off
;
10978 outrel
.r_addend
= rel
->r_addend
;
10980 /* Optimize unaligned reloc use. */
10981 if ((r_type
== R_PPC64_ADDR64
&& (out_off
& 7) != 0)
10982 || (r_type
== R_PPC64_UADDR64
&& (out_off
& 7) == 0))
10983 r_type
^= R_PPC64_ADDR64
^ R_PPC64_UADDR64
;
10984 else if ((r_type
== R_PPC64_ADDR32
&& (out_off
& 3) != 0)
10985 || (r_type
== R_PPC64_UADDR32
&& (out_off
& 3) == 0))
10986 r_type
^= R_PPC64_ADDR32
^ R_PPC64_UADDR32
;
10987 else if ((r_type
== R_PPC64_ADDR16
&& (out_off
& 1) != 0)
10988 || (r_type
== R_PPC64_UADDR16
&& (out_off
& 1) == 0))
10989 r_type
^= R_PPC64_ADDR16
^ R_PPC64_UADDR16
;
10992 memset (&outrel
, 0, sizeof outrel
);
10993 else if (!SYMBOL_REFERENCES_LOCAL (info
, &h
->elf
)
10995 && r_type
!= R_PPC64_TOC
)
10996 outrel
.r_info
= ELF64_R_INFO (h
->elf
.dynindx
, r_type
);
10999 /* This symbol is local, or marked to become local,
11000 or this is an opd section reloc which must point
11001 at a local function. */
11002 outrel
.r_addend
+= relocation
;
11003 if (r_type
== R_PPC64_ADDR64
|| r_type
== R_PPC64_TOC
)
11005 if (is_opd
&& h
!= NULL
)
11007 /* Lie about opd entries. This case occurs
11008 when building shared libraries and we
11009 reference a function in another shared
11010 lib. The same thing happens for a weak
11011 definition in an application that's
11012 overridden by a strong definition in a
11013 shared lib. (I believe this is a generic
11014 bug in binutils handling of weak syms.)
11015 In these cases we won't use the opd
11016 entry in this lib. */
11017 unresolved_reloc
= FALSE
;
11019 outrel
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
11021 /* We need to relocate .opd contents for ld.so.
11022 Prelink also wants simple and consistent rules
11023 for relocs. This make all RELATIVE relocs have
11024 *r_offset equal to r_addend. */
11031 if (bfd_is_abs_section (sec
))
11033 else if (sec
== NULL
|| sec
->owner
== NULL
)
11035 bfd_set_error (bfd_error_bad_value
);
11042 osec
= sec
->output_section
;
11043 indx
= elf_section_data (osec
)->dynindx
;
11047 if ((osec
->flags
& SEC_READONLY
) == 0
11048 && htab
->elf
.data_index_section
!= NULL
)
11049 osec
= htab
->elf
.data_index_section
;
11051 osec
= htab
->elf
.text_index_section
;
11052 indx
= elf_section_data (osec
)->dynindx
;
11054 BFD_ASSERT (indx
!= 0);
11056 /* We are turning this relocation into one
11057 against a section symbol, so subtract out
11058 the output section's address but not the
11059 offset of the input section in the output
11061 outrel
.r_addend
-= osec
->vma
;
11064 outrel
.r_info
= ELF64_R_INFO (indx
, r_type
);
11068 sreloc
= elf_section_data (input_section
)->sreloc
;
11069 if (sreloc
== NULL
)
11072 if (sreloc
->reloc_count
* sizeof (Elf64_External_Rela
)
11075 loc
= sreloc
->contents
;
11076 loc
+= sreloc
->reloc_count
++ * sizeof (Elf64_External_Rela
);
11077 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
11079 /* If this reloc is against an external symbol, it will
11080 be computed at runtime, so there's no need to do
11081 anything now. However, for the sake of prelink ensure
11082 that the section contents are a known value. */
11085 unresolved_reloc
= FALSE
;
11086 /* The value chosen here is quite arbitrary as ld.so
11087 ignores section contents except for the special
11088 case of .opd where the contents might be accessed
11089 before relocation. Choose zero, as that won't
11090 cause reloc overflow. */
11093 /* Use *r_offset == r_addend for R_PPC64_ADDR64 relocs
11094 to improve backward compatibility with older
11096 if (r_type
== R_PPC64_ADDR64
)
11097 addend
= outrel
.r_addend
;
11098 /* Adjust pc_relative relocs to have zero in *r_offset. */
11099 else if (ppc64_elf_howto_table
[r_type
]->pc_relative
)
11100 addend
= (input_section
->output_section
->vma
11101 + input_section
->output_offset
11108 case R_PPC64_GLOB_DAT
:
11109 case R_PPC64_JMP_SLOT
:
11110 case R_PPC64_RELATIVE
:
11111 /* We shouldn't ever see these dynamic relocs in relocatable
11113 /* Fall through. */
11115 case R_PPC64_PLTGOT16
:
11116 case R_PPC64_PLTGOT16_DS
:
11117 case R_PPC64_PLTGOT16_HA
:
11118 case R_PPC64_PLTGOT16_HI
:
11119 case R_PPC64_PLTGOT16_LO
:
11120 case R_PPC64_PLTGOT16_LO_DS
:
11121 case R_PPC64_PLTREL32
:
11122 case R_PPC64_PLTREL64
:
11123 /* These ones haven't been implemented yet. */
11125 (*_bfd_error_handler
)
11126 (_("%B: relocation %s is not supported for symbol %s."),
11128 ppc64_elf_howto_table
[r_type
]->name
, sym_name
);
11130 bfd_set_error (bfd_error_invalid_operation
);
11135 /* Do any further special processing. */
11141 case R_PPC64_ADDR16_HA
:
11142 case R_PPC64_ADDR16_HIGHERA
:
11143 case R_PPC64_ADDR16_HIGHESTA
:
11144 case R_PPC64_TOC16_HA
:
11145 case R_PPC64_SECTOFF_HA
:
11146 case R_PPC64_TPREL16_HA
:
11147 case R_PPC64_DTPREL16_HA
:
11148 case R_PPC64_TPREL16_HIGHER
:
11149 case R_PPC64_TPREL16_HIGHERA
:
11150 case R_PPC64_TPREL16_HIGHEST
:
11151 case R_PPC64_TPREL16_HIGHESTA
:
11152 case R_PPC64_DTPREL16_HIGHER
:
11153 case R_PPC64_DTPREL16_HIGHERA
:
11154 case R_PPC64_DTPREL16_HIGHEST
:
11155 case R_PPC64_DTPREL16_HIGHESTA
:
11156 /* It's just possible that this symbol is a weak symbol
11157 that's not actually defined anywhere. In that case,
11158 'sec' would be NULL, and we should leave the symbol
11159 alone (it will be set to zero elsewhere in the link). */
11164 case R_PPC64_GOT16_HA
:
11165 case R_PPC64_PLTGOT16_HA
:
11166 case R_PPC64_PLT16_HA
:
11167 case R_PPC64_GOT_TLSGD16_HA
:
11168 case R_PPC64_GOT_TLSLD16_HA
:
11169 case R_PPC64_GOT_TPREL16_HA
:
11170 case R_PPC64_GOT_DTPREL16_HA
:
11171 /* Add 0x10000 if sign bit in 0:15 is set.
11172 Bits 0:15 are not used. */
11176 case R_PPC64_ADDR16_DS
:
11177 case R_PPC64_ADDR16_LO_DS
:
11178 case R_PPC64_GOT16_DS
:
11179 case R_PPC64_GOT16_LO_DS
:
11180 case R_PPC64_PLT16_LO_DS
:
11181 case R_PPC64_SECTOFF_DS
:
11182 case R_PPC64_SECTOFF_LO_DS
:
11183 case R_PPC64_TOC16_DS
:
11184 case R_PPC64_TOC16_LO_DS
:
11185 case R_PPC64_PLTGOT16_DS
:
11186 case R_PPC64_PLTGOT16_LO_DS
:
11187 case R_PPC64_GOT_TPREL16_DS
:
11188 case R_PPC64_GOT_TPREL16_LO_DS
:
11189 case R_PPC64_GOT_DTPREL16_DS
:
11190 case R_PPC64_GOT_DTPREL16_LO_DS
:
11191 case R_PPC64_TPREL16_DS
:
11192 case R_PPC64_TPREL16_LO_DS
:
11193 case R_PPC64_DTPREL16_DS
:
11194 case R_PPC64_DTPREL16_LO_DS
:
11195 insn
= bfd_get_32 (input_bfd
, contents
+ (rel
->r_offset
& ~3));
11197 /* If this reloc is against an lq insn, then the value must be
11198 a multiple of 16. This is somewhat of a hack, but the
11199 "correct" way to do this by defining _DQ forms of all the
11200 _DS relocs bloats all reloc switches in this file. It
11201 doesn't seem to make much sense to use any of these relocs
11202 in data, so testing the insn should be safe. */
11203 if ((insn
& (0x3f << 26)) == (56u << 26))
11205 if (((relocation
+ addend
) & mask
) != 0)
11207 (*_bfd_error_handler
)
11208 (_("%B: error: relocation %s not a multiple of %d"),
11210 ppc64_elf_howto_table
[r_type
]->name
,
11212 bfd_set_error (bfd_error_bad_value
);
11219 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
11220 because such sections are not SEC_ALLOC and thus ld.so will
11221 not process them. */
11222 if (unresolved_reloc
11223 && !((input_section
->flags
& SEC_DEBUGGING
) != 0
11224 && h
->elf
.def_dynamic
))
11226 (*_bfd_error_handler
)
11227 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
11230 (long) rel
->r_offset
,
11231 ppc64_elf_howto_table
[(int) r_type
]->name
,
11232 h
->elf
.root
.root
.string
);
11236 r
= _bfd_final_link_relocate (ppc64_elf_howto_table
[(int) r_type
],
11244 if (r
!= bfd_reloc_ok
)
11246 if (sym_name
== NULL
)
11247 sym_name
= "(null)";
11248 if (r
== bfd_reloc_overflow
)
11253 && h
->elf
.root
.type
== bfd_link_hash_undefweak
11254 && ppc64_elf_howto_table
[r_type
]->pc_relative
)
11256 /* Assume this is a call protected by other code that
11257 detects the symbol is undefined. If this is the case,
11258 we can safely ignore the overflow. If not, the
11259 program is hosed anyway, and a little warning isn't
11265 if (!((*info
->callbacks
->reloc_overflow
)
11266 (info
, (h
? &h
->elf
.root
: NULL
), sym_name
,
11267 ppc64_elf_howto_table
[r_type
]->name
,
11268 orig_addend
, input_bfd
, input_section
, rel
->r_offset
)))
11273 (*_bfd_error_handler
)
11274 (_("%B(%A+0x%lx): %s reloc against `%s': error %d"),
11277 (long) rel
->r_offset
,
11278 ppc64_elf_howto_table
[r_type
]->name
,
11286 /* If we're emitting relocations, then shortly after this function
11287 returns, reloc offsets and addends for this section will be
11288 adjusted. Worse, reloc symbol indices will be for the output
11289 file rather than the input. Save a copy of the relocs for
11290 opd_entry_value. */
11291 if (is_opd
&& (info
->emitrelocations
|| info
->relocatable
))
11294 amt
= input_section
->reloc_count
* sizeof (Elf_Internal_Rela
);
11295 rel
= bfd_alloc (input_bfd
, amt
);
11296 BFD_ASSERT (ppc64_elf_tdata (input_bfd
)->opd_relocs
== NULL
);
11297 ppc64_elf_tdata (input_bfd
)->opd_relocs
= rel
;
11300 memcpy (rel
, relocs
, amt
);
11305 /* Adjust the value of any local symbols in opd sections. */
11308 ppc64_elf_output_symbol_hook (struct bfd_link_info
*info
,
11309 const char *name ATTRIBUTE_UNUSED
,
11310 Elf_Internal_Sym
*elfsym
,
11311 asection
*input_sec
,
11312 struct elf_link_hash_entry
*h
)
11314 long *opd_adjust
, adjust
;
11320 opd_adjust
= get_opd_info (input_sec
);
11321 if (opd_adjust
== NULL
)
11324 value
= elfsym
->st_value
- input_sec
->output_offset
;
11325 if (!info
->relocatable
)
11326 value
-= input_sec
->output_section
->vma
;
11328 adjust
= opd_adjust
[value
/ 8];
11330 elfsym
->st_value
= 0;
11332 elfsym
->st_value
+= adjust
;
11336 /* Finish up dynamic symbol handling. We set the contents of various
11337 dynamic sections here. */
11340 ppc64_elf_finish_dynamic_symbol (bfd
*output_bfd
,
11341 struct bfd_link_info
*info
,
11342 struct elf_link_hash_entry
*h
,
11343 Elf_Internal_Sym
*sym
)
11345 struct ppc_link_hash_table
*htab
;
11346 struct plt_entry
*ent
;
11347 Elf_Internal_Rela rela
;
11350 htab
= ppc_hash_table (info
);
11352 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
11353 if (ent
->plt
.offset
!= (bfd_vma
) -1)
11355 /* This symbol has an entry in the procedure linkage
11356 table. Set it up. */
11358 if (htab
->plt
== NULL
11359 || htab
->relplt
== NULL
11360 || htab
->glink
== NULL
)
11363 /* Create a JMP_SLOT reloc to inform the dynamic linker to
11364 fill in the PLT entry. */
11365 rela
.r_offset
= (htab
->plt
->output_section
->vma
11366 + htab
->plt
->output_offset
11367 + ent
->plt
.offset
);
11368 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_JMP_SLOT
);
11369 rela
.r_addend
= ent
->addend
;
11371 loc
= htab
->relplt
->contents
;
11372 loc
+= ((ent
->plt
.offset
- PLT_INITIAL_ENTRY_SIZE
) / PLT_ENTRY_SIZE
11373 * sizeof (Elf64_External_Rela
));
11374 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
11379 Elf_Internal_Rela rela
;
11382 /* This symbol needs a copy reloc. Set it up. */
11384 if (h
->dynindx
== -1
11385 || (h
->root
.type
!= bfd_link_hash_defined
11386 && h
->root
.type
!= bfd_link_hash_defweak
)
11387 || htab
->relbss
== NULL
)
11390 rela
.r_offset
= (h
->root
.u
.def
.value
11391 + h
->root
.u
.def
.section
->output_section
->vma
11392 + h
->root
.u
.def
.section
->output_offset
);
11393 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_COPY
);
11395 loc
= htab
->relbss
->contents
;
11396 loc
+= htab
->relbss
->reloc_count
++ * sizeof (Elf64_External_Rela
);
11397 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
11400 /* Mark some specially defined symbols as absolute. */
11401 if (strcmp (h
->root
.root
.string
, "_DYNAMIC") == 0)
11402 sym
->st_shndx
= SHN_ABS
;
11407 /* Used to decide how to sort relocs in an optimal manner for the
11408 dynamic linker, before writing them out. */
11410 static enum elf_reloc_type_class
11411 ppc64_elf_reloc_type_class (const Elf_Internal_Rela
*rela
)
11413 enum elf_ppc64_reloc_type r_type
;
11415 r_type
= ELF64_R_TYPE (rela
->r_info
);
11418 case R_PPC64_RELATIVE
:
11419 return reloc_class_relative
;
11420 case R_PPC64_JMP_SLOT
:
11421 return reloc_class_plt
;
11423 return reloc_class_copy
;
11425 return reloc_class_normal
;
11429 /* Finish up the dynamic sections. */
11432 ppc64_elf_finish_dynamic_sections (bfd
*output_bfd
,
11433 struct bfd_link_info
*info
)
11435 struct ppc_link_hash_table
*htab
;
11439 htab
= ppc_hash_table (info
);
11440 dynobj
= htab
->elf
.dynobj
;
11441 sdyn
= bfd_get_section_by_name (dynobj
, ".dynamic");
11443 if (htab
->elf
.dynamic_sections_created
)
11445 Elf64_External_Dyn
*dyncon
, *dynconend
;
11447 if (sdyn
== NULL
|| htab
->got
== NULL
)
11450 dyncon
= (Elf64_External_Dyn
*) sdyn
->contents
;
11451 dynconend
= (Elf64_External_Dyn
*) (sdyn
->contents
+ sdyn
->size
);
11452 for (; dyncon
< dynconend
; dyncon
++)
11454 Elf_Internal_Dyn dyn
;
11457 bfd_elf64_swap_dyn_in (dynobj
, dyncon
, &dyn
);
11464 case DT_PPC64_GLINK
:
11466 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
11467 /* We stupidly defined DT_PPC64_GLINK to be the start
11468 of glink rather than the first entry point, which is
11469 what ld.so needs, and now have a bigger stub to
11470 support automatic multiple TOCs. */
11471 dyn
.d_un
.d_ptr
+= GLINK_CALL_STUB_SIZE
- 32;
11475 s
= bfd_get_section_by_name (output_bfd
, ".opd");
11478 dyn
.d_un
.d_ptr
= s
->vma
;
11481 case DT_PPC64_OPDSZ
:
11482 s
= bfd_get_section_by_name (output_bfd
, ".opd");
11485 dyn
.d_un
.d_val
= s
->size
;
11490 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
11495 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
11499 dyn
.d_un
.d_val
= htab
->relplt
->size
;
11503 /* Don't count procedure linkage table relocs in the
11504 overall reloc count. */
11508 dyn
.d_un
.d_val
-= s
->size
;
11512 /* We may not be using the standard ELF linker script.
11513 If .rela.plt is the first .rela section, we adjust
11514 DT_RELA to not include it. */
11518 if (dyn
.d_un
.d_ptr
!= s
->output_section
->vma
+ s
->output_offset
)
11520 dyn
.d_un
.d_ptr
+= s
->size
;
11524 bfd_elf64_swap_dyn_out (output_bfd
, &dyn
, dyncon
);
11528 if (htab
->got
!= NULL
&& htab
->got
->size
!= 0)
11530 /* Fill in the first entry in the global offset table.
11531 We use it to hold the link-time TOCbase. */
11532 bfd_put_64 (output_bfd
,
11533 elf_gp (output_bfd
) + TOC_BASE_OFF
,
11534 htab
->got
->contents
);
11536 /* Set .got entry size. */
11537 elf_section_data (htab
->got
->output_section
)->this_hdr
.sh_entsize
= 8;
11540 if (htab
->plt
!= NULL
&& htab
->plt
->size
!= 0)
11542 /* Set .plt entry size. */
11543 elf_section_data (htab
->plt
->output_section
)->this_hdr
.sh_entsize
11547 /* brlt is SEC_LINKER_CREATED, so we need to write out relocs for
11548 brlt ourselves if emitrelocations. */
11549 if (htab
->brlt
!= NULL
11550 && htab
->brlt
->reloc_count
!= 0
11551 && !_bfd_elf_link_output_relocs (output_bfd
,
11553 &elf_section_data (htab
->brlt
)->rel_hdr
,
11554 elf_section_data (htab
->brlt
)->relocs
,
11558 /* We need to handle writing out multiple GOT sections ourselves,
11559 since we didn't add them to DYNOBJ. We know dynobj is the first
11561 while ((dynobj
= dynobj
->link_next
) != NULL
)
11565 if (!is_ppc64_elf_target (dynobj
->xvec
))
11568 s
= ppc64_elf_tdata (dynobj
)->got
;
11571 && s
->output_section
!= bfd_abs_section_ptr
11572 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
11573 s
->contents
, s
->output_offset
,
11576 s
= ppc64_elf_tdata (dynobj
)->relgot
;
11579 && s
->output_section
!= bfd_abs_section_ptr
11580 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
11581 s
->contents
, s
->output_offset
,
11589 #include "elf64-target.h"