1 /* PowerPC64-specific support for 64-bit ELF.
2 Copyright 1999, 2000, 2001, 2002, 2003, 2004
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 2 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 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
24 /* The 64-bit PowerPC ELF ABI may be found at
25 http://www.linuxbase.org/spec/ELF/ppc64/PPC-elf64abi.txt, and
26 http://www.linuxbase.org/spec/ELF/ppc64/spec/book1.html */
33 #include "elf/ppc64.h"
34 #include "elf64-ppc.h"
36 static bfd_reloc_status_type ppc64_elf_ha_reloc
37 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
38 static bfd_reloc_status_type ppc64_elf_branch_reloc
39 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
40 static bfd_reloc_status_type ppc64_elf_brtaken_reloc
41 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
42 static bfd_reloc_status_type ppc64_elf_sectoff_reloc
43 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
44 static bfd_reloc_status_type ppc64_elf_sectoff_ha_reloc
45 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
46 static bfd_reloc_status_type ppc64_elf_toc_reloc
47 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
48 static bfd_reloc_status_type ppc64_elf_toc_ha_reloc
49 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
50 static bfd_reloc_status_type ppc64_elf_toc64_reloc
51 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
52 static bfd_reloc_status_type ppc64_elf_unhandled_reloc
53 (bfd
*, arelent
*, asymbol
*, void *, asection
*, bfd
*, char **);
54 static bfd_vma opd_entry_value
55 (asection
*, bfd_vma
, asection
**, bfd_vma
*);
57 #define TARGET_LITTLE_SYM bfd_elf64_powerpcle_vec
58 #define TARGET_LITTLE_NAME "elf64-powerpcle"
59 #define TARGET_BIG_SYM bfd_elf64_powerpc_vec
60 #define TARGET_BIG_NAME "elf64-powerpc"
61 #define ELF_ARCH bfd_arch_powerpc
62 #define ELF_MACHINE_CODE EM_PPC64
63 #define ELF_MAXPAGESIZE 0x10000
64 #define elf_info_to_howto ppc64_elf_info_to_howto
66 #define elf_backend_want_got_sym 0
67 #define elf_backend_want_plt_sym 0
68 #define elf_backend_plt_alignment 3
69 #define elf_backend_plt_not_loaded 1
70 #define elf_backend_got_symbol_offset 0
71 #define elf_backend_got_header_size 8
72 #define elf_backend_can_gc_sections 1
73 #define elf_backend_can_refcount 1
74 #define elf_backend_rela_normal 1
76 #define bfd_elf64_mkobject ppc64_elf_mkobject
77 #define bfd_elf64_bfd_reloc_type_lookup ppc64_elf_reloc_type_lookup
78 #define bfd_elf64_bfd_merge_private_bfd_data ppc64_elf_merge_private_bfd_data
79 #define bfd_elf64_new_section_hook ppc64_elf_new_section_hook
80 #define bfd_elf64_bfd_link_hash_table_create ppc64_elf_link_hash_table_create
81 #define bfd_elf64_bfd_link_hash_table_free ppc64_elf_link_hash_table_free
82 #define bfd_elf64_get_synthetic_symtab ppc64_elf_get_synthetic_symtab
84 #define elf_backend_object_p ppc64_elf_object_p
85 #define elf_backend_grok_prstatus ppc64_elf_grok_prstatus
86 #define elf_backend_grok_psinfo ppc64_elf_grok_psinfo
87 #define elf_backend_create_dynamic_sections ppc64_elf_create_dynamic_sections
88 #define elf_backend_copy_indirect_symbol ppc64_elf_copy_indirect_symbol
89 #define elf_backend_add_symbol_hook ppc64_elf_add_symbol_hook
90 #define elf_backend_check_directives ppc64_elf_check_directives
91 #define elf_backend_archive_symbol_lookup ppc64_elf_archive_symbol_lookup
92 #define elf_backend_check_relocs ppc64_elf_check_relocs
93 #define elf_backend_gc_mark_hook ppc64_elf_gc_mark_hook
94 #define elf_backend_gc_sweep_hook ppc64_elf_gc_sweep_hook
95 #define elf_backend_adjust_dynamic_symbol ppc64_elf_adjust_dynamic_symbol
96 #define elf_backend_hide_symbol ppc64_elf_hide_symbol
97 #define elf_backend_always_size_sections ppc64_elf_func_desc_adjust
98 #define elf_backend_size_dynamic_sections ppc64_elf_size_dynamic_sections
99 #define elf_backend_relocate_section ppc64_elf_relocate_section
100 #define elf_backend_finish_dynamic_symbol ppc64_elf_finish_dynamic_symbol
101 #define elf_backend_reloc_type_class ppc64_elf_reloc_type_class
102 #define elf_backend_finish_dynamic_sections ppc64_elf_finish_dynamic_sections
103 #define elf_backend_link_output_symbol_hook ppc64_elf_output_symbol_hook
104 #define elf_backend_special_sections ppc64_elf_special_sections
106 /* The name of the dynamic interpreter. This is put in the .interp
108 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
110 /* The size in bytes of an entry in the procedure linkage table. */
111 #define PLT_ENTRY_SIZE 24
113 /* The initial size of the plt reserved for the dynamic linker. */
114 #define PLT_INITIAL_ENTRY_SIZE PLT_ENTRY_SIZE
116 /* TOC base pointers offset from start of TOC. */
117 #define TOC_BASE_OFF 0x8000
119 /* Offset of tp and dtp pointers from start of TLS block. */
120 #define TP_OFFSET 0x7000
121 #define DTP_OFFSET 0x8000
123 /* .plt call stub instructions. The normal stub is like this, but
124 sometimes the .plt entry crosses a 64k boundary and we need to
125 insert an addis to adjust r12. */
126 #define PLT_CALL_STUB_SIZE (7*4)
127 #define ADDIS_R12_R2 0x3d820000 /* addis %r12,%r2,xxx@ha */
128 #define STD_R2_40R1 0xf8410028 /* std %r2,40(%r1) */
129 #define LD_R11_0R12 0xe96c0000 /* ld %r11,xxx+0@l(%r12) */
130 #define LD_R2_0R12 0xe84c0000 /* ld %r2,xxx+8@l(%r12) */
131 #define MTCTR_R11 0x7d6903a6 /* mtctr %r11 */
132 /* ld %r11,xxx+16@l(%r12) */
133 #define BCTR 0x4e800420 /* bctr */
136 #define ADDIS_R2_R2 0x3c420000 /* addis %r2,%r2,off@ha */
137 #define ADDI_R2_R2 0x38420000 /* addi %r2,%r2,off@l */
139 #define LD_R2_40R1 0xe8410028 /* ld %r2,40(%r1) */
141 /* glink call stub instructions. We enter with the index in R0, and the
142 address of glink entry in CTR. From that, we can calculate PLT0. */
143 #define GLINK_CALL_STUB_SIZE (16*4)
144 #define MFCTR_R12 0x7d8902a6 /* mfctr %r12 */
145 #define SLDI_R11_R0_3 0x780b1f24 /* sldi %r11,%r0,3 */
146 #define ADDIC_R2_R0_32K 0x34408000 /* addic. %r2,%r0,-32768 */
147 #define SUB_R12_R12_R11 0x7d8b6050 /* sub %r12,%r12,%r11 */
148 #define SRADI_R2_R2_63 0x7c42fe76 /* sradi %r2,%r2,63 */
149 #define SLDI_R11_R0_2 0x780b1764 /* sldi %r11,%r0,2 */
150 #define AND_R2_R2_R11 0x7c425838 /* and %r2,%r2,%r11 */
151 /* sub %r12,%r12,%r11 */
152 #define ADD_R12_R12_R2 0x7d8c1214 /* add %r12,%r12,%r2 */
153 #define ADDIS_R12_R12 0x3d8c0000 /* addis %r12,%r12,xxx@ha */
154 /* ld %r11,xxx@l(%r12) */
155 #define ADDI_R12_R12 0x398c0000 /* addi %r12,%r12,xxx@l */
158 /* ld %r11,16(%r12) */
162 #define NOP 0x60000000
164 /* Some other nops. */
165 #define CROR_151515 0x4def7b82
166 #define CROR_313131 0x4ffffb82
168 /* .glink entries for the first 32k functions are two instructions. */
169 #define LI_R0_0 0x38000000 /* li %r0,0 */
170 #define B_DOT 0x48000000 /* b . */
172 /* After that, we need two instructions to load the index, followed by
174 #define LIS_R0_0 0x3c000000 /* lis %r0,0 */
175 #define ORI_R0_R0_0 0x60000000 /* ori %r0,%r0,0 */
177 /* Instructions to save and restore floating point regs. */
178 #define STFD_FR0_0R1 0xd8010000 /* stfd %fr0,0(%r1) */
179 #define LFD_FR0_0R1 0xc8010000 /* lfd %fr0,0(%r1) */
180 #define BLR 0x4e800020 /* blr */
182 /* Since .opd is an array of descriptors and each entry will end up
183 with identical R_PPC64_RELATIVE relocs, there is really no need to
184 propagate .opd relocs; The dynamic linker should be taught to
185 relocate .opd without reloc entries. */
186 #ifndef NO_OPD_RELOCS
187 #define NO_OPD_RELOCS 0
190 #define ONES(n) (((bfd_vma) 1 << ((n) - 1) << 1) - 1)
192 /* Relocation HOWTO's. */
193 static reloc_howto_type
*ppc64_elf_howto_table
[(int) R_PPC64_max
];
195 static reloc_howto_type ppc64_elf_howto_raw
[] = {
196 /* This reloc does nothing. */
197 HOWTO (R_PPC64_NONE
, /* type */
199 2, /* size (0 = byte, 1 = short, 2 = long) */
201 FALSE
, /* pc_relative */
203 complain_overflow_dont
, /* complain_on_overflow */
204 bfd_elf_generic_reloc
, /* special_function */
205 "R_PPC64_NONE", /* name */
206 FALSE
, /* partial_inplace */
209 FALSE
), /* pcrel_offset */
211 /* A standard 32 bit relocation. */
212 HOWTO (R_PPC64_ADDR32
, /* type */
214 2, /* size (0 = byte, 1 = short, 2 = long) */
216 FALSE
, /* pc_relative */
218 complain_overflow_bitfield
, /* complain_on_overflow */
219 bfd_elf_generic_reloc
, /* special_function */
220 "R_PPC64_ADDR32", /* name */
221 FALSE
, /* partial_inplace */
223 0xffffffff, /* dst_mask */
224 FALSE
), /* pcrel_offset */
226 /* An absolute 26 bit branch; the lower two bits must be zero.
227 FIXME: we don't check that, we just clear them. */
228 HOWTO (R_PPC64_ADDR24
, /* type */
230 2, /* size (0 = byte, 1 = short, 2 = long) */
232 FALSE
, /* pc_relative */
234 complain_overflow_bitfield
, /* complain_on_overflow */
235 bfd_elf_generic_reloc
, /* special_function */
236 "R_PPC64_ADDR24", /* name */
237 FALSE
, /* partial_inplace */
239 0x03fffffc, /* dst_mask */
240 FALSE
), /* pcrel_offset */
242 /* A standard 16 bit relocation. */
243 HOWTO (R_PPC64_ADDR16
, /* type */
245 1, /* size (0 = byte, 1 = short, 2 = long) */
247 FALSE
, /* pc_relative */
249 complain_overflow_bitfield
, /* complain_on_overflow */
250 bfd_elf_generic_reloc
, /* special_function */
251 "R_PPC64_ADDR16", /* name */
252 FALSE
, /* partial_inplace */
254 0xffff, /* dst_mask */
255 FALSE
), /* pcrel_offset */
257 /* A 16 bit relocation without overflow. */
258 HOWTO (R_PPC64_ADDR16_LO
, /* type */
260 1, /* size (0 = byte, 1 = short, 2 = long) */
262 FALSE
, /* pc_relative */
264 complain_overflow_dont
,/* complain_on_overflow */
265 bfd_elf_generic_reloc
, /* special_function */
266 "R_PPC64_ADDR16_LO", /* name */
267 FALSE
, /* partial_inplace */
269 0xffff, /* dst_mask */
270 FALSE
), /* pcrel_offset */
272 /* Bits 16-31 of an address. */
273 HOWTO (R_PPC64_ADDR16_HI
, /* type */
275 1, /* size (0 = byte, 1 = short, 2 = long) */
277 FALSE
, /* pc_relative */
279 complain_overflow_dont
, /* complain_on_overflow */
280 bfd_elf_generic_reloc
, /* special_function */
281 "R_PPC64_ADDR16_HI", /* name */
282 FALSE
, /* partial_inplace */
284 0xffff, /* dst_mask */
285 FALSE
), /* pcrel_offset */
287 /* Bits 16-31 of an address, plus 1 if the contents of the low 16
288 bits, treated as a signed number, is negative. */
289 HOWTO (R_PPC64_ADDR16_HA
, /* type */
291 1, /* size (0 = byte, 1 = short, 2 = long) */
293 FALSE
, /* pc_relative */
295 complain_overflow_dont
, /* complain_on_overflow */
296 ppc64_elf_ha_reloc
, /* special_function */
297 "R_PPC64_ADDR16_HA", /* name */
298 FALSE
, /* partial_inplace */
300 0xffff, /* dst_mask */
301 FALSE
), /* pcrel_offset */
303 /* An absolute 16 bit branch; the lower two bits must be zero.
304 FIXME: we don't check that, we just clear them. */
305 HOWTO (R_PPC64_ADDR14
, /* type */
307 2, /* size (0 = byte, 1 = short, 2 = long) */
309 FALSE
, /* pc_relative */
311 complain_overflow_bitfield
, /* complain_on_overflow */
312 ppc64_elf_branch_reloc
, /* special_function */
313 "R_PPC64_ADDR14", /* name */
314 FALSE
, /* partial_inplace */
316 0x0000fffc, /* dst_mask */
317 FALSE
), /* pcrel_offset */
319 /* An absolute 16 bit branch, for which bit 10 should be set to
320 indicate that the branch is expected to be taken. The lower two
321 bits must be zero. */
322 HOWTO (R_PPC64_ADDR14_BRTAKEN
, /* type */
324 2, /* size (0 = byte, 1 = short, 2 = long) */
326 FALSE
, /* pc_relative */
328 complain_overflow_bitfield
, /* complain_on_overflow */
329 ppc64_elf_brtaken_reloc
, /* special_function */
330 "R_PPC64_ADDR14_BRTAKEN",/* name */
331 FALSE
, /* partial_inplace */
333 0x0000fffc, /* dst_mask */
334 FALSE
), /* pcrel_offset */
336 /* An absolute 16 bit branch, for which bit 10 should be set to
337 indicate that the branch is not expected to be taken. The lower
338 two bits must be zero. */
339 HOWTO (R_PPC64_ADDR14_BRNTAKEN
, /* type */
341 2, /* size (0 = byte, 1 = short, 2 = long) */
343 FALSE
, /* pc_relative */
345 complain_overflow_bitfield
, /* complain_on_overflow */
346 ppc64_elf_brtaken_reloc
, /* special_function */
347 "R_PPC64_ADDR14_BRNTAKEN",/* name */
348 FALSE
, /* partial_inplace */
350 0x0000fffc, /* dst_mask */
351 FALSE
), /* pcrel_offset */
353 /* A relative 26 bit branch; the lower two bits must be zero. */
354 HOWTO (R_PPC64_REL24
, /* type */
356 2, /* size (0 = byte, 1 = short, 2 = long) */
358 TRUE
, /* pc_relative */
360 complain_overflow_signed
, /* complain_on_overflow */
361 ppc64_elf_branch_reloc
, /* special_function */
362 "R_PPC64_REL24", /* name */
363 FALSE
, /* partial_inplace */
365 0x03fffffc, /* dst_mask */
366 TRUE
), /* pcrel_offset */
368 /* A relative 16 bit branch; the lower two bits must be zero. */
369 HOWTO (R_PPC64_REL14
, /* type */
371 2, /* size (0 = byte, 1 = short, 2 = long) */
373 TRUE
, /* pc_relative */
375 complain_overflow_signed
, /* complain_on_overflow */
376 ppc64_elf_branch_reloc
, /* special_function */
377 "R_PPC64_REL14", /* name */
378 FALSE
, /* partial_inplace */
380 0x0000fffc, /* dst_mask */
381 TRUE
), /* pcrel_offset */
383 /* A relative 16 bit branch. Bit 10 should be set to indicate that
384 the branch is expected to be taken. The lower two bits must be
386 HOWTO (R_PPC64_REL14_BRTAKEN
, /* type */
388 2, /* size (0 = byte, 1 = short, 2 = long) */
390 TRUE
, /* pc_relative */
392 complain_overflow_signed
, /* complain_on_overflow */
393 ppc64_elf_brtaken_reloc
, /* special_function */
394 "R_PPC64_REL14_BRTAKEN", /* name */
395 FALSE
, /* partial_inplace */
397 0x0000fffc, /* dst_mask */
398 TRUE
), /* pcrel_offset */
400 /* A relative 16 bit branch. Bit 10 should be set to indicate that
401 the branch is not expected to be taken. The lower two bits must
403 HOWTO (R_PPC64_REL14_BRNTAKEN
, /* type */
405 2, /* size (0 = byte, 1 = short, 2 = long) */
407 TRUE
, /* pc_relative */
409 complain_overflow_signed
, /* complain_on_overflow */
410 ppc64_elf_brtaken_reloc
, /* special_function */
411 "R_PPC64_REL14_BRNTAKEN",/* name */
412 FALSE
, /* partial_inplace */
414 0x0000fffc, /* dst_mask */
415 TRUE
), /* pcrel_offset */
417 /* Like R_PPC64_ADDR16, but referring to the GOT table entry for the
419 HOWTO (R_PPC64_GOT16
, /* type */
421 1, /* size (0 = byte, 1 = short, 2 = long) */
423 FALSE
, /* pc_relative */
425 complain_overflow_signed
, /* complain_on_overflow */
426 ppc64_elf_unhandled_reloc
, /* special_function */
427 "R_PPC64_GOT16", /* name */
428 FALSE
, /* partial_inplace */
430 0xffff, /* dst_mask */
431 FALSE
), /* pcrel_offset */
433 /* Like R_PPC64_ADDR16_LO, but referring to the GOT table entry for
435 HOWTO (R_PPC64_GOT16_LO
, /* type */
437 1, /* size (0 = byte, 1 = short, 2 = long) */
439 FALSE
, /* pc_relative */
441 complain_overflow_dont
, /* complain_on_overflow */
442 ppc64_elf_unhandled_reloc
, /* special_function */
443 "R_PPC64_GOT16_LO", /* name */
444 FALSE
, /* partial_inplace */
446 0xffff, /* dst_mask */
447 FALSE
), /* pcrel_offset */
449 /* Like R_PPC64_ADDR16_HI, but referring to the GOT table entry for
451 HOWTO (R_PPC64_GOT16_HI
, /* type */
453 1, /* size (0 = byte, 1 = short, 2 = long) */
455 FALSE
, /* pc_relative */
457 complain_overflow_dont
,/* complain_on_overflow */
458 ppc64_elf_unhandled_reloc
, /* special_function */
459 "R_PPC64_GOT16_HI", /* name */
460 FALSE
, /* partial_inplace */
462 0xffff, /* dst_mask */
463 FALSE
), /* pcrel_offset */
465 /* Like R_PPC64_ADDR16_HA, but referring to the GOT table entry for
467 HOWTO (R_PPC64_GOT16_HA
, /* type */
469 1, /* size (0 = byte, 1 = short, 2 = long) */
471 FALSE
, /* pc_relative */
473 complain_overflow_dont
,/* complain_on_overflow */
474 ppc64_elf_unhandled_reloc
, /* special_function */
475 "R_PPC64_GOT16_HA", /* name */
476 FALSE
, /* partial_inplace */
478 0xffff, /* dst_mask */
479 FALSE
), /* pcrel_offset */
481 /* This is used only by the dynamic linker. The symbol should exist
482 both in the object being run and in some shared library. The
483 dynamic linker copies the data addressed by the symbol from the
484 shared library into the object, because the object being
485 run has to have the data at some particular address. */
486 HOWTO (R_PPC64_COPY
, /* type */
488 0, /* this one is variable size */
490 FALSE
, /* pc_relative */
492 complain_overflow_dont
, /* complain_on_overflow */
493 ppc64_elf_unhandled_reloc
, /* special_function */
494 "R_PPC64_COPY", /* name */
495 FALSE
, /* partial_inplace */
498 FALSE
), /* pcrel_offset */
500 /* Like R_PPC64_ADDR64, but used when setting global offset table
502 HOWTO (R_PPC64_GLOB_DAT
, /* type */
504 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
506 FALSE
, /* pc_relative */
508 complain_overflow_dont
, /* complain_on_overflow */
509 ppc64_elf_unhandled_reloc
, /* special_function */
510 "R_PPC64_GLOB_DAT", /* name */
511 FALSE
, /* partial_inplace */
513 ONES (64), /* dst_mask */
514 FALSE
), /* pcrel_offset */
516 /* Created by the link editor. Marks a procedure linkage table
517 entry for a symbol. */
518 HOWTO (R_PPC64_JMP_SLOT
, /* type */
520 0, /* size (0 = byte, 1 = short, 2 = long) */
522 FALSE
, /* pc_relative */
524 complain_overflow_dont
, /* complain_on_overflow */
525 ppc64_elf_unhandled_reloc
, /* special_function */
526 "R_PPC64_JMP_SLOT", /* name */
527 FALSE
, /* partial_inplace */
530 FALSE
), /* pcrel_offset */
532 /* Used only by the dynamic linker. When the object is run, this
533 doubleword64 is set to the load address of the object, plus the
535 HOWTO (R_PPC64_RELATIVE
, /* type */
537 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
539 FALSE
, /* pc_relative */
541 complain_overflow_dont
, /* complain_on_overflow */
542 bfd_elf_generic_reloc
, /* special_function */
543 "R_PPC64_RELATIVE", /* name */
544 FALSE
, /* partial_inplace */
546 ONES (64), /* dst_mask */
547 FALSE
), /* pcrel_offset */
549 /* Like R_PPC64_ADDR32, but may be unaligned. */
550 HOWTO (R_PPC64_UADDR32
, /* type */
552 2, /* size (0 = byte, 1 = short, 2 = long) */
554 FALSE
, /* pc_relative */
556 complain_overflow_bitfield
, /* complain_on_overflow */
557 bfd_elf_generic_reloc
, /* special_function */
558 "R_PPC64_UADDR32", /* name */
559 FALSE
, /* partial_inplace */
561 0xffffffff, /* dst_mask */
562 FALSE
), /* pcrel_offset */
564 /* Like R_PPC64_ADDR16, but may be unaligned. */
565 HOWTO (R_PPC64_UADDR16
, /* type */
567 1, /* size (0 = byte, 1 = short, 2 = long) */
569 FALSE
, /* pc_relative */
571 complain_overflow_bitfield
, /* complain_on_overflow */
572 bfd_elf_generic_reloc
, /* special_function */
573 "R_PPC64_UADDR16", /* name */
574 FALSE
, /* partial_inplace */
576 0xffff, /* dst_mask */
577 FALSE
), /* pcrel_offset */
579 /* 32-bit PC relative. */
580 HOWTO (R_PPC64_REL32
, /* type */
582 2, /* size (0 = byte, 1 = short, 2 = long) */
584 TRUE
, /* pc_relative */
586 /* FIXME: Verify. Was complain_overflow_bitfield. */
587 complain_overflow_signed
, /* complain_on_overflow */
588 bfd_elf_generic_reloc
, /* special_function */
589 "R_PPC64_REL32", /* name */
590 FALSE
, /* partial_inplace */
592 0xffffffff, /* dst_mask */
593 TRUE
), /* pcrel_offset */
595 /* 32-bit relocation to the symbol's procedure linkage table. */
596 HOWTO (R_PPC64_PLT32
, /* type */
598 2, /* size (0 = byte, 1 = short, 2 = long) */
600 FALSE
, /* pc_relative */
602 complain_overflow_bitfield
, /* complain_on_overflow */
603 ppc64_elf_unhandled_reloc
, /* special_function */
604 "R_PPC64_PLT32", /* name */
605 FALSE
, /* partial_inplace */
607 0xffffffff, /* dst_mask */
608 FALSE
), /* pcrel_offset */
610 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
611 FIXME: R_PPC64_PLTREL32 not supported. */
612 HOWTO (R_PPC64_PLTREL32
, /* type */
614 2, /* size (0 = byte, 1 = short, 2 = long) */
616 TRUE
, /* pc_relative */
618 complain_overflow_signed
, /* complain_on_overflow */
619 bfd_elf_generic_reloc
, /* special_function */
620 "R_PPC64_PLTREL32", /* name */
621 FALSE
, /* partial_inplace */
623 0xffffffff, /* dst_mask */
624 TRUE
), /* pcrel_offset */
626 /* Like R_PPC64_ADDR16_LO, but referring to the PLT table entry for
628 HOWTO (R_PPC64_PLT16_LO
, /* type */
630 1, /* size (0 = byte, 1 = short, 2 = long) */
632 FALSE
, /* pc_relative */
634 complain_overflow_dont
, /* complain_on_overflow */
635 ppc64_elf_unhandled_reloc
, /* special_function */
636 "R_PPC64_PLT16_LO", /* name */
637 FALSE
, /* partial_inplace */
639 0xffff, /* dst_mask */
640 FALSE
), /* pcrel_offset */
642 /* Like R_PPC64_ADDR16_HI, but referring to the PLT table entry for
644 HOWTO (R_PPC64_PLT16_HI
, /* type */
646 1, /* size (0 = byte, 1 = short, 2 = long) */
648 FALSE
, /* pc_relative */
650 complain_overflow_dont
, /* complain_on_overflow */
651 ppc64_elf_unhandled_reloc
, /* special_function */
652 "R_PPC64_PLT16_HI", /* name */
653 FALSE
, /* partial_inplace */
655 0xffff, /* dst_mask */
656 FALSE
), /* pcrel_offset */
658 /* Like R_PPC64_ADDR16_HA, but referring to the PLT table entry for
660 HOWTO (R_PPC64_PLT16_HA
, /* type */
662 1, /* size (0 = byte, 1 = short, 2 = long) */
664 FALSE
, /* pc_relative */
666 complain_overflow_dont
, /* complain_on_overflow */
667 ppc64_elf_unhandled_reloc
, /* special_function */
668 "R_PPC64_PLT16_HA", /* name */
669 FALSE
, /* partial_inplace */
671 0xffff, /* dst_mask */
672 FALSE
), /* pcrel_offset */
674 /* 16-bit section relative relocation. */
675 HOWTO (R_PPC64_SECTOFF
, /* type */
677 1, /* size (0 = byte, 1 = short, 2 = long) */
679 FALSE
, /* pc_relative */
681 complain_overflow_bitfield
, /* complain_on_overflow */
682 ppc64_elf_sectoff_reloc
, /* special_function */
683 "R_PPC64_SECTOFF", /* name */
684 FALSE
, /* partial_inplace */
686 0xffff, /* dst_mask */
687 FALSE
), /* pcrel_offset */
689 /* Like R_PPC64_SECTOFF, but no overflow warning. */
690 HOWTO (R_PPC64_SECTOFF_LO
, /* type */
692 1, /* size (0 = byte, 1 = short, 2 = long) */
694 FALSE
, /* pc_relative */
696 complain_overflow_dont
, /* complain_on_overflow */
697 ppc64_elf_sectoff_reloc
, /* special_function */
698 "R_PPC64_SECTOFF_LO", /* name */
699 FALSE
, /* partial_inplace */
701 0xffff, /* dst_mask */
702 FALSE
), /* pcrel_offset */
704 /* 16-bit upper half section relative relocation. */
705 HOWTO (R_PPC64_SECTOFF_HI
, /* type */
707 1, /* size (0 = byte, 1 = short, 2 = long) */
709 FALSE
, /* pc_relative */
711 complain_overflow_dont
, /* complain_on_overflow */
712 ppc64_elf_sectoff_reloc
, /* special_function */
713 "R_PPC64_SECTOFF_HI", /* name */
714 FALSE
, /* partial_inplace */
716 0xffff, /* dst_mask */
717 FALSE
), /* pcrel_offset */
719 /* 16-bit upper half adjusted section relative relocation. */
720 HOWTO (R_PPC64_SECTOFF_HA
, /* type */
722 1, /* size (0 = byte, 1 = short, 2 = long) */
724 FALSE
, /* pc_relative */
726 complain_overflow_dont
, /* complain_on_overflow */
727 ppc64_elf_sectoff_ha_reloc
, /* special_function */
728 "R_PPC64_SECTOFF_HA", /* name */
729 FALSE
, /* partial_inplace */
731 0xffff, /* dst_mask */
732 FALSE
), /* pcrel_offset */
734 /* Like R_PPC64_REL24 without touching the two least significant bits. */
735 HOWTO (R_PPC64_REL30
, /* type */
737 2, /* size (0 = byte, 1 = short, 2 = long) */
739 TRUE
, /* pc_relative */
741 complain_overflow_dont
, /* complain_on_overflow */
742 bfd_elf_generic_reloc
, /* special_function */
743 "R_PPC64_REL30", /* name */
744 FALSE
, /* partial_inplace */
746 0xfffffffc, /* dst_mask */
747 TRUE
), /* pcrel_offset */
749 /* Relocs in the 64-bit PowerPC ELF ABI, not in the 32-bit ABI. */
751 /* A standard 64-bit relocation. */
752 HOWTO (R_PPC64_ADDR64
, /* type */
754 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
756 FALSE
, /* pc_relative */
758 complain_overflow_dont
, /* complain_on_overflow */
759 bfd_elf_generic_reloc
, /* special_function */
760 "R_PPC64_ADDR64", /* name */
761 FALSE
, /* partial_inplace */
763 ONES (64), /* dst_mask */
764 FALSE
), /* pcrel_offset */
766 /* The bits 32-47 of an address. */
767 HOWTO (R_PPC64_ADDR16_HIGHER
, /* type */
769 1, /* size (0 = byte, 1 = short, 2 = long) */
771 FALSE
, /* pc_relative */
773 complain_overflow_dont
, /* complain_on_overflow */
774 bfd_elf_generic_reloc
, /* special_function */
775 "R_PPC64_ADDR16_HIGHER", /* name */
776 FALSE
, /* partial_inplace */
778 0xffff, /* dst_mask */
779 FALSE
), /* pcrel_offset */
781 /* The bits 32-47 of an address, plus 1 if the contents of the low
782 16 bits, treated as a signed number, is negative. */
783 HOWTO (R_PPC64_ADDR16_HIGHERA
, /* type */
785 1, /* size (0 = byte, 1 = short, 2 = long) */
787 FALSE
, /* pc_relative */
789 complain_overflow_dont
, /* complain_on_overflow */
790 ppc64_elf_ha_reloc
, /* special_function */
791 "R_PPC64_ADDR16_HIGHERA", /* name */
792 FALSE
, /* partial_inplace */
794 0xffff, /* dst_mask */
795 FALSE
), /* pcrel_offset */
797 /* The bits 48-63 of an address. */
798 HOWTO (R_PPC64_ADDR16_HIGHEST
,/* type */
800 1, /* size (0 = byte, 1 = short, 2 = long) */
802 FALSE
, /* pc_relative */
804 complain_overflow_dont
, /* complain_on_overflow */
805 bfd_elf_generic_reloc
, /* special_function */
806 "R_PPC64_ADDR16_HIGHEST", /* name */
807 FALSE
, /* partial_inplace */
809 0xffff, /* dst_mask */
810 FALSE
), /* pcrel_offset */
812 /* The bits 48-63 of an address, plus 1 if the contents of the low
813 16 bits, treated as a signed number, is negative. */
814 HOWTO (R_PPC64_ADDR16_HIGHESTA
,/* type */
816 1, /* size (0 = byte, 1 = short, 2 = long) */
818 FALSE
, /* pc_relative */
820 complain_overflow_dont
, /* complain_on_overflow */
821 ppc64_elf_ha_reloc
, /* special_function */
822 "R_PPC64_ADDR16_HIGHESTA", /* name */
823 FALSE
, /* partial_inplace */
825 0xffff, /* dst_mask */
826 FALSE
), /* pcrel_offset */
828 /* Like ADDR64, but may be unaligned. */
829 HOWTO (R_PPC64_UADDR64
, /* type */
831 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
833 FALSE
, /* pc_relative */
835 complain_overflow_dont
, /* complain_on_overflow */
836 bfd_elf_generic_reloc
, /* special_function */
837 "R_PPC64_UADDR64", /* name */
838 FALSE
, /* partial_inplace */
840 ONES (64), /* dst_mask */
841 FALSE
), /* pcrel_offset */
843 /* 64-bit relative relocation. */
844 HOWTO (R_PPC64_REL64
, /* type */
846 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
848 TRUE
, /* pc_relative */
850 complain_overflow_dont
, /* complain_on_overflow */
851 bfd_elf_generic_reloc
, /* special_function */
852 "R_PPC64_REL64", /* name */
853 FALSE
, /* partial_inplace */
855 ONES (64), /* dst_mask */
856 TRUE
), /* pcrel_offset */
858 /* 64-bit relocation to the symbol's procedure linkage table. */
859 HOWTO (R_PPC64_PLT64
, /* type */
861 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
863 FALSE
, /* pc_relative */
865 complain_overflow_dont
, /* complain_on_overflow */
866 ppc64_elf_unhandled_reloc
, /* special_function */
867 "R_PPC64_PLT64", /* name */
868 FALSE
, /* partial_inplace */
870 ONES (64), /* dst_mask */
871 FALSE
), /* pcrel_offset */
873 /* 64-bit PC relative relocation to the symbol's procedure linkage
875 /* FIXME: R_PPC64_PLTREL64 not supported. */
876 HOWTO (R_PPC64_PLTREL64
, /* type */
878 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
880 TRUE
, /* pc_relative */
882 complain_overflow_dont
, /* complain_on_overflow */
883 ppc64_elf_unhandled_reloc
, /* special_function */
884 "R_PPC64_PLTREL64", /* name */
885 FALSE
, /* partial_inplace */
887 ONES (64), /* dst_mask */
888 TRUE
), /* pcrel_offset */
890 /* 16 bit TOC-relative relocation. */
892 /* R_PPC64_TOC16 47 half16* S + A - .TOC. */
893 HOWTO (R_PPC64_TOC16
, /* type */
895 1, /* size (0 = byte, 1 = short, 2 = long) */
897 FALSE
, /* pc_relative */
899 complain_overflow_signed
, /* complain_on_overflow */
900 ppc64_elf_toc_reloc
, /* special_function */
901 "R_PPC64_TOC16", /* name */
902 FALSE
, /* partial_inplace */
904 0xffff, /* dst_mask */
905 FALSE
), /* pcrel_offset */
907 /* 16 bit TOC-relative relocation without overflow. */
909 /* R_PPC64_TOC16_LO 48 half16 #lo (S + A - .TOC.) */
910 HOWTO (R_PPC64_TOC16_LO
, /* type */
912 1, /* size (0 = byte, 1 = short, 2 = long) */
914 FALSE
, /* pc_relative */
916 complain_overflow_dont
, /* complain_on_overflow */
917 ppc64_elf_toc_reloc
, /* special_function */
918 "R_PPC64_TOC16_LO", /* name */
919 FALSE
, /* partial_inplace */
921 0xffff, /* dst_mask */
922 FALSE
), /* pcrel_offset */
924 /* 16 bit TOC-relative relocation, high 16 bits. */
926 /* R_PPC64_TOC16_HI 49 half16 #hi (S + A - .TOC.) */
927 HOWTO (R_PPC64_TOC16_HI
, /* type */
929 1, /* size (0 = byte, 1 = short, 2 = long) */
931 FALSE
, /* pc_relative */
933 complain_overflow_dont
, /* complain_on_overflow */
934 ppc64_elf_toc_reloc
, /* special_function */
935 "R_PPC64_TOC16_HI", /* name */
936 FALSE
, /* partial_inplace */
938 0xffff, /* dst_mask */
939 FALSE
), /* pcrel_offset */
941 /* 16 bit TOC-relative relocation, high 16 bits, plus 1 if the
942 contents of the low 16 bits, treated as a signed number, is
945 /* R_PPC64_TOC16_HA 50 half16 #ha (S + A - .TOC.) */
946 HOWTO (R_PPC64_TOC16_HA
, /* type */
948 1, /* size (0 = byte, 1 = short, 2 = long) */
950 FALSE
, /* pc_relative */
952 complain_overflow_dont
, /* complain_on_overflow */
953 ppc64_elf_toc_ha_reloc
, /* special_function */
954 "R_PPC64_TOC16_HA", /* name */
955 FALSE
, /* partial_inplace */
957 0xffff, /* dst_mask */
958 FALSE
), /* pcrel_offset */
960 /* 64-bit relocation; insert value of TOC base (.TOC.). */
962 /* R_PPC64_TOC 51 doubleword64 .TOC. */
963 HOWTO (R_PPC64_TOC
, /* type */
965 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
967 FALSE
, /* pc_relative */
969 complain_overflow_bitfield
, /* complain_on_overflow */
970 ppc64_elf_toc64_reloc
, /* special_function */
971 "R_PPC64_TOC", /* name */
972 FALSE
, /* partial_inplace */
974 ONES (64), /* dst_mask */
975 FALSE
), /* pcrel_offset */
977 /* Like R_PPC64_GOT16, but also informs the link editor that the
978 value to relocate may (!) refer to a PLT entry which the link
979 editor (a) may replace with the symbol value. If the link editor
980 is unable to fully resolve the symbol, it may (b) create a PLT
981 entry and store the address to the new PLT entry in the GOT.
982 This permits lazy resolution of function symbols at run time.
983 The link editor may also skip all of this and just (c) emit a
984 R_PPC64_GLOB_DAT to tie the symbol to the GOT entry. */
985 /* FIXME: R_PPC64_PLTGOT16 not implemented. */
986 HOWTO (R_PPC64_PLTGOT16
, /* type */
988 1, /* size (0 = byte, 1 = short, 2 = long) */
990 FALSE
, /* pc_relative */
992 complain_overflow_signed
, /* complain_on_overflow */
993 ppc64_elf_unhandled_reloc
, /* special_function */
994 "R_PPC64_PLTGOT16", /* name */
995 FALSE
, /* partial_inplace */
997 0xffff, /* dst_mask */
998 FALSE
), /* pcrel_offset */
1000 /* Like R_PPC64_PLTGOT16, but without overflow. */
1001 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1002 HOWTO (R_PPC64_PLTGOT16_LO
, /* type */
1004 1, /* size (0 = byte, 1 = short, 2 = long) */
1006 FALSE
, /* pc_relative */
1008 complain_overflow_dont
, /* complain_on_overflow */
1009 ppc64_elf_unhandled_reloc
, /* special_function */
1010 "R_PPC64_PLTGOT16_LO", /* name */
1011 FALSE
, /* partial_inplace */
1013 0xffff, /* dst_mask */
1014 FALSE
), /* pcrel_offset */
1016 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address. */
1017 /* FIXME: R_PPC64_PLTGOT16_HI not implemented. */
1018 HOWTO (R_PPC64_PLTGOT16_HI
, /* type */
1019 16, /* rightshift */
1020 1, /* size (0 = byte, 1 = short, 2 = long) */
1022 FALSE
, /* pc_relative */
1024 complain_overflow_dont
, /* complain_on_overflow */
1025 ppc64_elf_unhandled_reloc
, /* special_function */
1026 "R_PPC64_PLTGOT16_HI", /* name */
1027 FALSE
, /* partial_inplace */
1029 0xffff, /* dst_mask */
1030 FALSE
), /* pcrel_offset */
1032 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address, plus
1033 1 if the contents of the low 16 bits, treated as a signed number,
1035 /* FIXME: R_PPC64_PLTGOT16_HA not implemented. */
1036 HOWTO (R_PPC64_PLTGOT16_HA
, /* type */
1037 16, /* rightshift */
1038 1, /* size (0 = byte, 1 = short, 2 = long) */
1040 FALSE
, /* pc_relative */
1042 complain_overflow_dont
,/* complain_on_overflow */
1043 ppc64_elf_unhandled_reloc
, /* special_function */
1044 "R_PPC64_PLTGOT16_HA", /* name */
1045 FALSE
, /* partial_inplace */
1047 0xffff, /* dst_mask */
1048 FALSE
), /* pcrel_offset */
1050 /* Like R_PPC64_ADDR16, but for instructions with a DS field. */
1051 HOWTO (R_PPC64_ADDR16_DS
, /* type */
1053 1, /* size (0 = byte, 1 = short, 2 = long) */
1055 FALSE
, /* pc_relative */
1057 complain_overflow_bitfield
, /* complain_on_overflow */
1058 bfd_elf_generic_reloc
, /* special_function */
1059 "R_PPC64_ADDR16_DS", /* name */
1060 FALSE
, /* partial_inplace */
1062 0xfffc, /* dst_mask */
1063 FALSE
), /* pcrel_offset */
1065 /* Like R_PPC64_ADDR16_LO, but for instructions with a DS field. */
1066 HOWTO (R_PPC64_ADDR16_LO_DS
, /* type */
1068 1, /* size (0 = byte, 1 = short, 2 = long) */
1070 FALSE
, /* pc_relative */
1072 complain_overflow_dont
,/* complain_on_overflow */
1073 bfd_elf_generic_reloc
, /* special_function */
1074 "R_PPC64_ADDR16_LO_DS",/* name */
1075 FALSE
, /* partial_inplace */
1077 0xfffc, /* dst_mask */
1078 FALSE
), /* pcrel_offset */
1080 /* Like R_PPC64_GOT16, but for instructions with a DS field. */
1081 HOWTO (R_PPC64_GOT16_DS
, /* type */
1083 1, /* size (0 = byte, 1 = short, 2 = long) */
1085 FALSE
, /* pc_relative */
1087 complain_overflow_signed
, /* complain_on_overflow */
1088 ppc64_elf_unhandled_reloc
, /* special_function */
1089 "R_PPC64_GOT16_DS", /* name */
1090 FALSE
, /* partial_inplace */
1092 0xfffc, /* dst_mask */
1093 FALSE
), /* pcrel_offset */
1095 /* Like R_PPC64_GOT16_LO, but for instructions with a DS field. */
1096 HOWTO (R_PPC64_GOT16_LO_DS
, /* type */
1098 1, /* size (0 = byte, 1 = short, 2 = long) */
1100 FALSE
, /* pc_relative */
1102 complain_overflow_dont
, /* complain_on_overflow */
1103 ppc64_elf_unhandled_reloc
, /* special_function */
1104 "R_PPC64_GOT16_LO_DS", /* name */
1105 FALSE
, /* partial_inplace */
1107 0xfffc, /* dst_mask */
1108 FALSE
), /* pcrel_offset */
1110 /* Like R_PPC64_PLT16_LO, but for instructions with a DS field. */
1111 HOWTO (R_PPC64_PLT16_LO_DS
, /* type */
1113 1, /* size (0 = byte, 1 = short, 2 = long) */
1115 FALSE
, /* pc_relative */
1117 complain_overflow_dont
, /* complain_on_overflow */
1118 ppc64_elf_unhandled_reloc
, /* special_function */
1119 "R_PPC64_PLT16_LO_DS", /* name */
1120 FALSE
, /* partial_inplace */
1122 0xfffc, /* dst_mask */
1123 FALSE
), /* pcrel_offset */
1125 /* Like R_PPC64_SECTOFF, but for instructions with a DS field. */
1126 HOWTO (R_PPC64_SECTOFF_DS
, /* type */
1128 1, /* size (0 = byte, 1 = short, 2 = long) */
1130 FALSE
, /* pc_relative */
1132 complain_overflow_bitfield
, /* complain_on_overflow */
1133 ppc64_elf_sectoff_reloc
, /* special_function */
1134 "R_PPC64_SECTOFF_DS", /* name */
1135 FALSE
, /* partial_inplace */
1137 0xfffc, /* dst_mask */
1138 FALSE
), /* pcrel_offset */
1140 /* Like R_PPC64_SECTOFF_LO, but for instructions with a DS field. */
1141 HOWTO (R_PPC64_SECTOFF_LO_DS
, /* type */
1143 1, /* size (0 = byte, 1 = short, 2 = long) */
1145 FALSE
, /* pc_relative */
1147 complain_overflow_dont
, /* complain_on_overflow */
1148 ppc64_elf_sectoff_reloc
, /* special_function */
1149 "R_PPC64_SECTOFF_LO_DS",/* name */
1150 FALSE
, /* partial_inplace */
1152 0xfffc, /* dst_mask */
1153 FALSE
), /* pcrel_offset */
1155 /* Like R_PPC64_TOC16, but for instructions with a DS field. */
1156 HOWTO (R_PPC64_TOC16_DS
, /* type */
1158 1, /* size (0 = byte, 1 = short, 2 = long) */
1160 FALSE
, /* pc_relative */
1162 complain_overflow_signed
, /* complain_on_overflow */
1163 ppc64_elf_toc_reloc
, /* special_function */
1164 "R_PPC64_TOC16_DS", /* name */
1165 FALSE
, /* partial_inplace */
1167 0xfffc, /* dst_mask */
1168 FALSE
), /* pcrel_offset */
1170 /* Like R_PPC64_TOC16_LO, but for instructions with a DS field. */
1171 HOWTO (R_PPC64_TOC16_LO_DS
, /* type */
1173 1, /* size (0 = byte, 1 = short, 2 = long) */
1175 FALSE
, /* pc_relative */
1177 complain_overflow_dont
, /* complain_on_overflow */
1178 ppc64_elf_toc_reloc
, /* special_function */
1179 "R_PPC64_TOC16_LO_DS", /* name */
1180 FALSE
, /* partial_inplace */
1182 0xfffc, /* dst_mask */
1183 FALSE
), /* pcrel_offset */
1185 /* Like R_PPC64_PLTGOT16, but for instructions with a DS field. */
1186 /* FIXME: R_PPC64_PLTGOT16_DS not implemented. */
1187 HOWTO (R_PPC64_PLTGOT16_DS
, /* type */
1189 1, /* size (0 = byte, 1 = short, 2 = long) */
1191 FALSE
, /* pc_relative */
1193 complain_overflow_signed
, /* complain_on_overflow */
1194 ppc64_elf_unhandled_reloc
, /* special_function */
1195 "R_PPC64_PLTGOT16_DS", /* name */
1196 FALSE
, /* partial_inplace */
1198 0xfffc, /* dst_mask */
1199 FALSE
), /* pcrel_offset */
1201 /* Like R_PPC64_PLTGOT16_LO, but for instructions with a DS field. */
1202 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1203 HOWTO (R_PPC64_PLTGOT16_LO_DS
,/* type */
1205 1, /* size (0 = byte, 1 = short, 2 = long) */
1207 FALSE
, /* pc_relative */
1209 complain_overflow_dont
, /* complain_on_overflow */
1210 ppc64_elf_unhandled_reloc
, /* special_function */
1211 "R_PPC64_PLTGOT16_LO_DS",/* name */
1212 FALSE
, /* partial_inplace */
1214 0xfffc, /* dst_mask */
1215 FALSE
), /* pcrel_offset */
1217 /* Marker reloc for TLS. */
1220 2, /* size (0 = byte, 1 = short, 2 = long) */
1222 FALSE
, /* pc_relative */
1224 complain_overflow_dont
, /* complain_on_overflow */
1225 bfd_elf_generic_reloc
, /* special_function */
1226 "R_PPC64_TLS", /* name */
1227 FALSE
, /* partial_inplace */
1230 FALSE
), /* pcrel_offset */
1232 /* Computes the load module index of the load module that contains the
1233 definition of its TLS sym. */
1234 HOWTO (R_PPC64_DTPMOD64
,
1236 4, /* size (0 = byte, 1 = short, 2 = long) */
1238 FALSE
, /* pc_relative */
1240 complain_overflow_dont
, /* complain_on_overflow */
1241 ppc64_elf_unhandled_reloc
, /* special_function */
1242 "R_PPC64_DTPMOD64", /* name */
1243 FALSE
, /* partial_inplace */
1245 ONES (64), /* dst_mask */
1246 FALSE
), /* pcrel_offset */
1248 /* Computes a dtv-relative displacement, the difference between the value
1249 of sym+add and the base address of the thread-local storage block that
1250 contains the definition of sym, minus 0x8000. */
1251 HOWTO (R_PPC64_DTPREL64
,
1253 4, /* size (0 = byte, 1 = short, 2 = long) */
1255 FALSE
, /* pc_relative */
1257 complain_overflow_dont
, /* complain_on_overflow */
1258 ppc64_elf_unhandled_reloc
, /* special_function */
1259 "R_PPC64_DTPREL64", /* name */
1260 FALSE
, /* partial_inplace */
1262 ONES (64), /* dst_mask */
1263 FALSE
), /* pcrel_offset */
1265 /* A 16 bit dtprel reloc. */
1266 HOWTO (R_PPC64_DTPREL16
,
1268 1, /* size (0 = byte, 1 = short, 2 = long) */
1270 FALSE
, /* pc_relative */
1272 complain_overflow_signed
, /* complain_on_overflow */
1273 ppc64_elf_unhandled_reloc
, /* special_function */
1274 "R_PPC64_DTPREL16", /* name */
1275 FALSE
, /* partial_inplace */
1277 0xffff, /* dst_mask */
1278 FALSE
), /* pcrel_offset */
1280 /* Like DTPREL16, but no overflow. */
1281 HOWTO (R_PPC64_DTPREL16_LO
,
1283 1, /* size (0 = byte, 1 = short, 2 = long) */
1285 FALSE
, /* pc_relative */
1287 complain_overflow_dont
, /* complain_on_overflow */
1288 ppc64_elf_unhandled_reloc
, /* special_function */
1289 "R_PPC64_DTPREL16_LO", /* name */
1290 FALSE
, /* partial_inplace */
1292 0xffff, /* dst_mask */
1293 FALSE
), /* pcrel_offset */
1295 /* Like DTPREL16_LO, but next higher group of 16 bits. */
1296 HOWTO (R_PPC64_DTPREL16_HI
,
1297 16, /* rightshift */
1298 1, /* size (0 = byte, 1 = short, 2 = long) */
1300 FALSE
, /* pc_relative */
1302 complain_overflow_dont
, /* complain_on_overflow */
1303 ppc64_elf_unhandled_reloc
, /* special_function */
1304 "R_PPC64_DTPREL16_HI", /* name */
1305 FALSE
, /* partial_inplace */
1307 0xffff, /* dst_mask */
1308 FALSE
), /* pcrel_offset */
1310 /* Like DTPREL16_HI, but adjust for low 16 bits. */
1311 HOWTO (R_PPC64_DTPREL16_HA
,
1312 16, /* rightshift */
1313 1, /* size (0 = byte, 1 = short, 2 = long) */
1315 FALSE
, /* pc_relative */
1317 complain_overflow_dont
, /* complain_on_overflow */
1318 ppc64_elf_unhandled_reloc
, /* special_function */
1319 "R_PPC64_DTPREL16_HA", /* name */
1320 FALSE
, /* partial_inplace */
1322 0xffff, /* dst_mask */
1323 FALSE
), /* pcrel_offset */
1325 /* Like DTPREL16_HI, but next higher group of 16 bits. */
1326 HOWTO (R_PPC64_DTPREL16_HIGHER
,
1327 32, /* rightshift */
1328 1, /* size (0 = byte, 1 = short, 2 = long) */
1330 FALSE
, /* pc_relative */
1332 complain_overflow_dont
, /* complain_on_overflow */
1333 ppc64_elf_unhandled_reloc
, /* special_function */
1334 "R_PPC64_DTPREL16_HIGHER", /* name */
1335 FALSE
, /* partial_inplace */
1337 0xffff, /* dst_mask */
1338 FALSE
), /* pcrel_offset */
1340 /* Like DTPREL16_HIGHER, but adjust for low 16 bits. */
1341 HOWTO (R_PPC64_DTPREL16_HIGHERA
,
1342 32, /* rightshift */
1343 1, /* size (0 = byte, 1 = short, 2 = long) */
1345 FALSE
, /* pc_relative */
1347 complain_overflow_dont
, /* complain_on_overflow */
1348 ppc64_elf_unhandled_reloc
, /* special_function */
1349 "R_PPC64_DTPREL16_HIGHERA", /* name */
1350 FALSE
, /* partial_inplace */
1352 0xffff, /* dst_mask */
1353 FALSE
), /* pcrel_offset */
1355 /* Like DTPREL16_HIGHER, but next higher group of 16 bits. */
1356 HOWTO (R_PPC64_DTPREL16_HIGHEST
,
1357 48, /* rightshift */
1358 1, /* size (0 = byte, 1 = short, 2 = long) */
1360 FALSE
, /* pc_relative */
1362 complain_overflow_dont
, /* complain_on_overflow */
1363 ppc64_elf_unhandled_reloc
, /* special_function */
1364 "R_PPC64_DTPREL16_HIGHEST", /* name */
1365 FALSE
, /* partial_inplace */
1367 0xffff, /* dst_mask */
1368 FALSE
), /* pcrel_offset */
1370 /* Like DTPREL16_HIGHEST, but adjust for low 16 bits. */
1371 HOWTO (R_PPC64_DTPREL16_HIGHESTA
,
1372 48, /* rightshift */
1373 1, /* size (0 = byte, 1 = short, 2 = long) */
1375 FALSE
, /* pc_relative */
1377 complain_overflow_dont
, /* complain_on_overflow */
1378 ppc64_elf_unhandled_reloc
, /* special_function */
1379 "R_PPC64_DTPREL16_HIGHESTA", /* name */
1380 FALSE
, /* partial_inplace */
1382 0xffff, /* dst_mask */
1383 FALSE
), /* pcrel_offset */
1385 /* Like DTPREL16, but for insns with a DS field. */
1386 HOWTO (R_PPC64_DTPREL16_DS
,
1388 1, /* size (0 = byte, 1 = short, 2 = long) */
1390 FALSE
, /* pc_relative */
1392 complain_overflow_signed
, /* complain_on_overflow */
1393 ppc64_elf_unhandled_reloc
, /* special_function */
1394 "R_PPC64_DTPREL16_DS", /* name */
1395 FALSE
, /* partial_inplace */
1397 0xfffc, /* dst_mask */
1398 FALSE
), /* pcrel_offset */
1400 /* Like DTPREL16_DS, but no overflow. */
1401 HOWTO (R_PPC64_DTPREL16_LO_DS
,
1403 1, /* size (0 = byte, 1 = short, 2 = long) */
1405 FALSE
, /* pc_relative */
1407 complain_overflow_dont
, /* complain_on_overflow */
1408 ppc64_elf_unhandled_reloc
, /* special_function */
1409 "R_PPC64_DTPREL16_LO_DS", /* name */
1410 FALSE
, /* partial_inplace */
1412 0xfffc, /* dst_mask */
1413 FALSE
), /* pcrel_offset */
1415 /* Computes a tp-relative displacement, the difference between the value of
1416 sym+add and the value of the thread pointer (r13). */
1417 HOWTO (R_PPC64_TPREL64
,
1419 4, /* size (0 = byte, 1 = short, 2 = long) */
1421 FALSE
, /* pc_relative */
1423 complain_overflow_dont
, /* complain_on_overflow */
1424 ppc64_elf_unhandled_reloc
, /* special_function */
1425 "R_PPC64_TPREL64", /* name */
1426 FALSE
, /* partial_inplace */
1428 ONES (64), /* dst_mask */
1429 FALSE
), /* pcrel_offset */
1431 /* A 16 bit tprel reloc. */
1432 HOWTO (R_PPC64_TPREL16
,
1434 1, /* size (0 = byte, 1 = short, 2 = long) */
1436 FALSE
, /* pc_relative */
1438 complain_overflow_signed
, /* complain_on_overflow */
1439 ppc64_elf_unhandled_reloc
, /* special_function */
1440 "R_PPC64_TPREL16", /* name */
1441 FALSE
, /* partial_inplace */
1443 0xffff, /* dst_mask */
1444 FALSE
), /* pcrel_offset */
1446 /* Like TPREL16, but no overflow. */
1447 HOWTO (R_PPC64_TPREL16_LO
,
1449 1, /* size (0 = byte, 1 = short, 2 = long) */
1451 FALSE
, /* pc_relative */
1453 complain_overflow_dont
, /* complain_on_overflow */
1454 ppc64_elf_unhandled_reloc
, /* special_function */
1455 "R_PPC64_TPREL16_LO", /* name */
1456 FALSE
, /* partial_inplace */
1458 0xffff, /* dst_mask */
1459 FALSE
), /* pcrel_offset */
1461 /* Like TPREL16_LO, but next higher group of 16 bits. */
1462 HOWTO (R_PPC64_TPREL16_HI
,
1463 16, /* rightshift */
1464 1, /* size (0 = byte, 1 = short, 2 = long) */
1466 FALSE
, /* pc_relative */
1468 complain_overflow_dont
, /* complain_on_overflow */
1469 ppc64_elf_unhandled_reloc
, /* special_function */
1470 "R_PPC64_TPREL16_HI", /* name */
1471 FALSE
, /* partial_inplace */
1473 0xffff, /* dst_mask */
1474 FALSE
), /* pcrel_offset */
1476 /* Like TPREL16_HI, but adjust for low 16 bits. */
1477 HOWTO (R_PPC64_TPREL16_HA
,
1478 16, /* rightshift */
1479 1, /* size (0 = byte, 1 = short, 2 = long) */
1481 FALSE
, /* pc_relative */
1483 complain_overflow_dont
, /* complain_on_overflow */
1484 ppc64_elf_unhandled_reloc
, /* special_function */
1485 "R_PPC64_TPREL16_HA", /* name */
1486 FALSE
, /* partial_inplace */
1488 0xffff, /* dst_mask */
1489 FALSE
), /* pcrel_offset */
1491 /* Like TPREL16_HI, but next higher group of 16 bits. */
1492 HOWTO (R_PPC64_TPREL16_HIGHER
,
1493 32, /* rightshift */
1494 1, /* size (0 = byte, 1 = short, 2 = long) */
1496 FALSE
, /* pc_relative */
1498 complain_overflow_dont
, /* complain_on_overflow */
1499 ppc64_elf_unhandled_reloc
, /* special_function */
1500 "R_PPC64_TPREL16_HIGHER", /* name */
1501 FALSE
, /* partial_inplace */
1503 0xffff, /* dst_mask */
1504 FALSE
), /* pcrel_offset */
1506 /* Like TPREL16_HIGHER, but adjust for low 16 bits. */
1507 HOWTO (R_PPC64_TPREL16_HIGHERA
,
1508 32, /* rightshift */
1509 1, /* size (0 = byte, 1 = short, 2 = long) */
1511 FALSE
, /* pc_relative */
1513 complain_overflow_dont
, /* complain_on_overflow */
1514 ppc64_elf_unhandled_reloc
, /* special_function */
1515 "R_PPC64_TPREL16_HIGHERA", /* name */
1516 FALSE
, /* partial_inplace */
1518 0xffff, /* dst_mask */
1519 FALSE
), /* pcrel_offset */
1521 /* Like TPREL16_HIGHER, but next higher group of 16 bits. */
1522 HOWTO (R_PPC64_TPREL16_HIGHEST
,
1523 48, /* rightshift */
1524 1, /* size (0 = byte, 1 = short, 2 = long) */
1526 FALSE
, /* pc_relative */
1528 complain_overflow_dont
, /* complain_on_overflow */
1529 ppc64_elf_unhandled_reloc
, /* special_function */
1530 "R_PPC64_TPREL16_HIGHEST", /* name */
1531 FALSE
, /* partial_inplace */
1533 0xffff, /* dst_mask */
1534 FALSE
), /* pcrel_offset */
1536 /* Like TPREL16_HIGHEST, but adjust for low 16 bits. */
1537 HOWTO (R_PPC64_TPREL16_HIGHESTA
,
1538 48, /* rightshift */
1539 1, /* size (0 = byte, 1 = short, 2 = long) */
1541 FALSE
, /* pc_relative */
1543 complain_overflow_dont
, /* complain_on_overflow */
1544 ppc64_elf_unhandled_reloc
, /* special_function */
1545 "R_PPC64_TPREL16_HIGHESTA", /* name */
1546 FALSE
, /* partial_inplace */
1548 0xffff, /* dst_mask */
1549 FALSE
), /* pcrel_offset */
1551 /* Like TPREL16, but for insns with a DS field. */
1552 HOWTO (R_PPC64_TPREL16_DS
,
1554 1, /* size (0 = byte, 1 = short, 2 = long) */
1556 FALSE
, /* pc_relative */
1558 complain_overflow_signed
, /* complain_on_overflow */
1559 ppc64_elf_unhandled_reloc
, /* special_function */
1560 "R_PPC64_TPREL16_DS", /* name */
1561 FALSE
, /* partial_inplace */
1563 0xfffc, /* dst_mask */
1564 FALSE
), /* pcrel_offset */
1566 /* Like TPREL16_DS, but no overflow. */
1567 HOWTO (R_PPC64_TPREL16_LO_DS
,
1569 1, /* size (0 = byte, 1 = short, 2 = long) */
1571 FALSE
, /* pc_relative */
1573 complain_overflow_dont
, /* complain_on_overflow */
1574 ppc64_elf_unhandled_reloc
, /* special_function */
1575 "R_PPC64_TPREL16_LO_DS", /* name */
1576 FALSE
, /* partial_inplace */
1578 0xfffc, /* dst_mask */
1579 FALSE
), /* pcrel_offset */
1581 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1582 with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
1583 to the first entry relative to the TOC base (r2). */
1584 HOWTO (R_PPC64_GOT_TLSGD16
,
1586 1, /* size (0 = byte, 1 = short, 2 = long) */
1588 FALSE
, /* pc_relative */
1590 complain_overflow_signed
, /* complain_on_overflow */
1591 ppc64_elf_unhandled_reloc
, /* special_function */
1592 "R_PPC64_GOT_TLSGD16", /* name */
1593 FALSE
, /* partial_inplace */
1595 0xffff, /* dst_mask */
1596 FALSE
), /* pcrel_offset */
1598 /* Like GOT_TLSGD16, but no overflow. */
1599 HOWTO (R_PPC64_GOT_TLSGD16_LO
,
1601 1, /* size (0 = byte, 1 = short, 2 = long) */
1603 FALSE
, /* pc_relative */
1605 complain_overflow_dont
, /* complain_on_overflow */
1606 ppc64_elf_unhandled_reloc
, /* special_function */
1607 "R_PPC64_GOT_TLSGD16_LO", /* name */
1608 FALSE
, /* partial_inplace */
1610 0xffff, /* dst_mask */
1611 FALSE
), /* pcrel_offset */
1613 /* Like GOT_TLSGD16_LO, but next higher group of 16 bits. */
1614 HOWTO (R_PPC64_GOT_TLSGD16_HI
,
1615 16, /* rightshift */
1616 1, /* size (0 = byte, 1 = short, 2 = long) */
1618 FALSE
, /* pc_relative */
1620 complain_overflow_dont
, /* complain_on_overflow */
1621 ppc64_elf_unhandled_reloc
, /* special_function */
1622 "R_PPC64_GOT_TLSGD16_HI", /* name */
1623 FALSE
, /* partial_inplace */
1625 0xffff, /* dst_mask */
1626 FALSE
), /* pcrel_offset */
1628 /* Like GOT_TLSGD16_HI, but adjust for low 16 bits. */
1629 HOWTO (R_PPC64_GOT_TLSGD16_HA
,
1630 16, /* rightshift */
1631 1, /* size (0 = byte, 1 = short, 2 = long) */
1633 FALSE
, /* pc_relative */
1635 complain_overflow_dont
, /* complain_on_overflow */
1636 ppc64_elf_unhandled_reloc
, /* special_function */
1637 "R_PPC64_GOT_TLSGD16_HA", /* name */
1638 FALSE
, /* partial_inplace */
1640 0xffff, /* dst_mask */
1641 FALSE
), /* pcrel_offset */
1643 /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
1644 with values (sym+add)@dtpmod and zero, and computes the offset to the
1645 first entry relative to the TOC base (r2). */
1646 HOWTO (R_PPC64_GOT_TLSLD16
,
1648 1, /* size (0 = byte, 1 = short, 2 = long) */
1650 FALSE
, /* pc_relative */
1652 complain_overflow_signed
, /* complain_on_overflow */
1653 ppc64_elf_unhandled_reloc
, /* special_function */
1654 "R_PPC64_GOT_TLSLD16", /* name */
1655 FALSE
, /* partial_inplace */
1657 0xffff, /* dst_mask */
1658 FALSE
), /* pcrel_offset */
1660 /* Like GOT_TLSLD16, but no overflow. */
1661 HOWTO (R_PPC64_GOT_TLSLD16_LO
,
1663 1, /* size (0 = byte, 1 = short, 2 = long) */
1665 FALSE
, /* pc_relative */
1667 complain_overflow_dont
, /* complain_on_overflow */
1668 ppc64_elf_unhandled_reloc
, /* special_function */
1669 "R_PPC64_GOT_TLSLD16_LO", /* name */
1670 FALSE
, /* partial_inplace */
1672 0xffff, /* dst_mask */
1673 FALSE
), /* pcrel_offset */
1675 /* Like GOT_TLSLD16_LO, but next higher group of 16 bits. */
1676 HOWTO (R_PPC64_GOT_TLSLD16_HI
,
1677 16, /* rightshift */
1678 1, /* size (0 = byte, 1 = short, 2 = long) */
1680 FALSE
, /* pc_relative */
1682 complain_overflow_dont
, /* complain_on_overflow */
1683 ppc64_elf_unhandled_reloc
, /* special_function */
1684 "R_PPC64_GOT_TLSLD16_HI", /* name */
1685 FALSE
, /* partial_inplace */
1687 0xffff, /* dst_mask */
1688 FALSE
), /* pcrel_offset */
1690 /* Like GOT_TLSLD16_HI, but adjust for low 16 bits. */
1691 HOWTO (R_PPC64_GOT_TLSLD16_HA
,
1692 16, /* rightshift */
1693 1, /* size (0 = byte, 1 = short, 2 = long) */
1695 FALSE
, /* pc_relative */
1697 complain_overflow_dont
, /* complain_on_overflow */
1698 ppc64_elf_unhandled_reloc
, /* special_function */
1699 "R_PPC64_GOT_TLSLD16_HA", /* name */
1700 FALSE
, /* partial_inplace */
1702 0xffff, /* dst_mask */
1703 FALSE
), /* pcrel_offset */
1705 /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
1706 the offset to the entry relative to the TOC base (r2). */
1707 HOWTO (R_PPC64_GOT_DTPREL16_DS
,
1709 1, /* size (0 = byte, 1 = short, 2 = long) */
1711 FALSE
, /* pc_relative */
1713 complain_overflow_signed
, /* complain_on_overflow */
1714 ppc64_elf_unhandled_reloc
, /* special_function */
1715 "R_PPC64_GOT_DTPREL16_DS", /* name */
1716 FALSE
, /* partial_inplace */
1718 0xfffc, /* dst_mask */
1719 FALSE
), /* pcrel_offset */
1721 /* Like GOT_DTPREL16_DS, but no overflow. */
1722 HOWTO (R_PPC64_GOT_DTPREL16_LO_DS
,
1724 1, /* size (0 = byte, 1 = short, 2 = long) */
1726 FALSE
, /* pc_relative */
1728 complain_overflow_dont
, /* complain_on_overflow */
1729 ppc64_elf_unhandled_reloc
, /* special_function */
1730 "R_PPC64_GOT_DTPREL16_LO_DS", /* name */
1731 FALSE
, /* partial_inplace */
1733 0xfffc, /* dst_mask */
1734 FALSE
), /* pcrel_offset */
1736 /* Like GOT_DTPREL16_LO_DS, but next higher group of 16 bits. */
1737 HOWTO (R_PPC64_GOT_DTPREL16_HI
,
1738 16, /* rightshift */
1739 1, /* size (0 = byte, 1 = short, 2 = long) */
1741 FALSE
, /* pc_relative */
1743 complain_overflow_dont
, /* complain_on_overflow */
1744 ppc64_elf_unhandled_reloc
, /* special_function */
1745 "R_PPC64_GOT_DTPREL16_HI", /* name */
1746 FALSE
, /* partial_inplace */
1748 0xffff, /* dst_mask */
1749 FALSE
), /* pcrel_offset */
1751 /* Like GOT_DTPREL16_HI, but adjust for low 16 bits. */
1752 HOWTO (R_PPC64_GOT_DTPREL16_HA
,
1753 16, /* rightshift */
1754 1, /* size (0 = byte, 1 = short, 2 = long) */
1756 FALSE
, /* pc_relative */
1758 complain_overflow_dont
, /* complain_on_overflow */
1759 ppc64_elf_unhandled_reloc
, /* special_function */
1760 "R_PPC64_GOT_DTPREL16_HA", /* name */
1761 FALSE
, /* partial_inplace */
1763 0xffff, /* dst_mask */
1764 FALSE
), /* pcrel_offset */
1766 /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
1767 offset to the entry relative to the TOC base (r2). */
1768 HOWTO (R_PPC64_GOT_TPREL16_DS
,
1770 1, /* size (0 = byte, 1 = short, 2 = long) */
1772 FALSE
, /* pc_relative */
1774 complain_overflow_signed
, /* complain_on_overflow */
1775 ppc64_elf_unhandled_reloc
, /* special_function */
1776 "R_PPC64_GOT_TPREL16_DS", /* name */
1777 FALSE
, /* partial_inplace */
1779 0xfffc, /* dst_mask */
1780 FALSE
), /* pcrel_offset */
1782 /* Like GOT_TPREL16_DS, but no overflow. */
1783 HOWTO (R_PPC64_GOT_TPREL16_LO_DS
,
1785 1, /* size (0 = byte, 1 = short, 2 = long) */
1787 FALSE
, /* pc_relative */
1789 complain_overflow_dont
, /* complain_on_overflow */
1790 ppc64_elf_unhandled_reloc
, /* special_function */
1791 "R_PPC64_GOT_TPREL16_LO_DS", /* name */
1792 FALSE
, /* partial_inplace */
1794 0xfffc, /* dst_mask */
1795 FALSE
), /* pcrel_offset */
1797 /* Like GOT_TPREL16_LO_DS, but next higher group of 16 bits. */
1798 HOWTO (R_PPC64_GOT_TPREL16_HI
,
1799 16, /* rightshift */
1800 1, /* size (0 = byte, 1 = short, 2 = long) */
1802 FALSE
, /* pc_relative */
1804 complain_overflow_dont
, /* complain_on_overflow */
1805 ppc64_elf_unhandled_reloc
, /* special_function */
1806 "R_PPC64_GOT_TPREL16_HI", /* name */
1807 FALSE
, /* partial_inplace */
1809 0xffff, /* dst_mask */
1810 FALSE
), /* pcrel_offset */
1812 /* Like GOT_TPREL16_HI, but adjust for low 16 bits. */
1813 HOWTO (R_PPC64_GOT_TPREL16_HA
,
1814 16, /* rightshift */
1815 1, /* size (0 = byte, 1 = short, 2 = long) */
1817 FALSE
, /* pc_relative */
1819 complain_overflow_dont
, /* complain_on_overflow */
1820 ppc64_elf_unhandled_reloc
, /* special_function */
1821 "R_PPC64_GOT_TPREL16_HA", /* name */
1822 FALSE
, /* partial_inplace */
1824 0xffff, /* dst_mask */
1825 FALSE
), /* pcrel_offset */
1827 /* GNU extension to record C++ vtable hierarchy. */
1828 HOWTO (R_PPC64_GNU_VTINHERIT
, /* type */
1830 0, /* size (0 = byte, 1 = short, 2 = long) */
1832 FALSE
, /* pc_relative */
1834 complain_overflow_dont
, /* complain_on_overflow */
1835 NULL
, /* special_function */
1836 "R_PPC64_GNU_VTINHERIT", /* name */
1837 FALSE
, /* partial_inplace */
1840 FALSE
), /* pcrel_offset */
1842 /* GNU extension to record C++ vtable member usage. */
1843 HOWTO (R_PPC64_GNU_VTENTRY
, /* type */
1845 0, /* size (0 = byte, 1 = short, 2 = long) */
1847 FALSE
, /* pc_relative */
1849 complain_overflow_dont
, /* complain_on_overflow */
1850 NULL
, /* special_function */
1851 "R_PPC64_GNU_VTENTRY", /* name */
1852 FALSE
, /* partial_inplace */
1855 FALSE
), /* pcrel_offset */
1859 /* Initialize the ppc64_elf_howto_table, so that linear accesses can
1863 ppc_howto_init (void)
1865 unsigned int i
, type
;
1868 i
< sizeof (ppc64_elf_howto_raw
) / sizeof (ppc64_elf_howto_raw
[0]);
1871 type
= ppc64_elf_howto_raw
[i
].type
;
1872 BFD_ASSERT (type
< (sizeof (ppc64_elf_howto_table
)
1873 / sizeof (ppc64_elf_howto_table
[0])));
1874 ppc64_elf_howto_table
[type
] = &ppc64_elf_howto_raw
[i
];
1878 static reloc_howto_type
*
1879 ppc64_elf_reloc_type_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
1880 bfd_reloc_code_real_type code
)
1882 enum elf_ppc64_reloc_type r
= R_PPC64_NONE
;
1884 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
1885 /* Initialize howto table if needed. */
1893 case BFD_RELOC_NONE
: r
= R_PPC64_NONE
;
1895 case BFD_RELOC_32
: r
= R_PPC64_ADDR32
;
1897 case BFD_RELOC_PPC_BA26
: r
= R_PPC64_ADDR24
;
1899 case BFD_RELOC_16
: r
= R_PPC64_ADDR16
;
1901 case BFD_RELOC_LO16
: r
= R_PPC64_ADDR16_LO
;
1903 case BFD_RELOC_HI16
: r
= R_PPC64_ADDR16_HI
;
1905 case BFD_RELOC_HI16_S
: r
= R_PPC64_ADDR16_HA
;
1907 case BFD_RELOC_PPC_BA16
: r
= R_PPC64_ADDR14
;
1909 case BFD_RELOC_PPC_BA16_BRTAKEN
: r
= R_PPC64_ADDR14_BRTAKEN
;
1911 case BFD_RELOC_PPC_BA16_BRNTAKEN
: r
= R_PPC64_ADDR14_BRNTAKEN
;
1913 case BFD_RELOC_PPC_B26
: r
= R_PPC64_REL24
;
1915 case BFD_RELOC_PPC_B16
: r
= R_PPC64_REL14
;
1917 case BFD_RELOC_PPC_B16_BRTAKEN
: r
= R_PPC64_REL14_BRTAKEN
;
1919 case BFD_RELOC_PPC_B16_BRNTAKEN
: r
= R_PPC64_REL14_BRNTAKEN
;
1921 case BFD_RELOC_16_GOTOFF
: r
= R_PPC64_GOT16
;
1923 case BFD_RELOC_LO16_GOTOFF
: r
= R_PPC64_GOT16_LO
;
1925 case BFD_RELOC_HI16_GOTOFF
: r
= R_PPC64_GOT16_HI
;
1927 case BFD_RELOC_HI16_S_GOTOFF
: r
= R_PPC64_GOT16_HA
;
1929 case BFD_RELOC_PPC_COPY
: r
= R_PPC64_COPY
;
1931 case BFD_RELOC_PPC_GLOB_DAT
: r
= R_PPC64_GLOB_DAT
;
1933 case BFD_RELOC_32_PCREL
: r
= R_PPC64_REL32
;
1935 case BFD_RELOC_32_PLTOFF
: r
= R_PPC64_PLT32
;
1937 case BFD_RELOC_32_PLT_PCREL
: r
= R_PPC64_PLTREL32
;
1939 case BFD_RELOC_LO16_PLTOFF
: r
= R_PPC64_PLT16_LO
;
1941 case BFD_RELOC_HI16_PLTOFF
: r
= R_PPC64_PLT16_HI
;
1943 case BFD_RELOC_HI16_S_PLTOFF
: r
= R_PPC64_PLT16_HA
;
1945 case BFD_RELOC_16_BASEREL
: r
= R_PPC64_SECTOFF
;
1947 case BFD_RELOC_LO16_BASEREL
: r
= R_PPC64_SECTOFF_LO
;
1949 case BFD_RELOC_HI16_BASEREL
: r
= R_PPC64_SECTOFF_HI
;
1951 case BFD_RELOC_HI16_S_BASEREL
: r
= R_PPC64_SECTOFF_HA
;
1953 case BFD_RELOC_CTOR
: r
= R_PPC64_ADDR64
;
1955 case BFD_RELOC_64
: r
= R_PPC64_ADDR64
;
1957 case BFD_RELOC_PPC64_HIGHER
: r
= R_PPC64_ADDR16_HIGHER
;
1959 case BFD_RELOC_PPC64_HIGHER_S
: r
= R_PPC64_ADDR16_HIGHERA
;
1961 case BFD_RELOC_PPC64_HIGHEST
: r
= R_PPC64_ADDR16_HIGHEST
;
1963 case BFD_RELOC_PPC64_HIGHEST_S
: r
= R_PPC64_ADDR16_HIGHESTA
;
1965 case BFD_RELOC_64_PCREL
: r
= R_PPC64_REL64
;
1967 case BFD_RELOC_64_PLTOFF
: r
= R_PPC64_PLT64
;
1969 case BFD_RELOC_64_PLT_PCREL
: r
= R_PPC64_PLTREL64
;
1971 case BFD_RELOC_PPC_TOC16
: r
= R_PPC64_TOC16
;
1973 case BFD_RELOC_PPC64_TOC16_LO
: r
= R_PPC64_TOC16_LO
;
1975 case BFD_RELOC_PPC64_TOC16_HI
: r
= R_PPC64_TOC16_HI
;
1977 case BFD_RELOC_PPC64_TOC16_HA
: r
= R_PPC64_TOC16_HA
;
1979 case BFD_RELOC_PPC64_TOC
: r
= R_PPC64_TOC
;
1981 case BFD_RELOC_PPC64_PLTGOT16
: r
= R_PPC64_PLTGOT16
;
1983 case BFD_RELOC_PPC64_PLTGOT16_LO
: r
= R_PPC64_PLTGOT16_LO
;
1985 case BFD_RELOC_PPC64_PLTGOT16_HI
: r
= R_PPC64_PLTGOT16_HI
;
1987 case BFD_RELOC_PPC64_PLTGOT16_HA
: r
= R_PPC64_PLTGOT16_HA
;
1989 case BFD_RELOC_PPC64_ADDR16_DS
: r
= R_PPC64_ADDR16_DS
;
1991 case BFD_RELOC_PPC64_ADDR16_LO_DS
: r
= R_PPC64_ADDR16_LO_DS
;
1993 case BFD_RELOC_PPC64_GOT16_DS
: r
= R_PPC64_GOT16_DS
;
1995 case BFD_RELOC_PPC64_GOT16_LO_DS
: r
= R_PPC64_GOT16_LO_DS
;
1997 case BFD_RELOC_PPC64_PLT16_LO_DS
: r
= R_PPC64_PLT16_LO_DS
;
1999 case BFD_RELOC_PPC64_SECTOFF_DS
: r
= R_PPC64_SECTOFF_DS
;
2001 case BFD_RELOC_PPC64_SECTOFF_LO_DS
: r
= R_PPC64_SECTOFF_LO_DS
;
2003 case BFD_RELOC_PPC64_TOC16_DS
: r
= R_PPC64_TOC16_DS
;
2005 case BFD_RELOC_PPC64_TOC16_LO_DS
: r
= R_PPC64_TOC16_LO_DS
;
2007 case BFD_RELOC_PPC64_PLTGOT16_DS
: r
= R_PPC64_PLTGOT16_DS
;
2009 case BFD_RELOC_PPC64_PLTGOT16_LO_DS
: r
= R_PPC64_PLTGOT16_LO_DS
;
2011 case BFD_RELOC_PPC_TLS
: r
= R_PPC64_TLS
;
2013 case BFD_RELOC_PPC_DTPMOD
: r
= R_PPC64_DTPMOD64
;
2015 case BFD_RELOC_PPC_TPREL16
: r
= R_PPC64_TPREL16
;
2017 case BFD_RELOC_PPC_TPREL16_LO
: r
= R_PPC64_TPREL16_LO
;
2019 case BFD_RELOC_PPC_TPREL16_HI
: r
= R_PPC64_TPREL16_HI
;
2021 case BFD_RELOC_PPC_TPREL16_HA
: r
= R_PPC64_TPREL16_HA
;
2023 case BFD_RELOC_PPC_TPREL
: r
= R_PPC64_TPREL64
;
2025 case BFD_RELOC_PPC_DTPREL16
: r
= R_PPC64_DTPREL16
;
2027 case BFD_RELOC_PPC_DTPREL16_LO
: r
= R_PPC64_DTPREL16_LO
;
2029 case BFD_RELOC_PPC_DTPREL16_HI
: r
= R_PPC64_DTPREL16_HI
;
2031 case BFD_RELOC_PPC_DTPREL16_HA
: r
= R_PPC64_DTPREL16_HA
;
2033 case BFD_RELOC_PPC_DTPREL
: r
= R_PPC64_DTPREL64
;
2035 case BFD_RELOC_PPC_GOT_TLSGD16
: r
= R_PPC64_GOT_TLSGD16
;
2037 case BFD_RELOC_PPC_GOT_TLSGD16_LO
: r
= R_PPC64_GOT_TLSGD16_LO
;
2039 case BFD_RELOC_PPC_GOT_TLSGD16_HI
: r
= R_PPC64_GOT_TLSGD16_HI
;
2041 case BFD_RELOC_PPC_GOT_TLSGD16_HA
: r
= R_PPC64_GOT_TLSGD16_HA
;
2043 case BFD_RELOC_PPC_GOT_TLSLD16
: r
= R_PPC64_GOT_TLSLD16
;
2045 case BFD_RELOC_PPC_GOT_TLSLD16_LO
: r
= R_PPC64_GOT_TLSLD16_LO
;
2047 case BFD_RELOC_PPC_GOT_TLSLD16_HI
: r
= R_PPC64_GOT_TLSLD16_HI
;
2049 case BFD_RELOC_PPC_GOT_TLSLD16_HA
: r
= R_PPC64_GOT_TLSLD16_HA
;
2051 case BFD_RELOC_PPC_GOT_TPREL16
: r
= R_PPC64_GOT_TPREL16_DS
;
2053 case BFD_RELOC_PPC_GOT_TPREL16_LO
: r
= R_PPC64_GOT_TPREL16_LO_DS
;
2055 case BFD_RELOC_PPC_GOT_TPREL16_HI
: r
= R_PPC64_GOT_TPREL16_HI
;
2057 case BFD_RELOC_PPC_GOT_TPREL16_HA
: r
= R_PPC64_GOT_TPREL16_HA
;
2059 case BFD_RELOC_PPC_GOT_DTPREL16
: r
= R_PPC64_GOT_DTPREL16_DS
;
2061 case BFD_RELOC_PPC_GOT_DTPREL16_LO
: r
= R_PPC64_GOT_DTPREL16_LO_DS
;
2063 case BFD_RELOC_PPC_GOT_DTPREL16_HI
: r
= R_PPC64_GOT_DTPREL16_HI
;
2065 case BFD_RELOC_PPC_GOT_DTPREL16_HA
: r
= R_PPC64_GOT_DTPREL16_HA
;
2067 case BFD_RELOC_PPC64_TPREL16_DS
: r
= R_PPC64_TPREL16_DS
;
2069 case BFD_RELOC_PPC64_TPREL16_LO_DS
: r
= R_PPC64_TPREL16_LO_DS
;
2071 case BFD_RELOC_PPC64_TPREL16_HIGHER
: r
= R_PPC64_TPREL16_HIGHER
;
2073 case BFD_RELOC_PPC64_TPREL16_HIGHERA
: r
= R_PPC64_TPREL16_HIGHERA
;
2075 case BFD_RELOC_PPC64_TPREL16_HIGHEST
: r
= R_PPC64_TPREL16_HIGHEST
;
2077 case BFD_RELOC_PPC64_TPREL16_HIGHESTA
: r
= R_PPC64_TPREL16_HIGHESTA
;
2079 case BFD_RELOC_PPC64_DTPREL16_DS
: r
= R_PPC64_DTPREL16_DS
;
2081 case BFD_RELOC_PPC64_DTPREL16_LO_DS
: r
= R_PPC64_DTPREL16_LO_DS
;
2083 case BFD_RELOC_PPC64_DTPREL16_HIGHER
: r
= R_PPC64_DTPREL16_HIGHER
;
2085 case BFD_RELOC_PPC64_DTPREL16_HIGHERA
: r
= R_PPC64_DTPREL16_HIGHERA
;
2087 case BFD_RELOC_PPC64_DTPREL16_HIGHEST
: r
= R_PPC64_DTPREL16_HIGHEST
;
2089 case BFD_RELOC_PPC64_DTPREL16_HIGHESTA
: r
= R_PPC64_DTPREL16_HIGHESTA
;
2091 case BFD_RELOC_VTABLE_INHERIT
: r
= R_PPC64_GNU_VTINHERIT
;
2093 case BFD_RELOC_VTABLE_ENTRY
: r
= R_PPC64_GNU_VTENTRY
;
2097 return ppc64_elf_howto_table
[r
];
2100 /* Set the howto pointer for a PowerPC ELF reloc. */
2103 ppc64_elf_info_to_howto (bfd
*abfd ATTRIBUTE_UNUSED
, arelent
*cache_ptr
,
2104 Elf_Internal_Rela
*dst
)
2108 /* Initialize howto table if needed. */
2109 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
2112 type
= ELF64_R_TYPE (dst
->r_info
);
2113 BFD_ASSERT (type
< (sizeof (ppc64_elf_howto_table
)
2114 / sizeof (ppc64_elf_howto_table
[0])));
2115 cache_ptr
->howto
= ppc64_elf_howto_table
[type
];
2118 /* Handle the R_PPC64_ADDR16_HA and similar relocs. */
2120 static bfd_reloc_status_type
2121 ppc64_elf_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2122 void *data
, asection
*input_section
,
2123 bfd
*output_bfd
, char **error_message
)
2125 /* If this is a relocatable link (output_bfd test tells us), just
2126 call the generic function. Any adjustment will be done at final
2128 if (output_bfd
!= NULL
)
2129 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2130 input_section
, output_bfd
, error_message
);
2132 /* Adjust the addend for sign extension of the low 16 bits.
2133 We won't actually be using the low 16 bits, so trashing them
2135 reloc_entry
->addend
+= 0x8000;
2136 return bfd_reloc_continue
;
2139 static bfd_reloc_status_type
2140 ppc64_elf_branch_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2141 void *data
, asection
*input_section
,
2142 bfd
*output_bfd
, char **error_message
)
2144 if (output_bfd
!= NULL
)
2145 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2146 input_section
, output_bfd
, error_message
);
2148 if (strcmp (symbol
->section
->name
, ".opd") == 0)
2150 bfd_vma dest
= opd_entry_value (symbol
->section
,
2151 symbol
->value
+ reloc_entry
->addend
,
2153 if (dest
!= (bfd_vma
) -1)
2154 reloc_entry
->addend
= dest
- (symbol
->value
2155 + symbol
->section
->output_section
->vma
2156 + symbol
->section
->output_offset
);
2158 return bfd_reloc_continue
;
2161 static bfd_reloc_status_type
2162 ppc64_elf_brtaken_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2163 void *data
, asection
*input_section
,
2164 bfd
*output_bfd
, char **error_message
)
2167 enum elf_ppc64_reloc_type r_type
;
2168 bfd_size_type octets
;
2169 /* Disabled until we sort out how ld should choose 'y' vs 'at'. */
2170 bfd_boolean is_power4
= FALSE
;
2172 /* If this is a relocatable link (output_bfd test tells us), just
2173 call the generic function. Any adjustment will be done at final
2175 if (output_bfd
!= NULL
)
2176 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2177 input_section
, output_bfd
, error_message
);
2179 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2180 insn
= bfd_get_32 (abfd
, (bfd_byte
*) data
+ octets
);
2181 insn
&= ~(0x01 << 21);
2182 r_type
= reloc_entry
->howto
->type
;
2183 if (r_type
== R_PPC64_ADDR14_BRTAKEN
2184 || r_type
== R_PPC64_REL14_BRTAKEN
)
2185 insn
|= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
2189 /* Set 'a' bit. This is 0b00010 in BO field for branch
2190 on CR(BI) insns (BO == 001at or 011at), and 0b01000
2191 for branch on CTR insns (BO == 1a00t or 1a01t). */
2192 if ((insn
& (0x14 << 21)) == (0x04 << 21))
2194 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
2204 if (!bfd_is_com_section (symbol
->section
))
2205 target
= symbol
->value
;
2206 target
+= symbol
->section
->output_section
->vma
;
2207 target
+= symbol
->section
->output_offset
;
2208 target
+= reloc_entry
->addend
;
2210 from
= (reloc_entry
->address
2211 + input_section
->output_offset
2212 + input_section
->output_section
->vma
);
2214 /* Invert 'y' bit if not the default. */
2215 if ((bfd_signed_vma
) (target
- from
) < 0)
2218 bfd_put_32 (abfd
, insn
, (bfd_byte
*) data
+ octets
);
2220 return ppc64_elf_branch_reloc (abfd
, reloc_entry
, symbol
, data
,
2221 input_section
, output_bfd
, error_message
);
2224 static bfd_reloc_status_type
2225 ppc64_elf_sectoff_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2226 void *data
, asection
*input_section
,
2227 bfd
*output_bfd
, char **error_message
)
2229 /* If this is a relocatable link (output_bfd test tells us), just
2230 call the generic function. Any adjustment will be done at final
2232 if (output_bfd
!= NULL
)
2233 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2234 input_section
, output_bfd
, error_message
);
2236 /* Subtract the symbol section base address. */
2237 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2238 return bfd_reloc_continue
;
2241 static bfd_reloc_status_type
2242 ppc64_elf_sectoff_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2243 void *data
, asection
*input_section
,
2244 bfd
*output_bfd
, char **error_message
)
2246 /* If this is a relocatable link (output_bfd test tells us), just
2247 call the generic function. Any adjustment will be done at final
2249 if (output_bfd
!= NULL
)
2250 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2251 input_section
, output_bfd
, error_message
);
2253 /* Subtract the symbol section base address. */
2254 reloc_entry
->addend
-= symbol
->section
->output_section
->vma
;
2256 /* Adjust the addend for sign extension of the low 16 bits. */
2257 reloc_entry
->addend
+= 0x8000;
2258 return bfd_reloc_continue
;
2261 static bfd_reloc_status_type
2262 ppc64_elf_toc_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2263 void *data
, asection
*input_section
,
2264 bfd
*output_bfd
, char **error_message
)
2268 /* If this is a relocatable link (output_bfd test tells us), just
2269 call the generic function. Any adjustment will be done at final
2271 if (output_bfd
!= NULL
)
2272 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2273 input_section
, output_bfd
, error_message
);
2275 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2277 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2279 /* Subtract the TOC base address. */
2280 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2281 return bfd_reloc_continue
;
2284 static bfd_reloc_status_type
2285 ppc64_elf_toc_ha_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2286 void *data
, asection
*input_section
,
2287 bfd
*output_bfd
, char **error_message
)
2291 /* If this is a relocatable link (output_bfd test tells us), just
2292 call the generic function. Any adjustment will be done at final
2294 if (output_bfd
!= NULL
)
2295 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2296 input_section
, output_bfd
, error_message
);
2298 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2300 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2302 /* Subtract the TOC base address. */
2303 reloc_entry
->addend
-= TOCstart
+ TOC_BASE_OFF
;
2305 /* Adjust the addend for sign extension of the low 16 bits. */
2306 reloc_entry
->addend
+= 0x8000;
2307 return bfd_reloc_continue
;
2310 static bfd_reloc_status_type
2311 ppc64_elf_toc64_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2312 void *data
, asection
*input_section
,
2313 bfd
*output_bfd
, char **error_message
)
2316 bfd_size_type octets
;
2318 /* If this is a relocatable link (output_bfd test tells us), just
2319 call the generic function. Any adjustment will be done at final
2321 if (output_bfd
!= NULL
)
2322 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2323 input_section
, output_bfd
, error_message
);
2325 TOCstart
= _bfd_get_gp_value (input_section
->output_section
->owner
);
2327 TOCstart
= ppc64_elf_toc (input_section
->output_section
->owner
);
2329 octets
= reloc_entry
->address
* bfd_octets_per_byte (abfd
);
2330 bfd_put_64 (abfd
, TOCstart
+ TOC_BASE_OFF
, (bfd_byte
*) data
+ octets
);
2331 return bfd_reloc_ok
;
2334 static bfd_reloc_status_type
2335 ppc64_elf_unhandled_reloc (bfd
*abfd
, arelent
*reloc_entry
, asymbol
*symbol
,
2336 void *data
, asection
*input_section
,
2337 bfd
*output_bfd
, char **error_message
)
2339 /* If this is a relocatable link (output_bfd test tells us), just
2340 call the generic function. Any adjustment will be done at final
2342 if (output_bfd
!= NULL
)
2343 return bfd_elf_generic_reloc (abfd
, reloc_entry
, symbol
, data
,
2344 input_section
, output_bfd
, error_message
);
2346 if (error_message
!= NULL
)
2348 static char buf
[60];
2349 sprintf (buf
, "generic linker can't handle %s",
2350 reloc_entry
->howto
->name
);
2351 *error_message
= buf
;
2353 return bfd_reloc_dangerous
;
2356 struct ppc64_elf_obj_tdata
2358 struct elf_obj_tdata elf
;
2360 /* Shortcuts to dynamic linker sections. */
2364 /* Used during garbage collection. We attach global symbols defined
2365 on removed .opd entries to this section so that the sym is removed. */
2366 asection
*deleted_section
;
2368 /* TLS local dynamic got entry handling. Suppose for multiple GOT
2369 sections means we potentially need one of these for each input bfd. */
2371 bfd_signed_vma refcount
;
2376 #define ppc64_elf_tdata(bfd) \
2377 ((struct ppc64_elf_obj_tdata *) (bfd)->tdata.any)
2379 #define ppc64_tlsld_got(bfd) \
2380 (&ppc64_elf_tdata (bfd)->tlsld_got)
2382 /* Override the generic function because we store some extras. */
2385 ppc64_elf_mkobject (bfd
*abfd
)
2387 bfd_size_type amt
= sizeof (struct ppc64_elf_obj_tdata
);
2388 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2389 if (abfd
->tdata
.any
== NULL
)
2394 /* Fix bad default arch selected for a 64 bit input bfd when the
2395 default is 32 bit. */
2398 ppc64_elf_object_p (bfd
*abfd
)
2400 if (abfd
->arch_info
->the_default
&& abfd
->arch_info
->bits_per_word
== 32)
2402 Elf_Internal_Ehdr
*i_ehdr
= elf_elfheader (abfd
);
2404 if (i_ehdr
->e_ident
[EI_CLASS
] == ELFCLASS64
)
2406 /* Relies on arch after 32 bit default being 64 bit default. */
2407 abfd
->arch_info
= abfd
->arch_info
->next
;
2408 BFD_ASSERT (abfd
->arch_info
->bits_per_word
== 64);
2414 /* Support for core dump NOTE sections. */
2417 ppc64_elf_grok_prstatus (bfd
*abfd
, Elf_Internal_Note
*note
)
2419 size_t offset
, size
;
2421 if (note
->descsz
!= 504)
2425 elf_tdata (abfd
)->core_signal
= bfd_get_16 (abfd
, note
->descdata
+ 12);
2428 elf_tdata (abfd
)->core_pid
= bfd_get_32 (abfd
, note
->descdata
+ 32);
2434 /* Make a ".reg/999" section. */
2435 return _bfd_elfcore_make_pseudosection (abfd
, ".reg",
2436 size
, note
->descpos
+ offset
);
2440 ppc64_elf_grok_psinfo (bfd
*abfd
, Elf_Internal_Note
*note
)
2442 if (note
->descsz
!= 136)
2445 elf_tdata (abfd
)->core_program
2446 = _bfd_elfcore_strndup (abfd
, note
->descdata
+ 40, 16);
2447 elf_tdata (abfd
)->core_command
2448 = _bfd_elfcore_strndup (abfd
, note
->descdata
+ 56, 80);
2453 /* Merge backend specific data from an object file to the output
2454 object file when linking. */
2457 ppc64_elf_merge_private_bfd_data (bfd
*ibfd
, bfd
*obfd
)
2459 /* Check if we have the same endianess. */
2460 if (ibfd
->xvec
->byteorder
!= obfd
->xvec
->byteorder
2461 && ibfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
2462 && obfd
->xvec
->byteorder
!= BFD_ENDIAN_UNKNOWN
)
2466 if (bfd_big_endian (ibfd
))
2467 msg
= _("%B: compiled for a big endian system "
2468 "and target is little endian");
2470 msg
= _("%B: compiled for a little endian system "
2471 "and target is big endian");
2473 (*_bfd_error_handler
) (msg
, ibfd
);
2475 bfd_set_error (bfd_error_wrong_format
);
2482 /* Add extra PPC sections. */
2484 static struct bfd_elf_special_section
const ppc64_elf_special_sections
[]=
2486 { ".sdata", 6, -2, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2487 { ".sbss", 5, -2, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
2488 { ".plt", 4, 0, SHT_NOBITS
, 0 },
2489 { ".toc", 4, 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2490 { ".toc1", 5, 0, SHT_PROGBITS
, SHF_ALLOC
+ SHF_WRITE
},
2491 { ".tocbss", 7, 0, SHT_NOBITS
, SHF_ALLOC
+ SHF_WRITE
},
2492 { NULL
, 0, 0, 0, 0 }
2495 struct _ppc64_elf_section_data
2497 struct bfd_elf_section_data elf
;
2499 /* An array with one entry for each opd function descriptor. */
2502 /* Points to the function code section for local opd entries. */
2503 asection
**func_sec
;
2504 /* After editing .opd, adjust references to opd local syms. */
2508 /* An array for toc sections, indexed by offset/8.
2509 Specifies the relocation symbol index used at a given toc offset. */
2513 #define ppc64_elf_section_data(sec) \
2514 ((struct _ppc64_elf_section_data *) elf_section_data (sec))
2517 ppc64_elf_new_section_hook (bfd
*abfd
, asection
*sec
)
2519 struct _ppc64_elf_section_data
*sdata
;
2520 bfd_size_type amt
= sizeof (*sdata
);
2522 sdata
= bfd_zalloc (abfd
, amt
);
2525 sec
->used_by_bfd
= sdata
;
2527 return _bfd_elf_new_section_hook (abfd
, sec
);
2531 get_opd_info (asection
* sec
)
2534 && ppc64_elf_section_data (sec
) != NULL
2535 && ppc64_elf_section_data (sec
)->opd
.adjust
!= NULL
)
2536 return ppc64_elf_section_data (sec
)->opd
.adjust
;
2540 /* Parameters for the qsort hook. */
2541 static asection
*synthetic_opd
;
2542 static bfd_boolean synthetic_relocatable
;
2544 /* Helper routine for ppc64_elf_get_synthetic_symtab. */
2547 compare_symbols (const void *ap
, const void *bp
)
2549 const asymbol
*a
= * (const asymbol
**) ap
;
2550 const asymbol
*b
= * (const asymbol
**) bp
;
2552 if ((a
->flags
& BSF_SECTION_SYM
) == 0 && (b
->flags
& BSF_SECTION_SYM
))
2554 if ((a
->flags
& BSF_SECTION_SYM
) && (b
->flags
& BSF_SECTION_SYM
) == 0)
2557 if (a
->section
== synthetic_opd
&& b
->section
!= synthetic_opd
)
2559 if (a
->section
!= synthetic_opd
&& b
->section
== synthetic_opd
)
2562 if ((a
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2563 == (SEC_CODE
| SEC_ALLOC
)
2564 && (b
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2565 != (SEC_CODE
| SEC_ALLOC
))
2568 if ((a
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2569 != (SEC_CODE
| SEC_ALLOC
)
2570 && (b
->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2571 == (SEC_CODE
| SEC_ALLOC
))
2574 if (synthetic_relocatable
)
2576 if (a
->section
->id
< b
->section
->id
)
2579 if (a
->section
->id
> b
->section
->id
)
2583 if (a
->value
+ a
->section
->vma
< b
->value
+ b
->section
->vma
)
2586 if (a
->value
+ a
->section
->vma
> b
->value
+ b
->section
->vma
)
2592 /* Helper routine for ppc64_elf_get_synthetic_symtab. */
2595 compare_relocs (const void *ap
, const void *bp
)
2597 const arelent
*a
= * (const arelent
**) ap
;
2598 const arelent
*b
= * (const arelent
**) bp
;
2600 if (a
->address
< b
->address
)
2603 if (a
->address
> b
->address
)
2609 /* Create synthetic symbols. */
2612 ppc64_elf_get_synthetic_symtab (bfd
*abfd
, asymbol
**relsyms
, asymbol
**ret
)
2615 bfd_boolean (*slurp_relocs
) (bfd
*, asection
*, asymbol
**, bfd_boolean
);
2616 arelent
**relocs
, **r
;
2620 asymbol
**syms
= NULL
;
2621 long symcount
= 0, opdsymcount
, relcount
;
2622 asection
*relopd
, *opd
;
2623 bfd_boolean relocatable
= (abfd
->flags
& (EXEC_P
| DYNAMIC
)) == 0;
2627 opd
= bfd_get_section_by_name (abfd
, ".opd");
2631 if ((bfd_get_file_flags (abfd
) & HAS_SYMS
))
2634 storage
= bfd_get_symtab_upper_bound (abfd
);
2640 syms
= bfd_malloc (storage
);
2645 symcount
= bfd_canonicalize_symtab (abfd
, syms
);
2663 storage
= bfd_get_dynamic_symtab_upper_bound (abfd
);
2669 syms
= bfd_malloc (storage
);
2674 symcount
= bfd_canonicalize_dynamic_symtab (abfd
, syms
);
2682 synthetic_opd
= opd
;
2683 synthetic_relocatable
= relocatable
;
2684 qsort (syms
, symcount
, sizeof (asymbol
*), compare_symbols
);
2686 opdsymcount
= symcount
;
2687 for (i
= 0; i
< symcount
; ++i
)
2689 if (syms
[i
]->flags
& BSF_SECTION_SYM
)
2691 if (opdsymcount
== symcount
)
2697 if (syms
[i
]->section
== opd
)
2700 if (opdsymcount
== symcount
)
2703 if ((syms
[i
]->section
->flags
& (SEC_CODE
| SEC_ALLOC
| SEC_THREAD_LOCAL
))
2704 != (SEC_CODE
| SEC_ALLOC
))
2711 if (opdsymcount
== 0)
2717 slurp_relocs
= get_elf_backend_data (abfd
)->s
->slurp_reloc_table
;
2720 relopd
= bfd_get_section_by_name (abfd
, ".rela.opd");
2723 relopd
= bfd_get_section_by_name (abfd
, ".rela.dyn");
2730 relcount
= relopd
->size
/ 24;
2733 || ! (*slurp_relocs
) (abfd
, relopd
, relsyms
, TRUE
))
2742 relcount
= (opd
->flags
& SEC_RELOC
) ? opd
->reloc_count
: 0;
2745 || ! (*slurp_relocs
) (abfd
, relopd
, relsyms
, FALSE
))
2752 relocs
= bfd_malloc (relcount
* sizeof (arelent
**));
2759 for (i
= 0; i
< relcount
; ++i
)
2760 relocs
[i
] = &relopd
->relocation
[i
];
2762 qsort (relocs
, relcount
, sizeof (*relocs
), compare_relocs
);
2766 for (i
= 0, r
= relocs
; i
< opdsymcount
; ++i
)
2771 while (r
< relocs
+ relcount
2772 && (*r
)->address
< syms
[i
]->value
+ opd
->vma
)
2775 if (r
== relocs
+ relcount
)
2778 if ((*r
)->address
!= syms
[i
]->value
+ opd
->vma
)
2781 if ((*r
)->howto
->type
!= (relocatable
2782 ? R_PPC64_ADDR64
: R_PPC64_RELATIVE
))
2787 sym
= *((*r
)->sym_ptr_ptr
);
2791 mid
= (lo
+ hi
) >> 1;
2792 if (syms
[mid
]->section
->id
< sym
->section
->id
)
2794 else if (syms
[mid
]->section
->id
> sym
->section
->id
)
2796 else if (syms
[mid
]->value
< sym
->value
+ (*r
)->addend
)
2798 else if (syms
[mid
]->value
> sym
->value
+ (*r
)->addend
)
2806 mid
= (lo
+ hi
) >> 1;
2807 if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
< (*r
)->addend
)
2809 else if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
> (*r
)->addend
)
2818 size
+= sizeof (asymbol
);
2819 size
+= strlen (syms
[i
]->name
) + 1;
2823 s
= *ret
= bfd_malloc (size
);
2831 names
= (char *) (s
+ count
);
2833 for (i
= 0, r
= relocs
; i
< opdsymcount
; ++i
)
2838 while (r
< relocs
+ relcount
2839 && (*r
)->address
< syms
[i
]->value
+ opd
->vma
)
2842 if (r
== relocs
+ relcount
)
2845 if ((*r
)->address
!= syms
[i
]->value
+ opd
->vma
)
2848 if ((*r
)->howto
->type
!= (relocatable
2849 ? R_PPC64_ADDR64
: R_PPC64_RELATIVE
))
2854 sym
= *((*r
)->sym_ptr_ptr
);
2858 mid
= (lo
+ hi
) >> 1;
2859 if (syms
[mid
]->section
->id
< sym
->section
->id
)
2861 else if (syms
[mid
]->section
->id
> sym
->section
->id
)
2863 else if (syms
[mid
]->value
< sym
->value
+ (*r
)->addend
)
2865 else if (syms
[mid
]->value
> sym
->value
+ (*r
)->addend
)
2873 mid
= (lo
+ hi
) >> 1;
2874 if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
< (*r
)->addend
)
2876 else if (syms
[mid
]->value
+ syms
[mid
]->section
->vma
> (*r
)->addend
)
2892 s
->section
= &bfd_abs_section
;
2893 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
2894 if ((sec
->flags
& (SEC_ALLOC
| SEC_CODE
))
2895 == (SEC_ALLOC
| SEC_CODE
)
2896 && (*r
)->addend
>= sec
->vma
2897 && (*r
)->addend
< sec
->vma
+ sec
->size
)
2902 s
->value
= (*r
)->addend
- sec
->vma
;
2906 s
->section
= sym
->section
;
2907 s
->value
= sym
->value
+ (*r
)->addend
;
2910 len
= strlen (syms
[i
]->name
);
2911 memcpy (names
, syms
[i
]->name
, len
+ 1);
2923 /* The following functions are specific to the ELF linker, while
2924 functions above are used generally. Those named ppc64_elf_* are
2925 called by the main ELF linker code. They appear in this file more
2926 or less in the order in which they are called. eg.
2927 ppc64_elf_check_relocs is called early in the link process,
2928 ppc64_elf_finish_dynamic_sections is one of the last functions
2931 PowerPC64-ELF uses a similar scheme to PowerPC64-XCOFF in that
2932 functions have both a function code symbol and a function descriptor
2933 symbol. A call to foo in a relocatable object file looks like:
2940 The function definition in another object file might be:
2944 . .quad .TOC.@tocbase
2950 When the linker resolves the call during a static link, the branch
2951 unsurprisingly just goes to .foo and the .opd information is unused.
2952 If the function definition is in a shared library, things are a little
2953 different: The call goes via a plt call stub, the opd information gets
2954 copied to the plt, and the linker patches the nop.
2962 . addis 12,2,Lfoo@toc@ha # in practice, the call stub
2963 . addi 12,12,Lfoo@toc@l # is slightly optimized, but
2964 . std 2,40(1) # this is the general idea
2972 . Lfoo: reloc (R_PPC64_JMP_SLOT, foo)
2974 The "reloc ()" notation is supposed to indicate that the linker emits
2975 an R_PPC64_JMP_SLOT reloc against foo. The dynamic linker does the opd
2978 What are the difficulties here? Well, firstly, the relocations
2979 examined by the linker in check_relocs are against the function code
2980 sym .foo, while the dynamic relocation in the plt is emitted against
2981 the function descriptor symbol, foo. Somewhere along the line, we need
2982 to carefully copy dynamic link information from one symbol to the other.
2983 Secondly, the generic part of the elf linker will make .foo a dynamic
2984 symbol as is normal for most other backends. We need foo dynamic
2985 instead, at least for an application final link. However, when
2986 creating a shared library containing foo, we need to have both symbols
2987 dynamic so that references to .foo are satisfied during the early
2988 stages of linking. Otherwise the linker might decide to pull in a
2989 definition from some other object, eg. a static library.
2991 Update: As of August 2004, we support a new convention. Function
2992 calls may use the function descriptor symbol, ie. "bl foo". This
2993 behaves exactly as "bl .foo". */
2995 /* The linker needs to keep track of the number of relocs that it
2996 decides to copy as dynamic relocs in check_relocs for each symbol.
2997 This is so that it can later discard them if they are found to be
2998 unnecessary. We store the information in a field extending the
2999 regular ELF linker hash table. */
3001 struct ppc_dyn_relocs
3003 struct ppc_dyn_relocs
*next
;
3005 /* The input section of the reloc. */
3008 /* Total number of relocs copied for the input section. */
3009 bfd_size_type count
;
3011 /* Number of pc-relative relocs copied for the input section. */
3012 bfd_size_type pc_count
;
3015 /* Track GOT entries needed for a given symbol. We might need more
3016 than one got entry per symbol. */
3019 struct got_entry
*next
;
3021 /* The symbol addend that we'll be placing in the GOT. */
3024 /* Unlike other ELF targets, we use separate GOT entries for the same
3025 symbol referenced from different input files. This is to support
3026 automatic multiple TOC/GOT sections, where the TOC base can vary
3027 from one input file to another.
3029 Point to the BFD owning this GOT entry. */
3032 /* Zero for non-tls entries, or TLS_TLS and one of TLS_GD, TLS_LD,
3033 TLS_TPREL or TLS_DTPREL for tls entries. */
3036 /* Reference count until size_dynamic_sections, GOT offset thereafter. */
3039 bfd_signed_vma refcount
;
3044 /* The same for PLT. */
3047 struct plt_entry
*next
;
3053 bfd_signed_vma refcount
;
3058 /* Of those relocs that might be copied as dynamic relocs, this macro
3059 selects those that must be copied when linking a shared library,
3060 even when the symbol is local. */
3062 #define MUST_BE_DYN_RELOC(RTYPE) \
3063 ((RTYPE) != R_PPC64_REL32 \
3064 && (RTYPE) != R_PPC64_REL64 \
3065 && (RTYPE) != R_PPC64_REL30)
3067 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
3068 copying dynamic variables from a shared lib into an app's dynbss
3069 section, and instead use a dynamic relocation to point into the
3070 shared lib. With code that gcc generates, it's vital that this be
3071 enabled; In the PowerPC64 ABI, the address of a function is actually
3072 the address of a function descriptor, which resides in the .opd
3073 section. gcc uses the descriptor directly rather than going via the
3074 GOT as some other ABI's do, which means that initialized function
3075 pointers must reference the descriptor. Thus, a function pointer
3076 initialized to the address of a function in a shared library will
3077 either require a copy reloc, or a dynamic reloc. Using a copy reloc
3078 redefines the function descriptor symbol to point to the copy. This
3079 presents a problem as a plt entry for that function is also
3080 initialized from the function descriptor symbol and the copy reloc
3081 may not be initialized first. */
3082 #define ELIMINATE_COPY_RELOCS 1
3084 /* Section name for stubs is the associated section name plus this
3086 #define STUB_SUFFIX ".stub"
3089 ppc_stub_long_branch:
3090 Used when a 14 bit branch (or even a 24 bit branch) can't reach its
3091 destination, but a 24 bit branch in a stub section will reach.
3094 ppc_stub_plt_branch:
3095 Similar to the above, but a 24 bit branch in the stub section won't
3096 reach its destination.
3097 . addis %r12,%r2,xxx@toc@ha
3098 . ld %r11,xxx@toc@l(%r12)
3103 Used to call a function in a shared library. If it so happens that
3104 the plt entry referenced crosses a 64k boundary, then an extra
3105 "addis %r12,%r12,1" will be inserted before the load at xxx+8 or
3106 xxx+16 as appropriate.
3107 . addis %r12,%r2,xxx@toc@ha
3109 . ld %r11,xxx+0@toc@l(%r12)
3110 . ld %r2,xxx+8@toc@l(%r12)
3112 . ld %r11,xxx+16@toc@l(%r12)
3115 ppc_stub_long_branch and ppc_stub_plt_branch may also have additional
3116 code to adjust the value and save r2 to support multiple toc sections.
3117 A ppc_stub_long_branch with an r2 offset looks like:
3119 . addis %r2,%r2,off@ha
3120 . addi %r2,%r2,off@l
3123 A ppc_stub_plt_branch with an r2 offset looks like:
3125 . addis %r12,%r2,xxx@toc@ha
3126 . ld %r11,xxx@toc@l(%r12)
3127 . addis %r2,%r2,off@ha
3128 . addi %r2,%r2,off@l
3133 enum ppc_stub_type
{
3135 ppc_stub_long_branch
,
3136 ppc_stub_long_branch_r2off
,
3137 ppc_stub_plt_branch
,
3138 ppc_stub_plt_branch_r2off
,
3142 struct ppc_stub_hash_entry
{
3144 /* Base hash table entry structure. */
3145 struct bfd_hash_entry root
;
3147 enum ppc_stub_type stub_type
;
3149 /* The stub section. */
3152 /* Offset within stub_sec of the beginning of this stub. */
3153 bfd_vma stub_offset
;
3155 /* Given the symbol's value and its section we can determine its final
3156 value when building the stubs (so the stub knows where to jump. */
3157 bfd_vma target_value
;
3158 asection
*target_section
;
3160 /* The symbol table entry, if any, that this was derived from. */
3161 struct ppc_link_hash_entry
*h
;
3163 /* And the reloc addend that this was derived from. */
3166 /* Where this stub is being called from, or, in the case of combined
3167 stub sections, the first input section in the group. */
3171 struct ppc_branch_hash_entry
{
3173 /* Base hash table entry structure. */
3174 struct bfd_hash_entry root
;
3176 /* Offset within .branch_lt. */
3177 unsigned int offset
;
3179 /* Generation marker. */
3183 struct ppc_link_hash_entry
3185 struct elf_link_hash_entry elf
;
3187 /* A pointer to the most recently used stub hash entry against this
3189 struct ppc_stub_hash_entry
*stub_cache
;
3191 /* Track dynamic relocs copied for this symbol. */
3192 struct ppc_dyn_relocs
*dyn_relocs
;
3194 /* Link between function code and descriptor symbols. */
3195 struct ppc_link_hash_entry
*oh
;
3197 /* Flag function code and descriptor symbols. */
3198 unsigned int is_func
:1;
3199 unsigned int is_func_descriptor
:1;
3201 /* Whether global opd sym has been adjusted or not.
3202 After ppc64_elf_edit_opd has run, this flag should be set for all
3203 globals defined in any opd section. */
3204 unsigned int adjust_done
:1;
3206 /* Set if we twiddled this symbol to weak at some stage. */
3207 unsigned int was_undefined
:1;
3209 /* Contexts in which symbol is used in the GOT (or TOC).
3210 TLS_GD .. TLS_EXPLICIT bits are or'd into the mask as the
3211 corresponding relocs are encountered during check_relocs.
3212 tls_optimize clears TLS_GD .. TLS_TPREL when optimizing to
3213 indicate the corresponding GOT entry type is not needed.
3214 tls_optimize may also set TLS_TPRELGD when a GD reloc turns into
3215 a TPREL one. We use a separate flag rather than setting TPREL
3216 just for convenience in distinguishing the two cases. */
3217 #define TLS_GD 1 /* GD reloc. */
3218 #define TLS_LD 2 /* LD reloc. */
3219 #define TLS_TPREL 4 /* TPREL reloc, => IE. */
3220 #define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
3221 #define TLS_TLS 16 /* Any TLS reloc. */
3222 #define TLS_EXPLICIT 32 /* Marks TOC section TLS relocs. */
3223 #define TLS_TPRELGD 64 /* TPREL reloc resulting from GD->IE. */
3227 /* ppc64 ELF linker hash table. */
3229 struct ppc_link_hash_table
3231 struct elf_link_hash_table elf
;
3233 /* The stub hash table. */
3234 struct bfd_hash_table stub_hash_table
;
3236 /* Another hash table for plt_branch stubs. */
3237 struct bfd_hash_table branch_hash_table
;
3239 /* Linker stub bfd. */
3242 /* Linker call-backs. */
3243 asection
* (*add_stub_section
) (const char *, asection
*);
3244 void (*layout_sections_again
) (void);
3246 /* Array to keep track of which stub sections have been created, and
3247 information on stub grouping. */
3249 /* This is the section to which stubs in the group will be attached. */
3251 /* The stub section. */
3253 /* Along with elf_gp, specifies the TOC pointer used in this group. */
3257 /* Temp used when calculating TOC pointers. */
3260 /* Highest input section id. */
3263 /* Highest output section index. */
3266 /* List of input sections for each output section. */
3267 asection
**input_list
;
3269 /* Short-cuts to get to dynamic linker sections. */
3280 /* Shortcut to .__tls_get_addr and __tls_get_addr. */
3281 struct ppc_link_hash_entry
*tls_get_addr
;
3282 struct ppc_link_hash_entry
*tls_get_addr_fd
;
3285 unsigned long stub_count
[ppc_stub_plt_call
];
3287 /* Set if we should emit symbols for stubs. */
3288 unsigned int emit_stub_syms
:1;
3291 unsigned int stub_error
:1;
3293 /* Flag set when small branches are detected. Used to
3294 select suitable defaults for the stub group size. */
3295 unsigned int has_14bit_branch
:1;
3297 /* Temp used by ppc64_elf_check_directives. */
3298 unsigned int twiddled_syms
:1;
3300 /* Incremented every time we size stubs. */
3301 unsigned int stub_iteration
;
3303 /* Small local sym to section mapping cache. */
3304 struct sym_sec_cache sym_sec
;
3307 /* Get the ppc64 ELF linker hash table from a link_info structure. */
3309 #define ppc_hash_table(p) \
3310 ((struct ppc_link_hash_table *) ((p)->hash))
3312 #define ppc_stub_hash_lookup(table, string, create, copy) \
3313 ((struct ppc_stub_hash_entry *) \
3314 bfd_hash_lookup ((table), (string), (create), (copy)))
3316 #define ppc_branch_hash_lookup(table, string, create, copy) \
3317 ((struct ppc_branch_hash_entry *) \
3318 bfd_hash_lookup ((table), (string), (create), (copy)))
3320 /* Create an entry in the stub hash table. */
3322 static struct bfd_hash_entry
*
3323 stub_hash_newfunc (struct bfd_hash_entry
*entry
,
3324 struct bfd_hash_table
*table
,
3327 /* Allocate the structure if it has not already been allocated by a
3331 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_stub_hash_entry
));
3336 /* Call the allocation method of the superclass. */
3337 entry
= bfd_hash_newfunc (entry
, table
, string
);
3340 struct ppc_stub_hash_entry
*eh
;
3342 /* Initialize the local fields. */
3343 eh
= (struct ppc_stub_hash_entry
*) entry
;
3344 eh
->stub_type
= ppc_stub_none
;
3345 eh
->stub_sec
= NULL
;
3346 eh
->stub_offset
= 0;
3347 eh
->target_value
= 0;
3348 eh
->target_section
= NULL
;
3356 /* Create an entry in the branch hash table. */
3358 static struct bfd_hash_entry
*
3359 branch_hash_newfunc (struct bfd_hash_entry
*entry
,
3360 struct bfd_hash_table
*table
,
3363 /* Allocate the structure if it has not already been allocated by a
3367 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_branch_hash_entry
));
3372 /* Call the allocation method of the superclass. */
3373 entry
= bfd_hash_newfunc (entry
, table
, string
);
3376 struct ppc_branch_hash_entry
*eh
;
3378 /* Initialize the local fields. */
3379 eh
= (struct ppc_branch_hash_entry
*) entry
;
3387 /* Create an entry in a ppc64 ELF linker hash table. */
3389 static struct bfd_hash_entry
*
3390 link_hash_newfunc (struct bfd_hash_entry
*entry
,
3391 struct bfd_hash_table
*table
,
3394 /* Allocate the structure if it has not already been allocated by a
3398 entry
= bfd_hash_allocate (table
, sizeof (struct ppc_link_hash_entry
));
3403 /* Call the allocation method of the superclass. */
3404 entry
= _bfd_elf_link_hash_newfunc (entry
, table
, string
);
3407 struct ppc_link_hash_entry
*eh
= (struct ppc_link_hash_entry
*) entry
;
3409 eh
->stub_cache
= NULL
;
3410 eh
->dyn_relocs
= NULL
;
3413 eh
->is_func_descriptor
= 0;
3414 eh
->adjust_done
= 0;
3415 eh
->was_undefined
= 0;
3422 /* Create a ppc64 ELF linker hash table. */
3424 static struct bfd_link_hash_table
*
3425 ppc64_elf_link_hash_table_create (bfd
*abfd
)
3427 struct ppc_link_hash_table
*htab
;
3428 bfd_size_type amt
= sizeof (struct ppc_link_hash_table
);
3430 htab
= bfd_zmalloc (amt
);
3434 if (! _bfd_elf_link_hash_table_init (&htab
->elf
, abfd
, link_hash_newfunc
))
3440 /* Init the stub hash table too. */
3441 if (!bfd_hash_table_init (&htab
->stub_hash_table
, stub_hash_newfunc
))
3444 /* And the branch hash table. */
3445 if (!bfd_hash_table_init (&htab
->branch_hash_table
, branch_hash_newfunc
))
3448 /* Initializing two fields of the union is just cosmetic. We really
3449 only care about glist, but when compiled on a 32-bit host the
3450 bfd_vma fields are larger. Setting the bfd_vma to zero makes
3451 debugger inspection of these fields look nicer. */
3452 htab
->elf
.init_refcount
.refcount
= 0;
3453 htab
->elf
.init_refcount
.glist
= NULL
;
3454 htab
->elf
.init_offset
.offset
= 0;
3455 htab
->elf
.init_offset
.glist
= NULL
;
3457 return &htab
->elf
.root
;
3460 /* Free the derived linker hash table. */
3463 ppc64_elf_link_hash_table_free (struct bfd_link_hash_table
*hash
)
3465 struct ppc_link_hash_table
*ret
= (struct ppc_link_hash_table
*) hash
;
3467 bfd_hash_table_free (&ret
->stub_hash_table
);
3468 bfd_hash_table_free (&ret
->branch_hash_table
);
3469 _bfd_generic_link_hash_table_free (hash
);
3472 /* Satisfy the ELF linker by filling in some fields in our fake bfd. */
3475 ppc64_elf_init_stub_bfd (bfd
*abfd
, struct bfd_link_info
*info
)
3477 struct ppc_link_hash_table
*htab
;
3479 elf_elfheader (abfd
)->e_ident
[EI_CLASS
] = ELFCLASS64
;
3481 /* Always hook our dynamic sections into the first bfd, which is the
3482 linker created stub bfd. This ensures that the GOT header is at
3483 the start of the output TOC section. */
3484 htab
= ppc_hash_table (info
);
3485 htab
->stub_bfd
= abfd
;
3486 htab
->elf
.dynobj
= abfd
;
3489 /* Build a name for an entry in the stub hash table. */
3492 ppc_stub_name (const asection
*input_section
,
3493 const asection
*sym_sec
,
3494 const struct ppc_link_hash_entry
*h
,
3495 const Elf_Internal_Rela
*rel
)
3500 /* rel->r_addend is actually 64 bit, but who uses more than +/- 2^31
3501 offsets from a sym as a branch target? In fact, we could
3502 probably assume the addend is always zero. */
3503 BFD_ASSERT (((int) rel
->r_addend
& 0xffffffff) == rel
->r_addend
);
3507 len
= 8 + 1 + strlen (h
->elf
.root
.root
.string
) + 1 + 8 + 1;
3508 stub_name
= bfd_malloc (len
);
3509 if (stub_name
!= NULL
)
3511 sprintf (stub_name
, "%08x.%s+%x",
3512 input_section
->id
& 0xffffffff,
3513 h
->elf
.root
.root
.string
,
3514 (int) rel
->r_addend
& 0xffffffff);
3519 len
= 8 + 1 + 8 + 1 + 8 + 1 + 8 + 1;
3520 stub_name
= bfd_malloc (len
);
3521 if (stub_name
!= NULL
)
3523 sprintf (stub_name
, "%08x.%x:%x+%x",
3524 input_section
->id
& 0xffffffff,
3525 sym_sec
->id
& 0xffffffff,
3526 (int) ELF64_R_SYM (rel
->r_info
) & 0xffffffff,
3527 (int) rel
->r_addend
& 0xffffffff);
3533 /* Look up an entry in the stub hash. Stub entries are cached because
3534 creating the stub name takes a bit of time. */
3536 static struct ppc_stub_hash_entry
*
3537 ppc_get_stub_entry (const asection
*input_section
,
3538 const asection
*sym_sec
,
3539 struct elf_link_hash_entry
*hash
,
3540 const Elf_Internal_Rela
*rel
,
3541 struct ppc_link_hash_table
*htab
)
3543 struct ppc_stub_hash_entry
*stub_entry
;
3544 struct ppc_link_hash_entry
*h
= (struct ppc_link_hash_entry
*) hash
;
3545 const asection
*id_sec
;
3547 /* If this input section is part of a group of sections sharing one
3548 stub section, then use the id of the first section in the group.
3549 Stub names need to include a section id, as there may well be
3550 more than one stub used to reach say, printf, and we need to
3551 distinguish between them. */
3552 id_sec
= htab
->stub_group
[input_section
->id
].link_sec
;
3554 if (h
!= NULL
&& h
->stub_cache
!= NULL
3555 && h
->stub_cache
->h
== h
3556 && h
->stub_cache
->id_sec
== id_sec
)
3558 stub_entry
= h
->stub_cache
;
3564 stub_name
= ppc_stub_name (id_sec
, sym_sec
, h
, rel
);
3565 if (stub_name
== NULL
)
3568 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
3569 stub_name
, FALSE
, FALSE
);
3571 h
->stub_cache
= stub_entry
;
3579 /* Add a new stub entry to the stub hash. Not all fields of the new
3580 stub entry are initialised. */
3582 static struct ppc_stub_hash_entry
*
3583 ppc_add_stub (const char *stub_name
,
3585 struct ppc_link_hash_table
*htab
)
3589 struct ppc_stub_hash_entry
*stub_entry
;
3591 link_sec
= htab
->stub_group
[section
->id
].link_sec
;
3592 stub_sec
= htab
->stub_group
[section
->id
].stub_sec
;
3593 if (stub_sec
== NULL
)
3595 stub_sec
= htab
->stub_group
[link_sec
->id
].stub_sec
;
3596 if (stub_sec
== NULL
)
3602 namelen
= strlen (link_sec
->name
);
3603 len
= namelen
+ sizeof (STUB_SUFFIX
);
3604 s_name
= bfd_alloc (htab
->stub_bfd
, len
);
3608 memcpy (s_name
, link_sec
->name
, namelen
);
3609 memcpy (s_name
+ namelen
, STUB_SUFFIX
, sizeof (STUB_SUFFIX
));
3610 stub_sec
= (*htab
->add_stub_section
) (s_name
, link_sec
);
3611 if (stub_sec
== NULL
)
3613 htab
->stub_group
[link_sec
->id
].stub_sec
= stub_sec
;
3615 htab
->stub_group
[section
->id
].stub_sec
= stub_sec
;
3618 /* Enter this entry into the linker stub hash table. */
3619 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
, stub_name
,
3621 if (stub_entry
== NULL
)
3623 (*_bfd_error_handler
) (_("%B: cannot create stub entry %s"),
3624 section
->owner
, stub_name
);
3628 stub_entry
->stub_sec
= stub_sec
;
3629 stub_entry
->stub_offset
= 0;
3630 stub_entry
->id_sec
= link_sec
;
3634 /* Create sections for linker generated code. */
3637 create_linkage_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
3639 struct ppc_link_hash_table
*htab
;
3642 htab
= ppc_hash_table (info
);
3644 /* Create .sfpr for code to save and restore fp regs. */
3645 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_CODE
| SEC_READONLY
3646 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3647 htab
->sfpr
= bfd_make_section_anyway (dynobj
, ".sfpr");
3648 if (htab
->sfpr
== NULL
3649 || ! bfd_set_section_flags (dynobj
, htab
->sfpr
, flags
)
3650 || ! bfd_set_section_alignment (dynobj
, htab
->sfpr
, 2))
3653 /* Create .glink for lazy dynamic linking support. */
3654 htab
->glink
= bfd_make_section_anyway (dynobj
, ".glink");
3655 if (htab
->glink
== NULL
3656 || ! bfd_set_section_flags (dynobj
, htab
->glink
, flags
)
3657 || ! bfd_set_section_alignment (dynobj
, htab
->glink
, 2))
3660 /* Create .branch_lt for plt_branch stubs. */
3661 flags
= (SEC_ALLOC
| SEC_LOAD
3662 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3663 htab
->brlt
= bfd_make_section_anyway (dynobj
, ".branch_lt");
3664 if (htab
->brlt
== NULL
3665 || ! bfd_set_section_flags (dynobj
, htab
->brlt
, flags
)
3666 || ! bfd_set_section_alignment (dynobj
, htab
->brlt
, 3))
3671 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_READONLY
3672 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
3673 htab
->relbrlt
= bfd_make_section_anyway (dynobj
, ".rela.branch_lt");
3675 || ! bfd_set_section_flags (dynobj
, htab
->relbrlt
, flags
)
3676 || ! bfd_set_section_alignment (dynobj
, htab
->relbrlt
, 3))
3682 /* Create .got and .rela.got sections in ABFD, and .got in dynobj if
3683 not already done. */
3686 create_got_section (bfd
*abfd
, struct bfd_link_info
*info
)
3688 asection
*got
, *relgot
;
3690 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
3694 if (! _bfd_elf_create_got_section (htab
->elf
.dynobj
, info
))
3697 htab
->got
= bfd_get_section_by_name (htab
->elf
.dynobj
, ".got");
3702 flags
= (SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_IN_MEMORY
3703 | SEC_LINKER_CREATED
);
3705 got
= bfd_make_section (abfd
, ".got");
3707 || !bfd_set_section_flags (abfd
, got
, flags
)
3708 || !bfd_set_section_alignment (abfd
, got
, 3))
3711 relgot
= bfd_make_section (abfd
, ".rela.got");
3713 || ! bfd_set_section_flags (abfd
, relgot
, flags
| SEC_READONLY
)
3714 || ! bfd_set_section_alignment (abfd
, relgot
, 3))
3717 ppc64_elf_tdata (abfd
)->got
= got
;
3718 ppc64_elf_tdata (abfd
)->relgot
= relgot
;
3722 /* Create the dynamic sections, and set up shortcuts. */
3725 ppc64_elf_create_dynamic_sections (bfd
*dynobj
, struct bfd_link_info
*info
)
3727 struct ppc_link_hash_table
*htab
;
3729 if (!_bfd_elf_create_dynamic_sections (dynobj
, info
))
3732 htab
= ppc_hash_table (info
);
3734 htab
->got
= bfd_get_section_by_name (dynobj
, ".got");
3735 htab
->plt
= bfd_get_section_by_name (dynobj
, ".plt");
3736 htab
->relplt
= bfd_get_section_by_name (dynobj
, ".rela.plt");
3737 htab
->dynbss
= bfd_get_section_by_name (dynobj
, ".dynbss");
3739 htab
->relbss
= bfd_get_section_by_name (dynobj
, ".rela.bss");
3741 if (!htab
->got
|| !htab
->plt
|| !htab
->relplt
|| !htab
->dynbss
3742 || (!info
->shared
&& !htab
->relbss
))
3748 /* Copy the extra info we tack onto an elf_link_hash_entry. */
3751 ppc64_elf_copy_indirect_symbol
3752 (const struct elf_backend_data
*bed ATTRIBUTE_UNUSED
,
3753 struct elf_link_hash_entry
*dir
,
3754 struct elf_link_hash_entry
*ind
)
3756 struct ppc_link_hash_entry
*edir
, *eind
;
3759 edir
= (struct ppc_link_hash_entry
*) dir
;
3760 eind
= (struct ppc_link_hash_entry
*) ind
;
3762 /* Copy over any dynamic relocs we may have on the indirect sym. */
3763 if (eind
->dyn_relocs
!= NULL
)
3765 if (edir
->dyn_relocs
!= NULL
)
3767 struct ppc_dyn_relocs
**pp
;
3768 struct ppc_dyn_relocs
*p
;
3770 if (eind
->elf
.root
.type
== bfd_link_hash_indirect
)
3773 /* Add reloc counts against the weak sym to the strong sym
3774 list. Merge any entries against the same section. */
3775 for (pp
= &eind
->dyn_relocs
; (p
= *pp
) != NULL
; )
3777 struct ppc_dyn_relocs
*q
;
3779 for (q
= edir
->dyn_relocs
; q
!= NULL
; q
= q
->next
)
3780 if (q
->sec
== p
->sec
)
3782 q
->pc_count
+= p
->pc_count
;
3783 q
->count
+= p
->count
;
3790 *pp
= edir
->dyn_relocs
;
3793 edir
->dyn_relocs
= eind
->dyn_relocs
;
3794 eind
->dyn_relocs
= NULL
;
3797 edir
->is_func
|= eind
->is_func
;
3798 edir
->is_func_descriptor
|= eind
->is_func_descriptor
;
3799 edir
->tls_mask
|= eind
->tls_mask
;
3801 mask
= (ELF_LINK_HASH_REF_DYNAMIC
| ELF_LINK_HASH_REF_REGULAR
3802 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
| ELF_LINK_NON_GOT_REF
3803 | ELF_LINK_HASH_NEEDS_PLT
);
3804 /* If called to transfer flags for a weakdef during processing
3805 of elf_adjust_dynamic_symbol, don't copy ELF_LINK_NON_GOT_REF.
3806 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
3807 if (ELIMINATE_COPY_RELOCS
3808 && eind
->elf
.root
.type
!= bfd_link_hash_indirect
3809 && (edir
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DYNAMIC_ADJUSTED
) != 0)
3810 mask
&= ~ELF_LINK_NON_GOT_REF
;
3812 edir
->elf
.elf_link_hash_flags
|= eind
->elf
.elf_link_hash_flags
& mask
;
3814 /* If we were called to copy over info for a weak sym, that's all. */
3815 if (eind
->elf
.root
.type
!= bfd_link_hash_indirect
)
3818 /* Copy over got entries that we may have already seen to the
3819 symbol which just became indirect. */
3820 if (eind
->elf
.got
.glist
!= NULL
)
3822 if (edir
->elf
.got
.glist
!= NULL
)
3824 struct got_entry
**entp
;
3825 struct got_entry
*ent
;
3827 for (entp
= &eind
->elf
.got
.glist
; (ent
= *entp
) != NULL
; )
3829 struct got_entry
*dent
;
3831 for (dent
= edir
->elf
.got
.glist
; dent
!= NULL
; dent
= dent
->next
)
3832 if (dent
->addend
== ent
->addend
3833 && dent
->owner
== ent
->owner
3834 && dent
->tls_type
== ent
->tls_type
)
3836 dent
->got
.refcount
+= ent
->got
.refcount
;
3843 *entp
= edir
->elf
.got
.glist
;
3846 edir
->elf
.got
.glist
= eind
->elf
.got
.glist
;
3847 eind
->elf
.got
.glist
= NULL
;
3850 /* And plt entries. */
3851 if (eind
->elf
.plt
.plist
!= NULL
)
3853 if (edir
->elf
.plt
.plist
!= NULL
)
3855 struct plt_entry
**entp
;
3856 struct plt_entry
*ent
;
3858 for (entp
= &eind
->elf
.plt
.plist
; (ent
= *entp
) != NULL
; )
3860 struct plt_entry
*dent
;
3862 for (dent
= edir
->elf
.plt
.plist
; dent
!= NULL
; dent
= dent
->next
)
3863 if (dent
->addend
== ent
->addend
)
3865 dent
->plt
.refcount
+= ent
->plt
.refcount
;
3872 *entp
= edir
->elf
.plt
.plist
;
3875 edir
->elf
.plt
.plist
= eind
->elf
.plt
.plist
;
3876 eind
->elf
.plt
.plist
= NULL
;
3879 if (edir
->elf
.dynindx
== -1)
3881 edir
->elf
.dynindx
= eind
->elf
.dynindx
;
3882 edir
->elf
.dynstr_index
= eind
->elf
.dynstr_index
;
3883 eind
->elf
.dynindx
= -1;
3884 eind
->elf
.dynstr_index
= 0;
3887 BFD_ASSERT (eind
->elf
.dynindx
== -1);
3890 /* Find the function descriptor hash entry from the given function code
3891 hash entry FH. Link the entries via their OH fields. */
3893 static struct ppc_link_hash_entry
*
3894 get_fdh (struct ppc_link_hash_entry
*fh
, struct ppc_link_hash_table
*htab
)
3896 struct ppc_link_hash_entry
*fdh
= fh
->oh
;
3900 const char *fd_name
= fh
->elf
.root
.root
.string
+ 1;
3902 fdh
= (struct ppc_link_hash_entry
*)
3903 elf_link_hash_lookup (&htab
->elf
, fd_name
, FALSE
, FALSE
, FALSE
);
3906 fdh
->is_func_descriptor
= 1;
3916 /* Hacks to support old ABI code.
3917 When making function calls, old ABI code references function entry
3918 points (dot symbols), while new ABI code references the function
3919 descriptor symbol. We need to make any combination of reference and
3920 definition work together, without breaking archive linking.
3922 For a defined function "foo" and an undefined call to "bar":
3923 An old object defines "foo" and ".foo", references ".bar" (possibly
3925 A new object defines "foo" and references "bar".
3927 A new object thus has no problem with its undefined symbols being
3928 satisfied by definitions in an old object. On the other hand, the
3929 old object won't have ".bar" satisfied by a new object. */
3931 /* Fix function descriptor symbols defined in .opd sections to be
3935 ppc64_elf_add_symbol_hook (bfd
*ibfd ATTRIBUTE_UNUSED
,
3936 struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
3937 Elf_Internal_Sym
*isym
,
3938 const char **name ATTRIBUTE_UNUSED
,
3939 flagword
*flags ATTRIBUTE_UNUSED
,
3941 bfd_vma
*value ATTRIBUTE_UNUSED
)
3944 && strcmp (bfd_get_section_name (ibfd
, *sec
), ".opd") == 0)
3945 isym
->st_info
= ELF_ST_INFO (ELF_ST_BIND (isym
->st_info
), STT_FUNC
);
3949 /* This function makes an old ABI object reference to ".bar" cause the
3950 inclusion of a new ABI object archive that defines "bar". */
3952 static struct elf_link_hash_entry
*
3953 ppc64_elf_archive_symbol_lookup (bfd
*abfd
,
3954 struct bfd_link_info
*info
,
3957 struct elf_link_hash_entry
*h
;
3961 h
= _bfd_elf_archive_symbol_lookup (abfd
, info
, name
);
3968 len
= strlen (name
);
3969 dot_name
= bfd_alloc (abfd
, len
+ 2);
3970 if (dot_name
== NULL
)
3971 return (struct elf_link_hash_entry
*) 0 - 1;
3973 memcpy (dot_name
+ 1, name
, len
+ 1);
3974 h
= _bfd_elf_archive_symbol_lookup (abfd
, info
, dot_name
);
3975 bfd_release (abfd
, dot_name
);
3979 /* This function satisfies all old ABI object references to ".bar" if a
3980 new ABI object defines "bar". Well, at least, undefined dot symbols
3981 are made weak. This stops later archive searches from including an
3982 object if we already have a function descriptor definition. It also
3983 prevents the linker complaining about undefined symbols.
3984 We also check and correct mismatched symbol visibility here. The
3985 most restrictive visibility of the function descriptor and the
3986 function entry symbol is used. */
3989 add_symbol_adjust (struct elf_link_hash_entry
*h
, void *inf
)
3991 struct bfd_link_info
*info
;
3992 struct ppc_link_hash_table
*htab
;
3993 struct ppc_link_hash_entry
*eh
;
3994 struct ppc_link_hash_entry
*fdh
;
3996 if (h
->root
.type
== bfd_link_hash_indirect
)
3999 if (h
->root
.type
== bfd_link_hash_warning
)
4000 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
4002 if (h
->root
.root
.string
[0] != '.')
4006 htab
= ppc_hash_table (info
);
4007 eh
= (struct ppc_link_hash_entry
*) h
;
4008 fdh
= get_fdh (eh
, htab
);
4011 unsigned entry_vis
= ELF_ST_VISIBILITY (eh
->elf
.other
) - 1;
4012 unsigned descr_vis
= ELF_ST_VISIBILITY (fdh
->elf
.other
) - 1;
4013 if (entry_vis
< descr_vis
)
4014 fdh
->elf
.other
+= entry_vis
- descr_vis
;
4015 else if (entry_vis
> descr_vis
)
4016 eh
->elf
.other
+= descr_vis
- entry_vis
;
4018 if (eh
->elf
.root
.type
== bfd_link_hash_undefined
)
4020 eh
->elf
.root
.type
= bfd_link_hash_undefweak
;
4021 eh
->was_undefined
= 1;
4022 htab
->twiddled_syms
= 1;
4030 ppc64_elf_check_directives (bfd
*abfd ATTRIBUTE_UNUSED
,
4031 struct bfd_link_info
*info
)
4033 struct ppc_link_hash_table
*htab
;
4034 extern const bfd_target bfd_elf64_powerpc_vec
;
4035 extern const bfd_target bfd_elf64_powerpcle_vec
;
4037 htab
= ppc_hash_table (info
);
4038 if (htab
->elf
.root
.creator
!= &bfd_elf64_powerpc_vec
4039 && htab
->elf
.root
.creator
!= &bfd_elf64_powerpcle_vec
)
4042 elf_link_hash_traverse (&htab
->elf
, add_symbol_adjust
, info
);
4044 /* We need to fix the undefs list for any syms we have twiddled to
4046 if (htab
->twiddled_syms
)
4048 struct bfd_link_hash_entry
**pun
;
4050 pun
= &htab
->elf
.root
.undefs
;
4051 while (*pun
!= NULL
)
4053 struct bfd_link_hash_entry
*h
= *pun
;
4055 if (h
->type
!= bfd_link_hash_undefined
4056 && h
->type
!= bfd_link_hash_common
)
4060 if (h
== htab
->elf
.root
.undefs_tail
)
4062 if (pun
== &htab
->elf
.root
.undefs
)
4063 htab
->elf
.root
.undefs_tail
= NULL
;
4065 /* pun points at an und_next field. Go back to
4066 the start of the link_hash_entry. */
4067 htab
->elf
.root
.undefs_tail
= (struct bfd_link_hash_entry
*)
4068 ((char *) pun
- ((char *) &h
->und_next
- (char *) h
));
4076 htab
->twiddled_syms
= 0;
4082 update_local_sym_info (bfd
*abfd
, Elf_Internal_Shdr
*symtab_hdr
,
4083 unsigned long r_symndx
, bfd_vma r_addend
, int tls_type
)
4085 struct got_entry
**local_got_ents
= elf_local_got_ents (abfd
);
4086 char *local_got_tls_masks
;
4088 if (local_got_ents
== NULL
)
4090 bfd_size_type size
= symtab_hdr
->sh_info
;
4092 size
*= sizeof (*local_got_ents
) + sizeof (*local_got_tls_masks
);
4093 local_got_ents
= bfd_zalloc (abfd
, size
);
4094 if (local_got_ents
== NULL
)
4096 elf_local_got_ents (abfd
) = local_got_ents
;
4099 if ((tls_type
& TLS_EXPLICIT
) == 0)
4101 struct got_entry
*ent
;
4103 for (ent
= local_got_ents
[r_symndx
]; ent
!= NULL
; ent
= ent
->next
)
4104 if (ent
->addend
== r_addend
4105 && ent
->owner
== abfd
4106 && ent
->tls_type
== tls_type
)
4110 bfd_size_type amt
= sizeof (*ent
);
4111 ent
= bfd_alloc (abfd
, amt
);
4114 ent
->next
= local_got_ents
[r_symndx
];
4115 ent
->addend
= r_addend
;
4117 ent
->tls_type
= tls_type
;
4118 ent
->got
.refcount
= 0;
4119 local_got_ents
[r_symndx
] = ent
;
4121 ent
->got
.refcount
+= 1;
4124 local_got_tls_masks
= (char *) (local_got_ents
+ symtab_hdr
->sh_info
);
4125 local_got_tls_masks
[r_symndx
] |= tls_type
;
4130 update_plt_info (bfd
*abfd
, struct ppc_link_hash_entry
*eh
, bfd_vma addend
)
4132 struct plt_entry
*ent
;
4134 for (ent
= eh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
4135 if (ent
->addend
== addend
)
4139 bfd_size_type amt
= sizeof (*ent
);
4140 ent
= bfd_alloc (abfd
, amt
);
4143 ent
->next
= eh
->elf
.plt
.plist
;
4144 ent
->addend
= addend
;
4145 ent
->plt
.refcount
= 0;
4146 eh
->elf
.plt
.plist
= ent
;
4148 ent
->plt
.refcount
+= 1;
4149 eh
->elf
.elf_link_hash_flags
|= ELF_LINK_HASH_NEEDS_PLT
;
4154 /* Look through the relocs for a section during the first phase, and
4155 calculate needed space in the global offset table, procedure
4156 linkage table, and dynamic reloc sections. */
4159 ppc64_elf_check_relocs (bfd
*abfd
, struct bfd_link_info
*info
,
4160 asection
*sec
, const Elf_Internal_Rela
*relocs
)
4162 struct ppc_link_hash_table
*htab
;
4163 Elf_Internal_Shdr
*symtab_hdr
;
4164 struct elf_link_hash_entry
**sym_hashes
, **sym_hashes_end
;
4165 const Elf_Internal_Rela
*rel
;
4166 const Elf_Internal_Rela
*rel_end
;
4168 asection
**opd_sym_map
;
4170 if (info
->relocatable
)
4173 /* Don't do anything special with non-loaded, non-alloced sections.
4174 In particular, any relocs in such sections should not affect GOT
4175 and PLT reference counting (ie. we don't allow them to create GOT
4176 or PLT entries), there's no possibility or desire to optimize TLS
4177 relocs, and there's not much point in propagating relocs to shared
4178 libs that the dynamic linker won't relocate. */
4179 if ((sec
->flags
& SEC_ALLOC
) == 0)
4182 htab
= ppc_hash_table (info
);
4183 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
4185 sym_hashes
= elf_sym_hashes (abfd
);
4186 sym_hashes_end
= (sym_hashes
4187 + symtab_hdr
->sh_size
/ sizeof (Elf64_External_Sym
)
4188 - symtab_hdr
->sh_info
);
4192 if (strcmp (bfd_get_section_name (abfd
, sec
), ".opd") == 0)
4194 /* Garbage collection needs some extra help with .opd sections.
4195 We don't want to necessarily keep everything referenced by
4196 relocs in .opd, as that would keep all functions. Instead,
4197 if we reference an .opd symbol (a function descriptor), we
4198 want to keep the function code symbol's section. This is
4199 easy for global symbols, but for local syms we need to keep
4200 information about the associated function section. Later, if
4201 edit_opd deletes entries, we'll use this array to adjust
4202 local syms in .opd. */
4204 asection
*func_section
;
4209 amt
= sec
->size
* sizeof (union opd_info
) / 8;
4210 opd_sym_map
= bfd_zalloc (abfd
, amt
);
4211 if (opd_sym_map
== NULL
)
4213 ppc64_elf_section_data (sec
)->opd
.func_sec
= opd_sym_map
;
4216 if (htab
->sfpr
== NULL
4217 && !create_linkage_sections (htab
->elf
.dynobj
, info
))
4220 rel_end
= relocs
+ sec
->reloc_count
;
4221 for (rel
= relocs
; rel
< rel_end
; rel
++)
4223 unsigned long r_symndx
;
4224 struct elf_link_hash_entry
*h
;
4225 enum elf_ppc64_reloc_type r_type
;
4228 r_symndx
= ELF64_R_SYM (rel
->r_info
);
4229 if (r_symndx
< symtab_hdr
->sh_info
)
4232 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
4234 r_type
= ELF64_R_TYPE (rel
->r_info
);
4237 case R_PPC64_GOT_TLSLD16
:
4238 case R_PPC64_GOT_TLSLD16_LO
:
4239 case R_PPC64_GOT_TLSLD16_HI
:
4240 case R_PPC64_GOT_TLSLD16_HA
:
4241 ppc64_tlsld_got (abfd
)->refcount
+= 1;
4242 tls_type
= TLS_TLS
| TLS_LD
;
4245 case R_PPC64_GOT_TLSGD16
:
4246 case R_PPC64_GOT_TLSGD16_LO
:
4247 case R_PPC64_GOT_TLSGD16_HI
:
4248 case R_PPC64_GOT_TLSGD16_HA
:
4249 tls_type
= TLS_TLS
| TLS_GD
;
4252 case R_PPC64_GOT_TPREL16_DS
:
4253 case R_PPC64_GOT_TPREL16_LO_DS
:
4254 case R_PPC64_GOT_TPREL16_HI
:
4255 case R_PPC64_GOT_TPREL16_HA
:
4257 info
->flags
|= DF_STATIC_TLS
;
4258 tls_type
= TLS_TLS
| TLS_TPREL
;
4261 case R_PPC64_GOT_DTPREL16_DS
:
4262 case R_PPC64_GOT_DTPREL16_LO_DS
:
4263 case R_PPC64_GOT_DTPREL16_HI
:
4264 case R_PPC64_GOT_DTPREL16_HA
:
4265 tls_type
= TLS_TLS
| TLS_DTPREL
;
4267 sec
->has_tls_reloc
= 1;
4271 case R_PPC64_GOT16_DS
:
4272 case R_PPC64_GOT16_HA
:
4273 case R_PPC64_GOT16_HI
:
4274 case R_PPC64_GOT16_LO
:
4275 case R_PPC64_GOT16_LO_DS
:
4276 /* This symbol requires a global offset table entry. */
4277 sec
->has_gp_reloc
= 1;
4278 if (ppc64_elf_tdata (abfd
)->got
== NULL
4279 && !create_got_section (abfd
, info
))
4284 struct ppc_link_hash_entry
*eh
;
4285 struct got_entry
*ent
;
4287 eh
= (struct ppc_link_hash_entry
*) h
;
4288 for (ent
= eh
->elf
.got
.glist
; ent
!= NULL
; ent
= ent
->next
)
4289 if (ent
->addend
== rel
->r_addend
4290 && ent
->owner
== abfd
4291 && ent
->tls_type
== tls_type
)
4295 bfd_size_type amt
= sizeof (*ent
);
4296 ent
= bfd_alloc (abfd
, amt
);
4299 ent
->next
= eh
->elf
.got
.glist
;
4300 ent
->addend
= rel
->r_addend
;
4302 ent
->tls_type
= tls_type
;
4303 ent
->got
.refcount
= 0;
4304 eh
->elf
.got
.glist
= ent
;
4306 ent
->got
.refcount
+= 1;
4307 eh
->tls_mask
|= tls_type
;
4310 /* This is a global offset table entry for a local symbol. */
4311 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
4312 rel
->r_addend
, tls_type
))
4316 case R_PPC64_PLT16_HA
:
4317 case R_PPC64_PLT16_HI
:
4318 case R_PPC64_PLT16_LO
:
4321 /* This symbol requires a procedure linkage table entry. We
4322 actually build the entry in adjust_dynamic_symbol,
4323 because this might be a case of linking PIC code without
4324 linking in any dynamic objects, in which case we don't
4325 need to generate a procedure linkage table after all. */
4328 /* It does not make sense to have a procedure linkage
4329 table entry for a local symbol. */
4330 bfd_set_error (bfd_error_bad_value
);
4334 if (!update_plt_info (abfd
, (struct ppc_link_hash_entry
*) h
,
4339 /* The following relocations don't need to propagate the
4340 relocation if linking a shared object since they are
4341 section relative. */
4342 case R_PPC64_SECTOFF
:
4343 case R_PPC64_SECTOFF_LO
:
4344 case R_PPC64_SECTOFF_HI
:
4345 case R_PPC64_SECTOFF_HA
:
4346 case R_PPC64_SECTOFF_DS
:
4347 case R_PPC64_SECTOFF_LO_DS
:
4348 case R_PPC64_DTPREL16
:
4349 case R_PPC64_DTPREL16_LO
:
4350 case R_PPC64_DTPREL16_HI
:
4351 case R_PPC64_DTPREL16_HA
:
4352 case R_PPC64_DTPREL16_DS
:
4353 case R_PPC64_DTPREL16_LO_DS
:
4354 case R_PPC64_DTPREL16_HIGHER
:
4355 case R_PPC64_DTPREL16_HIGHERA
:
4356 case R_PPC64_DTPREL16_HIGHEST
:
4357 case R_PPC64_DTPREL16_HIGHESTA
:
4362 case R_PPC64_TOC16_LO
:
4363 case R_PPC64_TOC16_HI
:
4364 case R_PPC64_TOC16_HA
:
4365 case R_PPC64_TOC16_DS
:
4366 case R_PPC64_TOC16_LO_DS
:
4367 sec
->has_gp_reloc
= 1;
4370 /* This relocation describes the C++ object vtable hierarchy.
4371 Reconstruct it for later use during GC. */
4372 case R_PPC64_GNU_VTINHERIT
:
4373 if (!bfd_elf_gc_record_vtinherit (abfd
, sec
, h
, rel
->r_offset
))
4377 /* This relocation describes which C++ vtable entries are actually
4378 used. Record for later use during GC. */
4379 case R_PPC64_GNU_VTENTRY
:
4380 if (!bfd_elf_gc_record_vtentry (abfd
, sec
, h
, rel
->r_addend
))
4385 case R_PPC64_REL14_BRTAKEN
:
4386 case R_PPC64_REL14_BRNTAKEN
:
4387 htab
->has_14bit_branch
= 1;
4393 /* We may need a .plt entry if the function this reloc
4394 refers to is in a shared lib. */
4395 if (!update_plt_info (abfd
, (struct ppc_link_hash_entry
*) h
,
4398 if (h
== &htab
->tls_get_addr
->elf
4399 || h
== &htab
->tls_get_addr_fd
->elf
)
4400 sec
->has_tls_reloc
= 1;
4401 else if (htab
->tls_get_addr
== NULL
4402 && !strncmp (h
->root
.root
.string
, ".__tls_get_addr", 15)
4403 && (h
->root
.root
.string
[15] == 0
4404 || h
->root
.root
.string
[15] == '@'))
4406 htab
->tls_get_addr
= (struct ppc_link_hash_entry
*) h
;
4407 sec
->has_tls_reloc
= 1;
4409 else if (htab
->tls_get_addr_fd
== NULL
4410 && !strncmp (h
->root
.root
.string
, "__tls_get_addr", 14)
4411 && (h
->root
.root
.string
[14] == 0
4412 || h
->root
.root
.string
[14] == '@'))
4414 htab
->tls_get_addr_fd
= (struct ppc_link_hash_entry
*) h
;
4415 sec
->has_tls_reloc
= 1;
4420 case R_PPC64_TPREL64
:
4421 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_TPREL
;
4423 info
->flags
|= DF_STATIC_TLS
;
4426 case R_PPC64_DTPMOD64
:
4427 if (rel
+ 1 < rel_end
4428 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
4429 && rel
[1].r_offset
== rel
->r_offset
+ 8)
4430 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_GD
;
4432 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_LD
;
4435 case R_PPC64_DTPREL64
:
4436 tls_type
= TLS_EXPLICIT
| TLS_TLS
| TLS_DTPREL
;
4438 && rel
[-1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPMOD64
)
4439 && rel
[-1].r_offset
== rel
->r_offset
- 8)
4440 /* This is the second reloc of a dtpmod, dtprel pair.
4441 Don't mark with TLS_DTPREL. */
4445 sec
->has_tls_reloc
= 1;
4448 struct ppc_link_hash_entry
*eh
;
4449 eh
= (struct ppc_link_hash_entry
*) h
;
4450 eh
->tls_mask
|= tls_type
;
4453 if (!update_local_sym_info (abfd
, symtab_hdr
, r_symndx
,
4454 rel
->r_addend
, tls_type
))
4457 if (ppc64_elf_section_data (sec
)->t_symndx
== NULL
)
4459 /* One extra to simplify get_tls_mask. */
4460 bfd_size_type amt
= sec
->size
* sizeof (unsigned) / 8 + 1;
4461 ppc64_elf_section_data (sec
)->t_symndx
= bfd_zalloc (abfd
, amt
);
4462 if (ppc64_elf_section_data (sec
)->t_symndx
== NULL
)
4465 BFD_ASSERT (rel
->r_offset
% 8 == 0);
4466 ppc64_elf_section_data (sec
)->t_symndx
[rel
->r_offset
/ 8] = r_symndx
;
4468 /* Mark the second slot of a GD or LD entry.
4469 -1 to indicate GD and -2 to indicate LD. */
4470 if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_GD
))
4471 ppc64_elf_section_data (sec
)->t_symndx
[rel
->r_offset
/ 8 + 1] = -1;
4472 else if (tls_type
== (TLS_EXPLICIT
| TLS_TLS
| TLS_LD
))
4473 ppc64_elf_section_data (sec
)->t_symndx
[rel
->r_offset
/ 8 + 1] = -2;
4476 case R_PPC64_TPREL16
:
4477 case R_PPC64_TPREL16_LO
:
4478 case R_PPC64_TPREL16_HI
:
4479 case R_PPC64_TPREL16_HA
:
4480 case R_PPC64_TPREL16_DS
:
4481 case R_PPC64_TPREL16_LO_DS
:
4482 case R_PPC64_TPREL16_HIGHER
:
4483 case R_PPC64_TPREL16_HIGHERA
:
4484 case R_PPC64_TPREL16_HIGHEST
:
4485 case R_PPC64_TPREL16_HIGHESTA
:
4488 info
->flags
|= DF_STATIC_TLS
;
4493 case R_PPC64_ADDR64
:
4494 if (opd_sym_map
!= NULL
4495 && rel
+ 1 < rel_end
4496 && ELF64_R_TYPE ((rel
+ 1)->r_info
) == R_PPC64_TOC
)
4500 if (h
->root
.root
.string
[0] == '.'
4501 && h
->root
.root
.string
[1] != 0
4502 && get_fdh ((struct ppc_link_hash_entry
*) h
, htab
))
4505 ((struct ppc_link_hash_entry
*) h
)->is_func
= 1;
4511 s
= bfd_section_from_r_symndx (abfd
, &htab
->sym_sec
, sec
,
4516 opd_sym_map
[rel
->r_offset
/ 8] = s
;
4524 case R_PPC64_ADDR14
:
4525 case R_PPC64_ADDR14_BRNTAKEN
:
4526 case R_PPC64_ADDR14_BRTAKEN
:
4527 case R_PPC64_ADDR16
:
4528 case R_PPC64_ADDR16_DS
:
4529 case R_PPC64_ADDR16_HA
:
4530 case R_PPC64_ADDR16_HI
:
4531 case R_PPC64_ADDR16_HIGHER
:
4532 case R_PPC64_ADDR16_HIGHERA
:
4533 case R_PPC64_ADDR16_HIGHEST
:
4534 case R_PPC64_ADDR16_HIGHESTA
:
4535 case R_PPC64_ADDR16_LO
:
4536 case R_PPC64_ADDR16_LO_DS
:
4537 case R_PPC64_ADDR24
:
4538 case R_PPC64_ADDR32
:
4539 case R_PPC64_UADDR16
:
4540 case R_PPC64_UADDR32
:
4541 case R_PPC64_UADDR64
:
4543 if (h
!= NULL
&& !info
->shared
)
4544 /* We may need a copy reloc. */
4545 h
->elf_link_hash_flags
|= ELF_LINK_NON_GOT_REF
;
4547 /* Don't propagate .opd relocs. */
4548 if (NO_OPD_RELOCS
&& opd_sym_map
!= NULL
)
4551 /* If we are creating a shared library, and this is a reloc
4552 against a global symbol, or a non PC relative reloc
4553 against a local symbol, then we need to copy the reloc
4554 into the shared library. However, if we are linking with
4555 -Bsymbolic, we do not need to copy a reloc against a
4556 global symbol which is defined in an object we are
4557 including in the link (i.e., DEF_REGULAR is set). At
4558 this point we have not seen all the input files, so it is
4559 possible that DEF_REGULAR is not set now but will be set
4560 later (it is never cleared). In case of a weak definition,
4561 DEF_REGULAR may be cleared later by a strong definition in
4562 a shared library. We account for that possibility below by
4563 storing information in the dyn_relocs field of the hash
4564 table entry. A similar situation occurs when creating
4565 shared libraries and symbol visibility changes render the
4568 If on the other hand, we are creating an executable, we
4569 may need to keep relocations for symbols satisfied by a
4570 dynamic library if we manage to avoid copy relocs for the
4574 && (MUST_BE_DYN_RELOC (r_type
)
4576 && (! info
->symbolic
4577 || h
->root
.type
== bfd_link_hash_defweak
4578 || (h
->elf_link_hash_flags
4579 & ELF_LINK_HASH_DEF_REGULAR
) == 0))))
4580 || (ELIMINATE_COPY_RELOCS
4583 && (h
->root
.type
== bfd_link_hash_defweak
4584 || (h
->elf_link_hash_flags
4585 & ELF_LINK_HASH_DEF_REGULAR
) == 0)))
4587 struct ppc_dyn_relocs
*p
;
4588 struct ppc_dyn_relocs
**head
;
4590 /* We must copy these reloc types into the output file.
4591 Create a reloc section in dynobj and make room for
4598 name
= (bfd_elf_string_from_elf_section
4600 elf_elfheader (abfd
)->e_shstrndx
,
4601 elf_section_data (sec
)->rel_hdr
.sh_name
));
4605 if (strncmp (name
, ".rela", 5) != 0
4606 || strcmp (bfd_get_section_name (abfd
, sec
),
4609 (*_bfd_error_handler
)
4610 (_("%B: bad relocation section name `%s\'"),
4612 bfd_set_error (bfd_error_bad_value
);
4615 dynobj
= htab
->elf
.dynobj
;
4616 sreloc
= bfd_get_section_by_name (dynobj
, name
);
4621 sreloc
= bfd_make_section (dynobj
, name
);
4622 flags
= (SEC_HAS_CONTENTS
| SEC_READONLY
4623 | SEC_IN_MEMORY
| SEC_LINKER_CREATED
);
4624 if ((sec
->flags
& SEC_ALLOC
) != 0)
4625 flags
|= SEC_ALLOC
| SEC_LOAD
;
4627 || ! bfd_set_section_flags (dynobj
, sreloc
, flags
)
4628 || ! bfd_set_section_alignment (dynobj
, sreloc
, 3))
4631 elf_section_data (sec
)->sreloc
= sreloc
;
4634 /* If this is a global symbol, we count the number of
4635 relocations we need for this symbol. */
4638 head
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
4642 /* Track dynamic relocs needed for local syms too.
4643 We really need local syms available to do this
4647 s
= bfd_section_from_r_symndx (abfd
, &htab
->sym_sec
,
4652 head
= ((struct ppc_dyn_relocs
**)
4653 &elf_section_data (s
)->local_dynrel
);
4657 if (p
== NULL
|| p
->sec
!= sec
)
4659 p
= bfd_alloc (htab
->elf
.dynobj
, sizeof *p
);
4670 if (!MUST_BE_DYN_RELOC (r_type
))
4683 /* OFFSET in OPD_SEC specifies a function descriptor. Return the address
4684 of the code entry point, and its section. */
4687 opd_entry_value (asection
*opd_sec
,
4689 asection
**code_sec
,
4692 bfd
*opd_bfd
= opd_sec
->owner
;
4693 Elf_Internal_Rela
*lo
, *hi
, *look
;
4695 /* Go find the opd reloc at the sym address. */
4696 lo
= _bfd_elf_link_read_relocs (opd_bfd
, opd_sec
, NULL
, NULL
, TRUE
);
4697 BFD_ASSERT (lo
!= NULL
);
4698 hi
= lo
+ opd_sec
->reloc_count
- 1; /* ignore last reloc */
4702 look
= lo
+ (hi
- lo
) / 2;
4703 if (look
->r_offset
< offset
)
4705 else if (look
->r_offset
> offset
)
4709 Elf_Internal_Shdr
*symtab_hdr
= &elf_tdata (opd_bfd
)->symtab_hdr
;
4710 if (ELF64_R_TYPE (look
->r_info
) == R_PPC64_ADDR64
4711 && ELF64_R_TYPE ((look
+ 1)->r_info
) == R_PPC64_TOC
)
4713 unsigned long symndx
= ELF64_R_SYM (look
->r_info
);
4717 if (symndx
< symtab_hdr
->sh_info
)
4719 Elf_Internal_Sym
*sym
;
4721 sym
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
4724 sym
= bfd_elf_get_elf_syms (opd_bfd
, symtab_hdr
,
4725 symtab_hdr
->sh_info
,
4726 0, NULL
, NULL
, NULL
);
4728 return (bfd_vma
) -1;
4729 symtab_hdr
->contents
= (bfd_byte
*) sym
;
4733 val
= sym
->st_value
;
4735 if ((sym
->st_shndx
!= SHN_UNDEF
4736 && sym
->st_shndx
< SHN_LORESERVE
)
4737 || sym
->st_shndx
> SHN_HIRESERVE
)
4738 sec
= bfd_section_from_elf_index (opd_bfd
, sym
->st_shndx
);
4739 BFD_ASSERT ((sec
->flags
& SEC_MERGE
) == 0);
4743 struct elf_link_hash_entry
**sym_hashes
;
4744 struct elf_link_hash_entry
*rh
;
4746 sym_hashes
= elf_sym_hashes (opd_bfd
);
4747 rh
= sym_hashes
[symndx
- symtab_hdr
->sh_info
];
4748 while (rh
->root
.type
== bfd_link_hash_indirect
4749 || rh
->root
.type
== bfd_link_hash_warning
)
4750 rh
= ((struct elf_link_hash_entry
*) rh
->root
.u
.i
.link
);
4751 BFD_ASSERT (rh
->root
.type
== bfd_link_hash_defined
4752 || rh
->root
.type
== bfd_link_hash_defweak
);
4753 val
= rh
->root
.u
.def
.value
;
4754 sec
= rh
->root
.u
.def
.section
;
4756 val
+= look
->r_addend
;
4757 if (code_off
!= NULL
)
4759 if (code_sec
!= NULL
)
4761 if (sec
!= NULL
&& sec
->output_section
!= NULL
)
4762 val
+= sec
->output_section
->vma
+ sec
->output_offset
;
4768 return (bfd_vma
) -1;
4771 /* Return the section that should be marked against GC for a given
4775 ppc64_elf_gc_mark_hook (asection
*sec
,
4776 struct bfd_link_info
*info
,
4777 Elf_Internal_Rela
*rel
,
4778 struct elf_link_hash_entry
*h
,
4779 Elf_Internal_Sym
*sym
)
4783 /* First mark all our entry sym sections. */
4784 if (info
->gc_sym_list
!= NULL
)
4786 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
4787 struct bfd_sym_chain
*sym
= info
->gc_sym_list
;
4789 info
->gc_sym_list
= NULL
;
4792 struct ppc_link_hash_entry
*eh
;
4794 eh
= (struct ppc_link_hash_entry
*)
4795 elf_link_hash_lookup (&htab
->elf
, sym
->name
, FALSE
, FALSE
, FALSE
);
4798 if (eh
->elf
.root
.type
!= bfd_link_hash_defined
4799 && eh
->elf
.root
.type
!= bfd_link_hash_defweak
)
4802 if (eh
->is_func_descriptor
)
4803 rsec
= eh
->oh
->elf
.root
.u
.def
.section
;
4804 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
4805 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
4806 eh
->elf
.root
.u
.def
.value
,
4807 &rsec
, NULL
) != (bfd_vma
) -1)
4813 _bfd_elf_gc_mark (info
, rsec
, ppc64_elf_gc_mark_hook
);
4815 rsec
= eh
->elf
.root
.u
.def
.section
;
4817 _bfd_elf_gc_mark (info
, rsec
, ppc64_elf_gc_mark_hook
);
4821 while (sym
!= NULL
);
4824 /* Syms return NULL if we're marking .opd, so we avoid marking all
4825 function sections, as all functions are referenced in .opd. */
4827 if (get_opd_info (sec
) != NULL
)
4832 enum elf_ppc64_reloc_type r_type
;
4833 struct ppc_link_hash_entry
*eh
;
4835 r_type
= ELF64_R_TYPE (rel
->r_info
);
4838 case R_PPC64_GNU_VTINHERIT
:
4839 case R_PPC64_GNU_VTENTRY
:
4843 switch (h
->root
.type
)
4845 case bfd_link_hash_defined
:
4846 case bfd_link_hash_defweak
:
4847 eh
= (struct ppc_link_hash_entry
*) h
;
4848 if (eh
->oh
!= NULL
&& eh
->oh
->is_func_descriptor
)
4851 /* Function descriptor syms cause the associated
4852 function code sym section to be marked. */
4853 if (eh
->is_func_descriptor
)
4855 /* They also mark their opd section. */
4856 if (!eh
->elf
.root
.u
.def
.section
->gc_mark
)
4857 _bfd_elf_gc_mark (info
, eh
->elf
.root
.u
.def
.section
,
4858 ppc64_elf_gc_mark_hook
);
4860 rsec
= eh
->oh
->elf
.root
.u
.def
.section
;
4862 else if (get_opd_info (eh
->elf
.root
.u
.def
.section
) != NULL
4863 && opd_entry_value (eh
->elf
.root
.u
.def
.section
,
4864 eh
->elf
.root
.u
.def
.value
,
4865 &rsec
, NULL
) != (bfd_vma
) -1)
4867 if (!eh
->elf
.root
.u
.def
.section
->gc_mark
)
4868 _bfd_elf_gc_mark (info
, eh
->elf
.root
.u
.def
.section
,
4869 ppc64_elf_gc_mark_hook
);
4872 rsec
= h
->root
.u
.def
.section
;
4875 case bfd_link_hash_common
:
4876 rsec
= h
->root
.u
.c
.p
->section
;
4886 asection
**opd_sym_section
;
4888 rsec
= bfd_section_from_elf_index (sec
->owner
, sym
->st_shndx
);
4889 opd_sym_section
= get_opd_info (rsec
);
4890 if (opd_sym_section
!= NULL
)
4893 _bfd_elf_gc_mark (info
, rsec
, ppc64_elf_gc_mark_hook
);
4895 rsec
= opd_sym_section
[sym
->st_value
/ 8];
4902 /* Update the .got, .plt. and dynamic reloc reference counts for the
4903 section being removed. */
4906 ppc64_elf_gc_sweep_hook (bfd
*abfd
, struct bfd_link_info
*info
,
4907 asection
*sec
, const Elf_Internal_Rela
*relocs
)
4909 struct ppc_link_hash_table
*htab
;
4910 Elf_Internal_Shdr
*symtab_hdr
;
4911 struct elf_link_hash_entry
**sym_hashes
;
4912 struct got_entry
**local_got_ents
;
4913 const Elf_Internal_Rela
*rel
, *relend
;
4915 if ((sec
->flags
& SEC_ALLOC
) == 0)
4918 elf_section_data (sec
)->local_dynrel
= NULL
;
4920 htab
= ppc_hash_table (info
);
4921 symtab_hdr
= &elf_tdata (abfd
)->symtab_hdr
;
4922 sym_hashes
= elf_sym_hashes (abfd
);
4923 local_got_ents
= elf_local_got_ents (abfd
);
4925 relend
= relocs
+ sec
->reloc_count
;
4926 for (rel
= relocs
; rel
< relend
; rel
++)
4928 unsigned long r_symndx
;
4929 enum elf_ppc64_reloc_type r_type
;
4930 struct elf_link_hash_entry
*h
= NULL
;
4933 r_symndx
= ELF64_R_SYM (rel
->r_info
);
4934 r_type
= ELF64_R_TYPE (rel
->r_info
);
4935 if (r_symndx
>= symtab_hdr
->sh_info
)
4937 struct ppc_link_hash_entry
*eh
;
4938 struct ppc_dyn_relocs
**pp
;
4939 struct ppc_dyn_relocs
*p
;
4941 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
4942 eh
= (struct ppc_link_hash_entry
*) h
;
4944 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; pp
= &p
->next
)
4947 /* Everything must go for SEC. */
4955 case R_PPC64_GOT_TLSLD16
:
4956 case R_PPC64_GOT_TLSLD16_LO
:
4957 case R_PPC64_GOT_TLSLD16_HI
:
4958 case R_PPC64_GOT_TLSLD16_HA
:
4959 ppc64_tlsld_got (abfd
)->refcount
-= 1;
4960 tls_type
= TLS_TLS
| TLS_LD
;
4963 case R_PPC64_GOT_TLSGD16
:
4964 case R_PPC64_GOT_TLSGD16_LO
:
4965 case R_PPC64_GOT_TLSGD16_HI
:
4966 case R_PPC64_GOT_TLSGD16_HA
:
4967 tls_type
= TLS_TLS
| TLS_GD
;
4970 case R_PPC64_GOT_TPREL16_DS
:
4971 case R_PPC64_GOT_TPREL16_LO_DS
:
4972 case R_PPC64_GOT_TPREL16_HI
:
4973 case R_PPC64_GOT_TPREL16_HA
:
4974 tls_type
= TLS_TLS
| TLS_TPREL
;
4977 case R_PPC64_GOT_DTPREL16_DS
:
4978 case R_PPC64_GOT_DTPREL16_LO_DS
:
4979 case R_PPC64_GOT_DTPREL16_HI
:
4980 case R_PPC64_GOT_DTPREL16_HA
:
4981 tls_type
= TLS_TLS
| TLS_DTPREL
;
4985 case R_PPC64_GOT16_DS
:
4986 case R_PPC64_GOT16_HA
:
4987 case R_PPC64_GOT16_HI
:
4988 case R_PPC64_GOT16_LO
:
4989 case R_PPC64_GOT16_LO_DS
:
4992 struct got_entry
*ent
;
4997 ent
= local_got_ents
[r_symndx
];
4999 for (; ent
!= NULL
; ent
= ent
->next
)
5000 if (ent
->addend
== rel
->r_addend
5001 && ent
->owner
== abfd
5002 && ent
->tls_type
== tls_type
)
5006 if (ent
->got
.refcount
> 0)
5007 ent
->got
.refcount
-= 1;
5011 case R_PPC64_PLT16_HA
:
5012 case R_PPC64_PLT16_HI
:
5013 case R_PPC64_PLT16_LO
:
5017 case R_PPC64_REL14_BRNTAKEN
:
5018 case R_PPC64_REL14_BRTAKEN
:
5022 struct plt_entry
*ent
;
5024 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
5025 if (ent
->addend
== rel
->r_addend
)
5029 if (ent
->plt
.refcount
> 0)
5030 ent
->plt
.refcount
-= 1;
5041 /* Called via elf_link_hash_traverse to transfer dynamic linking
5042 information on function code symbol entries to their corresponding
5043 function descriptor symbol entries. */
5045 func_desc_adjust (struct elf_link_hash_entry
*h
, void *inf
)
5047 struct bfd_link_info
*info
;
5048 struct ppc_link_hash_table
*htab
;
5049 struct plt_entry
*ent
;
5050 struct ppc_link_hash_entry
*fh
;
5051 struct ppc_link_hash_entry
*fdh
;
5052 bfd_boolean force_local
;
5054 fh
= (struct ppc_link_hash_entry
*) h
;
5055 if (fh
->elf
.root
.type
== bfd_link_hash_indirect
)
5058 if (fh
->elf
.root
.type
== bfd_link_hash_warning
)
5059 fh
= (struct ppc_link_hash_entry
*) fh
->elf
.root
.u
.i
.link
;
5062 htab
= ppc_hash_table (info
);
5064 /* Resolve undefined references to dot-symbols as the value
5065 in the function descriptor, if we have one in a regular object.
5066 This is to satisfy cases like ".quad .foo". Calls to functions
5067 in dynamic objects are handled elsewhere. */
5068 if (fh
->elf
.root
.type
== bfd_link_hash_undefweak
5069 && fh
->was_undefined
5070 && (fh
->oh
->elf
.root
.type
== bfd_link_hash_defined
5071 || fh
->oh
->elf
.root
.type
== bfd_link_hash_defweak
)
5072 && get_opd_info (fh
->oh
->elf
.root
.u
.def
.section
) != NULL
5073 && opd_entry_value (fh
->oh
->elf
.root
.u
.def
.section
,
5074 fh
->oh
->elf
.root
.u
.def
.value
,
5075 &fh
->elf
.root
.u
.def
.section
,
5076 &fh
->elf
.root
.u
.def
.value
) != (bfd_vma
) -1)
5078 fh
->elf
.root
.type
= fh
->oh
->elf
.root
.type
;
5079 fh
->elf
.elf_link_hash_flags
|= ELF_LINK_FORCED_LOCAL
;
5082 /* If this is a function code symbol, transfer dynamic linking
5083 information to the function descriptor symbol. */
5087 for (ent
= fh
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
5088 if (ent
->plt
.refcount
> 0)
5091 || fh
->elf
.root
.root
.string
[0] != '.'
5092 || fh
->elf
.root
.root
.string
[1] == '\0')
5095 /* Find the corresponding function descriptor symbol. Create it
5096 as undefined if necessary. */
5098 fdh
= get_fdh (fh
, htab
);
5100 while (fdh
->elf
.root
.type
== bfd_link_hash_indirect
5101 || fdh
->elf
.root
.type
== bfd_link_hash_warning
)
5102 fdh
= (struct ppc_link_hash_entry
*) fdh
->elf
.root
.u
.i
.link
;
5106 && (fh
->elf
.root
.type
== bfd_link_hash_undefined
5107 || fh
->elf
.root
.type
== bfd_link_hash_undefweak
))
5111 struct bfd_link_hash_entry
*bh
;
5113 abfd
= fh
->elf
.root
.u
.undef
.abfd
;
5114 newsym
= bfd_make_empty_symbol (abfd
);
5115 newsym
->name
= fh
->elf
.root
.root
.string
+ 1;
5116 newsym
->section
= bfd_und_section_ptr
;
5118 newsym
->flags
= BSF_OBJECT
;
5119 if (fh
->elf
.root
.type
== bfd_link_hash_undefweak
)
5120 newsym
->flags
|= BSF_WEAK
;
5122 bh
= &fdh
->elf
.root
;
5123 if ( !(_bfd_generic_link_add_one_symbol
5124 (info
, abfd
, newsym
->name
, newsym
->flags
,
5125 newsym
->section
, newsym
->value
, NULL
, FALSE
, FALSE
, &bh
)))
5129 fdh
= (struct ppc_link_hash_entry
*) bh
;
5130 fdh
->elf
.elf_link_hash_flags
&= ~ELF_LINK_NON_ELF
;
5132 fdh
->elf
.type
= STT_OBJECT
;
5136 && (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) == 0
5138 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0
5139 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_REF_DYNAMIC
) != 0
5140 || (fdh
->elf
.root
.type
== bfd_link_hash_undefweak
5141 && ELF_ST_VISIBILITY (fdh
->elf
.other
) == STV_DEFAULT
)))
5143 if (fdh
->elf
.dynindx
== -1)
5144 if (! bfd_elf_link_record_dynamic_symbol (info
, &fdh
->elf
))
5146 fdh
->elf
.elf_link_hash_flags
5147 |= (fh
->elf
.elf_link_hash_flags
& (ELF_LINK_HASH_REF_REGULAR
5148 | ELF_LINK_HASH_REF_DYNAMIC
5149 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
5150 | ELF_LINK_NON_GOT_REF
));
5151 if (ELF_ST_VISIBILITY (fh
->elf
.other
) == STV_DEFAULT
)
5153 struct plt_entry
**ep
= &fdh
->elf
.plt
.plist
;
5156 *ep
= fh
->elf
.plt
.plist
;
5157 fh
->elf
.plt
.plist
= NULL
;
5158 fdh
->elf
.elf_link_hash_flags
|= ELF_LINK_HASH_NEEDS_PLT
;
5160 fdh
->is_func_descriptor
= 1;
5165 /* Now that the info is on the function descriptor, clear the
5166 function code sym info. Any function code syms for which we
5167 don't have a definition in a regular file, we force local.
5168 This prevents a shared library from exporting syms that have
5169 been imported from another library. Function code syms that
5170 are really in the library we must leave global to prevent the
5171 linker dragging in a definition from a static library. */
5174 && ((fh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0
5176 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0
5177 || (fdh
->elf
.elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) != 0));
5178 _bfd_elf_link_hash_hide_symbol (info
, &fh
->elf
, force_local
);
5183 #define MIN_SAVE_FPR 14
5184 #define MAX_SAVE_FPR 31
5186 /* Called near the start of bfd_elf_size_dynamic_sections. We use
5187 this hook to a) provide some gcc support functions, and b) transfer
5188 dynamic linking information gathered so far on function code symbol
5189 entries, to their corresponding function descriptor symbol entries. */
5191 ppc64_elf_func_desc_adjust (bfd
*obfd ATTRIBUTE_UNUSED
,
5192 struct bfd_link_info
*info
)
5194 struct ppc_link_hash_table
*htab
;
5195 unsigned int lowest_savef
= MAX_SAVE_FPR
+ 2;
5196 unsigned int lowest_restf
= MAX_SAVE_FPR
+ 2;
5198 struct elf_link_hash_entry
*h
;
5202 htab
= ppc_hash_table (info
);
5204 if (htab
->sfpr
== NULL
)
5205 /* We don't have any relocs. */
5208 /* First provide any missing ._savef* and ._restf* functions. */
5209 memcpy (sym
, "._savef14", 10);
5210 for (i
= MIN_SAVE_FPR
; i
<= MAX_SAVE_FPR
; i
++)
5212 sym
[7] = i
/ 10 + '0';
5213 sym
[8] = i
% 10 + '0';
5214 h
= elf_link_hash_lookup (&htab
->elf
, sym
, FALSE
, FALSE
, TRUE
);
5216 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0)
5218 if (lowest_savef
> i
)
5220 h
->root
.type
= bfd_link_hash_defined
;
5221 h
->root
.u
.def
.section
= htab
->sfpr
;
5222 h
->root
.u
.def
.value
= (i
- lowest_savef
) * 4;
5224 h
->elf_link_hash_flags
|= ELF_LINK_HASH_DEF_REGULAR
;
5225 _bfd_elf_link_hash_hide_symbol (info
, h
, TRUE
);
5229 memcpy (sym
, "._restf14", 10);
5230 for (i
= MIN_SAVE_FPR
; i
<= MAX_SAVE_FPR
; i
++)
5232 sym
[7] = i
/ 10 + '0';
5233 sym
[8] = i
% 10 + '0';
5234 h
= elf_link_hash_lookup (&htab
->elf
, sym
, FALSE
, FALSE
, TRUE
);
5236 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0)
5238 if (lowest_restf
> i
)
5240 h
->root
.type
= bfd_link_hash_defined
;
5241 h
->root
.u
.def
.section
= htab
->sfpr
;
5242 h
->root
.u
.def
.value
= ((MAX_SAVE_FPR
+ 2 - lowest_savef
) * 4
5243 + (i
- lowest_restf
) * 4);
5245 h
->elf_link_hash_flags
|= ELF_LINK_HASH_DEF_REGULAR
;
5246 _bfd_elf_link_hash_hide_symbol (info
, h
, TRUE
);
5250 elf_link_hash_traverse (&htab
->elf
, func_desc_adjust
, info
);
5252 htab
->sfpr
->size
= ((MAX_SAVE_FPR
+ 2 - lowest_savef
) * 4
5253 + (MAX_SAVE_FPR
+ 2 - lowest_restf
) * 4);
5255 if (htab
->sfpr
->size
== 0)
5257 _bfd_strip_section_from_output (info
, htab
->sfpr
);
5261 p
= bfd_alloc (htab
->elf
.dynobj
, htab
->sfpr
->size
);
5264 htab
->sfpr
->contents
= p
;
5266 for (i
= lowest_savef
; i
<= MAX_SAVE_FPR
; i
++)
5268 unsigned int fpr
= i
<< 21;
5269 unsigned int stackoff
= (1 << 16) - (MAX_SAVE_FPR
+ 1 - i
) * 8;
5270 bfd_put_32 (htab
->elf
.dynobj
, STFD_FR0_0R1
+ fpr
+ stackoff
, p
);
5273 if (lowest_savef
<= MAX_SAVE_FPR
)
5275 bfd_put_32 (htab
->elf
.dynobj
, BLR
, p
);
5279 for (i
= lowest_restf
; i
<= MAX_SAVE_FPR
; i
++)
5281 unsigned int fpr
= i
<< 21;
5282 unsigned int stackoff
= (1 << 16) - (MAX_SAVE_FPR
+ 1 - i
) * 8;
5283 bfd_put_32 (htab
->elf
.dynobj
, LFD_FR0_0R1
+ fpr
+ stackoff
, p
);
5286 if (lowest_restf
<= MAX_SAVE_FPR
)
5287 bfd_put_32 (htab
->elf
.dynobj
, BLR
, p
);
5292 /* Adjust a symbol defined by a dynamic object and referenced by a
5293 regular object. The current definition is in some section of the
5294 dynamic object, but we're not including those sections. We have to
5295 change the definition to something the rest of the link can
5299 ppc64_elf_adjust_dynamic_symbol (struct bfd_link_info
*info
,
5300 struct elf_link_hash_entry
*h
)
5302 struct ppc_link_hash_table
*htab
;
5304 unsigned int power_of_two
;
5306 htab
= ppc_hash_table (info
);
5308 /* Deal with function syms. */
5309 if (h
->type
== STT_FUNC
5310 || (h
->elf_link_hash_flags
& ELF_LINK_HASH_NEEDS_PLT
) != 0)
5312 /* Clear procedure linkage table information for any symbol that
5313 won't need a .plt entry. */
5314 struct plt_entry
*ent
;
5315 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
5316 if (ent
->plt
.refcount
> 0)
5319 || SYMBOL_CALLS_LOCAL (info
, h
)
5320 || (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
5321 && h
->root
.type
== bfd_link_hash_undefweak
))
5323 h
->plt
.plist
= NULL
;
5324 h
->elf_link_hash_flags
&= ~ELF_LINK_HASH_NEEDS_PLT
;
5328 h
->plt
.plist
= NULL
;
5330 /* If this is a weak symbol, and there is a real definition, the
5331 processor independent code will have arranged for us to see the
5332 real definition first, and we can just use the same value. */
5333 if (h
->weakdef
!= NULL
)
5335 BFD_ASSERT (h
->weakdef
->root
.type
== bfd_link_hash_defined
5336 || h
->weakdef
->root
.type
== bfd_link_hash_defweak
);
5337 h
->root
.u
.def
.section
= h
->weakdef
->root
.u
.def
.section
;
5338 h
->root
.u
.def
.value
= h
->weakdef
->root
.u
.def
.value
;
5339 if (ELIMINATE_COPY_RELOCS
)
5340 h
->elf_link_hash_flags
5341 = ((h
->elf_link_hash_flags
& ~ELF_LINK_NON_GOT_REF
)
5342 | (h
->weakdef
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
));
5346 /* If we are creating a shared library, we must presume that the
5347 only references to the symbol are via the global offset table.
5348 For such cases we need not do anything here; the relocations will
5349 be handled correctly by relocate_section. */
5353 /* If there are no references to this symbol that do not use the
5354 GOT, we don't need to generate a copy reloc. */
5355 if ((h
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
) == 0)
5358 if (ELIMINATE_COPY_RELOCS
)
5360 struct ppc_link_hash_entry
* eh
;
5361 struct ppc_dyn_relocs
*p
;
5363 eh
= (struct ppc_link_hash_entry
*) h
;
5364 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
5366 s
= p
->sec
->output_section
;
5367 if (s
!= NULL
&& (s
->flags
& SEC_READONLY
) != 0)
5371 /* If we didn't find any dynamic relocs in read-only sections, then
5372 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
5375 h
->elf_link_hash_flags
&= ~ELF_LINK_NON_GOT_REF
;
5380 if (h
->plt
.plist
!= NULL
)
5382 /* We should never get here, but unfortunately there are versions
5383 of gcc out there that improperly (for this ABI) put initialized
5384 function pointers, vtable refs and suchlike in read-only
5385 sections. Allow them to proceed, but warn that this might
5386 break at runtime. */
5387 (*_bfd_error_handler
)
5388 (_("copy reloc against `%s' requires lazy plt linking; "
5389 "avoid setting LD_BIND_NOW=1 or upgrade gcc"),
5390 h
->root
.root
.string
);
5393 /* This is a reference to a symbol defined by a dynamic object which
5394 is not a function. */
5396 /* We must allocate the symbol in our .dynbss section, which will
5397 become part of the .bss section of the executable. There will be
5398 an entry for this symbol in the .dynsym section. The dynamic
5399 object will contain position independent code, so all references
5400 from the dynamic object to this symbol will go through the global
5401 offset table. The dynamic linker will use the .dynsym entry to
5402 determine the address it must put in the global offset table, so
5403 both the dynamic object and the regular object will refer to the
5404 same memory location for the variable. */
5406 /* We must generate a R_PPC64_COPY reloc to tell the dynamic linker
5407 to copy the initial value out of the dynamic object and into the
5408 runtime process image. We need to remember the offset into the
5409 .rela.bss section we are going to use. */
5410 if ((h
->root
.u
.def
.section
->flags
& SEC_ALLOC
) != 0)
5412 htab
->relbss
->size
+= sizeof (Elf64_External_Rela
);
5413 h
->elf_link_hash_flags
|= ELF_LINK_HASH_NEEDS_COPY
;
5416 /* We need to figure out the alignment required for this symbol. I
5417 have no idea how ELF linkers handle this. */
5418 power_of_two
= bfd_log2 (h
->size
);
5419 if (power_of_two
> 4)
5422 /* Apply the required alignment. */
5424 s
->size
= BFD_ALIGN (s
->size
, (bfd_size_type
) (1 << power_of_two
));
5425 if (power_of_two
> bfd_get_section_alignment (htab
->elf
.dynobj
, s
))
5427 if (! bfd_set_section_alignment (htab
->elf
.dynobj
, s
, power_of_two
))
5431 /* Define the symbol as being at this point in the section. */
5432 h
->root
.u
.def
.section
= s
;
5433 h
->root
.u
.def
.value
= s
->size
;
5435 /* Increment the section size to make room for the symbol. */
5441 /* If given a function descriptor symbol, hide both the function code
5442 sym and the descriptor. */
5444 ppc64_elf_hide_symbol (struct bfd_link_info
*info
,
5445 struct elf_link_hash_entry
*h
,
5446 bfd_boolean force_local
)
5448 struct ppc_link_hash_entry
*eh
;
5449 _bfd_elf_link_hash_hide_symbol (info
, h
, force_local
);
5451 eh
= (struct ppc_link_hash_entry
*) h
;
5452 if (eh
->is_func_descriptor
)
5454 struct ppc_link_hash_entry
*fh
= eh
->oh
;
5459 struct ppc_link_hash_table
*htab
;
5462 /* We aren't supposed to use alloca in BFD because on
5463 systems which do not have alloca the version in libiberty
5464 calls xmalloc, which might cause the program to crash
5465 when it runs out of memory. This function doesn't have a
5466 return status, so there's no way to gracefully return an
5467 error. So cheat. We know that string[-1] can be safely
5468 accessed; It's either a string in an ELF string table,
5469 or allocated in an objalloc structure. */
5471 p
= eh
->elf
.root
.root
.string
- 1;
5474 htab
= ppc_hash_table (info
);
5475 fh
= (struct ppc_link_hash_entry
*)
5476 elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
5479 /* Unfortunately, if it so happens that the string we were
5480 looking for was allocated immediately before this string,
5481 then we overwrote the string terminator. That's the only
5482 reason the lookup should fail. */
5485 q
= eh
->elf
.root
.root
.string
+ strlen (eh
->elf
.root
.root
.string
);
5486 while (q
>= eh
->elf
.root
.root
.string
&& *q
== *p
)
5488 if (q
< eh
->elf
.root
.root
.string
&& *p
== '.')
5489 fh
= (struct ppc_link_hash_entry
*)
5490 elf_link_hash_lookup (&htab
->elf
, p
, FALSE
, FALSE
, FALSE
);
5499 _bfd_elf_link_hash_hide_symbol (info
, &fh
->elf
, force_local
);
5504 get_sym_h (struct elf_link_hash_entry
**hp
,
5505 Elf_Internal_Sym
**symp
,
5508 Elf_Internal_Sym
**locsymsp
,
5509 unsigned long r_symndx
,
5512 Elf_Internal_Shdr
*symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
5514 if (r_symndx
>= symtab_hdr
->sh_info
)
5516 struct elf_link_hash_entry
**sym_hashes
= elf_sym_hashes (ibfd
);
5517 struct elf_link_hash_entry
*h
;
5519 h
= sym_hashes
[r_symndx
- symtab_hdr
->sh_info
];
5520 while (h
->root
.type
== bfd_link_hash_indirect
5521 || h
->root
.type
== bfd_link_hash_warning
)
5522 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
5530 if (symsecp
!= NULL
)
5532 asection
*symsec
= NULL
;
5533 if (h
->root
.type
== bfd_link_hash_defined
5534 || h
->root
.type
== bfd_link_hash_defweak
)
5535 symsec
= h
->root
.u
.def
.section
;
5539 if (tls_maskp
!= NULL
)
5541 struct ppc_link_hash_entry
*eh
;
5543 eh
= (struct ppc_link_hash_entry
*) h
;
5544 *tls_maskp
= &eh
->tls_mask
;
5549 Elf_Internal_Sym
*sym
;
5550 Elf_Internal_Sym
*locsyms
= *locsymsp
;
5552 if (locsyms
== NULL
)
5554 locsyms
= (Elf_Internal_Sym
*) symtab_hdr
->contents
;
5555 if (locsyms
== NULL
)
5556 locsyms
= bfd_elf_get_elf_syms (ibfd
, symtab_hdr
,
5557 symtab_hdr
->sh_info
,
5558 0, NULL
, NULL
, NULL
);
5559 if (locsyms
== NULL
)
5561 *locsymsp
= locsyms
;
5563 sym
= locsyms
+ r_symndx
;
5571 if (symsecp
!= NULL
)
5573 asection
*symsec
= NULL
;
5574 if ((sym
->st_shndx
!= SHN_UNDEF
5575 && sym
->st_shndx
< SHN_LORESERVE
)
5576 || sym
->st_shndx
> SHN_HIRESERVE
)
5577 symsec
= bfd_section_from_elf_index (ibfd
, sym
->st_shndx
);
5581 if (tls_maskp
!= NULL
)
5583 struct got_entry
**lgot_ents
;
5587 lgot_ents
= elf_local_got_ents (ibfd
);
5588 if (lgot_ents
!= NULL
)
5590 char *lgot_masks
= (char *) (lgot_ents
+ symtab_hdr
->sh_info
);
5591 tls_mask
= &lgot_masks
[r_symndx
];
5593 *tls_maskp
= tls_mask
;
5599 /* Returns TLS_MASKP for the given REL symbol. Function return is 0 on
5600 error, 2 on a toc GD type suitable for optimization, 3 on a toc LD
5601 type suitable for optimization, and 1 otherwise. */
5604 get_tls_mask (char **tls_maskp
, unsigned long *toc_symndx
,
5605 Elf_Internal_Sym
**locsymsp
,
5606 const Elf_Internal_Rela
*rel
, bfd
*ibfd
)
5608 unsigned long r_symndx
;
5610 struct elf_link_hash_entry
*h
;
5611 Elf_Internal_Sym
*sym
;
5615 r_symndx
= ELF64_R_SYM (rel
->r_info
);
5616 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
5619 if ((*tls_maskp
!= NULL
&& **tls_maskp
!= 0)
5621 || ppc64_elf_section_data (sec
)->t_symndx
== NULL
)
5624 /* Look inside a TOC section too. */
5627 BFD_ASSERT (h
->root
.type
== bfd_link_hash_defined
);
5628 off
= h
->root
.u
.def
.value
;
5631 off
= sym
->st_value
;
5632 off
+= rel
->r_addend
;
5633 BFD_ASSERT (off
% 8 == 0);
5634 r_symndx
= ppc64_elf_section_data (sec
)->t_symndx
[off
/ 8];
5635 next_r
= ppc64_elf_section_data (sec
)->t_symndx
[off
/ 8 + 1];
5636 if (!get_sym_h (&h
, &sym
, &sec
, tls_maskp
, locsymsp
, r_symndx
, ibfd
))
5638 if (toc_symndx
!= NULL
)
5639 *toc_symndx
= r_symndx
;
5641 || ((h
->root
.type
== bfd_link_hash_defined
5642 || h
->root
.type
== bfd_link_hash_defweak
)
5643 && !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
)))
5644 && (next_r
== -1 || next_r
== -2))
5649 /* Adjust all global syms defined in opd sections. In gcc generated
5650 code for the old ABI, these will already have been done. */
5653 adjust_opd_syms (struct elf_link_hash_entry
*h
, void *inf ATTRIBUTE_UNUSED
)
5655 struct ppc_link_hash_entry
*eh
;
5659 if (h
->root
.type
== bfd_link_hash_indirect
)
5662 if (h
->root
.type
== bfd_link_hash_warning
)
5663 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
5665 if (h
->root
.type
!= bfd_link_hash_defined
5666 && h
->root
.type
!= bfd_link_hash_defweak
)
5669 eh
= (struct ppc_link_hash_entry
*) h
;
5670 if (eh
->adjust_done
)
5673 sym_sec
= eh
->elf
.root
.u
.def
.section
;
5674 opd_adjust
= get_opd_info (sym_sec
);
5675 if (opd_adjust
!= NULL
)
5677 long adjust
= opd_adjust
[eh
->elf
.root
.u
.def
.value
/ 8];
5680 /* This entry has been deleted. */
5681 asection
*dsec
= ppc64_elf_tdata (sym_sec
->owner
)->deleted_section
;
5684 for (dsec
= sym_sec
->owner
->sections
; dsec
; dsec
= dsec
->next
)
5685 if (elf_discarded_section (dsec
))
5687 ppc64_elf_tdata (sym_sec
->owner
)->deleted_section
= dsec
;
5691 eh
->elf
.root
.u
.def
.value
= 0;
5692 eh
->elf
.root
.u
.def
.section
= dsec
;
5695 eh
->elf
.root
.u
.def
.value
+= adjust
;
5696 eh
->adjust_done
= 1;
5701 /* Remove unused Official Procedure Descriptor entries. Currently we
5702 only remove those associated with functions in discarded link-once
5703 sections, or weakly defined functions that have been overridden. It
5704 would be possible to remove many more entries for statically linked
5708 ppc64_elf_edit_opd (bfd
*obfd
, struct bfd_link_info
*info
,
5709 bfd_boolean non_overlapping
)
5712 bfd_boolean some_edited
= FALSE
;
5713 asection
*need_pad
= NULL
;
5715 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
5718 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
5719 Elf_Internal_Shdr
*symtab_hdr
;
5720 Elf_Internal_Sym
*local_syms
;
5721 struct elf_link_hash_entry
**sym_hashes
;
5725 bfd_boolean need_edit
, add_aux_fields
;
5726 bfd_size_type cnt_16b
= 0;
5728 sec
= bfd_get_section_by_name (ibfd
, ".opd");
5732 amt
= sec
->size
* sizeof (long) / 8;
5733 opd_adjust
= get_opd_info (sec
);
5734 if (opd_adjust
== NULL
)
5736 /* Must be a ld -r link. ie. check_relocs hasn't been
5738 opd_adjust
= bfd_zalloc (obfd
, amt
);
5739 ppc64_elf_section_data (sec
)->opd
.adjust
= opd_adjust
;
5741 memset (opd_adjust
, 0, amt
);
5743 if (sec
->output_section
== bfd_abs_section_ptr
)
5746 /* Look through the section relocs. */
5747 if ((sec
->flags
& SEC_RELOC
) == 0 || sec
->reloc_count
== 0)
5751 symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
5752 sym_hashes
= elf_sym_hashes (ibfd
);
5754 /* Read the relocations. */
5755 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
5757 if (relstart
== NULL
)
5760 /* First run through the relocs to check they are sane, and to
5761 determine whether we need to edit this opd section. */
5765 relend
= relstart
+ sec
->reloc_count
;
5766 for (rel
= relstart
; rel
< relend
; )
5768 enum elf_ppc64_reloc_type r_type
;
5769 unsigned long r_symndx
;
5771 struct elf_link_hash_entry
*h
;
5772 Elf_Internal_Sym
*sym
;
5774 /* .opd contains a regular array of 16 or 24 byte entries. We're
5775 only interested in the reloc pointing to a function entry
5777 if (rel
->r_offset
!= offset
5778 || rel
+ 1 >= relend
5779 || (rel
+ 1)->r_offset
!= offset
+ 8)
5781 /* If someone messes with .opd alignment then after a
5782 "ld -r" we might have padding in the middle of .opd.
5783 Also, there's nothing to prevent someone putting
5784 something silly in .opd with the assembler. No .opd
5785 optimization for them! */
5787 (*_bfd_error_handler
)
5788 (_("%B: .opd is not a regular array of opd entries"), ibfd
);
5793 if ((r_type
= ELF64_R_TYPE (rel
->r_info
)) != R_PPC64_ADDR64
5794 || (r_type
= ELF64_R_TYPE ((rel
+ 1)->r_info
)) != R_PPC64_TOC
)
5796 (*_bfd_error_handler
)
5797 (_("%B: unexpected reloc type %u in .opd section"),
5803 r_symndx
= ELF64_R_SYM (rel
->r_info
);
5804 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
5808 if (sym_sec
== NULL
|| sym_sec
->owner
== NULL
)
5810 const char *sym_name
;
5812 sym_name
= h
->root
.root
.string
;
5814 sym_name
= bfd_elf_local_sym_name (ibfd
, sym
);
5816 (*_bfd_error_handler
)
5817 (_("%B: undefined sym `%s' in .opd section"),
5823 /* opd entries are always for functions defined in the
5824 current input bfd. If the symbol isn't defined in the
5825 input bfd, then we won't be using the function in this
5826 bfd; It must be defined in a linkonce section in another
5827 bfd, or is weak. It's also possible that we are
5828 discarding the function due to a linker script /DISCARD/,
5829 which we test for via the output_section. */
5830 if (sym_sec
->owner
!= ibfd
5831 || sym_sec
->output_section
== bfd_abs_section_ptr
)
5836 || (rel
+ 1 == relend
&& rel
->r_offset
== offset
+ 16))
5838 if (sec
->size
== offset
+ 24)
5843 if (rel
== relend
&& sec
->size
== offset
+ 16)
5851 if (rel
->r_offset
== offset
+ 24)
5853 else if (rel
->r_offset
!= offset
+ 16)
5855 else if (rel
+ 1 < relend
5856 && ELF64_R_TYPE (rel
[0].r_info
) == R_PPC64_ADDR64
5857 && ELF64_R_TYPE (rel
[1].r_info
) == R_PPC64_TOC
)
5862 else if (rel
+ 2 < relend
5863 && ELF64_R_TYPE (rel
[1].r_info
) == R_PPC64_ADDR64
5864 && ELF64_R_TYPE (rel
[2].r_info
) == R_PPC64_TOC
)
5873 add_aux_fields
= non_overlapping
&& cnt_16b
> 0;
5875 if (need_edit
|| add_aux_fields
)
5877 Elf_Internal_Rela
*write_rel
;
5878 bfd_byte
*rptr
, *wptr
;
5879 bfd_byte
*new_contents
= NULL
;
5883 /* This seems a waste of time as input .opd sections are all
5884 zeros as generated by gcc, but I suppose there's no reason
5885 this will always be so. We might start putting something in
5886 the third word of .opd entries. */
5887 if ((sec
->flags
& SEC_IN_MEMORY
) == 0)
5890 if (!bfd_malloc_and_get_section (ibfd
, sec
, &loc
))
5895 if (local_syms
!= NULL
5896 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
5898 if (elf_section_data (sec
)->relocs
!= relstart
)
5902 sec
->contents
= loc
;
5903 sec
->flags
|= (SEC_IN_MEMORY
| SEC_HAS_CONTENTS
);
5906 elf_section_data (sec
)->relocs
= relstart
;
5908 wptr
= sec
->contents
;
5909 rptr
= sec
->contents
;
5910 new_contents
= sec
->contents
;
5914 new_contents
= bfd_malloc (sec
->size
+ cnt_16b
* 8);
5915 if (new_contents
== NULL
)
5918 wptr
= new_contents
;
5921 write_rel
= relstart
;
5925 for (rel
= relstart
; rel
< relend
; rel
++)
5927 unsigned long r_symndx
;
5929 struct elf_link_hash_entry
*h
;
5930 Elf_Internal_Sym
*sym
;
5932 r_symndx
= ELF64_R_SYM (rel
->r_info
);
5933 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
5937 if (rel
->r_offset
== offset
)
5939 struct ppc_link_hash_entry
*fdh
= NULL
;
5941 /* See if the .opd entry is full 24 byte or
5942 16 byte (with fd_aux entry overlapped with next
5945 if ((rel
+ 2 == relend
&& sec
->size
== offset
+ 16)
5946 || (rel
+ 3 < relend
5947 && rel
[2].r_offset
== offset
+ 16
5948 && rel
[3].r_offset
== offset
+ 24
5949 && ELF64_R_TYPE (rel
[2].r_info
) == R_PPC64_ADDR64
5950 && ELF64_R_TYPE (rel
[3].r_info
) == R_PPC64_TOC
))
5954 && h
->root
.root
.string
[0] == '.')
5955 fdh
= get_fdh ((struct ppc_link_hash_entry
*) h
,
5956 ppc_hash_table (info
));
5958 skip
= (sym_sec
->owner
!= ibfd
5959 || sym_sec
->output_section
== bfd_abs_section_ptr
);
5962 if (fdh
!= NULL
&& sym_sec
->owner
== ibfd
)
5964 /* Arrange for the function descriptor sym
5966 fdh
->elf
.root
.u
.def
.value
= 0;
5967 fdh
->elf
.root
.u
.def
.section
= sym_sec
;
5969 opd_adjust
[rel
->r_offset
/ 8] = -1;
5973 /* We'll be keeping this opd entry. */
5977 /* Redefine the function descriptor symbol to
5978 this location in the opd section. It is
5979 necessary to update the value here rather
5980 than using an array of adjustments as we do
5981 for local symbols, because various places
5982 in the generic ELF code use the value
5983 stored in u.def.value. */
5984 fdh
->elf
.root
.u
.def
.value
= wptr
- new_contents
;
5985 fdh
->adjust_done
= 1;
5988 /* Local syms are a bit tricky. We could
5989 tweak them as they can be cached, but
5990 we'd need to look through the local syms
5991 for the function descriptor sym which we
5992 don't have at the moment. So keep an
5993 array of adjustments. */
5994 opd_adjust
[rel
->r_offset
/ 8]
5995 = (wptr
- new_contents
) - (rptr
- sec
->contents
);
5998 memcpy (wptr
, rptr
, opd_ent_size
);
5999 wptr
+= opd_ent_size
;
6000 if (add_aux_fields
&& opd_ent_size
== 16)
6002 memset (wptr
, '\0', 8);
6006 rptr
+= opd_ent_size
;
6007 offset
+= opd_ent_size
;
6012 BFD_ASSERT (MUST_BE_DYN_RELOC (ELF64_R_TYPE (rel
->r_info
)));
6015 /* We won't be needing dynamic relocs here. */
6016 struct ppc_dyn_relocs
**pp
;
6017 struct ppc_dyn_relocs
*p
;
6020 pp
= &((struct ppc_link_hash_entry
*) h
)->dyn_relocs
;
6021 else if (sym_sec
!= NULL
)
6022 pp
= ((struct ppc_dyn_relocs
**)
6023 &elf_section_data (sym_sec
)->local_dynrel
);
6025 pp
= ((struct ppc_dyn_relocs
**)
6026 &elf_section_data (sec
)->local_dynrel
);
6027 while ((p
= *pp
) != NULL
)
6042 /* We need to adjust any reloc offsets to point to the
6043 new opd entries. While we're at it, we may as well
6044 remove redundant relocs. */
6045 rel
->r_offset
+= opd_adjust
[(offset
- opd_ent_size
) / 8];
6046 if (write_rel
!= rel
)
6047 memcpy (write_rel
, rel
, sizeof (*rel
));
6052 sec
->size
= wptr
- new_contents
;
6053 sec
->reloc_count
= write_rel
- relstart
;
6056 free (sec
->contents
);
6057 sec
->contents
= new_contents
;
6060 /* Fudge the size too, as this is used later in
6061 elf_bfd_final_link if we are emitting relocs. */
6062 elf_section_data (sec
)->rel_hdr
.sh_size
6063 = sec
->reloc_count
* elf_section_data (sec
)->rel_hdr
.sh_entsize
;
6064 BFD_ASSERT (elf_section_data (sec
)->rel_hdr2
== NULL
);
6067 else if (elf_section_data (sec
)->relocs
!= relstart
)
6070 if (local_syms
!= NULL
6071 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
6073 if (!info
->keep_memory
)
6076 symtab_hdr
->contents
= (unsigned char *) local_syms
;
6081 elf_link_hash_traverse (elf_hash_table (info
), adjust_opd_syms
, NULL
);
6083 /* If we are doing a final link and the last .opd entry is just 16 byte
6084 long, add a 8 byte padding after it. */
6085 if (need_pad
!= NULL
&& !info
->relocatable
)
6089 if ((need_pad
->flags
& SEC_IN_MEMORY
) == 0)
6091 BFD_ASSERT (need_pad
->size
> 0);
6093 p
= bfd_malloc (need_pad
->size
+ 8);
6097 if (! bfd_get_section_contents (need_pad
->owner
, need_pad
,
6098 p
, 0, need_pad
->size
))
6101 need_pad
->contents
= p
;
6102 need_pad
->flags
|= (SEC_IN_MEMORY
| SEC_HAS_CONTENTS
);
6106 p
= bfd_realloc (need_pad
->contents
, need_pad
->size
+ 8);
6110 need_pad
->contents
= p
;
6113 memset (need_pad
->contents
+ need_pad
->size
, 0, 8);
6114 need_pad
->size
+= 8;
6120 /* Set htab->tls_get_addr and call the generic ELF tls_setup function. */
6123 ppc64_elf_tls_setup (bfd
*obfd
, struct bfd_link_info
*info
)
6125 struct ppc_link_hash_table
*htab
;
6127 htab
= ppc_hash_table (info
);
6128 if (htab
->tls_get_addr
!= NULL
)
6130 struct ppc_link_hash_entry
*h
= htab
->tls_get_addr
;
6132 while (h
->elf
.root
.type
== bfd_link_hash_indirect
6133 || h
->elf
.root
.type
== bfd_link_hash_warning
)
6134 h
= (struct ppc_link_hash_entry
*) h
->elf
.root
.u
.i
.link
;
6136 htab
->tls_get_addr
= h
;
6138 if (htab
->tls_get_addr_fd
== NULL
6140 && h
->oh
->is_func_descriptor
)
6141 htab
->tls_get_addr_fd
= h
->oh
;
6144 if (htab
->tls_get_addr_fd
!= NULL
)
6146 struct ppc_link_hash_entry
*h
= htab
->tls_get_addr_fd
;
6148 while (h
->elf
.root
.type
== bfd_link_hash_indirect
6149 || h
->elf
.root
.type
== bfd_link_hash_warning
)
6150 h
= (struct ppc_link_hash_entry
*) h
->elf
.root
.u
.i
.link
;
6152 htab
->tls_get_addr_fd
= h
;
6155 return _bfd_elf_tls_setup (obfd
, info
);
6158 /* Run through all the TLS relocs looking for optimization
6159 opportunities. The linker has been hacked (see ppc64elf.em) to do
6160 a preliminary section layout so that we know the TLS segment
6161 offsets. We can't optimize earlier because some optimizations need
6162 to know the tp offset, and we need to optimize before allocating
6163 dynamic relocations. */
6166 ppc64_elf_tls_optimize (bfd
*obfd ATTRIBUTE_UNUSED
, struct bfd_link_info
*info
)
6170 struct ppc_link_hash_table
*htab
;
6172 if (info
->relocatable
|| info
->shared
)
6175 htab
= ppc_hash_table (info
);
6176 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
6178 Elf_Internal_Sym
*locsyms
= NULL
;
6180 for (sec
= ibfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
6181 if (sec
->has_tls_reloc
&& !bfd_is_abs_section (sec
->output_section
))
6183 Elf_Internal_Rela
*relstart
, *rel
, *relend
;
6184 int expecting_tls_get_addr
;
6186 /* Read the relocations. */
6187 relstart
= _bfd_elf_link_read_relocs (ibfd
, sec
, NULL
, NULL
,
6189 if (relstart
== NULL
)
6192 expecting_tls_get_addr
= 0;
6193 relend
= relstart
+ sec
->reloc_count
;
6194 for (rel
= relstart
; rel
< relend
; rel
++)
6196 enum elf_ppc64_reloc_type r_type
;
6197 unsigned long r_symndx
;
6198 struct elf_link_hash_entry
*h
;
6199 Elf_Internal_Sym
*sym
;
6202 char tls_set
, tls_clear
, tls_type
= 0;
6204 bfd_boolean ok_tprel
, is_local
;
6206 r_symndx
= ELF64_R_SYM (rel
->r_info
);
6207 if (!get_sym_h (&h
, &sym
, &sym_sec
, &tls_mask
, &locsyms
,
6211 if (elf_section_data (sec
)->relocs
!= relstart
)
6214 && (elf_tdata (ibfd
)->symtab_hdr
.contents
6215 != (unsigned char *) locsyms
))
6222 if (h
->root
.type
!= bfd_link_hash_defined
6223 && h
->root
.type
!= bfd_link_hash_defweak
)
6225 value
= h
->root
.u
.def
.value
;
6228 /* Symbols referenced by TLS relocs must be of type
6229 STT_TLS. So no need for .opd local sym adjust. */
6230 value
= sym
->st_value
;
6235 || !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
))
6238 value
+= sym_sec
->output_offset
;
6239 value
+= sym_sec
->output_section
->vma
;
6240 value
-= htab
->elf
.tls_sec
->vma
;
6241 ok_tprel
= (value
+ TP_OFFSET
+ ((bfd_vma
) 1 << 31)
6242 < (bfd_vma
) 1 << 32);
6245 r_type
= ELF64_R_TYPE (rel
->r_info
);
6248 case R_PPC64_GOT_TLSLD16
:
6249 case R_PPC64_GOT_TLSLD16_LO
:
6250 case R_PPC64_GOT_TLSLD16_HI
:
6251 case R_PPC64_GOT_TLSLD16_HA
:
6252 /* These relocs should never be against a symbol
6253 defined in a shared lib. Leave them alone if
6254 that turns out to be the case. */
6255 ppc64_tlsld_got (ibfd
)->refcount
-= 1;
6262 tls_type
= TLS_TLS
| TLS_LD
;
6263 expecting_tls_get_addr
= 1;
6266 case R_PPC64_GOT_TLSGD16
:
6267 case R_PPC64_GOT_TLSGD16_LO
:
6268 case R_PPC64_GOT_TLSGD16_HI
:
6269 case R_PPC64_GOT_TLSGD16_HA
:
6275 tls_set
= TLS_TLS
| TLS_TPRELGD
;
6277 tls_type
= TLS_TLS
| TLS_GD
;
6278 expecting_tls_get_addr
= 1;
6281 case R_PPC64_GOT_TPREL16_DS
:
6282 case R_PPC64_GOT_TPREL16_LO_DS
:
6283 case R_PPC64_GOT_TPREL16_HI
:
6284 case R_PPC64_GOT_TPREL16_HA
:
6285 expecting_tls_get_addr
= 0;
6290 tls_clear
= TLS_TPREL
;
6291 tls_type
= TLS_TLS
| TLS_TPREL
;
6298 case R_PPC64_REL14_BRTAKEN
:
6299 case R_PPC64_REL14_BRNTAKEN
:
6302 && (h
== &htab
->tls_get_addr
->elf
6303 || h
== &htab
->tls_get_addr_fd
->elf
))
6305 if (!expecting_tls_get_addr
6307 && ((ELF64_R_TYPE (rel
[-1].r_info
)
6309 || (ELF64_R_TYPE (rel
[-1].r_info
)
6310 == R_PPC64_TOC16_LO
)))
6312 /* Check for toc tls entries. */
6316 retval
= get_tls_mask (&toc_tls
, NULL
, &locsyms
,
6320 if (toc_tls
!= NULL
)
6321 expecting_tls_get_addr
= retval
> 1;
6324 if (expecting_tls_get_addr
)
6326 struct plt_entry
*ent
;
6327 for (ent
= h
->plt
.plist
; ent
; ent
= ent
->next
)
6328 if (ent
->addend
== 0)
6330 if (ent
->plt
.refcount
> 0)
6331 ent
->plt
.refcount
-= 1;
6336 expecting_tls_get_addr
= 0;
6339 case R_PPC64_TPREL64
:
6340 expecting_tls_get_addr
= 0;
6344 tls_set
= TLS_EXPLICIT
;
6345 tls_clear
= TLS_TPREL
;
6351 case R_PPC64_DTPMOD64
:
6352 expecting_tls_get_addr
= 0;
6353 if (rel
+ 1 < relend
6355 == ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
))
6356 && rel
[1].r_offset
== rel
->r_offset
+ 8)
6360 tls_set
= TLS_EXPLICIT
| TLS_GD
;
6363 tls_set
= TLS_EXPLICIT
| TLS_GD
| TLS_TPRELGD
;
6372 tls_set
= TLS_EXPLICIT
;
6378 expecting_tls_get_addr
= 0;
6382 if ((tls_set
& TLS_EXPLICIT
) == 0)
6384 struct got_entry
*ent
;
6386 /* Adjust got entry for this reloc. */
6390 ent
= elf_local_got_ents (ibfd
)[r_symndx
];
6392 for (; ent
!= NULL
; ent
= ent
->next
)
6393 if (ent
->addend
== rel
->r_addend
6394 && ent
->owner
== ibfd
6395 && ent
->tls_type
== tls_type
)
6402 /* We managed to get rid of a got entry. */
6403 if (ent
->got
.refcount
> 0)
6404 ent
->got
.refcount
-= 1;
6409 struct ppc_link_hash_entry
* eh
;
6410 struct ppc_dyn_relocs
**pp
;
6411 struct ppc_dyn_relocs
*p
;
6413 /* Adjust dynamic relocs. */
6414 eh
= (struct ppc_link_hash_entry
*) h
;
6415 for (pp
= &eh
->dyn_relocs
;
6420 /* If we got rid of a DTPMOD/DTPREL reloc
6421 pair then we'll lose one or two dyn
6423 if (tls_set
== (TLS_EXPLICIT
| TLS_GD
))
6432 *tls_mask
|= tls_set
;
6433 *tls_mask
&= ~tls_clear
;
6436 if (elf_section_data (sec
)->relocs
!= relstart
)
6441 && (elf_tdata (ibfd
)->symtab_hdr
.contents
6442 != (unsigned char *) locsyms
))
6444 if (!info
->keep_memory
)
6447 elf_tdata (ibfd
)->symtab_hdr
.contents
= (unsigned char *) locsyms
;
6453 /* Allocate space in .plt, .got and associated reloc sections for
6457 allocate_dynrelocs (struct elf_link_hash_entry
*h
, void *inf
)
6459 struct bfd_link_info
*info
;
6460 struct ppc_link_hash_table
*htab
;
6462 struct ppc_link_hash_entry
*eh
;
6463 struct ppc_dyn_relocs
*p
;
6464 struct got_entry
*gent
;
6466 if (h
->root
.type
== bfd_link_hash_indirect
)
6469 if (h
->root
.type
== bfd_link_hash_warning
)
6470 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
6472 info
= (struct bfd_link_info
*) inf
;
6473 htab
= ppc_hash_table (info
);
6475 if (htab
->elf
.dynamic_sections_created
6477 && WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info
->shared
, h
))
6479 struct plt_entry
*pent
;
6480 bfd_boolean doneone
= FALSE
;
6481 for (pent
= h
->plt
.plist
; pent
!= NULL
; pent
= pent
->next
)
6482 if (pent
->plt
.refcount
> 0)
6484 /* If this is the first .plt entry, make room for the special
6488 s
->size
+= PLT_INITIAL_ENTRY_SIZE
;
6490 pent
->plt
.offset
= s
->size
;
6492 /* Make room for this entry. */
6493 s
->size
+= PLT_ENTRY_SIZE
;
6495 /* Make room for the .glink code. */
6498 s
->size
+= GLINK_CALL_STUB_SIZE
;
6499 /* We need bigger stubs past index 32767. */
6500 if (s
->size
>= GLINK_CALL_STUB_SIZE
+ 32768*2*4)
6504 /* We also need to make an entry in the .rela.plt section. */
6506 s
->size
+= sizeof (Elf64_External_Rela
);
6510 pent
->plt
.offset
= (bfd_vma
) -1;
6513 h
->plt
.plist
= NULL
;
6514 h
->elf_link_hash_flags
&= ~ELF_LINK_HASH_NEEDS_PLT
;
6519 h
->plt
.plist
= NULL
;
6520 h
->elf_link_hash_flags
&= ~ELF_LINK_HASH_NEEDS_PLT
;
6523 eh
= (struct ppc_link_hash_entry
*) h
;
6524 /* Run through the TLS GD got entries first if we're changing them
6526 if ((eh
->tls_mask
& TLS_TPRELGD
) != 0)
6527 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
6528 if (gent
->got
.refcount
> 0
6529 && (gent
->tls_type
& TLS_GD
) != 0)
6531 /* This was a GD entry that has been converted to TPREL. If
6532 there happens to be a TPREL entry we can use that one. */
6533 struct got_entry
*ent
;
6534 for (ent
= h
->got
.glist
; ent
!= NULL
; ent
= ent
->next
)
6535 if (ent
->got
.refcount
> 0
6536 && (ent
->tls_type
& TLS_TPREL
) != 0
6537 && ent
->addend
== gent
->addend
6538 && ent
->owner
== gent
->owner
)
6540 gent
->got
.refcount
= 0;
6544 /* If not, then we'll be using our own TPREL entry. */
6545 if (gent
->got
.refcount
!= 0)
6546 gent
->tls_type
= TLS_TLS
| TLS_TPREL
;
6549 for (gent
= h
->got
.glist
; gent
!= NULL
; gent
= gent
->next
)
6550 if (gent
->got
.refcount
> 0)
6554 /* Make sure this symbol is output as a dynamic symbol.
6555 Undefined weak syms won't yet be marked as dynamic,
6556 nor will all TLS symbols. */
6557 if (h
->dynindx
== -1
6558 && (h
->elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) == 0)
6560 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
6564 if ((gent
->tls_type
& TLS_LD
) != 0
6565 && !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
))
6567 gent
->got
.offset
= ppc64_tlsld_got (gent
->owner
)->offset
;
6571 s
= ppc64_elf_tdata (gent
->owner
)->got
;
6572 gent
->got
.offset
= s
->size
;
6574 += (gent
->tls_type
& eh
->tls_mask
& (TLS_GD
| TLS_LD
)) ? 16 : 8;
6575 dyn
= htab
->elf
.dynamic_sections_created
;
6577 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, 0, h
))
6578 && (ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
6579 || h
->root
.type
!= bfd_link_hash_undefweak
))
6580 ppc64_elf_tdata (gent
->owner
)->relgot
->size
6581 += (gent
->tls_type
& eh
->tls_mask
& TLS_GD
6582 ? 2 * sizeof (Elf64_External_Rela
)
6583 : sizeof (Elf64_External_Rela
));
6586 gent
->got
.offset
= (bfd_vma
) -1;
6588 if (eh
->dyn_relocs
== NULL
)
6591 /* In the shared -Bsymbolic case, discard space allocated for
6592 dynamic pc-relative relocs against symbols which turn out to be
6593 defined in regular objects. For the normal shared case, discard
6594 space for relocs that have become local due to symbol visibility
6599 /* Relocs that use pc_count are those that appear on a call insn,
6600 or certain REL relocs (see MUST_BE_DYN_RELOC) that can be
6601 generated via assembly. We want calls to protected symbols to
6602 resolve directly to the function rather than going via the plt.
6603 If people want function pointer comparisons to work as expected
6604 then they should avoid writing weird assembly. */
6605 if (SYMBOL_CALLS_LOCAL (info
, h
))
6607 struct ppc_dyn_relocs
**pp
;
6609 for (pp
= &eh
->dyn_relocs
; (p
= *pp
) != NULL
; )
6611 p
->count
-= p
->pc_count
;
6620 /* Also discard relocs on undefined weak syms with non-default
6622 if (ELF_ST_VISIBILITY (h
->other
) != STV_DEFAULT
6623 && h
->root
.type
== bfd_link_hash_undefweak
)
6624 eh
->dyn_relocs
= NULL
;
6626 else if (ELIMINATE_COPY_RELOCS
)
6628 /* For the non-shared case, discard space for relocs against
6629 symbols which turn out to need copy relocs or are not
6632 if ((h
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
) == 0
6633 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0
6634 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0)
6636 /* Make sure this symbol is output as a dynamic symbol.
6637 Undefined weak syms won't yet be marked as dynamic. */
6638 if (h
->dynindx
== -1
6639 && (h
->elf_link_hash_flags
& ELF_LINK_FORCED_LOCAL
) == 0)
6641 if (! bfd_elf_link_record_dynamic_symbol (info
, h
))
6645 /* If that succeeded, we know we'll be keeping all the
6647 if (h
->dynindx
!= -1)
6651 eh
->dyn_relocs
= NULL
;
6656 /* Finally, allocate space. */
6657 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
6659 asection
*sreloc
= elf_section_data (p
->sec
)->sreloc
;
6660 sreloc
->size
+= p
->count
* sizeof (Elf64_External_Rela
);
6666 /* Find any dynamic relocs that apply to read-only sections. */
6669 readonly_dynrelocs (struct elf_link_hash_entry
*h
, void *inf
)
6671 struct ppc_link_hash_entry
*eh
;
6672 struct ppc_dyn_relocs
*p
;
6674 if (h
->root
.type
== bfd_link_hash_warning
)
6675 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
6677 eh
= (struct ppc_link_hash_entry
*) h
;
6678 for (p
= eh
->dyn_relocs
; p
!= NULL
; p
= p
->next
)
6680 asection
*s
= p
->sec
->output_section
;
6682 if (s
!= NULL
&& (s
->flags
& SEC_READONLY
) != 0)
6684 struct bfd_link_info
*info
= inf
;
6686 info
->flags
|= DF_TEXTREL
;
6688 /* Not an error, just cut short the traversal. */
6695 /* Set the sizes of the dynamic sections. */
6698 ppc64_elf_size_dynamic_sections (bfd
*output_bfd ATTRIBUTE_UNUSED
,
6699 struct bfd_link_info
*info
)
6701 struct ppc_link_hash_table
*htab
;
6707 htab
= ppc_hash_table (info
);
6708 dynobj
= htab
->elf
.dynobj
;
6712 if (htab
->elf
.dynamic_sections_created
)
6714 /* Set the contents of the .interp section to the interpreter. */
6715 if (info
->executable
)
6717 s
= bfd_get_section_by_name (dynobj
, ".interp");
6720 s
->size
= sizeof ELF_DYNAMIC_INTERPRETER
;
6721 s
->contents
= (unsigned char *) ELF_DYNAMIC_INTERPRETER
;
6725 /* Set up .got offsets for local syms, and space for local dynamic
6727 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
6729 struct got_entry
**lgot_ents
;
6730 struct got_entry
**end_lgot_ents
;
6732 bfd_size_type locsymcount
;
6733 Elf_Internal_Shdr
*symtab_hdr
;
6736 if (bfd_get_flavour (ibfd
) != bfd_target_elf_flavour
)
6739 if (ppc64_tlsld_got (ibfd
)->refcount
> 0)
6741 s
= ppc64_elf_tdata (ibfd
)->got
;
6742 ppc64_tlsld_got (ibfd
)->offset
= s
->size
;
6746 srel
= ppc64_elf_tdata (ibfd
)->relgot
;
6747 srel
->size
+= sizeof (Elf64_External_Rela
);
6751 ppc64_tlsld_got (ibfd
)->offset
= (bfd_vma
) -1;
6753 for (s
= ibfd
->sections
; s
!= NULL
; s
= s
->next
)
6755 struct ppc_dyn_relocs
*p
;
6757 for (p
= *((struct ppc_dyn_relocs
**)
6758 &elf_section_data (s
)->local_dynrel
);
6762 if (!bfd_is_abs_section (p
->sec
)
6763 && bfd_is_abs_section (p
->sec
->output_section
))
6765 /* Input section has been discarded, either because
6766 it is a copy of a linkonce section or due to
6767 linker script /DISCARD/, so we'll be discarding
6770 else if (p
->count
!= 0)
6772 srel
= elf_section_data (p
->sec
)->sreloc
;
6773 srel
->size
+= p
->count
* sizeof (Elf64_External_Rela
);
6774 if ((p
->sec
->output_section
->flags
& SEC_READONLY
) != 0)
6775 info
->flags
|= DF_TEXTREL
;
6780 lgot_ents
= elf_local_got_ents (ibfd
);
6784 symtab_hdr
= &elf_tdata (ibfd
)->symtab_hdr
;
6785 locsymcount
= symtab_hdr
->sh_info
;
6786 end_lgot_ents
= lgot_ents
+ locsymcount
;
6787 lgot_masks
= (char *) end_lgot_ents
;
6788 s
= ppc64_elf_tdata (ibfd
)->got
;
6789 srel
= ppc64_elf_tdata (ibfd
)->relgot
;
6790 for (; lgot_ents
< end_lgot_ents
; ++lgot_ents
, ++lgot_masks
)
6792 struct got_entry
*ent
;
6794 for (ent
= *lgot_ents
; ent
!= NULL
; ent
= ent
->next
)
6795 if (ent
->got
.refcount
> 0)
6797 if ((ent
->tls_type
& *lgot_masks
& TLS_LD
) != 0)
6799 if (ppc64_tlsld_got (ibfd
)->offset
== (bfd_vma
) -1)
6801 ppc64_tlsld_got (ibfd
)->offset
= s
->size
;
6804 srel
->size
+= sizeof (Elf64_External_Rela
);
6806 ent
->got
.offset
= ppc64_tlsld_got (ibfd
)->offset
;
6810 ent
->got
.offset
= s
->size
;
6811 if ((ent
->tls_type
& *lgot_masks
& TLS_GD
) != 0)
6815 srel
->size
+= 2 * sizeof (Elf64_External_Rela
);
6821 srel
->size
+= sizeof (Elf64_External_Rela
);
6826 ent
->got
.offset
= (bfd_vma
) -1;
6830 /* Allocate global sym .plt and .got entries, and space for global
6831 sym dynamic relocs. */
6832 elf_link_hash_traverse (&htab
->elf
, allocate_dynrelocs
, info
);
6834 /* We now have determined the sizes of the various dynamic sections.
6835 Allocate memory for them. */
6837 for (s
= dynobj
->sections
; s
!= NULL
; s
= s
->next
)
6839 if ((s
->flags
& SEC_LINKER_CREATED
) == 0)
6842 if (s
== htab
->brlt
|| s
== htab
->relbrlt
)
6843 /* These haven't been allocated yet; don't strip. */
6845 else if (s
== htab
->got
6847 || s
== htab
->glink
)
6849 /* Strip this section if we don't need it; see the
6852 else if (strncmp (bfd_get_section_name (dynobj
, s
), ".rela", 5) == 0)
6856 /* If we don't need this section, strip it from the
6857 output file. This is mostly to handle .rela.bss and
6858 .rela.plt. We must create both sections in
6859 create_dynamic_sections, because they must be created
6860 before the linker maps input sections to output
6861 sections. The linker does that before
6862 adjust_dynamic_symbol is called, and it is that
6863 function which decides whether anything needs to go
6864 into these sections. */
6868 if (s
!= htab
->relplt
)
6871 /* We use the reloc_count field as a counter if we need
6872 to copy relocs into the output file. */
6878 /* It's not one of our sections, so don't allocate space. */
6884 _bfd_strip_section_from_output (info
, s
);
6888 /* .plt is in the bss section. We don't initialise it. */
6892 /* Allocate memory for the section contents. We use bfd_zalloc
6893 here in case unused entries are not reclaimed before the
6894 section's contents are written out. This should not happen,
6895 but this way if it does we get a R_PPC64_NONE reloc in .rela
6896 sections instead of garbage.
6897 We also rely on the section contents being zero when writing
6899 s
->contents
= bfd_zalloc (dynobj
, s
->size
);
6900 if (s
->contents
== NULL
)
6904 for (ibfd
= info
->input_bfds
; ibfd
!= NULL
; ibfd
= ibfd
->link_next
)
6906 s
= ppc64_elf_tdata (ibfd
)->got
;
6907 if (s
!= NULL
&& s
!= htab
->got
)
6910 _bfd_strip_section_from_output (info
, s
);
6913 s
->contents
= bfd_zalloc (ibfd
, s
->size
);
6914 if (s
->contents
== NULL
)
6918 s
= ppc64_elf_tdata (ibfd
)->relgot
;
6922 _bfd_strip_section_from_output (info
, s
);
6925 s
->contents
= bfd_zalloc (ibfd
, s
->size
);
6926 if (s
->contents
== NULL
)
6934 if (htab
->elf
.dynamic_sections_created
)
6936 /* Add some entries to the .dynamic section. We fill in the
6937 values later, in ppc64_elf_finish_dynamic_sections, but we
6938 must add the entries now so that we get the correct size for
6939 the .dynamic section. The DT_DEBUG entry is filled in by the
6940 dynamic linker and used by the debugger. */
6941 #define add_dynamic_entry(TAG, VAL) \
6942 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
6944 if (info
->executable
)
6946 if (!add_dynamic_entry (DT_DEBUG
, 0))
6950 if (htab
->plt
!= NULL
&& htab
->plt
->size
!= 0)
6952 if (!add_dynamic_entry (DT_PLTGOT
, 0)
6953 || !add_dynamic_entry (DT_PLTRELSZ
, 0)
6954 || !add_dynamic_entry (DT_PLTREL
, DT_RELA
)
6955 || !add_dynamic_entry (DT_JMPREL
, 0)
6956 || !add_dynamic_entry (DT_PPC64_GLINK
, 0))
6962 if (!add_dynamic_entry (DT_PPC64_OPD
, 0)
6963 || !add_dynamic_entry (DT_PPC64_OPDSZ
, 0))
6969 if (!add_dynamic_entry (DT_RELA
, 0)
6970 || !add_dynamic_entry (DT_RELASZ
, 0)
6971 || !add_dynamic_entry (DT_RELAENT
, sizeof (Elf64_External_Rela
)))
6974 /* If any dynamic relocs apply to a read-only section,
6975 then we need a DT_TEXTREL entry. */
6976 if ((info
->flags
& DF_TEXTREL
) == 0)
6977 elf_link_hash_traverse (&htab
->elf
, readonly_dynrelocs
, info
);
6979 if ((info
->flags
& DF_TEXTREL
) != 0)
6981 if (!add_dynamic_entry (DT_TEXTREL
, 0))
6986 #undef add_dynamic_entry
6991 /* Determine the type of stub needed, if any, for a call. */
6993 static inline enum ppc_stub_type
6994 ppc_type_of_stub (asection
*input_sec
,
6995 const Elf_Internal_Rela
*rel
,
6996 struct ppc_link_hash_entry
**hash
,
6997 bfd_vma destination
)
6999 struct ppc_link_hash_entry
*h
= *hash
;
7001 bfd_vma branch_offset
;
7002 bfd_vma max_branch_offset
;
7003 enum elf_ppc64_reloc_type r_type
;
7008 && h
->oh
->is_func_descriptor
)
7011 if (h
->elf
.dynindx
!= -1)
7013 struct plt_entry
*ent
;
7015 for (ent
= h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
7016 if (ent
->addend
== rel
->r_addend
7017 && ent
->plt
.offset
!= (bfd_vma
) -1)
7020 return ppc_stub_plt_call
;
7024 if (!(h
->elf
.root
.type
== bfd_link_hash_defined
7025 || h
->elf
.root
.type
== bfd_link_hash_defweak
)
7026 || h
->elf
.root
.u
.def
.section
->output_section
== NULL
)
7027 return ppc_stub_none
;
7030 /* Determine where the call point is. */
7031 location
= (input_sec
->output_offset
7032 + input_sec
->output_section
->vma
7035 branch_offset
= destination
- location
;
7036 r_type
= ELF64_R_TYPE (rel
->r_info
);
7038 /* Determine if a long branch stub is needed. */
7039 max_branch_offset
= 1 << 25;
7040 if (r_type
!= R_PPC64_REL24
)
7041 max_branch_offset
= 1 << 15;
7043 if (branch_offset
+ max_branch_offset
>= 2 * max_branch_offset
)
7044 /* We need a stub. Figure out whether a long_branch or plt_branch
7046 return ppc_stub_long_branch
;
7048 return ppc_stub_none
;
7051 /* Build a .plt call stub. */
7053 static inline bfd_byte
*
7054 build_plt_stub (bfd
*obfd
, bfd_byte
*p
, int offset
)
7056 #define PPC_LO(v) ((v) & 0xffff)
7057 #define PPC_HI(v) (((v) >> 16) & 0xffff)
7058 #define PPC_HA(v) PPC_HI ((v) + 0x8000)
7060 bfd_put_32 (obfd
, ADDIS_R12_R2
| PPC_HA (offset
), p
), p
+= 4;
7061 bfd_put_32 (obfd
, STD_R2_40R1
, p
), p
+= 4;
7062 bfd_put_32 (obfd
, LD_R11_0R12
| PPC_LO (offset
), p
), p
+= 4;
7063 if (PPC_HA (offset
+ 8) != PPC_HA (offset
))
7064 bfd_put_32 (obfd
, ADDIS_R12_R12
| 1, p
), p
+= 4;
7066 bfd_put_32 (obfd
, LD_R2_0R12
| PPC_LO (offset
), p
), p
+= 4;
7067 if (PPC_HA (offset
+ 8) != PPC_HA (offset
))
7068 bfd_put_32 (obfd
, ADDIS_R12_R12
| 1, p
), p
+= 4;
7070 bfd_put_32 (obfd
, MTCTR_R11
, p
), p
+= 4;
7071 bfd_put_32 (obfd
, LD_R11_0R12
| PPC_LO (offset
), p
), p
+= 4;
7072 bfd_put_32 (obfd
, BCTR
, p
), p
+= 4;
7077 ppc_build_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
7079 struct ppc_stub_hash_entry
*stub_entry
;
7080 struct ppc_branch_hash_entry
*br_entry
;
7081 struct bfd_link_info
*info
;
7082 struct ppc_link_hash_table
*htab
;
7086 struct plt_entry
*ent
;
7090 /* Massage our args to the form they really have. */
7091 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
7094 htab
= ppc_hash_table (info
);
7096 /* Make a note of the offset within the stubs for this entry. */
7097 stub_entry
->stub_offset
= stub_entry
->stub_sec
->size
;
7098 loc
= stub_entry
->stub_sec
->contents
+ stub_entry
->stub_offset
;
7100 htab
->stub_count
[stub_entry
->stub_type
- 1] += 1;
7101 switch (stub_entry
->stub_type
)
7103 case ppc_stub_long_branch
:
7104 case ppc_stub_long_branch_r2off
:
7105 /* Branches are relative. This is where we are going to. */
7106 off
= (stub_entry
->target_value
7107 + stub_entry
->target_section
->output_offset
7108 + stub_entry
->target_section
->output_section
->vma
);
7110 /* And this is where we are coming from. */
7111 off
-= (stub_entry
->stub_offset
7112 + stub_entry
->stub_sec
->output_offset
7113 + stub_entry
->stub_sec
->output_section
->vma
);
7115 if (stub_entry
->stub_type
!= ppc_stub_long_branch_r2off
)
7121 r2off
= (htab
->stub_group
[stub_entry
->target_section
->id
].toc_off
7122 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
7123 bfd_put_32 (htab
->stub_bfd
, STD_R2_40R1
, loc
);
7125 bfd_put_32 (htab
->stub_bfd
, ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
7127 bfd_put_32 (htab
->stub_bfd
, ADDI_R2_R2
| PPC_LO (r2off
), loc
);
7132 bfd_put_32 (htab
->stub_bfd
, B_DOT
| (off
& 0x3fffffc), loc
);
7134 BFD_ASSERT (off
+ (1 << 25) < (bfd_vma
) (1 << 26));
7137 case ppc_stub_plt_branch
:
7138 case ppc_stub_plt_branch_r2off
:
7139 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
7140 stub_entry
->root
.string
+ 9,
7142 if (br_entry
== NULL
)
7144 (*_bfd_error_handler
) (_("can't find branch stub `%s'"),
7145 stub_entry
->root
.string
+ 9);
7146 htab
->stub_error
= TRUE
;
7150 off
= (stub_entry
->target_value
7151 + stub_entry
->target_section
->output_offset
7152 + stub_entry
->target_section
->output_section
->vma
);
7154 bfd_put_64 (htab
->brlt
->owner
, off
,
7155 htab
->brlt
->contents
+ br_entry
->offset
);
7159 /* Create a reloc for the branch lookup table entry. */
7160 Elf_Internal_Rela rela
;
7163 rela
.r_offset
= (br_entry
->offset
7164 + htab
->brlt
->output_offset
7165 + htab
->brlt
->output_section
->vma
);
7166 rela
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
7167 rela
.r_addend
= off
;
7169 rl
= htab
->relbrlt
->contents
;
7170 rl
+= htab
->relbrlt
->reloc_count
++ * sizeof (Elf64_External_Rela
);
7171 bfd_elf64_swap_reloca_out (htab
->relbrlt
->owner
, &rela
, rl
);
7174 off
= (br_entry
->offset
7175 + htab
->brlt
->output_offset
7176 + htab
->brlt
->output_section
->vma
7177 - elf_gp (htab
->brlt
->output_section
->owner
)
7178 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
7180 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
7182 (*_bfd_error_handler
)
7183 (_("linkage table error against `%s'"),
7184 stub_entry
->root
.string
);
7185 bfd_set_error (bfd_error_bad_value
);
7186 htab
->stub_error
= TRUE
;
7191 if (stub_entry
->stub_type
!= ppc_stub_plt_branch_r2off
)
7193 bfd_put_32 (htab
->stub_bfd
, ADDIS_R12_R2
| PPC_HA (indx
), loc
);
7195 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R12
| PPC_LO (indx
), loc
);
7202 r2off
= (htab
->stub_group
[stub_entry
->target_section
->id
].toc_off
7203 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
7204 bfd_put_32 (htab
->stub_bfd
, STD_R2_40R1
, loc
);
7206 bfd_put_32 (htab
->stub_bfd
, ADDIS_R12_R2
| PPC_HA (indx
), loc
);
7208 bfd_put_32 (htab
->stub_bfd
, LD_R11_0R12
| PPC_LO (indx
), loc
);
7210 bfd_put_32 (htab
->stub_bfd
, ADDIS_R2_R2
| PPC_HA (r2off
), loc
);
7212 bfd_put_32 (htab
->stub_bfd
, ADDI_R2_R2
| PPC_LO (r2off
), loc
);
7216 bfd_put_32 (htab
->stub_bfd
, MTCTR_R11
, loc
);
7218 bfd_put_32 (htab
->stub_bfd
, BCTR
, loc
);
7221 case ppc_stub_plt_call
:
7222 /* Do the best we can for shared libraries built without
7223 exporting ".foo" for each "foo". This can happen when symbol
7224 versioning scripts strip all bar a subset of symbols. */
7225 if (stub_entry
->h
->oh
!= NULL
7226 && stub_entry
->h
->oh
->elf
.root
.type
!= bfd_link_hash_defined
7227 && stub_entry
->h
->oh
->elf
.root
.type
!= bfd_link_hash_defweak
)
7229 /* Point the symbol at the stub. There may be multiple stubs,
7230 we don't really care; The main thing is to make this sym
7231 defined somewhere. Maybe defining the symbol in the stub
7232 section is a silly idea. If we didn't do this, htab->top_id
7234 stub_entry
->h
->oh
->elf
.root
.type
= bfd_link_hash_defined
;
7235 stub_entry
->h
->oh
->elf
.root
.u
.def
.section
= stub_entry
->stub_sec
;
7236 stub_entry
->h
->oh
->elf
.root
.u
.def
.value
= stub_entry
->stub_offset
;
7239 /* Now build the stub. */
7241 for (ent
= stub_entry
->h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
7242 if (ent
->addend
== stub_entry
->addend
)
7244 off
= ent
->plt
.offset
;
7247 if (off
>= (bfd_vma
) -2)
7250 off
&= ~ (bfd_vma
) 1;
7251 off
+= (htab
->plt
->output_offset
7252 + htab
->plt
->output_section
->vma
7253 - elf_gp (htab
->plt
->output_section
->owner
)
7254 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
7256 if (off
+ 0x80008000 > 0xffffffff || (off
& 7) != 0)
7258 (*_bfd_error_handler
)
7259 (_("linkage table error against `%s'"),
7260 stub_entry
->h
->elf
.root
.root
.string
);
7261 bfd_set_error (bfd_error_bad_value
);
7262 htab
->stub_error
= TRUE
;
7266 p
= build_plt_stub (htab
->stub_bfd
, loc
, off
);
7275 stub_entry
->stub_sec
->size
+= size
;
7277 if (htab
->emit_stub_syms
7278 && !(stub_entry
->stub_type
== ppc_stub_plt_call
7279 && stub_entry
->h
->oh
!= NULL
7280 && stub_entry
->h
->oh
->elf
.root
.type
== bfd_link_hash_defined
7281 && stub_entry
->h
->oh
->elf
.root
.u
.def
.section
== stub_entry
->stub_sec
7282 && stub_entry
->h
->oh
->elf
.root
.u
.def
.value
== stub_entry
->stub_offset
))
7284 struct elf_link_hash_entry
*h
;
7285 h
= elf_link_hash_lookup (&htab
->elf
, stub_entry
->root
.string
,
7286 TRUE
, FALSE
, FALSE
);
7289 if (h
->root
.type
== bfd_link_hash_new
)
7291 h
->root
.type
= bfd_link_hash_defined
;
7292 h
->root
.u
.def
.section
= stub_entry
->stub_sec
;
7293 h
->root
.u
.def
.value
= stub_entry
->stub_offset
;
7294 h
->elf_link_hash_flags
= (ELF_LINK_HASH_REF_REGULAR
7295 | ELF_LINK_HASH_DEF_REGULAR
7296 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
7297 | ELF_LINK_FORCED_LOCAL
);
7304 /* As above, but don't actually build the stub. Just bump offset so
7305 we know stub section sizes, and select plt_branch stubs where
7306 long_branch stubs won't do. */
7309 ppc_size_one_stub (struct bfd_hash_entry
*gen_entry
, void *in_arg
)
7311 struct ppc_stub_hash_entry
*stub_entry
;
7312 struct bfd_link_info
*info
;
7313 struct ppc_link_hash_table
*htab
;
7317 /* Massage our args to the form they really have. */
7318 stub_entry
= (struct ppc_stub_hash_entry
*) gen_entry
;
7321 htab
= ppc_hash_table (info
);
7323 if (stub_entry
->stub_type
== ppc_stub_plt_call
)
7325 struct plt_entry
*ent
;
7327 for (ent
= stub_entry
->h
->elf
.plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
7328 if (ent
->addend
== stub_entry
->addend
)
7330 off
= ent
->plt
.offset
& ~(bfd_vma
) 1;
7333 if (off
>= (bfd_vma
) -2)
7335 off
+= (htab
->plt
->output_offset
7336 + htab
->plt
->output_section
->vma
7337 - elf_gp (htab
->plt
->output_section
->owner
)
7338 - htab
->stub_group
[stub_entry
->id_sec
->id
].toc_off
);
7340 size
= PLT_CALL_STUB_SIZE
;
7341 if (PPC_HA (off
+ 16) != PPC_HA (off
))
7346 /* ppc_stub_long_branch or ppc_stub_plt_branch, or their r2off
7348 off
= (stub_entry
->target_value
7349 + stub_entry
->target_section
->output_offset
7350 + stub_entry
->target_section
->output_section
->vma
);
7351 off
-= (stub_entry
->stub_sec
->size
7352 + stub_entry
->stub_sec
->output_offset
7353 + stub_entry
->stub_sec
->output_section
->vma
);
7355 /* Reset the stub type from the plt variant in case we now
7356 can reach with a shorter stub. */
7357 if (stub_entry
->stub_type
>= ppc_stub_plt_branch
)
7358 stub_entry
->stub_type
+= ppc_stub_long_branch
- ppc_stub_plt_branch
;
7361 if (stub_entry
->stub_type
== ppc_stub_long_branch_r2off
)
7367 /* If the branch offset if too big, use a ppc_stub_plt_branch. */
7368 if (off
+ (1 << 25) >= (bfd_vma
) (1 << 26))
7370 struct ppc_branch_hash_entry
*br_entry
;
7372 br_entry
= ppc_branch_hash_lookup (&htab
->branch_hash_table
,
7373 stub_entry
->root
.string
+ 9,
7375 if (br_entry
== NULL
)
7377 (*_bfd_error_handler
) (_("can't build branch stub `%s'"),
7378 stub_entry
->root
.string
+ 9);
7379 htab
->stub_error
= TRUE
;
7383 if (br_entry
->iter
!= htab
->stub_iteration
)
7385 br_entry
->iter
= htab
->stub_iteration
;
7386 br_entry
->offset
= htab
->brlt
->size
;
7387 htab
->brlt
->size
+= 8;
7390 htab
->relbrlt
->size
+= sizeof (Elf64_External_Rela
);
7393 stub_entry
->stub_type
+= ppc_stub_plt_branch
- ppc_stub_long_branch
;
7395 if (stub_entry
->stub_type
!= ppc_stub_plt_branch
)
7400 stub_entry
->stub_sec
->size
+= size
;
7404 /* Set up various things so that we can make a list of input sections
7405 for each output section included in the link. Returns -1 on error,
7406 0 when no stubs will be needed, and 1 on success. */
7409 ppc64_elf_setup_section_lists (bfd
*output_bfd
, struct bfd_link_info
*info
)
7412 int top_id
, top_index
, id
;
7414 asection
**input_list
;
7416 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
7418 if (htab
->brlt
== NULL
)
7421 /* Find the top input section id. */
7422 for (input_bfd
= info
->input_bfds
, top_id
= 3;
7424 input_bfd
= input_bfd
->link_next
)
7426 for (section
= input_bfd
->sections
;
7428 section
= section
->next
)
7430 if (top_id
< section
->id
)
7431 top_id
= section
->id
;
7435 htab
->top_id
= top_id
;
7436 amt
= sizeof (struct map_stub
) * (top_id
+ 1);
7437 htab
->stub_group
= bfd_zmalloc (amt
);
7438 if (htab
->stub_group
== NULL
)
7441 /* Set toc_off for com, und, abs and ind sections. */
7442 for (id
= 0; id
< 3; id
++)
7443 htab
->stub_group
[id
].toc_off
= TOC_BASE_OFF
;
7445 elf_gp (output_bfd
) = htab
->toc_curr
= ppc64_elf_toc (output_bfd
);
7447 /* We can't use output_bfd->section_count here to find the top output
7448 section index as some sections may have been removed, and
7449 _bfd_strip_section_from_output doesn't renumber the indices. */
7450 for (section
= output_bfd
->sections
, top_index
= 0;
7452 section
= section
->next
)
7454 if (top_index
< section
->index
)
7455 top_index
= section
->index
;
7458 htab
->top_index
= top_index
;
7459 amt
= sizeof (asection
*) * (top_index
+ 1);
7460 input_list
= bfd_zmalloc (amt
);
7461 htab
->input_list
= input_list
;
7462 if (input_list
== NULL
)
7468 /* The linker repeatedly calls this function for each TOC input section
7469 and linker generated GOT section. Group input bfds such that the toc
7470 within a group is less than 64k in size. Will break with cute linker
7471 scripts that play games with dot in the output toc section. */
7474 ppc64_elf_next_toc_section (struct bfd_link_info
*info
, asection
*isec
)
7476 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
7477 bfd_vma addr
= isec
->output_offset
+ isec
->output_section
->vma
;
7478 bfd_vma off
= addr
- htab
->toc_curr
;
7480 if (off
+ isec
->size
> 0x10000)
7481 htab
->toc_curr
= addr
;
7483 elf_gp (isec
->owner
) = (htab
->toc_curr
7484 - elf_gp (isec
->output_section
->owner
)
7488 /* Called after the last call to the above function. */
7491 ppc64_elf_reinit_toc (bfd
*output_bfd ATTRIBUTE_UNUSED
,
7492 struct bfd_link_info
*info
)
7494 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
7496 /* toc_curr tracks the TOC offset used for code sections below in
7497 ppc64_elf_next_input_section. Start off at 0x8000. */
7498 htab
->toc_curr
= TOC_BASE_OFF
;
7501 /* No toc references were found in ISEC. If the code in ISEC makes no
7502 calls, then there's no need to use toc adjusting stubs when branching
7503 into ISEC. Actually, indirect calls from ISEC are OK as they will
7507 toc_adjusting_stub_needed (struct bfd_link_info
*info
, asection
*isec
)
7514 /* We know none of our code bearing sections will need toc stubs. */
7515 if ((isec
->flags
& SEC_LINKER_CREATED
) != 0)
7518 if (isec
->size
== 0)
7521 /* Hack for linux kernel. .fixup contains branches, but only back to
7522 the function that hit an exception. */
7523 branch_ok
= strcmp (isec
->name
, ".fixup") == 0;
7525 contents
= elf_section_data (isec
)->this_hdr
.contents
;
7526 if (contents
== NULL
)
7528 if (!bfd_malloc_and_get_section (isec
->owner
, isec
, &contents
))
7530 if (contents
!= NULL
)
7534 if (info
->keep_memory
)
7535 elf_section_data (isec
)->this_hdr
.contents
= contents
;
7538 /* Code scan, because we don't necessarily have relocs on calls to
7539 static functions. */
7541 for (i
= 0; i
< isec
->size
; i
+= 4)
7543 unsigned long insn
= bfd_get_32 (isec
->owner
, contents
+ i
);
7544 /* Is this a branch? */
7545 if ((insn
& (0x3f << 26)) == (18 << 26)
7546 /* If branch and link, it's a function call. */
7548 /* Sibling calls use a plain branch. I don't know a way
7549 of deciding whether a branch is really a sibling call. */
7557 if (elf_section_data (isec
)->this_hdr
.contents
!= contents
)
7562 /* The linker repeatedly calls this function for each input section,
7563 in the order that input sections are linked into output sections.
7564 Build lists of input sections to determine groupings between which
7565 we may insert linker stubs. */
7568 ppc64_elf_next_input_section (struct bfd_link_info
*info
, asection
*isec
)
7570 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
7573 if ((isec
->output_section
->flags
& SEC_CODE
) != 0
7574 && isec
->output_section
->index
<= htab
->top_index
)
7576 asection
**list
= htab
->input_list
+ isec
->output_section
->index
;
7577 /* Steal the link_sec pointer for our list. */
7578 #define PREV_SEC(sec) (htab->stub_group[(sec)->id].link_sec)
7579 /* This happens to make the list in reverse order,
7580 which is what we want. */
7581 PREV_SEC (isec
) = *list
;
7585 /* If a code section has a function that uses the TOC then we need
7586 to use the right TOC (obviously). Also, make sure that .opd gets
7587 the correct TOC value for R_PPC64_TOC relocs that don't have or
7588 can't find their function symbol (shouldn't ever happen now). */
7589 if (isec
->has_gp_reloc
|| (isec
->flags
& SEC_CODE
) == 0)
7591 if (elf_gp (isec
->owner
) != 0)
7592 htab
->toc_curr
= elf_gp (isec
->owner
);
7594 else if ((ret
= toc_adjusting_stub_needed (info
, isec
)) < 0)
7597 isec
->has_gp_reloc
= ret
;
7599 /* Functions that don't use the TOC can belong in any TOC group.
7600 Use the last TOC base. This happens to make _init and _fini
7602 htab
->stub_group
[isec
->id
].toc_off
= htab
->toc_curr
;
7606 /* See whether we can group stub sections together. Grouping stub
7607 sections may result in fewer stubs. More importantly, we need to
7608 put all .init* and .fini* stubs at the beginning of the .init or
7609 .fini output sections respectively, because glibc splits the
7610 _init and _fini functions into multiple parts. Putting a stub in
7611 the middle of a function is not a good idea. */
7614 group_sections (struct ppc_link_hash_table
*htab
,
7615 bfd_size_type stub_group_size
,
7616 bfd_boolean stubs_always_before_branch
)
7618 asection
**list
= htab
->input_list
+ htab
->top_index
;
7621 asection
*tail
= *list
;
7622 while (tail
!= NULL
)
7626 bfd_size_type total
;
7627 bfd_boolean big_sec
;
7632 big_sec
= total
>= stub_group_size
;
7633 curr_toc
= htab
->stub_group
[tail
->id
].toc_off
;
7635 while ((prev
= PREV_SEC (curr
)) != NULL
7636 && ((total
+= curr
->output_offset
- prev
->output_offset
)
7638 && htab
->stub_group
[prev
->id
].toc_off
== curr_toc
)
7641 /* OK, the size from the start of CURR to the end is less
7642 than stub_group_size and thus can be handled by one stub
7643 section. (or the tail section is itself larger than
7644 stub_group_size, in which case we may be toast.) We
7645 should really be keeping track of the total size of stubs
7646 added here, as stubs contribute to the final output
7647 section size. That's a little tricky, and this way will
7648 only break if stubs added make the total size more than
7649 2^25, ie. for the default stub_group_size, if stubs total
7650 more than 2097152 bytes, or nearly 75000 plt call stubs. */
7653 prev
= PREV_SEC (tail
);
7654 /* Set up this stub group. */
7655 htab
->stub_group
[tail
->id
].link_sec
= curr
;
7657 while (tail
!= curr
&& (tail
= prev
) != NULL
);
7659 /* But wait, there's more! Input sections up to stub_group_size
7660 bytes before the stub section can be handled by it too.
7661 Don't do this if we have a really large section after the
7662 stubs, as adding more stubs increases the chance that
7663 branches may not reach into the stub section. */
7664 if (!stubs_always_before_branch
&& !big_sec
)
7668 && ((total
+= tail
->output_offset
- prev
->output_offset
)
7670 && htab
->stub_group
[prev
->id
].toc_off
== curr_toc
)
7673 prev
= PREV_SEC (tail
);
7674 htab
->stub_group
[tail
->id
].link_sec
= curr
;
7680 while (list
-- != htab
->input_list
);
7681 free (htab
->input_list
);
7685 /* Determine and set the size of the stub section for a final link.
7687 The basic idea here is to examine all the relocations looking for
7688 PC-relative calls to a target that is unreachable with a "bl"
7692 ppc64_elf_size_stubs (bfd
*output_bfd
,
7693 struct bfd_link_info
*info
,
7694 bfd_signed_vma group_size
,
7695 asection
*(*add_stub_section
) (const char *, asection
*),
7696 void (*layout_sections_again
) (void))
7698 bfd_size_type stub_group_size
;
7699 bfd_boolean stubs_always_before_branch
;
7700 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
7702 /* Stash our params away. */
7703 htab
->add_stub_section
= add_stub_section
;
7704 htab
->layout_sections_again
= layout_sections_again
;
7705 stubs_always_before_branch
= group_size
< 0;
7707 stub_group_size
= -group_size
;
7709 stub_group_size
= group_size
;
7710 if (stub_group_size
== 1)
7712 /* Default values. */
7713 if (stubs_always_before_branch
)
7715 stub_group_size
= 0x1e00000;
7716 if (htab
->has_14bit_branch
)
7717 stub_group_size
= 0x7800;
7721 stub_group_size
= 0x1c00000;
7722 if (htab
->has_14bit_branch
)
7723 stub_group_size
= 0x7000;
7727 group_sections (htab
, stub_group_size
, stubs_always_before_branch
);
7732 unsigned int bfd_indx
;
7734 bfd_boolean stub_changed
;
7736 htab
->stub_iteration
+= 1;
7737 stub_changed
= FALSE
;
7739 for (input_bfd
= info
->input_bfds
, bfd_indx
= 0;
7741 input_bfd
= input_bfd
->link_next
, bfd_indx
++)
7743 Elf_Internal_Shdr
*symtab_hdr
;
7745 Elf_Internal_Sym
*local_syms
= NULL
;
7747 /* We'll need the symbol table in a second. */
7748 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
7749 if (symtab_hdr
->sh_info
== 0)
7752 /* Walk over each section attached to the input bfd. */
7753 for (section
= input_bfd
->sections
;
7755 section
= section
->next
)
7757 Elf_Internal_Rela
*internal_relocs
, *irelaend
, *irela
;
7759 /* If there aren't any relocs, then there's nothing more
7761 if ((section
->flags
& SEC_RELOC
) == 0
7762 || section
->reloc_count
== 0)
7765 /* If this section is a link-once section that will be
7766 discarded, then don't create any stubs. */
7767 if (section
->output_section
== NULL
7768 || section
->output_section
->owner
!= output_bfd
)
7771 /* Get the relocs. */
7773 = _bfd_elf_link_read_relocs (input_bfd
, section
, NULL
, NULL
,
7775 if (internal_relocs
== NULL
)
7776 goto error_ret_free_local
;
7778 /* Now examine each relocation. */
7779 irela
= internal_relocs
;
7780 irelaend
= irela
+ section
->reloc_count
;
7781 for (; irela
< irelaend
; irela
++)
7783 enum elf_ppc64_reloc_type r_type
;
7784 unsigned int r_indx
;
7785 enum ppc_stub_type stub_type
;
7786 struct ppc_stub_hash_entry
*stub_entry
;
7787 asection
*sym_sec
, *code_sec
;
7789 bfd_vma destination
;
7790 bfd_boolean ok_dest
;
7791 struct ppc_link_hash_entry
*hash
;
7792 struct ppc_link_hash_entry
*fdh
;
7793 struct elf_link_hash_entry
*h
;
7794 Elf_Internal_Sym
*sym
;
7796 const asection
*id_sec
;
7799 r_type
= ELF64_R_TYPE (irela
->r_info
);
7800 r_indx
= ELF64_R_SYM (irela
->r_info
);
7802 if (r_type
>= R_PPC64_max
)
7804 bfd_set_error (bfd_error_bad_value
);
7805 goto error_ret_free_internal
;
7808 /* Only look for stubs on branch instructions. */
7809 if (r_type
!= R_PPC64_REL24
7810 && r_type
!= R_PPC64_REL14
7811 && r_type
!= R_PPC64_REL14_BRTAKEN
7812 && r_type
!= R_PPC64_REL14_BRNTAKEN
)
7815 /* Now determine the call target, its name, value,
7817 if (!get_sym_h (&h
, &sym
, &sym_sec
, NULL
, &local_syms
,
7819 goto error_ret_free_internal
;
7820 hash
= (struct ppc_link_hash_entry
*) h
;
7826 sym_value
= sym
->st_value
;
7832 /* Recognise an old ABI func code entry sym, and
7833 use the func descriptor sym instead. */
7834 if (hash
->elf
.root
.type
== bfd_link_hash_undefweak
7835 && hash
->elf
.root
.root
.string
[0] == '.'
7836 && (fdh
= get_fdh (hash
, htab
)) != NULL
)
7838 if (fdh
->elf
.root
.type
== bfd_link_hash_defined
7839 || fdh
->elf
.root
.type
== bfd_link_hash_defweak
)
7841 sym_sec
= fdh
->elf
.root
.u
.def
.section
;
7842 sym_value
= fdh
->elf
.root
.u
.def
.value
;
7843 if (sym_sec
->output_section
!= NULL
)
7849 else if (hash
->elf
.root
.type
== bfd_link_hash_defined
7850 || hash
->elf
.root
.type
== bfd_link_hash_defweak
)
7852 sym_value
= hash
->elf
.root
.u
.def
.value
;
7853 if (sym_sec
->output_section
!= NULL
)
7856 else if (hash
->elf
.root
.type
== bfd_link_hash_undefweak
)
7858 else if (hash
->elf
.root
.type
== bfd_link_hash_undefined
)
7862 bfd_set_error (bfd_error_bad_value
);
7863 goto error_ret_free_internal
;
7870 sym_value
+= irela
->r_addend
;
7871 destination
= (sym_value
7872 + sym_sec
->output_offset
7873 + sym_sec
->output_section
->vma
);
7877 opd_adjust
= get_opd_info (sym_sec
);
7878 if (opd_adjust
!= NULL
)
7884 long adjust
= opd_adjust
[sym_value
/ 8];
7887 sym_value
+= adjust
;
7889 dest
= opd_entry_value (sym_sec
, sym_value
,
7890 &code_sec
, &sym_value
);
7891 if (dest
!= (bfd_vma
) -1)
7896 /* Fixup old ABI sym to point at code
7898 hash
->elf
.root
.type
= bfd_link_hash_defweak
;
7899 hash
->elf
.root
.u
.def
.section
= code_sec
;
7900 hash
->elf
.root
.u
.def
.value
= sym_value
;
7905 /* Determine what (if any) linker stub is needed. */
7906 stub_type
= ppc_type_of_stub (section
, irela
, &hash
,
7909 if (stub_type
!= ppc_stub_plt_call
)
7911 /* Check whether we need a TOC adjusting stub.
7912 Since the linker pastes together pieces from
7913 different object files when creating the
7914 _init and _fini functions, it may be that a
7915 call to what looks like a local sym is in
7916 fact a call needing a TOC adjustment. */
7917 if (code_sec
!= NULL
7918 && code_sec
->output_section
!= NULL
7919 && (htab
->stub_group
[code_sec
->id
].toc_off
7920 != htab
->stub_group
[section
->id
].toc_off
)
7921 && code_sec
->has_gp_reloc
7922 && section
->has_gp_reloc
)
7923 stub_type
= ppc_stub_long_branch_r2off
;
7926 if (stub_type
== ppc_stub_none
)
7929 /* __tls_get_addr calls might be eliminated. */
7930 if (stub_type
!= ppc_stub_plt_call
7932 && (hash
== htab
->tls_get_addr
7933 || hash
== htab
->tls_get_addr_fd
)
7934 && section
->has_tls_reloc
7935 && irela
!= internal_relocs
)
7940 if (!get_tls_mask (&tls_mask
, NULL
, &local_syms
,
7941 irela
- 1, input_bfd
))
7942 goto error_ret_free_internal
;
7947 /* Support for grouping stub sections. */
7948 id_sec
= htab
->stub_group
[section
->id
].link_sec
;
7950 /* Get the name of this stub. */
7951 stub_name
= ppc_stub_name (id_sec
, sym_sec
, hash
, irela
);
7953 goto error_ret_free_internal
;
7955 stub_entry
= ppc_stub_hash_lookup (&htab
->stub_hash_table
,
7956 stub_name
, FALSE
, FALSE
);
7957 if (stub_entry
!= NULL
)
7959 /* The proper stub has already been created. */
7964 stub_entry
= ppc_add_stub (stub_name
, section
, htab
);
7965 if (stub_entry
== NULL
)
7968 error_ret_free_internal
:
7969 if (elf_section_data (section
)->relocs
== NULL
)
7970 free (internal_relocs
);
7971 error_ret_free_local
:
7972 if (local_syms
!= NULL
7973 && (symtab_hdr
->contents
7974 != (unsigned char *) local_syms
))
7979 stub_entry
->stub_type
= stub_type
;
7980 stub_entry
->target_value
= sym_value
;
7981 stub_entry
->target_section
= code_sec
;
7982 stub_entry
->h
= hash
;
7983 stub_entry
->addend
= irela
->r_addend
;
7984 stub_changed
= TRUE
;
7987 /* We're done with the internal relocs, free them. */
7988 if (elf_section_data (section
)->relocs
!= internal_relocs
)
7989 free (internal_relocs
);
7992 if (local_syms
!= NULL
7993 && symtab_hdr
->contents
!= (unsigned char *) local_syms
)
7995 if (!info
->keep_memory
)
7998 symtab_hdr
->contents
= (unsigned char *) local_syms
;
8005 /* OK, we've added some stubs. Find out the new size of the
8007 for (stub_sec
= htab
->stub_bfd
->sections
;
8009 stub_sec
= stub_sec
->next
)
8010 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
8013 htab
->brlt
->size
= 0;
8015 htab
->relbrlt
->size
= 0;
8017 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_size_one_stub
, info
);
8019 /* Ask the linker to do its stuff. */
8020 (*htab
->layout_sections_again
) ();
8023 /* It would be nice to strip .branch_lt from the output if the
8024 section is empty, but it's too late. If we strip sections here,
8025 the dynamic symbol table is corrupted since the section symbol
8026 for the stripped section isn't written. */
8031 /* Called after we have determined section placement. If sections
8032 move, we'll be called again. Provide a value for TOCstart. */
8035 ppc64_elf_toc (bfd
*obfd
)
8040 /* The TOC consists of sections .got, .toc, .tocbss, .plt in that
8041 order. The TOC starts where the first of these sections starts. */
8042 s
= bfd_get_section_by_name (obfd
, ".got");
8044 s
= bfd_get_section_by_name (obfd
, ".toc");
8046 s
= bfd_get_section_by_name (obfd
, ".tocbss");
8048 s
= bfd_get_section_by_name (obfd
, ".plt");
8051 /* This may happen for
8052 o references to TOC base (SYM@toc / TOC[tc0]) without a
8055 o --gc-sections and empty TOC sections
8057 FIXME: Warn user? */
8059 /* Look for a likely section. We probably won't even be
8061 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
8062 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
| SEC_READONLY
))
8063 == (SEC_ALLOC
| SEC_SMALL_DATA
))
8066 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
8067 if ((s
->flags
& (SEC_ALLOC
| SEC_SMALL_DATA
))
8068 == (SEC_ALLOC
| SEC_SMALL_DATA
))
8071 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
8072 if ((s
->flags
& (SEC_ALLOC
| SEC_READONLY
)) == SEC_ALLOC
)
8075 for (s
= obfd
->sections
; s
!= NULL
; s
= s
->next
)
8076 if ((s
->flags
& SEC_ALLOC
) == SEC_ALLOC
)
8082 TOCstart
= s
->output_section
->vma
+ s
->output_offset
;
8087 /* Build all the stubs associated with the current output file.
8088 The stubs are kept in a hash table attached to the main linker
8089 hash table. This function is called via gldelf64ppc_finish. */
8092 ppc64_elf_build_stubs (bfd_boolean emit_stub_syms
,
8093 struct bfd_link_info
*info
,
8096 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
8099 int stub_sec_count
= 0;
8101 htab
->emit_stub_syms
= emit_stub_syms
;
8103 /* Allocate memory to hold the linker stubs. */
8104 for (stub_sec
= htab
->stub_bfd
->sections
;
8106 stub_sec
= stub_sec
->next
)
8107 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0
8108 && stub_sec
->size
!= 0)
8110 stub_sec
->contents
= bfd_zalloc (htab
->stub_bfd
, stub_sec
->size
);
8111 if (stub_sec
->contents
== NULL
)
8113 /* We want to check that built size is the same as calculated
8114 size. rawsize is a convenient location to use. */
8115 stub_sec
->rawsize
= stub_sec
->size
;
8119 if (htab
->plt
!= NULL
)
8124 /* Build the .glink plt call stub. */
8125 plt0
= (htab
->plt
->output_section
->vma
8126 + htab
->plt
->output_offset
8127 - (htab
->glink
->output_section
->vma
8128 + htab
->glink
->output_offset
8129 + GLINK_CALL_STUB_SIZE
));
8130 if (plt0
+ 0x80008000 > 0xffffffff)
8132 (*_bfd_error_handler
) (_(".glink and .plt too far apart"));
8133 bfd_set_error (bfd_error_bad_value
);
8137 if (htab
->emit_stub_syms
)
8139 struct elf_link_hash_entry
*h
;
8140 h
= elf_link_hash_lookup (&htab
->elf
, "__glink", TRUE
, FALSE
, FALSE
);
8143 if (h
->root
.type
== bfd_link_hash_new
)
8145 h
->root
.type
= bfd_link_hash_defined
;
8146 h
->root
.u
.def
.section
= htab
->glink
;
8147 h
->root
.u
.def
.value
= 0;
8148 h
->elf_link_hash_flags
= (ELF_LINK_HASH_REF_REGULAR
8149 | ELF_LINK_HASH_DEF_REGULAR
8150 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
8151 | ELF_LINK_FORCED_LOCAL
);
8154 p
= htab
->glink
->contents
;
8155 bfd_put_32 (htab
->glink
->owner
, MFCTR_R12
, p
);
8157 bfd_put_32 (htab
->glink
->owner
, SLDI_R11_R0_3
, p
);
8159 bfd_put_32 (htab
->glink
->owner
, ADDIC_R2_R0_32K
, p
);
8161 bfd_put_32 (htab
->glink
->owner
, SUB_R12_R12_R11
, p
);
8163 bfd_put_32 (htab
->glink
->owner
, SRADI_R2_R2_63
, p
);
8165 bfd_put_32 (htab
->glink
->owner
, SLDI_R11_R0_2
, p
);
8167 bfd_put_32 (htab
->glink
->owner
, AND_R2_R2_R11
, p
);
8169 bfd_put_32 (htab
->glink
->owner
, SUB_R12_R12_R11
, p
);
8171 bfd_put_32 (htab
->glink
->owner
, ADD_R12_R12_R2
, p
);
8173 bfd_put_32 (htab
->glink
->owner
, ADDIS_R12_R12
| PPC_HA (plt0
), p
);
8175 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R12
| PPC_LO (plt0
), p
);
8177 bfd_put_32 (htab
->glink
->owner
, ADDI_R12_R12
| PPC_LO (plt0
), p
);
8179 bfd_put_32 (htab
->glink
->owner
, LD_R2_0R12
| 8, p
);
8181 bfd_put_32 (htab
->glink
->owner
, MTCTR_R11
, p
);
8183 bfd_put_32 (htab
->glink
->owner
, LD_R11_0R12
| 16, p
);
8185 bfd_put_32 (htab
->glink
->owner
, BCTR
, p
);
8188 /* Build the .glink lazy link call stubs. */
8190 while (p
< htab
->glink
->contents
+ htab
->glink
->size
)
8194 bfd_put_32 (htab
->glink
->owner
, LI_R0_0
| indx
, p
);
8199 bfd_put_32 (htab
->glink
->owner
, LIS_R0_0
| PPC_HI (indx
), p
);
8201 bfd_put_32 (htab
->glink
->owner
, ORI_R0_R0_0
| PPC_LO (indx
), p
);
8204 bfd_put_32 (htab
->glink
->owner
,
8205 B_DOT
| ((htab
->glink
->contents
- p
) & 0x3fffffc), p
);
8209 htab
->glink
->rawsize
= p
- htab
->glink
->contents
;
8212 if (htab
->brlt
->size
!= 0)
8214 htab
->brlt
->contents
= bfd_zalloc (htab
->brlt
->owner
,
8216 if (htab
->brlt
->contents
== NULL
)
8219 if (info
->shared
&& htab
->relbrlt
->size
!= 0)
8221 htab
->relbrlt
->contents
= bfd_zalloc (htab
->relbrlt
->owner
,
8222 htab
->relbrlt
->size
);
8223 if (htab
->relbrlt
->contents
== NULL
)
8227 /* Build the stubs as directed by the stub hash table. */
8228 bfd_hash_traverse (&htab
->stub_hash_table
, ppc_build_one_stub
, info
);
8230 for (stub_sec
= htab
->stub_bfd
->sections
;
8232 stub_sec
= stub_sec
->next
)
8233 if ((stub_sec
->flags
& SEC_LINKER_CREATED
) == 0)
8235 stub_sec_count
+= 1;
8236 if (stub_sec
->rawsize
!= stub_sec
->size
)
8240 if (stub_sec
!= NULL
8241 || htab
->glink
->rawsize
!= htab
->glink
->size
)
8243 htab
->stub_error
= TRUE
;
8244 (*_bfd_error_handler
) (_("stubs don't match calculated size"));
8247 if (htab
->stub_error
)
8252 *stats
= bfd_malloc (500);
8256 sprintf (*stats
, _("linker stubs in %u groups\n"
8259 " long branch %lu\n"
8260 " long toc adj %lu\n"
8263 htab
->stub_count
[ppc_stub_long_branch
- 1],
8264 htab
->stub_count
[ppc_stub_long_branch_r2off
- 1],
8265 htab
->stub_count
[ppc_stub_plt_branch
- 1],
8266 htab
->stub_count
[ppc_stub_plt_branch_r2off
- 1],
8267 htab
->stub_count
[ppc_stub_plt_call
- 1]);
8272 /* This function undoes the changes made by add_symbol_adjust. */
8275 undo_symbol_twiddle (struct elf_link_hash_entry
*h
, void *inf ATTRIBUTE_UNUSED
)
8277 struct ppc_link_hash_entry
*eh
;
8279 if (h
->root
.type
== bfd_link_hash_indirect
)
8282 if (h
->root
.type
== bfd_link_hash_warning
)
8283 h
= (struct elf_link_hash_entry
*) h
->root
.u
.i
.link
;
8285 eh
= (struct ppc_link_hash_entry
*) h
;
8286 if (eh
->elf
.root
.type
!= bfd_link_hash_undefweak
|| !eh
->was_undefined
)
8289 eh
->elf
.root
.type
= bfd_link_hash_undefined
;
8294 ppc64_elf_restore_symbols (struct bfd_link_info
*info
)
8296 struct ppc_link_hash_table
*htab
= ppc_hash_table (info
);
8297 elf_link_hash_traverse (&htab
->elf
, undo_symbol_twiddle
, info
);
8300 /* The RELOCATE_SECTION function is called by the ELF backend linker
8301 to handle the relocations for a section.
8303 The relocs are always passed as Rela structures; if the section
8304 actually uses Rel structures, the r_addend field will always be
8307 This function is responsible for adjust the section contents as
8308 necessary, and (if using Rela relocs and generating a
8309 relocatable output file) adjusting the reloc addend as
8312 This function does not have to worry about setting the reloc
8313 address or the reloc symbol index.
8315 LOCAL_SYMS is a pointer to the swapped in local symbols.
8317 LOCAL_SECTIONS is an array giving the section in the input file
8318 corresponding to the st_shndx field of each local symbol.
8320 The global hash table entry for the global symbols can be found
8321 via elf_sym_hashes (input_bfd).
8323 When generating relocatable output, this function must handle
8324 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
8325 going to be the section symbol corresponding to the output
8326 section, which means that the addend must be adjusted
8330 ppc64_elf_relocate_section (bfd
*output_bfd
,
8331 struct bfd_link_info
*info
,
8333 asection
*input_section
,
8335 Elf_Internal_Rela
*relocs
,
8336 Elf_Internal_Sym
*local_syms
,
8337 asection
**local_sections
)
8339 struct ppc_link_hash_table
*htab
;
8340 Elf_Internal_Shdr
*symtab_hdr
;
8341 struct elf_link_hash_entry
**sym_hashes
;
8342 Elf_Internal_Rela
*rel
;
8343 Elf_Internal_Rela
*relend
;
8344 Elf_Internal_Rela outrel
;
8346 struct got_entry
**local_got_ents
;
8348 bfd_boolean ret
= TRUE
;
8350 /* Disabled until we sort out how ld should choose 'y' vs 'at'. */
8351 bfd_boolean is_power4
= FALSE
;
8353 if (info
->relocatable
)
8356 /* Initialize howto table if needed. */
8357 if (!ppc64_elf_howto_table
[R_PPC64_ADDR32
])
8360 htab
= ppc_hash_table (info
);
8361 local_got_ents
= elf_local_got_ents (input_bfd
);
8362 TOCstart
= elf_gp (output_bfd
);
8363 symtab_hdr
= &elf_tdata (input_bfd
)->symtab_hdr
;
8364 sym_hashes
= elf_sym_hashes (input_bfd
);
8365 is_opd
= ppc64_elf_section_data (input_section
)->opd
.adjust
!= NULL
;
8368 relend
= relocs
+ input_section
->reloc_count
;
8369 for (; rel
< relend
; rel
++)
8371 enum elf_ppc64_reloc_type r_type
;
8373 bfd_reloc_status_type r
;
8374 Elf_Internal_Sym
*sym
;
8376 struct elf_link_hash_entry
*h
;
8377 struct elf_link_hash_entry
*fdh
;
8378 const char *sym_name
;
8379 unsigned long r_symndx
, toc_symndx
;
8380 char tls_mask
, tls_gd
, tls_type
;
8383 bfd_boolean unresolved_reloc
;
8385 unsigned long insn
, mask
;
8386 struct ppc_stub_hash_entry
*stub_entry
;
8387 bfd_vma max_br_offset
;
8390 r_type
= ELF64_R_TYPE (rel
->r_info
);
8391 r_symndx
= ELF64_R_SYM (rel
->r_info
);
8393 /* For old style R_PPC64_TOC relocs with a zero symbol, use the
8394 symbol of the previous ADDR64 reloc. The symbol gives us the
8395 proper TOC base to use. */
8396 if (rel
->r_info
== ELF64_R_INFO (0, R_PPC64_TOC
)
8398 && ELF64_R_TYPE (rel
[-1].r_info
) == R_PPC64_ADDR64
8400 r_symndx
= ELF64_R_SYM (rel
[-1].r_info
);
8406 unresolved_reloc
= FALSE
;
8409 if (r_symndx
< symtab_hdr
->sh_info
)
8411 /* It's a local symbol. */
8414 sym
= local_syms
+ r_symndx
;
8415 sec
= local_sections
[r_symndx
];
8416 sym_name
= bfd_elf_local_sym_name (input_bfd
, sym
);
8417 sym_type
= ELF64_ST_TYPE (sym
->st_info
);
8418 relocation
= _bfd_elf_rela_local_sym (output_bfd
, sym
, &sec
, rel
);
8419 opd_adjust
= get_opd_info (sec
);
8420 if (opd_adjust
!= NULL
)
8422 long adjust
= opd_adjust
[(sym
->st_value
+ rel
->r_addend
) / 8];
8426 relocation
+= adjust
;
8431 RELOC_FOR_GLOBAL_SYMBOL (info
, input_bfd
, input_section
, rel
,
8432 r_symndx
, symtab_hdr
, sym_hashes
,
8434 unresolved_reloc
, warned
);
8435 sym_name
= h
->root
.root
.string
;
8439 /* TLS optimizations. Replace instruction sequences and relocs
8440 based on information we collected in tls_optimize. We edit
8441 RELOCS so that --emit-relocs will output something sensible
8442 for the final instruction stream. */
8446 if (IS_PPC64_TLS_RELOC (r_type
))
8449 tls_mask
= ((struct ppc_link_hash_entry
*) h
)->tls_mask
;
8450 else if (local_got_ents
!= NULL
)
8453 lgot_masks
= (char *) (local_got_ents
+ symtab_hdr
->sh_info
);
8454 tls_mask
= lgot_masks
[r_symndx
];
8456 if (tls_mask
== 0 && r_type
== R_PPC64_TLS
)
8458 /* Check for toc tls entries. */
8461 if (!get_tls_mask (&toc_tls
, &toc_symndx
, &local_syms
,
8466 tls_mask
= *toc_tls
;
8470 /* Check that tls relocs are used with tls syms, and non-tls
8471 relocs are used with non-tls syms. */
8473 && r_type
!= R_PPC64_NONE
8475 || h
->root
.type
== bfd_link_hash_defined
8476 || h
->root
.type
== bfd_link_hash_defweak
)
8477 && IS_PPC64_TLS_RELOC (r_type
) != (sym_type
== STT_TLS
))
8479 if (r_type
== R_PPC64_TLS
&& tls_mask
!= 0)
8480 /* R_PPC64_TLS is OK against a symbol in the TOC. */
8483 (*_bfd_error_handler
)
8484 (sym_type
== STT_TLS
8485 ? _("%B(%A+0x%lx): %s used with TLS symbol %s")
8486 : _("%B(%A+0x%lx): %s used with non-TLS symbol %s"),
8489 (long) rel
->r_offset
,
8490 ppc64_elf_howto_table
[r_type
]->name
,
8494 /* Ensure reloc mapping code below stays sane. */
8495 if (R_PPC64_TOC16_LO_DS
!= R_PPC64_TOC16_DS
+ 1
8496 || R_PPC64_TOC16_LO
!= R_PPC64_TOC16
+ 1
8497 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TLSGD16
& 3)
8498 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TLSGD16_LO
& 3)
8499 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TLSGD16_HI
& 3)
8500 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TLSGD16_HA
& 3)
8501 || (R_PPC64_GOT_TLSLD16
& 3) != (R_PPC64_GOT_TPREL16_DS
& 3)
8502 || (R_PPC64_GOT_TLSLD16_LO
& 3) != (R_PPC64_GOT_TPREL16_LO_DS
& 3)
8503 || (R_PPC64_GOT_TLSLD16_HI
& 3) != (R_PPC64_GOT_TPREL16_HI
& 3)
8504 || (R_PPC64_GOT_TLSLD16_HA
& 3) != (R_PPC64_GOT_TPREL16_HA
& 3))
8513 case R_PPC64_TOC16_LO
:
8514 case R_PPC64_TOC16_DS
:
8515 case R_PPC64_TOC16_LO_DS
:
8517 /* Check for toc tls entries. */
8521 retval
= get_tls_mask (&toc_tls
, &toc_symndx
, &local_syms
,
8528 tls_mask
= *toc_tls
;
8529 if (r_type
== R_PPC64_TOC16_DS
8530 || r_type
== R_PPC64_TOC16_LO_DS
)
8533 && (tls_mask
& (TLS_DTPREL
| TLS_TPREL
)) == 0)
8538 /* If we found a GD reloc pair, then we might be
8539 doing a GD->IE transition. */
8542 tls_gd
= TLS_TPRELGD
;
8543 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
8544 goto tls_get_addr_check
;
8546 else if (retval
== 3)
8548 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
8549 goto tls_get_addr_check
;
8556 case R_PPC64_GOT_TPREL16_DS
:
8557 case R_PPC64_GOT_TPREL16_LO_DS
:
8559 && (tls_mask
& TLS_TPREL
) == 0)
8562 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
- 2);
8564 insn
|= 0x3c0d0000; /* addis 0,13,0 */
8565 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
- 2);
8566 r_type
= R_PPC64_TPREL16_HA
;
8567 if (toc_symndx
!= 0)
8569 rel
->r_info
= ELF64_R_INFO (toc_symndx
, r_type
);
8570 /* We changed the symbol. Start over in order to
8571 get h, sym, sec etc. right. */
8576 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8582 && (tls_mask
& TLS_TPREL
) == 0)
8585 insn
= bfd_get_32 (output_bfd
, contents
+ rel
->r_offset
);
8586 if ((insn
& ((0x3f << 26) | (31 << 11)))
8587 == ((31 << 26) | (13 << 11)))
8588 rtra
= insn
& ((1 << 26) - (1 << 16));
8589 else if ((insn
& ((0x3f << 26) | (31 << 16)))
8590 == ((31 << 26) | (13 << 16)))
8591 rtra
= (insn
& (31 << 21)) | ((insn
& (31 << 11)) << 5);
8594 if ((insn
& ((1 << 11) - (1 << 1))) == 266 << 1)
8597 else if ((insn
& (31 << 1)) == 23 << 1
8598 && ((insn
& (31 << 6)) < 14 << 6
8599 || ((insn
& (31 << 6)) >= 16 << 6
8600 && (insn
& (31 << 6)) < 24 << 6)))
8601 /* load and store indexed -> dform. */
8602 insn
= (32 | ((insn
>> 6) & 31)) << 26;
8603 else if ((insn
& (31 << 1)) == 21 << 1
8604 && (insn
& (0x1a << 6)) == 0)
8605 /* ldx, ldux, stdx, stdux -> ld, ldu, std, stdu. */
8606 insn
= (((58 | ((insn
>> 6) & 4)) << 26)
8607 | ((insn
>> 6) & 1));
8608 else if ((insn
& (31 << 1)) == 21 << 1
8609 && (insn
& ((1 << 11) - (1 << 1))) == 341 << 1)
8611 insn
= (58 << 26) | 2;
8615 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
8616 /* Was PPC64_TLS which sits on insn boundary, now
8617 PPC64_TPREL16_LO which is at insn+2. */
8619 r_type
= R_PPC64_TPREL16_LO
;
8620 if (toc_symndx
!= 0)
8622 rel
->r_info
= ELF64_R_INFO (toc_symndx
, r_type
);
8623 /* We changed the symbol. Start over in order to
8624 get h, sym, sec etc. right. */
8629 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8633 case R_PPC64_GOT_TLSGD16_HI
:
8634 case R_PPC64_GOT_TLSGD16_HA
:
8635 tls_gd
= TLS_TPRELGD
;
8636 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
8640 case R_PPC64_GOT_TLSLD16_HI
:
8641 case R_PPC64_GOT_TLSLD16_HA
:
8642 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
8645 if ((tls_mask
& tls_gd
) != 0)
8646 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
8647 + R_PPC64_GOT_TPREL16_DS
);
8650 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
8652 r_type
= R_PPC64_NONE
;
8654 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8658 case R_PPC64_GOT_TLSGD16
:
8659 case R_PPC64_GOT_TLSGD16_LO
:
8660 tls_gd
= TLS_TPRELGD
;
8661 if (tls_mask
!= 0 && (tls_mask
& TLS_GD
) == 0)
8662 goto tls_get_addr_check
;
8665 case R_PPC64_GOT_TLSLD16
:
8666 case R_PPC64_GOT_TLSLD16_LO
:
8667 if (tls_mask
!= 0 && (tls_mask
& TLS_LD
) == 0)
8670 if (rel
+ 1 < relend
)
8672 enum elf_ppc64_reloc_type r_type2
;
8673 unsigned long r_symndx2
;
8674 struct elf_link_hash_entry
*h2
;
8675 bfd_vma insn1
, insn2
, insn3
;
8678 /* The next instruction should be a call to
8679 __tls_get_addr. Peek at the reloc to be sure. */
8680 r_type2
= ELF64_R_TYPE (rel
[1].r_info
);
8681 r_symndx2
= ELF64_R_SYM (rel
[1].r_info
);
8682 if (r_symndx2
< symtab_hdr
->sh_info
8683 || (r_type2
!= R_PPC64_REL14
8684 && r_type2
!= R_PPC64_REL14_BRTAKEN
8685 && r_type2
!= R_PPC64_REL14_BRNTAKEN
8686 && r_type2
!= R_PPC64_REL24
))
8689 h2
= sym_hashes
[r_symndx2
- symtab_hdr
->sh_info
];
8690 while (h2
->root
.type
== bfd_link_hash_indirect
8691 || h2
->root
.type
== bfd_link_hash_warning
)
8692 h2
= (struct elf_link_hash_entry
*) h2
->root
.u
.i
.link
;
8693 if (h2
== NULL
|| (h2
!= &htab
->tls_get_addr
->elf
8694 && h2
!= &htab
->tls_get_addr_fd
->elf
))
8697 /* OK, it checks out. Replace the call. */
8698 offset
= rel
[1].r_offset
;
8699 insn1
= bfd_get_32 (output_bfd
,
8700 contents
+ rel
->r_offset
- 2);
8701 insn3
= bfd_get_32 (output_bfd
,
8702 contents
+ offset
+ 4);
8703 if ((tls_mask
& tls_gd
) != 0)
8706 insn1
&= (1 << 26) - (1 << 2);
8707 insn1
|= 58 << 26; /* ld */
8708 insn2
= 0x7c636a14; /* add 3,3,13 */
8709 rel
[1].r_info
= ELF64_R_INFO (r_symndx2
, R_PPC64_NONE
);
8710 if ((tls_mask
& TLS_EXPLICIT
) == 0)
8711 r_type
= (((r_type
- (R_PPC64_GOT_TLSGD16
& 3)) & 3)
8712 + R_PPC64_GOT_TPREL16_DS
);
8714 r_type
+= R_PPC64_TOC16_DS
- R_PPC64_TOC16
;
8715 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8720 insn1
= 0x3c6d0000; /* addis 3,13,0 */
8721 insn2
= 0x38630000; /* addi 3,3,0 */
8724 /* Was an LD reloc. */
8726 rel
->r_addend
= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
8727 rel
[1].r_addend
= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
8729 else if (toc_symndx
!= 0)
8730 r_symndx
= toc_symndx
;
8731 r_type
= R_PPC64_TPREL16_HA
;
8732 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8733 rel
[1].r_info
= ELF64_R_INFO (r_symndx
,
8734 R_PPC64_TPREL16_LO
);
8735 rel
[1].r_offset
+= 2;
8738 || insn3
== CROR_151515
|| insn3
== CROR_313131
)
8742 rel
[1].r_offset
+= 4;
8744 bfd_put_32 (output_bfd
, insn1
, contents
+ rel
->r_offset
- 2);
8745 bfd_put_32 (output_bfd
, insn2
, contents
+ offset
);
8746 bfd_put_32 (output_bfd
, insn3
, contents
+ offset
+ 4);
8747 if (tls_gd
== 0 || toc_symndx
!= 0)
8749 /* We changed the symbol. Start over in order
8750 to get h, sym, sec etc. right. */
8758 case R_PPC64_DTPMOD64
:
8759 if (rel
+ 1 < relend
8760 && rel
[1].r_info
== ELF64_R_INFO (r_symndx
, R_PPC64_DTPREL64
)
8761 && rel
[1].r_offset
== rel
->r_offset
+ 8)
8763 if ((tls_mask
& TLS_GD
) == 0)
8765 rel
[1].r_info
= ELF64_R_INFO (r_symndx
, R_PPC64_NONE
);
8766 if ((tls_mask
& TLS_TPRELGD
) != 0)
8767 r_type
= R_PPC64_TPREL64
;
8770 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
8771 r_type
= R_PPC64_NONE
;
8773 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8778 if ((tls_mask
& TLS_LD
) == 0)
8780 bfd_put_64 (output_bfd
, 1, contents
+ rel
->r_offset
);
8781 r_type
= R_PPC64_NONE
;
8782 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8787 case R_PPC64_TPREL64
:
8788 if ((tls_mask
& TLS_TPREL
) == 0)
8790 r_type
= R_PPC64_NONE
;
8791 rel
->r_info
= ELF64_R_INFO (r_symndx
, r_type
);
8796 /* Handle other relocations that tweak non-addend part of insn. */
8798 max_br_offset
= 1 << 25;
8799 addend
= rel
->r_addend
;
8805 /* Branch taken prediction relocations. */
8806 case R_PPC64_ADDR14_BRTAKEN
:
8807 case R_PPC64_REL14_BRTAKEN
:
8808 insn
= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field. */
8811 /* Branch not taken prediction relocations. */
8812 case R_PPC64_ADDR14_BRNTAKEN
:
8813 case R_PPC64_REL14_BRNTAKEN
:
8814 insn
|= bfd_get_32 (output_bfd
,
8815 contents
+ rel
->r_offset
) & ~(0x01 << 21);
8819 max_br_offset
= 1 << 15;
8823 /* Calls to functions with a different TOC, such as calls to
8824 shared objects, need to alter the TOC pointer. This is
8825 done using a linkage stub. A REL24 branching to these
8826 linkage stubs needs to be followed by a nop, as the nop
8827 will be replaced with an instruction to restore the TOC
8832 && (((fdh
= &((struct ppc_link_hash_entry
*) h
)->oh
->elf
) != NULL
8833 && fdh
->plt
.plist
!= NULL
)
8834 || (fdh
= h
)->plt
.plist
!= NULL
))
8836 && sec
->output_section
!= NULL
8837 && sec
->id
<= htab
->top_id
8838 && (htab
->stub_group
[sec
->id
].toc_off
8839 != htab
->stub_group
[input_section
->id
].toc_off
)))
8840 && (stub_entry
= ppc_get_stub_entry (input_section
, sec
, fdh
,
8842 && (stub_entry
->stub_type
== ppc_stub_plt_call
8843 || stub_entry
->stub_type
== ppc_stub_plt_branch_r2off
8844 || stub_entry
->stub_type
== ppc_stub_long_branch_r2off
))
8846 bfd_boolean can_plt_call
= FALSE
;
8848 if (rel
->r_offset
+ 8 <= input_section
->size
)
8851 nop
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
+ 4);
8853 || nop
== CROR_151515
|| nop
== CROR_313131
)
8855 bfd_put_32 (input_bfd
, LD_R2_40R1
,
8856 contents
+ rel
->r_offset
+ 4);
8857 can_plt_call
= TRUE
;
8863 if (stub_entry
->stub_type
== ppc_stub_plt_call
)
8865 /* If this is a plain branch rather than a branch
8866 and link, don't require a nop. */
8868 br
= bfd_get_32 (input_bfd
, contents
+ rel
->r_offset
);
8870 can_plt_call
= TRUE
;
8873 && strcmp (h
->root
.root
.string
,
8874 ".__libc_start_main") == 0)
8876 /* Allow crt1 branch to go via a toc adjusting stub. */
8877 can_plt_call
= TRUE
;
8881 if (strcmp (input_section
->output_section
->name
,
8883 || strcmp (input_section
->output_section
->name
,
8885 (*_bfd_error_handler
)
8886 (_("%B(%A+0x%lx): automatic multiple TOCs "
8887 "not supported using your crt files; "
8888 "recompile with -mminimal-toc or upgrade gcc"),
8891 (long) rel
->r_offset
);
8893 (*_bfd_error_handler
)
8894 (_("%B(%A+0x%lx): sibling call optimization to `%s' "
8895 "does not allow automatic multiple TOCs; "
8896 "recompile with -mminimal-toc or "
8897 "-fno-optimize-sibling-calls, "
8898 "or make `%s' extern"),
8901 (long) rel
->r_offset
,
8904 bfd_set_error (bfd_error_bad_value
);
8910 && stub_entry
->stub_type
== ppc_stub_plt_call
)
8911 unresolved_reloc
= FALSE
;
8914 if (stub_entry
== NULL
8915 && get_opd_info (sec
) != NULL
)
8917 /* The branch destination is the value of the opd entry. */
8918 bfd_vma off
= (relocation
- sec
->output_section
->vma
8919 - sec
->output_offset
+ rel
->r_addend
);
8920 bfd_vma dest
= opd_entry_value (sec
, off
, NULL
, NULL
);
8921 if (dest
!= (bfd_vma
) -1)
8928 /* If the branch is out of reach we ought to have a long
8930 from
= (rel
->r_offset
8931 + input_section
->output_offset
8932 + input_section
->output_section
->vma
);
8934 if (stub_entry
== NULL
8935 && (relocation
+ rel
->r_addend
- from
+ max_br_offset
8936 >= 2 * max_br_offset
)
8937 && r_type
!= R_PPC64_ADDR14_BRTAKEN
8938 && r_type
!= R_PPC64_ADDR14_BRNTAKEN
)
8939 stub_entry
= ppc_get_stub_entry (input_section
, sec
, h
, rel
, htab
);
8941 if (stub_entry
!= NULL
)
8943 /* Munge up the value and addend so that we call the stub
8944 rather than the procedure directly. */
8945 relocation
= (stub_entry
->stub_offset
8946 + stub_entry
->stub_sec
->output_offset
8947 + stub_entry
->stub_sec
->output_section
->vma
);
8955 /* Set 'a' bit. This is 0b00010 in BO field for branch
8956 on CR(BI) insns (BO == 001at or 011at), and 0b01000
8957 for branch on CTR insns (BO == 1a00t or 1a01t). */
8958 if ((insn
& (0x14 << 21)) == (0x04 << 21))
8960 else if ((insn
& (0x14 << 21)) == (0x10 << 21))
8967 /* Invert 'y' bit if not the default. */
8968 if ((bfd_signed_vma
) (relocation
+ rel
->r_addend
- from
) < 0)
8972 bfd_put_32 (output_bfd
, insn
, contents
+ rel
->r_offset
);
8975 /* NOP out calls to undefined weak functions.
8976 We can thus call a weak function without first
8977 checking whether the function is defined. */
8979 && h
->root
.type
== bfd_link_hash_undefweak
8980 && r_type
== R_PPC64_REL24
8982 && rel
->r_addend
== 0)
8984 bfd_put_32 (output_bfd
, NOP
, contents
+ rel
->r_offset
);
8995 (*_bfd_error_handler
)
8996 (_("%B: unknown relocation type %d for symbol %s"),
8997 input_bfd
, (int) r_type
, sym_name
);
8999 bfd_set_error (bfd_error_bad_value
);
9005 case R_PPC64_GNU_VTINHERIT
:
9006 case R_PPC64_GNU_VTENTRY
:
9009 /* GOT16 relocations. Like an ADDR16 using the symbol's
9010 address in the GOT as relocation value instead of the
9011 symbol's value itself. Also, create a GOT entry for the
9012 symbol and put the symbol value there. */
9013 case R_PPC64_GOT_TLSGD16
:
9014 case R_PPC64_GOT_TLSGD16_LO
:
9015 case R_PPC64_GOT_TLSGD16_HI
:
9016 case R_PPC64_GOT_TLSGD16_HA
:
9017 tls_type
= TLS_TLS
| TLS_GD
;
9020 case R_PPC64_GOT_TLSLD16
:
9021 case R_PPC64_GOT_TLSLD16_LO
:
9022 case R_PPC64_GOT_TLSLD16_HI
:
9023 case R_PPC64_GOT_TLSLD16_HA
:
9024 tls_type
= TLS_TLS
| TLS_LD
;
9027 case R_PPC64_GOT_TPREL16_DS
:
9028 case R_PPC64_GOT_TPREL16_LO_DS
:
9029 case R_PPC64_GOT_TPREL16_HI
:
9030 case R_PPC64_GOT_TPREL16_HA
:
9031 tls_type
= TLS_TLS
| TLS_TPREL
;
9034 case R_PPC64_GOT_DTPREL16_DS
:
9035 case R_PPC64_GOT_DTPREL16_LO_DS
:
9036 case R_PPC64_GOT_DTPREL16_HI
:
9037 case R_PPC64_GOT_DTPREL16_HA
:
9038 tls_type
= TLS_TLS
| TLS_DTPREL
;
9042 case R_PPC64_GOT16_LO
:
9043 case R_PPC64_GOT16_HI
:
9044 case R_PPC64_GOT16_HA
:
9045 case R_PPC64_GOT16_DS
:
9046 case R_PPC64_GOT16_LO_DS
:
9049 /* Relocation is to the entry for this symbol in the global
9054 unsigned long indx
= 0;
9056 if (tls_type
== (TLS_TLS
| TLS_LD
)
9058 || !(h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
)))
9059 offp
= &ppc64_tlsld_got (input_bfd
)->offset
;
9062 struct got_entry
*ent
;
9066 bfd_boolean dyn
= htab
->elf
.dynamic_sections_created
;
9067 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn
, info
->shared
, h
)
9069 && SYMBOL_REFERENCES_LOCAL (info
, h
)))
9070 /* This is actually a static link, or it is a
9071 -Bsymbolic link and the symbol is defined
9072 locally, or the symbol was forced to be local
9073 because of a version file. */
9078 unresolved_reloc
= FALSE
;
9084 if (local_got_ents
== NULL
)
9086 ent
= local_got_ents
[r_symndx
];
9089 for (; ent
!= NULL
; ent
= ent
->next
)
9090 if (ent
->addend
== rel
->r_addend
9091 && ent
->owner
== input_bfd
9092 && ent
->tls_type
== tls_type
)
9096 offp
= &ent
->got
.offset
;
9099 got
= ppc64_elf_tdata (input_bfd
)->got
;
9103 /* The offset must always be a multiple of 8. We use the
9104 least significant bit to record whether we have already
9105 processed this entry. */
9111 /* Generate relocs for the dynamic linker, except in
9112 the case of TLSLD where we'll use one entry per
9114 asection
*relgot
= ppc64_elf_tdata (input_bfd
)->relgot
;
9117 if ((info
->shared
|| indx
!= 0)
9119 || ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
9120 || h
->root
.type
!= bfd_link_hash_undefweak
))
9122 outrel
.r_offset
= (got
->output_section
->vma
9123 + got
->output_offset
9125 outrel
.r_addend
= rel
->r_addend
;
9126 if (tls_type
& (TLS_LD
| TLS_GD
))
9128 outrel
.r_addend
= 0;
9129 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPMOD64
);
9130 if (tls_type
== (TLS_TLS
| TLS_GD
))
9132 loc
= relgot
->contents
;
9133 loc
+= (relgot
->reloc_count
++
9134 * sizeof (Elf64_External_Rela
));
9135 bfd_elf64_swap_reloca_out (output_bfd
,
9137 outrel
.r_offset
+= 8;
9138 outrel
.r_addend
= rel
->r_addend
;
9140 = ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
9143 else if (tls_type
== (TLS_TLS
| TLS_DTPREL
))
9144 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_DTPREL64
);
9145 else if (tls_type
== (TLS_TLS
| TLS_TPREL
))
9146 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_TPREL64
);
9149 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_RELATIVE
);
9151 /* Write the .got section contents for the sake
9153 loc
= got
->contents
+ off
;
9154 bfd_put_64 (output_bfd
, outrel
.r_addend
+ relocation
,
9158 outrel
.r_info
= ELF64_R_INFO (indx
, R_PPC64_GLOB_DAT
);
9160 if (indx
== 0 && tls_type
!= (TLS_TLS
| TLS_LD
))
9162 outrel
.r_addend
+= relocation
;
9163 if (tls_type
& (TLS_GD
| TLS_DTPREL
| TLS_TPREL
))
9164 outrel
.r_addend
-= htab
->elf
.tls_sec
->vma
;
9166 loc
= relgot
->contents
;
9167 loc
+= (relgot
->reloc_count
++
9168 * sizeof (Elf64_External_Rela
));
9169 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
9172 /* Init the .got section contents here if we're not
9173 emitting a reloc. */
9176 relocation
+= rel
->r_addend
;
9177 if (tls_type
== (TLS_TLS
| TLS_LD
))
9179 else if (tls_type
!= 0)
9181 relocation
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
9182 if (tls_type
== (TLS_TLS
| TLS_TPREL
))
9183 relocation
+= DTP_OFFSET
- TP_OFFSET
;
9185 if (tls_type
== (TLS_TLS
| TLS_GD
))
9187 bfd_put_64 (output_bfd
, relocation
,
9188 got
->contents
+ off
+ 8);
9193 bfd_put_64 (output_bfd
, relocation
,
9194 got
->contents
+ off
);
9198 if (off
>= (bfd_vma
) -2)
9201 relocation
= got
->output_offset
+ off
;
9203 /* TOC base (r2) is TOC start plus 0x8000. */
9204 addend
= -TOC_BASE_OFF
;
9208 case R_PPC64_PLT16_HA
:
9209 case R_PPC64_PLT16_HI
:
9210 case R_PPC64_PLT16_LO
:
9213 /* Relocation is to the entry for this symbol in the
9214 procedure linkage table. */
9216 /* Resolve a PLT reloc against a local symbol directly,
9217 without using the procedure linkage table. */
9221 /* It's possible that we didn't make a PLT entry for this
9222 symbol. This happens when statically linking PIC code,
9223 or when using -Bsymbolic. Go find a match if there is a
9225 if (htab
->plt
!= NULL
)
9227 struct plt_entry
*ent
;
9228 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
9229 if (ent
->addend
== rel
->r_addend
9230 && ent
->plt
.offset
!= (bfd_vma
) -1)
9232 relocation
= (htab
->plt
->output_section
->vma
9233 + htab
->plt
->output_offset
9235 unresolved_reloc
= FALSE
;
9241 /* Relocation value is TOC base. */
9242 relocation
= TOCstart
;
9244 relocation
+= htab
->stub_group
[input_section
->id
].toc_off
;
9245 else if (unresolved_reloc
)
9247 else if (sec
!= NULL
&& sec
->id
<= htab
->top_id
)
9248 relocation
+= htab
->stub_group
[sec
->id
].toc_off
;
9250 unresolved_reloc
= TRUE
;
9253 /* TOC16 relocs. We want the offset relative to the TOC base,
9254 which is the address of the start of the TOC plus 0x8000.
9255 The TOC consists of sections .got, .toc, .tocbss, and .plt,
9258 case R_PPC64_TOC16_LO
:
9259 case R_PPC64_TOC16_HI
:
9260 case R_PPC64_TOC16_DS
:
9261 case R_PPC64_TOC16_LO_DS
:
9262 case R_PPC64_TOC16_HA
:
9263 addend
-= TOCstart
+ htab
->stub_group
[input_section
->id
].toc_off
;
9266 /* Relocate against the beginning of the section. */
9267 case R_PPC64_SECTOFF
:
9268 case R_PPC64_SECTOFF_LO
:
9269 case R_PPC64_SECTOFF_HI
:
9270 case R_PPC64_SECTOFF_DS
:
9271 case R_PPC64_SECTOFF_LO_DS
:
9272 case R_PPC64_SECTOFF_HA
:
9274 addend
-= sec
->output_section
->vma
;
9278 case R_PPC64_REL14_BRNTAKEN
:
9279 case R_PPC64_REL14_BRTAKEN
:
9283 case R_PPC64_TPREL16
:
9284 case R_PPC64_TPREL16_LO
:
9285 case R_PPC64_TPREL16_HI
:
9286 case R_PPC64_TPREL16_HA
:
9287 case R_PPC64_TPREL16_DS
:
9288 case R_PPC64_TPREL16_LO_DS
:
9289 case R_PPC64_TPREL16_HIGHER
:
9290 case R_PPC64_TPREL16_HIGHERA
:
9291 case R_PPC64_TPREL16_HIGHEST
:
9292 case R_PPC64_TPREL16_HIGHESTA
:
9293 addend
-= htab
->elf
.tls_sec
->vma
+ TP_OFFSET
;
9295 /* The TPREL16 relocs shouldn't really be used in shared
9296 libs as they will result in DT_TEXTREL being set, but
9297 support them anyway. */
9301 case R_PPC64_DTPREL16
:
9302 case R_PPC64_DTPREL16_LO
:
9303 case R_PPC64_DTPREL16_HI
:
9304 case R_PPC64_DTPREL16_HA
:
9305 case R_PPC64_DTPREL16_DS
:
9306 case R_PPC64_DTPREL16_LO_DS
:
9307 case R_PPC64_DTPREL16_HIGHER
:
9308 case R_PPC64_DTPREL16_HIGHERA
:
9309 case R_PPC64_DTPREL16_HIGHEST
:
9310 case R_PPC64_DTPREL16_HIGHESTA
:
9311 addend
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
9314 case R_PPC64_DTPMOD64
:
9319 case R_PPC64_TPREL64
:
9320 addend
-= htab
->elf
.tls_sec
->vma
+ TP_OFFSET
;
9323 case R_PPC64_DTPREL64
:
9324 addend
-= htab
->elf
.tls_sec
->vma
+ DTP_OFFSET
;
9327 /* Relocations that may need to be propagated if this is a
9332 case R_PPC64_ADDR14
:
9333 case R_PPC64_ADDR14_BRNTAKEN
:
9334 case R_PPC64_ADDR14_BRTAKEN
:
9335 case R_PPC64_ADDR16
:
9336 case R_PPC64_ADDR16_DS
:
9337 case R_PPC64_ADDR16_HA
:
9338 case R_PPC64_ADDR16_HI
:
9339 case R_PPC64_ADDR16_HIGHER
:
9340 case R_PPC64_ADDR16_HIGHERA
:
9341 case R_PPC64_ADDR16_HIGHEST
:
9342 case R_PPC64_ADDR16_HIGHESTA
:
9343 case R_PPC64_ADDR16_LO
:
9344 case R_PPC64_ADDR16_LO_DS
:
9345 case R_PPC64_ADDR24
:
9346 case R_PPC64_ADDR32
:
9347 case R_PPC64_ADDR64
:
9348 case R_PPC64_UADDR16
:
9349 case R_PPC64_UADDR32
:
9350 case R_PPC64_UADDR64
:
9351 /* r_symndx will be zero only for relocs against symbols
9352 from removed linkonce sections, or sections discarded by
9360 if ((input_section
->flags
& SEC_ALLOC
) == 0)
9363 if (NO_OPD_RELOCS
&& is_opd
)
9368 || ELF_ST_VISIBILITY (h
->other
) == STV_DEFAULT
9369 || h
->root
.type
!= bfd_link_hash_undefweak
)
9370 && (MUST_BE_DYN_RELOC (r_type
)
9371 || !SYMBOL_CALLS_LOCAL (info
, h
)))
9372 || (ELIMINATE_COPY_RELOCS
9376 && (h
->elf_link_hash_flags
& ELF_LINK_NON_GOT_REF
) == 0
9377 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0
9378 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_REGULAR
) == 0))
9380 Elf_Internal_Rela outrel
;
9381 bfd_boolean skip
, relocate
;
9386 /* When generating a dynamic object, these relocations
9387 are copied into the output file to be resolved at run
9393 out_off
= _bfd_elf_section_offset (output_bfd
, info
,
9394 input_section
, rel
->r_offset
);
9395 if (out_off
== (bfd_vma
) -1)
9397 else if (out_off
== (bfd_vma
) -2)
9398 skip
= TRUE
, relocate
= TRUE
;
9399 out_off
+= (input_section
->output_section
->vma
9400 + input_section
->output_offset
);
9401 outrel
.r_offset
= out_off
;
9402 outrel
.r_addend
= rel
->r_addend
;
9404 /* Optimize unaligned reloc use. */
9405 if ((r_type
== R_PPC64_ADDR64
&& (out_off
& 7) != 0)
9406 || (r_type
== R_PPC64_UADDR64
&& (out_off
& 7) == 0))
9407 r_type
^= R_PPC64_ADDR64
^ R_PPC64_UADDR64
;
9408 else if ((r_type
== R_PPC64_ADDR32
&& (out_off
& 3) != 0)
9409 || (r_type
== R_PPC64_UADDR32
&& (out_off
& 3) == 0))
9410 r_type
^= R_PPC64_ADDR32
^ R_PPC64_UADDR32
;
9411 else if ((r_type
== R_PPC64_ADDR16
&& (out_off
& 1) != 0)
9412 || (r_type
== R_PPC64_UADDR16
&& (out_off
& 1) == 0))
9413 r_type
^= R_PPC64_ADDR16
^ R_PPC64_UADDR16
;
9416 memset (&outrel
, 0, sizeof outrel
);
9417 else if (!SYMBOL_REFERENCES_LOCAL (info
, h
)
9419 && r_type
!= R_PPC64_TOC
)
9420 outrel
.r_info
= ELF64_R_INFO (h
->dynindx
, r_type
);
9423 /* This symbol is local, or marked to become local,
9424 or this is an opd section reloc which must point
9425 at a local function. */
9426 outrel
.r_addend
+= relocation
;
9427 if (r_type
== R_PPC64_ADDR64
|| r_type
== R_PPC64_TOC
)
9429 if (is_opd
&& h
!= NULL
)
9431 /* Lie about opd entries. This case occurs
9432 when building shared libraries and we
9433 reference a function in another shared
9434 lib. The same thing happens for a weak
9435 definition in an application that's
9436 overridden by a strong definition in a
9437 shared lib. (I believe this is a generic
9438 bug in binutils handling of weak syms.)
9439 In these cases we won't use the opd
9440 entry in this lib. */
9441 unresolved_reloc
= FALSE
;
9443 outrel
.r_info
= ELF64_R_INFO (0, R_PPC64_RELATIVE
);
9445 /* We need to relocate .opd contents for ld.so.
9446 Prelink also wants simple and consistent rules
9447 for relocs. This make all RELATIVE relocs have
9448 *r_offset equal to r_addend. */
9455 if (bfd_is_abs_section (sec
))
9457 else if (sec
== NULL
|| sec
->owner
== NULL
)
9459 bfd_set_error (bfd_error_bad_value
);
9466 osec
= sec
->output_section
;
9467 indx
= elf_section_data (osec
)->dynindx
;
9469 /* We are turning this relocation into one
9470 against a section symbol, so subtract out
9471 the output section's address but not the
9472 offset of the input section in the output
9474 outrel
.r_addend
-= osec
->vma
;
9477 outrel
.r_info
= ELF64_R_INFO (indx
, r_type
);
9481 sreloc
= elf_section_data (input_section
)->sreloc
;
9485 loc
= sreloc
->contents
;
9486 loc
+= sreloc
->reloc_count
++ * sizeof (Elf64_External_Rela
);
9487 bfd_elf64_swap_reloca_out (output_bfd
, &outrel
, loc
);
9489 /* If this reloc is against an external symbol, it will
9490 be computed at runtime, so there's no need to do
9491 anything now. However, for the sake of prelink ensure
9492 that the section contents are a known value. */
9495 unresolved_reloc
= FALSE
;
9496 /* The value chosen here is quite arbitrary as ld.so
9497 ignores section contents except for the special
9498 case of .opd where the contents might be accessed
9499 before relocation. Choose zero, as that won't
9500 cause reloc overflow. */
9503 /* Use *r_offset == r_addend for R_PPC64_ADDR64 relocs
9504 to improve backward compatibility with older
9506 if (r_type
== R_PPC64_ADDR64
)
9507 addend
= outrel
.r_addend
;
9508 /* Adjust pc_relative relocs to have zero in *r_offset. */
9509 else if (ppc64_elf_howto_table
[r_type
]->pc_relative
)
9510 addend
= (input_section
->output_section
->vma
9511 + input_section
->output_offset
9518 case R_PPC64_GLOB_DAT
:
9519 case R_PPC64_JMP_SLOT
:
9520 case R_PPC64_RELATIVE
:
9521 /* We shouldn't ever see these dynamic relocs in relocatable
9525 case R_PPC64_PLTGOT16
:
9526 case R_PPC64_PLTGOT16_DS
:
9527 case R_PPC64_PLTGOT16_HA
:
9528 case R_PPC64_PLTGOT16_HI
:
9529 case R_PPC64_PLTGOT16_LO
:
9530 case R_PPC64_PLTGOT16_LO_DS
:
9531 case R_PPC64_PLTREL32
:
9532 case R_PPC64_PLTREL64
:
9533 /* These ones haven't been implemented yet. */
9535 (*_bfd_error_handler
)
9536 (_("%B: relocation %s is not supported for symbol %s."),
9538 ppc64_elf_howto_table
[r_type
]->name
, sym_name
);
9540 bfd_set_error (bfd_error_invalid_operation
);
9545 /* Do any further special processing. */
9551 case R_PPC64_ADDR16_HA
:
9552 case R_PPC64_ADDR16_HIGHERA
:
9553 case R_PPC64_ADDR16_HIGHESTA
:
9554 case R_PPC64_GOT16_HA
:
9555 case R_PPC64_PLTGOT16_HA
:
9556 case R_PPC64_PLT16_HA
:
9557 case R_PPC64_TOC16_HA
:
9558 case R_PPC64_SECTOFF_HA
:
9559 case R_PPC64_TPREL16_HA
:
9560 case R_PPC64_DTPREL16_HA
:
9561 case R_PPC64_GOT_TLSGD16_HA
:
9562 case R_PPC64_GOT_TLSLD16_HA
:
9563 case R_PPC64_GOT_TPREL16_HA
:
9564 case R_PPC64_GOT_DTPREL16_HA
:
9565 case R_PPC64_TPREL16_HIGHER
:
9566 case R_PPC64_TPREL16_HIGHERA
:
9567 case R_PPC64_TPREL16_HIGHEST
:
9568 case R_PPC64_TPREL16_HIGHESTA
:
9569 case R_PPC64_DTPREL16_HIGHER
:
9570 case R_PPC64_DTPREL16_HIGHERA
:
9571 case R_PPC64_DTPREL16_HIGHEST
:
9572 case R_PPC64_DTPREL16_HIGHESTA
:
9573 /* It's just possible that this symbol is a weak symbol
9574 that's not actually defined anywhere. In that case,
9575 'sec' would be NULL, and we should leave the symbol
9576 alone (it will be set to zero elsewhere in the link). */
9578 /* Add 0x10000 if sign bit in 0:15 is set.
9579 Bits 0:15 are not used. */
9583 case R_PPC64_ADDR16_DS
:
9584 case R_PPC64_ADDR16_LO_DS
:
9585 case R_PPC64_GOT16_DS
:
9586 case R_PPC64_GOT16_LO_DS
:
9587 case R_PPC64_PLT16_LO_DS
:
9588 case R_PPC64_SECTOFF_DS
:
9589 case R_PPC64_SECTOFF_LO_DS
:
9590 case R_PPC64_TOC16_DS
:
9591 case R_PPC64_TOC16_LO_DS
:
9592 case R_PPC64_PLTGOT16_DS
:
9593 case R_PPC64_PLTGOT16_LO_DS
:
9594 case R_PPC64_GOT_TPREL16_DS
:
9595 case R_PPC64_GOT_TPREL16_LO_DS
:
9596 case R_PPC64_GOT_DTPREL16_DS
:
9597 case R_PPC64_GOT_DTPREL16_LO_DS
:
9598 case R_PPC64_TPREL16_DS
:
9599 case R_PPC64_TPREL16_LO_DS
:
9600 case R_PPC64_DTPREL16_DS
:
9601 case R_PPC64_DTPREL16_LO_DS
:
9602 insn
= bfd_get_32 (input_bfd
, contents
+ (rel
->r_offset
& ~3));
9604 /* If this reloc is against an lq insn, then the value must be
9605 a multiple of 16. This is somewhat of a hack, but the
9606 "correct" way to do this by defining _DQ forms of all the
9607 _DS relocs bloats all reloc switches in this file. It
9608 doesn't seem to make much sense to use any of these relocs
9609 in data, so testing the insn should be safe. */
9610 if ((insn
& (0x3f << 26)) == (56u << 26))
9612 if (((relocation
+ addend
) & mask
) != 0)
9614 (*_bfd_error_handler
)
9615 (_("%B: error: relocation %s not a multiple of %d"),
9617 ppc64_elf_howto_table
[r_type
]->name
,
9619 bfd_set_error (bfd_error_bad_value
);
9626 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
9627 because such sections are not SEC_ALLOC and thus ld.so will
9628 not process them. */
9629 if (unresolved_reloc
9630 && !((input_section
->flags
& SEC_DEBUGGING
) != 0
9631 && (h
->elf_link_hash_flags
& ELF_LINK_HASH_DEF_DYNAMIC
) != 0))
9633 (*_bfd_error_handler
)
9634 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
9637 (long) rel
->r_offset
,
9638 ppc64_elf_howto_table
[(int) r_type
]->name
,
9639 h
->root
.root
.string
);
9643 r
= _bfd_final_link_relocate (ppc64_elf_howto_table
[(int) r_type
],
9651 if (r
!= bfd_reloc_ok
)
9653 if (sym_name
== NULL
)
9654 sym_name
= "(null)";
9655 if (r
== bfd_reloc_overflow
)
9660 && h
->root
.type
== bfd_link_hash_undefweak
9661 && ppc64_elf_howto_table
[r_type
]->pc_relative
)
9663 /* Assume this is a call protected by other code that
9664 detects the symbol is undefined. If this is the case,
9665 we can safely ignore the overflow. If not, the
9666 program is hosed anyway, and a little warning isn't
9672 if (!((*info
->callbacks
->reloc_overflow
)
9673 (info
, sym_name
, ppc64_elf_howto_table
[r_type
]->name
,
9674 rel
->r_addend
, input_bfd
, input_section
, rel
->r_offset
)))
9679 (*_bfd_error_handler
)
9680 (_("%B(%A+0x%lx): %s reloc against `%s': error %d"),
9683 (long) rel
->r_offset
,
9684 ppc64_elf_howto_table
[r_type
]->name
,
9695 /* Adjust the value of any local symbols in opd sections. */
9698 ppc64_elf_output_symbol_hook (struct bfd_link_info
*info
,
9699 const char *name ATTRIBUTE_UNUSED
,
9700 Elf_Internal_Sym
*elfsym
,
9701 asection
*input_sec
,
9702 struct elf_link_hash_entry
*h
)
9704 long *opd_adjust
, adjust
;
9710 opd_adjust
= get_opd_info (input_sec
);
9711 if (opd_adjust
== NULL
)
9714 value
= elfsym
->st_value
- input_sec
->output_offset
;
9715 if (!info
->relocatable
)
9716 value
-= input_sec
->output_section
->vma
;
9718 adjust
= opd_adjust
[value
/ 8];
9720 elfsym
->st_value
= 0;
9722 elfsym
->st_value
+= adjust
;
9726 /* Finish up dynamic symbol handling. We set the contents of various
9727 dynamic sections here. */
9730 ppc64_elf_finish_dynamic_symbol (bfd
*output_bfd
,
9731 struct bfd_link_info
*info
,
9732 struct elf_link_hash_entry
*h
,
9733 Elf_Internal_Sym
*sym
)
9735 struct ppc_link_hash_table
*htab
;
9737 struct plt_entry
*ent
;
9738 Elf_Internal_Rela rela
;
9741 htab
= ppc_hash_table (info
);
9742 dynobj
= htab
->elf
.dynobj
;
9744 for (ent
= h
->plt
.plist
; ent
!= NULL
; ent
= ent
->next
)
9745 if (ent
->plt
.offset
!= (bfd_vma
) -1)
9747 /* This symbol has an entry in the procedure linkage
9748 table. Set it up. */
9750 if (htab
->plt
== NULL
9751 || htab
->relplt
== NULL
9752 || htab
->glink
== NULL
)
9755 /* Create a JMP_SLOT reloc to inform the dynamic linker to
9756 fill in the PLT entry. */
9757 rela
.r_offset
= (htab
->plt
->output_section
->vma
9758 + htab
->plt
->output_offset
9760 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_JMP_SLOT
);
9761 rela
.r_addend
= ent
->addend
;
9763 loc
= htab
->relplt
->contents
;
9764 loc
+= ((ent
->plt
.offset
- PLT_INITIAL_ENTRY_SIZE
) / PLT_ENTRY_SIZE
9765 * sizeof (Elf64_External_Rela
));
9766 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
9769 if ((h
->elf_link_hash_flags
& ELF_LINK_HASH_NEEDS_COPY
) != 0)
9771 Elf_Internal_Rela rela
;
9774 /* This symbol needs a copy reloc. Set it up. */
9776 if (h
->dynindx
== -1
9777 || (h
->root
.type
!= bfd_link_hash_defined
9778 && h
->root
.type
!= bfd_link_hash_defweak
)
9779 || htab
->relbss
== NULL
)
9782 rela
.r_offset
= (h
->root
.u
.def
.value
9783 + h
->root
.u
.def
.section
->output_section
->vma
9784 + h
->root
.u
.def
.section
->output_offset
);
9785 rela
.r_info
= ELF64_R_INFO (h
->dynindx
, R_PPC64_COPY
);
9787 loc
= htab
->relbss
->contents
;
9788 loc
+= htab
->relbss
->reloc_count
++ * sizeof (Elf64_External_Rela
);
9789 bfd_elf64_swap_reloca_out (output_bfd
, &rela
, loc
);
9792 /* Mark some specially defined symbols as absolute. */
9793 if (strcmp (h
->root
.root
.string
, "_DYNAMIC") == 0)
9794 sym
->st_shndx
= SHN_ABS
;
9799 /* Used to decide how to sort relocs in an optimal manner for the
9800 dynamic linker, before writing them out. */
9802 static enum elf_reloc_type_class
9803 ppc64_elf_reloc_type_class (const Elf_Internal_Rela
*rela
)
9805 enum elf_ppc64_reloc_type r_type
;
9807 r_type
= ELF64_R_TYPE (rela
->r_info
);
9810 case R_PPC64_RELATIVE
:
9811 return reloc_class_relative
;
9812 case R_PPC64_JMP_SLOT
:
9813 return reloc_class_plt
;
9815 return reloc_class_copy
;
9817 return reloc_class_normal
;
9821 /* Finish up the dynamic sections. */
9824 ppc64_elf_finish_dynamic_sections (bfd
*output_bfd
,
9825 struct bfd_link_info
*info
)
9827 struct ppc_link_hash_table
*htab
;
9831 htab
= ppc_hash_table (info
);
9832 dynobj
= htab
->elf
.dynobj
;
9833 sdyn
= bfd_get_section_by_name (dynobj
, ".dynamic");
9835 if (htab
->elf
.dynamic_sections_created
)
9837 Elf64_External_Dyn
*dyncon
, *dynconend
;
9839 if (sdyn
== NULL
|| htab
->got
== NULL
)
9842 dyncon
= (Elf64_External_Dyn
*) sdyn
->contents
;
9843 dynconend
= (Elf64_External_Dyn
*) (sdyn
->contents
+ sdyn
->size
);
9844 for (; dyncon
< dynconend
; dyncon
++)
9846 Elf_Internal_Dyn dyn
;
9849 bfd_elf64_swap_dyn_in (dynobj
, dyncon
, &dyn
);
9856 case DT_PPC64_GLINK
:
9858 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
9859 /* We stupidly defined DT_PPC64_GLINK to be the start
9860 of glink rather than the first entry point, which is
9861 what ld.so needs, and now have a bigger stub to
9862 support automatic multiple TOCs. */
9863 dyn
.d_un
.d_ptr
+= GLINK_CALL_STUB_SIZE
- 32;
9867 s
= bfd_get_section_by_name (output_bfd
, ".opd");
9870 dyn
.d_un
.d_ptr
= s
->vma
;
9873 case DT_PPC64_OPDSZ
:
9874 s
= bfd_get_section_by_name (output_bfd
, ".opd");
9877 dyn
.d_un
.d_val
= s
->size
;
9882 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
9887 dyn
.d_un
.d_ptr
= s
->output_section
->vma
+ s
->output_offset
;
9891 dyn
.d_un
.d_val
= htab
->relplt
->size
;
9895 /* Don't count procedure linkage table relocs in the
9896 overall reloc count. */
9900 dyn
.d_un
.d_val
-= s
->size
;
9904 /* We may not be using the standard ELF linker script.
9905 If .rela.plt is the first .rela section, we adjust
9906 DT_RELA to not include it. */
9910 if (dyn
.d_un
.d_ptr
!= s
->output_section
->vma
+ s
->output_offset
)
9912 dyn
.d_un
.d_ptr
+= s
->size
;
9916 bfd_elf64_swap_dyn_out (output_bfd
, &dyn
, dyncon
);
9920 if (htab
->got
!= NULL
&& htab
->got
->size
!= 0)
9922 /* Fill in the first entry in the global offset table.
9923 We use it to hold the link-time TOCbase. */
9924 bfd_put_64 (output_bfd
,
9925 elf_gp (output_bfd
) + TOC_BASE_OFF
,
9926 htab
->got
->contents
);
9928 /* Set .got entry size. */
9929 elf_section_data (htab
->got
->output_section
)->this_hdr
.sh_entsize
= 8;
9932 if (htab
->plt
!= NULL
&& htab
->plt
->size
!= 0)
9934 /* Set .plt entry size. */
9935 elf_section_data (htab
->plt
->output_section
)->this_hdr
.sh_entsize
9939 /* We need to handle writing out multiple GOT sections ourselves,
9940 since we didn't add them to DYNOBJ. */
9941 while ((dynobj
= dynobj
->link_next
) != NULL
)
9944 s
= ppc64_elf_tdata (dynobj
)->got
;
9947 && s
->output_section
!= bfd_abs_section_ptr
9948 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
9949 s
->contents
, s
->output_offset
,
9952 s
= ppc64_elf_tdata (dynobj
)->relgot
;
9955 && s
->output_section
!= bfd_abs_section_ptr
9956 && !bfd_set_section_contents (output_bfd
, s
->output_section
,
9957 s
->contents
, s
->output_offset
,
9965 #include "elf64-target.h"