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