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