]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - bfd/elf64-ppc.c
projects / thirdparty / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* elf64-ppc.c (func_desc_adjust): Don't supply missing function
[thirdparty/binutils-gdb.git] / bfd / elf64-ppc.c
CommitLineData
5bd4f169 1/* PowerPC64-specific support for 64-bit ELF.
5d1634d7 2 Copyright 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
5bd4f169
AM		 3 Written by Linus Nordberg, Swox AB <info@swox.com>,
4 based on elf32-ppc.c by Ian Lance Taylor.
5
6This file is part of BFD, the Binary File Descriptor library.
7
8This program is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by
10the Free Software Foundation; either version 2 of the License, or
11(at your option) any later version.
12
13This program is distributed in the hope that it will be useful,
14but WITHOUT ANY WARRANTY; without even the implied warranty of
15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16GNU General Public License for more details.
17
18You should have received a copy of the GNU General Public License
19along with this program; if not, write to the Free Software
20Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21
22/* This file is based on the 64-bit PowerPC ELF ABI. It is also based
23 on the file elf32-ppc.c. */
24
25#include "bfd.h"
26#include "sysdep.h"
27#include "bfdlink.h"
28#include "libbfd.h"
29#include "elf-bfd.h"
30#include "elf/ppc.h"
5d1634d7 31#include "elf64-ppc.h"
5bd4f169
AM		 32
33#define USE_RELA /* we want RELA relocations, not REL. */
34
35
36static void ppc_howto_init
37 PARAMS ((void));
38static reloc_howto_type *ppc64_elf_reloc_type_lookup
39 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
40static void ppc64_elf_info_to_howto
41 PARAMS ((bfd *abfd, arelent *cache_ptr, Elf64_Internal_Rela *dst));
42static bfd_reloc_status_type ppc64_elf_addr16_ha_reloc
43 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
44static boolean ppc64_elf_set_private_flags
45 PARAMS ((bfd *, flagword));
5bd4f169
AM		 46static boolean ppc64_elf_merge_private_bfd_data
47 PARAMS ((bfd *, bfd *));
48static boolean ppc64_elf_section_from_shdr
49 PARAMS ((bfd *, Elf64_Internal_Shdr *, char *));
65f38f15
AM		 50static struct bfd_hash_entry *link_hash_newfunc
51 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
52static struct bfd_link_hash_table *ppc64_elf_link_hash_table_create
53 PARAMS ((bfd *));
54static boolean create_got_section
55 PARAMS ((bfd *, struct bfd_link_info *));
5bd4f169
AM		 56static boolean ppc64_elf_create_dynamic_sections
57 PARAMS ((bfd *, struct bfd_link_info *));
65f38f15
AM		 58static void ppc64_elf_copy_indirect_symbol
59 PARAMS ((struct elf_link_hash_entry *, struct elf_link_hash_entry *));
5bd4f169
AM		 60static boolean ppc64_elf_check_relocs
61 PARAMS ((bfd *, struct bfd_link_info *, asection *,
62 const Elf_Internal_Rela *));
63static asection * ppc64_elf_gc_mark_hook
64 PARAMS ((bfd *abfd, struct bfd_link_info *info, Elf_Internal_Rela *rel,
65 struct elf_link_hash_entry *h, Elf_Internal_Sym *sym));
66static boolean ppc64_elf_gc_sweep_hook
67 PARAMS ((bfd *abfd, struct bfd_link_info *info, asection *sec,
68 const Elf_Internal_Rela *relocs));
e86ce104
AM		 69static boolean func_desc_adjust
70 PARAMS ((struct elf_link_hash_entry *, PTR));
71static boolean ppc64_elf_func_desc_adjust
72 PARAMS ((bfd *, struct bfd_link_info *));
5bd4f169
AM		 73static boolean ppc64_elf_adjust_dynamic_symbol
74 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *));
e86ce104
AM		 75static void ppc64_elf_hide_symbol
76 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *, boolean));
65f38f15
AM		 77static boolean allocate_dynrelocs
78 PARAMS ((struct elf_link_hash_entry *, PTR));
79static boolean readonly_dynrelocs
5bd4f169 80 PARAMS ((struct elf_link_hash_entry *, PTR));
65f38f15
AM		 81static enum elf_reloc_type_class ppc64_elf_reloc_type_class
82 PARAMS ((const Elf_Internal_Rela *));
5bd4f169
AM		 83static boolean ppc64_elf_size_dynamic_sections
84 PARAMS ((bfd *, struct bfd_link_info *));
5d1634d7
AM		 85static bfd_byte *build_plt_stub
86 PARAMS ((bfd *, bfd_byte *, int, int));
87static boolean build_one_stub
88 PARAMS ((struct elf_link_hash_entry *, PTR));
5bd4f169
AM		 89static boolean ppc64_elf_fake_sections
90 PARAMS ((bfd *, Elf64_Internal_Shdr *, asection *));
91static boolean ppc64_elf_relocate_section
92 PARAMS ((bfd *, struct bfd_link_info *info, bfd *, asection *, bfd_byte *,
93 Elf_Internal_Rela *relocs, Elf_Internal_Sym *local_syms,
94 asection **));
95static boolean ppc64_elf_finish_dynamic_symbol
96 PARAMS ((bfd *, struct bfd_link_info *, struct elf_link_hash_entry *,
97 Elf_Internal_Sym *));
98static boolean ppc64_elf_finish_dynamic_sections
99 PARAMS ((bfd *, struct bfd_link_info *));
100
101
5bd4f169
AM		 102/* Mask to set RA in memory instructions. */
103#define RA_REGISTER_MASK 0x001f0000
104
105/* Value to shift register by to insert RA. */
106#define RA_REGISTER_SHIFT 16
107
108/* The name of the dynamic interpreter. This is put in the .interp
109 section. */
110#define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
111
112/* The size in bytes of an entry in the procedure linkage table. */
113#define PLT_ENTRY_SIZE 24
114
115/* The initial size of the plt reserved for the dynamic linker. */
5d1634d7 116#define PLT_INITIAL_ENTRY_SIZE PLT_ENTRY_SIZE
5bd4f169
AM		 117
118/* TOC base pointers offset from start of TOC. */
119#define TOC_BASE_OFF (0x8000)
120
5d1634d7
AM		 121/* .plt call stub instructions. */
122#define ADDIS_R12_R2 0x3d820000 /* addis %r12,%r2,xxx@ha */
123#define STD_R2_40R1 0xf8410028 /* std %r2,40(%r1) */
124#define LD_R11_0R12 0xe96c0000 /* ld %r11,xxx+0@l(%r12) */
125#define LD_R2_0R12 0xe84c0000 /* ld %r2,xxx+8@l(%r12) */
126#define MTCTR_R11 0x7d6903a6 /* mtctr %r11 */
127 /* ld %r11,xxx+16@l(%r12) */
128#define BCTR 0x4e800420 /* bctr */
129
130/* The normal stub is this size. */
131#define PLT_CALL_STUB_SIZE (7*4)
132
133/* But sometimes the .plt entry crosses a 64k boundary, and we need
134 to adjust the high word with this insn. */
135#define ADDIS_R12_R12_1 0x3d8c0001 /* addis %r12,%r12,1 */
5bd4f169 136
5d1634d7
AM		 137/* The .glink fixup call stub is the same as the .plt call stub, but
138 the first instruction restores r2, and the std is omitted. */
139#define LD_R2_40R1 0xe8410028 /* ld %r2,40(%r1) */
140
141/* Always allow this much space. */
142#define GLINK_CALL_STUB_SIZE (8*4)
143
144/* Pad with this. */
145#define NOP 0x60000000
146
147/* .glink entries for the first 32k functions are two instructions. */
148#define LI_R0_0 0x38000000 /* li %r0,0 */
149#define B_DOT 0x48000000 /* b . */
150
151/* After that, we need two instructions to load the index, followed by
152 a branch. */
153#define LIS_R0_0 0x3c000000 /* lis %r0,0 */
10ed1bba 154#define ORI_R0_R0_0 0x60000000 /* ori %r0,%r0,0 */
41bd81ab
AM		 155
156/* Since .opd is an array of descriptors and each entry will end up
157 with identical R_PPC64_RELATIVE relocs, there is really no need to
158 propagate .opd relocs; The dynamic linker should be taught to
159 relocate .opd without reloc entries. FIXME: the dynamic linker
160 will need to know where and how large .opd is via a couple of new
161 DT_PPC64_* tags, or perhaps just with one reloc that specifies the
162 start of .opd via its offset and the size via its addend. Also,
163 .opd should be trimmed of unused values. */
164#ifndef NO_OPD_RELOCS
165#define NO_OPD_RELOCS 0
166#endif
5bd4f169
AM		 167\f
168/* Relocation HOWTO's. */
169static reloc_howto_type *ppc64_elf_howto_table[(int) R_PPC_max];
170
171static reloc_howto_type ppc64_elf_howto_raw[] = {
172 /* This reloc does nothing. */
173 HOWTO (R_PPC64_NONE, /* type */
174 0, /* rightshift */
175 2, /* size (0 = byte, 1 = short, 2 = long) */
176 32, /* bitsize */
177 false, /* pc_relative */
178 0, /* bitpos */
179 complain_overflow_bitfield, /* complain_on_overflow */
180 bfd_elf_generic_reloc, /* special_function */
181 "R_PPC64_NONE", /* name */
182 false, /* partial_inplace */
183 0, /* src_mask */
184 0, /* dst_mask */
185 false), /* pcrel_offset */
186
187 /* A standard 32 bit relocation. */
188 HOWTO (R_PPC64_ADDR32, /* type */
189 0, /* rightshift */
190 2, /* size (0 = byte, 1 = short, 2 = long) */
191 32, /* bitsize */
192 false, /* pc_relative */
193 0, /* bitpos */
194 complain_overflow_bitfield, /* complain_on_overflow */
195 bfd_elf_generic_reloc, /* special_function */
196 "R_PPC64_ADDR32", /* name */
197 false, /* partial_inplace */
198 0, /* src_mask */
199 0xffffffff, /* dst_mask */
200 false), /* pcrel_offset */
201
202 /* An absolute 26 bit branch; the lower two bits must be zero.
203 FIXME: we don't check that, we just clear them. */
204 HOWTO (R_PPC64_ADDR24, /* type */
205 0, /* rightshift */
206 2, /* size (0 = byte, 1 = short, 2 = long) */
207 26, /* bitsize */
208 false, /* pc_relative */
209 0, /* bitpos */
210 complain_overflow_bitfield, /* complain_on_overflow */
211 bfd_elf_generic_reloc, /* special_function */
212 "R_PPC64_ADDR24", /* name */
213 false, /* partial_inplace */
214 0, /* src_mask */
215 0x3fffffc, /* dst_mask */
216 false), /* pcrel_offset */
217
218 /* A standard 16 bit relocation. */
219 HOWTO (R_PPC64_ADDR16, /* type */
220 0, /* rightshift */
221 1, /* size (0 = byte, 1 = short, 2 = long) */
222 16, /* bitsize */
223 false, /* pc_relative */
224 0, /* bitpos */
225 complain_overflow_bitfield, /* complain_on_overflow */
226 bfd_elf_generic_reloc, /* special_function */
227 "R_PPC64_ADDR16", /* name */
228 false, /* partial_inplace */
229 0, /* src_mask */
230 0xffff, /* dst_mask */
231 false), /* pcrel_offset */
232
233 /* A 16 bit relocation without overflow. */
234 HOWTO (R_PPC64_ADDR16_LO, /* type */
235 0, /* rightshift */
236 1, /* size (0 = byte, 1 = short, 2 = long) */
237 16, /* bitsize */
238 false, /* pc_relative */
239 0, /* bitpos */
240 complain_overflow_dont,/* complain_on_overflow */
241 bfd_elf_generic_reloc, /* special_function */
242 "R_PPC64_ADDR16_LO", /* name */
243 false, /* partial_inplace */
244 0, /* src_mask */
245 0xffff, /* dst_mask */
246 false), /* pcrel_offset */
247
248 /* Bits 16-31 of an address. */
249 HOWTO (R_PPC64_ADDR16_HI, /* type */
250 16, /* rightshift */
251 1, /* size (0 = byte, 1 = short, 2 = long) */
252 16, /* bitsize */
253 false, /* pc_relative */
254 0, /* bitpos */
255 complain_overflow_dont, /* complain_on_overflow */
256 bfd_elf_generic_reloc, /* special_function */
257 "R_PPC64_ADDR16_HI", /* name */
258 false, /* partial_inplace */
259 0, /* src_mask */
260 0xffff, /* dst_mask */
261 false), /* pcrel_offset */
262
263 /* Bits 16-31 of an address, plus 1 if the contents of the low 16
264 bits, treated as a signed number, is negative. */
265 HOWTO (R_PPC64_ADDR16_HA, /* type */
266 16, /* rightshift */
267 1, /* size (0 = byte, 1 = short, 2 = long) */
268 16, /* bitsize */
269 false, /* pc_relative */
270 0, /* bitpos */
271 complain_overflow_dont, /* complain_on_overflow */
272 ppc64_elf_addr16_ha_reloc, /* special_function */
273 "R_PPC64_ADDR16_HA", /* name */
274 false, /* partial_inplace */
275 0, /* src_mask */
276 0xffff, /* dst_mask */
277 false), /* pcrel_offset */
278
279 /* An absolute 16 bit branch; the lower two bits must be zero.
280 FIXME: we don't check that, we just clear them. */
281 HOWTO (R_PPC64_ADDR14, /* type */
282 0, /* rightshift */
283 2, /* size (0 = byte, 1 = short, 2 = long) */
284 16, /* bitsize */
285 false, /* pc_relative */
286 0, /* bitpos */
287 complain_overflow_bitfield, /* complain_on_overflow */
288 bfd_elf_generic_reloc, /* special_function */
289 "R_PPC64_ADDR14", /* name */
290 false, /* partial_inplace */
291 0, /* src_mask */
292 0xfffc, /* dst_mask */
293 false), /* pcrel_offset */
294
295 /* An absolute 16 bit branch, for which bit 10 should be set to
296 indicate that the branch is expected to be taken. The lower two
297 bits must be zero. */
298 HOWTO (R_PPC64_ADDR14_BRTAKEN, /* type */
299 0, /* rightshift */
300 2, /* size (0 = byte, 1 = short, 2 = long) */
301 16, /* bitsize */
302 false, /* pc_relative */
303 0, /* bitpos */
304 complain_overflow_bitfield, /* complain_on_overflow */
305 bfd_elf_generic_reloc, /* special_function */
306 "R_PPC64_ADDR14_BRTAKEN",/* name */
307 false, /* partial_inplace */
308 0, /* src_mask */
309 0xfffc, /* dst_mask */
310 false), /* pcrel_offset */
311
312 /* An absolute 16 bit branch, for which bit 10 should be set to
313 indicate that the branch is not expected to be taken. The lower
314 two bits must be zero. */
315 HOWTO (R_PPC64_ADDR14_BRNTAKEN, /* type */
316 0, /* rightshift */
317 2, /* size (0 = byte, 1 = short, 2 = long) */
318 16, /* bitsize */
319 false, /* pc_relative */
320 0, /* bitpos */
321 complain_overflow_bitfield, /* complain_on_overflow */
322 bfd_elf_generic_reloc, /* special_function */
323 "R_PPC64_ADDR14_BRNTAKEN",/* name */
324 false, /* partial_inplace */
325 0, /* src_mask */
326 0xfffc, /* dst_mask */
327 false), /* pcrel_offset */
328
329 /* A relative 26 bit branch; the lower two bits must be zero. */
330 HOWTO (R_PPC64_REL24, /* type */
331 0, /* rightshift */
332 2, /* size (0 = byte, 1 = short, 2 = long) */
333 26, /* bitsize */
334 true, /* pc_relative */
335 0, /* bitpos */
336 complain_overflow_signed, /* complain_on_overflow */
337 bfd_elf_generic_reloc, /* special_function */
338 "R_PPC64_REL24", /* name */
339 false, /* partial_inplace */
340 0, /* src_mask */
341 0x3fffffc, /* dst_mask */
342 true), /* pcrel_offset */
343
344 /* A relative 16 bit branch; the lower two bits must be zero. */
345 HOWTO (R_PPC64_REL14, /* type */
346 0, /* rightshift */
347 2, /* size (0 = byte, 1 = short, 2 = long) */
348 16, /* bitsize */
349 true, /* pc_relative */
350 0, /* bitpos */
351 complain_overflow_signed, /* complain_on_overflow */
352 bfd_elf_generic_reloc, /* special_function */
353 "R_PPC64_REL14", /* name */
354 false, /* partial_inplace */
355 0, /* src_mask */
356 0xfffc, /* dst_mask */
357 true), /* pcrel_offset */
358
359 /* A relative 16 bit branch. Bit 10 should be set to indicate that
360 the branch is expected to be taken. The lower two bits must be
361 zero. */
362 HOWTO (R_PPC64_REL14_BRTAKEN, /* type */
363 0, /* rightshift */
364 2, /* size (0 = byte, 1 = short, 2 = long) */
365 16, /* bitsize */
366 true, /* pc_relative */
367 0, /* bitpos */
368 complain_overflow_signed, /* complain_on_overflow */
369 bfd_elf_generic_reloc, /* special_function */
370 "R_PPC64_REL14_BRTAKEN", /* name */
371 false, /* partial_inplace */
372 0, /* src_mask */
373 0xfffc, /* dst_mask */
374 true), /* pcrel_offset */
375
376 /* A relative 16 bit branch. Bit 10 should be set to indicate that
377 the branch is not expected to be taken. The lower two bits must
378 be zero. */
379 HOWTO (R_PPC64_REL14_BRNTAKEN, /* type */
380 0, /* rightshift */
381 2, /* size (0 = byte, 1 = short, 2 = long) */
382 16, /* bitsize */
383 true, /* pc_relative */
384 0, /* bitpos */
385 complain_overflow_signed, /* complain_on_overflow */
386 bfd_elf_generic_reloc, /* special_function */
387 "R_PPC64_REL14_BRNTAKEN",/* name */
388 false, /* partial_inplace */
389 0, /* src_mask */
390 0xfffc, /* dst_mask */
391 true), /* pcrel_offset */
392
393 /* Like R_PPC64_ADDR16, but referring to the GOT table entry for the
394 symbol. */
395 HOWTO (R_PPC64_GOT16, /* type */
396 0, /* rightshift */
397 1, /* size (0 = byte, 1 = short, 2 = long) */
398 16, /* bitsize */
399 false, /* pc_relative */
400 0, /* bitpos */
401 complain_overflow_signed, /* complain_on_overflow */
402 bfd_elf_generic_reloc, /* special_function */
403 "R_PPC64_GOT16", /* name */
404 false, /* partial_inplace */
405 0, /* src_mask */
406 0xffff, /* dst_mask */
407 false), /* pcrel_offset */
408
409 /* Like R_PPC64_ADDR16_LO, but referring to the GOT table entry for
410 the symbol. */
411 HOWTO (R_PPC64_GOT16_LO, /* type */
412 0, /* rightshift */
413 1, /* size (0 = byte, 1 = short, 2 = long) */
414 16, /* bitsize */
415 false, /* pc_relative */
416 0, /* bitpos */
417 complain_overflow_dont, /* complain_on_overflow */
418 bfd_elf_generic_reloc, /* special_function */
419 "R_PPC64_GOT16_LO", /* name */
420 false, /* partial_inplace */
421 0, /* src_mask */
422 0xffff, /* dst_mask */
423 false), /* pcrel_offset */
424
425 /* Like R_PPC64_ADDR16_HI, but referring to the GOT table entry for
426 the symbol. */
427 HOWTO (R_PPC64_GOT16_HI, /* type */
428 16, /* rightshift */
429 1, /* size (0 = byte, 1 = short, 2 = long) */
430 16, /* bitsize */
431 false, /* pc_relative */
432 0, /* bitpos */
433 complain_overflow_dont,/* complain_on_overflow */
434 bfd_elf_generic_reloc, /* special_function */
435 "R_PPC64_GOT16_HI", /* name */
436 false, /* partial_inplace */
437 0, /* src_mask */
438 0xffff, /* dst_mask */
439 false), /* pcrel_offset */
440
441 /* Like R_PPC64_ADDR16_HA, but referring to the GOT table entry for
442 the symbol. */
443 HOWTO (R_PPC64_GOT16_HA, /* type */
444 16, /* rightshift */
445 1, /* size (0 = byte, 1 = short, 2 = long) */
446 16, /* bitsize */
447 false, /* pc_relative */
448 0, /* bitpos */
449 complain_overflow_dont,/* complain_on_overflow */
450 ppc64_elf_addr16_ha_reloc, /* special_function */
451 "R_PPC64_GOT16_HA", /* name */
452 false, /* partial_inplace */
453 0, /* src_mask */
454 0xffff, /* dst_mask */
455 false), /* pcrel_offset */
456
457 /* This is used only by the dynamic linker. The symbol should exist
458 both in the object being run and in some shared library. The
459 dynamic linker copies the data addressed by the symbol from the
460 shared library into the object, because the object being
461 run has to have the data at some particular address. */
462 HOWTO (R_PPC64_COPY, /* type */
463 0, /* rightshift */
464 2, /* size (0 = byte, 1 = short, 2 = long) */
465 32, /* bitsize */
466 false, /* pc_relative */
467 0, /* bitpos */
468 complain_overflow_bitfield, /* complain_on_overflow */
469 bfd_elf_generic_reloc, /* special_function */
470 "R_PPC64_COPY", /* name */
471 false, /* partial_inplace */
472 0, /* src_mask */
473 0, /* dst_mask */
474 false), /* pcrel_offset */
475
476 /* Like R_PPC64_ADDR64, but used when setting global offset table
477 entries. */
478 HOWTO (R_PPC64_GLOB_DAT, /* type */
479 0, /* rightshift */
480 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
481 64, /* bitsize */
482 false, /* pc_relative */
483 0, /* bitpos */
484 complain_overflow_dont, /* complain_on_overflow */
485 bfd_elf_generic_reloc, /* special_function */
486 "R_PPC64_GLOB_DAT", /* name */
487 false, /* partial_inplace */
488 0, /* src_mask */
489 0xffffffffffffffff, /* dst_mask */
490 false), /* pcrel_offset */
491
492 /* Created by the link editor. Marks a procedure linkage table
493 entry for a symbol. */
494 HOWTO (R_PPC64_JMP_SLOT, /* type */
495 0, /* rightshift */
496 0, /* size (0 = byte, 1 = short, 2 = long) */
497 0, /* bitsize */
498 false, /* pc_relative */
499 0, /* bitpos */
500 complain_overflow_dont, /* complain_on_overflow */
501 bfd_elf_generic_reloc, /* special_function */
502 "R_PPC64_JMP_SLOT", /* name */
503 false, /* partial_inplace */
504 0, /* src_mask */
505 0, /* dst_mask */
506 false), /* pcrel_offset */
507
508 /* Used only by the dynamic linker. When the object is run, this
509 doubleword64 is set to the load address of the object, plus the
510 addend. */
511 HOWTO (R_PPC64_RELATIVE, /* type */
512 0, /* rightshift */
513 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
514 64, /* bitsize */
515 false, /* pc_relative */
516 0, /* bitpos */
517 complain_overflow_dont, /* complain_on_overflow */
518 bfd_elf_generic_reloc, /* special_function */
519 "R_PPC64_RELATIVE", /* name */
520 false, /* partial_inplace */
521 0, /* src_mask */
522 0xffffffffffffffff, /* dst_mask */
523 false), /* pcrel_offset */
524
525 /* Like R_PPC64_ADDR32, but may be unaligned. */
526 HOWTO (R_PPC64_UADDR32, /* type */
527 0, /* rightshift */
528 2, /* size (0 = byte, 1 = short, 2 = long) */
529 32, /* bitsize */
530 false, /* pc_relative */
531 0, /* bitpos */
532 complain_overflow_bitfield, /* complain_on_overflow */
533 bfd_elf_generic_reloc, /* special_function */
534 "R_PPC64_UADDR32", /* name */
535 false, /* partial_inplace */
536 0, /* src_mask */
537 0xffffffff, /* dst_mask */
538 false), /* pcrel_offset */
539
540 /* Like R_PPC64_ADDR16, but may be unaligned. */
541 HOWTO (R_PPC64_UADDR16, /* type */
542 0, /* rightshift */
543 1, /* size (0 = byte, 1 = short, 2 = long) */
544 16, /* bitsize */
545 false, /* pc_relative */
546 0, /* bitpos */
547 complain_overflow_bitfield, /* complain_on_overflow */
548 bfd_elf_generic_reloc, /* special_function */
549 "R_PPC64_UADDR16", /* name */
550 false, /* partial_inplace */
551 0, /* src_mask */
552 0xffff, /* dst_mask */
553 false), /* pcrel_offset */
554
555 /* 32-bit PC relative. */
556 HOWTO (R_PPC64_REL32, /* type */
557 0, /* rightshift */
558 2, /* size (0 = byte, 1 = short, 2 = long) */
559 32, /* bitsize */
560 true, /* pc_relative */
561 0, /* bitpos */
562 /* FIXME: Verify. Was complain_overflow_bitfield. */
563 complain_overflow_signed, /* complain_on_overflow */
564 bfd_elf_generic_reloc, /* special_function */
565 "R_PPC64_REL32", /* name */
566 false, /* partial_inplace */
567 0, /* src_mask */
568 0xffffffff, /* dst_mask */
569 true), /* pcrel_offset */
570
10ed1bba 571 /* 32-bit relocation to the symbol's procedure linkage table. */
5bd4f169
AM		 572 HOWTO (R_PPC64_PLT32, /* type */
573 0, /* rightshift */
574 2, /* size (0 = byte, 1 = short, 2 = long) */
575 32, /* bitsize */
576 false, /* pc_relative */
577 0, /* bitpos */
578 complain_overflow_bitfield, /* complain_on_overflow */
579 bfd_elf_generic_reloc, /* special_function */
580 "R_PPC64_PLT32", /* name */
581 false, /* partial_inplace */
582 0, /* src_mask */
583 0, /* dst_mask */
584 false), /* pcrel_offset */
585
586 /* 32-bit PC relative relocation to the symbol's procedure linkage table.
587 FIXME: R_PPC64_PLTREL32 not supported. */
588 HOWTO (R_PPC64_PLTREL32, /* type */
589 0, /* rightshift */
590 2, /* size (0 = byte, 1 = short, 2 = long) */
591 32, /* bitsize */
592 true, /* pc_relative */
593 0, /* bitpos */
594 complain_overflow_signed, /* complain_on_overflow */
595 bfd_elf_generic_reloc, /* special_function */
596 "R_PPC64_PLTREL32", /* name */
597 false, /* partial_inplace */
598 0, /* src_mask */
599 0, /* dst_mask */
600 true), /* pcrel_offset */
601
602 /* Like R_PPC64_ADDR16_LO, but referring to the PLT table entry for
603 the symbol. */
604 HOWTO (R_PPC64_PLT16_LO, /* type */
605 0, /* rightshift */
606 1, /* size (0 = byte, 1 = short, 2 = long) */
607 16, /* bitsize */
608 false, /* pc_relative */
609 0, /* bitpos */
610 complain_overflow_dont, /* complain_on_overflow */
611 bfd_elf_generic_reloc, /* special_function */
612 "R_PPC64_PLT16_LO", /* name */
613 false, /* partial_inplace */
614 0, /* src_mask */
615 0xffff, /* dst_mask */
616 false), /* pcrel_offset */
617
618 /* Like R_PPC64_ADDR16_HI, but referring to the PLT table entry for
619 the symbol. */
620 HOWTO (R_PPC64_PLT16_HI, /* type */
621 16, /* rightshift */
622 1, /* size (0 = byte, 1 = short, 2 = long) */
623 16, /* bitsize */
624 false, /* pc_relative */
625 0, /* bitpos */
626 complain_overflow_dont, /* complain_on_overflow */
627 bfd_elf_generic_reloc, /* special_function */
628 "R_PPC64_PLT16_HI", /* name */
629 false, /* partial_inplace */
630 0, /* src_mask */
631 0xffff, /* dst_mask */
632 false), /* pcrel_offset */
633
634 /* Like R_PPC64_ADDR16_HA, but referring to the PLT table entry for
635 the symbol. */
636 HOWTO (R_PPC64_PLT16_HA, /* type */
637 16, /* rightshift */
638 1, /* size (0 = byte, 1 = short, 2 = long) */
639 16, /* bitsize */
640 false, /* pc_relative */
641 0, /* bitpos */
642 complain_overflow_dont, /* complain_on_overflow */
643 ppc64_elf_addr16_ha_reloc, /* special_function */
644 "R_PPC64_PLT16_HA", /* name */
645 false, /* partial_inplace */
646 0, /* src_mask */
647 0xffff, /* dst_mask */
648 false), /* pcrel_offset */
649
650 /* 32-bit section relative relocation. */
651 /* FIXME: Verify R_PPC64_SECTOFF. Seems strange with size=2 and
652 dst_mask=0. */
653 HOWTO (R_PPC64_SECTOFF, /* type */
654 0, /* rightshift */
655 2, /* size (0 = byte, 1 = short, 2 = long) */
656 32, /* bitsize */
657 true, /* pc_relative */
658 0, /* bitpos */
659 complain_overflow_bitfield, /* complain_on_overflow */
660 bfd_elf_generic_reloc, /* special_function */
661 "R_PPC64_SECTOFF", /* name */
662 false, /* partial_inplace */
663 0, /* src_mask */
664 0, /* dst_mask */
665 true), /* pcrel_offset */
666
667 /* 16-bit lower half section relative relocation. */
668 HOWTO (R_PPC64_SECTOFF_LO, /* type */
669 0, /* rightshift */
670 1, /* size (0 = byte, 1 = short, 2 = long) */
671 16, /* bitsize */
672 false, /* pc_relative */
673 0, /* bitpos */
674 complain_overflow_dont, /* complain_on_overflow */
675 bfd_elf_generic_reloc, /* special_function */
676 "R_PPC64_SECTOFF_LO", /* name */
677 false, /* partial_inplace */
678 0, /* src_mask */
679 0xffff, /* dst_mask */
680 false), /* pcrel_offset */
681
682 /* 16-bit upper half section relative relocation. */
683 HOWTO (R_PPC64_SECTOFF_HI, /* type */
684 16, /* rightshift */
685 1, /* size (0 = byte, 1 = short, 2 = long) */
686 16, /* bitsize */
687 false, /* pc_relative */
688 0, /* bitpos */
689 complain_overflow_dont, /* complain_on_overflow */
690 bfd_elf_generic_reloc, /* special_function */
691 "R_PPC64_SECTOFF_HI", /* name */
692 false, /* partial_inplace */
693 0, /* src_mask */
694 0xffff, /* dst_mask */
695 false), /* pcrel_offset */
696
697 /* 16-bit upper half adjusted section relative relocation. */
698 HOWTO (R_PPC64_SECTOFF_HA, /* type */
699 16, /* rightshift */
700 1, /* size (0 = byte, 1 = short, 2 = long) */
701 16, /* bitsize */
702 false, /* pc_relative */
703 0, /* bitpos */
704 complain_overflow_dont, /* complain_on_overflow */
705 ppc64_elf_addr16_ha_reloc, /* special_function */
706 "R_PPC64_SECTOFF_HA", /* name */
707 false, /* partial_inplace */
708 0, /* src_mask */
709 0xffff, /* dst_mask */
710 false), /* pcrel_offset */
711
712 /* Like R_PPC64_REL24 without touching the two least significant
713 bits. */
714 /* FIXME: Verify R_PPC64_ADDR30. */
715 HOWTO (R_PPC64_ADDR30, /* type */
716 2, /* rightshift */
717 2, /* size (0 = byte, 1 = short, 2 = long) */
718 30, /* bitsize */
719 true, /* pc_relative */
720 0, /* bitpos */
721 complain_overflow_dont, /* complain_on_overflow */
722 bfd_elf_generic_reloc, /* special_function */
723 "R_PPC64_ADDR30", /* name */
724 false, /* partial_inplace */
725 0, /* src_mask */
726 0xfffffffc, /* dst_mask */
727 true), /* pcrel_offset */
728
729 /* Relocs in the 64-bit PowerPC ELF ABI, not in the 32-bit ABI. */
730
731 /* A standard 64-bit relocation. */
732 HOWTO (R_PPC64_ADDR64, /* type */
733 0, /* rightshift */
734 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
735 64, /* bitsize */
736 false, /* pc_relative */
737 0, /* bitpos */
738 complain_overflow_dont, /* complain_on_overflow */
739 bfd_elf_generic_reloc, /* special_function */
740 "R_PPC64_ADDR64", /* name */
741 false, /* partial_inplace */
742 0, /* src_mask */
743 0xffffffffffffffff, /* dst_mask */
744 false), /* pcrel_offset */
745
746 /* The bits 32-47 of an address. */
747 HOWTO (R_PPC64_ADDR16_HIGHER, /* type */
748 32, /* rightshift */
749 1, /* size (0 = byte, 1 = short, 2 = long) */
750 16, /* bitsize */
751 false, /* pc_relative */
752 0, /* bitpos */
753 complain_overflow_dont, /* complain_on_overflow */
754 bfd_elf_generic_reloc, /* special_function */
755 "R_PPC64_ADDR16_HIGHER", /* name */
756 false, /* partial_inplace */
757 0, /* src_mask */
758 0xffff, /* dst_mask */
759 false), /* pcrel_offset */
760
761 /* The bits 32-47 of an address, plus 1 if the contents of the low
762 16 bits, treated as a signed number, is negative. */
763 HOWTO (R_PPC64_ADDR16_HIGHERA, /* type */
764 32, /* rightshift */
765 1, /* size (0 = byte, 1 = short, 2 = long) */
766 16, /* bitsize */
767 false, /* pc_relative */
768 0, /* bitpos */
769 complain_overflow_dont, /* complain_on_overflow */
770 ppc64_elf_addr16_ha_reloc, /* special_function */
771 "R_PPC64_ADDR16_HIGHERA", /* name */
772 false, /* partial_inplace */
773 0, /* src_mask */
774 0xffff, /* dst_mask */
775 false), /* pcrel_offset */
776
777 /* The bits 48-63 of an address. */
778 HOWTO (R_PPC64_ADDR16_HIGHEST,/* type */
779 48, /* rightshift */
780 1, /* size (0 = byte, 1 = short, 2 = long) */
781 16, /* bitsize */
782 false, /* pc_relative */
783 0, /* bitpos */
784 complain_overflow_dont, /* complain_on_overflow */
785 bfd_elf_generic_reloc, /* special_function */
786 "R_PPC64_ADDR16_HIGHEST", /* name */
787 false, /* partial_inplace */
788 0, /* src_mask */
789 0xffff, /* dst_mask */
790 false), /* pcrel_offset */
791
792 /* The bits 48-63 of an address, plus 1 if the contents of the low
793 16 bits, treated as a signed number, is negative. */
794 HOWTO (R_PPC64_ADDR16_HIGHESTA,/* type */
795 48, /* rightshift */
796 1, /* size (0 = byte, 1 = short, 2 = long) */
797 16, /* bitsize */
798 false, /* pc_relative */
799 0, /* bitpos */
800 complain_overflow_dont, /* complain_on_overflow */
801 ppc64_elf_addr16_ha_reloc, /* special_function */
802 "R_PPC64_ADDR16_HIGHESTA", /* name */
803 false, /* partial_inplace */
804 0, /* src_mask */
805 0xffff, /* dst_mask */
806 false), /* pcrel_offset */
807
808 /* Like ADDR64, but may be unaligned. */
809 HOWTO (R_PPC64_UADDR64, /* type */
810 0, /* rightshift */
811 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
812 64, /* bitsize */
813 false, /* pc_relative */
814 0, /* bitpos */
815 complain_overflow_dont, /* complain_on_overflow */
816 bfd_elf_generic_reloc, /* special_function */
817 "R_PPC64_UADDR64", /* name */
818 false, /* partial_inplace */
819 0, /* src_mask */
820 0xffffffffffffffff, /* dst_mask */
821 false), /* pcrel_offset */
822
823 /* 64-bit relative relocation. */
824 HOWTO (R_PPC64_REL64, /* type */
825 0, /* rightshift */
826 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
827 64, /* bitsize */
828 true, /* pc_relative */
829 0, /* bitpos */
830 complain_overflow_dont, /* complain_on_overflow */
831 bfd_elf_generic_reloc, /* special_function */
832 "R_PPC64_REL64", /* name */
833 false, /* partial_inplace */
834 0, /* src_mask */
835 0xffffffffffffffff, /* dst_mask */
836 true), /* pcrel_offset */
837
838 /* 64-bit relocation to the symbol's procedure linkage table. */
5bd4f169
AM		 839 HOWTO (R_PPC64_PLT64, /* type */
840 0, /* rightshift */
841 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
842 64, /* bitsize */
843 false, /* pc_relative */
844 0, /* bitpos */
845 complain_overflow_dont, /* complain_on_overflow */
846 bfd_elf_generic_reloc, /* special_function */
847 "R_PPC64_PLT64", /* name */
848 false, /* partial_inplace */
849 0, /* src_mask */
850 0, /* dst_mask */
851 false), /* pcrel_offset */
852
853 /* 64-bit PC relative relocation to the symbol's procedure linkage
854 table. */
855 /* FIXME: R_PPC64_PLTREL64 not supported. */
856 HOWTO (R_PPC64_PLTREL64, /* type */
857 0, /* rightshift */
858 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
859 64, /* bitsize */
860 true, /* pc_relative */
861 0, /* bitpos */
862 complain_overflow_dont, /* complain_on_overflow */
863 bfd_elf_generic_reloc, /* special_function */
864 "R_PPC64_PLTREL64", /* name */
865 false, /* partial_inplace */
866 0, /* src_mask */
867 0, /* dst_mask */
868 true), /* pcrel_offset */
869
870 /* 16 bit TOC-relative relocation. */
871
872 /* R_PPC64_TOC16 47 half16* S + A - .TOC. */
873 HOWTO (R_PPC64_TOC16, /* type */
874 0, /* rightshift */
875 1, /* size (0 = byte, 1 = short, 2 = long) */
876 16, /* bitsize */
877 false, /* pc_relative */
878 0, /* bitpos */
879 complain_overflow_signed, /* complain_on_overflow */
880 bfd_elf_generic_reloc, /* special_function */
881 "R_PPC64_TOC16", /* name */
882 false, /* partial_inplace */
883 0, /* src_mask */
884 0xffff, /* dst_mask */
885 false), /* pcrel_offset */
886
887 /* 16 bit TOC-relative relocation without overflow. */
888
889 /* R_PPC64_TOC16_LO 48 half16 #lo (S + A - .TOC.) */
890 HOWTO (R_PPC64_TOC16_LO, /* type */
891 0, /* rightshift */
892 1, /* size (0 = byte, 1 = short, 2 = long) */
893 16, /* bitsize */
894 false, /* pc_relative */
895 0, /* bitpos */
896 complain_overflow_dont, /* complain_on_overflow */
897 bfd_elf_generic_reloc, /* special_function */
898 "R_PPC64_TOC16_LO", /* name */
899 false, /* partial_inplace */
900 0, /* src_mask */
901 0xffff, /* dst_mask */
902 false), /* pcrel_offset */
903
904 /* 16 bit TOC-relative relocation, high 16 bits. */
905
906 /* R_PPC64_TOC16_HI 49 half16 #hi (S + A - .TOC.) */
907 HOWTO (R_PPC64_TOC16_HI, /* type */
908 16, /* rightshift */
909 1, /* size (0 = byte, 1 = short, 2 = long) */
910 16, /* bitsize */
911 false, /* pc_relative */
912 0, /* bitpos */
913 complain_overflow_dont, /* complain_on_overflow */
914 bfd_elf_generic_reloc, /* special_function */
915 "R_PPC64_TOC16_HI", /* name */
916 false, /* partial_inplace */
917 0, /* src_mask */
918 0xffff, /* dst_mask */
919 false), /* pcrel_offset */
920
921 /* 16 bit TOC-relative relocation, high 16 bits, plus 1 if the
922 contents of the low 16 bits, treated as a signed number, is
923 negative. */
924
925 /* R_PPC64_TOC16_HA 50 half16 #ha (S + A - .TOC.) */
926 HOWTO (R_PPC64_TOC16_HA, /* type */
927 16, /* rightshift */
928 1, /* size (0 = byte, 1 = short, 2 = long) */
929 16, /* bitsize */
930 false, /* pc_relative */
931 0, /* bitpos */
932 complain_overflow_dont, /* complain_on_overflow */
933 ppc64_elf_addr16_ha_reloc, /* special_function */
934 "R_PPC64_TOC16_HA", /* name */
935 false, /* partial_inplace */
936 0, /* src_mask */
937 0xffff, /* dst_mask */
938 false), /* pcrel_offset */
939
940 /* 64-bit relocation; insert value of TOC base (.TOC.). */
941
942 /* R_PPC64_TOC 51 doubleword64 .TOC. */
943 HOWTO (R_PPC64_TOC, /* type */
944 0, /* rightshift */
945 4, /* size (0=byte, 1=short, 2=long, 4=64 bits) */
946 64, /* bitsize */
947 false, /* pc_relative */
948 0, /* bitpos */
949 complain_overflow_bitfield, /* complain_on_overflow */
950 bfd_elf_generic_reloc, /* special_function */
951 "R_PPC64_TOC", /* name */
952 false, /* partial_inplace */
953 0, /* src_mask */
954 0xffffffffffffffff, /* dst_mask */
955 false), /* pcrel_offset */
956
957 /* Like R_PPC64_GOT16, but also informs the link editor that the
958 value to relocate may (!) refer to a PLT entry which the link
959 editor (a) may replace with the symbol value. If the link editor
960 is unable to fully resolve the symbol, it may (b) create a PLT
961 entry and store the address to the new PLT entry in the GOT.
962 This permits lazy resolution of function symbols at run time.
963 The link editor may also skip all of this and just (c) emit a
964 R_PPC64_GLOB_DAT to tie the symbol to the GOT entry. */
965 /* FIXME: R_PPC64_PLTGOT16 not implemented. */
966 HOWTO (R_PPC64_PLTGOT16, /* type */
967 0, /* rightshift */
968 1, /* size (0 = byte, 1 = short, 2 = long) */
969 16, /* bitsize */
970 false, /* pc_relative */
971 0, /* bitpos */
972 complain_overflow_signed, /* complain_on_overflow */
973 bfd_elf_generic_reloc, /* special_function */
974 "R_PPC64_PLTGOT16", /* name */
975 false, /* partial_inplace */
976 0, /* src_mask */
977 0xffff, /* dst_mask */
978 false), /* pcrel_offset */
979
980 /* Like R_PPC64_PLTGOT16, but without overflow. */
981 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
982 HOWTO (R_PPC64_PLTGOT16_LO, /* type */
983 0, /* rightshift */
984 1, /* size (0 = byte, 1 = short, 2 = long) */
985 16, /* bitsize */
986 false, /* pc_relative */
987 0, /* bitpos */
988 complain_overflow_dont, /* complain_on_overflow */
989 bfd_elf_generic_reloc, /* special_function */
990 "R_PPC64_PLTGOT16_LO", /* name */
991 false, /* partial_inplace */
992 0, /* src_mask */
993 0xffff, /* dst_mask */
994 false), /* pcrel_offset */
995
996 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address. */
997 /* FIXME: R_PPC64_PLTGOT16_HI not implemented. */
998 HOWTO (R_PPC64_PLTGOT16_HI, /* type */
999 16, /* rightshift */
1000 1, /* size (0 = byte, 1 = short, 2 = long) */
1001 16, /* bitsize */
1002 false, /* pc_relative */
1003 0, /* bitpos */
1004 complain_overflow_dont, /* complain_on_overflow */
1005 bfd_elf_generic_reloc, /* special_function */
1006 "R_PPC64_PLTGOT16_HI", /* name */
1007 false, /* partial_inplace */
1008 0, /* src_mask */
1009 0xffff, /* dst_mask */
1010 false), /* pcrel_offset */
1011
1012 /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address, plus
1013 1 if the contents of the low 16 bits, treated as a signed number,
1014 is negative. */
1015 /* FIXME: R_PPC64_PLTGOT16_HA not implemented. */
1016 HOWTO (R_PPC64_PLTGOT16_HA, /* type */
1017 16, /* rightshift */
1018 1, /* size (0 = byte, 1 = short, 2 = long) */
1019 16, /* bitsize */
1020 false, /* pc_relative */
1021 0, /* bitpos */
1022 complain_overflow_dont,/* complain_on_overflow */
1023 ppc64_elf_addr16_ha_reloc, /* special_function */
1024 "R_PPC64_PLTGOT16_HA", /* name */
1025 false, /* partial_inplace */
1026 0, /* src_mask */
1027 0xffff, /* dst_mask */
1028 false), /* pcrel_offset */
1029
1030 /* Like R_PPC64_ADDR16, but for instructions with a DS field. */
1031 HOWTO (R_PPC64_ADDR16_DS, /* type */
1032 0, /* rightshift */
1033 1, /* size (0 = byte, 1 = short, 2 = long) */
1034 16, /* bitsize */
1035 false, /* pc_relative */
1036 0, /* bitpos */
1037 complain_overflow_bitfield, /* complain_on_overflow */
1038 bfd_elf_generic_reloc, /* special_function */
1039 "R_PPC64_ADDR16_DS", /* name */
1040 false, /* partial_inplace */
1041 0, /* src_mask */
1042 0xfffc, /* dst_mask */
1043 false), /* pcrel_offset */
1044
1045 /* Like R_PPC64_ADDR16_LO, but for instructions with a DS field. */
1046 HOWTO (R_PPC64_ADDR16_LO_DS, /* type */
1047 0, /* rightshift */
1048 1, /* size (0 = byte, 1 = short, 2 = long) */
1049 16, /* bitsize */
1050 false, /* pc_relative */
1051 0, /* bitpos */
1052 complain_overflow_dont,/* complain_on_overflow */
1053 bfd_elf_generic_reloc, /* special_function */
1054 "R_PPC64_ADDR16_LO_DS",/* name */
1055 false, /* partial_inplace */
1056 0, /* src_mask */
1057 0xfffc, /* dst_mask */
1058 false), /* pcrel_offset */
1059
1060 /* Like R_PPC64_GOT16, but for instructions with a DS field. */
1061 HOWTO (R_PPC64_GOT16_DS, /* type */
1062 0, /* rightshift */
1063 1, /* size (0 = byte, 1 = short, 2 = long) */
1064 16, /* bitsize */
1065 false, /* pc_relative */
1066 0, /* bitpos */
1067 complain_overflow_signed, /* complain_on_overflow */
1068 bfd_elf_generic_reloc, /* special_function */
1069 "R_PPC64_GOT16_DS", /* name */
1070 false, /* partial_inplace */
1071 0, /* src_mask */
1072 0xfffc, /* dst_mask */
1073 false), /* pcrel_offset */
1074
1075 /* Like R_PPC64_GOT16_LO, but for instructions with a DS field. */
1076 HOWTO (R_PPC64_GOT16_LO_DS, /* type */
1077 0, /* rightshift */
1078 1, /* size (0 = byte, 1 = short, 2 = long) */
1079 16, /* bitsize */
1080 false, /* pc_relative */
1081 0, /* bitpos */
1082 complain_overflow_dont, /* complain_on_overflow */
1083 bfd_elf_generic_reloc, /* special_function */
1084 "R_PPC64_GOT16_LO_DS", /* name */
1085 false, /* partial_inplace */
1086 0, /* src_mask */
1087 0xfffc, /* dst_mask */
1088 false), /* pcrel_offset */
1089
1090 /* Like R_PPC64_PLT16_LO, but for instructions with a DS field. */
1091 HOWTO (R_PPC64_PLT16_LO_DS, /* type */
1092 0, /* rightshift */
1093 1, /* size (0 = byte, 1 = short, 2 = long) */
1094 16, /* bitsize */
1095 false, /* pc_relative */
1096 0, /* bitpos */
1097 complain_overflow_dont, /* complain_on_overflow */
1098 bfd_elf_generic_reloc, /* special_function */
1099 "R_PPC64_PLT16_LO_DS", /* name */
1100 false, /* partial_inplace */
1101 0, /* src_mask */
1102 0xfffc, /* dst_mask */
1103 false), /* pcrel_offset */
1104
1105 /* Like R_PPC64_SECTOFF, but for instructions with a DS field. */
1106 /* FIXME: Verify R_PPC64_SECTOFF. Seems strange with size=2 and
1107 dst_mask=0. */
1108 HOWTO (R_PPC64_SECTOFF_DS, /* type */
1109 0, /* rightshift */
1110 2, /* size (0 = byte, 1 = short, 2 = long) */
1111 32, /* bitsize */
1112 true, /* pc_relative */
1113 0, /* bitpos */
1114 complain_overflow_bitfield, /* complain_on_overflow */
1115 bfd_elf_generic_reloc, /* special_function */
1116 "R_PPC64_SECTOFF_DS", /* name */
1117 false, /* partial_inplace */
1118 0, /* src_mask */
1119 0, /* dst_mask */
1120 true), /* pcrel_offset */
1121
1122 /* Like R_PPC64_SECTOFF_LO, but for instructions with a DS field. */
1123 HOWTO (R_PPC64_SECTOFF_LO_DS, /* type */
1124 0, /* rightshift */
1125 1, /* size (0 = byte, 1 = short, 2 = long) */
1126 16, /* bitsize */
1127 false, /* pc_relative */
1128 0, /* bitpos */
1129 complain_overflow_dont, /* complain_on_overflow */
1130 bfd_elf_generic_reloc, /* special_function */
1131 "R_PPC64_SECTOFF_LO_DS",/* name */
1132 false, /* partial_inplace */
1133 0, /* src_mask */
1134 0xfffc, /* dst_mask */
1135 false), /* pcrel_offset */
1136
1137 /* Like R_PPC64_TOC16, but for instructions with a DS field. */
1138 HOWTO (R_PPC64_TOC16_DS, /* type */
1139 0, /* rightshift */
1140 1, /* size (0 = byte, 1 = short, 2 = long) */
1141 16, /* bitsize */
1142 false, /* pc_relative */
1143 0, /* bitpos */
1144 complain_overflow_signed, /* complain_on_overflow */
1145 bfd_elf_generic_reloc, /* special_function */
1146 "R_PPC64_TOC16_DS", /* name */
1147 false, /* partial_inplace */
1148 0, /* src_mask */
1149 0xfffc, /* dst_mask */
1150 false), /* pcrel_offset */
1151
1152 /* Like R_PPC64_TOC16_LO, but for instructions with a DS field. */
1153 HOWTO (R_PPC64_TOC16_LO_DS, /* type */
1154 0, /* rightshift */
1155 1, /* size (0 = byte, 1 = short, 2 = long) */
1156 16, /* bitsize */
1157 false, /* pc_relative */
1158 0, /* bitpos */
1159 complain_overflow_dont, /* complain_on_overflow */
1160 bfd_elf_generic_reloc, /* special_function */
1161 "R_PPC64_TOC16_LO_DS", /* name */
1162 false, /* partial_inplace */
1163 0, /* src_mask */
1164 0xfffc, /* dst_mask */
1165 false), /* pcrel_offset */
1166
1167 /* Like R_PPC64_PLTGOT16, but for instructions with a DS field. */
1168 /* FIXME: R_PPC64_PLTGOT16_DS not implemented. */
1169 HOWTO (R_PPC64_PLTGOT16_DS, /* type */
1170 0, /* rightshift */
1171 1, /* size (0 = byte, 1 = short, 2 = long) */
1172 16, /* bitsize */
1173 false, /* pc_relative */
1174 0, /* bitpos */
1175 complain_overflow_signed, /* complain_on_overflow */
1176 bfd_elf_generic_reloc, /* special_function */
1177 "R_PPC64_PLTGOT16_DS", /* name */
1178 false, /* partial_inplace */
1179 0, /* src_mask */
1180 0xfffc, /* dst_mask */
1181 false), /* pcrel_offset */
1182
1183 /* Like R_PPC64_PLTGOT16_LO, but for instructions with a DS field. */
1184 /* FIXME: R_PPC64_PLTGOT16_LO not implemented. */
1185 HOWTO (R_PPC64_PLTGOT16_LO_DS,/* type */
1186 0, /* rightshift */
1187 1, /* size (0 = byte, 1 = short, 2 = long) */
1188 16, /* bitsize */
1189 false, /* pc_relative */
1190 0, /* bitpos */
1191 complain_overflow_dont, /* complain_on_overflow */
1192 bfd_elf_generic_reloc, /* special_function */
1193 "R_PPC64_PLTGOT16_LO_DS",/* name */
1194 false, /* partial_inplace */
1195 0, /* src_mask */
1196 0xfffc, /* dst_mask */
1197 false), /* pcrel_offset */
1198
1199 /* GNU extension to record C++ vtable hierarchy. */
1200 HOWTO (R_PPC64_GNU_VTINHERIT, /* type */
1201 0, /* rightshift */
1202 0, /* size (0 = byte, 1 = short, 2 = long) */
1203 0, /* bitsize */
1204 false, /* pc_relative */
1205 0, /* bitpos */
1206 complain_overflow_dont, /* complain_on_overflow */
1207 NULL, /* special_function */
1208 "R_PPC64_GNU_VTINHERIT", /* name */
1209 false, /* partial_inplace */
1210 0, /* src_mask */
1211 0, /* dst_mask */
1212 false), /* pcrel_offset */
1213
1214 /* GNU extension to record C++ vtable member usage. */
1215 HOWTO (R_PPC64_GNU_VTENTRY, /* type */
1216 0, /* rightshift */
1217 0, /* size (0 = byte, 1 = short, 2 = long) */
1218 0, /* bitsize */
1219 false, /* pc_relative */
1220 0, /* bitpos */
1221 complain_overflow_dont, /* complain_on_overflow */
1222 NULL, /* special_function */
1223 "R_PPC64_GNU_VTENTRY", /* name */
1224 false, /* partial_inplace */
1225 0, /* src_mask */
1226 0, /* dst_mask */
1227 false), /* pcrel_offset */
1228};
1229
1230\f
1231/* Initialize the ppc64_elf_howto_table, so that linear accesses can
1232 be done. */
1233
1234static void
1235ppc_howto_init ()
1236{
1237 unsigned int i, type;
1238
1239 for (i = 0;
1240 i < sizeof (ppc64_elf_howto_raw) / sizeof (ppc64_elf_howto_raw[0]);
1241 i++)
1242 {
1243 type = ppc64_elf_howto_raw[i].type;
1244 BFD_ASSERT (type < (sizeof (ppc64_elf_howto_table)
1245 / sizeof (ppc64_elf_howto_table[0])));
1246 ppc64_elf_howto_table[type] = &ppc64_elf_howto_raw[i];
1247 }
1248}
1249
1250static reloc_howto_type *
1251ppc64_elf_reloc_type_lookup (abfd, code)
1252 bfd *abfd ATTRIBUTE_UNUSED;
1253 bfd_reloc_code_real_type code;
1254{
1255 enum elf_ppc_reloc_type ppc_reloc = R_PPC_NONE;
1256
1257 if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
1258 /* Initialize howto table if needed. */
1259 ppc_howto_init ();
1260
1261 switch ((int) code)
1262 {
1263 default:
1264 return (reloc_howto_type *) NULL;
1265
1266 case BFD_RELOC_NONE: ppc_reloc = R_PPC64_NONE;
1267 break;
1268 case BFD_RELOC_32: ppc_reloc = R_PPC64_ADDR32;
1269 break;
1270 case BFD_RELOC_PPC_BA26: ppc_reloc = R_PPC64_ADDR24;
1271 break;
1272 case BFD_RELOC_16: ppc_reloc = R_PPC64_ADDR16;
1273 break;
1274 case BFD_RELOC_LO16: ppc_reloc = R_PPC64_ADDR16_LO;
1275 break;
1276 case BFD_RELOC_HI16: ppc_reloc = R_PPC64_ADDR16_HI;
1277 break;
1278 case BFD_RELOC_HI16_S: ppc_reloc = R_PPC64_ADDR16_HA;
1279 break;
1280 case BFD_RELOC_PPC_BA16: ppc_reloc = R_PPC64_ADDR14;
1281 break;
1282 case BFD_RELOC_PPC_BA16_BRTAKEN: ppc_reloc = R_PPC64_ADDR14_BRTAKEN;
1283 break;
1284 case BFD_RELOC_PPC_BA16_BRNTAKEN: ppc_reloc = R_PPC64_ADDR14_BRNTAKEN;
1285 break;
1286 case BFD_RELOC_PPC_B26: ppc_reloc = R_PPC64_REL24;
1287 break;
1288 case BFD_RELOC_PPC_B16: ppc_reloc = R_PPC64_REL14;
1289 break;
1290 case BFD_RELOC_PPC_B16_BRTAKEN: ppc_reloc = R_PPC64_REL14_BRTAKEN;
1291 break;
1292 case BFD_RELOC_PPC_B16_BRNTAKEN: ppc_reloc = R_PPC64_REL14_BRNTAKEN;
1293 break;
1294 case BFD_RELOC_16_GOTOFF: ppc_reloc = R_PPC64_GOT16;
1295 break;
1296 case BFD_RELOC_LO16_GOTOFF: ppc_reloc = R_PPC64_GOT16_LO;
1297 break;
1298 case BFD_RELOC_HI16_GOTOFF: ppc_reloc = R_PPC64_GOT16_HI;
1299 break;
1300 case BFD_RELOC_HI16_S_GOTOFF: ppc_reloc = R_PPC64_GOT16_HA;
1301 break;
1302 case BFD_RELOC_PPC_COPY: ppc_reloc = R_PPC64_COPY;
1303 break;
1304 case BFD_RELOC_PPC_GLOB_DAT: ppc_reloc = R_PPC64_GLOB_DAT;
1305 break;
1306 case BFD_RELOC_32_PCREL: ppc_reloc = R_PPC64_REL32;
1307 break;
1308 case BFD_RELOC_32_PLTOFF: ppc_reloc = R_PPC64_PLT32;
1309 break;
1310 case BFD_RELOC_32_PLT_PCREL: ppc_reloc = R_PPC64_PLTREL32;
1311 break;
1312 case BFD_RELOC_LO16_PLTOFF: ppc_reloc = R_PPC64_PLT16_LO;
1313 break;
1314 case BFD_RELOC_HI16_PLTOFF: ppc_reloc = R_PPC64_PLT16_HI;
1315 break;
1316 case BFD_RELOC_HI16_S_PLTOFF: ppc_reloc = R_PPC64_PLT16_HA;
1317 break;
1318 case BFD_RELOC_32_BASEREL: ppc_reloc = R_PPC64_SECTOFF;
1319 break;
1320 case BFD_RELOC_LO16_BASEREL: ppc_reloc = R_PPC64_SECTOFF_LO;
1321 break;
1322 case BFD_RELOC_HI16_BASEREL: ppc_reloc = R_PPC64_SECTOFF_HI;
1323 break;
1324 case BFD_RELOC_HI16_S_BASEREL: ppc_reloc = R_PPC64_SECTOFF_HA;
1325 break;
10ed1bba 1326 case BFD_RELOC_CTOR: ppc_reloc = R_PPC64_ADDR64;
5bd4f169
AM		 1327 break;
1328 case BFD_RELOC_64: ppc_reloc = R_PPC64_ADDR64;
1329 break;
1330 case BFD_RELOC_PPC64_HIGHER: ppc_reloc = R_PPC64_ADDR16_HIGHER;
1331 break;
1332 case BFD_RELOC_PPC64_HIGHER_S: ppc_reloc = R_PPC64_ADDR16_HIGHERA;
1333 break;
1334 case BFD_RELOC_PPC64_HIGHEST: ppc_reloc = R_PPC64_ADDR16_HIGHEST;
1335 break;
1336 case BFD_RELOC_PPC64_HIGHEST_S: ppc_reloc = R_PPC64_ADDR16_HIGHESTA;
1337 break;
1338 case BFD_RELOC_64_PCREL: ppc_reloc = R_PPC64_REL64;
1339 break;
1340 case BFD_RELOC_64_PLTOFF: ppc_reloc = R_PPC64_PLT64;
1341 break;
1342 case BFD_RELOC_64_PLT_PCREL: ppc_reloc = R_PPC64_PLTREL64;
1343 break;
1344 case BFD_RELOC_PPC_TOC16: ppc_reloc = R_PPC64_TOC16;
1345 break;
1346 case BFD_RELOC_PPC64_TOC16_LO: ppc_reloc = R_PPC64_TOC16_LO;
1347 break;
1348 case BFD_RELOC_PPC64_TOC16_HI: ppc_reloc = R_PPC64_TOC16_HI;
1349 break;
1350 case BFD_RELOC_PPC64_TOC16_HA: ppc_reloc = R_PPC64_TOC16_HA;
1351 break;
1352 case BFD_RELOC_PPC64_TOC: ppc_reloc = R_PPC64_TOC;
1353 break;
1354 case BFD_RELOC_PPC64_PLTGOT16: ppc_reloc = R_PPC64_PLTGOT16;
1355 break;
1356 case BFD_RELOC_PPC64_PLTGOT16_LO: ppc_reloc = R_PPC64_PLTGOT16_LO;
1357 break;
1358 case BFD_RELOC_PPC64_PLTGOT16_HI: ppc_reloc = R_PPC64_PLTGOT16_HI;
1359 break;
1360 case BFD_RELOC_PPC64_PLTGOT16_HA: ppc_reloc = R_PPC64_PLTGOT16_HA;
1361 break;
1362 case BFD_RELOC_PPC64_ADDR16_DS: ppc_reloc = R_PPC64_ADDR16_DS;
1363 break;
1364 case BFD_RELOC_PPC64_ADDR16_LO_DS: ppc_reloc = R_PPC64_ADDR16_LO_DS;
1365 break;
1366 case BFD_RELOC_PPC64_GOT16_DS: ppc_reloc = R_PPC64_GOT16_DS;
1367 break;
1368 case BFD_RELOC_PPC64_GOT16_LO_DS: ppc_reloc = R_PPC64_GOT16_LO_DS;
1369 break;
1370 case BFD_RELOC_PPC64_PLT16_LO_DS: ppc_reloc = R_PPC64_PLT16_LO_DS;
1371 break;
1372 case BFD_RELOC_PPC64_SECTOFF_DS: ppc_reloc = R_PPC64_SECTOFF_DS;
1373 break;
1374 case BFD_RELOC_PPC64_SECTOFF_LO_DS: ppc_reloc = R_PPC64_SECTOFF_LO_DS;
1375 break;
1376 case BFD_RELOC_PPC64_TOC16_DS: ppc_reloc = R_PPC64_TOC16_DS;
1377 break;
1378 case BFD_RELOC_PPC64_TOC16_LO_DS: ppc_reloc = R_PPC64_TOC16_LO_DS;
1379 break;
1380 case BFD_RELOC_PPC64_PLTGOT16_DS: ppc_reloc = R_PPC64_PLTGOT16_DS;
1381 break;
1382 case BFD_RELOC_PPC64_PLTGOT16_LO_DS: ppc_reloc = R_PPC64_PLTGOT16_LO_DS;
1383 break;
1384 case BFD_RELOC_VTABLE_INHERIT: ppc_reloc = R_PPC64_GNU_VTINHERIT;
1385 break;
1386 case BFD_RELOC_VTABLE_ENTRY: ppc_reloc = R_PPC64_GNU_VTENTRY;
1387 break;
1388 }
1389
1390 return ppc64_elf_howto_table[(int) ppc_reloc];
1391};
1392
1393/* Set the howto pointer for a PowerPC ELF reloc. */
1394
1395static void
1396ppc64_elf_info_to_howto (abfd, cache_ptr, dst)
1397 bfd *abfd ATTRIBUTE_UNUSED;
1398 arelent *cache_ptr;
1399 Elf64_Internal_Rela *dst;
1400{
65f38f15
AM		 1401 unsigned int type;
1402
5bd4f169
AM		 1403 if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
1404 /* Initialize howto table if needed. */
1405 ppc_howto_init ();
1406
65f38f15
AM		 1407 type = ELF64_R_TYPE (dst->r_info);
1408 BFD_ASSERT (type < (sizeof (ppc64_elf_howto_table)
1409 / sizeof (ppc64_elf_howto_table[0])));
1410 cache_ptr->howto = ppc64_elf_howto_table[type];
5bd4f169
AM		 1411}
1412
65f38f15 1413/* Handle the R_PPC_ADDR16_HA and similar relocs. */
5bd4f169
AM		 1414
1415static bfd_reloc_status_type
1416ppc64_elf_addr16_ha_reloc (abfd, reloc_entry, symbol, data, input_section,
1417 output_bfd, error_message)
1418 bfd *abfd ATTRIBUTE_UNUSED;
1419 arelent *reloc_entry;
1420 asymbol *symbol;
1421 PTR data ATTRIBUTE_UNUSED;
1422 asection *input_section;
1423 bfd *output_bfd;
1424 char **error_message ATTRIBUTE_UNUSED;
1425{
1426 bfd_vma relocation;
1427
1428 if (output_bfd != NULL)
1429 {
1430 reloc_entry->address += input_section->output_offset;
1431 return bfd_reloc_ok;
1432 }
1433
1434 if (reloc_entry->address > input_section->_cooked_size)
1435 return bfd_reloc_outofrange;
1436
1437 if (bfd_is_com_section (symbol->section))
1438 relocation = 0;
1439 else
1440 relocation = symbol->value;
1441
1442 relocation += symbol->section->output_section->vma;
1443 relocation += symbol->section->output_offset;
1444 relocation += reloc_entry->addend;
1445
1446 reloc_entry->addend += (relocation & 0x8000) << 1;
1447
1448 return bfd_reloc_continue;
1449}
1450
1451/* Function to set whether a module needs the -mrelocatable bit set. */
1452
1453static boolean
1454ppc64_elf_set_private_flags (abfd, flags)
1455 bfd *abfd;
1456 flagword flags;
1457{
1458 BFD_ASSERT (!elf_flags_init (abfd)
1459 || elf_elfheader (abfd)->e_flags == flags);
1460
1461 elf_elfheader (abfd)->e_flags = flags;
1462 elf_flags_init (abfd) = true;
1463 return true;
1464}
1465
5bd4f169
AM		 1466/* Merge backend specific data from an object file to the output
1467 object file when linking. */
1468static boolean
1469ppc64_elf_merge_private_bfd_data (ibfd, obfd)
1470 bfd *ibfd;
1471 bfd *obfd;
1472{
1473 flagword old_flags;
1474 flagword new_flags;
1475 boolean error;
1476
1477 /* Check if we have the same endianess. */
1478 if (ibfd->xvec->byteorder != obfd->xvec->byteorder
1479 && obfd->xvec->byteorder != BFD_ENDIAN_UNKNOWN)
1480 {
1481 const char *msg;
1482
1483 if (bfd_big_endian (ibfd))
1484 msg = _("%s: compiled for a big endian system and target is little endian");
1485 else
1486 msg = _("%s: compiled for a little endian system and target is big endian");
1487
8f615d07 1488 (*_bfd_error_handler) (msg, bfd_archive_filename (ibfd));
5bd4f169
AM		 1489
1490 bfd_set_error (bfd_error_wrong_format);
1491 return false;
1492 }
1493
1494 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
1495 || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
1496 return true;
1497
1498 new_flags = elf_elfheader (ibfd)->e_flags;
1499 old_flags = elf_elfheader (obfd)->e_flags;
1500 if (!elf_flags_init (obfd))
1501 {
1502 /* First call, no flags set. */
1503 elf_flags_init (obfd) = true;
1504 elf_elfheader (obfd)->e_flags = new_flags;
1505 }
1506
1507 else if (new_flags == old_flags)
1508 /* Compatible flags are ok. */
1509 ;
1510
1511 else
1512 {
1513 /* Incompatible flags. Warn about -mrelocatable mismatch.
1514 Allow -mrelocatable-lib to be linked with either. */
1515 error = false;
1516 if ((new_flags & EF_PPC_RELOCATABLE) != 0
1517 && (old_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0)
1518 {
1519 error = true;
1520 (*_bfd_error_handler)
1521 (_("%s: compiled with -mrelocatable and linked with modules compiled normally"),
8f615d07 1522 bfd_archive_filename (ibfd));
5bd4f169
AM		 1523 }
1524 else if ((new_flags & (EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB)) == 0
1525 && (old_flags & EF_PPC_RELOCATABLE) != 0)
1526 {
1527 error = true;
1528 (*_bfd_error_handler)
1529 (_("%s: compiled normally and linked with modules compiled with -mrelocatable"),
8f615d07 1530 bfd_archive_filename (ibfd));
5bd4f169
AM		 1531 }
1532
1533 /* The output is -mrelocatable-lib iff both the input files are. */
1534 if (! (new_flags & EF_PPC_RELOCATABLE_LIB))
1535 elf_elfheader (obfd)->e_flags &= ~EF_PPC_RELOCATABLE_LIB;
1536
1537 /* The output is -mrelocatable iff it can't be -mrelocatable-lib,
1538 but each input file is either -mrelocatable or -mrelocatable-lib. */
1539 if (! (elf_elfheader (obfd)->e_flags & EF_PPC_RELOCATABLE_LIB)
1540 && (new_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE))
1541 && (old_flags & (EF_PPC_RELOCATABLE_LIB | EF_PPC_RELOCATABLE)))
1542 elf_elfheader (obfd)->e_flags |= EF_PPC_RELOCATABLE;
1543
1544 /* Do not warn about eabi vs. V.4 mismatch, just or in the bit
1545 if any module uses it. */
1546 elf_elfheader (obfd)->e_flags |= (new_flags & EF_PPC_EMB);
1547
1548 new_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1549 old_flags &= ~(EF_PPC_RELOCATABLE | EF_PPC_RELOCATABLE_LIB | EF_PPC_EMB);
1550
1551 /* Warn about any other mismatches. */
1552 if (new_flags != old_flags)
1553 {
1554 error = true;
1555 (*_bfd_error_handler)
1556 (_("%s: uses different e_flags (0x%lx) fields than previous modules (0x%lx)"),
8f615d07 1557 bfd_archive_filename (ibfd), (long) new_flags, (long) old_flags);
5bd4f169
AM		 1558 }
1559
1560 if (error)
1561 {
1562 bfd_set_error (bfd_error_bad_value);
1563 return false;
1564 }
1565 }
1566
1567 return true;
1568}
1569
1570/* Handle a PowerPC specific section when reading an object file. This
1571 is called when elfcode.h finds a section with an unknown type. */
1572
1573static boolean
1574ppc64_elf_section_from_shdr (abfd, hdr, name)
1575 bfd *abfd;
1576 Elf64_Internal_Shdr *hdr;
1577 char *name;
1578{
1579 asection *newsect;
1580 flagword flags;
1581
1582 if (! _bfd_elf_make_section_from_shdr (abfd, hdr, name))
1583 return false;
1584
1585 newsect = hdr->bfd_section;
1586 flags = bfd_get_section_flags (abfd, newsect);
1587 if (hdr->sh_flags & SHF_EXCLUDE)
1588 flags |= SEC_EXCLUDE;
1589
1590 if (hdr->sh_type == SHT_ORDERED)
1591 flags |= SEC_SORT_ENTRIES;
1592
1593 bfd_set_section_flags (abfd, newsect, flags);
1594 return true;
1595}
1596\f
65f38f15
AM		 1597/* The following functions are specific to the ELF linker, while
1598 functions above are used generally. Those named ppc64_elf_* are
1599 called by the main ELF linker code. They appear in this file more
1600 or less in the order in which they are called. eg.
1601 ppc64_elf_check_relocs is called early in the link process,
1602 ppc64_elf_finish_dynamic_sections is one of the last functions
e86ce104
AM		 1603 called.
1604
1605 PowerPC64-ELF uses a similar scheme to PowerPC64-XCOFF in that
1606 functions have both a function code symbol and a function descriptor
1607 symbol. A call to foo in a relocatable object file looks like:
1608
1609 . .text
1610 . x:
1611 . bl .foo
1612 . nop
1613
1614 The function definition in another object file might be:
1615
1616 . .section .opd
1617 . foo: .quad .foo
1618 . .quad .TOC.@tocbase
1619 . .quad 0
1620 .
1621 . .text
1622 . .foo: blr
1623
1624 When the linker resolves the call during a static link, the branch
1625 unsurprisingly just goes to .foo and the .opd information is unused.
1626 If the function definition is in a shared library, things are a little
1627 different: The call goes via a plt call stub, the opd information gets
1628 copied to the plt, and the linker patches the nop.
1629
1630 . x:
1631 . bl .foo_stub
1632 . ld 2,40(1)
1633 .
1634 .
1635 . .foo_stub:
1636 . addis 12,2,Lfoo@toc@ha # in practice, the call stub
1637 . addi 12,12,Lfoo@toc@l # is slightly optimised, but
1638 . std 2,40(1) # this is the general idea
1639 . ld 11,0(12)
1640 . ld 2,8(12)
1641 . mtctr 11
1642 . ld 11,16(12)
1643 . bctr
1644 .
1645 . .section .plt
1646 . Lfoo: reloc (R_PPC64_JMP_SLOT, foo)
1647
1648 The "reloc ()" notation is supposed to indicate that the linker emits
1649 an R_PPC64_JMP_SLOT reloc against foo. The dynamic linker does the opd
1650 copying.
1651
1652 What are the difficulties here? Well, firstly, the relocations
1653 examined by the linker in check_relocs are against the function code
1654 sym .foo, while the dynamic relocation in the plt is emitted against
1655 the function descriptor symbol, foo. Somewhere along the line, we need
1656 to carefully copy dynamic link information from one symbol to the other.
1657 Secondly, the generic part of the elf linker will make .foo a dynamic
1658 symbol as is normal for most other backends. We need foo dynamic
1659 instead, at least for an application final link. However, when
1660 creating a shared library containing foo, we need to have both symbols
1661 dynamic so that references to .foo are satisfied during the early
1662 stages of linking. Otherwise the linker might decide to pull in a
41bd81ab 1663 definition from some other object, eg. a static library. */
65f38f15
AM		 1664
1665/* The linker needs to keep track of the number of relocs that it
1666 decides to copy as dynamic relocs in check_relocs for each symbol.
1667 This is so that it can later discard them if they are found to be
1668 unnecessary. We store the information in a field extending the
1669 regular ELF linker hash table. */
1670
1671struct ppc_dyn_relocs
1672{
1673 struct ppc_dyn_relocs *next;
1674
1675 /* The input section of the reloc. */
1676 asection *sec;
1677
1678 /* Total number of relocs copied for the input section. */
1679 bfd_size_type count;
1680
1681 /* Number of pc-relative relocs copied for the input section. */
1682 bfd_size_type pc_count;
1683};
1684
1685/* Of those relocs that might be copied as dynamic relocs, this macro
1686 selects between relative and absolute types. */
1687
1688#define IS_ABSOLUTE_RELOC(RTYPE) \
1689 ((RTYPE) != R_PPC64_REL14 \
1690 && (RTYPE) != R_PPC64_REL14_BRNTAKEN \
1691 && (RTYPE) != R_PPC64_REL14_BRTAKEN \
1692 && (RTYPE) != R_PPC64_REL24 \
1693 && (RTYPE) != R_PPC64_REL32 \
1694 && (RTYPE) != R_PPC64_REL64)
1695
1696/* ppc64 ELF linker hash entry. */
1697
1698struct ppc_link_hash_entry
1699{
1700 struct elf_link_hash_entry elf;
1701
1702 /* Track dynamic relocs copied for this symbol. */
1703 struct ppc_dyn_relocs *dyn_relocs;
e86ce104
AM		 1704
1705 /* Flag function code and descriptor symbols. */
1706 unsigned int is_func:1;
1707 unsigned int is_func_descriptor:1;
65f38f15
AM		 1708};
1709
1710/* ppc64 ELF linker hash table. */
1711
1712struct ppc_link_hash_table
1713{
1714 struct elf_link_hash_table elf;
1715
1716 /* Short-cuts to get to dynamic linker sections. */
1717 asection *sgot;
1718 asection *srelgot;
1719 asection *splt;
1720 asection *srelplt;
1721 asection *sdynbss;
1722 asection *srelbss;
5d1634d7 1723 asection *sstub;
65f38f15 1724 asection *sglink;
ec338859 1725
5d1634d7
AM		 1726 /* Set on error. */
1727 int plt_overflow;
1728
ec338859
AM		 1729 /* Small local sym to section mapping cache. */
1730 struct sym_sec_cache sym_sec;
65f38f15
AM		 1731};
1732
1733/* Get the ppc64 ELF linker hash table from a link_info structure. */
1734
1735#define ppc_hash_table(p) \
1736 ((struct ppc_link_hash_table *) ((p)->hash))
1737
1738/* Create an entry in a ppc64 ELF linker hash table. */
1739
1740static struct bfd_hash_entry *
1741link_hash_newfunc (entry, table, string)
1742 struct bfd_hash_entry *entry;
1743 struct bfd_hash_table *table;
1744 const char *string;
1745{
1746 /* Allocate the structure if it has not already been allocated by a
1747 subclass. */
1748 if (entry == NULL)
1749 {
1750 entry = bfd_hash_allocate (table, sizeof (struct ppc_link_hash_entry));
1751 if (entry == NULL)
1752 return entry;
1753 }
1754
1755 /* Call the allocation method of the superclass. */
1756 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
1757 if (entry != NULL)
1758 {
1759 struct ppc_link_hash_entry *eh = (struct ppc_link_hash_entry *) entry;
1760
1761 eh->dyn_relocs = NULL;
e86ce104
AM		 1762 eh->is_func = 0;
1763 eh->is_func_descriptor = 0;
65f38f15
AM		 1764 }
1765
1766 return entry;
1767}
1768
1769/* Create a ppc64 ELF linker hash table. */
1770
1771static struct bfd_link_hash_table *
1772ppc64_elf_link_hash_table_create (abfd)
1773 bfd *abfd;
1774{
1775 struct ppc_link_hash_table *htab;
1776 bfd_size_type amt = sizeof (struct ppc_link_hash_table);
1777
1778 htab = (struct ppc_link_hash_table *) bfd_alloc (abfd, amt);
1779 if (htab == NULL)
1780 return NULL;
1781
1782 if (! _bfd_elf_link_hash_table_init (&htab->elf, abfd, link_hash_newfunc))
1783 {
1784 bfd_release (abfd, htab);
1785 return NULL;
1786 }
1787
1788 htab->sgot = NULL;
1789 htab->srelgot = NULL;
1790 htab->splt = NULL;
1791 htab->srelplt = NULL;
1792 htab->sdynbss = NULL;
1793 htab->srelbss = NULL;
5d1634d7 1794 htab->sstub = NULL;
65f38f15 1795 htab->sglink = NULL;
5d1634d7 1796 htab->plt_overflow = 0;
ec338859 1797 htab->sym_sec.abfd = NULL;
65f38f15
AM		 1798
1799 return &htab->elf.root;
1800}
1801
1802/* Create .got and .rela.got sections in DYNOBJ, and set up
1803 shortcuts to them in our hash table. */
1804
1805static boolean
1806create_got_section (dynobj, info)
1807 bfd *dynobj;
1808 struct bfd_link_info *info;
1809{
1810 struct ppc_link_hash_table *htab;
1811
1812 if (! _bfd_elf_create_got_section (dynobj, info))
1813 return false;
1814
1815 htab = ppc_hash_table (info);
1816 htab->sgot = bfd_get_section_by_name (dynobj, ".got");
1817 if (!htab->sgot)
1818 abort ();
1819
1820 htab->srelgot = bfd_make_section (dynobj, ".rela.got");
1821 if (!htab->srelgot
1822 || ! bfd_set_section_flags (dynobj, htab->srelgot,
1823 (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
1824 | SEC_IN_MEMORY | SEC_LINKER_CREATED
1825 | SEC_READONLY))
1826 || ! bfd_set_section_alignment (dynobj, htab->srelgot, 3))
1827 return false;
1828 return true;
1829}
5bd4f169 1830
5d1634d7
AM		 1831/* Create the .stub and .glink sections as well as the ordinary
1832 dynamic sections. */
5bd4f169
AM		 1833
1834static boolean
65f38f15
AM		 1835ppc64_elf_create_dynamic_sections (dynobj, info)
1836 bfd *dynobj;
5bd4f169
AM		 1837 struct bfd_link_info *info;
1838{
65f38f15 1839 struct ppc_link_hash_table *htab;
5bd4f169
AM		 1840 flagword flags;
1841
65f38f15
AM		 1842 htab = ppc_hash_table (info);
1843 if (!htab->sgot && !create_got_section (dynobj, info))
5bd4f169
AM		 1844 return false;
1845
65f38f15 1846 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
5bd4f169 1847 return false;
65f38f15
AM		 1848
1849 htab->splt = bfd_get_section_by_name (dynobj, ".plt");
1850 htab->srelplt = bfd_get_section_by_name (dynobj, ".rela.plt");
1851 htab->sdynbss = bfd_get_section_by_name (dynobj, ".dynbss");
1852 if (!info->shared)
1853 htab->srelbss = bfd_get_section_by_name (dynobj, ".rela.bss");
1854
1855 if (!htab->splt || !htab->srelplt || !htab->sdynbss
1856 || (!info->shared && !htab->srelbss))
1857 abort ();
1858
5d1634d7
AM		 1859 /* Create .stub and .glink for global linkage functions. */
1860 flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY
1861 | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED);
1862 htab->sstub = bfd_make_section (dynobj, ".stub");
1863 if (htab->sstub == NULL
1864 || ! bfd_set_section_flags (dynobj, htab->sstub, flags)
1865 || ! bfd_set_section_alignment (dynobj, htab->sstub, 2))
5bd4f169 1866 return false;
65f38f15
AM		 1867 htab->sglink = bfd_make_section (dynobj, ".glink");
1868 if (htab->sglink == NULL
1869 || ! bfd_set_section_flags (dynobj, htab->sglink, flags)
1870 || ! bfd_set_section_alignment (dynobj, htab->sglink, 3))
5bd4f169
AM		 1871 return false;
1872
1873 return true;
1874}
1875
65f38f15
AM		 1876/* Copy the extra info we tack onto an elf_link_hash_entry. */
1877
1878static void
1879ppc64_elf_copy_indirect_symbol (dir, ind)
1880 struct elf_link_hash_entry *dir, *ind;
1881{
1882 struct ppc_link_hash_entry *edir, *eind;
1883
1884 edir = (struct ppc_link_hash_entry *) dir;
1885 eind = (struct ppc_link_hash_entry *) ind;
1886
bbd7ec4a 1887 if (eind->dyn_relocs != NULL)
65f38f15 1888 {
bbd7ec4a
AM		 1889 if (edir->dyn_relocs != NULL)
1890 {
1891 struct ppc_dyn_relocs **pp;
1892 struct ppc_dyn_relocs *p;
1893
1e370bd2 1894 if (ind->root.type == bfd_link_hash_indirect)
bbd7ec4a
AM		 1895 abort ();
1896
1897 /* Add reloc counts against the weak sym to the strong sym
1898 list. Merge any entries against the same section. */
1899 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
1900 {
1901 struct ppc_dyn_relocs *q;
1902
1903 for (q = edir->dyn_relocs; q != NULL; q = q->next)
1904 if (q->sec == p->sec)
1905 {
1906 q->pc_count += p->pc_count;
1907 q->count += p->count;
1908 *pp = p->next;
1909 break;
1910 }
1911 if (q == NULL)
1912 pp = &p->next;
1913 }
1914 *pp = edir->dyn_relocs;
1915 }
1916
65f38f15
AM		 1917 edir->dyn_relocs = eind->dyn_relocs;
1918 eind->dyn_relocs = NULL;
1919 }
65f38f15 1920
e86ce104
AM		 1921 edir->is_func |= eind->is_func;
1922 edir->is_func_descriptor |= eind->is_func_descriptor;
1923
65f38f15
AM		 1924 _bfd_elf_link_hash_copy_indirect (dir, ind);
1925}
1926
5bd4f169 1927/* Look through the relocs for a section during the first phase, and
65f38f15 1928 calculate needed space in the global offset table, procedure
5d1634d7 1929 linkage table, and dynamic reloc sections. */
5bd4f169
AM		 1930
1931static boolean
1932ppc64_elf_check_relocs (abfd, info, sec, relocs)
1933 bfd *abfd;
1934 struct bfd_link_info *info;
1935 asection *sec;
1936 const Elf_Internal_Rela *relocs;
1937{
65f38f15 1938 struct ppc_link_hash_table *htab;
5bd4f169
AM		 1939 Elf_Internal_Shdr *symtab_hdr;
1940 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
1941 const Elf_Internal_Rela *rel;
1942 const Elf_Internal_Rela *rel_end;
5bd4f169 1943 asection *sreloc;
e86ce104 1944 boolean is_opd;
5bd4f169
AM		 1945
1946 if (info->relocateable)
1947 return true;
1948
65f38f15 1949 htab = ppc_hash_table (info);
5bd4f169 1950 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
5bd4f169
AM		 1951
1952 sym_hashes = elf_sym_hashes (abfd);
1953 sym_hashes_end = (sym_hashes
1954 + symtab_hdr->sh_size / sizeof (Elf64_External_Sym));
1955 if (!elf_bad_symtab (abfd))
1956 sym_hashes_end -= symtab_hdr->sh_info;
1957
1958 sreloc = NULL;
e86ce104 1959 is_opd = strcmp (bfd_get_section_name (abfd, sec), ".opd") == 0;
5bd4f169
AM		 1960
1961 rel_end = relocs + sec->reloc_count;
1962 for (rel = relocs; rel < rel_end; rel++)
1963 {
1964 unsigned long r_symndx;
1965 struct elf_link_hash_entry *h;
a33d1f77 1966 enum elf_ppc_reloc_type r_type;
5bd4f169
AM		 1967
1968 r_symndx = ELF64_R_SYM (rel->r_info);
1969 if (r_symndx < symtab_hdr->sh_info)
1970 h = NULL;
1971 else
1972 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1973
a33d1f77
AM		 1974 r_type = (enum elf_ppc_reloc_type) ELF64_R_TYPE (rel->r_info);
1975 switch (r_type)
5bd4f169
AM		 1976 {
1977 /* GOT16 relocations */
1978 case R_PPC64_GOT16:
5bd4f169 1979 case R_PPC64_GOT16_DS:
65f38f15
AM		 1980 case R_PPC64_GOT16_HA:
1981 case R_PPC64_GOT16_HI:
1982 case R_PPC64_GOT16_LO:
5bd4f169 1983 case R_PPC64_GOT16_LO_DS:
5bd4f169 1984
65f38f15
AM		 1985 /* This symbol requires a global offset table entry. */
1986 if (htab->sgot == NULL)
5bd4f169 1987 {
65f38f15
AM		 1988 if (htab->elf.dynobj == NULL)
1989 htab->elf.dynobj = abfd;
1990 if (!create_got_section (htab->elf.dynobj, info))
5bd4f169 1991 return false;
5bd4f169
AM		 1992 }
1993
1994 if (h != NULL)
1995 {
65f38f15 1996 h->got.refcount += 1;
5bd4f169
AM		 1997 }
1998 else
1999 {
65f38f15
AM		 2000 bfd_signed_vma *local_got_refcounts;
2001
5bd4f169 2002 /* This is a global offset table entry for a local symbol. */
65f38f15 2003 local_got_refcounts = elf_local_got_refcounts (abfd);
5bd4f169
AM		 2004 if (local_got_refcounts == NULL)
2005 {
dc810e39 2006 bfd_size_type size;
5bd4f169 2007
dc810e39
AM		 2008 size = symtab_hdr->sh_info;
2009 size *= sizeof (bfd_signed_vma);
2010 local_got_refcounts = ((bfd_signed_vma *)
65f38f15 2011 bfd_zalloc (abfd, size));
5bd4f169
AM		 2012 if (local_got_refcounts == NULL)
2013 return false;
2014 elf_local_got_refcounts (abfd) = local_got_refcounts;
5bd4f169 2015 }
65f38f15 2016 local_got_refcounts[r_symndx] += 1;
5bd4f169
AM		 2017 }
2018 break;
2019
5bd4f169 2020 case R_PPC64_PLT16_HA:
65f38f15
AM		 2021 case R_PPC64_PLT16_HI:
2022 case R_PPC64_PLT16_LO:
2023 case R_PPC64_PLT32:
2024 case R_PPC64_PLT64:
5bd4f169
AM		 2025 /* This symbol requires a procedure linkage table entry. We
2026 actually build the entry in adjust_dynamic_symbol,
2027 because this might be a case of linking PIC code without
2028 linking in any dynamic objects, in which case we don't
2029 need to generate a procedure linkage table after all. */
5bd4f169
AM		 2030 if (h == NULL)
2031 {
2032 /* It does not make sense to have a procedure linkage
2033 table entry for a local symbol. */
2034 bfd_set_error (bfd_error_bad_value);
2035 return false;
2036 }
2037
65f38f15
AM		 2038 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2039 h->plt.refcount += 1;
e86ce104 2040 ((struct ppc_link_hash_entry *) h)->is_func = 1;
5bd4f169
AM		 2041 break;
2042
2043 /* The following relocations don't need to propagate the
2044 relocation if linking a shared object since they are
2045 section relative. */
2046 case R_PPC64_SECTOFF:
2047 case R_PPC64_SECTOFF_LO:
2048 case R_PPC64_SECTOFF_HI:
2049 case R_PPC64_SECTOFF_HA:
2050 case R_PPC64_SECTOFF_DS:
2051 case R_PPC64_SECTOFF_LO_DS:
2052 case R_PPC64_TOC16:
2053 case R_PPC64_TOC16_LO:
2054 case R_PPC64_TOC16_HI:
2055 case R_PPC64_TOC16_HA:
2056 case R_PPC64_TOC16_DS:
2057 case R_PPC64_TOC16_LO_DS:
2058 break;
2059
2060 /* This relocation describes the C++ object vtable hierarchy.
2061 Reconstruct it for later use during GC. */
2062 case R_PPC64_GNU_VTINHERIT:
2063 if (!_bfd_elf64_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2064 return false;
2065 break;
2066
2067 /* This relocation describes which C++ vtable entries are actually
2068 used. Record for later use during GC. */
2069 case R_PPC64_GNU_VTENTRY:
2070 if (!_bfd_elf64_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2071 return false;
2072 break;
2073
5d1634d7 2074 case R_PPC64_REL24:
e86ce104
AM		 2075 if (h != NULL
2076 && h->root.root.string[0] == '.'
2077 && h->root.root.string[1] != 0)
5d1634d7
AM		 2078 {
2079 /* We may need a .plt entry if the function this reloc
2080 refers to is in a shared lib. */
2081 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2082 h->plt.refcount += 1;
e86ce104 2083 ((struct ppc_link_hash_entry *) h)->is_func = 1;
5d1634d7
AM		 2084 }
2085 break;
2086
e86ce104
AM		 2087 case R_PPC64_ADDR64:
2088 if (is_opd
2089 && h != NULL
2090 && h->root.root.string[0] == '.'
2091 && h->root.root.string[1] != 0)
2092 {
2093 struct elf_link_hash_entry *fdh;
2094
2095 fdh = elf_link_hash_lookup (&htab->elf, h->root.root.string + 1,
2096 false, false, false);
2097 if (fdh != NULL)
2098 {
2099 /* Ensure the function descriptor symbol string is
2100 part of the code symbol string. We aren't
2101 changing the name here, just allowing some tricks
2102 in ppc64_elf_hide_symbol. */
2103 fdh->root.root.string = h->root.root.string + 1;
2104 ((struct ppc_link_hash_entry *) fdh)->is_func_descriptor = 1;
2105 ((struct ppc_link_hash_entry *) h)->is_func = 1;
2106 }
2107 }
2108 /* Fall through. */
2109
5bd4f169
AM		 2110 case R_PPC64_REL64:
2111 case R_PPC64_REL32:
5bd4f169
AM		 2112 case R_PPC64_REL14:
2113 case R_PPC64_REL14_BRTAKEN:
2114 case R_PPC64_REL14_BRNTAKEN:
65f38f15
AM		 2115 case R_PPC64_ADDR14:
2116 case R_PPC64_ADDR14_BRNTAKEN:
2117 case R_PPC64_ADDR14_BRTAKEN:
2118 case R_PPC64_ADDR16:
2119 case R_PPC64_ADDR16_DS:
2120 case R_PPC64_ADDR16_HA:
2121 case R_PPC64_ADDR16_HI:
2122 case R_PPC64_ADDR16_HIGHER:
2123 case R_PPC64_ADDR16_HIGHERA:
2124 case R_PPC64_ADDR16_HIGHEST:
2125 case R_PPC64_ADDR16_HIGHESTA:
2126 case R_PPC64_ADDR16_LO:
2127 case R_PPC64_ADDR16_LO_DS:
2128 case R_PPC64_ADDR24:
2129 case R_PPC64_ADDR30:
2130 case R_PPC64_ADDR32:
65f38f15
AM		 2131 case R_PPC64_UADDR16:
2132 case R_PPC64_UADDR32:
2133 case R_PPC64_UADDR64:
5bd4f169 2134 case R_PPC64_TOC:
41bd81ab
AM		 2135 /* Don't propagate .opd relocs. */
2136 if (NO_OPD_RELOCS && is_opd)
e86ce104 2137 break;
e86ce104 2138
65f38f15
AM		 2139 /* If we are creating a shared library, and this is a reloc
2140 against a global symbol, or a non PC relative reloc
2141 against a local symbol, then we need to copy the reloc
2142 into the shared library. However, if we are linking with
2143 -Bsymbolic, we do not need to copy a reloc against a
2144 global symbol which is defined in an object we are
2145 including in the link (i.e., DEF_REGULAR is set). At
2146 this point we have not seen all the input files, so it is
2147 possible that DEF_REGULAR is not set now but will be set
2148 later (it is never cleared). In case of a weak definition,
2149 DEF_REGULAR may be cleared later by a strong definition in
2150 a shared library. We account for that possibility below by
2151 storing information in the relocs_copied field of the hash
2152 table entry. A similar situation occurs when creating
2153 shared libraries and symbol visibility changes render the
2154 symbol local.
2155
2156 If on the other hand, we are creating an executable, we
2157 may need to keep relocations for symbols satisfied by a
2158 dynamic library if we manage to avoid copy relocs for the
2159 symbol. */
2160 if ((info->shared
2161 && (sec->flags & SEC_ALLOC) != 0
a33d1f77 2162 && (IS_ABSOLUTE_RELOC (r_type)
65f38f15
AM		 2163 || (h != NULL
2164 && (! info->symbolic
2165 || h->root.type == bfd_link_hash_defweak
2166 || (h->elf_link_hash_flags
2167 & ELF_LINK_HASH_DEF_REGULAR) == 0))))
2168 || (!info->shared
2169 && (sec->flags & SEC_ALLOC) != 0
2170 && h != NULL
2171 && (h->root.type == bfd_link_hash_defweak
2172 || (h->elf_link_hash_flags
2173 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
5bd4f169 2174 {
ec338859
AM		 2175 struct ppc_dyn_relocs *p;
2176 struct ppc_dyn_relocs **head;
2177
65f38f15
AM		 2178 /* We must copy these reloc types into the output file.
2179 Create a reloc section in dynobj and make room for
2180 this reloc. */
5bd4f169
AM		 2181 if (sreloc == NULL)
2182 {
2183 const char *name;
65f38f15 2184 bfd *dynobj;
5bd4f169
AM		 2185
2186 name = (bfd_elf_string_from_elf_section
2187 (abfd,
2188 elf_elfheader (abfd)->e_shstrndx,
2189 elf_section_data (sec)->rel_hdr.sh_name));
2190 if (name == NULL)
2191 return false;
2192
65f38f15
AM		 2193 if (strncmp (name, ".rela", 5) != 0
2194 || strcmp (bfd_get_section_name (abfd, sec),
2195 name + 5) != 0)
2196 {
2197 (*_bfd_error_handler)
2198 (_("%s: bad relocation section name `%s\'"),
2199 bfd_archive_filename (abfd), name);
5d1634d7 2200 bfd_set_error (bfd_error_bad_value);
65f38f15
AM		 2201 }
2202
2203 if (htab->elf.dynobj == NULL)
2204 htab->elf.dynobj = abfd;
5bd4f169 2205
65f38f15 2206 dynobj = htab->elf.dynobj;
5bd4f169
AM		 2207 sreloc = bfd_get_section_by_name (dynobj, name);
2208 if (sreloc == NULL)
2209 {
2210 flagword flags;
2211
2212 sreloc = bfd_make_section (dynobj, name);
2213 flags = (SEC_HAS_CONTENTS | SEC_READONLY
2214 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
2215 if ((sec->flags & SEC_ALLOC) != 0)
2216 flags |= SEC_ALLOC | SEC_LOAD;
2217 if (sreloc == NULL
2218 || ! bfd_set_section_flags (dynobj, sreloc, flags)
65f38f15 2219 || ! bfd_set_section_alignment (dynobj, sreloc, 3))
5bd4f169
AM		 2220 return false;
2221 }
65f38f15 2222 elf_section_data (sec)->sreloc = sreloc;
5bd4f169
AM		 2223 }
2224
65f38f15
AM		 2225 /* If this is a global symbol, we count the number of
2226 relocations we need for this symbol. */
2227 if (h != NULL)
2228 {
ec338859 2229 head = &((struct ppc_link_hash_entry *) h)->dyn_relocs;
65f38f15
AM		 2230 }
2231 else
2232 {
ec338859
AM		 2233 /* Track dynamic relocs needed for local syms too.
2234 We really need local syms available to do this
2235 easily. Oh well. */
2236
2237 asection *s;
2238 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
2239 sec, r_symndx);
2240 if (s == NULL)
2241 return false;
2242
2243 head = ((struct ppc_dyn_relocs **)
2244 &elf_section_data (s)->local_dynrel);
65f38f15 2245 }
ec338859
AM		 2246
2247 p = *head;
2248 if (p == NULL || p->sec != sec)
2249 {
2250 p = ((struct ppc_dyn_relocs *)
2251 bfd_alloc (htab->elf.dynobj,
2252 (bfd_size_type) sizeof *p));
2253 if (p == NULL)
2254 return false;
2255 p->next = *head;
2256 *head = p;
2257 p->sec = sec;
2258 p->count = 0;
2259 p->pc_count = 0;
2260 }
2261
2262 p->count += 1;
2263 if (!IS_ABSOLUTE_RELOC (r_type))
2264 p->pc_count += 1;
65f38f15 2265 }
5bd4f169 2266 break;
65f38f15
AM		 2267
2268 default:
5bd4f169
AM		 2269 }
2270 }
2271
2272 return true;
2273}
2274
2275/* Return the section that should be marked against GC for a given
2276 relocation. */
2277
2278static asection *
2279ppc64_elf_gc_mark_hook (abfd, info, rel, h, sym)
2280 bfd *abfd;
2281 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2282 Elf_Internal_Rela *rel;
2283 struct elf_link_hash_entry *h;
2284 Elf_Internal_Sym *sym;
2285{
2286 if (h != NULL)
2287 {
a33d1f77
AM		 2288 enum elf_ppc_reloc_type r_type;
2289
2290 r_type = (enum elf_ppc_reloc_type) ELF64_R_TYPE (rel->r_info);
2291 switch (r_type)
5bd4f169
AM		 2292 {
2293 case R_PPC64_GNU_VTINHERIT:
2294 case R_PPC64_GNU_VTENTRY:
2295 break;
2296
2297 default:
2298 switch (h->root.type)
2299 {
2300 case bfd_link_hash_defined:
2301 case bfd_link_hash_defweak:
2302 return h->root.u.def.section;
2303
2304 case bfd_link_hash_common:
2305 return h->root.u.c.p->section;
2306
2307 default:
2308 break;
2309 }
2310 }
2311 }
2312 else
2313 {
9ad5cbcf 2314 return bfd_section_from_elf_index (abfd, sym->st_shndx);
5bd4f169
AM		 2315 }
2316
2317 return NULL;
2318}
2319
65f38f15
AM		 2320/* Update the .got, .plt. and dynamic reloc reference counts for the
2321 section being removed. */
5bd4f169
AM		 2322
2323static boolean
2324ppc64_elf_gc_sweep_hook (abfd, info, sec, relocs)
2325 bfd *abfd;
2326 struct bfd_link_info *info ATTRIBUTE_UNUSED;
2327 asection *sec;
2328 const Elf_Internal_Rela *relocs;
2329{
2330 Elf_Internal_Shdr *symtab_hdr;
2331 struct elf_link_hash_entry **sym_hashes;
2332 bfd_signed_vma *local_got_refcounts;
2333 const Elf_Internal_Rela *rel, *relend;
5bd4f169 2334
ec338859
AM		 2335 elf_section_data (sec)->local_dynrel = NULL;
2336
5bd4f169
AM		 2337 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2338 sym_hashes = elf_sym_hashes (abfd);
2339 local_got_refcounts = elf_local_got_refcounts (abfd);
2340
2341 relend = relocs + sec->reloc_count;
2342 for (rel = relocs; rel < relend; rel++)
a33d1f77
AM		 2343 {
2344 unsigned long r_symndx;
2345 enum elf_ppc_reloc_type r_type;
2346 struct elf_link_hash_entry *h;
5bd4f169 2347
a33d1f77
AM		 2348 r_symndx = ELF64_R_SYM (rel->r_info);
2349 r_type = (enum elf_ppc_reloc_type) ELF64_R_TYPE (rel->r_info);
2350 switch (r_type)
2351 {
2352 case R_PPC64_GOT16:
2353 case R_PPC64_GOT16_DS:
2354 case R_PPC64_GOT16_HA:
2355 case R_PPC64_GOT16_HI:
2356 case R_PPC64_GOT16_LO:
2357 case R_PPC64_GOT16_LO_DS:
2358 if (r_symndx >= symtab_hdr->sh_info)
2359 {
2360 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2361 if (h->got.refcount > 0)
2362 h->got.refcount--;
2363 }
2364 else
2365 {
2366 if (local_got_refcounts[r_symndx] > 0)
2367 local_got_refcounts[r_symndx]--;
2368 }
2369 break;
65f38f15 2370
a33d1f77
AM		 2371 case R_PPC64_PLT16_HA:
2372 case R_PPC64_PLT16_HI:
2373 case R_PPC64_PLT16_LO:
2374 case R_PPC64_PLT32:
2375 case R_PPC64_PLT64:
2376 if (r_symndx >= symtab_hdr->sh_info)
2377 {
2378 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2379 if (h->plt.refcount > 0)
2380 h->plt.refcount--;
2381 }
2382 break;
65f38f15 2383
5d1634d7
AM		 2384 case R_PPC64_REL24:
2385 if (r_symndx >= symtab_hdr->sh_info)
2386 {
2387 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2388 if (h->plt.refcount > 0)
2389 h->plt.refcount--;
2390 }
e86ce104 2391 break;
5d1634d7 2392
a33d1f77
AM		 2393 case R_PPC64_REL14:
2394 case R_PPC64_REL14_BRNTAKEN:
2395 case R_PPC64_REL14_BRTAKEN:
a33d1f77
AM		 2396 case R_PPC64_REL32:
2397 case R_PPC64_REL64:
2398 if (r_symndx >= symtab_hdr->sh_info)
2399 {
2400 struct ppc_link_hash_entry *eh;
2401 struct ppc_dyn_relocs **pp;
2402 struct ppc_dyn_relocs *p;
65f38f15 2403
a33d1f77
AM		 2404 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2405 eh = (struct ppc_link_hash_entry *) h;
65f38f15 2406
a33d1f77
AM		 2407 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
2408 if (p->sec == sec)
2409 {
2410 p->pc_count -= 1;
2411 p->count -= 1;
2412 if (p->count == 0)
2413 *pp = p->next;
2414 break;
2415 }
2416 }
2417 break;
65f38f15 2418
a33d1f77
AM		 2419 case R_PPC64_ADDR14:
2420 case R_PPC64_ADDR14_BRNTAKEN:
2421 case R_PPC64_ADDR14_BRTAKEN:
2422 case R_PPC64_ADDR16:
2423 case R_PPC64_ADDR16_DS:
2424 case R_PPC64_ADDR16_HA:
2425 case R_PPC64_ADDR16_HI:
2426 case R_PPC64_ADDR16_HIGHER:
2427 case R_PPC64_ADDR16_HIGHERA:
2428 case R_PPC64_ADDR16_HIGHEST:
2429 case R_PPC64_ADDR16_HIGHESTA:
2430 case R_PPC64_ADDR16_LO:
2431 case R_PPC64_ADDR16_LO_DS:
2432 case R_PPC64_ADDR24:
2433 case R_PPC64_ADDR30:
2434 case R_PPC64_ADDR32:
2435 case R_PPC64_ADDR64:
2436 case R_PPC64_UADDR16:
2437 case R_PPC64_UADDR32:
2438 case R_PPC64_UADDR64:
2439 case R_PPC64_TOC:
2440 if (r_symndx >= symtab_hdr->sh_info)
2441 {
2442 struct ppc_link_hash_entry *eh;
2443 struct ppc_dyn_relocs **pp;
2444 struct ppc_dyn_relocs *p;
65f38f15 2445
a33d1f77
AM		 2446 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
2447 eh = (struct ppc_link_hash_entry *) h;
2448
2449 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
2450 if (p->sec == sec)
2451 {
2452 p->count -= 1;
2453 if (p->count == 0)
2454 *pp = p->next;
2455 break;
2456 }
2457 }
2458 break;
5bd4f169 2459
a33d1f77
AM		 2460 default:
2461 break;
2462 }
2463 }
5bd4f169
AM		 2464 return true;
2465}
2466
e86ce104
AM		 2467/* Called via elf_link_hash_traverse to transfer dynamic linking
2468 information on function code symbol entries to their corresponding
2469 function descriptor symbol entries. */
5bd4f169 2470static boolean
e86ce104 2471func_desc_adjust (h, inf)
5bd4f169 2472 struct elf_link_hash_entry *h;
e86ce104 2473 PTR inf;
5bd4f169 2474{
e86ce104 2475 struct bfd_link_info *info;
65f38f15 2476 struct ppc_link_hash_table *htab;
5bd4f169 2477
e86ce104
AM		 2478 if (h->root.type == bfd_link_hash_indirect
2479 || h->root.type == bfd_link_hash_warning)
2480 return true;
2481
2482 info = (struct bfd_link_info *) inf;
65f38f15 2483 htab = ppc_hash_table (info);
5bd4f169 2484
e86ce104
AM		 2485 /* If this is a function code symbol, transfer dynamic linking
2486 information to the function descriptor symbol. */
2487 if (!((struct ppc_link_hash_entry *) h)->is_func)
2488 return true;
2489
2490 if (h->plt.refcount > 0
2491 && h->root.root.string[0] == '.'
2492 && h->root.root.string[1] != '\0')
5bd4f169 2493 {
65f38f15 2494 struct elf_link_hash_entry *fdh;
e86ce104 2495 boolean force_local;
5bd4f169 2496
ef9d813e 2497 /* Find the corresponding function descriptor symbol. */
5bd4f169 2498
e86ce104
AM		 2499 fdh = elf_link_hash_lookup (&htab->elf, h->root.root.string + 1,
2500 false, false, true);
5bd4f169 2501
e86ce104
AM		 2502 if (fdh != NULL
2503 && (fdh->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0
2504 && (info->shared
2505 || (fdh->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
2506 || (fdh->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) != 0))
2507 {
2508 if (fdh->dynindx == -1)
2509 if (! bfd_elf64_link_record_dynamic_symbol (info, fdh))
2510 return false;
2511 fdh->plt.refcount = h->plt.refcount;
2512 fdh->elf_link_hash_flags |= (h->elf_link_hash_flags
2513 & (ELF_LINK_HASH_REF_REGULAR
2514 | ELF_LINK_HASH_REF_DYNAMIC
2515 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
2516 | ELF_LINK_NON_GOT_REF));
2517 fdh->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
2518 ((struct ppc_link_hash_entry *) fdh)->is_func_descriptor = 1;
2519 fdh->root.root.string = h->root.root.string + 1;
2520 }
2521
2522 /* Now that the info is on the function descriptor, clear the
2523 function code sym info. Any function code syms for which we
2524 don't have a definition in a regular file, we force local.
2525 This prevents a shared library from exporting syms that have
2526 been imported from another library. Function code syms that
2527 are really in the library we must leave global to prevent the
2528 linker dragging a definition in from a static library. */
2529 force_local = (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0;
2530 _bfd_elf_link_hash_hide_symbol (info, h, force_local);
2531 }
2532
2533 return true;
2534}
40b8271b 2535
e86ce104
AM		 2536/* Called near the start of bfd_elf_size_dynamic_sections. We use
2537 this hook to transfer dynamic linking information gathered so far
2538 on function code symbol entries, to their corresponding function
2539 descriptor symbol entries. */
2540static boolean
2541ppc64_elf_func_desc_adjust (obfd, info)
2542 bfd *obfd ATTRIBUTE_UNUSED;
2543 struct bfd_link_info *info;
2544{
2545 struct ppc_link_hash_table *htab;
2546
2547 htab = ppc_hash_table (info);
2548 elf_link_hash_traverse (&htab->elf, func_desc_adjust, (PTR) info);
2549 return true;
2550}
2551
2552/* Adjust a symbol defined by a dynamic object and referenced by a
2553 regular object. The current definition is in some section of the
2554 dynamic object, but we're not including those sections. We have to
2555 change the definition to something the rest of the link can
2556 understand. */
2557
2558static boolean
2559ppc64_elf_adjust_dynamic_symbol (info, h)
2560 struct bfd_link_info *info;
2561 struct elf_link_hash_entry *h;
2562{
2563 struct ppc_link_hash_table *htab;
2564 struct ppc_link_hash_entry * eh;
2565 struct ppc_dyn_relocs *p;
2566 asection *s;
2567 unsigned int power_of_two;
2568
2569 htab = ppc_hash_table (info);
2570
2571 /* Deal with function syms. */
2572 if (h->type == STT_FUNC
2573 || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
2574 {
2575 /* Clear procedure linkage table information for any symbol that
2576 won't need a .plt entry. */
2577 if (!((struct ppc_link_hash_entry *) h)->is_func_descriptor
2578 || h->plt.refcount <= 0
2579 || (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0
2580 || (! info->shared
2581 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0
2582 && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) == 0))
40b8271b 2583 {
40b8271b
AM		 2584 h->plt.offset = (bfd_vma) -1;
2585 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
40b8271b 2586 }
5bd4f169
AM		 2587 return true;
2588 }
bbd7ec4a
AM		 2589 else
2590 h->plt.offset = (bfd_vma) -1;
5bd4f169
AM		 2591
2592 /* If this is a weak symbol, and there is a real definition, the
2593 processor independent code will have arranged for us to see the
2594 real definition first, and we can just use the same value. */
2595 if (h->weakdef != NULL)
2596 {
2597 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
2598 || h->weakdef->root.type == bfd_link_hash_defweak);
2599 h->root.u.def.section = h->weakdef->root.u.def.section;
2600 h->root.u.def.value = h->weakdef->root.u.def.value;
0a991dfe 2601 return true;
5bd4f169
AM		 2602 }
2603
2604 /* This is a reference to a symbol defined by a dynamic object which
2605 is not a function. */
2606
2607 /* If we are creating a shared library, we must presume that the
2608 only references to the symbol are via the global offset table.
2609 For such cases we need not do anything here; the relocations will
2610 be handled correctly by relocate_section. */
2611 if (info->shared)
2612 return true;
2613
65f38f15
AM		 2614 /* If there are no references to this symbol that do not use the
2615 GOT, we don't need to generate a copy reloc. */
2616 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0)
2617 return true;
2618
2619 eh = (struct ppc_link_hash_entry *) h;
2620 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2621 {
2622 s = p->sec->output_section;
2623 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2624 break;
2625 }
2626
2627 /* If we didn't find any dynamic relocs in read-only sections, then
5d1634d7 2628 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
65f38f15
AM		 2629 if (p == NULL)
2630 {
2631 h->elf_link_hash_flags &= ~ELF_LINK_NON_GOT_REF;
2632 return true;
2633 }
2634
5bd4f169
AM		 2635 /* We must allocate the symbol in our .dynbss section, which will
2636 become part of the .bss section of the executable. There will be
2637 an entry for this symbol in the .dynsym section. The dynamic
2638 object will contain position independent code, so all references
2639 from the dynamic object to this symbol will go through the global
2640 offset table. The dynamic linker will use the .dynsym entry to
2641 determine the address it must put in the global offset table, so
2642 both the dynamic object and the regular object will refer to the
2643 same memory location for the variable. */
5bd4f169
AM		 2644
2645 /* We must generate a R_PPC_COPY reloc to tell the dynamic linker to
2646 copy the initial value out of the dynamic object and into the
2647 runtime process image. We need to remember the offset into the
2648 .rela.bss section we are going to use. */
2649 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
2650 {
65f38f15 2651 htab->srelbss->_raw_size += sizeof (Elf64_External_Rela);
5bd4f169
AM		 2652 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
2653 }
2654
2655 /* We need to figure out the alignment required for this symbol. I
2656 have no idea how ELF linkers handle this. */
2657 power_of_two = bfd_log2 (h->size);
2658 if (power_of_two > 4)
2659 power_of_two = 4;
2660
2661 /* Apply the required alignment. */
65f38f15
AM		 2662 s = htab->sdynbss;
2663 s->_raw_size = BFD_ALIGN (s->_raw_size, (bfd_size_type) (1 << power_of_two));
2664 if (power_of_two > bfd_get_section_alignment (htab->elf.dynobj, s))
5bd4f169 2665 {
65f38f15 2666 if (! bfd_set_section_alignment (htab->elf.dynobj, s, power_of_two))
5bd4f169
AM		 2667 return false;
2668 }
2669
2670 /* Define the symbol as being at this point in the section. */
2671 h->root.u.def.section = s;
2672 h->root.u.def.value = s->_raw_size;
2673
2674 /* Increment the section size to make room for the symbol. */
2675 s->_raw_size += h->size;
2676
2677 return true;
2678}
2679
e86ce104
AM		 2680/* If given a function descriptor symbol, hide both the function code
2681 sym and the descriptor. */
2682static void
2683ppc64_elf_hide_symbol (info, h, force_local)
2684 struct bfd_link_info *info;
2685 struct elf_link_hash_entry *h;
2686 boolean force_local;
2687{
2688 _bfd_elf_link_hash_hide_symbol (info, h, force_local);
2689
2690 if (((struct ppc_link_hash_entry *) h)->is_func_descriptor)
2691 {
2692 const char *name;
2693 struct elf_link_hash_entry *fh;
2694 struct ppc_link_hash_table *htab;
2695
2696 name = h->root.root.string - 1;
2697 htab = ppc_hash_table (info);
2698 fh = elf_link_hash_lookup (&htab->elf, name, false, false, false);
2699 if (fh != NULL)
2700 _bfd_elf_link_hash_hide_symbol (info, fh, force_local);
2701 }
2702}
2703
65f38f15
AM		 2704/* This is the condition under which ppc64_elf_finish_dynamic_symbol
2705 will be called from elflink.h. If elflink.h doesn't call our
2706 finish_dynamic_symbol routine, we'll need to do something about
2707 initializing any .plt and .got entries in ppc64_elf_relocate_section. */
2708#define WILL_CALL_FINISH_DYNAMIC_SYMBOL(DYN, INFO, H) \
2709 ((DYN) \
2710 && ((INFO)->shared \
2711 || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0) \
2712 && ((H)->dynindx != -1 \
2713 || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0))
5bd4f169 2714
65f38f15
AM		 2715/* Allocate space in .plt, .got and associated reloc sections for
2716 dynamic relocs. */
5bd4f169
AM		 2717
2718static boolean
65f38f15
AM		 2719allocate_dynrelocs (h, inf)
2720 struct elf_link_hash_entry *h;
2721 PTR inf;
5bd4f169 2722{
65f38f15
AM		 2723 struct bfd_link_info *info;
2724 struct ppc_link_hash_table *htab;
5bd4f169 2725 asection *s;
65f38f15
AM		 2726 struct ppc_link_hash_entry *eh;
2727 struct ppc_dyn_relocs *p;
5bd4f169 2728
65f38f15
AM		 2729 if (h->root.type == bfd_link_hash_indirect
2730 || h->root.type == bfd_link_hash_warning)
2731 return true;
5bd4f169 2732
65f38f15
AM		 2733 info = (struct bfd_link_info *) inf;
2734 htab = ppc_hash_table (info);
5bd4f169 2735
65f38f15 2736 if (htab->elf.dynamic_sections_created
e86ce104
AM		 2737 && h->plt.refcount > 0
2738 && h->dynindx != -1)
5bd4f169 2739 {
e86ce104 2740 BFD_ASSERT (((struct ppc_link_hash_entry *) h)->is_func_descriptor);
5bd4f169 2741
65f38f15
AM		 2742 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info, h))
2743 {
65f38f15
AM		 2744 /* If this is the first .plt entry, make room for the special
2745 first entry. */
2746 s = htab->splt;
5bd4f169 2747 if (s->_raw_size == 0)
65f38f15
AM		 2748 s->_raw_size += PLT_INITIAL_ENTRY_SIZE;
2749
2750 h->plt.offset = s->_raw_size;
2751
2752 /* Make room for this entry. */
2753 s->_raw_size += PLT_ENTRY_SIZE;
2754
5d1634d7
AM		 2755 /* Make room for the .stub and .glink code. */
2756 s = htab->sstub;
2757 s->_raw_size += PLT_CALL_STUB_SIZE;
65f38f15 2758
5d1634d7
AM		 2759 s = htab->sglink;
2760 if (s->_raw_size == 0)
2761 s->_raw_size += GLINK_CALL_STUB_SIZE;
2762 /* We need bigger stubs past index 32767. */
2763 if (s->_raw_size >= GLINK_CALL_STUB_SIZE + 32768*2*4)
2764 s->_raw_size += 4;
2765 s->_raw_size += 2*4;
65f38f15
AM		 2766
2767 /* We also need to make an entry in the .rela.plt section. */
2768 s = htab->srelplt;
2769 s->_raw_size += sizeof (Elf64_External_Rela);
2770 }
2771 else
2772 {
2773 h->plt.offset = (bfd_vma) -1;
2774 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
2775 }
2776 }
2777 else
2778 {
2779 h->plt.offset = (bfd_vma) -1;
2780 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
2781 }
2782
2783 if (h->got.refcount > 0)
2784 {
2785 boolean dyn;
2786
2787 /* Make sure this symbol is output as a dynamic symbol.
2788 Undefined weak syms won't yet be marked as dynamic. */
2789 if (h->dynindx == -1
2790 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
2791 {
2792 if (! bfd_elf64_link_record_dynamic_symbol (info, h))
2793 return false;
2794 }
2795
2796 s = htab->sgot;
2797 h->got.offset = s->_raw_size;
2798 s->_raw_size += 8;
2799 dyn = htab->elf.dynamic_sections_created;
2800 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info, h))
2801 htab->srelgot->_raw_size += sizeof (Elf64_External_Rela);
2802 }
2803 else
2804 h->got.offset = (bfd_vma) -1;
2805
2806 eh = (struct ppc_link_hash_entry *) h;
2807 if (eh->dyn_relocs == NULL)
2808 return true;
2809
2810 /* In the shared -Bsymbolic case, discard space allocated for
2811 dynamic pc-relative relocs against symbols which turn out to be
2812 defined in regular objects. For the normal shared case, discard
2813 space for relocs that have become local due to symbol visibility
2814 changes. */
2815
2816 if (info->shared)
2817 {
2818 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0
2819 && ((h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0
2820 || info->symbolic))
2821 {
2822 struct ppc_dyn_relocs **pp;
2823
2824 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
5bd4f169 2825 {
65f38f15
AM		 2826 p->count -= p->pc_count;
2827 p->pc_count = 0;
2828 if (p->count == 0)
2829 *pp = p->next;
2830 else
2831 pp = &p->next;
5bd4f169 2832 }
65f38f15
AM		 2833 }
2834 }
2835 else
2836 {
2837 /* For the non-shared case, discard space for relocs against
2838 symbols which turn out to need copy relocs or are not
2839 dynamic. */
2840
2841 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
2842 && (((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
2843 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
2844 || (htab->elf.dynamic_sections_created
2845 && (h->root.type == bfd_link_hash_undefweak
2846 || h->root.type == bfd_link_hash_undefined))))
2847 {
2848 /* Make sure this symbol is output as a dynamic symbol.
2849 Undefined weak syms won't yet be marked as dynamic. */
2850 if (h->dynindx == -1
2851 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
2852 {
ec338859 2853 if (! bfd_elf64_link_record_dynamic_symbol (info, h))
65f38f15
AM		 2854 return false;
2855 }
2856
2857 /* If that succeeded, we know we'll be keeping all the
2858 relocs. */
2859 if (h->dynindx != -1)
2860 goto keep;
2861 }
2862
2863 eh->dyn_relocs = NULL;
2864
ec338859 2865 keep: ;
65f38f15
AM		 2866 }
2867
2868 /* Finally, allocate space. */
2869 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2870 {
2871 asection *sreloc = elf_section_data (p->sec)->sreloc;
2872 sreloc->_raw_size += p->count * sizeof (Elf64_External_Rela);
2873 }
2874
2875 return true;
2876}
2877
2878/* Find any dynamic relocs that apply to read-only sections. */
2879
2880static boolean
2881readonly_dynrelocs (h, inf)
2882 struct elf_link_hash_entry *h;
2883 PTR inf;
2884{
2885 struct ppc_link_hash_entry *eh;
2886 struct ppc_dyn_relocs *p;
2887
2888 eh = (struct ppc_link_hash_entry *) h;
2889 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2890 {
2891 asection *s = p->sec->output_section;
2892
2893 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2894 {
2895 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2896
2897 info->flags |= DF_TEXTREL;
2898
2899 /* Not an error, just cut short the traversal. */
2900 return false;
2901 }
2902 }
2903 return true;
2904}
2905
2906/* Set the sizes of the dynamic sections. */
2907
2908static boolean
2909ppc64_elf_size_dynamic_sections (output_bfd, info)
2910 bfd *output_bfd ATTRIBUTE_UNUSED;
2911 struct bfd_link_info *info;
2912{
2913 struct ppc_link_hash_table *htab;
2914 bfd *dynobj;
2915 asection *s;
2916 boolean relocs;
2917 bfd *ibfd;
2918
2919 htab = ppc_hash_table (info);
2920 dynobj = htab->elf.dynobj;
2921 if (dynobj == NULL)
2922 abort ();
2923
2924 if (htab->elf.dynamic_sections_created)
2925 {
2926 /* Set the contents of the .interp section to the interpreter. */
2927 if (! info->shared)
2928 {
2929 s = bfd_get_section_by_name (dynobj, ".interp");
2930 if (s == NULL)
2931 abort ();
2932 s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
2933 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2934 }
2935 }
2936
2937 /* Set up .got offsets for local syms, and space for local dynamic
2938 relocs. */
2939 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
2940 {
2941 bfd_signed_vma *local_got;
2942 bfd_signed_vma *end_local_got;
2943 bfd_size_type locsymcount;
2944 Elf_Internal_Shdr *symtab_hdr;
2945 asection *srel;
2946
2947 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2948 continue;
2949
2950 for (s = ibfd->sections; s != NULL; s = s->next)
2951 {
ec338859 2952 struct ppc_dyn_relocs *p;
65f38f15 2953
ec338859
AM		 2954 for (p = *((struct ppc_dyn_relocs **)
2955 &elf_section_data (s)->local_dynrel);
2956 p != NULL;
2957 p = p->next)
65f38f15 2958 {
ec338859
AM		 2959 if (!bfd_is_abs_section (p->sec)
2960 && bfd_is_abs_section (p->sec->output_section))
2961 {
2962 /* Input section has been discarded, either because
2963 it is a copy of a linkonce section or due to
2964 linker script /DISCARD/, so we'll be discarding
2965 the relocs too. */
2966 }
2967 else
2968 {
2969 srel = elf_section_data (p->sec)->sreloc;
2970 srel->_raw_size += p->count * sizeof (Elf64_External_Rela);
2971 }
65f38f15
AM		 2972 }
2973 }
2974
2975 local_got = elf_local_got_refcounts (ibfd);
2976 if (!local_got)
2977 continue;
2978
2979 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2980 locsymcount = symtab_hdr->sh_info;
2981 end_local_got = local_got + locsymcount;
2982 s = htab->sgot;
2983 srel = htab->srelgot;
2984 for (; local_got < end_local_got; ++local_got)
2985 {
2986 if (*local_got > 0)
5bd4f169 2987 {
65f38f15
AM		 2988 *local_got = s->_raw_size;
2989 s->_raw_size += 8;
2990 if (info->shared)
2991 srel->_raw_size += sizeof (Elf64_External_Rela);
5bd4f169 2992 }
65f38f15
AM		 2993 else
2994 *local_got = (bfd_vma) -1;
2995 }
2996 }
2997
2998 /* Allocate global sym .plt and .got entries, and space for global
2999 sym dynamic relocs. */
3000 elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, (PTR) info);
3001
3002 /* We now have determined the sizes of the various dynamic sections.
3003 Allocate memory for them. */
3004 relocs = false;
3005 for (s = dynobj->sections; s != NULL; s = s->next)
3006 {
5d1634d7
AM		 3007 bfd_vma size;
3008
65f38f15
AM		 3009 if ((s->flags & SEC_LINKER_CREATED) == 0)
3010 continue;
3011
3012 if (s == htab->splt
3013 || s == htab->sgot
5d1634d7 3014 || s == htab->sstub
65f38f15
AM		 3015 || s == htab->sglink)
3016 {
3017 /* Strip this section if we don't need it; see the
3018 comment below. */
5bd4f169 3019 }
65f38f15 3020 else if (strncmp (bfd_get_section_name (dynobj, s), ".rela", 5) == 0)
5bd4f169
AM		 3021 {
3022 if (s->_raw_size == 0)
3023 {
3024 /* If we don't need this section, strip it from the
3025 output file. This is mostly to handle .rela.bss and
3026 .rela.plt. We must create both sections in
3027 create_dynamic_sections, because they must be created
3028 before the linker maps input sections to output
3029 sections. The linker does that before
3030 adjust_dynamic_symbol is called, and it is that
3031 function which decides whether anything needs to go
3032 into these sections. */
5bd4f169
AM		 3033 }
3034 else
3035 {
65f38f15
AM		 3036 if (s != htab->srelplt)
3037 relocs = true;
5bd4f169
AM		 3038
3039 /* We use the reloc_count field as a counter if we need
3040 to copy relocs into the output file. */
3041 s->reloc_count = 0;
3042 }
3043 }
65f38f15 3044 else
5bd4f169
AM		 3045 {
3046 /* It's not one of our sections, so don't allocate space. */
3047 continue;
3048 }
3049
65f38f15 3050 if (s->_raw_size == 0)
5bd4f169
AM		 3051 {
3052 _bfd_strip_section_from_output (info, s);
3053 continue;
3054 }
3055
65f38f15
AM		 3056 /* Allocate memory for the section contents. We use bfd_zalloc
3057 here in case unused entries are not reclaimed before the
3058 section's contents are written out. This should not happen,
3059 but this way if it does, we get a R_PPC64_NONE reloc instead
3060 of garbage. */
5d1634d7
AM		 3061 size = s->_raw_size;
3062 if (s == htab->sstub)
3063 {
3064 /* .stub may grow. Allocate enough for the maximum growth. */
3065 size += (size + 65536 + 65535) / 65536 * 4;
3066 }
3067 s->contents = (bfd_byte *) bfd_zalloc (dynobj, size);
65f38f15 3068 if (s->contents == NULL)
5bd4f169
AM		 3069 return false;
3070 }
3071
e86ce104 3072 if (htab->elf.dynamic_sections_created)
5bd4f169
AM		 3073 {
3074 /* Add some entries to the .dynamic section. We fill in the
3075 values later, in ppc64_elf_finish_dynamic_sections, but we
3076 must add the entries now so that we get the correct size for
3077 the .dynamic section. The DT_DEBUG entry is filled in by the
3078 dynamic linker and used by the debugger. */
dc810e39
AM		 3079#define add_dynamic_entry(TAG, VAL) \
3080 bfd_elf64_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
3081
3082 if (!info->shared)
5bd4f169 3083 {
dc810e39 3084 if (!add_dynamic_entry (DT_DEBUG, 0))
5bd4f169
AM		 3085 return false;
3086 }
3087
65f38f15 3088 if (htab->splt->_raw_size != 0)
5bd4f169 3089 {
dc810e39
AM		 3090 if (!add_dynamic_entry (DT_PLTGOT, 0)
3091 || !add_dynamic_entry (DT_PLTRELSZ, 0)
3092 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
5d1634d7
AM		 3093 || !add_dynamic_entry (DT_JMPREL, 0)
3094 || !add_dynamic_entry (DT_PPC64_GLINK, 0))
5bd4f169
AM		 3095 return false;
3096 }
3097
3098 if (relocs)
3099 {
dc810e39
AM		 3100 if (!add_dynamic_entry (DT_RELA, 0)
3101 || !add_dynamic_entry (DT_RELASZ, 0)
3102 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf64_External_Rela)))
5bd4f169 3103 return false;
5bd4f169 3104
65f38f15
AM		 3105 /* If any dynamic relocs apply to a read-only section,
3106 then we need a DT_TEXTREL entry. */
3107 elf_link_hash_traverse (&htab->elf, readonly_dynrelocs, (PTR) info);
5bd4f169 3108
65f38f15 3109 if ((info->flags & DF_TEXTREL) != 0)
5bd4f169 3110 {
65f38f15
AM		 3111 if (!add_dynamic_entry (DT_TEXTREL, 0))
3112 return false;
5bd4f169 3113 }
5bd4f169 3114 }
5bd4f169 3115 }
65f38f15 3116#undef add_dynamic_entry
5bd4f169
AM		 3117
3118 return true;
3119}
3120
3121/* Called after we have seen all the input files/sections, but before
3122 final symbol resolution and section placement has been determined.
3123
3124 We use this hook to provide a value for TOCstart, which we store in
5d1634d7 3125 the output bfd elf_gp. */
5bd4f169 3126
5d1634d7
AM		 3127boolean
3128ppc64_elf_set_toc (obfd, info)
3129 bfd *obfd;
5bd4f169
AM		 3130 struct bfd_link_info *info;
3131{
5d1634d7 3132 if (!info->relocateable)
5bd4f169
AM		 3133 {
3134 asection *s;
3135 bfd_vma TOCstart;
3136
5d1634d7 3137 /* The TOC consists of sections .got, .toc, .tocbss, .plt in that
5bd4f169 3138 order. The TOC starts where the first of these sections starts. */
5d1634d7 3139 s = bfd_get_section_by_name (obfd, ".got");
5bd4f169 3140 if (s == NULL)
5d1634d7 3141 s = bfd_get_section_by_name (obfd, ".toc");
5bd4f169 3142 if (s == NULL)
5d1634d7 3143 s = bfd_get_section_by_name (obfd, ".tocbss");
5bd4f169 3144 if (s == NULL)
5d1634d7 3145 s = bfd_get_section_by_name (obfd, ".plt");
5bd4f169
AM		 3146 if (s == NULL)
3147 {
3148 /* This may happen for
3149 o references to TOC base (SYM@toc / TOC[tc0]) without a
3150 .toc directive
3151 o bad linker script
3152 o --gc-sections and empty TOC sections
3153
3154 FIXME: Warn user? */
3155
3156 /* Look for a likely section. We probably won't even be
3157 using TOCstart. */
5d1634d7 3158 for (s = obfd->sections; s != NULL; s = s->next)
5bd4f169
AM		 3159 if ((s->flags & (SEC_ALLOC | SEC_SMALL_DATA | SEC_READONLY))
3160 == (SEC_ALLOC | SEC_SMALL_DATA))
3161 break;
3162 if (s == NULL)
5d1634d7 3163 for (s = obfd->sections; s != NULL; s = s->next)
5bd4f169
AM		 3164 if ((s->flags & (SEC_ALLOC | SEC_SMALL_DATA))
3165 == (SEC_ALLOC | SEC_SMALL_DATA))
3166 break;
3167 if (s == NULL)
5d1634d7 3168 for (s = obfd->sections; s != NULL; s = s->next)
5bd4f169
AM		 3169 if ((s->flags & (SEC_ALLOC | SEC_READONLY)) == SEC_ALLOC)
3170 break;
3171 if (s == NULL)
5d1634d7 3172 for (s = obfd->sections; s != NULL; s = s->next)
5bd4f169
AM		 3173 if ((s->flags & SEC_ALLOC) == SEC_ALLOC)
3174 break;
3175 }
3176
3177 TOCstart = 0;
3178 if (s != NULL)
3179 TOCstart = s->output_section->vma + s->output_offset;
3180
5d1634d7
AM		 3181 elf_gp (obfd) = TOCstart;
3182 }
3183 return true;
3184}
3185
3186/* PowerPC64 .plt entries are 24 bytes long, which doesn't divide
3187 evenly into 64k. Sometimes with a large enough .plt, we'll need to
3188 use offsets differing in the high 16 bits when accessing a .plt
3189 entry from a .plt call stub. This function adjusts the size of
3190 .stub to accommodate the extra stub instruction needed in such
3191 cases. */
3192
3193boolean
3194ppc64_elf_size_stubs (obfd, info, changed)
3195 bfd *obfd;
3196 struct bfd_link_info *info;
3197 int *changed;
3198{
3199 struct ppc_link_hash_table *htab = ppc_hash_table (info);
3200 bfd_vma plt_offset, next_64k;
3201 long base, num, extra;
3202
3203 /* .plt and .stub should be both present, or both absent. */
3204 if ((htab->splt == NULL || htab->splt->_raw_size == 0)
3205 != (htab->sstub == NULL || htab->sstub->_raw_size == 0))
3206 abort ();
3207
3208 /* If no .plt, then nothing to do. */
3209 if (htab->splt == NULL || htab->splt->_raw_size == 0)
3210 return true;
3211
3212 plt_offset = (htab->splt->output_section->vma
3213 + htab->splt->output_offset
3214 - elf_gp (obfd));
3215 next_64k = (plt_offset + 65535) & -65536;
3216
3217 /* If the .plt doesn't have any entries crossing a 64k boundary,
3218 then there is no need for bigger stubs. */
3219 if (next_64k <= plt_offset + htab->splt->_raw_size)
3220 return true;
3221
3222 /* OK, so we have at least one transition. Since .plt entries are
3223 24 bytes long, we'll strike it lucky every 3*64k, with the 64k
3224 boundary between .plt entries. */
3225 base = next_64k / 65536;
3226 num = (plt_offset + htab->splt->_raw_size - next_64k) / 65536;
3227 extra = (base % 3 + num + 1) * 2 / 3;
3228
3229 /* Allow one extra instruction for each EXTRA. The change in .stub
3230 may change the location of .toc and .plt. .toc and .plt ought to
3231 move as a group, but someone might be playing with eg. .plt
3232 alignment, so don't allow .stub size to decrease. */
3233 if (htab->sstub->_cooked_size < htab->sstub->_raw_size + extra * 4)
3234 {
3235 htab->sstub->_cooked_size = htab->sstub->_raw_size + extra * 4;
3236 *changed = true;
3237 }
3238 return true;
3239}
3240
3241/* Build a .plt call stub. */
3242
3243static bfd_byte *
3244build_plt_stub (obfd, p, offset, glink)
3245 bfd *obfd;
3246 bfd_byte *p;
3247 int offset;
3248 int glink;
3249{
3250#define PPC_LO(v) ((v) & 0xffff)
3251#define PPC_HI(v) (((v) >> 16) & 0xffff)
3252#define PPC_HA(v) PPC_HI ((v) + 0x8000)
3253
3254 if (glink)
3255 bfd_put_32 (obfd, LD_R2_40R1, p), p += 4;
3256 bfd_put_32 (obfd, ADDIS_R12_R2 | PPC_HA (offset), p), p += 4;
3257 if (!glink)
3258 bfd_put_32 (obfd, STD_R2_40R1, p), p += 4;
3259 bfd_put_32 (obfd, LD_R11_0R12 | PPC_LO (offset), p), p += 4;
3260 if (PPC_HA (offset + 8) != PPC_HA (offset))
3261 bfd_put_32 (obfd, ADDIS_R12_R12_1, p), p += 4;
3262 offset += 8;
3263 bfd_put_32 (obfd, LD_R2_0R12 | PPC_LO (offset), p), p += 4;
3264 if (PPC_HA (offset + 8) != PPC_HA (offset))
3265 bfd_put_32 (obfd, ADDIS_R12_R12_1, p), p += 4;
3266 offset += 8;
3267 bfd_put_32 (obfd, MTCTR_R11, p), p += 4;
3268 bfd_put_32 (obfd, LD_R11_0R12 | PPC_LO (offset), p), p += 4;
3269 bfd_put_32 (obfd, BCTR, p), p += 4;
3270 return p;
3271}
3272
3273/* Build the stubs for one function call. */
3274
3275static boolean
3276build_one_stub (h, inf)
3277 struct elf_link_hash_entry *h;
3278 PTR inf;
3279{
3280 struct bfd_link_info *info;
3281 struct ppc_link_hash_table *htab;
3282
3283 if (h->root.type == bfd_link_hash_indirect
3284 || h->root.type == bfd_link_hash_warning)
3285 return true;
3286
3287 info = (struct bfd_link_info *) inf;
3288 htab = ppc_hash_table (info);
3289
3290 if (htab->elf.dynamic_sections_created
41bd81ab
AM		 3291 && h->plt.offset != (bfd_vma) -1
3292 && ((struct ppc_link_hash_entry *) h)->is_func_descriptor)
5d1634d7 3293 {
e86ce104 3294 struct elf_link_hash_entry *fh;
5d1634d7
AM		 3295 asection *s;
3296 bfd_vma plt_r2;
3297 bfd_byte *p;
3298 unsigned int indx;
3299
e86ce104
AM		 3300 fh = elf_link_hash_lookup (&htab->elf, h->root.root.string - 1,
3301 false, false, true);
3302
3303 if (fh == NULL)
3304 abort ();
3305
3306 BFD_ASSERT (((struct ppc_link_hash_entry *) fh)->is_func);
3307
5d1634d7
AM		 3308 /* Build the .plt call stub. */
3309 plt_r2 = (htab->splt->output_section->vma
3310 + htab->splt->output_offset
3311 + h->plt.offset
3312 - elf_gp (htab->splt->output_section->owner)
3313 - TOC_BASE_OFF);
3314
e86ce104
AM		 3315 if (plt_r2 + 0x80000000 > 0xffffffff
3316 || (plt_r2 & 3) != 0)
5d1634d7
AM		 3317 {
3318 (*_bfd_error_handler)
e86ce104 3319 (_("linkage table error against `%s'"),
5d1634d7
AM		 3320 h->root.root.string);
3321 bfd_set_error (bfd_error_bad_value);
3322 htab->plt_overflow = true;
3323 return false;
3324 }
41bd81ab
AM		 3325
3326 s = htab->sstub;
3327 /* Steal plt.offset to store the stub offset. */
3328 fh->plt.offset = s->_cooked_size;
5d1634d7
AM		 3329 p = s->contents + s->_cooked_size;
3330 p = build_plt_stub (s->owner, p, (int) plt_r2, 0);
3331 s->_cooked_size = p - s->contents;
3332
3333 /* Build the .glink lazy link call stub. */
3334 s = htab->sglink;
3335 p = s->contents + s->_cooked_size;
3336 indx = s->reloc_count;
3337 if (indx < 0x8000)
3338 {
3339 bfd_put_32 (s->owner, LI_R0_0 | indx, p);
3340 p += 4;
3341 }
3342 else
3343 {
3344 bfd_put_32 (s->owner, LIS_R0_0 | PPC_HI (indx), p);
3345 p += 4;
3346 bfd_put_32 (s->owner, ORI_R0_R0_0 | PPC_LO (indx), p);
3347 p += 4;
3348 }
3349 bfd_put_32 (s->owner, B_DOT | ((s->contents - p) & 0x3fffffc), p);
3350 p += 4;
3351 s->_cooked_size = p - s->contents;
3352 s->reloc_count += 1;
5bd4f169 3353 }
5d1634d7
AM		 3354 return true;
3355}
5bd4f169 3356
5d1634d7
AM		 3357boolean
3358ppc64_elf_build_stubs (obfd, info)
3359 bfd *obfd;
3360 struct bfd_link_info *info;
3361{
3362 struct ppc_link_hash_table *htab = ppc_hash_table (info);
3363 bfd_vma old_stub_size;
3364 bfd_vma plt_r2;
3365 bfd_byte *p;
3366
3367 /* If no .plt stubs, then nothing to do. */
3368 if (htab->sstub == NULL || htab->sstub->_raw_size == 0)
3369 return true;
3370
3371 old_stub_size = htab->sstub->_cooked_size;
3372 htab->sstub->_cooked_size = 0;
3373
3374 /* Build the .glink plt call stub. */
3375 plt_r2 = (htab->splt->output_section->vma
3376 + htab->splt->output_offset
3377 - elf_gp (obfd)
3378 - TOC_BASE_OFF);
3379 p = htab->sglink->contents;
3380 p = build_plt_stub (htab->sglink->owner, p, (int) plt_r2, 1);
3381 while (p - htab->sglink->contents < GLINK_CALL_STUB_SIZE)
3382 {
3383 bfd_put_32 (htab->sglink->owner, NOP, p);
3384 p += 4;
3385 }
3386 htab->sglink->_cooked_size = p - htab->sglink->contents;
3387
3388 /* Use reloc_count to count entries. */
3389 htab->sglink->reloc_count = 0;
3390
3391 elf_link_hash_traverse (&htab->elf, build_one_stub, (PTR) info);
3392 htab->sglink->reloc_count = 0;
3393
3394 if (htab->plt_overflow)
3395 return false;
3396
3397 if (old_stub_size != htab->sstub->_cooked_size
3398 || htab->sglink->_raw_size != htab->sglink->_cooked_size)
3399 {
3400 (*_bfd_error_handler)
3401 (_("stub section size doesn't match calculated size"));
3402 bfd_set_error (bfd_error_bad_value);
3403 return false;
3404 }
3405 return true;
5bd4f169
AM		 3406}
3407
3408/* Set up any other section flags and such that may be necessary. */
3409
3410static boolean
3411ppc64_elf_fake_sections (abfd, shdr, asect)
3412 bfd *abfd ATTRIBUTE_UNUSED;
3413 Elf64_Internal_Shdr *shdr;
3414 asection *asect;
3415{
3416 if ((asect->flags & SEC_EXCLUDE) != 0)
3417 shdr->sh_flags |= SHF_EXCLUDE;
3418
3419 if ((asect->flags & SEC_SORT_ENTRIES) != 0)
3420 shdr->sh_type = SHT_ORDERED;
3421
3422 return true;
3423}
3424
3425/* The RELOCATE_SECTION function is called by the ELF backend linker
3426 to handle the relocations for a section.
3427
3428 The relocs are always passed as Rela structures; if the section
3429 actually uses Rel structures, the r_addend field will always be
3430 zero.
3431
3432 This function is responsible for adjust the section contents as
3433 necessary, and (if using Rela relocs and generating a
3434 relocateable output file) adjusting the reloc addend as
3435 necessary.
3436
3437 This function does not have to worry about setting the reloc
3438 address or the reloc symbol index.
3439
3440 LOCAL_SYMS is a pointer to the swapped in local symbols.
3441
3442 LOCAL_SECTIONS is an array giving the section in the input file
3443 corresponding to the st_shndx field of each local symbol.
3444
3445 The global hash table entry for the global symbols can be found
3446 via elf_sym_hashes (input_bfd).
3447
3448 When generating relocateable output, this function must handle
3449 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
3450 going to be the section symbol corresponding to the output
3451 section, which means that the addend must be adjusted
3452 accordingly. */
3453
3454static boolean
3455ppc64_elf_relocate_section (output_bfd, info, input_bfd, input_section,
3456 contents, relocs, local_syms, local_sections)
3457 bfd *output_bfd;
3458 struct bfd_link_info *info;
3459 bfd *input_bfd;
3460 asection *input_section;
3461 bfd_byte *contents;
3462 Elf_Internal_Rela *relocs;
3463 Elf_Internal_Sym *local_syms;
3464 asection **local_sections;
3465{
65f38f15 3466 struct ppc_link_hash_table *htab;
5bd4f169
AM		 3467 Elf_Internal_Shdr *symtab_hdr;
3468 struct elf_link_hash_entry **sym_hashes;
5bd4f169
AM		 3469 Elf_Internal_Rela *rel;
3470 Elf_Internal_Rela *relend;
5bd4f169
AM		 3471 bfd_vma *local_got_offsets;
3472 bfd_vma TOCstart;
3473 boolean ret = true;
41bd81ab 3474 boolean is_opd;
5bd4f169 3475
65f38f15 3476 /* Initialize howto table if needed. */
5bd4f169 3477 if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
5bd4f169
AM		 3478 ppc_howto_init ();
3479
65f38f15 3480 htab = ppc_hash_table (info);
5bd4f169 3481 local_got_offsets = elf_local_got_offsets (input_bfd);
5bd4f169 3482 TOCstart = elf_gp (output_bfd);
5bd4f169
AM		 3483 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3484 sym_hashes = elf_sym_hashes (input_bfd);
41bd81ab 3485 is_opd = strcmp (bfd_get_section_name (abfd, input_section), ".opd") == 0;
65f38f15 3486
5bd4f169
AM		 3487 rel = relocs;
3488 relend = relocs + input_section->reloc_count;
3489 for (; rel < relend; rel++)
3490 {
3491 enum elf_ppc_reloc_type r_type;
3492 bfd_vma offset;
3493 bfd_vma addend;
3494 bfd_reloc_status_type r;
3495 Elf_Internal_Sym *sym;
3496 asection *sec;
3497 struct elf_link_hash_entry *h;
3498 const char *sym_name;
5bd4f169
AM		 3499 unsigned long r_symndx;
3500 bfd_vma relocation;
65f38f15 3501 boolean unresolved_reloc;
e86ce104 3502 boolean has_nop;
dc810e39 3503 long insn;
5bd4f169
AM		 3504
3505 r_type = (enum elf_ppc_reloc_type) ELF64_R_TYPE (rel->r_info);
5bd4f169
AM		 3506 r_symndx = ELF64_R_SYM (rel->r_info);
3507
3508 if (info->relocateable)
3509 {
3510 /* This is a relocatable link. We don't have to change
3511 anything, unless the reloc is against a section symbol,
3512 in which case we have to adjust according to where the
3513 section symbol winds up in the output section. */
3514 if (r_symndx < symtab_hdr->sh_info)
3515 {
3516 sym = local_syms + r_symndx;
3517 if ((unsigned) ELF_ST_TYPE (sym->st_info) == STT_SECTION)
3518 {
3519 sec = local_sections[r_symndx];
65f38f15 3520 rel->r_addend += sec->output_offset + sym->st_value;
5bd4f169
AM		 3521 }
3522 }
5bd4f169
AM		 3523 continue;
3524 }
3525
3526 /* This is a final link. */
3527
65f38f15
AM		 3528 offset = rel->r_offset;
3529 addend = rel->r_addend;
3530 r = bfd_reloc_other;
3531 sym = (Elf_Internal_Sym *) 0;
3532 sec = (asection *) 0;
3533 h = (struct elf_link_hash_entry *) 0;
3534 sym_name = (const char *) 0;
3535 unresolved_reloc = false;
3536
5bd4f169
AM		 3537 if (r_type == R_PPC64_TOC)
3538 {
3539 /* Relocation value is TOC base. Symbol is ignored. */
3540 relocation = TOCstart + TOC_BASE_OFF;
3541 }
3542 else if (r_symndx < symtab_hdr->sh_info)
3543 {
3544 /* It's a local symbol. */
3545 sym = local_syms + r_symndx;
3546 sec = local_sections[r_symndx];
3547 sym_name = "<local symbol>";
3548
f8df10f4
JJ		 3549 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, sec, rel);
3550 addend = rel->r_addend;
5bd4f169
AM		 3551 }
3552 else
3553 {
3554 /* It's a global symbol. */
3555 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3556 while (h->root.type == bfd_link_hash_indirect
3557 || h->root.type == bfd_link_hash_warning)
3558 h = (struct elf_link_hash_entry *) h->root.u.i.link;
3559 sym_name = h->root.root.string;
65f38f15 3560 relocation = 0;
5bd4f169
AM		 3561 if (h->root.type == bfd_link_hash_defined
3562 || h->root.type == bfd_link_hash_defweak)
3563 {
3564 sec = h->root.u.def.section;
65f38f15
AM		 3565 if (sec->output_section == NULL)
3566 /* Set a flag that will be cleared later if we find a
3567 relocation value for this symbol. output_section
3568 is typically NULL for symbols satisfied by a shared
3569 library. */
3570 unresolved_reloc = true;
5bd4f169
AM		 3571 else
3572 relocation = (h->root.u.def.value
3573 + sec->output_section->vma
3574 + sec->output_offset);
3575 }
3576 else if (h->root.type == bfd_link_hash_undefweak)
65f38f15 3577 ;
671bae9c 3578 else if (info->shared
65f38f15
AM		 3579 && (!info->symbolic || info->allow_shlib_undefined)
3580 && !info->no_undefined
3581 && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
3582 ;
5bd4f169
AM		 3583 else
3584 {
3585 if (! ((*info->callbacks->undefined_symbol)
3586 (info, h->root.root.string, input_bfd, input_section,
65f38f15
AM		 3587 offset, (!info->shared
3588 || info->no_undefined
3589 || ELF_ST_VISIBILITY (h->other)))))
5bd4f169 3590 return false;
5bd4f169
AM		 3591 }
3592 }
3593
65f38f15 3594 /* First handle relocations that tweak non-addend part of insn. */
86c76c7b 3595 insn = 0;
65f38f15 3596 switch (r_type)
5bd4f169
AM		 3597 {
3598 default:
65f38f15 3599 break;
5bd4f169 3600
65f38f15
AM		 3601 /* Branch taken prediction relocations. */
3602 case R_PPC64_ADDR14_BRTAKEN:
3603 case R_PPC64_REL14_BRTAKEN:
86c76c7b
AM		 3604 insn = 0x01 << 21; /* Set 't' bit, lowest bit of BO field. */
3605 /* Fall thru. */
65f38f15 3606
86c76c7b 3607 /* Branch not taken prediction relocations. */
65f38f15
AM		 3608 case R_PPC64_ADDR14_BRNTAKEN:
3609 case R_PPC64_REL14_BRNTAKEN:
86c76c7b
AM		 3610 insn |= bfd_get_32 (output_bfd, contents + offset) & ~(0x01 << 21);
3611 /* Set 'a' bit. This is 0b00010 in BO field for branch on CR(BI)
3612 insns (BO == 001at or 011at), and 0b01000 for branch on CTR
3613 insns (BO == 1a00t or 1a01t). */
3614 if ((insn & (0x14 << 21)) == (0x04 << 21))
3615 insn |= 0x02 << 21;
3616 else if ((insn & (0x14 << 21)) == (0x10 << 21))
3617 insn |= 0x08 << 21;
65f38f15 3618 else
86c76c7b
AM		 3619 break;
3620
65f38f15
AM		 3621 bfd_put_32 (output_bfd, (bfd_vma) insn, contents + offset);
3622 break;
5bd4f169 3623
65f38f15
AM		 3624 case R_PPC64_REL24:
3625 case R_PPC64_ADDR24:
5bd4f169 3626 /* An ADDR24 or REL24 branching to a linkage function may be
65f38f15 3627 followed by a nop that we have to replace with a ld in
5bd4f169
AM		 3628 order to restore the TOC base pointer. Only calls to
3629 shared objects need to alter the TOC base. These are
3630 recognized by their need for a PLT entry. */
e86ce104 3631 has_nop = 0;
5bd4f169 3632 if (h != NULL
41bd81ab
AM		 3633 && h->plt.offset != (bfd_vma) -1
3634 && htab->sstub != NULL)
3635 {
3636 /* plt.offset here is the offset into the stub section. */
3637 relocation = (htab->sstub->output_section->vma
3638 + htab->sstub->output_offset
3639 + h->plt.offset);
3640 unresolved_reloc = false;
3641
5bd4f169
AM		 3642 /* Make sure that there really is an instruction after
3643 the branch that we can decode. */
41bd81ab
AM		 3644 if (offset + 8 <= input_section->_cooked_size)
3645 {
3646 bfd_byte *pnext;
5bd4f169 3647
41bd81ab
AM		 3648 pnext = contents + offset + 4;
3649 insn = bfd_get_32 (input_bfd, pnext);
5bd4f169 3650
41bd81ab
AM		 3651 if (insn == 0x60000000 /* nop (ori r0,r0,0) */
3652 || insn == 0x4def7b82 /* cror 15,15,15 */
3653 || insn == 0x4ffffb82) /* cror 31,31,31 */
3654 {
3655 bfd_put_32 (input_bfd,
3656 (bfd_vma) 0xe8410028, /* ld r2,40(r1) */
3657 pnext);
3658 has_nop = 1;
3659 }
5bd4f169
AM		 3660 }
3661 }
e86ce104
AM		 3662
3663 if (h != NULL
3664 && h->root.type == bfd_link_hash_undefweak
3665 && r_type == R_PPC64_REL24
3666 && addend == 0
3667 && relocation == 0)
3668 {
3669 /* Tweak calls to undefined weak functions to behave as
3670 if the "called" function immediately returns. We can
3671 thus call to a weak function without first checking
3672 whether the function is defined. */
3673 relocation = 4;
3674 if (has_nop)
3675 relocation = 8;
3676 }
65f38f15
AM		 3677 break;
3678 }
5bd4f169 3679
65f38f15
AM		 3680 /* Set `addend'. */
3681 switch (r_type)
3682 {
3683 default:
3684 (*_bfd_error_handler)
3685 (_("%s: unknown relocation type %d for symbol %s"),
3686 bfd_archive_filename (input_bfd), (int) r_type, sym_name);
5bd4f169 3687
65f38f15
AM		 3688 bfd_set_error (bfd_error_bad_value);
3689 ret = false;
3690 continue;
5bd4f169 3691
65f38f15
AM		 3692 case R_PPC64_NONE:
3693 case R_PPC_GNU_VTINHERIT:
3694 case R_PPC_GNU_VTENTRY:
3695 continue;
5bd4f169
AM		 3696
3697 /* GOT16 relocations. Like an ADDR16 using the symbol's
3698 address in the GOT as relocation value instead of the
3699 symbols value itself. Also, create a GOT entry for the
3700 symbol and put the symbol value there. */
65f38f15
AM		 3701 case R_PPC64_GOT16:
3702 case R_PPC64_GOT16_LO:
3703 case R_PPC64_GOT16_HI:
3704 case R_PPC64_GOT16_HA:
3705 case R_PPC64_GOT16_DS:
3706 case R_PPC64_GOT16_LO_DS:
5bd4f169
AM		 3707 {
3708 /* Relocation is to the entry for this symbol in the global
3709 offset table. */
3710 bfd_vma off;
65f38f15
AM		 3711
3712 if (htab->sgot == NULL)
3713 abort ();
5bd4f169
AM		 3714
3715 if (h != NULL)
3716 {
65f38f15 3717 boolean dyn;
5bd4f169 3718
65f38f15
AM		 3719 off = h->got.offset;
3720 dyn = htab->elf.dynamic_sections_created;
3721 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info, h)
5bd4f169 3722 || (info->shared
65f38f15
AM		 3723 && (info->symbolic
3724 || h->dynindx == -1
3725 || (h->elf_link_hash_flags
3726 & ELF_LINK_FORCED_LOCAL))
5bd4f169
AM		 3727 && (h->elf_link_hash_flags
3728 & ELF_LINK_HASH_DEF_REGULAR)))
3729 {
3730 /* This is actually a static link, or it is a
3731 -Bsymbolic link and the symbol is defined
65f38f15
AM		 3732 locally, or the symbol was forced to be local
3733 because of a version file. We must initialize
3734 this entry in the global offset table. Since the
3735 offset must always be a multiple of 8, we use the
3736 least significant bit to record whether we have
5bd4f169
AM		 3737 initialized it already.
3738
65f38f15 3739 When doing a dynamic link, we create a .rel.got
5bd4f169
AM		 3740 relocation entry to initialize the value. This
3741 is done in the finish_dynamic_symbol routine. */
3742 if ((off & 1) != 0)
3743 off &= ~1;
3744 else
3745 {
3746 bfd_put_64 (output_bfd, relocation,
65f38f15 3747 htab->sgot->contents + off);
5bd4f169
AM		 3748 h->got.offset |= 1;
3749 }
3750 }
65f38f15
AM		 3751 else
3752 unresolved_reloc = false;
5bd4f169
AM		 3753 }
3754 else
3755 {
65f38f15
AM		 3756 if (local_got_offsets == NULL)
3757 abort ();
5bd4f169
AM		 3758
3759 off = local_got_offsets[r_symndx];
3760
65f38f15 3761 /* The offset must always be a multiple of 8. We use
5bd4f169
AM		 3762 the least significant bit to record whether we have
3763 already processed this entry. */
3764 if ((off & 1) != 0)
3765 off &= ~1;
3766 else
3767 {
65f38f15
AM		 3768 bfd_put_64 (output_bfd, relocation,
3769 htab->sgot->contents + off);
5bd4f169
AM		 3770
3771 if (info->shared)
3772 {
5bd4f169 3773 Elf_Internal_Rela outrel;
65f38f15 3774 Elf64_External_Rela *loc;
5bd4f169
AM		 3775
3776 /* We need to generate a R_PPC64_RELATIVE reloc
3777 for the dynamic linker. */
65f38f15
AM		 3778 outrel.r_offset = (htab->sgot->output_section->vma
3779 + htab->sgot->output_offset
5bd4f169
AM		 3780 + off);
3781 outrel.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
3782 outrel.r_addend = relocation;
65f38f15
AM		 3783 loc = (Elf64_External_Rela *) htab->srelgot->contents;
3784 loc += htab->srelgot->reloc_count++;
3785 bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
5bd4f169
AM		 3786 }
3787
3788 local_got_offsets[r_symndx] |= 1;
3789 }
3790 }
3791
65f38f15
AM		 3792 if (off >= (bfd_vma) -2)
3793 abort ();
3794
3795 relocation = htab->sgot->output_offset + off;
3796
5bd4f169
AM		 3797 /* TOC base (r2) is TOC start plus 0x8000. */
3798 addend -= TOC_BASE_OFF;
5bd4f169 3799 }
65f38f15
AM		 3800 break;
3801
3802 case R_PPC64_PLT16_HA:
3803 case R_PPC64_PLT16_HI:
3804 case R_PPC64_PLT16_LO:
3805 case R_PPC64_PLT32:
3806 case R_PPC64_PLT64:
3807 /* Relocation is to the entry for this symbol in the
3808 procedure linkage table. */
3809
3810 /* Resolve a PLT reloc against a local symbol directly,
3811 without using the procedure linkage table. */
3812 if (h == NULL)
3813 break;
3814
3815 if (h->plt.offset == (bfd_vma) -1
3816 || htab->splt == NULL)
3817 {
3818 /* We didn't make a PLT entry for this symbol. This
3819 happens when statically linking PIC code, or when
3820 using -Bsymbolic. */
3821 break;
3822 }
3823
3824 relocation = (htab->splt->output_section->vma
3825 + htab->splt->output_offset
3826 + h->plt.offset);
3827 unresolved_reloc = false;
3828 break;
5bd4f169
AM		 3829
3830 /* TOC16 relocs. We want the offset relative to the TOC base,
3831 which is the address of the start of the TOC plus 0x8000.
3832 The TOC consists of sections .got, .toc, .tocbss, and .plt,
3833 in this order. */
65f38f15
AM		 3834 case R_PPC64_TOC16:
3835 case R_PPC64_TOC16_LO:
3836 case R_PPC64_TOC16_HI:
3837 case R_PPC64_TOC16_DS:
3838 case R_PPC64_TOC16_LO_DS:
3839 case R_PPC64_TOC16_HA:
5bd4f169 3840 addend -= TOCstart + TOC_BASE_OFF;
5bd4f169
AM		 3841 break;
3842
3843 /* Relocate against the beginning of the section. */
65f38f15
AM		 3844 case R_PPC64_SECTOFF:
3845 case R_PPC64_SECTOFF_LO:
3846 case R_PPC64_SECTOFF_HI:
3847 case R_PPC64_SECTOFF_DS:
3848 case R_PPC64_SECTOFF_LO_DS:
3849 case R_PPC64_SECTOFF_HA:
3850 if (sec != (asection *) 0)
3851 addend -= sec->output_section->vma;
5bd4f169
AM		 3852 break;
3853
5d1634d7
AM		 3854 case R_PPC64_REL24:
3855 break;
3856
65f38f15
AM		 3857 /* Relocations that may need to be propagated if this is a
3858 dynamic object. */
3859 case R_PPC64_REL14:
3860 case R_PPC64_REL14_BRNTAKEN:
3861 case R_PPC64_REL14_BRTAKEN:
65f38f15
AM		 3862 case R_PPC64_REL32:
3863 case R_PPC64_REL64:
3864 case R_PPC64_ADDR14:
3865 case R_PPC64_ADDR14_BRNTAKEN:
3866 case R_PPC64_ADDR14_BRTAKEN:
3867 case R_PPC64_ADDR16:
3868 case R_PPC64_ADDR16_DS:
3869 case R_PPC64_ADDR16_HA:
3870 case R_PPC64_ADDR16_HI:
3871 case R_PPC64_ADDR16_HIGHER:
3872 case R_PPC64_ADDR16_HIGHERA:
3873 case R_PPC64_ADDR16_HIGHEST:
3874 case R_PPC64_ADDR16_HIGHESTA:
3875 case R_PPC64_ADDR16_LO:
3876 case R_PPC64_ADDR16_LO_DS:
3877 case R_PPC64_ADDR24:
3878 case R_PPC64_ADDR30:
3879 case R_PPC64_ADDR32:
3880 case R_PPC64_ADDR64:
3881 case R_PPC64_UADDR16:
3882 case R_PPC64_UADDR32:
3883 case R_PPC64_UADDR64:
ec338859
AM		 3884 /* r_symndx will be zero only for relocs against symbols
3885 from removed linkonce sections, or sections discarded by
3886 a linker script. */
5d1634d7
AM		 3887 if (r_symndx == 0)
3888 break;
3889 /* Fall thru. */
3890
3891 case R_PPC64_TOC:
3892 if ((input_section->flags & SEC_ALLOC) == 0)
ec338859
AM		 3893 break;
3894
41bd81ab
AM		 3895 if (NO_OPD_RELOCS && is_opd)
3896 break;
3897
65f38f15 3898 if ((info->shared
65f38f15
AM		 3899 && (IS_ABSOLUTE_RELOC (r_type)
3900 || (h != NULL
3901 && h->dynindx != -1
3902 && (! info->symbolic
3903 || (h->elf_link_hash_flags
3904 & ELF_LINK_HASH_DEF_REGULAR) == 0))))
3905 || (!info->shared
65f38f15
AM		 3906 && h != NULL
3907 && h->dynindx != -1
3908 && (h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
3909 && (((h->elf_link_hash_flags
3910 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
3911 && (h->elf_link_hash_flags
3912 & ELF_LINK_HASH_DEF_REGULAR) == 0)
3913 || h->root.type == bfd_link_hash_undefweak
3914 || h->root.type == bfd_link_hash_undefined)))
3915 {
3916 Elf_Internal_Rela outrel;
3917 boolean skip, relocate;
3918 asection *sreloc;
3919 Elf64_External_Rela *loc;
3920
3921 /* When generating a dynamic object, these relocations
3922 are copied into the output file to be resolved at run
3923 time. */
3924
3925 skip = false;
3926
c629eae0
JJ		 3927 outrel.r_offset =
3928 _bfd_elf_section_offset (output_bfd, info, input_section,
3929 rel->r_offset);
3930 if (outrel.r_offset == (bfd_vma) -1)
3931 skip = true;
65f38f15
AM		 3932
3933 outrel.r_offset += (input_section->output_section->vma
3934 + input_section->output_offset);
3935 outrel.r_addend = addend;
3936
3937 if (skip)
3938 {
3939 relocate = false;
3940 memset (&outrel, 0, sizeof outrel);
3941 }
3942 else if (h != NULL
3943 && h->dynindx != -1
41bd81ab 3944 && !is_opd
65f38f15
AM		 3945 && (!IS_ABSOLUTE_RELOC (r_type)
3946 || !info->shared
3947 || !info->symbolic
3948 || (h->elf_link_hash_flags
3949 & ELF_LINK_HASH_DEF_REGULAR) == 0))
3950 {
3951 relocate = false;
3952 outrel.r_info = ELF64_R_INFO (h->dynindx, r_type);
3953 }
3954 else
3955 {
41bd81ab
AM		 3956 /* This symbol is local, or marked to become local,
3957 or this is an opd section reloc which must point
3958 at a local function. */
65f38f15
AM		 3959 outrel.r_addend += relocation;
3960 relocate = true;
e86ce104 3961 if (r_type == R_PPC64_ADDR64 || r_type == R_PPC64_TOC)
65f38f15
AM		 3962 {
3963 outrel.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
3964 }
3965 else
3966 {
3967 long indx = 0;
3968
41bd81ab 3969 if (bfd_is_abs_section (sec))
65f38f15
AM		 3970 ;
3971 else if (sec == NULL || sec->owner == NULL)
3972 {
3973 bfd_set_error (bfd_error_bad_value);
3974 return false;
3975 }
3976 else
3977 {
3978 asection *osec;
3979
3980 osec = sec->output_section;
3981 indx = elf_section_data (osec)->dynindx;
3982
3983 /* We are turning this relocation into one
3984 against a section symbol, so subtract out
3985 the output section's address but not the
3986 offset of the input section in the output
3987 section. */
3988 outrel.r_addend -= osec->vma;
3989 }
3990
3991 outrel.r_info = ELF64_R_INFO (indx, r_type);
3992 }
3993 }
3994
3995 sreloc = elf_section_data (input_section)->sreloc;
3996 if (sreloc == NULL)
3997 abort ();
3998
3999 loc = (Elf64_External_Rela *) sreloc->contents;
4000 loc += sreloc->reloc_count++;
4001 bfd_elf64_swap_reloca_out (output_bfd, &outrel, loc);
4002
4003 /* If this reloc is against an external symbol, it will
4004 be computed at runtime, so there's no need to do
4005 anything now. */
4006 if (! relocate)
4007 continue;
4008 }
5bd4f169
AM		 4009 break;
4010
65f38f15
AM		 4011 case R_PPC64_COPY:
4012 case R_PPC64_GLOB_DAT:
4013 case R_PPC64_JMP_SLOT:
4014 case R_PPC64_RELATIVE:
4015 /* We shouldn't ever see these dynamic relocs in relocatable
4016 files. */
4017 /* Fall thru */
4018
4019 case R_PPC64_PLTGOT16:
4020 case R_PPC64_PLTGOT16_DS:
4021 case R_PPC64_PLTGOT16_HA:
4022 case R_PPC64_PLTGOT16_HI:
4023 case R_PPC64_PLTGOT16_LO:
4024 case R_PPC64_PLTGOT16_LO_DS:
4025 case R_PPC64_PLTREL32:
4026 case R_PPC64_PLTREL64:
4027 /* These ones haven't been implemented yet. */
4028
4029 (*_bfd_error_handler)
4030 (_("%s: Relocation %s is not supported for symbol %s."),
4031 bfd_archive_filename (input_bfd),
4032 ppc64_elf_howto_table[(int) r_type]->name, sym_name);
5bd4f169
AM		 4033
4034 bfd_set_error (bfd_error_invalid_operation);
4035 ret = false;
4036 continue;
65f38f15 4037 }
5bd4f169 4038
65f38f15
AM		 4039 /* Do any further special processing. */
4040 switch (r_type)
4041 {
4042 default:
4043 break;
4044
4045 case R_PPC64_ADDR16_HA:
4046 case R_PPC64_ADDR16_HIGHERA:
4047 case R_PPC64_ADDR16_HIGHESTA:
4048 case R_PPC64_PLT16_HA:
4049 case R_PPC64_TOC16_HA:
4050 case R_PPC64_SECTOFF_HA:
4051 /* It's just possible that this symbol is a weak symbol
4052 that's not actually defined anywhere. In that case,
4053 'sec' would be NULL, and we should leave the symbol
4054 alone (it will be set to zero elsewhere in the link). */
4055 if (sec != NULL)
4056 /* Add 0x10000 if sign bit in 0:15 is set. */
4057 addend += ((relocation + addend) & 0x8000) << 1;
4058 break;
4059
4060 case R_PPC64_ADDR16_DS:
4061 case R_PPC64_ADDR16_LO_DS:
4062 case R_PPC64_GOT16_DS:
4063 case R_PPC64_GOT16_LO_DS:
4064 case R_PPC64_PLT16_LO_DS:
4065 case R_PPC64_SECTOFF_DS:
4066 case R_PPC64_SECTOFF_LO_DS:
4067 case R_PPC64_TOC16_DS:
4068 case R_PPC64_TOC16_LO_DS:
4069 case R_PPC64_PLTGOT16_DS:
4070 case R_PPC64_PLTGOT16_LO_DS:
4071 if (((relocation + addend) & 3) != 0)
4072 {
4073 (*_bfd_error_handler)
4074 (_("%s: error: relocation %s not a multiple of 4"),
4075 bfd_archive_filename (input_bfd),
4076 ppc64_elf_howto_table[(int) r_type]->name);
4077 bfd_set_error (bfd_error_bad_value);
4078 ret = false;
4079 continue;
4080 }
4081 break;
5bd4f169
AM		 4082 }
4083
65f38f15
AM		 4084 /* FIXME: Why do we allow debugging sections to escape this error?
4085 More importantly, why do we not emit dynamic relocs above in
4086 debugging sections (which are ! SEC_ALLOC)? If we had
4087 emitted the dynamic reloc, we could remove the fudge here. */
4088 if (unresolved_reloc
4089 && !(info->shared
4090 && (input_section->flags & SEC_DEBUGGING) != 0
4091 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
4092 (*_bfd_error_handler)
4093 (_("%s(%s+0x%lx): unresolvable relocation against symbol `%s'"),
4094 bfd_archive_filename (input_bfd),
4095 bfd_get_section_name (input_bfd, input_section),
4096 (long) rel->r_offset,
4097 h->root.root.string);
5bd4f169 4098
65f38f15 4099 r = _bfd_final_link_relocate (ppc64_elf_howto_table[(int) r_type],
5bd4f169
AM		 4100 input_bfd,
4101 input_section,
4102 contents,
4103 offset,
4104 relocation,
4105 addend);
4106
4107 if (r == bfd_reloc_ok)
4108 ;
4109 else if (r == bfd_reloc_overflow)
4110 {
4111 const char *name;
4112
4113 if (h != NULL)
4114 {
4115 if (h->root.type == bfd_link_hash_undefweak
65f38f15 4116 && ppc64_elf_howto_table[(int) r_type]->pc_relative)
5bd4f169
AM		 4117 {
4118 /* Assume this is a call protected by other code that
4119 detects the symbol is undefined. If this is the case,
4120 we can safely ignore the overflow. If not, the
4121 program is hosed anyway, and a little warning isn't
4122 going to help. */
4123
4124 continue;
4125 }
4126
4127 name = h->root.root.string;
4128 }
4129 else
4130 {
4131 name = bfd_elf_string_from_elf_section (input_bfd,
4132 symtab_hdr->sh_link,
4133 sym->st_name);
4134 if (name == NULL)
4135 continue;
4136 if (*name == '\0')
4137 name = bfd_section_name (input_bfd, sec);
4138 }
4139
65f38f15
AM		 4140 if (! ((*info->callbacks->reloc_overflow)
4141 (info, name, ppc64_elf_howto_table[(int) r_type]->name,
4142 (bfd_vma) 0, input_bfd, input_section, offset)))
5bd4f169
AM		 4143 return false;
4144 }
4145 else
4146 ret = false;
4147 }
4148
5bd4f169
AM		 4149 return ret;
4150}
4151
4152/* Finish up dynamic symbol handling. We set the contents of various
4153 dynamic sections here. */
4154
4155static boolean
4156ppc64_elf_finish_dynamic_symbol (output_bfd, info, h, sym)
4157 bfd *output_bfd;
4158 struct bfd_link_info *info;
4159 struct elf_link_hash_entry *h;
4160 Elf_Internal_Sym *sym;
4161{
65f38f15 4162 struct ppc_link_hash_table *htab;
5bd4f169
AM		 4163 bfd *dynobj;
4164
65f38f15
AM		 4165 htab = ppc_hash_table (info);
4166 dynobj = htab->elf.dynobj;
5bd4f169 4167
41bd81ab
AM		 4168 if (h->plt.offset != (bfd_vma) -1
4169 && ((struct ppc_link_hash_entry *) h)->is_func_descriptor)
5bd4f169 4170 {
65f38f15
AM		 4171 Elf_Internal_Rela rela;
4172 Elf64_External_Rela *loc;
5bd4f169
AM		 4173
4174 /* This symbol has an entry in the procedure linkage table. Set
4175 it up. */
4176
5d1634d7 4177 if (htab->splt == NULL
65f38f15 4178 || htab->srelplt == NULL
e86ce104 4179 || htab->sglink == NULL)
65f38f15
AM		 4180 abort ();
4181
65f38f15
AM		 4182 /* Create a JMP_SLOT reloc to inform the dynamic linker to
4183 fill in the PLT entry. */
5bd4f169 4184
65f38f15
AM		 4185 rela.r_offset = (htab->splt->output_section->vma
4186 + htab->splt->output_offset
4187 + h->plt.offset);
e86ce104 4188 rela.r_info = ELF64_R_INFO (h->dynindx, R_PPC64_JMP_SLOT);
65f38f15
AM		 4189 rela.r_addend = 0;
4190
4191 loc = (Elf64_External_Rela *) htab->srelplt->contents;
4192 loc += (h->plt.offset - PLT_INITIAL_ENTRY_SIZE) / PLT_ENTRY_SIZE;
4193 bfd_elf64_swap_reloca_out (output_bfd, &rela, loc);
5bd4f169
AM		 4194 }
4195
4196 if (h->got.offset != (bfd_vma) -1)
4197 {
5bd4f169 4198 Elf_Internal_Rela rela;
65f38f15 4199 Elf64_External_Rela *loc;
5bd4f169
AM		 4200
4201 /* This symbol has an entry in the global offset table. Set it
4202 up. */
4203
65f38f15
AM		 4204 if (htab->sgot == NULL || htab->srelgot == NULL)
4205 abort ();
5bd4f169 4206
65f38f15
AM		 4207 rela.r_offset = (htab->sgot->output_section->vma
4208 + htab->sgot->output_offset
dc810e39 4209 + (h->got.offset &~ (bfd_vma) 1));
5bd4f169 4210
65f38f15
AM		 4211 /* If this is a static link, or it is a -Bsymbolic link and the
4212 symbol is defined locally or was forced to be local because
4213 of a version file, we just want to emit a RELATIVE reloc.
4214 The entry in the global offset table will already have been
4215 initialized in the relocate_section function. */
5bd4f169 4216 if (info->shared
65f38f15
AM		 4217 && (info->symbolic
4218 || h->dynindx == -1
4219 || (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL))
5bd4f169
AM		 4220 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR))
4221 {
65f38f15 4222 BFD_ASSERT((h->got.offset & 1) != 0);
5bd4f169
AM		 4223 rela.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
4224 rela.r_addend = (h->root.u.def.value
4225 + h->root.u.def.section->output_section->vma
4226 + h->root.u.def.section->output_offset);
4227 }
4228 else
4229 {
4230 BFD_ASSERT ((h->got.offset & 1) == 0);
65f38f15
AM		 4231 bfd_put_64 (output_bfd, (bfd_vma) 0,
4232 htab->sgot->contents + h->got.offset);
5bd4f169
AM		 4233 rela.r_info = ELF64_R_INFO (h->dynindx, R_PPC64_GLOB_DAT);
4234 rela.r_addend = 0;
4235 }
4236
65f38f15
AM		 4237 loc = (Elf64_External_Rela *) htab->srelgot->contents;
4238 loc += htab->srelgot->reloc_count++;
4239 bfd_elf64_swap_reloca_out (output_bfd, &rela, loc);
5bd4f169
AM		 4240 }
4241
4242 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
4243 {
5bd4f169 4244 Elf_Internal_Rela rela;
65f38f15 4245 Elf64_External_Rela *loc;
5bd4f169 4246
65f38f15 4247 /* This symbol needs a copy reloc. Set it up. */
5bd4f169 4248
65f38f15
AM		 4249 if (h->dynindx == -1
4250 || (h->root.type != bfd_link_hash_defined
4251 && h->root.type != bfd_link_hash_defweak)
4252 || htab->srelbss == NULL)
4253 abort ();
5bd4f169
AM		 4254
4255 rela.r_offset = (h->root.u.def.value
4256 + h->root.u.def.section->output_section->vma
4257 + h->root.u.def.section->output_offset);
4258 rela.r_info = ELF64_R_INFO (h->dynindx, R_PPC64_COPY);
4259 rela.r_addend = 0;
65f38f15
AM		 4260 loc = (Elf64_External_Rela *) htab->srelbss->contents;
4261 loc += htab->srelbss->reloc_count++;
4262 bfd_elf64_swap_reloca_out (output_bfd, &rela, loc);
5bd4f169
AM		 4263 }
4264
5bd4f169
AM		 4265 /* Mark some specially defined symbols as absolute. */
4266 if (strcmp (h->root.root.string, "_DYNAMIC") == 0)
4267 sym->st_shndx = SHN_ABS;
4268
4269 return true;
4270}
4271
65f38f15
AM		 4272/* Used to decide how to sort relocs in an optimal manner for the
4273 dynamic linker, before writing them out. */
4274
4275static enum elf_reloc_type_class
4276ppc64_elf_reloc_type_class (rela)
4277 const Elf_Internal_Rela *rela;
4278{
a33d1f77
AM		 4279 enum elf_ppc_reloc_type r_type;
4280
4281 r_type = (enum elf_ppc_reloc_type) ELF64_R_TYPE (rela->r_info);
4282 switch (r_type)
65f38f15
AM		 4283 {
4284 case R_PPC64_RELATIVE:
4285 return reloc_class_relative;
4286 case R_PPC64_JMP_SLOT:
4287 return reloc_class_plt;
4288 case R_PPC64_COPY:
4289 return reloc_class_copy;
4290 default:
4291 return reloc_class_normal;
4292 }
4293}
4294
5bd4f169
AM		 4295/* Finish up the dynamic sections. */
4296
4297static boolean
4298ppc64_elf_finish_dynamic_sections (output_bfd, info)
4299 bfd *output_bfd;
4300 struct bfd_link_info *info;
4301{
65f38f15
AM		 4302 struct ppc_link_hash_table *htab;
4303 bfd *dynobj;
5bd4f169 4304 asection *sdyn;
5bd4f169 4305
65f38f15
AM		 4306 htab = ppc_hash_table (info);
4307 dynobj = htab->elf.dynobj;
5bd4f169
AM		 4308 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4309
65f38f15 4310 if (htab->elf.dynamic_sections_created)
5bd4f169 4311 {
5bd4f169
AM		 4312 Elf64_External_Dyn *dyncon, *dynconend;
4313
65f38f15
AM		 4314 if (sdyn == NULL || htab->sgot == NULL)
4315 abort ();
5bd4f169
AM		 4316
4317 dyncon = (Elf64_External_Dyn *) sdyn->contents;
4318 dynconend = (Elf64_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
4319 for (; dyncon < dynconend; dyncon++)
4320 {
4321 Elf_Internal_Dyn dyn;
5bd4f169
AM		 4322
4323 bfd_elf64_swap_dyn_in (dynobj, dyncon, &dyn);
4324
4325 switch (dyn.d_tag)
4326 {
65f38f15
AM		 4327 default:
4328 continue;
5bd4f169 4329
5d1634d7
AM		 4330 case DT_PPC64_GLINK:
4331 dyn.d_un.d_ptr = (htab->sglink->output_section->vma
4332 + htab->sglink->output_offset);
4333 break;
4334
65f38f15 4335 case DT_PLTGOT:
5d1634d7
AM		 4336 dyn.d_un.d_ptr = (htab->splt->output_section->vma
4337 + htab->splt->output_offset);
65f38f15
AM		 4338 break;
4339
4340 case DT_JMPREL:
5d1634d7
AM		 4341 dyn.d_un.d_ptr = (htab->srelplt->output_section->vma
4342 + htab->srelplt->output_offset);
65f38f15 4343 break;
5bd4f169 4344
65f38f15 4345 case DT_PLTRELSZ:
5d1634d7
AM		 4346 dyn.d_un.d_val = htab->srelplt->_raw_size;
4347 break;
4348
4349 case DT_RELASZ:
4350 /* Don't count procedure linkage table relocs in the
4351 overall reloc count. */
4352 if (htab->srelplt != NULL)
4353 dyn.d_un.d_val -= htab->srelplt->_raw_size;
65f38f15 4354 break;
5bd4f169 4355 }
5bd4f169 4356
65f38f15 4357 bfd_elf64_swap_dyn_out (output_bfd, &dyn, dyncon);
5bd4f169 4358 }
5bd4f169
AM		 4359 }
4360
5d1634d7
AM		 4361 if (htab->sgot != NULL && htab->sgot->_raw_size != 0)
4362 {
4363 /* Fill in the first entry in the global offset table.
4364 We use it to hold the link-time TOCbase. */
4365 bfd_put_64 (output_bfd,
60ee0d4a 4366 elf_gp (output_bfd) + TOC_BASE_OFF,
5d1634d7
AM		 4367 htab->sgot->contents);
4368
4369 /* Set .got entry size. */
4370 elf_section_data (htab->sgot->output_section)->this_hdr.sh_entsize = 8;
4371 }
4372
4373 if (htab->splt != NULL && htab->splt->_raw_size != 0)
4374 {
4375 /* Set .plt entry size. */
4376 elf_section_data (htab->splt->output_section)->this_hdr.sh_entsize
4377 = PLT_ENTRY_SIZE;
4378 }
4379
5bd4f169
AM		 4380 return true;
4381}
4382
4383#define TARGET_LITTLE_SYM bfd_elf64_powerpcle_vec
4384#define TARGET_LITTLE_NAME "elf64-powerpcle"
4385#define TARGET_BIG_SYM bfd_elf64_powerpc_vec
4386#define TARGET_BIG_NAME "elf64-powerpc"
4387#define ELF_ARCH bfd_arch_powerpc
4388#define ELF_MACHINE_CODE EM_PPC64
4389#define ELF_MAXPAGESIZE 0x10000
4390#define elf_info_to_howto ppc64_elf_info_to_howto
4391
4392#ifdef EM_CYGNUS_POWERPC
4393#define ELF_MACHINE_ALT1 EM_CYGNUS_POWERPC
4394#endif
4395
4396#ifdef EM_PPC_OLD
4397#define ELF_MACHINE_ALT2 EM_PPC_OLD
4398#endif
4399
4400#define elf_backend_want_got_sym 0
4401#define elf_backend_want_plt_sym 0
4402#define elf_backend_plt_alignment 3
4403#define elf_backend_plt_not_loaded 1
4404#define elf_backend_got_symbol_offset 0
5d1634d7
AM		 4405#define elf_backend_got_header_size 8
4406#define elf_backend_plt_header_size PLT_INITIAL_ENTRY_SIZE
5bd4f169 4407#define elf_backend_can_gc_sections 1
65f38f15 4408#define elf_backend_can_refcount 1
5bd4f169 4409
65f38f15
AM		 4410#define bfd_elf64_bfd_reloc_type_lookup ppc64_elf_reloc_type_lookup
4411#define bfd_elf64_bfd_set_private_flags ppc64_elf_set_private_flags
65f38f15
AM		 4412#define bfd_elf64_bfd_merge_private_bfd_data ppc64_elf_merge_private_bfd_data
4413#define bfd_elf64_bfd_link_hash_table_create ppc64_elf_link_hash_table_create
65f38f15
AM		 4414
4415#define elf_backend_section_from_shdr ppc64_elf_section_from_shdr
4416#define elf_backend_create_dynamic_sections ppc64_elf_create_dynamic_sections
4417#define elf_backend_copy_indirect_symbol ppc64_elf_copy_indirect_symbol
4418#define elf_backend_check_relocs ppc64_elf_check_relocs
4419#define elf_backend_gc_mark_hook ppc64_elf_gc_mark_hook
4420#define elf_backend_gc_sweep_hook ppc64_elf_gc_sweep_hook
4421#define elf_backend_adjust_dynamic_symbol ppc64_elf_adjust_dynamic_symbol
e86ce104
AM		 4422#define elf_backend_hide_symbol ppc64_elf_hide_symbol
4423#define elf_backend_always_size_sections ppc64_elf_func_desc_adjust
65f38f15
AM		 4424#define elf_backend_size_dynamic_sections ppc64_elf_size_dynamic_sections
4425#define elf_backend_fake_sections ppc64_elf_fake_sections
4426#define elf_backend_relocate_section ppc64_elf_relocate_section
4427#define elf_backend_finish_dynamic_symbol ppc64_elf_finish_dynamic_symbol
4428#define elf_backend_reloc_type_class ppc64_elf_reloc_type_class
4429#define elf_backend_finish_dynamic_sections ppc64_elf_finish_dynamic_sections
5bd4f169
AM		 4430
4431#include "elf64-target.h"
A mirror of the official binutils-gdb repository