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