Coverage Report

Created: 2023-08-28 06:28

/src/binutils-gdb/bfd/elf64-ppc.c
Line
Count
Source (jump to first uncovered line)
1
/* PowerPC64-specific support for 64-bit ELF.
2
   Copyright (C) 1999-2023 Free Software Foundation, Inc.
3
   Written by Linus Nordberg, Swox AB <info@swox.com>,
4
   based on elf32-ppc.c by Ian Lance Taylor.
5
   Largely rewritten by Alan Modra.
6
7
   This file is part of BFD, the Binary File Descriptor library.
8
9
   This program is free software; you can redistribute it and/or modify
10
   it under the terms of the GNU General Public License as published by
11
   the Free Software Foundation; either version 3 of the License, or
12
   (at your option) any later version.
13
14
   This program is distributed in the hope that it will be useful,
15
   but WITHOUT ANY WARRANTY; without even the implied warranty of
16
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17
   GNU General Public License for more details.
18
19
   You should have received a copy of the GNU General Public License along
20
   with this program; if not, write to the Free Software Foundation, Inc.,
21
   51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
22
23
24
/* The 64-bit PowerPC ELF ABI may be found at
25
   http://www.linuxbase.org/spec/ELF/ppc64/PPC-elf64abi.txt, and
26
   http://www.linuxbase.org/spec/ELF/ppc64/spec/book1.html  */
27
28
/* The assembler should generate a full set of section symbols even
29
   when they appear unused.  The linux kernel build tool recordmcount
30
   needs them.  */
31
#define TARGET_KEEP_UNUSED_SECTION_SYMBOLS true
32
33
#include "sysdep.h"
34
#include <stdarg.h>
35
#include "bfd.h"
36
#include "bfdlink.h"
37
#include "libbfd.h"
38
#include "elf-bfd.h"
39
#include "elf/ppc64.h"
40
#include "elf64-ppc.h"
41
#include "dwarf2.h"
42
43
/* All users of this file have bfd_octets_per_byte (abfd, sec) == 1.  */
44
18
#define OCTETS_PER_BYTE(ABFD, SEC) 1
45
46
static bfd_reloc_status_type ppc64_elf_ha_reloc
47
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
48
static bfd_reloc_status_type ppc64_elf_branch_reloc
49
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
50
static bfd_reloc_status_type ppc64_elf_brtaken_reloc
51
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
52
static bfd_reloc_status_type ppc64_elf_sectoff_reloc
53
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
54
static bfd_reloc_status_type ppc64_elf_sectoff_ha_reloc
55
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
56
static bfd_reloc_status_type ppc64_elf_toc_reloc
57
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
58
static bfd_reloc_status_type ppc64_elf_toc_ha_reloc
59
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
60
static bfd_reloc_status_type ppc64_elf_toc64_reloc
61
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
62
static bfd_reloc_status_type ppc64_elf_prefix_reloc
63
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
64
static bfd_reloc_status_type ppc64_elf_unhandled_reloc
65
  (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
66
static bfd_vma opd_entry_value
67
  (asection *, bfd_vma, asection **, bfd_vma *, bool);
68
69
#define TARGET_LITTLE_SYM powerpc_elf64_le_vec
70
#define TARGET_LITTLE_NAME  "elf64-powerpcle"
71
#define TARGET_BIG_SYM    powerpc_elf64_vec
72
#define TARGET_BIG_NAME   "elf64-powerpc"
73
#define ELF_ARCH    bfd_arch_powerpc
74
#define ELF_TARGET_ID   PPC64_ELF_DATA
75
#define ELF_MACHINE_CODE  EM_PPC64
76
#define ELF_MAXPAGESIZE   0x10000
77
#define ELF_COMMONPAGESIZE  0x1000
78
#define elf_info_to_howto ppc64_elf_info_to_howto
79
80
#define elf_backend_want_got_sym 0
81
#define elf_backend_want_plt_sym 0
82
#define elf_backend_plt_alignment 3
83
#define elf_backend_plt_not_loaded 1
84
#define elf_backend_got_header_size 8
85
#define elf_backend_want_dynrelro 1
86
#define elf_backend_can_gc_sections 1
87
#define elf_backend_can_refcount 1
88
#define elf_backend_rela_normal 1
89
#define elf_backend_dtrel_excludes_plt 1
90
#define elf_backend_default_execstack 0
91
92
#define bfd_elf64_mkobject          ppc64_elf_mkobject
93
#define bfd_elf64_bfd_free_cached_info        ppc64_elf_free_cached_info
94
#define bfd_elf64_bfd_reloc_type_lookup       ppc64_elf_reloc_type_lookup
95
#define bfd_elf64_bfd_reloc_name_lookup       ppc64_elf_reloc_name_lookup
96
#define bfd_elf64_bfd_merge_private_bfd_data  ppc64_elf_merge_private_bfd_data
97
#define bfd_elf64_bfd_print_private_bfd_data  ppc64_elf_print_private_bfd_data
98
#define bfd_elf64_new_section_hook        ppc64_elf_new_section_hook
99
#define bfd_elf64_bfd_link_hash_table_create  ppc64_elf_link_hash_table_create
100
#define bfd_elf64_get_synthetic_symtab        ppc64_elf_get_synthetic_symtab
101
#define bfd_elf64_bfd_link_just_syms        ppc64_elf_link_just_syms
102
#define bfd_elf64_bfd_gc_sections       ppc64_elf_gc_sections
103
104
#define elf_backend_object_p          ppc64_elf_object_p
105
#define elf_backend_grok_prstatus       ppc64_elf_grok_prstatus
106
#define elf_backend_grok_psinfo         ppc64_elf_grok_psinfo
107
#define elf_backend_write_core_note       ppc64_elf_write_core_note
108
#define elf_backend_create_dynamic_sections   _bfd_elf_create_dynamic_sections
109
#define elf_backend_copy_indirect_symbol      ppc64_elf_copy_indirect_symbol
110
#define elf_backend_add_symbol_hook       ppc64_elf_add_symbol_hook
111
#define elf_backend_check_directives        ppc64_elf_before_check_relocs
112
#define elf_backend_notice_as_needed        ppc64_elf_notice_as_needed
113
#define elf_backend_archive_symbol_lookup     ppc64_elf_archive_symbol_lookup
114
#define elf_backend_check_relocs        ppc64_elf_check_relocs
115
#define elf_backend_relocs_compatible       _bfd_elf_relocs_compatible
116
#define elf_backend_gc_keep         ppc64_elf_gc_keep
117
#define elf_backend_gc_mark_dynamic_ref       ppc64_elf_gc_mark_dynamic_ref
118
#define elf_backend_gc_mark_hook        ppc64_elf_gc_mark_hook
119
#define elf_backend_adjust_dynamic_symbol     ppc64_elf_adjust_dynamic_symbol
120
#define elf_backend_hide_symbol         ppc64_elf_hide_symbol
121
#define elf_backend_maybe_function_sym        ppc64_elf_maybe_function_sym
122
#define elf_backend_always_size_sections      ppc64_elf_edit
123
#define elf_backend_size_dynamic_sections     ppc64_elf_size_dynamic_sections
124
#define elf_backend_hash_symbol         ppc64_elf_hash_symbol
125
#define elf_backend_init_index_section        _bfd_elf_init_2_index_sections
126
#define elf_backend_action_discarded        ppc64_elf_action_discarded
127
#define elf_backend_relocate_section        ppc64_elf_relocate_section
128
#define elf_backend_finish_dynamic_symbol     ppc64_elf_finish_dynamic_symbol
129
#define elf_backend_reloc_type_class        ppc64_elf_reloc_type_class
130
#define elf_backend_finish_dynamic_sections   ppc64_elf_finish_dynamic_sections
131
#define elf_backend_link_output_symbol_hook   ppc64_elf_output_symbol_hook
132
#define elf_backend_special_sections        ppc64_elf_special_sections
133
#define elf_backend_section_flags       ppc64_elf_section_flags
134
#define elf_backend_merge_symbol_attribute    ppc64_elf_merge_symbol_attribute
135
#define elf_backend_merge_symbol        ppc64_elf_merge_symbol
136
#define elf_backend_get_reloc_section       bfd_get_section_by_name
137
138
/* The name of the dynamic interpreter.  This is put in the .interp
139
   section.  */
140
0
#define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
141
142
/* The size in bytes of an entry in the procedure linkage table.  */
143
0
#define PLT_ENTRY_SIZE(htab) (htab->opd_abi ? 24 : 8)
144
0
#define LOCAL_PLT_ENTRY_SIZE(htab) (htab->opd_abi ? 16 : 8)
145
146
/* The initial size of the plt reserved for the dynamic linker.  */
147
0
#define PLT_INITIAL_ENTRY_SIZE(htab) (htab->opd_abi ? 24 : 16)
148
149
/* Offsets to some stack save slots.  */
150
#define STK_LR 16
151
0
#define STK_TOC(htab) (htab->opd_abi ? 40 : 24)
152
/* This one is dodgy.  ELFv2 does not have a linker word, so use the
153
   CR save slot.  Used only by optimised __tls_get_addr call stub,
154
   relying on __tls_get_addr_opt not saving CR..  */
155
0
#define STK_LINKER(htab) (htab->opd_abi ? 32 : 8)
156
157
/* TOC base pointers offset from start of TOC.  */
158
17
#define TOC_BASE_OFF  0x8000
159
/* TOC base alignment.  */
160
10
#define TOC_BASE_ALIGN  256
161
162
/* Offset of tp and dtp pointers from start of TLS block.  */
163
0
#define TP_OFFSET 0x7000
164
0
#define DTP_OFFSET  0x8000
165
166
/* .plt call stub instructions.  The normal stub is like this, but
167
   sometimes the .plt entry crosses a 64k boundary and we need to
168
   insert an addi to adjust r11.  */
169
#define STD_R2_0R1  0xf8410000  /* std   %r2,0+40(%r1)       */
170
#define ADDIS_R11_R2  0x3d620000  /* addis %r11,%r2,xxx@ha     */
171
#define LD_R12_0R11 0xe98b0000  /* ld  %r12,xxx+0@l(%r11)  */
172
#define MTCTR_R12 0x7d8903a6  /* mtctr %r12        */
173
#define LD_R2_0R11  0xe84b0000  /* ld  %r2,xxx+8@l(%r11)   */
174
#define LD_R11_0R11 0xe96b0000  /* ld  %r11,xxx+16@l(%r11) */
175
#define BCTR    0x4e800420  /* bctr          */
176
177
#define ADDI_R11_R11  0x396b0000  /* addi %r11,%r11,off@l  */
178
#define ADDI_R12_R11  0x398b0000  /* addi %r12,%r11,off@l  */
179
#define ADDI_R12_R12  0x398c0000  /* addi %r12,%r12,off@l  */
180
#define ADDIS_R2_R2 0x3c420000  /* addis %r2,%r2,off@ha  */
181
0
#define ADDI_R2_R2  0x38420000  /* addi  %r2,%r2,off@l   */
182
183
#define XOR_R2_R12_R12  0x7d826278  /* xor   %r2,%r12,%r12   */
184
#define ADD_R11_R11_R2  0x7d6b1214  /* add   %r11,%r11,%r2   */
185
#define XOR_R11_R12_R12 0x7d8b6278  /* xor   %r11,%r12,%r12  */
186
#define ADD_R2_R2_R11 0x7c425a14  /* add   %r2,%r2,%r11  */
187
#define CMPLDI_R2_0 0x28220000  /* cmpldi %r2,0    */
188
#define BNECTR    0x4ca20420  /* bnectr+     */
189
#define BNECTR_P4 0x4ce20420  /* bnectr+     */
190
191
#define LD_R12_0R2  0xe9820000  /* ld  %r12,xxx+0(%r2) */
192
#define LD_R11_0R2  0xe9620000  /* ld  %r11,xxx+0(%r2) */
193
#define LD_R2_0R2 0xe8420000  /* ld  %r2,xxx+0(%r2)  */
194
195
0
#define LD_R2_0R1 0xe8410000  /* ld  %r2,0(%r1)  */
196
0
#define LD_R2_0R12  0xe84c0000  /* ld  %r2,0(%r12)   */
197
0
#define ADD_R2_R2_R12 0x7c426214  /* add   %r2,%r2,%r12  */
198
199
#define LI_R11_0  0x39600000  /* li    %r11,0   */
200
#define LIS_R2    0x3c400000  /* lis %r2,xxx@ha   */
201
#define LIS_R11   0x3d600000  /* lis %r11,xxx@ha    */
202
#define LIS_R12   0x3d800000  /* lis %r12,xxx@ha    */
203
0
#define ADDIS_R2_R12  0x3c4c0000  /* addis %r2,%r12,xxx@ha  */
204
#define ADDIS_R12_R2  0x3d820000  /* addis %r12,%r2,xxx@ha  */
205
#define ADDIS_R12_R11 0x3d8b0000  /* addis %r12,%r11,xxx@ha */
206
#define ADDIS_R12_R12 0x3d8c0000  /* addis %r12,%r12,xxx@ha */
207
#define ORIS_R12_R12_0  0x658c0000  /* oris  %r12,%r12,xxx@hi */
208
#define ORI_R11_R11_0 0x616b0000  /* ori   %r11,%r11,xxx@l  */
209
#define ORI_R12_R12_0 0x618c0000  /* ori   %r12,%r12,xxx@l  */
210
#define LD_R12_0R12 0xe98c0000  /* ld  %r12,xxx@l(%r12) */
211
#define SLDI_R11_R11_34 0x796b1746  /* sldi  %r11,%r11,34     */
212
#define SLDI_R12_R12_32 0x799c07c6  /* sldi  %r12,%r12,32     */
213
#define LDX_R12_R11_R12 0x7d8b602a  /* ldx   %r12,%r11,%r12   */
214
#define ADD_R12_R11_R12 0x7d8b6214  /* add   %r12,%r11,%r12   */
215
0
#define PADDI_R12_PC  0x0610000039800000ULL
216
0
#define PLD_R12_PC  0x04100000e5800000ULL
217
0
#define PNOP    0x0700000000000000ULL
218
219
/* __glink_PLTresolve stub instructions.  We enter with the index in
220
   R0 for ELFv1, and the address of a glink branch in R12 for ELFv2.  */
221
#define GLINK_PLTRESOLVE_SIZE(htab)     \
222
0
  (8u + (htab->opd_abi ? 11 * 4 : htab->has_plt_localentry0 ? 14 * 4 : 13 * 4))
223
          /* 0:       */
224
          /*  .quad plt0-1f   */
225
          /* __glink:     */
226
#define MFLR_R12  0x7d8802a6  /*  mflr %12      */
227
#define BCL_20_31 0x429f0005  /*  bcl 20,31,1f    */
228
          /* 1:       */
229
#define MFLR_R11  0x7d6802a6  /*  mflr %11      */
230
          /*  ld %2,(0b-1b)(%11)    */
231
#define MTLR_R12  0x7d8803a6  /*  mtlr %12      */
232
#define ADD_R11_R2_R11  0x7d625a14  /*  add %11,%2,%11    */
233
          /*  ld %12,0(%11)   */
234
          /*  ld %2,8(%11)    */
235
          /*  mtctr %12     */
236
          /*  ld %11,16(%11)    */
237
          /*  bctr      */
238
239
#define MFLR_R0   0x7c0802a6  /* mflr %r0     */
240
#define MTLR_R0   0x7c0803a6  /* mtlr %r0     */
241
#define SUB_R12_R12_R11 0x7d8b6050  /* subf %r12,%r11,%r12    */
242
#define ADDI_R0_R12 0x380c0000  /* addi %r0,%r12,0    */
243
#define SRDI_R0_R0_2  0x7800f082  /* rldicl %r0,%r0,62,2    */
244
0
#define LD_R0_0R11  0xe80b0000  /* ld %r0,0(%r11)   */
245
#define ADD_R11_R0_R11  0x7d605a14  /* add %r11,%r0,%r11    */
246
247
/* Pad with this.  */
248
0
#define NOP   0x60000000
249
250
/* Some other nops.  */
251
0
#define CROR_151515 0x4def7b82
252
0
#define CROR_313131 0x4ffffb82
253
254
/* .glink entries for the first 32k functions are two instructions.  */
255
#define LI_R0_0   0x38000000  /* li    %r0,0    */
256
0
#define B_DOT   0x48000000  /* b     .    */
257
258
/* After that, we need two instructions to load the index, followed by
259
   a branch.  */
260
#define LIS_R0_0  0x3c000000  /* lis   %r0,0    */
261
#define ORI_R0_R0_0 0x60000000  /* ori   %r0,%r0,0  */
262
263
/* Instructions used by the save and restore reg functions.  */
264
#define STD_R0_0R1  0xf8010000  /* std   %r0,0(%r1) */
265
#define STD_R0_0R12 0xf80c0000  /* std   %r0,0(%r12)  */
266
#define LD_R0_0R1 0xe8010000  /* ld    %r0,0(%r1) */
267
#define LD_R0_0R12  0xe80c0000  /* ld    %r0,0(%r12)  */
268
#define STFD_FR0_0R1  0xd8010000  /* stfd  %fr0,0(%r1)  */
269
#define LFD_FR0_0R1 0xc8010000  /* lfd   %fr0,0(%r1)  */
270
#define LI_R12_0  0x39800000  /* li    %r12,0   */
271
#define STVX_VR0_R12_R0 0x7c0c01ce  /* stvx  %v0,%r12,%r0 */
272
#define LVX_VR0_R12_R0  0x7c0c00ce  /* lvx   %v0,%r12,%r0 */
273
#define MTLR_R0   0x7c0803a6  /* mtlr  %r0    */
274
#define BLR   0x4e800020  /* blr      */
275
276
/* Since .opd is an array of descriptors and each entry will end up
277
   with identical R_PPC64_RELATIVE relocs, there is really no need to
278
   propagate .opd relocs;  The dynamic linker should be taught to
279
   relocate .opd without reloc entries.  */
280
#ifndef NO_OPD_RELOCS
281
0
#define NO_OPD_RELOCS 0
282
#endif
283
284
#ifndef ARRAY_SIZE
285
252
#define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
286
#endif
287
288
static inline int
289
abiversion (bfd *abfd)
290
0
{
291
0
  return elf_elfheader (abfd)->e_flags & EF_PPC64_ABI;
292
0
}
293
294
static inline void
295
set_abiversion (bfd *abfd, int ver)
296
0
{
297
0
  elf_elfheader (abfd)->e_flags &= ~EF_PPC64_ABI;
298
0
  elf_elfheader (abfd)->e_flags |= ver & EF_PPC64_ABI;
299
0
}
300
301
#define is_ppc64_elf(bfd) \
302
0
  (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
303
0
   && elf_object_id (bfd) == PPC64_ELF_DATA)
304

305
/* Relocation HOWTO's.  */
306
/* Like other ELF RELA targets that don't apply multiple
307
   field-altering relocations to the same localation, src_mask is
308
   always zero and pcrel_offset is the same as pc_relative.
309
   PowerPC can always use a zero bitpos, even when the field is not at
310
   the LSB.  For example, a REL24 could use rightshift=2, bisize=24
311
   and bitpos=2 which matches the ABI description, or as we do here,
312
   rightshift=0, bitsize=26 and bitpos=0.  */
313
#define HOW(type, size, bitsize, mask, rightshift, pc_relative, \
314
      complain, special_func)       \
315
  HOWTO (type, rightshift, size, bitsize, pc_relative, 0, \
316
   complain_overflow_ ## complain, special_func,    \
317
   #type, false, 0, mask, pc_relative)
318
319
static reloc_howto_type *ppc64_elf_howto_table[(int) R_PPC64_max];
320
321
static reloc_howto_type ppc64_elf_howto_raw[] =
322
{
323
  /* This reloc does nothing.  */
324
  HOW (R_PPC64_NONE, 0, 0, 0, 0, false, dont,
325
       bfd_elf_generic_reloc),
326
327
  /* A standard 32 bit relocation.  */
328
  HOW (R_PPC64_ADDR32, 4, 32, 0xffffffff, 0, false, bitfield,
329
       bfd_elf_generic_reloc),
330
331
  /* An absolute 26 bit branch; the lower two bits must be zero.
332
     FIXME: we don't check that, we just clear them.  */
333
  HOW (R_PPC64_ADDR24, 4, 26, 0x03fffffc, 0, false, bitfield,
334
       bfd_elf_generic_reloc),
335
336
  /* A standard 16 bit relocation.  */
337
  HOW (R_PPC64_ADDR16, 2, 16, 0xffff, 0, false, bitfield,
338
       bfd_elf_generic_reloc),
339
340
  /* A 16 bit relocation without overflow.  */
341
  HOW (R_PPC64_ADDR16_LO, 2, 16, 0xffff, 0, false, dont,
342
       bfd_elf_generic_reloc),
343
344
  /* Bits 16-31 of an address.  */
345
  HOW (R_PPC64_ADDR16_HI, 2, 16, 0xffff, 16, false, signed,
346
       bfd_elf_generic_reloc),
347
348
  /* Bits 16-31 of an address, plus 1 if the contents of the low 16
349
     bits, treated as a signed number, is negative.  */
350
  HOW (R_PPC64_ADDR16_HA, 2, 16, 0xffff, 16, false, signed,
351
       ppc64_elf_ha_reloc),
352
353
  /* An absolute 16 bit branch; the lower two bits must be zero.
354
     FIXME: we don't check that, we just clear them.  */
355
  HOW (R_PPC64_ADDR14, 4, 16, 0x0000fffc, 0, false, signed,
356
       ppc64_elf_branch_reloc),
357
358
  /* An absolute 16 bit branch, for which bit 10 should be set to
359
     indicate that the branch is expected to be taken.  The lower two
360
     bits must be zero.  */
361
  HOW (R_PPC64_ADDR14_BRTAKEN, 4, 16, 0x0000fffc, 0, false, signed,
362
       ppc64_elf_brtaken_reloc),
363
364
  /* An absolute 16 bit branch, for which bit 10 should be set to
365
     indicate that the branch is not expected to be taken.  The lower
366
     two bits must be zero.  */
367
  HOW (R_PPC64_ADDR14_BRNTAKEN, 4, 16, 0x0000fffc, 0, false, signed,
368
       ppc64_elf_brtaken_reloc),
369
370
  /* A relative 26 bit branch; the lower two bits must be zero.  */
371
  HOW (R_PPC64_REL24, 4, 26, 0x03fffffc, 0, true, signed,
372
       ppc64_elf_branch_reloc),
373
374
  /* A variant of R_PPC64_REL24, used when r2 is not the toc pointer.  */
375
  HOW (R_PPC64_REL24_NOTOC, 4, 26, 0x03fffffc, 0, true, signed,
376
       ppc64_elf_branch_reloc),
377
378
  /* Another variant, when p10 insns can't be used on stubs.  */
379
  HOW (R_PPC64_REL24_P9NOTOC, 4, 26, 0x03fffffc, 0, true, signed,
380
       ppc64_elf_branch_reloc),
381
382
  /* A relative 16 bit branch; the lower two bits must be zero.  */
383
  HOW (R_PPC64_REL14, 4, 16, 0x0000fffc, 0, true, signed,
384
       ppc64_elf_branch_reloc),
385
386
  /* A relative 16 bit branch.  Bit 10 should be set to indicate that
387
     the branch is expected to be taken.  The lower two bits must be
388
     zero.  */
389
  HOW (R_PPC64_REL14_BRTAKEN, 4, 16, 0x0000fffc, 0, true, signed,
390
       ppc64_elf_brtaken_reloc),
391
392
  /* A relative 16 bit branch.  Bit 10 should be set to indicate that
393
     the branch is not expected to be taken.  The lower two bits must
394
     be zero.  */
395
  HOW (R_PPC64_REL14_BRNTAKEN, 4, 16, 0x0000fffc, 0, true, signed,
396
       ppc64_elf_brtaken_reloc),
397
398
  /* Like R_PPC64_ADDR16, but referring to the GOT table entry for the
399
     symbol.  */
400
  HOW (R_PPC64_GOT16, 2, 16, 0xffff, 0, false, signed,
401
       ppc64_elf_unhandled_reloc),
402
403
  /* Like R_PPC64_ADDR16_LO, but referring to the GOT table entry for
404
     the symbol.  */
405
  HOW (R_PPC64_GOT16_LO, 2, 16, 0xffff, 0, false, dont,
406
       ppc64_elf_unhandled_reloc),
407
408
  /* Like R_PPC64_ADDR16_HI, but referring to the GOT table entry for
409
     the symbol.  */
410
  HOW (R_PPC64_GOT16_HI, 2, 16, 0xffff, 16, false, signed,
411
       ppc64_elf_unhandled_reloc),
412
413
  /* Like R_PPC64_ADDR16_HA, but referring to the GOT table entry for
414
     the symbol.  */
415
  HOW (R_PPC64_GOT16_HA, 2, 16, 0xffff, 16, false, signed,
416
       ppc64_elf_unhandled_reloc),
417
418
  /* This is used only by the dynamic linker.  The symbol should exist
419
     both in the object being run and in some shared library.  The
420
     dynamic linker copies the data addressed by the symbol from the
421
     shared library into the object, because the object being
422
     run has to have the data at some particular address.  */
423
  HOW (R_PPC64_COPY, 0, 0, 0, 0, false, dont,
424
       ppc64_elf_unhandled_reloc),
425
426
  /* Like R_PPC64_ADDR64, but used when setting global offset table
427
     entries.  */
428
  HOW (R_PPC64_GLOB_DAT, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
429
       ppc64_elf_unhandled_reloc),
430
431
  /* Created by the link editor.  Marks a procedure linkage table
432
     entry for a symbol.  */
433
  HOW (R_PPC64_JMP_SLOT, 0, 0, 0, 0, false, dont,
434
       ppc64_elf_unhandled_reloc),
435
436
  /* Used only by the dynamic linker.  When the object is run, this
437
     doubleword64 is set to the load address of the object, plus the
438
     addend.  */
439
  HOW (R_PPC64_RELATIVE, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
440
       bfd_elf_generic_reloc),
441
442
  /* Like R_PPC64_ADDR32, but may be unaligned.  */
443
  HOW (R_PPC64_UADDR32, 4, 32, 0xffffffff, 0, false, bitfield,
444
       bfd_elf_generic_reloc),
445
446
  /* Like R_PPC64_ADDR16, but may be unaligned.  */
447
  HOW (R_PPC64_UADDR16, 2, 16, 0xffff, 0, false, bitfield,
448
       bfd_elf_generic_reloc),
449
450
  /* 32-bit PC relative.  */
451
  HOW (R_PPC64_REL32, 4, 32, 0xffffffff, 0, true, signed,
452
       bfd_elf_generic_reloc),
453
454
  /* 32-bit relocation to the symbol's procedure linkage table.  */
455
  HOW (R_PPC64_PLT32, 4, 32, 0xffffffff, 0, false, bitfield,
456
       ppc64_elf_unhandled_reloc),
457
458
  /* 32-bit PC relative relocation to the symbol's procedure linkage table.
459
     FIXME: R_PPC64_PLTREL32 not supported.  */
460
  HOW (R_PPC64_PLTREL32, 4, 32, 0xffffffff, 0, true, signed,
461
       ppc64_elf_unhandled_reloc),
462
463
  /* Like R_PPC64_ADDR16_LO, but referring to the PLT table entry for
464
     the symbol.  */
465
  HOW (R_PPC64_PLT16_LO, 2, 16, 0xffff, 0, false, dont,
466
       ppc64_elf_unhandled_reloc),
467
468
  /* Like R_PPC64_ADDR16_HI, but referring to the PLT table entry for
469
     the symbol.  */
470
  HOW (R_PPC64_PLT16_HI, 2, 16, 0xffff, 16, false, signed,
471
       ppc64_elf_unhandled_reloc),
472
473
  /* Like R_PPC64_ADDR16_HA, but referring to the PLT table entry for
474
     the symbol.  */
475
  HOW (R_PPC64_PLT16_HA, 2, 16, 0xffff, 16, false, signed,
476
       ppc64_elf_unhandled_reloc),
477
478
  /* 16-bit section relative relocation.  */
479
  HOW (R_PPC64_SECTOFF, 2, 16, 0xffff, 0, false, signed,
480
       ppc64_elf_sectoff_reloc),
481
482
  /* Like R_PPC64_SECTOFF, but no overflow warning.  */
483
  HOW (R_PPC64_SECTOFF_LO, 2, 16, 0xffff, 0, false, dont,
484
       ppc64_elf_sectoff_reloc),
485
486
  /* 16-bit upper half section relative relocation.  */
487
  HOW (R_PPC64_SECTOFF_HI, 2, 16, 0xffff, 16, false, signed,
488
       ppc64_elf_sectoff_reloc),
489
490
  /* 16-bit upper half adjusted section relative relocation.  */
491
  HOW (R_PPC64_SECTOFF_HA, 2, 16, 0xffff, 16, false, signed,
492
       ppc64_elf_sectoff_ha_reloc),
493
494
  /* Like R_PPC64_REL24 without touching the two least significant bits.  */
495
  HOW (R_PPC64_REL30, 4, 30, 0xfffffffc, 2, true, dont,
496
       bfd_elf_generic_reloc),
497
498
  /* Relocs in the 64-bit PowerPC ELF ABI, not in the 32-bit ABI.  */
499
500
  /* A standard 64-bit relocation.  */
501
  HOW (R_PPC64_ADDR64, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
502
       bfd_elf_generic_reloc),
503
504
  /* The bits 32-47 of an address.  */
505
  HOW (R_PPC64_ADDR16_HIGHER, 2, 16, 0xffff, 32, false, dont,
506
       bfd_elf_generic_reloc),
507
508
  /* The bits 32-47 of an address, plus 1 if the contents of the low
509
     16 bits, treated as a signed number, is negative.  */
510
  HOW (R_PPC64_ADDR16_HIGHERA, 2, 16, 0xffff, 32, false, dont,
511
       ppc64_elf_ha_reloc),
512
513
  /* The bits 48-63 of an address.  */
514
  HOW (R_PPC64_ADDR16_HIGHEST, 2, 16, 0xffff, 48, false, dont,
515
       bfd_elf_generic_reloc),
516
517
  /* The bits 48-63 of an address, plus 1 if the contents of the low
518
     16 bits, treated as a signed number, is negative.  */
519
  HOW (R_PPC64_ADDR16_HIGHESTA, 2, 16, 0xffff, 48, false, dont,
520
       ppc64_elf_ha_reloc),
521
522
  /* Like ADDR64, but may be unaligned.  */
523
  HOW (R_PPC64_UADDR64, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
524
       bfd_elf_generic_reloc),
525
526
  /* 64-bit relative relocation.  */
527
  HOW (R_PPC64_REL64, 8, 64, 0xffffffffffffffffULL, 0, true, dont,
528
       bfd_elf_generic_reloc),
529
530
  /* 64-bit relocation to the symbol's procedure linkage table.  */
531
  HOW (R_PPC64_PLT64, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
532
       ppc64_elf_unhandled_reloc),
533
534
  /* 64-bit PC relative relocation to the symbol's procedure linkage
535
     table.  */
536
  /* FIXME: R_PPC64_PLTREL64 not supported.  */
537
  HOW (R_PPC64_PLTREL64, 8, 64, 0xffffffffffffffffULL, 0, true, dont,
538
       ppc64_elf_unhandled_reloc),
539
540
  /* 16 bit TOC-relative relocation.  */
541
  /* R_PPC64_TOC16    47     half16*  S + A - .TOC.  */
542
  HOW (R_PPC64_TOC16, 2, 16, 0xffff, 0, false, signed,
543
       ppc64_elf_toc_reloc),
544
545
  /* 16 bit TOC-relative relocation without overflow.  */
546
  /* R_PPC64_TOC16_LO   48     half16  #lo (S + A - .TOC.)  */
547
  HOW (R_PPC64_TOC16_LO, 2, 16, 0xffff, 0, false, dont,
548
       ppc64_elf_toc_reloc),
549
550
  /* 16 bit TOC-relative relocation, high 16 bits.  */
551
  /* R_PPC64_TOC16_HI   49     half16  #hi (S + A - .TOC.)  */
552
  HOW (R_PPC64_TOC16_HI, 2, 16, 0xffff, 16, false, signed,
553
       ppc64_elf_toc_reloc),
554
555
  /* 16 bit TOC-relative relocation, high 16 bits, plus 1 if the
556
     contents of the low 16 bits, treated as a signed number, is
557
     negative.  */
558
  /* R_PPC64_TOC16_HA   50     half16  #ha (S + A - .TOC.)  */
559
  HOW (R_PPC64_TOC16_HA, 2, 16, 0xffff, 16, false, signed,
560
       ppc64_elf_toc_ha_reloc),
561
562
  /* 64-bit relocation; insert value of TOC base (.TOC.).  */
563
  /* R_PPC64_TOC      51     doubleword64  .TOC.  */
564
  HOW (R_PPC64_TOC, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
565
       ppc64_elf_toc64_reloc),
566
567
  /* Like R_PPC64_GOT16, but also informs the link editor that the
568
     value to relocate may (!) refer to a PLT entry which the link
569
     editor (a) may replace with the symbol value.  If the link editor
570
     is unable to fully resolve the symbol, it may (b) create a PLT
571
     entry and store the address to the new PLT entry in the GOT.
572
     This permits lazy resolution of function symbols at run time.
573
     The link editor may also skip all of this and just (c) emit a
574
     R_PPC64_GLOB_DAT to tie the symbol to the GOT entry.  */
575
  /* FIXME: R_PPC64_PLTGOT16 not implemented.  */
576
    HOW (R_PPC64_PLTGOT16, 2, 16, 0xffff, 0, false,signed,
577
    ppc64_elf_unhandled_reloc),
578
579
  /* Like R_PPC64_PLTGOT16, but without overflow.  */
580
  /* FIXME: R_PPC64_PLTGOT16_LO not implemented.  */
581
  HOW (R_PPC64_PLTGOT16_LO, 2, 16, 0xffff, 0, false, dont,
582
       ppc64_elf_unhandled_reloc),
583
584
  /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address.  */
585
  /* FIXME: R_PPC64_PLTGOT16_HI not implemented.  */
586
  HOW (R_PPC64_PLTGOT16_HI, 2, 16, 0xffff, 16, false, signed,
587
       ppc64_elf_unhandled_reloc),
588
589
  /* Like R_PPC64_PLT_GOT16, but using bits 16-31 of the address, plus
590
     1 if the contents of the low 16 bits, treated as a signed number,
591
     is negative.  */
592
  /* FIXME: R_PPC64_PLTGOT16_HA not implemented.  */
593
  HOW (R_PPC64_PLTGOT16_HA, 2, 16, 0xffff, 16, false, signed,
594
       ppc64_elf_unhandled_reloc),
595
596
  /* Like R_PPC64_ADDR16, but for instructions with a DS field.  */
597
  HOW (R_PPC64_ADDR16_DS, 2, 16, 0xfffc, 0, false, signed,
598
       bfd_elf_generic_reloc),
599
600
  /* Like R_PPC64_ADDR16_LO, but for instructions with a DS field.  */
601
  HOW (R_PPC64_ADDR16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
602
       bfd_elf_generic_reloc),
603
604
  /* Like R_PPC64_GOT16, but for instructions with a DS field.  */
605
  HOW (R_PPC64_GOT16_DS, 2, 16, 0xfffc, 0, false, signed,
606
       ppc64_elf_unhandled_reloc),
607
608
  /* Like R_PPC64_GOT16_LO, but for instructions with a DS field.  */
609
  HOW (R_PPC64_GOT16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
610
       ppc64_elf_unhandled_reloc),
611
612
  /* Like R_PPC64_PLT16_LO, but for instructions with a DS field.  */
613
  HOW (R_PPC64_PLT16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
614
       ppc64_elf_unhandled_reloc),
615
616
  /* Like R_PPC64_SECTOFF, but for instructions with a DS field.  */
617
  HOW (R_PPC64_SECTOFF_DS, 2, 16, 0xfffc, 0, false, signed,
618
       ppc64_elf_sectoff_reloc),
619
620
  /* Like R_PPC64_SECTOFF_LO, but for instructions with a DS field.  */
621
  HOW (R_PPC64_SECTOFF_LO_DS, 2, 16, 0xfffc, 0, false, dont,
622
       ppc64_elf_sectoff_reloc),
623
624
  /* Like R_PPC64_TOC16, but for instructions with a DS field.  */
625
  HOW (R_PPC64_TOC16_DS, 2, 16, 0xfffc, 0, false, signed,
626
       ppc64_elf_toc_reloc),
627
628
  /* Like R_PPC64_TOC16_LO, but for instructions with a DS field.  */
629
  HOW (R_PPC64_TOC16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
630
       ppc64_elf_toc_reloc),
631
632
  /* Like R_PPC64_PLTGOT16, but for instructions with a DS field.  */
633
  /* FIXME: R_PPC64_PLTGOT16_DS not implemented.  */
634
  HOW (R_PPC64_PLTGOT16_DS, 2, 16, 0xfffc, 0, false, signed,
635
       ppc64_elf_unhandled_reloc),
636
637
  /* Like R_PPC64_PLTGOT16_LO, but for instructions with a DS field.  */
638
  /* FIXME: R_PPC64_PLTGOT16_LO not implemented.  */
639
  HOW (R_PPC64_PLTGOT16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
640
       ppc64_elf_unhandled_reloc),
641
642
  /* Marker relocs for TLS.  */
643
  HOW (R_PPC64_TLS, 4, 32, 0, 0, false, dont,
644
       bfd_elf_generic_reloc),
645
646
  HOW (R_PPC64_TLSGD, 4, 32, 0, 0, false, dont,
647
       bfd_elf_generic_reloc),
648
649
  HOW (R_PPC64_TLSLD, 4, 32, 0, 0, false, dont,
650
       bfd_elf_generic_reloc),
651
652
  /* Marker reloc for optimizing r2 save in prologue rather than on
653
     each plt call stub.  */
654
  HOW (R_PPC64_TOCSAVE, 4, 32, 0, 0, false, dont,
655
       bfd_elf_generic_reloc),
656
657
  /* Marker relocs on inline plt call instructions.  */
658
  HOW (R_PPC64_PLTSEQ, 4, 32, 0, 0, false, dont,
659
       bfd_elf_generic_reloc),
660
661
  HOW (R_PPC64_PLTCALL, 4, 32, 0, 0, false, dont,
662
       bfd_elf_generic_reloc),
663
664
  /* Computes the load module index of the load module that contains the
665
     definition of its TLS sym.  */
666
  HOW (R_PPC64_DTPMOD64, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
667
       ppc64_elf_unhandled_reloc),
668
669
  /* Computes a dtv-relative displacement, the difference between the value
670
     of sym+add and the base address of the thread-local storage block that
671
     contains the definition of sym, minus 0x8000.  */
672
  HOW (R_PPC64_DTPREL64, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
673
       ppc64_elf_unhandled_reloc),
674
675
  /* A 16 bit dtprel reloc.  */
676
  HOW (R_PPC64_DTPREL16, 2, 16, 0xffff, 0, false, signed,
677
       ppc64_elf_unhandled_reloc),
678
679
  /* Like DTPREL16, but no overflow.  */
680
  HOW (R_PPC64_DTPREL16_LO, 2, 16, 0xffff, 0, false, dont,
681
       ppc64_elf_unhandled_reloc),
682
683
  /* Like DTPREL16_LO, but next higher group of 16 bits.  */
684
  HOW (R_PPC64_DTPREL16_HI, 2, 16, 0xffff, 16, false, signed,
685
       ppc64_elf_unhandled_reloc),
686
687
  /* Like DTPREL16_HI, but adjust for low 16 bits.  */
688
  HOW (R_PPC64_DTPREL16_HA, 2, 16, 0xffff, 16, false, signed,
689
       ppc64_elf_unhandled_reloc),
690
691
  /* Like DTPREL16_HI, but next higher group of 16 bits.  */
692
  HOW (R_PPC64_DTPREL16_HIGHER, 2, 16, 0xffff, 32, false, dont,
693
       ppc64_elf_unhandled_reloc),
694
695
  /* Like DTPREL16_HIGHER, but adjust for low 16 bits.  */
696
  HOW (R_PPC64_DTPREL16_HIGHERA, 2, 16, 0xffff, 32, false, dont,
697
       ppc64_elf_unhandled_reloc),
698
699
  /* Like DTPREL16_HIGHER, but next higher group of 16 bits.  */
700
  HOW (R_PPC64_DTPREL16_HIGHEST, 2, 16, 0xffff, 48, false, dont,
701
       ppc64_elf_unhandled_reloc),
702
703
  /* Like DTPREL16_HIGHEST, but adjust for low 16 bits.  */
704
  HOW (R_PPC64_DTPREL16_HIGHESTA, 2, 16, 0xffff, 48, false, dont,
705
       ppc64_elf_unhandled_reloc),
706
707
  /* Like DTPREL16, but for insns with a DS field.  */
708
  HOW (R_PPC64_DTPREL16_DS, 2, 16, 0xfffc, 0, false, signed,
709
       ppc64_elf_unhandled_reloc),
710
711
  /* Like DTPREL16_DS, but no overflow.  */
712
  HOW (R_PPC64_DTPREL16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
713
       ppc64_elf_unhandled_reloc),
714
715
  /* Computes a tp-relative displacement, the difference between the value of
716
     sym+add and the value of the thread pointer (r13).  */
717
  HOW (R_PPC64_TPREL64, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
718
       ppc64_elf_unhandled_reloc),
719
720
  /* A 16 bit tprel reloc.  */
721
  HOW (R_PPC64_TPREL16, 2, 16, 0xffff, 0, false, signed,
722
       ppc64_elf_unhandled_reloc),
723
724
  /* Like TPREL16, but no overflow.  */
725
  HOW (R_PPC64_TPREL16_LO, 2, 16, 0xffff, 0, false, dont,
726
       ppc64_elf_unhandled_reloc),
727
728
  /* Like TPREL16_LO, but next higher group of 16 bits.  */
729
  HOW (R_PPC64_TPREL16_HI, 2, 16, 0xffff, 16, false, signed,
730
       ppc64_elf_unhandled_reloc),
731
732
  /* Like TPREL16_HI, but adjust for low 16 bits.  */
733
  HOW (R_PPC64_TPREL16_HA, 2, 16, 0xffff, 16, false, signed,
734
       ppc64_elf_unhandled_reloc),
735
736
  /* Like TPREL16_HI, but next higher group of 16 bits.  */
737
  HOW (R_PPC64_TPREL16_HIGHER, 2, 16, 0xffff, 32, false, dont,
738
       ppc64_elf_unhandled_reloc),
739
740
  /* Like TPREL16_HIGHER, but adjust for low 16 bits.  */
741
  HOW (R_PPC64_TPREL16_HIGHERA, 2, 16, 0xffff, 32, false, dont,
742
       ppc64_elf_unhandled_reloc),
743
744
  /* Like TPREL16_HIGHER, but next higher group of 16 bits.  */
745
  HOW (R_PPC64_TPREL16_HIGHEST, 2, 16, 0xffff, 48, false, dont,
746
       ppc64_elf_unhandled_reloc),
747
748
  /* Like TPREL16_HIGHEST, but adjust for low 16 bits.  */
749
  HOW (R_PPC64_TPREL16_HIGHESTA, 2, 16, 0xffff, 48, false, dont,
750
       ppc64_elf_unhandled_reloc),
751
752
  /* Like TPREL16, but for insns with a DS field.  */
753
  HOW (R_PPC64_TPREL16_DS, 2, 16, 0xfffc, 0, false, signed,
754
       ppc64_elf_unhandled_reloc),
755
756
  /* Like TPREL16_DS, but no overflow.  */
757
  HOW (R_PPC64_TPREL16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
758
       ppc64_elf_unhandled_reloc),
759
760
  /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
761
     with values (sym+add)@dtpmod and (sym+add)@dtprel, and computes the offset
762
     to the first entry relative to the TOC base (r2).  */
763
  HOW (R_PPC64_GOT_TLSGD16, 2, 16, 0xffff, 0, false, signed,
764
       ppc64_elf_unhandled_reloc),
765
766
  /* Like GOT_TLSGD16, but no overflow.  */
767
  HOW (R_PPC64_GOT_TLSGD16_LO, 2, 16, 0xffff, 0, false, dont,
768
       ppc64_elf_unhandled_reloc),
769
770
  /* Like GOT_TLSGD16_LO, but next higher group of 16 bits.  */
771
  HOW (R_PPC64_GOT_TLSGD16_HI, 2, 16, 0xffff, 16, false, signed,
772
       ppc64_elf_unhandled_reloc),
773
774
  /* Like GOT_TLSGD16_HI, but adjust for low 16 bits.  */
775
  HOW (R_PPC64_GOT_TLSGD16_HA, 2, 16, 0xffff, 16, false, signed,
776
       ppc64_elf_unhandled_reloc),
777
778
  /* Allocates two contiguous entries in the GOT to hold a tls_index structure,
779
     with values (sym+add)@dtpmod and zero, and computes the offset to the
780
     first entry relative to the TOC base (r2).  */
781
  HOW (R_PPC64_GOT_TLSLD16, 2, 16, 0xffff, 0, false, signed,
782
       ppc64_elf_unhandled_reloc),
783
784
  /* Like GOT_TLSLD16, but no overflow.  */
785
  HOW (R_PPC64_GOT_TLSLD16_LO, 2, 16, 0xffff, 0, false, dont,
786
       ppc64_elf_unhandled_reloc),
787
788
  /* Like GOT_TLSLD16_LO, but next higher group of 16 bits.  */
789
  HOW (R_PPC64_GOT_TLSLD16_HI, 2, 16, 0xffff, 16, false, signed,
790
       ppc64_elf_unhandled_reloc),
791
792
  /* Like GOT_TLSLD16_HI, but adjust for low 16 bits.  */
793
  HOW (R_PPC64_GOT_TLSLD16_HA, 2, 16, 0xffff, 16, false, signed,
794
       ppc64_elf_unhandled_reloc),
795
796
  /* Allocates an entry in the GOT with value (sym+add)@dtprel, and computes
797
     the offset to the entry relative to the TOC base (r2).  */
798
  HOW (R_PPC64_GOT_DTPREL16_DS, 2, 16, 0xfffc, 0, false, signed,
799
       ppc64_elf_unhandled_reloc),
800
801
  /* Like GOT_DTPREL16_DS, but no overflow.  */
802
  HOW (R_PPC64_GOT_DTPREL16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
803
       ppc64_elf_unhandled_reloc),
804
805
  /* Like GOT_DTPREL16_LO_DS, but next higher group of 16 bits.  */
806
  HOW (R_PPC64_GOT_DTPREL16_HI, 2, 16, 0xffff, 16, false, signed,
807
       ppc64_elf_unhandled_reloc),
808
809
  /* Like GOT_DTPREL16_HI, but adjust for low 16 bits.  */
810
  HOW (R_PPC64_GOT_DTPREL16_HA, 2, 16, 0xffff, 16, false, signed,
811
       ppc64_elf_unhandled_reloc),
812
813
  /* Allocates an entry in the GOT with value (sym+add)@tprel, and computes the
814
     offset to the entry relative to the TOC base (r2).  */
815
  HOW (R_PPC64_GOT_TPREL16_DS, 2, 16, 0xfffc, 0, false, signed,
816
       ppc64_elf_unhandled_reloc),
817
818
  /* Like GOT_TPREL16_DS, but no overflow.  */
819
  HOW (R_PPC64_GOT_TPREL16_LO_DS, 2, 16, 0xfffc, 0, false, dont,
820
       ppc64_elf_unhandled_reloc),
821
822
  /* Like GOT_TPREL16_LO_DS, but next higher group of 16 bits.  */
823
  HOW (R_PPC64_GOT_TPREL16_HI, 2, 16, 0xffff, 16, false, signed,
824
       ppc64_elf_unhandled_reloc),
825
826
  /* Like GOT_TPREL16_HI, but adjust for low 16 bits.  */
827
  HOW (R_PPC64_GOT_TPREL16_HA, 2, 16, 0xffff, 16, false, signed,
828
       ppc64_elf_unhandled_reloc),
829
830
  HOW (R_PPC64_JMP_IREL, 0, 0, 0, 0, false, dont,
831
       ppc64_elf_unhandled_reloc),
832
833
  HOW (R_PPC64_IRELATIVE, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
834
       bfd_elf_generic_reloc),
835
836
  /* A 16 bit relative relocation.  */
837
  HOW (R_PPC64_REL16, 2, 16, 0xffff, 0, true, signed,
838
       bfd_elf_generic_reloc),
839
840
  /* A 16 bit relative relocation without overflow.  */
841
  HOW (R_PPC64_REL16_LO, 2, 16, 0xffff, 0, true, dont,
842
       bfd_elf_generic_reloc),
843
844
  /* The high order 16 bits of a relative address.  */
845
  HOW (R_PPC64_REL16_HI, 2, 16, 0xffff, 16, true, signed,
846
       bfd_elf_generic_reloc),
847
848
  /* The high order 16 bits of a relative address, plus 1 if the contents of
849
     the low 16 bits, treated as a signed number, is negative.  */
850
  HOW (R_PPC64_REL16_HA, 2, 16, 0xffff, 16, true, signed,
851
       ppc64_elf_ha_reloc),
852
853
  HOW (R_PPC64_REL16_HIGH, 2, 16, 0xffff, 16, true, dont,
854
       bfd_elf_generic_reloc),
855
856
  HOW (R_PPC64_REL16_HIGHA, 2, 16, 0xffff, 16, true, dont,
857
       ppc64_elf_ha_reloc),
858
859
  HOW (R_PPC64_REL16_HIGHER, 2, 16, 0xffff, 32, true, dont,
860
       bfd_elf_generic_reloc),
861
862
  HOW (R_PPC64_REL16_HIGHERA, 2, 16, 0xffff, 32, true, dont,
863
       ppc64_elf_ha_reloc),
864
865
  HOW (R_PPC64_REL16_HIGHEST, 2, 16, 0xffff, 48, true, dont,
866
       bfd_elf_generic_reloc),
867
868
  HOW (R_PPC64_REL16_HIGHESTA, 2, 16, 0xffff, 48, true, dont,
869
       ppc64_elf_ha_reloc),
870
871
  /* Like R_PPC64_REL16_HA but for split field in addpcis.  */
872
  HOW (R_PPC64_REL16DX_HA, 4, 16, 0x1fffc1, 16, true, signed,
873
       ppc64_elf_ha_reloc),
874
875
  /* A split-field reloc for addpcis, non-relative (gas internal use only).  */
876
  HOW (R_PPC64_16DX_HA, 4, 16, 0x1fffc1, 16, false, signed,
877
       ppc64_elf_ha_reloc),
878
879
  /* Like R_PPC64_ADDR16_HI, but no overflow.  */
880
  HOW (R_PPC64_ADDR16_HIGH, 2, 16, 0xffff, 16, false, dont,
881
       bfd_elf_generic_reloc),
882
883
  /* Like R_PPC64_ADDR16_HA, but no overflow.  */
884
  HOW (R_PPC64_ADDR16_HIGHA, 2, 16, 0xffff, 16, false, dont,
885
       ppc64_elf_ha_reloc),
886
887
  /* Like R_PPC64_DTPREL16_HI, but no overflow.  */
888
  HOW (R_PPC64_DTPREL16_HIGH, 2, 16, 0xffff, 16, false, dont,
889
       ppc64_elf_unhandled_reloc),
890
891
  /* Like R_PPC64_DTPREL16_HA, but no overflow.  */
892
  HOW (R_PPC64_DTPREL16_HIGHA, 2, 16, 0xffff, 16, false, dont,
893
       ppc64_elf_unhandled_reloc),
894
895
  /* Like R_PPC64_TPREL16_HI, but no overflow.  */
896
  HOW (R_PPC64_TPREL16_HIGH, 2, 16, 0xffff, 16, false, dont,
897
       ppc64_elf_unhandled_reloc),
898
899
  /* Like R_PPC64_TPREL16_HA, but no overflow.  */
900
  HOW (R_PPC64_TPREL16_HIGHA, 2, 16, 0xffff, 16, false, dont,
901
       ppc64_elf_unhandled_reloc),
902
903
  /* Marker reloc on ELFv2 large-model function entry.  */
904
  HOW (R_PPC64_ENTRY, 4, 32, 0, 0, false, dont,
905
       bfd_elf_generic_reloc),
906
907
  /* Like ADDR64, but use local entry point of function.  */
908
  HOW (R_PPC64_ADDR64_LOCAL, 8, 64, 0xffffffffffffffffULL, 0, false, dont,
909
       bfd_elf_generic_reloc),
910
911
  HOW (R_PPC64_PLTSEQ_NOTOC, 4, 32, 0, 0, false, dont,
912
       bfd_elf_generic_reloc),
913
914
  HOW (R_PPC64_PLTCALL_NOTOC, 4, 32, 0, 0, false, dont,
915
       bfd_elf_generic_reloc),
916
917
  HOW (R_PPC64_PCREL_OPT, 4, 32, 0, 0, false, dont,
918
       bfd_elf_generic_reloc),
919
920
  HOW (R_PPC64_D34, 8, 34, 0x3ffff0000ffffULL, 0, false, signed,
921
       ppc64_elf_prefix_reloc),
922
923
  HOW (R_PPC64_D34_LO, 8, 34, 0x3ffff0000ffffULL, 0, false, dont,
924
       ppc64_elf_prefix_reloc),
925
926
  HOW (R_PPC64_D34_HI30, 8, 34, 0x3ffff0000ffffULL, 34, false, dont,
927
       ppc64_elf_prefix_reloc),
928
929
  HOW (R_PPC64_D34_HA30, 8, 34, 0x3ffff0000ffffULL, 34, false, dont,
930
       ppc64_elf_prefix_reloc),
931
932
  HOW (R_PPC64_PCREL34, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
933
       ppc64_elf_prefix_reloc),
934
935
  HOW (R_PPC64_GOT_PCREL34, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
936
       ppc64_elf_unhandled_reloc),
937
938
  HOW (R_PPC64_PLT_PCREL34, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
939
       ppc64_elf_unhandled_reloc),
940
941
  HOW (R_PPC64_PLT_PCREL34_NOTOC, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
942
       ppc64_elf_unhandled_reloc),
943
944
  HOW (R_PPC64_TPREL34, 8, 34, 0x3ffff0000ffffULL, 0, false, signed,
945
       ppc64_elf_unhandled_reloc),
946
947
  HOW (R_PPC64_DTPREL34, 8, 34, 0x3ffff0000ffffULL, 0, false, signed,
948
       ppc64_elf_unhandled_reloc),
949
950
  HOW (R_PPC64_GOT_TLSGD_PCREL34, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
951
       ppc64_elf_unhandled_reloc),
952
953
  HOW (R_PPC64_GOT_TLSLD_PCREL34, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
954
       ppc64_elf_unhandled_reloc),
955
956
  HOW (R_PPC64_GOT_TPREL_PCREL34, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
957
       ppc64_elf_unhandled_reloc),
958
959
  HOW (R_PPC64_GOT_DTPREL_PCREL34, 8, 34, 0x3ffff0000ffffULL, 0, true, signed,
960
       ppc64_elf_unhandled_reloc),
961
962
  HOW (R_PPC64_ADDR16_HIGHER34, 2, 16, 0xffff, 34, false, dont,
963
       bfd_elf_generic_reloc),
964
965
  HOW (R_PPC64_ADDR16_HIGHERA34, 2, 16, 0xffff, 34, false, dont,
966
       ppc64_elf_ha_reloc),
967
968
  HOW (R_PPC64_ADDR16_HIGHEST34, 2, 16, 0xffff, 50, false, dont,
969
       bfd_elf_generic_reloc),
970
971
  HOW (R_PPC64_ADDR16_HIGHESTA34, 2, 16, 0xffff, 50, false, dont,
972
       ppc64_elf_ha_reloc),
973
974
  HOW (R_PPC64_REL16_HIGHER34, 2, 16, 0xffff, 34, true, dont,
975
       bfd_elf_generic_reloc),
976
977
  HOW (R_PPC64_REL16_HIGHERA34, 2, 16, 0xffff, 34, true, dont,
978
       ppc64_elf_ha_reloc),
979
980
  HOW (R_PPC64_REL16_HIGHEST34, 2, 16, 0xffff, 50, true, dont,
981
       bfd_elf_generic_reloc),
982
983
  HOW (R_PPC64_REL16_HIGHESTA34, 2, 16, 0xffff, 50, true, dont,
984
       ppc64_elf_ha_reloc),
985
986
  HOW (R_PPC64_D28, 8, 28, 0xfff0000ffffULL, 0, false, signed,
987
       ppc64_elf_prefix_reloc),
988
989
  HOW (R_PPC64_PCREL28, 8, 28, 0xfff0000ffffULL, 0, true, signed,
990
       ppc64_elf_prefix_reloc),
991
992
  /* GNU extension to record C++ vtable hierarchy.  */
993
  HOW (R_PPC64_GNU_VTINHERIT, 0, 0, 0, 0, false, dont,
994
       NULL),
995
996
  /* GNU extension to record C++ vtable member usage.  */
997
  HOW (R_PPC64_GNU_VTENTRY, 0, 0, 0, 0, false, dont,
998
       NULL),
999
};
1000
1001

1002
/* Initialize the ppc64_elf_howto_table, so that linear accesses can
1003
   be done.  */
1004
1005
static void
1006
ppc_howto_init (void)
1007
1
{
1008
1
  unsigned int i, type;
1009
1010
163
  for (i = 0; i < ARRAY_SIZE (ppc64_elf_howto_raw); i++)
1011
162
    {
1012
162
      type = ppc64_elf_howto_raw[i].type;
1013
162
      BFD_ASSERT (type < ARRAY_SIZE (ppc64_elf_howto_table));
1014
162
      ppc64_elf_howto_table[type] = &ppc64_elf_howto_raw[i];
1015
162
    }
1016
1
}
1017
1018
static reloc_howto_type *
1019
ppc64_elf_reloc_type_lookup (bfd *abfd, bfd_reloc_code_real_type code)
1020
0
{
1021
0
  enum elf_ppc64_reloc_type r = R_PPC64_NONE;
1022
1023
0
  if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
1024
    /* Initialize howto table if needed.  */
1025
0
    ppc_howto_init ();
1026
1027
0
  switch (code)
1028
0
    {
1029
0
    default:
1030
      /* xgettext:c-format */
1031
0
      _bfd_error_handler (_("%pB: unsupported relocation type %#x"), abfd,
1032
0
        (int) code);
1033
0
      bfd_set_error (bfd_error_bad_value);
1034
0
      return NULL;
1035
1036
0
    case BFD_RELOC_NONE:      r = R_PPC64_NONE;
1037
0
      break;
1038
0
    case BFD_RELOC_32:        r = R_PPC64_ADDR32;
1039
0
      break;
1040
0
    case BFD_RELOC_PPC_BA26:      r = R_PPC64_ADDR24;
1041
0
      break;
1042
0
    case BFD_RELOC_16:        r = R_PPC64_ADDR16;
1043
0
      break;
1044
0
    case BFD_RELOC_LO16:      r = R_PPC64_ADDR16_LO;
1045
0
      break;
1046
0
    case BFD_RELOC_HI16:      r = R_PPC64_ADDR16_HI;
1047
0
      break;
1048
0
    case BFD_RELOC_PPC64_ADDR16_HIGH:   r = R_PPC64_ADDR16_HIGH;
1049
0
      break;
1050
0
    case BFD_RELOC_HI16_S:      r = R_PPC64_ADDR16_HA;
1051
0
      break;
1052
0
    case BFD_RELOC_PPC64_ADDR16_HIGHA:    r = R_PPC64_ADDR16_HIGHA;
1053
0
      break;
1054
0
    case BFD_RELOC_PPC_BA16:      r = R_PPC64_ADDR14;
1055
0
      break;
1056
0
    case BFD_RELOC_PPC_BA16_BRTAKEN:    r = R_PPC64_ADDR14_BRTAKEN;
1057
0
      break;
1058
0
    case BFD_RELOC_PPC_BA16_BRNTAKEN:   r = R_PPC64_ADDR14_BRNTAKEN;
1059
0
      break;
1060
0
    case BFD_RELOC_PPC_B26:     r = R_PPC64_REL24;
1061
0
      break;
1062
0
    case BFD_RELOC_PPC64_REL24_NOTOC:   r = R_PPC64_REL24_NOTOC;
1063
0
      break;
1064
0
    case BFD_RELOC_PPC64_REL24_P9NOTOC:   r = R_PPC64_REL24_P9NOTOC;
1065
0
      break;
1066
0
    case BFD_RELOC_PPC_B16:     r = R_PPC64_REL14;
1067
0
      break;
1068
0
    case BFD_RELOC_PPC_B16_BRTAKEN:   r = R_PPC64_REL14_BRTAKEN;
1069
0
      break;
1070
0
    case BFD_RELOC_PPC_B16_BRNTAKEN:    r = R_PPC64_REL14_BRNTAKEN;
1071
0
      break;
1072
0
    case BFD_RELOC_16_GOTOFF:     r = R_PPC64_GOT16;
1073
0
      break;
1074
0
    case BFD_RELOC_LO16_GOTOFF:     r = R_PPC64_GOT16_LO;
1075
0
      break;
1076
0
    case BFD_RELOC_HI16_GOTOFF:     r = R_PPC64_GOT16_HI;
1077
0
      break;
1078
0
    case BFD_RELOC_HI16_S_GOTOFF:   r = R_PPC64_GOT16_HA;
1079
0
      break;
1080
0
    case BFD_RELOC_PPC_COPY:      r = R_PPC64_COPY;
1081
0
      break;
1082
0
    case BFD_RELOC_PPC_GLOB_DAT:    r = R_PPC64_GLOB_DAT;
1083
0
      break;
1084
0
    case BFD_RELOC_32_PCREL:      r = R_PPC64_REL32;
1085
0
      break;
1086
0
    case BFD_RELOC_32_PLTOFF:     r = R_PPC64_PLT32;
1087
0
      break;
1088
0
    case BFD_RELOC_32_PLT_PCREL:    r = R_PPC64_PLTREL32;
1089
0
      break;
1090
0
    case BFD_RELOC_LO16_PLTOFF:     r = R_PPC64_PLT16_LO;
1091
0
      break;
1092
0
    case BFD_RELOC_HI16_PLTOFF:     r = R_PPC64_PLT16_HI;
1093
0
      break;
1094
0
    case BFD_RELOC_HI16_S_PLTOFF:   r = R_PPC64_PLT16_HA;
1095
0
      break;
1096
0
    case BFD_RELOC_16_BASEREL:      r = R_PPC64_SECTOFF;
1097
0
      break;
1098
0
    case BFD_RELOC_LO16_BASEREL:    r = R_PPC64_SECTOFF_LO;
1099
0
      break;
1100
0
    case BFD_RELOC_HI16_BASEREL:    r = R_PPC64_SECTOFF_HI;
1101
0
      break;
1102
0
    case BFD_RELOC_HI16_S_BASEREL:    r = R_PPC64_SECTOFF_HA;
1103
0
      break;
1104
0
    case BFD_RELOC_CTOR:      r = R_PPC64_ADDR64;
1105
0
      break;
1106
0
    case BFD_RELOC_64:        r = R_PPC64_ADDR64;
1107
0
      break;
1108
0
    case BFD_RELOC_PPC64_HIGHER:    r = R_PPC64_ADDR16_HIGHER;
1109
0
      break;
1110
0
    case BFD_RELOC_PPC64_HIGHER_S:    r = R_PPC64_ADDR16_HIGHERA;
1111
0
      break;
1112
0
    case BFD_RELOC_PPC64_HIGHEST:   r = R_PPC64_ADDR16_HIGHEST;
1113
0
      break;
1114
0
    case BFD_RELOC_PPC64_HIGHEST_S:   r = R_PPC64_ADDR16_HIGHESTA;
1115
0
      break;
1116
0
    case BFD_RELOC_64_PCREL:      r = R_PPC64_REL64;
1117
0
      break;
1118
0
    case BFD_RELOC_64_PLTOFF:     r = R_PPC64_PLT64;
1119
0
      break;
1120
0
    case BFD_RELOC_64_PLT_PCREL:    r = R_PPC64_PLTREL64;
1121
0
      break;
1122
0
    case BFD_RELOC_PPC_TOC16:     r = R_PPC64_TOC16;
1123
0
      break;
1124
0
    case BFD_RELOC_PPC64_TOC16_LO:    r = R_PPC64_TOC16_LO;
1125
0
      break;
1126
0
    case BFD_RELOC_PPC64_TOC16_HI:    r = R_PPC64_TOC16_HI;
1127
0
      break;
1128
0
    case BFD_RELOC_PPC64_TOC16_HA:    r = R_PPC64_TOC16_HA;
1129
0
      break;
1130
0
    case BFD_RELOC_PPC64_TOC:     r = R_PPC64_TOC;
1131
0
      break;
1132
0
    case BFD_RELOC_PPC64_PLTGOT16:    r = R_PPC64_PLTGOT16;
1133
0
      break;
1134
0
    case BFD_RELOC_PPC64_PLTGOT16_LO:   r = R_PPC64_PLTGOT16_LO;
1135
0
      break;
1136
0
    case BFD_RELOC_PPC64_PLTGOT16_HI:   r = R_PPC64_PLTGOT16_HI;
1137
0
      break;
1138
0
    case BFD_RELOC_PPC64_PLTGOT16_HA:   r = R_PPC64_PLTGOT16_HA;
1139
0
      break;
1140
0
    case BFD_RELOC_PPC64_ADDR16_DS:   r = R_PPC64_ADDR16_DS;
1141
0
      break;
1142
0
    case BFD_RELOC_PPC64_ADDR16_LO_DS:    r = R_PPC64_ADDR16_LO_DS;
1143
0
      break;
1144
0
    case BFD_RELOC_PPC64_GOT16_DS:    r = R_PPC64_GOT16_DS;
1145
0
      break;
1146
0
    case BFD_RELOC_PPC64_GOT16_LO_DS:   r = R_PPC64_GOT16_LO_DS;
1147
0
      break;
1148
0
    case BFD_RELOC_PPC64_PLT16_LO_DS:   r = R_PPC64_PLT16_LO_DS;
1149
0
      break;
1150
0
    case BFD_RELOC_PPC64_SECTOFF_DS:    r = R_PPC64_SECTOFF_DS;
1151
0
      break;
1152
0
    case BFD_RELOC_PPC64_SECTOFF_LO_DS:   r = R_PPC64_SECTOFF_LO_DS;
1153
0
      break;
1154
0
    case BFD_RELOC_PPC64_TOC16_DS:    r = R_PPC64_TOC16_DS;
1155
0
      break;
1156
0
    case BFD_RELOC_PPC64_TOC16_LO_DS:   r = R_PPC64_TOC16_LO_DS;
1157
0
      break;
1158
0
    case BFD_RELOC_PPC64_PLTGOT16_DS:   r = R_PPC64_PLTGOT16_DS;
1159
0
      break;
1160
0
    case BFD_RELOC_PPC64_PLTGOT16_LO_DS:  r = R_PPC64_PLTGOT16_LO_DS;
1161
0
      break;
1162
0
    case BFD_RELOC_PPC64_TLS_PCREL:
1163
0
    case BFD_RELOC_PPC_TLS:     r = R_PPC64_TLS;
1164
0
      break;
1165
0
    case BFD_RELOC_PPC_TLSGD:     r = R_PPC64_TLSGD;
1166
0
      break;
1167
0
    case BFD_RELOC_PPC_TLSLD:     r = R_PPC64_TLSLD;
1168
0
      break;
1169
0
    case BFD_RELOC_PPC_DTPMOD:      r = R_PPC64_DTPMOD64;
1170
0
      break;
1171
0
    case BFD_RELOC_PPC_TPREL16:     r = R_PPC64_TPREL16;
1172
0
      break;
1173
0
    case BFD_RELOC_PPC_TPREL16_LO:    r = R_PPC64_TPREL16_LO;
1174
0
      break;
1175
0
    case BFD_RELOC_PPC_TPREL16_HI:    r = R_PPC64_TPREL16_HI;
1176
0
      break;
1177
0
    case BFD_RELOC_PPC64_TPREL16_HIGH:    r = R_PPC64_TPREL16_HIGH;
1178
0
      break;
1179
0
    case BFD_RELOC_PPC_TPREL16_HA:    r = R_PPC64_TPREL16_HA;
1180
0
      break;
1181
0
    case BFD_RELOC_PPC64_TPREL16_HIGHA:   r = R_PPC64_TPREL16_HIGHA;
1182
0
      break;
1183
0
    case BFD_RELOC_PPC_TPREL:     r = R_PPC64_TPREL64;
1184
0
      break;
1185
0
    case BFD_RELOC_PPC_DTPREL16:    r = R_PPC64_DTPREL16;
1186
0
      break;
1187
0
    case BFD_RELOC_PPC_DTPREL16_LO:   r = R_PPC64_DTPREL16_LO;
1188
0
      break;
1189
0
    case BFD_RELOC_PPC_DTPREL16_HI:   r = R_PPC64_DTPREL16_HI;
1190
0
      break;
1191
0
    case BFD_RELOC_PPC64_DTPREL16_HIGH:   r = R_PPC64_DTPREL16_HIGH;
1192
0
      break;
1193
0
    case BFD_RELOC_PPC_DTPREL16_HA:   r = R_PPC64_DTPREL16_HA;
1194
0
      break;
1195
0
    case BFD_RELOC_PPC64_DTPREL16_HIGHA:  r = R_PPC64_DTPREL16_HIGHA;
1196
0
      break;
1197
0
    case BFD_RELOC_PPC_DTPREL:      r = R_PPC64_DTPREL64;
1198
0
      break;
1199
0
    case BFD_RELOC_PPC_GOT_TLSGD16:   r = R_PPC64_GOT_TLSGD16;
1200
0
      break;
1201
0
    case BFD_RELOC_PPC_GOT_TLSGD16_LO:    r = R_PPC64_GOT_TLSGD16_LO;
1202
0
      break;
1203
0
    case BFD_RELOC_PPC_GOT_TLSGD16_HI:    r = R_PPC64_GOT_TLSGD16_HI;
1204
0
      break;
1205
0
    case BFD_RELOC_PPC_GOT_TLSGD16_HA:    r = R_PPC64_GOT_TLSGD16_HA;
1206
0
      break;
1207
0
    case BFD_RELOC_PPC_GOT_TLSLD16:   r = R_PPC64_GOT_TLSLD16;
1208
0
      break;
1209
0
    case BFD_RELOC_PPC_GOT_TLSLD16_LO:    r = R_PPC64_GOT_TLSLD16_LO;
1210
0
      break;
1211
0
    case BFD_RELOC_PPC_GOT_TLSLD16_HI:    r = R_PPC64_GOT_TLSLD16_HI;
1212
0
      break;
1213
0
    case BFD_RELOC_PPC_GOT_TLSLD16_HA:    r = R_PPC64_GOT_TLSLD16_HA;
1214
0
      break;
1215
0
    case BFD_RELOC_PPC_GOT_TPREL16:   r = R_PPC64_GOT_TPREL16_DS;
1216
0
      break;
1217
0
    case BFD_RELOC_PPC_GOT_TPREL16_LO:    r = R_PPC64_GOT_TPREL16_LO_DS;
1218
0
      break;
1219
0
    case BFD_RELOC_PPC_GOT_TPREL16_HI:    r = R_PPC64_GOT_TPREL16_HI;
1220
0
      break;
1221
0
    case BFD_RELOC_PPC_GOT_TPREL16_HA:    r = R_PPC64_GOT_TPREL16_HA;
1222
0
      break;
1223
0
    case BFD_RELOC_PPC_GOT_DTPREL16:    r = R_PPC64_GOT_DTPREL16_DS;
1224
0
      break;
1225
0
    case BFD_RELOC_PPC_GOT_DTPREL16_LO:   r = R_PPC64_GOT_DTPREL16_LO_DS;
1226
0
      break;
1227
0
    case BFD_RELOC_PPC_GOT_DTPREL16_HI:   r = R_PPC64_GOT_DTPREL16_HI;
1228
0
      break;
1229
0
    case BFD_RELOC_PPC_GOT_DTPREL16_HA:   r = R_PPC64_GOT_DTPREL16_HA;
1230
0
      break;
1231
0
    case BFD_RELOC_PPC64_TPREL16_DS:    r = R_PPC64_TPREL16_DS;
1232
0
      break;
1233
0
    case BFD_RELOC_PPC64_TPREL16_LO_DS:   r = R_PPC64_TPREL16_LO_DS;
1234
0
      break;
1235
0
    case BFD_RELOC_PPC64_TPREL16_HIGHER:  r = R_PPC64_TPREL16_HIGHER;
1236
0
      break;
1237
0
    case BFD_RELOC_PPC64_TPREL16_HIGHERA: r = R_PPC64_TPREL16_HIGHERA;
1238
0
      break;
1239
0
    case BFD_RELOC_PPC64_TPREL16_HIGHEST: r = R_PPC64_TPREL16_HIGHEST;
1240
0
      break;
1241
0
    case BFD_RELOC_PPC64_TPREL16_HIGHESTA:  r = R_PPC64_TPREL16_HIGHESTA;
1242
0
      break;
1243
0
    case BFD_RELOC_PPC64_DTPREL16_DS:   r = R_PPC64_DTPREL16_DS;
1244
0
      break;
1245
0
    case BFD_RELOC_PPC64_DTPREL16_LO_DS:  r = R_PPC64_DTPREL16_LO_DS;
1246
0
      break;
1247
0
    case BFD_RELOC_PPC64_DTPREL16_HIGHER: r = R_PPC64_DTPREL16_HIGHER;
1248
0
      break;
1249
0
    case BFD_RELOC_PPC64_DTPREL16_HIGHERA:  r = R_PPC64_DTPREL16_HIGHERA;
1250
0
      break;
1251
0
    case BFD_RELOC_PPC64_DTPREL16_HIGHEST:  r = R_PPC64_DTPREL16_HIGHEST;
1252
0
      break;
1253
0
    case BFD_RELOC_PPC64_DTPREL16_HIGHESTA: r = R_PPC64_DTPREL16_HIGHESTA;
1254
0
      break;
1255
0
    case BFD_RELOC_16_PCREL:      r = R_PPC64_REL16;
1256
0
      break;
1257
0
    case BFD_RELOC_LO16_PCREL:      r = R_PPC64_REL16_LO;
1258
0
      break;
1259
0
    case BFD_RELOC_HI16_PCREL:      r = R_PPC64_REL16_HI;
1260
0
      break;
1261
0
    case BFD_RELOC_HI16_S_PCREL:    r = R_PPC64_REL16_HA;
1262
0
      break;
1263
0
    case BFD_RELOC_PPC64_REL16_HIGH:    r = R_PPC64_REL16_HIGH;
1264
0
      break;
1265
0
    case BFD_RELOC_PPC64_REL16_HIGHA:   r = R_PPC64_REL16_HIGHA;
1266
0
      break;
1267
0
    case BFD_RELOC_PPC64_REL16_HIGHER:    r = R_PPC64_REL16_HIGHER;
1268
0
      break;
1269
0
    case BFD_RELOC_PPC64_REL16_HIGHERA:   r = R_PPC64_REL16_HIGHERA;
1270
0
      break;
1271
0
    case BFD_RELOC_PPC64_REL16_HIGHEST:   r = R_PPC64_REL16_HIGHEST;
1272
0
      break;
1273
0
    case BFD_RELOC_PPC64_REL16_HIGHESTA:  r = R_PPC64_REL16_HIGHESTA;
1274
0
      break;
1275
0
    case BFD_RELOC_PPC_16DX_HA:     r = R_PPC64_16DX_HA;
1276
0
      break;
1277
0
    case BFD_RELOC_PPC_REL16DX_HA:    r = R_PPC64_REL16DX_HA;
1278
0
      break;
1279
0
    case BFD_RELOC_PPC64_ENTRY:     r = R_PPC64_ENTRY;
1280
0
      break;
1281
0
    case BFD_RELOC_PPC64_ADDR64_LOCAL:    r = R_PPC64_ADDR64_LOCAL;
1282
0
      break;
1283
0
    case BFD_RELOC_PPC64_D34:     r = R_PPC64_D34;
1284
0
      break;
1285
0
    case BFD_RELOC_PPC64_D34_LO:    r = R_PPC64_D34_LO;
1286
0
      break;
1287
0
    case BFD_RELOC_PPC64_D34_HI30:    r = R_PPC64_D34_HI30;
1288
0
      break;
1289
0
    case BFD_RELOC_PPC64_D34_HA30:    r = R_PPC64_D34_HA30;
1290
0
      break;
1291
0
    case BFD_RELOC_PPC64_PCREL34:   r = R_PPC64_PCREL34;
1292
0
      break;
1293
0
    case BFD_RELOC_PPC64_GOT_PCREL34:   r = R_PPC64_GOT_PCREL34;
1294
0
      break;
1295
0
    case BFD_RELOC_PPC64_PLT_PCREL34:   r = R_PPC64_PLT_PCREL34;
1296
0
      break;
1297
0
    case BFD_RELOC_PPC64_TPREL34:   r = R_PPC64_TPREL34;
1298
0
      break;
1299
0
    case BFD_RELOC_PPC64_DTPREL34:    r = R_PPC64_DTPREL34;
1300
0
      break;
1301
0
    case BFD_RELOC_PPC64_GOT_TLSGD_PCREL34: r = R_PPC64_GOT_TLSGD_PCREL34;
1302
0
      break;
1303
0
    case BFD_RELOC_PPC64_GOT_TLSLD_PCREL34: r = R_PPC64_GOT_TLSLD_PCREL34;
1304
0
      break;
1305
0
    case BFD_RELOC_PPC64_GOT_TPREL_PCREL34: r = R_PPC64_GOT_TPREL_PCREL34;
1306
0
      break;
1307
0
    case BFD_RELOC_PPC64_GOT_DTPREL_PCREL34:  r = R_PPC64_GOT_DTPREL_PCREL34;
1308
0
      break;
1309
0
    case BFD_RELOC_PPC64_ADDR16_HIGHER34: r = R_PPC64_ADDR16_HIGHER34;
1310
0
      break;
1311
0
    case BFD_RELOC_PPC64_ADDR16_HIGHERA34:  r = R_PPC64_ADDR16_HIGHERA34;
1312
0
      break;
1313
0
    case BFD_RELOC_PPC64_ADDR16_HIGHEST34:  r = R_PPC64_ADDR16_HIGHEST34;
1314
0
      break;
1315
0
    case BFD_RELOC_PPC64_ADDR16_HIGHESTA34: r = R_PPC64_ADDR16_HIGHESTA34;
1316
0
      break;
1317
0
    case BFD_RELOC_PPC64_REL16_HIGHER34:  r = R_PPC64_REL16_HIGHER34;
1318
0
      break;
1319
0
    case BFD_RELOC_PPC64_REL16_HIGHERA34: r = R_PPC64_REL16_HIGHERA34;
1320
0
      break;
1321
0
    case BFD_RELOC_PPC64_REL16_HIGHEST34: r = R_PPC64_REL16_HIGHEST34;
1322
0
      break;
1323
0
    case BFD_RELOC_PPC64_REL16_HIGHESTA34:  r = R_PPC64_REL16_HIGHESTA34;
1324
0
      break;
1325
0
    case BFD_RELOC_PPC64_D28:     r = R_PPC64_D28;
1326
0
      break;
1327
0
    case BFD_RELOC_PPC64_PCREL28:   r = R_PPC64_PCREL28;
1328
0
      break;
1329
0
    case BFD_RELOC_VTABLE_INHERIT:    r = R_PPC64_GNU_VTINHERIT;
1330
0
      break;
1331
0
    case BFD_RELOC_VTABLE_ENTRY:    r = R_PPC64_GNU_VTENTRY;
1332
0
      break;
1333
0
    }
1334
1335
0
  return ppc64_elf_howto_table[r];
1336
0
};
1337
1338
static reloc_howto_type *
1339
ppc64_elf_reloc_name_lookup (bfd *abfd, const char *r_name)
1340
0
{
1341
0
  unsigned int i;
1342
0
  static char *compat_map[][2] = {
1343
0
    { "R_PPC64_GOT_TLSGD34", "R_PPC64_GOT_TLSGD_PCREL34" },
1344
0
    { "R_PPC64_GOT_TLSLD34", "R_PPC64_GOT_TLSLD_PCREL34" },
1345
0
    { "R_PPC64_GOT_TPREL34", "R_PPC64_GOT_TPREL_PCREL34" },
1346
0
    { "R_PPC64_GOT_DTPREL34", "R_PPC64_GOT_DTPREL_PCREL34" }
1347
0
  };
1348
1349
0
  for (i = 0; i < ARRAY_SIZE (ppc64_elf_howto_raw); i++)
1350
0
    if (ppc64_elf_howto_raw[i].name != NULL
1351
0
  && strcasecmp (ppc64_elf_howto_raw[i].name, r_name) == 0)
1352
0
      return &ppc64_elf_howto_raw[i];
1353
1354
  /* Handle old names of relocations in case they were used by
1355
     .reloc directives.
1356
     FIXME: Remove this soon.  Mapping the reloc names is very likely
1357
     completely unnecessary.  */
1358
0
  for (i = 0; i < ARRAY_SIZE (compat_map); i++)
1359
0
    if (strcasecmp (compat_map[i][0], r_name) == 0)
1360
0
      {
1361
0
  _bfd_error_handler (_("warning: %s should be used rather than %s"),
1362
0
          compat_map[i][1], compat_map[i][0]);
1363
0
  return ppc64_elf_reloc_name_lookup (abfd, compat_map[i][1]);
1364
0
      }
1365
1366
0
  return NULL;
1367
0
}
1368
1369
/* Set the howto pointer for a PowerPC ELF reloc.  */
1370
1371
static bool
1372
ppc64_elf_info_to_howto (bfd *abfd, arelent *cache_ptr,
1373
       Elf_Internal_Rela *dst)
1374
89
{
1375
89
  unsigned int type;
1376
1377
  /* Initialize howto table if needed.  */
1378
89
  if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
1379
1
    ppc_howto_init ();
1380
1381
89
  type = ELF64_R_TYPE (dst->r_info);
1382
89
  if (type >= ARRAY_SIZE (ppc64_elf_howto_table))
1383
5
    {
1384
      /* xgettext:c-format */
1385
5
      _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
1386
5
        abfd, type);
1387
5
      bfd_set_error (bfd_error_bad_value);
1388
5
      return false;
1389
5
    }
1390
84
  cache_ptr->howto = ppc64_elf_howto_table[type];
1391
84
  if (cache_ptr->howto == NULL || cache_ptr->howto->name == NULL)
1392
1
    {
1393
      /* xgettext:c-format */
1394
1
      _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
1395
1
        abfd, type);
1396
1
      bfd_set_error (bfd_error_bad_value);
1397
1
      return false;
1398
1
    }
1399
1400
83
  return true;
1401
84
}
1402
1403
/* Handle the R_PPC64_ADDR16_HA and similar relocs.  */
1404
1405
static bfd_reloc_status_type
1406
ppc64_elf_ha_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1407
        void *data, asection *input_section,
1408
        bfd *output_bfd, char **error_message)
1409
1
{
1410
1
  enum elf_ppc64_reloc_type r_type;
1411
1
  long insn;
1412
1
  bfd_size_type octets;
1413
1
  bfd_vma value;
1414
1415
  /* If this is a relocatable link (output_bfd test tells us), just
1416
     call the generic function.  Any adjustment will be done at final
1417
     link time.  */
1418
1
  if (output_bfd != NULL)
1419
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1420
0
          input_section, output_bfd, error_message);
1421
1422
  /* Adjust the addend for sign extension of the low 16 (or 34) bits.
1423
     We won't actually be using the low bits, so trashing them
1424
     doesn't matter.  */
1425
1
  r_type = reloc_entry->howto->type;
1426
1
  if (r_type == R_PPC64_ADDR16_HIGHERA34
1427
1
      || r_type == R_PPC64_ADDR16_HIGHESTA34
1428
1
      || r_type == R_PPC64_REL16_HIGHERA34
1429
1
      || r_type == R_PPC64_REL16_HIGHESTA34)
1430
0
    reloc_entry->addend += 1ULL << 33;
1431
1
  else
1432
1
    reloc_entry->addend += 1U << 15;
1433
1
  if (r_type != R_PPC64_REL16DX_HA)
1434
0
    return bfd_reloc_continue;
1435
1436
1
  value = 0;
1437
1
  if (!bfd_is_com_section (symbol->section))
1438
1
    value = symbol->value;
1439
1
  value += (reloc_entry->addend
1440
1
      + symbol->section->output_offset
1441
1
      + symbol->section->output_section->vma);
1442
1
  value -= (reloc_entry->address
1443
1
      + input_section->output_offset
1444
1
      + input_section->output_section->vma);
1445
1
  value = (bfd_signed_vma) value >> 16;
1446
1447
1
  octets = reloc_entry->address * OCTETS_PER_BYTE (abfd, input_section);
1448
1
  if (!bfd_reloc_offset_in_range (reloc_entry->howto, abfd,
1449
1
          input_section, octets))
1450
1
    return bfd_reloc_outofrange;
1451
1452
0
  insn = bfd_get_32 (abfd, (bfd_byte *) data + octets);
1453
0
  insn &= ~0x1fffc1;
1454
0
  insn |= (value & 0xffc1) | ((value & 0x3e) << 15);
1455
0
  bfd_put_32 (abfd, insn, (bfd_byte *) data + octets);
1456
0
  if (value + 0x8000 > 0xffff)
1457
0
    return bfd_reloc_overflow;
1458
0
  return bfd_reloc_ok;
1459
0
}
1460
1461
static bfd_reloc_status_type
1462
ppc64_elf_branch_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1463
      void *data, asection *input_section,
1464
      bfd *output_bfd, char **error_message)
1465
17
{
1466
17
  if (output_bfd != NULL)
1467
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1468
0
          input_section, output_bfd, error_message);
1469
1470
17
  if (symbol->section->owner == NULL
1471
17
      || !is_ppc64_elf (symbol->section->owner))
1472
17
    return bfd_reloc_continue;
1473
1474
0
  if (strcmp (symbol->section->name, ".opd") == 0
1475
0
      && (symbol->section->owner->flags & DYNAMIC) == 0)
1476
0
    {
1477
0
      bfd_vma dest = opd_entry_value (symbol->section,
1478
0
              symbol->value + reloc_entry->addend,
1479
0
              NULL, NULL, false);
1480
0
      if (dest != (bfd_vma) -1)
1481
0
  reloc_entry->addend = dest - (symbol->value
1482
0
              + symbol->section->output_section->vma
1483
0
              + symbol->section->output_offset);
1484
0
    }
1485
0
  else
1486
0
    {
1487
0
      elf_symbol_type *elfsym = (elf_symbol_type *) symbol;
1488
1489
0
      if (symbol->section->owner != abfd
1490
0
    && abiversion (symbol->section->owner) >= 2)
1491
0
  {
1492
0
    unsigned int i;
1493
1494
0
    for (i = 0; i < symbol->section->owner->symcount; ++i)
1495
0
      {
1496
0
        asymbol *symdef = symbol->section->owner->outsymbols[i];
1497
1498
0
        if (strcmp (symdef->name, symbol->name) == 0)
1499
0
    {
1500
0
      elfsym = (elf_symbol_type *) symdef;
1501
0
      break;
1502
0
    }
1503
0
      }
1504
0
  }
1505
0
      reloc_entry->addend
1506
0
  += PPC64_LOCAL_ENTRY_OFFSET (elfsym->internal_elf_sym.st_other);
1507
0
    }
1508
0
  return bfd_reloc_continue;
1509
17
}
1510
1511
static bfd_reloc_status_type
1512
ppc64_elf_brtaken_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1513
       void *data, asection *input_section,
1514
       bfd *output_bfd, char **error_message)
1515
17
{
1516
17
  long insn;
1517
17
  enum elf_ppc64_reloc_type r_type;
1518
17
  bfd_size_type octets;
1519
  /* Assume 'at' branch hints.  */
1520
17
  bool is_isa_v2 = true;
1521
1522
  /* If this is a relocatable link (output_bfd test tells us), just
1523
     call the generic function.  Any adjustment will be done at final
1524
     link time.  */
1525
17
  if (output_bfd != NULL)
1526
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1527
0
          input_section, output_bfd, error_message);
1528
1529
17
  octets = reloc_entry->address * OCTETS_PER_BYTE (abfd, input_section);
1530
17
  if (!bfd_reloc_offset_in_range (reloc_entry->howto, abfd,
1531
17
          input_section, octets))
1532
0
    return bfd_reloc_outofrange;
1533
1534
17
  insn = bfd_get_32 (abfd, (bfd_byte *) data + octets);
1535
17
  insn &= ~(0x01 << 21);
1536
17
  r_type = reloc_entry->howto->type;
1537
17
  if (r_type == R_PPC64_ADDR14_BRTAKEN
1538
17
      || r_type == R_PPC64_REL14_BRTAKEN)
1539
9
    insn |= 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field.  */
1540
1541
17
  if (is_isa_v2)
1542
17
    {
1543
      /* Set 'a' bit.  This is 0b00010 in BO field for branch
1544
   on CR(BI) insns (BO == 001at or 011at), and 0b01000
1545
   for branch on CTR insns (BO == 1a00t or 1a01t).  */
1546
17
      if ((insn & (0x14 << 21)) == (0x04 << 21))
1547
1
  insn |= 0x02 << 21;
1548
16
      else if ((insn & (0x14 << 21)) == (0x10 << 21))
1549
6
  insn |= 0x08 << 21;
1550
10
      else
1551
10
  goto out;
1552
17
    }
1553
0
  else
1554
0
    {
1555
0
      bfd_vma target = 0;
1556
0
      bfd_vma from;
1557
1558
0
      if (!bfd_is_com_section (symbol->section))
1559
0
  target = symbol->value;
1560
0
      target += symbol->section->output_section->vma;
1561
0
      target += symbol->section->output_offset;
1562
0
      target += reloc_entry->addend;
1563
1564
0
      from = (reloc_entry->address
1565
0
        + input_section->output_offset
1566
0
        + input_section->output_section->vma);
1567
1568
      /* Invert 'y' bit if not the default.  */
1569
0
      if ((bfd_signed_vma) (target - from) < 0)
1570
0
  insn ^= 0x01 << 21;
1571
0
    }
1572
7
  bfd_put_32 (abfd, insn, (bfd_byte *) data + octets);
1573
17
 out:
1574
17
  return ppc64_elf_branch_reloc (abfd, reloc_entry, symbol, data,
1575
17
         input_section, output_bfd, error_message);
1576
7
}
1577
1578
static bfd_reloc_status_type
1579
ppc64_elf_sectoff_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1580
       void *data, asection *input_section,
1581
       bfd *output_bfd, char **error_message)
1582
0
{
1583
  /* If this is a relocatable link (output_bfd test tells us), just
1584
     call the generic function.  Any adjustment will be done at final
1585
     link time.  */
1586
0
  if (output_bfd != NULL)
1587
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1588
0
          input_section, output_bfd, error_message);
1589
1590
  /* Subtract the symbol section base address.  */
1591
0
  reloc_entry->addend -= symbol->section->output_section->vma;
1592
0
  return bfd_reloc_continue;
1593
0
}
1594
1595
static bfd_reloc_status_type
1596
ppc64_elf_sectoff_ha_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1597
          void *data, asection *input_section,
1598
          bfd *output_bfd, char **error_message)
1599
0
{
1600
  /* If this is a relocatable link (output_bfd test tells us), just
1601
     call the generic function.  Any adjustment will be done at final
1602
     link time.  */
1603
0
  if (output_bfd != NULL)
1604
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1605
0
          input_section, output_bfd, error_message);
1606
1607
  /* Subtract the symbol section base address.  */
1608
0
  reloc_entry->addend -= symbol->section->output_section->vma;
1609
1610
  /* Adjust the addend for sign extension of the low 16 bits.  */
1611
0
  reloc_entry->addend += 0x8000;
1612
0
  return bfd_reloc_continue;
1613
0
}
1614
1615
static bfd_reloc_status_type
1616
ppc64_elf_toc_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1617
         void *data, asection *input_section,
1618
         bfd *output_bfd, char **error_message)
1619
17
{
1620
17
  bfd_vma TOCstart;
1621
1622
  /* If this is a relocatable link (output_bfd test tells us), just
1623
     call the generic function.  Any adjustment will be done at final
1624
     link time.  */
1625
17
  if (output_bfd != NULL)
1626
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1627
0
          input_section, output_bfd, error_message);
1628
1629
17
  TOCstart = _bfd_get_gp_value (input_section->output_section->owner);
1630
17
  if (TOCstart == 0)
1631
10
    TOCstart = ppc64_elf_set_toc (NULL, input_section->output_section->owner);
1632
1633
  /* Subtract the TOC base address.  */
1634
17
  reloc_entry->addend -= TOCstart + TOC_BASE_OFF;
1635
17
  return bfd_reloc_continue;
1636
17
}
1637
1638
static bfd_reloc_status_type
1639
ppc64_elf_toc_ha_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1640
      void *data, asection *input_section,
1641
      bfd *output_bfd, char **error_message)
1642
0
{
1643
0
  bfd_vma TOCstart;
1644
1645
  /* If this is a relocatable link (output_bfd test tells us), just
1646
     call the generic function.  Any adjustment will be done at final
1647
     link time.  */
1648
0
  if (output_bfd != NULL)
1649
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1650
0
          input_section, output_bfd, error_message);
1651
1652
0
  TOCstart = _bfd_get_gp_value (input_section->output_section->owner);
1653
0
  if (TOCstart == 0)
1654
0
    TOCstart = ppc64_elf_set_toc (NULL, input_section->output_section->owner);
1655
1656
  /* Subtract the TOC base address.  */
1657
0
  reloc_entry->addend -= TOCstart + TOC_BASE_OFF;
1658
1659
  /* Adjust the addend for sign extension of the low 16 bits.  */
1660
0
  reloc_entry->addend += 0x8000;
1661
0
  return bfd_reloc_continue;
1662
0
}
1663
1664
static bfd_reloc_status_type
1665
ppc64_elf_toc64_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1666
           void *data, asection *input_section,
1667
           bfd *output_bfd, char **error_message)
1668
0
{
1669
0
  bfd_vma TOCstart;
1670
0
  bfd_size_type octets;
1671
1672
  /* If this is a relocatable link (output_bfd test tells us), just
1673
     call the generic function.  Any adjustment will be done at final
1674
     link time.  */
1675
0
  if (output_bfd != NULL)
1676
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1677
0
          input_section, output_bfd, error_message);
1678
1679
0
  octets = reloc_entry->address * OCTETS_PER_BYTE (abfd, input_section);
1680
0
  if (!bfd_reloc_offset_in_range (reloc_entry->howto, abfd,
1681
0
          input_section, octets))
1682
0
    return bfd_reloc_outofrange;
1683
1684
0
  TOCstart = _bfd_get_gp_value (input_section->output_section->owner);
1685
0
  if (TOCstart == 0)
1686
0
    TOCstart = ppc64_elf_set_toc (NULL, input_section->output_section->owner);
1687
1688
0
  bfd_put_64 (abfd, TOCstart + TOC_BASE_OFF, (bfd_byte *) data + octets);
1689
0
  return bfd_reloc_ok;
1690
0
}
1691
1692
static bfd_reloc_status_type
1693
ppc64_elf_prefix_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1694
      void *data, asection *input_section,
1695
      bfd *output_bfd, char **error_message)
1696
0
{
1697
0
  uint64_t insn;
1698
0
  bfd_vma targ;
1699
0
  bfd_size_type octets;
1700
1701
0
  if (output_bfd != NULL)
1702
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1703
0
          input_section, output_bfd, error_message);
1704
1705
0
  octets = reloc_entry->address * OCTETS_PER_BYTE (abfd, input_section);
1706
0
  if (!bfd_reloc_offset_in_range (reloc_entry->howto, abfd,
1707
0
          input_section, octets))
1708
0
    return bfd_reloc_outofrange;
1709
1710
0
  insn = bfd_get_32 (abfd, (bfd_byte *) data + octets);
1711
0
  insn <<= 32;
1712
0
  insn |= bfd_get_32 (abfd, (bfd_byte *) data + octets + 4);
1713
1714
0
  targ = (symbol->section->output_section->vma
1715
0
    + symbol->section->output_offset
1716
0
    + reloc_entry->addend);
1717
0
  if (!bfd_is_com_section (symbol->section))
1718
0
    targ += symbol->value;
1719
0
  if (reloc_entry->howto->type == R_PPC64_D34_HA30)
1720
0
    targ += 1ULL << 33;
1721
0
  if (reloc_entry->howto->pc_relative)
1722
0
    {
1723
0
      bfd_vma from = (reloc_entry->address
1724
0
          + input_section->output_offset
1725
0
          + input_section->output_section->vma);
1726
0
      targ -=from;
1727
0
    }
1728
0
  targ >>= reloc_entry->howto->rightshift;
1729
0
  insn &= ~reloc_entry->howto->dst_mask;
1730
0
  insn |= ((targ << 16) | (targ & 0xffff)) & reloc_entry->howto->dst_mask;
1731
0
  bfd_put_32 (abfd, insn >> 32, (bfd_byte *) data + octets);
1732
0
  bfd_put_32 (abfd, insn, (bfd_byte *) data + octets + 4);
1733
0
  if (reloc_entry->howto->complain_on_overflow == complain_overflow_signed
1734
0
      && (targ + (1ULL << (reloc_entry->howto->bitsize - 1))
1735
0
    >= 1ULL << reloc_entry->howto->bitsize))
1736
0
    return bfd_reloc_overflow;
1737
0
  return bfd_reloc_ok;
1738
0
}
1739
1740
static bfd_reloc_status_type
1741
ppc64_elf_unhandled_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
1742
         void *data, asection *input_section,
1743
         bfd *output_bfd, char **error_message)
1744
10
{
1745
  /* If this is a relocatable link (output_bfd test tells us), just
1746
     call the generic function.  Any adjustment will be done at final
1747
     link time.  */
1748
10
  if (output_bfd != NULL)
1749
0
    return bfd_elf_generic_reloc (abfd, reloc_entry, symbol, data,
1750
0
          input_section, output_bfd, error_message);
1751
1752
10
  if (error_message != NULL)
1753
10
    *error_message = bfd_asprintf (_("generic linker can't handle %s"),
1754
10
           reloc_entry->howto->name);
1755
10
  return bfd_reloc_dangerous;
1756
10
}
1757
1758
/* Track GOT entries needed for a given symbol.  We might need more
1759
   than one got entry per symbol.  */
1760
struct got_entry
1761
{
1762
  struct got_entry *next;
1763
1764
  /* The symbol addend that we'll be placing in the GOT.  */
1765
  bfd_vma addend;
1766
1767
  /* Unlike other ELF targets, we use separate GOT entries for the same
1768
     symbol referenced from different input files.  This is to support
1769
     automatic multiple TOC/GOT sections, where the TOC base can vary
1770
     from one input file to another.  After partitioning into TOC groups
1771
     we merge entries within the group.
1772
1773
     Point to the BFD owning this GOT entry.  */
1774
  bfd *owner;
1775
1776
  /* Zero for non-tls entries, or TLS_TLS and one of TLS_GD, TLS_LD,
1777
     TLS_TPREL or TLS_DTPREL for tls entries.  */
1778
  unsigned char tls_type;
1779
1780
  /* Non-zero if got.ent points to real entry.  */
1781
  unsigned char is_indirect;
1782
1783
  /* Reference count until size_dynamic_sections, GOT offset thereafter.  */
1784
  union
1785
  {
1786
    bfd_signed_vma refcount;
1787
    bfd_vma offset;
1788
    struct got_entry *ent;
1789
  } got;
1790
};
1791
1792
/* The same for PLT.  */
1793
struct plt_entry
1794
{
1795
  struct plt_entry *next;
1796
1797
  bfd_vma addend;
1798
1799
  union
1800
  {
1801
    bfd_signed_vma refcount;
1802
    bfd_vma offset;
1803
  } plt;
1804
};
1805
1806
struct ppc64_elf_obj_tdata
1807
{
1808
  struct elf_obj_tdata elf;
1809
1810
  /* Shortcuts to dynamic linker sections.  */
1811
  asection *got;
1812
  asection *relgot;
1813
1814
  /* Used during garbage collection.  We attach global symbols defined
1815
     on removed .opd entries to this section so that the sym is removed.  */
1816
  asection *deleted_section;
1817
1818
  /* TLS local dynamic got entry handling.  Support for multiple GOT
1819
     sections means we potentially need one of these for each input bfd.  */
1820
  struct got_entry tlsld_got;
1821
1822
  /* Nonzero if this bfd has small toc/got relocs, ie. that expect
1823
     the reloc to be in the range -32768 to 32767.  */
1824
  unsigned int has_small_toc_reloc : 1;
1825
1826
  /* Set if toc/got ha relocs detected not using r2, or lo reloc
1827
     instruction not one we handle.  */
1828
  unsigned int unexpected_toc_insn : 1;
1829
1830
  /* Set if PLT/GOT/TOC relocs that can be optimised are present in
1831
     this file.  */
1832
  unsigned int has_optrel : 1;
1833
};
1834
1835
#define ppc64_elf_tdata(bfd) \
1836
0
  ((struct ppc64_elf_obj_tdata *) (bfd)->tdata.any)
1837
1838
#define ppc64_tlsld_got(bfd) \
1839
0
  (&ppc64_elf_tdata (bfd)->tlsld_got)
1840
1841
/* Override the generic function because we store some extras.  */
1842
1843
static bool
1844
ppc64_elf_mkobject (bfd *abfd)
1845
33.2k
{
1846
33.2k
  return bfd_elf_allocate_object (abfd, sizeof (struct ppc64_elf_obj_tdata),
1847
33.2k
          PPC64_ELF_DATA);
1848
33.2k
}
1849
1850
/* Fix bad default arch selected for a 64 bit input bfd when the
1851
   default is 32 bit.  Also select arch based on apuinfo.  */
1852
1853
static bool
1854
ppc64_elf_object_p (bfd *abfd)
1855
68
{
1856
68
  if (!abfd->arch_info->the_default)
1857
0
    return true;
1858
1859
68
  if (abfd->arch_info->bits_per_word == 32)
1860
0
    {
1861
0
      Elf_Internal_Ehdr *i_ehdr = elf_elfheader (abfd);
1862
1863
0
      if (i_ehdr->e_ident[EI_CLASS] == ELFCLASS64)
1864
0
  {
1865
    /* Relies on arch after 32 bit default being 64 bit default.  */
1866
0
    abfd->arch_info = abfd->arch_info->next;
1867
0
    BFD_ASSERT (abfd->arch_info->bits_per_word == 64);
1868
0
  }
1869
0
    }
1870
68
  return _bfd_elf_ppc_set_arch (abfd);
1871
68
}
1872
1873
/* Support for core dump NOTE sections.  */
1874
1875
static bool
1876
ppc64_elf_grok_prstatus (bfd *abfd, Elf_Internal_Note *note)
1877
0
{
1878
0
  size_t offset, size;
1879
1880
0
  if (note->descsz != 504)
1881
0
    return false;
1882
1883
  /* pr_cursig */
1884
0
  elf_tdata (abfd)->core->signal = bfd_get_16 (abfd, note->descdata + 12);
1885
1886
  /* pr_pid */
1887
0
  elf_tdata (abfd)->core->lwpid = bfd_get_32 (abfd, note->descdata + 32);
1888
1889
  /* pr_reg */
1890
0
  offset = 112;
1891
0
  size = 384;
1892
1893
  /* Make a ".reg/999" section.  */
1894
0
  return _bfd_elfcore_make_pseudosection (abfd, ".reg",
1895
0
            size, note->descpos + offset);
1896
0
}
1897
1898
static bool
1899
ppc64_elf_grok_psinfo (bfd *abfd, Elf_Internal_Note *note)
1900
0
{
1901
0
  if (note->descsz != 136)
1902
0
    return false;
1903
1904
0
  elf_tdata (abfd)->core->pid
1905
0
    = bfd_get_32 (abfd, note->descdata + 24);
1906
0
  elf_tdata (abfd)->core->program
1907
0
    = _bfd_elfcore_strndup (abfd, note->descdata + 40, 16);
1908
0
  elf_tdata (abfd)->core->command
1909
0
    = _bfd_elfcore_strndup (abfd, note->descdata + 56, 80);
1910
1911
0
  return true;
1912
0
}
1913
1914
static char *
1915
ppc64_elf_write_core_note (bfd *abfd, char *buf, int *bufsiz, int note_type,
1916
         ...)
1917
0
{
1918
0
  switch (note_type)
1919
0
    {
1920
0
    default:
1921
0
      return NULL;
1922
1923
0
    case NT_PRPSINFO:
1924
0
      {
1925
0
  char data[136] ATTRIBUTE_NONSTRING;
1926
0
  va_list ap;
1927
1928
0
  va_start (ap, note_type);
1929
0
  memset (data, 0, sizeof (data));
1930
0
  strncpy (data + 40, va_arg (ap, const char *), 16);
1931
#if GCC_VERSION == 8000 || GCC_VERSION == 8001
1932
  DIAGNOSTIC_PUSH;
1933
  /* GCC 8.0 and 8.1 warn about 80 equals destination size with
1934
     -Wstringop-truncation:
1935
     https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85643
1936
   */
1937
  DIAGNOSTIC_IGNORE_STRINGOP_TRUNCATION;
1938
#endif
1939
0
  strncpy (data + 56, va_arg (ap, const char *), 80);
1940
#if GCC_VERSION == 8000 || GCC_VERSION == 8001
1941
  DIAGNOSTIC_POP;
1942
#endif
1943
0
  va_end (ap);
1944
0
  return elfcore_write_note (abfd, buf, bufsiz,
1945
0
           "CORE", note_type, data, sizeof (data));
1946
0
      }
1947
1948
0
    case NT_PRSTATUS:
1949
0
      {
1950
0
  char data[504];
1951
0
  va_list ap;
1952
0
  long pid;
1953
0
  int cursig;
1954
0
  const void *greg;
1955
1956
0
  va_start (ap, note_type);
1957
0
  memset (data, 0, 112);
1958
0
  pid = va_arg (ap, long);
1959
0
  bfd_put_32 (abfd, pid, data + 32);
1960
0
  cursig = va_arg (ap, int);
1961
0
  bfd_put_16 (abfd, cursig, data + 12);
1962
0
  greg = va_arg (ap, const void *);
1963
0
  memcpy (data + 112, greg, 384);
1964
0
  memset (data + 496, 0, 8);
1965
0
  va_end (ap);
1966
0
  return elfcore_write_note (abfd, buf, bufsiz,
1967
0
           "CORE", note_type, data, sizeof (data));
1968
0
      }
1969
0
    }
1970
0
}
1971
1972
/* Add extra PPC sections.  */
1973
1974
static const struct bfd_elf_special_section ppc64_elf_special_sections[] =
1975
{
1976
  { STRING_COMMA_LEN (".plt"),    0, SHT_NOBITS,   0 },
1977
  { STRING_COMMA_LEN (".sbss"),  -2, SHT_NOBITS,   SHF_ALLOC + SHF_WRITE },
1978
  { STRING_COMMA_LEN (".sdata"), -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
1979
  { STRING_COMMA_LEN (".toc"),    0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
1980
  { STRING_COMMA_LEN (".toc1"),   0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
1981
  { STRING_COMMA_LEN (".tocbss"), 0, SHT_NOBITS,   SHF_ALLOC + SHF_WRITE },
1982
  { NULL,         0,  0, 0,      0 }
1983
};
1984
1985
enum _ppc64_sec_type {
1986
  sec_normal = 0,
1987
  sec_opd = 1,
1988
  sec_toc = 2,
1989
  sec_stub = 3
1990
};
1991
1992
struct _ppc64_elf_section_data
1993
{
1994
  struct bfd_elf_section_data elf;
1995
1996
  union
1997
  {
1998
    /* An array with one entry for each opd function descriptor,
1999
       and some spares since opd entries may be either 16 or 24 bytes.  */
2000
0
#define OPD_NDX(OFF) ((OFF) >> 4)
2001
    struct _opd_sec_data
2002
    {
2003
      /* Points to the function code section for local opd entries.  */
2004
      asection **func_sec;
2005
2006
      /* After editing .opd, adjust references to opd local syms.  */
2007
      long *adjust;
2008
2009
      union
2010
      {
2011
  /* A copy of relocs before they are modified for --emit-relocs.  */
2012
  Elf_Internal_Rela *relocs;
2013
2014
  /* Section contents.  */
2015
  bfd_byte *contents;
2016
      } u;
2017
    } opd;
2018
2019
    /* An array for toc sections, indexed by offset/8.  */
2020
    struct _toc_sec_data
2021
    {
2022
      /* Specifies the relocation symbol index used at a given toc offset.  */
2023
      unsigned *symndx;
2024
2025
      /* And the relocation addend.  */
2026
      bfd_vma *add;
2027
    } toc;
2028
2029
    /* Stub debugging.  */
2030
    struct ppc_stub_hash_entry *last_ent;
2031
  } u;
2032
2033
  enum _ppc64_sec_type sec_type:2;
2034
2035
  /* Flag set when small branches are detected.  Used to
2036
     select suitable defaults for the stub group size.  */
2037
  unsigned int has_14bit_branch:1;
2038
2039
  /* Flag set when PLTCALL relocs are detected.  */
2040
  unsigned int has_pltcall:1;
2041
2042
  /* Flag set when section has PLT/GOT/TOC relocations that can be
2043
     optimised.  */
2044
  unsigned int has_optrel:1;
2045
};
2046
2047
#define ppc64_elf_section_data(sec) \
2048
0
  ((struct _ppc64_elf_section_data *) elf_section_data (sec))
2049
2050
static bool
2051
ppc64_elf_new_section_hook (bfd *abfd, asection *sec)
2052
1.31k
{
2053
1.31k
  if (!sec->used_by_bfd)
2054
1.31k
    {
2055
1.31k
      struct _ppc64_elf_section_data *sdata;
2056
1.31k
      size_t amt = sizeof (*sdata);
2057
2058
1.31k
      sdata = bfd_zalloc (abfd, amt);
2059
1.31k
      if (sdata == NULL)
2060
0
  return false;
2061
1.31k
      sec->used_by_bfd = sdata;
2062
1.31k
    }
2063
2064
1.31k
  return _bfd_elf_new_section_hook (abfd, sec);
2065
1.31k
}
2066
2067
static bool
2068
ppc64_elf_section_flags (const Elf_Internal_Shdr *hdr)
2069
1.31k
{
2070
1.31k
  const char *name = hdr->bfd_section->name;
2071
2072
1.31k
  if (startswith (name, ".sbss")
2073
1.31k
      || startswith (name, ".sdata"))
2074
4
    hdr->bfd_section->flags |= SEC_SMALL_DATA;
2075
2076
1.31k
  return true;
2077
1.31k
}
2078
2079
static struct _opd_sec_data *
2080
get_opd_info (asection * sec)
2081
0
{
2082
0
  if (sec != NULL
2083
0
      && ppc64_elf_section_data (sec) != NULL
2084
0
      && ppc64_elf_section_data (sec)->sec_type == sec_opd)
2085
0
    return &ppc64_elf_section_data (sec)->u.opd;
2086
0
  return NULL;
2087
0
}
2088

2089
/* Parameters for the qsort hook.  */
2090
static bool synthetic_relocatable;
2091
static const asection *synthetic_opd;
2092
2093
/* qsort comparison function for ppc64_elf_get_synthetic_symtab.  */
2094
2095
static int
2096
compare_symbols (const void *ap, const void *bp)
2097
0
{
2098
0
  const asymbol *a = *(const asymbol **) ap;
2099
0
  const asymbol *b = *(const asymbol **) bp;
2100
2101
  /* Section symbols first.  */
2102
0
  if ((a->flags & BSF_SECTION_SYM) && !(b->flags & BSF_SECTION_SYM))
2103
0
    return -1;
2104
0
  if (!(a->flags & BSF_SECTION_SYM) && (b->flags & BSF_SECTION_SYM))
2105
0
    return 1;
2106
2107
  /* then .opd symbols.  */
2108
0
  if (synthetic_opd != NULL)
2109
0
    {
2110
0
      if (strcmp (a->section->name, ".opd") == 0
2111
0
    && strcmp (b->section->name, ".opd") != 0)
2112
0
  return -1;
2113
0
      if (strcmp (a->section->name, ".opd") != 0
2114
0
    && strcmp (b->section->name, ".opd") == 0)
2115
0
  return 1;
2116
0
    }
2117
2118
  /* then other code symbols.  */
2119
0
  if (((a->section->flags & (SEC_CODE | SEC_ALLOC | SEC_THREAD_LOCAL))
2120
0
       == (SEC_CODE | SEC_ALLOC))
2121
0
      && ((b->section->flags & (SEC_CODE | SEC_ALLOC | SEC_THREAD_LOCAL))
2122
0
    != (SEC_CODE | SEC_ALLOC)))
2123
0
    return -1;
2124
2125
0
  if (((a->section->flags & (SEC_CODE | SEC_ALLOC | SEC_THREAD_LOCAL))
2126
0
       != (SEC_CODE | SEC_ALLOC))
2127
0
      && ((b->section->flags & (SEC_CODE | SEC_ALLOC | SEC_THREAD_LOCAL))
2128
0
    == (SEC_CODE | SEC_ALLOC)))
2129
0
    return 1;
2130
2131
0
  if (synthetic_relocatable)
2132
0
    {
2133
0
      if (a->section->id < b->section->id)
2134
0
  return -1;
2135
2136
0
      if (a->section->id > b->section->id)
2137
0
  return 1;
2138
0
    }
2139
2140
0
  if (a->value + a->section->vma < b->value + b->section->vma)
2141
0
    return -1;
2142
2143
0
  if (a->value + a->section->vma > b->value + b->section->vma)
2144
0
    return 1;
2145
2146
  /* For syms with the same value, prefer strong dynamic global function
2147
     syms over other syms.  */
2148
0
  if ((a->flags & BSF_GLOBAL) != 0 && (b->flags & BSF_GLOBAL) == 0)
2149
0
    return -1;
2150
2151
0
  if ((a->flags & BSF_GLOBAL) == 0 && (b->flags & BSF_GLOBAL) != 0)
2152
0
    return 1;
2153
2154
0
  if ((a->flags & BSF_FUNCTION) != 0 && (b->flags & BSF_FUNCTION) == 0)
2155
0
    return -1;
2156
2157
0
  if ((a->flags & BSF_FUNCTION) == 0 && (b->flags & BSF_FUNCTION) != 0)
2158
0
    return 1;
2159
2160
0
  if ((a->flags & BSF_WEAK) == 0 && (b->flags & BSF_WEAK) != 0)
2161
0
    return -1;
2162
2163
0
  if ((a->flags & BSF_WEAK) != 0 && (b->flags & BSF_WEAK) == 0)
2164
0
    return 1;
2165
2166
0
  if ((a->flags & BSF_DYNAMIC) != 0 && (b->flags & BSF_DYNAMIC) == 0)
2167
0
    return -1;
2168
2169
0
  if ((a->flags & BSF_DYNAMIC) == 0 && (b->flags & BSF_DYNAMIC) != 0)
2170
0
    return 1;
2171
2172
  /* Finally, sort on where the symbol is in memory.  The symbols will
2173
     be in at most two malloc'd blocks, one for static syms, one for
2174
     dynamic syms, and we distinguish the two blocks above by testing
2175
     BSF_DYNAMIC.  Since we are sorting the symbol pointers which were
2176
     originally in the same order as the symbols (and we're not
2177
     sorting the symbols themselves), this ensures a stable sort.  */
2178
0
  if (a < b)
2179
0
    return -1;
2180
0
  if (a > b)
2181
0
    return 1;
2182
0
  return 0;
2183
0
}
2184
2185
/* Search SYMS for a symbol of the given VALUE.  */
2186
2187
static asymbol *
2188
sym_exists_at (asymbol **syms, size_t lo, size_t hi, unsigned int id,
2189
         bfd_vma value)
2190
0
{
2191
0
  size_t mid;
2192
2193
0
  if (id == (unsigned) -1)
2194
0
    {
2195
0
      while (lo < hi)
2196
0
  {
2197
0
    mid = (lo + hi) >> 1;
2198
0
    if (syms[mid]->value + syms[mid]->section->vma < value)
2199
0
      lo = mid + 1;
2200
0
    else if (syms[mid]->value + syms[mid]->section->vma > value)
2201
0
      hi = mid;
2202
0
    else
2203
0
      return syms[mid];
2204
0
  }
2205
0
    }
2206
0
  else
2207
0
    {
2208
0
      while (lo < hi)
2209
0
  {
2210
0
    mid = (lo + hi) >> 1;
2211
0
    if (syms[mid]->section->id < id)
2212
0
      lo = mid + 1;
2213
0
    else if (syms[mid]->section->id > id)
2214
0
      hi = mid;
2215
0
    else if (syms[mid]->value < value)
2216
0
      lo = mid + 1;
2217
0
    else if (syms[mid]->value > value)
2218
0
      hi = mid;
2219
0
    else
2220
0
      return syms[mid];
2221
0
  }
2222
0
    }
2223
0
  return NULL;
2224
0
}
2225
2226
static bool
2227
section_covers_vma (bfd *abfd ATTRIBUTE_UNUSED, asection *section, void *ptr)
2228
0
{
2229
0
  bfd_vma vma = *(bfd_vma *) ptr;
2230
0
  return ((section->flags & SEC_ALLOC) != 0
2231
0
    && section->vma <= vma
2232
0
    && vma < section->vma + section->size);
2233
0
}
2234
2235
/* Create synthetic symbols, effectively restoring "dot-symbol" function
2236
   entry syms.  Also generate @plt symbols for the glink branch table.
2237
   Returns count of synthetic symbols in RET or -1 on error.  */
2238
2239
static long
2240
ppc64_elf_get_synthetic_symtab (bfd *abfd,
2241
        long static_count, asymbol **static_syms,
2242
        long dyn_count, asymbol **dyn_syms,
2243
        asymbol **ret)
2244
0
{
2245
0
  asymbol *s;
2246
0
  size_t i, j, count;
2247
0
  char *names;
2248
0
  size_t symcount, codesecsym, codesecsymend, secsymend, opdsymend;
2249
0
  asection *opd = NULL;
2250
0
  bool relocatable = (abfd->flags & (EXEC_P | DYNAMIC)) == 0;
2251
0
  asymbol **syms;
2252
0
  int abi = abiversion (abfd);
2253
2254
0
  *ret = NULL;
2255
2256
0
  if (abi < 2)
2257
0
    {
2258
0
      opd = bfd_get_section_by_name (abfd, ".opd");
2259
0
      if (opd == NULL && abi == 1)
2260
0
  return 0;
2261
0
    }
2262
2263
0
  syms = NULL;
2264
0
  codesecsym = 0;
2265
0
  codesecsymend = 0;
2266
0
  secsymend = 0;
2267
0
  opdsymend = 0;
2268
0
  symcount = 0;
2269
0
  if (opd != NULL)
2270
0
    {
2271
0
      symcount = static_count;
2272
0
      if (!relocatable)
2273
0
  symcount += dyn_count;
2274
0
      if (symcount == 0)
2275
0
  return 0;
2276
2277
0
      syms = bfd_malloc ((symcount + 1) * sizeof (*syms));
2278
0
      if (syms == NULL)
2279
0
  return -1;
2280
2281
0
      if (!relocatable && static_count != 0 && dyn_count != 0)
2282
0
  {
2283
    /* Use both symbol tables.  */
2284
0
    memcpy (syms, static_syms, static_count * sizeof (*syms));
2285
0
    memcpy (syms + static_count, dyn_syms,
2286
0
      (dyn_count + 1) * sizeof (*syms));
2287
0
  }
2288
0
      else if (!relocatable && static_count == 0)
2289
0
  memcpy (syms, dyn_syms, (symcount + 1) * sizeof (*syms));
2290
0
      else
2291
0
  memcpy (syms, static_syms, (symcount + 1) * sizeof (*syms));
2292
2293
      /* Trim uninteresting symbols.  Interesting symbols are section,
2294
   function, and notype symbols.  */
2295
0
      for (i = 0, j = 0; i < symcount; ++i)
2296
0
  if ((syms[i]->flags & (BSF_FILE | BSF_OBJECT | BSF_THREAD_LOCAL
2297
0
             | BSF_RELC | BSF_SRELC)) == 0)
2298
0
    syms[j++] = syms[i];
2299
0
      symcount = j;
2300
2301
0
      synthetic_relocatable = relocatable;
2302
0
      synthetic_opd = opd;
2303
0
      qsort (syms, symcount, sizeof (*syms), compare_symbols);
2304
2305
0
      if (!relocatable && symcount > 1)
2306
0
  {
2307
    /* Trim duplicate syms, since we may have merged the normal
2308
       and dynamic symbols.  Actually, we only care about syms
2309
       that have different values, so trim any with the same
2310
       value.  Don't consider ifunc and ifunc resolver symbols
2311
       duplicates however, because GDB wants to know whether a
2312
       text symbol is an ifunc resolver.  */
2313
0
    for (i = 1, j = 1; i < symcount; ++i)
2314
0
      {
2315
0
        const asymbol *s0 = syms[i - 1];
2316
0
        const asymbol *s1 = syms[i];
2317
2318
0
        if ((s0->value + s0->section->vma
2319
0
       != s1->value + s1->section->vma)
2320
0
      || ((s0->flags & BSF_GNU_INDIRECT_FUNCTION)
2321
0
          != (s1->flags & BSF_GNU_INDIRECT_FUNCTION)))
2322
0
    syms[j++] = syms[i];
2323
0
      }
2324
0
    symcount = j;
2325
0
  }
2326
2327
0
      i = 0;
2328
      /* Note that here and in compare_symbols we can't compare opd and
2329
   sym->section directly.  With separate debug info files, the
2330
   symbols will be extracted from the debug file while abfd passed
2331
   to this function is the real binary.  */
2332
0
      if ((syms[i]->flags & BSF_SECTION_SYM) != 0
2333
0
    && strcmp (syms[i]->section->name, ".opd") == 0)
2334
0
  ++i;
2335
0
      codesecsym = i;
2336
2337
0
      for (; i < symcount; ++i)
2338
0
  if (((syms[i]->section->flags & (SEC_CODE | SEC_ALLOC
2339
0
           | SEC_THREAD_LOCAL))
2340
0
       != (SEC_CODE | SEC_ALLOC))
2341
0
      || (syms[i]->flags & BSF_SECTION_SYM) == 0)
2342
0
    break;
2343
0
      codesecsymend = i;
2344
2345
0
      for (; i < symcount; ++i)
2346
0
  if ((syms[i]->flags & BSF_SECTION_SYM) == 0)
2347
0
    break;
2348
0
      secsymend = i;
2349
2350
0
      for (; i < symcount; ++i)
2351
0
  if (strcmp (syms[i]->section->name, ".opd") != 0)
2352
0
    break;
2353
0
      opdsymend = i;
2354
2355
0
      for (; i < symcount; ++i)
2356
0
  if (((syms[i]->section->flags
2357
0
        & (SEC_CODE | SEC_ALLOC | SEC_THREAD_LOCAL)))
2358
0
      != (SEC_CODE | SEC_ALLOC))
2359
0
    break;
2360
0
      symcount = i;
2361
0
    }
2362
0
  count = 0;
2363
2364
0
  if (relocatable)
2365
0
    {
2366
0
      bool (*slurp_relocs) (bfd *, asection *, asymbol **, bool);
2367
0
      arelent *r;
2368
0
      size_t size;
2369
0
      size_t relcount;
2370
2371
0
      if (opdsymend == secsymend)
2372
0
  goto done;
2373
2374
0
      slurp_relocs = get_elf_backend_data (abfd)->s->slurp_reloc_table;
2375
0
      relcount = (opd->flags & SEC_RELOC) ? opd->reloc_count : 0;
2376
0
      if (relcount == 0)
2377
0
  goto done;
2378
2379
0
      if (!(*slurp_relocs) (abfd, opd, static_syms, false))
2380
0
  {
2381
0
    count = -1;
2382
0
    goto done;
2383
0
  }
2384
2385
0
      size = 0;
2386
0
      for (i = secsymend, r = opd->relocation; i < opdsymend; ++i)
2387
0
  {
2388
0
    asymbol *sym;
2389
2390
0
    while (r < opd->relocation + relcount
2391
0
     && r->address < syms[i]->value + opd->vma)
2392
0
      ++r;
2393
2394
0
    if (r == opd->relocation + relcount)
2395
0
      break;
2396
2397
0
    if (r->address != syms[i]->value + opd->vma)
2398
0
      continue;
2399
2400
0
    if (r->howto->type != R_PPC64_ADDR64)
2401
0
      continue;
2402
2403
0
    sym = *r->sym_ptr_ptr;
2404
0
    if (!sym_exists_at (syms, opdsymend, symcount,
2405
0
            sym->section->id, sym->value + r->addend))
2406
0
      {
2407
0
        ++count;
2408
0
        size += sizeof (asymbol);
2409
0
        size += strlen (syms[i]->name) + 2;
2410
0
      }
2411
0
  }
2412
2413
0
      if (size == 0)
2414
0
  goto done;
2415
0
      s = *ret = bfd_malloc (size);
2416
0
      if (s == NULL)
2417
0
  {
2418
0
    count = -1;
2419
0
    goto done;
2420
0
  }
2421
2422
0
      names = (char *) (s + count);
2423
2424
0
      for (i = secsymend, r = opd->relocation; i < opdsymend; ++i)
2425
0
  {
2426
0
    asymbol *sym;
2427
2428
0
    while (r < opd->relocation + relcount
2429
0
     && r->address < syms[i]->value + opd->vma)
2430
0
      ++r;
2431
2432
0
    if (r == opd->relocation + relcount)
2433
0
      break;
2434
2435
0
    if (r->address != syms[i]->value + opd->vma)
2436
0
      continue;
2437
2438
0
    if (r->howto->type != R_PPC64_ADDR64)
2439
0
      continue;
2440
2441
0
    sym = *r->sym_ptr_ptr;
2442
0
    if (!sym_exists_at (syms, opdsymend, symcount,
2443
0
            sym->section->id, sym->value + r->addend))
2444
0
      {
2445
0
        size_t len;
2446
2447
0
        *s = *syms[i];
2448
0
        s->flags |= BSF_SYNTHETIC;
2449
0
        s->section = sym->section;
2450
0
        s->value = sym->value + r->addend;
2451
0
        s->name = names;
2452
0
        *names++ = '.';
2453
0
        len = strlen (syms[i]->name);
2454
0
        memcpy (names, syms[i]->name, len + 1);
2455
0
        names += len + 1;
2456
        /* Have udata.p point back to the original symbol this
2457
     synthetic symbol was derived from.  */
2458
0
        s->udata.p = syms[i];
2459
0
        s++;
2460
0
      }
2461
0
  }
2462
0
    }
2463
0
  else
2464
0
    {
2465
0
      bool (*slurp_relocs) (bfd *, asection *, asymbol **, bool);
2466
0
      bfd_byte *contents = NULL;
2467
0
      size_t size;
2468
0
      size_t plt_count = 0;
2469
0
      bfd_vma glink_vma = 0, resolv_vma = 0;
2470
0
      asection *dynamic, *glink = NULL, *relplt = NULL;
2471
0
      arelent *p;
2472
2473
0
      if (opd != NULL
2474
0
    && ((opd->flags & SEC_HAS_CONTENTS) == 0
2475
0
        || !bfd_malloc_and_get_section (abfd, opd, &contents)))
2476
0
  {
2477
0
  free_contents_and_exit_err:
2478
0
    count = -1;
2479
0
  free_contents_and_exit:
2480
0
    free (contents);
2481
0
    goto done;
2482
0
  }
2483
2484
0
      size = 0;
2485
0
      for (i = secsymend; i < opdsymend; ++i)
2486
0
  {
2487
0
    bfd_vma ent;
2488
2489
    /* Ignore bogus symbols.  */
2490
0
    if (syms[i]->value > opd->size - 8)
2491
0
      continue;
2492
2493
0
    ent = bfd_get_64 (abfd, contents + syms[i]->value);
2494
0
    if (!sym_exists_at (syms, opdsymend, symcount, -1, ent))
2495
0
      {
2496
0
        ++count;
2497
0
        size += sizeof (asymbol);
2498
0
        size += strlen (syms[i]->name) + 2;
2499
0
      }
2500
0
  }
2501
2502
      /* Get start of .glink stubs from DT_PPC64_GLINK.  */
2503
0
      if (dyn_count != 0
2504
0
    && (dynamic = bfd_get_section_by_name (abfd, ".dynamic")) != NULL)
2505
0
  {
2506
0
    bfd_byte *dynbuf, *extdyn, *extdynend;
2507
0
    size_t extdynsize;
2508
0
    void (*swap_dyn_in) (bfd *, const void *, Elf_Internal_Dyn *);
2509
2510
0
    if ((dynamic->flags & SEC_HAS_CONTENTS) == 0
2511
0
        || !bfd_malloc_and_get_section (abfd, dynamic, &dynbuf))
2512
0
      goto free_contents_and_exit_err;
2513
2514
0
    extdynsize = get_elf_backend_data (abfd)->s->sizeof_dyn;
2515
0
    swap_dyn_in = get_elf_backend_data (abfd)->s->swap_dyn_in;
2516
2517
0
    for (extdyn = dynbuf, extdynend = dynbuf + dynamic->size;
2518
0
         (size_t) (extdynend - extdyn) >= extdynsize;
2519
0
         extdyn += extdynsize)
2520
0
      {
2521
0
        Elf_Internal_Dyn dyn;
2522
0
        (*swap_dyn_in) (abfd, extdyn, &dyn);
2523
2524
0
        if (dyn.d_tag == DT_NULL)
2525
0
    break;
2526
2527
0
        if (dyn.d_tag == DT_PPC64_GLINK)
2528
0
    {
2529
      /* The first glink stub starts at DT_PPC64_GLINK plus 32.
2530
         See comment in ppc64_elf_finish_dynamic_sections. */
2531
0
      glink_vma = dyn.d_un.d_val + 8 * 4;
2532
      /* The .glink section usually does not survive the final
2533
         link; search for the section (usually .text) where the
2534
         glink stubs now reside.  */
2535
0
      glink = bfd_sections_find_if (abfd, section_covers_vma,
2536
0
            &glink_vma);
2537
0
      break;
2538
0
    }
2539
0
      }
2540
2541
0
    free (dynbuf);
2542
0
  }
2543
2544
0
      if (glink != NULL)
2545
0
  {
2546
    /* Determine __glink trampoline by reading the relative branch
2547
       from the first glink stub.  */
2548
0
    bfd_byte buf[4];
2549
0
    unsigned int off = 0;
2550
2551
0
    while (bfd_get_section_contents (abfd, glink, buf,
2552
0
             glink_vma + off - glink->vma, 4))
2553
0
      {
2554
0
        unsigned int insn = bfd_get_32 (abfd, buf);
2555
0
        insn ^= B_DOT;
2556
0
        if ((insn & ~0x3fffffc) == 0)
2557
0
    {
2558
0
      resolv_vma
2559
0
        = glink_vma + off + (insn ^ 0x2000000) - 0x2000000;
2560
0
      break;
2561
0
    }
2562
0
        off += 4;
2563
0
        if (off > 4)
2564
0
    break;
2565
0
      }
2566
2567
0
    if (resolv_vma)
2568
0
      size += sizeof (asymbol) + sizeof ("__glink_PLTresolve");
2569
2570
0
    relplt = bfd_get_section_by_name (abfd, ".rela.plt");
2571
0
    if (relplt != NULL)
2572
0
      {
2573
0
        slurp_relocs = get_elf_backend_data (abfd)->s->slurp_reloc_table;
2574
0
        if (!(*slurp_relocs) (abfd, relplt, dyn_syms, true))
2575
0
    goto free_contents_and_exit_err;
2576
2577
0
        plt_count = NUM_SHDR_ENTRIES (&elf_section_data (relplt)->this_hdr);
2578
0
        size += plt_count * sizeof (asymbol);
2579
2580
0
        p = relplt->relocation;
2581
0
        for (i = 0; i < plt_count; i++, p++)
2582
0
    {
2583
0
      size += strlen ((*p->sym_ptr_ptr)->name) + sizeof ("@plt");
2584
0
      if (p->addend != 0)
2585
0
        size += sizeof ("+0x") - 1 + 16;
2586
0
    }
2587
0
      }
2588
0
  }
2589
2590
0
      if (size == 0)
2591
0
  goto free_contents_and_exit;
2592
0
      s = *ret = bfd_malloc (size);
2593
0
      if (s == NULL)
2594
0
  goto free_contents_and_exit_err;
2595
2596
0
      names = (char *) (s + count + plt_count + (resolv_vma != 0));
2597
2598
0
      for (i = secsymend; i < opdsymend; ++i)
2599
0
  {
2600
0
    bfd_vma ent;
2601
2602
0
    if (syms[i]->value > opd->size - 8)
2603
0
      continue;
2604
2605
0
    ent = bfd_get_64 (abfd, contents + syms[i]->value);
2606
0
    if (!sym_exists_at (syms, opdsymend, symcount, -1, ent))
2607
0
      {
2608
0
        size_t lo, hi;
2609
0
        size_t len;
2610
0
        asection *sec = abfd->sections;
2611
2612
0
        *s = *syms[i];
2613
0
        lo = codesecsym;
2614
0
        hi = codesecsymend;
2615
0
        while (lo < hi)
2616
0
    {
2617
0
      size_t mid = (lo + hi) >> 1;
2618
0
      if (syms[mid]->section->vma < ent)
2619
0
        lo = mid + 1;
2620
0
      else if (syms[mid]->section->vma > ent)
2621
0
        hi = mid;
2622
0
      else
2623
0
        {
2624
0
          sec = syms[mid]->section;
2625
0
          break;
2626
0
        }
2627
0
    }
2628
2629
0
        if (lo >= hi && lo > codesecsym)
2630
0
    sec = syms[lo - 1]->section;
2631
2632
0
        for (; sec != NULL; sec = sec->next)
2633
0
    {
2634
0
      if (sec->vma > ent)
2635
0
        break;
2636
      /* SEC_LOAD may not be set if SEC is from a separate debug
2637
         info file.  */
2638
0
      if ((sec->flags & SEC_ALLOC) == 0)
2639
0
        break;
2640
0
      if ((sec->flags & SEC_CODE) != 0)
2641
0
        s->section = sec;
2642
0
    }
2643
0
        s->flags |= BSF_SYNTHETIC;
2644
0
        s->value = ent - s->section->vma;
2645
0
        s->name = names;
2646
0
        *names++ = '.';
2647
0
        len = strlen (syms[i]->name);
2648
0
        memcpy (names, syms[i]->name, len + 1);
2649
0
        names += len + 1;
2650
        /* Have udata.p point back to the original symbol this
2651
     synthetic symbol was derived from.  */
2652
0
        s->udata.p = syms[i];
2653
0
        s++;
2654
0
      }
2655
0
  }
2656
0
      free (contents);
2657
2658
0
      if (glink != NULL && relplt != NULL)
2659
0
  {
2660
0
    if (resolv_vma)
2661
0
      {
2662
        /* Add a symbol for the main glink trampoline.  */
2663
0
        memset (s, 0, sizeof *s);
2664
0
        s->the_bfd = abfd;
2665
0
        s->flags = BSF_GLOBAL | BSF_SYNTHETIC;
2666
0
        s->section = glink;
2667
0
        s->value = resolv_vma - glink->vma;
2668
0
        s->name = names;
2669
0
        memcpy (names, "__glink_PLTresolve",
2670
0
          sizeof ("__glink_PLTresolve"));
2671
0
        names += sizeof ("__glink_PLTresolve");
2672
0
        s++;
2673
0
        count++;
2674
0
      }
2675
2676
    /* FIXME: It would be very much nicer to put sym@plt on the
2677
       stub rather than on the glink branch table entry.  The
2678
       objdump disassembler would then use a sensible symbol
2679
       name on plt calls.  The difficulty in doing so is
2680
       a) finding the stubs, and,
2681
       b) matching stubs against plt entries, and,
2682
       c) there can be multiple stubs for a given plt entry.
2683
2684
       Solving (a) could be done by code scanning, but older
2685
       ppc64 binaries used different stubs to current code.
2686
       (b) is the tricky one since you need to known the toc
2687
       pointer for at least one function that uses a pic stub to
2688
       be able to calculate the plt address referenced.
2689
       (c) means gdb would need to set multiple breakpoints (or
2690
       find the glink branch itself) when setting breakpoints
2691
       for pending shared library loads.  */
2692
0
    p = relplt->relocation;
2693
0
    for (i = 0; i < plt_count; i++, p++)
2694
0
      {
2695
0
        size_t len;
2696
2697
0
        *s = **p->sym_ptr_ptr;
2698
        /* Undefined syms won't have BSF_LOCAL or BSF_GLOBAL set.  Since
2699
     we are defining a symbol, ensure one of them is set.  */
2700
0
        if ((s->flags & BSF_LOCAL) == 0)
2701
0
    s->flags |= BSF_GLOBAL;
2702
0
        s->flags |= BSF_SYNTHETIC;
2703
0
        s->section = glink;
2704
0
        s->value = glink_vma - glink->vma;
2705
0
        s->name = names;
2706
0
        s->udata.p = NULL;
2707
0
        len = strlen ((*p->sym_ptr_ptr)->name);
2708
0
        memcpy (names, (*p->sym_ptr_ptr)->name, len);
2709
0
        names += len;
2710
0
        if (p->addend != 0)
2711
0
    {
2712
0
      memcpy (names, "+0x", sizeof ("+0x") - 1);
2713
0
      names += sizeof ("+0x") - 1;
2714
0
      bfd_sprintf_vma (abfd, names, p->addend);
2715
0
      names += strlen (names);
2716
0
    }
2717
0
        memcpy (names, "@plt", sizeof ("@plt"));
2718
0
        names += sizeof ("@plt");
2719
0
        s++;
2720
0
        if (abi < 2)
2721
0
    {
2722
0
      glink_vma += 8;
2723
0
      if (i >= 0x8000)
2724
0
        glink_vma += 4;
2725
0
    }
2726
0
        else
2727
0
    glink_vma += 4;
2728
0
      }
2729
0
    count += plt_count;
2730
0
  }
2731
0
    }
2732
2733
0
 done:
2734
0
  free (syms);
2735
0
  return count;
2736
0
}
2737

2738
/* The following functions are specific to the ELF linker, while
2739
   functions above are used generally.  Those named ppc64_elf_* are
2740
   called by the main ELF linker code.  They appear in this file more
2741
   or less in the order in which they are called.  eg.
2742
   ppc64_elf_check_relocs is called early in the link process,
2743
   ppc64_elf_finish_dynamic_sections is one of the last functions
2744
   called.
2745
2746
   PowerPC64-ELF uses a similar scheme to PowerPC64-XCOFF in that
2747
   functions have both a function code symbol and a function descriptor
2748
   symbol.  A call to foo in a relocatable object file looks like:
2749
2750
   .    .text
2751
   .  x:
2752
   .    bl  .foo
2753
   .    nop
2754
2755
   The function definition in another object file might be:
2756
2757
   .    .section .opd
2758
   .  foo:  .quad .foo
2759
   .    .quad .TOC.@tocbase
2760
   .    .quad 0
2761
   .
2762
   .    .text
2763
   .  .foo: blr
2764
2765
   When the linker resolves the call during a static link, the branch
2766
   unsurprisingly just goes to .foo and the .opd information is unused.
2767
   If the function definition is in a shared library, things are a little
2768
   different:  The call goes via a plt call stub, the opd information gets
2769
   copied to the plt, and the linker patches the nop.
2770
2771
   .  x:
2772
   .    bl  .foo_stub
2773
   .    ld  2,40(1)
2774
   .
2775
   .
2776
   .  .foo_stub:
2777
   .    std 2,40(1)     # in practice, the call stub
2778
   .    addis 11,2,Lfoo@toc@ha  # is slightly optimized, but
2779
   .    addi  11,11,Lfoo@toc@l  # this is the general idea
2780
   .    ld  12,0(11)
2781
   .    ld  2,8(11)
2782
   .    mtctr 12
2783
   .    ld  11,16(11)
2784
   .    bctr
2785
   .
2786
   .    .section .plt
2787
   .  Lfoo: reloc (R_PPC64_JMP_SLOT, foo)
2788
2789
   The "reloc ()" notation is supposed to indicate that the linker emits
2790
   an R_PPC64_JMP_SLOT reloc against foo.  The dynamic linker does the opd
2791
   copying.
2792
2793
   What are the difficulties here?  Well, firstly, the relocations
2794
   examined by the linker in check_relocs are against the function code
2795
   sym .foo, while the dynamic relocation in the plt is emitted against
2796
   the function descriptor symbol, foo.  Somewhere along the line, we need
2797
   to carefully copy dynamic link information from one symbol to the other.
2798
   Secondly, the generic part of the elf linker will make .foo a dynamic
2799
   symbol as is normal for most other backends.  We need foo dynamic
2800
   instead, at least for an application final link.  However, when
2801
   creating a shared library containing foo, we need to have both symbols
2802
   dynamic so that references to .foo are satisfied during the early
2803
   stages of linking.  Otherwise the linker might decide to pull in a
2804
   definition from some other object, eg. a static library.
2805
2806
   Update: As of August 2004, we support a new convention.  Function
2807
   calls may use the function descriptor symbol, ie. "bl foo".  This
2808
   behaves exactly as "bl .foo".  */
2809
2810
/* Of those relocs that might be copied as dynamic relocs, this
2811
   function selects those that must be copied when linking a shared
2812
   library or PIE, even when the symbol is local.  */
2813
2814
static int
2815
must_be_dyn_reloc (struct bfd_link_info *info,
2816
       enum elf_ppc64_reloc_type r_type)
2817
0
{
2818
0
  switch (r_type)
2819
0
    {
2820
0
    default:
2821
      /* Only relative relocs can be resolved when the object load
2822
   address isn't fixed.  DTPREL64 is excluded because the
2823
   dynamic linker needs to differentiate global dynamic from
2824
   local dynamic __tls_index pairs when PPC64_OPT_TLS is set.  */
2825
0
      return 1;
2826
2827
0
    case R_PPC64_REL32:
2828
0
    case R_PPC64_REL64:
2829
0
    case R_PPC64_REL30:
2830
0
    case R_PPC64_TOC16:
2831
0
    case R_PPC64_TOC16_DS:
2832
0
    case R_PPC64_TOC16_LO:
2833
0
    case R_PPC64_TOC16_HI:
2834
0
    case R_PPC64_TOC16_HA:
2835
0
    case R_PPC64_TOC16_LO_DS:
2836
0
      return 0;
2837
2838
0
    case R_PPC64_TPREL16:
2839
0
    case R_PPC64_TPREL16_LO:
2840
0
    case R_PPC64_TPREL16_HI:
2841
0
    case R_PPC64_TPREL16_HA:
2842
0
    case R_PPC64_TPREL16_DS:
2843
0
    case R_PPC64_TPREL16_LO_DS:
2844
0
    case R_PPC64_TPREL16_HIGH:
2845
0
    case R_PPC64_TPREL16_HIGHA:
2846
0
    case R_PPC64_TPREL16_HIGHER:
2847
0
    case R_PPC64_TPREL16_HIGHERA:
2848
0
    case R_PPC64_TPREL16_HIGHEST:
2849
0
    case R_PPC64_TPREL16_HIGHESTA:
2850
0
    case R_PPC64_TPREL64:
2851
0
    case R_PPC64_TPREL34:
2852
      /* These relocations are relative but in a shared library the
2853
   linker doesn't know the thread pointer base.  */
2854
0
      return bfd_link_dll (info);
2855
0
    }
2856
0
}
2857
2858
/* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
2859
   copying dynamic variables from a shared lib into an app's .dynbss
2860
   section, and instead use a dynamic relocation to point into the
2861
   shared lib.  With code that gcc generates it is vital that this be
2862
   enabled;  In the PowerPC64 ELFv1 ABI the address of a function is
2863
   actually the address of a function descriptor which resides in the
2864
   .opd section.  gcc uses the descriptor directly rather than going
2865
   via the GOT as some other ABIs do, which means that initialized
2866
   function pointers reference the descriptor.  Thus, a function
2867
   pointer initialized to the address of a function in a shared
2868
   library will either require a .dynbss copy and a copy reloc, or a
2869
   dynamic reloc.  Using a .dynbss copy redefines the function
2870
   descriptor symbol to point to the copy.  This presents a problem as
2871
   a PLT entry for that function is also initialized from the function
2872
   descriptor symbol and the copy may not be initialized first.  */
2873
0
#define ELIMINATE_COPY_RELOCS 1
2874
2875
/* Section name for stubs is the associated section name plus this
2876
   string.  */
2877
0
#define STUB_SUFFIX ".stub"
2878
2879
/* Linker stubs.
2880
   ppc_stub_long_branch:
2881
   Used when a 14 bit branch (or even a 24 bit branch) can't reach its
2882
   destination, but a 24 bit branch in a stub section will reach.
2883
   .  b dest
2884
2885
   ppc_stub_plt_branch:
2886
   Similar to the above, but a 24 bit branch in the stub section won't
2887
   reach its destination.
2888
   .  addis %r12,%r2,xxx@toc@ha
2889
   .  ld  %r12,xxx@toc@l(%r12)
2890
   .  mtctr %r12
2891
   .  bctr
2892
2893
   ppc_stub_plt_call:
2894
   Used to call a function in a shared library.  If it so happens that
2895
   the plt entry referenced crosses a 64k boundary, then an extra
2896
   "addi %r11,%r11,xxx@toc@l" will be inserted before the "mtctr".
2897
   An r2save variant starts with "std %r2,40(%r1)".
2898
   .  addis %r11,%r2,xxx@toc@ha
2899
   .  ld  %r12,xxx+0@toc@l(%r11)
2900
   .  mtctr %r12
2901
   .  ld  %r2,xxx+8@toc@l(%r11)
2902
   .  ld  %r11,xxx+16@toc@l(%r11)
2903
   .  bctr
2904
2905
   ppc_stub_long_branch and ppc_stub_plt_branch may also have additional
2906
   code to adjust the value and save r2 to support multiple toc sections.
2907
   A ppc_stub_long_branch with an r2 offset looks like:
2908
   .  std %r2,40(%r1)
2909
   .  addis %r2,%r2,off@ha
2910
   .  addi  %r2,%r2,off@l
2911
   .  b dest
2912
2913
   A ppc_stub_plt_branch with an r2 offset looks like:
2914
   .  std %r2,40(%r1)
2915
   .  addis %r12,%r2,xxx@toc@ha
2916
   .  ld  %r12,xxx@toc@l(%r12)
2917
   .  addis %r2,%r2,off@ha
2918
   .  addi  %r2,%r2,off@l
2919
   .  mtctr %r12
2920
   .  bctr
2921
2922
   All of the above stubs are shown as their ELFv1 variants.  ELFv2
2923
   variants exist too, simpler for plt calls since a new toc pointer
2924
   and static chain are not loaded by the stub.  In addition, ELFv2
2925
   has some more complex stubs to handle calls marked with NOTOC
2926
   relocs from functions where r2 is not a valid toc pointer.
2927
   ppc_stub_long_branch_p9notoc:
2928
   .  mflr  %r12
2929
   .  bcl 20,31,1f
2930
   .  1:
2931
   .  mflr  %r11
2932
   .  mtlr  %r12
2933
   .  addis %r12,%r11,dest-1b@ha
2934
   .  addi  %r12,%r12,dest-1b@l
2935
   .  b dest
2936
2937
   ppc_stub_plt_branch_p9notoc:
2938
   .  mflr  %r12
2939
   .  bcl 20,31,1f
2940
   .  1:
2941
   .  mflr  %r11
2942
   .  mtlr  %r12
2943
   .  lis %r12,xxx-1b@highest
2944
   .  ori %r12,%r12,xxx-1b@higher
2945
   .  sldi  %r12,%r12,32
2946
   .  oris  %r12,%r12,xxx-1b@high
2947
   .  ori %r12,%r12,xxx-1b@l
2948
   .  add %r12,%r11,%r12
2949
   .  mtctr %r12
2950
   .  bctr
2951
2952
   ppc_stub_plt_call_p9notoc:
2953
   .  mflr  %r12
2954
   .  bcl 20,31,1f
2955
   .  1:
2956
   .  mflr  %r11
2957
   .  mtlr  %r12
2958
   .  lis %r12,xxx-1b@highest
2959
   .  ori %r12,%r12,xxx-1b@higher
2960
   .  sldi  %r12,%r12,32
2961
   .  oris  %r12,%r12,xxx-1b@high
2962
   .  ori %r12,%r12,xxx-1b@l
2963
   .  ldx %r12,%r11,%r12
2964
   .  mtctr %r12
2965
   .  bctr
2966
2967
   There are also ELFv1 power10 variants of these stubs.
2968
   ppc_stub_long_branch_notoc:
2969
   .  pla %r12,dest@pcrel
2970
   .  b dest
2971
   ppc_stub_plt_branch_notoc:
2972
   .  lis %r11,(dest-1f)@highesta34
2973
   .  ori %r11,%r11,(dest-1f)@highera34
2974
   .  sldi  %r11,%r11,34
2975
   . 1: pla %r12,dest@pcrel
2976
   .  add %r12,%r11,%r12
2977
   .  mtctr %r12
2978
   .  bctr
2979
   ppc_stub_plt_call_notoc:
2980
   .  lis %r11,(xxx-1f)@highesta34
2981
   .  ori %r11,%r11,(xxx-1f)@highera34
2982
   .  sldi  %r11,%r11,34
2983
   . 1: pla %r12,xxx@pcrel
2984
   .  ldx %r12,%r11,%r12
2985
   .  mtctr %r12
2986
   .  bctr
2987
2988
   In cases where the high instructions would add zero, they are
2989
   omitted and following instructions modified in some cases.
2990
   For example, a power10 ppc_stub_plt_call_notoc might simplify down
2991
   to
2992
   .  pld %r12,xxx@pcrel
2993
   .  mtctr %r12
2994
   .  bctr
2995
2996
   Stub variants may be merged.  For example, if printf is called from
2997
   code with the tocsave optimization (ie. r2 saved in function
2998
   prologue) and therefore calls use a ppc_stub_plt_call linkage stub,
2999
   and from other code without the tocsave optimization requiring a
3000
   ppc_stub_plt_call_r2save linkage stub, a single stub of the latter
3001
   type will be created.  Calls with the tocsave optimization will
3002
   enter this stub after the instruction saving r2.  A similar
3003
   situation exists when calls are marked with R_PPC64_REL24_NOTOC
3004
   relocations.  These require a ppc_stub_plt_call_notoc linkage stub
3005
   to call an external function like printf.  If other calls to printf
3006
   require a ppc_stub_plt_call linkage stub then a single
3007
   ppc_stub_plt_call_notoc linkage stub may be used for both types of
3008
   call.  */
3009
3010
enum ppc_stub_main_type
3011
{
3012
  ppc_stub_none,
3013
  ppc_stub_long_branch,
3014
  ppc_stub_plt_branch,
3015
  ppc_stub_plt_call,
3016
  ppc_stub_global_entry,
3017
  ppc_stub_save_res
3018
};
3019
3020
/* ppc_stub_long_branch, ppc_stub_plt_branch and ppc_stub_plt_call have
3021
   these variations.  */
3022
3023
enum ppc_stub_sub_type
3024
{
3025
  ppc_stub_toc,
3026
  ppc_stub_notoc,
3027
  ppc_stub_p9notoc
3028
};
3029
3030
struct ppc_stub_type
3031
{
3032
  ENUM_BITFIELD (ppc_stub_main_type) main : 3;
3033
  ENUM_BITFIELD (ppc_stub_sub_type) sub : 2;
3034
  unsigned int r2save : 1;
3035
};
3036
3037
/* Information on stub grouping.  */
3038
struct map_stub
3039
{
3040
  /* The stub section.  */
3041
  asection *stub_sec;
3042
  /* This is the section to which stubs in the group will be attached.  */
3043
  asection *link_sec;
3044
  /* Next group.  */
3045
  struct map_stub *next;
3046
  /* Whether to emit a copy of register save/restore functions in this
3047
     group.  */
3048
  int needs_save_res;
3049
  /* Current offset within stubs after the insn restoring lr in a
3050
     _notoc or _both stub using bcl for pc-relative addressing, or
3051
     after the insn restoring lr in a __tls_get_addr_opt plt stub.  */
3052
  unsigned int lr_restore;
3053
  /* Accumulated size of EH info emitted to describe return address
3054
     if stubs modify lr.  Does not include 17 byte FDE header.  */
3055
  unsigned int eh_size;
3056
  /* Offset in glink_eh_frame to the start of EH info for this group.  */
3057
  unsigned int eh_base;
3058
};
3059
3060
struct ppc_stub_hash_entry
3061
{
3062
  /* Base hash table entry structure.  */
3063
  struct bfd_hash_entry root;
3064
3065
  struct ppc_stub_type type;
3066
3067
  /* Group information.  */
3068
  struct map_stub *group;
3069
3070
  /* Offset within stub_sec of the beginning of this stub.  */
3071
  bfd_vma stub_offset;
3072
3073
  /* Given the symbol's value and its section we can determine its final
3074
     value when building the stubs (so the stub knows where to jump.  */
3075
  bfd_vma target_value;
3076
  asection *target_section;
3077
3078
  /* The symbol table entry, if any, that this was derived from.  */
3079
  struct ppc_link_hash_entry *h;
3080
  struct plt_entry *plt_ent;
3081
3082
  /* Symbol type.  */
3083
  unsigned char symtype;
3084
3085
  /* Symbol st_other.  */
3086
  unsigned char other;
3087
3088
  /* Debug: Track hash table traversal.  */
3089
  unsigned int id;
3090
};
3091
3092
struct ppc_branch_hash_entry
3093
{
3094
  /* Base hash table entry structure.  */
3095
  struct bfd_hash_entry root;
3096
3097
  /* Offset within branch lookup table.  */
3098
  unsigned int offset;
3099
3100
  /* Generation marker.  */
3101
  unsigned int iter;
3102
};
3103
3104
/* Used to track dynamic relocations.  */
3105
struct ppc_dyn_relocs
3106
{
3107
  struct ppc_dyn_relocs *next;
3108
3109
  /* The input section of the reloc.  */
3110
  asection *sec;
3111
3112
  /* Total number of relocs copied for the input section.  */
3113
  unsigned int count;
3114
3115
  /* Number of pc-relative relocs copied for the input section.  */
3116
  unsigned int pc_count;
3117
3118
  /* Number of relocs that might become R_PPC64_RELATIVE.  */
3119
  unsigned int rel_count;
3120
};
3121
3122
struct ppc_local_dyn_relocs
3123
{
3124
  struct ppc_local_dyn_relocs *next;
3125
3126
  /* The input section of the reloc.  */
3127
  asection *sec;
3128
3129
  /* Total number of relocs copied for the input section.  */
3130
  unsigned int count;
3131
3132
  /* Number of relocs that might become R_PPC64_RELATIVE.  */
3133
  unsigned int rel_count : 31;
3134
3135
  /* Whether this entry is for STT_GNU_IFUNC symbols.  */
3136
  unsigned int ifunc : 1;
3137
};
3138
3139
struct ppc_link_hash_entry
3140
{
3141
  struct elf_link_hash_entry elf;
3142
3143
  union
3144
  {
3145
    /* A pointer to the most recently used stub hash entry against this
3146
       symbol.  */
3147
    struct ppc_stub_hash_entry *stub_cache;
3148
3149
    /* A pointer to the next symbol starting with a '.'  */
3150
    struct ppc_link_hash_entry *next_dot_sym;
3151
  } u;
3152
3153
  /* Link between function code and descriptor symbols.  */
3154
  struct ppc_link_hash_entry *oh;
3155
3156
  /* Flag function code and descriptor symbols.  */
3157
  unsigned int is_func:1;
3158
  unsigned int is_func_descriptor:1;
3159
  unsigned int fake:1;
3160
3161
  /* Whether global opd/toc sym has been adjusted or not.
3162
     After ppc64_elf_edit_opd/ppc64_elf_edit_toc has run, this flag
3163
     should be set for all globals defined in any opd/toc section.  */
3164
  unsigned int adjust_done:1;
3165
3166
  /* Set if this is an out-of-line register save/restore function,
3167
     with non-standard calling convention.  */
3168
  unsigned int save_res:1;
3169
3170
  /* Set if a duplicate symbol with non-zero localentry is detected,
3171
     even when the duplicate symbol does not provide a definition.  */
3172
  unsigned int non_zero_localentry:1;
3173
3174
  /* Contexts in which symbol is used in the GOT (or TOC).
3175
     Bits are or'd into the mask as the corresponding relocs are
3176
     encountered during check_relocs, with TLS_TLS being set when any
3177
     of the other TLS bits are set.  tls_optimize clears bits when
3178
     optimizing to indicate the corresponding GOT entry type is not
3179
     needed.  If set, TLS_TLS is never cleared.  tls_optimize may also
3180
     set TLS_GDIE when a GD reloc turns into an IE one.
3181
     These flags are also kept for local symbols.  */
3182
0
#define TLS_TLS    1  /* Any TLS reloc.  */
3183
0
#define TLS_GD     2  /* GD reloc. */
3184
0
#define TLS_LD     4  /* LD reloc. */
3185
0
#define TLS_TPREL  8  /* TPREL reloc, => IE. */
3186
0
#define TLS_DTPREL  16  /* DTPREL reloc, => LD. */
3187
0
#define TLS_MARK  32  /* __tls_get_addr call marked. */
3188
0
#define TLS_GDIE  64  /* GOT TPREL reloc resulting from GD->IE. */
3189
0
#define TLS_EXPLICIT   256  /* TOC section TLS reloc, not stored. */
3190
  unsigned char tls_mask;
3191
3192
  /* The above field is also used to mark function symbols.  In which
3193
     case TLS_TLS will be 0.  */
3194
0
#define PLT_IFUNC  2  /* STT_GNU_IFUNC.  */
3195
0
#define PLT_KEEP   4  /* inline plt call requires plt entry.  */
3196
0
#define NON_GOT        256  /* local symbol plt, not stored.  */
3197
};
3198
3199
static inline struct ppc_link_hash_entry *
3200
ppc_elf_hash_entry (struct elf_link_hash_entry *ent)
3201
0
{
3202
0
  return (struct ppc_link_hash_entry *) ent;
3203
0
}
3204
3205
static inline struct elf_link_hash_entry *
3206
elf_hash_entry (struct ppc_link_hash_entry *ent)
3207
0
{
3208
0
  return (struct elf_link_hash_entry *) ent;
3209
0
}
3210
3211
/* ppc64 ELF linker hash table.  */
3212
3213
struct ppc_link_hash_table
3214
{
3215
  struct elf_link_hash_table elf;
3216
3217
  /* The stub hash table.  */
3218
  struct bfd_hash_table stub_hash_table;
3219
3220
  /* Another hash table for plt_branch stubs.  */
3221
  struct bfd_hash_table branch_hash_table;
3222
3223
  /* Hash table for function prologue tocsave.  */
3224
  htab_t tocsave_htab;
3225
3226
  /* Various options and other info passed from the linker.  */
3227
  struct ppc64_elf_params *params;
3228
3229
  /* The size of sec_info below.  */
3230
  unsigned int sec_info_arr_size;
3231
3232
  /* Per-section array of extra section info.  Done this way rather
3233
     than as part of ppc64_elf_section_data so we have the info for
3234
     non-ppc64 sections.  */
3235
  struct
3236
  {
3237
    /* Along with elf_gp, specifies the TOC pointer used by this section.  */
3238
    bfd_vma toc_off;
3239
3240
    union
3241
    {
3242
      /* The section group that this section belongs to.  */
3243
      struct map_stub *group;
3244
      /* A temp section list pointer.  */
3245
      asection *list;
3246
    } u;
3247
  } *sec_info;
3248
3249
  /* Linked list of groups.  */
3250
  struct map_stub *group;
3251
3252
  /* Temp used when calculating TOC pointers.  */
3253
  bfd_vma toc_curr;
3254
  bfd *toc_bfd;
3255
  asection *toc_first_sec;
3256
3257
  /* Used when adding symbols.  */
3258
  struct ppc_link_hash_entry *dot_syms;
3259
3260
  /* Shortcuts to get to dynamic linker sections.  */
3261
  asection *glink;
3262
  asection *global_entry;
3263
  asection *sfpr;
3264
  asection *pltlocal;
3265
  asection *relpltlocal;
3266
  asection *brlt;
3267
  asection *relbrlt;
3268
  asection *glink_eh_frame;
3269
3270
  /* Shortcut to .__tls_get_addr and __tls_get_addr.  */
3271
  struct ppc_link_hash_entry *tls_get_addr;
3272
  struct ppc_link_hash_entry *tls_get_addr_fd;
3273
  struct ppc_link_hash_entry *tga_desc;
3274
  struct ppc_link_hash_entry *tga_desc_fd;
3275
  struct map_stub *tga_group;
3276
3277
  /* The size of reliplt used by got entry relocs.  */
3278
  bfd_size_type got_reli_size;
3279
3280
  /* DT_RELR array of section/r_offset.  */
3281
  size_t relr_alloc;
3282
  size_t relr_count;
3283
  struct
3284
  {
3285
    asection *sec;
3286
    bfd_vma off;
3287
  } *relr;
3288
3289
  /* Statistics.  */
3290
  unsigned long stub_count[ppc_stub_save_res];
3291
3292
  /* Number of stubs against global syms.  */
3293
  unsigned long stub_globals;
3294
3295
  /* Set if we're linking code with function descriptors.  */
3296
  unsigned int opd_abi:1;
3297
3298
  /* Support for multiple toc sections.  */
3299
  unsigned int do_multi_toc:1;
3300
  unsigned int multi_toc_needed:1;
3301
  unsigned int second_toc_pass:1;
3302
  unsigned int do_toc_opt:1;
3303
3304
  /* Set if tls optimization is enabled.  */
3305
  unsigned int do_tls_opt:1;
3306
3307
  /* Set if inline plt calls should be converted to direct calls.  */
3308
  unsigned int can_convert_all_inline_plt:1;
3309
3310
  /* Set if a stub_offset changed.  */
3311
  unsigned int stub_changed:1;
3312
3313
  /* Set on error.  */
3314
  unsigned int stub_error:1;
3315
3316
  /* Whether func_desc_adjust needs to be run over symbols.  */
3317
  unsigned int need_func_desc_adj:1;
3318
3319
  /* Whether plt calls for ELFv2 localentry:0 funcs have been optimized.  */
3320
  unsigned int has_plt_localentry0:1;
3321
3322
  /* Whether calls are made via the PLT from NOTOC functions.  */
3323
  unsigned int notoc_plt:1;
3324
3325
  /* Whether any code linked seems to be Power10.  */
3326
  unsigned int has_power10_relocs:1;
3327
3328
  /* Incremented once for each stub sized.  */
3329
  unsigned int stub_id;
3330
3331
  /* Incremented every time we size stubs.  */
3332
  unsigned int stub_iteration;
3333
3334
/* After 20 iterations of stub sizing we no longer allow stubs to
3335
   shrink.  This is to break out of a pathological case where adding
3336
   stubs or increasing their size on one iteration decreases section
3337
   gaps (perhaps due to alignment), which then results in smaller
3338
   stubs on the next iteration.  */
3339
0
#define STUB_SHRINK_ITER 20
3340
};
3341
3342
/* Rename some of the generic section flags to better document how they
3343
   are used here.  */
3344
3345
/* Nonzero if this section has TLS related relocations.  */
3346
0
#define has_tls_reloc sec_flg0
3347
3348
/* Nonzero if this section has a call to __tls_get_addr lacking marker
3349
   relocations.  */
3350
0
#define nomark_tls_get_addr sec_flg1
3351
3352
/* Nonzero if this section has any toc or got relocs.  */
3353
0
#define has_toc_reloc sec_flg2
3354
3355
/* Nonzero if this section has a call to another section that uses
3356
   the toc or got.  */
3357
0
#define makes_toc_func_call sec_flg3
3358
3359
/* Recursion protection when determining above flag.  */
3360
0
#define call_check_in_progress sec_flg4
3361
0
#define call_check_done sec_flg5
3362
3363
/* Get the ppc64 ELF linker hash table from a link_info structure.  */
3364
3365
#define ppc_hash_table(p) \
3366
0
  ((is_elf_hash_table ((p)->hash)          \
3367
0
    && elf_hash_table_id (elf_hash_table (p)) == PPC64_ELF_DATA) \
3368
0
   ? (struct ppc_link_hash_table *) (p)->hash : NULL)
3369
3370
#define ppc_stub_hash_lookup(table, string, create, copy) \
3371
0
  ((struct ppc_stub_hash_entry *) \
3372
0
   bfd_hash_lookup ((table), (string), (create), (copy)))
3373
3374
#define ppc_branch_hash_lookup(table, string, create, copy) \
3375
0
  ((struct ppc_branch_hash_entry *) \
3376
0
   bfd_hash_lookup ((table), (string), (create), (copy)))
3377
3378
/* Create an entry in the stub hash table.  */
3379
3380
static struct bfd_hash_entry *
3381
stub_hash_newfunc (struct bfd_hash_entry *entry,
3382
       struct bfd_hash_table *table,
3383
       const char *string)
3384
0
{
3385
  /* Allocate the structure if it has not already been allocated by a
3386
     subclass.  */
3387
0
  if (entry == NULL)
3388
0
    {
3389
0
      entry = bfd_hash_allocate (table, sizeof (struct ppc_stub_hash_entry));
3390
0
      if (entry == NULL)
3391
0
  return entry;
3392
0
    }
3393
3394
  /* Call the allocation method of the superclass.  */
3395
0
  entry = bfd_hash_newfunc (entry, table, string);
3396
0
  if (entry != NULL)
3397
0
    {
3398
0
      struct ppc_stub_hash_entry *eh;
3399
3400
      /* Initialize the local fields.  */
3401
0
      eh = (struct ppc_stub_hash_entry *) entry;
3402
0
      eh->type.main = ppc_stub_none;
3403
0
      eh->type.sub = ppc_stub_toc;
3404
0
      eh->type.r2save = 0;
3405
0
      eh->group = NULL;
3406
0
      eh->stub_offset = 0;
3407
0
      eh->target_value = 0;
3408
0
      eh->target_section = NULL;
3409
0
      eh->h = NULL;
3410
0
      eh->plt_ent = NULL;
3411
0
      eh->symtype = 0;
3412
0
      eh->other = 0;
3413
0
      eh->id = 0;
3414
0
    }
3415
3416
0
  return entry;
3417
0
}
3418
3419
/* Create an entry in the branch hash table.  */
3420
3421
static struct bfd_hash_entry *
3422
branch_hash_newfunc (struct bfd_hash_entry *entry,
3423
         struct bfd_hash_table *table,
3424
         const char *string)
3425
0
{
3426
  /* Allocate the structure if it has not already been allocated by a
3427
     subclass.  */
3428
0
  if (entry == NULL)
3429
0
    {
3430
0
      entry = bfd_hash_allocate (table, sizeof (struct ppc_branch_hash_entry));
3431
0
      if (entry == NULL)
3432
0
  return entry;
3433
0
    }
3434
3435
  /* Call the allocation method of the superclass.  */
3436
0
  entry = bfd_hash_newfunc (entry, table, string);
3437
0
  if (entry != NULL)
3438
0
    {
3439
0
      struct ppc_branch_hash_entry *eh;
3440
3441
      /* Initialize the local fields.  */
3442
0
      eh = (struct ppc_branch_hash_entry *) entry;
3443
0
      eh->offset = 0;
3444
0
      eh->iter = 0;
3445
0
    }
3446
3447
0
  return entry;
3448
0
}
3449
3450
/* Create an entry in a ppc64 ELF linker hash table.  */
3451
3452
static struct bfd_hash_entry *
3453
link_hash_newfunc (struct bfd_hash_entry *entry,
3454
       struct bfd_hash_table *table,
3455
       const char *string)
3456
0
{
3457
  /* Allocate the structure if it has not already been allocated by a
3458
     subclass.  */
3459
0
  if (entry == NULL)
3460
0
    {
3461
0
      entry = bfd_hash_allocate (table, sizeof (struct ppc_link_hash_entry));
3462
0
      if (entry == NULL)
3463
0
  return entry;
3464
0
    }
3465
3466
  /* Call the allocation method of the superclass.  */
3467
0
  entry = _bfd_elf_link_hash_newfunc (entry, table, string);
3468
0
  if (entry != NULL)
3469
0
    {
3470
0
      struct ppc_link_hash_entry *eh = (struct ppc_link_hash_entry *) entry;
3471
3472
0
      memset (&eh->u.stub_cache, 0,
3473
0
        (sizeof (struct ppc_link_hash_entry)
3474
0
         - offsetof (struct ppc_link_hash_entry, u.stub_cache)));
3475
3476
      /* When making function calls, old ABI code references function entry
3477
   points (dot symbols), while new ABI code references the function
3478
   descriptor symbol.  We need to make any combination of reference and
3479
   definition work together, without breaking archive linking.
3480
3481
   For a defined function "foo" and an undefined call to "bar":
3482
   An old object defines "foo" and ".foo", references ".bar" (possibly
3483
   "bar" too).
3484
   A new object defines "foo" and references "bar".
3485
3486
   A new object thus has no problem with its undefined symbols being
3487
   satisfied by definitions in an old object.  On the other hand, the
3488
   old object won't have ".bar" satisfied by a new object.
3489
3490
   Keep a list of newly added dot-symbols.  */
3491
3492
0
      if (string[0] == '.')
3493
0
  {
3494
0
    struct ppc_link_hash_table *htab;
3495
3496
0
    htab = (struct ppc_link_hash_table *) table;
3497
0
    eh->u.next_dot_sym = htab->dot_syms;
3498
0
    htab->dot_syms = eh;
3499
0
  }
3500
0
    }
3501
3502
0
  return entry;
3503
0
}
3504
3505
struct tocsave_entry
3506
{
3507
  asection *sec;
3508
  bfd_vma offset;
3509
};
3510
3511
static hashval_t
3512
tocsave_htab_hash (const void *p)
3513
0
{
3514
0
  const struct tocsave_entry *e = (const struct tocsave_entry *) p;
3515
0
  return ((bfd_vma) (intptr_t) e->sec ^ e->offset) >> 3;
3516
0
}
3517
3518
static int
3519
tocsave_htab_eq (const void *p1, const void *p2)
3520
0
{
3521
0
  const struct tocsave_entry *e1 = (const struct tocsave_entry *) p1;
3522
0
  const struct tocsave_entry *e2 = (const struct tocsave_entry *) p2;
3523
0
  return e1->sec == e2->sec && e1->offset == e2->offset;
3524
0
}
3525
3526
/* Destroy a ppc64 ELF linker hash table.  */
3527
3528
static void
3529
ppc64_elf_link_hash_table_free (bfd *obfd)
3530
0
{
3531
0
  struct ppc_link_hash_table *htab;
3532
3533
0
  htab = (struct ppc_link_hash_table *) obfd->link.hash;
3534
0
  if (htab->tocsave_htab)
3535
0
    htab_delete (htab->tocsave_htab);
3536
0
  bfd_hash_table_free (&htab->branch_hash_table);
3537
0
  bfd_hash_table_free (&htab->stub_hash_table);
3538
0
  _bfd_elf_link_hash_table_free (obfd);
3539
0
}
3540
3541
/* Create a ppc64 ELF linker hash table.  */
3542
3543
static struct bfd_link_hash_table *
3544
ppc64_elf_link_hash_table_create (bfd *abfd)
3545
0
{
3546
0
  struct ppc_link_hash_table *htab;
3547
0
  size_t amt = sizeof (struct ppc_link_hash_table);
3548
3549
0
  htab = bfd_zmalloc (amt);
3550
0
  if (htab == NULL)
3551
0
    return NULL;
3552
3553
0
  if (!_bfd_elf_link_hash_table_init (&htab->elf, abfd, link_hash_newfunc,
3554
0
              sizeof (struct ppc_link_hash_entry),
3555
0
              PPC64_ELF_DATA))
3556
0
    {
3557
0
      free (htab);
3558
0
      return NULL;
3559
0
    }
3560
3561
  /* Init the stub hash table too.  */
3562
0
  if (!bfd_hash_table_init (&htab->stub_hash_table, stub_hash_newfunc,
3563
0
          sizeof (struct ppc_stub_hash_entry)))
3564
0
    {
3565
0
      _bfd_elf_link_hash_table_free (abfd);
3566
0
      return NULL;
3567
0
    }
3568
3569
  /* And the branch hash table.  */
3570
0
  if (!bfd_hash_table_init (&htab->branch_hash_table, branch_hash_newfunc,
3571
0
          sizeof (struct ppc_branch_hash_entry)))
3572
0
    {
3573
0
      bfd_hash_table_free (&htab->stub_hash_table);
3574
0
      _bfd_elf_link_hash_table_free (abfd);
3575
0
      return NULL;
3576
0
    }
3577
3578
0
  htab->tocsave_htab = htab_try_create (1024,
3579
0
          tocsave_htab_hash,
3580
0
          tocsave_htab_eq,
3581
0
          NULL);
3582
0
  if (htab->tocsave_htab == NULL)
3583
0
    {
3584
0
      ppc64_elf_link_hash_table_free (abfd);
3585
0
      return NULL;
3586
0
    }
3587
0
  htab->elf.root.hash_table_free = ppc64_elf_link_hash_table_free;
3588
3589
  /* Initializing two fields of the union is just cosmetic.  We really
3590
     only care about glist, but when compiled on a 32-bit host the
3591
     bfd_vma fields are larger.  Setting the bfd_vma to zero makes
3592
     debugger inspection of these fields look nicer.  */
3593
0
  htab->elf.init_got_refcount.refcount = 0;
3594
0
  htab->elf.init_got_refcount.glist = NULL;
3595
0
  htab->elf.init_plt_refcount.refcount = 0;
3596
0
  htab->elf.init_plt_refcount.glist = NULL;
3597
0
  htab->elf.init_got_offset.offset = 0;
3598
0
  htab->elf.init_got_offset.glist = NULL;
3599
0
  htab->elf.init_plt_offset.offset = 0;
3600
0
  htab->elf.init_plt_offset.glist = NULL;
3601
3602
0
  return &htab->elf.root;
3603
0
}
3604
3605
/* Create sections for linker generated code.  */
3606
3607
static bool
3608
create_linkage_sections (bfd *dynobj, struct bfd_link_info *info)
3609
0
{
3610
0
  struct ppc_link_hash_table *htab;
3611
0
  flagword flags;
3612
3613
0
  htab = ppc_hash_table (info);
3614
3615
0
  flags = (SEC_ALLOC | SEC_LOAD | SEC_CODE | SEC_READONLY
3616
0
     | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3617
0
  if (htab->params->save_restore_funcs)
3618
0
    {
3619
      /* Create .sfpr for code to save and restore fp regs.  */
3620
0
      htab->sfpr = bfd_make_section_anyway_with_flags (dynobj, ".sfpr",
3621
0
                   flags);
3622
0
      if (htab->sfpr == NULL
3623
0
    || !bfd_set_section_alignment (htab->sfpr, 2))
3624
0
  return false;
3625
0
    }
3626
3627
0
  if (bfd_link_relocatable (info))
3628
0
    return true;
3629
3630
  /* Create .glink for lazy dynamic linking support.  */
3631
0
  htab->glink = bfd_make_section_anyway_with_flags (dynobj, ".glink",
3632
0
                flags);
3633
0
  if (htab->glink == NULL
3634
0
      || !bfd_set_section_alignment (htab->glink, 3))
3635
0
    return false;
3636
3637
  /* The part of .glink used by global entry stubs, separate so that
3638
     it can be aligned appropriately without affecting htab->glink.  */
3639
0
  htab->global_entry = bfd_make_section_anyway_with_flags (dynobj, ".glink",
3640
0
                 flags);
3641
0
  if (htab->global_entry == NULL
3642
0
      || !bfd_set_section_alignment (htab->global_entry, 2))
3643
0
    return false;
3644
3645
0
  if (!info->no_ld_generated_unwind_info)
3646
0
    {
3647
0
      flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY | SEC_HAS_CONTENTS
3648
0
         | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3649
0
      htab->glink_eh_frame = bfd_make_section_anyway_with_flags (dynobj,
3650
0
                 ".eh_frame",
3651
0
                 flags);
3652
0
      if (htab->glink_eh_frame == NULL
3653
0
    || !bfd_set_section_alignment (htab->glink_eh_frame, 2))
3654
0
  return false;
3655
0
    }
3656
3657
0
  flags = SEC_ALLOC | SEC_LINKER_CREATED;
3658
0
  htab->elf.iplt = bfd_make_section_anyway_with_flags (dynobj, ".iplt", flags);
3659
0
  if (htab->elf.iplt == NULL
3660
0
      || !bfd_set_section_alignment (htab->elf.iplt, 3))
3661
0
    return false;
3662
3663
0
  flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY
3664
0
     | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3665
0
  htab->elf.irelplt
3666
0
    = bfd_make_section_anyway_with_flags (dynobj, ".rela.iplt", flags);
3667
0
  if (htab->elf.irelplt == NULL
3668
0
      || !bfd_set_section_alignment (htab->elf.irelplt, 3))
3669
0
    return false;
3670
3671
  /* Create branch lookup table for plt_branch stubs.  */
3672
0
  flags = (SEC_ALLOC | SEC_LOAD
3673
0
     | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3674
0
  htab->brlt = bfd_make_section_anyway_with_flags (dynobj, ".branch_lt",
3675
0
               flags);
3676
0
  if (htab->brlt == NULL
3677
0
      || !bfd_set_section_alignment (htab->brlt, 3))
3678
0
    return false;
3679
3680
  /* Local plt entries, put in .branch_lt but a separate section for
3681
     convenience.  */
3682
0
  htab->pltlocal = bfd_make_section_anyway_with_flags (dynobj, ".branch_lt",
3683
0
                   flags);
3684
0
  if (htab->pltlocal == NULL
3685
0
      || !bfd_set_section_alignment (htab->pltlocal, 3))
3686
0
    return false;
3687
3688
0
  if (!bfd_link_pic (info))
3689
0
    return true;
3690
3691
0
  flags = (SEC_ALLOC | SEC_LOAD | SEC_READONLY
3692
0
     | SEC_HAS_CONTENTS | SEC_IN_MEMORY | SEC_LINKER_CREATED);
3693
0
  htab->relbrlt
3694
0
    = bfd_make_section_anyway_with_flags (dynobj, ".rela.branch_lt", flags);
3695
0
  if (htab->relbrlt == NULL
3696
0
      || !bfd_set_section_alignment (htab->relbrlt, 3))
3697
0
    return false;
3698
3699
0
  htab->relpltlocal
3700
0
    = bfd_make_section_anyway_with_flags (dynobj, ".rela.branch_lt", flags);
3701
0
  if (htab->relpltlocal == NULL
3702
0
      || !bfd_set_section_alignment (htab->relpltlocal, 3))
3703
0
    return false;
3704
3705
0
  return true;
3706
0
}
3707
3708
/* Satisfy the ELF linker by filling in some fields in our fake bfd.  */
3709
3710
bool
3711
ppc64_elf_init_stub_bfd (struct bfd_link_info *info,
3712
       struct ppc64_elf_params *params)
3713
0
{
3714
0
  struct ppc_link_hash_table *htab;
3715
3716
0
  elf_elfheader (params->stub_bfd)->e_ident[EI_CLASS] = ELFCLASS64;
3717
3718
/* Always hook our dynamic sections into the first bfd, which is the
3719
   linker created stub bfd.  This ensures that the GOT header is at
3720
   the start of the output TOC section.  */
3721
0
  htab = ppc_hash_table (info);
3722
0
  htab->elf.dynobj = params->stub_bfd;
3723
0
  htab->params = params;
3724
3725
0
  return create_linkage_sections (htab->elf.dynobj, info);
3726
0
}
3727
3728
/* Build a name for an entry in the stub hash table.  */
3729
3730
static char *
3731
ppc_stub_name (const asection *input_section,
3732
         const asection *sym_sec,
3733
         const struct ppc_link_hash_entry *h,
3734
         const Elf_Internal_Rela *rel)
3735
0
{
3736
0
  char *stub_name;
3737
0
  ssize_t len;
3738
3739
  /* rel->r_addend is actually 64 bit, but who uses more than +/- 2^31
3740
     offsets from a sym as a branch target?  In fact, we could
3741
     probably assume the addend is always zero.  */
3742
0
  BFD_ASSERT (((int) rel->r_addend & 0xffffffff) == rel->r_addend);
3743
3744
0
  if (h)
3745
0
    {
3746
0
      len = 8 + 1 + strlen (h->elf.root.root.string) + 1 + 8 + 1;
3747
0
      stub_name = bfd_malloc (len);
3748
0
      if (stub_name == NULL)
3749
0
  return stub_name;
3750
3751
0
      len = sprintf (stub_name, "%08x.%s+%x",
3752
0
         input_section->id & 0xffffffff,
3753
0
         h->elf.root.root.string,
3754
0
         (int) rel->r_addend & 0xffffffff);
3755
0
    }
3756
0
  else
3757
0
    {
3758
0
      len = 8 + 1 + 8 + 1 + 8 + 1 + 8 + 1;
3759
0
      stub_name = bfd_malloc (len);
3760
0
      if (stub_name == NULL)
3761
0
  return stub_name;
3762
3763
0
      len = sprintf (stub_name, "%08x.%x:%x+%x",
3764
0
         input_section->id & 0xffffffff,
3765
0
         sym_sec->id & 0xffffffff,
3766
0
         (int) ELF64_R_SYM (rel->r_info) & 0xffffffff,
3767
0
         (int) rel->r_addend & 0xffffffff);
3768
0
    }
3769
0
  if (len > 2 && stub_name[len - 2] == '+' && stub_name[len - 1] == '0')
3770
0
    stub_name[len - 2] = 0;
3771
0
  return stub_name;
3772
0
}
3773
3774
/* If mixing power10 with non-power10 code and --power10-stubs is not
3775
   specified (or is auto) then there may be multiple stub types for any
3776
   given symbol.  Up to three classes of stubs are stored in separate
3777
   stub_hash_table entries having the same key string.  The entries
3778
   will always be adjacent on entry->root.next chain, even if hash
3779
   table resizing occurs.  This function selects the correct entry to
3780
   use.  */
3781
3782
static struct ppc_stub_hash_entry *
3783
select_alt_stub (struct ppc_stub_hash_entry *entry,
3784
     enum elf_ppc64_reloc_type r_type)
3785
0
{
3786
0
  enum ppc_stub_sub_type subt;
3787
3788
0
  switch (r_type)
3789
0
    {
3790
0
    case R_PPC64_REL24_NOTOC:
3791
0
      subt = ppc_stub_notoc;
3792
0
      break;
3793
0
    case R_PPC64_REL24_P9NOTOC:
3794
0
      subt = ppc_stub_p9notoc;
3795
0
      break;
3796
0
    default:
3797
0
      subt = ppc_stub_toc;
3798
0
      break;
3799
0
    }
3800
3801
0
  while (entry != NULL && entry->type.sub != subt)
3802
0
    {
3803
0
      const char *stub_name = entry->root.string;
3804
3805
0
      entry = (struct ppc_stub_hash_entry *) entry->root.next;
3806
0
      if (entry != NULL
3807
0
    && entry->root.string != stub_name)
3808
0
  entry = NULL;
3809
0
    }
3810
3811
0
  return entry;
3812
0
}
3813
3814
/* Look up an entry in the stub hash.  Stub entries are cached because
3815
   creating the stub name takes a bit of time.  */
3816
3817
static struct ppc_stub_hash_entry *
3818
ppc_get_stub_entry (const asection *input_section,
3819
        const asection *sym_sec,
3820
        struct ppc_link_hash_entry *h,
3821
        const Elf_Internal_Rela *rel,
3822
        struct ppc_link_hash_table *htab)
3823
0
{
3824
0
  struct ppc_stub_hash_entry *stub_entry;
3825
0
  struct map_stub *group;
3826
3827
  /* If this input section is part of a group of sections sharing one
3828
     stub section, then use the id of the first section in the group.
3829
     Stub names need to include a section id, as there may well be
3830
     more than one stub used to reach say, printf, and we need to
3831
     distinguish between them.  */
3832
0
  group = htab->sec_info[input_section->id].u.group;
3833
0
  if (group == NULL)
3834
0
    return NULL;
3835
3836
0
  if (h != NULL && h->u.stub_cache != NULL
3837
0
      && h->u.stub_cache->h == h
3838
0
      && h->u.stub_cache->group == group)
3839
0
    {
3840
0
      stub_entry = h->u.stub_cache;
3841
0
    }
3842
0
  else
3843
0
    {
3844
0
      char *stub_name;
3845
3846
0
      stub_name = ppc_stub_name (group->link_sec, sym_sec, h, rel);
3847
0
      if (stub_name == NULL)
3848
0
  return NULL;
3849
3850
0
      stub_entry = ppc_stub_hash_lookup (&htab->stub_hash_table,
3851
0
           stub_name, false, false);
3852
0
      if (h != NULL)
3853
0
  h->u.stub_cache = stub_entry;
3854
3855
0
      free (stub_name);
3856
0
    }
3857
3858
0
  if (stub_entry != NULL && htab->params->power10_stubs == -1)
3859
0
    stub_entry = select_alt_stub (stub_entry, ELF64_R_TYPE (rel->r_info));
3860
3861
0
  return stub_entry;
3862
0
}
3863
3864
/* Add a new stub entry to the stub hash.  Not all fields of the new
3865
   stub entry are initialised.  */
3866
3867
static struct ppc_stub_hash_entry *
3868
ppc_add_stub (const char *stub_name,
3869
        asection *section,
3870
        struct bfd_link_info *info)
3871
0
{
3872
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
3873
0
  struct map_stub *group;
3874
0
  asection *link_sec;
3875
0
  asection *stub_sec;
3876
0
  struct ppc_stub_hash_entry *stub_entry;
3877
3878
0
  group = htab->sec_info[section->id].u.group;
3879
0
  link_sec = group->link_sec;
3880
0
  stub_sec = group->stub_sec;
3881
0
  if (stub_sec == NULL)
3882
0
    {
3883
0
      size_t namelen;
3884
0
      bfd_size_type len;
3885
0
      char *s_name;
3886
3887
0
      namelen = strlen (link_sec->name);
3888
0
      len = namelen + sizeof (STUB_SUFFIX);
3889
0
      s_name = bfd_alloc (htab->params->stub_bfd, len);
3890
0
      if (s_name == NULL)
3891
0
  return NULL;
3892
3893
0
      memcpy (s_name, link_sec->name, namelen);
3894
0
      memcpy (s_name + namelen, STUB_SUFFIX, sizeof (STUB_SUFFIX));
3895
0
      stub_sec = (*htab->params->add_stub_section) (s_name, link_sec);
3896
0
      if (stub_sec == NULL)
3897
0
  return NULL;
3898
0
      group->stub_sec = stub_sec;
3899
0
    }
3900
3901
  /* Enter this entry into the linker stub hash table.  */
3902
0
  stub_entry = ppc_stub_hash_lookup (&htab->stub_hash_table, stub_name,
3903
0
             true, false);
3904
0
  if (stub_entry == NULL)
3905
0
    {
3906
      /* xgettext:c-format */
3907
0
      _bfd_error_handler (_("%pB: cannot create stub entry %s"),
3908
0
        section->owner, stub_name);
3909
0
      return NULL;
3910
0
    }
3911
3912
0
  stub_entry->group = group;
3913
0
  stub_entry->stub_offset = 0;
3914
0
  return stub_entry;
3915
0
}
3916
3917
/* A stub has already been created, but it may not be the required
3918
   type.  We shouldn't be transitioning from plt_call to long_branch
3919
   stubs or vice versa, but we might be upgrading from plt_call to
3920
   plt_call with r2save for example.  */
3921
3922
static bool
3923
ppc_merge_stub (struct ppc_link_hash_table *htab,
3924
    struct ppc_stub_hash_entry *stub_entry,
3925
    struct ppc_stub_type stub_type,
3926
    enum elf_ppc64_reloc_type r_type)
3927
0
{
3928
0
  struct ppc_stub_type old_type = stub_entry->type;
3929
3930
0
  if (old_type.main == ppc_stub_save_res)
3931
0
    return true;
3932
3933
0
  if (htab->params->power10_stubs == -1)
3934
0
    {
3935
      /* For --power10-stubs=auto, don't merge _notoc and other
3936
   varieties of stubs.  */
3937
0
      struct ppc_stub_hash_entry *alt_stub;
3938
3939
0
      alt_stub = select_alt_stub (stub_entry, r_type);
3940
0
      if (alt_stub == NULL)
3941
0
  {
3942
0
    alt_stub = ((struct ppc_stub_hash_entry *)
3943
0
          stub_hash_newfunc (NULL,
3944
0
           &htab->stub_hash_table,
3945
0
           stub_entry->root.string));
3946
0
    if (alt_stub == NULL)
3947
0
      return false;
3948
3949
0
    *alt_stub = *stub_entry;
3950
0
    stub_entry->root.next = &alt_stub->root;
3951
3952
    /* Sort notoc stubs first, then toc stubs, then p9notoc.
3953
       Not that it matters, this just puts smaller stubs first.  */
3954
0
    if (stub_type.sub == ppc_stub_notoc)
3955
0
      alt_stub = stub_entry;
3956
0
    else if (stub_type.sub == ppc_stub_p9notoc
3957
0
       && alt_stub->root.next
3958
0
       && alt_stub->root.next->string == alt_stub->root.string)
3959
0
      {
3960
0
        struct ppc_stub_hash_entry *next
3961
0
    = (struct ppc_stub_hash_entry *) alt_stub->root.next;
3962
0
        alt_stub->type = next->type;
3963
0
        alt_stub = next;
3964
0
      }
3965
0
    alt_stub->type = stub_type;
3966
0
    return true;
3967
0
  }
3968
0
      stub_entry = alt_stub;
3969
0
    }
3970
3971
0
  old_type = stub_entry->type;
3972
0
  if (old_type.main == ppc_stub_plt_branch)
3973
0
    old_type.main = ppc_stub_long_branch;
3974
3975
0
  if (old_type.main != stub_type.main
3976
0
      || (old_type.sub != stub_type.sub
3977
0
    && old_type.sub != ppc_stub_toc
3978
0
    && stub_type.sub != ppc_stub_toc))
3979
0
    abort ();
3980
3981
0
  stub_entry->type.sub |= stub_type.sub;
3982
0
  stub_entry->type.r2save |= stub_type.r2save;
3983
0
  return true;
3984
0
}
3985
3986
/* Create .got and .rela.got sections in ABFD, and .got in dynobj if
3987
   not already done.  */
3988
3989
static bool
3990
create_got_section (bfd *abfd, struct bfd_link_info *info)
3991
0
{
3992
0
  asection *got, *relgot;
3993
0
  flagword flags;
3994
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
3995
3996
0
  if (!is_ppc64_elf (abfd))
3997
0
    return false;
3998
0
  if (htab == NULL)
3999
0
    return false;
4000
4001
0
  if (!htab->elf.sgot
4002
0
      && !_bfd_elf_create_got_section (htab->elf.dynobj, info))
4003
0
    return false;
4004
4005
0
  flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
4006
0
     | SEC_LINKER_CREATED);
4007
4008
0
  got = bfd_make_section_anyway_with_flags (abfd, ".got", flags);
4009
0
  if (!got
4010
0
      || !bfd_set_section_alignment (got, 3))
4011
0
    return false;
4012
4013
0
  relgot = bfd_make_section_anyway_with_flags (abfd, ".rela.got",
4014
0
                 flags | SEC_READONLY);
4015
0
  if (!relgot
4016
0
      || !bfd_set_section_alignment (relgot, 3))
4017
0
    return false;
4018
4019
0
  ppc64_elf_tdata (abfd)->got = got;
4020
0
  ppc64_elf_tdata (abfd)->relgot = relgot;
4021
0
  return true;
4022
0
}
4023
4024
/* Follow indirect and warning symbol links.  */
4025
4026
static inline struct bfd_link_hash_entry *
4027
follow_link (struct bfd_link_hash_entry *h)
4028
0
{
4029
0
  while (h->type == bfd_link_hash_indirect
4030
0
   || h->type == bfd_link_hash_warning)
4031
0
    h = h->u.i.link;
4032
0
  return h;
4033
0
}
4034
4035
static inline struct elf_link_hash_entry *
4036
elf_follow_link (struct elf_link_hash_entry *h)
4037
0
{
4038
0
  return (struct elf_link_hash_entry *) follow_link (&h->root);
4039
0
}
4040
4041
static inline struct ppc_link_hash_entry *
4042
ppc_follow_link (struct ppc_link_hash_entry *h)
4043
0
{
4044
0
  return ppc_elf_hash_entry (elf_follow_link (&h->elf));
4045
0
}
4046
4047
/* Merge PLT info on FROM with that on TO.  */
4048
4049
static void
4050
move_plt_plist (struct ppc_link_hash_entry *from,
4051
    struct ppc_link_hash_entry *to)
4052
0
{
4053
0
  if (from->elf.plt.plist != NULL)
4054
0
    {
4055
0
      if (to->elf.plt.plist != NULL)
4056
0
  {
4057
0
    struct plt_entry **entp;
4058
0
    struct plt_entry *ent;
4059
4060
0
    for (entp = &from->elf.plt.plist; (ent = *entp) != NULL; )
4061
0
      {
4062
0
        struct plt_entry *dent;
4063
4064
0
        for (dent = to->elf.plt.plist; dent != NULL; dent = dent->next)
4065
0
    if (dent->addend == ent->addend)
4066
0
      {
4067
0
        dent->plt.refcount += ent->plt.refcount;
4068
0
        *entp = ent->next;
4069
0
        break;
4070
0
      }
4071
0
        if (dent == NULL)
4072
0
    entp = &ent->next;
4073
0
      }
4074
0
    *entp = to->elf.plt.plist;
4075
0
  }
4076
4077
0
      to->elf.plt.plist = from->elf.plt.plist;
4078
0
      from->elf.plt.plist = NULL;
4079
0
    }
4080
0
}
4081
4082
/* Copy the extra info we tack onto an elf_link_hash_entry.  */
4083
4084
static void
4085
ppc64_elf_copy_indirect_symbol (struct bfd_link_info *info,
4086
        struct elf_link_hash_entry *dir,
4087
        struct elf_link_hash_entry *ind)
4088
0
{
4089
0
  struct ppc_link_hash_entry *edir, *eind;
4090
4091
0
  edir = ppc_elf_hash_entry (dir);
4092
0
  eind = ppc_elf_hash_entry (ind);
4093
4094
0
  edir->is_func |= eind->is_func;
4095
0
  edir->is_func_descriptor |= eind->is_func_descriptor;
4096
0
  edir->tls_mask |= eind->tls_mask;
4097
0
  if (eind->oh != NULL)
4098
0
    edir->oh = ppc_follow_link (eind->oh);
4099
4100
0
  if (edir->elf.versioned != versioned_hidden)
4101
0
    edir->elf.ref_dynamic |= eind->elf.ref_dynamic;
4102
0
  edir->elf.ref_regular |= eind->elf.ref_regular;
4103
0
  edir->elf.ref_regular_nonweak |= eind->elf.ref_regular_nonweak;
4104
0
  edir->elf.non_got_ref |= eind->elf.non_got_ref;
4105
0
  edir->elf.needs_plt |= eind->elf.needs_plt;
4106
0
  edir->elf.pointer_equality_needed |= eind->elf.pointer_equality_needed;
4107
4108
  /* If we were called to copy over info for a weak sym, don't copy
4109
     dyn_relocs, plt/got info, or dynindx.  We used to copy dyn_relocs
4110
     in order to simplify readonly_dynrelocs and save a field in the
4111
     symbol hash entry, but that means dyn_relocs can't be used in any
4112
     tests about a specific symbol, or affect other symbol flags which
4113
     are then tested.  */
4114
0
  if (eind->elf.root.type != bfd_link_hash_indirect)
4115
0
    return;
4116
4117
  /* Copy over any dynamic relocs we may have on the indirect sym.  */
4118
0
  if (ind->dyn_relocs != NULL)
4119
0
    {
4120
0
      if (dir->dyn_relocs != NULL)
4121
0
  {
4122
0
    struct ppc_dyn_relocs **pp;
4123
0
    struct ppc_dyn_relocs *p;
4124
4125
    /* Add reloc counts against the indirect sym to the direct sym
4126
       list.  Merge any entries against the same section.  */
4127
0
    for (pp = (struct ppc_dyn_relocs **) &ind->dyn_relocs;
4128
0
         (p = *pp) != NULL;
4129
0
         )
4130
0
      {
4131
0
        struct ppc_dyn_relocs *q;
4132
4133
0
        for (q = (struct ppc_dyn_relocs *) dir->dyn_relocs;
4134
0
       q != NULL;
4135
0
       q = q->next)
4136
0
    if (q->sec == p->sec)
4137
0
      {
4138
0
        q->count += p->count;
4139
0
        q->pc_count += p->pc_count;
4140
0
        q->rel_count += p->rel_count;
4141
0
        *pp = p->next;
4142
0
        break;
4143
0
      }
4144
0
        if (q == NULL)
4145
0
    pp = &p->next;
4146
0
      }
4147
0
    *pp = (struct ppc_dyn_relocs *) dir->dyn_relocs;
4148
0
  }
4149
4150
0
      dir->dyn_relocs = ind->dyn_relocs;
4151
0
      ind->dyn_relocs = NULL;
4152
0
    }
4153
4154
  /* Copy over got entries that we may have already seen to the
4155
     symbol which just became indirect.  */
4156
0
  if (eind->elf.got.glist != NULL)
4157
0
    {
4158
0
      if (edir->elf.got.glist != NULL)
4159
0
  {
4160
0
    struct got_entry **entp;
4161
0
    struct got_entry *ent;
4162
4163
0
    for (entp = &eind->elf.got.glist; (ent = *entp) != NULL; )
4164
0
      {
4165
0
        struct got_entry *dent;
4166
4167
0
        for (dent = edir->elf.got.glist; dent != NULL; dent = dent->next)
4168
0
    if (dent->addend == ent->addend
4169
0
        && dent->owner == ent->owner
4170
0
        && dent->tls_type == ent->tls_type)
4171
0
      {
4172
0
        dent->got.refcount += ent->got.refcount;
4173
0
        *entp = ent->next;
4174
0
        break;
4175
0
      }
4176
0
        if (dent == NULL)
4177
0
    entp = &ent->next;
4178
0
      }
4179
0
    *entp = edir->elf.got.glist;
4180
0
  }
4181
4182
0
      edir->elf.got.glist = eind->elf.got.glist;
4183
0
      eind->elf.got.glist = NULL;
4184
0
    }
4185
4186
  /* And plt entries.  */
4187
0
  move_plt_plist (eind, edir);
4188
4189
0
  if (eind->elf.dynindx != -1)
4190
0
    {
4191
0
      if (edir->elf.dynindx != -1)
4192
0
  _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
4193
0
        edir->elf.dynstr_index);
4194
0
      edir->elf.dynindx = eind->elf.dynindx;
4195
0
      edir->elf.dynstr_index = eind->elf.dynstr_index;
4196
0
      eind->elf.dynindx = -1;
4197
0
      eind->elf.dynstr_index = 0;
4198
0
    }
4199
0
}
4200
4201
/* Find the function descriptor hash entry from the given function code
4202
   hash entry FH.  Link the entries via their OH fields.  */
4203
4204
static struct ppc_link_hash_entry *
4205
lookup_fdh (struct ppc_link_hash_entry *fh, struct ppc_link_hash_table *htab)
4206
0
{
4207
0
  struct ppc_link_hash_entry *fdh = fh->oh;
4208
4209
0
  if (fdh == NULL)
4210
0
    {
4211
0
      const char *fd_name = fh->elf.root.root.string + 1;
4212
4213
0
      fdh = ppc_elf_hash_entry (elf_link_hash_lookup (&htab->elf, fd_name,
4214
0
                  false, false, false));
4215
0
      if (fdh == NULL)
4216
0
  return fdh;
4217
4218
0
      fdh->is_func_descriptor = 1;
4219
0
      fdh->oh = fh;
4220
0
      fh->is_func = 1;
4221
0
      fh->oh = fdh;
4222
0
    }
4223
4224
0
  fdh = ppc_follow_link (fdh);
4225
0
  fdh->is_func_descriptor = 1;
4226
0
  fdh->oh = fh;
4227
0
  return fdh;
4228
0
}
4229
4230
/* Make a fake function descriptor sym for the undefined code sym FH.  */
4231
4232
static struct ppc_link_hash_entry *
4233
make_fdh (struct bfd_link_info *info,
4234
    struct ppc_link_hash_entry *fh)
4235
0
{
4236
0
  bfd *abfd = fh->elf.root.u.undef.abfd;
4237
0
  struct bfd_link_hash_entry *bh = NULL;
4238
0
  struct ppc_link_hash_entry *fdh;
4239
0
  flagword flags = (fh->elf.root.type == bfd_link_hash_undefweak
4240
0
        ? BSF_WEAK
4241
0
        : BSF_GLOBAL);
4242
4243
0
  if (!_bfd_generic_link_add_one_symbol (info, abfd,
4244
0
           fh->elf.root.root.string + 1,
4245
0
           flags, bfd_und_section_ptr, 0,
4246
0
           NULL, false, false, &bh))
4247
0
    return NULL;
4248
4249
0
  fdh = (struct ppc_link_hash_entry *) bh;
4250
0
  fdh->elf.non_elf = 0;
4251
0
  fdh->fake = 1;
4252
0
  fdh->is_func_descriptor = 1;
4253
0
  fdh->oh = fh;
4254
0
  fh->is_func = 1;
4255
0
  fh->oh = fdh;
4256
0
  return fdh;
4257
0
}
4258
4259
/* Fix function descriptor symbols defined in .opd sections to be
4260
   function type.  */
4261
4262
static bool
4263
ppc64_elf_add_symbol_hook (bfd *ibfd,
4264
         struct bfd_link_info *info,
4265
         Elf_Internal_Sym *isym,
4266
         const char **name,
4267
         flagword *flags ATTRIBUTE_UNUSED,
4268
         asection **sec,
4269
         bfd_vma *value)
4270
0
{
4271
0
  if (*sec != NULL
4272
0
      && strcmp ((*sec)->name, ".opd") == 0)
4273
0
    {
4274
0
      asection *code_sec;
4275
4276
0
      if (!(ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC
4277
0
      || ELF_ST_TYPE (isym->st_info) == STT_FUNC))
4278
0
  isym->st_info = ELF_ST_INFO (ELF_ST_BIND (isym->st_info), STT_FUNC);
4279
4280
      /* If the symbol is a function defined in .opd, and the function
4281
   code is in a discarded group, let it appear to be undefined.  */
4282
0
      if (!bfd_link_relocatable (info)
4283
0
    && (*sec)->reloc_count != 0
4284
0
    && opd_entry_value (*sec, *value, &code_sec, NULL,
4285
0
            false) != (bfd_vma) -1
4286
0
    && discarded_section (code_sec))
4287
0
  {
4288
0
    *sec = bfd_und_section_ptr;
4289
0
    isym->st_shndx = SHN_UNDEF;
4290
0
  }
4291
0
    }
4292
0
  else if (*sec != NULL
4293
0
     && strcmp ((*sec)->name, ".toc") == 0
4294
0
     && ELF_ST_TYPE (isym->st_info) == STT_OBJECT)
4295
0
    {
4296
0
      struct ppc_link_hash_table *htab = ppc_hash_table (info);
4297
0
      if (htab != NULL)
4298
0
  htab->params->object_in_toc = 1;
4299
0
    }
4300
4301
0
  if ((STO_PPC64_LOCAL_MASK & isym->st_other) != 0)
4302
0
    {
4303
0
      if (abiversion (ibfd) == 0)
4304
0
  set_abiversion (ibfd, 2);
4305
0
      else if (abiversion (ibfd) == 1)
4306
0
  {
4307
0
    _bfd_error_handler (_("symbol '%s' has invalid st_other"
4308
0
        " for ABI version 1"), *name);
4309
0
    bfd_set_error (bfd_error_bad_value);
4310
0
    return false;
4311
0
  }
4312
0
    }
4313
4314
0
  return true;
4315
0
}
4316
4317
/* Merge non-visibility st_other attributes: local entry point.  */
4318
4319
static void
4320
ppc64_elf_merge_symbol_attribute (struct elf_link_hash_entry *h,
4321
          unsigned int st_other,
4322
          bool definition,
4323
          bool dynamic)
4324
0
{
4325
0
  if (definition && (!dynamic || !h->def_regular))
4326
0
    h->other = ((st_other & ~ELF_ST_VISIBILITY (-1))
4327
0
    | ELF_ST_VISIBILITY (h->other));
4328
0
}
4329
4330
/* Hook called on merging a symbol.  We use this to clear "fake" since
4331
   we now have a real symbol.  */
4332
4333
static bool
4334
ppc64_elf_merge_symbol (struct elf_link_hash_entry *h,
4335
      const Elf_Internal_Sym *isym,
4336
      asection **psec ATTRIBUTE_UNUSED,
4337
      bool newdef ATTRIBUTE_UNUSED,
4338
      bool olddef ATTRIBUTE_UNUSED,
4339
      bfd *oldbfd ATTRIBUTE_UNUSED,
4340
      const asection *oldsec ATTRIBUTE_UNUSED)
4341
0
{
4342
0
  ppc_elf_hash_entry (h)->fake = 0;
4343
0
  if ((STO_PPC64_LOCAL_MASK & isym->st_other) != 0)
4344
0
    ppc_elf_hash_entry (h)->non_zero_localentry = 1;
4345
0
  return true;
4346
0
}
4347
4348
/* This function makes an old ABI object reference to ".bar" cause the
4349
   inclusion of a new ABI object archive that defines "bar".
4350
   NAME is a symbol defined in an archive.  Return a symbol in the hash
4351
   table that might be satisfied by the archive symbols.  */
4352
4353
static struct bfd_link_hash_entry *
4354
ppc64_elf_archive_symbol_lookup (bfd *abfd,
4355
         struct bfd_link_info *info,
4356
         const char *name)
4357
0
{
4358
0
  struct bfd_link_hash_entry *h;
4359
0
  char *dot_name;
4360
0
  size_t len;
4361
4362
0
  h = _bfd_elf_archive_symbol_lookup (abfd, info, name);
4363
0
  if (h != NULL
4364
0
      && ppc_hash_table (info) != NULL
4365
      /* Don't return this sym if it is a fake function descriptor
4366
   created by add_symbol_adjust.  */
4367
0
      && !((struct ppc_link_hash_entry *) h)->fake)
4368
0
    return h;
4369
4370
0
  if (name[0] == '.')
4371
0
    return h;
4372
4373
0
  len = strlen (name);
4374
0
  dot_name = bfd_alloc (abfd, len + 2);
4375
0
  if (dot_name == NULL)
4376
0
    return (struct bfd_link_hash_entry *) -1;
4377
0
  dot_name[0] = '.';
4378
0
  memcpy (dot_name + 1, name, len + 1);
4379
0
  h = _bfd_elf_archive_symbol_lookup (abfd, info, dot_name);
4380
0
  bfd_release (abfd, dot_name);
4381
0
  if (h != NULL)
4382
0
    return h;
4383
4384
0
  if (strcmp (name, "__tls_get_addr_opt") == 0)
4385
0
    h = _bfd_elf_archive_symbol_lookup (abfd, info, "__tls_get_addr_desc");
4386
0
  return h;
4387
0
}
4388
4389
/* This function satisfies all old ABI object references to ".bar" if a
4390
   new ABI object defines "bar".  Well, at least, undefined dot symbols
4391
   are made weak.  This stops later archive searches from including an
4392
   object if we already have a function descriptor definition.  It also
4393
   prevents the linker complaining about undefined symbols.
4394
   We also check and correct mismatched symbol visibility here.  The
4395
   most restrictive visibility of the function descriptor and the
4396
   function entry symbol is used.  */
4397
4398
static bool
4399
add_symbol_adjust (struct ppc_link_hash_entry *eh, struct bfd_link_info *info)
4400
0
{
4401
0
  struct ppc_link_hash_table *htab;
4402
0
  struct ppc_link_hash_entry *fdh;
4403
4404
0
  if (eh->elf.root.type == bfd_link_hash_warning)
4405
0
    eh = (struct ppc_link_hash_entry *) eh->elf.root.u.i.link;
4406
4407
0
  if (eh->elf.root.type == bfd_link_hash_indirect)
4408
0
    return true;
4409
4410
0
  if (eh->elf.root.root.string[0] != '.')
4411
0
    abort ();
4412
4413
0
  htab = ppc_hash_table (info);
4414
0
  if (htab == NULL)
4415
0
    return false;
4416
4417
0
  fdh = lookup_fdh (eh, htab);
4418
0
  if (fdh == NULL
4419
0
      && !bfd_link_relocatable (info)
4420
0
      && (eh->elf.root.type == bfd_link_hash_undefined
4421
0
    || eh->elf.root.type == bfd_link_hash_undefweak)
4422
0
      && eh->elf.ref_regular)
4423
0
    {
4424
      /* Make an undefined function descriptor sym, in order to
4425
   pull in an --as-needed shared lib.  Archives are handled
4426
   elsewhere.  */
4427
0
      fdh = make_fdh (info, eh);
4428
0
      if (fdh == NULL)
4429
0
  return false;
4430
0
    }
4431
4432
0
  if (fdh != NULL)
4433
0
    {
4434
0
      unsigned entry_vis = ELF_ST_VISIBILITY (eh->elf.other) - 1;
4435
0
      unsigned descr_vis = ELF_ST_VISIBILITY (fdh->elf.other) - 1;
4436
4437
      /* Make both descriptor and entry symbol have the most
4438
   constraining visibility of either symbol.  */
4439
0
      if (entry_vis < descr_vis)
4440
0
  fdh->elf.other += entry_vis - descr_vis;
4441
0
      else if (entry_vis > descr_vis)
4442
0
  eh->elf.other += descr_vis - entry_vis;
4443
4444
      /* Propagate reference flags from entry symbol to function
4445
   descriptor symbol.  */
4446
0
      fdh->elf.root.non_ir_ref_regular |= eh->elf.root.non_ir_ref_regular;
4447
0
      fdh->elf.root.non_ir_ref_dynamic |= eh->elf.root.non_ir_ref_dynamic;
4448
0
      fdh->elf.ref_regular |= eh->elf.ref_regular;
4449
0
      fdh->elf.ref_regular_nonweak |= eh->elf.ref_regular_nonweak;
4450
4451
0
      if (!fdh->elf.forced_local
4452
0
    && fdh->elf.dynindx == -1
4453
0
    && fdh->elf.versioned != versioned_hidden
4454
0
    && (bfd_link_dll (info)
4455
0
        || fdh->elf.def_dynamic
4456
0
        || fdh->elf.ref_dynamic)
4457
0
    && (eh->elf.ref_regular
4458
0
        || eh->elf.def_regular))
4459
0
  {
4460
0
    if (!bfd_elf_link_record_dynamic_symbol (info, &fdh->elf))
4461
0
      return false;
4462
0
  }
4463
0
    }
4464
4465
0
  return true;
4466
0
}
4467
4468
/* Set up opd section info and abiversion for IBFD, and process list
4469
   of dot-symbols we made in link_hash_newfunc.  */
4470
4471
static bool
4472
ppc64_elf_before_check_relocs (bfd *ibfd, struct bfd_link_info *info)
4473
0
{
4474
0
  struct ppc_link_hash_table *htab;
4475
0
  struct ppc_link_hash_entry **p, *eh;
4476
0
  asection *opd = bfd_get_section_by_name (ibfd, ".opd");
4477
4478
0
  if (opd != NULL && opd->size != 0)
4479
0
    {
4480
0
      if (ppc64_elf_section_data (opd)->sec_type == sec_normal)
4481
0
  ppc64_elf_section_data (opd)->sec_type = sec_opd;
4482
0
      else if (ppc64_elf_section_data (opd)->sec_type != sec_opd)
4483
0
  BFD_FAIL ();
4484
4485
0
      if (abiversion (ibfd) == 0)
4486
0
  set_abiversion (ibfd, 1);
4487
0
      else if (abiversion (ibfd) >= 2)
4488
0
  {
4489
    /* xgettext:c-format */
4490
0
    _bfd_error_handler (_("%pB .opd not allowed in ABI version %d"),
4491
0
            ibfd, abiversion (ibfd));
4492
0
    bfd_set_error (bfd_error_bad_value);
4493
0
    return false;
4494
0
  }
4495
0
    }
4496
4497
0
  if (is_ppc64_elf (info->output_bfd))
4498
0
    {
4499
      /* For input files without an explicit abiversion in e_flags
4500
   we should have flagged any with symbol st_other bits set
4501
   as ELFv1 and above flagged those with .opd as ELFv2.
4502
   Set the output abiversion if not yet set, and for any input
4503
   still ambiguous, take its abiversion from the output.
4504
   Differences in ABI are reported later.  */
4505
0
      if (abiversion (info->output_bfd) == 0)
4506
0
  set_abiversion (info->output_bfd, abiversion (ibfd));
4507
0
      else if (abiversion (ibfd) == 0)
4508
0
  set_abiversion (ibfd, abiversion (info->output_bfd));
4509
0
    }
4510
4511
0
  htab = ppc_hash_table (info);
4512
0
  if (htab == NULL)
4513
0
    return true;
4514
4515
0
  if (opd != NULL && opd->size != 0
4516
0
      && (ibfd->flags & DYNAMIC) == 0
4517
0
      && (opd->flags & SEC_RELOC) != 0
4518
0
      && opd->reloc_count != 0
4519
0
      && !bfd_is_abs_section (opd->output_section)
4520
0
      && info->gc_sections)
4521
0
    {
4522
      /* Garbage collection needs some extra help with .opd sections.
4523
   We don't want to necessarily keep everything referenced by
4524
   relocs in .opd, as that would keep all functions.  Instead,
4525
   if we reference an .opd symbol (a function descriptor), we
4526
   want to keep the function code symbol's section.  This is
4527
   easy for global symbols, but for local syms we need to keep
4528
   information about the associated function section.  */
4529
0
      bfd_size_type amt;
4530
0
      asection **opd_sym_map;
4531
0
      Elf_Internal_Shdr *symtab_hdr;
4532
0
      Elf_Internal_Rela *relocs, *rel_end, *rel;
4533
4534
0
      amt = OPD_NDX (opd->size) * sizeof (*opd_sym_map);
4535
0
      opd_sym_map = bfd_zalloc (ibfd, amt);
4536
0
      if (opd_sym_map == NULL)
4537
0
  return false;
4538
0
      ppc64_elf_section_data (opd)->u.opd.func_sec = opd_sym_map;
4539
0
      relocs = _bfd_elf_link_read_relocs (ibfd, opd, NULL, NULL,
4540
0
            info->keep_memory);
4541
0
      if (relocs == NULL)
4542
0
  return false;
4543
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
4544
0
      rel_end = relocs + opd->reloc_count - 1;
4545
0
      for (rel = relocs; rel < rel_end; rel++)
4546
0
  {
4547
0
    enum elf_ppc64_reloc_type r_type = ELF64_R_TYPE (rel->r_info);
4548
0
    unsigned long r_symndx = ELF64_R_SYM (rel->r_info);
4549
4550
0
    if (r_type == R_PPC64_ADDR64
4551
0
        && ELF64_R_TYPE ((rel + 1)->r_info) == R_PPC64_TOC
4552
0
        && r_symndx < symtab_hdr->sh_info)
4553
0
      {
4554
0
        Elf_Internal_Sym *isym;
4555
0
        asection *s;
4556
4557
0
        isym = bfd_sym_from_r_symndx (&htab->elf.sym_cache, ibfd,
4558
0
              r_symndx);
4559
0
        if (isym == NULL)
4560
0
    {
4561
0
      if (elf_section_data (opd)->relocs != relocs)
4562
0
        free (relocs);
4563
0
      return false;
4564
0
    }
4565
4566
0
        s = bfd_section_from_elf_index (ibfd, isym->st_shndx);
4567
0
        if (s != NULL && s != opd)
4568
0
    opd_sym_map[OPD_NDX (rel->r_offset)] = s;
4569
0
      }
4570
0
  }
4571
0
      if (elf_section_data (opd)->relocs != relocs)
4572
0
  free (relocs);
4573
0
    }
4574
4575
0
  p = &htab->dot_syms;
4576
0
  while ((eh = *p) != NULL)
4577
0
    {
4578
0
      *p = NULL;
4579
0
      if (&eh->elf == htab->elf.hgot)
4580
0
  ;
4581
0
      else if (htab->elf.hgot == NULL
4582
0
         && strcmp (eh->elf.root.root.string, ".TOC.") == 0)
4583
0
  htab->elf.hgot = &eh->elf;
4584
0
      else if (abiversion (ibfd) <= 1)
4585
0
  {
4586
0
    htab->need_func_desc_adj = 1;
4587
0
    if (!add_symbol_adjust (eh, info))
4588
0
      return false;
4589
0
  }
4590
0
      p = &eh->u.next_dot_sym;
4591
0
    }
4592
0
  return true;
4593
0
}
4594
4595
/* Undo hash table changes when an --as-needed input file is determined
4596
   not to be needed.  */
4597
4598
static bool
4599
ppc64_elf_notice_as_needed (bfd *ibfd,
4600
          struct bfd_link_info *info,
4601
          enum notice_asneeded_action act)
4602
0
{
4603
0
  if (act == notice_not_needed)
4604
0
    {
4605
0
      struct ppc_link_hash_table *htab = ppc_hash_table (info);
4606
4607
0
      if (htab == NULL)
4608
0
  return false;
4609
4610
0
      htab->dot_syms = NULL;
4611
0
    }
4612
0
  return _bfd_elf_notice_as_needed (ibfd, info, act);
4613
0
}
4614
4615
/* If --just-symbols against a final linked binary, then assume we need
4616
   toc adjusting stubs when calling functions defined there.  */
4617
4618
static void
4619
ppc64_elf_link_just_syms (asection *sec, struct bfd_link_info *info)
4620
0
{
4621
0
  if ((sec->flags & SEC_CODE) != 0
4622
0
      && (sec->owner->flags & (EXEC_P | DYNAMIC)) != 0
4623
0
      && is_ppc64_elf (sec->owner))
4624
0
    {
4625
0
      if (abiversion (sec->owner) >= 2
4626
0
    || bfd_get_section_by_name (sec->owner, ".opd") != NULL)
4627
0
  sec->has_toc_reloc = 1;
4628
0
    }
4629
0
  _bfd_elf_link_just_syms (sec, info);
4630
0
}
4631
4632
static struct plt_entry **
4633
update_local_sym_info (bfd *abfd, Elf_Internal_Shdr *symtab_hdr,
4634
           unsigned long r_symndx, bfd_vma r_addend, int tls_type)
4635
0
{
4636
0
  struct got_entry **local_got_ents = elf_local_got_ents (abfd);
4637
0
  struct plt_entry **local_plt;
4638
0
  unsigned char *local_got_tls_masks;
4639
4640
0
  if (local_got_ents == NULL)
4641
0
    {
4642
0
      bfd_size_type size = symtab_hdr->sh_info;
4643
4644
0
      size *= (sizeof (*local_got_ents)
4645
0
         + sizeof (*local_plt)
4646
0
         + sizeof (*local_got_tls_masks));
4647
0
      local_got_ents = bfd_zalloc (abfd, size);
4648
0
      if (local_got_ents == NULL)
4649
0
  return NULL;
4650
0
      elf_local_got_ents (abfd) = local_got_ents;
4651
0
    }
4652
4653
0
  if ((tls_type & (NON_GOT | TLS_EXPLICIT)) == 0)
4654
0
    {
4655
0
      struct got_entry *ent;
4656
4657
0
      for (ent = local_got_ents[r_symndx]; ent != NULL; ent = ent->next)
4658
0
  if (ent->addend == r_addend
4659
0
      && ent->owner == abfd
4660
0
      && ent->tls_type == tls_type)
4661
0
    break;
4662
0
      if (ent == NULL)
4663
0
  {
4664
0
    size_t amt = sizeof (*ent);
4665
0
    ent = bfd_alloc (abfd, amt);
4666
0
    if (ent == NULL)
4667
0
      return false;
4668
0
    ent->next = local_got_ents[r_symndx];
4669
0
    ent->addend = r_addend;
4670
0
    ent->owner = abfd;
4671
0
    ent->tls_type = tls_type;
4672
0
    ent->is_indirect = false;
4673
0
    ent->got.refcount = 0;
4674
0
    local_got_ents[r_symndx] = ent;
4675
0
  }
4676
0
      ent->got.refcount += 1;
4677
0
    }
4678
4679
0
  local_plt = (struct plt_entry **) (local_got_ents + symtab_hdr->sh_info);
4680
0
  local_got_tls_masks = (unsigned char *) (local_plt + symtab_hdr->sh_info);
4681
0
  local_got_tls_masks[r_symndx] |= tls_type & 0xff;
4682
4683
0
  return local_plt + r_symndx;
4684
0
}
4685
4686
static bool
4687
update_plt_info (bfd *abfd, struct plt_entry **plist, bfd_vma addend)
4688
0
{
4689
0
  struct plt_entry *ent;
4690
4691
0
  for (ent = *plist; ent != NULL; ent = ent->next)
4692
0
    if (ent->addend == addend)
4693
0
      break;
4694
0
  if (ent == NULL)
4695
0
    {
4696
0
      size_t amt = sizeof (*ent);
4697
0
      ent = bfd_alloc (abfd, amt);
4698
0
      if (ent == NULL)
4699
0
  return false;
4700
0
      ent->next = *plist;
4701
0
      ent->addend = addend;
4702
0
      ent->plt.refcount = 0;
4703
0
      *plist = ent;
4704
0
    }
4705
0
  ent->plt.refcount += 1;
4706
0
  return true;
4707
0
}
4708
4709
static bool
4710
is_branch_reloc (enum elf_ppc64_reloc_type r_type)
4711
0
{
4712
0
  return (r_type == R_PPC64_REL24
4713
0
    || r_type == R_PPC64_REL24_NOTOC
4714
0
    || r_type == R_PPC64_REL24_P9NOTOC
4715
0
    || r_type == R_PPC64_REL14
4716
0
    || r_type == R_PPC64_REL14_BRTAKEN
4717
0
    || r_type == R_PPC64_REL14_BRNTAKEN
4718
0
    || r_type == R_PPC64_ADDR24
4719
0
    || r_type == R_PPC64_ADDR14
4720
0
    || r_type == R_PPC64_ADDR14_BRTAKEN
4721
0
    || r_type == R_PPC64_ADDR14_BRNTAKEN
4722
0
    || r_type == R_PPC64_PLTCALL
4723
0
    || r_type == R_PPC64_PLTCALL_NOTOC);
4724
0
}
4725
4726
/* Relocs on inline plt call sequence insns prior to the call.  */
4727
4728
static bool
4729
is_plt_seq_reloc (enum elf_ppc64_reloc_type r_type)
4730
0
{
4731
0
  return (r_type == R_PPC64_PLT16_HA
4732
0
    || r_type == R_PPC64_PLT16_HI
4733
0
    || r_type == R_PPC64_PLT16_LO
4734
0
    || r_type == R_PPC64_PLT16_LO_DS
4735
0
    || r_type == R_PPC64_PLT_PCREL34
4736
0
    || r_type == R_PPC64_PLT_PCREL34_NOTOC
4737
0
    || r_type == R_PPC64_PLTSEQ
4738
0
    || r_type == R_PPC64_PLTSEQ_NOTOC);
4739
0
}
4740
4741
/* Of relocs which might appear paired with TLSGD and TLSLD marker
4742
   relocs, return true for those that operate on a dword.  */
4743
4744
static bool
4745
is_8byte_reloc (enum elf_ppc64_reloc_type r_type)
4746
0
{
4747
0
  return (r_type == R_PPC64_PLT_PCREL34
4748
0
    || r_type == R_PPC64_PLT_PCREL34_NOTOC
4749
0
    || r_type == R_PPC64_PLTCALL);
4750
0
}
4751
4752
/* Like bfd_reloc_offset_in_range but without a howto.  Return true
4753
   iff a field of SIZE bytes at OFFSET is within SEC limits.  */
4754
4755
static bool
4756
offset_in_range (asection *sec, bfd_vma offset, size_t size)
4757
0
{
4758
0
  return offset <= sec->size && size <= sec->size - offset;
4759
0
}
4760
4761
/* Look through the relocs for a section during the first phase, and
4762
   calculate needed space in the global offset table, procedure
4763
   linkage table, and dynamic reloc sections.  */
4764
4765
static bool
4766
ppc64_elf_check_relocs (bfd *abfd, struct bfd_link_info *info,
4767
      asection *sec, const Elf_Internal_Rela *relocs)
4768
0
{
4769
0
  struct ppc_link_hash_table *htab;
4770
0
  Elf_Internal_Shdr *symtab_hdr;
4771
0
  struct elf_link_hash_entry **sym_hashes;
4772
0
  const Elf_Internal_Rela *rel;
4773
0
  const Elf_Internal_Rela *rel_end;
4774
0
  asection *sreloc;
4775
0
  struct elf_link_hash_entry *tga, *dottga;
4776
0
  bool is_opd;
4777
4778
0
  if (bfd_link_relocatable (info))
4779
0
    return true;
4780
4781
0
  BFD_ASSERT (is_ppc64_elf (abfd));
4782
4783
0
  htab = ppc_hash_table (info);
4784
0
  if (htab == NULL)
4785
0
    return false;
4786
4787
0
  tga = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
4788
0
            false, false, true);
4789
0
  dottga = elf_link_hash_lookup (&htab->elf, ".__tls_get_addr",
4790
0
         false, false, true);
4791
0
  symtab_hdr = &elf_symtab_hdr (abfd);
4792
0
  sym_hashes = elf_sym_hashes (abfd);
4793
0
  sreloc = NULL;
4794
0
  is_opd = ppc64_elf_section_data (sec)->sec_type == sec_opd;
4795
0
  rel_end = relocs + sec->reloc_count;
4796
0
  for (rel = relocs; rel < rel_end; rel++)
4797
0
    {
4798
0
      unsigned long r_symndx;
4799
0
      struct elf_link_hash_entry *h;
4800
0
      Elf_Internal_Sym *isym;
4801
0
      enum elf_ppc64_reloc_type r_type;
4802
0
      int tls_type;
4803
0
      struct _ppc64_elf_section_data *ppc64_sec;
4804
0
      struct plt_entry **ifunc, **plt_list;
4805
4806
0
      r_symndx = ELF64_R_SYM (rel->r_info);
4807
0
      if (r_symndx < symtab_hdr->sh_info)
4808
0
  {
4809
0
    h = NULL;
4810
0
    isym = bfd_sym_from_r_symndx (&htab->elf.sym_cache, abfd, r_symndx);
4811
0
    if (isym == NULL)
4812
0
      return false;
4813
0
  }
4814
0
      else
4815
0
  {
4816
0
    isym = NULL;
4817
0
    h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4818
0
    h = elf_follow_link (h);
4819
4820
0
    if (h == htab->elf.hgot)
4821
0
      sec->has_toc_reloc = 1;
4822
0
  }
4823
4824
0
      r_type = ELF64_R_TYPE (rel->r_info);
4825
0
      switch (r_type)
4826
0
  {
4827
0
  case R_PPC64_D34:
4828
0
  case R_PPC64_D34_LO:
4829
0
  case R_PPC64_D34_HI30:
4830
0
  case R_PPC64_D34_HA30:
4831
0
  case R_PPC64_D28:
4832
0
  case R_PPC64_TPREL34:
4833
0
  case R_PPC64_DTPREL34:
4834
0
  case R_PPC64_PCREL34:
4835
0
  case R_PPC64_GOT_PCREL34:
4836
0
  case R_PPC64_GOT_TLSGD_PCREL34:
4837
0
  case R_PPC64_GOT_TLSLD_PCREL34:
4838
0
  case R_PPC64_GOT_TPREL_PCREL34:
4839
0
  case R_PPC64_GOT_DTPREL_PCREL34:
4840
0
  case R_PPC64_PLT_PCREL34:
4841
0
  case R_PPC64_PLT_PCREL34_NOTOC:
4842
0
  case R_PPC64_PCREL28:
4843
0
    htab->has_power10_relocs = 1;
4844
0
    break;
4845
0
  default:
4846
0
    break;
4847
0
  }
4848
4849
0
      switch (r_type)
4850
0
  {
4851
0
  case R_PPC64_PLT16_HA:
4852
0
  case R_PPC64_GOT_TLSLD16_HA:
4853
0
  case R_PPC64_GOT_TLSGD16_HA:
4854
0
  case R_PPC64_GOT_TPREL16_HA:
4855
0
  case R_PPC64_GOT_DTPREL16_HA:
4856
0
  case R_PPC64_GOT16_HA:
4857
0
  case R_PPC64_TOC16_HA:
4858
0
  case R_PPC64_PLT16_LO:
4859
0
  case R_PPC64_PLT16_LO_DS:
4860
0
  case R_PPC64_GOT_TLSLD16_LO:
4861
0
  case R_PPC64_GOT_TLSGD16_LO:
4862
0
  case R_PPC64_GOT_TPREL16_LO_DS:
4863
0
  case R_PPC64_GOT_DTPREL16_LO_DS:
4864
0
  case R_PPC64_GOT16_LO:
4865
0
  case R_PPC64_GOT16_LO_DS:
4866
0
  case R_PPC64_TOC16_LO:
4867
0
  case R_PPC64_TOC16_LO_DS:
4868
0
  case R_PPC64_GOT_PCREL34:
4869
0
    ppc64_elf_tdata (abfd)->has_optrel = 1;
4870
0
    ppc64_elf_section_data (sec)->has_optrel = 1;
4871
0
    break;
4872
0
  default:
4873
0
    break;
4874
0
  }
4875
4876
0
      ifunc = NULL;
4877
0
      if (h != NULL)
4878
0
  {
4879
0
    if (h->type == STT_GNU_IFUNC)
4880
0
      {
4881
0
        h->needs_plt = 1;
4882
0
        ifunc = &h->plt.plist;
4883
0
      }
4884
0
  }
4885
0
      else
4886
0
  {
4887
0
    if (ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
4888
0
      {
4889
0
        ifunc = update_local_sym_info (abfd, symtab_hdr, r_symndx,
4890
0
               rel->r_addend,
4891
0
               NON_GOT | PLT_IFUNC);
4892
0
        if (ifunc == NULL)
4893
0
    return false;
4894
0
      }
4895
0
  }
4896
4897
0
      tls_type = 0;
4898
0
      switch (r_type)
4899
0
  {
4900
0
  case R_PPC64_TLSGD:
4901
0
  case R_PPC64_TLSLD:
4902
    /* These special tls relocs tie a call to __tls_get_addr with
4903
       its parameter symbol.  */
4904
0
    if (h != NULL)
4905
0
      ppc_elf_hash_entry (h)->tls_mask |= TLS_TLS | TLS_MARK;
4906
0
    else
4907
0
      if (!update_local_sym_info (abfd, symtab_hdr, r_symndx,
4908
0
          rel->r_addend,
4909
0
          NON_GOT | TLS_TLS | TLS_MARK))
4910
0
        return false;
4911
0
    sec->has_tls_reloc = 1;
4912
0
    break;
4913
4914
0
  case R_PPC64_GOT_TLSLD16:
4915
0
  case R_PPC64_GOT_TLSLD16_LO:
4916
0
  case R_PPC64_GOT_TLSLD16_HI:
4917
0
  case R_PPC64_GOT_TLSLD16_HA:
4918
0
  case R_PPC64_GOT_TLSLD_PCREL34:
4919
0
    tls_type = TLS_TLS | TLS_LD;
4920
0
    goto dogottls;
4921
4922
0
  case R_PPC64_GOT_TLSGD16:
4923
0
  case R_PPC64_GOT_TLSGD16_LO:
4924
0
  case R_PPC64_GOT_TLSGD16_HI:
4925
0
  case R_PPC64_GOT_TLSGD16_HA:
4926
0
  case R_PPC64_GOT_TLSGD_PCREL34:
4927
0
    tls_type = TLS_TLS | TLS_GD;
4928
0
    goto dogottls;
4929
4930
0
  case R_PPC64_GOT_TPREL16_DS:
4931
0
  case R_PPC64_GOT_TPREL16_LO_DS:
4932
0
  case R_PPC64_GOT_TPREL16_HI:
4933
0
  case R_PPC64_GOT_TPREL16_HA:
4934
0
  case R_PPC64_GOT_TPREL_PCREL34:
4935
0
    if (bfd_link_dll (info))
4936
0
      info->flags |= DF_STATIC_TLS;
4937
0
    tls_type = TLS_TLS | TLS_TPREL;
4938
0
    goto dogottls;
4939
4940
0
  case R_PPC64_GOT_DTPREL16_DS:
4941
0
  case R_PPC64_GOT_DTPREL16_LO_DS:
4942
0
  case R_PPC64_GOT_DTPREL16_HI:
4943
0
  case R_PPC64_GOT_DTPREL16_HA:
4944
0
  case R_PPC64_GOT_DTPREL_PCREL34:
4945
0
    tls_type = TLS_TLS | TLS_DTPREL;
4946
0
  dogottls:
4947
0
    sec->has_tls_reloc = 1;
4948
0
    goto dogot;
4949
4950
0
  case R_PPC64_GOT16:
4951
0
  case R_PPC64_GOT16_LO:
4952
0
  case R_PPC64_GOT16_HI:
4953
0
  case R_PPC64_GOT16_HA:
4954
0
  case R_PPC64_GOT16_DS:
4955
0
  case R_PPC64_GOT16_LO_DS:
4956
0
  case R_PPC64_GOT_PCREL34:
4957
0
  dogot:
4958
    /* This symbol requires a global offset table entry.  */
4959
0
    sec->has_toc_reloc = 1;
4960
0
    if (r_type == R_PPC64_GOT_TLSLD16
4961
0
        || r_type == R_PPC64_GOT_TLSGD16
4962
0
        || r_type == R_PPC64_GOT_TPREL16_DS
4963
0
        || r_type == R_PPC64_GOT_DTPREL16_DS
4964
0
        || r_type == R_PPC64_GOT16
4965
0
        || r_type == R_PPC64_GOT16_DS)
4966
0
      {
4967
0
        htab->do_multi_toc = 1;
4968
0
        ppc64_elf_tdata (abfd)->has_small_toc_reloc = 1;
4969
0
      }
4970
4971
0
    if (ppc64_elf_tdata (abfd)->got == NULL
4972
0
        && !create_got_section (abfd, info))
4973
0
      return false;
4974
4975
0
    if (h != NULL)
4976
0
      {
4977
0
        struct ppc_link_hash_entry *eh;
4978
0
        struct got_entry *ent;
4979
4980
0
        eh = ppc_elf_hash_entry (h);
4981
0
        for (ent = eh->elf.got.glist; ent != NULL; ent = ent->next)
4982
0
    if (ent->addend == rel->r_addend
4983
0
        && ent->owner == abfd
4984
0
        && ent->tls_type == tls_type)
4985
0
      break;
4986
0
        if (ent == NULL)
4987
0
    {
4988
0
      size_t amt = sizeof (*ent);
4989
0
      ent = bfd_alloc (abfd, amt);
4990
0
      if (ent == NULL)
4991
0
        return false;
4992
0
      ent->next = eh->elf.got.glist;
4993
0
      ent->addend = rel->r_addend;
4994
0
      ent->owner = abfd;
4995
0
      ent->tls_type = tls_type;
4996
0
      ent->is_indirect = false;
4997
0
      ent->got.refcount = 0;
4998
0
      eh->elf.got.glist = ent;
4999
0
    }
5000
0
        ent->got.refcount += 1;
5001
0
        eh->tls_mask |= tls_type;
5002
0
      }
5003
0
    else
5004
      /* This is a global offset table entry for a local symbol.  */
5005
0
      if (!update_local_sym_info (abfd, symtab_hdr, r_symndx,
5006
0
          rel->r_addend, tls_type))
5007
0
        return false;
5008
0
    break;
5009
5010
0
  case R_PPC64_PLT16_HA:
5011
0
  case R_PPC64_PLT16_HI:
5012
0
  case R_PPC64_PLT16_LO:
5013
0
  case R_PPC64_PLT16_LO_DS:
5014
0
  case R_PPC64_PLT_PCREL34:
5015
0
  case R_PPC64_PLT_PCREL34_NOTOC:
5016
0
  case R_PPC64_PLT32:
5017
0
  case R_PPC64_PLT64:
5018
    /* This symbol requires a procedure linkage table entry.  */
5019
0
    plt_list = ifunc;
5020
0
    if (h != NULL)
5021
0
      {
5022
0
        h->needs_plt = 1;
5023
0
        if (h->root.root.string[0] == '.'
5024
0
      && h->root.root.string[1] != '\0')
5025
0
    ppc_elf_hash_entry (h)->is_func = 1;
5026
0
        ppc_elf_hash_entry (h)->tls_mask |= PLT_KEEP;
5027
0
        plt_list = &h->plt.plist;
5028
0
      }
5029
0
    if (plt_list == NULL)
5030
0
      plt_list = update_local_sym_info (abfd, symtab_hdr, r_symndx,
5031
0
                rel->r_addend,
5032
0
                NON_GOT | PLT_KEEP);
5033
0
    if (!update_plt_info (abfd, plt_list, rel->r_addend))
5034
0
      return false;
5035
0
    break;
5036
5037
    /* The following relocations don't need to propagate the
5038
       relocation if linking a shared object since they are
5039
       section relative.  */
5040
0
  case R_PPC64_SECTOFF:
5041
0
  case R_PPC64_SECTOFF_LO:
5042
0
  case R_PPC64_SECTOFF_HI:
5043
0
  case R_PPC64_SECTOFF_HA:
5044
0
  case R_PPC64_SECTOFF_DS:
5045
0
  case R_PPC64_SECTOFF_LO_DS:
5046
0
  case R_PPC64_DTPREL16:
5047
0
  case R_PPC64_DTPREL16_LO:
5048
0
  case R_PPC64_DTPREL16_HI:
5049
0
  case R_PPC64_DTPREL16_HA:
5050
0
  case R_PPC64_DTPREL16_DS:
5051
0
  case R_PPC64_DTPREL16_LO_DS:
5052
0
  case R_PPC64_DTPREL16_HIGH:
5053
0
  case R_PPC64_DTPREL16_HIGHA:
5054
0
  case R_PPC64_DTPREL16_HIGHER:
5055
0
  case R_PPC64_DTPREL16_HIGHERA:
5056
0
  case R_PPC64_DTPREL16_HIGHEST:
5057
0
  case R_PPC64_DTPREL16_HIGHESTA:
5058
0
    break;
5059
5060
    /* Nor do these.  */
5061
0
  case R_PPC64_REL16:
5062
0
  case R_PPC64_REL16_LO:
5063
0
  case R_PPC64_REL16_HI:
5064
0
  case R_PPC64_REL16_HA:
5065
0
  case R_PPC64_REL16_HIGH:
5066
0
  case R_PPC64_REL16_HIGHA:
5067
0
  case R_PPC64_REL16_HIGHER:
5068
0
  case R_PPC64_REL16_HIGHERA:
5069
0
  case R_PPC64_REL16_HIGHEST:
5070
0
  case R_PPC64_REL16_HIGHESTA:
5071
0
  case R_PPC64_REL16_HIGHER34:
5072
0
  case R_PPC64_REL16_HIGHERA34:
5073
0
  case R_PPC64_REL16_HIGHEST34:
5074
0
  case R_PPC64_REL16_HIGHESTA34:
5075
0
  case R_PPC64_REL16DX_HA:
5076
0
    break;
5077
5078
    /* Not supported as a dynamic relocation.  */
5079
0
  case R_PPC64_ADDR64_LOCAL:
5080
0
    if (bfd_link_pic (info))
5081
0
      {
5082
0
        if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
5083
0
    ppc_howto_init ();
5084
        /* xgettext:c-format */
5085
0
        info->callbacks->einfo (_("%H: %s reloc unsupported "
5086
0
          "in shared libraries and PIEs\n"),
5087
0
              abfd, sec, rel->r_offset,
5088
0
              ppc64_elf_howto_table[r_type]->name);
5089
0
        bfd_set_error (bfd_error_bad_value);
5090
0
        return false;
5091
0
      }
5092
0
    break;
5093
5094
0
  case R_PPC64_TOC16:
5095
0
  case R_PPC64_TOC16_DS:
5096
0
    htab->do_multi_toc = 1;
5097
0
    ppc64_elf_tdata (abfd)->has_small_toc_reloc = 1;
5098
    /* Fall through.  */
5099
0
  case R_PPC64_TOC16_LO:
5100
0
  case R_PPC64_TOC16_HI:
5101
0
  case R_PPC64_TOC16_HA:
5102
0
  case R_PPC64_TOC16_LO_DS:
5103
0
    sec->has_toc_reloc = 1;
5104
0
    if (h != NULL && bfd_link_executable (info))
5105
0
      {
5106
        /* We may need a copy reloc.  */
5107
0
        h->non_got_ref = 1;
5108
        /* Strongly prefer a copy reloc over a dynamic reloc.
5109
     glibc ld.so as of 2019-08 will error out if one of
5110
     these relocations is emitted.  */
5111
0
        h->needs_copy = 1;
5112
0
        goto dodyn;
5113
0
      }
5114
0
    break;
5115
5116
    /* Marker reloc.  */
5117
0
  case R_PPC64_ENTRY:
5118
0
    break;
5119
5120
    /* This relocation describes the C++ object vtable hierarchy.
5121
       Reconstruct it for later use during GC.  */
5122
0
  case R_PPC64_GNU_VTINHERIT:
5123
0
    if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
5124
0
      return false;
5125
0
    break;
5126
5127
    /* This relocation describes which C++ vtable entries are actually
5128
       used.  Record for later use during GC.  */
5129
0
  case R_PPC64_GNU_VTENTRY:
5130
0
    if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
5131
0
      return false;
5132
0
    break;
5133
5134
0
  case R_PPC64_REL14:
5135
0
  case R_PPC64_REL14_BRTAKEN:
5136
0
  case R_PPC64_REL14_BRNTAKEN:
5137
0
    {
5138
0
      asection *dest = NULL;
5139
5140
      /* Heuristic: If jumping outside our section, chances are
5141
         we are going to need a stub.  */
5142
0
      if (h != NULL)
5143
0
        {
5144
    /* If the sym is weak it may be overridden later, so
5145
       don't assume we know where a weak sym lives.  */
5146
0
    if (h->root.type == bfd_link_hash_defined)
5147
0
      dest = h->root.u.def.section;
5148
0
        }
5149
0
      else
5150
0
        dest = bfd_section_from_elf_index (abfd, isym->st_shndx);
5151
5152
0
      if (dest != sec)
5153
0
        ppc64_elf_section_data (sec)->has_14bit_branch = 1;
5154
0
    }
5155
0
    goto rel24;
5156
5157
0
  case R_PPC64_PLTCALL:
5158
0
  case R_PPC64_PLTCALL_NOTOC:
5159
0
    ppc64_elf_section_data (sec)->has_pltcall = 1;
5160
    /* Fall through.  */
5161
5162
0
  case R_PPC64_REL24:
5163
0
  case R_PPC64_REL24_NOTOC:
5164
0
  case R_PPC64_REL24_P9NOTOC:
5165
0
  rel24:
5166
0
    plt_list = ifunc;
5167
0
    if (h != NULL)
5168
0
      {
5169
0
        h->needs_plt = 1;
5170
0
        if (h->root.root.string[0] == '.'
5171
0
      && h->root.root.string[1] != '\0')
5172
0
    ppc_elf_hash_entry (h)->is_func = 1;
5173
5174
0
        if (h == tga || h == dottga)
5175
0
    {
5176
0
      sec->has_tls_reloc = 1;
5177
0
      if (rel != relocs
5178
0
          && (ELF64_R_TYPE (rel[-1].r_info) == R_PPC64_TLSGD
5179
0
        || ELF64_R_TYPE (rel[-1].r_info) == R_PPC64_TLSLD))
5180
        /* We have a new-style __tls_get_addr call with
5181
           a marker reloc.  */
5182
0
        ;
5183
0
      else
5184
        /* Mark this section as having an old-style call.  */
5185
0
        sec->nomark_tls_get_addr = 1;
5186
0
    }
5187
0
        plt_list = &h->plt.plist;
5188
0
      }
5189
5190
    /* We may need a .plt entry if the function this reloc
5191
       refers to is in a shared lib.  */
5192
0
    if (plt_list
5193
0
        && !update_plt_info (abfd, plt_list, rel->r_addend))
5194
0
      return false;
5195
0
    break;
5196
5197
0
  case R_PPC64_ADDR14:
5198
0
  case R_PPC64_ADDR14_BRNTAKEN:
5199
0
  case R_PPC64_ADDR14_BRTAKEN:
5200
0
  case R_PPC64_ADDR24:
5201
0
    goto dodyn;
5202
5203
0
  case R_PPC64_TPREL64:
5204
0
    tls_type = TLS_EXPLICIT | TLS_TLS | TLS_TPREL;
5205
0
    if (bfd_link_dll (info))
5206
0
      info->flags |= DF_STATIC_TLS;
5207
0
    goto dotlstoc;
5208
5209
0
  case R_PPC64_DTPMOD64:
5210
0
    if (rel + 1 < rel_end
5211
0
        && rel[1].r_info == ELF64_R_INFO (r_symndx, R_PPC64_DTPREL64)
5212
0
        && rel[1].r_offset == rel->r_offset + 8)
5213
0
      tls_type = TLS_EXPLICIT | TLS_TLS | TLS_GD;
5214
0
    else
5215
0
      tls_type = TLS_EXPLICIT | TLS_TLS | TLS_LD;
5216
0
    goto dotlstoc;
5217
5218
0
  case R_PPC64_DTPREL64:
5219
0
    tls_type = TLS_EXPLICIT | TLS_TLS | TLS_DTPREL;
5220
0
    if (rel != relocs
5221
0
        && rel[-1].r_info == ELF64_R_INFO (r_symndx, R_PPC64_DTPMOD64)
5222
0
        && rel[-1].r_offset == rel->r_offset - 8)
5223
      /* This is the second reloc of a dtpmod, dtprel pair.
5224
         Don't mark with TLS_DTPREL.  */
5225
0
      goto dodyn;
5226
5227
0
  dotlstoc:
5228
0
    sec->has_tls_reloc = 1;
5229
0
    if (h != NULL)
5230
0
      ppc_elf_hash_entry (h)->tls_mask |= tls_type & 0xff;
5231
0
    else
5232
0
      if (!update_local_sym_info (abfd, symtab_hdr, r_symndx,
5233
0
          rel->r_addend, tls_type))
5234
0
        return false;
5235
5236
0
    ppc64_sec = ppc64_elf_section_data (sec);
5237
0
    if (ppc64_sec->sec_type == sec_normal)
5238
0
      {
5239
0
        bfd_size_type amt;
5240
5241
        /* One extra to simplify get_tls_mask.  */
5242
0
        amt = sec->size * sizeof (unsigned) / 8 + sizeof (unsigned);
5243
0
        ppc64_sec->u.toc.symndx = bfd_zalloc (abfd, amt);
5244
0
        if (ppc64_sec->u.toc.symndx == NULL)
5245
0
    return false;
5246
0
        amt = sec->size * sizeof (bfd_vma) / 8;
5247
0
        ppc64_sec->u.toc.add = bfd_zalloc (abfd, amt);
5248
0
        if (ppc64_sec->u.toc.add == NULL)
5249
0
    return false;
5250
0
        ppc64_sec->sec_type = sec_toc;
5251
0
      }
5252
0
    if (ppc64_sec->sec_type != sec_toc
5253
0
        || rel->r_offset % 8 != 0)
5254
0
      {
5255
0
        info->callbacks->einfo (_("%H: %s reloc unsupported here\n"),
5256
0
              abfd, sec, rel->r_offset,
5257
0
              ppc64_elf_howto_table[r_type]->name);
5258
0
        bfd_set_error (bfd_error_bad_value);
5259
0
        return false;
5260
0
      }
5261
0
    ppc64_sec->u.toc.symndx[rel->r_offset / 8] = r_symndx;
5262
0
    ppc64_sec->u.toc.add[rel->r_offset / 8] = rel->r_addend;
5263
5264
    /* Mark the second slot of a GD or LD entry.
5265
       -1 to indicate GD and -2 to indicate LD.  */
5266
0
    if (tls_type == (TLS_EXPLICIT | TLS_TLS | TLS_GD))
5267
0
      ppc64_sec->u.toc.symndx[rel->r_offset / 8 + 1] = -1;
5268
0
    else if (tls_type == (TLS_EXPLICIT | TLS_TLS | TLS_LD))
5269
0
      ppc64_sec->u.toc.symndx[rel->r_offset / 8 + 1] = -2;
5270
0
    goto dodyn;
5271
5272
0
  case R_PPC64_TPREL16_HI:
5273
0
  case R_PPC64_TPREL16_HA:
5274
0
  case R_PPC64_TPREL16_HIGH:
5275
0
  case R_PPC64_TPREL16_HIGHA:
5276
0
  case R_PPC64_TPREL16_HIGHER:
5277
0
  case R_PPC64_TPREL16_HIGHERA:
5278
0
  case R_PPC64_TPREL16_HIGHEST:
5279
0
  case R_PPC64_TPREL16_HIGHESTA:
5280
0
    sec->has_tls_reloc = 1;
5281
    /* Fall through.  */
5282
0
  case R_PPC64_TPREL34:
5283
0
  case R_PPC64_TPREL16:
5284
0
  case R_PPC64_TPREL16_DS:
5285
0
  case R_PPC64_TPREL16_LO:
5286
0
  case R_PPC64_TPREL16_LO_DS:
5287
0
    if (bfd_link_dll (info))
5288
0
      info->flags |= DF_STATIC_TLS;
5289
0
    goto dodyn;
5290
5291
0
  case R_PPC64_ADDR64:
5292
0
    if (is_opd
5293
0
        && rel + 1 < rel_end
5294
0
        && ELF64_R_TYPE ((rel + 1)->r_info) == R_PPC64_TOC)
5295
0
      {
5296
0
        if (h != NULL)
5297
0
    ppc_elf_hash_entry (h)->is_func = 1;
5298
0
      }
5299
    /* Fall through.  */
5300
5301
0
  case R_PPC64_ADDR16:
5302
0
  case R_PPC64_ADDR16_DS:
5303
0
  case R_PPC64_ADDR16_HA:
5304
0
  case R_PPC64_ADDR16_HI:
5305
0
  case R_PPC64_ADDR16_HIGH:
5306
0
  case R_PPC64_ADDR16_HIGHA:
5307
0
  case R_PPC64_ADDR16_HIGHER:
5308
0
  case R_PPC64_ADDR16_HIGHERA:
5309
0
  case R_PPC64_ADDR16_HIGHEST:
5310
0
  case R_PPC64_ADDR16_HIGHESTA:
5311
0
  case R_PPC64_ADDR16_LO:
5312
0
  case R_PPC64_ADDR16_LO_DS:
5313
0
  case R_PPC64_D34:
5314
0
  case R_PPC64_D34_LO:
5315
0
  case R_PPC64_D34_HI30:
5316
0
  case R_PPC64_D34_HA30:
5317
0
  case R_PPC64_ADDR16_HIGHER34:
5318
0
  case R_PPC64_ADDR16_HIGHERA34:
5319
0
  case R_PPC64_ADDR16_HIGHEST34:
5320
0
  case R_PPC64_ADDR16_HIGHESTA34:
5321
0
  case R_PPC64_D28:
5322
0
    if (h != NULL && !bfd_link_pic (info) && abiversion (abfd) != 1
5323
0
        && rel->r_addend == 0)
5324
0
      {
5325
        /* We may need a .plt entry if this reloc refers to a
5326
     function in a shared lib.  */
5327
0
        if (!update_plt_info (abfd, &h->plt.plist, 0))
5328
0
    return false;
5329
0
        h->pointer_equality_needed = 1;
5330
0
      }
5331
    /* Fall through.  */
5332
5333
0
  case R_PPC64_REL30:
5334
0
  case R_PPC64_REL32:
5335
0
  case R_PPC64_REL64:
5336
0
  case R_PPC64_ADDR32:
5337
0
  case R_PPC64_UADDR16:
5338
0
  case R_PPC64_UADDR32:
5339
0
  case R_PPC64_UADDR64:
5340
0
  case R_PPC64_TOC:
5341
0
    if (h != NULL && bfd_link_executable (info))
5342
      /* We may need a copy reloc.  */
5343
0
      h->non_got_ref = 1;
5344
5345
    /* Don't propagate .opd relocs.  */
5346
0
    if (NO_OPD_RELOCS && is_opd)
5347
0
      break;
5348
5349
    /* Set up information for symbols that might need dynamic
5350
       relocations.  At this point in linking we have read all
5351
       the input files and resolved most symbols, but have not
5352
       yet decided whether symbols are dynamic or finalized
5353
       symbol flags.  In some cases we might be setting dynamic
5354
       reloc info for symbols that do not end up needing such.
5355
       That's OK, adjust_dynamic_symbol and allocate_dynrelocs
5356
       work together with this code.  */
5357
0
  dodyn:
5358
0
    if ((h != NULL
5359
0
         && !SYMBOL_REFERENCES_LOCAL (info, h))
5360
0
        || (bfd_link_pic (info)
5361
0
      && (h != NULL
5362
0
          ? !bfd_is_abs_symbol (&h->root)
5363
0
          : isym->st_shndx != SHN_ABS)
5364
0
      && must_be_dyn_reloc (info, r_type))
5365
0
        || (!bfd_link_pic (info)
5366
0
      && ifunc != NULL))
5367
0
      {
5368
        /* We must copy these reloc types into the output file.
5369
     Create a reloc section in dynobj and make room for
5370
     this reloc.  */
5371
0
        if (sreloc == NULL)
5372
0
    {
5373
0
      sreloc = _bfd_elf_make_dynamic_reloc_section
5374
0
        (sec, htab->elf.dynobj, 3, abfd, /*rela?*/ true);
5375
5376
0
      if (sreloc == NULL)
5377
0
        return false;
5378
0
    }
5379
5380
        /* If this is a global symbol, we count the number of
5381
     relocations we need for this symbol.  */
5382
0
        if (h != NULL)
5383
0
    {
5384
0
      struct ppc_dyn_relocs *p;
5385
0
      struct ppc_dyn_relocs **head;
5386
5387
0
      head = (struct ppc_dyn_relocs **) &h->dyn_relocs;
5388
0
      p = *head;
5389
0
      if (p == NULL || p->sec != sec)
5390
0
        {
5391
0
          p = bfd_alloc (htab->elf.dynobj, sizeof *p);
5392
0
          if (p == NULL)
5393
0
      return false;
5394
0
          p->next = *head;
5395
0
          *head = p;
5396
0
          p->sec = sec;
5397
0
          p->count = 0;
5398
0
          p->pc_count = 0;
5399
0
          p->rel_count = 0;
5400
0
        }
5401
0
      p->count += 1;
5402
0
      if (!must_be_dyn_reloc (info, r_type))
5403
0
        p->pc_count += 1;
5404
0
      if ((r_type == R_PPC64_ADDR64 || r_type == R_PPC64_TOC)
5405
0
          && rel->r_offset % 2 == 0
5406
0
          && sec->alignment_power != 0)
5407
0
        p->rel_count += 1;
5408
0
    }
5409
0
        else
5410
0
    {
5411
      /* Track dynamic relocs needed for local syms too.  */
5412
0
      struct ppc_local_dyn_relocs *p;
5413
0
      struct ppc_local_dyn_relocs **head;
5414
0
      bool is_ifunc;
5415
0
      asection *s;
5416
0
      void *vpp;
5417
5418
0
      s = bfd_section_from_elf_index (abfd, isym->st_shndx);
5419
0
      if (s == NULL)
5420
0
        s = sec;
5421
5422
0
      vpp = &elf_section_data (s)->local_dynrel;
5423
0
      head = (struct ppc_local_dyn_relocs **) vpp;
5424
0
      is_ifunc = ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC;
5425
0
      p = *head;
5426
0
      if (p != NULL && p->sec == sec && p->ifunc != is_ifunc)
5427
0
        p = p->next;
5428
0
      if (p == NULL || p->sec != sec || p->ifunc != is_ifunc)
5429
0
        {
5430
0
          p = bfd_alloc (htab->elf.dynobj, sizeof *p);
5431
0
          if (p == NULL)
5432
0
      return false;
5433
0
          p->next = *head;
5434
0
          *head = p;
5435
0
          p->sec = sec;
5436
0
          p->count = 0;
5437
0
          p->rel_count = 0;
5438
0
          p->ifunc = is_ifunc;
5439
0
        }
5440
0
      p->count += 1;
5441
0
      if ((r_type == R_PPC64_ADDR64 || r_type == R_PPC64_TOC)
5442
0
          && rel->r_offset % 2 == 0
5443
0
          && sec->alignment_power != 0)
5444
0
        p->rel_count += 1;
5445
0
    }
5446
0
      }
5447
0
    break;
5448
5449
0
  default:
5450
0
    break;
5451
0
  }
5452
0
    }
5453
5454
0
  return true;
5455
0
}
5456
5457
/* Merge backend specific data from an object file to the output
5458
   object file when linking.  */
5459
5460
static bool
5461
ppc64_elf_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
5462
0
{
5463
0
  bfd *obfd = info->output_bfd;
5464
0
  unsigned long iflags, oflags;
5465
5466
0
  if ((ibfd->flags & BFD_LINKER_CREATED) != 0)
5467
0
    return true;
5468
5469
0
  if (!is_ppc64_elf (ibfd) || !is_ppc64_elf (obfd))
5470
0
    return true;
5471
5472
0
  if (!_bfd_generic_verify_endian_match (ibfd, info))
5473
0
    return false;
5474
5475
0
  iflags = elf_elfheader (ibfd)->e_flags;
5476
0
  oflags = elf_elfheader (obfd)->e_flags;
5477
5478
0
  if (iflags & ~EF_PPC64_ABI)
5479
0
    {
5480
0
      _bfd_error_handler
5481
  /* xgettext:c-format */
5482
0
  (_("%pB uses unknown e_flags 0x%lx"), ibfd, iflags);
5483
0
      bfd_set_error (bfd_error_bad_value);
5484
0
      return false;
5485
0
    }
5486
0
  else if (iflags != oflags && iflags != 0)
5487
0
    {
5488
0
      _bfd_error_handler
5489
  /* xgettext:c-format */
5490
0
  (_("%pB: ABI version %ld is not compatible with ABI version %ld output"),
5491
0
   ibfd, iflags, oflags);
5492
0
      bfd_set_error (bfd_error_bad_value);
5493
0
      return false;
5494
0
    }
5495
5496
0
  if (!_bfd_elf_ppc_merge_fp_attributes (ibfd, info))
5497
0
    return false;
5498
5499
  /* Merge Tag_compatibility attributes and any common GNU ones.  */
5500
0
  return _bfd_elf_merge_object_attributes (ibfd, info);
5501
0
}
5502
5503
static bool
5504
ppc64_elf_print_private_bfd_data (bfd *abfd, void *ptr)
5505
0
{
5506
  /* Print normal ELF private data.  */
5507
0
  _bfd_elf_print_private_bfd_data (abfd, ptr);
5508
5509
0
  if (elf_elfheader (abfd)->e_flags != 0)
5510
0
    {
5511
0
      FILE *file = ptr;
5512
5513
0
      fprintf (file, _("private flags = 0x%lx:"),
5514
0
         elf_elfheader (abfd)->e_flags);
5515
5516
0
      if ((elf_elfheader (abfd)->e_flags & EF_PPC64_ABI) != 0)
5517
0
  fprintf (file, _(" [abiv%ld]"),
5518
0
     elf_elfheader (abfd)->e_flags & EF_PPC64_ABI);
5519
0
      fputc ('\n', file);
5520
0
    }
5521
5522
0
  return true;
5523
0
}
5524
5525
/* OFFSET in OPD_SEC specifies a function descriptor.  Return the address
5526
   of the code entry point, and its section, which must be in the same
5527
   object as OPD_SEC.  Returns (bfd_vma) -1 on error.  */
5528
5529
static bfd_vma
5530
opd_entry_value (asection *opd_sec,
5531
     bfd_vma offset,
5532
     asection **code_sec,
5533
     bfd_vma *code_off,
5534
     bool in_code_sec)
5535
0
{
5536
0
  bfd *opd_bfd = opd_sec->owner;
5537
0
  Elf_Internal_Rela *relocs;
5538
0
  Elf_Internal_Rela *lo, *hi, *look;
5539
0
  bfd_vma val;
5540
5541
0
  if (!is_ppc64_elf (opd_bfd))
5542
0
    return (bfd_vma) -1;
5543
5544
0
  if (ppc64_elf_section_data (opd_sec)->sec_type == sec_normal)
5545
0
    ppc64_elf_section_data (opd_sec)->sec_type = sec_opd;
5546
0
  else if (ppc64_elf_section_data (opd_sec)->sec_type != sec_opd)
5547
0
    return (bfd_vma) -1;
5548
5549
  /* No relocs implies we are linking a --just-symbols object, or looking
5550
     at a final linked executable with addr2line or somesuch.  */
5551
0
  if (opd_sec->reloc_count == 0)
5552
0
    {
5553
0
      bfd_byte *contents = ppc64_elf_section_data (opd_sec)->u.opd.u.contents;
5554
5555
0
      if (contents == NULL)
5556
0
  {
5557
0
    if ((opd_sec->flags & SEC_HAS_CONTENTS) == 0
5558
0
        || !bfd_malloc_and_get_section (opd_bfd, opd_sec, &contents))
5559
0
      return (bfd_vma) -1;
5560
0
    ppc64_elf_section_data (opd_sec)->u.opd.u.contents = contents;
5561
0
  }
5562
5563
      /* PR 17512: file: 64b9dfbb.  */
5564
0
      if (offset + 7 >= opd_sec->size || offset + 7 < offset)
5565
0
  return (bfd_vma) -1;
5566
5567
0
      val = bfd_get_64 (opd_bfd, contents + offset);
5568
0
      if (code_sec != NULL)
5569
0
  {
5570
0
    asection *sec, *likely = NULL;
5571
5572
0
    if (in_code_sec)
5573
0
      {
5574
0
        sec = *code_sec;
5575
0
        if (sec->vma <= val
5576
0
      && val < sec->vma + sec->size)
5577
0
    likely = sec;
5578
0
        else
5579
0
    val = -1;
5580
0
      }
5581
0
    else
5582
0
      for (sec = opd_bfd->sections; sec != NULL; sec = sec->next)
5583
0
        if (sec->vma <= val
5584
0
      && (sec->flags & SEC_LOAD) != 0
5585
0
      && (sec->flags & SEC_ALLOC) != 0)
5586
0
    likely = sec;
5587
0
    if (likely != NULL)
5588
0
      {
5589
0
        *code_sec = likely;
5590
0
        if (code_off != NULL)
5591
0
    *code_off = val - likely->vma;
5592
0
      }
5593
0
  }
5594
0
      return val;
5595
0
    }
5596
5597
0
  relocs = ppc64_elf_section_data (opd_sec)->u.opd.u.relocs;
5598
0
  if (relocs == NULL)
5599
0
    relocs = _bfd_elf_link_read_relocs (opd_bfd, opd_sec, NULL, NULL, true);
5600
  /* PR 17512: file: df8e1fd6.  */
5601
0
  if (relocs == NULL)
5602
0
    return (bfd_vma) -1;
5603
5604
  /* Go find the opd reloc at the sym address.  */
5605
0
  lo = relocs;
5606
0
  hi = lo + opd_sec->reloc_count - 1; /* ignore last reloc */
5607
0
  val = (bfd_vma) -1;
5608
0
  while (lo < hi)
5609
0
    {
5610
0
      look = lo + (hi - lo) / 2;
5611
0
      if (look->r_offset < offset)
5612
0
  lo = look + 1;
5613
0
      else if (look->r_offset > offset)
5614
0
  hi = look;
5615
0
      else
5616
0
  {
5617
0
    Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (opd_bfd);
5618
5619
0
    if (ELF64_R_TYPE (look->r_info) == R_PPC64_ADDR64
5620
0
        && ELF64_R_TYPE ((look + 1)->r_info) == R_PPC64_TOC)
5621
0
      {
5622
0
        unsigned long symndx = ELF64_R_SYM (look->r_info);
5623
0
        asection *sec = NULL;
5624
5625
0
        if (symndx >= symtab_hdr->sh_info
5626
0
      && elf_sym_hashes (opd_bfd) != NULL)
5627
0
    {
5628
0
      struct elf_link_hash_entry **sym_hashes;
5629
0
      struct elf_link_hash_entry *rh;
5630
5631
0
      sym_hashes = elf_sym_hashes (opd_bfd);
5632
0
      rh = sym_hashes[symndx - symtab_hdr->sh_info];
5633
0
      if (rh != NULL)
5634
0
        {
5635
0
          rh = elf_follow_link (rh);
5636
0
          if (rh->root.type != bfd_link_hash_defined
5637
0
        && rh->root.type != bfd_link_hash_defweak)
5638
0
      break;
5639
0
          if (rh->root.u.def.section->owner == opd_bfd)
5640
0
      {
5641
0
        val = rh->root.u.def.value;
5642
0
        sec = rh->root.u.def.section;
5643
0
      }
5644
0
        }
5645
0
    }
5646
5647
0
        if (sec == NULL)
5648
0
    {
5649
0
      Elf_Internal_Sym *sym;
5650
5651
0
      if (symndx < symtab_hdr->sh_info)
5652
0
        {
5653
0
          sym = (Elf_Internal_Sym *) symtab_hdr->contents;
5654
0
          if (sym == NULL)
5655
0
      {
5656
0
        size_t symcnt = symtab_hdr->sh_info;
5657
0
        sym = bfd_elf_get_elf_syms (opd_bfd, symtab_hdr,
5658
0
                  symcnt, 0,
5659
0
                  NULL, NULL, NULL);
5660
0
        if (sym == NULL)
5661
0
          break;
5662
0
        symtab_hdr->contents = (bfd_byte *) sym;
5663
0
      }
5664
0
          sym += symndx;
5665
0
        }
5666
0
      else
5667
0
        {
5668
0
          sym = bfd_elf_get_elf_syms (opd_bfd, symtab_hdr,
5669
0
              1, symndx,
5670
0
              NULL, NULL, NULL);
5671
0
          if (sym == NULL)
5672
0
      break;
5673
0
        }
5674
0
      sec = bfd_section_from_elf_index (opd_bfd, sym->st_shndx);
5675
0
      if (sec == NULL)
5676
0
        break;
5677
0
      BFD_ASSERT ((sec->flags & SEC_MERGE) == 0);
5678
0
      val = sym->st_value;
5679
0
    }
5680
5681
0
        val += look->r_addend;
5682
0
        if (code_off != NULL)
5683
0
    *code_off = val;
5684
0
        if (code_sec != NULL)
5685
0
    {
5686
0
      if (in_code_sec && *code_sec != sec)
5687
0
        return -1;
5688
0
      else
5689
0
        *code_sec = sec;
5690
0
    }
5691
0
        if (sec->output_section != NULL)
5692
0
    val += sec->output_section->vma + sec->output_offset;
5693
0
      }
5694
0
    break;
5695
0
  }
5696
0
    }
5697
5698
0
  return val;
5699
0
}
5700
5701
/* If the ELF symbol SYM might be a function in SEC, return the
5702
   function size and set *CODE_OFF to the function's entry point,
5703
   otherwise return zero.  */
5704
5705
static bfd_size_type
5706
ppc64_elf_maybe_function_sym (const asymbol *sym, asection *sec,
5707
            bfd_vma *code_off)
5708
7.63k
{
5709
7.63k
  bfd_size_type size;
5710
7.63k
  elf_symbol_type * elf_sym = (elf_symbol_type *) sym;
5711
5712
7.63k
  if ((sym->flags & (BSF_SECTION_SYM | BSF_FILE | BSF_OBJECT
5713
7.63k
         | BSF_THREAD_LOCAL | BSF_RELC | BSF_SRELC)) != 0)
5714
1.86k
    return 0;
5715
5716
5.76k
  size = (sym->flags & BSF_SYNTHETIC) ? 0 : elf_sym->internal_elf_sym.st_size;
5717
5718
  /* In theory we should check that the symbol's type satisfies
5719
     _bfd_elf_is_function_type(), but there are some function-like
5720
     symbols which would fail this test.  (eg _start).  Instead
5721
     we check for hidden, local, notype symbols with zero size.
5722
     This type of symbol is generated by the annobin plugin for gcc
5723
     and clang, and should not be considered to be a function symbol.  */
5724
5.76k
  if (size == 0
5725
5.76k
      && ((sym->flags & (BSF_SYNTHETIC | BSF_LOCAL)) == BSF_LOCAL)
5726
5.76k
      && ELF_ST_TYPE (elf_sym->internal_elf_sym.st_info) == STT_NOTYPE
5727
5.76k
      && ELF_ST_VISIBILITY (elf_sym->internal_elf_sym.st_other) == STV_HIDDEN)
5728
8
    return 0;
5729
5730
5.76k
  if (strcmp (sym->section->name, ".opd") == 0)
5731
0
    {
5732
0
      struct _opd_sec_data *opd = get_opd_info (sym->section);
5733
0
      bfd_vma symval = sym->value;
5734
5735
0
      if (opd != NULL
5736
0
    && opd->adjust != NULL
5737
0
    && elf_section_data (sym->section)->relocs != NULL)
5738
0
  {
5739
    /* opd_entry_value will use cached relocs that have been
5740
       adjusted, but with raw symbols.  That means both local
5741
       and global symbols need adjusting.  */
5742
0
    long adjust = opd->adjust[OPD_NDX (symval)];
5743
0
    if (adjust == -1)
5744
0
      return 0;
5745
0
    symval += adjust;
5746
0
  }
5747
5748
0
      if (opd_entry_value (sym->section, symval,
5749
0
         &sec, code_off, true) == (bfd_vma) -1)
5750
0
  return 0;
5751
      /* An old ABI binary with dot-syms has a size of 24 on the .opd
5752
   symbol.  This size has nothing to do with the code size of the
5753
   function, which is what we're supposed to return, but the
5754
   code size isn't available without looking up the dot-sym.
5755
   However, doing that would be a waste of time particularly
5756
   since elf_find_function will look at the dot-sym anyway.
5757
   Now, elf_find_function will keep the largest size of any
5758
   function sym found at the code address of interest, so return
5759
   1 here to avoid it incorrectly caching a larger function size
5760
   for a small function.  This does mean we return the wrong
5761
   size for a new-ABI function of size 24, but all that does is
5762
   disable caching for such functions.  */
5763
0
      if (size == 24)
5764
0
  size = 1;
5765
0
    }
5766
5.76k
  else
5767
5.76k
    {
5768
5.76k
      if (sym->section != sec)
5769
5.75k
  return 0;
5770
6
      *code_off = sym->value;
5771
6
    }
5772
5773
  /* Do not return 0 for the function's size.  */
5774
6
  return size ? size : 1;
5775
5.76k
}
5776
5777
/* Return true if symbol is a strong function defined in an ELFv2
5778
   object with st_other localentry bits of zero, ie. its local entry
5779
   point coincides with its global entry point.  */
5780
5781
static bool
5782
is_elfv2_localentry0 (struct elf_link_hash_entry *h)
5783
0
{
5784
0
  return (h != NULL
5785
0
    && h->type == STT_FUNC
5786
0
    && h->root.type == bfd_link_hash_defined
5787
0
    && (STO_PPC64_LOCAL_MASK & h->other) == 0
5788
0
    && !ppc_elf_hash_entry (h)->non_zero_localentry
5789
0
    && is_ppc64_elf (h->root.u.def.section->owner)
5790
0
    && abiversion (h->root.u.def.section->owner) >= 2);
5791
0
}
5792
5793
/* Return true if symbol is defined in a regular object file.  */
5794
5795
static bool
5796
is_static_defined (struct elf_link_hash_entry *h)
5797
0
{
5798
0
  return ((h->root.type == bfd_link_hash_defined
5799
0
     || h->root.type == bfd_link_hash_defweak)
5800
0
    && h->root.u.def.section != NULL
5801
0
    && h->root.u.def.section->output_section != NULL);
5802
0
}
5803
5804
/* If FDH is a function descriptor symbol, return the associated code
5805
   entry symbol if it is defined.  Return NULL otherwise.  */
5806
5807
static struct ppc_link_hash_entry *
5808
defined_code_entry (struct ppc_link_hash_entry *fdh)
5809
0
{
5810
0
  if (fdh->is_func_descriptor)
5811
0
    {
5812
0
      struct ppc_link_hash_entry *fh = ppc_follow_link (fdh->oh);
5813
0
      if (fh->elf.root.type == bfd_link_hash_defined
5814
0
    || fh->elf.root.type == bfd_link_hash_defweak)
5815
0
  return fh;
5816
0
    }
5817
0
  return NULL;
5818
0
}
5819
5820
/* If FH is a function code entry symbol, return the associated
5821
   function descriptor symbol if it is defined.  Return NULL otherwise.  */
5822
5823
static struct ppc_link_hash_entry *
5824
defined_func_desc (struct ppc_link_hash_entry *fh)
5825
0
{
5826
0
  if (fh->oh != NULL
5827
0
      && fh->oh->is_func_descriptor)
5828
0
    {
5829
0
      struct ppc_link_hash_entry *fdh = ppc_follow_link (fh->oh);
5830
0
      if (fdh->elf.root.type == bfd_link_hash_defined
5831
0
    || fdh->elf.root.type == bfd_link_hash_defweak)
5832
0
  return fdh;
5833
0
    }
5834
0
  return NULL;
5835
0
}
5836
5837
/* Given H is a symbol that satisfies is_static_defined, return the
5838
   value in the output file.  */
5839
5840
static bfd_vma
5841
defined_sym_val (struct elf_link_hash_entry *h)
5842
0
{
5843
0
  return (h->root.u.def.section->output_section->vma
5844
0
    + h->root.u.def.section->output_offset
5845
0
    + h->root.u.def.value);
5846
0
}
5847
5848
/* Return true if H matches __tls_get_addr or one of its variants.  */
5849
5850
static bool
5851
is_tls_get_addr (struct elf_link_hash_entry *h,
5852
     struct ppc_link_hash_table *htab)
5853
0
{
5854
0
  return (h == elf_hash_entry (htab->tls_get_addr_fd)
5855
0
    || h == elf_hash_entry (htab->tga_desc_fd)
5856
0
    || h == elf_hash_entry (htab->tls_get_addr)
5857
0
    || h == elf_hash_entry (htab->tga_desc));
5858
0
}
5859
5860
static bool func_desc_adjust (struct elf_link_hash_entry *, void *);
5861
5862
/* Garbage collect sections, after first dealing with dot-symbols.  */
5863
5864
static bool
5865
ppc64_elf_gc_sections (bfd *abfd, struct bfd_link_info *info)
5866
0
{
5867
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
5868
5869
0
  if (htab != NULL && htab->need_func_desc_adj)
5870
0
    {
5871
0
      elf_link_hash_traverse (&htab->elf, func_desc_adjust, info);
5872
0
      htab->need_func_desc_adj = 0;
5873
0
    }
5874
0
  return bfd_elf_gc_sections (abfd, info);
5875
0
}
5876
5877
/* Mark all our entry sym sections, both opd and code section.  */
5878
5879
static void
5880
ppc64_elf_gc_keep (struct bfd_link_info *info)
5881
0
{
5882
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
5883
0
  struct bfd_sym_chain *sym;
5884
5885
0
  if (htab == NULL)
5886
0
    return;
5887
5888
0
  for (sym = info->gc_sym_list; sym != NULL; sym = sym->next)
5889
0
    {
5890
0
      struct ppc_link_hash_entry *eh, *fh;
5891
0
      asection *sec;
5892
5893
0
      eh = ppc_elf_hash_entry (elf_link_hash_lookup (&htab->elf, sym->name,
5894
0
                 false, false, true));
5895
0
      if (eh == NULL)
5896
0
  continue;
5897
0
      if (eh->elf.root.type != bfd_link_hash_defined
5898
0
    && eh->elf.root.type != bfd_link_hash_defweak)
5899
0
  continue;
5900
5901
0
      fh = defined_code_entry (eh);
5902
0
      if (fh != NULL)
5903
0
  {
5904
0
    sec = fh->elf.root.u.def.section;
5905
0
    sec->flags |= SEC_KEEP;
5906
0
  }
5907
0
      else if (get_opd_info (eh->elf.root.u.def.section) != NULL
5908
0
         && opd_entry_value (eh->elf.root.u.def.section,
5909
0
           eh->elf.root.u.def.value,
5910
0
           &sec, NULL, false) != (bfd_vma) -1)
5911
0
  sec->flags |= SEC_KEEP;
5912
5913
0
      sec = eh->elf.root.u.def.section;
5914
0
      sec->flags |= SEC_KEEP;
5915
0
    }
5916
0
}
5917
5918
/* Mark sections containing dynamically referenced symbols.  When
5919
   building shared libraries, we must assume that any visible symbol is
5920
   referenced.  */
5921
5922
static bool
5923
ppc64_elf_gc_mark_dynamic_ref (struct elf_link_hash_entry *h, void *inf)
5924
0
{
5925
0
  struct bfd_link_info *info = (struct bfd_link_info *) inf;
5926
0
  struct ppc_link_hash_entry *eh = ppc_elf_hash_entry (h);
5927
0
  struct ppc_link_hash_entry *fdh;
5928
0
  struct bfd_elf_dynamic_list *d = info->dynamic_list;
5929
5930
  /* Dynamic linking info is on the func descriptor sym.  */
5931
0
  fdh = defined_func_desc (eh);
5932
0
  if (fdh != NULL)
5933
0
    eh = fdh;
5934
5935
0
  if ((eh->elf.root.type == bfd_link_hash_defined
5936
0
       || eh->elf.root.type == bfd_link_hash_defweak)
5937
0
      && (!eh->elf.start_stop
5938
0
    || eh->elf.root.ldscript_def
5939
0
    || !info->start_stop_gc)
5940
0
      && ((eh->elf.ref_dynamic && !eh->elf.forced_local)
5941
0
    || ((eh->elf.def_regular || ELF_COMMON_DEF_P (&eh->elf))
5942
0
        && ELF_ST_VISIBILITY (eh->elf.other) != STV_INTERNAL
5943
0
        && ELF_ST_VISIBILITY (eh->elf.other) != STV_HIDDEN
5944
0
        && (!bfd_link_executable (info)
5945
0
      || info->gc_keep_exported
5946
0
      || info->export_dynamic
5947
0
      || (eh->elf.dynamic
5948
0
          && d != NULL
5949
0
          && (*d->match) (&d->head, NULL,
5950
0
              eh->elf.root.root.string)))
5951
0
        && (eh->elf.versioned >= versioned
5952
0
      || !bfd_hide_sym_by_version (info->version_info,
5953
0
                 eh->elf.root.root.string)))))
5954
0
    {
5955
0
      asection *code_sec;
5956
0
      struct ppc_link_hash_entry *fh;
5957
5958
0
      eh->elf.root.u.def.section->flags |= SEC_KEEP;
5959
5960
      /* Function descriptor syms cause the associated
5961
   function code sym section to be marked.  */
5962
0
      fh = defined_code_entry (eh);
5963
0
      if (fh != NULL)
5964
0
  {
5965
0
    code_sec = fh->elf.root.u.def.section;
5966
0
    code_sec->flags |= SEC_KEEP;
5967
0
  }
5968
0
      else if (get_opd_info (eh->elf.root.u.def.section) != NULL
5969
0
         && opd_entry_value (eh->elf.root.u.def.section,
5970
0
           eh->elf.root.u.def.value,
5971
0
           &code_sec, NULL, false) != (bfd_vma) -1)
5972
0
  code_sec->flags |= SEC_KEEP;
5973
0
    }
5974
5975
0
  return true;
5976
0
}
5977
5978
/* Return the section that should be marked against GC for a given
5979
   relocation.  */
5980
5981
static asection *
5982
ppc64_elf_gc_mark_hook (asection *sec,
5983
      struct bfd_link_info *info,
5984
      Elf_Internal_Rela *rel,
5985
      struct elf_link_hash_entry *h,
5986
      Elf_Internal_Sym *sym)
5987
0
{
5988
0
  asection *rsec;
5989
5990
  /* Syms return NULL if we're marking .opd, so we avoid marking all
5991
     function sections, as all functions are referenced in .opd.  */
5992
0
  rsec = NULL;
5993
0
  if (get_opd_info (sec) != NULL)
5994
0
    return rsec;
5995
5996
0
  if (h != NULL)
5997
0
    {
5998
0
      enum elf_ppc64_reloc_type r_type;
5999
0
      struct ppc_link_hash_entry *eh, *fh, *fdh;
6000
6001
0
      r_type = ELF64_R_TYPE (rel->r_info);
6002
0
      switch (r_type)
6003
0
  {
6004
0
  case R_PPC64_GNU_VTINHERIT:
6005
0
  case R_PPC64_GNU_VTENTRY:
6006
0
    break;
6007
6008
0
  default:
6009
0
    switch (h->root.type)
6010
0
      {
6011
0
      case bfd_link_hash_defined:
6012
0
      case bfd_link_hash_defweak:
6013
0
        eh = ppc_elf_hash_entry (h);
6014
0
        fdh = defined_func_desc (eh);
6015
0
        if (fdh != NULL)
6016
0
    {
6017
      /* -mcall-aixdesc code references the dot-symbol on
6018
         a call reloc.  Mark the function descriptor too
6019
         against garbage collection.  */
6020
0
      fdh->elf.mark = 1;
6021
0
      if (fdh->elf.is_weakalias)
6022
0
        weakdef (&fdh->elf)->mark = 1;
6023
0
      eh = fdh;
6024
0
    }
6025
6026
        /* Function descriptor syms cause the associated
6027
     function code sym section to be marked.  */
6028
0
        fh = defined_code_entry (eh);
6029
0
        if (fh != NULL)
6030
0
    {
6031
      /* They also mark their opd section.  */
6032
0
      eh->elf.root.u.def.section->gc_mark = 1;
6033
6034
0
      rsec = fh->elf.root.u.def.section;
6035
0
    }
6036
0
        else if (get_opd_info (eh->elf.root.u.def.section) != NULL
6037
0
           && opd_entry_value (eh->elf.root.u.def.section,
6038
0
             eh->elf.root.u.def.value,
6039
0
             &rsec, NULL, false) != (bfd_vma) -1)
6040
0
    eh->elf.root.u.def.section->gc_mark = 1;
6041
0
        else
6042
0
    rsec = h->root.u.def.section;
6043
0
        break;
6044
6045
0
      case bfd_link_hash_common:
6046
0
        rsec = h->root.u.c.p->section;
6047
0
        break;
6048
6049
0
      default:
6050
0
        return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
6051
0
      }
6052
0
  }
6053
0
    }
6054
0
  else
6055
0
    {
6056
0
      struct _opd_sec_data *opd;
6057
6058
0
      rsec = bfd_section_from_elf_index (sec->owner, sym->st_shndx);
6059
0
      opd = get_opd_info (rsec);
6060
0
      if (opd != NULL && opd->func_sec != NULL)
6061
0
  {
6062
0
    rsec->gc_mark = 1;
6063
6064
0
    rsec = opd->func_sec[OPD_NDX (sym->st_value + rel->r_addend)];
6065
0
  }
6066
0
    }
6067
6068
0
  return rsec;
6069
0
}
6070
6071
/* The maximum size of .sfpr.  */
6072
0
#define SFPR_MAX (218*4)
6073
6074
struct sfpr_def_parms
6075
{
6076
  const char name[12];
6077
  unsigned char lo, hi;
6078
  bfd_byte *(*write_ent) (bfd *, bfd_byte *, int);
6079
  bfd_byte *(*write_tail) (bfd *, bfd_byte *, int);
6080
};
6081
6082
/* Auto-generate _save*, _rest* functions in .sfpr.
6083
   If STUB_SEC is non-null, define alias symbols in STUB_SEC
6084
   instead.  */
6085
6086
static bool
6087
sfpr_define (struct bfd_link_info *info,
6088
       const struct sfpr_def_parms *parm,
6089
       asection *stub_sec)
6090
0
{
6091
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
6092
0
  unsigned int i;
6093
0
  size_t len = strlen (parm->name);
6094
0
  bool writing = false;
6095
0
  char sym[16];
6096
6097
0
  if (htab == NULL)
6098
0
    return false;
6099
6100
0
  memcpy (sym, parm->name, len);
6101
0
  sym[len + 2] = 0;
6102
6103
0
  for (i = parm->lo; i <= parm->hi; i++)
6104
0
    {
6105
0
      struct ppc_link_hash_entry *h;
6106
6107
0
      sym[len + 0] = i / 10 + '0';
6108
0
      sym[len + 1] = i % 10 + '0';
6109
0
      h = ppc_elf_hash_entry (elf_link_hash_lookup (&htab->elf, sym,
6110
0
                writing, true, true));
6111
0
      if (stub_sec != NULL)
6112
0
  {
6113
0
    if (h != NULL
6114
0
        && h->elf.root.type == bfd_link_hash_defined
6115
0
        && h->elf.root.u.def.section == htab->sfpr)
6116
0
      {
6117
0
        struct elf_link_hash_entry *s;
6118
0
        char buf[32];
6119
0
        sprintf (buf, "%08x.%s", stub_sec->id & 0xffffffff, sym);
6120
0
        s = elf_link_hash_lookup (&htab->elf, buf, true, true, false);
6121
0
        if (s == NULL)
6122
0
    return false;
6123
0
        if (s->root.type == bfd_link_hash_new)
6124
0
    {
6125
0
      s->root.type = bfd_link_hash_defined;
6126
0
      s->root.u.def.section = stub_sec;
6127
0
      s->root.u.def.value = (stub_sec->size - htab->sfpr->size
6128
0
           + h->elf.root.u.def.value);
6129
0
      s->ref_regular = 1;
6130
0
      s->def_regular = 1;
6131
0
      s->ref_regular_nonweak = 1;
6132
0
      s->forced_local = 1;
6133
0
      s->non_elf = 0;
6134
0
      s->root.linker_def = 1;
6135
0
    }
6136
0
      }
6137
0
    continue;
6138
0
  }
6139
0
      if (h != NULL)
6140
0
  {
6141
0
    h->save_res = 1;
6142
0
    if (!h->elf.def_regular)
6143
0
      {
6144
0
        h->elf.root.type = bfd_link_hash_defined;
6145
0
        h->elf.root.u.def.section = htab->sfpr;
6146
0
        h->elf.root.u.def.value = htab->sfpr->size;
6147
0
        h->elf.type = STT_FUNC;
6148
0
        h->elf.def_regular = 1;
6149
0
        h->elf.non_elf = 0;
6150
0
        _bfd_elf_link_hash_hide_symbol (info, &h->elf, true);
6151
0
        writing = true;
6152
0
        if (htab->sfpr->contents == NULL)
6153
0
    {
6154
0
      htab->sfpr->contents
6155
0
        = bfd_alloc (htab->elf.dynobj, SFPR_MAX);
6156
0
      if (htab->sfpr->contents == NULL)
6157
0
        return false;
6158
0
    }
6159
0
      }
6160
0
  }
6161
0
      if (writing)
6162
0
  {
6163
0
    bfd_byte *p = htab->sfpr->contents + htab->sfpr->size;
6164
0
    if (i != parm->hi)
6165
0
      p = (*parm->write_ent) (htab->elf.dynobj, p, i);
6166
0
    else
6167
0
      p = (*parm->write_tail) (htab->elf.dynobj, p, i);
6168
0
    htab->sfpr->size = p - htab->sfpr->contents;
6169
0
  }
6170
0
    }
6171
6172
0
  return true;
6173
0
}
6174
6175
static bfd_byte *
6176
savegpr0 (bfd *abfd, bfd_byte *p, int r)
6177
0
{
6178
0
  bfd_put_32 (abfd, STD_R0_0R1 + (r << 21) + (1 << 16) - (32 - r) * 8, p);
6179
0
  return p + 4;
6180
0
}
6181
6182
static bfd_byte *
6183
savegpr0_tail (bfd *abfd, bfd_byte *p, int r)
6184
0
{
6185
0
  p = savegpr0 (abfd, p, r);
6186
0
  bfd_put_32 (abfd, STD_R0_0R1 + STK_LR, p);
6187
0
  p = p + 4;
6188
0
  bfd_put_32 (abfd, BLR, p);
6189
0
  return p + 4;
6190
0
}
6191
6192
static bfd_byte *
6193
restgpr0 (bfd *abfd, bfd_byte *p, int r)
6194
0
{
6195
0
  bfd_put_32 (abfd, LD_R0_0R1 + (r << 21) + (1 << 16) - (32 - r) * 8, p);
6196
0
  return p + 4;
6197
0
}
6198
6199
static bfd_byte *
6200
restgpr0_tail (bfd *abfd, bfd_byte *p, int r)
6201
0
{
6202
0
  bfd_put_32 (abfd, LD_R0_0R1 + STK_LR, p);
6203
0
  p = p + 4;
6204
0
  p = restgpr0 (abfd, p, r);
6205
0
  bfd_put_32 (abfd, MTLR_R0, p);
6206
0
  p = p + 4;
6207
0
  if (r == 29)
6208
0
    {
6209
0
      p = restgpr0 (abfd, p, 30);
6210
0
      p = restgpr0 (abfd, p, 31);
6211
0
    }
6212
0
  bfd_put_32 (abfd, BLR, p);
6213
0
  return p + 4;
6214
0
}
6215
6216
static bfd_byte *
6217
savegpr1 (bfd *abfd, bfd_byte *p, int r)
6218
0
{
6219
0
  bfd_put_32 (abfd, STD_R0_0R12 + (r << 21) + (1 << 16) - (32 - r) * 8, p);
6220
0
  return p + 4;
6221
0
}
6222
6223
static bfd_byte *
6224
savegpr1_tail (bfd *abfd, bfd_byte *p, int r)
6225
0
{
6226
0
  p = savegpr1 (abfd, p, r);
6227
0
  bfd_put_32 (abfd, BLR, p);
6228
0
  return p + 4;
6229
0
}
6230
6231
static bfd_byte *
6232
restgpr1 (bfd *abfd, bfd_byte *p, int r)
6233
0
{
6234
0
  bfd_put_32 (abfd, LD_R0_0R12 + (r << 21) + (1 << 16) - (32 - r) * 8, p);
6235
0
  return p + 4;
6236
0
}
6237
6238
static bfd_byte *
6239
restgpr1_tail (bfd *abfd, bfd_byte *p, int r)
6240
0
{
6241
0
  p = restgpr1 (abfd, p, r);
6242
0
  bfd_put_32 (abfd, BLR, p);
6243
0
  return p + 4;
6244
0
}
6245
6246
static bfd_byte *
6247
savefpr (bfd *abfd, bfd_byte *p, int r)
6248
0
{
6249
0
  bfd_put_32 (abfd, STFD_FR0_0R1 + (r << 21) + (1 << 16) - (32 - r) * 8, p);
6250
0
  return p + 4;
6251
0
}
6252
6253
static bfd_byte *
6254
savefpr0_tail (bfd *abfd, bfd_byte *p, int r)
6255
0
{
6256
0
  p = savefpr (abfd, p, r);
6257
0
  bfd_put_32 (abfd, STD_R0_0R1 + STK_LR, p);
6258
0
  p = p + 4;
6259
0
  bfd_put_32 (abfd, BLR, p);
6260
0
  return p + 4;
6261
0
}
6262
6263
static bfd_byte *
6264
restfpr (bfd *abfd, bfd_byte *p, int r)
6265
0
{
6266
0
  bfd_put_32 (abfd, LFD_FR0_0R1 + (r << 21) + (1 << 16) - (32 - r) * 8, p);
6267
0
  return p + 4;
6268
0
}
6269
6270
static bfd_byte *
6271
restfpr0_tail (bfd *abfd, bfd_byte *p, int r)
6272
0
{
6273
0
  bfd_put_32 (abfd, LD_R0_0R1 + STK_LR, p);
6274
0
  p = p + 4;
6275
0
  p = restfpr (abfd, p, r);
6276
0
  bfd_put_32 (abfd, MTLR_R0, p);
6277
0
  p = p + 4;
6278
0
  if (r == 29)
6279
0
    {
6280
0
      p = restfpr (abfd, p, 30);
6281
0
      p = restfpr (abfd, p, 31);
6282
0
    }
6283
0
  bfd_put_32 (abfd, BLR, p);
6284
0
  return p + 4;
6285
0
}
6286
6287
static bfd_byte *
6288
savefpr1_tail (bfd *abfd, bfd_byte *p, int r)
6289
0
{
6290
0
  p = savefpr (abfd, p, r);
6291
0
  bfd_put_32 (abfd, BLR, p);
6292
0
  return p + 4;
6293
0
}
6294
6295
static bfd_byte *
6296
restfpr1_tail (bfd *abfd, bfd_byte *p, int r)
6297
0
{
6298
0
  p = restfpr (abfd, p, r);
6299
0
  bfd_put_32 (abfd, BLR, p);
6300
0
  return p + 4;
6301
0
}
6302
6303
static bfd_byte *
6304
savevr (bfd *abfd, bfd_byte *p, int r)
6305
0
{
6306
0
  bfd_put_32 (abfd, LI_R12_0 + (1 << 16) - (32 - r) * 16, p);
6307
0
  p = p + 4;
6308
0
  bfd_put_32 (abfd, STVX_VR0_R12_R0 + (r << 21), p);
6309
0
  return p + 4;
6310
0
}
6311
6312
static bfd_byte *
6313
savevr_tail (bfd *abfd, bfd_byte *p, int r)
6314
0
{
6315
0
  p = savevr (abfd, p, r);
6316
0
  bfd_put_32 (abfd, BLR, p);
6317
0
  return p + 4;
6318
0
}
6319
6320
static bfd_byte *
6321
restvr (bfd *abfd, bfd_byte *p, int r)
6322
0
{
6323
0
  bfd_put_32 (abfd, LI_R12_0 + (1 << 16) - (32 - r) * 16, p);
6324
0
  p = p + 4;
6325
0
  bfd_put_32 (abfd, LVX_VR0_R12_R0 + (r << 21), p);
6326
0
  return p + 4;
6327
0
}
6328
6329
static bfd_byte *
6330
restvr_tail (bfd *abfd, bfd_byte *p, int r)
6331
0
{
6332
0
  p = restvr (abfd, p, r);
6333
0
  bfd_put_32 (abfd, BLR, p);
6334
0
  return p + 4;
6335
0
}
6336
6337
#define STDU_R1_0R1 0xf8210001
6338
#define ADDI_R1_R1  0x38210000
6339
6340
/* Emit prologue of wrapper preserving regs around a call to
6341
   __tls_get_addr_opt.  */
6342
6343
static bfd_byte *
6344
tls_get_addr_prologue (bfd *obfd, bfd_byte *p, struct ppc_link_hash_table *htab)
6345
0
{
6346
0
  unsigned int i;
6347
6348
0
  bfd_put_32 (obfd, MFLR_R0, p);
6349
0
  p += 4;
6350
0
  bfd_put_32 (obfd, STD_R0_0R1 + 16, p);
6351
0
  p += 4;
6352
6353
0
  if (htab->opd_abi)
6354
0
    {
6355
0
      for (i = 4; i < 12; i++)
6356
0
  {
6357
0
    bfd_put_32 (obfd,
6358
0
          STD_R0_0R1 | i << 21 | (-(13 - i) * 8 & 0xffff), p);
6359
0
    p += 4;
6360
0
  }
6361
0
      bfd_put_32 (obfd, STDU_R1_0R1 | (-128 & 0xffff), p);
6362
0
      p += 4;
6363
0
    }
6364
0
  else
6365
0
    {
6366
0
      for (i = 4; i < 12; i++)
6367
0
  {
6368
0
    bfd_put_32 (obfd,
6369
0
          STD_R0_0R1 | i << 21 | (-(12 - i) * 8 & 0xffff), p);
6370
0
    p += 4;
6371
0
  }
6372
0
      bfd_put_32 (obfd, STDU_R1_0R1 | (-96 & 0xffff), p);
6373
0
      p += 4;
6374
0
    }
6375
0
  return p;
6376
0
}
6377
6378
/* Emit epilogue of wrapper preserving regs around a call to
6379
   __tls_get_addr_opt.  */
6380
6381
static bfd_byte *
6382
tls_get_addr_epilogue (bfd *obfd, bfd_byte *p, struct ppc_link_hash_table *htab)
6383
0
{
6384
0
  unsigned int i;
6385
6386
0
  if (htab->opd_abi)
6387
0
    {
6388
0
      for (i = 4; i < 12; i++)
6389
0
  {
6390
0
    bfd_put_32 (obfd, LD_R0_0R1 | i << 21 | (128 - (13 - i) * 8), p);
6391
0
    p += 4;
6392
0
  }
6393
0
      bfd_put_32 (obfd, ADDI_R1_R1 | 128, p);
6394
0
      p += 4;
6395
0
    }
6396
0
  else
6397
0
    {
6398
0
      for (i = 4; i < 12; i++)
6399
0
  {
6400
0
    bfd_put_32 (obfd, LD_R0_0R1 | i << 21 | (96 - (12 - i) * 8), p);
6401
0
    p += 4;
6402
0
  }
6403
0
      bfd_put_32 (obfd, ADDI_R1_R1 | 96, p);
6404
0
      p += 4;
6405
0
    }
6406
0
  bfd_put_32 (obfd, LD_R0_0R1 | 16, p);
6407
0
  p += 4;
6408
0
  bfd_put_32 (obfd, MTLR_R0, p);
6409
0
  p += 4;
6410
0
  bfd_put_32 (obfd, BLR, p);
6411
0
  p += 4;
6412
0
  return p;
6413
0
}
6414
6415
/* Called via elf_link_hash_traverse to transfer dynamic linking
6416
   information on function code symbol entries to their corresponding
6417
   function descriptor symbol entries.  Must not be called twice for
6418
   any given code symbol.  */
6419
6420
static bool
6421
func_desc_adjust (struct elf_link_hash_entry *h, void *inf)
6422
0
{
6423
0
  struct bfd_link_info *info;
6424
0
  struct ppc_link_hash_table *htab;
6425
0
  struct ppc_link_hash_entry *fh;
6426
0
  struct ppc_link_hash_entry *fdh;
6427
0
  bool force_local;
6428
6429
0
  fh = ppc_elf_hash_entry (h);
6430
0
  if (fh->elf.root.type == bfd_link_hash_indirect)
6431
0
    return true;
6432
6433
0
  if (!fh->is_func)
6434
0
    return true;
6435
6436
0
  if (fh->elf.root.root.string[0] != '.'
6437
0
      || fh->elf.root.root.string[1] == '\0')
6438
0
    return true;
6439
6440
0
  info = inf;
6441
0
  htab = ppc_hash_table (info);
6442
0
  if (htab == NULL)
6443
0
    return false;
6444
6445
  /* Find the corresponding function descriptor symbol.  */
6446
0
  fdh = lookup_fdh (fh, htab);
6447
6448
  /* Resolve undefined references to dot-symbols as the value
6449
     in the function descriptor, if we have one in a regular object.
6450
     This is to satisfy cases like ".quad .foo".  Calls to functions
6451
     in dynamic objects are handled elsewhere.  */
6452
0
  if ((fh->elf.root.type == bfd_link_hash_undefined
6453
0
       || fh->elf.root.type == bfd_link_hash_undefweak)
6454
0
      && (fdh->elf.root.type == bfd_link_hash_defined
6455
0
    || fdh->elf.root.type == bfd_link_hash_defweak)
6456
0
      && get_opd_info (fdh->elf.root.u.def.section) != NULL
6457
0
      && opd_entry_value (fdh->elf.root.u.def.section,
6458
0
        fdh->elf.root.u.def.value,
6459
0
        &fh->elf.root.u.def.section,
6460
0
        &fh->elf.root.u.def.value, false) != (bfd_vma) -1)
6461
0
    {
6462
0
      fh->elf.root.type = fdh->elf.root.type;
6463
0
      fh->elf.forced_local = 1;
6464
0
      fh->elf.def_regular = fdh->elf.def_regular;
6465
0
      fh->elf.def_dynamic = fdh->elf.def_dynamic;
6466
0
    }
6467
6468
0
  if (!fh->elf.dynamic)
6469
0
    {
6470
0
      struct plt_entry *ent;
6471
6472
0
      for (ent = fh->elf.plt.plist; ent != NULL; ent = ent->next)
6473
0
  if (ent->plt.refcount > 0)
6474
0
    break;
6475
0
      if (ent == NULL)
6476
0
  {
6477
0
    if (fdh != NULL && fdh->fake)
6478
0
      _bfd_elf_link_hash_hide_symbol (info, &fdh->elf, true);
6479
0
    return true;
6480
0
  }
6481
0
    }
6482
6483
  /* Create a descriptor as undefined if necessary.  */
6484
0
  if (fdh == NULL
6485
0
      && !bfd_link_executable (info)
6486
0
      && (fh->elf.root.type == bfd_link_hash_undefined
6487
0
    || fh->elf.root.type == bfd_link_hash_undefweak))
6488
0
    {
6489
0
      fdh = make_fdh (info, fh);
6490
0
      if (fdh == NULL)
6491
0
  return false;
6492
0
    }
6493
6494
  /* We can't support overriding of symbols on a fake descriptor.  */
6495
0
  if (fdh != NULL
6496
0
      && fdh->fake
6497
0
      && (fh->elf.root.type == bfd_link_hash_defined
6498
0
    || fh->elf.root.type == bfd_link_hash_defweak))
6499
0
    _bfd_elf_link_hash_hide_symbol (info, &fdh->elf, true);
6500
6501
  /* Transfer dynamic linking information to the function descriptor.  */
6502
0
  if (fdh != NULL)
6503
0
    {
6504
0
      fdh->elf.ref_regular |= fh->elf.ref_regular;
6505
0
      fdh->elf.ref_dynamic |= fh->elf.ref_dynamic;
6506
0
      fdh->elf.ref_regular_nonweak |= fh->elf.ref_regular_nonweak;
6507
0
      fdh->elf.non_got_ref |= fh->elf.non_got_ref;
6508
0
      fdh->elf.dynamic |= fh->elf.dynamic;
6509
0
      fdh->elf.needs_plt |= (fh->elf.needs_plt
6510
0
           || fh->elf.type == STT_FUNC
6511
0
           || fh->elf.type == STT_GNU_IFUNC);
6512
0
      move_plt_plist (fh, fdh);
6513
6514
0
      if (!fdh->elf.forced_local
6515
0
    && fh->elf.dynindx != -1)
6516
0
  if (!bfd_elf_link_record_dynamic_symbol (info, &fdh->elf))
6517
0
    return false;
6518
0
    }
6519
6520
  /* Now that the info is on the function descriptor, clear the
6521
     function code sym info.  Any function code syms for which we
6522
     don't have a definition in a regular file, we force local.
6523
     This prevents a shared library from exporting syms that have
6524
     been imported from another library.  Function code syms that
6525
     are really in the library we must leave global to prevent the
6526
     linker dragging in a definition from a static library.  */
6527
0
  force_local = (!fh->elf.def_regular
6528
0
     || fdh == NULL
6529
0
     || !fdh->elf.def_regular
6530
0
     || fdh->elf.forced_local);
6531
0
  _bfd_elf_link_hash_hide_symbol (info, &fh->elf, force_local);
6532
6533
0
  return true;
6534
0
}
6535
6536
static const struct sfpr_def_parms save_res_funcs[] =
6537
  {
6538
    { "_savegpr0_", 14, 31, savegpr0, savegpr0_tail },
6539
    { "_restgpr0_", 14, 29, restgpr0, restgpr0_tail },
6540
    { "_restgpr0_", 30, 31, restgpr0, restgpr0_tail },
6541
    { "_savegpr1_", 14, 31, savegpr1, savegpr1_tail },
6542
    { "_restgpr1_", 14, 31, restgpr1, restgpr1_tail },
6543
    { "_savefpr_", 14, 31, savefpr, savefpr0_tail },
6544
    { "_restfpr_", 14, 29, restfpr, restfpr0_tail },
6545
    { "_restfpr_", 30, 31, restfpr, restfpr0_tail },
6546
    { "._savef", 14, 31, savefpr, savefpr1_tail },
6547
    { "._restf", 14, 31, restfpr, restfpr1_tail },
6548
    { "_savevr_", 20, 31, savevr, savevr_tail },
6549
    { "_restvr_", 20, 31, restvr, restvr_tail }
6550
  };
6551
6552
/* Called near the start of bfd_elf_size_dynamic_sections.  We use
6553
   this hook to a) run the edit functions in this file, b) provide
6554
   some gcc support functions, and c) transfer dynamic linking
6555
   information gathered so far on function code symbol entries, to
6556
   their corresponding function descriptor symbol entries.  */
6557
6558
static bool
6559
ppc64_elf_edit (bfd *obfd ATTRIBUTE_UNUSED, struct bfd_link_info *info)
6560
0
{
6561
0
  struct ppc_link_hash_table *htab;
6562
6563
0
  htab = ppc_hash_table (info);
6564
0
  if (htab == NULL)
6565
0
    return false;
6566
6567
  /* Call back into the linker, which then runs the edit functions.  */
6568
0
  htab->params->edit ();
6569
6570
  /* Provide any missing _save* and _rest* functions.  */
6571
0
  if (htab->sfpr != NULL)
6572
0
    {
6573
0
      unsigned int i;
6574
6575
0
      htab->sfpr->size = 0;
6576
0
      for (i = 0; i < ARRAY_SIZE (save_res_funcs); i++)
6577
0
  if (!sfpr_define (info, &save_res_funcs[i], NULL))
6578
0
    return false;
6579
0
      if (htab->sfpr->size == 0)
6580
0
  htab->sfpr->flags |= SEC_EXCLUDE;
6581
0
    }
6582
6583
0
  if (bfd_link_relocatable (info))
6584
0
    return true;
6585
6586
0
  if (htab->elf.hgot != NULL)
6587
0
    {
6588
0
      _bfd_elf_link_hash_hide_symbol (info, htab->elf.hgot, true);
6589
      /* Make .TOC. defined so as to prevent it being made dynamic.
6590
   The wrong value here is fixed later in ppc64_elf_set_toc.  */
6591
0
      if (!htab->elf.hgot->def_regular
6592
0
    || htab->elf.hgot->root.type != bfd_link_hash_defined)
6593
0
  {
6594
0
    htab->elf.hgot->root.type = bfd_link_hash_defined;
6595
0
    htab->elf.hgot->root.u.def.value = 0;
6596
0
    htab->elf.hgot->root.u.def.section = bfd_abs_section_ptr;
6597
0
    htab->elf.hgot->def_regular = 1;
6598
0
    htab->elf.hgot->root.linker_def = 1;
6599
0
  }
6600
0
      htab->elf.hgot->type = STT_OBJECT;
6601
0
      htab->elf.hgot->other
6602
0
  = (htab->elf.hgot->other & ~ELF_ST_VISIBILITY (-1)) | STV_HIDDEN;
6603
0
    }
6604
6605
0
  return true;
6606
0
}
6607
6608
/* Return true if we have dynamic relocs against H or any of its weak
6609
   aliases, that apply to read-only sections.  Cannot be used after
6610
   size_dynamic_sections.  */
6611
6612
static bool
6613
alias_readonly_dynrelocs (struct elf_link_hash_entry *h)
6614
0
{
6615
0
  struct ppc_link_hash_entry *eh = ppc_elf_hash_entry (h);
6616
0
  do
6617
0
    {
6618
0
      if (_bfd_elf_readonly_dynrelocs (&eh->elf))
6619
0
  return true;
6620
0
      eh = ppc_elf_hash_entry (eh->elf.u.alias);
6621
0
    }
6622
0
  while (eh != NULL && &eh->elf != h);
6623
6624
0
  return false;
6625
0
}
6626
6627
/* Return whether EH has pc-relative dynamic relocs.  */
6628
6629
static bool
6630
pc_dynrelocs (struct ppc_link_hash_entry *eh)
6631
0
{
6632
0
  struct ppc_dyn_relocs *p;
6633
6634
0
  for (p = (struct ppc_dyn_relocs *) eh->elf.dyn_relocs; p != NULL; p = p->next)
6635
0
    if (p->pc_count != 0)
6636
0
      return true;
6637
0
  return false;
6638
0
}
6639
6640
/* Return true if a global entry stub will be created for H.  Valid
6641
   for ELFv2 before plt entries have been allocated.  */
6642
6643
static bool
6644
global_entry_stub (struct elf_link_hash_entry *h)
6645
0
{
6646
0
  struct plt_entry *pent;
6647
6648
0
  if (!h->pointer_equality_needed
6649
0
      || h->def_regular)
6650
0
    return false;
6651
6652
0
  for (pent = h->plt.plist; pent != NULL; pent = pent->next)
6653
0
    if (pent->plt.refcount > 0
6654
0
  && pent->addend == 0)
6655
0
      return true;
6656
6657
0
  return false;
6658
0
}
6659
6660
/* Adjust a symbol defined by a dynamic object and referenced by a
6661
   regular object.  The current definition is in some section of the
6662
   dynamic object, but we're not including those sections.  We have to
6663
   change the definition to something the rest of the link can
6664
   understand.  */
6665
6666
static bool
6667
ppc64_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
6668
         struct elf_link_hash_entry *h)
6669
0
{
6670
0
  struct ppc_link_hash_table *htab;
6671
0
  asection *s, *srel;
6672
6673
0
  htab = ppc_hash_table (info);
6674
0
  if (htab == NULL)
6675
0
    return false;
6676
6677
  /* Deal with function syms.  */
6678
0
  if (h->type == STT_FUNC
6679
0
      || h->type == STT_GNU_IFUNC
6680
0
      || h->needs_plt)
6681
0
    {
6682
0
      bool local = (ppc_elf_hash_entry (h)->save_res
6683
0
        || SYMBOL_CALLS_LOCAL (info, h)
6684
0
        || UNDEFWEAK_NO_DYNAMIC_RELOC (info, h));
6685
      /* Discard dyn_relocs when non-pic if we've decided that a
6686
   function symbol is local and not an ifunc.  We keep dynamic
6687
   relocs for ifuncs when local rather than always emitting a
6688
   plt call stub for them and defining the symbol on the call
6689
   stub.  We can't do that for ELFv1 anyway (a function symbol
6690
   is defined on a descriptor, not code) and it can be faster at
6691
   run-time due to not needing to bounce through a stub.  The
6692
   dyn_relocs for ifuncs will be applied even in a static
6693
   executable.  */
6694
0
      if (!bfd_link_pic (info)
6695
0
    && h->type != STT_GNU_IFUNC
6696
0
    && local)
6697
0
  h->dyn_relocs = NULL;
6698
6699
      /* Clear procedure linkage table information for any symbol that
6700
   won't need a .plt entry.  */
6701
0
      struct plt_entry *ent;
6702
0
      for (ent = h->plt.plist; ent != NULL; ent = ent->next)
6703
0
  if (ent->plt.refcount > 0)
6704
0
    break;
6705
0
      if (ent == NULL
6706
0
    || (h->type != STT_GNU_IFUNC
6707
0
        && local
6708
0
        && (htab->can_convert_all_inline_plt
6709
0
      || (ppc_elf_hash_entry (h)->tls_mask
6710
0
          & (TLS_TLS | PLT_KEEP)) != PLT_KEEP)))
6711
0
  {
6712
0
    h->plt.plist = NULL;
6713
0
    h->needs_plt = 0;
6714
0
    h->pointer_equality_needed = 0;
6715
0
  }
6716
0
      else if (abiversion (info->output_bfd) >= 2)
6717
0
  {
6718
    /* Taking a function's address in a read/write section
6719
       doesn't require us to define the function symbol in the
6720
       executable on a global entry stub.  A dynamic reloc can
6721
       be used instead.  The reason we prefer a few more dynamic
6722
       relocs is that calling via a global entry stub costs a
6723
       few more instructions, and pointer_equality_needed causes
6724
       extra work in ld.so when resolving these symbols.  */
6725
0
    if (global_entry_stub (h))
6726
0
      {
6727
0
        if (!_bfd_elf_readonly_dynrelocs (h))
6728
0
    {
6729
0
      h->pointer_equality_needed = 0;
6730
      /* If we haven't seen a branch reloc and the symbol
6731
         isn't an ifunc then we don't need a plt entry.  */
6732
0
      if (!h->needs_plt)
6733
0
        h->plt.plist = NULL;
6734
0
    }
6735
0
        else if (!bfd_link_pic (info))
6736
    /* We are going to be defining the function symbol on the
6737
       plt stub, so no dyn_relocs needed when non-pic.  */
6738
0
    h->dyn_relocs = NULL;
6739
0
      }
6740
6741
    /* ELFv2 function symbols can't have copy relocs.  */
6742
0
    return true;
6743
0
  }
6744
0
      else if (!h->needs_plt
6745
0
         && !_bfd_elf_readonly_dynrelocs (h))
6746
0
  {
6747
    /* If we haven't seen a branch reloc and the symbol isn't an
6748
       ifunc then we don't need a plt entry.  */
6749
0
    h->plt.plist = NULL;
6750
0
    h->pointer_equality_needed = 0;
6751
0
    return true;
6752
0
  }
6753
0
    }
6754
0
  else
6755
0
    h->plt.plist = NULL;
6756
6757
  /* If this is a weak symbol, and there is a real definition, the
6758
     processor independent code will have arranged for us to see the
6759
     real definition first, and we can just use the same value.  */
6760
0
  if (h->is_weakalias)
6761
0
    {
6762
0
      struct elf_link_hash_entry *def = weakdef (h);
6763
0
      BFD_ASSERT (def->root.type == bfd_link_hash_defined);
6764
0
      h->root.u.def.section = def->root.u.def.section;
6765
0
      h->root.u.def.value = def->root.u.def.value;
6766
0
      if (def->root.u.def.section == htab->elf.sdynbss
6767
0
    || def->root.u.def.section == htab->elf.sdynrelro)
6768
0
  h->dyn_relocs = NULL;
6769
0
      return true;
6770
0
    }
6771
6772
  /* If we are creating a shared library, we must presume that the
6773
     only references to the symbol are via the global offset table.
6774
     For such cases we need not do anything here; the relocations will
6775
     be handled correctly by relocate_section.  */
6776
0
  if (!bfd_link_executable (info))
6777
0
    return true;
6778
6779
  /* If there are no references to this symbol that do not use the
6780
     GOT, we don't need to generate a copy reloc.  */
6781
0
  if (!h->non_got_ref)
6782
0
    return true;
6783
6784
  /* Don't generate a copy reloc for symbols defined in the executable.  */
6785
0
  if (!h->def_dynamic || !h->ref_regular || h->def_regular
6786
6787
      /* If -z nocopyreloc was given, don't generate them either.  */
6788
0
      || info->nocopyreloc
6789
6790
      /* If we don't find any dynamic relocs in read-only sections, then
6791
   we'll be keeping the dynamic relocs and avoiding the copy reloc.  */
6792
0
      || (ELIMINATE_COPY_RELOCS
6793
0
    && !h->needs_copy
6794
0
    && !alias_readonly_dynrelocs (h))
6795
6796
      /* Protected variables do not work with .dynbss.  The copy in
6797
   .dynbss won't be used by the shared library with the protected
6798
   definition for the variable.  Text relocations are preferable
6799
   to an incorrect program.  */
6800
0
      || h->protected_def)
6801
0
    return true;
6802
6803
0
  if (h->type == STT_FUNC
6804
0
      || h->type == STT_GNU_IFUNC)
6805
0
    {
6806
      /* .dynbss copies of function symbols only work if we have
6807
   ELFv1 dot-symbols.  ELFv1 compilers since 2004 default to not
6808
   use dot-symbols and set the function symbol size to the text
6809
   size of the function rather than the size of the descriptor.
6810
   That's wrong for copying a descriptor.  */
6811
0
      if (ppc_elf_hash_entry (h)->oh == NULL
6812
0
    || !(h->size == 24 || h->size == 16))
6813
0
  return true;
6814
6815
      /* We should never get here, but unfortunately there are old
6816
   versions of gcc (circa gcc-3.2) that improperly for the
6817
   ELFv1 ABI put initialized function pointers, vtable refs and
6818
   suchlike in read-only sections.  Allow them to proceed, but
6819
   warn that this might break at runtime.  */
6820
0
      info->callbacks->einfo
6821
0
  (_("%P: copy reloc against `%pT' requires lazy plt linking; "
6822
0
     "avoid setting LD_BIND_NOW=1 or upgrade gcc\n"),
6823
0
   h->root.root.string);
6824
0
    }
6825
6826
  /* This is a reference to a symbol defined by a dynamic object which
6827
     is not a function.  */
6828
6829
  /* We must allocate the symbol in our .dynbss section, which will
6830
     become part of the .bss section of the executable.  There will be
6831
     an entry for this symbol in the .dynsym section.  The dynamic
6832
     object will contain position independent code, so all references
6833
     from the dynamic object to this symbol will go through the global
6834
     offset table.  The dynamic linker will use the .dynsym entry to
6835
     determine the address it must put in the global offset table, so
6836
     both the dynamic object and the regular object will refer to the
6837
     same memory location for the variable.  */
6838
0
  if ((h->root.u.def.section->flags & SEC_READONLY) != 0)
6839
0
    {
6840
0
      s = htab->elf.sdynrelro;
6841
0
      srel = htab->elf.sreldynrelro;
6842
0
    }
6843
0
  else
6844
0
    {
6845
0
      s = htab->elf.sdynbss;
6846
0
      srel = htab->elf.srelbss;
6847
0
    }
6848
0
  if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
6849
0
    {
6850
      /* We must generate a R_PPC64_COPY reloc to tell the dynamic
6851
   linker to copy the initial value out of the dynamic object
6852
   and into the runtime process image.  */
6853
0
      srel->size += sizeof (Elf64_External_Rela);
6854
0
      h->needs_copy = 1;
6855
0
    }
6856
6857
  /* We no longer want dyn_relocs.  */
6858
0
  h->dyn_relocs = NULL;
6859
0
  return _bfd_elf_adjust_dynamic_copy (info, h, s);
6860
0
}
6861
6862
/* If given a function descriptor symbol, hide both the function code
6863
   sym and the descriptor.  */
6864
static void
6865
ppc64_elf_hide_symbol (struct bfd_link_info *info,
6866
           struct elf_link_hash_entry *h,
6867
           bool force_local)
6868
0
{
6869
0
  struct ppc_link_hash_entry *eh;
6870
0
  _bfd_elf_link_hash_hide_symbol (info, h, force_local);
6871
6872
0
  if (ppc_hash_table (info) == NULL)
6873
0
    return;
6874
6875
0
  eh = ppc_elf_hash_entry (h);
6876
0
  if (eh->is_func_descriptor)
6877
0
    {
6878
0
      struct ppc_link_hash_entry *fh = eh->oh;
6879
6880
0
      if (fh == NULL)
6881
0
  {
6882
0
    const char *p, *q;
6883
0
    struct elf_link_hash_table *htab = elf_hash_table (info);
6884
0
    char save;
6885
6886
    /* We aren't supposed to use alloca in BFD because on
6887
       systems which do not have alloca the version in libiberty
6888
       calls xmalloc, which might cause the program to crash
6889
       when it runs out of memory.  This function doesn't have a
6890
       return status, so there's no way to gracefully return an
6891
       error.  So cheat.  We know that string[-1] can be safely
6892
       accessed;  It's either a string in an ELF string table,
6893
       or allocated in an objalloc structure.  */
6894
6895
0
    p = eh->elf.root.root.string - 1;
6896
0
    save = *p;
6897
0
    *(char *) p = '.';
6898
0
    fh = ppc_elf_hash_entry (elf_link_hash_lookup (htab, p, false,
6899
0
               false, false));
6900
0
    *(char *) p = save;
6901
6902
    /* Unfortunately, if it so happens that the string we were
6903
       looking for was allocated immediately before this string,
6904
       then we overwrote the string terminator.  That's the only
6905
       reason the lookup should fail.  */
6906
0
    if (fh == NULL)
6907
0
      {
6908
0
        q = eh->elf.root.root.string + strlen (eh->elf.root.root.string);
6909
0
        while (q >= eh->elf.root.root.string && *q == *p)
6910
0
    --q, --p;
6911
0
        if (q < eh->elf.root.root.string && *p == '.')
6912
0
    fh = ppc_elf_hash_entry (elf_link_hash_lookup (htab, p, false,
6913
0
                     false, false));
6914
0
      }
6915
0
    if (fh != NULL)
6916
0
      {
6917
0
        eh->oh = fh;
6918
0
        fh->oh = eh;
6919
0
      }
6920
0
  }
6921
0
      if (fh != NULL)
6922
0
  _bfd_elf_link_hash_hide_symbol (info, &fh->elf, force_local);
6923
0
    }
6924
0
}
6925
6926
static bool
6927
get_sym_h (struct elf_link_hash_entry **hp,
6928
     Elf_Internal_Sym **symp,
6929
     asection **symsecp,
6930
     unsigned char **tls_maskp,
6931
     Elf_Internal_Sym **locsymsp,
6932
     unsigned long r_symndx,
6933
     bfd *ibfd)
6934
0
{
6935
0
  Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (ibfd);
6936
6937
0
  if (r_symndx >= symtab_hdr->sh_info)
6938
0
    {
6939
0
      struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
6940
0
      struct elf_link_hash_entry *h;
6941
6942
0
      h = sym_hashes[r_symndx - symtab_hdr->sh_info];
6943
0
      h = elf_follow_link (h);
6944
6945
0
      if (hp != NULL)
6946
0
  *hp = h;
6947
6948
0
      if (symp != NULL)
6949
0
  *symp = NULL;
6950
6951
0
      if (symsecp != NULL)
6952
0
  {
6953
0
    asection *symsec = NULL;
6954
0
    if (h->root.type == bfd_link_hash_defined
6955
0
        || h->root.type == bfd_link_hash_defweak)
6956
0
      symsec = h->root.u.def.section;
6957
0
    *symsecp = symsec;
6958
0
  }
6959
6960
0
      if (tls_maskp != NULL)
6961
0
  *tls_maskp = &ppc_elf_hash_entry (h)->tls_mask;
6962
0
    }
6963
0
  else
6964
0
    {
6965
0
      Elf_Internal_Sym *sym;
6966
0
      Elf_Internal_Sym *locsyms = *locsymsp;
6967
6968
0
      if (locsyms == NULL)
6969
0
  {
6970
0
    locsyms = (Elf_Internal_Sym *) symtab_hdr->contents;
6971
0
    if (locsyms == NULL)
6972
0
      locsyms = bfd_elf_get_elf_syms (ibfd, symtab_hdr,
6973
0
              symtab_hdr->sh_info,
6974
0
              0, NULL, NULL, NULL);
6975
0
    if (locsyms == NULL)
6976
0
      return false;
6977
0
    *locsymsp = locsyms;
6978
0
  }
6979
0
      sym = locsyms + r_symndx;
6980
6981
0
      if (hp != NULL)
6982
0
  *hp = NULL;
6983
6984
0
      if (symp != NULL)
6985
0
  *symp = sym;
6986
6987
0
      if (symsecp != NULL)
6988
0
  *symsecp = bfd_section_from_elf_index (ibfd, sym->st_shndx);
6989
6990
0
      if (tls_maskp != NULL)
6991
0
  {
6992
0
    struct got_entry **lgot_ents;
6993
0
    unsigned char *tls_mask;
6994
6995
0
    tls_mask = NULL;
6996
0
    lgot_ents = elf_local_got_ents (ibfd);
6997
0
    if (lgot_ents != NULL)
6998
0
      {
6999
0
        struct plt_entry **local_plt = (struct plt_entry **)
7000
0
    (lgot_ents + symtab_hdr->sh_info);
7001
0
        unsigned char *lgot_masks = (unsigned char *)
7002
0
    (local_plt + symtab_hdr->sh_info);
7003
0
        tls_mask = &lgot_masks[r_symndx];
7004
0
      }
7005
0
    *tls_maskp = tls_mask;
7006
0
  }
7007
0
    }
7008
0
  return true;
7009
0
}
7010
7011
/* Returns TLS_MASKP for the given REL symbol.  Function return is 0 on
7012
   error, 2 on a toc GD type suitable for optimization, 3 on a toc LD
7013
   type suitable for optimization, and 1 otherwise.  */
7014
7015
static int
7016
get_tls_mask (unsigned char **tls_maskp,
7017
        unsigned long *toc_symndx,
7018
        bfd_vma *toc_addend,
7019
        Elf_Internal_Sym **locsymsp,
7020
        const Elf_Internal_Rela *rel,
7021
        bfd *ibfd)
7022
0
{
7023
0
  unsigned long r_symndx;
7024
0
  int next_r;
7025
0
  struct elf_link_hash_entry *h;
7026
0
  Elf_Internal_Sym *sym;
7027
0
  asection *sec;
7028
0
  bfd_vma off;
7029
7030
0
  r_symndx = ELF64_R_SYM (rel->r_info);
7031
0
  if (!get_sym_h (&h, &sym, &sec, tls_maskp, locsymsp, r_symndx, ibfd))
7032
0
    return 0;
7033
7034
0
  if ((*tls_maskp != NULL
7035
0
       && (**tls_maskp & TLS_TLS) != 0
7036
0
       && **tls_maskp != (TLS_TLS | TLS_MARK))
7037
0
      || sec == NULL
7038
0
      || ppc64_elf_section_data (sec) == NULL
7039
0
      || ppc64_elf_section_data (sec)->sec_type != sec_toc)
7040
0
    return 1;
7041
7042
  /* Look inside a TOC section too.  */
7043
0
  if (h != NULL)
7044
0
    {
7045
0
      BFD_ASSERT (h->root.type == bfd_link_hash_defined);
7046
0
      off = h->root.u.def.value;
7047
0
    }
7048
0
  else
7049
0
    off = sym->st_value;
7050
0
  off += rel->r_addend;
7051
0
  BFD_ASSERT (off % 8 == 0);
7052
0
  r_symndx = ppc64_elf_section_data (sec)->u.toc.symndx[off / 8];
7053
0
  next_r = ppc64_elf_section_data (sec)->u.toc.symndx[off / 8 + 1];
7054
0
  if (toc_symndx != NULL)
7055
0
    *toc_symndx = r_symndx;
7056
0
  if (toc_addend != NULL)
7057
0
    *toc_addend = ppc64_elf_section_data (sec)->u.toc.add[off / 8];
7058
0
  if (!get_sym_h (&h, &sym, &sec, tls_maskp, locsymsp, r_symndx, ibfd))
7059
0
    return 0;
7060
0
  if ((h == NULL || is_static_defined (h))
7061
0
      && (next_r == -1 || next_r == -2))
7062
0
    return 1 - next_r;
7063
0
  return 1;
7064
0
}
7065
7066
/* Find (or create) an entry in the tocsave hash table.  */
7067
7068
static struct tocsave_entry *
7069
tocsave_find (struct ppc_link_hash_table *htab,
7070
        enum insert_option insert,
7071
        Elf_Internal_Sym **local_syms,
7072
        const Elf_Internal_Rela *irela,
7073
        bfd *ibfd)
7074
0
{
7075
0
  unsigned long r_indx;
7076
0
  struct elf_link_hash_entry *h;
7077
0
  Elf_Internal_Sym *sym;
7078
0
  struct tocsave_entry ent, *p;
7079
0
  hashval_t hash;
7080
0
  struct tocsave_entry **slot;
7081
7082
0
  r_indx = ELF64_R_SYM (irela->r_info);
7083
0
  if (!get_sym_h (&h, &sym, &ent.sec, NULL, local_syms, r_indx, ibfd))
7084
0
    return NULL;
7085
0
  if (ent.sec == NULL || ent.sec->output_section == NULL)
7086
0
    {
7087
0
      _bfd_error_handler
7088
0
  (_("%pB: undefined symbol on R_PPC64_TOCSAVE relocation"), ibfd);
7089
0
      return NULL;
7090
0
    }
7091
7092
0
  if (h != NULL)
7093
0
    ent.offset = h->root.u.def.value;
7094
0
  else
7095
0
    ent.offset = sym->st_value;
7096
0
  ent.offset += irela->r_addend;
7097
7098
0
  hash = tocsave_htab_hash (&ent);
7099
0
  slot = ((struct tocsave_entry **)
7100
0
    htab_find_slot_with_hash (htab->tocsave_htab, &ent, hash, insert));
7101
0
  if (slot == NULL)
7102
0
    return NULL;
7103
7104
0
  if (*slot == NULL)
7105
0
    {
7106
0
      p = (struct tocsave_entry *) bfd_alloc (ibfd, sizeof (*p));
7107
0
      if (p == NULL)
7108
0
  return NULL;
7109
0
      *p = ent;
7110
0
      *slot = p;
7111
0
    }
7112
0
  return *slot;
7113
0
}
7114
7115
/* Adjust all global syms defined in opd sections.  In gcc generated
7116
   code for the old ABI, these will already have been done.  */
7117
7118
static bool
7119
adjust_opd_syms (struct elf_link_hash_entry *h, void *inf ATTRIBUTE_UNUSED)
7120
0
{
7121
0
  struct ppc_link_hash_entry *eh;
7122
0
  asection *sym_sec;
7123
0
  struct _opd_sec_data *opd;
7124
7125
0
  if (h->root.type == bfd_link_hash_indirect)
7126
0
    return true;
7127
7128
0
  if (h->root.type != bfd_link_hash_defined
7129
0
      && h->root.type != bfd_link_hash_defweak)
7130
0
    return true;
7131
7132
0
  eh = ppc_elf_hash_entry (h);
7133
0
  if (eh->adjust_done)
7134
0
    return true;
7135
7136
0
  sym_sec = eh->elf.root.u.def.section;
7137
0
  opd = get_opd_info (sym_sec);
7138
0
  if (opd != NULL && opd->adjust != NULL)
7139
0
    {
7140
0
      long adjust = opd->adjust[OPD_NDX (eh->elf.root.u.def.value)];
7141
0
      if (adjust == -1)
7142
0
  {
7143
    /* This entry has been deleted.  */
7144
0
    asection *dsec = ppc64_elf_tdata (sym_sec->owner)->deleted_section;
7145
0
    if (dsec == NULL)
7146
0
      {
7147
0
        for (dsec = sym_sec->owner->sections; dsec; dsec = dsec->next)
7148
0
    if (discarded_section (dsec))
7149
0
      {
7150
0
        ppc64_elf_tdata (sym_sec->owner)->deleted_section = dsec;
7151
0
        break;
7152
0
      }
7153
0
      }
7154
0
    eh->elf.root.u.def.value = 0;
7155
0
    eh->elf.root.u.def.section = dsec;
7156
0
  }
7157
0
      else
7158
0
  eh->elf.root.u.def.value += adjust;
7159
0
      eh->adjust_done = 1;
7160
0
    }
7161
0
  return true;
7162
0
}
7163
7164
/* Handles decrementing dynamic reloc counts for the reloc specified by
7165
   R_INFO in section SEC.  If LOCAL_SYMS is NULL, then H and SYM
7166
   have already been determined.  */
7167
7168
static bool
7169
dec_dynrel_count (const Elf_Internal_Rela *rel,
7170
      asection *sec,
7171
      struct bfd_link_info *info,
7172
      Elf_Internal_Sym **local_syms,
7173
      struct elf_link_hash_entry *h,
7174
      Elf_Internal_Sym *sym)
7175
0
{
7176
0
  enum elf_ppc64_reloc_type r_type;
7177
0
  asection *sym_sec = NULL;
7178
7179
  /* Can this reloc be dynamic?  This switch, and later tests here
7180
     should be kept in sync with the code in check_relocs.  */
7181
0
  r_type = ELF64_R_TYPE (rel->r_info);
7182
0
  switch (r_type)
7183
0
    {
7184
0
    default:
7185
0
      return true;
7186
7187
0
    case R_PPC64_TOC16:
7188
0
    case R_PPC64_TOC16_DS:
7189
0
    case R_PPC64_TOC16_LO:
7190
0
    case R_PPC64_TOC16_HI:
7191
0
    case R_PPC64_TOC16_HA:
7192
0
    case R_PPC64_TOC16_LO_DS:
7193
0
      if (h == NULL)
7194
0
  return true;
7195
0
      break;
7196
7197
0
    case R_PPC64_TPREL16:
7198
0
    case R_PPC64_TPREL16_LO:
7199
0
    case R_PPC64_TPREL16_HI:
7200
0
    case R_PPC64_TPREL16_HA:
7201
0
    case R_PPC64_TPREL16_DS:
7202
0
    case R_PPC64_TPREL16_LO_DS:
7203
0
    case R_PPC64_TPREL16_HIGH:
7204
0
    case R_PPC64_TPREL16_HIGHA:
7205
0
    case R_PPC64_TPREL16_HIGHER:
7206
0
    case R_PPC64_TPREL16_HIGHERA:
7207
0
    case R_PPC64_TPREL16_HIGHEST:
7208
0
    case R_PPC64_TPREL16_HIGHESTA:
7209
0
    case R_PPC64_TPREL64:
7210
0
    case R_PPC64_TPREL34:
7211
0
    case R_PPC64_DTPMOD64:
7212
0
    case R_PPC64_DTPREL64:
7213
0
    case R_PPC64_ADDR64:
7214
0
    case R_PPC64_REL30:
7215
0
    case R_PPC64_REL32:
7216
0
    case R_PPC64_REL64:
7217
0
    case R_PPC64_ADDR14:
7218
0
    case R_PPC64_ADDR14_BRNTAKEN:
7219
0
    case R_PPC64_ADDR14_BRTAKEN:
7220
0
    case R_PPC64_ADDR16:
7221
0
    case R_PPC64_ADDR16_DS:
7222
0
    case R_PPC64_ADDR16_HA:
7223
0
    case R_PPC64_ADDR16_HI:
7224
0
    case R_PPC64_ADDR16_HIGH:
7225
0
    case R_PPC64_ADDR16_HIGHA:
7226
0
    case R_PPC64_ADDR16_HIGHER:
7227
0
    case R_PPC64_ADDR16_HIGHERA:
7228
0
    case R_PPC64_ADDR16_HIGHEST:
7229
0
    case R_PPC64_ADDR16_HIGHESTA:
7230
0
    case R_PPC64_ADDR16_LO:
7231
0
    case R_PPC64_ADDR16_LO_DS:
7232
0
    case R_PPC64_ADDR24:
7233
0
    case R_PPC64_ADDR32:
7234
0
    case R_PPC64_UADDR16:
7235
0
    case R_PPC64_UADDR32:
7236
0
    case R_PPC64_UADDR64:
7237
0
    case R_PPC64_TOC:
7238
0
    case R_PPC64_D34:
7239
0
    case R_PPC64_D34_LO:
7240
0
    case R_PPC64_D34_HI30:
7241
0
    case R_PPC64_D34_HA30:
7242
0
    case R_PPC64_ADDR16_HIGHER34:
7243
0
    case R_PPC64_ADDR16_HIGHERA34:
7244
0
    case R_PPC64_ADDR16_HIGHEST34:
7245
0
    case R_PPC64_ADDR16_HIGHESTA34:
7246
0
    case R_PPC64_D28:
7247
0
      break;
7248
0
    }
7249
7250
0
  if (local_syms != NULL)
7251
0
    {
7252
0
      unsigned long r_symndx;
7253
0
      bfd *ibfd = sec->owner;
7254
7255
0
      r_symndx = ELF64_R_SYM (rel->r_info);
7256
0
      if (!get_sym_h (&h, &sym, &sym_sec, NULL, local_syms, r_symndx, ibfd))
7257
0
  return false;
7258
0
    }
7259
7260
0
  if ((h != NULL
7261
0
       && !SYMBOL_REFERENCES_LOCAL (info, h))
7262
0
      || (bfd_link_pic (info)
7263
0
    && (h != NULL
7264
0
        ? !bfd_is_abs_symbol (&h->root)
7265
0
        : sym_sec != bfd_abs_section_ptr)
7266
0
    && must_be_dyn_reloc (info, r_type))
7267
0
      || (!bfd_link_pic (info)
7268
0
    && (h != NULL
7269
0
        ? h->type == STT_GNU_IFUNC
7270
0
        : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)))
7271
0
    ;
7272
0
  else
7273
0
    return true;
7274
7275
0
  if (h != NULL)
7276
0
    {
7277
0
      struct ppc_dyn_relocs *p;
7278
0
      struct ppc_dyn_relocs **pp;
7279
0
      pp = (struct ppc_dyn_relocs **) &h->dyn_relocs;
7280
7281
      /* elf_gc_sweep may have already removed all dyn relocs associated
7282
   with local syms for a given section.  Also, symbol flags are
7283
   changed by elf_gc_sweep_symbol, confusing the test above.  Don't
7284
   report a dynreloc miscount.  */
7285
0
      if (*pp == NULL && info->gc_sections)
7286
0
  return true;
7287
7288
0
      while ((p = *pp) != NULL)
7289
0
  {
7290
0
    if (p->sec == sec)
7291
0
      {
7292
0
        if (!must_be_dyn_reloc (info, r_type))
7293
0
    p->pc_count -= 1;
7294
0
        if ((r_type == R_PPC64_ADDR64 || r_type == R_PPC64_TOC)
7295
0
      && rel->r_offset % 2 == 0
7296
0
      && sec->alignment_power != 0)
7297
0
    p->rel_count -= 1;
7298
0
        p->count -= 1;
7299
0
        if (p->count == 0)
7300
0
    *pp = p->next;
7301
0
        return true;
7302
0
      }
7303
0
    pp = &p->next;
7304
0
  }
7305
0
    }
7306
0
  else
7307
0
    {
7308
0
      struct ppc_local_dyn_relocs *p;
7309
0
      struct ppc_local_dyn_relocs **pp;
7310
0
      void *vpp;
7311
0
      bool is_ifunc;
7312
7313
0
      if (local_syms == NULL)
7314
0
  sym_sec = bfd_section_from_elf_index (sec->owner, sym->st_shndx);
7315
0
      if (sym_sec == NULL)
7316
0
  sym_sec = sec;
7317
7318
0
      vpp = &elf_section_data (sym_sec)->local_dynrel;
7319
0
      pp = (struct ppc_local_dyn_relocs **) vpp;
7320
7321
0
      if (*pp == NULL && info->gc_sections)
7322
0
  return true;
7323
7324
0
      is_ifunc = ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC;
7325
0
      while ((p = *pp) != NULL)
7326
0
  {
7327
0
    if (p->sec == sec && p->ifunc == is_ifunc)
7328
0
      {
7329
0
        if ((r_type == R_PPC64_ADDR64 || r_type == R_PPC64_TOC)
7330
0
      && rel->r_offset % 2 == 0
7331
0
      && sec->alignment_power != 0)
7332
0
    p->rel_count -= 1;
7333
0
        p->count -= 1;
7334
0
        if (p->count == 0)
7335
0
    *pp = p->next;
7336
0
        return true;
7337
0
      }
7338
0
    pp = &p->next;
7339
0
  }
7340
0
    }
7341
7342
  /* xgettext:c-format */
7343
0
  _bfd_error_handler (_("dynreloc miscount for %pB, section %pA"),
7344
0
          sec->owner, sec);
7345
0
  bfd_set_error (bfd_error_bad_value);
7346
0
  return false;
7347
0
}
7348
7349
/* Remove unused Official Procedure Descriptor entries.  Currently we
7350
   only remove those associated with functions in discarded link-once
7351
   sections, or weakly defined functions that have been overridden.  It
7352
   would be possible to remove many more entries for statically linked
7353
   applications.  */
7354
7355
bool
7356
ppc64_elf_edit_opd (struct bfd_link_info *info)
7357
0
{
7358
0
  bfd *ibfd;
7359
0
  bool some_edited = false;
7360
0
  asection *need_pad = NULL;
7361
0
  struct ppc_link_hash_table *htab;
7362
7363
0
  htab = ppc_hash_table (info);
7364
0
  if (htab == NULL)
7365
0
    return false;
7366
7367
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
7368
0
    {
7369
0
      asection *sec;
7370
0
      Elf_Internal_Rela *relstart, *rel, *relend;
7371
0
      Elf_Internal_Shdr *symtab_hdr;
7372
0
      Elf_Internal_Sym *local_syms;
7373
0
      struct _opd_sec_data *opd;
7374
0
      bool need_edit, add_aux_fields, broken;
7375
0
      bfd_size_type cnt_16b = 0;
7376
7377
0
      if (!is_ppc64_elf (ibfd))
7378
0
  continue;
7379
7380
0
      sec = bfd_get_section_by_name (ibfd, ".opd");
7381
0
      if (sec == NULL
7382
0
    || sec->size == 0
7383
0
    || (sec->flags & SEC_HAS_CONTENTS) == 0)
7384
0
  continue;
7385
7386
0
      if (sec->sec_info_type == SEC_INFO_TYPE_JUST_SYMS)
7387
0
  continue;
7388
7389
0
      if (sec->output_section == bfd_abs_section_ptr)
7390
0
  continue;
7391
7392
      /* Look through the section relocs.  */
7393
0
      if ((sec->flags & SEC_RELOC) == 0 || sec->reloc_count == 0)
7394
0
  continue;
7395
7396
0
      local_syms = NULL;
7397
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
7398
7399
      /* Read the relocations.  */
7400
0
      relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
7401
0
              info->keep_memory);
7402
0
      if (relstart == NULL)
7403
0
  return false;
7404
7405
      /* First run through the relocs to check they are sane, and to
7406
   determine whether we need to edit this opd section.  */
7407
0
      need_edit = false;
7408
0
      broken = false;
7409
0
      need_pad = sec;
7410
0
      relend = relstart + sec->reloc_count;
7411
0
      for (rel = relstart; rel < relend; )
7412
0
  {
7413
0
    enum elf_ppc64_reloc_type r_type;
7414
0
    unsigned long r_symndx;
7415
0
    asection *sym_sec;
7416
0
    struct elf_link_hash_entry *h;
7417
0
    Elf_Internal_Sym *sym;
7418
0
    bfd_vma offset;
7419
7420
    /* .opd contains an array of 16 or 24 byte entries.  We're
7421
       only interested in the reloc pointing to a function entry
7422
       point.  */
7423
0
    offset = rel->r_offset;
7424
0
    if (rel + 1 == relend
7425
0
        || rel[1].r_offset != offset + 8)
7426
0
      {
7427
        /* If someone messes with .opd alignment then after a
7428
     "ld -r" we might have padding in the middle of .opd.
7429
     Also, there's nothing to prevent someone putting
7430
     something silly in .opd with the assembler.  No .opd
7431
     optimization for them!  */
7432
0
      broken_opd:
7433
0
        _bfd_error_handler
7434
0
    (_("%pB: .opd is not a regular array of opd entries"), ibfd);
7435
0
        broken = true;
7436
0
        break;
7437
0
      }
7438
7439
0
    if ((r_type = ELF64_R_TYPE (rel->r_info)) != R_PPC64_ADDR64
7440
0
        || (r_type = ELF64_R_TYPE ((rel + 1)->r_info)) != R_PPC64_TOC)
7441
0
      {
7442
0
        _bfd_error_handler
7443
    /* xgettext:c-format */
7444
0
    (_("%pB: unexpected reloc type %u in .opd section"),
7445
0
     ibfd, r_type);
7446
0
        broken = true;
7447
0
        break;
7448
0
      }
7449
7450
0
    r_symndx = ELF64_R_SYM (rel->r_info);
7451
0
    if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
7452
0
        r_symndx, ibfd))
7453
0
      goto error_ret;
7454
7455
0
    if (sym_sec == NULL || sym_sec->owner == NULL)
7456
0
      {
7457
0
        const char *sym_name;
7458
0
        if (h != NULL)
7459
0
    sym_name = h->root.root.string;
7460
0
        else
7461
0
    sym_name = bfd_elf_sym_name (ibfd, symtab_hdr, sym,
7462
0
               sym_sec);
7463
7464
0
        _bfd_error_handler
7465
    /* xgettext:c-format */
7466
0
    (_("%pB: undefined sym `%s' in .opd section"),
7467
0
     ibfd, sym_name);
7468
0
        broken = true;
7469
0
        break;
7470
0
      }
7471
7472
    /* opd entries are always for functions defined in the
7473
       current input bfd.  If the symbol isn't defined in the
7474
       input bfd, then we won't be using the function in this
7475
       bfd;  It must be defined in a linkonce section in another
7476
       bfd, or is weak.  It's also possible that we are
7477
       discarding the function due to a linker script /DISCARD/,
7478
       which we test for via the output_section.  */
7479
0
    if (sym_sec->owner != ibfd
7480
0
        || sym_sec->output_section == bfd_abs_section_ptr)
7481
0
      need_edit = true;
7482
7483
0
    rel += 2;
7484
0
    if (rel + 1 == relend
7485
0
        || (rel + 2 < relend
7486
0
      && ELF64_R_TYPE (rel[2].r_info) == R_PPC64_TOC))
7487
0
      ++rel;
7488
7489
0
    if (rel == relend)
7490
0
      {
7491
0
        if (sec->size == offset + 24)
7492
0
    {
7493
0
      need_pad = NULL;
7494
0
      break;
7495
0
    }
7496
0
        if (sec->size == offset + 16)
7497
0
    {
7498
0
      cnt_16b++;
7499
0
      break;
7500
0
    }
7501
0
        goto broken_opd;
7502
0
      }
7503
0
    else if (rel + 1 < relend
7504
0
       && ELF64_R_TYPE (rel[0].r_info) == R_PPC64_ADDR64
7505
0
       && ELF64_R_TYPE (rel[1].r_info) == R_PPC64_TOC)
7506
0
      {
7507
0
        if (rel[0].r_offset == offset + 16)
7508
0
    cnt_16b++;
7509
0
        else if (rel[0].r_offset != offset + 24)
7510
0
    goto broken_opd;
7511
0
      }
7512
0
    else
7513
0
      goto broken_opd;
7514
0
  }
7515
7516
0
      add_aux_fields = htab->params->non_overlapping_opd && cnt_16b > 0;
7517
7518
0
      if (!broken && (need_edit || add_aux_fields))
7519
0
  {
7520
0
    Elf_Internal_Rela *write_rel;
7521
0
    Elf_Internal_Shdr *rel_hdr;
7522
0
    bfd_byte *rptr, *wptr;
7523
0
    bfd_byte *new_contents;
7524
0
    bfd_size_type amt;
7525
7526
0
    new_contents = NULL;
7527
0
    amt = OPD_NDX (sec->size) * sizeof (long);
7528
0
    opd = &ppc64_elf_section_data (sec)->u.opd;
7529
0
    opd->adjust = bfd_zalloc (sec->owner, amt);
7530
0
    if (opd->adjust == NULL)
7531
0
      return false;
7532
7533
    /* This seems a waste of time as input .opd sections are all
7534
       zeros as generated by gcc, but I suppose there's no reason
7535
       this will always be so.  We might start putting something in
7536
       the third word of .opd entries.  */
7537
0
    if ((sec->flags & SEC_IN_MEMORY) == 0)
7538
0
      {
7539
0
        bfd_byte *loc;
7540
0
        if (!bfd_malloc_and_get_section (ibfd, sec, &loc))
7541
0
    {
7542
0
      free (loc);
7543
0
    error_ret:
7544
0
      if (symtab_hdr->contents != (unsigned char *) local_syms)
7545
0
        free (local_syms);
7546
0
      if (elf_section_data (sec)->relocs != relstart)
7547
0
        free (relstart);
7548
0
      return false;
7549
0
    }
7550
0
        sec->contents = loc;
7551
0
        sec->flags |= (SEC_IN_MEMORY | SEC_HAS_CONTENTS);
7552
0
      }
7553
7554
0
    elf_section_data (sec)->relocs = relstart;
7555
7556
0
    new_contents = sec->contents;
7557
0
    if (add_aux_fields)
7558
0
      {
7559
0
        new_contents = bfd_malloc (sec->size + cnt_16b * 8);
7560
0
        if (new_contents == NULL)
7561
0
    return false;
7562
0
        need_pad = NULL;
7563
0
      }
7564
0
    wptr = new_contents;
7565
0
    rptr = sec->contents;
7566
0
    write_rel = relstart;
7567
0
    for (rel = relstart; rel < relend; )
7568
0
      {
7569
0
        unsigned long r_symndx;
7570
0
        asection *sym_sec;
7571
0
        struct elf_link_hash_entry *h;
7572
0
        struct ppc_link_hash_entry *fdh = NULL;
7573
0
        Elf_Internal_Sym *sym;
7574
0
        long opd_ent_size;
7575
0
        Elf_Internal_Rela *next_rel;
7576
0
        bool skip;
7577
7578
0
        r_symndx = ELF64_R_SYM (rel->r_info);
7579
0
        if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
7580
0
            r_symndx, ibfd))
7581
0
    goto error_ret;
7582
7583
0
        next_rel = rel + 2;
7584
0
        if (next_rel + 1 == relend
7585
0
      || (next_rel + 2 < relend
7586
0
          && ELF64_R_TYPE (next_rel[2].r_info) == R_PPC64_TOC))
7587
0
    ++next_rel;
7588
7589
        /* See if the .opd entry is full 24 byte or
7590
     16 byte (with fd_aux entry overlapped with next
7591
     fd_func).  */
7592
0
        opd_ent_size = 24;
7593
0
        if (next_rel == relend)
7594
0
    {
7595
0
      if (sec->size == rel->r_offset + 16)
7596
0
        opd_ent_size = 16;
7597
0
    }
7598
0
        else if (next_rel->r_offset == rel->r_offset + 16)
7599
0
    opd_ent_size = 16;
7600
7601
0
        if (h != NULL
7602
0
      && h->root.root.string[0] == '.')
7603
0
    {
7604
0
      fdh = ppc_elf_hash_entry (h)->oh;
7605
0
      if (fdh != NULL)
7606
0
        {
7607
0
          fdh = ppc_follow_link (fdh);
7608
0
          if (fdh->elf.root.type != bfd_link_hash_defined
7609
0
        && fdh->elf.root.type != bfd_link_hash_defweak)
7610
0
      fdh = NULL;
7611
0
        }
7612
0
    }
7613
7614
0
        skip = (sym_sec->owner != ibfd
7615
0
          || sym_sec->output_section == bfd_abs_section_ptr);
7616
0
        if (skip)
7617
0
    {
7618
0
      if (fdh != NULL && sym_sec->owner == ibfd)
7619
0
        {
7620
          /* Arrange for the function descriptor sym
7621
       to be dropped.  */
7622
0
          fdh->elf.root.u.def.value = 0;
7623
0
          fdh->elf.root.u.def.section = sym_sec;
7624
0
        }
7625
0
      opd->adjust[OPD_NDX (rel->r_offset)] = -1;
7626
7627
0
      if (NO_OPD_RELOCS || bfd_link_relocatable (info))
7628
0
        rel = next_rel;
7629
0
      else
7630
0
        while (1)
7631
0
          {
7632
0
      if (!dec_dynrel_count (rel, sec, info,
7633
0
                 NULL, h, sym))
7634
0
        goto error_ret;
7635
7636
0
      if (++rel == next_rel)
7637
0
        break;
7638
7639
0
      r_symndx = ELF64_R_SYM (rel->r_info);
7640
0
      if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
7641
0
          r_symndx, ibfd))
7642
0
        goto error_ret;
7643
0
          }
7644
0
    }
7645
0
        else
7646
0
    {
7647
      /* We'll be keeping this opd entry.  */
7648
0
      long adjust;
7649
7650
0
      if (fdh != NULL)
7651
0
        {
7652
          /* Redefine the function descriptor symbol to
7653
       this location in the opd section.  It is
7654
       necessary to update the value here rather
7655
       than using an array of adjustments as we do
7656
       for local symbols, because various places
7657
       in the generic ELF code use the value
7658
       stored in u.def.value.  */
7659
0
          fdh->elf.root.u.def.value = wptr - new_contents;
7660
0
          fdh->adjust_done = 1;
7661
0
        }
7662
7663
      /* Local syms are a bit tricky.  We could
7664
         tweak them as they can be cached, but
7665
         we'd need to look through the local syms
7666
         for the function descriptor sym which we
7667
         don't have at the moment.  So keep an
7668
         array of adjustments.  */
7669
0
      adjust = (wptr - new_contents) - (rptr - sec->contents);
7670
0
      opd->adjust[OPD_NDX (rel->r_offset)] = adjust;
7671
7672
0
      if (wptr != rptr)
7673
0
        memcpy (wptr, rptr, opd_ent_size);
7674
0
      wptr += opd_ent_size;
7675
0
      if (add_aux_fields && opd_ent_size == 16)
7676
0
        {
7677
0
          memset (wptr, '\0', 8);
7678
0
          wptr += 8;
7679
0
        }
7680
7681
      /* We need to adjust any reloc offsets to point to the
7682
         new opd entries.  */
7683
0
      for ( ; rel != next_rel; ++rel)
7684
0
        {
7685
0
          rel->r_offset += adjust;
7686
0
          if (write_rel != rel)
7687
0
      memcpy (write_rel, rel, sizeof (*rel));
7688
0
          ++write_rel;
7689
0
        }
7690
0
    }
7691
7692
0
        rptr += opd_ent_size;
7693
0
      }
7694
7695
0
    sec->size = wptr - new_contents;
7696
0
    sec->reloc_count = write_rel - relstart;
7697
0
    if (add_aux_fields)
7698
0
      {
7699
0
        free (sec->contents);
7700
0
        sec->contents = new_contents;
7701
0
      }
7702
7703
    /* Fudge the header size too, as this is used later in
7704
       elf_bfd_final_link if we are emitting relocs.  */
7705
0
    rel_hdr = _bfd_elf_single_rel_hdr (sec);
7706
0
    rel_hdr->sh_size = sec->reloc_count * rel_hdr->sh_entsize;
7707
0
    some_edited = true;
7708
0
  }
7709
0
      else if (elf_section_data (sec)->relocs != relstart)
7710
0
  free (relstart);
7711
7712
0
      if (local_syms != NULL
7713
0
    && symtab_hdr->contents != (unsigned char *) local_syms)
7714
0
  {
7715
0
    if (!info->keep_memory)
7716
0
      free (local_syms);
7717
0
    else
7718
0
      symtab_hdr->contents = (unsigned char *) local_syms;
7719
0
  }
7720
0
    }
7721
7722
0
  if (some_edited)
7723
0
    elf_link_hash_traverse (elf_hash_table (info), adjust_opd_syms, NULL);
7724
7725
  /* If we are doing a final link and the last .opd entry is just 16 byte
7726
     long, add a 8 byte padding after it.  */
7727
0
  if (need_pad != NULL && !bfd_link_relocatable (info))
7728
0
    {
7729
0
      bfd_byte *p;
7730
7731
0
      if ((need_pad->flags & SEC_IN_MEMORY) == 0)
7732
0
  {
7733
0
    BFD_ASSERT (need_pad->size > 0);
7734
7735
0
    p = bfd_malloc (need_pad->size + 8);
7736
0
    if (p == NULL)
7737
0
      return false;
7738
7739
0
    if (!bfd_get_section_contents (need_pad->owner, need_pad,
7740
0
           p, 0, need_pad->size))
7741
0
      return false;
7742
7743
0
    need_pad->contents = p;
7744
0
    need_pad->flags |= (SEC_IN_MEMORY | SEC_HAS_CONTENTS);
7745
0
  }
7746
0
      else
7747
0
  {
7748
0
    p = bfd_realloc (need_pad->contents, need_pad->size + 8);
7749
0
    if (p == NULL)
7750
0
      return false;
7751
7752
0
    need_pad->contents = p;
7753
0
  }
7754
7755
0
      memset (need_pad->contents + need_pad->size, 0, 8);
7756
0
      need_pad->size += 8;
7757
0
    }
7758
7759
0
  return true;
7760
0
}
7761
7762
/* Analyze inline PLT call relocations to see whether calls to locally
7763
   defined functions can be converted to direct calls.  */
7764
7765
bool
7766
ppc64_elf_inline_plt (struct bfd_link_info *info)
7767
0
{
7768
0
  struct ppc_link_hash_table *htab;
7769
0
  bfd *ibfd;
7770
0
  asection *sec;
7771
0
  bfd_vma low_vma, high_vma, limit;
7772
7773
0
  htab = ppc_hash_table (info);
7774
0
  if (htab == NULL)
7775
0
    return false;
7776
7777
  /* A bl insn can reach -0x2000000 to 0x1fffffc.  The limit is
7778
     reduced somewhat to cater for possible stubs that might be added
7779
     between the call and its destination.  */
7780
0
  if (htab->params->group_size < 0)
7781
0
    {
7782
0
      limit = -htab->params->group_size;
7783
0
      if (limit == 1)
7784
0
  limit = 0x1e00000;
7785
0
    }
7786
0
  else
7787
0
    {
7788
0
      limit = htab->params->group_size;
7789
0
      if (limit == 1)
7790
0
  limit = 0x1c00000;
7791
0
    }
7792
7793
0
  low_vma = -1;
7794
0
  high_vma = 0;
7795
0
  for (sec = info->output_bfd->sections; sec != NULL; sec = sec->next)
7796
0
    if ((sec->flags & (SEC_ALLOC | SEC_CODE)) == (SEC_ALLOC | SEC_CODE))
7797
0
      {
7798
0
  if (low_vma > sec->vma)
7799
0
    low_vma = sec->vma;
7800
0
  if (high_vma < sec->vma + sec->size)
7801
0
    high_vma = sec->vma + sec->size;
7802
0
      }
7803
7804
  /* If a "bl" can reach anywhere in local code sections, then we can
7805
     convert all inline PLT sequences to direct calls when the symbol
7806
     is local.  */
7807
0
  if (high_vma - low_vma < limit)
7808
0
    {
7809
0
      htab->can_convert_all_inline_plt = 1;
7810
0
      return true;
7811
0
    }
7812
7813
  /* Otherwise, go looking through relocs for cases where a direct
7814
     call won't reach.  Mark the symbol on any such reloc to disable
7815
     the optimization and keep the PLT entry as it seems likely that
7816
     this will be better than creating trampolines.  Note that this
7817
     will disable the optimization for all inline PLT calls to a
7818
     particular symbol, not just those that won't reach.  The
7819
     difficulty in doing a more precise optimization is that the
7820
     linker needs to make a decision depending on whether a
7821
     particular R_PPC64_PLTCALL insn can be turned into a direct
7822
     call, for each of the R_PPC64_PLTSEQ and R_PPC64_PLT16* insns in
7823
     the sequence, and there is nothing that ties those relocs
7824
     together except their symbol.  */
7825
7826
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
7827
0
    {
7828
0
      Elf_Internal_Shdr *symtab_hdr;
7829
0
      Elf_Internal_Sym *local_syms;
7830
7831
0
      if (!is_ppc64_elf (ibfd))
7832
0
  continue;
7833
7834
0
      local_syms = NULL;
7835
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
7836
7837
0
      for (sec = ibfd->sections; sec != NULL; sec = sec->next)
7838
0
  if (ppc64_elf_section_data (sec)->has_pltcall
7839
0
      && !bfd_is_abs_section (sec->output_section))
7840
0
    {
7841
0
      Elf_Internal_Rela *relstart, *rel, *relend;
7842
7843
      /* Read the relocations.  */
7844
0
      relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
7845
0
              info->keep_memory);
7846
0
      if (relstart == NULL)
7847
0
        return false;
7848
7849
0
      relend = relstart + sec->reloc_count;
7850
0
      for (rel = relstart; rel < relend; rel++)
7851
0
        {
7852
0
    enum elf_ppc64_reloc_type r_type;
7853
0
    unsigned long r_symndx;
7854
0
    asection *sym_sec;
7855
0
    struct elf_link_hash_entry *h;
7856
0
    Elf_Internal_Sym *sym;
7857
0
    unsigned char *tls_maskp;
7858
7859
0
    r_type = ELF64_R_TYPE (rel->r_info);
7860
0
    if (r_type != R_PPC64_PLTCALL
7861
0
        && r_type != R_PPC64_PLTCALL_NOTOC)
7862
0
      continue;
7863
7864
0
    r_symndx = ELF64_R_SYM (rel->r_info);
7865
0
    if (!get_sym_h (&h, &sym, &sym_sec, &tls_maskp, &local_syms,
7866
0
        r_symndx, ibfd))
7867
0
      {
7868
0
        if (elf_section_data (sec)->relocs != relstart)
7869
0
          free (relstart);
7870
0
        if (symtab_hdr->contents != (bfd_byte *) local_syms)
7871
0
          free (local_syms);
7872
0
        return false;
7873
0
      }
7874
7875
0
    if (sym_sec != NULL && sym_sec->output_section != NULL)
7876
0
      {
7877
0
        bfd_vma from, to;
7878
0
        if (h != NULL)
7879
0
          to = h->root.u.def.value;
7880
0
        else
7881
0
          to = sym->st_value;
7882
0
        to += (rel->r_addend
7883
0
         + sym_sec->output_offset
7884
0
         + sym_sec->output_section->vma);
7885
0
        from = (rel->r_offset
7886
0
          + sec->output_offset
7887
0
          + sec->output_section->vma);
7888
0
        if (to - from + limit < 2 * limit
7889
0
      && !(r_type == R_PPC64_PLTCALL_NOTOC
7890
0
           && (((h ? h->other : sym->st_other)
7891
0
          & STO_PPC64_LOCAL_MASK)
7892
0
         > 1 << STO_PPC64_LOCAL_BIT)))
7893
0
          *tls_maskp &= ~PLT_KEEP;
7894
0
      }
7895
0
        }
7896
0
      if (elf_section_data (sec)->relocs != relstart)
7897
0
        free (relstart);
7898
0
    }
7899
7900
0
      if (local_syms != NULL
7901
0
    && symtab_hdr->contents != (unsigned char *) local_syms)
7902
0
  {
7903
0
    if (!info->keep_memory)
7904
0
      free (local_syms);
7905
0
    else
7906
0
      symtab_hdr->contents = (unsigned char *) local_syms;
7907
0
  }
7908
0
    }
7909
7910
0
  return true;
7911
0
}
7912
7913
/* Set htab->tls_get_addr and various other info specific to TLS.
7914
   This needs to run before dynamic symbols are processed in
7915
   bfd_elf_size_dynamic_sections.  */
7916
7917
bool
7918
ppc64_elf_tls_setup (struct bfd_link_info *info)
7919
0
{
7920
0
  struct ppc_link_hash_table *htab;
7921
0
  struct elf_link_hash_entry *tga, *tga_fd, *desc, *desc_fd;
7922
7923
0
  htab = ppc_hash_table (info);
7924
0
  if (htab == NULL)
7925
0
    return false;
7926
7927
  /* Move dynamic linking info to the function descriptor sym.  */
7928
0
  if (htab->need_func_desc_adj)
7929
0
    {
7930
0
      elf_link_hash_traverse (&htab->elf, func_desc_adjust, info);
7931
0
      htab->need_func_desc_adj = 0;
7932
0
    }
7933
7934
0
  if (abiversion (info->output_bfd) == 1)
7935
0
    htab->opd_abi = 1;
7936
7937
0
  if (htab->params->no_multi_toc)
7938
0
    htab->do_multi_toc = 0;
7939
0
  else if (!htab->do_multi_toc)
7940
0
    htab->params->no_multi_toc = 1;
7941
7942
  /* Default to --no-plt-localentry, as this option can cause problems
7943
     with symbol interposition.  For example, glibc libpthread.so and
7944
     libc.so duplicate many pthread symbols, with a fallback
7945
     implementation in libc.so.  In some cases the fallback does more
7946
     work than the pthread implementation.  __pthread_condattr_destroy
7947
     is one such symbol: the libpthread.so implementation is
7948
     localentry:0 while the libc.so implementation is localentry:8.
7949
     An app that "cleverly" uses dlopen to only load necessary
7950
     libraries at runtime may omit loading libpthread.so when not
7951
     running multi-threaded, which then results in the libc.so
7952
     fallback symbols being used and ld.so complaining.  Now there
7953
     are workarounds in ld (see non_zero_localentry) to detect the
7954
     pthread situation, but that may not be the only case where
7955
     --plt-localentry can cause trouble.  */
7956
0
  if (htab->params->plt_localentry0 < 0)
7957
0
    htab->params->plt_localentry0 = 0;
7958
0
  if (htab->params->plt_localentry0 && htab->has_power10_relocs)
7959
0
    {
7960
      /* The issue is that __glink_PLTresolve saves r2, which is done
7961
   because glibc ld.so _dl_runtime_resolve restores r2 to support
7962
   a glibc plt call optimisation where global entry code is
7963
   skipped on calls that resolve to the same binary.  The
7964
   __glink_PLTresolve save of r2 is incompatible with code
7965
   making tail calls, because the tail call might go via the
7966
   resolver and thus overwrite the proper saved r2.  */
7967
0
      _bfd_error_handler (_("warning: --plt-localentry is incompatible with "
7968
0
          "power10 pc-relative code"));
7969
0
      htab->params->plt_localentry0 = 0;
7970
0
    }
7971
0
  if (htab->params->plt_localentry0
7972
0
      && elf_link_hash_lookup (&htab->elf, "GLIBC_2.26",
7973
0
             false, false, false) == NULL)
7974
0
    _bfd_error_handler
7975
0
      (_("warning: --plt-localentry is especially dangerous without "
7976
0
   "ld.so support to detect ABI violations"));
7977
7978
0
  tga = elf_link_hash_lookup (&htab->elf, ".__tls_get_addr",
7979
0
            false, false, true);
7980
0
  htab->tls_get_addr = ppc_elf_hash_entry (tga);
7981
0
  tga_fd = elf_link_hash_lookup (&htab->elf, "__tls_get_addr",
7982
0
         false, false, true);
7983
0
  htab->tls_get_addr_fd = ppc_elf_hash_entry (tga_fd);
7984
7985
0
  desc = elf_link_hash_lookup (&htab->elf, ".__tls_get_addr_desc",
7986
0
             false, false, true);
7987
0
  htab->tga_desc = ppc_elf_hash_entry (desc);
7988
0
  desc_fd = elf_link_hash_lookup (&htab->elf, "__tls_get_addr_desc",
7989
0
          false, false, true);
7990
0
  htab->tga_desc_fd = ppc_elf_hash_entry (desc_fd);
7991
7992
0
  if (htab->params->tls_get_addr_opt)
7993
0
    {
7994
0
      struct elf_link_hash_entry *opt, *opt_fd;
7995
7996
0
      opt = elf_link_hash_lookup (&htab->elf, ".__tls_get_addr_opt",
7997
0
          false, false, true);
7998
0
      opt_fd = elf_link_hash_lookup (&htab->elf, "__tls_get_addr_opt",
7999
0
             false, false, true);
8000
0
      if (opt_fd != NULL
8001
0
    && (opt_fd->root.type == bfd_link_hash_defined
8002
0
        || opt_fd->root.type == bfd_link_hash_defweak))
8003
0
  {
8004
    /* If glibc supports an optimized __tls_get_addr call stub,
8005
       signalled by the presence of __tls_get_addr_opt, and we'll
8006
       be calling __tls_get_addr via a plt call stub, then
8007
       make __tls_get_addr point to __tls_get_addr_opt.  */
8008
0
    if (!(htab->elf.dynamic_sections_created
8009
0
    && tga_fd != NULL
8010
0
    && (tga_fd->type == STT_FUNC
8011
0
        || tga_fd->needs_plt)
8012
0
    && !(SYMBOL_CALLS_LOCAL (info, tga_fd)
8013
0
         || UNDEFWEAK_NO_DYNAMIC_RELOC (info, tga_fd))))
8014
0
      tga_fd = NULL;
8015
0
    if (!(htab->elf.dynamic_sections_created
8016
0
    && desc_fd != NULL
8017
0
    && (desc_fd->type == STT_FUNC
8018
0
        || desc_fd->needs_plt)
8019
0
    && !(SYMBOL_CALLS_LOCAL (info, desc_fd)
8020
0
         || UNDEFWEAK_NO_DYNAMIC_RELOC (info, desc_fd))))
8021
0
      desc_fd = NULL;
8022
8023
0
    if (tga_fd != NULL || desc_fd != NULL)
8024
0
      {
8025
0
        struct plt_entry *ent = NULL;
8026
8027
0
        if (tga_fd != NULL)
8028
0
    for (ent = tga_fd->plt.plist; ent != NULL; ent = ent->next)
8029
0
      if (ent->plt.refcount > 0)
8030
0
        break;
8031
0
        if (ent == NULL && desc_fd != NULL)
8032
0
    for (ent = desc_fd->plt.plist; ent != NULL; ent = ent->next)
8033
0
      if (ent->plt.refcount > 0)
8034
0
        break;
8035
0
        if (ent != NULL)
8036
0
    {
8037
0
      if (tga_fd != NULL)
8038
0
        {
8039
0
          tga_fd->root.type = bfd_link_hash_indirect;
8040
0
          tga_fd->root.u.i.link = &opt_fd->root;
8041
0
          tga_fd->root.u.i.warning = NULL;
8042
0
          ppc64_elf_copy_indirect_symbol (info, opt_fd, tga_fd);
8043
0
        }
8044
0
      if (desc_fd != NULL)
8045
0
        {
8046
0
          desc_fd->root.type = bfd_link_hash_indirect;
8047
0
          desc_fd->root.u.i.link = &opt_fd->root;
8048
0
          desc_fd->root.u.i.warning = NULL;
8049
0
          ppc64_elf_copy_indirect_symbol (info, opt_fd, desc_fd);
8050
0
        }
8051
0
      opt_fd->mark = 1;
8052
0
      if (opt_fd->dynindx != -1)
8053
0
        {
8054
          /* Use __tls_get_addr_opt in dynamic relocations.  */
8055
0
          opt_fd->dynindx = -1;
8056
0
          _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
8057
0
                opt_fd->dynstr_index);
8058
0
          if (!bfd_elf_link_record_dynamic_symbol (info, opt_fd))
8059
0
      return false;
8060
0
        }
8061
0
      if (tga_fd != NULL)
8062
0
        {
8063
0
          htab->tls_get_addr_fd = ppc_elf_hash_entry (opt_fd);
8064
0
          tga = elf_hash_entry (htab->tls_get_addr);
8065
0
          if (opt != NULL && tga != NULL)
8066
0
      {
8067
0
        tga->root.type = bfd_link_hash_indirect;
8068
0
        tga->root.u.i.link = &opt->root;
8069
0
        tga->root.u.i.warning = NULL;
8070
0
        ppc64_elf_copy_indirect_symbol (info, opt, tga);
8071
0
        opt->mark = 1;
8072
0
        _bfd_elf_link_hash_hide_symbol (info, opt,
8073
0
                tga->forced_local);
8074
0
        htab->tls_get_addr = ppc_elf_hash_entry (opt);
8075
0
      }
8076
0
          htab->tls_get_addr_fd->oh = htab->tls_get_addr;
8077
0
          htab->tls_get_addr_fd->is_func_descriptor = 1;
8078
0
          if (htab->tls_get_addr != NULL)
8079
0
      {
8080
0
        htab->tls_get_addr->oh = htab->tls_get_addr_fd;
8081
0
        htab->tls_get_addr->is_func = 1;
8082
0
      }
8083
0
        }
8084
0
      if (desc_fd != NULL)
8085
0
        {
8086
0
          htab->tga_desc_fd = ppc_elf_hash_entry (opt_fd);
8087
0
          if (opt != NULL && desc != NULL)
8088
0
      {
8089
0
        desc->root.type = bfd_link_hash_indirect;
8090
0
        desc->root.u.i.link = &opt->root;
8091
0
        desc->root.u.i.warning = NULL;
8092
0
        ppc64_elf_copy_indirect_symbol (info, opt, desc);
8093
0
        opt->mark = 1;
8094
0
        _bfd_elf_link_hash_hide_symbol (info, opt,
8095
0
                desc->forced_local);
8096
0
        htab->tga_desc = ppc_elf_hash_entry (opt);
8097
0
      }
8098
0
          htab->tga_desc_fd->oh = htab->tga_desc;
8099
0
          htab->tga_desc_fd->is_func_descriptor = 1;
8100
0
          if (htab->tga_desc != NULL)
8101
0
      {
8102
0
        htab->tga_desc->oh = htab->tga_desc_fd;
8103
0
        htab->tga_desc->is_func = 1;
8104
0
      }
8105
0
        }
8106
0
    }
8107
0
      }
8108
0
  }
8109
0
      else if (htab->params->tls_get_addr_opt < 0)
8110
0
  htab->params->tls_get_addr_opt = 0;
8111
0
    }
8112
8113
0
  if (htab->tga_desc_fd != NULL
8114
0
      && htab->params->tls_get_addr_opt
8115
0
      && htab->params->no_tls_get_addr_regsave == -1)
8116
0
    htab->params->no_tls_get_addr_regsave = 0;
8117
8118
0
  return true;
8119
0
}
8120
8121
/* Return TRUE iff REL is a branch reloc with a global symbol matching
8122
   any of HASH1, HASH2, HASH3, or HASH4.  */
8123
8124
static bool
8125
branch_reloc_hash_match (bfd *ibfd,
8126
       Elf_Internal_Rela *rel,
8127
       struct ppc_link_hash_entry *hash1,
8128
       struct ppc_link_hash_entry *hash2,
8129
       struct ppc_link_hash_entry *hash3,
8130
       struct ppc_link_hash_entry *hash4)
8131
0
{
8132
0
  Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (ibfd);
8133
0
  enum elf_ppc64_reloc_type r_type = ELF64_R_TYPE (rel->r_info);
8134
0
  unsigned int r_symndx = ELF64_R_SYM (rel->r_info);
8135
8136
0
  if (r_symndx >= symtab_hdr->sh_info && is_branch_reloc (r_type))
8137
0
    {
8138
0
      struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (ibfd);
8139
0
      struct elf_link_hash_entry *h;
8140
8141
0
      h = sym_hashes[r_symndx - symtab_hdr->sh_info];
8142
0
      h = elf_follow_link (h);
8143
0
      if (h == elf_hash_entry (hash1)
8144
0
    || h == elf_hash_entry (hash2)
8145
0
    || h == elf_hash_entry (hash3)
8146
0
    || h == elf_hash_entry (hash4))
8147
0
  return true;
8148
0
    }
8149
0
  return false;
8150
0
}
8151
8152
/* Run through all the TLS relocs looking for optimization
8153
   opportunities.  The linker has been hacked (see ppc64elf.em) to do
8154
   a preliminary section layout so that we know the TLS segment
8155
   offsets.  We can't optimize earlier because some optimizations need
8156
   to know the tp offset, and we need to optimize before allocating
8157
   dynamic relocations.  */
8158
8159
bool
8160
ppc64_elf_tls_optimize (struct bfd_link_info *info)
8161
0
{
8162
0
  bfd *ibfd;
8163
0
  asection *sec;
8164
0
  struct ppc_link_hash_table *htab;
8165
0
  unsigned char *toc_ref;
8166
0
  int pass;
8167
8168
0
  if (!bfd_link_executable (info))
8169
0
    return true;
8170
8171
0
  htab = ppc_hash_table (info);
8172
0
  if (htab == NULL)
8173
0
    return false;
8174
8175
0
  htab->do_tls_opt = 1;
8176
8177
  /* Make two passes over the relocs.  On the first pass, mark toc
8178
     entries involved with tls relocs, and check that tls relocs
8179
     involved in setting up a tls_get_addr call are indeed followed by
8180
     such a call.  If they are not, we can't do any tls optimization.
8181
     On the second pass twiddle tls_mask flags to notify
8182
     relocate_section that optimization can be done, and adjust got
8183
     and plt refcounts.  */
8184
0
  toc_ref = NULL;
8185
0
  for (pass = 0; pass < 2; ++pass)
8186
0
    for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
8187
0
      {
8188
0
  Elf_Internal_Sym *locsyms = NULL;
8189
0
  asection *toc = bfd_get_section_by_name (ibfd, ".toc");
8190
8191
0
  for (sec = ibfd->sections; sec != NULL; sec = sec->next)
8192
0
    if (sec->has_tls_reloc && !bfd_is_abs_section (sec->output_section))
8193
0
      {
8194
0
        Elf_Internal_Rela *relstart, *rel, *relend;
8195
0
        bool found_tls_get_addr_arg = 0;
8196
8197
        /* Read the relocations.  */
8198
0
        relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
8199
0
                info->keep_memory);
8200
0
        if (relstart == NULL)
8201
0
    {
8202
0
      free (toc_ref);
8203
0
      return false;
8204
0
    }
8205
8206
0
        relend = relstart + sec->reloc_count;
8207
0
        for (rel = relstart; rel < relend; rel++)
8208
0
    {
8209
0
      enum elf_ppc64_reloc_type r_type;
8210
0
      unsigned long r_symndx;
8211
0
      struct elf_link_hash_entry *h;
8212
0
      Elf_Internal_Sym *sym;
8213
0
      asection *sym_sec;
8214
0
      unsigned char *tls_mask;
8215
0
      unsigned int tls_set, tls_clear, tls_type = 0;
8216
0
      bfd_vma value;
8217
0
      bool ok_tprel, is_local;
8218
0
      long toc_ref_index = 0;
8219
0
      int expecting_tls_get_addr = 0;
8220
0
      bool ret = false;
8221
8222
0
      r_symndx = ELF64_R_SYM (rel->r_info);
8223
0
      if (!get_sym_h (&h, &sym, &sym_sec, &tls_mask, &locsyms,
8224
0
          r_symndx, ibfd))
8225
0
        {
8226
0
        err_free_rel:
8227
0
          if (elf_section_data (sec)->relocs != relstart)
8228
0
      free (relstart);
8229
0
          free (toc_ref);
8230
0
          if (elf_symtab_hdr (ibfd).contents
8231
0
        != (unsigned char *) locsyms)
8232
0
      free (locsyms);
8233
0
          return ret;
8234
0
        }
8235
8236
0
      if (h != NULL)
8237
0
        {
8238
0
          if (h->root.type == bfd_link_hash_defined
8239
0
        || h->root.type == bfd_link_hash_defweak)
8240
0
      value = h->root.u.def.value;
8241
0
          else if (h->root.type == bfd_link_hash_undefweak)
8242
0
      value = 0;
8243
0
          else
8244
0
      {
8245
0
        found_tls_get_addr_arg = 0;
8246
0
        continue;
8247
0
      }
8248
0
        }
8249
0
      else
8250
        /* Symbols referenced by TLS relocs must be of type
8251
           STT_TLS.  So no need for .opd local sym adjust.  */
8252
0
        value = sym->st_value;
8253
8254
0
      ok_tprel = false;
8255
0
      is_local = SYMBOL_REFERENCES_LOCAL (info, h);
8256
0
      if (is_local)
8257
0
        {
8258
0
          if (h != NULL
8259
0
        && h->root.type == bfd_link_hash_undefweak)
8260
0
      ok_tprel = true;
8261
0
          else if (sym_sec != NULL
8262
0
             && sym_sec->output_section != NULL)
8263
0
      {
8264
0
        value += sym_sec->output_offset;
8265
0
        value += sym_sec->output_section->vma;
8266
0
        value -= htab->elf.tls_sec->vma + TP_OFFSET;
8267
        /* Note that even though the prefix insns
8268
           allow a 1<<33 offset we use the same test
8269
           as for addis;addi.  There may be a mix of
8270
           pcrel and non-pcrel code and the decision
8271
           to optimise is per symbol, not per TLS
8272
           sequence.  */
8273
0
        ok_tprel = value + 0x80008000ULL < 1ULL << 32;
8274
0
      }
8275
0
        }
8276
8277
0
      r_type = ELF64_R_TYPE (rel->r_info);
8278
      /* If this section has old-style __tls_get_addr calls
8279
         without marker relocs, then check that each
8280
         __tls_get_addr call reloc is preceded by a reloc
8281
         that conceivably belongs to the __tls_get_addr arg
8282
         setup insn.  If we don't find matching arg setup
8283
         relocs, don't do any tls optimization.  */
8284
0
      if (pass == 0
8285
0
          && sec->nomark_tls_get_addr
8286
0
          && h != NULL
8287
0
          && is_tls_get_addr (h, htab)
8288
0
          && !found_tls_get_addr_arg
8289
0
          && is_branch_reloc (r_type))
8290
0
        {
8291
0
          info->callbacks->minfo (_("%H __tls_get_addr lost arg, "
8292
0
            "TLS optimization disabled\n"),
8293
0
                ibfd, sec, rel->r_offset);
8294
0
          ret = true;
8295
0
          goto err_free_rel;
8296
0
        }
8297
8298
0
      found_tls_get_addr_arg = 0;
8299
0
      switch (r_type)
8300
0
        {
8301
0
        case R_PPC64_GOT_TLSLD16:
8302
0
        case R_PPC64_GOT_TLSLD16_LO:
8303
0
        case R_PPC64_GOT_TLSLD_PCREL34:
8304
0
          expecting_tls_get_addr = 1;
8305
0
          found_tls_get_addr_arg = 1;
8306
          /* Fall through.  */
8307
8308
0
        case R_PPC64_GOT_TLSLD16_HI:
8309
0
        case R_PPC64_GOT_TLSLD16_HA:
8310
          /* These relocs should never be against a symbol
8311
       defined in a shared lib.  Leave them alone if
8312
       that turns out to be the case.  */
8313
0
          if (!is_local)
8314
0
      continue;
8315
8316
          /* LD -> LE */
8317
0
          tls_set = 0;
8318
0
          tls_clear = TLS_LD;
8319
0
          tls_type = TLS_TLS | TLS_LD;
8320
0
          break;
8321
8322
0
        case R_PPC64_GOT_TLSGD16:
8323
0
        case R_PPC64_GOT_TLSGD16_LO:
8324
0
        case R_PPC64_GOT_TLSGD_PCREL34:
8325
0
          expecting_tls_get_addr = 1;
8326
0
          found_tls_get_addr_arg = 1;
8327
          /* Fall through. */
8328
8329
0
        case R_PPC64_GOT_TLSGD16_HI:
8330
0
        case R_PPC64_GOT_TLSGD16_HA:
8331
0
          if (ok_tprel)
8332
      /* GD -> LE */
8333
0
      tls_set = 0;
8334
0
          else
8335
      /* GD -> IE */
8336
0
      tls_set = TLS_TLS | TLS_GDIE;
8337
0
          tls_clear = TLS_GD;
8338
0
          tls_type = TLS_TLS | TLS_GD;
8339
0
          break;
8340
8341
0
        case R_PPC64_GOT_TPREL_PCREL34:
8342
0
        case R_PPC64_GOT_TPREL16_DS:
8343
0
        case R_PPC64_GOT_TPREL16_LO_DS:
8344
0
        case R_PPC64_GOT_TPREL16_HI:
8345
0
        case R_PPC64_GOT_TPREL16_HA:
8346
0
          if (ok_tprel)
8347
0
      {
8348
        /* IE -> LE */
8349
0
        tls_set = 0;
8350
0
        tls_clear = TLS_TPREL;
8351
0
        tls_type = TLS_TLS | TLS_TPREL;
8352
0
        break;
8353
0
      }
8354
0
          continue;
8355
8356
0
        case R_PPC64_TLSLD:
8357
0
          if (!is_local)
8358
0
      continue;
8359
          /* Fall through.  */
8360
0
        case R_PPC64_TLSGD:
8361
0
          if (rel + 1 < relend
8362
0
        && is_plt_seq_reloc (ELF64_R_TYPE (rel[1].r_info)))
8363
0
      {
8364
0
        if (pass != 0
8365
0
            && (ELF64_R_TYPE (rel[1].r_info)
8366
0
          != R_PPC64_PLTSEQ)
8367
0
            && (ELF64_R_TYPE (rel[1].r_info)
8368
0
          != R_PPC64_PLTSEQ_NOTOC))
8369
0
          {
8370
0
            r_symndx = ELF64_R_SYM (rel[1].r_info);
8371
0
            if (!get_sym_h (&h, NULL, NULL, NULL, &locsyms,
8372
0
                r_symndx, ibfd))
8373
0
        goto err_free_rel;
8374
0
            if (h != NULL)
8375
0
        {
8376
0
          struct plt_entry *ent = NULL;
8377
8378
0
          for (ent = h->plt.plist;
8379
0
               ent != NULL;
8380
0
               ent = ent->next)
8381
0
            if (ent->addend == rel[1].r_addend)
8382
0
              break;
8383
8384
0
          if (ent != NULL
8385
0
              && ent->plt.refcount > 0)
8386
0
            ent->plt.refcount -= 1;
8387
0
        }
8388
0
          }
8389
0
        continue;
8390
0
      }
8391
0
          found_tls_get_addr_arg = 1;
8392
          /* Fall through.  */
8393
8394
0
        case R_PPC64_TLS:
8395
0
        case R_PPC64_TOC16:
8396
0
        case R_PPC64_TOC16_LO:
8397
0
          if (sym_sec == NULL || sym_sec != toc)
8398
0
      continue;
8399
8400
          /* Mark this toc entry as referenced by a TLS
8401
       code sequence.  We can do that now in the
8402
       case of R_PPC64_TLS, and after checking for
8403
       tls_get_addr for the TOC16 relocs.  */
8404
0
          if (toc_ref == NULL)
8405
0
      toc_ref
8406
0
        = bfd_zmalloc (toc->output_section->rawsize / 8);
8407
0
          if (toc_ref == NULL)
8408
0
      goto err_free_rel;
8409
8410
0
          if (h != NULL)
8411
0
      value = h->root.u.def.value;
8412
0
          else
8413
0
      value = sym->st_value;
8414
0
          value += rel->r_addend;
8415
0
          if (value % 8 != 0)
8416
0
      continue;
8417
0
          BFD_ASSERT (value < toc->size
8418
0
          && toc->output_offset % 8 == 0);
8419
0
          toc_ref_index = (value + toc->output_offset) / 8;
8420
0
          if (r_type == R_PPC64_TLS
8421
0
        || r_type == R_PPC64_TLSGD
8422
0
        || r_type == R_PPC64_TLSLD)
8423
0
      {
8424
0
        toc_ref[toc_ref_index] = 1;
8425
0
        continue;
8426
0
      }
8427
8428
0
          if (pass != 0 && toc_ref[toc_ref_index] == 0)
8429
0
      continue;
8430
8431
0
          tls_set = 0;
8432
0
          tls_clear = 0;
8433
0
          expecting_tls_get_addr = 2;
8434
0
          break;
8435
8436
0
        case R_PPC64_TPREL64:
8437
0
          if (pass == 0
8438
0
        || sec != toc
8439
0
        || toc_ref == NULL
8440
0
        || !toc_ref[(rel->r_offset + toc->output_offset) / 8])
8441
0
      continue;
8442
0
          if (ok_tprel)
8443
0
      {
8444
        /* IE -> LE */
8445
0
        tls_set = TLS_EXPLICIT;
8446
0
        tls_clear = TLS_TPREL;
8447
0
        break;
8448
0
      }
8449
0
          continue;
8450
8451
0
        case R_PPC64_DTPMOD64:
8452
0
          if (pass == 0
8453
0
        || sec != toc
8454
0
        || toc_ref == NULL
8455
0
        || !toc_ref[(rel->r_offset + toc->output_offset) / 8])
8456
0
      continue;
8457
0
          if (rel + 1 < relend
8458
0
        && (rel[1].r_info
8459
0
            == ELF64_R_INFO (r_symndx, R_PPC64_DTPREL64))
8460
0
        && rel[1].r_offset == rel->r_offset + 8)
8461
0
      {
8462
0
        if (ok_tprel)
8463
          /* GD -> LE */
8464
0
          tls_set = TLS_EXPLICIT | TLS_GD;
8465
0
        else
8466
          /* GD -> IE */
8467
0
          tls_set = TLS_EXPLICIT | TLS_GD | TLS_GDIE;
8468
0
        tls_clear = TLS_GD;
8469
0
      }
8470
0
          else
8471
0
      {
8472
0
        if (!is_local)
8473
0
          continue;
8474
8475
        /* LD -> LE */
8476
0
        tls_set = TLS_EXPLICIT;
8477
0
        tls_clear = TLS_LD;
8478
0
      }
8479
0
          break;
8480
8481
0
        case R_PPC64_TPREL16_HA:
8482
0
          if (pass == 0)
8483
0
      {
8484
0
        unsigned char buf[4];
8485
0
        unsigned int insn;
8486
0
        bfd_vma off = rel->r_offset & ~3;
8487
0
        if (!bfd_get_section_contents (ibfd, sec, buf,
8488
0
               off, 4))
8489
0
          goto err_free_rel;
8490
0
        insn = bfd_get_32 (ibfd, buf);
8491
        /* addis rt,13,imm */
8492
0
        if ((insn & ((0x3fu << 26) | 0x1f << 16))
8493
0
            != ((15u << 26) | (13 << 16)))
8494
0
          {
8495
            /* xgettext:c-format */
8496
0
            info->callbacks->minfo
8497
0
        (_("%H: warning: %s unexpected insn %#x.\n"),
8498
0
         ibfd, sec, off, "R_PPC64_TPREL16_HA", insn);
8499
0
            htab->do_tls_opt = 0;
8500
0
          }
8501
0
      }
8502
0
          continue;
8503
8504
0
        case R_PPC64_TPREL16_HI:
8505
0
        case R_PPC64_TPREL16_HIGH:
8506
0
        case R_PPC64_TPREL16_HIGHA:
8507
0
        case R_PPC64_TPREL16_HIGHER:
8508
0
        case R_PPC64_TPREL16_HIGHERA:
8509
0
        case R_PPC64_TPREL16_HIGHEST:
8510
0
        case R_PPC64_TPREL16_HIGHESTA:
8511
          /* These can all be used in sequences along with
8512
       TPREL16_LO or TPREL16_LO_DS in ways we aren't
8513
       able to verify easily.  */
8514
0
          htab->do_tls_opt = 0;
8515
0
          continue;
8516
8517
0
        default:
8518
0
          continue;
8519
0
        }
8520
8521
0
      if (pass == 0)
8522
0
        {
8523
0
          if (!expecting_tls_get_addr
8524
0
        || !sec->nomark_tls_get_addr)
8525
0
      continue;
8526
8527
0
          if (rel + 1 < relend
8528
0
        && branch_reloc_hash_match (ibfd, rel + 1,
8529
0
                  htab->tls_get_addr_fd,
8530
0
                  htab->tga_desc_fd,
8531
0
                  htab->tls_get_addr,
8532
0
                  htab->tga_desc))
8533
0
      {
8534
0
        if (expecting_tls_get_addr == 2)
8535
0
          {
8536
            /* Check for toc tls entries.  */
8537
0
            unsigned char *toc_tls;
8538
0
            int retval;
8539
8540
0
            retval = get_tls_mask (&toc_tls, NULL, NULL,
8541
0
                 &locsyms,
8542
0
                 rel, ibfd);
8543
0
            if (retval == 0)
8544
0
        goto err_free_rel;
8545
0
            if (toc_tls != NULL)
8546
0
        {
8547
0
          if ((*toc_tls & TLS_TLS) != 0
8548
0
              && ((*toc_tls & (TLS_GD | TLS_LD)) != 0))
8549
0
            found_tls_get_addr_arg = 1;
8550
0
          if (retval > 1)
8551
0
            toc_ref[toc_ref_index] = 1;
8552
0
        }
8553
0
          }
8554
0
        continue;
8555
0
      }
8556
8557
          /* Uh oh, we didn't find the expected call.  We
8558
       could just mark this symbol to exclude it
8559
       from tls optimization but it's safer to skip
8560
       the entire optimization.  */
8561
          /* xgettext:c-format */
8562
0
          info->callbacks->minfo (_("%H arg lost __tls_get_addr, "
8563
0
            "TLS optimization disabled\n"),
8564
0
                ibfd, sec, rel->r_offset);
8565
0
          ret = true;
8566
0
          goto err_free_rel;
8567
0
        }
8568
8569
      /* If we don't have old-style __tls_get_addr calls
8570
         without TLSGD/TLSLD marker relocs, and we haven't
8571
         found a new-style __tls_get_addr call with a
8572
         marker for this symbol, then we either have a
8573
         broken object file or an -mlongcall style
8574
         indirect call to __tls_get_addr without a marker.
8575
         Disable optimization in this case.  */
8576
0
      if ((tls_clear & (TLS_GD | TLS_LD)) != 0
8577
0
          && (tls_set & TLS_EXPLICIT) == 0
8578
0
          && !sec->nomark_tls_get_addr
8579
0
          && ((*tls_mask & (TLS_TLS | TLS_MARK))
8580
0
        != (TLS_TLS | TLS_MARK)))
8581
0
        continue;
8582
8583
0
      if (expecting_tls_get_addr == 1 + !sec->nomark_tls_get_addr)
8584
0
        {
8585
0
          struct plt_entry *ent = NULL;
8586
8587
0
          if (htab->tls_get_addr_fd != NULL)
8588
0
      for (ent = htab->tls_get_addr_fd->elf.plt.plist;
8589
0
           ent != NULL;
8590
0
           ent = ent->next)
8591
0
        if (ent->addend == 0)
8592
0
          break;
8593
8594
0
          if (ent == NULL && htab->tga_desc_fd != NULL)
8595
0
      for (ent = htab->tga_desc_fd->elf.plt.plist;
8596
0
           ent != NULL;
8597
0
           ent = ent->next)
8598
0
        if (ent->addend == 0)
8599
0
          break;
8600
8601
0
          if (ent == NULL && htab->tls_get_addr != NULL)
8602
0
      for (ent = htab->tls_get_addr->elf.plt.plist;
8603
0
           ent != NULL;
8604
0
           ent = ent->next)
8605
0
        if (ent->addend == 0)
8606
0
          break;
8607
8608
0
          if (ent == NULL && htab->tga_desc != NULL)
8609
0
      for (ent = htab->tga_desc->elf.plt.plist;
8610
0
           ent != NULL;
8611
0
           ent = ent->next)
8612
0
        if (ent->addend == 0)
8613
0
          break;
8614
8615
0
          if (ent != NULL
8616
0
        && ent->plt.refcount > 0)
8617
0
      ent->plt.refcount -= 1;
8618
0
        }
8619
8620
0
      if (tls_clear == 0)
8621
0
        continue;
8622
8623
0
      if ((tls_set & TLS_EXPLICIT) == 0)
8624
0
        {
8625
0
          struct got_entry *ent;
8626
8627
          /* Adjust got entry for this reloc.  */
8628
0
          if (h != NULL)
8629
0
      ent = h->got.glist;
8630
0
          else
8631
0
      ent = elf_local_got_ents (ibfd)[r_symndx];
8632
8633
0
          for (; ent != NULL; ent = ent->next)
8634
0
      if (ent->addend == rel->r_addend
8635
0
          && ent->owner == ibfd
8636
0
          && ent->tls_type == tls_type)
8637
0
        break;
8638
0
          if (ent == NULL)
8639
0
      abort ();
8640
8641
0
          if (tls_set == 0)
8642
0
      {
8643
        /* We managed to get rid of a got entry.  */
8644
0
        if (ent->got.refcount > 0)
8645
0
          ent->got.refcount -= 1;
8646
0
      }
8647
0
        }
8648
0
      else
8649
0
        {
8650
          /* If we got rid of a DTPMOD/DTPREL reloc pair then
8651
       we'll lose one or two dyn relocs.  */
8652
0
          if (!dec_dynrel_count (rel, sec, info,
8653
0
               NULL, h, sym))
8654
0
      return false;
8655
8656
0
          if (tls_set == (TLS_EXPLICIT | TLS_GD))
8657
0
      {
8658
0
        if (!dec_dynrel_count (rel + 1, sec, info,
8659
0
             NULL, h, sym))
8660
0
          return false;
8661
0
      }
8662
0
        }
8663
8664
0
      *tls_mask |= tls_set & 0xff;
8665
0
      *tls_mask &= ~tls_clear;
8666
0
    }
8667
8668
0
        if (elf_section_data (sec)->relocs != relstart)
8669
0
    free (relstart);
8670
0
      }
8671
8672
0
  if (locsyms != NULL
8673
0
      && (elf_symtab_hdr (ibfd).contents != (unsigned char *) locsyms))
8674
0
    {
8675
0
      if (!info->keep_memory)
8676
0
        free (locsyms);
8677
0
      else
8678
0
        elf_symtab_hdr (ibfd).contents = (unsigned char *) locsyms;
8679
0
    }
8680
0
      }
8681
8682
0
  free (toc_ref);
8683
0
  return true;
8684
0
}
8685
8686
/* Called via elf_link_hash_traverse from ppc64_elf_edit_toc to adjust
8687
   the values of any global symbols in a toc section that has been
8688
   edited.  Globals in toc sections should be a rarity, so this function
8689
   sets a flag if any are found in toc sections other than the one just
8690
   edited, so that further hash table traversals can be avoided.  */
8691
8692
struct adjust_toc_info
8693
{
8694
  asection *toc;
8695
  unsigned long *skip;
8696
  bool global_toc_syms;
8697
};
8698
8699
enum toc_skip_enum { ref_from_discarded = 1, can_optimize = 2 };
8700
8701
static bool
8702
adjust_toc_syms (struct elf_link_hash_entry *h, void *inf)
8703
0
{
8704
0
  struct ppc_link_hash_entry *eh;
8705
0
  struct adjust_toc_info *toc_inf = (struct adjust_toc_info *) inf;
8706
0
  unsigned long i;
8707
8708
0
  if (h->root.type != bfd_link_hash_defined
8709
0
      && h->root.type != bfd_link_hash_defweak)
8710
0
    return true;
8711
8712
0
  eh = ppc_elf_hash_entry (h);
8713
0
  if (eh->adjust_done)
8714
0
    return true;
8715
8716
0
  if (eh->elf.root.u.def.section == toc_inf->toc)
8717
0
    {
8718
0
      if (eh->elf.root.u.def.value > toc_inf->toc->rawsize)
8719
0
  i = toc_inf->toc->rawsize >> 3;
8720
0
      else
8721
0
  i = eh->elf.root.u.def.value >> 3;
8722
8723
0
      if ((toc_inf->skip[i] & (ref_from_discarded | can_optimize)) != 0)
8724
0
  {
8725
0
    _bfd_error_handler
8726
0
      (_("%s defined on removed toc entry"), eh->elf.root.root.string);
8727
0
    do
8728
0
      ++i;
8729
0
    while ((toc_inf->skip[i] & (ref_from_discarded | can_optimize)) != 0);
8730
0
    eh->elf.root.u.def.value = (bfd_vma) i << 3;
8731
0
  }
8732
8733
0
      eh->elf.root.u.def.value -= toc_inf->skip[i];
8734
0
      eh->adjust_done = 1;
8735
0
    }
8736
0
  else if (strcmp (eh->elf.root.u.def.section->name, ".toc") == 0)
8737
0
    toc_inf->global_toc_syms = true;
8738
8739
0
  return true;
8740
0
}
8741
8742
/* Return TRUE iff INSN with a relocation of R_TYPE is one we expect
8743
   on a _LO variety toc/got reloc.  */
8744
8745
static bool
8746
ok_lo_toc_insn (unsigned int insn, enum elf_ppc64_reloc_type r_type)
8747
0
{
8748
0
  return ((insn & (0x3fu << 26)) == 12u << 26 /* addic */
8749
0
    || (insn & (0x3fu << 26)) == 14u << 26 /* addi */
8750
0
    || (insn & (0x3fu << 26)) == 32u << 26 /* lwz */
8751
0
    || (insn & (0x3fu << 26)) == 34u << 26 /* lbz */
8752
0
    || (insn & (0x3fu << 26)) == 36u << 26 /* stw */
8753
0
    || (insn & (0x3fu << 26)) == 38u << 26 /* stb */
8754
0
    || (insn & (0x3fu << 26)) == 40u << 26 /* lhz */
8755
0
    || (insn & (0x3fu << 26)) == 42u << 26 /* lha */
8756
0
    || (insn & (0x3fu << 26)) == 44u << 26 /* sth */
8757
0
    || (insn & (0x3fu << 26)) == 46u << 26 /* lmw */
8758
0
    || (insn & (0x3fu << 26)) == 47u << 26 /* stmw */
8759
0
    || (insn & (0x3fu << 26)) == 48u << 26 /* lfs */
8760
0
    || (insn & (0x3fu << 26)) == 50u << 26 /* lfd */
8761
0
    || (insn & (0x3fu << 26)) == 52u << 26 /* stfs */
8762
0
    || (insn & (0x3fu << 26)) == 54u << 26 /* stfd */
8763
0
    || (insn & (0x3fu << 26)) == 56u << 26 /* lq,lfq */
8764
0
    || ((insn & (0x3fu << 26)) == 57u << 26 /* lxsd,lxssp,lfdp */
8765
        /* Exclude lfqu by testing reloc.  If relocs are ever
8766
     defined for the reduced D field in psq_lu then those
8767
     will need testing too.  */
8768
0
        && r_type != R_PPC64_TOC16_LO && r_type != R_PPC64_GOT16_LO)
8769
0
    || ((insn & (0x3fu << 26)) == 58u << 26 /* ld,lwa */
8770
0
        && (insn & 1) == 0)
8771
0
    || (insn & (0x3fu << 26)) == 60u << 26 /* stfq */
8772
0
    || ((insn & (0x3fu << 26)) == 61u << 26 /* lxv,stx{v,sd,ssp},stfdp */
8773
        /* Exclude stfqu.  psq_stu as above for psq_lu.  */
8774
0
        && r_type != R_PPC64_TOC16_LO && r_type != R_PPC64_GOT16_LO)
8775
0
    || ((insn & (0x3fu << 26)) == 62u << 26 /* std,stq */
8776
0
        && (insn & 1) == 0));
8777
0
}
8778
8779
/* PCREL_OPT in one instance flags to the linker that a pair of insns:
8780
     pld ra,symbol@got@pcrel
8781
     load/store rt,off(ra)
8782
   or
8783
     pla ra,symbol@pcrel
8784
     load/store rt,off(ra)
8785
   may be translated to
8786
     pload/pstore rt,symbol+off@pcrel
8787
     nop.
8788
   This function returns true if the optimization is possible, placing
8789
   the prefix insn in *PINSN1, a NOP in *PINSN2 and the offset in *POFF.
8790
8791
   On entry to this function, the linker has already determined that
8792
   the pld can be replaced with pla: *PINSN1 is that pla insn,
8793
   while *PINSN2 is the second instruction.  */
8794
8795
static bool
8796
xlate_pcrel_opt (uint64_t *pinsn1, uint64_t *pinsn2, bfd_signed_vma *poff)
8797
0
{
8798
0
  uint64_t insn1 = *pinsn1;
8799
0
  uint64_t insn2 = *pinsn2;
8800
0
  bfd_signed_vma off;
8801
8802
0
  if ((insn2 & (63ULL << 58)) == 1ULL << 58)
8803
0
    {
8804
      /* Check that regs match.  */
8805
0
      if (((insn2 >> 16) & 31) != ((insn1 >> 21) & 31))
8806
0
  return false;
8807
8808
      /* P8LS or PMLS form, non-pcrel.  */
8809
0
      if ((insn2 & (-1ULL << 50) & ~(1ULL << 56)) != (1ULL << 58))
8810
0
  return false;
8811
8812
0
      *pinsn1 = (insn2 & ~(31 << 16) & ~0x3ffff0000ffffULL) | (1ULL << 52);
8813
0
      *pinsn2 = PNOP;
8814
0
      off = ((insn2 >> 16) & 0x3ffff0000ULL) | (insn2 & 0xffff);
8815
0
      *poff = (off ^ 0x200000000ULL) - 0x200000000ULL;
8816
0
      return true;
8817
0
    }
8818
8819
0
  insn2 >>= 32;
8820
8821
  /* Check that regs match.  */
8822
0
  if (((insn2 >> 16) & 31) != ((insn1 >> 21) & 31))
8823
0
    return false;
8824
8825
0
  switch ((insn2 >> 26) & 63)
8826
0
    {
8827
0
    default:
8828
0
      return false;
8829
8830
0
    case 32: /* lwz */
8831
0
    case 34: /* lbz */
8832
0
    case 36: /* stw */
8833
0
    case 38: /* stb */
8834
0
    case 40: /* lhz */
8835
0
    case 42: /* lha */
8836
0
    case 44: /* sth */
8837
0
    case 48: /* lfs */
8838
0
    case 50: /* lfd */
8839
0
    case 52: /* stfs */
8840
0
    case 54: /* stfd */
8841
      /* These are the PMLS cases, where we just need to tack a prefix
8842
   on the insn.  */
8843
0
      insn1 = ((1ULL << 58) | (2ULL << 56) | (1ULL << 52)
8844
0
         | (insn2 & ((63ULL << 26) | (31ULL << 21))));
8845
0
      off = insn2 & 0xffff;
8846
0
      break;
8847
8848
0
    case 58: /* lwa, ld */
8849
0
      if ((insn2 & 1) != 0)
8850
0
  return false;
8851
0
      insn1 = ((1ULL << 58) | (1ULL << 52)
8852
0
         | (insn2 & 2 ? 41ULL << 26 : 57ULL << 26)
8853
0
         | (insn2 & (31ULL << 21)));
8854
0
      off = insn2 & 0xfffc;
8855
0
      break;
8856
8857
0
    case 57: /* lxsd, lxssp */
8858
0
      if ((insn2 & 3) < 2)
8859
0
  return false;
8860
0
      insn1 = ((1ULL << 58) | (1ULL << 52)
8861
0
         | ((40ULL | (insn2 & 3)) << 26)
8862
0
         | (insn2 & (31ULL << 21)));
8863
0
      off = insn2 & 0xfffc;
8864
0
      break;
8865
8866
0
    case 61: /* stxsd, stxssp, lxv, stxv  */
8867
0
      if ((insn2 & 3) == 0)
8868
0
  return false;
8869
0
      else if ((insn2 & 3) >= 2)
8870
0
  {
8871
0
    insn1 = ((1ULL << 58) | (1ULL << 52)
8872
0
       | ((44ULL | (insn2 & 3)) << 26)
8873
0
       | (insn2 & (31ULL << 21)));
8874
0
    off = insn2 & 0xfffc;
8875
0
  }
8876
0
      else
8877
0
  {
8878
0
    insn1 = ((1ULL << 58) | (1ULL << 52)
8879
0
       | ((50ULL | (insn2 & 4) | ((insn2 & 8) >> 3)) << 26)
8880
0
       | (insn2 & (31ULL << 21)));
8881
0
    off = insn2 & 0xfff0;
8882
0
  }
8883
0
      break;
8884
8885
0
    case 56: /* lq */
8886
0
      insn1 = ((1ULL << 58) | (1ULL << 52)
8887
0
         | (insn2 & ((63ULL << 26) | (31ULL << 21))));
8888
0
      off = insn2 & 0xffff;
8889
0
      break;
8890
8891
0
    case 6: /* lxvp, stxvp */
8892
0
      if ((insn2 & 0xe) != 0)
8893
0
  return false;
8894
0
      insn1 = ((1ULL << 58) | (1ULL << 52)
8895
0
         | ((insn2 & 1) == 0 ? 58ULL << 26 : 62ULL << 26)
8896
0
         | (insn2 & (31ULL << 21)));
8897
0
      off = insn2 & 0xfff0;
8898
0
      break;
8899
8900
0
    case 62: /* std, stq */
8901
0
      if ((insn2 & 1) != 0)
8902
0
  return false;
8903
0
      insn1 = ((1ULL << 58) | (1ULL << 52)
8904
0
         | ((insn2 & 2) == 0 ? 61ULL << 26 : 60ULL << 26)
8905
0
         | (insn2 & (31ULL << 21)));
8906
0
      off = insn2 & 0xfffc;
8907
0
      break;
8908
0
    }
8909
8910
0
  *pinsn1 = insn1;
8911
0
  *pinsn2 = (uint64_t) NOP << 32;
8912
0
  *poff = (off ^ 0x8000) - 0x8000;
8913
0
  return true;
8914
0
}
8915
8916
/* Examine all relocs referencing .toc sections in order to remove
8917
   unused .toc entries.  */
8918
8919
bool
8920
ppc64_elf_edit_toc (struct bfd_link_info *info)
8921
0
{
8922
0
  bfd *ibfd;
8923
0
  struct adjust_toc_info toc_inf;
8924
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
8925
8926
0
  htab->do_toc_opt = 1;
8927
0
  toc_inf.global_toc_syms = true;
8928
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
8929
0
    {
8930
0
      asection *toc, *sec;
8931
0
      Elf_Internal_Shdr *symtab_hdr;
8932
0
      Elf_Internal_Sym *local_syms;
8933
0
      Elf_Internal_Rela *relstart, *rel, *toc_relocs;
8934
0
      unsigned long *skip, *drop;
8935
0
      unsigned char *used;
8936
0
      unsigned char *keep, last, some_unused;
8937
8938
0
      if (!is_ppc64_elf (ibfd))
8939
0
  continue;
8940
8941
0
      toc = bfd_get_section_by_name (ibfd, ".toc");
8942
0
      if (toc == NULL
8943
0
    || toc->size == 0
8944
0
    || (toc->flags & SEC_HAS_CONTENTS) == 0
8945
0
    || toc->sec_info_type == SEC_INFO_TYPE_JUST_SYMS
8946
0
    || discarded_section (toc))
8947
0
  continue;
8948
8949
0
      toc_relocs = NULL;
8950
0
      local_syms = NULL;
8951
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
8952
8953
      /* Look at sections dropped from the final link.  */
8954
0
      skip = NULL;
8955
0
      relstart = NULL;
8956
0
      for (sec = ibfd->sections; sec != NULL; sec = sec->next)
8957
0
  {
8958
0
    if (sec->reloc_count == 0
8959
0
        || !discarded_section (sec)
8960
0
        || get_opd_info (sec)
8961
0
        || (sec->flags & SEC_ALLOC) == 0
8962
0
        || (sec->flags & SEC_DEBUGGING) != 0)
8963
0
      continue;
8964
8965
0
    relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL, false);
8966
0
    if (relstart == NULL)
8967
0
      goto error_ret;
8968
8969
    /* Run through the relocs to see which toc entries might be
8970
       unused.  */
8971
0
    for (rel = relstart; rel < relstart + sec->reloc_count; ++rel)
8972
0
      {
8973
0
        enum elf_ppc64_reloc_type r_type;
8974
0
        unsigned long r_symndx;
8975
0
        asection *sym_sec;
8976
0
        struct elf_link_hash_entry *h;
8977
0
        Elf_Internal_Sym *sym;
8978
0
        bfd_vma val;
8979
8980
0
        r_type = ELF64_R_TYPE (rel->r_info);
8981
0
        switch (r_type)
8982
0
    {
8983
0
    default:
8984
0
      continue;
8985
8986
0
    case R_PPC64_TOC16:
8987
0
    case R_PPC64_TOC16_LO:
8988
0
    case R_PPC64_TOC16_HI:
8989
0
    case R_PPC64_TOC16_HA:
8990
0
    case R_PPC64_TOC16_DS:
8991
0
    case R_PPC64_TOC16_LO_DS:
8992
0
      break;
8993
0
    }
8994
8995
0
        r_symndx = ELF64_R_SYM (rel->r_info);
8996
0
        if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
8997
0
            r_symndx, ibfd))
8998
0
    goto error_ret;
8999
9000
0
        if (sym_sec != toc)
9001
0
    continue;
9002
9003
0
        if (h != NULL)
9004
0
    val = h->root.u.def.value;
9005
0
        else
9006
0
    val = sym->st_value;
9007
0
        val += rel->r_addend;
9008
9009
0
        if (val >= toc->size)
9010
0
    continue;
9011
9012
        /* Anything in the toc ought to be aligned to 8 bytes.
9013
     If not, don't mark as unused.  */
9014
0
        if (val & 7)
9015
0
    continue;
9016
9017
0
        if (skip == NULL)
9018
0
    {
9019
0
      skip = bfd_zmalloc (sizeof (*skip) * (toc->size + 15) / 8);
9020
0
      if (skip == NULL)
9021
0
        goto error_ret;
9022
0
    }
9023
9024
0
        skip[val >> 3] = ref_from_discarded;
9025
0
      }
9026
9027
0
    if (elf_section_data (sec)->relocs != relstart)
9028
0
      free (relstart);
9029
0
  }
9030
9031
      /* For largetoc loads of address constants, we can convert
9032
   .  addis rx,2,addr@got@ha
9033
   .  ld ry,addr@got@l(rx)
9034
   to
9035
   .  addis rx,2,addr@toc@ha
9036
   .  addi ry,rx,addr@toc@l
9037
   when addr is within 2G of the toc pointer.  This then means
9038
   that the word storing "addr" in the toc is no longer needed.  */
9039
9040
0
      if (!ppc64_elf_tdata (ibfd)->has_small_toc_reloc
9041
0
    && toc->output_section->rawsize < (bfd_vma) 1 << 31
9042
0
    && toc->reloc_count != 0)
9043
0
  {
9044
    /* Read toc relocs.  */
9045
0
    toc_relocs = _bfd_elf_link_read_relocs (ibfd, toc, NULL, NULL,
9046
0
              info->keep_memory);
9047
0
    if (toc_relocs == NULL)
9048
0
      goto error_ret;
9049
9050
0
    for (rel = toc_relocs; rel < toc_relocs + toc->reloc_count; ++rel)
9051
0
      {
9052
0
        enum elf_ppc64_reloc_type r_type;
9053
0
        unsigned long r_symndx;
9054
0
        asection *sym_sec;
9055
0
        struct elf_link_hash_entry *h;
9056
0
        Elf_Internal_Sym *sym;
9057
0
        bfd_vma val, addr;
9058
9059
0
        r_type = ELF64_R_TYPE (rel->r_info);
9060
0
        if (r_type != R_PPC64_ADDR64)
9061
0
    continue;
9062
9063
0
        r_symndx = ELF64_R_SYM (rel->r_info);
9064
0
        if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
9065
0
            r_symndx, ibfd))
9066
0
    goto error_ret;
9067
9068
0
        if (sym_sec == NULL
9069
0
      || sym_sec->output_section == NULL
9070
0
      || discarded_section (sym_sec))
9071
0
    continue;
9072
9073
0
        if (!SYMBOL_REFERENCES_LOCAL (info, h)
9074
0
      || (bfd_link_pic (info)
9075
0
          && sym_sec == bfd_abs_section_ptr))
9076
0
    continue;
9077
9078
0
        if (h != NULL)
9079
0
    {
9080
0
      if (h->type == STT_GNU_IFUNC)
9081
0
        continue;
9082
0
      val = h->root.u.def.value;
9083
0
    }
9084
0
        else
9085
0
    {
9086
0
      if (ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
9087
0
        continue;
9088
0
      val = sym->st_value;
9089
0
    }
9090
0
        val += rel->r_addend;
9091
0
        val += sym_sec->output_section->vma + sym_sec->output_offset;
9092
9093
        /* We don't yet know the exact toc pointer value, but we
9094
     know it will be somewhere in the toc section.  Don't
9095
     optimize if the difference from any possible toc
9096
     pointer is outside [ff..f80008000, 7fff7fff].  */
9097
0
        addr = toc->output_section->vma + TOC_BASE_OFF;
9098
0
        if (val - addr + (bfd_vma) 0x80008000 >= (bfd_vma) 1 << 32)
9099
0
    continue;
9100
9101
0
        addr = toc->output_section->vma + toc->output_section->rawsize;
9102
0
        if (val - addr + (bfd_vma) 0x80008000 >= (bfd_vma) 1 << 32)
9103
0
    continue;
9104
9105
0
        if (skip == NULL)
9106
0
    {
9107
0
      skip = bfd_zmalloc (sizeof (*skip) * (toc->size + 15) / 8);
9108
0
      if (skip == NULL)
9109
0
        goto error_ret;
9110
0
    }
9111
9112
0
        skip[rel->r_offset >> 3]
9113
0
    |= can_optimize | ((rel - toc_relocs) << 2);
9114
0
      }
9115
0
  }
9116
9117
0
      if (skip == NULL)
9118
0
  continue;
9119
9120
0
      used = bfd_zmalloc (sizeof (*used) * (toc->size + 7) / 8);
9121
0
      if (used == NULL)
9122
0
  {
9123
0
  error_ret:
9124
0
    if (symtab_hdr->contents != (unsigned char *) local_syms)
9125
0
      free (local_syms);
9126
0
    if (sec != NULL
9127
0
        && elf_section_data (sec)->relocs != relstart)
9128
0
      free (relstart);
9129
0
    if (elf_section_data (toc)->relocs != toc_relocs)
9130
0
      free (toc_relocs);
9131
0
    free (skip);
9132
0
    return false;
9133
0
  }
9134
9135
      /* Now check all kept sections that might reference the toc.
9136
   Check the toc itself last.  */
9137
0
      for (sec = (ibfd->sections == toc && toc->next ? toc->next
9138
0
      : ibfd->sections);
9139
0
     sec != NULL;
9140
0
     sec = (sec == toc ? NULL
9141
0
      : sec->next == NULL ? toc
9142
0
      : sec->next == toc && toc->next ? toc->next
9143
0
      : sec->next))
9144
0
  {
9145
0
    int repeat;
9146
9147
0
    if (sec->reloc_count == 0
9148
0
        || discarded_section (sec)
9149
0
        || get_opd_info (sec)
9150
0
        || (sec->flags & SEC_ALLOC) == 0
9151
0
        || (sec->flags & SEC_DEBUGGING) != 0)
9152
0
      continue;
9153
9154
0
    relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
9155
0
            info->keep_memory);
9156
0
    if (relstart == NULL)
9157
0
      {
9158
0
        free (used);
9159
0
        goto error_ret;
9160
0
      }
9161
9162
    /* Mark toc entries referenced as used.  */
9163
0
    do
9164
0
      {
9165
0
        repeat = 0;
9166
0
        for (rel = relstart; rel < relstart + sec->reloc_count; ++rel)
9167
0
    {
9168
0
      enum elf_ppc64_reloc_type r_type;
9169
0
      unsigned long r_symndx;
9170
0
      asection *sym_sec;
9171
0
      struct elf_link_hash_entry *h;
9172
0
      Elf_Internal_Sym *sym;
9173
0
      bfd_vma val;
9174
9175
0
      r_type = ELF64_R_TYPE (rel->r_info);
9176
0
      switch (r_type)
9177
0
        {
9178
0
        case R_PPC64_TOC16:
9179
0
        case R_PPC64_TOC16_LO:
9180
0
        case R_PPC64_TOC16_HI:
9181
0
        case R_PPC64_TOC16_HA:
9182
0
        case R_PPC64_TOC16_DS:
9183
0
        case R_PPC64_TOC16_LO_DS:
9184
          /* In case we're taking addresses of toc entries.  */
9185
0
        case R_PPC64_ADDR64:
9186
0
          break;
9187
9188
0
        default:
9189
0
          continue;
9190
0
        }
9191
9192
0
      r_symndx = ELF64_R_SYM (rel->r_info);
9193
0
      if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
9194
0
          r_symndx, ibfd))
9195
0
        {
9196
0
          free (used);
9197
0
          goto error_ret;
9198
0
        }
9199
9200
0
      if (sym_sec != toc)
9201
0
        continue;
9202
9203
0
      if (h != NULL)
9204
0
        val = h->root.u.def.value;
9205
0
      else
9206
0
        val = sym->st_value;
9207
0
      val += rel->r_addend;
9208
9209
0
      if (val >= toc->size)
9210
0
        continue;
9211
9212
0
      if ((skip[val >> 3] & can_optimize) != 0)
9213
0
        {
9214
0
          bfd_vma off;
9215
0
          unsigned char opc;
9216
9217
0
          switch (r_type)
9218
0
      {
9219
0
      case R_PPC64_TOC16_HA:
9220
0
        break;
9221
9222
0
      case R_PPC64_TOC16_LO_DS:
9223
0
        off = rel->r_offset;
9224
0
        off += (bfd_big_endian (ibfd) ? -2 : 3);
9225
0
        if (!bfd_get_section_contents (ibfd, sec, &opc,
9226
0
               off, 1))
9227
0
          {
9228
0
            free (used);
9229
0
            goto error_ret;
9230
0
          }
9231
0
        if ((opc & (0x3f << 2)) == (58u << 2))
9232
0
          break;
9233
        /* Fall through.  */
9234
9235
0
      default:
9236
        /* Wrong sort of reloc, or not a ld.  We may
9237
           as well clear ref_from_discarded too.  */
9238
0
        skip[val >> 3] = 0;
9239
0
      }
9240
0
        }
9241
9242
0
      if (sec != toc)
9243
0
        used[val >> 3] = 1;
9244
      /* For the toc section, we only mark as used if this
9245
         entry itself isn't unused.  */
9246
0
      else if ((used[rel->r_offset >> 3]
9247
0
          || !(skip[rel->r_offset >> 3] & ref_from_discarded))
9248
0
         && !used[val >> 3])
9249
0
        {
9250
          /* Do all the relocs again, to catch reference
9251
       chains.  */
9252
0
          repeat = 1;
9253
0
          used[val >> 3] = 1;
9254
0
        }
9255
0
    }
9256
0
      }
9257
0
    while (repeat);
9258
9259
0
    if (elf_section_data (sec)->relocs != relstart)
9260
0
      free (relstart);
9261
0
  }
9262
9263
      /* Merge the used and skip arrays.  Assume that TOC
9264
   doublewords not appearing as either used or unused belong
9265
   to an entry more than one doubleword in size.  */
9266
0
      for (drop = skip, keep = used, last = 0, some_unused = 0;
9267
0
     drop < skip + (toc->size + 7) / 8;
9268
0
     ++drop, ++keep)
9269
0
  {
9270
0
    if (*keep)
9271
0
      {
9272
0
        *drop &= ~ref_from_discarded;
9273
0
        if ((*drop & can_optimize) != 0)
9274
0
    some_unused = 1;
9275
0
        last = 0;
9276
0
      }
9277
0
    else if ((*drop & ref_from_discarded) != 0)
9278
0
      {
9279
0
        some_unused = 1;
9280
0
        last = ref_from_discarded;
9281
0
      }
9282
0
    else
9283
0
      *drop = last;
9284
0
  }
9285
9286
0
      free (used);
9287
9288
0
      if (some_unused)
9289
0
  {
9290
0
    bfd_byte *contents, *src;
9291
0
    unsigned long off;
9292
0
    Elf_Internal_Sym *sym;
9293
0
    bool local_toc_syms = false;
9294
9295
    /* Shuffle the toc contents, and at the same time convert the
9296
       skip array from booleans into offsets.  */
9297
0
    if (!bfd_malloc_and_get_section (ibfd, toc, &contents))
9298
0
      goto error_ret;
9299
9300
0
    elf_section_data (toc)->this_hdr.contents = contents;
9301
9302
0
    for (src = contents, off = 0, drop = skip;
9303
0
         src < contents + toc->size;
9304
0
         src += 8, ++drop)
9305
0
      {
9306
0
        if ((*drop & (can_optimize | ref_from_discarded)) != 0)
9307
0
    off += 8;
9308
0
        else if (off != 0)
9309
0
    {
9310
0
      *drop = off;
9311
0
      memcpy (src - off, src, 8);
9312
0
    }
9313
0
      }
9314
0
    *drop = off;
9315
0
    toc->rawsize = toc->size;
9316
0
    toc->size = src - contents - off;
9317
9318
    /* Adjust addends for relocs against the toc section sym,
9319
       and optimize any accesses we can.  */
9320
0
    for (sec = ibfd->sections; sec != NULL; sec = sec->next)
9321
0
      {
9322
0
        if (sec->reloc_count == 0
9323
0
      || discarded_section (sec))
9324
0
    continue;
9325
9326
0
        relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
9327
0
                info->keep_memory);
9328
0
        if (relstart == NULL)
9329
0
    goto error_ret;
9330
9331
0
        for (rel = relstart; rel < relstart + sec->reloc_count; ++rel)
9332
0
    {
9333
0
      enum elf_ppc64_reloc_type r_type;
9334
0
      unsigned long r_symndx;
9335
0
      asection *sym_sec;
9336
0
      struct elf_link_hash_entry *h;
9337
0
      bfd_vma val;
9338
9339
0
      r_type = ELF64_R_TYPE (rel->r_info);
9340
0
      switch (r_type)
9341
0
        {
9342
0
        default:
9343
0
          continue;
9344
9345
0
        case R_PPC64_TOC16:
9346
0
        case R_PPC64_TOC16_LO:
9347
0
        case R_PPC64_TOC16_HI:
9348
0
        case R_PPC64_TOC16_HA:
9349
0
        case R_PPC64_TOC16_DS:
9350
0
        case R_PPC64_TOC16_LO_DS:
9351
0
        case R_PPC64_ADDR64:
9352
0
          break;
9353
0
        }
9354
9355
0
      r_symndx = ELF64_R_SYM (rel->r_info);
9356
0
      if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
9357
0
          r_symndx, ibfd))
9358
0
        goto error_ret;
9359
9360
0
      if (sym_sec != toc)
9361
0
        continue;
9362
9363
0
      if (h != NULL)
9364
0
        val = h->root.u.def.value;
9365
0
      else
9366
0
        {
9367
0
          val = sym->st_value;
9368
0
          if (val != 0)
9369
0
      local_toc_syms = true;
9370
0
        }
9371
9372
0
      val += rel->r_addend;
9373
9374
0
      if (val > toc->rawsize)
9375
0
        val = toc->rawsize;
9376
0
      else if ((skip[val >> 3] & ref_from_discarded) != 0)
9377
0
        continue;
9378
0
      else if ((skip[val >> 3] & can_optimize) != 0)
9379
0
        {
9380
0
          Elf_Internal_Rela *tocrel
9381
0
      = toc_relocs + (skip[val >> 3] >> 2);
9382
0
          unsigned long tsym = ELF64_R_SYM (tocrel->r_info);
9383
9384
0
          switch (r_type)
9385
0
      {
9386
0
      case R_PPC64_TOC16_HA:
9387
0
        rel->r_info = ELF64_R_INFO (tsym, R_PPC64_TOC16_HA);
9388
0
        break;
9389
9390
0
      case R_PPC64_TOC16_LO_DS:
9391
0
        rel->r_info = ELF64_R_INFO (tsym, R_PPC64_LO_DS_OPT);
9392
0
        break;
9393
9394
0
      default:
9395
0
        if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
9396
0
          ppc_howto_init ();
9397
0
        info->callbacks->einfo
9398
          /* xgettext:c-format */
9399
0
          (_("%H: %s references "
9400
0
             "optimized away TOC entry\n"),
9401
0
           ibfd, sec, rel->r_offset,
9402
0
           ppc64_elf_howto_table[r_type]->name);
9403
0
        bfd_set_error (bfd_error_bad_value);
9404
0
        goto error_ret;
9405
0
      }
9406
0
          rel->r_addend = tocrel->r_addend;
9407
0
          elf_section_data (sec)->relocs = relstart;
9408
0
          continue;
9409
0
        }
9410
9411
0
      if (h != NULL || sym->st_value != 0)
9412
0
        continue;
9413
9414
0
      rel->r_addend -= skip[val >> 3];
9415
0
      elf_section_data (sec)->relocs = relstart;
9416
0
    }
9417
9418
0
        if (elf_section_data (sec)->relocs != relstart)
9419
0
    free (relstart);
9420
0
      }
9421
9422
    /* We shouldn't have local or global symbols defined in the TOC,
9423
       but handle them anyway.  */
9424
0
    if (local_syms != NULL)
9425
0
      for (sym = local_syms;
9426
0
     sym < local_syms + symtab_hdr->sh_info;
9427
0
     ++sym)
9428
0
        if (sym->st_value != 0
9429
0
      && bfd_section_from_elf_index (ibfd, sym->st_shndx) == toc)
9430
0
    {
9431
0
      unsigned long i;
9432
9433
0
      if (sym->st_value > toc->rawsize)
9434
0
        i = toc->rawsize >> 3;
9435
0
      else
9436
0
        i = sym->st_value >> 3;
9437
9438
0
      if ((skip[i] & (ref_from_discarded | can_optimize)) != 0)
9439
0
        {
9440
0
          if (local_toc_syms)
9441
0
      _bfd_error_handler
9442
0
        (_("%s defined on removed toc entry"),
9443
0
         bfd_elf_sym_name (ibfd, symtab_hdr, sym, NULL));
9444
0
          do
9445
0
      ++i;
9446
0
          while ((skip[i] & (ref_from_discarded | can_optimize)));
9447
0
          sym->st_value = (bfd_vma) i << 3;
9448
0
        }
9449
9450
0
      sym->st_value -= skip[i];
9451
0
      symtab_hdr->contents = (unsigned char *) local_syms;
9452
0
    }
9453
9454
    /* Adjust any global syms defined in this toc input section.  */
9455
0
    if (toc_inf.global_toc_syms)
9456
0
      {
9457
0
        toc_inf.toc = toc;
9458
0
        toc_inf.skip = skip;
9459
0
        toc_inf.global_toc_syms = false;
9460
0
        elf_link_hash_traverse (elf_hash_table (info), adjust_toc_syms,
9461
0
              &toc_inf);
9462
0
      }
9463
9464
0
    if (toc->reloc_count != 0)
9465
0
      {
9466
0
        Elf_Internal_Shdr *rel_hdr;
9467
0
        Elf_Internal_Rela *wrel;
9468
0
        bfd_size_type sz;
9469
9470
        /* Remove unused toc relocs, and adjust those we keep.  */
9471
0
        if (toc_relocs == NULL)
9472
0
    toc_relocs = _bfd_elf_link_read_relocs (ibfd, toc, NULL, NULL,
9473
0
              info->keep_memory);
9474
0
        if (toc_relocs == NULL)
9475
0
    goto error_ret;
9476
9477
0
        wrel = toc_relocs;
9478
0
        for (rel = toc_relocs; rel < toc_relocs + toc->reloc_count; ++rel)
9479
0
    if ((skip[rel->r_offset >> 3]
9480
0
         & (ref_from_discarded | can_optimize)) == 0)
9481
0
      {
9482
0
        wrel->r_offset = rel->r_offset - skip[rel->r_offset >> 3];
9483
0
        wrel->r_info = rel->r_info;
9484
0
        wrel->r_addend = rel->r_addend;
9485
0
        ++wrel;
9486
0
      }
9487
0
    else if (!dec_dynrel_count (rel, toc, info,
9488
0
              &local_syms, NULL, NULL))
9489
0
      goto error_ret;
9490
9491
0
        elf_section_data (toc)->relocs = toc_relocs;
9492
0
        toc->reloc_count = wrel - toc_relocs;
9493
0
        rel_hdr = _bfd_elf_single_rel_hdr (toc);
9494
0
        sz = rel_hdr->sh_entsize;
9495
0
        rel_hdr->sh_size = toc->reloc_count * sz;
9496
0
      }
9497
0
  }
9498
0
      else if (elf_section_data (toc)->relocs != toc_relocs)
9499
0
  free (toc_relocs);
9500
9501
0
      if (local_syms != NULL
9502
0
    && symtab_hdr->contents != (unsigned char *) local_syms)
9503
0
  {
9504
0
    if (!info->keep_memory)
9505
0
      free (local_syms);
9506
0
    else
9507
0
      symtab_hdr->contents = (unsigned char *) local_syms;
9508
0
  }
9509
0
      free (skip);
9510
0
    }
9511
9512
  /* Look for cases where we can change an indirect GOT access to
9513
     a GOT relative or PC relative access, possibly reducing the
9514
     number of GOT entries.  */
9515
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
9516
0
    {
9517
0
      asection *sec;
9518
0
      Elf_Internal_Shdr *symtab_hdr;
9519
0
      Elf_Internal_Sym *local_syms;
9520
0
      Elf_Internal_Rela *relstart, *rel;
9521
0
      bfd_vma got;
9522
9523
0
      if (!is_ppc64_elf (ibfd))
9524
0
  continue;
9525
9526
0
      if (!ppc64_elf_tdata (ibfd)->has_optrel)
9527
0
  continue;
9528
9529
0
      sec = ppc64_elf_tdata (ibfd)->got;
9530
0
      got = 0;
9531
0
      if (sec != NULL)
9532
0
  got = sec->output_section->vma + sec->output_offset + 0x8000;
9533
9534
0
      local_syms = NULL;
9535
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
9536
9537
0
      for (sec = ibfd->sections; sec != NULL; sec = sec->next)
9538
0
  {
9539
0
    if (sec->reloc_count == 0
9540
0
        || !ppc64_elf_section_data (sec)->has_optrel
9541
0
        || discarded_section (sec))
9542
0
      continue;
9543
9544
0
    relstart = _bfd_elf_link_read_relocs (ibfd, sec, NULL, NULL,
9545
0
            info->keep_memory);
9546
0
    if (relstart == NULL)
9547
0
      {
9548
0
      got_error_ret:
9549
0
        if (symtab_hdr->contents != (unsigned char *) local_syms)
9550
0
    free (local_syms);
9551
0
        if (sec != NULL
9552
0
      && elf_section_data (sec)->relocs != relstart)
9553
0
    free (relstart);
9554
0
        return false;
9555
0
      }
9556
9557
0
    for (rel = relstart; rel < relstart + sec->reloc_count; ++rel)
9558
0
      {
9559
0
        enum elf_ppc64_reloc_type r_type;
9560
0
        unsigned long r_symndx;
9561
0
        Elf_Internal_Sym *sym;
9562
0
        asection *sym_sec;
9563
0
        struct elf_link_hash_entry *h;
9564
0
        struct got_entry *ent;
9565
0
        bfd_vma val, pc;
9566
0
        unsigned char buf[8];
9567
0
        unsigned int insn;
9568
0
        enum {no_check, check_lo, check_ha} insn_check;
9569
9570
0
        r_type = ELF64_R_TYPE (rel->r_info);
9571
0
        switch (r_type)
9572
0
    {
9573
0
    default:
9574
0
      insn_check = no_check;
9575
0
      break;
9576
9577
0
    case R_PPC64_PLT16_HA:
9578
0
    case R_PPC64_GOT_TLSLD16_HA:
9579
0
    case R_PPC64_GOT_TLSGD16_HA:
9580
0
    case R_PPC64_GOT_TPREL16_HA:
9581
0
    case R_PPC64_GOT_DTPREL16_HA:
9582
0
    case R_PPC64_GOT16_HA:
9583
0
    case R_PPC64_TOC16_HA:
9584
0
      insn_check = check_ha;
9585
0
      break;
9586
9587
0
    case R_PPC64_PLT16_LO:
9588
0
    case R_PPC64_PLT16_LO_DS:
9589
0
    case R_PPC64_GOT_TLSLD16_LO:
9590
0
    case R_PPC64_GOT_TLSGD16_LO:
9591
0
    case R_PPC64_GOT_TPREL16_LO_DS:
9592
0
    case R_PPC64_GOT_DTPREL16_LO_DS:
9593
0
    case R_PPC64_GOT16_LO:
9594
0
    case R_PPC64_GOT16_LO_DS:
9595
0
    case R_PPC64_TOC16_LO:
9596
0
    case R_PPC64_TOC16_LO_DS:
9597
0
      insn_check = check_lo;
9598
0
      break;
9599
0
    }
9600
9601
0
        if (insn_check != no_check)
9602
0
    {
9603
0
      bfd_vma off = rel->r_offset & ~3;
9604
9605
0
      if (!bfd_get_section_contents (ibfd, sec, buf, off, 4))
9606
0
        goto got_error_ret;
9607
9608
0
      insn = bfd_get_32 (ibfd, buf);
9609
0
      if (insn_check == check_lo
9610
0
          ? !ok_lo_toc_insn (insn, r_type)
9611
0
          : ((insn & ((0x3fu << 26) | 0x1f << 16))
9612
0
       != ((15u << 26) | (2 << 16)) /* addis rt,2,imm */))
9613
0
        {
9614
0
          char str[12];
9615
9616
0
          ppc64_elf_tdata (ibfd)->unexpected_toc_insn = 1;
9617
0
          sprintf (str, "%#08x", insn);
9618
0
          info->callbacks->einfo
9619
      /* xgettext:c-format */
9620
0
      (_("%H: got/toc optimization is not supported for"
9621
0
         " %s instruction\n"),
9622
0
       ibfd, sec, rel->r_offset & ~3, str);
9623
0
          continue;
9624
0
        }
9625
0
    }
9626
9627
0
        switch (r_type)
9628
0
    {
9629
    /* Note that we don't delete GOT entries for
9630
       R_PPC64_GOT16_DS since we'd need a lot more
9631
       analysis.  For starters, the preliminary layout is
9632
       before the GOT, PLT, dynamic sections and stubs are
9633
       laid out.  Then we'd need to allow for changes in
9634
       distance between sections caused by alignment.  */
9635
0
    default:
9636
0
      continue;
9637
9638
0
    case R_PPC64_GOT16_HA:
9639
0
    case R_PPC64_GOT16_LO_DS:
9640
0
    case R_PPC64_GOT_PCREL34:
9641
0
      break;
9642
0
    }
9643
9644
0
        r_symndx = ELF64_R_SYM (rel->r_info);
9645
0
        if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
9646
0
            r_symndx, ibfd))
9647
0
    goto got_error_ret;
9648
9649
0
        if (sym_sec == NULL
9650
0
      || sym_sec->output_section == NULL
9651
0
      || discarded_section (sym_sec))
9652
0
    continue;
9653
9654
0
        if ((h ? h->type : ELF_ST_TYPE (sym->st_info)) == STT_GNU_IFUNC)
9655
0
    continue;
9656
9657
0
        if (!SYMBOL_REFERENCES_LOCAL (info, h)
9658
0
      || (bfd_link_pic (info)
9659
0
          && sym_sec == bfd_abs_section_ptr))
9660
0
    continue;
9661
9662
0
        if (h != NULL)
9663
0
    val = h->root.u.def.value;
9664
0
        else
9665
0
    val = sym->st_value;
9666
0
        val += rel->r_addend;
9667
0
        val += sym_sec->output_section->vma + sym_sec->output_offset;
9668
9669
/* Fudge factor to allow for the fact that the preliminary layout
9670
   isn't exact.  Reduce limits by this factor.  */
9671
0
#define LIMIT_ADJUST(LIMIT) ((LIMIT) - (LIMIT) / 16)
9672
9673
0
        switch (r_type)
9674
0
    {
9675
0
    default:
9676
0
      continue;
9677
9678
0
    case R_PPC64_GOT16_HA:
9679
0
      if (val - got + LIMIT_ADJUST (0x80008000ULL)
9680
0
          >= LIMIT_ADJUST (0x100000000ULL))
9681
0
        continue;
9682
9683
0
      if (!bfd_get_section_contents (ibfd, sec, buf,
9684
0
             rel->r_offset & ~3, 4))
9685
0
        goto got_error_ret;
9686
0
      insn = bfd_get_32 (ibfd, buf);
9687
0
      if (((insn & ((0x3fu << 26) | 0x1f << 16))
9688
0
           != ((15u << 26) | (2 << 16)) /* addis rt,2,imm */))
9689
0
        continue;
9690
0
      break;
9691
9692
0
    case R_PPC64_GOT16_LO_DS:
9693
0
      if (val - got + LIMIT_ADJUST (0x80008000ULL)
9694
0
          >= LIMIT_ADJUST (0x100000000ULL))
9695
0
        continue;
9696
0
      if (!bfd_get_section_contents (ibfd, sec, buf,
9697
0
             rel->r_offset & ~3, 4))
9698
0
        goto got_error_ret;
9699
0
      insn = bfd_get_32 (ibfd, buf);
9700
0
      if ((insn & (0x3fu << 26 | 0x3)) != 58u << 26 /* ld */)
9701
0
        continue;
9702
0
      break;
9703
9704
0
    case R_PPC64_GOT_PCREL34:
9705
0
      pc = rel->r_offset;
9706
0
      pc += sec->output_section->vma + sec->output_offset;
9707
0
      if (val - pc + LIMIT_ADJUST (1ULL << 33)
9708
0
          >= LIMIT_ADJUST (1ULL << 34))
9709
0
        continue;
9710
0
      if (!bfd_get_section_contents (ibfd, sec, buf,
9711
0
             rel->r_offset & ~3, 8))
9712
0
        goto got_error_ret;
9713
0
      insn = bfd_get_32 (ibfd, buf);
9714
0
      if ((insn & (-1u << 18)) != ((1u << 26) | (1u << 20)))
9715
0
        continue;
9716
0
      insn = bfd_get_32 (ibfd, buf + 4);
9717
0
      if ((insn & (0x3fu << 26)) != 57u << 26)
9718
0
        continue;
9719
0
      break;
9720
0
    }
9721
0
#undef LIMIT_ADJUST
9722
9723
0
        if (h != NULL)
9724
0
    ent = h->got.glist;
9725
0
        else
9726
0
    {
9727
0
      struct got_entry **local_got_ents = elf_local_got_ents (ibfd);
9728
0
      ent = local_got_ents[r_symndx];
9729
0
    }
9730
0
        for (; ent != NULL; ent = ent->next)
9731
0
    if (ent->addend == rel->r_addend
9732
0
        && ent->owner == ibfd
9733
0
        && ent->tls_type == 0)
9734
0
      break;
9735
0
        BFD_ASSERT (ent && ent->got.refcount > 0);
9736
0
        ent->got.refcount -= 1;
9737
0
      }
9738
9739
0
    if (elf_section_data (sec)->relocs != relstart)
9740
0
      free (relstart);
9741
0
  }
9742
9743
0
      if (local_syms != NULL
9744
0
    && symtab_hdr->contents != (unsigned char *) local_syms)
9745
0
  {
9746
0
    if (!info->keep_memory)
9747
0
      free (local_syms);
9748
0
    else
9749
0
      symtab_hdr->contents = (unsigned char *) local_syms;
9750
0
  }
9751
0
    }
9752
9753
0
  return true;
9754
0
}
9755
9756
/* Return true iff input section I references the TOC using
9757
   instructions limited to +/-32k offsets.  */
9758
9759
bool
9760
ppc64_elf_has_small_toc_reloc (asection *i)
9761
0
{
9762
0
  return (is_ppc64_elf (i->owner)
9763
0
    && ppc64_elf_tdata (i->owner)->has_small_toc_reloc);
9764
0
}
9765
9766
/* Allocate space for one GOT entry.  */
9767
9768
static void
9769
allocate_got (struct elf_link_hash_entry *h,
9770
        struct bfd_link_info *info,
9771
        struct got_entry *gent)
9772
0
{
9773
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
9774
0
  struct ppc_link_hash_entry *eh = ppc_elf_hash_entry (h);
9775
0
  int entsize = (gent->tls_type & eh->tls_mask & (TLS_GD | TLS_LD)
9776
0
     ? 16 : 8);
9777
0
  int rentsize = (gent->tls_type & eh->tls_mask & TLS_GD
9778
0
      ? 2 : 1) * sizeof (Elf64_External_Rela);
9779
0
  asection *got = ppc64_elf_tdata (gent->owner)->got;
9780
9781
0
  gent->got.offset = got->size;
9782
0
  got->size += entsize;
9783
9784
0
  if (h->type == STT_GNU_IFUNC)
9785
0
    {
9786
0
      htab->elf.irelplt->size += rentsize;
9787
0
      htab->got_reli_size += rentsize;
9788
0
    }
9789
0
  else if (((bfd_link_pic (info)
9790
0
       && (gent->tls_type == 0
9791
0
     ? !info->enable_dt_relr
9792
0
     : !(bfd_link_executable (info)
9793
0
         && SYMBOL_REFERENCES_LOCAL (info, h)))
9794
0
       && !bfd_is_abs_symbol (&h->root))
9795
0
      || (htab->elf.dynamic_sections_created
9796
0
    && h->dynindx != -1
9797
0
    && !SYMBOL_REFERENCES_LOCAL (info, h)))
9798
0
     && !UNDEFWEAK_NO_DYNAMIC_RELOC (info, h))
9799
0
    {
9800
0
      asection *relgot = ppc64_elf_tdata (gent->owner)->relgot;
9801
0
      relgot->size += rentsize;
9802
0
    }
9803
0
}
9804
9805
/* This function merges got entries in the same toc group.  */
9806
9807
static void
9808
merge_got_entries (struct got_entry **pent)
9809
0
{
9810
0
  struct got_entry *ent, *ent2;
9811
9812
0
  for (ent = *pent; ent != NULL; ent = ent->next)
9813
0
    if (!ent->is_indirect)
9814
0
      for (ent2 = ent->next; ent2 != NULL; ent2 = ent2->next)
9815
0
  if (!ent2->is_indirect
9816
0
      && ent2->addend == ent->addend
9817
0
      && ent2->tls_type == ent->tls_type
9818
0
      && elf_gp (ent2->owner) == elf_gp (ent->owner))
9819
0
    {
9820
0
      ent2->is_indirect = true;
9821
0
      ent2->got.ent = ent;
9822
0
    }
9823
0
}
9824
9825
/* If H is undefined, make it dynamic if that makes sense.  */
9826
9827
static bool
9828
ensure_undef_dynamic (struct bfd_link_info *info,
9829
          struct elf_link_hash_entry *h)
9830
0
{
9831
0
  struct elf_link_hash_table *htab = elf_hash_table (info);
9832
9833
0
  if (htab->dynamic_sections_created
9834
0
      && ((info->dynamic_undefined_weak != 0
9835
0
     && h->root.type == bfd_link_hash_undefweak)
9836
0
    || h->root.type == bfd_link_hash_undefined)
9837
0
      && h->dynindx == -1
9838
0
      && !h->forced_local
9839
0
      && ELF_ST_VISIBILITY (h->other) == STV_DEFAULT)
9840
0
    return bfd_elf_link_record_dynamic_symbol (info, h);
9841
0
  return true;
9842
0
}
9843
9844
/* Choose whether to use htab->iplt or htab->pltlocal rather than the
9845
   usual htab->elf.splt section for a PLT entry.  */
9846
9847
static inline
9848
bool use_local_plt (struct bfd_link_info *info,
9849
         struct elf_link_hash_entry *h)
9850
0
{
9851
0
  return (h == NULL
9852
0
    || h->dynindx == -1
9853
0
    || !elf_hash_table (info)->dynamic_sections_created);
9854
0
}
9855
9856
/* Allocate space in .plt, .got and associated reloc sections for
9857
   dynamic relocs.  */
9858
9859
static bool
9860
allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
9861
0
{
9862
0
  struct bfd_link_info *info;
9863
0
  struct ppc_link_hash_table *htab;
9864
0
  asection *s;
9865
0
  struct ppc_link_hash_entry *eh;
9866
0
  struct got_entry **pgent, *gent;
9867
9868
0
  if (h->root.type == bfd_link_hash_indirect)
9869
0
    return true;
9870
9871
0
  info = (struct bfd_link_info *) inf;
9872
0
  htab = ppc_hash_table (info);
9873
0
  if (htab == NULL)
9874
0
    return false;
9875
9876
0
  eh = ppc_elf_hash_entry (h);
9877
  /* Run through the TLS GD got entries first if we're changing them
9878
     to TPREL.  */
9879
0
  if ((eh->tls_mask & (TLS_TLS | TLS_GDIE)) == (TLS_TLS | TLS_GDIE))
9880
0
    for (gent = h->got.glist; gent != NULL; gent = gent->next)
9881
0
      if (gent->got.refcount > 0
9882
0
    && (gent->tls_type & TLS_GD) != 0)
9883
0
  {
9884
    /* This was a GD entry that has been converted to TPREL.  If
9885
       there happens to be a TPREL entry we can use that one.  */
9886
0
    struct got_entry *ent;
9887
0
    for (ent = h->got.glist; ent != NULL; ent = ent->next)
9888
0
      if (ent->got.refcount > 0
9889
0
    && (ent->tls_type & TLS_TPREL) != 0
9890
0
    && ent->addend == gent->addend
9891
0
    && ent->owner == gent->owner)
9892
0
        {
9893
0
    gent->got.refcount = 0;
9894
0
    break;
9895
0
        }
9896
9897
    /* If not, then we'll be using our own TPREL entry.  */
9898
0
    if (gent->got.refcount != 0)
9899
0
      gent->tls_type = TLS_TLS | TLS_TPREL;
9900
0
  }
9901
9902
  /* Remove any list entry that won't generate a word in the GOT before
9903
     we call merge_got_entries.  Otherwise we risk merging to empty
9904
     entries.  */
9905
0
  pgent = &h->got.glist;
9906
0
  while ((gent = *pgent) != NULL)
9907
0
    if (gent->got.refcount > 0)
9908
0
      {
9909
0
  if ((gent->tls_type & TLS_LD) != 0
9910
0
      && SYMBOL_REFERENCES_LOCAL (info, h))
9911
0
    {
9912
0
      ppc64_tlsld_got (gent->owner)->got.refcount += 1;
9913
0
      *pgent = gent->next;
9914
0
    }
9915
0
  else
9916
0
    pgent = &gent->next;
9917
0
      }
9918
0
    else
9919
0
      *pgent = gent->next;
9920
9921
0
  if (!htab->do_multi_toc)
9922
0
    merge_got_entries (&h->got.glist);
9923
9924
0
  for (gent = h->got.glist; gent != NULL; gent = gent->next)
9925
0
    if (!gent->is_indirect)
9926
0
      {
9927
  /* Ensure we catch all the cases where this symbol should
9928
     be made dynamic.  */
9929
0
  if (!ensure_undef_dynamic (info, h))
9930
0
    return false;
9931
9932
0
  if (!is_ppc64_elf (gent->owner))
9933
0
    abort ();
9934
9935
0
  allocate_got (h, info, gent);
9936
0
      }
9937
9938
  /* If no dynamic sections we can't have dynamic relocs, except for
9939
     IFUNCs which are handled even in static executables.  */
9940
0
  if (!htab->elf.dynamic_sections_created
9941
0
      && h->type != STT_GNU_IFUNC)
9942
0
    h->dyn_relocs = NULL;
9943
9944
  /* Discard relocs on undefined symbols that must be local.  */
9945
0
  else if (h->root.type == bfd_link_hash_undefined
9946
0
     && ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
9947
0
    h->dyn_relocs = NULL;
9948
9949
  /* Also discard relocs on undefined weak syms with non-default
9950
     visibility, or when dynamic_undefined_weak says so.  */
9951
0
  else if (UNDEFWEAK_NO_DYNAMIC_RELOC (info, h))
9952
0
    h->dyn_relocs = NULL;
9953
9954
0
  if (h->dyn_relocs != NULL)
9955
0
    {
9956
0
      struct ppc_dyn_relocs *p, **pp;
9957
9958
      /* In the shared -Bsymbolic case, discard space allocated for
9959
   dynamic pc-relative relocs against symbols which turn out to
9960
   be defined in regular objects.  For the normal shared case,
9961
   discard space for relocs that have become local due to symbol
9962
   visibility changes.  */
9963
0
      if (bfd_link_pic (info))
9964
0
  {
9965
    /* Relocs that use pc_count are those that appear on a call
9966
       insn, or certain REL relocs (see must_be_dyn_reloc) that
9967
       can be generated via assembly.  We want calls to
9968
       protected symbols to resolve directly to the function
9969
       rather than going via the plt.  If people want function
9970
       pointer comparisons to work as expected then they should
9971
       avoid writing weird assembly.  */
9972
0
    if (SYMBOL_CALLS_LOCAL (info, h))
9973
0
      {
9974
0
        for (pp = (struct ppc_dyn_relocs **) &h->dyn_relocs;
9975
0
       (p = *pp) != NULL;
9976
0
       )
9977
0
    {
9978
0
      p->count -= p->pc_count;
9979
0
      p->pc_count = 0;
9980
0
      if (p->count == 0)
9981
0
        *pp = p->next;
9982
0
      else
9983
0
        pp = &p->next;
9984
0
    }
9985
0
      }
9986
9987
0
    if (h->dyn_relocs != NULL)
9988
0
      {
9989
        /* Ensure we catch all the cases where this symbol
9990
     should be made dynamic.  */
9991
0
        if (!ensure_undef_dynamic (info, h))
9992
0
    return false;
9993
0
      }
9994
0
  }
9995
9996
      /* For a fixed position executable, discard space for
9997
   relocs against symbols which are not dynamic.  */
9998
0
      else if (h->type != STT_GNU_IFUNC)
9999
0
  {
10000
0
    if ((h->dynamic_adjusted
10001
0
         || (h->ref_regular
10002
0
       && h->root.type == bfd_link_hash_undefweak
10003
0
       && (info->dynamic_undefined_weak > 0
10004
0
           || !_bfd_elf_readonly_dynrelocs (h))))
10005
0
        && !h->def_regular
10006
0
        && !ELF_COMMON_DEF_P (h))
10007
0
      {
10008
        /* Ensure we catch all the cases where this symbol
10009
     should be made dynamic.  */
10010
0
        if (!ensure_undef_dynamic (info, h))
10011
0
    return false;
10012
10013
        /* But if that didn't work out, discard dynamic relocs.  */
10014
0
        if (h->dynindx == -1)
10015
0
    h->dyn_relocs = NULL;
10016
0
      }
10017
0
    else
10018
0
      h->dyn_relocs = NULL;
10019
0
  }
10020
10021
      /* Finally, allocate space.  */
10022
0
      for (p = (struct ppc_dyn_relocs *) h->dyn_relocs; p != NULL; p = p->next)
10023
0
  if (!discarded_section (p->sec))
10024
0
    {
10025
0
      unsigned int count;
10026
0
      asection *sreloc = elf_section_data (p->sec)->sreloc;
10027
0
      if (eh->elf.type == STT_GNU_IFUNC)
10028
0
        sreloc = htab->elf.irelplt;
10029
0
      count = p->count;
10030
0
      if (info->enable_dt_relr
10031
0
    && ((!NO_OPD_RELOCS
10032
0
         && ppc64_elf_section_data (p->sec)->sec_type == sec_opd)
10033
0
        || (eh->elf.type != STT_GNU_IFUNC
10034
0
      && SYMBOL_REFERENCES_LOCAL (info, h))))
10035
0
        count -= p->rel_count;
10036
0
      sreloc->size += count * sizeof (Elf64_External_Rela);
10037
0
    }
10038
0
    }
10039
10040
  /* We might need a PLT entry when the symbol
10041
     a) is dynamic, or
10042
     b) is an ifunc, or
10043
     c) has plt16 relocs and has been processed by adjust_dynamic_symbol, or
10044
     d) has plt16 relocs and we are linking statically.  */
10045
0
  if ((htab->elf.dynamic_sections_created && h->dynindx != -1)
10046
0
      || h->type == STT_GNU_IFUNC
10047
0
      || (h->needs_plt && h->dynamic_adjusted)
10048
0
      || (h->needs_plt
10049
0
    && h->def_regular
10050
0
    && !htab->elf.dynamic_sections_created
10051
0
    && !htab->can_convert_all_inline_plt
10052
0
    && (ppc_elf_hash_entry (h)->tls_mask
10053
0
        & (TLS_TLS | PLT_KEEP)) == PLT_KEEP))
10054
0
    {
10055
0
      struct plt_entry *pent;
10056
0
      bool doneone = false;
10057
0
      for (pent = h->plt.plist; pent != NULL; pent = pent->next)
10058
0
  if (pent->plt.refcount > 0)
10059
0
    {
10060
0
      if (!ensure_undef_dynamic (info, h))
10061
0
        return false;
10062
10063
0
      if (use_local_plt (info, h))
10064
0
        {
10065
0
    if (h->type == STT_GNU_IFUNC)
10066
0
      {
10067
0
        s = htab->elf.iplt;
10068
0
        pent->plt.offset = s->size;
10069
0
        s->size += PLT_ENTRY_SIZE (htab);
10070
0
        s = htab->elf.irelplt;
10071
0
      }
10072
0
    else
10073
0
      {
10074
0
        s = htab->pltlocal;
10075
0
        pent->plt.offset = s->size;
10076
0
        s->size += LOCAL_PLT_ENTRY_SIZE (htab);
10077
0
        s = NULL;
10078
0
        if (bfd_link_pic (info)
10079
0
      && !(info->enable_dt_relr && !htab->opd_abi))
10080
0
          s = htab->relpltlocal;
10081
0
      }
10082
0
        }
10083
0
      else
10084
0
        {
10085
    /* If this is the first .plt entry, make room for the special
10086
       first entry.  */
10087
0
    s = htab->elf.splt;
10088
0
    if (s->size == 0)
10089
0
      s->size += PLT_INITIAL_ENTRY_SIZE (htab);
10090
10091
0
    pent->plt.offset = s->size;
10092
10093
    /* Make room for this entry.  */
10094
0
    s->size += PLT_ENTRY_SIZE (htab);
10095
10096
    /* Make room for the .glink code.  */
10097
0
    s = htab->glink;
10098
0
    if (s->size == 0)
10099
0
      s->size += GLINK_PLTRESOLVE_SIZE (htab);
10100
0
    if (htab->opd_abi)
10101
0
      {
10102
        /* We need bigger stubs past index 32767.  */
10103
0
        if (s->size >= GLINK_PLTRESOLVE_SIZE (htab) + 32768*2*4)
10104
0
          s->size += 4;
10105
0
        s->size += 2*4;
10106
0
      }
10107
0
    else
10108
0
      s->size += 4;
10109
10110
    /* We also need to make an entry in the .rela.plt section.  */
10111
0
    s = htab->elf.srelplt;
10112
0
        }
10113
0
      if (s != NULL)
10114
0
        s->size += sizeof (Elf64_External_Rela);
10115
0
      doneone = true;
10116
0
    }
10117
0
  else
10118
0
    pent->plt.offset = (bfd_vma) -1;
10119
0
      if (!doneone)
10120
0
  {
10121
0
    h->plt.plist = NULL;
10122
0
    h->needs_plt = 0;
10123
0
  }
10124
0
    }
10125
0
  else
10126
0
    {
10127
0
      h->plt.plist = NULL;
10128
0
      h->needs_plt = 0;
10129
0
    }
10130
10131
0
  return true;
10132
0
}
10133
10134
0
#define PPC_LO(v) ((v) & 0xffff)
10135
0
#define PPC_HI(v) (((v) >> 16) & 0xffff)
10136
0
#define PPC_HA(v) PPC_HI ((v) + 0x8000)
10137
#define D34(v) \
10138
0
  ((((v) & 0x3ffff0000ULL) << 16) | (v & 0xffff))
10139
#define HA34(v) ((v + (1ULL << 33)) >> 34)
10140
10141
/* Called via elf_link_hash_traverse from ppc64_elf_size_dynamic_sections
10142
   to set up space for global entry stubs.  These are put in glink,
10143
   after the branch table.  */
10144
10145
static bool
10146
size_global_entry_stubs (struct elf_link_hash_entry *h, void *inf)
10147
0
{
10148
0
  struct bfd_link_info *info;
10149
0
  struct ppc_link_hash_table *htab;
10150
0
  struct plt_entry *pent;
10151
0
  asection *s, *plt;
10152
10153
0
  if (h->root.type == bfd_link_hash_indirect)
10154
0
    return true;
10155
10156
0
  if (!h->pointer_equality_needed)
10157
0
    return true;
10158
10159
0
  if (h->def_regular)
10160
0
    return true;
10161
10162
0
  info = inf;
10163
0
  htab = ppc_hash_table (info);
10164
0
  if (htab == NULL)
10165
0
    return false;
10166
10167
0
  s = htab->global_entry;
10168
0
  plt = htab->elf.splt;
10169
0
  for (pent = h->plt.plist; pent != NULL; pent = pent->next)
10170
0
    if (pent->plt.offset != (bfd_vma) -1
10171
0
  && pent->addend == 0)
10172
0
      {
10173
  /* For ELFv2, if this symbol is not defined in a regular file
10174
     and we are not generating a shared library or pie, then we
10175
     need to define the symbol in the executable on a call stub.
10176
     This is to avoid text relocations.  */
10177
0
  bfd_vma off, stub_align, stub_off, stub_size;
10178
0
  unsigned int align_power;
10179
10180
0
  stub_size = 16;
10181
0
  stub_off = s->size;
10182
0
  if (htab->params->plt_stub_align >= 0)
10183
0
    align_power = htab->params->plt_stub_align;
10184
0
  else
10185
0
    align_power = -htab->params->plt_stub_align;
10186
  /* Setting section alignment is delayed until we know it is
10187
     non-empty.  Otherwise the .text output section will be
10188
     aligned at least to plt_stub_align even when no global
10189
     entry stubs are needed.  */
10190
0
  if (s->alignment_power < align_power)
10191
0
    s->alignment_power = align_power;
10192
0
  stub_align = (bfd_vma) 1 << align_power;
10193
0
  if (htab->params->plt_stub_align >= 0
10194
0
      || ((((stub_off + stub_size - 1) & -stub_align)
10195
0
     - (stub_off & -stub_align))
10196
0
    > ((stub_size - 1) & -stub_align)))
10197
0
    stub_off = (stub_off + stub_align - 1) & -stub_align;
10198
0
  off = pent->plt.offset + plt->output_offset + plt->output_section->vma;
10199
0
  off -= stub_off + s->output_offset + s->output_section->vma;
10200
  /* Note that for --plt-stub-align negative we have a possible
10201
     dependency between stub offset and size.  Break that
10202
     dependency by assuming the max stub size when calculating
10203
     the stub offset.  */
10204
0
  if (PPC_HA (off) == 0)
10205
0
    stub_size -= 4;
10206
0
  h->root.type = bfd_link_hash_defined;
10207
0
  h->root.u.def.section = s;
10208
0
  h->root.u.def.value = stub_off;
10209
0
  s->size = stub_off + stub_size;
10210
0
  break;
10211
0
      }
10212
0
  return true;
10213
0
}
10214
10215
/* Set the sizes of the dynamic sections.  */
10216
10217
static bool
10218
ppc64_elf_size_dynamic_sections (bfd *output_bfd,
10219
         struct bfd_link_info *info)
10220
0
{
10221
0
  struct ppc_link_hash_table *htab;
10222
0
  bfd *dynobj;
10223
0
  asection *s;
10224
0
  bool relocs;
10225
0
  bfd *ibfd;
10226
0
  struct got_entry *first_tlsld;
10227
10228
0
  htab = ppc_hash_table (info);
10229
0
  if (htab == NULL)
10230
0
    return false;
10231
10232
0
  dynobj = htab->elf.dynobj;
10233
0
  if (dynobj == NULL)
10234
0
    abort ();
10235
10236
0
  if (htab->elf.dynamic_sections_created)
10237
0
    {
10238
      /* Set the contents of the .interp section to the interpreter.  */
10239
0
      if (bfd_link_executable (info) && !info->nointerp)
10240
0
  {
10241
0
    s = bfd_get_linker_section (dynobj, ".interp");
10242
0
    if (s == NULL)
10243
0
      abort ();
10244
0
    s->size = sizeof ELF_DYNAMIC_INTERPRETER;
10245
0
    s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
10246
0
  }
10247
0
    }
10248
10249
  /* Set up .got offsets for local syms, and space for local dynamic
10250
     relocs.  */
10251
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
10252
0
    {
10253
0
      struct got_entry **lgot_ents;
10254
0
      struct got_entry **end_lgot_ents;
10255
0
      struct plt_entry **local_plt;
10256
0
      struct plt_entry **end_local_plt;
10257
0
      unsigned char *lgot_masks;
10258
0
      bfd_size_type locsymcount;
10259
0
      Elf_Internal_Shdr *symtab_hdr;
10260
0
      Elf_Internal_Sym *local_syms;
10261
0
      Elf_Internal_Sym *isym;
10262
10263
0
      if (!is_ppc64_elf (ibfd))
10264
0
  continue;
10265
10266
0
      for (s = ibfd->sections; s != NULL; s = s->next)
10267
0
  {
10268
0
    struct ppc_local_dyn_relocs *p;
10269
10270
0
    for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
10271
0
      {
10272
0
        if (discarded_section (p->sec))
10273
0
    {
10274
      /* Input section has been discarded, either because
10275
         it is a copy of a linkonce section or due to
10276
         linker script /DISCARD/, so we'll be discarding
10277
         the relocs too.  */
10278
0
    }
10279
0
        else if (p->count != 0)
10280
0
    {
10281
0
      unsigned int count;
10282
0
      asection *srel;
10283
10284
0
      count = p->count;
10285
0
      if (info->enable_dt_relr
10286
0
          && ((!NO_OPD_RELOCS
10287
0
         && (ppc64_elf_section_data (p->sec)->sec_type
10288
0
             == sec_opd))
10289
0
        || !p->ifunc))
10290
0
        count -= p->rel_count;
10291
0
      srel = elf_section_data (p->sec)->sreloc;
10292
0
      if (p->ifunc)
10293
0
        srel = htab->elf.irelplt;
10294
0
      srel->size += count * sizeof (Elf64_External_Rela);
10295
0
      if ((p->sec->output_section->flags & SEC_READONLY) != 0)
10296
0
        info->flags |= DF_TEXTREL;
10297
0
    }
10298
0
      }
10299
0
  }
10300
10301
0
      lgot_ents = elf_local_got_ents (ibfd);
10302
0
      if (!lgot_ents)
10303
0
  continue;
10304
10305
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
10306
0
      locsymcount = symtab_hdr->sh_info;
10307
0
      end_lgot_ents = lgot_ents + locsymcount;
10308
0
      local_plt = (struct plt_entry **) end_lgot_ents;
10309
0
      end_local_plt = local_plt + locsymcount;
10310
0
      lgot_masks = (unsigned char *) end_local_plt;
10311
0
      local_syms = (Elf_Internal_Sym *) symtab_hdr->contents;
10312
0
      if (local_syms == NULL && locsymcount != 0)
10313
0
  {
10314
0
    local_syms = bfd_elf_get_elf_syms (ibfd, symtab_hdr, locsymcount,
10315
0
               0, NULL, NULL, NULL);
10316
0
    if (local_syms == NULL)
10317
0
      return false;
10318
0
  }
10319
0
      s = ppc64_elf_tdata (ibfd)->got;
10320
0
      for (isym = local_syms;
10321
0
     lgot_ents < end_lgot_ents;
10322
0
     ++lgot_ents, ++lgot_masks, isym++)
10323
0
  {
10324
0
    struct got_entry **pent, *ent;
10325
10326
0
    pent = lgot_ents;
10327
0
    while ((ent = *pent) != NULL)
10328
0
      if (ent->got.refcount > 0)
10329
0
        {
10330
0
    if ((ent->tls_type & *lgot_masks & TLS_LD) != 0)
10331
0
      {
10332
0
        ppc64_tlsld_got (ibfd)->got.refcount += 1;
10333
0
        *pent = ent->next;
10334
0
      }
10335
0
    else
10336
0
      {
10337
0
        unsigned int ent_size = 8;
10338
0
        unsigned int rel_size = sizeof (Elf64_External_Rela);
10339
10340
0
        ent->got.offset = s->size;
10341
0
        if ((ent->tls_type & *lgot_masks & TLS_GD) != 0)
10342
0
          {
10343
0
      ent_size *= 2;
10344
0
      rel_size *= 2;
10345
0
          }
10346
0
        s->size += ent_size;
10347
0
        if ((*lgot_masks & (TLS_TLS | PLT_IFUNC)) == PLT_IFUNC)
10348
0
          {
10349
0
      htab->elf.irelplt->size += rel_size;
10350
0
      htab->got_reli_size += rel_size;
10351
0
          }
10352
0
        else if (bfd_link_pic (info)
10353
0
           && (ent->tls_type == 0
10354
0
         ? !info->enable_dt_relr
10355
0
         : !bfd_link_executable (info))
10356
0
           && isym->st_shndx != SHN_ABS)
10357
0
          {
10358
0
      asection *srel = ppc64_elf_tdata (ibfd)->relgot;
10359
0
      srel->size += rel_size;
10360
0
          }
10361
0
        pent = &ent->next;
10362
0
      }
10363
0
        }
10364
0
      else
10365
0
        *pent = ent->next;
10366
0
  }
10367
0
      if (local_syms != NULL
10368
0
    && symtab_hdr->contents != (unsigned char *) local_syms)
10369
0
  {
10370
0
    if (!info->keep_memory)
10371
0
      free (local_syms);
10372
0
    else
10373
0
      symtab_hdr->contents = (unsigned char *) local_syms;
10374
0
  }
10375
10376
      /* Allocate space for plt calls to local syms.  */
10377
0
      lgot_masks = (unsigned char *) end_local_plt;
10378
0
      for (; local_plt < end_local_plt; ++local_plt, ++lgot_masks)
10379
0
  {
10380
0
    struct plt_entry *ent;
10381
10382
0
    for (ent = *local_plt; ent != NULL; ent = ent->next)
10383
0
      if (ent->plt.refcount > 0)
10384
0
        {
10385
0
    if ((*lgot_masks & (TLS_TLS | PLT_IFUNC)) == PLT_IFUNC)
10386
0
      {
10387
0
        s = htab->elf.iplt;
10388
0
        ent->plt.offset = s->size;
10389
0
        s->size += PLT_ENTRY_SIZE (htab);
10390
0
        htab->elf.irelplt->size += sizeof (Elf64_External_Rela);
10391
0
      }
10392
0
    else if (htab->can_convert_all_inline_plt
10393
0
       || (*lgot_masks & (TLS_TLS | PLT_KEEP)) != PLT_KEEP)
10394
0
      ent->plt.offset = (bfd_vma) -1;
10395
0
    else
10396
0
      {
10397
0
        s = htab->pltlocal;
10398
0
        ent->plt.offset = s->size;
10399
0
        s->size += LOCAL_PLT_ENTRY_SIZE (htab);
10400
0
        if (bfd_link_pic (info)
10401
0
      && !(info->enable_dt_relr && !htab->opd_abi))
10402
0
          htab->relpltlocal->size += sizeof (Elf64_External_Rela);
10403
0
      }
10404
0
        }
10405
0
      else
10406
0
        ent->plt.offset = (bfd_vma) -1;
10407
0
  }
10408
0
    }
10409
10410
  /* Allocate global sym .plt and .got entries, and space for global
10411
     sym dynamic relocs.  */
10412
0
  elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, info);
10413
10414
0
  if (!htab->opd_abi && !bfd_link_pic (info))
10415
0
    elf_link_hash_traverse (&htab->elf, size_global_entry_stubs, info);
10416
10417
0
  first_tlsld = NULL;
10418
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
10419
0
    {
10420
0
      struct got_entry *ent;
10421
10422
0
      if (!is_ppc64_elf (ibfd))
10423
0
  continue;
10424
10425
0
      ent = ppc64_tlsld_got (ibfd);
10426
0
      if (ent->got.refcount > 0)
10427
0
  {
10428
0
    if (!htab->do_multi_toc && first_tlsld != NULL)
10429
0
      {
10430
0
        ent->is_indirect = true;
10431
0
        ent->got.ent = first_tlsld;
10432
0
      }
10433
0
    else
10434
0
      {
10435
0
        if (first_tlsld == NULL)
10436
0
    first_tlsld = ent;
10437
0
        s = ppc64_elf_tdata (ibfd)->got;
10438
0
        ent->got.offset = s->size;
10439
0
        ent->owner = ibfd;
10440
0
        s->size += 16;
10441
0
        if (bfd_link_dll (info))
10442
0
    {
10443
0
      asection *srel = ppc64_elf_tdata (ibfd)->relgot;
10444
0
      srel->size += sizeof (Elf64_External_Rela);
10445
0
    }
10446
0
      }
10447
0
  }
10448
0
      else
10449
0
  ent->got.offset = (bfd_vma) -1;
10450
0
    }
10451
10452
  /* We now have determined the sizes of the various dynamic sections.
10453
     Allocate memory for them.  */
10454
0
  relocs = false;
10455
0
  for (s = dynobj->sections; s != NULL; s = s->next)
10456
0
    {
10457
0
      if ((s->flags & SEC_LINKER_CREATED) == 0)
10458
0
  continue;
10459
10460
0
      if (s == htab->brlt || s == htab->relbrlt || s == htab->elf.srelrdyn)
10461
  /* These haven't been allocated yet;  don't strip.  */
10462
0
  continue;
10463
0
      else if (s == htab->elf.sgot
10464
0
         || s == htab->elf.splt
10465
0
         || s == htab->elf.iplt
10466
0
         || s == htab->pltlocal
10467
0
         || s == htab->glink
10468
0
         || s == htab->global_entry
10469
0
         || s == htab->elf.sdynbss
10470
0
         || s == htab->elf.sdynrelro)
10471
0
  {
10472
    /* Strip this section if we don't need it; see the
10473
       comment below.  */
10474
0
  }
10475
0
      else if (s == htab->glink_eh_frame)
10476
0
  {
10477
0
    if (!bfd_is_abs_section (s->output_section))
10478
      /* Not sized yet.  */
10479
0
      continue;
10480
0
  }
10481
0
      else if (startswith (s->name, ".rela"))
10482
0
  {
10483
0
    if (s->size != 0)
10484
0
      {
10485
0
        if (s != htab->elf.srelplt)
10486
0
    relocs = true;
10487
10488
        /* We use the reloc_count field as a counter if we need
10489
     to copy relocs into the output file.  */
10490
0
        s->reloc_count = 0;
10491
0
      }
10492
0
  }
10493
0
      else
10494
0
  {
10495
    /* It's not one of our sections, so don't allocate space.  */
10496
0
    continue;
10497
0
  }
10498
10499
0
      if (s->size == 0)
10500
0
  {
10501
    /* If we don't need this section, strip it from the
10502
       output file.  This is mostly to handle .rela.bss and
10503
       .rela.plt.  We must create both sections in
10504
       create_dynamic_sections, because they must be created
10505
       before the linker maps input sections to output
10506
       sections.  The linker does that before
10507
       adjust_dynamic_symbol is called, and it is that
10508
       function which decides whether anything needs to go
10509
       into these sections.  */
10510
0
    s->flags |= SEC_EXCLUDE;
10511
0
    continue;
10512
0
  }
10513
10514
0
      if (bfd_is_abs_section (s->output_section))
10515
0
  _bfd_error_handler (_("warning: discarding dynamic section %s"),
10516
0
          s->name);
10517
10518
0
      if ((s->flags & SEC_HAS_CONTENTS) == 0)
10519
0
  continue;
10520
10521
      /* Allocate memory for the section contents.  We use bfd_zalloc
10522
   here in case unused entries are not reclaimed before the
10523
   section's contents are written out.  This should not happen,
10524
   but this way if it does we get a R_PPC64_NONE reloc in .rela
10525
   sections instead of garbage.
10526
   We also rely on the section contents being zero when writing
10527
   the GOT and .dynrelro.  */
10528
0
      s->contents = bfd_zalloc (dynobj, s->size);
10529
0
      if (s->contents == NULL)
10530
0
  return false;
10531
0
    }
10532
10533
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
10534
0
    {
10535
0
      if (!is_ppc64_elf (ibfd))
10536
0
  continue;
10537
10538
0
      s = ppc64_elf_tdata (ibfd)->got;
10539
0
      if (s != NULL && s != htab->elf.sgot)
10540
0
  {
10541
0
    if (s->size == 0)
10542
0
      s->flags |= SEC_EXCLUDE;
10543
0
    else
10544
0
      {
10545
0
        s->contents = bfd_zalloc (ibfd, s->size);
10546
0
        if (s->contents == NULL)
10547
0
    return false;
10548
0
      }
10549
0
  }
10550
0
      s = ppc64_elf_tdata (ibfd)->relgot;
10551
0
      if (s != NULL)
10552
0
  {
10553
0
    if (s->size == 0)
10554
0
      s->flags |= SEC_EXCLUDE;
10555
0
    else
10556
0
      {
10557
0
        s->contents = bfd_zalloc (ibfd, s->size);
10558
0
        if (s->contents == NULL)
10559
0
    return false;
10560
0
        relocs = true;
10561
0
        s->reloc_count = 0;
10562
0
      }
10563
0
  }
10564
0
    }
10565
10566
0
  if (htab->elf.dynamic_sections_created)
10567
0
    {
10568
0
      bool tls_opt;
10569
10570
      /* Add some entries to the .dynamic section.  We fill in the
10571
   values later, in ppc64_elf_finish_dynamic_sections, but we
10572
   must add the entries now so that we get the correct size for
10573
   the .dynamic section.  The DT_DEBUG entry is filled in by the
10574
   dynamic linker and used by the debugger.  */
10575
0
#define add_dynamic_entry(TAG, VAL) \
10576
0
  _bfd_elf_add_dynamic_entry (info, TAG, VAL)
10577
10578
0
      if (bfd_link_executable (info))
10579
0
  {
10580
0
    if (!add_dynamic_entry (DT_DEBUG, 0))
10581
0
      return false;
10582
0
  }
10583
10584
0
      if (htab->elf.splt != NULL && htab->elf.splt->size != 0)
10585
0
  {
10586
0
    if (!add_dynamic_entry (DT_PLTGOT, 0)
10587
0
        || !add_dynamic_entry (DT_PLTRELSZ, 0)
10588
0
        || !add_dynamic_entry (DT_PLTREL, DT_RELA)
10589
0
        || !add_dynamic_entry (DT_JMPREL, 0)
10590
0
        || !add_dynamic_entry (DT_PPC64_GLINK, 0))
10591
0
      return false;
10592
0
  }
10593
10594
0
      if (NO_OPD_RELOCS && abiversion (output_bfd) <= 1)
10595
0
  {
10596
0
    if (!add_dynamic_entry (DT_PPC64_OPD, 0)
10597
0
        || !add_dynamic_entry (DT_PPC64_OPDSZ, 0))
10598
0
      return false;
10599
0
  }
10600
10601
0
      tls_opt = (htab->params->tls_get_addr_opt
10602
0
     && ((htab->tls_get_addr_fd != NULL
10603
0
          && htab->tls_get_addr_fd->elf.plt.plist != NULL)
10604
0
         || (htab->tga_desc_fd != NULL
10605
0
       && htab->tga_desc_fd->elf.plt.plist != NULL)));
10606
0
      if (tls_opt || !htab->opd_abi)
10607
0
  {
10608
0
    if (!add_dynamic_entry (DT_PPC64_OPT, tls_opt ? PPC64_OPT_TLS : 0))
10609
0
      return false;
10610
0
  }
10611
10612
0
      if (relocs)
10613
0
  {
10614
0
    if (!add_dynamic_entry (DT_RELA, 0)
10615
0
        || !add_dynamic_entry (DT_RELASZ, 0)
10616
0
        || !add_dynamic_entry (DT_RELAENT, sizeof (Elf64_External_Rela)))
10617
0
      return false;
10618
10619
    /* If any dynamic relocs apply to a read-only section,
10620
       then we need a DT_TEXTREL entry.  */
10621
0
    if ((info->flags & DF_TEXTREL) == 0)
10622
0
      elf_link_hash_traverse (&htab->elf,
10623
0
            _bfd_elf_maybe_set_textrel, info);
10624
10625
0
    if ((info->flags & DF_TEXTREL) != 0)
10626
0
      {
10627
0
        if (!add_dynamic_entry (DT_TEXTREL, 0))
10628
0
    return false;
10629
0
      }
10630
0
  }
10631
0
    }
10632
0
#undef add_dynamic_entry
10633
10634
0
  return true;
10635
0
}
10636
10637
/* Return TRUE if symbol should be hashed in the `.gnu.hash' section.  */
10638
10639
static bool
10640
ppc64_elf_hash_symbol (struct elf_link_hash_entry *h)
10641
0
{
10642
0
  if (h->plt.plist != NULL
10643
0
      && !h->def_regular
10644
0
      && !h->pointer_equality_needed)
10645
0
    return false;
10646
10647
0
  return _bfd_elf_hash_symbol (h);
10648
0
}
10649
10650
/* Determine the type of stub needed, if any, for a call.  */
10651
10652
static inline enum ppc_stub_main_type
10653
ppc_type_of_stub (asection *input_sec,
10654
      const Elf_Internal_Rela *rel,
10655
      struct ppc_link_hash_entry **hash,
10656
      struct plt_entry **plt_ent,
10657
      bfd_vma destination,
10658
      unsigned long local_off)
10659
0
{
10660
0
  struct ppc_link_hash_entry *h = *hash;
10661
0
  bfd_vma location;
10662
0
  bfd_vma branch_offset;
10663
0
  bfd_vma max_branch_offset;
10664
0
  enum elf_ppc64_reloc_type r_type;
10665
10666
0
  if (h != NULL)
10667
0
    {
10668
0
      struct plt_entry *ent;
10669
0
      struct ppc_link_hash_entry *fdh = h;
10670
0
      if (h->oh != NULL
10671
0
    && h->oh->is_func_descriptor)
10672
0
  {
10673
0
    fdh = ppc_follow_link (h->oh);
10674
0
    *hash = fdh;
10675
0
  }
10676
10677
0
      for (ent = fdh->elf.plt.plist; ent != NULL; ent = ent->next)
10678
0
  if (ent->addend == rel->r_addend
10679
0
      && ent->plt.offset != (bfd_vma) -1)
10680
0
    {
10681
0
      *plt_ent = ent;
10682
0
      return ppc_stub_plt_call;
10683
0
    }
10684
10685
      /* Here, we know we don't have a plt entry.  If we don't have a
10686
   either a defined function descriptor or a defined entry symbol
10687
   in a regular object file, then it is pointless trying to make
10688
   any other type of stub.  */
10689
0
      if (!is_static_defined (&fdh->elf)
10690
0
    && !is_static_defined (&h->elf))
10691
0
  return ppc_stub_none;
10692
0
    }
10693
0
  else if (elf_local_got_ents (input_sec->owner) != NULL)
10694
0
    {
10695
0
      Elf_Internal_Shdr *symtab_hdr = &elf_symtab_hdr (input_sec->owner);
10696
0
      struct plt_entry **local_plt = (struct plt_entry **)
10697
0
  elf_local_got_ents (input_sec->owner) + symtab_hdr->sh_info;
10698
0
      unsigned long r_symndx = ELF64_R_SYM (rel->r_info);
10699
10700
0
      if (local_plt[r_symndx] != NULL)
10701
0
  {
10702
0
    struct plt_entry *ent;
10703
10704
0
    for (ent = local_plt[r_symndx]; ent != NULL; ent = ent->next)
10705
0
      if (ent->addend == rel->r_addend
10706
0
    && ent->plt.offset != (bfd_vma) -1)
10707
0
        {
10708
0
    *plt_ent = ent;
10709
0
    return ppc_stub_plt_call;
10710
0
        }
10711
0
  }
10712
0
    }
10713
10714
  /* Determine where the call point is.  */
10715
0
  location = (input_sec->output_offset
10716
0
        + input_sec->output_section->vma
10717
0
        + rel->r_offset);
10718
10719
0
  branch_offset = destination - location;
10720
0
  r_type = ELF64_R_TYPE (rel->r_info);
10721
10722
  /* Determine if a long branch stub is needed.  */
10723
0
  max_branch_offset = 1 << 25;
10724
0
  if (r_type == R_PPC64_REL14
10725
0
      || r_type == R_PPC64_REL14_BRTAKEN
10726
0
      || r_type == R_PPC64_REL14_BRNTAKEN)
10727
0
    max_branch_offset = 1 << 15;
10728
10729
0
  if (branch_offset + max_branch_offset >= 2 * max_branch_offset - local_off)
10730
    /* We need a stub.  Figure out whether a long_branch or plt_branch
10731
       is needed later.  */
10732
0
    return ppc_stub_long_branch;
10733
10734
0
  return ppc_stub_none;
10735
0
}
10736
10737
/* Gets the address of a label (1:) in r11 and builds an offset in r12,
10738
   then adds it to r11 (LOAD false) or loads r12 from r11+r12 (LOAD true).
10739
   .  mflr  %r12
10740
   .  bcl 20,31,1f
10741
   .1:  mflr  %r11
10742
   .  mtlr  %r12
10743
   .  lis %r12,xxx-1b@highest
10744
   .  ori %r12,%r12,xxx-1b@higher
10745
   .  sldi  %r12,%r12,32
10746
   .  oris  %r12,%r12,xxx-1b@high
10747
   .  ori %r12,%r12,xxx-1b@l
10748
   .  add/ldx %r12,%r11,%r12  */
10749
10750
static bfd_byte *
10751
build_offset (bfd *abfd, bfd_byte *p, bfd_vma off, bool load)
10752
0
{
10753
0
  bfd_put_32 (abfd, MFLR_R12, p);
10754
0
  p += 4;
10755
0
  bfd_put_32 (abfd, BCL_20_31, p);
10756
0
  p += 4;
10757
0
  bfd_put_32 (abfd, MFLR_R11, p);
10758
0
  p += 4;
10759
0
  bfd_put_32 (abfd, MTLR_R12, p);
10760
0
  p += 4;
10761
0
  if (off + 0x8000 < 0x10000)
10762
0
    {
10763
0
      if (load)
10764
0
  bfd_put_32 (abfd, LD_R12_0R11 + PPC_LO (off), p);
10765
0
      else
10766
0
  bfd_put_32 (abfd, ADDI_R12_R11 + PPC_LO (off), p);
10767
0
      p += 4;
10768
0
    }
10769
0
  else if (off + 0x80008000ULL < 0x100000000ULL)
10770
0
    {
10771
0
      bfd_put_32 (abfd, ADDIS_R12_R11 + PPC_HA (off), p);
10772
0
      p += 4;
10773
0
      if (load)
10774
0
  bfd_put_32 (abfd, LD_R12_0R12 + PPC_LO (off), p);
10775
0
      else
10776
0
  bfd_put_32 (abfd, ADDI_R12_R12 + PPC_LO (off), p);
10777
0
      p += 4;
10778
0
    }
10779
0
  else
10780
0
    {
10781
0
      if (off + 0x800000000000ULL < 0x1000000000000ULL)
10782
0
  {
10783
0
    bfd_put_32 (abfd, LI_R12_0 + ((off >> 32) & 0xffff), p);
10784
0
    p += 4;
10785
0
  }
10786
0
      else
10787
0
  {
10788
0
    bfd_put_32 (abfd, LIS_R12 + ((off >> 48) & 0xffff), p);
10789
0
    p += 4;
10790
0
    if (((off >> 32) & 0xffff) != 0)
10791
0
      {
10792
0
        bfd_put_32 (abfd, ORI_R12_R12_0 + ((off >> 32) & 0xffff), p);
10793
0
        p += 4;
10794
0
      }
10795
0
  }
10796
0
      if (((off >> 32) & 0xffffffffULL) != 0)
10797
0
  {
10798
0
    bfd_put_32 (abfd, SLDI_R12_R12_32, p);
10799
0
    p += 4;
10800
0
  }
10801
0
      if (PPC_HI (off) != 0)
10802
0
  {
10803
0
    bfd_put_32 (abfd, ORIS_R12_R12_0 + PPC_HI (off), p);
10804
0
    p += 4;
10805
0
  }
10806
0
      if (PPC_LO (off) != 0)
10807
0
  {
10808
0
    bfd_put_32 (abfd, ORI_R12_R12_0 + PPC_LO (off), p);
10809
0
    p += 4;
10810
0
  }
10811
0
      if (load)
10812
0
  bfd_put_32 (abfd, LDX_R12_R11_R12, p);
10813
0
      else
10814
0
  bfd_put_32 (abfd, ADD_R12_R11_R12, p);
10815
0
      p += 4;
10816
0
    }
10817
0
  return p;
10818
0
}
10819
10820
static unsigned int
10821
size_offset (bfd_vma off)
10822
0
{
10823
0
  unsigned int size;
10824
0
  if (off + 0x8000 < 0x10000)
10825
0
    size = 4;
10826
0
  else if (off + 0x80008000ULL < 0x100000000ULL)
10827
0
    size = 8;
10828
0
  else
10829
0
    {
10830
0
      if (off + 0x800000000000ULL < 0x1000000000000ULL)
10831
0
  size = 4;
10832
0
      else
10833
0
  {
10834
0
    size = 4;
10835
0
    if (((off >> 32) & 0xffff) != 0)
10836
0
      size += 4;
10837
0
  }
10838
0
      if (((off >> 32) & 0xffffffffULL) != 0)
10839
0
  size += 4;
10840
0
      if (PPC_HI (off) != 0)
10841
0
  size += 4;
10842
0
      if (PPC_LO (off) != 0)
10843
0
  size += 4;
10844
0
      size += 4;
10845
0
    }
10846
0
  return size + 16;
10847
0
}
10848
10849
static unsigned int
10850
num_relocs_for_offset (bfd_vma off)
10851
0
{
10852
0
  unsigned int num_rel;
10853
0
  if (off + 0x8000 < 0x10000)
10854
0
    num_rel = 1;
10855
0
  else if (off + 0x80008000ULL < 0x100000000ULL)
10856
0
    num_rel = 2;
10857
0
  else
10858
0
    {
10859
0
      num_rel = 1;
10860
0
      if (off + 0x800000000000ULL >= 0x1000000000000ULL
10861
0
    && ((off >> 32) & 0xffff) != 0)
10862
0
  num_rel += 1;
10863
0
      if (PPC_HI (off) != 0)
10864
0
  num_rel += 1;
10865
0
      if (PPC_LO (off) != 0)
10866
0
  num_rel += 1;
10867
0
    }
10868
0
  return num_rel;
10869
0
}
10870
10871
static Elf_Internal_Rela *
10872
emit_relocs_for_offset (struct bfd_link_info *info, Elf_Internal_Rela *r,
10873
      bfd_vma roff, bfd_vma targ, bfd_vma off)
10874
0
{
10875
0
  bfd_vma relative_targ = targ - (roff - 8);
10876
0
  if (bfd_big_endian (info->output_bfd))
10877
0
    roff += 2;
10878
0
  r->r_offset = roff;
10879
0
  r->r_addend = relative_targ + roff;
10880
0
  if (off + 0x8000 < 0x10000)
10881
0
    r->r_info = ELF64_R_INFO (0, R_PPC64_REL16);
10882
0
  else if (off + 0x80008000ULL < 0x100000000ULL)
10883
0
    {
10884
0
      r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HA);
10885
0
      ++r;
10886
0
      roff += 4;
10887
0
      r->r_offset = roff;
10888
0
      r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_LO);
10889
0
      r->r_addend = relative_targ + roff;
10890
0
    }
10891
0
  else
10892
0
    {
10893
0
      if (off + 0x800000000000ULL < 0x1000000000000ULL)
10894
0
  r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HIGHER);
10895
0
      else
10896
0
  {
10897
0
    r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HIGHEST);
10898
0
    if (((off >> 32) & 0xffff) != 0)
10899
0
      {
10900
0
        ++r;
10901
0
        roff += 4;
10902
0
        r->r_offset = roff;
10903
0
        r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HIGHER);
10904
0
        r->r_addend = relative_targ + roff;
10905
0
      }
10906
0
  }
10907
0
      if (((off >> 32) & 0xffffffffULL) != 0)
10908
0
  roff += 4;
10909
0
      if (PPC_HI (off) != 0)
10910
0
  {
10911
0
    ++r;
10912
0
    roff += 4;
10913
0
    r->r_offset = roff;
10914
0
    r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HIGH);
10915
0
    r->r_addend = relative_targ + roff;
10916
0
  }
10917
0
      if (PPC_LO (off) != 0)
10918
0
  {
10919
0
    ++r;
10920
0
    roff += 4;
10921
0
    r->r_offset = roff;
10922
0
    r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_LO);
10923
0
    r->r_addend = relative_targ + roff;
10924
0
  }
10925
0
    }
10926
0
  return r;
10927
0
}
10928
10929
static bfd_byte *
10930
build_power10_offset (bfd *abfd, bfd_byte *p, bfd_vma off, int odd,
10931
          bool load)
10932
0
{
10933
0
  uint64_t insn;
10934
0
  if (off - odd + (1ULL << 33) < 1ULL << 34)
10935
0
    {
10936
0
      off -= odd;
10937
0
      if (odd)
10938
0
  {
10939
0
    bfd_put_32 (abfd, NOP, p);
10940
0
    p += 4;
10941
0
  }
10942
0
      if (load)
10943
0
  insn = PLD_R12_PC;
10944
0
      else
10945
0
  insn = PADDI_R12_PC;
10946
0
      insn |= D34 (off);
10947
0
      bfd_put_32 (abfd, insn >> 32, p);
10948
0
      p += 4;
10949
0
      bfd_put_32 (abfd, insn, p);
10950
0
    }
10951
  /* The minimum value for paddi is -0x200000000.  The minimum value
10952
     for li is -0x8000, which when shifted by 34 and added gives a
10953
     minimum value of -0x2000200000000.  The maximum value is
10954
     0x1ffffffff+0x7fff<<34 which is 0x2000200000000-1.  */
10955
0
  else if (off - (8 - odd) + (0x20002ULL << 32) < 0x40004ULL << 32)
10956
0
    {
10957
0
      off -= 8 - odd;
10958
0
      bfd_put_32 (abfd, LI_R11_0 | (HA34 (off) & 0xffff), p);
10959
0
      p += 4;
10960
0
      if (!odd)
10961
0
  {
10962
0
    bfd_put_32 (abfd, SLDI_R11_R11_34, p);
10963
0
    p += 4;
10964
0
  }
10965
0
      insn = PADDI_R12_PC | D34 (off);
10966
0
      bfd_put_32 (abfd, insn >> 32, p);
10967
0
      p += 4;
10968
0
      bfd_put_32 (abfd, insn, p);
10969
0
      p += 4;
10970
0
      if (odd)
10971
0
  {
10972
0
    bfd_put_32 (abfd, SLDI_R11_R11_34, p);
10973
0
    p += 4;
10974
0
  }
10975
0
      if (load)
10976
0
  bfd_put_32 (abfd, LDX_R12_R11_R12, p);
10977
0
      else
10978
0
  bfd_put_32 (abfd, ADD_R12_R11_R12, p);
10979
0
    }
10980
0
  else
10981
0
    {
10982
0
      off -= odd + 8;
10983
0
      bfd_put_32 (abfd, LIS_R11 | ((HA34 (off) >> 16) & 0x3fff), p);
10984
0
      p += 4;
10985
0
      bfd_put_32 (abfd, ORI_R11_R11_0 | (HA34 (off) & 0xffff), p);
10986
0
      p += 4;
10987
0
      if (odd)
10988
0
  {
10989
0
    bfd_put_32 (abfd, SLDI_R11_R11_34, p);
10990
0
    p += 4;
10991
0
  }
10992
0
      insn = PADDI_R12_PC | D34 (off);
10993
0
      bfd_put_32 (abfd, insn >> 32, p);
10994
0
      p += 4;
10995
0
      bfd_put_32 (abfd, insn, p);
10996
0
      p += 4;
10997
0
      if (!odd)
10998
0
  {
10999
0
    bfd_put_32 (abfd, SLDI_R11_R11_34, p);
11000
0
    p += 4;
11001
0
  }
11002
0
      if (load)
11003
0
  bfd_put_32 (abfd, LDX_R12_R11_R12, p);
11004
0
      else
11005
0
  bfd_put_32 (abfd, ADD_R12_R11_R12, p);
11006
0
    }
11007
0
  p += 4;
11008
0
  return p;
11009
0
}
11010
11011
static unsigned int
11012
size_power10_offset (bfd_vma off, int odd)
11013
0
{
11014
0
  if (off - odd + (1ULL << 33) < 1ULL << 34)
11015
0
    return odd + 8;
11016
0
  else if (off - (8 - odd) + (0x20002ULL << 32) < 0x40004ULL << 32)
11017
0
    return 20;
11018
0
  else
11019
0
    return 24;
11020
0
}
11021
11022
static unsigned int
11023
num_relocs_for_power10_offset (bfd_vma off, int odd)
11024
0
{
11025
0
  if (off - odd + (1ULL << 33) < 1ULL << 34)
11026
0
    return 1;
11027
0
  else if (off - (8 - odd) + (0x20002ULL << 32) < 0x40004ULL << 32)
11028
0
    return 2;
11029
0
  else
11030
0
    return 3;
11031
0
}
11032
11033
static Elf_Internal_Rela *
11034
emit_relocs_for_power10_offset (struct bfd_link_info *info,
11035
        Elf_Internal_Rela *r, bfd_vma roff,
11036
        bfd_vma targ, bfd_vma off, int odd)
11037
0
{
11038
0
  if (off - odd + (1ULL << 33) < 1ULL << 34)
11039
0
    roff += odd;
11040
0
  else if (off - (8 - odd) + (0x20002ULL << 32) < 0x40004ULL << 32)
11041
0
    {
11042
0
      int d_offset = bfd_big_endian (info->output_bfd) ? 2 : 0;
11043
0
      r->r_offset = roff + d_offset;
11044
0
      r->r_addend = targ + 8 - odd - d_offset;
11045
0
      r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HIGHERA34);
11046
0
      ++r;
11047
0
      roff += 8 - odd;
11048
0
    }
11049
0
  else
11050
0
    {
11051
0
      int d_offset = bfd_big_endian (info->output_bfd) ? 2 : 0;
11052
0
      r->r_offset = roff + d_offset;
11053
0
      r->r_addend = targ + 8 + odd - d_offset;
11054
0
      r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HIGHESTA34);
11055
0
      ++r;
11056
0
      roff += 4;
11057
0
      r->r_offset = roff + d_offset;
11058
0
      r->r_addend = targ + 4 + odd - d_offset;
11059
0
      r->r_info = ELF64_R_INFO (0, R_PPC64_REL16_HIGHERA34);
11060
0
      ++r;
11061
0
      roff += 4 + odd;
11062
0
    }
11063
0
  r->r_offset = roff;
11064
0
  r->r_addend = targ;
11065
0
  r->r_info = ELF64_R_INFO (0, R_PPC64_PCREL34);
11066
0
  return r;
11067
0
}
11068
11069
/* Emit .eh_frame opcode to advance pc by DELTA.  */
11070
11071
static bfd_byte *
11072
eh_advance (bfd *abfd, bfd_byte *eh, unsigned int delta)
11073
0
{
11074
0
  delta /= 4;
11075
0
  if (delta < 64)
11076
0
    *eh++ = DW_CFA_advance_loc + delta;
11077
0
  else if (delta < 256)
11078
0
    {
11079
0
      *eh++ = DW_CFA_advance_loc1;
11080
0
      *eh++ = delta;
11081
0
    }
11082
0
  else if (delta < 65536)
11083
0
    {
11084
0
      *eh++ = DW_CFA_advance_loc2;
11085
0
      bfd_put_16 (abfd, delta, eh);
11086
0
      eh += 2;
11087
0
    }
11088
0
  else
11089
0
    {
11090
0
      *eh++ = DW_CFA_advance_loc4;
11091
0
      bfd_put_32 (abfd, delta, eh);
11092
0
      eh += 4;
11093
0
    }
11094
0
  return eh;
11095
0
}
11096
11097
/* Size of required .eh_frame opcode to advance pc by DELTA.  */
11098
11099
static unsigned int
11100
eh_advance_size (unsigned int delta)
11101
0
{
11102
0
  if (delta < 64 * 4)
11103
    /* DW_CFA_advance_loc+[1..63].  */
11104
0
    return 1;
11105
0
  if (delta < 256 * 4)
11106
    /* DW_CFA_advance_loc1, byte.  */
11107
0
    return 2;
11108
0
  if (delta < 65536 * 4)
11109
    /* DW_CFA_advance_loc2, 2 bytes.  */
11110
0
    return 3;
11111
  /* DW_CFA_advance_loc4, 4 bytes.  */
11112
0
  return 5;
11113
0
}
11114
11115
/* With power7 weakly ordered memory model, it is possible for ld.so
11116
   to update a plt entry in one thread and have another thread see a
11117
   stale zero toc entry.  To avoid this we need some sort of acquire
11118
   barrier in the call stub.  One solution is to make the load of the
11119
   toc word seem to appear to depend on the load of the function entry
11120
   word.  Another solution is to test for r2 being zero, and branch to
11121
   the appropriate glink entry if so.
11122
11123
   .  fake dep barrier  compare
11124
   .  ld 12,xxx(2)    ld 12,xxx(2)
11125
   .  mtctr 12    mtctr 12
11126
   .  xor 11,12,12    ld 2,xxx+8(2)
11127
   .  add 2,2,11    cmpldi 2,0
11128
   .  ld 2,xxx+8(2)   bnectr+
11129
   .  bctr      b <glink_entry>
11130
11131
   The solution involving the compare turns out to be faster, so
11132
   that's what we use unless the branch won't reach.  */
11133
11134
0
#define ALWAYS_USE_FAKE_DEP 0
11135
0
#define ALWAYS_EMIT_R2SAVE 0
11136
11137
static inline unsigned int
11138
plt_stub_size (struct ppc_link_hash_table *htab,
11139
         struct ppc_stub_hash_entry *stub_entry,
11140
         bfd_vma off,
11141
         unsigned int odd)
11142
0
{
11143
0
  unsigned size;
11144
11145
0
  if (stub_entry->type.sub == ppc_stub_notoc)
11146
0
    {
11147
0
      size = 8 + size_power10_offset (off, odd);
11148
0
      if (stub_entry->type.r2save)
11149
0
  size += 4;
11150
0
    }
11151
0
  else if (stub_entry->type.sub == ppc_stub_p9notoc)
11152
0
    {
11153
0
      size = 8 + size_offset (off - 8);
11154
0
      if (stub_entry->type.r2save)
11155
0
  size += 4;
11156
0
    }
11157
0
  else
11158
0
    {
11159
0
      size = 12;
11160
0
      if (ALWAYS_EMIT_R2SAVE || stub_entry->type.r2save)
11161
0
  size += 4;
11162
0
      if (PPC_HA (off) != 0)
11163
0
  size += 4;
11164
0
      if (htab->opd_abi)
11165
0
  {
11166
0
    size += 4;
11167
0
    if (htab->params->plt_static_chain)
11168
0
      size += 4;
11169
0
    if (htab->params->plt_thread_safe
11170
0
        && htab->elf.dynamic_sections_created
11171
0
        && stub_entry->h != NULL
11172
0
        && stub_entry->h->elf.dynindx != -1)
11173
0
      size += 8;
11174
0
    if (PPC_HA (off + 8 + 8 * htab->params->plt_static_chain)
11175
0
        != PPC_HA (off))
11176
0
      size += 4;
11177
0
  }
11178
0
    }
11179
0
  if (stub_entry->h != NULL
11180
0
      && is_tls_get_addr (&stub_entry->h->elf, htab)
11181
0
      && htab->params->tls_get_addr_opt)
11182
0
    {
11183
0
      if (!htab->params->no_tls_get_addr_regsave)
11184
0
  {
11185
0
    size += 30 * 4;
11186
0
    if (stub_entry->type.r2save)
11187
0
      size += 4;
11188
0
  }
11189
0
      else
11190
0
  {
11191
0
    size += 7 * 4;
11192
0
    if (stub_entry->type.r2save)
11193
0
      size += 6 * 4;
11194
0
  }
11195
0
    }
11196
0
  return size;
11197
0
}
11198
11199
/* Depending on the sign of plt_stub_align:
11200
   If positive, return the padding to align to a 2**plt_stub_align
11201
   boundary.
11202
   If negative, if this stub would cross fewer 2**plt_stub_align
11203
   boundaries if we align, then return the padding needed to do so.  */
11204
11205
static inline unsigned int
11206
plt_stub_pad (int plt_stub_align,
11207
        bfd_vma stub_off,
11208
        unsigned int stub_size)
11209
0
{
11210
0
  unsigned int stub_align;
11211
11212
0
  if (plt_stub_align >= 0)
11213
0
    stub_align = 1u << plt_stub_align;
11214
0
  else
11215
0
    {
11216
0
      stub_align = 1u << -plt_stub_align;
11217
0
      if (((stub_off + stub_size - 1) & -stub_align) - (stub_off & -stub_align)
11218
0
    <= ((stub_size - 1) & -stub_align))
11219
0
  return 0;
11220
0
    }
11221
0
  return stub_align - 1 - ((stub_off - 1) & (stub_align - 1));
11222
0
}
11223
11224
/* Build a toc using .plt call stub.  */
11225
11226
static inline bfd_byte *
11227
build_plt_stub (struct ppc_link_hash_table *htab,
11228
    struct ppc_stub_hash_entry *stub_entry,
11229
    bfd_byte *p, bfd_vma offset, Elf_Internal_Rela *r)
11230
0
{
11231
0
  bfd *obfd = htab->params->stub_bfd;
11232
0
  bool plt_load_toc = htab->opd_abi;
11233
0
  bool plt_static_chain = htab->params->plt_static_chain;
11234
0
  bool plt_thread_safe = (htab->params->plt_thread_safe
11235
0
        && htab->elf.dynamic_sections_created
11236
0
        && stub_entry->h != NULL
11237
0
        && stub_entry->h->elf.dynindx != -1);
11238
0
  bool use_fake_dep = plt_thread_safe;
11239
0
  bfd_vma cmp_branch_off = 0;
11240
11241
0
  if (!ALWAYS_USE_FAKE_DEP
11242
0
      && plt_load_toc
11243
0
      && plt_thread_safe
11244
0
      && !(stub_entry->h != NULL
11245
0
     && is_tls_get_addr (&stub_entry->h->elf, htab)
11246
0
     && htab->params->tls_get_addr_opt))
11247
0
    {
11248
0
      bfd_vma pltoff = stub_entry->plt_ent->plt.offset & ~1;
11249
0
      bfd_vma pltindex = ((pltoff - PLT_INITIAL_ENTRY_SIZE (htab))
11250
0
        / PLT_ENTRY_SIZE (htab));
11251
0
      bfd_vma glinkoff = GLINK_PLTRESOLVE_SIZE (htab) + pltindex * 8;
11252
0
      bfd_vma to, from;
11253
11254
0
      if (pltindex > 32768)
11255
0
  glinkoff += (pltindex - 32768) * 4;
11256
0
      to = (glinkoff
11257
0
      + htab->glink->output_offset
11258
0
      + htab->glink->output_section->vma);
11259
0
      from = (p - stub_entry->group->stub_sec->contents
11260
0
        + 4 * (ALWAYS_EMIT_R2SAVE || stub_entry->type.r2save)
11261
0
        + 4 * (PPC_HA (offset) != 0)
11262
0
        + 4 * (PPC_HA (offset + 8 + 8 * plt_static_chain)
11263
0
         != PPC_HA (offset))
11264
0
        + 4 * (plt_static_chain != 0)
11265
0
        + 20
11266
0
        + stub_entry->group->stub_sec->output_offset
11267
0
        + stub_entry->group->stub_sec->output_section->vma);
11268
0
      cmp_branch_off = to - from;
11269
0
      use_fake_dep = cmp_branch_off + (1 << 25) >= (1 << 26);
11270
0
    }
11271
11272
0
  if (PPC_HA (offset) != 0)
11273
0
    {
11274
0
      if (r != NULL)
11275
0
  {
11276
0
    if (ALWAYS_EMIT_R2SAVE || stub_entry->type.r2save)
11277
0
      r[0].r_offset += 4;
11278
0
    r[0].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_HA);
11279
0
    r[1].r_offset = r[0].r_offset + 4;
11280
0
    r[1].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS);
11281
0
    r[1].r_addend = r[0].r_addend;
11282
0
    if (plt_load_toc)
11283
0
      {
11284
0
        if (PPC_HA (offset + 8 + 8 * plt_static_chain) != PPC_HA (offset))
11285
0
    {
11286
0
      r[2].r_offset = r[1].r_offset + 4;
11287
0
      r[2].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_LO);
11288
0
      r[2].r_addend = r[0].r_addend;
11289
0
    }
11290
0
        else
11291
0
    {
11292
0
      r[2].r_offset = r[1].r_offset + 8 + 8 * use_fake_dep;
11293
0
      r[2].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS);
11294
0
      r[2].r_addend = r[0].r_addend + 8;
11295
0
      if (plt_static_chain)
11296
0
        {
11297
0
          r[3].r_offset = r[2].r_offset + 4;
11298
0
          r[3].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS);
11299
0
          r[3].r_addend = r[0].r_addend + 16;
11300
0
        }
11301
0
    }
11302
0
      }
11303
0
  }
11304
0
      if (ALWAYS_EMIT_R2SAVE || stub_entry->type.r2save)
11305
0
  bfd_put_32 (obfd, STD_R2_0R1 + STK_TOC (htab), p),  p += 4;
11306
0
      if (plt_load_toc)
11307
0
  {
11308
0
    bfd_put_32 (obfd, ADDIS_R11_R2 | PPC_HA (offset), p), p += 4;
11309
0
    bfd_put_32 (obfd, LD_R12_0R11 | PPC_LO (offset), p),  p += 4;
11310
0
  }
11311
0
      else
11312
0
  {
11313
0
    bfd_put_32 (obfd, ADDIS_R12_R2 | PPC_HA (offset), p), p += 4;
11314
0
    bfd_put_32 (obfd, LD_R12_0R12 | PPC_LO (offset), p),  p += 4;
11315
0
  }
11316
0
      if (plt_load_toc
11317
0
    && PPC_HA (offset + 8 + 8 * plt_static_chain) != PPC_HA (offset))
11318
0
  {
11319
0
    bfd_put_32 (obfd, ADDI_R11_R11 | PPC_LO (offset), p), p += 4;
11320
0
    offset = 0;
11321
0
  }
11322
0
      bfd_put_32 (obfd, MTCTR_R12, p),        p += 4;
11323
0
      if (plt_load_toc)
11324
0
  {
11325
0
    if (use_fake_dep)
11326
0
      {
11327
0
        bfd_put_32 (obfd, XOR_R2_R12_R12, p),   p += 4;
11328
0
        bfd_put_32 (obfd, ADD_R11_R11_R2, p),   p += 4;
11329
0
      }
11330
0
    bfd_put_32 (obfd, LD_R2_0R11 | PPC_LO (offset + 8), p), p += 4;
11331
0
    if (plt_static_chain)
11332
0
      bfd_put_32 (obfd, LD_R11_0R11 | PPC_LO (offset + 16), p), p += 4;
11333
0
  }
11334
0
    }
11335
0
  else
11336
0
    {
11337
0
      if (r != NULL)
11338
0
  {
11339
0
    if (ALWAYS_EMIT_R2SAVE || stub_entry->type.r2save)
11340
0
      r[0].r_offset += 4;
11341
0
    r[0].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_DS);
11342
0
    if (plt_load_toc)
11343
0
      {
11344
0
        if (PPC_HA (offset + 8 + 8 * plt_static_chain) != PPC_HA (offset))
11345
0
    {
11346
0
      r[1].r_offset = r[0].r_offset + 4;
11347
0
      r[1].r_info = ELF64_R_INFO (0, R_PPC64_TOC16);
11348
0
      r[1].r_addend = r[0].r_addend;
11349
0
    }
11350
0
        else
11351
0
    {
11352
0
      r[1].r_offset = r[0].r_offset + 8 + 8 * use_fake_dep;
11353
0
      r[1].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_DS);
11354
0
      r[1].r_addend = r[0].r_addend + 8 + 8 * plt_static_chain;
11355
0
      if (plt_static_chain)
11356
0
        {
11357
0
          r[2].r_offset = r[1].r_offset + 4;
11358
0
          r[2].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_DS);
11359
0
          r[2].r_addend = r[0].r_addend + 8;
11360
0
        }
11361
0
    }
11362
0
      }
11363
0
  }
11364
0
      if (ALWAYS_EMIT_R2SAVE || stub_entry->type.r2save)
11365
0
  bfd_put_32 (obfd, STD_R2_0R1 + STK_TOC (htab), p),  p += 4;
11366
0
      bfd_put_32 (obfd, LD_R12_0R2 | PPC_LO (offset), p), p += 4;
11367
0
      if (plt_load_toc
11368
0
    && PPC_HA (offset + 8 + 8 * plt_static_chain) != PPC_HA (offset))
11369
0
  {
11370
0
    bfd_put_32 (obfd, ADDI_R2_R2 | PPC_LO (offset), p), p += 4;
11371
0
    offset = 0;
11372
0
  }
11373
0
      bfd_put_32 (obfd, MTCTR_R12, p),        p += 4;
11374
0
      if (plt_load_toc)
11375
0
  {
11376
0
    if (use_fake_dep)
11377
0
      {
11378
0
        bfd_put_32 (obfd, XOR_R11_R12_R12, p),    p += 4;
11379
0
        bfd_put_32 (obfd, ADD_R2_R2_R11, p),    p += 4;
11380
0
      }
11381
0
    if (plt_static_chain)
11382
0
      bfd_put_32 (obfd, LD_R11_0R2 | PPC_LO (offset + 16), p), p += 4;
11383
0
    bfd_put_32 (obfd, LD_R2_0R2 | PPC_LO (offset + 8), p), p += 4;
11384
0
  }
11385
0
    }
11386
0
  if (plt_load_toc && plt_thread_safe && !use_fake_dep)
11387
0
    {
11388
0
      bfd_put_32 (obfd, CMPLDI_R2_0, p),      p += 4;
11389
0
      bfd_put_32 (obfd, BNECTR_P4, p),        p += 4;
11390
0
      bfd_put_32 (obfd, B_DOT | (cmp_branch_off & 0x3fffffc), p), p += 4;
11391
0
    }
11392
0
  else
11393
0
    bfd_put_32 (obfd, BCTR, p),         p += 4;
11394
0
  return p;
11395
0
}
11396
11397
/* Build a special .plt call stub for __tls_get_addr.  */
11398
11399
#define LD_R0_0R3 0xe8030000
11400
#define LD_R12_0R3  0xe9830000
11401
#define MR_R0_R3  0x7c601b78
11402
#define CMPDI_R0_0  0x2c200000
11403
#define ADD_R3_R12_R13  0x7c6c6a14
11404
#define BEQLR   0x4d820020
11405
#define MR_R3_R0  0x7c030378
11406
#define BCTRL   0x4e800421
11407
11408
static bfd_byte *
11409
build_tls_get_addr_head (struct ppc_link_hash_table *htab,
11410
       struct ppc_stub_hash_entry *stub_entry,
11411
       bfd_byte *p)
11412
0
{
11413
0
  bfd *obfd = htab->params->stub_bfd;
11414
11415
0
  bfd_put_32 (obfd, LD_R0_0R3 + 0, p),    p += 4;
11416
0
  bfd_put_32 (obfd, LD_R12_0R3 + 8, p),   p += 4;
11417
0
  bfd_put_32 (obfd, CMPDI_R0_0, p),   p += 4;
11418
0
  bfd_put_32 (obfd, MR_R0_R3, p),   p += 4;
11419
0
  bfd_put_32 (obfd, ADD_R3_R12_R13, p),   p += 4;
11420
0
  bfd_put_32 (obfd, BEQLR, p),      p += 4;
11421
0
  bfd_put_32 (obfd, MR_R3_R0, p),   p += 4;
11422
11423
0
  if (!htab->params->no_tls_get_addr_regsave)
11424
0
    p = tls_get_addr_prologue (obfd, p, htab);
11425
0
  else if (stub_entry->type.r2save)
11426
0
    {
11427
0
      bfd_put_32 (obfd, MFLR_R0, p);
11428
0
      p += 4;
11429
0
      bfd_put_32 (obfd, STD_R0_0R1 + STK_LINKER (htab), p);
11430
0
      p += 4;
11431
0
    }
11432
0
  return p;
11433
0
}
11434
11435
static bfd_byte *
11436
build_tls_get_addr_tail (struct ppc_link_hash_table *htab,
11437
       struct ppc_stub_hash_entry *stub_entry,
11438
       bfd_byte *p,
11439
       bfd_byte *loc)
11440
0
{
11441
0
  bfd *obfd = htab->params->stub_bfd;
11442
11443
0
  if (!htab->params->no_tls_get_addr_regsave)
11444
0
    {
11445
0
      bfd_put_32 (obfd, BCTRL, p - 4);
11446
11447
0
      if (stub_entry->type.r2save)
11448
0
  {
11449
0
    bfd_put_32 (obfd, LD_R2_0R1 + STK_TOC (htab), p);
11450
0
    p += 4;
11451
0
  }
11452
0
      p = tls_get_addr_epilogue (obfd, p, htab);
11453
0
    }
11454
0
  else if (stub_entry->type.r2save)
11455
0
    {
11456
0
      bfd_put_32 (obfd, BCTRL, p - 4);
11457
11458
0
      bfd_put_32 (obfd, LD_R2_0R1 + STK_TOC (htab), p);
11459
0
      p += 4;
11460
0
      bfd_put_32 (obfd, LD_R0_0R1 + STK_LINKER (htab), p);
11461
0
      p += 4;
11462
0
      bfd_put_32 (obfd, MTLR_R0, p);
11463
0
      p += 4;
11464
0
      bfd_put_32 (obfd, BLR, p);
11465
0
      p += 4;
11466
0
    }
11467
11468
0
  if (htab->glink_eh_frame != NULL
11469
0
      && htab->glink_eh_frame->size != 0)
11470
0
    {
11471
0
      bfd_byte *base, *eh;
11472
11473
0
      base = htab->glink_eh_frame->contents + stub_entry->group->eh_base + 17;
11474
0
      eh = base + stub_entry->group->eh_size;
11475
11476
0
      if (!htab->params->no_tls_get_addr_regsave)
11477
0
  {
11478
0
    unsigned int cfa_updt, delta, i;
11479
11480
    /* After the bctrl, lr has been modified so we need to emit
11481
       .eh_frame info saying the return address is on the stack.  In
11482
       fact we must put the EH info at or before the call rather
11483
       than after it, because the EH info for a call needs to be
11484
       specified by that point.
11485
       See libgcc/unwind-dw2.c execute_cfa_program.
11486
       Any stack pointer update must be described immediately after
11487
       the instruction making the change, and since the stdu occurs
11488
       after saving regs we put all the reg saves and the cfa
11489
       change there.  */
11490
0
    cfa_updt = stub_entry->stub_offset + 18 * 4;
11491
0
    delta = cfa_updt - stub_entry->group->lr_restore;
11492
0
    stub_entry->group->lr_restore
11493
0
      = stub_entry->stub_offset + (p - loc) - 4;
11494
0
    eh = eh_advance (htab->elf.dynobj, eh, delta);
11495
0
    *eh++ = DW_CFA_def_cfa_offset;
11496
0
    if (htab->opd_abi)
11497
0
      {
11498
0
        *eh++ = 128;
11499
0
        *eh++ = 1;
11500
0
      }
11501
0
    else
11502
0
      *eh++ = 96;
11503
0
    *eh++ = DW_CFA_offset_extended_sf;
11504
0
    *eh++ = 65;
11505
0
    *eh++ = (-16 / 8) & 0x7f;
11506
0
    for (i = 4; i < 12; i++)
11507
0
      {
11508
0
        *eh++ = DW_CFA_offset + i;
11509
0
        *eh++ = (htab->opd_abi ? 13 : 12) - i;
11510
0
      }
11511
0
    *eh++ = (DW_CFA_advance_loc
11512
0
       + (stub_entry->group->lr_restore - 8 - cfa_updt) / 4);
11513
0
    *eh++ = DW_CFA_def_cfa_offset;
11514
0
    *eh++ = 0;
11515
0
    for (i = 4; i < 12; i++)
11516
0
      *eh++ = DW_CFA_restore + i;
11517
0
    *eh++ = DW_CFA_advance_loc + 2;
11518
0
    *eh++ = DW_CFA_restore_extended;
11519
0
    *eh++ = 65;
11520
0
    stub_entry->group->eh_size = eh - base;
11521
0
  }
11522
0
      else if (stub_entry->type.r2save)
11523
0
  {
11524
0
    unsigned int lr_used, delta;
11525
11526
0
    lr_used = stub_entry->stub_offset + (p - 20 - loc);
11527
0
    delta = lr_used - stub_entry->group->lr_restore;
11528
0
    stub_entry->group->lr_restore = lr_used + 16;
11529
0
    eh = eh_advance (htab->elf.dynobj, eh, delta);
11530
0
    *eh++ = DW_CFA_offset_extended_sf;
11531
0
    *eh++ = 65;
11532
0
    *eh++ = -(STK_LINKER (htab) / 8) & 0x7f;
11533
0
    *eh++ = DW_CFA_advance_loc + 4;
11534
0
    *eh++ = DW_CFA_restore_extended;
11535
0
    *eh++ = 65;
11536
0
    stub_entry->group->eh_size = eh - base;
11537
0
  }
11538
0
    }
11539
0
  return p;
11540
0
}
11541
11542
static Elf_Internal_Rela *
11543
get_relocs (asection *sec, int count)
11544
0
{
11545
0
  Elf_Internal_Rela *relocs;
11546
0
  struct bfd_elf_section_data *elfsec_data;
11547
11548
0
  elfsec_data = elf_section_data (sec);
11549
0
  relocs = elfsec_data->relocs;
11550
0
  if (relocs == NULL)
11551
0
    {
11552
0
      bfd_size_type relsize;
11553
0
      relsize = sec->reloc_count * sizeof (*relocs);
11554
0
      relocs = bfd_alloc (sec->owner, relsize);
11555
0
      if (relocs == NULL)
11556
0
  return NULL;
11557
0
      elfsec_data->relocs = relocs;
11558
0
      elfsec_data->rela.hdr = bfd_zalloc (sec->owner,
11559
0
            sizeof (Elf_Internal_Shdr));
11560
0
      if (elfsec_data->rela.hdr == NULL)
11561
0
  return NULL;
11562
0
      elfsec_data->rela.hdr->sh_size = (sec->reloc_count
11563
0
          * sizeof (Elf64_External_Rela));
11564
0
      elfsec_data->rela.hdr->sh_entsize = sizeof (Elf64_External_Rela);
11565
0
      sec->reloc_count = 0;
11566
0
    }
11567
0
  relocs += sec->reloc_count;
11568
0
  sec->reloc_count += count;
11569
0
  return relocs;
11570
0
}
11571
11572
static bool
11573
swap_reloc_out (bfd *obfd, Elf_Internal_Rela *rel, bfd_byte *loc, asection *s)
11574
0
{
11575
0
  if ((size_t) (loc - s->contents) >= s->size)
11576
0
    return false;
11577
0
  bfd_elf64_swap_reloca_out (obfd, rel, loc);
11578
0
  return true;
11579
0
}
11580
11581
static bool
11582
count_and_swap_reloc_out (bfd *obfd, Elf_Internal_Rela *rel, asection *s)
11583
0
{
11584
0
  bfd_byte *loc = s->contents;
11585
0
  loc += s->reloc_count++ * sizeof (Elf64_External_Rela);
11586
0
  return swap_reloc_out (obfd, rel, loc, s);
11587
0
}
11588
11589
11590
/* Convert the relocs R[0] thru R[-NUM_REL+1], which are all no-symbol
11591
   forms, to the equivalent relocs against the global symbol given by
11592
   STUB_ENTRY->H.  */
11593
11594
static bool
11595
use_global_in_relocs (struct ppc_link_hash_table *htab,
11596
          struct ppc_stub_hash_entry *stub_entry,
11597
          Elf_Internal_Rela *r, unsigned int num_rel)
11598
0
{
11599
0
  struct elf_link_hash_entry **hashes;
11600
0
  unsigned long symndx;
11601
0
  struct ppc_link_hash_entry *h;
11602
0
  bfd_vma symval;
11603
11604
  /* Relocs are always against symbols in their own object file.  Fake
11605
     up global sym hashes for the stub bfd (which has no symbols).  */
11606
0
  hashes = elf_sym_hashes (htab->params->stub_bfd);
11607
0
  if (hashes == NULL)
11608
0
    {
11609
0
      bfd_size_type hsize;
11610
11611
      /* When called the first time, stub_globals will contain the
11612
   total number of symbols seen during stub sizing.  After
11613
   allocating, stub_globals is used as an index to fill the
11614
   hashes array.  */
11615
0
      hsize = (htab->stub_globals + 1) * sizeof (*hashes);
11616
0
      hashes = bfd_zalloc (htab->params->stub_bfd, hsize);
11617
0
      if (hashes == NULL)
11618
0
  return false;
11619
0
      elf_sym_hashes (htab->params->stub_bfd) = hashes;
11620
0
      htab->stub_globals = 1;
11621
0
    }
11622
0
  symndx = htab->stub_globals++;
11623
0
  h = stub_entry->h;
11624
0
  hashes[symndx] = &h->elf;
11625
0
  if (h->oh != NULL && h->oh->is_func)
11626
0
    h = ppc_follow_link (h->oh);
11627
0
  BFD_ASSERT (h->elf.root.type == bfd_link_hash_defined
11628
0
        || h->elf.root.type == bfd_link_hash_defweak);
11629
0
  symval = defined_sym_val (&h->elf);
11630
0
  while (num_rel-- != 0)
11631
0
    {
11632
0
      r->r_info = ELF64_R_INFO (symndx, ELF64_R_TYPE (r->r_info));
11633
0
      if (h->elf.root.u.def.section != stub_entry->target_section)
11634
0
  {
11635
    /* H is an opd symbol.  The addend must be zero, and the
11636
       branch reloc is the only one we can convert.  */
11637
0
    r->r_addend = 0;
11638
0
    break;
11639
0
  }
11640
0
      else
11641
0
  r->r_addend -= symval;
11642
0
      --r;
11643
0
    }
11644
0
  return true;
11645
0
}
11646
11647
static bfd_vma
11648
get_r2off (struct bfd_link_info *info,
11649
     struct ppc_stub_hash_entry *stub_entry)
11650
0
{
11651
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
11652
0
  bfd_vma r2off = htab->sec_info[stub_entry->target_section->id].toc_off;
11653
11654
0
  if (r2off == 0)
11655
0
    {
11656
      /* Support linking -R objects.  Get the toc pointer from the
11657
   opd entry.  */
11658
0
      char buf[8];
11659
0
      if (!htab->opd_abi)
11660
0
  return r2off;
11661
0
      asection *opd = stub_entry->h->elf.root.u.def.section;
11662
0
      bfd_vma opd_off = stub_entry->h->elf.root.u.def.value;
11663
11664
0
      if (strcmp (opd->name, ".opd") != 0
11665
0
    || opd->reloc_count != 0)
11666
0
  {
11667
0
    info->callbacks->einfo
11668
0
      (_("%P: cannot find opd entry toc for `%pT'\n"),
11669
0
       stub_entry->h->elf.root.root.string);
11670
0
    bfd_set_error (bfd_error_bad_value);
11671
0
    return (bfd_vma) -1;
11672
0
  }
11673
0
      if (!bfd_get_section_contents (opd->owner, opd, buf, opd_off + 8, 8))
11674
0
  return (bfd_vma) -1;
11675
0
      r2off = bfd_get_64 (opd->owner, buf);
11676
0
      r2off -= elf_gp (info->output_bfd);
11677
0
    }
11678
0
  r2off -= htab->sec_info[stub_entry->group->link_sec->id].toc_off;
11679
0
  return r2off;
11680
0
}
11681
11682
/* Debug dump.  */
11683
11684
static void
11685
dump_stub (const char *header,
11686
     struct ppc_stub_hash_entry *stub_entry,
11687
     size_t end_offset)
11688
0
{
11689
0
  const char *t1, *t2, *t3;
11690
0
  switch (stub_entry->type.main)
11691
0
    {
11692
0
    case ppc_stub_none:   t1 = "none";    break;
11693
0
    case ppc_stub_long_branch:  t1 = "long_branch"; break;
11694
0
    case ppc_stub_plt_branch: t1 = "plt_branch";  break;
11695
0
    case ppc_stub_plt_call: t1 = "plt_call";  break;
11696
0
    case ppc_stub_global_entry: t1 = "global_entry";  break;
11697
0
    case ppc_stub_save_res: t1 = "save_res";  break;
11698
0
    default:      t1 = "???";   break;
11699
0
    }
11700
0
  switch (stub_entry->type.sub)
11701
0
    {
11702
0
    case ppc_stub_toc:    t2 = "toc";   break;
11703
0
    case ppc_stub_notoc:  t2 = "notoc";   break;
11704
0
    case ppc_stub_p9notoc:  t2 = "p9notoc";   break;
11705
0
    default:      t2 = "???";   break;
11706
0
    }
11707
0
  t3 = stub_entry->type.r2save ? "r2save" : "";
11708
0
  fprintf (stderr, "%s id = %u type = %s:%s:%s\n",
11709
0
     header, stub_entry->id, t1, t2, t3);
11710
0
  fprintf (stderr, "name = %s\n", stub_entry->root.string);
11711
0
  fprintf (stderr, "offset = 0x%" PRIx64 ":", stub_entry->stub_offset);
11712
0
  for (size_t i = stub_entry->stub_offset; i < end_offset; i += 4)
11713
0
    {
11714
0
      asection *stub_sec = stub_entry->group->stub_sec;
11715
0
      uint32_t *p = (uint32_t *) (stub_sec->contents + i);
11716
0
      fprintf (stderr, " %08x", (uint32_t) bfd_get_32 (stub_sec->owner, p));
11717
0
    }
11718
0
  fprintf (stderr, "\n");
11719
0
}
11720
11721
static bool
11722
ppc_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
11723
0
{
11724
0
  struct ppc_stub_hash_entry *stub_entry;
11725
0
  struct ppc_branch_hash_entry *br_entry;
11726
0
  struct bfd_link_info *info;
11727
0
  struct ppc_link_hash_table *htab;
11728
0
  bfd *obfd;
11729
0
  bfd_byte *loc;
11730
0
  bfd_byte *p, *relp;
11731
0
  bfd_vma targ, off;
11732
0
  Elf_Internal_Rela *r;
11733
0
  asection *plt;
11734
0
  int num_rel;
11735
0
  int odd;
11736
0
  bool is_tga;
11737
11738
  /* Massage our args to the form they really have.  */
11739
0
  stub_entry = (struct ppc_stub_hash_entry *) gen_entry;
11740
0
  info = in_arg;
11741
11742
0
  htab = ppc_hash_table (info);
11743
0
  if (htab == NULL)
11744
0
    return false;
11745
11746
0
  struct _ppc64_elf_section_data *esd
11747
0
    = ppc64_elf_section_data (stub_entry->group->stub_sec);
11748
0
  ++htab->stub_id;
11749
0
  if (stub_entry->id != htab->stub_id
11750
0
      || (stub_entry->type.main != ppc_stub_save_res
11751
0
    && stub_entry->stub_offset < stub_entry->group->stub_sec->size))
11752
0
    {
11753
0
      BFD_ASSERT (0);
11754
0
      if (stub_entry->id != htab->stub_id)
11755
0
  fprintf (stderr, "Expected id %u, got %u\n",
11756
0
     htab->stub_id, stub_entry->id);
11757
0
      if (stub_entry->stub_offset < stub_entry->group->stub_sec->size)
11758
0
  fprintf (stderr, "Expected offset >= %" PRIx64 ", got %"
11759
0
     PRIx64 "\n", stub_entry->group->stub_sec->size,
11760
0
     stub_entry->stub_offset);
11761
0
      if (esd->sec_type == sec_stub)
11762
0
  dump_stub ("Previous:", esd->u.last_ent, stub_entry->stub_offset);
11763
0
      dump_stub ("Current:", stub_entry, 0);
11764
0
    }
11765
0
  if (esd->sec_type == sec_normal)
11766
0
    esd->sec_type = sec_stub;
11767
0
  if (esd->sec_type == sec_stub)
11768
0
    esd->u.last_ent = stub_entry;
11769
0
  loc = stub_entry->group->stub_sec->contents + stub_entry->stub_offset;
11770
11771
0
  htab->stub_count[stub_entry->type.main - 1] += 1;
11772
0
  if (stub_entry->type.main == ppc_stub_long_branch
11773
0
      && stub_entry->type.sub == ppc_stub_toc)
11774
0
    {
11775
      /* Branches are relative.  This is where we are going to.  */
11776
0
      targ = (stub_entry->target_value
11777
0
        + stub_entry->target_section->output_offset
11778
0
        + stub_entry->target_section->output_section->vma);
11779
0
      targ += PPC64_LOCAL_ENTRY_OFFSET (stub_entry->other);
11780
11781
      /* And this is where we are coming from.  */
11782
0
      off = (stub_entry->stub_offset
11783
0
       + stub_entry->group->stub_sec->output_offset
11784
0
       + stub_entry->group->stub_sec->output_section->vma);
11785
0
      off = targ - off;
11786
11787
0
      p = loc;
11788
0
      obfd = htab->params->stub_bfd;
11789
0
      if (stub_entry->type.r2save)
11790
0
  {
11791
0
    bfd_vma r2off = get_r2off (info, stub_entry);
11792
11793
0
    if (r2off == (bfd_vma) -1)
11794
0
      {
11795
0
        htab->stub_error = true;
11796
0
        return false;
11797
0
      }
11798
0
    bfd_put_32 (obfd, STD_R2_0R1 + STK_TOC (htab), p);
11799
0
    p += 4;
11800
0
    if (PPC_HA (r2off) != 0)
11801
0
      {
11802
0
        bfd_put_32 (obfd, ADDIS_R2_R2 | PPC_HA (r2off), p);
11803
0
        p += 4;
11804
0
      }
11805
0
    if (PPC_LO (r2off) != 0)
11806
0
      {
11807
0
        bfd_put_32 (obfd, ADDI_R2_R2 | PPC_LO (r2off), p);
11808
0
        p += 4;
11809
0
      }
11810
0
    off -= p - loc;
11811
0
  }
11812
0
      bfd_put_32 (obfd, B_DOT | (off & 0x3fffffc), p);
11813
0
      p += 4;
11814
11815
0
      if (off + (1 << 25) >= (bfd_vma) (1 << 26))
11816
0
  {
11817
0
    _bfd_error_handler
11818
0
      (_("long branch stub `%s' offset overflow"),
11819
0
       stub_entry->root.string);
11820
0
    htab->stub_error = true;
11821
0
    return false;
11822
0
  }
11823
11824
0
      if (info->emitrelocations)
11825
0
  {
11826
0
    r = get_relocs (stub_entry->group->stub_sec, 1);
11827
0
    if (r == NULL)
11828
0
      return false;
11829
0
    r->r_offset = p - 4 - stub_entry->group->stub_sec->contents;
11830
0
    r->r_info = ELF64_R_INFO (0, R_PPC64_REL24);
11831
0
    r->r_addend = targ;
11832
0
    if (stub_entry->h != NULL
11833
0
        && !use_global_in_relocs (htab, stub_entry, r, 1))
11834
0
      return false;
11835
0
  }
11836
0
    }
11837
0
  else if (stub_entry->type.main == ppc_stub_plt_branch
11838
0
     && stub_entry->type.sub == ppc_stub_toc)
11839
0
    {
11840
0
      br_entry = ppc_branch_hash_lookup (&htab->branch_hash_table,
11841
0
           stub_entry->root.string + 9,
11842
0
           false, false);
11843
0
      if (br_entry == NULL)
11844
0
  {
11845
0
    _bfd_error_handler (_("can't find branch stub `%s'"),
11846
0
            stub_entry->root.string);
11847
0
    htab->stub_error = true;
11848
0
    return false;
11849
0
  }
11850
11851
0
      targ = (stub_entry->target_value
11852
0
        + stub_entry->target_section->output_offset
11853
0
        + stub_entry->target_section->output_section->vma);
11854
0
      if (!stub_entry->type.r2save)
11855
0
  targ += PPC64_LOCAL_ENTRY_OFFSET (stub_entry->other);
11856
11857
0
      bfd_put_64 (htab->brlt->owner, targ,
11858
0
      htab->brlt->contents + br_entry->offset);
11859
11860
0
      if (br_entry->iter == htab->stub_iteration)
11861
0
  {
11862
0
    br_entry->iter = 0;
11863
11864
0
    if (htab->relbrlt != NULL && !info->enable_dt_relr)
11865
0
      {
11866
        /* Create a reloc for the branch lookup table entry.  */
11867
0
        Elf_Internal_Rela rela;
11868
11869
0
        rela.r_offset = (br_entry->offset
11870
0
             + htab->brlt->output_offset
11871
0
             + htab->brlt->output_section->vma);
11872
0
        rela.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
11873
0
        rela.r_addend = targ;
11874
11875
0
        BFD_ASSERT (count_and_swap_reloc_out (htab->relbrlt->owner, &rela,
11876
0
                htab->relbrlt));
11877
0
      }
11878
0
    else if (info->emitrelocations)
11879
0
      {
11880
0
        r = get_relocs (htab->brlt, 1);
11881
0
        if (r == NULL)
11882
0
    return false;
11883
        /* brlt, being SEC_LINKER_CREATED does not go through the
11884
     normal reloc processing.  Symbols and offsets are not
11885
     translated from input file to output file form, so
11886
     set up the offset per the output file.  */
11887
0
        r->r_offset = (br_entry->offset
11888
0
           + htab->brlt->output_offset
11889
0
           + htab->brlt->output_section->vma);
11890
0
        r->r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
11891
0
        r->r_addend = targ;
11892
0
      }
11893
0
  }
11894
11895
0
      targ = (br_entry->offset
11896
0
        + htab->brlt->output_offset
11897
0
        + htab->brlt->output_section->vma);
11898
11899
0
      off = (elf_gp (info->output_bfd)
11900
0
       + htab->sec_info[stub_entry->group->link_sec->id].toc_off);
11901
0
      off = targ - off;
11902
11903
0
      if (off + 0x80008000 > 0xffffffff || (off & 7) != 0)
11904
0
  {
11905
0
    info->callbacks->einfo
11906
0
      (_("%P: linkage table error against `%pT'\n"),
11907
0
       stub_entry->root.string);
11908
0
    bfd_set_error (bfd_error_bad_value);
11909
0
    htab->stub_error = true;
11910
0
    return false;
11911
0
  }
11912
11913
0
      if (info->emitrelocations)
11914
0
  {
11915
0
    r = get_relocs (stub_entry->group->stub_sec, 1 + (PPC_HA (off) != 0));
11916
0
    if (r == NULL)
11917
0
      return false;
11918
0
    r[0].r_offset = loc - stub_entry->group->stub_sec->contents;
11919
0
    if (bfd_big_endian (info->output_bfd))
11920
0
      r[0].r_offset += 2;
11921
0
    if (stub_entry->type.r2save)
11922
0
      r[0].r_offset += 4;
11923
0
    r[0].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_DS);
11924
0
    r[0].r_addend = targ;
11925
0
    if (PPC_HA (off) != 0)
11926
0
      {
11927
0
        r[0].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_HA);
11928
0
        r[1].r_offset = r[0].r_offset + 4;
11929
0
        r[1].r_info = ELF64_R_INFO (0, R_PPC64_TOC16_LO_DS);
11930
0
        r[1].r_addend = r[0].r_addend;
11931
0
      }
11932
0
  }
11933
11934
0
      p = loc;
11935
0
      obfd = htab->params->stub_bfd;
11936
0
      if (!stub_entry->type.r2save)
11937
0
  {
11938
0
    if (PPC_HA (off) != 0)
11939
0
      {
11940
0
        bfd_put_32 (obfd, ADDIS_R12_R2 | PPC_HA (off), p);
11941
0
        p += 4;
11942
0
        bfd_put_32 (obfd, LD_R12_0R12 | PPC_LO (off), p);
11943
0
      }
11944
0
    else
11945
0
      bfd_put_32 (obfd, LD_R12_0R2 | PPC_LO (off), p);
11946
0
  }
11947
0
      else
11948
0
  {
11949
0
    bfd_vma r2off = get_r2off (info, stub_entry);
11950
11951
0
    if (r2off == (bfd_vma) -1)
11952
0
      {
11953
0
        htab->stub_error = true;
11954
0
        return false;
11955
0
      }
11956
11957
0
    bfd_put_32 (obfd, STD_R2_0R1 + STK_TOC (htab), p);
11958
0
    p += 4;
11959
0
    if (PPC_HA (off) != 0)
11960
0
      {
11961
0
        bfd_put_32 (obfd, ADDIS_R12_R2 | PPC_HA (off), p);
11962
0
        p += 4;
11963
0
        bfd_put_32 (obfd, LD_R12_0R12 | PPC_LO (off), p);
11964
0
      }
11965
0
    else
11966
0
      bfd_put_32 (obfd, LD_R12_0R2 | PPC_LO (off), p);
11967
11968
0
    if (PPC_HA (r2off) != 0)
11969
0
      {
11970
0
        p += 4;
11971
0
        bfd_put_32 (obfd, ADDIS_R2_R2 | PPC_HA (r2off), p);
11972
0
      }
11973
0
    if (PPC_LO (r2off) != 0)
11974
0
      {
11975
0
        p += 4;
11976
0
        bfd_put_32 (obfd, ADDI_R2_R2 | PPC_LO (r2off), p);
11977
0
      }
11978
0
  }
11979
0
      p += 4;
11980
0
      bfd_put_32 (obfd, MTCTR_R12, p);
11981
0
      p += 4;
11982
0
      bfd_put_32 (obfd, BCTR, p);
11983
0
      p += 4;
11984
0
    }
11985
0
  else if (stub_entry->type.sub >= ppc_stub_notoc)
11986
0
    {
11987
0
      bool is_plt = stub_entry->type.main == ppc_stub_plt_call;
11988
0
      p = loc;
11989
0
      off = (stub_entry->stub_offset
11990
0
       + stub_entry->group->stub_sec->output_offset
11991
0
       + stub_entry->group->stub_sec->output_section->vma);
11992
0
      obfd = htab->params->stub_bfd;
11993
0
      is_tga = (is_plt
11994
0
    && stub_entry->h != NULL
11995
0
    && is_tls_get_addr (&stub_entry->h->elf, htab)
11996
0
    && htab->params->tls_get_addr_opt);
11997
0
      if (is_tga)
11998
0
  {
11999
0
    p = build_tls_get_addr_head (htab, stub_entry, p);
12000
0
    off += p - loc;
12001
0
  }
12002
0
      if (stub_entry->type.r2save)
12003
0
  {
12004
0
    off += 4;
12005
0
    bfd_put_32 (obfd, STD_R2_0R1 + STK_TOC (htab), p);
12006
0
    p += 4;
12007
0
  }
12008
0
      if (is_plt)
12009
0
  {
12010
0
    targ = stub_entry->plt_ent->plt.offset & ~1;
12011
0
    if (targ >= (bfd_vma) -2)
12012
0
      abort ();
12013
12014
0
    plt = htab->elf.splt;
12015
0
    if (use_local_plt (info, elf_hash_entry (stub_entry->h)))
12016
0
      {
12017
0
        if (stub_entry->symtype == STT_GNU_IFUNC)
12018
0
    plt = htab->elf.iplt;
12019
0
        else
12020
0
    plt = htab->pltlocal;
12021
0
      }
12022
0
    targ += plt->output_offset + plt->output_section->vma;
12023
0
  }
12024
0
      else
12025
0
  targ = (stub_entry->target_value
12026
0
    + stub_entry->target_section->output_offset
12027
0
    + stub_entry->target_section->output_section->vma);
12028
0
      odd = off & 4;
12029
0
      off = targ - off;
12030
12031
0
      relp = p;
12032
0
      num_rel = 0;
12033
0
      if (stub_entry->type.sub == ppc_stub_notoc)
12034
0
  p = build_power10_offset (obfd, p, off, odd, is_plt);
12035
0
      else
12036
0
  {
12037
0
    if (htab->glink_eh_frame != NULL
12038
0
        && htab->glink_eh_frame->size != 0)
12039
0
      {
12040
0
        bfd_byte *base, *eh;
12041
0
        unsigned int lr_used, delta;
12042
12043
0
        base = (htab->glink_eh_frame->contents
12044
0
          + stub_entry->group->eh_base + 17);
12045
0
        eh = base + stub_entry->group->eh_size;
12046
0
        lr_used = stub_entry->stub_offset + (p - loc) + 8;
12047
0
        delta = lr_used - stub_entry->group->lr_restore;
12048
0
        stub_entry->group->lr_restore = lr_used + 8;
12049
0
        eh = eh_advance (htab->elf.dynobj, eh, delta);
12050
0
        *eh++ = DW_CFA_register;
12051
0
        *eh++ = 65;
12052
0
        *eh++ = 12;
12053
0
        *eh++ = DW_CFA_advance_loc + 2;
12054
0
        *eh++ = DW_CFA_restore_extended;
12055
0
        *eh++ = 65;
12056
0
        stub_entry->group->eh_size = eh - base;
12057
0
      }
12058
12059
    /* The notoc stubs calculate their target (either a PLT entry or
12060
       the global entry point of a function) relative to the PC
12061
       returned by the "bcl" two instructions past the start of the
12062
       sequence emitted by build_offset.  The offset is therefore 8
12063
       less than calculated from the start of the sequence.  */
12064
0
    off -= 8;
12065
0
    p = build_offset (obfd, p, off, is_plt);
12066
0
  }
12067
12068
0
      if (stub_entry->type.main == ppc_stub_long_branch)
12069
0
  {
12070
0
    bfd_vma from;
12071
0
    num_rel = 1;
12072
0
    from = (stub_entry->stub_offset
12073
0
      + stub_entry->group->stub_sec->output_offset
12074
0
      + stub_entry->group->stub_sec->output_section->vma
12075
0
      + (p - loc));
12076
0
    bfd_put_32 (obfd, B_DOT | ((targ - from) & 0x3fffffc), p);
12077
0
  }
12078
0
      else
12079
0
  {
12080
0
    bfd_put_32 (obfd, MTCTR_R12, p);
12081
0
    p += 4;
12082
0
    bfd_put_32 (obfd, BCTR, p);
12083
0
  }
12084
0
      p += 4;
12085
12086
0
      if (is_tga)
12087
0
  p = build_tls_get_addr_tail (htab, stub_entry, p, loc);
12088
12089
0
      if (info->emitrelocations)
12090
0
  {
12091
0
    bfd_vma roff = relp - stub_entry->group->stub_sec->contents;
12092
0
    if (stub_entry->type.sub == ppc_stub_notoc)
12093
0
      num_rel += num_relocs_for_power10_offset (off, odd);
12094
0
    else
12095
0
      {
12096
0
        num_rel += num_relocs_for_offset (off);
12097
0
        roff += 16;
12098
0
      }
12099
0
    r = get_relocs (stub_entry->group->stub_sec, num_rel);
12100
0
    if (r == NULL)
12101
0
      return false;
12102
0
    if (stub_entry->type.sub == ppc_stub_notoc)
12103
0
      r = emit_relocs_for_power10_offset (info, r, roff, targ, off, odd);
12104
0
    else
12105
0
      r = emit_relocs_for_offset (info, r, roff, targ, off);
12106
0
    if (stub_entry->type.main == ppc_stub_long_branch)
12107
0
      {
12108
0
        ++r;
12109
0
        roff = p - 4 - stub_entry->group->stub_sec->contents;
12110
0
        r->r_offset = roff;
12111
0
        r->r_info = ELF64_R_INFO (0, R_PPC64_REL24);
12112
0
        r->r_addend = targ;
12113
0
        if (stub_entry->h != NULL
12114
0
      && !use_global_in_relocs (htab, stub_entry, r, num_rel))
12115
0
    return false;
12116
0
      }
12117
0
  }
12118
0
    }
12119
0
  else if (stub_entry->type.main == ppc_stub_plt_call)
12120
0
    {
12121
0
      if (stub_entry->h != NULL
12122
0
    && stub_entry->h->is_func_descriptor
12123
0
    && stub_entry->h->oh != NULL)
12124
0
  {
12125
0
    struct ppc_link_hash_entry *fh = ppc_follow_link (stub_entry->h->oh);
12126
12127
    /* If the old-ABI "dot-symbol" is undefined make it weak so
12128
       we don't get a link error from RELOC_FOR_GLOBAL_SYMBOL.  */
12129
0
    if (fh->elf.root.type == bfd_link_hash_undefined
12130
0
        && (stub_entry->h->elf.root.type == bfd_link_hash_defined
12131
0
      || stub_entry->h->elf.root.type == bfd_link_hash_defweak))
12132
0
      fh->elf.root.type = bfd_link_hash_undefweak;
12133
0
  }
12134
12135
      /* Now build the stub.  */
12136
0
      targ = stub_entry->plt_ent->plt.offset & ~1;
12137
0
      if (targ >= (bfd_vma) -2)
12138
0
  abort ();
12139
12140
0
      plt = htab->elf.splt;
12141
0
      if (use_local_plt (info, elf_hash_entry (stub_entry->h)))
12142
0
  {
12143
0
    if (stub_entry->symtype == STT_GNU_IFUNC)
12144
0
      plt = htab->elf.iplt;
12145
0
    else
12146
0
      plt = htab->pltlocal;
12147
0
  }
12148
0
      targ += plt->output_offset + plt->output_section->vma;
12149
12150
0
      off = (elf_gp (info->output_bfd)
12151
0
       + htab->sec_info[stub_entry->group->link_sec->id].toc_off);
12152
0
      off = targ - off;
12153
12154
0
      if (off + 0x80008000 > 0xffffffff || (off & 7) != 0)
12155
0
  {
12156
0
    info->callbacks->einfo
12157
      /* xgettext:c-format */
12158
0
      (_("%P: linkage table error against `%pT'\n"),
12159
0
       stub_entry->h != NULL
12160
0
       ? stub_entry->h->elf.root.root.string
12161
0
       : "<local sym>");
12162
0
    bfd_set_error (bfd_error_bad_value);
12163
0
    htab->stub_error = true;
12164
0
    return false;
12165
0
  }
12166
12167
0
      r = NULL;
12168
0
      if (info->emitrelocations)
12169
0
  {
12170
0
    r = get_relocs (stub_entry->group->stub_sec,
12171
0
        ((PPC_HA (off) != 0)
12172
0
         + (htab->opd_abi
12173
0
            ? 2 + (htab->params->plt_static_chain
12174
0
             && PPC_HA (off + 16) == PPC_HA (off))
12175
0
            : 1)));
12176
0
    if (r == NULL)
12177
0
      return false;
12178
0
    r[0].r_offset = loc - stub_entry->group->stub_sec->contents;
12179
0
    if (bfd_big_endian (info->output_bfd))
12180
0
      r[0].r_offset += 2;
12181
0
    r[0].r_addend = targ;
12182
0
  }
12183
0
      p = loc;
12184
0
      obfd = htab->params->stub_bfd;
12185
0
      is_tga = (stub_entry->h != NULL
12186
0
    && is_tls_get_addr (&stub_entry->h->elf, htab)
12187
0
    && htab->params->tls_get_addr_opt);
12188
0
      if (is_tga)
12189
0
  {
12190
0
    p = build_tls_get_addr_head (htab, stub_entry, p);
12191
0
    if (r != NULL)
12192
0
      r[0].r_offset += p - loc;
12193
0
  }
12194
0
      p = build_plt_stub (htab, stub_entry, p, off, r);
12195
0
      if (is_tga)
12196
0
  p = build_tls_get_addr_tail (htab, stub_entry, p, loc);
12197
0
    }
12198
0
  else if (stub_entry->type.main == ppc_stub_save_res)
12199
0
    return true;
12200
0
  else
12201
0
    {
12202
0
      BFD_FAIL ();
12203
0
      return false;
12204
0
    }
12205
12206
0
  stub_entry->group->stub_sec->size = stub_entry->stub_offset + (p - loc);
12207
12208
0
  if (htab->params->emit_stub_syms)
12209
0
    {
12210
0
      struct elf_link_hash_entry *h;
12211
0
      size_t len1, len2;
12212
0
      char *name;
12213
0
      const char *const stub_str[] = { "long_branch",
12214
0
               "plt_branch",
12215
0
               "plt_call" };
12216
12217
0
      len1 = strlen (stub_str[stub_entry->type.main - 1]);
12218
0
      len2 = strlen (stub_entry->root.string);
12219
0
      name = bfd_malloc (len1 + len2 + 2);
12220
0
      if (name == NULL)
12221
0
  return false;
12222
0
      memcpy (name, stub_entry->root.string, 9);
12223
0
      memcpy (name + 9, stub_str[stub_entry->type.main - 1], len1);
12224
0
      memcpy (name + len1 + 9, stub_entry->root.string + 8, len2 - 8 + 1);
12225
0
      h = elf_link_hash_lookup (&htab->elf, name, true, false, false);
12226
0
      if (h == NULL)
12227
0
  return false;
12228
0
      if (h->root.type == bfd_link_hash_new)
12229
0
  {
12230
0
    h->root.type = bfd_link_hash_defined;
12231
0
    h->root.u.def.section = stub_entry->group->stub_sec;
12232
0
    h->root.u.def.value = stub_entry->stub_offset;
12233
0
    h->ref_regular = 1;
12234
0
    h->def_regular = 1;
12235
0
    h->ref_regular_nonweak = 1;
12236
0
    h->forced_local = 1;
12237
0
    h->non_elf = 0;
12238
0
    h->root.linker_def = 1;
12239
0
  }
12240
0
    }
12241
12242
0
  return true;
12243
0
}
12244
12245
/* As above, but don't actually build the stub.  Just bump offset so
12246
   we know stub section sizes, and select plt_branch stubs where
12247
   long_branch stubs won't do.  */
12248
12249
static bool
12250
ppc_size_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
12251
0
{
12252
0
  struct ppc_stub_hash_entry *stub_entry;
12253
0
  struct bfd_link_info *info;
12254
0
  struct ppc_link_hash_table *htab;
12255
0
  asection *plt;
12256
0
  bfd_vma targ, off, r2off;
12257
0
  unsigned int size, pad, extra, lr_used, delta, odd;
12258
0
  bfd_vma stub_offset;
12259
12260
  /* Massage our args to the form they really have.  */
12261
0
  stub_entry = (struct ppc_stub_hash_entry *) gen_entry;
12262
0
  info = in_arg;
12263
12264
0
  htab = ppc_hash_table (info);
12265
0
  if (htab == NULL)
12266
0
    return false;
12267
12268
  /* Fail if the target section could not be assigned to an output
12269
     section.  The user should fix his linker script.  */
12270
0
  if (stub_entry->target_section != NULL
12271
0
      && stub_entry->target_section->output_section == NULL
12272
0
      && info->non_contiguous_regions)
12273
0
    info->callbacks->einfo (_("%F%P: Could not assign `%pA' to an output section. "
12274
0
            "Retry without --enable-non-contiguous-regions.\n"),
12275
0
          stub_entry->target_section);
12276
12277
  /* Same for the group.  */
12278
0
  if (stub_entry->group->stub_sec != NULL
12279
0
      && stub_entry->group->stub_sec->output_section == NULL
12280
0
      && info->non_contiguous_regions)
12281
0
    info->callbacks->einfo (_("%F%P: Could not assign `%pA' to an output section. "
12282
0
            "Retry without --enable-non-contiguous-regions.\n"),
12283
0
          stub_entry->group->stub_sec);
12284
12285
  /* Make a note of the offset within the stubs for this entry.  */
12286
0
  stub_offset = stub_entry->group->stub_sec->size;
12287
0
  if (htab->stub_iteration > STUB_SHRINK_ITER
12288
0
      && stub_entry->stub_offset > stub_offset)
12289
0
    stub_offset = stub_entry->stub_offset;
12290
0
  stub_entry->id = ++htab->stub_id;
12291
12292
0
  if (stub_entry->h != NULL
12293
0
      && stub_entry->h->save_res
12294
0
      && stub_entry->h->elf.root.type == bfd_link_hash_defined
12295
0
      && stub_entry->h->elf.root.u.def.section == htab->sfpr)
12296
0
    {
12297
      /* Don't make stubs to out-of-line register save/restore
12298
   functions.  Instead, emit copies of the functions.  */
12299
0
      stub_entry->group->needs_save_res = 1;
12300
0
      stub_entry->type.main = ppc_stub_save_res;
12301
0
      stub_entry->type.sub = ppc_stub_toc;
12302
0
      stub_entry->type.r2save = 0;
12303
0
      return true;
12304
0
    }
12305
12306
0
  if (stub_entry->type.main == ppc_stub_plt_branch)
12307
0
    {
12308
      /* Reset the stub type from the plt branch variant in case we now
12309
   can reach with a shorter stub.  */
12310
0
      stub_entry->type.main = ppc_stub_long_branch;
12311
0
    }
12312
12313
0
  if (stub_entry->type.main == ppc_stub_long_branch
12314
0
      && stub_entry->type.sub == ppc_stub_toc)
12315
0
    {
12316
0
      targ = (stub_entry->target_value
12317
0
        + stub_entry->target_section->output_offset
12318
0
        + stub_entry->target_section->output_section->vma);
12319
0
      targ += PPC64_LOCAL_ENTRY_OFFSET (stub_entry->other);
12320
0
      off = (stub_offset
12321
0
       + stub_entry->group->stub_sec->output_offset
12322
0
       + stub_entry->group->stub_sec->output_section->vma);
12323
12324
0
      size = 4;
12325
0
      r2off = 0;
12326
0
      if (stub_entry->type.r2save)
12327
0
  {
12328
0
    r2off = get_r2off (info, stub_entry);
12329
0
    if (r2off == (bfd_vma) -1)
12330
0
      {
12331
0
        htab->stub_error = true;
12332
0
        return false;
12333
0
      }
12334
0
    size = 8;
12335
0
    if (PPC_HA (r2off) != 0)
12336
0
      size += 4;
12337
0
    if (PPC_LO (r2off) != 0)
12338
0
      size += 4;
12339
0
    off += size - 4;
12340
0
  }
12341
0
      off = targ - off;
12342
12343
      /* If the branch offset is too big, use a ppc_stub_plt_branch.
12344
   Do the same for -R objects without function descriptors.  */
12345
0
      if ((stub_entry->type.r2save
12346
0
     && r2off == 0
12347
0
     && htab->sec_info[stub_entry->target_section->id].toc_off == 0)
12348
0
    || off + (1 << 25) >= (bfd_vma) (1 << 26))
12349
0
  {
12350
0
    struct ppc_branch_hash_entry *br_entry;
12351
12352
0
    br_entry = ppc_branch_hash_lookup (&htab->branch_hash_table,
12353
0
               stub_entry->root.string + 9,
12354
0
               true, false);
12355
0
    if (br_entry == NULL)
12356
0
      {
12357
0
        _bfd_error_handler (_("can't build branch stub `%s'"),
12358
0
          stub_entry->root.string);
12359
0
        htab->stub_error = true;
12360
0
        return false;
12361
0
      }
12362
12363
0
    if (br_entry->iter != htab->stub_iteration)
12364
0
      {
12365
0
        br_entry->iter = htab->stub_iteration;
12366
0
        br_entry->offset = htab->brlt->size;
12367
0
        htab->brlt->size += 8;
12368
12369
0
        if (htab->relbrlt != NULL && !info->enable_dt_relr)
12370
0
    htab->relbrlt->size += sizeof (Elf64_External_Rela);
12371
0
        else if (info->emitrelocations)
12372
0
    {
12373
0
      htab->brlt->reloc_count += 1;
12374
0
      htab->brlt->flags |= SEC_RELOC;
12375
0
    }
12376
0
      }
12377
12378
0
    targ = (br_entry->offset
12379
0
      + htab->brlt->output_offset
12380
0
      + htab->brlt->output_section->vma);
12381
0
    off = (elf_gp (info->output_bfd)
12382
0
     + htab->sec_info[stub_entry->group->link_sec->id].toc_off);
12383
0
    off = targ - off;
12384
12385
0
    if (info->emitrelocations)
12386
0
      {
12387
0
        stub_entry->group->stub_sec->reloc_count
12388
0
    += 1 + (PPC_HA (off) != 0);
12389
0
        stub_entry->group->stub_sec->flags |= SEC_RELOC;
12390
0
      }
12391
12392
0
    stub_entry->type.main = ppc_stub_plt_branch;
12393
0
    if (!stub_entry->type.r2save)
12394
0
      {
12395
0
        size = 12;
12396
0
        if (PPC_HA (off) != 0)
12397
0
    size = 16;
12398
0
      }
12399
0
    else
12400
0
      {
12401
0
        size = 16;
12402
0
        if (PPC_HA (off) != 0)
12403
0
    size += 4;
12404
12405
0
        if (PPC_HA (r2off) != 0)
12406
0
    size += 4;
12407
0
        if (PPC_LO (r2off) != 0)
12408
0
    size += 4;
12409
0
      }
12410
0
    pad = plt_stub_pad (htab->params->plt_stub_align, stub_offset, size);
12411
0
    stub_offset += pad;
12412
0
  }
12413
0
      else if (info->emitrelocations)
12414
0
  {
12415
0
    stub_entry->group->stub_sec->reloc_count += 1;
12416
0
    stub_entry->group->stub_sec->flags |= SEC_RELOC;
12417
0
  }
12418
0
    }
12419
0
  else if (stub_entry->type.main == ppc_stub_long_branch)
12420
0
    {
12421
0
      off = (stub_offset
12422
0
       + stub_entry->group->stub_sec->output_offset
12423
0
       + stub_entry->group->stub_sec->output_section->vma);
12424
0
      size = 0;
12425
0
      if (stub_entry->type.r2save)
12426
0
  size = 4;
12427
0
      off += size;
12428
0
      targ = (stub_entry->target_value
12429
0
        + stub_entry->target_section->output_offset
12430
0
        + stub_entry->target_section->output_section->vma);
12431
0
      odd = off & 4;
12432
0
      off = targ - off;
12433
12434
0
      if (stub_entry->type.sub == ppc_stub_notoc)
12435
0
  extra = size_power10_offset (off, odd);
12436
0
      else
12437
0
  extra = size_offset (off - 8);
12438
      /* Include branch insn plus those in the offset sequence.  */
12439
0
      size += 4 + extra;
12440
12441
      /* If the branch can't reach, use a plt_branch.
12442
   The branch insn is at the end, or "extra" bytes along.  So
12443
   its offset will be "extra" bytes less that that already
12444
   calculated.  */
12445
0
      if (off - extra + (1 << 25) >= (bfd_vma) (1 << 26))
12446
0
  {
12447
0
    stub_entry->type.main = ppc_stub_plt_branch;
12448
0
    size += 4;
12449
0
    pad = plt_stub_pad (htab->params->plt_stub_align, stub_offset, size);
12450
0
    if (pad != 0)
12451
0
      {
12452
0
        stub_offset += pad;
12453
0
        off -= pad;
12454
0
        odd ^= pad & 4;
12455
0
        size -= extra;
12456
0
        if (stub_entry->type.sub == ppc_stub_notoc)
12457
0
    extra = size_power10_offset (off, odd);
12458
0
        else
12459
0
    extra = size_offset (off - 8);
12460
0
        size += extra;
12461
0
      }
12462
0
  }
12463
0
      else if (info->emitrelocations)
12464
0
  stub_entry->group->stub_sec->reloc_count +=1;
12465
12466
0
      if (info->emitrelocations)
12467
0
  {
12468
0
    unsigned int num_rel;
12469
0
    if (stub_entry->type.sub == ppc_stub_notoc)
12470
0
      num_rel = num_relocs_for_power10_offset (off, odd);
12471
0
    else
12472
0
      num_rel = num_relocs_for_offset (off - 8);
12473
0
    stub_entry->group->stub_sec->reloc_count += num_rel;
12474
0
    stub_entry->group->stub_sec->flags |= SEC_RELOC;
12475
0
  }
12476
12477
0
      if (stub_entry->type.sub != ppc_stub_notoc)
12478
0
  {
12479
    /* After the bcl, lr has been modified so we need to emit
12480
       .eh_frame info saying the return address is in r12.  */
12481
0
    lr_used = stub_offset + 8;
12482
0
    if (stub_entry->type.r2save)
12483
0
      lr_used += 4;
12484
    /* The eh_frame info will consist of a DW_CFA_advance_loc or
12485
       variant, DW_CFA_register, 65, 12, DW_CFA_advance_loc+2,
12486
       DW_CFA_restore_extended 65.  */
12487
0
    delta = lr_used - stub_entry->group->lr_restore;
12488
0
    stub_entry->group->eh_size += eh_advance_size (delta) + 6;
12489
0
    stub_entry->group->lr_restore = lr_used + 8;
12490
0
  }
12491
0
    }
12492
0
  else if (stub_entry->type.sub >= ppc_stub_notoc)
12493
0
    {
12494
0
      BFD_ASSERT (stub_entry->type.main == ppc_stub_plt_call);
12495
0
      lr_used = 0;
12496
0
      if (stub_entry->h != NULL
12497
0
    && is_tls_get_addr (&stub_entry->h->elf, htab)
12498
0
    && htab->params->tls_get_addr_opt)
12499
0
  {
12500
0
    lr_used += 7 * 4;
12501
0
    if (!htab->params->no_tls_get_addr_regsave)
12502
0
      lr_used += 11 * 4;
12503
0
    else if (stub_entry->type.r2save)
12504
0
      lr_used += 2 * 4;
12505
0
  }
12506
0
      if (stub_entry->type.r2save)
12507
0
  lr_used += 4;
12508
0
      targ = stub_entry->plt_ent->plt.offset & ~1;
12509
0
      if (targ >= (bfd_vma) -2)
12510
0
  abort ();
12511
12512
0
      plt = htab->elf.splt;
12513
0
      if (use_local_plt (info, elf_hash_entry (stub_entry->h)))
12514
0
  {
12515
0
    if (stub_entry->symtype == STT_GNU_IFUNC)
12516
0
      plt = htab->elf.iplt;
12517
0
    else
12518
0
      plt = htab->pltlocal;
12519
0
  }
12520
0
      targ += plt->output_offset + plt->output_section->vma;
12521
0
      off = (stub_offset
12522
0
       + stub_entry->group->stub_sec->output_offset
12523
0
       + stub_entry->group->stub_sec->output_section->vma
12524
0
       + lr_used);
12525
0
      odd = off & 4;
12526
0
      off = targ - off;
12527
12528
0
      size = plt_stub_size (htab, stub_entry, off, odd);
12529
0
      pad = plt_stub_pad (htab->params->plt_stub_align, stub_offset, size);
12530
0
      if (pad != 0)
12531
0
  {
12532
0
    stub_offset += pad;
12533
0
    off -= pad;
12534
0
    odd ^= pad & 4;
12535
0
    size = plt_stub_size (htab, stub_entry, off, odd);
12536
0
  }
12537
12538
0
      if (info->emitrelocations)
12539
0
  {
12540
0
    unsigned int num_rel;
12541
0
    if (stub_entry->type.sub == ppc_stub_notoc)
12542
0
      num_rel = num_relocs_for_power10_offset (off, odd);
12543
0
    else
12544
0
      num_rel = num_relocs_for_offset (off - 8);
12545
0
    stub_entry->group->stub_sec->reloc_count += num_rel;
12546
0
    stub_entry->group->stub_sec->flags |= SEC_RELOC;
12547
0
  }
12548
12549
0
      if (stub_entry->type.sub != ppc_stub_notoc)
12550
0
  {
12551
    /* After the bcl, lr has been modified so we need to emit
12552
       .eh_frame info saying the return address is in r12.  */
12553
0
    lr_used += stub_offset + 8;
12554
    /* The eh_frame info will consist of a DW_CFA_advance_loc or
12555
       variant, DW_CFA_register, 65, 12, DW_CFA_advance_loc+2,
12556
       DW_CFA_restore_extended 65.  */
12557
0
    delta = lr_used - stub_entry->group->lr_restore;
12558
0
    stub_entry->group->eh_size += eh_advance_size (delta) + 6;
12559
0
    stub_entry->group->lr_restore = lr_used + 8;
12560
0
  }
12561
0
      if (stub_entry->h != NULL
12562
0
    && is_tls_get_addr (&stub_entry->h->elf, htab)
12563
0
    && htab->params->tls_get_addr_opt)
12564
0
  {
12565
0
    if (!htab->params->no_tls_get_addr_regsave)
12566
0
      {
12567
0
        unsigned int cfa_updt = stub_offset + 18 * 4;
12568
0
        delta = cfa_updt - stub_entry->group->lr_restore;
12569
0
        stub_entry->group->eh_size += eh_advance_size (delta);
12570
0
        stub_entry->group->eh_size += htab->opd_abi ? 36 : 35;
12571
0
        stub_entry->group->lr_restore = stub_offset + size - 4;
12572
0
      }
12573
0
    else if (stub_entry->type.r2save)
12574
0
      {
12575
0
        lr_used = stub_offset + size - 20;
12576
0
        delta = lr_used - stub_entry->group->lr_restore;
12577
0
        stub_entry->group->eh_size += eh_advance_size (delta) + 6;
12578
0
        stub_entry->group->lr_restore = stub_offset + size - 4;
12579
0
      }
12580
0
  }
12581
0
    }
12582
0
  else if (stub_entry->type.main == ppc_stub_plt_call)
12583
0
    {
12584
0
      targ = stub_entry->plt_ent->plt.offset & ~(bfd_vma) 1;
12585
0
      if (targ >= (bfd_vma) -2)
12586
0
  abort ();
12587
0
      plt = htab->elf.splt;
12588
0
      if (use_local_plt (info, elf_hash_entry (stub_entry->h)))
12589
0
  {
12590
0
    if (stub_entry->symtype == STT_GNU_IFUNC)
12591
0
      plt = htab->elf.iplt;
12592
0
    else
12593
0
      plt = htab->pltlocal;
12594
0
  }
12595
0
      targ += plt->output_offset + plt->output_section->vma;
12596
12597
0
      off = (elf_gp (info->output_bfd)
12598
0
       + htab->sec_info[stub_entry->group->link_sec->id].toc_off);
12599
0
      off = targ - off;
12600
12601
0
      size = plt_stub_size (htab, stub_entry, off, 0);
12602
0
      pad = plt_stub_pad (htab->params->plt_stub_align, stub_offset, size);
12603
0
      stub_offset += pad;
12604
12605
0
      if (info->emitrelocations)
12606
0
  {
12607
0
    stub_entry->group->stub_sec->reloc_count
12608
0
      += ((PPC_HA (off) != 0)
12609
0
    + (htab->opd_abi
12610
0
       ? 2 + (htab->params->plt_static_chain
12611
0
        && PPC_HA (off + 16) == PPC_HA (off))
12612
0
       : 1));
12613
0
    stub_entry->group->stub_sec->flags |= SEC_RELOC;
12614
0
  }
12615
12616
0
      if (stub_entry->h != NULL
12617
0
    && is_tls_get_addr (&stub_entry->h->elf, htab)
12618
0
    && htab->params->tls_get_addr_opt
12619
0
    && stub_entry->type.r2save)
12620
0
  {
12621
0
    if (!htab->params->no_tls_get_addr_regsave)
12622
0
      {
12623
        /* Adjustments to r1 need to be described.  */
12624
0
        unsigned int cfa_updt = stub_offset + 18 * 4;
12625
0
        delta = cfa_updt - stub_entry->group->lr_restore;
12626
0
        stub_entry->group->eh_size += eh_advance_size (delta);
12627
0
        stub_entry->group->eh_size += htab->opd_abi ? 36 : 35;
12628
0
      }
12629
0
    else
12630
0
      {
12631
0
        lr_used = stub_offset + size - 20;
12632
        /* The eh_frame info will consist of a DW_CFA_advance_loc
12633
     or variant, DW_CFA_offset_externed_sf, 65, -stackoff,
12634
     DW_CFA_advance_loc+4, DW_CFA_restore_extended, 65.  */
12635
0
        delta = lr_used - stub_entry->group->lr_restore;
12636
0
        stub_entry->group->eh_size += eh_advance_size (delta) + 6;
12637
0
      }
12638
0
    stub_entry->group->lr_restore = stub_offset + size - 4;
12639
0
  }
12640
0
    }
12641
0
  else
12642
0
    {
12643
0
      BFD_FAIL ();
12644
0
      return false;
12645
0
    }
12646
12647
0
  if (stub_entry->stub_offset != stub_offset)
12648
0
    htab->stub_changed = true;
12649
0
  stub_entry->stub_offset = stub_offset;
12650
0
  stub_entry->group->stub_sec->size = stub_offset + size;
12651
0
  return true;
12652
0
}
12653
12654
/* Set up various things so that we can make a list of input sections
12655
   for each output section included in the link.  Returns -1 on error,
12656
   0 when no stubs will be needed, and 1 on success.  */
12657
12658
int
12659
ppc64_elf_setup_section_lists (struct bfd_link_info *info)
12660
0
{
12661
0
  unsigned int id;
12662
0
  size_t amt;
12663
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
12664
12665
0
  if (htab == NULL)
12666
0
    return -1;
12667
12668
0
  htab->sec_info_arr_size = _bfd_section_id;
12669
0
  amt = sizeof (*htab->sec_info) * (htab->sec_info_arr_size);
12670
0
  htab->sec_info = bfd_zmalloc (amt);
12671
0
  if (htab->sec_info == NULL)
12672
0
    return -1;
12673
12674
  /* Set toc_off for com, und, abs and ind sections.  */
12675
0
  for (id = 0; id < 3; id++)
12676
0
    htab->sec_info[id].toc_off = TOC_BASE_OFF;
12677
12678
0
  return 1;
12679
0
}
12680
12681
/* Set up for first pass at multitoc partitioning.  */
12682
12683
void
12684
ppc64_elf_start_multitoc_partition (struct bfd_link_info *info)
12685
0
{
12686
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
12687
12688
0
  htab->toc_curr = ppc64_elf_set_toc (info, info->output_bfd);
12689
0
  htab->toc_bfd = NULL;
12690
0
  htab->toc_first_sec = NULL;
12691
0
}
12692
12693
/* The linker repeatedly calls this function for each TOC input section
12694
   and linker generated GOT section.  Group input bfds such that the toc
12695
   within a group is less than 64k in size.  */
12696
12697
bool
12698
ppc64_elf_next_toc_section (struct bfd_link_info *info, asection *isec)
12699
0
{
12700
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
12701
0
  bfd_vma addr, off, limit;
12702
12703
0
  if (htab == NULL)
12704
0
    return false;
12705
12706
0
  if (!htab->second_toc_pass)
12707
0
    {
12708
      /* Keep track of the first .toc or .got section for this input bfd.  */
12709
0
      bool new_bfd = htab->toc_bfd != isec->owner;
12710
12711
0
      if (new_bfd)
12712
0
  {
12713
0
    htab->toc_bfd = isec->owner;
12714
0
    htab->toc_first_sec = isec;
12715
0
  }
12716
12717
0
      addr = isec->output_offset + isec->output_section->vma;
12718
0
      off = addr - htab->toc_curr;
12719
0
      limit = 0x80008000;
12720
0
      if (ppc64_elf_tdata (isec->owner)->has_small_toc_reloc)
12721
0
  limit = 0x10000;
12722
0
      if (off + isec->size > limit)
12723
0
  {
12724
0
    addr = (htab->toc_first_sec->output_offset
12725
0
      + htab->toc_first_sec->output_section->vma);
12726
0
    htab->toc_curr = addr;
12727
0
    htab->toc_curr &= -TOC_BASE_ALIGN;
12728
0
  }
12729
12730
      /* toc_curr is the base address of this toc group.  Set elf_gp
12731
   for the input section to be the offset relative to the
12732
   output toc base plus 0x8000.  Making the input elf_gp an
12733
   offset allows us to move the toc as a whole without
12734
   recalculating input elf_gp.  */
12735
0
      off = htab->toc_curr - elf_gp (info->output_bfd);
12736
0
      off += TOC_BASE_OFF;
12737
12738
      /* Die if someone uses a linker script that doesn't keep input
12739
   file .toc and .got together.  */
12740
0
      if (new_bfd
12741
0
    && elf_gp (isec->owner) != 0
12742
0
    && elf_gp (isec->owner) != off)
12743
0
  return false;
12744
12745
0
      elf_gp (isec->owner) = off;
12746
0
      return true;
12747
0
    }
12748
12749
  /* During the second pass toc_first_sec points to the start of
12750
     a toc group, and toc_curr is used to track the old elf_gp.
12751
     We use toc_bfd to ensure we only look at each bfd once.  */
12752
0
  if (htab->toc_bfd == isec->owner)
12753
0
    return true;
12754
0
  htab->toc_bfd = isec->owner;
12755
12756
0
  if (htab->toc_first_sec == NULL
12757
0
      || htab->toc_curr != elf_gp (isec->owner))
12758
0
    {
12759
0
      htab->toc_curr = elf_gp (isec->owner);
12760
0
      htab->toc_first_sec = isec;
12761
0
    }
12762
0
  addr = (htab->toc_first_sec->output_offset
12763
0
    + htab->toc_first_sec->output_section->vma);
12764
0
  off = addr - elf_gp (info->output_bfd) + TOC_BASE_OFF;
12765
0
  elf_gp (isec->owner) = off;
12766
12767
0
  return true;
12768
0
}
12769
12770
/* Called via elf_link_hash_traverse to merge GOT entries for global
12771
   symbol H.  */
12772
12773
static bool
12774
merge_global_got (struct elf_link_hash_entry *h, void *inf ATTRIBUTE_UNUSED)
12775
0
{
12776
0
  if (h->root.type == bfd_link_hash_indirect)
12777
0
    return true;
12778
12779
0
  merge_got_entries (&h->got.glist);
12780
12781
0
  return true;
12782
0
}
12783
12784
/* Called via elf_link_hash_traverse to allocate GOT entries for global
12785
   symbol H.  */
12786
12787
static bool
12788
reallocate_got (struct elf_link_hash_entry *h, void *inf)
12789
0
{
12790
0
  struct got_entry *gent;
12791
12792
0
  if (h->root.type == bfd_link_hash_indirect)
12793
0
    return true;
12794
12795
0
  for (gent = h->got.glist; gent != NULL; gent = gent->next)
12796
0
    if (!gent->is_indirect)
12797
0
      allocate_got (h, (struct bfd_link_info *) inf, gent);
12798
0
  return true;
12799
0
}
12800
12801
/* Called on the first multitoc pass after the last call to
12802
   ppc64_elf_next_toc_section.  This function removes duplicate GOT
12803
   entries.  */
12804
12805
bool
12806
ppc64_elf_layout_multitoc (struct bfd_link_info *info)
12807
0
{
12808
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
12809
0
  struct bfd *ibfd, *ibfd2;
12810
0
  bool done_something;
12811
12812
0
  htab->multi_toc_needed = htab->toc_curr != elf_gp (info->output_bfd);
12813
12814
0
  if (!htab->do_multi_toc)
12815
0
    return false;
12816
12817
  /* Merge global sym got entries within a toc group.  */
12818
0
  elf_link_hash_traverse (&htab->elf, merge_global_got, info);
12819
12820
  /* And tlsld_got.  */
12821
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
12822
0
    {
12823
0
      struct got_entry *ent, *ent2;
12824
12825
0
      if (!is_ppc64_elf (ibfd))
12826
0
  continue;
12827
12828
0
      ent = ppc64_tlsld_got (ibfd);
12829
0
      if (!ent->is_indirect
12830
0
    && ent->got.offset != (bfd_vma) -1)
12831
0
  {
12832
0
    for (ibfd2 = ibfd->link.next; ibfd2 != NULL; ibfd2 = ibfd2->link.next)
12833
0
      {
12834
0
        if (!is_ppc64_elf (ibfd2))
12835
0
    continue;
12836
12837
0
        ent2 = ppc64_tlsld_got (ibfd2);
12838
0
        if (!ent2->is_indirect
12839
0
      && ent2->got.offset != (bfd_vma) -1
12840
0
      && elf_gp (ibfd2) == elf_gp (ibfd))
12841
0
    {
12842
0
      ent2->is_indirect = true;
12843
0
      ent2->got.ent = ent;
12844
0
    }
12845
0
      }
12846
0
  }
12847
0
    }
12848
12849
  /* Zap sizes of got sections.  */
12850
0
  htab->elf.irelplt->rawsize = htab->elf.irelplt->size;
12851
0
  htab->elf.irelplt->size -= htab->got_reli_size;
12852
0
  htab->got_reli_size = 0;
12853
12854
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
12855
0
    {
12856
0
      asection *got, *relgot;
12857
12858
0
      if (!is_ppc64_elf (ibfd))
12859
0
  continue;
12860
12861
0
      got = ppc64_elf_tdata (ibfd)->got;
12862
0
      if (got != NULL)
12863
0
  {
12864
0
    got->rawsize = got->size;
12865
0
    got->size = 0;
12866
0
    relgot = ppc64_elf_tdata (ibfd)->relgot;
12867
0
    relgot->rawsize = relgot->size;
12868
0
    relgot->size = 0;
12869
0
  }
12870
0
    }
12871
12872
  /* Now reallocate the got, local syms first.  We don't need to
12873
     allocate section contents again since we never increase size.  */
12874
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
12875
0
    {
12876
0
      struct got_entry **lgot_ents;
12877
0
      struct got_entry **end_lgot_ents;
12878
0
      struct plt_entry **local_plt;
12879
0
      struct plt_entry **end_local_plt;
12880
0
      unsigned char *lgot_masks;
12881
0
      bfd_size_type locsymcount;
12882
0
      Elf_Internal_Shdr *symtab_hdr;
12883
0
      asection *s;
12884
0
      Elf_Internal_Sym *local_syms;
12885
0
      Elf_Internal_Sym *isym;
12886
12887
0
      if (!is_ppc64_elf (ibfd))
12888
0
  continue;
12889
12890
0
      lgot_ents = elf_local_got_ents (ibfd);
12891
0
      if (!lgot_ents)
12892
0
  continue;
12893
12894
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
12895
0
      locsymcount = symtab_hdr->sh_info;
12896
0
      end_lgot_ents = lgot_ents + locsymcount;
12897
0
      local_plt = (struct plt_entry **) end_lgot_ents;
12898
0
      end_local_plt = local_plt + locsymcount;
12899
0
      lgot_masks = (unsigned char *) end_local_plt;
12900
0
      local_syms = (Elf_Internal_Sym *) symtab_hdr->contents;
12901
0
      if (local_syms == NULL && locsymcount != 0)
12902
0
  {
12903
0
    local_syms = bfd_elf_get_elf_syms (ibfd, symtab_hdr, locsymcount,
12904
0
               0, NULL, NULL, NULL);
12905
0
    if (local_syms == NULL)
12906
0
      return false;
12907
0
  }
12908
0
      s = ppc64_elf_tdata (ibfd)->got;
12909
0
      for (isym = local_syms;
12910
0
     lgot_ents < end_lgot_ents;
12911
0
     ++lgot_ents, ++lgot_masks, isym++)
12912
0
  {
12913
0
    struct got_entry *ent;
12914
12915
0
    for (ent = *lgot_ents; ent != NULL; ent = ent->next)
12916
0
      {
12917
0
        unsigned int ent_size = 8;
12918
0
        unsigned int rel_size = sizeof (Elf64_External_Rela);
12919
12920
0
        ent->got.offset = s->size;
12921
0
        if ((ent->tls_type & *lgot_masks & TLS_GD) != 0)
12922
0
    {
12923
0
      ent_size *= 2;
12924
0
      rel_size *= 2;
12925
0
    }
12926
0
        s->size += ent_size;
12927
0
        if ((*lgot_masks & (TLS_TLS | PLT_IFUNC)) == PLT_IFUNC)
12928
0
    {
12929
0
      htab->elf.irelplt->size += rel_size;
12930
0
      htab->got_reli_size += rel_size;
12931
0
    }
12932
0
        else if (bfd_link_pic (info)
12933
0
           && (ent->tls_type == 0
12934
0
         ? !info->enable_dt_relr
12935
0
         : !bfd_link_executable (info))
12936
0
           && isym->st_shndx != SHN_ABS)
12937
0
    {
12938
0
      asection *srel = ppc64_elf_tdata (ibfd)->relgot;
12939
0
      srel->size += rel_size;
12940
0
    }
12941
0
      }
12942
0
  }
12943
0
    }
12944
12945
0
  elf_link_hash_traverse (&htab->elf, reallocate_got, info);
12946
12947
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
12948
0
    {
12949
0
      struct got_entry *ent;
12950
12951
0
      if (!is_ppc64_elf (ibfd))
12952
0
  continue;
12953
12954
0
      ent = ppc64_tlsld_got (ibfd);
12955
0
      if (!ent->is_indirect
12956
0
    && ent->got.offset != (bfd_vma) -1)
12957
0
  {
12958
0
    asection *s = ppc64_elf_tdata (ibfd)->got;
12959
0
    ent->got.offset = s->size;
12960
0
    s->size += 16;
12961
0
    if (bfd_link_dll (info))
12962
0
      {
12963
0
        asection *srel = ppc64_elf_tdata (ibfd)->relgot;
12964
0
        srel->size += sizeof (Elf64_External_Rela);
12965
0
      }
12966
0
  }
12967
0
    }
12968
12969
0
  done_something = htab->elf.irelplt->rawsize != htab->elf.irelplt->size;
12970
0
  if (!done_something)
12971
0
    for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
12972
0
      {
12973
0
  asection *got;
12974
12975
0
  if (!is_ppc64_elf (ibfd))
12976
0
    continue;
12977
12978
0
  got = ppc64_elf_tdata (ibfd)->got;
12979
0
  if (got != NULL)
12980
0
    {
12981
0
      done_something = got->rawsize != got->size;
12982
0
      if (done_something)
12983
0
        break;
12984
0
    }
12985
0
      }
12986
12987
0
  if (done_something)
12988
0
    (*htab->params->layout_sections_again) ();
12989
12990
  /* Set up for second pass over toc sections to recalculate elf_gp
12991
     on input sections.  */
12992
0
  htab->toc_bfd = NULL;
12993
0
  htab->toc_first_sec = NULL;
12994
0
  htab->second_toc_pass = true;
12995
0
  return done_something;
12996
0
}
12997
12998
/* Called after second pass of multitoc partitioning.  */
12999
13000
void
13001
ppc64_elf_finish_multitoc_partition (struct bfd_link_info *info)
13002
0
{
13003
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
13004
13005
  /* After the second pass, toc_curr tracks the TOC offset used
13006
     for code sections below in ppc64_elf_next_input_section.  */
13007
0
  htab->toc_curr = TOC_BASE_OFF;
13008
0
}
13009
13010
/* No toc references were found in ISEC.  If the code in ISEC makes no
13011
   calls, then there's no need to use toc adjusting stubs when branching
13012
   into ISEC.  Actually, indirect calls from ISEC are OK as they will
13013
   load r2.  Returns -1 on error, 0 for no stub needed, 1 for stub
13014
   needed, and 2 if a cyclical call-graph was found but no other reason
13015
   for a stub was detected.  If called from the top level, a return of
13016
   2 means the same as a return of 0.  */
13017
13018
static int
13019
toc_adjusting_stub_needed (struct bfd_link_info *info, asection *isec)
13020
0
{
13021
0
  int ret;
13022
13023
  /* Mark this section as checked.  */
13024
0
  isec->call_check_done = 1;
13025
13026
  /* We know none of our code bearing sections will need toc stubs.  */
13027
0
  if ((isec->flags & SEC_LINKER_CREATED) != 0)
13028
0
    return 0;
13029
13030
0
  if (isec->size == 0)
13031
0
    return 0;
13032
13033
0
  if (isec->output_section == NULL)
13034
0
    return 0;
13035
13036
0
  ret = 0;
13037
0
  if (isec->reloc_count != 0)
13038
0
    {
13039
0
      Elf_Internal_Rela *relstart, *rel;
13040
0
      Elf_Internal_Sym *local_syms;
13041
0
      struct ppc_link_hash_table *htab;
13042
13043
0
      relstart = _bfd_elf_link_read_relocs (isec->owner, isec, NULL, NULL,
13044
0
              info->keep_memory);
13045
0
      if (relstart == NULL)
13046
0
  return -1;
13047
13048
      /* Look for branches to outside of this section.  */
13049
0
      local_syms = NULL;
13050
0
      htab = ppc_hash_table (info);
13051
0
      if (htab == NULL)
13052
0
  return -1;
13053
13054
0
      for (rel = relstart; rel < relstart + isec->reloc_count; ++rel)
13055
0
  {
13056
0
    enum elf_ppc64_reloc_type r_type;
13057
0
    unsigned long r_symndx;
13058
0
    struct elf_link_hash_entry *h;
13059
0
    struct ppc_link_hash_entry *eh;
13060
0
    Elf_Internal_Sym *sym;
13061
0
    asection *sym_sec;
13062
0
    struct _opd_sec_data *opd;
13063
0
    bfd_vma sym_value;
13064
0
    bfd_vma dest;
13065
13066
0
    r_type = ELF64_R_TYPE (rel->r_info);
13067
0
    if (r_type != R_PPC64_REL24
13068
0
        && r_type != R_PPC64_REL24_NOTOC
13069
0
        && r_type != R_PPC64_REL24_P9NOTOC
13070
0
        && r_type != R_PPC64_REL14
13071
0
        && r_type != R_PPC64_REL14_BRTAKEN
13072
0
        && r_type != R_PPC64_REL14_BRNTAKEN
13073
0
        && r_type != R_PPC64_PLTCALL
13074
0
        && r_type != R_PPC64_PLTCALL_NOTOC)
13075
0
      continue;
13076
13077
0
    r_symndx = ELF64_R_SYM (rel->r_info);
13078
0
    if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms, r_symndx,
13079
0
        isec->owner))
13080
0
      {
13081
0
        ret = -1;
13082
0
        break;
13083
0
      }
13084
13085
    /* Calls to dynamic lib functions go through a plt call stub
13086
       that uses r2.  */
13087
0
    eh = ppc_elf_hash_entry (h);
13088
0
    if (eh != NULL
13089
0
        && (eh->elf.plt.plist != NULL
13090
0
      || (eh->oh != NULL
13091
0
          && ppc_follow_link (eh->oh)->elf.plt.plist != NULL)))
13092
0
      {
13093
0
        ret = 1;
13094
0
        break;
13095
0
      }
13096
13097
0
    if (sym_sec == NULL)
13098
      /* Ignore other undefined symbols.  */
13099
0
      continue;
13100
13101
    /* Assume branches to other sections not included in the
13102
       link need stubs too, to cover -R and absolute syms.  */
13103
0
    if (sym_sec->output_section == NULL)
13104
0
      {
13105
0
        ret = 1;
13106
0
        break;
13107
0
      }
13108
13109
0
    if (h == NULL)
13110
0
      sym_value = sym->st_value;
13111
0
    else
13112
0
      {
13113
0
        if (h->root.type != bfd_link_hash_defined
13114
0
      && h->root.type != bfd_link_hash_defweak)
13115
0
    abort ();
13116
0
        sym_value = h->root.u.def.value;
13117
0
      }
13118
0
    sym_value += rel->r_addend;
13119
13120
    /* If this branch reloc uses an opd sym, find the code section.  */
13121
0
    opd = get_opd_info (sym_sec);
13122
0
    if (opd != NULL)
13123
0
      {
13124
0
        if (h == NULL && opd->adjust != NULL)
13125
0
    {
13126
0
      long adjust;
13127
13128
0
      adjust = opd->adjust[OPD_NDX (sym_value)];
13129
0
      if (adjust == -1)
13130
        /* Assume deleted functions won't ever be called.  */
13131
0
        continue;
13132
0
      sym_value += adjust;
13133
0
    }
13134
13135
0
        dest = opd_entry_value (sym_sec, sym_value,
13136
0
              &sym_sec, NULL, false);
13137
0
        if (dest == (bfd_vma) -1)
13138
0
    continue;
13139
0
      }
13140
0
    else
13141
0
      dest = (sym_value
13142
0
        + sym_sec->output_offset
13143
0
        + sym_sec->output_section->vma);
13144
13145
    /* Ignore branch to self.  */
13146
0
    if (sym_sec == isec)
13147
0
      continue;
13148
13149
    /* If the called function uses the toc, we need a stub.  */
13150
0
    if (sym_sec->has_toc_reloc
13151
0
        || sym_sec->makes_toc_func_call)
13152
0
      {
13153
0
        ret = 1;
13154
0
        break;
13155
0
      }
13156
13157
    /* Assume any branch that needs a long branch stub might in fact
13158
       need a plt_branch stub.  A plt_branch stub uses r2.  */
13159
0
    else if (dest - (isec->output_offset
13160
0
         + isec->output_section->vma
13161
0
         + rel->r_offset) + (1 << 25)
13162
0
       >= (2u << 25) - PPC64_LOCAL_ENTRY_OFFSET (h
13163
0
                   ? h->other
13164
0
                   : sym->st_other))
13165
0
      {
13166
0
        ret = 1;
13167
0
        break;
13168
0
      }
13169
13170
    /* If calling back to a section in the process of being
13171
       tested, we can't say for sure that no toc adjusting stubs
13172
       are needed, so don't return zero.  */
13173
0
    else if (sym_sec->call_check_in_progress)
13174
0
      ret = 2;
13175
13176
    /* Branches to another section that itself doesn't have any TOC
13177
       references are OK.  Recursively call ourselves to check.  */
13178
0
    else if (!sym_sec->call_check_done)
13179
0
      {
13180
0
        int recur;
13181
13182
        /* Mark current section as indeterminate, so that other
13183
     sections that call back to current won't be marked as
13184
     known.  */
13185
0
        isec->call_check_in_progress = 1;
13186
0
        recur = toc_adjusting_stub_needed (info, sym_sec);
13187
0
        isec->call_check_in_progress = 0;
13188
13189
0
        if (recur != 0)
13190
0
    {
13191
0
      ret = recur;
13192
0
      if (recur != 2)
13193
0
        break;
13194
0
    }
13195
0
      }
13196
0
  }
13197
13198
0
      if (elf_symtab_hdr (isec->owner).contents
13199
0
    != (unsigned char *) local_syms)
13200
0
  free (local_syms);
13201
0
      if (elf_section_data (isec)->relocs != relstart)
13202
0
  free (relstart);
13203
0
    }
13204
13205
0
  if ((ret & 1) == 0
13206
0
      && isec->map_head.s != NULL
13207
0
      && (strcmp (isec->output_section->name, ".init") == 0
13208
0
    || strcmp (isec->output_section->name, ".fini") == 0))
13209
0
    {
13210
0
      if (isec->map_head.s->has_toc_reloc
13211
0
    || isec->map_head.s->makes_toc_func_call)
13212
0
  ret = 1;
13213
0
      else if (!isec->map_head.s->call_check_done)
13214
0
  {
13215
0
    int recur;
13216
0
    isec->call_check_in_progress = 1;
13217
0
    recur = toc_adjusting_stub_needed (info, isec->map_head.s);
13218
0
    isec->call_check_in_progress = 0;
13219
0
    if (recur != 0)
13220
0
      ret = recur;
13221
0
  }
13222
0
    }
13223
13224
0
  if (ret == 1)
13225
0
    isec->makes_toc_func_call = 1;
13226
13227
0
  return ret;
13228
0
}
13229
13230
/* The linker repeatedly calls this function for each input section,
13231
   in the order that input sections are linked into output sections.
13232
   Build lists of input sections to determine groupings between which
13233
   we may insert linker stubs.  */
13234
13235
bool
13236
ppc64_elf_next_input_section (struct bfd_link_info *info, asection *isec)
13237
0
{
13238
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
13239
13240
0
  if (htab == NULL)
13241
0
    return false;
13242
13243
0
  if ((isec->output_section->flags & SEC_CODE) != 0
13244
0
      && isec->output_section->id < htab->sec_info_arr_size)
13245
0
    {
13246
      /* This happens to make the list in reverse order,
13247
   which is what we want.  */
13248
0
      htab->sec_info[isec->id].u.list
13249
0
  = htab->sec_info[isec->output_section->id].u.list;
13250
0
      htab->sec_info[isec->output_section->id].u.list = isec;
13251
0
    }
13252
13253
0
  if (htab->multi_toc_needed)
13254
0
    {
13255
      /* Analyse sections that aren't already flagged as needing a
13256
   valid toc pointer.  Exclude .fixup for the linux kernel.
13257
   .fixup contains branches, but only back to the function that
13258
   hit an exception.  */
13259
0
      if (!(isec->has_toc_reloc
13260
0
      || (isec->flags & SEC_CODE) == 0
13261
0
      || strcmp (isec->name, ".fixup") == 0
13262
0
      || isec->call_check_done))
13263
0
  {
13264
0
    if (toc_adjusting_stub_needed (info, isec) < 0)
13265
0
      return false;
13266
0
  }
13267
      /* Make all sections use the TOC assigned for this object file.
13268
   This will be wrong for pasted sections;  We fix that in
13269
   check_pasted_section().  */
13270
0
      if (elf_gp (isec->owner) != 0)
13271
0
  htab->toc_curr = elf_gp (isec->owner);
13272
0
    }
13273
13274
0
  htab->sec_info[isec->id].toc_off = htab->toc_curr;
13275
0
  return true;
13276
0
}
13277
13278
/* Check that all .init and .fini sections use the same toc, if they
13279
   have toc relocs.  */
13280
13281
static bool
13282
check_pasted_section (struct bfd_link_info *info, const char *name)
13283
0
{
13284
0
  asection *o = bfd_get_section_by_name (info->output_bfd, name);
13285
13286
0
  if (o != NULL)
13287
0
    {
13288
0
      struct ppc_link_hash_table *htab = ppc_hash_table (info);
13289
0
      bfd_vma toc_off = 0;
13290
0
      asection *i;
13291
13292
0
      for (i = o->map_head.s; i != NULL; i = i->map_head.s)
13293
0
  if (i->has_toc_reloc)
13294
0
    {
13295
0
      if (toc_off == 0)
13296
0
        toc_off = htab->sec_info[i->id].toc_off;
13297
0
      else if (toc_off != htab->sec_info[i->id].toc_off)
13298
0
        return false;
13299
0
    }
13300
13301
0
      if (toc_off == 0)
13302
0
  for (i = o->map_head.s; i != NULL; i = i->map_head.s)
13303
0
    if (i->makes_toc_func_call)
13304
0
      {
13305
0
        toc_off = htab->sec_info[i->id].toc_off;
13306
0
        break;
13307
0
      }
13308
13309
      /* Make sure the whole pasted function uses the same toc offset.  */
13310
0
      if (toc_off != 0)
13311
0
  for (i = o->map_head.s; i != NULL; i = i->map_head.s)
13312
0
    htab->sec_info[i->id].toc_off = toc_off;
13313
0
    }
13314
0
  return true;
13315
0
}
13316
13317
bool
13318
ppc64_elf_check_init_fini (struct bfd_link_info *info)
13319
0
{
13320
0
  bool ret1 = check_pasted_section (info, ".init");
13321
0
  bool ret2 = check_pasted_section (info, ".fini");
13322
13323
0
  return ret1 && ret2;
13324
0
}
13325
13326
/* See whether we can group stub sections together.  Grouping stub
13327
   sections may result in fewer stubs.  More importantly, we need to
13328
   put all .init* and .fini* stubs at the beginning of the .init or
13329
   .fini output sections respectively, because glibc splits the
13330
   _init and _fini functions into multiple parts.  Putting a stub in
13331
   the middle of a function is not a good idea.  */
13332
13333
static bool
13334
group_sections (struct bfd_link_info *info,
13335
    bfd_size_type stub_group_size,
13336
    bool stubs_always_before_branch)
13337
0
{
13338
0
  struct ppc_link_hash_table *htab;
13339
0
  asection *osec;
13340
0
  bool suppress_size_errors;
13341
13342
0
  htab = ppc_hash_table (info);
13343
0
  if (htab == NULL)
13344
0
    return false;
13345
13346
0
  suppress_size_errors = false;
13347
0
  if (stub_group_size == 1)
13348
0
    {
13349
      /* Default values.  */
13350
0
      if (stubs_always_before_branch)
13351
0
  stub_group_size = 0x1e00000;
13352
0
      else
13353
0
  stub_group_size = 0x1c00000;
13354
0
      suppress_size_errors = true;
13355
0
    }
13356
13357
0
  for (osec = info->output_bfd->sections; osec != NULL; osec = osec->next)
13358
0
    {
13359
0
      asection *tail;
13360
13361
0
      if (osec->id >= htab->sec_info_arr_size)
13362
0
  continue;
13363
13364
0
      tail = htab->sec_info[osec->id].u.list;
13365
0
      while (tail != NULL)
13366
0
  {
13367
0
    asection *curr;
13368
0
    asection *prev;
13369
0
    bfd_size_type total;
13370
0
    bool big_sec;
13371
0
    bfd_vma curr_toc;
13372
0
    struct map_stub *group;
13373
0
    bfd_size_type group_size;
13374
13375
0
    curr = tail;
13376
0
    total = tail->size;
13377
0
    group_size = (ppc64_elf_section_data (tail) != NULL
13378
0
      && ppc64_elf_section_data (tail)->has_14bit_branch
13379
0
      ? stub_group_size >> 10 : stub_group_size);
13380
13381
0
    big_sec = total > group_size;
13382
0
    if (big_sec && !suppress_size_errors)
13383
      /* xgettext:c-format */
13384
0
      _bfd_error_handler (_("%pB section %pA exceeds stub group size"),
13385
0
        tail->owner, tail);
13386
0
    curr_toc = htab->sec_info[tail->id].toc_off;
13387
13388
0
    while ((prev = htab->sec_info[curr->id].u.list) != NULL
13389
0
     && ((total += curr->output_offset - prev->output_offset)
13390
0
         < (ppc64_elf_section_data (prev) != NULL
13391
0
      && ppc64_elf_section_data (prev)->has_14bit_branch
13392
0
      ? (group_size = stub_group_size >> 10) : group_size))
13393
0
     && htab->sec_info[prev->id].toc_off == curr_toc)
13394
0
      curr = prev;
13395
13396
    /* OK, the size from the start of CURR to the end is less
13397
       than group_size and thus can be handled by one stub
13398
       section.  (or the tail section is itself larger than
13399
       group_size, in which case we may be toast.)  We should
13400
       really be keeping track of the total size of stubs added
13401
       here, as stubs contribute to the final output section
13402
       size.  That's a little tricky, and this way will only
13403
       break if stubs added make the total size more than 2^25,
13404
       ie. for the default stub_group_size, if stubs total more
13405
       than 2097152 bytes, or nearly 75000 plt call stubs.  */
13406
0
    group = bfd_alloc (curr->owner, sizeof (*group));
13407
0
    if (group == NULL)
13408
0
      return false;
13409
0
    group->link_sec = curr;
13410
0
    group->stub_sec = NULL;
13411
0
    group->needs_save_res = 0;
13412
0
    group->lr_restore = 0;
13413
0
    group->eh_size = 0;
13414
0
    group->eh_base = 0;
13415
0
    group->next = htab->group;
13416
0
    htab->group = group;
13417
0
    do
13418
0
      {
13419
0
        prev = htab->sec_info[tail->id].u.list;
13420
        /* Set up this stub group.  */
13421
0
        htab->sec_info[tail->id].u.group = group;
13422
0
      }
13423
0
    while (tail != curr && (tail = prev) != NULL);
13424
13425
    /* But wait, there's more!  Input sections up to group_size
13426
       bytes before the stub section can be handled by it too.
13427
       Don't do this if we have a really large section after the
13428
       stubs, as adding more stubs increases the chance that
13429
       branches may not reach into the stub section.  */
13430
0
    if (!stubs_always_before_branch && !big_sec)
13431
0
      {
13432
0
        total = 0;
13433
0
        while (prev != NULL
13434
0
         && ((total += tail->output_offset - prev->output_offset)
13435
0
       < (ppc64_elf_section_data (prev) != NULL
13436
0
          && ppc64_elf_section_data (prev)->has_14bit_branch
13437
0
          ? (group_size = stub_group_size >> 10)
13438
0
          : group_size))
13439
0
         && htab->sec_info[prev->id].toc_off == curr_toc)
13440
0
    {
13441
0
      tail = prev;
13442
0
      prev = htab->sec_info[tail->id].u.list;
13443
0
      htab->sec_info[tail->id].u.group = group;
13444
0
    }
13445
0
      }
13446
0
    tail = prev;
13447
0
  }
13448
0
    }
13449
0
  return true;
13450
0
}
13451
13452
static const unsigned char glink_eh_frame_cie[] =
13453
{
13454
  0, 0, 0, 16,        /* length.  */
13455
  0, 0, 0, 0,       /* id.  */
13456
  1,          /* CIE version.  */
13457
  'z', 'R', 0,        /* Augmentation string.  */
13458
  4,          /* Code alignment.  */
13459
  0x78,         /* Data alignment.  */
13460
  65,         /* RA reg.  */
13461
  1,          /* Augmentation size.  */
13462
  DW_EH_PE_pcrel | DW_EH_PE_sdata4, /* FDE encoding.  */
13463
  DW_CFA_def_cfa, 1, 0      /* def_cfa: r1 offset 0.  */
13464
};
13465
13466
/* Stripping output sections is normally done before dynamic section
13467
   symbols have been allocated.  This function is called later, and
13468
   handles cases like htab->brlt which is mapped to its own output
13469
   section.  */
13470
13471
static void
13472
maybe_strip_output (struct bfd_link_info *info, asection *isec)
13473
0
{
13474
0
  if (isec->size == 0
13475
0
      && isec->output_section->size == 0
13476
0
      && !(isec->output_section->flags & SEC_KEEP)
13477
0
      && !bfd_section_removed_from_list (info->output_bfd,
13478
0
           isec->output_section)
13479
0
      && elf_section_data (isec->output_section)->dynindx == 0)
13480
0
    {
13481
0
      isec->output_section->flags |= SEC_EXCLUDE;
13482
0
      bfd_section_list_remove (info->output_bfd, isec->output_section);
13483
0
      info->output_bfd->section_count--;
13484
0
    }
13485
0
}
13486
13487
/* Stash R_PPC64_RELATIVE reloc at input section SEC, r_offset OFF to
13488
   the array of such relocs.  */
13489
13490
static bool
13491
append_relr_off (struct ppc_link_hash_table *htab, asection *sec, bfd_vma off)
13492
0
{
13493
0
  if (htab->relr_count >= htab->relr_alloc)
13494
0
    {
13495
0
      if (htab->relr_alloc == 0)
13496
0
  htab->relr_alloc = 4096;
13497
0
      else
13498
0
  htab->relr_alloc *= 2;
13499
0
      htab->relr = bfd_realloc (htab->relr,
13500
0
        htab->relr_alloc * sizeof (*htab->relr));
13501
0
      if (htab->relr == NULL)
13502
0
  return false;
13503
0
    }
13504
0
  htab->relr[htab->relr_count].sec = sec;
13505
0
  htab->relr[htab->relr_count].off = off;
13506
0
  htab->relr_count++;
13507
0
  return true;
13508
0
}
13509
13510
/* qsort comparator for bfd_vma args.  */
13511
13512
static int
13513
compare_relr_address (const void *arg1, const void *arg2)
13514
0
{
13515
0
  bfd_vma a = *(bfd_vma *) arg1;
13516
0
  bfd_vma b = *(bfd_vma *) arg2;
13517
0
  return a < b ? -1 : a > b ? 1 : 0;
13518
0
}
13519
13520
/* Produce a malloc'd sorted array of reloc addresses from the info
13521
   stored by append_relr_off.  */
13522
13523
static bfd_vma *
13524
sort_relr (struct ppc_link_hash_table *htab)
13525
0
{
13526
0
  bfd_vma *addr = bfd_malloc (htab->relr_count * sizeof (*addr));
13527
0
  if (addr == NULL)
13528
0
    return NULL;
13529
13530
0
  for (size_t i = 0; i < htab->relr_count; i++)
13531
0
    addr[i] = (htab->relr[i].sec->output_section->vma
13532
0
         + htab->relr[i].sec->output_offset
13533
0
         + htab->relr[i].off);
13534
13535
0
  if (htab->relr_count > 1)
13536
0
    qsort (addr, htab->relr_count, sizeof (*addr), compare_relr_address);
13537
13538
0
  return addr;
13539
0
}
13540
13541
/* Look over GOT and PLT entries saved on elf_local_got_ents for all
13542
   input files, stashing info about needed relative relocs.  */
13543
13544
static bool
13545
got_and_plt_relr_for_local_syms (struct bfd_link_info *info)
13546
0
{
13547
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
13548
0
  bfd *ibfd;
13549
13550
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
13551
0
    {
13552
0
      struct got_entry **lgot_ents, **lgot, **end_lgot_ents;
13553
0
      struct plt_entry **local_plt, **lplt, **end_local_plt;
13554
0
      Elf_Internal_Shdr *symtab_hdr;
13555
0
      bfd_size_type locsymcount;
13556
0
      Elf_Internal_Sym *local_syms;
13557
0
      Elf_Internal_Sym *isym;
13558
0
      struct plt_entry *pent;
13559
0
      struct got_entry *gent;
13560
13561
0
      if (!is_ppc64_elf (ibfd))
13562
0
  continue;
13563
13564
0
      lgot_ents = elf_local_got_ents (ibfd);
13565
0
      if (!lgot_ents)
13566
0
  continue;
13567
13568
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
13569
0
      locsymcount = symtab_hdr->sh_info;
13570
0
      local_syms = (Elf_Internal_Sym *) symtab_hdr->contents;
13571
0
      if (local_syms == NULL && locsymcount != 0)
13572
0
  {
13573
0
    local_syms = bfd_elf_get_elf_syms (ibfd, symtab_hdr, locsymcount,
13574
0
               0, NULL, NULL, NULL);
13575
0
    if (local_syms == NULL)
13576
0
      return false;
13577
0
  }
13578
0
      end_lgot_ents = lgot_ents + locsymcount;
13579
0
      local_plt = (struct plt_entry **) end_lgot_ents;
13580
0
      end_local_plt = local_plt + locsymcount;
13581
0
      for (lgot = lgot_ents, isym = local_syms;
13582
0
     lgot < end_lgot_ents;
13583
0
     ++lgot, ++isym)
13584
0
  for (gent = *lgot; gent != NULL; gent = gent->next)
13585
0
    if (!gent->is_indirect
13586
0
        && gent->tls_type == 0
13587
0
        && gent->got.offset != (bfd_vma) -1
13588
0
        && isym->st_shndx != SHN_ABS)
13589
0
      {
13590
0
        asection *got = ppc64_elf_tdata (gent->owner)->got;
13591
0
        if (!append_relr_off (htab, got, gent->got.offset))
13592
0
    {
13593
0
      htab->stub_error = true;
13594
0
      return false;
13595
0
    }
13596
0
      }
13597
13598
0
      if (!htab->opd_abi)
13599
0
  for (lplt = local_plt, isym = local_syms;
13600
0
       lplt < end_local_plt;
13601
0
       ++lplt, ++isym)
13602
0
    for (pent = *lplt; pent != NULL; pent = pent->next)
13603
0
      if (pent->plt.offset != (bfd_vma) -1
13604
0
    && ELF_ST_TYPE (isym->st_info) != STT_GNU_IFUNC)
13605
0
        {
13606
0
    if (!append_relr_off (htab, htab->pltlocal, pent->plt.offset))
13607
0
      {
13608
0
        if (symtab_hdr->contents != (unsigned char *) local_syms)
13609
0
          free (local_syms);
13610
0
        return false;
13611
0
      }
13612
0
        }
13613
13614
0
      if (local_syms != NULL
13615
0
    && symtab_hdr->contents != (unsigned char *) local_syms)
13616
0
  {
13617
0
    if (!info->keep_memory)
13618
0
      free (local_syms);
13619
0
    else
13620
0
      symtab_hdr->contents = (unsigned char *) local_syms;
13621
0
  }
13622
0
    }
13623
0
  return true;
13624
0
}
13625
13626
/* Stash info about needed GOT and PLT entry relative relocs for
13627
   global symbol H.  */
13628
13629
static bool
13630
got_and_plt_relr (struct elf_link_hash_entry *h, void *inf)
13631
0
{
13632
0
  struct bfd_link_info *info;
13633
0
  struct ppc_link_hash_table *htab;
13634
0
  struct plt_entry *pent;
13635
0
  struct got_entry *gent;
13636
13637
0
  if (h->root.type == bfd_link_hash_indirect)
13638
0
    return true;
13639
13640
0
  info = (struct bfd_link_info *) inf;
13641
0
  htab = ppc_hash_table (info);
13642
0
  if (htab == NULL)
13643
0
    return false;
13644
13645
0
  if (h->type != STT_GNU_IFUNC
13646
0
      && h->def_regular
13647
0
      && (h->root.type == bfd_link_hash_defined
13648
0
    || h->root.type == bfd_link_hash_defweak))
13649
0
    {
13650
0
      if ((!htab->elf.dynamic_sections_created
13651
0
     || h->dynindx == -1
13652
0
     || SYMBOL_REFERENCES_LOCAL (info, h))
13653
0
    && !bfd_is_abs_symbol (&h->root))
13654
0
  for (gent = h->got.glist; gent != NULL; gent = gent->next)
13655
0
    if (!gent->is_indirect
13656
0
        && gent->tls_type == 0
13657
0
        && gent->got.offset != (bfd_vma) -1)
13658
0
      {
13659
0
        asection *got = ppc64_elf_tdata (gent->owner)->got;
13660
0
        if (!append_relr_off (htab, got, gent->got.offset))
13661
0
    {
13662
0
      htab->stub_error = true;
13663
0
      return false;
13664
0
    }
13665
0
      }
13666
13667
0
      if (!htab->opd_abi
13668
0
    && use_local_plt (info, h))
13669
0
  for (pent = h->plt.plist; pent != NULL; pent = pent->next)
13670
0
    if (pent->plt.offset != (bfd_vma) -1)
13671
0
      {
13672
0
        if (!append_relr_off (htab, htab->pltlocal, pent->plt.offset))
13673
0
    {
13674
0
      htab->stub_error = true;
13675
0
      return false;
13676
0
    }
13677
0
      }
13678
0
    }
13679
0
  return true;
13680
0
}
13681
13682
/* Determine and set the size of the stub section for a final link.
13683
13684
   The basic idea here is to examine all the relocations looking for
13685
   PC-relative calls to a target that is unreachable with a "bl"
13686
   instruction.  */
13687
13688
bool
13689
ppc64_elf_size_stubs (struct bfd_link_info *info)
13690
0
{
13691
0
  bfd_size_type stub_group_size;
13692
0
  bool stubs_always_before_branch;
13693
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
13694
13695
0
  if (htab == NULL)
13696
0
    return false;
13697
13698
0
  if (htab->params->power10_stubs == -1 && !htab->has_power10_relocs)
13699
0
    htab->params->power10_stubs = 0;
13700
13701
0
  if (htab->params->plt_thread_safe == -1 && !bfd_link_executable (info))
13702
0
    htab->params->plt_thread_safe = 1;
13703
0
  if (!htab->opd_abi)
13704
0
    htab->params->plt_thread_safe = 0;
13705
0
  else if (htab->params->plt_thread_safe == -1)
13706
0
    {
13707
0
      static const char *const thread_starter[] =
13708
0
  {
13709
0
    "pthread_create",
13710
    /* libstdc++ */
13711
0
    "_ZNSt6thread15_M_start_threadESt10shared_ptrINS_10_Impl_baseEE",
13712
    /* librt */
13713
0
    "aio_init", "aio_read", "aio_write", "aio_fsync", "lio_listio",
13714
0
    "mq_notify", "create_timer",
13715
    /* libanl */
13716
0
    "getaddrinfo_a",
13717
    /* libgomp */
13718
0
    "GOMP_parallel",
13719
0
    "GOMP_parallel_start",
13720
0
    "GOMP_parallel_loop_static",
13721
0
    "GOMP_parallel_loop_static_start",
13722
0
    "GOMP_parallel_loop_dynamic",
13723
0
    "GOMP_parallel_loop_dynamic_start",
13724
0
    "GOMP_parallel_loop_guided",
13725
0
    "GOMP_parallel_loop_guided_start",
13726
0
    "GOMP_parallel_loop_runtime",
13727
0
    "GOMP_parallel_loop_runtime_start",
13728
0
    "GOMP_parallel_sections",
13729
0
    "GOMP_parallel_sections_start",
13730
    /* libgo */
13731
0
    "__go_go",
13732
0
  };
13733
0
      unsigned i;
13734
13735
0
      for (i = 0; i < ARRAY_SIZE (thread_starter); i++)
13736
0
  {
13737
0
    struct elf_link_hash_entry *h;
13738
0
    h = elf_link_hash_lookup (&htab->elf, thread_starter[i],
13739
0
            false, false, true);
13740
0
    htab->params->plt_thread_safe = h != NULL && h->ref_regular;
13741
0
    if (htab->params->plt_thread_safe)
13742
0
      break;
13743
0
  }
13744
0
    }
13745
0
  stubs_always_before_branch = htab->params->group_size < 0;
13746
0
  if (htab->params->group_size < 0)
13747
0
    stub_group_size = -htab->params->group_size;
13748
0
  else
13749
0
    stub_group_size = htab->params->group_size;
13750
13751
0
  if (!group_sections (info, stub_group_size, stubs_always_before_branch))
13752
0
    return false;
13753
13754
0
  htab->tga_group = NULL;
13755
0
  if (!htab->params->no_tls_get_addr_regsave
13756
0
      && htab->tga_desc_fd != NULL
13757
0
      && (htab->tga_desc_fd->elf.root.type == bfd_link_hash_undefined
13758
0
    || htab->tga_desc_fd->elf.root.type == bfd_link_hash_undefweak)
13759
0
      && htab->tls_get_addr_fd != NULL
13760
0
      && is_static_defined (&htab->tls_get_addr_fd->elf))
13761
0
    {
13762
0
      asection *sym_sec, *code_sec, *stub_sec;
13763
0
      bfd_vma sym_value;
13764
0
      struct _opd_sec_data *opd;
13765
13766
0
      sym_sec = htab->tls_get_addr_fd->elf.root.u.def.section;
13767
0
      sym_value = defined_sym_val (&htab->tls_get_addr_fd->elf);
13768
0
      code_sec = sym_sec;
13769
0
      opd = get_opd_info (sym_sec);
13770
0
      if (opd != NULL)
13771
0
  opd_entry_value (sym_sec, sym_value, &code_sec, NULL, false);
13772
0
      htab->tga_group = htab->sec_info[code_sec->id].u.group;
13773
0
      stub_sec = (*htab->params->add_stub_section) (".tga_desc.stub",
13774
0
                htab->tga_group->link_sec);
13775
0
      if (stub_sec == NULL)
13776
0
  return false;
13777
0
      htab->tga_group->stub_sec = stub_sec;
13778
13779
0
      htab->tga_desc_fd->elf.root.type = bfd_link_hash_defined;
13780
0
      htab->tga_desc_fd->elf.root.u.def.section = stub_sec;
13781
0
      htab->tga_desc_fd->elf.root.u.def.value = 0;
13782
0
      htab->tga_desc_fd->elf.type = STT_FUNC;
13783
0
      htab->tga_desc_fd->elf.def_regular = 1;
13784
0
      htab->tga_desc_fd->elf.non_elf = 0;
13785
0
      _bfd_elf_link_hash_hide_symbol (info, &htab->tga_desc_fd->elf, true);
13786
0
    }
13787
13788
  /* Loop until no stubs added.  After iteration 20 of this loop we may
13789
     exit on a stub section shrinking.  */
13790
13791
0
  while (1)
13792
0
    {
13793
0
      bfd *input_bfd;
13794
0
      unsigned int bfd_indx;
13795
0
      struct map_stub *group;
13796
13797
0
      htab->stub_iteration += 1;
13798
0
      htab->relr_count = 0;
13799
13800
0
      for (input_bfd = info->input_bfds, bfd_indx = 0;
13801
0
     input_bfd != NULL;
13802
0
     input_bfd = input_bfd->link.next, bfd_indx++)
13803
0
  {
13804
0
    Elf_Internal_Shdr *symtab_hdr;
13805
0
    asection *section;
13806
0
    Elf_Internal_Sym *local_syms = NULL;
13807
13808
0
    if (!is_ppc64_elf (input_bfd))
13809
0
      continue;
13810
13811
    /* We'll need the symbol table in a second.  */
13812
0
    symtab_hdr = &elf_symtab_hdr (input_bfd);
13813
0
    if (symtab_hdr->sh_info == 0)
13814
0
      continue;
13815
13816
    /* Walk over each section attached to the input bfd.  */
13817
0
    for (section = input_bfd->sections;
13818
0
         section != NULL;
13819
0
         section = section->next)
13820
0
      {
13821
0
        Elf_Internal_Rela *internal_relocs, *irelaend, *irela;
13822
0
        bool is_opd;
13823
13824
        /* If there aren't any relocs, then there's nothing more
13825
     to do.  */
13826
0
        if ((section->flags & SEC_RELOC) == 0
13827
0
      || (section->flags & SEC_ALLOC) == 0
13828
0
      || (section->flags & SEC_LOAD) == 0
13829
0
      || section->reloc_count == 0)
13830
0
    continue;
13831
13832
0
        if (!info->enable_dt_relr
13833
0
      && (section->flags & SEC_CODE) == 0)
13834
0
    continue;
13835
13836
        /* If this section is a link-once section that will be
13837
     discarded, then don't create any stubs.  */
13838
0
        if (section->output_section == NULL
13839
0
      || section->output_section->owner != info->output_bfd)
13840
0
    continue;
13841
13842
        /* Get the relocs.  */
13843
0
        internal_relocs
13844
0
    = _bfd_elf_link_read_relocs (input_bfd, section, NULL, NULL,
13845
0
               info->keep_memory);
13846
0
        if (internal_relocs == NULL)
13847
0
    goto error_ret_free_local;
13848
13849
0
        is_opd = ppc64_elf_section_data (section)->sec_type == sec_opd;
13850
13851
        /* Now examine each relocation.  */
13852
0
        irela = internal_relocs;
13853
0
        irelaend = irela + section->reloc_count;
13854
0
        for (; irela < irelaend; irela++)
13855
0
    {
13856
0
      enum elf_ppc64_reloc_type r_type;
13857
0
      unsigned int r_indx;
13858
0
      struct ppc_stub_type stub_type;
13859
0
      struct ppc_stub_hash_entry *stub_entry;
13860
0
      asection *sym_sec, *code_sec;
13861
0
      bfd_vma sym_value, code_value;
13862
0
      bfd_vma destination;
13863
0
      unsigned long local_off;
13864
0
      bool ok_dest;
13865
0
      struct ppc_link_hash_entry *hash;
13866
0
      struct ppc_link_hash_entry *fdh;
13867
0
      struct elf_link_hash_entry *h;
13868
0
      Elf_Internal_Sym *sym;
13869
0
      char *stub_name;
13870
0
      const asection *id_sec;
13871
0
      struct _opd_sec_data *opd;
13872
0
      struct plt_entry *plt_ent;
13873
13874
0
      r_type = ELF64_R_TYPE (irela->r_info);
13875
0
      r_indx = ELF64_R_SYM (irela->r_info);
13876
13877
0
      if (r_type >= R_PPC64_max)
13878
0
        {
13879
0
          bfd_set_error (bfd_error_bad_value);
13880
0
          goto error_ret_free_internal;
13881
0
        }
13882
13883
      /* Only look for stubs on branch instructions.  */
13884
0
      switch (r_type)
13885
0
        {
13886
0
        default:
13887
0
          continue;
13888
13889
0
        case R_PPC64_REL24:
13890
0
        case R_PPC64_REL24_NOTOC:
13891
0
        case R_PPC64_REL24_P9NOTOC:
13892
0
        case R_PPC64_REL14:
13893
0
        case R_PPC64_REL14_BRTAKEN:
13894
0
        case R_PPC64_REL14_BRNTAKEN:
13895
0
          if ((section->flags & SEC_CODE) != 0)
13896
0
      break;
13897
0
          continue;
13898
13899
0
        case R_PPC64_ADDR64:
13900
0
        case R_PPC64_TOC:
13901
0
          if (info->enable_dt_relr
13902
0
        && irela->r_offset % 2 == 0
13903
0
        && section->alignment_power != 0)
13904
0
      break;
13905
0
          continue;
13906
0
        }
13907
13908
      /* Now determine the call target, its name, value,
13909
         section.  */
13910
0
      if (!get_sym_h (&h, &sym, &sym_sec, NULL, &local_syms,
13911
0
          r_indx, input_bfd))
13912
0
        goto error_ret_free_internal;
13913
13914
0
      if (r_type == R_PPC64_ADDR64 || r_type == R_PPC64_TOC)
13915
0
        {
13916
          /* Only locally defined symbols can possibly use
13917
       relative relocations.  */
13918
0
          bfd_vma r_offset;
13919
0
          if ((sym_sec == NULL
13920
0
         || sym_sec->output_section == NULL)
13921
        /* No symbol is OK too.  */
13922
0
        && !(sym != NULL && sym->st_shndx == 0)
13923
        /* Hack for __ehdr_start, which is undefined
13924
           at this point.  */
13925
0
        && !(h != NULL && h->root.linker_def))
13926
0
      continue;
13927
0
          if (NO_OPD_RELOCS && is_opd)
13928
0
      continue;
13929
0
          if (!is_opd
13930
0
        && r_type == R_PPC64_ADDR64)
13931
0
      {
13932
0
        if (h != NULL
13933
0
            ? h->type == STT_GNU_IFUNC
13934
0
            : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
13935
0
          continue;
13936
0
        if (h != NULL
13937
0
            ? bfd_is_abs_symbol (&h->root)
13938
0
            : sym->st_shndx == SHN_ABS)
13939
0
          continue;
13940
0
        if (h != NULL
13941
0
            && !SYMBOL_REFERENCES_LOCAL (info, h))
13942
0
          continue;
13943
0
      }
13944
0
          r_offset = _bfd_elf_section_offset (info->output_bfd,
13945
0
                info,
13946
0
                section,
13947
0
                irela->r_offset);
13948
0
          if (r_offset >= (bfd_vma) -2)
13949
0
      continue;
13950
0
          if (!append_relr_off (htab, section, r_offset))
13951
0
      goto error_ret_free_internal;
13952
0
          continue;
13953
0
        }
13954
13955
0
      hash = ppc_elf_hash_entry (h);
13956
0
      ok_dest = false;
13957
0
      fdh = NULL;
13958
0
      sym_value = 0;
13959
0
      if (hash == NULL)
13960
0
        {
13961
0
          sym_value = sym->st_value;
13962
0
          if (sym_sec != NULL
13963
0
        && sym_sec->output_section != NULL)
13964
0
      ok_dest = true;
13965
0
        }
13966
0
      else if (hash->elf.root.type == bfd_link_hash_defined
13967
0
         || hash->elf.root.type == bfd_link_hash_defweak)
13968
0
        {
13969
0
          sym_value = hash->elf.root.u.def.value;
13970
0
          if (sym_sec->output_section != NULL)
13971
0
      ok_dest = true;
13972
0
        }
13973
0
      else if (hash->elf.root.type == bfd_link_hash_undefweak
13974
0
         || hash->elf.root.type == bfd_link_hash_undefined)
13975
0
        {
13976
          /* Recognise an old ABI func code entry sym, and
13977
       use the func descriptor sym instead if it is
13978
       defined.  */
13979
0
          if (hash->elf.root.root.string[0] == '.'
13980
0
        && hash->oh != NULL)
13981
0
      {
13982
0
        fdh = ppc_follow_link (hash->oh);
13983
0
        if (fdh->elf.root.type == bfd_link_hash_defined
13984
0
            || fdh->elf.root.type == bfd_link_hash_defweak)
13985
0
          {
13986
0
            sym_sec = fdh->elf.root.u.def.section;
13987
0
            sym_value = fdh->elf.root.u.def.value;
13988
0
            if (sym_sec->output_section != NULL)
13989
0
        ok_dest = true;
13990
0
          }
13991
0
        else
13992
0
          fdh = NULL;
13993
0
      }
13994
0
        }
13995
0
      else
13996
0
        {
13997
0
          bfd_set_error (bfd_error_bad_value);
13998
0
          goto error_ret_free_internal;
13999
0
        }
14000
14001
0
      destination = 0;
14002
0
      local_off = 0;
14003
0
      if (ok_dest)
14004
0
        {
14005
0
          sym_value += irela->r_addend;
14006
0
          destination = (sym_value
14007
0
             + sym_sec->output_offset
14008
0
             + sym_sec->output_section->vma);
14009
0
          local_off = PPC64_LOCAL_ENTRY_OFFSET (hash
14010
0
                  ? hash->elf.other
14011
0
                  : sym->st_other);
14012
0
        }
14013
14014
0
      code_sec = sym_sec;
14015
0
      code_value = sym_value;
14016
0
      opd = get_opd_info (sym_sec);
14017
0
      if (opd != NULL)
14018
0
        {
14019
0
          bfd_vma dest;
14020
14021
0
          if (hash == NULL && opd->adjust != NULL)
14022
0
      {
14023
0
        long adjust = opd->adjust[OPD_NDX (sym_value)];
14024
0
        if (adjust == -1)
14025
0
          continue;
14026
0
        code_value += adjust;
14027
0
        sym_value += adjust;
14028
0
      }
14029
0
          dest = opd_entry_value (sym_sec, sym_value,
14030
0
                &code_sec, &code_value, false);
14031
0
          if (dest != (bfd_vma) -1)
14032
0
      {
14033
0
        destination = dest;
14034
0
        if (fdh != NULL)
14035
0
          {
14036
            /* Fixup old ABI sym to point at code
14037
         entry.  */
14038
0
            hash->elf.root.type = bfd_link_hash_defweak;
14039
0
            hash->elf.root.u.def.section = code_sec;
14040
0
            hash->elf.root.u.def.value = code_value;
14041
0
          }
14042
0
      }
14043
0
        }
14044
14045
      /* Determine what (if any) linker stub is needed.  */
14046
0
      plt_ent = NULL;
14047
0
      stub_type.main = ppc_type_of_stub (section, irela, &hash,
14048
0
                 &plt_ent, destination,
14049
0
                 local_off);
14050
0
      stub_type.sub = ppc_stub_toc;
14051
0
      stub_type.r2save = 0;
14052
14053
0
      if (r_type == R_PPC64_REL24_NOTOC
14054
0
          || r_type == R_PPC64_REL24_P9NOTOC)
14055
0
        {
14056
0
          enum ppc_stub_sub_type notoc = ppc_stub_notoc;
14057
0
          if (htab->params->power10_stubs == 0
14058
0
        || (r_type == R_PPC64_REL24_P9NOTOC
14059
0
            && htab->params->power10_stubs != 1))
14060
0
      notoc = ppc_stub_p9notoc;
14061
0
          if (stub_type.main == ppc_stub_plt_call)
14062
0
      stub_type.sub = notoc;
14063
0
          else if (stub_type.main == ppc_stub_long_branch
14064
0
             || (code_sec != NULL
14065
0
           && code_sec->output_section != NULL
14066
0
           && (((hash ? hash->elf.other : sym->st_other)
14067
0
          & STO_PPC64_LOCAL_MASK)
14068
0
               > 1 << STO_PPC64_LOCAL_BIT)))
14069
0
      {
14070
0
        stub_type.main = ppc_stub_long_branch;
14071
0
        stub_type.sub = notoc;
14072
0
        stub_type.r2save = 0;
14073
0
      }
14074
0
        }
14075
0
      else if (stub_type.main != ppc_stub_plt_call)
14076
0
        {
14077
          /* Check whether we need a TOC adjusting stub.
14078
       Since the linker pastes together pieces from
14079
       different object files when creating the
14080
       _init and _fini functions, it may be that a
14081
       call to what looks like a local sym is in
14082
       fact a call needing a TOC adjustment.  */
14083
0
          if ((code_sec != NULL
14084
0
         && code_sec->output_section != NULL
14085
0
         && (code_sec->has_toc_reloc
14086
0
             || code_sec->makes_toc_func_call)
14087
0
         && (htab->sec_info[code_sec->id].toc_off
14088
0
             != htab->sec_info[section->id].toc_off))
14089
0
        || (((hash ? hash->elf.other : sym->st_other)
14090
0
             & STO_PPC64_LOCAL_MASK)
14091
0
            == 1 << STO_PPC64_LOCAL_BIT))
14092
0
      {
14093
0
        stub_type.main = ppc_stub_long_branch;
14094
0
        stub_type.sub = ppc_stub_toc;
14095
0
        stub_type.r2save = 1;
14096
0
      }
14097
0
        }
14098
14099
0
      if (stub_type.main == ppc_stub_none)
14100
0
        continue;
14101
14102
      /* __tls_get_addr calls might be eliminated.  */
14103
0
      if (stub_type.main != ppc_stub_plt_call
14104
0
          && hash != NULL
14105
0
          && is_tls_get_addr (&hash->elf, htab)
14106
0
          && section->has_tls_reloc
14107
0
          && irela != internal_relocs)
14108
0
        {
14109
          /* Get tls info.  */
14110
0
          unsigned char *tls_mask;
14111
14112
0
          if (!get_tls_mask (&tls_mask, NULL, NULL, &local_syms,
14113
0
           irela - 1, input_bfd))
14114
0
      goto error_ret_free_internal;
14115
0
          if ((*tls_mask & TLS_TLS) != 0
14116
0
        && (*tls_mask & (TLS_GD | TLS_LD)) == 0)
14117
0
      continue;
14118
0
        }
14119
14120
0
      if (stub_type.main == ppc_stub_plt_call
14121
0
          && stub_type.sub == ppc_stub_toc)
14122
0
        {
14123
0
          if (!htab->opd_abi
14124
0
        && htab->params->plt_localentry0 != 0
14125
0
        && is_elfv2_localentry0 (&hash->elf))
14126
0
      htab->has_plt_localentry0 = 1;
14127
0
          else if (irela + 1 < irelaend
14128
0
             && irela[1].r_offset == irela->r_offset + 4
14129
0
             && (ELF64_R_TYPE (irela[1].r_info)
14130
0
           == R_PPC64_TOCSAVE))
14131
0
      {
14132
0
        if (!tocsave_find (htab, INSERT,
14133
0
               &local_syms, irela + 1, input_bfd))
14134
0
          goto error_ret_free_internal;
14135
0
      }
14136
0
          else
14137
0
      stub_type.r2save = 1;
14138
0
        }
14139
14140
      /* Support for grouping stub sections.  */
14141
0
      id_sec = htab->sec_info[section->id].u.group->link_sec;
14142
14143
      /* Get the name of this stub.  */
14144
0
      stub_name = ppc_stub_name (id_sec, sym_sec, hash, irela);
14145
0
      if (!stub_name)
14146
0
        goto error_ret_free_internal;
14147
14148
0
      stub_entry = ppc_stub_hash_lookup (&htab->stub_hash_table,
14149
0
                 stub_name, false, false);
14150
0
      if (stub_entry != NULL)
14151
0
        {
14152
0
          free (stub_name);
14153
0
          if (!ppc_merge_stub (htab, stub_entry, stub_type, r_type))
14154
0
      {
14155
        /* xgettext:c-format */
14156
0
        _bfd_error_handler
14157
0
          (_("%pB: cannot create stub entry %s"),
14158
0
           section->owner, stub_entry->root.string);
14159
0
        goto error_ret_free_internal;
14160
0
      }
14161
0
          continue;
14162
0
        }
14163
14164
0
      stub_entry = ppc_add_stub (stub_name, section, info);
14165
0
      if (stub_entry == NULL)
14166
0
        {
14167
0
          free (stub_name);
14168
0
        error_ret_free_internal:
14169
0
          if (elf_section_data (section)->relocs == NULL)
14170
0
      free (internal_relocs);
14171
0
        error_ret_free_local:
14172
0
          if (symtab_hdr->contents
14173
0
        != (unsigned char *) local_syms)
14174
0
      free (local_syms);
14175
0
          return false;
14176
0
        }
14177
14178
0
      stub_entry->type = stub_type;
14179
0
      if (stub_type.main == ppc_stub_plt_call)
14180
0
        {
14181
0
          stub_entry->target_value = sym_value;
14182
0
          stub_entry->target_section = sym_sec;
14183
0
        }
14184
0
      else
14185
0
        {
14186
0
          stub_entry->target_value = code_value;
14187
0
          stub_entry->target_section = code_sec;
14188
0
        }
14189
0
      stub_entry->h = hash;
14190
0
      stub_entry->plt_ent = plt_ent;
14191
0
      stub_entry->symtype
14192
0
        = hash ? hash->elf.type : ELF_ST_TYPE (sym->st_info);
14193
0
      stub_entry->other = hash ? hash->elf.other : sym->st_other;
14194
14195
0
      if (hash != NULL
14196
0
          && (hash->elf.root.type == bfd_link_hash_defined
14197
0
        || hash->elf.root.type == bfd_link_hash_defweak))
14198
0
        htab->stub_globals += 1;
14199
0
    }
14200
14201
        /* We're done with the internal relocs, free them.  */
14202
0
        if (elf_section_data (section)->relocs != internal_relocs)
14203
0
    free (internal_relocs);
14204
0
      }
14205
14206
0
    if (local_syms != NULL
14207
0
        && symtab_hdr->contents != (unsigned char *) local_syms)
14208
0
      {
14209
0
        if (!info->keep_memory)
14210
0
    free (local_syms);
14211
0
        else
14212
0
    symtab_hdr->contents = (unsigned char *) local_syms;
14213
0
      }
14214
0
  }
14215
14216
      /* We may have added some stubs.  Find out the new size of the
14217
   stub sections.  */
14218
0
      for (group = htab->group; group != NULL; group = group->next)
14219
0
  {
14220
0
    group->lr_restore = 0;
14221
0
    group->eh_size = 0;
14222
0
    if (group->stub_sec != NULL)
14223
0
      {
14224
0
        asection *stub_sec = group->stub_sec;
14225
14226
0
        stub_sec->rawsize = stub_sec->size;
14227
0
        stub_sec->size = 0;
14228
0
        stub_sec->reloc_count = 0;
14229
0
        stub_sec->flags &= ~SEC_RELOC;
14230
0
      }
14231
0
  }
14232
0
      if (htab->tga_group != NULL)
14233
0
  {
14234
    /* See emit_tga_desc and emit_tga_desc_eh_frame.  */
14235
0
    htab->tga_group->eh_size
14236
0
      = 1 + 2 + (htab->opd_abi != 0) + 3 + 8 * 2 + 3 + 8 + 3;
14237
0
    htab->tga_group->lr_restore = 23 * 4;
14238
0
    htab->tga_group->stub_sec->size = 24 * 4;
14239
0
  }
14240
14241
0
      htab->brlt->rawsize = htab->brlt->size;
14242
0
      htab->brlt->size = 0;
14243
0
      htab->brlt->reloc_count = 0;
14244
0
      htab->brlt->flags &= ~SEC_RELOC;
14245
0
      if (htab->relbrlt != NULL)
14246
0
  htab->relbrlt->size = 0;
14247
14248
0
      if (htab->elf.srelrdyn != NULL)
14249
0
  {
14250
0
    htab->elf.srelrdyn->rawsize = htab->elf.srelrdyn->size;
14251
0
    htab->elf.srelrdyn->size = 0;
14252
0
  }
14253
14254
0
      htab->stub_changed = false;
14255
0
      htab->stub_id = 0;
14256
0
      bfd_hash_traverse (&htab->stub_hash_table, ppc_size_one_stub, info);
14257
14258
0
      for (group = htab->group; group != NULL; group = group->next)
14259
0
  if (group->needs_save_res)
14260
0
    group->stub_sec->size += htab->sfpr->size;
14261
14262
0
      if (info->emitrelocations
14263
0
    && htab->glink != NULL && htab->glink->size != 0)
14264
0
  {
14265
0
    htab->glink->reloc_count = 1;
14266
0
    htab->glink->flags |= SEC_RELOC;
14267
0
  }
14268
14269
0
      if (htab->glink_eh_frame != NULL
14270
0
    && !bfd_is_abs_section (htab->glink_eh_frame->output_section)
14271
0
    && htab->glink_eh_frame->output_section->size > 8)
14272
0
  {
14273
0
    size_t size = 0, align = 4;
14274
14275
0
    for (group = htab->group; group != NULL; group = group->next)
14276
0
      if (group->eh_size != 0)
14277
0
        size += (group->eh_size + 17 + align - 1) & -align;
14278
0
    if (htab->glink != NULL && htab->glink->size != 0)
14279
0
      size += (24 + align - 1) & -align;
14280
0
    if (size != 0)
14281
0
      size += (sizeof (glink_eh_frame_cie) + align - 1) & -align;
14282
0
    align = 1ul << htab->glink_eh_frame->output_section->alignment_power;
14283
0
    size = (size + align - 1) & -align;
14284
0
    htab->glink_eh_frame->rawsize = htab->glink_eh_frame->size;
14285
0
    htab->glink_eh_frame->size = size;
14286
0
  }
14287
14288
0
      if (htab->params->plt_stub_align != 0)
14289
0
  for (group = htab->group; group != NULL; group = group->next)
14290
0
    if (group->stub_sec != NULL)
14291
0
      {
14292
0
        int align = abs (htab->params->plt_stub_align);
14293
0
        group->stub_sec->size
14294
0
    = (group->stub_sec->size + (1 << align) - 1) & -(1 << align);
14295
0
      }
14296
14297
0
      if (htab->elf.srelrdyn != NULL)
14298
0
  {
14299
0
    bfd_vma r_offset;
14300
14301
0
    for (r_offset = 0; r_offset < htab->brlt->size; r_offset += 8)
14302
0
      if (!append_relr_off (htab, htab->brlt, r_offset))
14303
0
        return false;
14304
14305
0
    if (!got_and_plt_relr_for_local_syms (info))
14306
0
      return false;
14307
0
    elf_link_hash_traverse (&htab->elf, got_and_plt_relr, info);
14308
0
    if (htab->stub_error)
14309
0
      return false;
14310
14311
0
    bfd_vma *relr_addr = sort_relr (htab);
14312
0
    if (htab->relr_count != 0 && relr_addr == NULL)
14313
0
      return false;
14314
14315
0
    size_t i = 0;
14316
0
    while (i < htab->relr_count)
14317
0
      {
14318
0
        bfd_vma base = relr_addr[i];
14319
0
        htab->elf.srelrdyn->size += 8;
14320
0
        i++;
14321
        /* Handle possible duplicate address.  This can happen
14322
     as sections increase in size when adding stubs.  */
14323
0
        while (i < htab->relr_count
14324
0
         && relr_addr[i] == base)
14325
0
    i++;
14326
0
        base += 8;
14327
0
        while (1)
14328
0
    {
14329
0
      size_t start_i = i;
14330
0
      while (i < htab->relr_count
14331
0
       && relr_addr[i] - base < 63 * 8
14332
0
       && (relr_addr[i] - base) % 8 == 0)
14333
0
        i++;
14334
0
      if (i == start_i)
14335
0
        break;
14336
0
      htab->elf.srelrdyn->size += 8;
14337
0
      base += 63 * 8;
14338
0
    }
14339
0
      }
14340
0
    free (relr_addr);
14341
0
  }
14342
14343
0
      for (group = htab->group; group != NULL; group = group->next)
14344
0
  if (group->stub_sec != NULL
14345
0
      && group->stub_sec->rawsize != group->stub_sec->size
14346
0
      && (htab->stub_iteration <= STUB_SHRINK_ITER
14347
0
    || group->stub_sec->rawsize < group->stub_sec->size))
14348
0
    break;
14349
14350
0
      if (group == NULL
14351
0
    && (!htab->stub_changed
14352
0
        || htab->stub_iteration > STUB_SHRINK_ITER)
14353
0
    && (htab->brlt->rawsize == htab->brlt->size
14354
0
        || (htab->stub_iteration > STUB_SHRINK_ITER
14355
0
      && htab->brlt->rawsize > htab->brlt->size))
14356
0
    && (htab->elf.srelrdyn == NULL
14357
0
        || htab->elf.srelrdyn->rawsize == htab->elf.srelrdyn->size
14358
0
        || (htab->stub_iteration > STUB_SHRINK_ITER
14359
0
      && htab->elf.srelrdyn->rawsize > htab->elf.srelrdyn->size))
14360
0
    && (htab->glink_eh_frame == NULL
14361
0
        || htab->glink_eh_frame->rawsize == htab->glink_eh_frame->size)
14362
0
    && (htab->tga_group == NULL
14363
0
        || htab->stub_iteration > 1))
14364
0
  break;
14365
14366
0
      if (htab->stub_iteration > STUB_SHRINK_ITER)
14367
0
  {
14368
0
    for (group = htab->group; group != NULL; group = group->next)
14369
0
      if (group->stub_sec != NULL
14370
0
    && group->stub_sec->size < group->stub_sec->rawsize)
14371
0
        group->stub_sec->size = group->stub_sec->rawsize;
14372
14373
0
    if (htab->brlt->size < htab->brlt->rawsize)
14374
0
      htab->brlt->size = htab->brlt->rawsize;
14375
14376
0
    if (htab->elf.srelrdyn != NULL
14377
0
        && htab->elf.srelrdyn->size < htab->elf.srelrdyn->rawsize)
14378
0
      htab->elf.srelrdyn->size = htab->elf.srelrdyn->rawsize;
14379
0
  }
14380
14381
      /* Ask the linker to do its stuff.  */
14382
0
      (*htab->params->layout_sections_again) ();
14383
0
    }
14384
14385
0
  if (htab->glink_eh_frame != NULL
14386
0
      && htab->glink_eh_frame->size != 0)
14387
0
    {
14388
0
      bfd_vma val;
14389
0
      bfd_byte *p, *last_fde;
14390
0
      size_t last_fde_len, size, align, pad;
14391
0
      struct map_stub *group;
14392
14393
      /* It is necessary to at least have a rough outline of the
14394
   linker generated CIEs and FDEs written before
14395
   bfd_elf_discard_info is run, in order for these FDEs to be
14396
   indexed in .eh_frame_hdr.  */
14397
0
      p = bfd_zalloc (htab->glink_eh_frame->owner, htab->glink_eh_frame->size);
14398
0
      if (p == NULL)
14399
0
  return false;
14400
0
      htab->glink_eh_frame->contents = p;
14401
0
      last_fde = p;
14402
0
      align = 4;
14403
14404
0
      memcpy (p, glink_eh_frame_cie, sizeof (glink_eh_frame_cie));
14405
      /* CIE length (rewrite in case little-endian).  */
14406
0
      last_fde_len = ((sizeof (glink_eh_frame_cie) + align - 1) & -align) - 4;
14407
0
      bfd_put_32 (htab->elf.dynobj, last_fde_len, p);
14408
0
      p += last_fde_len + 4;
14409
14410
0
      for (group = htab->group; group != NULL; group = group->next)
14411
0
  if (group->eh_size != 0)
14412
0
    {
14413
0
      group->eh_base = p - htab->glink_eh_frame->contents;
14414
0
      last_fde = p;
14415
0
      last_fde_len = ((group->eh_size + 17 + align - 1) & -align) - 4;
14416
      /* FDE length.  */
14417
0
      bfd_put_32 (htab->elf.dynobj, last_fde_len, p);
14418
0
      p += 4;
14419
      /* CIE pointer.  */
14420
0
      val = p - htab->glink_eh_frame->contents;
14421
0
      bfd_put_32 (htab->elf.dynobj, val, p);
14422
0
      p += 4;
14423
      /* Offset to stub section, written later.  */
14424
0
      p += 4;
14425
      /* stub section size.  */
14426
0
      bfd_put_32 (htab->elf.dynobj, group->stub_sec->size, p);
14427
0
      p += 4;
14428
      /* Augmentation.  */
14429
0
      p += 1;
14430
      /* Make sure we don't have all nops.  This is enough for
14431
         elf-eh-frame.c to detect the last non-nop opcode.  */
14432
0
      p[group->eh_size - 1] = DW_CFA_advance_loc + 1;
14433
0
      p = last_fde + last_fde_len + 4;
14434
0
    }
14435
0
      if (htab->glink != NULL && htab->glink->size != 0)
14436
0
  {
14437
0
    last_fde = p;
14438
0
    last_fde_len = ((24 + align - 1) & -align) - 4;
14439
    /* FDE length.  */
14440
0
    bfd_put_32 (htab->elf.dynobj, last_fde_len, p);
14441
0
    p += 4;
14442
    /* CIE pointer.  */
14443
0
    val = p - htab->glink_eh_frame->contents;
14444
0
    bfd_put_32 (htab->elf.dynobj, val, p);
14445
0
    p += 4;
14446
    /* Offset to .glink, written later.  */
14447
0
    p += 4;
14448
    /* .glink size.  */
14449
0
    bfd_put_32 (htab->elf.dynobj, htab->glink->size - 8, p);
14450
0
    p += 4;
14451
    /* Augmentation.  */
14452
0
    p += 1;
14453
14454
0
    *p++ = DW_CFA_advance_loc + (htab->has_plt_localentry0 ? 3 : 2);
14455
0
    *p++ = DW_CFA_register;
14456
0
    *p++ = 65;
14457
0
    *p++ = htab->opd_abi ? 12 : 0;
14458
0
    *p++ = DW_CFA_advance_loc + (htab->opd_abi ? 4 : 2);
14459
0
    *p++ = DW_CFA_restore_extended;
14460
0
    *p++ = 65;
14461
0
    p += ((24 + align - 1) & -align) - 24;
14462
0
  }
14463
      /* Subsume any padding into the last FDE if user .eh_frame
14464
   sections are aligned more than glink_eh_frame.  Otherwise any
14465
   zero padding will be seen as a terminator.  */
14466
0
      align = 1ul << htab->glink_eh_frame->output_section->alignment_power;
14467
0
      size = p - htab->glink_eh_frame->contents;
14468
0
      pad = ((size + align - 1) & -align) - size;
14469
0
      htab->glink_eh_frame->size = size + pad;
14470
0
      bfd_put_32 (htab->elf.dynobj, last_fde_len + pad, last_fde);
14471
0
    }
14472
14473
0
  maybe_strip_output (info, htab->brlt);
14474
0
  if (htab->relbrlt != NULL)
14475
0
    maybe_strip_output (info, htab->relbrlt);
14476
0
  if (htab->glink_eh_frame != NULL)
14477
0
    maybe_strip_output (info, htab->glink_eh_frame);
14478
0
  if (htab->elf.srelrdyn != NULL)
14479
0
    maybe_strip_output (info, htab->elf.srelrdyn);
14480
14481
0
  return true;
14482
0
}
14483
14484
/* Called after we have determined section placement.  If sections
14485
   move, we'll be called again.  Provide a value for TOCstart.  */
14486
14487
bfd_vma
14488
ppc64_elf_set_toc (struct bfd_link_info *info, bfd *obfd)
14489
10
{
14490
10
  asection *s;
14491
10
  bfd_vma TOCstart, adjust;
14492
14493
10
  if (info != NULL)
14494
0
    {
14495
0
      struct elf_link_hash_entry *h;
14496
0
      struct elf_link_hash_table *htab = elf_hash_table (info);
14497
14498
0
      if (is_elf_hash_table (&htab->root)
14499
0
    && htab->hgot != NULL)
14500
0
  h = htab->hgot;
14501
0
      else
14502
0
  {
14503
0
    h = (struct elf_link_hash_entry *)
14504
0
      bfd_link_hash_lookup (&htab->root, ".TOC.", false, false, true);
14505
0
    if (is_elf_hash_table (&htab->root))
14506
0
      htab->hgot = h;
14507
0
  }
14508
0
      if (h != NULL
14509
0
    && h->root.type == bfd_link_hash_defined
14510
0
    && !h->root.linker_def
14511
0
    && (!is_elf_hash_table (&htab->root)
14512
0
        || h->def_regular))
14513
0
  {
14514
0
    TOCstart = defined_sym_val (h) - TOC_BASE_OFF;
14515
0
    _bfd_set_gp_value (obfd, TOCstart);
14516
0
    return TOCstart;
14517
0
  }
14518
0
    }
14519
14520
  /* The TOC consists of sections .got, .toc, .tocbss, .plt in that
14521
     order.  The TOC starts where the first of these sections starts.  */
14522
10
  s = bfd_get_section_by_name (obfd, ".got");
14523
10
  if (s == NULL || (s->flags & SEC_EXCLUDE) != 0)
14524
10
    s = bfd_get_section_by_name (obfd, ".toc");
14525
10
  if (s == NULL || (s->flags & SEC_EXCLUDE) != 0)
14526
10
    s = bfd_get_section_by_name (obfd, ".tocbss");
14527
10
  if (s == NULL || (s->flags & SEC_EXCLUDE) != 0)
14528
10
    s = bfd_get_section_by_name (obfd, ".plt");
14529
10
  if (s == NULL || (s->flags & SEC_EXCLUDE) != 0)
14530
10
    {
14531
      /* This may happen for
14532
   o  references to TOC base (SYM@toc / TOC[tc0]) without a
14533
   .toc directive
14534
   o  bad linker script
14535
   o --gc-sections and empty TOC sections
14536
14537
   FIXME: Warn user?  */
14538
14539
      /* Look for a likely section.  We probably won't even be
14540
   using TOCstart.  */
14541
181
      for (s = obfd->sections; s != NULL; s = s->next)
14542
171
  if ((s->flags & (SEC_ALLOC | SEC_SMALL_DATA | SEC_READONLY
14543
171
       | SEC_EXCLUDE))
14544
171
      == (SEC_ALLOC | SEC_SMALL_DATA))
14545
0
    break;
14546
10
      if (s == NULL)
14547
181
  for (s = obfd->sections; s != NULL; s = s->next)
14548
171
    if ((s->flags & (SEC_ALLOC | SEC_SMALL_DATA | SEC_EXCLUDE))
14549
171
        == (SEC_ALLOC | SEC_SMALL_DATA))
14550
0
      break;
14551
10
      if (s == NULL)
14552
157
  for (s = obfd->sections; s != NULL; s = s->next)
14553
149
    if ((s->flags & (SEC_ALLOC | SEC_READONLY | SEC_EXCLUDE))
14554
149
        == SEC_ALLOC)
14555
2
      break;
14556
10
      if (s == NULL)
14557
31
  for (s = obfd->sections; s != NULL; s = s->next)
14558
31
    if ((s->flags & (SEC_ALLOC | SEC_EXCLUDE)) == SEC_ALLOC)
14559
8
      break;
14560
10
    }
14561
14562
10
  TOCstart = 0;
14563
10
  if (s != NULL)
14564
10
    TOCstart = s->output_section->vma + s->output_offset;
14565
14566
  /* Force alignment.  */
14567
10
  adjust = TOCstart & (TOC_BASE_ALIGN - 1);
14568
10
  TOCstart -= adjust;
14569
10
  _bfd_set_gp_value (obfd, TOCstart);
14570
14571
10
  if (info != NULL && s != NULL)
14572
0
    {
14573
0
      struct ppc_link_hash_table *htab = ppc_hash_table (info);
14574
14575
0
      if (htab != NULL)
14576
0
  {
14577
0
    if (htab->elf.hgot != NULL)
14578
0
      {
14579
0
        htab->elf.hgot->root.u.def.value = TOC_BASE_OFF - adjust;
14580
0
        htab->elf.hgot->root.u.def.section = s;
14581
0
      }
14582
0
  }
14583
0
      else
14584
0
  {
14585
0
    struct bfd_link_hash_entry *bh = NULL;
14586
0
    _bfd_generic_link_add_one_symbol (info, obfd, ".TOC.", BSF_GLOBAL,
14587
0
              s, TOC_BASE_OFF - adjust,
14588
0
              NULL, false, false, &bh);
14589
0
  }
14590
0
    }
14591
10
  return TOCstart;
14592
10
}
14593
14594
/* Called via elf_link_hash_traverse from ppc64_elf_build_stubs to
14595
   write out any global entry stubs, and PLT relocations.  */
14596
14597
static bool
14598
build_global_entry_stubs_and_plt (struct elf_link_hash_entry *h, void *inf)
14599
0
{
14600
0
  struct bfd_link_info *info;
14601
0
  struct ppc_link_hash_table *htab;
14602
0
  struct plt_entry *ent;
14603
0
  asection *s;
14604
14605
0
  if (h->root.type == bfd_link_hash_indirect)
14606
0
    return true;
14607
14608
0
  info = inf;
14609
0
  htab = ppc_hash_table (info);
14610
0
  if (htab == NULL)
14611
0
    return false;
14612
14613
0
  for (ent = h->plt.plist; ent != NULL; ent = ent->next)
14614
0
    if (ent->plt.offset != (bfd_vma) -1)
14615
0
      {
14616
  /* This symbol has an entry in the procedure linkage
14617
     table.  Set it up.  */
14618
0
  Elf_Internal_Rela rela;
14619
0
  asection *plt, *relplt;
14620
0
  bfd_byte *loc;
14621
14622
0
  if (use_local_plt (info, h))
14623
0
    {
14624
0
      if (!(h->def_regular
14625
0
      && (h->root.type == bfd_link_hash_defined
14626
0
          || h->root.type == bfd_link_hash_defweak)))
14627
0
        continue;
14628
0
      if (h->type == STT_GNU_IFUNC)
14629
0
        {
14630
0
    plt = htab->elf.iplt;
14631
0
    relplt = htab->elf.irelplt;
14632
0
    htab->elf.ifunc_resolvers = true;
14633
0
    if (htab->opd_abi)
14634
0
      rela.r_info = ELF64_R_INFO (0, R_PPC64_JMP_IREL);
14635
0
    else
14636
0
      rela.r_info = ELF64_R_INFO (0, R_PPC64_IRELATIVE);
14637
0
        }
14638
0
      else
14639
0
        {
14640
0
    plt = htab->pltlocal;
14641
0
    relplt = NULL;
14642
0
    if (bfd_link_pic (info)
14643
0
        && !(info->enable_dt_relr && !htab->opd_abi))
14644
0
      {
14645
0
        relplt = htab->relpltlocal;
14646
0
        if (htab->opd_abi)
14647
0
          rela.r_info = ELF64_R_INFO (0, R_PPC64_JMP_SLOT);
14648
0
        else
14649
0
          rela.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
14650
0
      }
14651
0
        }
14652
0
      rela.r_addend = defined_sym_val (h) + ent->addend;
14653
14654
0
      if (relplt == NULL)
14655
0
        {
14656
0
    loc = plt->contents + ent->plt.offset;
14657
0
    bfd_put_64 (info->output_bfd, rela.r_addend, loc);
14658
0
    if (htab->opd_abi)
14659
0
      {
14660
0
        bfd_vma toc = elf_gp (info->output_bfd);
14661
0
        toc += htab->sec_info[h->root.u.def.section->id].toc_off;
14662
0
        bfd_put_64 (info->output_bfd, toc, loc + 8);
14663
0
      }
14664
0
        }
14665
0
      else
14666
0
        {
14667
0
    rela.r_offset = (plt->output_section->vma
14668
0
         + plt->output_offset
14669
0
         + ent->plt.offset);
14670
0
    BFD_ASSERT (count_and_swap_reloc_out (info->output_bfd, &rela,
14671
0
                  relplt));
14672
0
        }
14673
0
    }
14674
0
  else
14675
0
    {
14676
0
      rela.r_offset = (htab->elf.splt->output_section->vma
14677
0
           + htab->elf.splt->output_offset
14678
0
           + ent->plt.offset);
14679
0
      rela.r_info = ELF64_R_INFO (h->dynindx, R_PPC64_JMP_SLOT);
14680
0
      rela.r_addend = ent->addend;
14681
0
      loc = (htab->elf.srelplt->contents
14682
0
       + ((ent->plt.offset - PLT_INITIAL_ENTRY_SIZE (htab))
14683
0
          / PLT_ENTRY_SIZE (htab) * sizeof (Elf64_External_Rela)));
14684
0
      if (h->type == STT_GNU_IFUNC && is_static_defined (h))
14685
0
        htab->elf.ifunc_resolvers = true;
14686
0
      BFD_ASSERT (swap_reloc_out (info->output_bfd, &rela,
14687
0
          loc, htab->elf.srelplt));
14688
0
    }
14689
0
      }
14690
14691
0
  if (!h->pointer_equality_needed)
14692
0
    return true;
14693
14694
0
  if (h->def_regular)
14695
0
    return true;
14696
14697
0
  s = htab->global_entry;
14698
0
  if (s == NULL || s->size == 0)
14699
0
    return true;
14700
14701
0
  for (ent = h->plt.plist; ent != NULL; ent = ent->next)
14702
0
    if (ent->plt.offset != (bfd_vma) -1
14703
0
  && ent->addend == 0)
14704
0
      {
14705
0
  bfd_byte *p;
14706
0
  asection *plt;
14707
0
  bfd_vma off;
14708
14709
0
  p = s->contents + h->root.u.def.value;
14710
0
  plt = htab->elf.splt;
14711
0
  if (use_local_plt (info, h))
14712
0
    {
14713
0
      if (h->type == STT_GNU_IFUNC)
14714
0
        plt = htab->elf.iplt;
14715
0
      else
14716
0
        plt = htab->pltlocal;
14717
0
    }
14718
0
  off = ent->plt.offset + plt->output_offset + plt->output_section->vma;
14719
0
  off -= h->root.u.def.value + s->output_offset + s->output_section->vma;
14720
14721
0
  if (off + 0x80008000 > 0xffffffff || (off & 3) != 0)
14722
0
    {
14723
0
      info->callbacks->einfo
14724
0
        (_("%P: linkage table error against `%pT'\n"),
14725
0
         h->root.root.string);
14726
0
      bfd_set_error (bfd_error_bad_value);
14727
0
      htab->stub_error = true;
14728
0
    }
14729
14730
0
  htab->stub_count[ppc_stub_global_entry - 1] += 1;
14731
0
  if (htab->params->emit_stub_syms)
14732
0
    {
14733
0
      size_t len = strlen (h->root.root.string);
14734
0
      char *name = bfd_malloc (sizeof "12345678.global_entry." + len);
14735
14736
0
      if (name == NULL)
14737
0
        return false;
14738
14739
0
      sprintf (name, "%08x.global_entry.%s", s->id, h->root.root.string);
14740
0
      h = elf_link_hash_lookup (&htab->elf, name, true, false, false);
14741
0
      if (h == NULL)
14742
0
        return false;
14743
0
      if (h->root.type == bfd_link_hash_new)
14744
0
        {
14745
0
    h->root.type = bfd_link_hash_defined;
14746
0
    h->root.u.def.section = s;
14747
0
    h->root.u.def.value = p - s->contents;
14748
0
    h->ref_regular = 1;
14749
0
    h->def_regular = 1;
14750
0
    h->ref_regular_nonweak = 1;
14751
0
    h->forced_local = 1;
14752
0
    h->non_elf = 0;
14753
0
    h->root.linker_def = 1;
14754
0
        }
14755
0
    }
14756
14757
0
  if (PPC_HA (off) != 0)
14758
0
    {
14759
0
      bfd_put_32 (s->owner, ADDIS_R12_R12 | PPC_HA (off), p);
14760
0
      p += 4;
14761
0
    }
14762
0
  bfd_put_32 (s->owner, LD_R12_0R12 | PPC_LO (off), p);
14763
0
  p += 4;
14764
0
  bfd_put_32 (s->owner, MTCTR_R12, p);
14765
0
  p += 4;
14766
0
  bfd_put_32 (s->owner, BCTR, p);
14767
0
  break;
14768
0
      }
14769
0
  return true;
14770
0
}
14771
14772
/* Write PLT relocs for locals.  */
14773
14774
static bool
14775
write_plt_relocs_for_local_syms (struct bfd_link_info *info)
14776
0
{
14777
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
14778
0
  bfd *ibfd;
14779
14780
0
  for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
14781
0
    {
14782
0
      struct got_entry **lgot_ents, **end_lgot_ents;
14783
0
      struct plt_entry **local_plt, **lplt, **end_local_plt;
14784
0
      Elf_Internal_Shdr *symtab_hdr;
14785
0
      bfd_size_type locsymcount;
14786
0
      Elf_Internal_Sym *local_syms = NULL;
14787
0
      struct plt_entry *ent;
14788
14789
0
      if (!is_ppc64_elf (ibfd))
14790
0
  continue;
14791
14792
0
      lgot_ents = elf_local_got_ents (ibfd);
14793
0
      if (!lgot_ents)
14794
0
  continue;
14795
14796
0
      symtab_hdr = &elf_symtab_hdr (ibfd);
14797
0
      locsymcount = symtab_hdr->sh_info;
14798
0
      end_lgot_ents = lgot_ents + locsymcount;
14799
0
      local_plt = (struct plt_entry **) end_lgot_ents;
14800
0
      end_local_plt = local_plt + locsymcount;
14801
0
      for (lplt = local_plt; lplt < end_local_plt; ++lplt)
14802
0
  for (ent = *lplt; ent != NULL; ent = ent->next)
14803
0
    if (ent->plt.offset != (bfd_vma) -1)
14804
0
      {
14805
0
        Elf_Internal_Sym *sym;
14806
0
        asection *sym_sec;
14807
0
        asection *plt, *relplt;
14808
0
        bfd_vma val;
14809
14810
0
        if (!get_sym_h (NULL, &sym, &sym_sec, NULL, &local_syms,
14811
0
            lplt - local_plt, ibfd))
14812
0
    {
14813
0
      if (symtab_hdr->contents != (unsigned char *) local_syms)
14814
0
        free (local_syms);
14815
0
      return false;
14816
0
    }
14817
14818
0
        val = sym->st_value + ent->addend;
14819
0
        if (sym_sec != NULL && sym_sec->output_section != NULL)
14820
0
    val += sym_sec->output_offset + sym_sec->output_section->vma;
14821
14822
0
        if (ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
14823
0
    {
14824
0
      htab->elf.ifunc_resolvers = true;
14825
0
      plt = htab->elf.iplt;
14826
0
      relplt = htab->elf.irelplt;
14827
0
    }
14828
0
        else
14829
0
    {
14830
0
      plt = htab->pltlocal;
14831
0
      relplt = NULL;
14832
0
      if (bfd_link_pic (info)
14833
0
          && !(info->enable_dt_relr && !htab->opd_abi))
14834
0
        relplt = htab->relpltlocal;
14835
0
    }
14836
14837
0
        if (relplt == NULL)
14838
0
    {
14839
0
      bfd_byte *loc = plt->contents + ent->plt.offset;
14840
0
      bfd_put_64 (info->output_bfd, val, loc);
14841
0
      if (htab->opd_abi)
14842
0
        {
14843
0
          bfd_vma toc = elf_gp (ibfd);
14844
0
          bfd_put_64 (info->output_bfd, toc, loc + 8);
14845
0
        }
14846
0
    }
14847
0
        else
14848
0
    {
14849
0
      Elf_Internal_Rela rela;
14850
0
      rela.r_offset = (ent->plt.offset
14851
0
           + plt->output_offset
14852
0
           + plt->output_section->vma);
14853
0
      if (ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
14854
0
        {
14855
0
          if (htab->opd_abi)
14856
0
      rela.r_info = ELF64_R_INFO (0, R_PPC64_JMP_IREL);
14857
0
          else
14858
0
      rela.r_info = ELF64_R_INFO (0, R_PPC64_IRELATIVE);
14859
0
        }
14860
0
      else
14861
0
        {
14862
0
          if (htab->opd_abi)
14863
0
      rela.r_info = ELF64_R_INFO (0, R_PPC64_JMP_SLOT);
14864
0
          else
14865
0
      rela.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
14866
0
        }
14867
0
      rela.r_addend = val;
14868
0
      BFD_ASSERT (count_and_swap_reloc_out (info->output_bfd,
14869
0
               &rela, relplt));
14870
0
    }
14871
0
      }
14872
14873
0
      if (local_syms != NULL
14874
0
    && symtab_hdr->contents != (unsigned char *) local_syms)
14875
0
  {
14876
0
    if (!info->keep_memory)
14877
0
      free (local_syms);
14878
0
    else
14879
0
      symtab_hdr->contents = (unsigned char *) local_syms;
14880
0
  }
14881
0
    }
14882
0
  return true;
14883
0
}
14884
14885
/* Emit the static wrapper function preserving registers around a
14886
   __tls_get_addr_opt call.  */
14887
14888
static bool
14889
emit_tga_desc (struct ppc_link_hash_table *htab)
14890
0
{
14891
0
  asection *stub_sec = htab->tga_group->stub_sec;
14892
0
  unsigned int cfa_updt = 11 * 4;
14893
0
  bfd_byte *p;
14894
0
  bfd_vma to, from, delta;
14895
14896
0
  BFD_ASSERT (htab->tga_desc_fd->elf.root.type == bfd_link_hash_defined
14897
0
        && htab->tga_desc_fd->elf.root.u.def.section == stub_sec
14898
0
        && htab->tga_desc_fd->elf.root.u.def.value == 0);
14899
0
  to = defined_sym_val (&htab->tls_get_addr_fd->elf);
14900
0
  from = defined_sym_val (&htab->tga_desc_fd->elf) + cfa_updt;
14901
0
  delta = to - from;
14902
0
  if (delta + (1 << 25) >= 1 << 26)
14903
0
    {
14904
0
      _bfd_error_handler (_("__tls_get_addr call offset overflow"));
14905
0
      htab->stub_error = true;
14906
0
      return false;
14907
0
    }
14908
14909
0
  p = stub_sec->contents;
14910
0
  p = tls_get_addr_prologue (htab->elf.dynobj, p, htab);
14911
0
  bfd_put_32 (stub_sec->owner, B_DOT | 1 | (delta & 0x3fffffc), p);
14912
0
  p += 4;
14913
0
  p = tls_get_addr_epilogue (htab->elf.dynobj, p, htab);
14914
0
  return stub_sec->size == (bfd_size_type) (p - stub_sec->contents);
14915
0
}
14916
14917
/* Emit eh_frame describing the static wrapper function.  */
14918
14919
static bfd_byte *
14920
emit_tga_desc_eh_frame (struct ppc_link_hash_table *htab, bfd_byte *p)
14921
0
{
14922
0
  unsigned int cfa_updt = 11 * 4;
14923
0
  unsigned int i;
14924
14925
0
  *p++ = DW_CFA_advance_loc + cfa_updt / 4;
14926
0
  *p++ = DW_CFA_def_cfa_offset;
14927
0
  if (htab->opd_abi)
14928
0
    {
14929
0
      *p++ = 128;
14930
0
      *p++ = 1;
14931
0
    }
14932
0
  else
14933
0
    *p++ = 96;
14934
0
  *p++ = DW_CFA_offset_extended_sf;
14935
0
  *p++ = 65;
14936
0
  *p++ = (-16 / 8) & 0x7f;
14937
0
  for (i = 4; i < 12; i++)
14938
0
    {
14939
0
      *p++ = DW_CFA_offset + i;
14940
0
      *p++ = (htab->opd_abi ? 13 : 12) - i;
14941
0
    }
14942
0
  *p++ = DW_CFA_advance_loc + 10;
14943
0
  *p++ = DW_CFA_def_cfa_offset;
14944
0
  *p++ = 0;
14945
0
  for (i = 4; i < 12; i++)
14946
0
    *p++ = DW_CFA_restore + i;
14947
0
  *p++ = DW_CFA_advance_loc + 2;
14948
0
  *p++ = DW_CFA_restore_extended;
14949
0
  *p++ = 65;
14950
0
  return p;
14951
0
}
14952
14953
/* Build all the stubs associated with the current output file.
14954
   The stubs are kept in a hash table attached to the main linker
14955
   hash table.  This function is called via gldelf64ppc_finish.  */
14956
14957
bool
14958
ppc64_elf_build_stubs (struct bfd_link_info *info,
14959
           char **stats)
14960
0
{
14961
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
14962
0
  struct map_stub *group;
14963
0
  asection *stub_sec;
14964
0
  bfd_byte *p;
14965
0
  int stub_sec_count = 0;
14966
14967
0
  if (htab == NULL)
14968
0
    return false;
14969
14970
  /* Allocate memory to hold the linker stubs.  */
14971
0
  for (group = htab->group; group != NULL; group = group->next)
14972
0
    {
14973
0
      group->eh_size = 0;
14974
0
      group->lr_restore = 0;
14975
0
      if ((stub_sec = group->stub_sec) != NULL
14976
0
    && stub_sec->size != 0)
14977
0
  {
14978
0
    stub_sec->contents = bfd_zalloc (htab->params->stub_bfd,
14979
0
             stub_sec->size);
14980
0
    if (stub_sec->contents == NULL)
14981
0
      return false;
14982
0
    stub_sec->size = 0;
14983
0
  }
14984
0
    }
14985
14986
0
  if (htab->glink != NULL && htab->glink->size != 0)
14987
0
    {
14988
0
      unsigned int indx;
14989
0
      bfd_vma plt0;
14990
14991
      /* Build the .glink plt call stub.  */
14992
0
      if (htab->params->emit_stub_syms)
14993
0
  {
14994
0
    struct elf_link_hash_entry *h;
14995
0
    h = elf_link_hash_lookup (&htab->elf, "__glink_PLTresolve",
14996
0
            true, false, false);
14997
0
    if (h == NULL)
14998
0
      return false;
14999
0
    if (h->root.type == bfd_link_hash_new)
15000
0
      {
15001
0
        h->root.type = bfd_link_hash_defined;
15002
0
        h->root.u.def.section = htab->glink;
15003
0
        h->root.u.def.value = 8;
15004
0
        h->ref_regular = 1;
15005
0
        h->def_regular = 1;
15006
0
        h->ref_regular_nonweak = 1;
15007
0
        h->forced_local = 1;
15008
0
        h->non_elf = 0;
15009
0
        h->root.linker_def = 1;
15010
0
      }
15011
0
  }
15012
0
      plt0 = (htab->elf.splt->output_section->vma
15013
0
        + htab->elf.splt->output_offset
15014
0
        - 16);
15015
0
      if (info->emitrelocations)
15016
0
  {
15017
0
    Elf_Internal_Rela *r = get_relocs (htab->glink, 1);
15018
0
    if (r == NULL)
15019
0
      return false;
15020
0
    r->r_offset = (htab->glink->output_offset
15021
0
       + htab->glink->output_section->vma);
15022
0
    r->r_info = ELF64_R_INFO (0, R_PPC64_REL64);
15023
0
    r->r_addend = plt0;
15024
0
  }
15025
0
      p = htab->glink->contents;
15026
0
      plt0 -= htab->glink->output_section->vma + htab->glink->output_offset;
15027
0
      bfd_put_64 (htab->glink->owner, plt0, p);
15028
0
      p += 8;
15029
0
      if (htab->opd_abi)
15030
0
  {
15031
0
    bfd_put_32 (htab->glink->owner, MFLR_R12, p);
15032
0
    p += 4;
15033
0
    bfd_put_32 (htab->glink->owner, BCL_20_31, p);
15034
0
    p += 4;
15035
0
    bfd_put_32 (htab->glink->owner, MFLR_R11, p);
15036
0
    p += 4;
15037
0
    bfd_put_32 (htab->glink->owner, LD_R2_0R11 | (-16 & 0xfffc), p);
15038
0
    p += 4;
15039
0
    bfd_put_32 (htab->glink->owner, MTLR_R12, p);
15040
0
    p += 4;
15041
0
    bfd_put_32 (htab->glink->owner, ADD_R11_R2_R11, p);
15042
0
    p += 4;
15043
0
    bfd_put_32 (htab->glink->owner, LD_R12_0R11, p);
15044
0
    p += 4;
15045
0
    bfd_put_32 (htab->glink->owner, LD_R2_0R11 | 8, p);
15046
0
    p += 4;
15047
0
    bfd_put_32 (htab->glink->owner, MTCTR_R12, p);
15048
0
    p += 4;
15049
0
    bfd_put_32 (htab->glink->owner, LD_R11_0R11 | 16, p);
15050
0
    p += 4;
15051
0
  }
15052
0
      else
15053
0
  {
15054
0
    unsigned int insn;
15055
15056
    /* 0:
15057
       .  .quad plt0-1f   # plt0 entry relative to 1:
15058
       #
15059
       # We get here with r12 initially @ a glink branch
15060
       # Load the address of _dl_runtime_resolve from plt0 and
15061
       # jump to it, with r0 set to the index of the PLT entry
15062
       # to be resolved and r11 the link map.
15063
       __glink_PLTresolve:
15064
       .  std %r2,24(%r1)   # optional
15065
       .  mflr %r0
15066
       .  bcl 20,31,1f
15067
       1:
15068
       .  mflr %r11
15069
       .  mtlr %r0
15070
       .  ld %r0,(0b-1b)(%r11)
15071
       .  sub %r12,%r12,%r11
15072
       .  add %r11,%r0,%r11
15073
       .  addi %r0,%r12,1b-2f
15074
       .  ld %r12,0(%r11)
15075
       .  srdi %r0,%r0,2
15076
       .  mtctr %r12
15077
       .  ld %r11,8(%r11)
15078
       .  bctr
15079
       2:
15080
       .  b __glink_PLTresolve
15081
       .  ...
15082
       .  b __glink_PLTresolve  */
15083
15084
0
    if (htab->has_plt_localentry0)
15085
0
      {
15086
0
        bfd_put_32 (htab->glink->owner, STD_R2_0R1 + 24, p);
15087
0
        p += 4;
15088
0
      }
15089
0
    bfd_put_32 (htab->glink->owner, MFLR_R0, p);
15090
0
    p += 4;
15091
0
    bfd_put_32 (htab->glink->owner, BCL_20_31, p);
15092
0
    p += 4;
15093
0
    bfd_put_32 (htab->glink->owner, MFLR_R11, p);
15094
0
    p += 4;
15095
0
    bfd_put_32 (htab->glink->owner, MTLR_R0, p);
15096
0
    p += 4;
15097
0
    if (htab->has_plt_localentry0)
15098
0
      insn = LD_R0_0R11 | (-20 & 0xfffc);
15099
0
    else
15100
0
      insn = LD_R0_0R11 | (-16 & 0xfffc);
15101
0
    bfd_put_32 (htab->glink->owner, insn, p);
15102
0
    p += 4;
15103
0
    bfd_put_32 (htab->glink->owner, SUB_R12_R12_R11, p);
15104
0
    p += 4;
15105
0
    bfd_put_32 (htab->glink->owner, ADD_R11_R0_R11, p);
15106
0
    p += 4;
15107
0
    bfd_put_32 (htab->glink->owner, ADDI_R0_R12 | (-44 & 0xffff), p);
15108
0
    p += 4;
15109
0
    bfd_put_32 (htab->glink->owner, LD_R12_0R11, p);
15110
0
    p += 4;
15111
0
    bfd_put_32 (htab->glink->owner, SRDI_R0_R0_2, p);
15112
0
    p += 4;
15113
0
    bfd_put_32 (htab->glink->owner, MTCTR_R12, p);
15114
0
    p += 4;
15115
0
    bfd_put_32 (htab->glink->owner, LD_R11_0R11 | 8, p);
15116
0
    p += 4;
15117
0
  }
15118
0
      bfd_put_32 (htab->glink->owner, BCTR, p);
15119
0
      p += 4;
15120
0
      BFD_ASSERT (p == htab->glink->contents + GLINK_PLTRESOLVE_SIZE (htab));
15121
15122
      /* Build the .glink lazy link call stubs.  */
15123
0
      indx = 0;
15124
0
      while (p < htab->glink->contents + htab->glink->size)
15125
0
  {
15126
0
    if (htab->opd_abi)
15127
0
      {
15128
0
        if (indx < 0x8000)
15129
0
    {
15130
0
      bfd_put_32 (htab->glink->owner, LI_R0_0 | indx, p);
15131
0
      p += 4;
15132
0
    }
15133
0
        else
15134
0
    {
15135
0
      bfd_put_32 (htab->glink->owner, LIS_R0_0 | PPC_HI (indx), p);
15136
0
      p += 4;
15137
0
      bfd_put_32 (htab->glink->owner, ORI_R0_R0_0 | PPC_LO (indx),
15138
0
            p);
15139
0
      p += 4;
15140
0
    }
15141
0
      }
15142
0
    bfd_put_32 (htab->glink->owner,
15143
0
          B_DOT | ((htab->glink->contents - p + 8) & 0x3fffffc), p);
15144
0
    indx++;
15145
0
    p += 4;
15146
0
  }
15147
0
    }
15148
15149
0
  if (htab->tga_group != NULL)
15150
0
    {
15151
0
      htab->tga_group->lr_restore = 23 * 4;
15152
0
      htab->tga_group->stub_sec->size = 24 * 4;
15153
0
      if (!emit_tga_desc (htab))
15154
0
  return false;
15155
0
      if (htab->glink_eh_frame != NULL
15156
0
    && htab->glink_eh_frame->size != 0)
15157
0
  {
15158
0
    size_t align = 4;
15159
15160
0
    p = htab->glink_eh_frame->contents;
15161
0
    p += (sizeof (glink_eh_frame_cie) + align - 1) & -align;
15162
0
    p += 17;
15163
0
    htab->tga_group->eh_size = emit_tga_desc_eh_frame (htab, p) - p;
15164
0
  }
15165
0
    }
15166
15167
  /* Build .glink global entry stubs, and PLT relocs for globals.  */
15168
0
  elf_link_hash_traverse (&htab->elf, build_global_entry_stubs_and_plt, info);
15169
15170
0
  if (!write_plt_relocs_for_local_syms (info))
15171
0
    return false;
15172
15173
0
  if (htab->brlt != NULL && htab->brlt->size != 0)
15174
0
    {
15175
0
      htab->brlt->contents = bfd_zalloc (htab->brlt->owner,
15176
0
           htab->brlt->size);
15177
0
      if (htab->brlt->contents == NULL)
15178
0
  return false;
15179
0
    }
15180
0
  if (htab->relbrlt != NULL && htab->relbrlt->size != 0)
15181
0
    {
15182
0
      htab->relbrlt->contents = bfd_zalloc (htab->relbrlt->owner,
15183
0
              htab->relbrlt->size);
15184
0
      if (htab->relbrlt->contents == NULL)
15185
0
  return false;
15186
0
    }
15187
15188
  /* Build the stubs as directed by the stub hash table.  */
15189
0
  htab->stub_id = 0;
15190
0
  bfd_hash_traverse (&htab->stub_hash_table, ppc_build_one_stub, info);
15191
15192
0
  for (group = htab->group; group != NULL; group = group->next)
15193
0
    if (group->needs_save_res)
15194
0
      group->stub_sec->size += htab->sfpr->size;
15195
15196
0
  if (htab->relbrlt != NULL)
15197
0
    htab->relbrlt->reloc_count = 0;
15198
15199
0
  if (htab->params->plt_stub_align != 0)
15200
0
    for (group = htab->group; group != NULL; group = group->next)
15201
0
      if ((stub_sec = group->stub_sec) != NULL)
15202
0
  {
15203
0
    int align = abs (htab->params->plt_stub_align);
15204
0
    stub_sec->size = (stub_sec->size + (1 << align) - 1) & -(1 << align);
15205
0
  }
15206
15207
0
  for (group = htab->group; group != NULL; group = group->next)
15208
0
    if (group->needs_save_res)
15209
0
      {
15210
0
  stub_sec = group->stub_sec;
15211
0
  memcpy (stub_sec->contents + stub_sec->size - htab->sfpr->size,
15212
0
    htab->sfpr->contents, htab->sfpr->size);
15213
0
  if (htab->params->emit_stub_syms)
15214
0
    {
15215
0
      unsigned int i;
15216
15217
0
      for (i = 0; i < ARRAY_SIZE (save_res_funcs); i++)
15218
0
        if (!sfpr_define (info, &save_res_funcs[i], stub_sec))
15219
0
    return false;
15220
0
    }
15221
0
      }
15222
15223
0
  if (htab->glink_eh_frame != NULL
15224
0
      && htab->glink_eh_frame->size != 0)
15225
0
    {
15226
0
      bfd_vma val;
15227
0
      size_t align = 4;
15228
15229
0
      p = htab->glink_eh_frame->contents;
15230
0
      p += (sizeof (glink_eh_frame_cie) + align - 1) & -align;
15231
15232
0
      for (group = htab->group; group != NULL; group = group->next)
15233
0
  if (group->eh_size != 0)
15234
0
    {
15235
      /* Offset to stub section.  */
15236
0
      val = (group->stub_sec->output_section->vma
15237
0
       + group->stub_sec->output_offset);
15238
0
      val -= (htab->glink_eh_frame->output_section->vma
15239
0
        + htab->glink_eh_frame->output_offset
15240
0
        + (p + 8 - htab->glink_eh_frame->contents));
15241
0
      if (val + 0x80000000 > 0xffffffff)
15242
0
        {
15243
0
    _bfd_error_handler
15244
0
      (_("%s offset too large for .eh_frame sdata4 encoding"),
15245
0
       group->stub_sec->name);
15246
0
    return false;
15247
0
        }
15248
0
      bfd_put_32 (htab->elf.dynobj, val, p + 8);
15249
0
      p += (group->eh_size + 17 + 3) & -4;
15250
0
    }
15251
0
      if (htab->glink != NULL && htab->glink->size != 0)
15252
0
  {
15253
    /* Offset to .glink.  */
15254
0
    val = (htab->glink->output_section->vma
15255
0
     + htab->glink->output_offset
15256
0
     + 8);
15257
0
    val -= (htab->glink_eh_frame->output_section->vma
15258
0
      + htab->glink_eh_frame->output_offset
15259
0
      + (p + 8 - htab->glink_eh_frame->contents));
15260
0
    if (val + 0x80000000 > 0xffffffff)
15261
0
      {
15262
0
        _bfd_error_handler
15263
0
    (_("%s offset too large for .eh_frame sdata4 encoding"),
15264
0
     htab->glink->name);
15265
0
        return false;
15266
0
      }
15267
0
    bfd_put_32 (htab->elf.dynobj, val, p + 8);
15268
0
    p += (24 + align - 1) & -align;
15269
0
  }
15270
0
    }
15271
15272
0
  if (htab->elf.srelrdyn != NULL && htab->elf.srelrdyn->size != 0)
15273
0
    {
15274
0
      htab->elf.srelrdyn->contents
15275
0
  = bfd_alloc (htab->elf.dynobj, htab->elf.srelrdyn->size);
15276
0
      if (htab->elf.srelrdyn->contents == NULL)
15277
0
  return false;
15278
15279
0
      bfd_vma *relr_addr = sort_relr (htab);
15280
0
      if (htab->relr_count != 0 && relr_addr == NULL)
15281
0
  return false;
15282
15283
0
      size_t i = 0;
15284
0
      bfd_byte *loc = htab->elf.srelrdyn->contents;
15285
0
      while (i < htab->relr_count)
15286
0
  {
15287
0
    bfd_vma base = relr_addr[i];
15288
0
    BFD_ASSERT (base % 2 == 0);
15289
0
    bfd_put_64 (htab->elf.dynobj, base, loc);
15290
0
    loc += 8;
15291
0
    i++;
15292
0
    while (i < htab->relr_count
15293
0
     && relr_addr[i] == base)
15294
0
      {
15295
0
        htab->stub_error = true;
15296
0
        i++;
15297
0
      }
15298
0
    base += 8;
15299
0
    while (1)
15300
0
      {
15301
0
        bfd_vma bits = 0;
15302
0
        while (i < htab->relr_count
15303
0
         && relr_addr[i] - base < 63 * 8
15304
0
         && (relr_addr[i] - base) % 8 == 0)
15305
0
    {
15306
0
      bits |= (bfd_vma) 1 << ((relr_addr[i] - base) / 8);
15307
0
      i++;
15308
0
    }
15309
0
        if (bits == 0)
15310
0
    break;
15311
0
        bfd_put_64 (htab->elf.dynobj, (bits << 1) | 1, loc);
15312
0
        loc += 8;
15313
0
        base += 63 * 8;
15314
0
      }
15315
0
  }
15316
0
      free (relr_addr);
15317
      /* Pad any excess with 1's, a do-nothing encoding.  */
15318
0
      while ((size_t) (loc - htab->elf.srelrdyn->contents)
15319
0
       < htab->elf.srelrdyn->size)
15320
0
  {
15321
0
    bfd_put_64 (htab->elf.dynobj, 1, loc);
15322
0
    loc += 8;
15323
0
  }
15324
0
    }
15325
15326
0
  for (group = htab->group; group != NULL; group = group->next)
15327
0
    if ((stub_sec = group->stub_sec) != NULL)
15328
0
      {
15329
0
  stub_sec_count += 1;
15330
0
  if (stub_sec->rawsize != stub_sec->size
15331
0
      && (htab->stub_iteration <= STUB_SHRINK_ITER
15332
0
    || stub_sec->rawsize < stub_sec->size))
15333
0
    break;
15334
0
      }
15335
15336
0
  if (group != NULL)
15337
0
    htab->stub_error = true;
15338
15339
0
  if (htab->stub_error)
15340
0
    {
15341
0
      _bfd_error_handler (_("stubs don't match calculated size"));
15342
0
      return false;
15343
0
    }
15344
15345
0
  if (stats != NULL)
15346
0
    {
15347
0
      char *groupmsg;
15348
0
      if (asprintf (&groupmsg,
15349
0
        ngettext ("linker stubs in %u group",
15350
0
            "linker stubs in %u groups",
15351
0
            stub_sec_count),
15352
0
        stub_sec_count) < 0)
15353
0
  *stats = NULL;
15354
0
      else
15355
0
  {
15356
0
    if (asprintf (stats, _("%s, iter %u\n"
15357
0
         "  branch         %lu\n"
15358
0
         "  long branch    %lu\n"
15359
0
         "  plt call       %lu\n"
15360
0
         "  global entry   %lu"),
15361
0
      groupmsg, htab->stub_iteration,
15362
0
      htab->stub_count[ppc_stub_long_branch - 1],
15363
0
      htab->stub_count[ppc_stub_plt_branch - 1],
15364
0
      htab->stub_count[ppc_stub_plt_call - 1],
15365
0
      htab->stub_count[ppc_stub_global_entry - 1]) < 0)
15366
0
      *stats = NULL;
15367
0
    free (groupmsg);
15368
0
  }
15369
0
    }
15370
0
  return true;
15371
0
}
15372
15373
/* What to do when ld finds relocations against symbols defined in
15374
   discarded sections.  */
15375
15376
static unsigned int
15377
ppc64_elf_action_discarded (asection *sec)
15378
0
{
15379
0
  if (strcmp (".opd", sec->name) == 0)
15380
0
    return 0;
15381
15382
0
  if (strcmp (".toc", sec->name) == 0)
15383
0
    return 0;
15384
15385
0
  if (strcmp (".toc1", sec->name) == 0)
15386
0
    return 0;
15387
15388
0
  return _bfd_elf_default_action_discarded (sec);
15389
0
}
15390
15391
/* These are the dynamic relocations supported by glibc.  */
15392
15393
static bool
15394
ppc64_glibc_dynamic_reloc (enum elf_ppc64_reloc_type r_type)
15395
0
{
15396
0
  switch (r_type)
15397
0
    {
15398
0
    case R_PPC64_RELATIVE:
15399
0
    case R_PPC64_NONE:
15400
0
    case R_PPC64_ADDR64:
15401
0
    case R_PPC64_GLOB_DAT:
15402
0
    case R_PPC64_IRELATIVE:
15403
0
    case R_PPC64_JMP_IREL:
15404
0
    case R_PPC64_JMP_SLOT:
15405
0
    case R_PPC64_DTPMOD64:
15406
0
    case R_PPC64_DTPREL64:
15407
0
    case R_PPC64_TPREL64:
15408
0
    case R_PPC64_TPREL16_LO_DS:
15409
0
    case R_PPC64_TPREL16_DS:
15410
0
    case R_PPC64_TPREL16:
15411
0
    case R_PPC64_TPREL16_LO:
15412
0
    case R_PPC64_TPREL16_HI:
15413
0
    case R_PPC64_TPREL16_HIGH:
15414
0
    case R_PPC64_TPREL16_HA:
15415
0
    case R_PPC64_TPREL16_HIGHA:
15416
0
    case R_PPC64_TPREL16_HIGHER:
15417
0
    case R_PPC64_TPREL16_HIGHEST:
15418
0
    case R_PPC64_TPREL16_HIGHERA:
15419
0
    case R_PPC64_TPREL16_HIGHESTA:
15420
0
    case R_PPC64_ADDR16_LO_DS:
15421
0
    case R_PPC64_ADDR16_LO:
15422
0
    case R_PPC64_ADDR16_HI:
15423
0
    case R_PPC64_ADDR16_HIGH:
15424
0
    case R_PPC64_ADDR16_HA:
15425
0
    case R_PPC64_ADDR16_HIGHA:
15426
0
    case R_PPC64_REL30:
15427
0
    case R_PPC64_COPY:
15428
0
    case R_PPC64_UADDR64:
15429
0
    case R_PPC64_UADDR32:
15430
0
    case R_PPC64_ADDR32:
15431
0
    case R_PPC64_ADDR24:
15432
0
    case R_PPC64_ADDR16:
15433
0
    case R_PPC64_UADDR16:
15434
0
    case R_PPC64_ADDR16_DS:
15435
0
    case R_PPC64_ADDR16_HIGHER:
15436
0
    case R_PPC64_ADDR16_HIGHEST:
15437
0
    case R_PPC64_ADDR16_HIGHERA:
15438
0
    case R_PPC64_ADDR16_HIGHESTA:
15439
0
    case R_PPC64_ADDR14:
15440
0
    case R_PPC64_ADDR14_BRTAKEN:
15441
0
    case R_PPC64_ADDR14_BRNTAKEN:
15442
0
    case R_PPC64_REL32:
15443
0
    case R_PPC64_REL64:
15444
0
      return true;
15445
15446
0
    default:
15447
0
      return false;
15448
0
    }
15449
0
}
15450
15451
/* The RELOCATE_SECTION function is called by the ELF backend linker
15452
   to handle the relocations for a section.
15453
15454
   The relocs are always passed as Rela structures; if the section
15455
   actually uses Rel structures, the r_addend field will always be
15456
   zero.
15457
15458
   This function is responsible for adjust the section contents as
15459
   necessary, and (if using Rela relocs and generating a
15460
   relocatable output file) adjusting the reloc addend as
15461
   necessary.
15462
15463
   This function does not have to worry about setting the reloc
15464
   address or the reloc symbol index.
15465
15466
   LOCAL_SYMS is a pointer to the swapped in local symbols.
15467
15468
   LOCAL_SECTIONS is an array giving the section in the input file
15469
   corresponding to the st_shndx field of each local symbol.
15470
15471
   The global hash table entry for the global symbols can be found
15472
   via elf_sym_hashes (input_bfd).
15473
15474
   When generating relocatable output, this function must handle
15475
   STB_LOCAL/STT_SECTION symbols specially.  The output symbol is
15476
   going to be the section symbol corresponding to the output
15477
   section, which means that the addend must be adjusted
15478
   accordingly.  */
15479
15480
static int
15481
ppc64_elf_relocate_section (bfd *output_bfd,
15482
          struct bfd_link_info *info,
15483
          bfd *input_bfd,
15484
          asection *input_section,
15485
          bfd_byte *contents,
15486
          Elf_Internal_Rela *relocs,
15487
          Elf_Internal_Sym *local_syms,
15488
          asection **local_sections)
15489
0
{
15490
0
  struct ppc_link_hash_table *htab;
15491
0
  Elf_Internal_Shdr *symtab_hdr;
15492
0
  struct elf_link_hash_entry **sym_hashes;
15493
0
  Elf_Internal_Rela *rel;
15494
0
  Elf_Internal_Rela *wrel;
15495
0
  Elf_Internal_Rela *relend;
15496
0
  Elf_Internal_Rela outrel;
15497
0
  bfd_byte *loc;
15498
0
  struct got_entry **local_got_ents;
15499
0
  bfd_vma TOCstart;
15500
0
  bool ret = true;
15501
0
  bool is_opd;
15502
  /* Assume 'at' branch hints.  */
15503
0
  bool is_isa_v2 = true;
15504
0
  bool warned_dynamic = false;
15505
0
  bfd_vma d_offset = (bfd_big_endian (input_bfd) ? 2 : 0);
15506
15507
  /* Initialize howto table if needed.  */
15508
0
  if (!ppc64_elf_howto_table[R_PPC64_ADDR32])
15509
0
    ppc_howto_init ();
15510
15511
0
  htab = ppc_hash_table (info);
15512
0
  if (htab == NULL)
15513
0
    return false;
15514
15515
  /* Don't relocate stub sections.  */
15516
0
  if (input_section->owner == htab->params->stub_bfd)
15517
0
    return true;
15518
15519
0
  if (!is_ppc64_elf (input_bfd))
15520
0
    {
15521
0
      bfd_set_error (bfd_error_wrong_format);
15522
0
      return false;
15523
0
    }
15524
15525
0
  local_got_ents = elf_local_got_ents (input_bfd);
15526
0
  TOCstart = elf_gp (output_bfd);
15527
0
  symtab_hdr = &elf_symtab_hdr (input_bfd);
15528
0
  sym_hashes = elf_sym_hashes (input_bfd);
15529
0
  is_opd = ppc64_elf_section_data (input_section)->sec_type == sec_opd;
15530
15531
0
  rel = wrel = relocs;
15532
0
  relend = relocs + input_section->reloc_count;
15533
0
  for (; rel < relend; wrel++, rel++)
15534
0
    {
15535
0
      enum elf_ppc64_reloc_type r_type;
15536
0
      bfd_vma addend;
15537
0
      bfd_reloc_status_type r;
15538
0
      Elf_Internal_Sym *sym;
15539
0
      asection *sec;
15540
0
      struct elf_link_hash_entry *h_elf;
15541
0
      struct ppc_link_hash_entry *h;
15542
0
      struct ppc_link_hash_entry *fdh;
15543
0
      const char *sym_name;
15544
0
      unsigned long r_symndx, toc_symndx;
15545
0
      bfd_vma toc_addend;
15546
0
      unsigned char tls_mask, tls_gd, tls_type;
15547
0
      unsigned char sym_type;
15548
0
      bfd_vma relocation;
15549
0
      bool unresolved_reloc, save_unresolved_reloc;
15550
0
      bool warned;
15551
0
      enum { DEST_NORMAL, DEST_OPD, DEST_STUB } reloc_dest;
15552
0
      unsigned int insn;
15553
0
      unsigned int mask;
15554
0
      struct ppc_stub_hash_entry *stub_entry;
15555
0
      bfd_vma max_br_offset;
15556
0
      bfd_vma from;
15557
0
      Elf_Internal_Rela orig_rel;
15558
0
      reloc_howto_type *howto;
15559
0
      struct reloc_howto_struct alt_howto;
15560
0
      uint64_t pinsn;
15561
0
      bfd_vma offset;
15562
15563
0
    again:
15564
0
      orig_rel = *rel;
15565
15566
0
      r_type = ELF64_R_TYPE (rel->r_info);
15567
0
      r_symndx = ELF64_R_SYM (rel->r_info);
15568
15569
      /* For old style R_PPC64_TOC relocs with a zero symbol, use the
15570
   symbol of the previous ADDR64 reloc.  The symbol gives us the
15571
   proper TOC base to use.  */
15572
0
      if (rel->r_info == ELF64_R_INFO (0, R_PPC64_TOC)
15573
0
    && wrel != relocs
15574
0
    && ELF64_R_TYPE (wrel[-1].r_info) == R_PPC64_ADDR64
15575
0
    && is_opd)
15576
0
  r_symndx = ELF64_R_SYM (wrel[-1].r_info);
15577
15578
0
      sym = NULL;
15579
0
      sec = NULL;
15580
0
      h_elf = NULL;
15581
0
      sym_name = NULL;
15582
0
      unresolved_reloc = false;
15583
0
      warned = false;
15584
15585
0
      if (r_symndx < symtab_hdr->sh_info)
15586
0
  {
15587
    /* It's a local symbol.  */
15588
0
    struct _opd_sec_data *opd;
15589
15590
0
    sym = local_syms + r_symndx;
15591
0
    sec = local_sections[r_symndx];
15592
0
    sym_name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym, sec);
15593
0
    sym_type = ELF64_ST_TYPE (sym->st_info);
15594
0
    relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
15595
0
    opd = get_opd_info (sec);
15596
0
    if (opd != NULL && opd->adjust != NULL)
15597
0
      {
15598
0
        long adjust = opd->adjust[OPD_NDX (sym->st_value
15599
0
             + rel->r_addend)];
15600
0
        if (adjust == -1)
15601
0
    relocation = 0;
15602
0
        else
15603
0
    {
15604
      /* If this is a relocation against the opd section sym
15605
         and we have edited .opd, adjust the reloc addend so
15606
         that ld -r and ld --emit-relocs output is correct.
15607
         If it is a reloc against some other .opd symbol,
15608
         then the symbol value will be adjusted later.  */
15609
0
      if (ELF_ST_TYPE (sym->st_info) == STT_SECTION)
15610
0
        rel->r_addend += adjust;
15611
0
      else
15612
0
        relocation += adjust;
15613
0
    }
15614
0
      }
15615
0
  }
15616
0
      else
15617
0
  {
15618
0
    bool ignored;
15619
15620
0
    RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
15621
0
           r_symndx, symtab_hdr, sym_hashes,
15622
0
           h_elf, sec, relocation,
15623
0
           unresolved_reloc, warned, ignored);
15624
0
    sym_name = h_elf->root.root.string;
15625
0
    sym_type = h_elf->type;
15626
0
    if (sec != NULL
15627
0
        && sec->owner == output_bfd
15628
0
        && strcmp (sec->name, ".opd") == 0)
15629
0
      {
15630
        /* This is a symbol defined in a linker script.  All
15631
     such are defined in output sections, even those
15632
     defined by simple assignment from a symbol defined in
15633
     an input section.  Transfer the symbol to an
15634
     appropriate input .opd section, so that a branch to
15635
     this symbol will be mapped to the location specified
15636
     by the opd entry.  */
15637
0
        struct bfd_link_order *lo;
15638
0
        for (lo = sec->map_head.link_order; lo != NULL; lo = lo->next)
15639
0
    if (lo->type == bfd_indirect_link_order)
15640
0
      {
15641
0
        asection *isec = lo->u.indirect.section;
15642
0
        if (h_elf->root.u.def.value >= isec->output_offset
15643
0
      && h_elf->root.u.def.value < (isec->output_offset
15644
0
                  + isec->size))
15645
0
          {
15646
0
      h_elf->root.u.def.value -= isec->output_offset;
15647
0
      h_elf->root.u.def.section = isec;
15648
0
      sec = isec;
15649
0
      break;
15650
0
          }
15651
0
      }
15652
0
      }
15653
0
  }
15654
0
      h = ppc_elf_hash_entry (h_elf);
15655
15656
0
      if (sec != NULL && discarded_section (sec))
15657
0
  {
15658
0
    _bfd_clear_contents (ppc64_elf_howto_table[r_type],
15659
0
             input_bfd, input_section,
15660
0
             contents, rel->r_offset);
15661
0
    wrel->r_offset = rel->r_offset;
15662
0
    wrel->r_info = 0;
15663
0
    wrel->r_addend = 0;
15664
15665
    /* For ld -r, remove relocations in debug sections against
15666
       symbols defined in discarded sections.  Not done for
15667
       non-debug to preserve relocs in .eh_frame which the
15668
       eh_frame editing code expects to be present.  */
15669
0
    if (bfd_link_relocatable (info)
15670
0
        && (input_section->flags & SEC_DEBUGGING))
15671
0
      wrel--;
15672
15673
0
    continue;
15674
0
  }
15675
15676
0
      if (bfd_link_relocatable (info))
15677
0
  goto copy_reloc;
15678
15679
0
      if (h != NULL && &h->elf == htab->elf.hgot)
15680
0
  {
15681
0
    relocation = TOCstart + htab->sec_info[input_section->id].toc_off;
15682
0
    sec = bfd_abs_section_ptr;
15683
0
    unresolved_reloc = false;
15684
0
  }
15685
15686
      /* TLS optimizations.  Replace instruction sequences and relocs
15687
   based on information we collected in tls_optimize.  We edit
15688
   RELOCS so that --emit-relocs will output something sensible
15689
   for the final instruction stream.  */
15690
0
      tls_mask = 0;
15691
0
      tls_gd = 0;
15692
0
      toc_symndx = 0;
15693
0
      if (h != NULL)
15694
0
  tls_mask = h->tls_mask;
15695
0
      else if (local_got_ents != NULL)
15696
0
  {
15697
0
    struct plt_entry **local_plt = (struct plt_entry **)
15698
0
      (local_got_ents + symtab_hdr->sh_info);
15699
0
    unsigned char *lgot_masks = (unsigned char *)
15700
0
      (local_plt + symtab_hdr->sh_info);
15701
0
    tls_mask = lgot_masks[r_symndx];
15702
0
  }
15703
0
      if (((tls_mask & TLS_TLS) == 0 || tls_mask == (TLS_TLS | TLS_MARK))
15704
0
    && (r_type == R_PPC64_TLS
15705
0
        || r_type == R_PPC64_TLSGD
15706
0
        || r_type == R_PPC64_TLSLD))
15707
0
  {
15708
    /* Check for toc tls entries.  */
15709
0
    unsigned char *toc_tls;
15710
15711
0
    if (!get_tls_mask (&toc_tls, &toc_symndx, &toc_addend,
15712
0
           &local_syms, rel, input_bfd))
15713
0
      return false;
15714
15715
0
    if (toc_tls)
15716
0
      tls_mask = *toc_tls;
15717
0
  }
15718
15719
      /* Check that tls relocs are used with tls syms, and non-tls
15720
   relocs are used with non-tls syms.  */
15721
0
      if (r_symndx != STN_UNDEF
15722
0
    && r_type != R_PPC64_NONE
15723
0
    && (h == NULL
15724
0
        || h->elf.root.type == bfd_link_hash_defined
15725
0
        || h->elf.root.type == bfd_link_hash_defweak)
15726
0
    && IS_PPC64_TLS_RELOC (r_type) != (sym_type == STT_TLS))
15727
0
  {
15728
0
    if ((tls_mask & TLS_TLS) != 0
15729
0
        && (r_type == R_PPC64_TLS
15730
0
      || r_type == R_PPC64_TLSGD
15731
0
      || r_type == R_PPC64_TLSLD))
15732
      /* R_PPC64_TLS is OK against a symbol in the TOC.  */
15733
0
      ;
15734
0
    else
15735
0
      info->callbacks->einfo
15736
0
        (!IS_PPC64_TLS_RELOC (r_type)
15737
         /* xgettext:c-format */
15738
0
         ? _("%H: %s used with TLS symbol `%pT'\n")
15739
         /* xgettext:c-format */
15740
0
         : _("%H: %s used with non-TLS symbol `%pT'\n"),
15741
0
         input_bfd, input_section, rel->r_offset,
15742
0
         ppc64_elf_howto_table[r_type]->name,
15743
0
         sym_name);
15744
0
  }
15745
15746
      /* Ensure reloc mapping code below stays sane.  */
15747
0
      if (R_PPC64_TOC16_LO_DS != R_PPC64_TOC16_DS + 1
15748
0
    || R_PPC64_TOC16_LO != R_PPC64_TOC16 + 1
15749
0
    || (R_PPC64_GOT_TLSLD16 & 3)    != (R_PPC64_GOT_TLSGD16 & 3)
15750
0
    || (R_PPC64_GOT_TLSLD16_LO & 3) != (R_PPC64_GOT_TLSGD16_LO & 3)
15751
0
    || (R_PPC64_GOT_TLSLD16_HI & 3) != (R_PPC64_GOT_TLSGD16_HI & 3)
15752
0
    || (R_PPC64_GOT_TLSLD16_HA & 3) != (R_PPC64_GOT_TLSGD16_HA & 3)
15753
0
    || (R_PPC64_GOT_TLSLD16 & 3)    != (R_PPC64_GOT_TPREL16_DS & 3)
15754
0
    || (R_PPC64_GOT_TLSLD16_LO & 3) != (R_PPC64_GOT_TPREL16_LO_DS & 3)
15755
0
    || (R_PPC64_GOT_TLSLD16_HI & 3) != (R_PPC64_GOT_TPREL16_HI & 3)
15756
0
    || (R_PPC64_GOT_TLSLD16_HA & 3) != (R_PPC64_GOT_TPREL16_HA & 3))
15757
0
  abort ();
15758
15759
0
      switch (r_type)
15760
0
  {
15761
0
  default:
15762
0
    break;
15763
15764
0
  case R_PPC64_LO_DS_OPT:
15765
0
    if (offset_in_range (input_section, rel->r_offset - d_offset, 4))
15766
0
      {
15767
0
        insn = bfd_get_32 (input_bfd,
15768
0
         contents + rel->r_offset - d_offset);
15769
0
        if ((insn & (0x3fu << 26)) != 58u << 26)
15770
0
    abort ();
15771
0
        insn += (14u << 26) - (58u << 26);
15772
0
        bfd_put_32 (input_bfd, insn,
15773
0
        contents + rel->r_offset - d_offset);
15774
0
        r_type = R_PPC64_TOC16_LO;
15775
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
15776
0
      }
15777
0
    break;
15778
15779
0
  case R_PPC64_TOC16:
15780
0
  case R_PPC64_TOC16_LO:
15781
0
  case R_PPC64_TOC16_DS:
15782
0
  case R_PPC64_TOC16_LO_DS:
15783
0
    {
15784
      /* Check for toc tls entries.  */
15785
0
      unsigned char *toc_tls;
15786
0
      int retval;
15787
15788
0
      retval = get_tls_mask (&toc_tls, &toc_symndx, &toc_addend,
15789
0
           &local_syms, rel, input_bfd);
15790
0
      if (retval == 0)
15791
0
        return false;
15792
15793
0
      if (toc_tls)
15794
0
        {
15795
0
    tls_mask = *toc_tls;
15796
0
    if (r_type == R_PPC64_TOC16_DS
15797
0
        || r_type == R_PPC64_TOC16_LO_DS)
15798
0
      {
15799
0
        if ((tls_mask & TLS_TLS) != 0
15800
0
      && (tls_mask & (TLS_DTPREL | TLS_TPREL)) == 0)
15801
0
          goto toctprel;
15802
0
      }
15803
0
    else
15804
0
      {
15805
        /* If we found a GD reloc pair, then we might be
15806
           doing a GD->IE transition.  */
15807
0
        if (retval == 2)
15808
0
          {
15809
0
      tls_gd = TLS_GDIE;
15810
0
      if ((tls_mask & TLS_TLS) != 0
15811
0
          && (tls_mask & TLS_GD) == 0)
15812
0
        goto tls_ldgd_opt;
15813
0
          }
15814
0
        else if (retval == 3)
15815
0
          {
15816
0
      if ((tls_mask & TLS_TLS) != 0
15817
0
          && (tls_mask & TLS_LD) == 0)
15818
0
        goto tls_ldgd_opt;
15819
0
          }
15820
0
      }
15821
0
        }
15822
0
    }
15823
0
    break;
15824
15825
0
  case R_PPC64_GOT_TPREL16_HI:
15826
0
  case R_PPC64_GOT_TPREL16_HA:
15827
0
    if ((tls_mask & TLS_TLS) != 0
15828
0
        && (tls_mask & TLS_TPREL) == 0
15829
0
        && offset_in_range (input_section, rel->r_offset - d_offset, 4))
15830
0
      {
15831
0
        rel->r_offset -= d_offset;
15832
0
        bfd_put_32 (input_bfd, NOP, contents + rel->r_offset);
15833
0
        r_type = R_PPC64_NONE;
15834
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
15835
0
      }
15836
0
    break;
15837
15838
0
  case R_PPC64_GOT_TPREL16_DS:
15839
0
  case R_PPC64_GOT_TPREL16_LO_DS:
15840
0
    if ((tls_mask & TLS_TLS) != 0
15841
0
        && (tls_mask & TLS_TPREL) == 0
15842
0
        && offset_in_range (input_section, rel->r_offset - d_offset, 4))
15843
0
      {
15844
0
      toctprel:
15845
0
        insn = bfd_get_32 (input_bfd,
15846
0
         contents + rel->r_offset - d_offset);
15847
0
        insn &= 31 << 21;
15848
0
        insn |= 0x3c0d0000; /* addis 0,13,0 */
15849
0
        bfd_put_32 (input_bfd, insn,
15850
0
        contents + rel->r_offset - d_offset);
15851
0
        r_type = R_PPC64_TPREL16_HA;
15852
0
        if (toc_symndx != 0)
15853
0
    {
15854
0
      rel->r_info = ELF64_R_INFO (toc_symndx, r_type);
15855
0
      rel->r_addend = toc_addend;
15856
      /* We changed the symbol.  Start over in order to
15857
         get h, sym, sec etc. right.  */
15858
0
      goto again;
15859
0
    }
15860
0
        else
15861
0
    rel->r_info = ELF64_R_INFO (r_symndx, r_type);
15862
0
      }
15863
0
    break;
15864
15865
0
  case R_PPC64_GOT_TPREL_PCREL34:
15866
0
    if ((tls_mask & TLS_TLS) != 0
15867
0
        && (tls_mask & TLS_TPREL) == 0
15868
0
        && offset_in_range (input_section, rel->r_offset, 8))
15869
0
      {
15870
        /* pld ra,sym@got@tprel@pcrel -> paddi ra,r13,sym@tprel  */
15871
0
        pinsn = bfd_get_32 (input_bfd, contents + rel->r_offset);
15872
0
        pinsn <<= 32;
15873
0
        pinsn |= bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
15874
0
        pinsn += ((2ULL << 56) + (-1ULL << 52)
15875
0
      + (14ULL << 26) - (57ULL << 26) + (13ULL << 16));
15876
0
        bfd_put_32 (input_bfd, pinsn >> 32,
15877
0
        contents + rel->r_offset);
15878
0
        bfd_put_32 (input_bfd, pinsn & 0xffffffff,
15879
0
        contents + rel->r_offset + 4);
15880
0
        r_type = R_PPC64_TPREL34;
15881
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
15882
0
      }
15883
0
    break;
15884
15885
0
  case R_PPC64_TLS:
15886
0
    if ((tls_mask & TLS_TLS) != 0
15887
0
        && (tls_mask & TLS_TPREL) == 0
15888
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
15889
0
      {
15890
0
        insn = bfd_get_32 (input_bfd, contents + (rel->r_offset & ~3));
15891
0
        insn = _bfd_elf_ppc_at_tls_transform (insn, 13);
15892
0
        if (insn == 0)
15893
0
    break;
15894
0
        if ((rel->r_offset & 3) == 0)
15895
0
    {
15896
0
      bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
15897
      /* Was PPC64_TLS which sits on insn boundary, now
15898
         PPC64_TPREL16_LO which is at low-order half-word.  */
15899
0
      rel->r_offset += d_offset;
15900
0
      r_type = R_PPC64_TPREL16_LO;
15901
0
      if (toc_symndx != 0)
15902
0
        {
15903
0
          rel->r_info = ELF64_R_INFO (toc_symndx, r_type);
15904
0
          rel->r_addend = toc_addend;
15905
          /* We changed the symbol.  Start over in order to
15906
       get h, sym, sec etc. right.  */
15907
0
          goto again;
15908
0
        }
15909
0
      else
15910
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
15911
0
    }
15912
0
        else if ((rel->r_offset & 3) == 1)
15913
0
    {
15914
      /* For pcrel IE to LE we already have the full
15915
         offset and thus don't need an addi here.  A nop
15916
         or mr will do.  */
15917
0
      if ((insn & (0x3fu << 26)) == 14 << 26)
15918
0
        {
15919
          /* Extract regs from addi rt,ra,si.  */
15920
0
          unsigned int rt = (insn >> 21) & 0x1f;
15921
0
          unsigned int ra = (insn >> 16) & 0x1f;
15922
0
          if (rt == ra)
15923
0
      insn = NOP;
15924
0
          else
15925
0
      {
15926
        /* Build or ra,rs,rb with rb==rs, ie. mr ra,rs.  */
15927
0
        insn = (rt << 16) | (ra << 21) | (ra << 11);
15928
0
        insn |= (31u << 26) | (444u << 1);
15929
0
      }
15930
0
        }
15931
0
      bfd_put_32 (input_bfd, insn, contents + rel->r_offset - 1);
15932
0
    }
15933
0
      }
15934
0
    break;
15935
15936
0
  case R_PPC64_GOT_TLSGD16_HI:
15937
0
  case R_PPC64_GOT_TLSGD16_HA:
15938
0
    tls_gd = TLS_GDIE;
15939
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_GD) == 0
15940
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
15941
0
      goto tls_gdld_hi;
15942
0
    break;
15943
15944
0
  case R_PPC64_GOT_TLSLD16_HI:
15945
0
  case R_PPC64_GOT_TLSLD16_HA:
15946
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_LD) == 0
15947
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
15948
0
      {
15949
0
      tls_gdld_hi:
15950
0
        if ((tls_mask & tls_gd) != 0)
15951
0
    r_type = (((r_type - (R_PPC64_GOT_TLSGD16 & 3)) & 3)
15952
0
        + R_PPC64_GOT_TPREL16_DS);
15953
0
        else
15954
0
    {
15955
0
      rel->r_offset -= d_offset;
15956
0
      bfd_put_32 (input_bfd, NOP, contents + rel->r_offset);
15957
0
      r_type = R_PPC64_NONE;
15958
0
    }
15959
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
15960
0
      }
15961
0
    break;
15962
15963
0
  case R_PPC64_GOT_TLSGD16:
15964
0
  case R_PPC64_GOT_TLSGD16_LO:
15965
0
    tls_gd = TLS_GDIE;
15966
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_GD) == 0
15967
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
15968
0
      goto tls_ldgd_opt;
15969
0
    break;
15970
15971
0
  case R_PPC64_GOT_TLSLD16:
15972
0
  case R_PPC64_GOT_TLSLD16_LO:
15973
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_LD) == 0
15974
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
15975
0
      {
15976
0
        unsigned int insn1, insn2;
15977
15978
0
      tls_ldgd_opt:
15979
0
        offset = (bfd_vma) -1;
15980
        /* If not using the newer R_PPC64_TLSGD/LD to mark
15981
     __tls_get_addr calls, we must trust that the call
15982
     stays with its arg setup insns, ie. that the next
15983
     reloc is the __tls_get_addr call associated with
15984
     the current reloc.  Edit both insns.  */
15985
0
        if (input_section->nomark_tls_get_addr
15986
0
      && rel + 1 < relend
15987
0
      && branch_reloc_hash_match (input_bfd, rel + 1,
15988
0
                htab->tls_get_addr_fd,
15989
0
                htab->tga_desc_fd,
15990
0
                htab->tls_get_addr,
15991
0
                htab->tga_desc))
15992
0
    offset = rel[1].r_offset;
15993
        /* We read the low GOT_TLS (or TOC16) insn because we
15994
     need to keep the destination reg.  It may be
15995
     something other than the usual r3, and moved to r3
15996
     before the call by intervening code.  */
15997
0
        insn1 = bfd_get_32 (input_bfd,
15998
0
          contents + rel->r_offset - d_offset);
15999
0
        if ((tls_mask & tls_gd) != 0)
16000
0
    {
16001
      /* IE */
16002
0
      insn1 &= (0x1f << 21) | (0x1f << 16);
16003
0
      insn1 |= 58u << 26; /* ld */
16004
0
      insn2 = 0x7c636a14; /* add 3,3,13 */
16005
0
      if (offset != (bfd_vma) -1)
16006
0
        rel[1].r_info = ELF64_R_INFO (STN_UNDEF, R_PPC64_NONE);
16007
0
      if (r_type == R_PPC64_TOC16
16008
0
          || r_type == R_PPC64_TOC16_LO)
16009
0
        r_type += R_PPC64_TOC16_DS - R_PPC64_TOC16;
16010
0
      else
16011
0
        r_type = (((r_type - (R_PPC64_GOT_TLSGD16 & 1)) & 1)
16012
0
            + R_PPC64_GOT_TPREL16_DS);
16013
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16014
0
    }
16015
0
        else
16016
0
    {
16017
      /* LE */
16018
0
      insn1 &= 0x1f << 21;
16019
0
      insn1 |= 0x3c0d0000;  /* addis r,13,0 */
16020
0
      insn2 = 0x38630000; /* addi 3,3,0 */
16021
0
      if (tls_gd == 0)
16022
0
        {
16023
          /* Was an LD reloc.  */
16024
0
          r_symndx = STN_UNDEF;
16025
0
          rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
16026
0
        }
16027
0
      else if (toc_symndx != 0)
16028
0
        {
16029
0
          r_symndx = toc_symndx;
16030
0
          rel->r_addend = toc_addend;
16031
0
        }
16032
0
      r_type = R_PPC64_TPREL16_HA;
16033
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16034
0
      if (offset != (bfd_vma) -1)
16035
0
        {
16036
0
          rel[1].r_info = ELF64_R_INFO (r_symndx,
16037
0
                R_PPC64_TPREL16_LO);
16038
0
          rel[1].r_offset = offset + d_offset;
16039
0
          rel[1].r_addend = rel->r_addend;
16040
0
        }
16041
0
    }
16042
0
        bfd_put_32 (input_bfd, insn1,
16043
0
        contents + rel->r_offset - d_offset);
16044
0
        if (offset != (bfd_vma) -1
16045
0
      && offset_in_range (input_section, offset, 4))
16046
0
    {
16047
0
      bfd_put_32 (input_bfd, insn2, contents + offset);
16048
0
      if (offset_in_range (input_section, offset + 4, 4))
16049
0
        {
16050
0
          insn2 = bfd_get_32 (input_bfd, contents + offset + 4);
16051
0
          if (insn2 == LD_R2_0R1 + STK_TOC (htab))
16052
0
      bfd_put_32 (input_bfd, NOP, contents + offset + 4);
16053
0
        }
16054
0
    }
16055
0
        if ((tls_mask & tls_gd) == 0
16056
0
      && (tls_gd == 0 || toc_symndx != 0))
16057
0
    {
16058
      /* We changed the symbol.  Start over in order
16059
         to get h, sym, sec etc. right.  */
16060
0
      goto again;
16061
0
    }
16062
0
      }
16063
0
    break;
16064
16065
0
  case R_PPC64_GOT_TLSGD_PCREL34:
16066
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_GD) == 0
16067
0
        && offset_in_range (input_section, rel->r_offset, 8))
16068
0
      {
16069
0
        pinsn = bfd_get_32 (input_bfd, contents + rel->r_offset);
16070
0
        pinsn <<= 32;
16071
0
        pinsn |= bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
16072
0
        if ((tls_mask & TLS_GDIE) != 0)
16073
0
    {
16074
      /* IE, pla -> pld  */
16075
0
      pinsn += (-2ULL << 56) + (57ULL << 26) - (14ULL << 26);
16076
0
      r_type = R_PPC64_GOT_TPREL_PCREL34;
16077
0
    }
16078
0
        else
16079
0
    {
16080
      /* LE, pla pcrel -> paddi r13  */
16081
0
      pinsn += (-1ULL << 52) + (13ULL << 16);
16082
0
      r_type = R_PPC64_TPREL34;
16083
0
    }
16084
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16085
0
        bfd_put_32 (input_bfd, pinsn >> 32,
16086
0
        contents + rel->r_offset);
16087
0
        bfd_put_32 (input_bfd, pinsn & 0xffffffff,
16088
0
        contents + rel->r_offset + 4);
16089
0
      }
16090
0
    break;
16091
16092
0
  case R_PPC64_GOT_TLSLD_PCREL34:
16093
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_LD) == 0
16094
0
        && offset_in_range (input_section, rel->r_offset, 8))
16095
0
      {
16096
0
        pinsn = bfd_get_32 (input_bfd, contents + rel->r_offset);
16097
0
        pinsn <<= 32;
16098
0
        pinsn |= bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
16099
0
        pinsn += (-1ULL << 52) + (13ULL << 16);
16100
0
        bfd_put_32 (input_bfd, pinsn >> 32,
16101
0
        contents + rel->r_offset);
16102
0
        bfd_put_32 (input_bfd, pinsn & 0xffffffff,
16103
0
        contents + rel->r_offset + 4);
16104
0
        rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
16105
0
        r_symndx = STN_UNDEF;
16106
0
        r_type = R_PPC64_TPREL34;
16107
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16108
0
        goto again;
16109
0
      }
16110
0
    break;
16111
16112
0
  case R_PPC64_TLSGD:
16113
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_GD) == 0
16114
0
        && rel + 1 < relend
16115
0
        && offset_in_range (input_section, rel->r_offset,
16116
0
          is_8byte_reloc (ELF64_R_TYPE (rel[1].r_info))
16117
0
          ? 8 : 4))
16118
0
      {
16119
0
        unsigned int insn2;
16120
0
        enum elf_ppc64_reloc_type r_type1 = ELF64_R_TYPE (rel[1].r_info);
16121
16122
0
        offset = rel->r_offset;
16123
0
        if (is_plt_seq_reloc (r_type1))
16124
0
    {
16125
0
      bfd_put_32 (output_bfd, NOP, contents + offset);
16126
0
      if (r_type1 == R_PPC64_PLT_PCREL34
16127
0
          || r_type1 == R_PPC64_PLT_PCREL34_NOTOC)
16128
0
        bfd_put_32 (output_bfd, NOP, contents + offset + 4);
16129
0
      rel[1].r_info = ELF64_R_INFO (STN_UNDEF, R_PPC64_NONE);
16130
0
      break;
16131
0
    }
16132
16133
0
        if (r_type1 == R_PPC64_PLTCALL)
16134
0
    bfd_put_32 (output_bfd, NOP, contents + offset + 4);
16135
16136
0
        if ((tls_mask & TLS_GDIE) != 0)
16137
0
    {
16138
      /* IE */
16139
0
      r_type = R_PPC64_NONE;
16140
0
      insn2 = 0x7c636a14; /* add 3,3,13 */
16141
0
    }
16142
0
        else
16143
0
    {
16144
      /* LE */
16145
0
      if (toc_symndx != 0)
16146
0
        {
16147
0
          r_symndx = toc_symndx;
16148
0
          rel->r_addend = toc_addend;
16149
0
        }
16150
0
      if (r_type1 == R_PPC64_REL24_NOTOC
16151
0
          || r_type1 == R_PPC64_REL24_P9NOTOC
16152
0
          || r_type1 == R_PPC64_PLTCALL_NOTOC)
16153
0
        {
16154
0
          r_type = R_PPC64_NONE;
16155
0
          insn2 = NOP;
16156
0
        }
16157
0
      else
16158
0
        {
16159
0
          rel->r_offset = offset + d_offset;
16160
0
          r_type = R_PPC64_TPREL16_LO;
16161
0
          insn2 = 0x38630000; /* addi 3,3,0 */
16162
0
        }
16163
0
    }
16164
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16165
        /* Zap the reloc on the _tls_get_addr call too.  */
16166
0
        BFD_ASSERT (offset == rel[1].r_offset);
16167
0
        rel[1].r_info = ELF64_R_INFO (STN_UNDEF, R_PPC64_NONE);
16168
0
        bfd_put_32 (input_bfd, insn2, contents + offset);
16169
0
        if ((tls_mask & TLS_GDIE) == 0
16170
0
      && toc_symndx != 0
16171
0
      && r_type != R_PPC64_NONE)
16172
0
    goto again;
16173
0
      }
16174
0
    break;
16175
16176
0
  case R_PPC64_TLSLD:
16177
0
    if ((tls_mask & TLS_TLS) != 0 && (tls_mask & TLS_LD) == 0
16178
0
        && rel + 1 < relend
16179
0
        && offset_in_range (input_section, rel->r_offset,
16180
0
          is_8byte_reloc (ELF64_R_TYPE (rel[1].r_info))
16181
0
          ? 8 : 4))
16182
0
      {
16183
0
        unsigned int insn2;
16184
0
        enum elf_ppc64_reloc_type r_type1 = ELF64_R_TYPE (rel[1].r_info);
16185
16186
0
        offset = rel->r_offset;
16187
0
        if (is_plt_seq_reloc (r_type1))
16188
0
    {
16189
0
      bfd_put_32 (output_bfd, NOP, contents + offset);
16190
0
      if (r_type1 == R_PPC64_PLT_PCREL34
16191
0
          || r_type1 == R_PPC64_PLT_PCREL34_NOTOC)
16192
0
        bfd_put_32 (output_bfd, NOP, contents + offset + 4);
16193
0
      rel[1].r_info = ELF64_R_INFO (STN_UNDEF, R_PPC64_NONE);
16194
0
      break;
16195
0
    }
16196
16197
0
        if (r_type1 == R_PPC64_PLTCALL)
16198
0
    bfd_put_32 (output_bfd, NOP, contents + offset + 4);
16199
16200
0
        if (r_type1 == R_PPC64_REL24_NOTOC
16201
0
      || r_type1 == R_PPC64_REL24_P9NOTOC
16202
0
      || r_type1 == R_PPC64_PLTCALL_NOTOC)
16203
0
    {
16204
0
      r_type = R_PPC64_NONE;
16205
0
      insn2 = NOP;
16206
0
    }
16207
0
        else
16208
0
    {
16209
0
      rel->r_offset = offset + d_offset;
16210
0
      r_symndx = STN_UNDEF;
16211
0
      r_type = R_PPC64_TPREL16_LO;
16212
0
      rel->r_addend = htab->elf.tls_sec->vma + DTP_OFFSET;
16213
0
      insn2 = 0x38630000; /* addi 3,3,0 */
16214
0
    }
16215
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16216
        /* Zap the reloc on the _tls_get_addr call too.  */
16217
0
        BFD_ASSERT (offset == rel[1].r_offset);
16218
0
        rel[1].r_info = ELF64_R_INFO (STN_UNDEF, R_PPC64_NONE);
16219
0
        bfd_put_32 (input_bfd, insn2, contents + offset);
16220
0
        if (r_type != R_PPC64_NONE)
16221
0
    goto again;
16222
0
      }
16223
0
    break;
16224
16225
0
  case R_PPC64_DTPMOD64:
16226
0
    if (rel + 1 < relend
16227
0
        && rel[1].r_info == ELF64_R_INFO (r_symndx, R_PPC64_DTPREL64)
16228
0
        && rel[1].r_offset == rel->r_offset + 8)
16229
0
      {
16230
0
        if ((tls_mask & TLS_GD) == 0
16231
0
      && offset_in_range (input_section, rel->r_offset, 8))
16232
0
    {
16233
0
      rel[1].r_info = ELF64_R_INFO (r_symndx, R_PPC64_NONE);
16234
0
      if ((tls_mask & TLS_GDIE) != 0)
16235
0
        r_type = R_PPC64_TPREL64;
16236
0
      else
16237
0
        {
16238
0
          bfd_put_64 (output_bfd, 1, contents + rel->r_offset);
16239
0
          r_type = R_PPC64_NONE;
16240
0
        }
16241
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16242
0
    }
16243
0
      }
16244
0
    else
16245
0
      {
16246
0
        if ((tls_mask & TLS_LD) == 0
16247
0
      && offset_in_range (input_section, rel->r_offset, 8))
16248
0
    {
16249
0
      bfd_put_64 (output_bfd, 1, contents + rel->r_offset);
16250
0
      r_type = R_PPC64_NONE;
16251
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16252
0
    }
16253
0
      }
16254
0
    break;
16255
16256
0
  case R_PPC64_TPREL64:
16257
0
    if ((tls_mask & TLS_TPREL) == 0)
16258
0
      {
16259
0
        r_type = R_PPC64_NONE;
16260
0
        rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16261
0
      }
16262
0
    break;
16263
16264
0
  case R_PPC64_ENTRY:
16265
0
    relocation = TOCstart + htab->sec_info[input_section->id].toc_off;
16266
0
    if (!bfd_link_pic (info)
16267
0
        && !info->traditional_format
16268
0
        && relocation + 0x80008000 <= 0xffffffff
16269
0
        && offset_in_range (input_section, rel->r_offset, 8))
16270
0
      {
16271
0
        unsigned int insn1, insn2;
16272
16273
0
        insn1 = bfd_get_32 (input_bfd, contents + rel->r_offset);
16274
0
        insn2 = bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
16275
0
        if ((insn1 & ~0xfffc) == LD_R2_0R12
16276
0
      && insn2 == ADD_R2_R2_R12)
16277
0
    {
16278
0
      bfd_put_32 (input_bfd,
16279
0
            LIS_R2 + PPC_HA (relocation),
16280
0
            contents + rel->r_offset);
16281
0
      bfd_put_32 (input_bfd,
16282
0
            ADDI_R2_R2 + PPC_LO (relocation),
16283
0
            contents + rel->r_offset + 4);
16284
0
    }
16285
0
      }
16286
0
    else
16287
0
      {
16288
0
        relocation -= (rel->r_offset
16289
0
           + input_section->output_offset
16290
0
           + input_section->output_section->vma);
16291
0
        if (relocation + 0x80008000 <= 0xffffffff
16292
0
      && offset_in_range (input_section, rel->r_offset, 8))
16293
0
    {
16294
0
      unsigned int insn1, insn2;
16295
16296
0
      insn1 = bfd_get_32 (input_bfd, contents + rel->r_offset);
16297
0
      insn2 = bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
16298
0
      if ((insn1 & ~0xfffc) == LD_R2_0R12
16299
0
          && insn2 == ADD_R2_R2_R12)
16300
0
        {
16301
0
          bfd_put_32 (input_bfd,
16302
0
          ADDIS_R2_R12 + PPC_HA (relocation),
16303
0
          contents + rel->r_offset);
16304
0
          bfd_put_32 (input_bfd,
16305
0
          ADDI_R2_R2 + PPC_LO (relocation),
16306
0
          contents + rel->r_offset + 4);
16307
0
        }
16308
0
    }
16309
0
      }
16310
0
    break;
16311
16312
0
  case R_PPC64_REL16_HA:
16313
    /* If we are generating a non-PIC executable, edit
16314
       .  0:  addis 2,12,.TOC.-0b@ha
16315
       .    addi 2,2,.TOC.-0b@l
16316
       used by ELFv2 global entry points to set up r2, to
16317
       .    lis 2,.TOC.@ha
16318
       .    addi 2,2,.TOC.@l
16319
       if .TOC. is in range.  */
16320
0
    if (!bfd_link_pic (info)
16321
0
        && !info->traditional_format
16322
0
        && !htab->opd_abi
16323
0
        && rel->r_addend == d_offset
16324
0
        && h != NULL && &h->elf == htab->elf.hgot
16325
0
        && rel + 1 < relend
16326
0
        && rel[1].r_info == ELF64_R_INFO (r_symndx, R_PPC64_REL16_LO)
16327
0
        && rel[1].r_offset == rel->r_offset + 4
16328
0
        && rel[1].r_addend == rel->r_addend + 4
16329
0
        && relocation + 0x80008000 <= 0xffffffff
16330
0
        && offset_in_range (input_section, rel->r_offset - d_offset, 8))
16331
0
      {
16332
0
        unsigned int insn1, insn2;
16333
0
        offset = rel->r_offset - d_offset;
16334
0
        insn1 = bfd_get_32 (input_bfd, contents + offset);
16335
0
        insn2 = bfd_get_32 (input_bfd, contents + offset + 4);
16336
0
        if ((insn1 & 0xffff0000) == ADDIS_R2_R12
16337
0
      && (insn2 & 0xffff0000) == ADDI_R2_R2)
16338
0
    {
16339
0
      r_type = R_PPC64_ADDR16_HA;
16340
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16341
0
      rel->r_addend -= d_offset;
16342
0
      rel[1].r_info = ELF64_R_INFO (r_symndx, R_PPC64_ADDR16_LO);
16343
0
      rel[1].r_addend -= d_offset + 4;
16344
0
      bfd_put_32 (input_bfd, LIS_R2, contents + offset);
16345
0
    }
16346
0
      }
16347
0
    break;
16348
0
  }
16349
16350
      /* Handle other relocations that tweak non-addend part of insn.  */
16351
0
      insn = 0;
16352
0
      max_br_offset = 1 << 25;
16353
0
      addend = rel->r_addend;
16354
0
      reloc_dest = DEST_NORMAL;
16355
0
      switch (r_type)
16356
0
  {
16357
0
  default:
16358
0
    break;
16359
16360
0
  case R_PPC64_TOCSAVE:
16361
0
    if (relocation + addend == (rel->r_offset
16362
0
              + input_section->output_offset
16363
0
              + input_section->output_section->vma)
16364
0
        && tocsave_find (htab, NO_INSERT,
16365
0
             &local_syms, rel, input_bfd)
16366
0
        && offset_in_range (input_section, rel->r_offset, 4))
16367
0
      {
16368
0
        insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
16369
0
        if (insn == NOP
16370
0
      || insn == CROR_151515 || insn == CROR_313131)
16371
0
    bfd_put_32 (input_bfd,
16372
0
          STD_R2_0R1 + STK_TOC (htab),
16373
0
          contents + rel->r_offset);
16374
0
      }
16375
0
    break;
16376
16377
    /* Branch taken prediction relocations.  */
16378
0
  case R_PPC64_ADDR14_BRTAKEN:
16379
0
  case R_PPC64_REL14_BRTAKEN:
16380
0
    insn = 0x01 << 21; /* 'y' or 't' bit, lowest bit of BO field.  */
16381
    /* Fall through.  */
16382
16383
    /* Branch not taken prediction relocations.  */
16384
0
  case R_PPC64_ADDR14_BRNTAKEN:
16385
0
  case R_PPC64_REL14_BRNTAKEN:
16386
0
    if (!offset_in_range (input_section, rel->r_offset, 4))
16387
0
      break;
16388
0
    insn |= bfd_get_32 (input_bfd,
16389
0
            contents + rel->r_offset) & ~(0x01 << 21);
16390
    /* Fall through.  */
16391
16392
0
  case R_PPC64_REL14:
16393
0
    max_br_offset = 1 << 15;
16394
    /* Fall through.  */
16395
16396
0
  case R_PPC64_REL24:
16397
0
  case R_PPC64_REL24_NOTOC:
16398
0
  case R_PPC64_REL24_P9NOTOC:
16399
0
  case R_PPC64_PLTCALL:
16400
0
  case R_PPC64_PLTCALL_NOTOC:
16401
    /* Calls to functions with a different TOC, such as calls to
16402
       shared objects, need to alter the TOC pointer.  This is
16403
       done using a linkage stub.  A REL24 branching to these
16404
       linkage stubs needs to be followed by a nop, as the nop
16405
       will be replaced with an instruction to restore the TOC
16406
       base pointer.  */
16407
0
    fdh = h;
16408
0
    if (h != NULL
16409
0
        && h->oh != NULL
16410
0
        && h->oh->is_func_descriptor)
16411
0
      fdh = ppc_follow_link (h->oh);
16412
0
    stub_entry = ppc_get_stub_entry (input_section, sec, fdh, &orig_rel,
16413
0
             htab);
16414
0
    if ((r_type == R_PPC64_PLTCALL
16415
0
         || r_type == R_PPC64_PLTCALL_NOTOC)
16416
0
        && stub_entry != NULL
16417
0
        && stub_entry->type.main == ppc_stub_plt_call)
16418
0
      stub_entry = NULL;
16419
16420
0
    if (stub_entry != NULL
16421
0
        && (stub_entry->type.main == ppc_stub_plt_call
16422
0
      || stub_entry->type.r2save))
16423
0
      {
16424
0
        bool can_plt_call = false;
16425
16426
0
        if (r_type == R_PPC64_REL24_NOTOC
16427
0
      || r_type == R_PPC64_REL24_P9NOTOC)
16428
0
    {
16429
      /* NOTOC calls don't need to restore r2.  */
16430
0
      can_plt_call = true;
16431
0
    }
16432
0
        else if (stub_entry->type.main == ppc_stub_plt_call
16433
0
           && !htab->opd_abi
16434
0
           && htab->params->plt_localentry0 != 0
16435
0
           && h != NULL
16436
0
           && is_elfv2_localentry0 (&h->elf))
16437
0
    {
16438
      /* The function doesn't use or change r2.  */
16439
0
      can_plt_call = true;
16440
0
    }
16441
16442
        /* All of these stubs may modify r2, so there must be a
16443
     branch and link followed by a nop.  The nop is
16444
     replaced by an insn to restore r2.  */
16445
0
        else if (offset_in_range (input_section, rel->r_offset, 8))
16446
0
    {
16447
0
      unsigned long br;
16448
16449
0
      br = bfd_get_32 (input_bfd,
16450
0
           contents + rel->r_offset);
16451
0
      if ((br & 1) != 0)
16452
0
        {
16453
0
          unsigned long nop;
16454
16455
0
          nop = bfd_get_32 (input_bfd,
16456
0
          contents + rel->r_offset + 4);
16457
0
          if (nop == LD_R2_0R1 + STK_TOC (htab))
16458
0
      can_plt_call = true;
16459
0
          else if (nop == NOP
16460
0
             || nop == CROR_151515
16461
0
             || nop == CROR_313131)
16462
0
      {
16463
0
        if (h != NULL
16464
0
            && is_tls_get_addr (&h->elf, htab)
16465
0
            && htab->params->tls_get_addr_opt)
16466
0
          {
16467
            /* Special stub used, leave nop alone.  */
16468
0
          }
16469
0
        else
16470
0
          bfd_put_32 (input_bfd,
16471
0
          LD_R2_0R1 + STK_TOC (htab),
16472
0
          contents + rel->r_offset + 4);
16473
0
        can_plt_call = true;
16474
0
      }
16475
0
        }
16476
0
    }
16477
16478
0
        if (!can_plt_call && h != NULL)
16479
0
    {
16480
0
      const char *name = h->elf.root.root.string;
16481
16482
0
      if (*name == '.')
16483
0
        ++name;
16484
16485
0
      if (startswith (name, "__libc_start_main")
16486
0
          && (name[17] == 0 || name[17] == '@'))
16487
0
        {
16488
          /* Allow crt1 branch to go via a toc adjusting
16489
       stub.  Other calls that never return could do
16490
       the same, if we could detect such.  */
16491
0
          can_plt_call = true;
16492
0
        }
16493
0
    }
16494
16495
0
        if (!can_plt_call)
16496
0
    {
16497
      /* g++ as of 20130507 emits self-calls without a
16498
         following nop.  This is arguably wrong since we
16499
         have conflicting information.  On the one hand a
16500
         global symbol and on the other a local call
16501
         sequence, but don't error for this special case.
16502
         It isn't possible to cheaply verify we have
16503
         exactly such a call.  Allow all calls to the same
16504
         section.  */
16505
0
      asection *code_sec = sec;
16506
16507
0
      if (get_opd_info (sec) != NULL)
16508
0
        {
16509
0
          bfd_vma off = (relocation + addend
16510
0
             - sec->output_section->vma
16511
0
             - sec->output_offset);
16512
16513
0
          opd_entry_value (sec, off, &code_sec, NULL, false);
16514
0
        }
16515
0
      if (code_sec == input_section)
16516
0
        can_plt_call = true;
16517
0
    }
16518
16519
0
        if (!can_plt_call)
16520
0
    {
16521
0
      if (stub_entry->type.main == ppc_stub_plt_call)
16522
0
        info->callbacks->einfo
16523
          /* xgettext:c-format */
16524
0
          (_("%H: call to `%pT' lacks nop, can't restore toc; "
16525
0
       "(plt call stub)\n"),
16526
0
           input_bfd, input_section, rel->r_offset, sym_name);
16527
0
      else
16528
0
        info->callbacks->einfo
16529
          /* xgettext:c-format */
16530
0
          (_("%H: call to `%pT' lacks nop, can't restore toc; "
16531
0
       "(toc save/adjust stub)\n"),
16532
0
           input_bfd, input_section, rel->r_offset, sym_name);
16533
16534
0
      bfd_set_error (bfd_error_bad_value);
16535
0
      ret = false;
16536
0
    }
16537
16538
0
        if (can_plt_call
16539
0
      && stub_entry->type.main == ppc_stub_plt_call)
16540
0
    unresolved_reloc = false;
16541
0
      }
16542
16543
0
    if ((stub_entry == NULL
16544
0
         || stub_entry->type.main == ppc_stub_long_branch
16545
0
         || stub_entry->type.main == ppc_stub_plt_branch)
16546
0
        && get_opd_info (sec) != NULL)
16547
0
      {
16548
        /* The branch destination is the value of the opd entry. */
16549
0
        bfd_vma off = (relocation + addend
16550
0
           - sec->output_section->vma
16551
0
           - sec->output_offset);
16552
0
        bfd_vma dest = opd_entry_value (sec, off, NULL, NULL, false);
16553
0
        if (dest != (bfd_vma) -1)
16554
0
    {
16555
0
      relocation = dest;
16556
0
      addend = 0;
16557
0
      reloc_dest = DEST_OPD;
16558
0
    }
16559
0
      }
16560
16561
    /* If the branch is out of reach we ought to have a long
16562
       branch stub.  */
16563
0
    from = (rel->r_offset
16564
0
      + input_section->output_offset
16565
0
      + input_section->output_section->vma);
16566
16567
0
    relocation += PPC64_LOCAL_ENTRY_OFFSET (fdh
16568
0
              ? fdh->elf.other
16569
0
              : sym->st_other);
16570
16571
0
    if (stub_entry != NULL
16572
0
        && (stub_entry->type.main == ppc_stub_long_branch
16573
0
      || stub_entry->type.main == ppc_stub_plt_branch))
16574
0
      {
16575
0
        if (stub_entry->type.sub == ppc_stub_toc
16576
0
      && !stub_entry->type.r2save
16577
0
      && (r_type == R_PPC64_ADDR14_BRTAKEN
16578
0
          || r_type == R_PPC64_ADDR14_BRNTAKEN
16579
0
          || (relocation + addend - from + max_br_offset
16580
0
        < 2 * max_br_offset)))
16581
    /* Don't use the stub if this branch is in range.  */
16582
0
    stub_entry = NULL;
16583
16584
0
        if (stub_entry != NULL
16585
0
      && stub_entry->type.sub >= ppc_stub_notoc
16586
0
      && ((r_type != R_PPC64_REL24_NOTOC
16587
0
           && r_type != R_PPC64_REL24_P9NOTOC)
16588
0
          || ((fdh ? fdh->elf.other : sym->st_other)
16589
0
        & STO_PPC64_LOCAL_MASK) <= 1 << STO_PPC64_LOCAL_BIT)
16590
0
      && (relocation + addend - from + max_br_offset
16591
0
          < 2 * max_br_offset))
16592
0
    stub_entry = NULL;
16593
16594
0
        if (stub_entry != NULL
16595
0
      && stub_entry->type.r2save
16596
0
      && (r_type == R_PPC64_REL24_NOTOC
16597
0
          || r_type == R_PPC64_REL24_P9NOTOC)
16598
0
      && (relocation + addend - from + max_br_offset
16599
0
          < 2 * max_br_offset))
16600
0
    stub_entry = NULL;
16601
0
      }
16602
16603
0
    if (stub_entry != NULL)
16604
0
      {
16605
        /* Munge up the value and addend so that we call the stub
16606
     rather than the procedure directly.  */
16607
0
        asection *stub_sec = stub_entry->group->stub_sec;
16608
16609
0
        if (stub_entry->type.main == ppc_stub_save_res)
16610
0
    relocation += (stub_sec->output_offset
16611
0
             + stub_sec->output_section->vma
16612
0
             + stub_sec->size - htab->sfpr->size
16613
0
             - htab->sfpr->output_offset
16614
0
             - htab->sfpr->output_section->vma);
16615
0
        else
16616
0
    relocation = (stub_entry->stub_offset
16617
0
            + stub_sec->output_offset
16618
0
            + stub_sec->output_section->vma);
16619
0
        addend = 0;
16620
0
        reloc_dest = DEST_STUB;
16621
16622
0
        if (((stub_entry->type.r2save
16623
0
        && (r_type == R_PPC64_REL24_NOTOC
16624
0
      || r_type == R_PPC64_REL24_P9NOTOC))
16625
0
       || ((stub_entry->type.main == ppc_stub_plt_call
16626
0
      && (ALWAYS_EMIT_R2SAVE || stub_entry->type.r2save))
16627
0
           && rel + 1 < relend
16628
0
           && rel[1].r_offset == rel->r_offset + 4
16629
0
           && ELF64_R_TYPE (rel[1].r_info) == R_PPC64_TOCSAVE))
16630
0
      && !(stub_entry->type.main == ppc_stub_plt_call
16631
0
           && htab->params->tls_get_addr_opt
16632
0
           && h != NULL
16633
0
           && is_tls_get_addr (&h->elf, htab)))
16634
0
    {
16635
      /* Skip over the r2 store at the start of the stub.  */
16636
0
      relocation += 4;
16637
0
    }
16638
16639
0
        if ((r_type == R_PPC64_REL24_NOTOC
16640
0
       || r_type == R_PPC64_REL24_P9NOTOC)
16641
0
      && stub_entry->type.main == ppc_stub_plt_call
16642
0
      && stub_entry->type.sub >= ppc_stub_notoc)
16643
0
    htab->notoc_plt = 1;
16644
0
      }
16645
16646
0
    if (insn != 0)
16647
0
      {
16648
0
        if (is_isa_v2)
16649
0
    {
16650
      /* Set 'a' bit.  This is 0b00010 in BO field for branch
16651
         on CR(BI) insns (BO == 001at or 011at), and 0b01000
16652
         for branch on CTR insns (BO == 1a00t or 1a01t).  */
16653
0
      if ((insn & (0x14 << 21)) == (0x04 << 21))
16654
0
        insn |= 0x02 << 21;
16655
0
      else if ((insn & (0x14 << 21)) == (0x10 << 21))
16656
0
        insn |= 0x08 << 21;
16657
0
      else
16658
0
        break;
16659
0
    }
16660
0
        else
16661
0
    {
16662
      /* Invert 'y' bit if not the default.  */
16663
0
      if ((bfd_signed_vma) (relocation + addend - from) < 0)
16664
0
        insn ^= 0x01 << 21;
16665
0
    }
16666
16667
0
        bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
16668
0
      }
16669
16670
    /* NOP out calls to undefined weak functions.
16671
       We can thus call a weak function without first
16672
       checking whether the function is defined.  */
16673
0
    else if (h != NULL
16674
0
       && h->elf.root.type == bfd_link_hash_undefweak
16675
0
       && h->elf.dynindx == -1
16676
0
       && (r_type == R_PPC64_REL24
16677
0
           || r_type == R_PPC64_REL24_NOTOC
16678
0
           || r_type == R_PPC64_REL24_P9NOTOC)
16679
0
       && relocation == 0
16680
0
       && addend == 0
16681
0
       && offset_in_range (input_section, rel->r_offset, 4))
16682
0
      {
16683
0
        bfd_put_32 (input_bfd, NOP, contents + rel->r_offset);
16684
0
        goto copy_reloc;
16685
0
      }
16686
0
    break;
16687
16688
0
  case R_PPC64_GOT16_DS:
16689
0
    if ((h ? h->elf.type : ELF_ST_TYPE (sym->st_info)) == STT_GNU_IFUNC
16690
0
        || (bfd_link_pic (info)
16691
0
      && sec == bfd_abs_section_ptr)
16692
0
        || !htab->do_toc_opt)
16693
0
      break;
16694
0
    from = TOCstart + htab->sec_info[input_section->id].toc_off;
16695
0
    if (relocation + addend - from + 0x8000 < 0x10000
16696
0
        && sec != NULL
16697
0
        && sec->output_section != NULL
16698
0
        && !discarded_section (sec)
16699
0
        && (h == NULL || SYMBOL_REFERENCES_LOCAL (info, &h->elf))
16700
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
16701
0
      {
16702
0
        insn = bfd_get_32 (input_bfd, contents + (rel->r_offset & ~3));
16703
0
        if ((insn & (0x3fu << 26 | 0x3)) == 58u << 26 /* ld */)
16704
0
    {
16705
0
      insn += (14u << 26) - (58u << 26);
16706
0
      bfd_put_32 (input_bfd, insn, contents + (rel->r_offset & ~3));
16707
0
      r_type = R_PPC64_TOC16;
16708
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16709
0
    }
16710
0
      }
16711
0
    break;
16712
16713
0
  case R_PPC64_GOT16_LO_DS:
16714
0
  case R_PPC64_GOT16_HA:
16715
0
    if ((h ? h->elf.type : ELF_ST_TYPE (sym->st_info)) == STT_GNU_IFUNC
16716
0
        || (bfd_link_pic (info)
16717
0
      && sec == bfd_abs_section_ptr)
16718
0
        || !htab->do_toc_opt)
16719
0
      break;
16720
0
    from = TOCstart + htab->sec_info[input_section->id].toc_off;
16721
0
    if (relocation + addend - from + 0x80008000ULL < 0x100000000ULL
16722
0
        && sec != NULL
16723
0
        && sec->output_section != NULL
16724
0
        && !discarded_section (sec)
16725
0
        && (h == NULL || SYMBOL_REFERENCES_LOCAL (info, &h->elf))
16726
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
16727
0
      {
16728
0
        insn = bfd_get_32 (input_bfd, contents + (rel->r_offset & ~3));
16729
0
        if (r_type == R_PPC64_GOT16_LO_DS
16730
0
      && (insn & (0x3fu << 26 | 0x3)) == 58u << 26 /* ld */)
16731
0
    {
16732
0
      insn += (14u << 26) - (58u << 26);
16733
0
      bfd_put_32 (input_bfd, insn, contents + (rel->r_offset & ~3));
16734
0
      r_type = R_PPC64_TOC16_LO;
16735
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16736
0
    }
16737
0
        else if (r_type == R_PPC64_GOT16_HA
16738
0
           && (insn & (0x3fu << 26)) == 15u << 26 /* addis */)
16739
0
    {
16740
0
      r_type = R_PPC64_TOC16_HA;
16741
0
      rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16742
0
    }
16743
0
      }
16744
0
    break;
16745
16746
0
  case R_PPC64_GOT_PCREL34:
16747
0
    if ((h ? h->elf.type : ELF_ST_TYPE (sym->st_info)) == STT_GNU_IFUNC
16748
0
        || (bfd_link_pic (info)
16749
0
      && sec == bfd_abs_section_ptr)
16750
0
        || !htab->do_toc_opt)
16751
0
      break;
16752
0
    from = (rel->r_offset
16753
0
      + input_section->output_section->vma
16754
0
      + input_section->output_offset);
16755
0
    if (!(relocation - from + (1ULL << 33) < 1ULL << 34
16756
0
    && sec != NULL
16757
0
    && sec->output_section != NULL
16758
0
    && !discarded_section (sec)
16759
0
    && (h == NULL || SYMBOL_REFERENCES_LOCAL (info, &h->elf))
16760
0
    && offset_in_range (input_section, rel->r_offset, 8)))
16761
0
      break;
16762
16763
0
    offset = rel->r_offset;
16764
0
    pinsn = bfd_get_32 (input_bfd, contents + offset);
16765
0
    pinsn <<= 32;
16766
0
    pinsn |= bfd_get_32 (input_bfd, contents + offset + 4);
16767
0
    if ((pinsn & ((-1ULL << 50) | (63ULL << 26)))
16768
0
        != ((1ULL << 58) | (1ULL << 52) | (57ULL << 26) /* pld */))
16769
0
      break;
16770
16771
    /* Replace with paddi.  */
16772
0
    pinsn += (2ULL << 56) + (14ULL << 26) - (57ULL << 26);
16773
0
    r_type = R_PPC64_PCREL34;
16774
0
    rel->r_info = ELF64_R_INFO (r_symndx, r_type);
16775
0
    bfd_put_32 (input_bfd, pinsn >> 32, contents + offset);
16776
0
    bfd_put_32 (input_bfd, pinsn, contents + offset + 4);
16777
    /* Fall through.  */
16778
16779
0
  case R_PPC64_PCREL34:
16780
0
    if (!htab->params->no_pcrel_opt
16781
0
        && rel + 1 < relend
16782
0
        && rel[1].r_offset == rel->r_offset
16783
0
        && rel[1].r_info == ELF64_R_INFO (0, R_PPC64_PCREL_OPT)
16784
0
        && (h == NULL || SYMBOL_REFERENCES_LOCAL (info, &h->elf))
16785
0
        && offset_in_range (input_section, rel->r_offset, 8))
16786
0
      {
16787
0
        offset = rel->r_offset;
16788
0
        pinsn = bfd_get_32 (input_bfd, contents + offset);
16789
0
        pinsn <<= 32;
16790
0
        pinsn |= bfd_get_32 (input_bfd, contents + offset + 4);
16791
0
        if ((pinsn & ((-1ULL << 50) | (63ULL << 26)))
16792
0
       == ((1ULL << 58) | (2ULL << 56) | (1ULL << 52)
16793
0
           | (14ULL << 26) /* paddi */))
16794
0
    {
16795
0
      bfd_vma off2 = rel[1].r_addend;
16796
0
      if (off2 == 0)
16797
        /* zero means next insn.  */
16798
0
        off2 = 8;
16799
0
      off2 += offset;
16800
0
      if (offset_in_range (input_section, off2, 4))
16801
0
        {
16802
0
          uint64_t pinsn2;
16803
0
          bfd_signed_vma addend_off;
16804
0
          pinsn2 = bfd_get_32 (input_bfd, contents + off2);
16805
0
          pinsn2 <<= 32;
16806
0
          if ((pinsn2 & (63ULL << 58)) == 1ULL << 58)
16807
0
      {
16808
0
        if (!offset_in_range (input_section, off2, 8))
16809
0
          break;
16810
0
        pinsn2 |= bfd_get_32 (input_bfd,
16811
0
            contents + off2 + 4);
16812
0
      }
16813
0
          if (xlate_pcrel_opt (&pinsn, &pinsn2, &addend_off))
16814
0
      {
16815
0
        addend += addend_off;
16816
0
        rel->r_addend = addend;
16817
0
        bfd_put_32 (input_bfd, pinsn >> 32,
16818
0
              contents + offset);
16819
0
        bfd_put_32 (input_bfd, pinsn,
16820
0
              contents + offset + 4);
16821
0
        bfd_put_32 (input_bfd, pinsn2 >> 32,
16822
0
              contents + off2);
16823
0
        if ((pinsn2 & (63ULL << 58)) == 1ULL << 58)
16824
0
          bfd_put_32 (input_bfd, pinsn2,
16825
0
          contents + off2 + 4);
16826
0
      }
16827
0
        }
16828
0
    }
16829
0
      }
16830
0
    break;
16831
0
  }
16832
16833
0
      tls_type = 0;
16834
0
      save_unresolved_reloc = unresolved_reloc;
16835
0
      switch (r_type)
16836
0
  {
16837
0
  default:
16838
    /* xgettext:c-format */
16839
0
    _bfd_error_handler (_("%pB: %s unsupported"),
16840
0
            input_bfd, ppc64_elf_howto_table[r_type]->name);
16841
16842
0
    bfd_set_error (bfd_error_bad_value);
16843
0
    ret = false;
16844
0
    goto copy_reloc;
16845
16846
0
  case R_PPC64_NONE:
16847
0
  case R_PPC64_TLS:
16848
0
  case R_PPC64_TLSGD:
16849
0
  case R_PPC64_TLSLD:
16850
0
  case R_PPC64_TOCSAVE:
16851
0
  case R_PPC64_GNU_VTINHERIT:
16852
0
  case R_PPC64_GNU_VTENTRY:
16853
0
  case R_PPC64_ENTRY:
16854
0
  case R_PPC64_PCREL_OPT:
16855
0
    goto copy_reloc;
16856
16857
    /* GOT16 relocations.  Like an ADDR16 using the symbol's
16858
       address in the GOT as relocation value instead of the
16859
       symbol's value itself.  Also, create a GOT entry for the
16860
       symbol and put the symbol value there.  */
16861
0
  case R_PPC64_GOT_TLSGD16:
16862
0
  case R_PPC64_GOT_TLSGD16_LO:
16863
0
  case R_PPC64_GOT_TLSGD16_HI:
16864
0
  case R_PPC64_GOT_TLSGD16_HA:
16865
0
  case R_PPC64_GOT_TLSGD_PCREL34:
16866
0
    tls_type = TLS_TLS | TLS_GD;
16867
0
    goto dogot;
16868
16869
0
  case R_PPC64_GOT_TLSLD16:
16870
0
  case R_PPC64_GOT_TLSLD16_LO:
16871
0
  case R_PPC64_GOT_TLSLD16_HI:
16872
0
  case R_PPC64_GOT_TLSLD16_HA:
16873
0
  case R_PPC64_GOT_TLSLD_PCREL34:
16874
0
    tls_type = TLS_TLS | TLS_LD;
16875
0
    goto dogot;
16876
16877
0
  case R_PPC64_GOT_TPREL16_DS:
16878
0
  case R_PPC64_GOT_TPREL16_LO_DS:
16879
0
  case R_PPC64_GOT_TPREL16_HI:
16880
0
  case R_PPC64_GOT_TPREL16_HA:
16881
0
  case R_PPC64_GOT_TPREL_PCREL34:
16882
0
    tls_type = TLS_TLS | TLS_TPREL;
16883
0
    goto dogot;
16884
16885
0
  case R_PPC64_GOT_DTPREL16_DS:
16886
0
  case R_PPC64_GOT_DTPREL16_LO_DS:
16887
0
  case R_PPC64_GOT_DTPREL16_HI:
16888
0
  case R_PPC64_GOT_DTPREL16_HA:
16889
0
  case R_PPC64_GOT_DTPREL_PCREL34:
16890
0
    tls_type = TLS_TLS | TLS_DTPREL;
16891
0
    goto dogot;
16892
16893
0
  case R_PPC64_GOT16:
16894
0
  case R_PPC64_GOT16_LO:
16895
0
  case R_PPC64_GOT16_HI:
16896
0
  case R_PPC64_GOT16_HA:
16897
0
  case R_PPC64_GOT16_DS:
16898
0
  case R_PPC64_GOT16_LO_DS:
16899
0
  case R_PPC64_GOT_PCREL34:
16900
0
  dogot:
16901
0
    {
16902
      /* Relocation is to the entry for this symbol in the global
16903
         offset table.  */
16904
0
      asection *got;
16905
0
      bfd_vma *offp;
16906
0
      bfd_vma off;
16907
0
      unsigned long indx = 0;
16908
0
      struct got_entry *ent;
16909
16910
0
      if (tls_type == (TLS_TLS | TLS_LD)
16911
0
    && (h == NULL || SYMBOL_REFERENCES_LOCAL (info, &h->elf)))
16912
0
        ent = ppc64_tlsld_got (input_bfd);
16913
0
      else
16914
0
        {
16915
0
    if (h != NULL)
16916
0
      {
16917
0
        if (!htab->elf.dynamic_sections_created
16918
0
      || h->elf.dynindx == -1
16919
0
      || SYMBOL_REFERENCES_LOCAL (info, &h->elf)
16920
0
      || UNDEFWEAK_NO_DYNAMIC_RELOC (info, &h->elf))
16921
          /* This is actually a static link, or it is a
16922
       -Bsymbolic link and the symbol is defined
16923
       locally, or the symbol was forced to be local
16924
       because of a version file.  */
16925
0
          ;
16926
0
        else
16927
0
          {
16928
0
      indx = h->elf.dynindx;
16929
0
      unresolved_reloc = false;
16930
0
          }
16931
0
        ent = h->elf.got.glist;
16932
0
      }
16933
0
    else
16934
0
      {
16935
0
        if (local_got_ents == NULL)
16936
0
          abort ();
16937
0
        ent = local_got_ents[r_symndx];
16938
0
      }
16939
16940
0
    for (; ent != NULL; ent = ent->next)
16941
0
      if (ent->addend == orig_rel.r_addend
16942
0
          && ent->owner == input_bfd
16943
0
          && ent->tls_type == tls_type)
16944
0
        break;
16945
0
        }
16946
16947
0
      if (ent == NULL)
16948
0
        abort ();
16949
0
      if (ent->is_indirect)
16950
0
        ent = ent->got.ent;
16951
0
      offp = &ent->got.offset;
16952
0
      got = ppc64_elf_tdata (ent->owner)->got;
16953
0
      if (got == NULL)
16954
0
        abort ();
16955
16956
      /* The offset must always be a multiple of 8.  We use the
16957
         least significant bit to record whether we have already
16958
         processed this entry.  */
16959
0
      off = *offp;
16960
0
      if ((off & 1) != 0)
16961
0
        off &= ~1;
16962
0
      else
16963
0
        {
16964
    /* Generate relocs for the dynamic linker, except in
16965
       the case of TLSLD where we'll use one entry per
16966
       module.  */
16967
0
    asection *relgot;
16968
0
    bool ifunc;
16969
16970
0
    *offp = off | 1;
16971
0
    relgot = NULL;
16972
0
    ifunc = (h != NULL
16973
0
       ? h->elf.type == STT_GNU_IFUNC
16974
0
       : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC);
16975
0
    if (ifunc)
16976
0
      {
16977
0
        relgot = htab->elf.irelplt;
16978
0
        if (indx == 0 || is_static_defined (&h->elf))
16979
0
          htab->elf.ifunc_resolvers = true;
16980
0
      }
16981
0
    else if (indx != 0
16982
0
       || (bfd_link_pic (info)
16983
0
           && (h == NULL
16984
0
         || !UNDEFWEAK_NO_DYNAMIC_RELOC (info, &h->elf))
16985
0
           && !(tls_type != 0
16986
0
          && bfd_link_executable (info)
16987
0
          && (h == NULL
16988
0
              || SYMBOL_REFERENCES_LOCAL (info,
16989
0
                  &h->elf)))
16990
0
           && (h != NULL
16991
0
         ? !bfd_is_abs_symbol (&h->elf.root)
16992
0
         : sym->st_shndx != SHN_ABS)))
16993
16994
0
      relgot = ppc64_elf_tdata (ent->owner)->relgot;
16995
0
    if (relgot != NULL)
16996
0
      {
16997
0
        outrel.r_offset = (got->output_section->vma
16998
0
               + got->output_offset
16999
0
               + off);
17000
0
        outrel.r_addend = orig_rel.r_addend;
17001
0
        if (tls_type & (TLS_LD | TLS_GD))
17002
0
          {
17003
0
      outrel.r_addend = 0;
17004
0
      outrel.r_info = ELF64_R_INFO (indx, R_PPC64_DTPMOD64);
17005
0
      if (tls_type == (TLS_TLS | TLS_GD))
17006
0
        {
17007
0
          BFD_ASSERT (count_and_swap_reloc_out (output_bfd,
17008
0
                  &outrel,
17009
0
                  relgot));
17010
0
          outrel.r_offset += 8;
17011
0
          outrel.r_addend = orig_rel.r_addend;
17012
0
          outrel.r_info
17013
0
            = ELF64_R_INFO (indx, R_PPC64_DTPREL64);
17014
0
        }
17015
0
          }
17016
0
        else if (tls_type == (TLS_TLS | TLS_DTPREL))
17017
0
          outrel.r_info = ELF64_R_INFO (indx, R_PPC64_DTPREL64);
17018
0
        else if (tls_type == (TLS_TLS | TLS_TPREL))
17019
0
          outrel.r_info = ELF64_R_INFO (indx, R_PPC64_TPREL64);
17020
0
        else if (indx != 0)
17021
0
          outrel.r_info = ELF64_R_INFO (indx, R_PPC64_GLOB_DAT);
17022
0
        else
17023
0
          {
17024
0
      if (ifunc)
17025
0
        outrel.r_info = ELF64_R_INFO (0, R_PPC64_IRELATIVE);
17026
0
      else
17027
0
        outrel.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
17028
17029
      /* Write the .got section contents for the sake
17030
         of prelink.  */
17031
0
      loc = got->contents + off;
17032
0
      bfd_put_64 (output_bfd, outrel.r_addend + relocation,
17033
0
            loc);
17034
0
          }
17035
17036
0
        if (indx == 0 && tls_type != (TLS_TLS | TLS_LD))
17037
0
          {
17038
0
      outrel.r_addend += relocation;
17039
0
      if (tls_type & (TLS_GD | TLS_DTPREL | TLS_TPREL))
17040
0
        {
17041
0
          if (htab->elf.tls_sec == NULL)
17042
0
            outrel.r_addend = 0;
17043
0
          else
17044
0
            outrel.r_addend -= htab->elf.tls_sec->vma;
17045
0
        }
17046
0
          }
17047
0
        if (!(info->enable_dt_relr
17048
0
        && ELF64_R_TYPE (outrel.r_info) == R_PPC64_RELATIVE))
17049
0
          BFD_ASSERT (count_and_swap_reloc_out (output_bfd,
17050
0
                  &outrel, relgot));
17051
0
      }
17052
17053
    /* Init the .got section contents here if we're not
17054
       emitting a reloc.  */
17055
0
    else
17056
0
      {
17057
0
        relocation += orig_rel.r_addend;
17058
0
        if (tls_type != 0)
17059
0
          {
17060
0
      if (htab->elf.tls_sec == NULL)
17061
0
        relocation = 0;
17062
0
      else
17063
0
        {
17064
0
          if (tls_type & TLS_LD)
17065
0
            relocation = 0;
17066
0
          else
17067
0
            relocation -= htab->elf.tls_sec->vma + DTP_OFFSET;
17068
0
          if (tls_type & TLS_TPREL)
17069
0
            relocation += DTP_OFFSET - TP_OFFSET;
17070
0
        }
17071
17072
0
      if (tls_type & (TLS_GD | TLS_LD))
17073
0
        {
17074
0
          bfd_put_64 (output_bfd, relocation,
17075
0
          got->contents + off + 8);
17076
0
          relocation = 1;
17077
0
        }
17078
0
          }
17079
0
        bfd_put_64 (output_bfd, relocation,
17080
0
        got->contents + off);
17081
0
      }
17082
0
        }
17083
17084
0
      if (off >= (bfd_vma) -2)
17085
0
        abort ();
17086
17087
0
      relocation = got->output_section->vma + got->output_offset + off;
17088
0
      addend = 0;
17089
0
      if (!(r_type == R_PPC64_GOT_PCREL34
17090
0
      || r_type == R_PPC64_GOT_TLSGD_PCREL34
17091
0
      || r_type == R_PPC64_GOT_TLSLD_PCREL34
17092
0
      || r_type == R_PPC64_GOT_TPREL_PCREL34
17093
0
      || r_type == R_PPC64_GOT_DTPREL_PCREL34))
17094
0
        addend = -(TOCstart + htab->sec_info[input_section->id].toc_off);
17095
0
    }
17096
0
    break;
17097
17098
0
  case R_PPC64_PLT16_HA:
17099
0
  case R_PPC64_PLT16_HI:
17100
0
  case R_PPC64_PLT16_LO:
17101
0
  case R_PPC64_PLT16_LO_DS:
17102
0
  case R_PPC64_PLT_PCREL34:
17103
0
  case R_PPC64_PLT_PCREL34_NOTOC:
17104
0
  case R_PPC64_PLT32:
17105
0
  case R_PPC64_PLT64:
17106
0
  case R_PPC64_PLTSEQ:
17107
0
  case R_PPC64_PLTSEQ_NOTOC:
17108
0
  case R_PPC64_PLTCALL:
17109
0
  case R_PPC64_PLTCALL_NOTOC:
17110
    /* Relocation is to the entry for this symbol in the
17111
       procedure linkage table.  */
17112
0
    unresolved_reloc = true;
17113
0
    {
17114
0
      struct plt_entry **plt_list = NULL;
17115
0
      if (h != NULL)
17116
0
        plt_list = &h->elf.plt.plist;
17117
0
      else if (local_got_ents != NULL)
17118
0
        {
17119
0
    struct plt_entry **local_plt = (struct plt_entry **)
17120
0
      (local_got_ents + symtab_hdr->sh_info);
17121
0
    plt_list = local_plt + r_symndx;
17122
0
        }
17123
0
      if (plt_list)
17124
0
        {
17125
0
    struct plt_entry *ent;
17126
17127
0
    for (ent = *plt_list; ent != NULL; ent = ent->next)
17128
0
      if (ent->plt.offset != (bfd_vma) -1
17129
0
          && ent->addend == orig_rel.r_addend)
17130
0
        {
17131
0
          asection *plt;
17132
0
          bfd_vma got;
17133
17134
0
          plt = htab->elf.splt;
17135
0
          if (use_local_plt (info, elf_hash_entry (h)))
17136
0
      {
17137
0
        if (h != NULL
17138
0
            ? h->elf.type == STT_GNU_IFUNC
17139
0
            : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
17140
0
          plt = htab->elf.iplt;
17141
0
        else
17142
0
          plt = htab->pltlocal;
17143
0
      }
17144
0
          relocation = (plt->output_section->vma
17145
0
            + plt->output_offset
17146
0
            + ent->plt.offset);
17147
0
          if (r_type == R_PPC64_PLT16_HA
17148
0
        || r_type == R_PPC64_PLT16_HI
17149
0
        || r_type == R_PPC64_PLT16_LO
17150
0
        || r_type == R_PPC64_PLT16_LO_DS)
17151
0
      {
17152
0
        got = (elf_gp (output_bfd)
17153
0
         + htab->sec_info[input_section->id].toc_off);
17154
0
        relocation -= got;
17155
0
      }
17156
0
          addend = 0;
17157
0
          unresolved_reloc = false;
17158
0
          break;
17159
0
        }
17160
0
        }
17161
0
    }
17162
0
    break;
17163
17164
0
  case R_PPC64_TOC:
17165
    /* Relocation value is TOC base.  */
17166
0
    relocation = TOCstart;
17167
0
    if (r_symndx == STN_UNDEF)
17168
0
      relocation += htab->sec_info[input_section->id].toc_off;
17169
0
    else if (unresolved_reloc)
17170
0
      ;
17171
0
    else if (sec != NULL && sec->id < htab->sec_info_arr_size)
17172
0
      relocation += htab->sec_info[sec->id].toc_off;
17173
0
    else
17174
0
      unresolved_reloc = true;
17175
0
    if (unresolved_reloc
17176
0
        || (!is_opd
17177
0
      && h != NULL
17178
0
      && !SYMBOL_REFERENCES_LOCAL (info, &h->elf)))
17179
0
      info->callbacks->einfo
17180
        /* xgettext:c-format */
17181
0
        (_("%H: %s against %pT is not supported\n"),
17182
0
         input_bfd, input_section, rel->r_offset,
17183
0
         ppc64_elf_howto_table[r_type]->name, sym_name);
17184
0
    goto dodyn;
17185
17186
    /* TOC16 relocs.  We want the offset relative to the TOC base,
17187
       which is the address of the start of the TOC plus 0x8000.
17188
       The TOC consists of sections .got, .toc, .tocbss, and .plt,
17189
       in this order.  */
17190
0
  case R_PPC64_TOC16:
17191
0
  case R_PPC64_TOC16_LO:
17192
0
  case R_PPC64_TOC16_HI:
17193
0
  case R_PPC64_TOC16_DS:
17194
0
  case R_PPC64_TOC16_LO_DS:
17195
0
  case R_PPC64_TOC16_HA:
17196
0
    addend -= TOCstart + htab->sec_info[input_section->id].toc_off;
17197
0
    if (h != NULL)
17198
0
      goto dodyn;
17199
0
    break;
17200
17201
    /* Relocate against the beginning of the section.  */
17202
0
  case R_PPC64_SECTOFF:
17203
0
  case R_PPC64_SECTOFF_LO:
17204
0
  case R_PPC64_SECTOFF_HI:
17205
0
  case R_PPC64_SECTOFF_DS:
17206
0
  case R_PPC64_SECTOFF_LO_DS:
17207
0
  case R_PPC64_SECTOFF_HA:
17208
0
    if (sec != NULL)
17209
0
      addend -= sec->output_section->vma;
17210
0
    break;
17211
17212
0
  case R_PPC64_REL16:
17213
0
  case R_PPC64_REL16_LO:
17214
0
  case R_PPC64_REL16_HI:
17215
0
  case R_PPC64_REL16_HA:
17216
0
  case R_PPC64_REL16_HIGH:
17217
0
  case R_PPC64_REL16_HIGHA:
17218
0
  case R_PPC64_REL16_HIGHER:
17219
0
  case R_PPC64_REL16_HIGHERA:
17220
0
  case R_PPC64_REL16_HIGHEST:
17221
0
  case R_PPC64_REL16_HIGHESTA:
17222
0
  case R_PPC64_REL16_HIGHER34:
17223
0
  case R_PPC64_REL16_HIGHERA34:
17224
0
  case R_PPC64_REL16_HIGHEST34:
17225
0
  case R_PPC64_REL16_HIGHESTA34:
17226
0
  case R_PPC64_REL16DX_HA:
17227
0
  case R_PPC64_REL14:
17228
0
  case R_PPC64_REL14_BRNTAKEN:
17229
0
  case R_PPC64_REL14_BRTAKEN:
17230
0
  case R_PPC64_REL24:
17231
0
  case R_PPC64_REL24_NOTOC:
17232
0
  case R_PPC64_REL24_P9NOTOC:
17233
0
  case R_PPC64_PCREL34:
17234
0
  case R_PPC64_PCREL28:
17235
0
    break;
17236
17237
0
  case R_PPC64_TPREL16:
17238
0
  case R_PPC64_TPREL16_LO:
17239
0
  case R_PPC64_TPREL16_HI:
17240
0
  case R_PPC64_TPREL16_HA:
17241
0
  case R_PPC64_TPREL16_DS:
17242
0
  case R_PPC64_TPREL16_LO_DS:
17243
0
  case R_PPC64_TPREL16_HIGH:
17244
0
  case R_PPC64_TPREL16_HIGHA:
17245
0
  case R_PPC64_TPREL16_HIGHER:
17246
0
  case R_PPC64_TPREL16_HIGHERA:
17247
0
  case R_PPC64_TPREL16_HIGHEST:
17248
0
  case R_PPC64_TPREL16_HIGHESTA:
17249
0
    if (h != NULL
17250
0
        && h->elf.root.type == bfd_link_hash_undefweak
17251
0
        && h->elf.dynindx == -1
17252
0
        && offset_in_range (input_section, rel->r_offset - d_offset, 4))
17253
0
      {
17254
        /* Make this relocation against an undefined weak symbol
17255
     resolve to zero.  This is really just a tweak, since
17256
     code using weak externs ought to check that they are
17257
     defined before using them.  */
17258
0
        bfd_byte *p = contents + rel->r_offset - d_offset;
17259
17260
0
        insn = bfd_get_32 (input_bfd, p);
17261
0
        insn = _bfd_elf_ppc_at_tprel_transform (insn, 13);
17262
0
        if (insn != 0)
17263
0
    bfd_put_32 (input_bfd, insn, p);
17264
0
        break;
17265
0
      }
17266
    /* Fall through.  */
17267
17268
0
  case R_PPC64_TPREL34:
17269
0
    if (htab->elf.tls_sec != NULL)
17270
0
      addend -= htab->elf.tls_sec->vma + TP_OFFSET;
17271
    /* The TPREL16 relocs shouldn't really be used in shared
17272
       libs or with non-local symbols as that will result in
17273
       DT_TEXTREL being set, but support them anyway.  */
17274
0
    goto dodyn;
17275
17276
0
  case R_PPC64_DTPREL16:
17277
0
  case R_PPC64_DTPREL16_LO:
17278
0
  case R_PPC64_DTPREL16_HI:
17279
0
  case R_PPC64_DTPREL16_HA:
17280
0
  case R_PPC64_DTPREL16_DS:
17281
0
  case R_PPC64_DTPREL16_LO_DS:
17282
0
  case R_PPC64_DTPREL16_HIGH:
17283
0
  case R_PPC64_DTPREL16_HIGHA:
17284
0
  case R_PPC64_DTPREL16_HIGHER:
17285
0
  case R_PPC64_DTPREL16_HIGHERA:
17286
0
  case R_PPC64_DTPREL16_HIGHEST:
17287
0
  case R_PPC64_DTPREL16_HIGHESTA:
17288
0
  case R_PPC64_DTPREL34:
17289
0
    if (htab->elf.tls_sec != NULL)
17290
0
      addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
17291
0
    break;
17292
17293
0
  case R_PPC64_ADDR64_LOCAL:
17294
0
    addend += PPC64_LOCAL_ENTRY_OFFSET (h != NULL
17295
0
                ? h->elf.other
17296
0
                : sym->st_other);
17297
0
    break;
17298
17299
0
  case R_PPC64_DTPMOD64:
17300
0
    relocation = 1;
17301
0
    addend = 0;
17302
0
    goto dodyn;
17303
17304
0
  case R_PPC64_TPREL64:
17305
0
    if (htab->elf.tls_sec != NULL)
17306
0
      addend -= htab->elf.tls_sec->vma + TP_OFFSET;
17307
0
    goto dodyn;
17308
17309
0
  case R_PPC64_DTPREL64:
17310
0
    if (htab->elf.tls_sec != NULL)
17311
0
      addend -= htab->elf.tls_sec->vma + DTP_OFFSET;
17312
    /* Fall through.  */
17313
17314
    /* Relocations that may need to be propagated if this is a
17315
       dynamic object.  */
17316
0
  case R_PPC64_REL30:
17317
0
  case R_PPC64_REL32:
17318
0
  case R_PPC64_REL64:
17319
0
  case R_PPC64_ADDR14:
17320
0
  case R_PPC64_ADDR14_BRNTAKEN:
17321
0
  case R_PPC64_ADDR14_BRTAKEN:
17322
0
  case R_PPC64_ADDR16:
17323
0
  case R_PPC64_ADDR16_DS:
17324
0
  case R_PPC64_ADDR16_HA:
17325
0
  case R_PPC64_ADDR16_HI:
17326
0
  case R_PPC64_ADDR16_HIGH:
17327
0
  case R_PPC64_ADDR16_HIGHA:
17328
0
  case R_PPC64_ADDR16_HIGHER:
17329
0
  case R_PPC64_ADDR16_HIGHERA:
17330
0
  case R_PPC64_ADDR16_HIGHEST:
17331
0
  case R_PPC64_ADDR16_HIGHESTA:
17332
0
  case R_PPC64_ADDR16_LO:
17333
0
  case R_PPC64_ADDR16_LO_DS:
17334
0
  case R_PPC64_ADDR16_HIGHER34:
17335
0
  case R_PPC64_ADDR16_HIGHERA34:
17336
0
  case R_PPC64_ADDR16_HIGHEST34:
17337
0
  case R_PPC64_ADDR16_HIGHESTA34:
17338
0
  case R_PPC64_ADDR24:
17339
0
  case R_PPC64_ADDR32:
17340
0
  case R_PPC64_ADDR64:
17341
0
  case R_PPC64_UADDR16:
17342
0
  case R_PPC64_UADDR32:
17343
0
  case R_PPC64_UADDR64:
17344
0
  case R_PPC64_D34:
17345
0
  case R_PPC64_D34_LO:
17346
0
  case R_PPC64_D34_HI30:
17347
0
  case R_PPC64_D34_HA30:
17348
0
  case R_PPC64_D28:
17349
0
  dodyn:
17350
0
    if ((input_section->flags & SEC_ALLOC) == 0)
17351
0
      break;
17352
17353
0
    if (NO_OPD_RELOCS && is_opd)
17354
0
      break;
17355
17356
0
    if (bfd_link_pic (info)
17357
0
        ? ((h == NULL
17358
0
      || h->elf.dyn_relocs != NULL)
17359
0
     && ((h != NULL && pc_dynrelocs (h))
17360
0
         || must_be_dyn_reloc (info, r_type)))
17361
0
        : (h != NULL
17362
0
     ? h->elf.dyn_relocs != NULL
17363
0
     : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC))
17364
0
      {
17365
0
        bool skip, relocate;
17366
0
        asection *sreloc;
17367
0
        bfd_vma out_off;
17368
0
        long indx = 0;
17369
17370
        /* When generating a dynamic object, these relocations
17371
     are copied into the output file to be resolved at run
17372
     time.  */
17373
17374
0
        skip = false;
17375
0
        relocate = false;
17376
17377
0
        out_off = _bfd_elf_section_offset (output_bfd, info,
17378
0
             input_section, rel->r_offset);
17379
0
        if (out_off == (bfd_vma) -1)
17380
0
    skip = true;
17381
0
        else if (out_off == (bfd_vma) -2)
17382
0
    skip = true, relocate = true;
17383
0
        out_off += (input_section->output_section->vma
17384
0
        + input_section->output_offset);
17385
0
        outrel.r_offset = out_off;
17386
0
        outrel.r_addend = rel->r_addend;
17387
17388
        /* Optimize unaligned reloc use.  */
17389
0
        if ((r_type == R_PPC64_ADDR64 && (out_off & 7) != 0)
17390
0
      || (r_type == R_PPC64_UADDR64 && (out_off & 7) == 0))
17391
0
    r_type ^= R_PPC64_ADDR64 ^ R_PPC64_UADDR64;
17392
0
        else if ((r_type == R_PPC64_ADDR32 && (out_off & 3) != 0)
17393
0
           || (r_type == R_PPC64_UADDR32 && (out_off & 3) == 0))
17394
0
    r_type ^= R_PPC64_ADDR32 ^ R_PPC64_UADDR32;
17395
0
        else if ((r_type == R_PPC64_ADDR16 && (out_off & 1) != 0)
17396
0
           || (r_type == R_PPC64_UADDR16 && (out_off & 1) == 0))
17397
0
    r_type ^= R_PPC64_ADDR16 ^ R_PPC64_UADDR16;
17398
17399
0
        if (skip)
17400
0
    memset (&outrel, 0, sizeof outrel);
17401
0
        else if (h != NULL
17402
0
           && !SYMBOL_REFERENCES_LOCAL (info, &h->elf)
17403
0
           && !is_opd
17404
0
           && r_type != R_PPC64_TOC)
17405
0
    {
17406
0
      indx = h->elf.dynindx;
17407
0
      BFD_ASSERT (indx != -1);
17408
0
      outrel.r_info = ELF64_R_INFO (indx, r_type);
17409
0
    }
17410
0
        else
17411
0
    {
17412
      /* This symbol is local, or marked to become local,
17413
         or this is an opd section reloc which must point
17414
         at a local function.  */
17415
0
      outrel.r_addend += relocation;
17416
0
      if (r_type == R_PPC64_ADDR64 || r_type == R_PPC64_TOC)
17417
0
        {
17418
0
          if (is_opd && h != NULL)
17419
0
      {
17420
        /* Lie about opd entries.  This case occurs
17421
           when building shared libraries and we
17422
           reference a function in another shared
17423
           lib.  The same thing happens for a weak
17424
           definition in an application that's
17425
           overridden by a strong definition in a
17426
           shared lib.  (I believe this is a generic
17427
           bug in binutils handling of weak syms.)
17428
           In these cases we won't use the opd
17429
           entry in this lib.  */
17430
0
        unresolved_reloc = false;
17431
0
      }
17432
0
          if (!is_opd
17433
0
        && r_type == R_PPC64_ADDR64
17434
0
        && (h != NULL
17435
0
            ? h->elf.type == STT_GNU_IFUNC
17436
0
            : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC))
17437
0
      outrel.r_info = ELF64_R_INFO (0, R_PPC64_IRELATIVE);
17438
0
          else
17439
0
      {
17440
0
        outrel.r_info = ELF64_R_INFO (0, R_PPC64_RELATIVE);
17441
17442
        /* We need to relocate .opd contents for ld.so.
17443
           Prelink also wants simple and consistent rules
17444
           for relocs.  This make all RELATIVE relocs have
17445
           *r_offset equal to r_addend.  */
17446
0
        relocate = true;
17447
0
      }
17448
0
        }
17449
0
      else
17450
0
        {
17451
0
          if (h != NULL
17452
0
        ? h->elf.type == STT_GNU_IFUNC
17453
0
        : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
17454
0
      {
17455
0
        info->callbacks->einfo
17456
          /* xgettext:c-format */
17457
0
          (_("%H: %s for indirect "
17458
0
             "function `%pT' unsupported\n"),
17459
0
           input_bfd, input_section, rel->r_offset,
17460
0
           ppc64_elf_howto_table[r_type]->name,
17461
0
           sym_name);
17462
0
        ret = false;
17463
0
      }
17464
0
          else if (r_symndx == STN_UNDEF || bfd_is_abs_section (sec))
17465
0
      ;
17466
0
          else if (sec == NULL || sec->owner == NULL)
17467
0
      {
17468
0
        bfd_set_error (bfd_error_bad_value);
17469
0
        return false;
17470
0
      }
17471
0
          else
17472
0
      {
17473
0
        asection *osec = sec->output_section;
17474
17475
0
        if ((osec->flags & SEC_THREAD_LOCAL) != 0)
17476
0
          {
17477
            /* TLS symbol values are relative to the
17478
         TLS segment.  Dynamic relocations for
17479
         local TLS symbols therefore can't be
17480
         reduced to a relocation against their
17481
         section symbol because it holds the
17482
         address of the section, not a value
17483
         relative to the TLS segment.  We could
17484
         change the .tdata dynamic section symbol
17485
         to be zero value but STN_UNDEF works
17486
         and is used elsewhere, eg. for TPREL64
17487
         GOT relocs against local TLS symbols.  */
17488
0
            osec = htab->elf.tls_sec;
17489
0
            indx = 0;
17490
0
          }
17491
0
        else
17492
0
          {
17493
0
            indx = elf_section_data (osec)->dynindx;
17494
0
            if (indx == 0)
17495
0
        {
17496
0
          if ((osec->flags & SEC_READONLY) == 0
17497
0
              && htab->elf.data_index_section != NULL)
17498
0
            osec = htab->elf.data_index_section;
17499
0
          else
17500
0
            osec = htab->elf.text_index_section;
17501
0
          indx = elf_section_data (osec)->dynindx;
17502
0
        }
17503
0
            BFD_ASSERT (indx != 0);
17504
0
          }
17505
17506
        /* We are turning this relocation into one
17507
           against a section symbol, so subtract out
17508
           the output section's address but not the
17509
           offset of the input section in the output
17510
           section.  */
17511
0
        outrel.r_addend -= osec->vma;
17512
0
      }
17513
17514
0
          outrel.r_info = ELF64_R_INFO (indx, r_type);
17515
0
        }
17516
0
    }
17517
17518
0
        if (!(info->enable_dt_relr
17519
0
        && ELF64_R_TYPE (outrel.r_info) == R_PPC64_RELATIVE
17520
0
        && rel->r_offset % 2 == 0
17521
0
        && input_section->alignment_power != 0
17522
0
        && ELF64_R_TYPE (orig_rel.r_info) != R_PPC64_UADDR64))
17523
0
    {
17524
0
      sreloc = elf_section_data (input_section)->sreloc;
17525
0
      if (h != NULL
17526
0
          ? h->elf.type == STT_GNU_IFUNC
17527
0
          : ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
17528
0
        {
17529
0
          sreloc = htab->elf.irelplt;
17530
0
          if (indx == 0 || is_static_defined (&h->elf))
17531
0
      htab->elf.ifunc_resolvers = true;
17532
0
        }
17533
0
      if (sreloc == NULL)
17534
0
        abort ();
17535
17536
0
      BFD_ASSERT (count_and_swap_reloc_out (output_bfd, &outrel,
17537
0
              sreloc));
17538
0
    }
17539
17540
0
        if (!warned_dynamic
17541
0
      && !ppc64_glibc_dynamic_reloc (ELF64_R_TYPE (outrel.r_info)))
17542
0
    {
17543
0
      info->callbacks->einfo
17544
        /* xgettext:c-format */
17545
0
        (_("%X%P: %pB: %s against %pT "
17546
0
           "is not supported by glibc as a dynamic relocation\n"),
17547
0
         input_bfd,
17548
0
         ppc64_elf_howto_table[ELF64_R_TYPE (outrel.r_info)]->name,
17549
0
         sym_name);
17550
0
      warned_dynamic = true;
17551
0
    }
17552
17553
        /* If this reloc is against an external symbol, it will
17554
     be computed at runtime, so there's no need to do
17555
     anything now.  However, for the sake of prelink ensure
17556
     that the section contents are a known value.  */
17557
0
        if (!relocate)
17558
0
    {
17559
0
      unresolved_reloc = false;
17560
      /* The value chosen here is quite arbitrary as ld.so
17561
         ignores section contents except for the special
17562
         case of .opd where the contents might be accessed
17563
         before relocation.  Choose zero, as that won't
17564
         cause reloc overflow.  */
17565
0
      relocation = 0;
17566
0
      addend = 0;
17567
      /* Use *r_offset == r_addend for R_PPC64_ADDR64 relocs
17568
         to improve backward compatibility with older
17569
         versions of ld.  */
17570
0
      if (r_type == R_PPC64_ADDR64)
17571
0
        addend = outrel.r_addend;
17572
      /* Adjust pc_relative relocs to have zero in *r_offset.  */
17573
0
      else if (ppc64_elf_howto_table[r_type]->pc_relative)
17574
0
        addend = outrel.r_offset;
17575
0
    }
17576
0
      }
17577
0
    break;
17578
17579
0
  case R_PPC64_COPY:
17580
0
  case R_PPC64_GLOB_DAT:
17581
0
  case R_PPC64_JMP_SLOT:
17582
0
  case R_PPC64_JMP_IREL:
17583
0
  case R_PPC64_RELATIVE:
17584
    /* We shouldn't ever see these dynamic relocs in relocatable
17585
       files.  */
17586
    /* Fall through.  */
17587
17588
0
  case R_PPC64_PLTGOT16:
17589
0
  case R_PPC64_PLTGOT16_DS:
17590
0
  case R_PPC64_PLTGOT16_HA:
17591
0
  case R_PPC64_PLTGOT16_HI:
17592
0
  case R_PPC64_PLTGOT16_LO:
17593
0
  case R_PPC64_PLTGOT16_LO_DS:
17594
0
  case R_PPC64_PLTREL32:
17595
0
  case R_PPC64_PLTREL64:
17596
    /* These ones haven't been implemented yet.  */
17597
17598
0
    info->callbacks->einfo
17599
      /* xgettext:c-format */
17600
0
      (_("%P: %pB: %s is not supported for `%pT'\n"),
17601
0
       input_bfd,
17602
0
       ppc64_elf_howto_table[r_type]->name, sym_name);
17603
17604
0
    bfd_set_error (bfd_error_invalid_operation);
17605
0
    ret = false;
17606
0
    goto copy_reloc;
17607
0
  }
17608
17609
      /* Multi-instruction sequences that access the TOC can be
17610
   optimized, eg. addis ra,r2,0; addi rb,ra,x;
17611
   to   nop;         addi rb,r2,x;  */
17612
0
      switch (r_type)
17613
0
  {
17614
0
  default:
17615
0
    break;
17616
17617
0
  case R_PPC64_GOT_TLSLD16_HI:
17618
0
  case R_PPC64_GOT_TLSGD16_HI:
17619
0
  case R_PPC64_GOT_TPREL16_HI:
17620
0
  case R_PPC64_GOT_DTPREL16_HI:
17621
0
  case R_PPC64_GOT16_HI:
17622
0
  case R_PPC64_TOC16_HI:
17623
    /* These relocs would only be useful if building up an
17624
       offset to later add to r2, perhaps in an indexed
17625
       addressing mode instruction.  Don't try to optimize.
17626
       Unfortunately, the possibility of someone building up an
17627
       offset like this or even with the HA relocs, means that
17628
       we need to check the high insn when optimizing the low
17629
       insn.  */
17630
0
    break;
17631
17632
0
  case R_PPC64_PLTCALL_NOTOC:
17633
0
    if (!unresolved_reloc)
17634
0
      htab->notoc_plt = 1;
17635
    /* Fall through.  */
17636
0
  case R_PPC64_PLTCALL:
17637
0
    if (unresolved_reloc
17638
0
        && offset_in_range (input_section, rel->r_offset,
17639
0
          r_type == R_PPC64_PLTCALL ? 8 : 4))
17640
0
      {
17641
        /* No plt entry.  Make this into a direct call.  */
17642
0
        bfd_byte *p = contents + rel->r_offset;
17643
0
        insn = bfd_get_32 (input_bfd, p);
17644
0
        insn &= 1;
17645
0
        bfd_put_32 (input_bfd, B_DOT | insn, p);
17646
0
        if (r_type == R_PPC64_PLTCALL)
17647
0
    bfd_put_32 (input_bfd, NOP, p + 4);
17648
0
        unresolved_reloc = save_unresolved_reloc;
17649
0
        r_type = R_PPC64_REL24;
17650
0
      }
17651
0
    break;
17652
17653
0
  case R_PPC64_PLTSEQ_NOTOC:
17654
0
  case R_PPC64_PLTSEQ:
17655
0
    if (unresolved_reloc)
17656
0
      {
17657
0
        unresolved_reloc = false;
17658
0
        goto nop_it;
17659
0
      }
17660
0
    break;
17661
17662
0
  case R_PPC64_PLT_PCREL34_NOTOC:
17663
0
    if (!unresolved_reloc)
17664
0
      htab->notoc_plt = 1;
17665
    /* Fall through.  */
17666
0
  case R_PPC64_PLT_PCREL34:
17667
0
    if (unresolved_reloc
17668
0
        && offset_in_range (input_section, rel->r_offset, 8))
17669
0
      {
17670
0
        bfd_byte *p = contents + rel->r_offset;
17671
0
        bfd_put_32 (input_bfd, PNOP >> 32, p);
17672
0
        bfd_put_32 (input_bfd, PNOP, p + 4);
17673
0
        unresolved_reloc = false;
17674
0
        goto copy_reloc;
17675
0
      }
17676
0
    break;
17677
17678
0
  case R_PPC64_PLT16_HA:
17679
0
    if (unresolved_reloc)
17680
0
      {
17681
0
        unresolved_reloc = false;
17682
0
        goto nop_it;
17683
0
      }
17684
    /* Fall through.  */
17685
0
  case R_PPC64_GOT_TLSLD16_HA:
17686
0
  case R_PPC64_GOT_TLSGD16_HA:
17687
0
  case R_PPC64_GOT_TPREL16_HA:
17688
0
  case R_PPC64_GOT_DTPREL16_HA:
17689
0
  case R_PPC64_GOT16_HA:
17690
0
  case R_PPC64_TOC16_HA:
17691
0
    if (htab->do_toc_opt && relocation + addend + 0x8000 < 0x10000
17692
0
        && !ppc64_elf_tdata (input_bfd)->unexpected_toc_insn
17693
0
        && !(bfd_link_pic (info)
17694
0
       && (h != NULL
17695
0
           ? bfd_is_abs_symbol (&h->elf.root)
17696
0
           : sec == bfd_abs_section_ptr)))
17697
0
      {
17698
0
        bfd_byte *p;
17699
0
      nop_it:
17700
0
        if (offset_in_range (input_section, rel->r_offset & ~3, 4))
17701
0
    {
17702
0
      p = contents + (rel->r_offset & ~3);
17703
0
      bfd_put_32 (input_bfd, NOP, p);
17704
0
      goto copy_reloc;
17705
0
    }
17706
0
      }
17707
0
    break;
17708
17709
0
  case R_PPC64_PLT16_LO:
17710
0
  case R_PPC64_PLT16_LO_DS:
17711
0
    if (unresolved_reloc)
17712
0
      {
17713
0
        unresolved_reloc = false;
17714
0
        goto nop_it;
17715
0
      }
17716
    /* Fall through.  */
17717
0
  case R_PPC64_GOT_TLSLD16_LO:
17718
0
  case R_PPC64_GOT_TLSGD16_LO:
17719
0
  case R_PPC64_GOT_TPREL16_LO_DS:
17720
0
  case R_PPC64_GOT_DTPREL16_LO_DS:
17721
0
  case R_PPC64_GOT16_LO:
17722
0
  case R_PPC64_GOT16_LO_DS:
17723
0
  case R_PPC64_TOC16_LO:
17724
0
  case R_PPC64_TOC16_LO_DS:
17725
0
    if (htab->do_toc_opt && relocation + addend + 0x8000 < 0x10000
17726
0
        && !ppc64_elf_tdata (input_bfd)->unexpected_toc_insn
17727
0
        && !(bfd_link_pic (info)
17728
0
       && (h != NULL
17729
0
           ? bfd_is_abs_symbol (&h->elf.root)
17730
0
           : sec == bfd_abs_section_ptr))
17731
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
17732
0
      {
17733
0
        bfd_byte *p = contents + (rel->r_offset & ~3);
17734
0
        insn = bfd_get_32 (input_bfd, p);
17735
0
        if ((insn & (0x3fu << 26)) == 12u << 26 /* addic */)
17736
0
    {
17737
      /* Transform addic to addi when we change reg.  */
17738
0
      insn &= ~((0x3fu << 26) | (0x1f << 16));
17739
0
      insn |= (14u << 26) | (2 << 16);
17740
0
    }
17741
0
        else
17742
0
    {
17743
0
      insn &= ~(0x1f << 16);
17744
0
      insn |= 2 << 16;
17745
0
    }
17746
0
        bfd_put_32 (input_bfd, insn, p);
17747
0
      }
17748
0
    break;
17749
17750
0
  case R_PPC64_TPREL16_HA:
17751
0
    if (htab->do_tls_opt
17752
0
        && relocation + addend + 0x8000 < 0x10000
17753
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
17754
0
      {
17755
0
        bfd_byte *p = contents + (rel->r_offset & ~3);
17756
0
        bfd_put_32 (input_bfd, NOP, p);
17757
0
        goto copy_reloc;
17758
0
      }
17759
0
    break;
17760
17761
0
  case R_PPC64_TPREL16_LO:
17762
0
  case R_PPC64_TPREL16_LO_DS:
17763
0
    if (htab->do_tls_opt
17764
0
        && relocation + addend + 0x8000 < 0x10000
17765
0
        && offset_in_range (input_section, rel->r_offset & ~3, 4))
17766
0
      {
17767
0
        bfd_byte *p = contents + (rel->r_offset & ~3);
17768
0
        insn = bfd_get_32 (input_bfd, p);
17769
0
        insn &= ~(0x1f << 16);
17770
0
        insn |= 13 << 16;
17771
0
        bfd_put_32 (input_bfd, insn, p);
17772
0
      }
17773
0
    break;
17774
0
  }
17775
17776
      /* Do any further special processing.  */
17777
0
      switch (r_type)
17778
0
  {
17779
0
  default:
17780
0
    break;
17781
17782
0
  case R_PPC64_REL16_HA:
17783
0
  case R_PPC64_REL16_HIGHA:
17784
0
  case R_PPC64_REL16_HIGHERA:
17785
0
  case R_PPC64_REL16_HIGHESTA:
17786
0
  case R_PPC64_REL16DX_HA:
17787
0
  case R_PPC64_ADDR16_HA:
17788
0
  case R_PPC64_ADDR16_HIGHA:
17789
0
  case R_PPC64_ADDR16_HIGHERA:
17790
0
  case R_PPC64_ADDR16_HIGHESTA:
17791
0
  case R_PPC64_TOC16_HA:
17792
0
  case R_PPC64_SECTOFF_HA:
17793
0
  case R_PPC64_TPREL16_HA:
17794
0
  case R_PPC64_TPREL16_HIGHA:
17795
0
  case R_PPC64_TPREL16_HIGHERA:
17796
0
  case R_PPC64_TPREL16_HIGHESTA:
17797
0
  case R_PPC64_DTPREL16_HA:
17798
0
  case R_PPC64_DTPREL16_HIGHA:
17799
0
  case R_PPC64_DTPREL16_HIGHERA:
17800
0
  case R_PPC64_DTPREL16_HIGHESTA:
17801
    /* It's just possible that this symbol is a weak symbol
17802
       that's not actually defined anywhere. In that case,
17803
       'sec' would be NULL, and we should leave the symbol
17804
       alone (it will be set to zero elsewhere in the link).  */
17805
0
    if (sec == NULL)
17806
0
      break;
17807
    /* Fall through.  */
17808
17809
0
  case R_PPC64_GOT16_HA:
17810
0
  case R_PPC64_PLTGOT16_HA:
17811
0
  case R_PPC64_PLT16_HA:
17812
0
  case R_PPC64_GOT_TLSGD16_HA:
17813
0
  case R_PPC64_GOT_TLSLD16_HA:
17814
0
  case R_PPC64_GOT_TPREL16_HA:
17815
0
  case R_PPC64_GOT_DTPREL16_HA:
17816
    /* Add 0x10000 if sign bit in 0:15 is set.
17817
       Bits 0:15 are not used.  */
17818
0
    addend += 0x8000;
17819
0
    break;
17820
17821
0
  case R_PPC64_D34_HA30:
17822
0
  case R_PPC64_ADDR16_HIGHERA34:
17823
0
  case R_PPC64_ADDR16_HIGHESTA34:
17824
0
  case R_PPC64_REL16_HIGHERA34:
17825
0
  case R_PPC64_REL16_HIGHESTA34:
17826
0
    if (sec != NULL)
17827
0
      addend += 1ULL << 33;
17828
0
    break;
17829
17830
0
  case R_PPC64_ADDR16_DS:
17831
0
  case R_PPC64_ADDR16_LO_DS:
17832
0
  case R_PPC64_GOT16_DS:
17833
0
  case R_PPC64_GOT16_LO_DS:
17834
0
  case R_PPC64_PLT16_LO_DS:
17835
0
  case R_PPC64_SECTOFF_DS:
17836
0
  case R_PPC64_SECTOFF_LO_DS:
17837
0
  case R_PPC64_TOC16_DS:
17838
0
  case R_PPC64_TOC16_LO_DS:
17839
0
  case R_PPC64_PLTGOT16_DS:
17840
0
  case R_PPC64_PLTGOT16_LO_DS:
17841
0
  case R_PPC64_GOT_TPREL16_DS:
17842
0
  case R_PPC64_GOT_TPREL16_LO_DS:
17843
0
  case R_PPC64_GOT_DTPREL16_DS:
17844
0
  case R_PPC64_GOT_DTPREL16_LO_DS:
17845
0
  case R_PPC64_TPREL16_DS:
17846
0
  case R_PPC64_TPREL16_LO_DS:
17847
0
  case R_PPC64_DTPREL16_DS:
17848
0
  case R_PPC64_DTPREL16_LO_DS:
17849
0
    if (!offset_in_range (input_section, rel->r_offset & ~3, 4))
17850
0
      break;
17851
0
    insn = bfd_get_32 (input_bfd, contents + (rel->r_offset & ~3));
17852
0
    mask = 3;
17853
    /* If this reloc is against an lq, lxv, or stxv insn, then
17854
       the value must be a multiple of 16.  This is somewhat of
17855
       a hack, but the "correct" way to do this by defining _DQ
17856
       forms of all the _DS relocs bloats all reloc switches in
17857
       this file.  It doesn't make much sense to use these
17858
       relocs in data, so testing the insn should be safe.  */
17859
0
    if ((insn & (0x3fu << 26)) == (56u << 26)
17860
0
        || ((insn & (0x3fu << 26)) == (61u << 26) && (insn & 3) == 1))
17861
0
      mask = 15;
17862
0
    relocation += addend;
17863
0
    addend = insn & (mask ^ 3);
17864
0
    if ((relocation & mask) != 0)
17865
0
      {
17866
0
        relocation ^= relocation & mask;
17867
0
        info->callbacks->einfo
17868
    /* xgettext:c-format */
17869
0
    (_("%H: error: %s not a multiple of %u\n"),
17870
0
     input_bfd, input_section, rel->r_offset,
17871
0
     ppc64_elf_howto_table[r_type]->name,
17872
0
     mask + 1);
17873
0
        bfd_set_error (bfd_error_bad_value);
17874
0
        ret = false;
17875
0
        goto copy_reloc;
17876
0
      }
17877
0
    break;
17878
0
  }
17879
17880
      /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
17881
   because such sections are not SEC_ALLOC and thus ld.so will
17882
   not process them.  */
17883
0
      howto = ppc64_elf_howto_table[(int) r_type];
17884
0
      if (unresolved_reloc
17885
0
    && !((input_section->flags & SEC_DEBUGGING) != 0
17886
0
         && h->elf.def_dynamic)
17887
0
    && _bfd_elf_section_offset (output_bfd, info, input_section,
17888
0
              rel->r_offset) != (bfd_vma) -1)
17889
0
  {
17890
0
    info->callbacks->einfo
17891
      /* xgettext:c-format */
17892
0
      (_("%H: unresolvable %s against `%pT'\n"),
17893
0
       input_bfd, input_section, rel->r_offset,
17894
0
       howto->name,
17895
0
       h->elf.root.root.string);
17896
0
    ret = false;
17897
0
  }
17898
17899
      /* 16-bit fields in insns mostly have signed values, but a
17900
   few insns have 16-bit unsigned values.  Really, we should
17901
   have different reloc types.  */
17902
0
      if (howto->complain_on_overflow != complain_overflow_dont
17903
0
    && howto->dst_mask == 0xffff
17904
0
    && (input_section->flags & SEC_CODE) != 0
17905
0
    && offset_in_range (input_section, rel->r_offset & ~3, 4))
17906
0
  {
17907
0
    enum complain_overflow complain = complain_overflow_signed;
17908
17909
0
    insn = bfd_get_32 (input_bfd, contents + (rel->r_offset & ~3));
17910
0
    if ((insn & (0x3fu << 26)) == 10u << 26 /* cmpli */)
17911
0
      complain = complain_overflow_bitfield;
17912
0
    else if (howto->rightshift == 0
17913
0
       ? ((insn & (0x3fu << 26)) == 28u << 26 /* andi */
17914
0
          || (insn & (0x3fu << 26)) == 24u << 26 /* ori */
17915
0
          || (insn & (0x3fu << 26)) == 26u << 26 /* xori */)
17916
0
       : ((insn & (0x3fu << 26)) == 29u << 26 /* andis */
17917
0
          || (insn & (0x3fu << 26)) == 25u << 26 /* oris */
17918
0
          || (insn & (0x3fu << 26)) == 27u << 26 /* xoris */))
17919
0
      complain = complain_overflow_unsigned;
17920
0
    if (howto->complain_on_overflow != complain)
17921
0
      {
17922
0
        alt_howto = *howto;
17923
0
        alt_howto.complain_on_overflow = complain;
17924
0
        howto = &alt_howto;
17925
0
      }
17926
0
  }
17927
17928
0
      switch (r_type)
17929
0
  {
17930
    /* Split field relocs aren't handled by _bfd_final_link_relocate.  */
17931
0
  case R_PPC64_D34:
17932
0
  case R_PPC64_D34_LO:
17933
0
  case R_PPC64_D34_HI30:
17934
0
  case R_PPC64_D34_HA30:
17935
0
  case R_PPC64_PCREL34:
17936
0
  case R_PPC64_GOT_PCREL34:
17937
0
  case R_PPC64_TPREL34:
17938
0
  case R_PPC64_DTPREL34:
17939
0
  case R_PPC64_GOT_TLSGD_PCREL34:
17940
0
  case R_PPC64_GOT_TLSLD_PCREL34:
17941
0
  case R_PPC64_GOT_TPREL_PCREL34:
17942
0
  case R_PPC64_GOT_DTPREL_PCREL34:
17943
0
  case R_PPC64_PLT_PCREL34:
17944
0
  case R_PPC64_PLT_PCREL34_NOTOC:
17945
0
  case R_PPC64_D28:
17946
0
  case R_PPC64_PCREL28:
17947
0
    if (!offset_in_range (input_section, rel->r_offset, 8))
17948
0
      r = bfd_reloc_outofrange;
17949
0
    else
17950
0
      {
17951
0
        relocation += addend;
17952
0
        if (howto->pc_relative)
17953
0
    relocation -= (rel->r_offset
17954
0
             + input_section->output_offset
17955
0
             + input_section->output_section->vma);
17956
0
        relocation >>= howto->rightshift;
17957
17958
0
        pinsn = bfd_get_32 (input_bfd, contents + rel->r_offset);
17959
0
        pinsn <<= 32;
17960
0
        pinsn |= bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
17961
17962
0
        pinsn &= ~howto->dst_mask;
17963
0
        pinsn |= (((relocation << 16) | (relocation & 0xffff))
17964
0
      & howto->dst_mask);
17965
0
        bfd_put_32 (input_bfd, pinsn >> 32, contents + rel->r_offset);
17966
0
        bfd_put_32 (input_bfd, pinsn, contents + rel->r_offset + 4);
17967
0
        r = bfd_reloc_ok;
17968
0
        if (howto->complain_on_overflow == complain_overflow_signed
17969
0
      && (relocation + (1ULL << (howto->bitsize - 1))
17970
0
          >= 1ULL << howto->bitsize))
17971
0
    r = bfd_reloc_overflow;
17972
0
      }
17973
0
    break;
17974
17975
0
  case R_PPC64_REL16DX_HA:
17976
0
    if (!offset_in_range (input_section, rel->r_offset, 4))
17977
0
      r = bfd_reloc_outofrange;
17978
0
    else
17979
0
      {
17980
0
        relocation += addend;
17981
0
        relocation -= (rel->r_offset
17982
0
           + input_section->output_offset
17983
0
           + input_section->output_section->vma);
17984
0
        relocation = (bfd_signed_vma) relocation >> 16;
17985
0
        insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
17986
0
        insn &= ~0x1fffc1;
17987
0
        insn |= (relocation & 0xffc1) | ((relocation & 0x3e) << 15);
17988
0
        bfd_put_32 (input_bfd, insn, contents + rel->r_offset);
17989
0
        r = bfd_reloc_ok;
17990
0
        if (relocation + 0x8000 > 0xffff)
17991
0
    r = bfd_reloc_overflow;
17992
0
      }
17993
0
    break;
17994
17995
0
  default:
17996
0
    r = _bfd_final_link_relocate (howto, input_bfd, input_section,
17997
0
          contents, rel->r_offset,
17998
0
          relocation, addend);
17999
0
  }
18000
18001
0
      if (r != bfd_reloc_ok)
18002
0
  {
18003
0
    char *more_info = NULL;
18004
0
    const char *reloc_name = howto->name;
18005
18006
0
    if (reloc_dest != DEST_NORMAL)
18007
0
      {
18008
0
        more_info = bfd_malloc (strlen (reloc_name) + 8);
18009
0
        if (more_info != NULL)
18010
0
    {
18011
0
      strcpy (more_info, reloc_name);
18012
0
      strcat (more_info, (reloc_dest == DEST_OPD
18013
0
              ? " (OPD)" : " (stub)"));
18014
0
      reloc_name = more_info;
18015
0
    }
18016
0
      }
18017
18018
0
    if (r == bfd_reloc_overflow)
18019
0
      {
18020
        /* On code like "if (foo) foo();" don't report overflow
18021
     on a branch to zero when foo is undefined.  */
18022
0
        if (!warned
18023
0
      && (reloc_dest == DEST_STUB
18024
0
          || !(h != NULL
18025
0
         && (h->elf.root.type == bfd_link_hash_undefweak
18026
0
             || h->elf.root.type == bfd_link_hash_undefined)
18027
0
         && is_branch_reloc (r_type))))
18028
0
    info->callbacks->reloc_overflow
18029
0
      (info, (struct bfd_link_hash_entry *) h, sym_name,
18030
0
       reloc_name, orig_rel.r_addend, input_bfd, input_section,
18031
0
       rel->r_offset);
18032
0
      }
18033
0
    else
18034
0
      {
18035
0
        info->callbacks->einfo
18036
    /* xgettext:c-format */
18037
0
    (_("%H: %s against `%pT': error %d\n"),
18038
0
     input_bfd, input_section, rel->r_offset,
18039
0
     reloc_name, sym_name, (int) r);
18040
0
        ret = false;
18041
0
      }
18042
0
    free (more_info);
18043
0
  }
18044
0
    copy_reloc:
18045
0
      if (wrel != rel)
18046
0
  *wrel = *rel;
18047
0
    }
18048
18049
0
  if (wrel != rel)
18050
0
    {
18051
0
      Elf_Internal_Shdr *rel_hdr;
18052
0
      size_t deleted = rel - wrel;
18053
18054
0
      rel_hdr = _bfd_elf_single_rel_hdr (input_section->output_section);
18055
0
      rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
18056
0
      if (rel_hdr->sh_size == 0)
18057
0
  {
18058
    /* It is too late to remove an empty reloc section.  Leave
18059
       one NONE reloc.
18060
       ??? What is wrong with an empty section???  */
18061
0
    rel_hdr->sh_size = rel_hdr->sh_entsize;
18062
0
    deleted -= 1;
18063
0
  }
18064
0
      rel_hdr = _bfd_elf_single_rel_hdr (input_section);
18065
0
      rel_hdr->sh_size -= rel_hdr->sh_entsize * deleted;
18066
0
      input_section->reloc_count -= deleted;
18067
0
    }
18068
18069
  /* If we're emitting relocations, then shortly after this function
18070
     returns, reloc offsets and addends for this section will be
18071
     adjusted.  Worse, reloc symbol indices will be for the output
18072
     file rather than the input.  Save a copy of the relocs for
18073
     opd_entry_value.  */
18074
0
  if (is_opd
18075
0
      && (info->emitrelocations || bfd_link_relocatable (info))
18076
0
      && input_section->reloc_count != 0)
18077
0
    {
18078
0
      bfd_size_type amt;
18079
0
      amt = input_section->reloc_count * sizeof (Elf_Internal_Rela);
18080
0
      rel = bfd_alloc (input_bfd, amt);
18081
0
      ppc64_elf_section_data (input_section)->u.opd.u.relocs = rel;
18082
0
      if (rel == NULL)
18083
0
  return false;
18084
0
      memcpy (rel, relocs, amt);
18085
0
    }
18086
0
  return ret;
18087
0
}
18088
18089
/* Adjust the value of any local symbols in opd sections.  */
18090
18091
static int
18092
ppc64_elf_output_symbol_hook (struct bfd_link_info *info,
18093
            const char *name ATTRIBUTE_UNUSED,
18094
            Elf_Internal_Sym *elfsym,
18095
            asection *input_sec,
18096
            struct elf_link_hash_entry *h)
18097
0
{
18098
0
  struct _opd_sec_data *opd;
18099
0
  long adjust;
18100
0
  bfd_vma value;
18101
18102
0
  if (h != NULL)
18103
0
    return 1;
18104
18105
0
  opd = get_opd_info (input_sec);
18106
0
  if (opd == NULL || opd->adjust == NULL)
18107
0
    return 1;
18108
18109
0
  value = elfsym->st_value - input_sec->output_offset;
18110
0
  if (!bfd_link_relocatable (info))
18111
0
    value -= input_sec->output_section->vma;
18112
18113
0
  adjust = opd->adjust[OPD_NDX (value)];
18114
0
  if (adjust == -1)
18115
0
    return 2;
18116
18117
0
  elfsym->st_value += adjust;
18118
0
  return 1;
18119
0
}
18120
18121
/* Finish up dynamic symbol handling.  We set the contents of various
18122
   dynamic sections here.  */
18123
18124
static bool
18125
ppc64_elf_finish_dynamic_symbol (bfd *output_bfd,
18126
         struct bfd_link_info *info,
18127
         struct elf_link_hash_entry *h,
18128
         Elf_Internal_Sym *sym)
18129
0
{
18130
0
  struct ppc_link_hash_table *htab;
18131
0
  struct plt_entry *ent;
18132
18133
0
  htab = ppc_hash_table (info);
18134
0
  if (htab == NULL)
18135
0
    return false;
18136
18137
0
  if (!htab->opd_abi && !h->def_regular)
18138
0
    for (ent = h->plt.plist; ent != NULL; ent = ent->next)
18139
0
      if (ent->plt.offset != (bfd_vma) -1)
18140
0
  {
18141
    /* Mark the symbol as undefined, rather than as
18142
       defined in glink.  Leave the value if there were
18143
       any relocations where pointer equality matters
18144
       (this is a clue for the dynamic linker, to make
18145
       function pointer comparisons work between an
18146
       application and shared library), otherwise set it
18147
       to zero.  */
18148
0
    sym->st_shndx = SHN_UNDEF;
18149
0
    if (!h->pointer_equality_needed)
18150
0
      sym->st_value = 0;
18151
0
    else if (!h->ref_regular_nonweak)
18152
0
      {
18153
        /* This breaks function pointer comparisons, but
18154
     that is better than breaking tests for a NULL
18155
     function pointer.  */
18156
0
        sym->st_value = 0;
18157
0
      }
18158
0
    break;
18159
0
  }
18160
18161
0
  if (h->needs_copy
18162
0
      && (h->root.type == bfd_link_hash_defined
18163
0
    || h->root.type == bfd_link_hash_defweak)
18164
0
      && (h->root.u.def.section == htab->elf.sdynbss
18165
0
    || h->root.u.def.section == htab->elf.sdynrelro))
18166
0
    {
18167
      /* This symbol needs a copy reloc.  Set it up.  */
18168
0
      Elf_Internal_Rela rela;
18169
0
      asection *srel;
18170
18171
0
      if (h->dynindx == -1)
18172
0
  abort ();
18173
18174
0
      rela.r_offset = defined_sym_val (h);
18175
0
      rela.r_info = ELF64_R_INFO (h->dynindx, R_PPC64_COPY);
18176
0
      rela.r_addend = 0;
18177
0
      if (h->root.u.def.section == htab->elf.sdynrelro)
18178
0
  srel = htab->elf.sreldynrelro;
18179
0
      else
18180
0
  srel = htab->elf.srelbss;
18181
0
      BFD_ASSERT (count_and_swap_reloc_out (output_bfd, &rela, srel));
18182
0
    }
18183
18184
0
  return true;
18185
0
}
18186
18187
/* Used to decide how to sort relocs in an optimal manner for the
18188
   dynamic linker, before writing them out.  */
18189
18190
static enum elf_reloc_type_class
18191
ppc64_elf_reloc_type_class (const struct bfd_link_info *info,
18192
          const asection *rel_sec,
18193
          const Elf_Internal_Rela *rela)
18194
0
{
18195
0
  enum elf_ppc64_reloc_type r_type;
18196
0
  struct ppc_link_hash_table *htab = ppc_hash_table (info);
18197
18198
0
  if (rel_sec == htab->elf.irelplt)
18199
0
    return reloc_class_ifunc;
18200
18201
0
  r_type = ELF64_R_TYPE (rela->r_info);
18202
0
  switch (r_type)
18203
0
    {
18204
0
    case R_PPC64_RELATIVE:
18205
0
      return reloc_class_relative;
18206
0
    case R_PPC64_JMP_SLOT:
18207
0
      return reloc_class_plt;
18208
0
    case R_PPC64_COPY:
18209
0
      return reloc_class_copy;
18210
0
    default:
18211
0
      return reloc_class_normal;
18212
0
    }
18213
0
}
18214
18215
/* Finish up the dynamic sections.  */
18216
18217
static bool
18218
ppc64_elf_finish_dynamic_sections (bfd *output_bfd,
18219
           struct bfd_link_info *info)
18220
0
{
18221
0
  struct ppc_link_hash_table *htab;
18222
0
  bfd *dynobj;
18223
0
  asection *sdyn;
18224
18225
0
  htab = ppc_hash_table (info);
18226
0
  if (htab == NULL)
18227
0
    return false;
18228
18229
0
  dynobj = htab->elf.dynobj;
18230
0
  sdyn = bfd_get_linker_section (dynobj, ".dynamic");
18231
18232
0
  if (htab->elf.dynamic_sections_created)
18233
0
    {
18234
0
      Elf64_External_Dyn *dyncon, *dynconend;
18235
18236
0
      if (sdyn == NULL || htab->elf.sgot == NULL)
18237
0
  abort ();
18238
18239
0
      dyncon = (Elf64_External_Dyn *) sdyn->contents;
18240
0
      dynconend = (Elf64_External_Dyn *) (sdyn->contents + sdyn->size);
18241
0
      for (; dyncon < dynconend; dyncon++)
18242
0
  {
18243
0
    Elf_Internal_Dyn dyn;
18244
0
    asection *s;
18245
18246
0
    bfd_elf64_swap_dyn_in (dynobj, dyncon, &dyn);
18247
18248
0
    switch (dyn.d_tag)
18249
0
      {
18250
0
      default:
18251
0
        continue;
18252
18253
0
      case DT_PPC64_GLINK:
18254
0
        s = htab->glink;
18255
0
        dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
18256
        /* We stupidly defined DT_PPC64_GLINK to be the start
18257
     of glink rather than the first entry point, which is
18258
     what ld.so needs, and now have a bigger stub to
18259
     support automatic multiple TOCs.  */
18260
0
        dyn.d_un.d_ptr += GLINK_PLTRESOLVE_SIZE (htab) - 8 * 4;
18261
0
        break;
18262
18263
0
      case DT_PPC64_OPD:
18264
0
        s = bfd_get_section_by_name (output_bfd, ".opd");
18265
0
        if (s == NULL)
18266
0
    continue;
18267
0
        dyn.d_un.d_ptr = s->vma;
18268
0
        break;
18269
18270
0
      case DT_PPC64_OPT:
18271
0
        if ((htab->do_multi_toc && htab->multi_toc_needed)
18272
0
      || htab->notoc_plt)
18273
0
    dyn.d_un.d_val |= PPC64_OPT_MULTI_TOC;
18274
0
        if (htab->has_plt_localentry0)
18275
0
    dyn.d_un.d_val |= PPC64_OPT_LOCALENTRY;
18276
0
        break;
18277
18278
0
      case DT_PPC64_OPDSZ:
18279
0
        s = bfd_get_section_by_name (output_bfd, ".opd");
18280
0
        if (s == NULL)
18281
0
    continue;
18282
0
        dyn.d_un.d_val = s->size;
18283
0
        break;
18284
18285
0
      case DT_PLTGOT:
18286
0
        s = htab->elf.splt;
18287
0
        dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
18288
0
        break;
18289
18290
0
      case DT_JMPREL:
18291
0
        s = htab->elf.srelplt;
18292
0
        dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
18293
0
        break;
18294
18295
0
      case DT_PLTRELSZ:
18296
0
        dyn.d_un.d_val = htab->elf.srelplt->size;
18297
0
        break;
18298
18299
0
      case DT_TEXTREL:
18300
0
        if (htab->elf.ifunc_resolvers)
18301
0
    info->callbacks->einfo
18302
0
      (_("%P: warning: text relocations and GNU indirect "
18303
0
         "functions may result in a segfault at runtime\n"));
18304
0
        continue;
18305
0
      }
18306
18307
0
    bfd_elf64_swap_dyn_out (output_bfd, &dyn, dyncon);
18308
0
  }
18309
0
    }
18310
18311
0
  if (htab->elf.sgot != NULL && htab->elf.sgot->size != 0
18312
0
      && htab->elf.sgot->output_section != bfd_abs_section_ptr)
18313
0
    {
18314
      /* Fill in the first entry in the global offset table.
18315
   We use it to hold the link-time TOCbase.  */
18316
0
      bfd_put_64 (output_bfd,
18317
0
      elf_gp (output_bfd) + TOC_BASE_OFF,
18318
0
      htab->elf.sgot->contents);
18319
18320
      /* Set .got entry size.  */
18321
0
      elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize
18322
0
  = 8;
18323
0
    }
18324
18325
0
  if (htab->elf.splt != NULL && htab->elf.splt->size != 0
18326
0
      && htab->elf.splt->output_section != bfd_abs_section_ptr)
18327
0
    {
18328
      /* Set .plt entry size.  */
18329
0
      elf_section_data (htab->elf.splt->output_section)->this_hdr.sh_entsize
18330
0
  = PLT_ENTRY_SIZE (htab);
18331
0
    }
18332
18333
  /* brlt is SEC_LINKER_CREATED, so we need to write out relocs for
18334
     brlt ourselves if emitrelocations.  */
18335
0
  if (htab->brlt != NULL
18336
0
      && htab->brlt->reloc_count != 0
18337
0
      && !_bfd_elf_link_output_relocs (output_bfd,
18338
0
               htab->brlt,
18339
0
               elf_section_data (htab->brlt)->rela.hdr,
18340
0
               elf_section_data (htab->brlt)->relocs,
18341
0
               NULL))
18342
0
    return false;
18343
18344
0
  if (htab->glink != NULL
18345
0
      && htab->glink->reloc_count != 0
18346
0
      && !_bfd_elf_link_output_relocs (output_bfd,
18347
0
               htab->glink,
18348
0
               elf_section_data (htab->glink)->rela.hdr,
18349
0
               elf_section_data (htab->glink)->relocs,
18350
0
               NULL))
18351
0
    return false;
18352
18353
18354
0
  if (htab->glink_eh_frame != NULL
18355
0
      && htab->glink_eh_frame->size != 0
18356
0
      && htab->glink_eh_frame->sec_info_type == SEC_INFO_TYPE_EH_FRAME
18357
0
      && !_bfd_elf_write_section_eh_frame (output_bfd, info,
18358
0
             htab->glink_eh_frame,
18359
0
             htab->glink_eh_frame->contents))
18360
0
    return false;
18361
18362
  /* We need to handle writing out multiple GOT sections ourselves,
18363
     since we didn't add them to DYNOBJ.  We know dynobj is the first
18364
     bfd.  */
18365
0
  while ((dynobj = dynobj->link.next) != NULL)
18366
0
    {
18367
0
      asection *s;
18368
18369
0
      if (!is_ppc64_elf (dynobj))
18370
0
  continue;
18371
18372
0
      s = ppc64_elf_tdata (dynobj)->got;
18373
0
      if (s != NULL
18374
0
    && s->size != 0
18375
0
    && s->output_section != bfd_abs_section_ptr
18376
0
    && !bfd_set_section_contents (output_bfd, s->output_section,
18377
0
          s->contents, s->output_offset,
18378
0
          s->size))
18379
0
  return false;
18380
0
      s = ppc64_elf_tdata (dynobj)->relgot;
18381
0
      if (s != NULL
18382
0
    && s->size != 0
18383
0
    && s->output_section != bfd_abs_section_ptr
18384
0
    && !bfd_set_section_contents (output_bfd, s->output_section,
18385
0
          s->contents, s->output_offset,
18386
0
          s->size))
18387
0
  return false;
18388
0
    }
18389
18390
0
  return true;
18391
0
}
18392
18393
static bool
18394
ppc64_elf_free_cached_info (bfd *abfd)
18395
1.49k
{
18396
1.49k
  if (abfd->sections)
18397
33
    for (asection *opd = bfd_get_section_by_name (abfd, ".opd");
18398
33
   opd != NULL;
18399
33
   opd = bfd_get_next_section_by_name (NULL, opd))
18400
0
      if (opd->reloc_count == 0)
18401
0
  free (ppc64_elf_section_data (opd)->u.opd.u.contents);
18402
18403
1.49k
  return _bfd_elf_free_cached_info (abfd);
18404
1.49k
}
18405
18406
#include "elf64-target.h"
18407
18408
/* FreeBSD support */
18409
18410
#undef  TARGET_LITTLE_SYM
18411
#define TARGET_LITTLE_SYM powerpc_elf64_fbsd_le_vec
18412
#undef  TARGET_LITTLE_NAME
18413
#define TARGET_LITTLE_NAME "elf64-powerpcle-freebsd"
18414
18415
#undef  TARGET_BIG_SYM
18416
#define TARGET_BIG_SYM  powerpc_elf64_fbsd_vec
18417
#undef  TARGET_BIG_NAME
18418
#define TARGET_BIG_NAME "elf64-powerpc-freebsd"
18419
18420
#undef  ELF_OSABI
18421
#define ELF_OSABI       ELFOSABI_FREEBSD
18422
18423
#undef  elf64_bed
18424
#define elf64_bed elf64_powerpc_fbsd_bed
18425
18426
#include "elf64-target.h"