projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gdb: add target_ops::supports_displaced_step
[deliverable/binutils-gdb.git] / bfd / elfxx-sparc.c
CommitLineData
22b75d0a 1/* SPARC-specific support for ELF
b3adc24a 2 Copyright (C) 2005-2020 Free Software Foundation, Inc.
22b75d0a
DM		 3
4 This file is part of BFD, the Binary File Descriptor library.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
cd123cb7 8 the Free Software Foundation; either version 3 of the License, or
22b75d0a
DM		 9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
cd123cb7
NC		 18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
20
22b75d0a
DM		 21
22/* This file handles functionality common to the different SPARC ABI's. */
23
22b75d0a 24#include "sysdep.h"
3db64b00 25#include "bfd.h"
22b75d0a
DM		 26#include "bfdlink.h"
27#include "libbfd.h"
910600e9 28#include "libiberty.h"
22b75d0a
DM		 29#include "elf-bfd.h"
30#include "elf/sparc.h"
31#include "opcode/sparc.h"
32#include "elfxx-sparc.h"
910600e9 33#include "elf-vxworks.h"
d0c9aeb3
DM		 34#include "objalloc.h"
35#include "hashtab.h"
22b75d0a
DM		 36
37/* In case we're on a 32-bit machine, construct a 64-bit "-1" value. */
38#define MINUS_ONE (~ (bfd_vma) 0)
39
40#define ABI_64_P(abfd) \
41 (get_elf_backend_data (abfd)->s->elfclass == ELFCLASS64)
42
43/* The relocation "howto" table. */
44
45/* Utility for performing the standard initial work of an instruction
46 relocation.
47 *PRELOCATION will contain the relocated item.
48 *PINSN will contain the instruction from the input stream.
49 If the result is `bfd_reloc_other' the caller can continue with
50 performing the relocation. Otherwise it must stop and return the
51 value to its caller. */
52
53static bfd_reloc_status_type
54init_insn_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
2c3fc389 55 void * data, asection *input_section, bfd *output_bfd,
22b75d0a
DM		 56 bfd_vma *prelocation, bfd_vma *pinsn)
57{
58 bfd_vma relocation;
59 reloc_howto_type *howto = reloc_entry->howto;
60
61 if (output_bfd != (bfd *) NULL
62 && (symbol->flags & BSF_SECTION_SYM) == 0
63 && (! howto->partial_inplace
64 || reloc_entry->addend == 0))
65 {
66 reloc_entry->address += input_section->output_offset;
67 return bfd_reloc_ok;
68 }
69
70 /* This works because partial_inplace is FALSE. */
71 if (output_bfd != NULL)
72 return bfd_reloc_continue;
73
74 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
75 return bfd_reloc_outofrange;
76
77 relocation = (symbol->value
78 + symbol->section->output_section->vma
79 + symbol->section->output_offset);
80 relocation += reloc_entry->addend;
81 if (howto->pc_relative)
82 {
83 relocation -= (input_section->output_section->vma
84 + input_section->output_offset);
85 relocation -= reloc_entry->address;
86 }
87
88 *prelocation = relocation;
89 *pinsn = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
90 return bfd_reloc_other;
91}
92
93/* For unsupported relocs. */
94
95static bfd_reloc_status_type
96sparc_elf_notsup_reloc (bfd *abfd ATTRIBUTE_UNUSED,
97 arelent *reloc_entry ATTRIBUTE_UNUSED,
98 asymbol *symbol ATTRIBUTE_UNUSED,
2c3fc389 99 void * data ATTRIBUTE_UNUSED,
22b75d0a
DM		 100 asection *input_section ATTRIBUTE_UNUSED,
101 bfd *output_bfd ATTRIBUTE_UNUSED,
102 char **error_message ATTRIBUTE_UNUSED)
103{
104 return bfd_reloc_notsupported;
105}
106
107/* Handle the WDISP16 reloc. */
108
109static bfd_reloc_status_type
110sparc_elf_wdisp16_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
2c3fc389 111 void * data, asection *input_section, bfd *output_bfd,
22b75d0a
DM		 112 char **error_message ATTRIBUTE_UNUSED)
113{
114 bfd_vma relocation;
115 bfd_vma insn;
116 bfd_reloc_status_type status;
117
118 status = init_insn_reloc (abfd, reloc_entry, symbol, data,
119 input_section, output_bfd, &relocation, &insn);
120 if (status != bfd_reloc_other)
121 return status;
122
123 insn &= ~ (bfd_vma) 0x303fff;
124 insn |= (((relocation >> 2) & 0xc000) << 6) | ((relocation >> 2) & 0x3fff);
125 bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address);
126
127 if ((bfd_signed_vma) relocation < - 0x40000
128 || (bfd_signed_vma) relocation > 0x3ffff)
129 return bfd_reloc_overflow;
130 else
131 return bfd_reloc_ok;
132}
133
2615994e
DM		 134/* Handle the WDISP10 reloc. */
135
136static bfd_reloc_status_type
137sparc_elf_wdisp10_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
2c3fc389 138 void * data, asection *input_section, bfd *output_bfd,
2615994e
DM		 139 char **error_message ATTRIBUTE_UNUSED)
140{
141 bfd_vma relocation;
142 bfd_vma insn;
143 bfd_reloc_status_type status;
144
145 status = init_insn_reloc (abfd, reloc_entry, symbol, data,
146 input_section, output_bfd, &relocation, &insn);
147 if (status != bfd_reloc_other)
148 return status;
149
150 insn &= ~ (bfd_vma) 0x181fe0;
151 insn |= (((relocation >> 2) & 0x300) << 11)
152 | (((relocation >> 2) & 0xff) << 5);
153 bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address);
154
155 if ((bfd_signed_vma) relocation < - 0x1000
156 || (bfd_signed_vma) relocation > 0xfff)
157 return bfd_reloc_overflow;
158 else
159 return bfd_reloc_ok;
160}
161
22b75d0a
DM		 162/* Handle the HIX22 reloc. */
163
164static bfd_reloc_status_type
165sparc_elf_hix22_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
2c3fc389 166 void * data, asection *input_section, bfd *output_bfd,
22b75d0a
DM		 167 char **error_message ATTRIBUTE_UNUSED)
168{
169 bfd_vma relocation;
170 bfd_vma insn;
171 bfd_reloc_status_type status;
172
173 status = init_insn_reloc (abfd, reloc_entry, symbol, data,
174 input_section, output_bfd, &relocation, &insn);
175 if (status != bfd_reloc_other)
176 return status;
177
178 relocation ^= MINUS_ONE;
179 insn = (insn &~ (bfd_vma) 0x3fffff) | ((relocation >> 10) & 0x3fffff);
180 bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address);
181
182 if ((relocation & ~ (bfd_vma) 0xffffffff) != 0)
183 return bfd_reloc_overflow;
184 else
185 return bfd_reloc_ok;
186}
187
188/* Handle the LOX10 reloc. */
189
190static bfd_reloc_status_type
191sparc_elf_lox10_reloc (bfd *abfd, arelent *reloc_entry, asymbol *symbol,
2c3fc389 192 void * data, asection *input_section, bfd *output_bfd,
22b75d0a
DM		 193 char **error_message ATTRIBUTE_UNUSED)
194{
195 bfd_vma relocation;
196 bfd_vma insn;
197 bfd_reloc_status_type status;
198
199 status = init_insn_reloc (abfd, reloc_entry, symbol, data,
200 input_section, output_bfd, &relocation, &insn);
201 if (status != bfd_reloc_other)
202 return status;
203
204 insn = (insn &~ (bfd_vma) 0x1fff) | 0x1c00 | (relocation & 0x3ff);
205 bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address);
206
207 return bfd_reloc_ok;
208}
209
210static reloc_howto_type _bfd_sparc_elf_howto_table[] =
211{
07d6d2b8
AM		 212 HOWTO(R_SPARC_NONE, 0,3, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_NONE", FALSE,0,0x00000000,TRUE),
213 HOWTO(R_SPARC_8, 0,0, 8,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_8", FALSE,0,0x000000ff,TRUE),
214 HOWTO(R_SPARC_16, 0,1,16,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_16", FALSE,0,0x0000ffff,TRUE),
215 HOWTO(R_SPARC_32, 0,2,32,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_32", FALSE,0,0xffffffff,TRUE),
216 HOWTO(R_SPARC_DISP8, 0,0, 8,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_DISP8", FALSE,0,0x000000ff,TRUE),
217 HOWTO(R_SPARC_DISP16, 0,1,16,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_DISP16", FALSE,0,0x0000ffff,TRUE),
218 HOWTO(R_SPARC_DISP32, 0,2,32,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_DISP32", FALSE,0,0xffffffff,TRUE),
22b75d0a
DM		 219 HOWTO(R_SPARC_WDISP30, 2,2,30,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WDISP30", FALSE,0,0x3fffffff,TRUE),
220 HOWTO(R_SPARC_WDISP22, 2,2,22,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WDISP22", FALSE,0,0x003fffff,TRUE),
07d6d2b8
AM		 221 HOWTO(R_SPARC_HI22, 10,2,22,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_HI22", FALSE,0,0x003fffff,TRUE),
222 HOWTO(R_SPARC_22, 0,2,22,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_22", FALSE,0,0x003fffff,TRUE),
223 HOWTO(R_SPARC_13, 0,2,13,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_13", FALSE,0,0x00001fff,TRUE),
224 HOWTO(R_SPARC_LO10, 0,2,10,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_LO10", FALSE,0,0x000003ff,TRUE),
225 HOWTO(R_SPARC_GOT10, 0,2,10,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_GOT10", FALSE,0,0x000003ff,TRUE),
226 HOWTO(R_SPARC_GOT13, 0,2,13,FALSE,0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_GOT13", FALSE,0,0x00001fff,TRUE),
227 HOWTO(R_SPARC_GOT22, 10,2,22,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_GOT22", FALSE,0,0x003fffff,TRUE),
228 HOWTO(R_SPARC_PC10, 0,2,10,TRUE, 0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_PC10", FALSE,0,0x000003ff,TRUE),
229 HOWTO(R_SPARC_PC22, 10,2,22,TRUE, 0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_PC22", FALSE,0,0x003fffff,TRUE),
230 HOWTO(R_SPARC_WPLT30, 2,2,30,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WPLT30", FALSE,0,0x3fffffff,TRUE),
231 HOWTO(R_SPARC_COPY, 0,0,00,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_COPY", FALSE,0,0x00000000,TRUE),
22b75d0a
DM		 232 HOWTO(R_SPARC_GLOB_DAT, 0,0,00,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_GLOB_DAT",FALSE,0,0x00000000,TRUE),
233 HOWTO(R_SPARC_JMP_SLOT, 0,0,00,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_JMP_SLOT",FALSE,0,0x00000000,TRUE),
234 HOWTO(R_SPARC_RELATIVE, 0,0,00,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_RELATIVE",FALSE,0,0x00000000,TRUE),
07d6d2b8
AM		 235 HOWTO(R_SPARC_UA32, 0,2,32,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_UA32", FALSE,0,0xffffffff,TRUE),
236 HOWTO(R_SPARC_PLT32, 0,2,32,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_PLT32", FALSE,0,0xffffffff,TRUE),
237 HOWTO(R_SPARC_HIPLT22, 0,0,00,FALSE,0,complain_overflow_dont, sparc_elf_notsup_reloc, "R_SPARC_HIPLT22", FALSE,0,0x00000000,TRUE),
238 HOWTO(R_SPARC_LOPLT10, 0,0,00,FALSE,0,complain_overflow_dont, sparc_elf_notsup_reloc, "R_SPARC_LOPLT10", FALSE,0,0x00000000,TRUE),
239 HOWTO(R_SPARC_PCPLT32, 0,0,00,FALSE,0,complain_overflow_dont, sparc_elf_notsup_reloc, "R_SPARC_PCPLT32", FALSE,0,0x00000000,TRUE),
240 HOWTO(R_SPARC_PCPLT22, 0,0,00,FALSE,0,complain_overflow_dont, sparc_elf_notsup_reloc, "R_SPARC_PCPLT22", FALSE,0,0x00000000,TRUE),
241 HOWTO(R_SPARC_PCPLT10, 0,0,00,FALSE,0,complain_overflow_dont, sparc_elf_notsup_reloc, "R_SPARC_PCPLT10", FALSE,0,0x00000000,TRUE),
242 HOWTO(R_SPARC_10, 0,2,10,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_10", FALSE,0,0x000003ff,TRUE),
243 HOWTO(R_SPARC_11, 0,2,11,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_11", FALSE,0,0x000007ff,TRUE),
244 HOWTO(R_SPARC_64, 0,4,64,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_64", FALSE,0,MINUS_ONE, TRUE),
245 HOWTO(R_SPARC_OLO10, 0,2,13,FALSE,0,complain_overflow_signed, sparc_elf_notsup_reloc, "R_SPARC_OLO10", FALSE,0,0x00001fff,TRUE),
246 HOWTO(R_SPARC_HH22, 42,2,22,FALSE,0,complain_overflow_unsigned,bfd_elf_generic_reloc, "R_SPARC_HH22", FALSE,0,0x003fffff,TRUE),
247 HOWTO(R_SPARC_HM10, 32,2,10,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_HM10", FALSE,0,0x000003ff,TRUE),
248 HOWTO(R_SPARC_LM22, 10,2,22,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_LM22", FALSE,0,0x003fffff,TRUE),
249 HOWTO(R_SPARC_PC_HH22, 42,2,22,TRUE, 0,complain_overflow_unsigned,bfd_elf_generic_reloc, "R_SPARC_PC_HH22", FALSE,0,0x003fffff,TRUE),
250 HOWTO(R_SPARC_PC_HM10, 32,2,10,TRUE, 0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_PC_HM10", FALSE,0,0x000003ff,TRUE),
251 HOWTO(R_SPARC_PC_LM22, 10,2,22,TRUE, 0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_PC_LM22", FALSE,0,0x003fffff,TRUE),
22b75d0a
DM		 252 HOWTO(R_SPARC_WDISP16, 2,2,16,TRUE, 0,complain_overflow_signed, sparc_elf_wdisp16_reloc,"R_SPARC_WDISP16", FALSE,0,0x00000000,TRUE),
253 HOWTO(R_SPARC_WDISP19, 2,2,19,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_WDISP19", FALSE,0,0x0007ffff,TRUE),
254 HOWTO(R_SPARC_UNUSED_42, 0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_UNUSED_42",FALSE,0,0x00000000,TRUE),
07d6d2b8
AM		 255 HOWTO(R_SPARC_7, 0,2, 7,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_7", FALSE,0,0x0000007f,TRUE),
256 HOWTO(R_SPARC_5, 0,2, 5,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_5", FALSE,0,0x0000001f,TRUE),
257 HOWTO(R_SPARC_6, 0,2, 6,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_6", FALSE,0,0x0000003f,TRUE),
258 HOWTO(R_SPARC_DISP64, 0,4,64,TRUE, 0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_DISP64", FALSE,0,MINUS_ONE, TRUE),
259 HOWTO(R_SPARC_PLT64, 0,4,64,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_PLT64", FALSE,0,MINUS_ONE, TRUE),
260 HOWTO(R_SPARC_HIX22, 0,4, 0,FALSE,0,complain_overflow_bitfield,sparc_elf_hix22_reloc, "R_SPARC_HIX22", FALSE,0,MINUS_ONE, FALSE),
261 HOWTO(R_SPARC_LOX10, 0,4, 0,FALSE,0,complain_overflow_dont, sparc_elf_lox10_reloc, "R_SPARC_LOX10", FALSE,0,MINUS_ONE, FALSE),
262 HOWTO(R_SPARC_H44, 22,2,22,FALSE,0,complain_overflow_unsigned,bfd_elf_generic_reloc, "R_SPARC_H44", FALSE,0,0x003fffff,FALSE),
263 HOWTO(R_SPARC_M44, 12,2,10,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_M44", FALSE,0,0x000003ff,FALSE),
264 HOWTO(R_SPARC_L44, 0,2,13,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_L44", FALSE,0,0x00000fff,FALSE),
22b75d0a 265 HOWTO(R_SPARC_REGISTER, 0,4, 0,FALSE,0,complain_overflow_bitfield,sparc_elf_notsup_reloc, "R_SPARC_REGISTER",FALSE,0,MINUS_ONE, FALSE),
07d6d2b8
AM		 266 HOWTO(R_SPARC_UA64, 0,4,64,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_UA64", FALSE,0,MINUS_ONE, TRUE),
267 HOWTO(R_SPARC_UA16, 0,1,16,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_UA16", FALSE,0,0x0000ffff,TRUE),
22b75d0a
DM		 268 HOWTO(R_SPARC_TLS_GD_HI22,10,2,22,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_GD_HI22",FALSE,0,0x003fffff,TRUE),
269 HOWTO(R_SPARC_TLS_GD_LO10,0,2,10,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_GD_LO10",FALSE,0,0x000003ff,TRUE),
270 HOWTO(R_SPARC_TLS_GD_ADD,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_GD_ADD",FALSE,0,0x00000000,TRUE),
271 HOWTO(R_SPARC_TLS_GD_CALL,2,2,30,TRUE,0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_TLS_GD_CALL",FALSE,0,0x3fffffff,TRUE),
272 HOWTO(R_SPARC_TLS_LDM_HI22,10,2,22,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_LDM_HI22",FALSE,0,0x003fffff,TRUE),
273 HOWTO(R_SPARC_TLS_LDM_LO10,0,2,10,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_LDM_LO10",FALSE,0,0x000003ff,TRUE),
274 HOWTO(R_SPARC_TLS_LDM_ADD,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_LDM_ADD",FALSE,0,0x00000000,TRUE),
275 HOWTO(R_SPARC_TLS_LDM_CALL,2,2,30,TRUE,0,complain_overflow_signed, bfd_elf_generic_reloc, "R_SPARC_TLS_LDM_CALL",FALSE,0,0x3fffffff,TRUE),
276 HOWTO(R_SPARC_TLS_LDO_HIX22,0,2,0,FALSE,0,complain_overflow_bitfield,sparc_elf_hix22_reloc,"R_SPARC_TLS_LDO_HIX22",FALSE,0,0x003fffff, FALSE),
277 HOWTO(R_SPARC_TLS_LDO_LOX10,0,2,0,FALSE,0,complain_overflow_dont, sparc_elf_lox10_reloc, "R_SPARC_TLS_LDO_LOX10",FALSE,0,0x000003ff, FALSE),
278 HOWTO(R_SPARC_TLS_LDO_ADD,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_LDO_ADD",FALSE,0,0x00000000,TRUE),
279 HOWTO(R_SPARC_TLS_IE_HI22,10,2,22,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_IE_HI22",FALSE,0,0x003fffff,TRUE),
280 HOWTO(R_SPARC_TLS_IE_LO10,0,2,10,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_IE_LO10",FALSE,0,0x000003ff,TRUE),
281 HOWTO(R_SPARC_TLS_IE_LD,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_IE_LD",FALSE,0,0x00000000,TRUE),
282 HOWTO(R_SPARC_TLS_IE_LDX,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_IE_LDX",FALSE,0,0x00000000,TRUE),
283 HOWTO(R_SPARC_TLS_IE_ADD,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_IE_ADD",FALSE,0,0x00000000,TRUE),
284 HOWTO(R_SPARC_TLS_LE_HIX22,0,2,0,FALSE,0,complain_overflow_bitfield,sparc_elf_hix22_reloc, "R_SPARC_TLS_LE_HIX22",FALSE,0,0x003fffff, FALSE),
285 HOWTO(R_SPARC_TLS_LE_LOX10,0,2,0,FALSE,0,complain_overflow_dont, sparc_elf_lox10_reloc, "R_SPARC_TLS_LE_LOX10",FALSE,0,0x000003ff, FALSE),
286 HOWTO(R_SPARC_TLS_DTPMOD32,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_DTPMOD32",FALSE,0,0x00000000,TRUE),
287 HOWTO(R_SPARC_TLS_DTPMOD64,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_DTPMOD64",FALSE,0,0x00000000,TRUE),
288 HOWTO(R_SPARC_TLS_DTPOFF32,0,2,32,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_TLS_DTPOFF32",FALSE,0,0xffffffff,TRUE),
289 HOWTO(R_SPARC_TLS_DTPOFF64,0,4,64,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_TLS_DTPOFF64",FALSE,0,MINUS_ONE,TRUE),
290 HOWTO(R_SPARC_TLS_TPOFF32,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_TPOFF32",FALSE,0,0x00000000,TRUE),
739f7f82
DM		 291 HOWTO(R_SPARC_TLS_TPOFF64,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_TLS_TPOFF64",FALSE,0,0x00000000,TRUE),
292 HOWTO(R_SPARC_GOTDATA_HIX22,0,2,0,FALSE,0,complain_overflow_bitfield,sparc_elf_hix22_reloc,"R_SPARC_GOTDATA_HIX22",FALSE,0,0x003fffff, FALSE),
293 HOWTO(R_SPARC_GOTDATA_LOX10,0,2,0,FALSE,0,complain_overflow_dont, sparc_elf_lox10_reloc, "R_SPARC_GOTDATA_LOX10",FALSE,0,0x000003ff, FALSE),
294 HOWTO(R_SPARC_GOTDATA_OP_HIX22,0,2,0,FALSE,0,complain_overflow_bitfield,sparc_elf_hix22_reloc,"R_SPARC_GOTDATA_OP_HIX22",FALSE,0,0x003fffff, FALSE),
07d6d2b8 295 HOWTO(R_SPARC_GOTDATA_OP_LOX10,0,2,0,FALSE,0,complain_overflow_dont, sparc_elf_lox10_reloc, "R_SPARC_GOTDATA_OP_LOX10",FALSE,0,0x000003ff, FALSE),
739f7f82 296 HOWTO(R_SPARC_GOTDATA_OP,0,0, 0,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_GOTDATA_OP",FALSE,0,0x00000000,TRUE),
2615994e
DM		 297 HOWTO(R_SPARC_H34,12,2,22,FALSE,0,complain_overflow_unsigned,bfd_elf_generic_reloc,"R_SPARC_H34",FALSE,0,0x003fffff,FALSE),
298 HOWTO(R_SPARC_SIZE32,0,2,32,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_SIZE32",FALSE,0,0xffffffff,TRUE),
299 HOWTO(R_SPARC_SIZE64,0,4,64,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc,"R_SPARC_SIZE64",FALSE,0,MINUS_ONE, TRUE),
300 HOWTO(R_SPARC_WDISP10,2,2,10,TRUE, 0,complain_overflow_signed,sparc_elf_wdisp10_reloc,"R_SPARC_WDISP10",FALSE,0,0x00000000,TRUE),
22b75d0a 301};
d0c9aeb3
DM		 302static reloc_howto_type sparc_jmp_irel_howto =
303 HOWTO(R_SPARC_JMP_IREL, 0,0,00,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_JMP_IREL",FALSE,0,0x00000000,TRUE);
304static reloc_howto_type sparc_irelative_howto =
305 HOWTO(R_SPARC_IRELATIVE, 0,0,00,FALSE,0,complain_overflow_dont, bfd_elf_generic_reloc, "R_SPARC_IRELATIVE",FALSE,0,0x00000000,TRUE);
22b75d0a
DM		 306static reloc_howto_type sparc_vtinherit_howto =
307 HOWTO (R_SPARC_GNU_VTINHERIT, 0,2,0,FALSE,0,complain_overflow_dont, NULL, "R_SPARC_GNU_VTINHERIT", FALSE,0, 0, FALSE);
308static reloc_howto_type sparc_vtentry_howto =
309 HOWTO (R_SPARC_GNU_VTENTRY, 0,2,0,FALSE,0,complain_overflow_dont, _bfd_elf_rel_vtable_reloc_fn,"R_SPARC_GNU_VTENTRY", FALSE,0,0, FALSE);
310static reloc_howto_type sparc_rev32_howto =
311 HOWTO(R_SPARC_REV32, 0,2,32,FALSE,0,complain_overflow_bitfield,bfd_elf_generic_reloc, "R_SPARC_REV32", FALSE,0,0xffffffff,TRUE);
312
22b75d0a 313reloc_howto_type *
f3185997 314_bfd_sparc_elf_reloc_type_lookup (bfd *abfd,
22b75d0a
DM		 315 bfd_reloc_code_real_type code)
316{
679b7c76
DM		 317 /* We explicitly handle each relocation type in the switch
318 instead of using a lookup table for efficiency. */
22b75d0a
DM		 319 switch (code)
320 {
679b7c76
DM		 321 case BFD_RELOC_NONE:
322 return &_bfd_sparc_elf_howto_table[R_SPARC_NONE];
323
324 case BFD_RELOC_8:
325 return &_bfd_sparc_elf_howto_table[R_SPARC_8];
326
327 case BFD_RELOC_16:
328 return &_bfd_sparc_elf_howto_table[R_SPARC_16];
329
330 case BFD_RELOC_32:
331 return &_bfd_sparc_elf_howto_table[R_SPARC_32];
332
333 case BFD_RELOC_8_PCREL:
334 return &_bfd_sparc_elf_howto_table[R_SPARC_DISP8];
335
336 case BFD_RELOC_16_PCREL:
337 return &_bfd_sparc_elf_howto_table[R_SPARC_DISP16];
338
339 case BFD_RELOC_32_PCREL:
340 return &_bfd_sparc_elf_howto_table[R_SPARC_DISP32];
341
342 case BFD_RELOC_32_PCREL_S2:
343 return &_bfd_sparc_elf_howto_table[R_SPARC_WDISP30];
344
345 case BFD_RELOC_SPARC_WDISP22:
346 return &_bfd_sparc_elf_howto_table[R_SPARC_WDISP22];
347
348 case BFD_RELOC_HI22:
349 return &_bfd_sparc_elf_howto_table[R_SPARC_HI22];
350
351 case BFD_RELOC_SPARC22:
352 return &_bfd_sparc_elf_howto_table[R_SPARC_22];
353
354 case BFD_RELOC_SPARC13:
355 return &_bfd_sparc_elf_howto_table[R_SPARC_13];
356
357 case BFD_RELOC_LO10:
358 return &_bfd_sparc_elf_howto_table[R_SPARC_LO10];
359
360 case BFD_RELOC_SPARC_GOT10:
361 return &_bfd_sparc_elf_howto_table[R_SPARC_GOT10];
362
363 case BFD_RELOC_SPARC_GOT13:
364 return &_bfd_sparc_elf_howto_table[R_SPARC_GOT13];
365
366 case BFD_RELOC_SPARC_GOT22:
367 return &_bfd_sparc_elf_howto_table[R_SPARC_GOT22];
368
369 case BFD_RELOC_SPARC_PC10:
370 return &_bfd_sparc_elf_howto_table[R_SPARC_PC10];
371
372 case BFD_RELOC_SPARC_PC22:
373 return &_bfd_sparc_elf_howto_table[R_SPARC_PC22];
374
375 case BFD_RELOC_SPARC_WPLT30:
376 return &_bfd_sparc_elf_howto_table[R_SPARC_WPLT30];
377
378 case BFD_RELOC_SPARC_COPY:
379 return &_bfd_sparc_elf_howto_table[R_SPARC_COPY];
380
381 case BFD_RELOC_SPARC_GLOB_DAT:
382 return &_bfd_sparc_elf_howto_table[R_SPARC_GLOB_DAT];
383
384 case BFD_RELOC_SPARC_JMP_SLOT:
385 return &_bfd_sparc_elf_howto_table[R_SPARC_JMP_SLOT];
386
387 case BFD_RELOC_SPARC_RELATIVE:
388 return &_bfd_sparc_elf_howto_table[R_SPARC_RELATIVE];
389
390 case BFD_RELOC_SPARC_UA32:
391 return &_bfd_sparc_elf_howto_table[R_SPARC_UA32];
392
393 case BFD_RELOC_SPARC_PLT32:
394 return &_bfd_sparc_elf_howto_table[R_SPARC_PLT32];
395
396 case BFD_RELOC_SPARC_10:
397 return &_bfd_sparc_elf_howto_table[R_SPARC_10];
398
399 case BFD_RELOC_SPARC_11:
400 return &_bfd_sparc_elf_howto_table[R_SPARC_11];
401
402 case BFD_RELOC_SPARC_64:
403 return &_bfd_sparc_elf_howto_table[R_SPARC_64];
404
405 case BFD_RELOC_SPARC_OLO10:
406 return &_bfd_sparc_elf_howto_table[R_SPARC_OLO10];
407
408 case BFD_RELOC_SPARC_HH22:
409 return &_bfd_sparc_elf_howto_table[R_SPARC_HH22];
410
411 case BFD_RELOC_SPARC_HM10:
412 return &_bfd_sparc_elf_howto_table[R_SPARC_HM10];
413
414 case BFD_RELOC_SPARC_LM22:
415 return &_bfd_sparc_elf_howto_table[R_SPARC_LM22];
416
417 case BFD_RELOC_SPARC_PC_HH22:
418 return &_bfd_sparc_elf_howto_table[R_SPARC_PC_HH22];
419
420 case BFD_RELOC_SPARC_PC_HM10:
421 return &_bfd_sparc_elf_howto_table[R_SPARC_PC_HM10];
422
423 case BFD_RELOC_SPARC_PC_LM22:
424 return &_bfd_sparc_elf_howto_table[R_SPARC_PC_LM22];
425
426 case BFD_RELOC_SPARC_WDISP16:
427 return &_bfd_sparc_elf_howto_table[R_SPARC_WDISP16];
428
429 case BFD_RELOC_SPARC_WDISP19:
430 return &_bfd_sparc_elf_howto_table[R_SPARC_WDISP19];
431
432 case BFD_RELOC_SPARC_7:
433 return &_bfd_sparc_elf_howto_table[R_SPARC_7];
434
435 case BFD_RELOC_SPARC_5:
436 return &_bfd_sparc_elf_howto_table[R_SPARC_5];
437
438 case BFD_RELOC_SPARC_6:
439 return &_bfd_sparc_elf_howto_table[R_SPARC_6];
440
441 case BFD_RELOC_SPARC_DISP64:
442 return &_bfd_sparc_elf_howto_table[R_SPARC_DISP64];
443
444 case BFD_RELOC_SPARC_PLT64:
445 return &_bfd_sparc_elf_howto_table[R_SPARC_PLT64];
446
447 case BFD_RELOC_SPARC_HIX22:
448 return &_bfd_sparc_elf_howto_table[R_SPARC_HIX22];
449
450 case BFD_RELOC_SPARC_LOX10:
451 return &_bfd_sparc_elf_howto_table[R_SPARC_LOX10];
452
453 case BFD_RELOC_SPARC_H44:
454 return &_bfd_sparc_elf_howto_table[R_SPARC_H44];
455
456 case BFD_RELOC_SPARC_M44:
457 return &_bfd_sparc_elf_howto_table[R_SPARC_M44];
458
459 case BFD_RELOC_SPARC_L44:
460 return &_bfd_sparc_elf_howto_table[R_SPARC_L44];
461
462 case BFD_RELOC_SPARC_REGISTER:
463 return &_bfd_sparc_elf_howto_table[R_SPARC_REGISTER];
464
465 case BFD_RELOC_SPARC_UA64:
466 return &_bfd_sparc_elf_howto_table[R_SPARC_UA64];
467
468 case BFD_RELOC_SPARC_UA16:
469 return &_bfd_sparc_elf_howto_table[R_SPARC_UA16];
470
471 case BFD_RELOC_SPARC_TLS_GD_HI22:
472 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_GD_HI22];
473
474 case BFD_RELOC_SPARC_TLS_GD_LO10:
475 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_GD_LO10];
476
477 case BFD_RELOC_SPARC_TLS_GD_ADD:
478 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_GD_ADD];
479
480 case BFD_RELOC_SPARC_TLS_GD_CALL:
481 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_GD_CALL];
482
483 case BFD_RELOC_SPARC_TLS_LDM_HI22:
484 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LDM_HI22];
485
486 case BFD_RELOC_SPARC_TLS_LDM_LO10:
487 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LDM_LO10];
488
489 case BFD_RELOC_SPARC_TLS_LDM_ADD:
490 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LDM_ADD];
491
492 case BFD_RELOC_SPARC_TLS_LDM_CALL:
493 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LDM_CALL];
494
495 case BFD_RELOC_SPARC_TLS_LDO_HIX22:
496 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LDO_HIX22];
497
498 case BFD_RELOC_SPARC_TLS_LDO_LOX10:
499 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LDO_LOX10];
500
501 case BFD_RELOC_SPARC_TLS_LDO_ADD:
502 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LDO_ADD];
503
504 case BFD_RELOC_SPARC_TLS_IE_HI22:
505 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_IE_HI22];
506
507 case BFD_RELOC_SPARC_TLS_IE_LO10:
508 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_IE_LO10];
509
510 case BFD_RELOC_SPARC_TLS_IE_LD:
511 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_IE_LD];
512
513 case BFD_RELOC_SPARC_TLS_IE_LDX:
514 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_IE_LDX];
515
516 case BFD_RELOC_SPARC_TLS_IE_ADD:
517 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_IE_ADD];
518
519 case BFD_RELOC_SPARC_TLS_LE_HIX22:
520 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LE_HIX22];
521
522 case BFD_RELOC_SPARC_TLS_LE_LOX10:
523 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_LE_LOX10];
524
525 case BFD_RELOC_SPARC_TLS_DTPMOD32:
526 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_DTPMOD32];
527
528 case BFD_RELOC_SPARC_TLS_DTPMOD64:
529 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_DTPMOD64];
530
531 case BFD_RELOC_SPARC_TLS_DTPOFF32:
532 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_DTPOFF32];
533
534 case BFD_RELOC_SPARC_TLS_DTPOFF64:
535 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_DTPOFF64];
536
537 case BFD_RELOC_SPARC_TLS_TPOFF32:
538 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_TPOFF32];
539
540 case BFD_RELOC_SPARC_TLS_TPOFF64:
541 return &_bfd_sparc_elf_howto_table[R_SPARC_TLS_TPOFF64];
542
543 case BFD_RELOC_SPARC_GOTDATA_HIX22:
544 return &_bfd_sparc_elf_howto_table[R_SPARC_GOTDATA_HIX22];
545
546 case BFD_RELOC_SPARC_GOTDATA_LOX10:
547 return &_bfd_sparc_elf_howto_table[R_SPARC_GOTDATA_LOX10];
548
549 case BFD_RELOC_SPARC_GOTDATA_OP_HIX22:
550 return &_bfd_sparc_elf_howto_table[R_SPARC_GOTDATA_OP_HIX22];
551
552 case BFD_RELOC_SPARC_GOTDATA_OP_LOX10:
553 return &_bfd_sparc_elf_howto_table[R_SPARC_GOTDATA_OP_LOX10];
554
555 case BFD_RELOC_SPARC_GOTDATA_OP:
556 return &_bfd_sparc_elf_howto_table[R_SPARC_GOTDATA_OP];
557
2615994e
DM		 558 case BFD_RELOC_SPARC_H34:
559 return &_bfd_sparc_elf_howto_table[R_SPARC_H34];
560
561 case BFD_RELOC_SPARC_SIZE32:
562 return &_bfd_sparc_elf_howto_table[R_SPARC_SIZE32];
563
564 case BFD_RELOC_SPARC_SIZE64:
565 return &_bfd_sparc_elf_howto_table[R_SPARC_SIZE64];
566
567 case BFD_RELOC_SPARC_WDISP10:
568 return &_bfd_sparc_elf_howto_table[R_SPARC_WDISP10];
569
d0c9aeb3
DM		 570 case BFD_RELOC_SPARC_JMP_IREL:
571 return &sparc_jmp_irel_howto;
572
573 case BFD_RELOC_SPARC_IRELATIVE:
574 return &sparc_irelative_howto;
575
22b75d0a
DM		 576 case BFD_RELOC_VTABLE_INHERIT:
577 return &sparc_vtinherit_howto;
578
579 case BFD_RELOC_VTABLE_ENTRY:
580 return &sparc_vtentry_howto;
581
582 case BFD_RELOC_SPARC_REV32:
583 return &sparc_rev32_howto;
584
585 default:
679b7c76 586 break;
22b75d0a 587 }
f3185997 588 /* xgettext:c-format */
e8f5af78 589 _bfd_error_handler (_("%pB: unsupported relocation type %#x"), abfd, (int) code);
f3185997
NC		 590 bfd_set_error (bfd_error_bad_value);
591 return NULL;
22b75d0a
DM		 592}
593
157090f7
AM		 594reloc_howto_type *
595_bfd_sparc_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
596 const char *r_name)
597{
598 unsigned int i;
599
f3185997 600 for (i = 0; i < ARRAY_SIZE (_bfd_sparc_elf_howto_table); i++)
157090f7
AM		 601 if (_bfd_sparc_elf_howto_table[i].name != NULL
602 && strcasecmp (_bfd_sparc_elf_howto_table[i].name, r_name) == 0)
603 return &_bfd_sparc_elf_howto_table[i];
604
605 if (strcasecmp (sparc_vtinherit_howto.name, r_name) == 0)
606 return &sparc_vtinherit_howto;
607 if (strcasecmp (sparc_vtentry_howto.name, r_name) == 0)
608 return &sparc_vtentry_howto;
609 if (strcasecmp (sparc_rev32_howto.name, r_name) == 0)
610 return &sparc_rev32_howto;
611
612 return NULL;
613}
614
22b75d0a 615reloc_howto_type *
f3185997
NC		 616_bfd_sparc_elf_info_to_howto_ptr (bfd *abfd ATTRIBUTE_UNUSED,
617 unsigned int r_type)
22b75d0a
DM		 618{
619 switch (r_type)
620 {
d0c9aeb3
DM		 621 case R_SPARC_JMP_IREL:
622 return &sparc_jmp_irel_howto;
623
624 case R_SPARC_IRELATIVE:
625 return &sparc_irelative_howto;
626
22b75d0a
DM		 627 case R_SPARC_GNU_VTINHERIT:
628 return &sparc_vtinherit_howto;
629
630 case R_SPARC_GNU_VTENTRY:
631 return &sparc_vtentry_howto;
632
633 case R_SPARC_REV32:
634 return &sparc_rev32_howto;
635
636 default:
d0fb9a8d
JJ		 637 if (r_type >= (unsigned int) R_SPARC_max_std)
638 {
0aa13fee
AM		 639 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
640 abfd, r_type);
f3185997
NC		 641 bfd_set_error (bfd_error_bad_value);
642 return NULL;
d0fb9a8d 643 }
22b75d0a
DM		 644 return &_bfd_sparc_elf_howto_table[r_type];
645 }
646}
647
648/* Both 32-bit and 64-bit sparc encode this in an identical manner,
649 so just take advantage of that. */
650#define SPARC_ELF_R_TYPE(r_info) \
651 ((r_info) & 0xff)
652
f3185997 653bfd_boolean
0aa13fee 654_bfd_sparc_elf_info_to_howto (bfd *abfd, arelent *cache_ptr,
22b75d0a
DM		 655 Elf_Internal_Rela *dst)
656{
657 unsigned int r_type = SPARC_ELF_R_TYPE (dst->r_info);
658
f3185997
NC		 659 if ((cache_ptr->howto = _bfd_sparc_elf_info_to_howto_ptr (abfd, r_type)) == NULL)
660 {
f3185997
NC		 661 bfd_set_error (bfd_error_bad_value);
662 return FALSE;
663 }
664 return TRUE;
22b75d0a
DM		 665}
666\f
667
668/* The nop opcode we use. */
669#define SPARC_NOP 0x01000000
670
671#define SPARC_INSN_BYTES 4
672
bb1dd176
QZ		 673/* Is an undefined weak symbol resolved to 0 ?
674 Reference to an undefined weak symbol is resolved to 0 when
675 building an executable if it isn't dynamic and
676 1. Has non-GOT/non-PLT relocations in text section.
677 Or
678 2. Has no GOT/PLT relocation. */
07d6d2b8
AM		 679#define UNDEFINED_WEAK_RESOLVED_TO_ZERO(INFO, EH) \
680 ((EH)->elf.root.type == bfd_link_hash_undefweak \
681 && bfd_link_executable (INFO) \
682 && (_bfd_sparc_elf_hash_table (INFO)->interp == NULL \
a8735c82 683 || !(INFO)->dynamic_undefined_weak \
07d6d2b8 684 || (EH)->has_non_got_reloc \
a8735c82 685 || !(EH)->has_got_reloc))
bb1dd176 686
22b75d0a
DM		 687/* SPARC ELF linker hash entry. */
688
689struct _bfd_sparc_elf_link_hash_entry
690{
691 struct elf_link_hash_entry elf;
692
22b75d0a
DM		 693#define GOT_UNKNOWN 0
694#define GOT_NORMAL 1
695#define GOT_TLS_GD 2
696#define GOT_TLS_IE 3
697 unsigned char tls_type;
bb1dd176 698
f8745e1c 699 /* Symbol has GOT or PLT relocations. */
bb1dd176
QZ		 700 unsigned int has_got_reloc : 1;
701
f8745e1c
EB		 702 /* Symbol has old-style, non-relaxable GOT relocations. */
703 unsigned int has_old_style_got_reloc : 1;
704
bb1dd176
QZ		 705 /* Symbol has non-GOT/non-PLT relocations in text sections. */
706 unsigned int has_non_got_reloc : 1;
707
22b75d0a
DM		 708};
709
710#define _bfd_sparc_elf_hash_entry(ent) ((struct _bfd_sparc_elf_link_hash_entry *)(ent))
711
712struct _bfd_sparc_elf_obj_tdata
713{
714 struct elf_obj_tdata root;
715
716 /* tls_type for each local got entry. */
717 char *local_got_tls_type;
718
719 /* TRUE if TLS GD relocs has been seen for this object. */
720 bfd_boolean has_tlsgd;
721};
722
723#define _bfd_sparc_elf_tdata(abfd) \
724 ((struct _bfd_sparc_elf_obj_tdata *) (abfd)->tdata.any)
725
726#define _bfd_sparc_elf_local_got_tls_type(abfd) \
727 (_bfd_sparc_elf_tdata (abfd)->local_got_tls_type)
728
0ffa91dd
NC		 729#define is_sparc_elf(bfd) \
730 (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
731 && elf_tdata (bfd) != NULL \
4dfe6ac6 732 && elf_object_id (bfd) == SPARC_ELF_DATA)
0ffa91dd 733
22b75d0a
DM		 734bfd_boolean
735_bfd_sparc_elf_mkobject (bfd *abfd)
736{
0ffa91dd 737 return bfd_elf_allocate_object (abfd, sizeof (struct _bfd_sparc_elf_obj_tdata),
4dfe6ac6 738 SPARC_ELF_DATA);
22b75d0a
DM		 739}
740
741static void
91d6fa6a 742sparc_put_word_32 (bfd *abfd, bfd_vma val, void *ptr)
22b75d0a 743{
91d6fa6a 744 bfd_put_32 (abfd, val, ptr);
22b75d0a
DM		 745}
746
747static void
91d6fa6a 748sparc_put_word_64 (bfd *abfd, bfd_vma val, void *ptr)
22b75d0a 749{
91d6fa6a 750 bfd_put_64 (abfd, val, ptr);
22b75d0a
DM		 751}
752
753static void
39817122 754sparc_elf_append_rela (bfd *abfd, asection *s, Elf_Internal_Rela *rel)
22b75d0a 755{
39817122
RS		 756 const struct elf_backend_data *bed;
757 bfd_byte *loc;
22b75d0a 758
39817122 759 bed = get_elf_backend_data (abfd);
a8735c82 760 BFD_ASSERT (s->reloc_count * bed->s->sizeof_rela < s->size);
39817122
RS		 761 loc = s->contents + (s->reloc_count++ * bed->s->sizeof_rela);
762 bed->s->swap_reloca_out (abfd, rel, loc);
22b75d0a
DM		 763}
764
765static bfd_vma
e459dc7b 766sparc_elf_r_info_64 (Elf_Internal_Rela *in_rel ATTRIBUTE_UNUSED,
91d6fa6a 767 bfd_vma rel_index ATTRIBUTE_UNUSED,
e459dc7b 768 bfd_vma type ATTRIBUTE_UNUSED)
22b75d0a 769{
91d6fa6a 770 return ELF64_R_INFO (rel_index,
22b75d0a
DM		 771 (in_rel ?
772 ELF64_R_TYPE_INFO (ELF64_R_TYPE_DATA (in_rel->r_info),
773 type) : type));
774}
775
776static bfd_vma
777sparc_elf_r_info_32 (Elf_Internal_Rela *in_rel ATTRIBUTE_UNUSED,
91d6fa6a 778 bfd_vma rel_index, bfd_vma type)
22b75d0a 779{
91d6fa6a 780 return ELF32_R_INFO (rel_index, type);
22b75d0a
DM		 781}
782
783static bfd_vma
784sparc_elf_r_symndx_64 (bfd_vma r_info)
785{
e8be8da4
DM		 786 bfd_vma r_symndx = ELF32_R_SYM (r_info);
787 return (r_symndx >> 24);
22b75d0a
DM		 788}
789
790static bfd_vma
791sparc_elf_r_symndx_32 (bfd_vma r_info)
792{
793 return ELF32_R_SYM (r_info);
794}
795
796/* PLT/GOT stuff */
797
798#define PLT32_ENTRY_SIZE 12
799#define PLT32_HEADER_SIZE (4 * PLT32_ENTRY_SIZE)
800
801/* The first four entries in a 32-bit procedure linkage table are reserved,
802 and the initial contents are unimportant (we zero them out).
803 Subsequent entries look like this. See the SVR4 ABI SPARC
804 supplement to see how this works. */
805
806/* sethi %hi(.-.plt0),%g1. We fill in the address later. */
807#define PLT32_ENTRY_WORD0 0x03000000
808/* b,a .plt0. We fill in the offset later. */
809#define PLT32_ENTRY_WORD1 0x30800000
810/* nop. */
811#define PLT32_ENTRY_WORD2 SPARC_NOP
812
813static int
814sparc32_plt_entry_build (bfd *output_bfd, asection *splt, bfd_vma offset,
815 bfd_vma max ATTRIBUTE_UNUSED,
816 bfd_vma *r_offset)
817{
818 bfd_put_32 (output_bfd,
819 PLT32_ENTRY_WORD0 + offset,
820 splt->contents + offset);
821 bfd_put_32 (output_bfd,
822 (PLT32_ENTRY_WORD1
823 + (((- (offset + 4)) >> 2) & 0x3fffff)),
824 splt->contents + offset + 4);
825 bfd_put_32 (output_bfd, (bfd_vma) PLT32_ENTRY_WORD2,
826 splt->contents + offset + 8);
827
828 *r_offset = offset;
829
830 return offset / PLT32_ENTRY_SIZE - 4;
831}
832
833/* Both the headers and the entries are icache aligned. */
834#define PLT64_ENTRY_SIZE 32
835#define PLT64_HEADER_SIZE (4 * PLT64_ENTRY_SIZE)
836#define PLT64_LARGE_THRESHOLD 32768
837
838static int
839sparc64_plt_entry_build (bfd *output_bfd, asection *splt, bfd_vma offset,
840 bfd_vma max, bfd_vma *r_offset)
841{
842 unsigned char *entry = splt->contents + offset;
843 const unsigned int nop = SPARC_NOP;
91d6fa6a 844 int plt_index;
22b75d0a
DM		 845
846 if (offset < (PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE))
847 {
848 unsigned int sethi, ba;
849
850 *r_offset = offset;
851
91d6fa6a 852 plt_index = (offset / PLT64_ENTRY_SIZE);
22b75d0a 853
91d6fa6a 854 sethi = 0x03000000 | (plt_index * PLT64_ENTRY_SIZE);
22b75d0a
DM		 855 ba = 0x30680000
856 | (((splt->contents + PLT64_ENTRY_SIZE) - (entry + 4)) / 4 & 0x7ffff);
857
858 bfd_put_32 (output_bfd, (bfd_vma) sethi, entry);
859 bfd_put_32 (output_bfd, (bfd_vma) ba, entry + 4);
860 bfd_put_32 (output_bfd, (bfd_vma) nop, entry + 8);
861 bfd_put_32 (output_bfd, (bfd_vma) nop, entry + 12);
862 bfd_put_32 (output_bfd, (bfd_vma) nop, entry + 16);
863 bfd_put_32 (output_bfd, (bfd_vma) nop, entry + 20);
864 bfd_put_32 (output_bfd, (bfd_vma) nop, entry + 24);
865 bfd_put_32 (output_bfd, (bfd_vma) nop, entry + 28);
866 }
867 else
868 {
869 unsigned char *ptr;
870 unsigned int ldx;
871 int block, last_block, ofs, last_ofs, chunks_this_block;
872 const int insn_chunk_size = (6 * 4);
873 const int ptr_chunk_size = (1 * 8);
874 const int entries_per_block = 160;
875 const int block_size = entries_per_block * (insn_chunk_size
876 + ptr_chunk_size);
877
878 /* Entries 32768 and higher are grouped into blocks of 160.
879 The blocks are further subdivided into 160 sequences of
880 6 instructions and 160 pointers. If a block does not require
881 the full 160 entries, let's say it requires N, then there
882 will be N sequences of 6 instructions and N pointers. */
883
884 offset -= (PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE);
885 max -= (PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE);
886
887 block = offset / block_size;
888 last_block = max / block_size;
889 if (block != last_block)
890 {
891 chunks_this_block = 160;
892 }
893 else
894 {
895 last_ofs = max % block_size;
896 chunks_this_block = last_ofs / (insn_chunk_size + ptr_chunk_size);
897 }
898
899 ofs = offset % block_size;
900
91d6fa6a 901 plt_index = (PLT64_LARGE_THRESHOLD +
22b75d0a
DM		 902 (block * 160) +
903 (ofs / insn_chunk_size));
904
905 ptr = splt->contents
906 + (PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE)
907 + (block * block_size)
908 + (chunks_this_block * insn_chunk_size)
909 + (ofs / insn_chunk_size) * ptr_chunk_size;
910
911 *r_offset = (bfd_vma) (ptr - splt->contents);
912
913 ldx = 0xc25be000 | ((ptr - (entry+4)) & 0x1fff);
914
915 /* mov %o7,%g5
916 call .+8
917 nop
918 ldx [%o7+P],%g1
919 jmpl %o7+%g1,%g1
920 mov %g5,%o7 */
921 bfd_put_32 (output_bfd, (bfd_vma) 0x8a10000f, entry);
922 bfd_put_32 (output_bfd, (bfd_vma) 0x40000002, entry + 4);
923 bfd_put_32 (output_bfd, (bfd_vma) SPARC_NOP, entry + 8);
07d6d2b8 924 bfd_put_32 (output_bfd, (bfd_vma) ldx, entry + 12);
22b75d0a
DM		 925 bfd_put_32 (output_bfd, (bfd_vma) 0x83c3c001, entry + 16);
926 bfd_put_32 (output_bfd, (bfd_vma) 0x9e100005, entry + 20);
927
928 bfd_put_64 (output_bfd, (bfd_vma) (splt->contents - (entry + 4)), ptr);
929 }
930
91d6fa6a 931 return plt_index - 4;
22b75d0a
DM		 932}
933
910600e9
RS		 934/* The format of the first PLT entry in a VxWorks executable. */
935static const bfd_vma sparc_vxworks_exec_plt0_entry[] =
936 {
937 0x05000000, /* sethi %hi(_GLOBAL_OFFSET_TABLE_+8), %g2 */
938 0x8410a000, /* or %g2, %lo(_GLOBAL_OFFSET_TABLE_+8), %g2 */
939 0xc4008000, /* ld [ %g2 ], %g2 */
940 0x81c08000, /* jmp %g2 */
941 0x01000000 /* nop */
942 };
943
944/* The format of subsequent PLT entries. */
945static const bfd_vma sparc_vxworks_exec_plt_entry[] =
946 {
947 0x03000000, /* sethi %hi(_GLOBAL_OFFSET_TABLE_+f@got), %g1 */
948 0x82106000, /* or %g1, %lo(_GLOBAL_OFFSET_TABLE_+f@got), %g1 */
949 0xc2004000, /* ld [ %g1 ], %g1 */
950 0x81c04000, /* jmp %g1 */
951 0x01000000, /* nop */
952 0x03000000, /* sethi %hi(f@pltindex), %g1 */
953 0x10800000, /* b _PLT_resolve */
954 0x82106000 /* or %g1, %lo(f@pltindex), %g1 */
955 };
956
957/* The format of the first PLT entry in a VxWorks shared object. */
958static const bfd_vma sparc_vxworks_shared_plt0_entry[] =
959 {
960 0xc405e008, /* ld [ %l7 + 8 ], %g2 */
961 0x81c08000, /* jmp %g2 */
962 0x01000000 /* nop */
963 };
964
965/* The format of subsequent PLT entries. */
966static const bfd_vma sparc_vxworks_shared_plt_entry[] =
967 {
968 0x03000000, /* sethi %hi(f@got), %g1 */
969 0x82106000, /* or %g1, %lo(f@got), %g1 */
970 0xc205c001, /* ld [ %l7 + %g1 ], %g1 */
971 0x81c04000, /* jmp %g1 */
972 0x01000000, /* nop */
973 0x03000000, /* sethi %hi(f@pltindex), %g1 */
974 0x10800000, /* b _PLT_resolve */
975 0x82106000 /* or %g1, %lo(f@pltindex), %g1 */
976 };
977
22b75d0a
DM		 978#define SPARC_ELF_PUT_WORD(htab, bfd, val, ptr) \
979 htab->put_word(bfd, val, ptr)
980
22b75d0a
DM		 981#define SPARC_ELF_R_INFO(htab, in_rel, index, type) \
982 htab->r_info(in_rel, index, type)
983
984#define SPARC_ELF_R_SYMNDX(htab, r_info) \
985 htab->r_symndx(r_info)
986
987#define SPARC_ELF_WORD_BYTES(htab) \
988 htab->bytes_per_word
989
990#define SPARC_ELF_RELA_BYTES(htab) \
991 htab->bytes_per_rela
992
993#define SPARC_ELF_DTPOFF_RELOC(htab) \
994 htab->dtpoff_reloc
995
996#define SPARC_ELF_DTPMOD_RELOC(htab) \
997 htab->dtpmod_reloc
998
999#define SPARC_ELF_TPOFF_RELOC(htab) \
1000 htab->tpoff_reloc
1001
1002#define SPARC_ELF_BUILD_PLT_ENTRY(htab, obfd, splt, off, max, r_off) \
1003 htab->build_plt_entry (obfd, splt, off, max, r_off)
1004
1005/* Create an entry in an SPARC ELF linker hash table. */
1006
1007static struct bfd_hash_entry *
1008link_hash_newfunc (struct bfd_hash_entry *entry,
1009 struct bfd_hash_table *table, const char *string)
1010{
1011 /* Allocate the structure if it has not already been allocated by a
1012 subclass. */
1013 if (entry == NULL)
1014 {
1015 entry = bfd_hash_allocate (table,
1016 sizeof (struct _bfd_sparc_elf_link_hash_entry));
1017 if (entry == NULL)
1018 return entry;
1019 }
1020
1021 /* Call the allocation method of the superclass. */
1022 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
1023 if (entry != NULL)
1024 {
1025 struct _bfd_sparc_elf_link_hash_entry *eh;
1026
1027 eh = (struct _bfd_sparc_elf_link_hash_entry *) entry;
22b75d0a 1028 eh->tls_type = GOT_UNKNOWN;
bb1dd176
QZ		 1029 eh->has_got_reloc = 0;
1030 eh->has_non_got_reloc = 0;
22b75d0a
DM		 1031 }
1032
1033 return entry;
1034}
1035
1036/* The name of the dynamic interpreter. This is put in the .interp
1037 section. */
1038
1039#define ELF32_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
1040#define ELF64_DYNAMIC_INTERPRETER "/usr/lib/sparcv9/ld.so.1"
1041
d0c9aeb3
DM		 1042/* Compute a hash of a local hash entry. We use elf_link_hash_entry
1043 for local symbol so that we can handle local STT_GNU_IFUNC symbols
1044 as global symbol. We reuse indx and dynstr_index for local symbol
1045 hash since they aren't used by global symbols in this backend. */
1046
1047static hashval_t
1048elf_sparc_local_htab_hash (const void *ptr)
1049{
1050 struct elf_link_hash_entry *h
1051 = (struct elf_link_hash_entry *) ptr;
1052 return ELF_LOCAL_SYMBOL_HASH (h->indx, h->dynstr_index);
1053}
1054
1055/* Compare local hash entries. */
1056
1057static int
1058elf_sparc_local_htab_eq (const void *ptr1, const void *ptr2)
1059{
1060 struct elf_link_hash_entry *h1
1061 = (struct elf_link_hash_entry *) ptr1;
1062 struct elf_link_hash_entry *h2
1063 = (struct elf_link_hash_entry *) ptr2;
1064
1065 return h1->indx == h2->indx && h1->dynstr_index == h2->dynstr_index;
1066}
1067
1068/* Find and/or create a hash entry for local symbol. */
1069
1070static struct elf_link_hash_entry *
1071elf_sparc_get_local_sym_hash (struct _bfd_sparc_elf_link_hash_table *htab,
1072 bfd *abfd, const Elf_Internal_Rela *rel,
1073 bfd_boolean create)
1074{
1075 struct _bfd_sparc_elf_link_hash_entry e, *ret;
1076 asection *sec = abfd->sections;
1077 unsigned long r_symndx;
1078 hashval_t h;
1079 void **slot;
1080
1081 r_symndx = SPARC_ELF_R_SYMNDX (htab, rel->r_info);
1082 h = ELF_LOCAL_SYMBOL_HASH (sec->id, r_symndx);
1083
1084 e.elf.indx = sec->id;
1085 e.elf.dynstr_index = r_symndx;
1086 slot = htab_find_slot_with_hash (htab->loc_hash_table, &e, h,
1087 create ? INSERT : NO_INSERT);
1088
1089 if (!slot)
1090 return NULL;
1091
1092 if (*slot)
1093 {
1094 ret = (struct _bfd_sparc_elf_link_hash_entry *) *slot;
1095 return &ret->elf;
1096 }
1097
1098 ret = (struct _bfd_sparc_elf_link_hash_entry *)
1099 objalloc_alloc ((struct objalloc *) htab->loc_hash_memory,
1100 sizeof (struct _bfd_sparc_elf_link_hash_entry));
1101 if (ret)
1102 {
1103 memset (ret, 0, sizeof (*ret));
1104 ret->elf.indx = sec->id;
1105 ret->elf.dynstr_index = r_symndx;
1106 ret->elf.dynindx = -1;
1107 ret->elf.plt.offset = (bfd_vma) -1;
1108 ret->elf.got.offset = (bfd_vma) -1;
1109 *slot = ret;
1110 }
1111 return &ret->elf;
1112}
1113
68faa637
AM		 1114/* Destroy a SPARC ELF linker hash table. */
1115
d495ab0d
AM		 1116static void
1117_bfd_sparc_elf_link_hash_table_free (bfd *obfd)
68faa637
AM		 1118{
1119 struct _bfd_sparc_elf_link_hash_table *htab
d495ab0d 1120 = (struct _bfd_sparc_elf_link_hash_table *) obfd->link.hash;
68faa637
AM		 1121
1122 if (htab->loc_hash_table)
1123 htab_delete (htab->loc_hash_table);
1124 if (htab->loc_hash_memory)
1125 objalloc_free ((struct objalloc *) htab->loc_hash_memory);
d495ab0d 1126 _bfd_elf_link_hash_table_free (obfd);
68faa637
AM		 1127}
1128
22b75d0a
DM		 1129/* Create a SPARC ELF linker hash table. */
1130
1131struct bfd_link_hash_table *
1132_bfd_sparc_elf_link_hash_table_create (bfd *abfd)
1133{
1134 struct _bfd_sparc_elf_link_hash_table *ret;
986f0783 1135 size_t amt = sizeof (struct _bfd_sparc_elf_link_hash_table);
22b75d0a
DM		 1136
1137 ret = (struct _bfd_sparc_elf_link_hash_table *) bfd_zmalloc (amt);
1138 if (ret == NULL)
1139 return NULL;
1140
1141 if (ABI_64_P (abfd))
1142 {
1143 ret->put_word = sparc_put_word_64;
22b75d0a
DM		 1144 ret->r_info = sparc_elf_r_info_64;
1145 ret->r_symndx = sparc_elf_r_symndx_64;
22b75d0a
DM		 1146 ret->dtpoff_reloc = R_SPARC_TLS_DTPOFF64;
1147 ret->dtpmod_reloc = R_SPARC_TLS_DTPMOD64;
1148 ret->tpoff_reloc = R_SPARC_TLS_TPOFF64;
1149 ret->word_align_power = 3;
1150 ret->align_power_max = 4;
1151 ret->bytes_per_word = 8;
1152 ret->bytes_per_rela = sizeof (Elf64_External_Rela);
c2e70a82 1153 ret->dynamic_interpreter = ELF64_DYNAMIC_INTERPRETER;
22b75d0a 1154 ret->dynamic_interpreter_size = sizeof ELF64_DYNAMIC_INTERPRETER;
d0c9aeb3
DM		 1155
1156 ret->build_plt_entry = sparc64_plt_entry_build;
1157 ret->plt_header_size = PLT64_HEADER_SIZE;
1158 ret->plt_entry_size = PLT64_ENTRY_SIZE;
22b75d0a
DM		 1159 }
1160 else
1161 {
1162 ret->put_word = sparc_put_word_32;
22b75d0a
DM		 1163 ret->r_info = sparc_elf_r_info_32;
1164 ret->r_symndx = sparc_elf_r_symndx_32;
22b75d0a
DM		 1165 ret->dtpoff_reloc = R_SPARC_TLS_DTPOFF32;
1166 ret->dtpmod_reloc = R_SPARC_TLS_DTPMOD32;
1167 ret->tpoff_reloc = R_SPARC_TLS_TPOFF32;
1168 ret->word_align_power = 2;
1169 ret->align_power_max = 3;
1170 ret->bytes_per_word = 4;
1171 ret->bytes_per_rela = sizeof (Elf32_External_Rela);
c2e70a82 1172 ret->dynamic_interpreter = ELF32_DYNAMIC_INTERPRETER;
22b75d0a 1173 ret->dynamic_interpreter_size = sizeof ELF32_DYNAMIC_INTERPRETER;
d0c9aeb3
DM		 1174
1175 ret->build_plt_entry = sparc32_plt_entry_build;
1176 ret->plt_header_size = PLT32_HEADER_SIZE;
1177 ret->plt_entry_size = PLT32_ENTRY_SIZE;
22b75d0a
DM		 1178 }
1179
66eb6687 1180 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc,
4dfe6ac6
NC		 1181 sizeof (struct _bfd_sparc_elf_link_hash_entry),
1182 SPARC_ELF_DATA))
22b75d0a
DM		 1183 {
1184 free (ret);
1185 return NULL;
1186 }
1187
d0c9aeb3
DM		 1188 ret->loc_hash_table = htab_try_create (1024,
1189 elf_sparc_local_htab_hash,
1190 elf_sparc_local_htab_eq,
1191 NULL);
1192 ret->loc_hash_memory = objalloc_create ();
1193 if (!ret->loc_hash_table || !ret->loc_hash_memory)
1194 {
d495ab0d 1195 _bfd_sparc_elf_link_hash_table_free (abfd);
d0c9aeb3
DM		 1196 return NULL;
1197 }
d495ab0d 1198 ret->elf.root.hash_table_free = _bfd_sparc_elf_link_hash_table_free;
d0c9aeb3 1199
22b75d0a
DM		 1200 return &ret->elf.root;
1201}
1202
22b75d0a
DM		 1203/* Create .plt, .rela.plt, .got, .rela.got, .dynbss, and
1204 .rela.bss sections in DYNOBJ, and set up shortcuts to them in our
1205 hash table. */
1206
1207bfd_boolean
1208_bfd_sparc_elf_create_dynamic_sections (bfd *dynobj,
1209 struct bfd_link_info *info)
1210{
1211 struct _bfd_sparc_elf_link_hash_table *htab;
1212
1213 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6
NC		 1214 BFD_ASSERT (htab != NULL);
1215
22b75d0a
DM		 1216 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
1217 return FALSE;
1218
910600e9
RS		 1219 if (htab->is_vxworks)
1220 {
1221 if (!elf_vxworks_create_dynamic_sections (dynobj, info, &htab->srelplt2))
1222 return FALSE;
0e1862bb 1223 if (bfd_link_pic (info))
910600e9
RS		 1224 {
1225 htab->plt_header_size
1226 = 4 * ARRAY_SIZE (sparc_vxworks_shared_plt0_entry);
1227 htab->plt_entry_size
1228 = 4 * ARRAY_SIZE (sparc_vxworks_shared_plt_entry);
1229 }
1230 else
1231 {
1232 htab->plt_header_size
1233 = 4 * ARRAY_SIZE (sparc_vxworks_exec_plt0_entry);
1234 htab->plt_entry_size
1235 = 4 * ARRAY_SIZE (sparc_vxworks_exec_plt_entry);
1236 }
1237 }
910600e9 1238
9d19e4fd
AM		 1239 if (!htab->elf.splt || !htab->elf.srelplt || !htab->elf.sdynbss
1240 || (!bfd_link_pic (info) && !htab->elf.srelbss))
22b75d0a
DM		 1241 abort ();
1242
1243 return TRUE;
1244}
1245
d0c9aeb3
DM		 1246static bfd_boolean
1247create_ifunc_sections (bfd *abfd, struct bfd_link_info *info)
1248{
1249 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
1250 struct elf_link_hash_table *htab = elf_hash_table (info);
1251 flagword flags, pltflags;
1252 asection *s;
1253
1254 if (htab->irelifunc != NULL || htab->iplt != NULL)
1255 return TRUE;
1256
1257 flags = bed->dynamic_sec_flags;
1258 pltflags = flags | SEC_ALLOC | SEC_CODE | SEC_LOAD;
1259
1260 s = bfd_make_section_with_flags (abfd, ".iplt", pltflags);
1261 if (s == NULL
fd361982 1262 || !bfd_set_section_alignment (s, bed->plt_alignment))
d0c9aeb3
DM		 1263 return FALSE;
1264 htab->iplt = s;
1265
1266 s = bfd_make_section_with_flags (abfd, ".rela.iplt",
1267 flags | SEC_READONLY);
1268 if (s == NULL
fd361982 1269 || !bfd_set_section_alignment (s, bed->s->log_file_align))
d0c9aeb3
DM		 1270 return FALSE;
1271 htab->irelplt = s;
1272
1273 return TRUE;
1274}
1275
22b75d0a
DM		 1276/* Copy the extra info we tack onto an elf_link_hash_entry. */
1277
1278void
fcfa13d2 1279_bfd_sparc_elf_copy_indirect_symbol (struct bfd_link_info *info,
22b75d0a
DM		 1280 struct elf_link_hash_entry *dir,
1281 struct elf_link_hash_entry *ind)
1282{
1283 struct _bfd_sparc_elf_link_hash_entry *edir, *eind;
1284
1285 edir = (struct _bfd_sparc_elf_link_hash_entry *) dir;
1286 eind = (struct _bfd_sparc_elf_link_hash_entry *) ind;
1287
a8735c82 1288 if (ind->root.type == bfd_link_hash_indirect && dir->got.refcount <= 0)
22b75d0a
DM		 1289 {
1290 edir->tls_type = eind->tls_type;
1291 eind->tls_type = GOT_UNKNOWN;
1292 }
bb1dd176
QZ		 1293
1294 /* Copy has_got_reloc and has_non_got_reloc. */
1295 edir->has_got_reloc |= eind->has_got_reloc;
1296 edir->has_non_got_reloc |= eind->has_non_got_reloc;
1297
fcfa13d2 1298 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
22b75d0a
DM		 1299}
1300
1301static int
1302sparc_elf_tls_transition (struct bfd_link_info *info, bfd *abfd,
1303 int r_type, int is_local)
1304{
1305 if (! ABI_64_P (abfd)
1306 && r_type == R_SPARC_TLS_GD_HI22
1307 && ! _bfd_sparc_elf_tdata (abfd)->has_tlsgd)
c20c30f6 1308 return R_SPARC_REV32;
22b75d0a 1309
c20c30f6 1310 if (!bfd_link_executable (info))
22b75d0a
DM		 1311 return r_type;
1312
1313 switch (r_type)
1314 {
1315 case R_SPARC_TLS_GD_HI22:
c20c30f6 1316 return is_local ? R_SPARC_TLS_LE_HIX22 : R_SPARC_TLS_IE_HI22;
22b75d0a 1317 case R_SPARC_TLS_GD_LO10:
c20c30f6 1318 return is_local ? R_SPARC_TLS_LE_LOX10 : R_SPARC_TLS_IE_LO10;
22b75d0a
DM		 1319 case R_SPARC_TLS_LDM_HI22:
1320 return R_SPARC_TLS_LE_HIX22;
1321 case R_SPARC_TLS_LDM_LO10:
1322 return R_SPARC_TLS_LE_LOX10;
c20c30f6
EB		 1323 case R_SPARC_TLS_IE_HI22:
1324 return is_local ? R_SPARC_TLS_LE_HIX22 : r_type;
1325 case R_SPARC_TLS_IE_LO10:
1326 return is_local ? R_SPARC_TLS_LE_LOX10 : r_type;
22b75d0a
DM		 1327 }
1328
1329 return r_type;
1330}
1331\f
1332/* Look through the relocs for a section during the first phase, and
1333 allocate space in the global offset table or procedure linkage
1334 table. */
1335
1336bfd_boolean
1337_bfd_sparc_elf_check_relocs (bfd *abfd, struct bfd_link_info *info,
1338 asection *sec, const Elf_Internal_Rela *relocs)
1339{
1340 struct _bfd_sparc_elf_link_hash_table *htab;
1341 Elf_Internal_Shdr *symtab_hdr;
1342 struct elf_link_hash_entry **sym_hashes;
22b75d0a
DM		 1343 const Elf_Internal_Rela *rel;
1344 const Elf_Internal_Rela *rel_end;
1345 asection *sreloc;
1346 int num_relocs;
1347 bfd_boolean checked_tlsgd = FALSE;
1348
0e1862bb 1349 if (bfd_link_relocatable (info))
22b75d0a
DM		 1350 return TRUE;
1351
1352 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 1353 BFD_ASSERT (htab != NULL);
0ffa91dd 1354 symtab_hdr = &elf_symtab_hdr (abfd);
22b75d0a 1355 sym_hashes = elf_sym_hashes (abfd);
22b75d0a
DM		 1356
1357 sreloc = NULL;
1358
1359 if (ABI_64_P (abfd))
d4730f92 1360 num_relocs = NUM_SHDR_ENTRIES (_bfd_elf_single_rel_hdr (sec));
22b75d0a
DM		 1361 else
1362 num_relocs = sec->reloc_count;
0ffa91dd
NC		 1363
1364 BFD_ASSERT (is_sparc_elf (abfd) || num_relocs == 0);
1365
d0c9aeb3
DM		 1366 if (htab->elf.dynobj == NULL)
1367 htab->elf.dynobj = abfd;
1368 if (!create_ifunc_sections (htab->elf.dynobj, info))
1369 return FALSE;
1370
22b75d0a
DM		 1371 rel_end = relocs + num_relocs;
1372 for (rel = relocs; rel < rel_end; rel++)
1373 {
1374 unsigned int r_type;
d42c267e 1375 unsigned int r_symndx;
22b75d0a 1376 struct elf_link_hash_entry *h;
bb1dd176 1377 struct _bfd_sparc_elf_link_hash_entry *eh;
d0c9aeb3 1378 Elf_Internal_Sym *isym;
22b75d0a
DM		 1379
1380 r_symndx = SPARC_ELF_R_SYMNDX (htab, rel->r_info);
1381 r_type = SPARC_ELF_R_TYPE (rel->r_info);
1382
1383 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
1384 {
695344c0 1385 /* xgettext:c-format */
871b3ab2 1386 _bfd_error_handler (_("%pB: bad symbol index: %d"), abfd, r_symndx);
22b75d0a
DM		 1387 return FALSE;
1388 }
1389
d0c9aeb3 1390 isym = NULL;
22b75d0a 1391 if (r_symndx < symtab_hdr->sh_info)
d0c9aeb3
DM		 1392 {
1393 /* A local symbol. */
c20c30f6 1394 isym = bfd_sym_from_r_symndx (&htab->sym_cache, abfd, r_symndx);
d0c9aeb3
DM		 1395 if (isym == NULL)
1396 return FALSE;
1397
1398 /* Check relocation against local STT_GNU_IFUNC symbol. */
1399 if (ELF_ST_TYPE (isym->st_info) == STT_GNU_IFUNC)
1400 {
c20c30f6 1401 h = elf_sparc_get_local_sym_hash (htab, abfd, rel, TRUE);
d0c9aeb3
DM		 1402 if (h == NULL)
1403 return FALSE;
68ffbac6 1404
d0c9aeb3
DM		 1405 /* Fake a STT_GNU_IFUNC symbol. */
1406 h->type = STT_GNU_IFUNC;
1407 h->def_regular = 1;
1408 h->ref_regular = 1;
1409 h->forced_local = 1;
1410 h->root.type = bfd_link_hash_defined;
1411 }
1412 else
1413 h = NULL;
1414 }
22b75d0a 1415 else
973a3492
L		 1416 {
1417 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1418 while (h->root.type == bfd_link_hash_indirect
1419 || h->root.type == bfd_link_hash_warning)
1420 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1421 }
22b75d0a 1422
c20c30f6 1423 if (h && h->type == STT_GNU_IFUNC && h->def_regular)
d0c9aeb3 1424 {
c20c30f6
EB		 1425 h->ref_regular = 1;
1426 h->plt.refcount += 1;
d0c9aeb3
DM		 1427 }
1428
22b75d0a
DM		 1429 /* Compatibility with old R_SPARC_REV32 reloc conflicting
1430 with R_SPARC_TLS_GD_HI22. */
1431 if (! ABI_64_P (abfd) && ! checked_tlsgd)
1432 switch (r_type)
1433 {
1434 case R_SPARC_TLS_GD_HI22:
1435 {
1436 const Elf_Internal_Rela *relt;
1437
1438 for (relt = rel + 1; relt < rel_end; relt++)
1439 if (ELF32_R_TYPE (relt->r_info) == R_SPARC_TLS_GD_LO10
1440 || ELF32_R_TYPE (relt->r_info) == R_SPARC_TLS_GD_ADD
1441 || ELF32_R_TYPE (relt->r_info) == R_SPARC_TLS_GD_CALL)
1442 break;
1443 checked_tlsgd = TRUE;
1444 _bfd_sparc_elf_tdata (abfd)->has_tlsgd = relt < rel_end;
1445 }
1446 break;
1447 case R_SPARC_TLS_GD_LO10:
1448 case R_SPARC_TLS_GD_ADD:
1449 case R_SPARC_TLS_GD_CALL:
1450 checked_tlsgd = TRUE;
1451 _bfd_sparc_elf_tdata (abfd)->has_tlsgd = TRUE;
1452 break;
1453 }
1454
1455 r_type = sparc_elf_tls_transition (info, abfd, r_type, h == NULL);
bb1dd176
QZ		 1456 eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
1457
22b75d0a
DM		 1458 switch (r_type)
1459 {
1460 case R_SPARC_TLS_LDM_HI22:
1461 case R_SPARC_TLS_LDM_LO10:
1462 htab->tls_ldm_got.refcount += 1;
07d6d2b8
AM		 1463 if (eh != NULL)
1464 eh->has_got_reloc = 1;
22b75d0a
DM		 1465 break;
1466
1467 case R_SPARC_TLS_LE_HIX22:
1468 case R_SPARC_TLS_LE_LOX10:
c20c30f6 1469 if (!bfd_link_executable (info))
22b75d0a
DM		 1470 goto r_sparc_plt32;
1471 break;
1472
1473 case R_SPARC_TLS_IE_HI22:
1474 case R_SPARC_TLS_IE_LO10:
c20c30f6 1475 if (!bfd_link_executable (info))
22b75d0a
DM		 1476 info->flags |= DF_STATIC_TLS;
1477 /* Fall through */
1478
1479 case R_SPARC_GOT10:
1480 case R_SPARC_GOT13:
1481 case R_SPARC_GOT22:
739f7f82
DM		 1482 case R_SPARC_GOTDATA_HIX22:
1483 case R_SPARC_GOTDATA_LOX10:
1484 case R_SPARC_GOTDATA_OP_HIX22:
1485 case R_SPARC_GOTDATA_OP_LOX10:
22b75d0a
DM		 1486 case R_SPARC_TLS_GD_HI22:
1487 case R_SPARC_TLS_GD_LO10:
1488 /* This symbol requires a global offset table entry. */
1489 {
1490 int tls_type, old_tls_type;
1491
1492 switch (r_type)
1493 {
22b75d0a
DM		 1494 case R_SPARC_TLS_GD_HI22:
1495 case R_SPARC_TLS_GD_LO10:
1496 tls_type = GOT_TLS_GD;
1497 break;
1498 case R_SPARC_TLS_IE_HI22:
1499 case R_SPARC_TLS_IE_LO10:
1500 tls_type = GOT_TLS_IE;
1501 break;
c20c30f6
EB		 1502 default:
1503 tls_type = GOT_NORMAL;
1504 break;
22b75d0a
DM		 1505 }
1506
1507 if (h != NULL)
1508 {
1509 h->got.refcount += 1;
1510 old_tls_type = _bfd_sparc_elf_hash_entry(h)->tls_type;
1511 }
1512 else
1513 {
1514 bfd_signed_vma *local_got_refcounts;
1515
1516 /* This is a global offset table entry for a local symbol. */
1517 local_got_refcounts = elf_local_got_refcounts (abfd);
1518 if (local_got_refcounts == NULL)
1519 {
1520 bfd_size_type size;
1521
1522 size = symtab_hdr->sh_info;
1523 size *= (sizeof (bfd_signed_vma) + sizeof(char));
1524 local_got_refcounts = ((bfd_signed_vma *)
1525 bfd_zalloc (abfd, size));
1526 if (local_got_refcounts == NULL)
1527 return FALSE;
1528 elf_local_got_refcounts (abfd) = local_got_refcounts;
1529 _bfd_sparc_elf_local_got_tls_type (abfd)
1530 = (char *) (local_got_refcounts + symtab_hdr->sh_info);
1531 }
00c50991 1532
c20c30f6
EB		 1533 if (r_type != R_SPARC_GOTDATA_OP_HIX22
1534 && r_type != R_SPARC_GOTDATA_OP_LOX10)
1535 local_got_refcounts[r_symndx] += 1;
1536
f8745e1c
EB		 1537 old_tls_type
1538 = _bfd_sparc_elf_local_got_tls_type (abfd) [r_symndx];
22b75d0a
DM		 1539 }
1540
f8745e1c
EB		 1541 /* If a TLS symbol is accessed using IE at least once, there is no
1542 point in using the dynamic model for it. */
c20c30f6 1543 if (old_tls_type != tls_type)
22b75d0a 1544 {
c20c30f6
EB		 1545 if (old_tls_type == GOT_UNKNOWN)
1546 ;
1547 else if (old_tls_type == GOT_TLS_GD && tls_type == GOT_TLS_IE)
1548 ;
1549 else if (old_tls_type == GOT_TLS_IE && tls_type == GOT_TLS_GD)
22b75d0a
DM		 1550 tls_type = old_tls_type;
1551 else
1552 {
4eca0228 1553 _bfd_error_handler
695344c0 1554 /* xgettext:c-format */
871b3ab2 1555 (_("%pB: `%s' accessed both as normal and thread local symbol"),
22b75d0a
DM		 1556 abfd, h ? h->root.root.string : "<local>");
1557 return FALSE;
1558 }
22b75d0a 1559
22b75d0a
DM		 1560 if (h != NULL)
1561 _bfd_sparc_elf_hash_entry (h)->tls_type = tls_type;
1562 else
1563 _bfd_sparc_elf_local_got_tls_type (abfd) [r_symndx] = tls_type;
1564 }
1565 }
1566
c20c30f6
EB		 1567 if (!htab->elf.sgot
1568 && !_bfd_elf_create_got_section (htab->elf.dynobj, info))
1569 return FALSE;
bb1dd176 1570
07d6d2b8 1571 if (eh != NULL)
f8745e1c
EB		 1572 {
1573 eh->has_got_reloc = 1;
1574 if (r_type == R_SPARC_GOT10
1575 || r_type == R_SPARC_GOT13
1576 || r_type == R_SPARC_GOT22)
1577 eh->has_old_style_got_reloc = 1;
1578 }
22b75d0a
DM		 1579 break;
1580
1581 case R_SPARC_TLS_GD_CALL:
1582 case R_SPARC_TLS_LDM_CALL:
c20c30f6 1583 if (bfd_link_executable (info))
22b75d0a 1584 break;
c20c30f6
EB		 1585
1586 /* Essentially R_SPARC_WPLT30 relocs against __tls_get_addr. */
1587 h = (struct elf_link_hash_entry *)
e513bd38 1588 bfd_link_hash_lookup (info->hash, "__tls_get_addr", FALSE,
c20c30f6 1589 FALSE, TRUE);
e513bd38 1590 BFD_ASSERT (h != NULL);
22b75d0a
DM		 1591 /* Fall through */
1592
22b75d0a 1593 case R_SPARC_WPLT30:
c20c30f6
EB		 1594 case R_SPARC_PLT32:
1595 case R_SPARC_PLT64:
22b75d0a
DM		 1596 case R_SPARC_HIPLT22:
1597 case R_SPARC_LOPLT10:
1598 case R_SPARC_PCPLT32:
1599 case R_SPARC_PCPLT22:
1600 case R_SPARC_PCPLT10:
c20c30f6
EB		 1601 /* This symbol requires a procedure linkage table entry.
1602 We actually build the entry in adjust_dynamic_symbol,
22b75d0a
DM		 1603 because this might be a case of linking PIC code without
1604 linking in any dynamic objects, in which case we don't
1605 need to generate a procedure linkage table after all. */
1606
1607 if (h == NULL)
1608 {
1609 if (! ABI_64_P (abfd))
1610 {
1611 /* The Solaris native assembler will generate a WPLT30
1612 reloc for a local symbol if you assemble a call from
1613 one section to another when using -K pic. We treat
1614 it as WDISP30. */
c20c30f6 1615 if (r_type == R_SPARC_PLT32)
22b75d0a
DM		 1616 goto r_sparc_plt32;
1617 break;
1618 }
af1fb11f
NC		 1619 /* PR 7027: We need similar behaviour for 64-bit binaries. */
1620 else if (r_type == R_SPARC_WPLT30)
1621 break;
22b75d0a
DM		 1622
1623 /* It does not make sense to have a procedure linkage
07d6d2b8 1624 table entry for a local symbol. */
22b75d0a
DM		 1625 bfd_set_error (bfd_error_bad_value);
1626 return FALSE;
1627 }
1628
1629 h->needs_plt = 1;
1630
c20c30f6
EB		 1631 if (r_type == R_SPARC_PLT32 || r_type == R_SPARC_PLT64)
1632 goto r_sparc_plt32;
22b75d0a 1633
22b75d0a 1634 h->plt.refcount += 1;
bb1dd176 1635
07d6d2b8
AM		 1636 eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
1637 eh->has_got_reloc = 1;
22b75d0a
DM		 1638 break;
1639
1640 case R_SPARC_PC10:
1641 case R_SPARC_PC22:
1642 case R_SPARC_PC_HH22:
1643 case R_SPARC_PC_HM10:
1644 case R_SPARC_PC_LM22:
1645 if (h != NULL)
1646 h->non_got_ref = 1;
1647
1648 if (h != NULL
1649 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
1650 break;
1651 /* Fall through. */
1652
1653 case R_SPARC_DISP8:
1654 case R_SPARC_DISP16:
1655 case R_SPARC_DISP32:
1656 case R_SPARC_DISP64:
1657 case R_SPARC_WDISP30:
1658 case R_SPARC_WDISP22:
1659 case R_SPARC_WDISP19:
1660 case R_SPARC_WDISP16:
2615994e 1661 case R_SPARC_WDISP10:
22b75d0a
DM		 1662 case R_SPARC_8:
1663 case R_SPARC_16:
1664 case R_SPARC_32:
1665 case R_SPARC_HI22:
1666 case R_SPARC_22:
1667 case R_SPARC_13:
1668 case R_SPARC_LO10:
1669 case R_SPARC_UA16:
1670 case R_SPARC_UA32:
1671 case R_SPARC_10:
1672 case R_SPARC_11:
1673 case R_SPARC_64:
1674 case R_SPARC_OLO10:
1675 case R_SPARC_HH22:
1676 case R_SPARC_HM10:
1677 case R_SPARC_LM22:
1678 case R_SPARC_7:
1679 case R_SPARC_5:
1680 case R_SPARC_6:
1681 case R_SPARC_HIX22:
1682 case R_SPARC_LOX10:
1683 case R_SPARC_H44:
1684 case R_SPARC_M44:
1685 case R_SPARC_L44:
2615994e 1686 case R_SPARC_H34:
22b75d0a
DM		 1687 case R_SPARC_UA64:
1688 if (h != NULL)
1689 h->non_got_ref = 1;
1690
07d6d2b8
AM		 1691 if (eh != NULL && (sec->flags & SEC_CODE) != 0)
1692 eh->has_non_got_reloc = 1;
bb1dd176 1693
22b75d0a 1694 r_sparc_plt32:
0e1862bb 1695 if (h != NULL && !bfd_link_pic (info))
22b75d0a
DM		 1696 {
1697 /* We may need a .plt entry if the function this reloc
1698 refers to is in a shared lib. */
1699 h->plt.refcount += 1;
1700 }
1701
1702 /* If we are creating a shared library, and this is a reloc
1703 against a global symbol, or a non PC relative reloc
1704 against a local symbol, then we need to copy the reloc
1705 into the shared library. However, if we are linking with
1706 -Bsymbolic, we do not need to copy a reloc against a
1707 global symbol which is defined in an object we are
1708 including in the link (i.e., DEF_REGULAR is set). At
1709 this point we have not seen all the input files, so it is
1710 possible that DEF_REGULAR is not set now but will be set
1711 later (it is never cleared). In case of a weak definition,
1712 DEF_REGULAR may be cleared later by a strong definition in
1713 a shared library. We account for that possibility below by
1714 storing information in the relocs_copied field of the hash
1715 table entry. A similar situation occurs when creating
1716 shared libraries and symbol visibility changes render the
1717 symbol local.
1718
1719 If on the other hand, we are creating an executable, we
1720 may need to keep relocations for symbols satisfied by a
1721 dynamic library if we manage to avoid copy relocs for the
1722 symbol. */
0e1862bb 1723 if ((bfd_link_pic (info)
22b75d0a
DM		 1724 && (sec->flags & SEC_ALLOC) != 0
1725 && (! _bfd_sparc_elf_howto_table[r_type].pc_relative
1726 || (h != NULL
72fbc6e5 1727 && (! SYMBOLIC_BIND (info, h)
22b75d0a
DM		 1728 || h->root.type == bfd_link_hash_defweak
1729 || !h->def_regular))))
0e1862bb 1730 || (!bfd_link_pic (info)
22b75d0a
DM		 1731 && (sec->flags & SEC_ALLOC) != 0
1732 && h != NULL
1733 && (h->root.type == bfd_link_hash_defweak
d0c9aeb3 1734 || !h->def_regular))
0e1862bb 1735 || (!bfd_link_pic (info)
d0c9aeb3
DM		 1736 && h != NULL
1737 && h->type == STT_GNU_IFUNC))
22b75d0a 1738 {
3bf083ed
AM		 1739 struct elf_dyn_relocs *p;
1740 struct elf_dyn_relocs **head;
22b75d0a
DM		 1741
1742 /* When creating a shared object, we must copy these
1743 relocs into the output file. We create a reloc
1744 section in dynobj and make room for the reloc. */
1745 if (sreloc == NULL)
1746 {
83bac4b0
NC		 1747 sreloc = _bfd_elf_make_dynamic_reloc_section
1748 (sec, htab->elf.dynobj, htab->word_align_power,
1749 abfd, /*rela?*/ TRUE);
1750
22b75d0a 1751 if (sreloc == NULL)
83bac4b0 1752 return FALSE;
22b75d0a
DM		 1753 }
1754
1755 /* If this is a global symbol, we count the number of
1756 relocations we need for this symbol. */
1757 if (h != NULL)
190eb1dd 1758 head = &h->dyn_relocs;
22b75d0a
DM		 1759 else
1760 {
1761 /* Track dynamic relocs needed for local syms too.
1762 We really need local syms available to do this
1763 easily. Oh well. */
22b75d0a 1764 asection *s;
6edfbbad 1765 void *vpp;
22b75d0a 1766
d0c9aeb3 1767 BFD_ASSERT (isym != NULL);
87d72d41
AM		 1768 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
1769 if (s == NULL)
1770 s = sec;
1771
6edfbbad 1772 vpp = &elf_section_data (s)->local_dynrel;
3bf083ed 1773 head = (struct elf_dyn_relocs **) vpp;
22b75d0a
DM		 1774 }
1775
1776 p = *head;
1777 if (p == NULL || p->sec != sec)
1778 {
986f0783 1779 size_t amt = sizeof *p;
3bf083ed 1780 p = ((struct elf_dyn_relocs *)
22b75d0a
DM		 1781 bfd_alloc (htab->elf.dynobj, amt));
1782 if (p == NULL)
1783 return FALSE;
1784 p->next = *head;
1785 *head = p;
1786 p->sec = sec;
1787 p->count = 0;
1788 p->pc_count = 0;
1789 }
1790
1791 p->count += 1;
1792 if (_bfd_sparc_elf_howto_table[r_type].pc_relative)
1793 p->pc_count += 1;
1794 }
1795
1796 break;
1797
1798 case R_SPARC_GNU_VTINHERIT:
1799 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1800 return FALSE;
1801 break;
1802
1803 case R_SPARC_GNU_VTENTRY:
a0ea3a14 1804 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
22b75d0a
DM		 1805 return FALSE;
1806 break;
1807
1808 case R_SPARC_REGISTER:
1809 /* Nothing to do. */
1810 break;
1811
1812 default:
1813 break;
1814 }
1815 }
1816
1817 return TRUE;
1818}
1819\f
1820asection *
1821_bfd_sparc_elf_gc_mark_hook (asection *sec,
1822 struct bfd_link_info *info,
1823 Elf_Internal_Rela *rel,
1824 struct elf_link_hash_entry *h,
1825 Elf_Internal_Sym *sym)
1826{
1827 if (h != NULL)
07adf181 1828 switch (SPARC_ELF_R_TYPE (rel->r_info))
22b75d0a
DM		 1829 {
1830 case R_SPARC_GNU_VTINHERIT:
1831 case R_SPARC_GNU_VTENTRY:
07adf181 1832 return NULL;
22b75d0a 1833 }
22b75d0a 1834
c20c30f6 1835 if (!bfd_link_executable (info))
b45b6908
AM		 1836 {
1837 switch (SPARC_ELF_R_TYPE (rel->r_info))
1838 {
1839 case R_SPARC_TLS_GD_CALL:
1840 case R_SPARC_TLS_LDM_CALL:
1841 /* This reloc implicitly references __tls_get_addr. We know
1842 another reloc will reference the same symbol as the one
1843 on this reloc, so the real symbol and section will be
1844 gc marked when processing the other reloc. That lets
1845 us handle __tls_get_addr here. */
1846 h = elf_link_hash_lookup (elf_hash_table (info), "__tls_get_addr",
1847 FALSE, FALSE, TRUE);
1848 BFD_ASSERT (h != NULL);
1849 h->mark = 1;
60d67dc8
AM		 1850 if (h->is_weakalias)
1851 weakdef (h)->mark = 1;
b45b6908
AM		 1852 sym = NULL;
1853 }
1854 }
1855
07adf181 1856 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
22b75d0a
DM		 1857}
1858
abd242a9
DM		 1859static Elf_Internal_Rela *
1860sparc_elf_find_reloc_at_ofs (Elf_Internal_Rela *rel,
1861 Elf_Internal_Rela *relend,
1862 bfd_vma offset)
1863{
1864 while (rel < relend)
1865 {
1866 if (rel->r_offset == offset)
1867 return rel;
1868 rel++;
1869 }
1870 return NULL;
1871}
1872
bb1dd176
QZ		 1873/* Remove undefined weak symbol from the dynamic symbol table if it
1874 is resolved to 0. */
1875
1876bfd_boolean
1877_bfd_sparc_elf_fixup_symbol (struct bfd_link_info *info,
07d6d2b8 1878 struct elf_link_hash_entry *h)
bb1dd176
QZ		 1879{
1880 if (h->dynindx != -1
1881 && UNDEFINED_WEAK_RESOLVED_TO_ZERO (info,
07d6d2b8 1882 _bfd_sparc_elf_hash_entry (h)))
bb1dd176
QZ		 1883 {
1884 h->dynindx = -1;
1885 _bfd_elf_strtab_delref (elf_hash_table (info)->dynstr,
07d6d2b8 1886 h->dynstr_index);
bb1dd176
QZ		 1887 }
1888 return TRUE;
1889}
1890
22b75d0a
DM		 1891/* Adjust a symbol defined by a dynamic object and referenced by a
1892 regular object. The current definition is in some section of the
1893 dynamic object, but we're not including those sections. We have to
1894 change the definition to something the rest of the link can
1895 understand. */
1896
1897bfd_boolean
1898_bfd_sparc_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
1899 struct elf_link_hash_entry *h)
1900{
1901 struct _bfd_sparc_elf_link_hash_table *htab;
5474d94f 1902 asection *s, *srel;
22b75d0a
DM		 1903
1904 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 1905 BFD_ASSERT (htab != NULL);
22b75d0a
DM		 1906
1907 /* Make sure we know what is going on here. */
1908 BFD_ASSERT (htab->elf.dynobj != NULL
1909 && (h->needs_plt
d0c9aeb3 1910 || h->type == STT_GNU_IFUNC
60d67dc8 1911 || h->is_weakalias
22b75d0a
DM		 1912 || (h->def_dynamic
1913 && h->ref_regular
1914 && !h->def_regular)));
1915
1916 /* If this is a function, put it in the procedure linkage table. We
1917 will fill in the contents of the procedure linkage table later
1918 (although we could actually do it here). The STT_NOTYPE
1919 condition is a hack specifically for the Oracle libraries
1920 delivered for Solaris; for some inexplicable reason, they define
1921 some of their functions as STT_NOTYPE when they really should be
1922 STT_FUNC. */
1923 if (h->type == STT_FUNC
d0c9aeb3 1924 || h->type == STT_GNU_IFUNC
22b75d0a
DM		 1925 || h->needs_plt
1926 || (h->type == STT_NOTYPE
1927 && (h->root.type == bfd_link_hash_defined
1928 || h->root.type == bfd_link_hash_defweak)
1929 && (h->root.u.def.section->flags & SEC_CODE) != 0))
1930 {
1931 if (h->plt.refcount <= 0
d0c9aeb3
DM		 1932 || (h->type != STT_GNU_IFUNC
1933 && (SYMBOL_CALLS_LOCAL (info, h)
a8735c82
EB		 1934 || (h->root.type == bfd_link_hash_undefweak
1935 && ELF_ST_VISIBILITY (h->other) != STV_DEFAULT))))
22b75d0a
DM		 1936 {
1937 /* This case can occur if we saw a WPLT30 reloc in an input
1938 file, but the symbol was never referred to by a dynamic
1939 object, or if all references were garbage collected. In
1940 such a case, we don't actually need to build a procedure
1941 linkage table, and we can just do a WDISP30 reloc instead. */
1942 h->plt.offset = (bfd_vma) -1;
1943 h->needs_plt = 0;
1944 }
1945
1946 return TRUE;
1947 }
1948 else
1949 h->plt.offset = (bfd_vma) -1;
1950
1951 /* If this is a weak symbol, and there is a real definition, the
1952 processor independent code will have arranged for us to see the
1953 real definition first, and we can just use the same value. */
60d67dc8 1954 if (h->is_weakalias)
22b75d0a 1955 {
60d67dc8
AM		 1956 struct elf_link_hash_entry *def = weakdef (h);
1957 BFD_ASSERT (def->root.type == bfd_link_hash_defined);
1958 h->root.u.def.section = def->root.u.def.section;
1959 h->root.u.def.value = def->root.u.def.value;
22b75d0a
DM		 1960 return TRUE;
1961 }
1962
1963 /* This is a reference to a symbol defined by a dynamic object which
1964 is not a function. */
1965
1966 /* If we are creating a shared library, we must presume that the
1967 only references to the symbol are via the global offset table.
1968 For such cases we need not do anything here; the relocations will
1969 be handled correctly by relocate_section. */
0e1862bb 1970 if (bfd_link_pic (info))
22b75d0a
DM		 1971 return TRUE;
1972
1973 /* If there are no references to this symbol that do not use the
1974 GOT, we don't need to generate a copy reloc. */
1975 if (!h->non_got_ref)
1976 return TRUE;
1977
72fbc6e5
DM		 1978 /* If -z nocopyreloc was given, we won't generate them either. */
1979 if (info->nocopyreloc)
1980 {
1981 h->non_got_ref = 0;
1982 return TRUE;
1983 }
1984
3bf083ed 1985 /* If we don't find any dynamic relocs in read-only sections, then
22b75d0a 1986 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
5dbc8b37 1987 if (!_bfd_elf_readonly_dynrelocs (h))
22b75d0a
DM		 1988 {
1989 h->non_got_ref = 0;
1990 return TRUE;
1991 }
1992
1993 /* We must allocate the symbol in our .dynbss section, which will
1994 become part of the .bss section of the executable. There will be
1995 an entry for this symbol in the .dynsym section. The dynamic
1996 object will contain position independent code, so all references
1997 from the dynamic object to this symbol will go through the global
1998 offset table. The dynamic linker will use the .dynsym entry to
1999 determine the address it must put in the global offset table, so
2000 both the dynamic object and the regular object will refer to the
2001 same memory location for the variable. */
2002
2003 /* We must generate a R_SPARC_COPY reloc to tell the dynamic linker
2004 to copy the initial value out of the dynamic object and into the
2005 runtime process image. We need to remember the offset into the
2006 .rel.bss section we are going to use. */
5474d94f
AM		 2007 if ((h->root.u.def.section->flags & SEC_READONLY) != 0)
2008 {
2009 s = htab->elf.sdynrelro;
2010 srel = htab->elf.sreldynrelro;
2011 }
2012 else
2013 {
2014 s = htab->elf.sdynbss;
2015 srel = htab->elf.srelbss;
2016 }
1d7e9d18 2017 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
22b75d0a 2018 {
5474d94f 2019 srel->size += SPARC_ELF_RELA_BYTES (htab);
22b75d0a
DM		 2020 h->needs_copy = 1;
2021 }
2022
6cabe1ea 2023 return _bfd_elf_adjust_dynamic_copy (info, h, s);
22b75d0a
DM		 2024}
2025
2026/* Allocate space in .plt, .got and associated reloc sections for
2027 dynamic relocs. */
2028
2029static bfd_boolean
2c3fc389 2030allocate_dynrelocs (struct elf_link_hash_entry *h, void * inf)
22b75d0a
DM		 2031{
2032 struct bfd_link_info *info;
2033 struct _bfd_sparc_elf_link_hash_table *htab;
2034 struct _bfd_sparc_elf_link_hash_entry *eh;
3bf083ed 2035 struct elf_dyn_relocs *p;
bb1dd176 2036 bfd_boolean resolved_to_zero;
22b75d0a
DM		 2037
2038 if (h->root.type == bfd_link_hash_indirect)
2039 return TRUE;
2040
22b75d0a
DM		 2041 info = (struct bfd_link_info *) inf;
2042 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 2043 BFD_ASSERT (htab != NULL);
22b75d0a 2044
bb1dd176
QZ		 2045 eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
2046 resolved_to_zero = UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh);
2047
d0c9aeb3
DM		 2048 if ((htab->elf.dynamic_sections_created
2049 && h->plt.refcount > 0)
2050 || (h->type == STT_GNU_IFUNC
b48ca1d4
DM		 2051 && h->def_regular
2052 && h->ref_regular))
22b75d0a 2053 {
a8735c82
EB		 2054 /* Undefined weak syms won't yet be marked as dynamic. */
2055 if (h->root.type == bfd_link_hash_undefweak
07d6d2b8 2056 && !resolved_to_zero
a8735c82
EB		 2057 && h->dynindx == -1
2058 && !h->forced_local)
22b75d0a
DM		 2059 {
2060 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2061 return FALSE;
2062 }
2063
0e1862bb 2064 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h)
b48ca1d4
DM		 2065 || (h->type == STT_GNU_IFUNC
2066 && h->def_regular))
22b75d0a 2067 {
72fbc6e5 2068 asection *s = htab->elf.splt;
22b75d0a 2069
d0c9aeb3
DM		 2070 if (s == NULL)
2071 s = htab->elf.iplt;
2072
910600e9 2073 /* Allocate room for the header. */
22b75d0a 2074 if (s->size == 0)
910600e9
RS		 2075 {
2076 s->size = htab->plt_header_size;
2077
2078 /* Allocate space for the .rela.plt.unloaded relocations. */
0e1862bb 2079 if (htab->is_vxworks && !bfd_link_pic (info))
910600e9
RS		 2080 htab->srelplt2->size = sizeof (Elf32_External_Rela) * 2;
2081 }
22b75d0a
DM		 2082
2083 /* The procedure linkage table size is bounded by the magnitude
2084 of the offset we can describe in the entry. */
2085 if (s->size >= (SPARC_ELF_WORD_BYTES(htab) == 8 ?
e8be8da4 2086 (((bfd_vma)1 << 31) << 1) : 0x400000))
22b75d0a
DM		 2087 {
2088 bfd_set_error (bfd_error_bad_value);
2089 return FALSE;
2090 }
2091
2092 if (SPARC_ELF_WORD_BYTES(htab) == 8
2093 && s->size >= PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE)
2094 {
2095 bfd_vma off = s->size - PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE;
2096
2097
2098 off = (off % (160 * PLT64_ENTRY_SIZE)) / PLT64_ENTRY_SIZE;
2099
2100 h->plt.offset = (s->size - (off * 8));
2101 }
2102 else
2103 h->plt.offset = s->size;
2104
2105 /* If this symbol is not defined in a regular file, and we are
2106 not generating a shared library, then set the symbol to this
2107 location in the .plt. This is required to make function
2108 pointers compare as equal between the normal executable and
2109 the shared library. */
0e1862bb 2110 if (! bfd_link_pic (info)
22b75d0a
DM		 2111 && !h->def_regular)
2112 {
2113 h->root.u.def.section = s;
2114 h->root.u.def.value = h->plt.offset;
2115 }
2116
2117 /* Make room for this entry. */
910600e9 2118 s->size += htab->plt_entry_size;
22b75d0a 2119
07d6d2b8
AM		 2120 /* There should be no PLT relocations against resolved undefined
2121 weak symbols in the executable. */
2122 if (!resolved_to_zero)
2123 {
bb1dd176
QZ		 2124 /* We also need to make an entry in the .rela.plt section. */
2125 if (s == htab->elf.splt)
07d6d2b8 2126 htab->elf.srelplt->size += SPARC_ELF_RELA_BYTES (htab);
bb1dd176 2127 else
07d6d2b8
AM		 2128 htab->elf.irelplt->size += SPARC_ELF_RELA_BYTES (htab);
2129 }
910600e9
RS		 2130
2131 if (htab->is_vxworks)
2132 {
2133 /* Allocate space for the .got.plt entry. */
72fbc6e5 2134 htab->elf.sgotplt->size += 4;
910600e9
RS		 2135
2136 /* ...and for the .rela.plt.unloaded relocations. */
0e1862bb 2137 if (!bfd_link_pic (info))
910600e9
RS		 2138 htab->srelplt2->size += sizeof (Elf32_External_Rela) * 3;
2139 }
22b75d0a
DM		 2140 }
2141 else
2142 {
2143 h->plt.offset = (bfd_vma) -1;
2144 h->needs_plt = 0;
2145 }
2146 }
2147 else
2148 {
2149 h->plt.offset = (bfd_vma) -1;
2150 h->needs_plt = 0;
2151 }
2152
2153 /* If R_SPARC_TLS_IE_{HI22,LO10} symbol is now local to the binary,
2154 make it a R_SPARC_TLS_LE_{HI22,LO10} requiring no TLS entry. */
2155 if (h->got.refcount > 0
c20c30f6 2156 && bfd_link_executable (info)
22b75d0a
DM		 2157 && h->dynindx == -1
2158 && _bfd_sparc_elf_hash_entry(h)->tls_type == GOT_TLS_IE)
2159 h->got.offset = (bfd_vma) -1;
2160 else if (h->got.refcount > 0)
2161 {
2162 asection *s;
2163 bfd_boolean dyn;
2164 int tls_type = _bfd_sparc_elf_hash_entry(h)->tls_type;
2165
a8735c82
EB		 2166 /* Undefined weak syms won't yet be marked as dynamic. */
2167 if (h->root.type == bfd_link_hash_undefweak
07d6d2b8 2168 && !resolved_to_zero
a8735c82
EB		 2169 && h->dynindx == -1
2170 && !h->forced_local)
22b75d0a
DM		 2171 {
2172 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2173 return FALSE;
2174 }
2175
72fbc6e5 2176 s = htab->elf.sgot;
22b75d0a
DM		 2177 h->got.offset = s->size;
2178 s->size += SPARC_ELF_WORD_BYTES (htab);
2179 /* R_SPARC_TLS_GD_HI{22,LO10} needs 2 consecutive GOT slots. */
2180 if (tls_type == GOT_TLS_GD)
2181 s->size += SPARC_ELF_WORD_BYTES (htab);
2182 dyn = htab->elf.dynamic_sections_created;
2183 /* R_SPARC_TLS_IE_{HI22,LO10} needs one dynamic relocation,
a8735c82 2184 R_SPARC_TLS_GD_{HI22,LO10} needs one if local and two if global. */
22b75d0a 2185 if ((tls_type == GOT_TLS_GD && h->dynindx == -1)
d0c9aeb3
DM		 2186 || tls_type == GOT_TLS_IE
2187 || h->type == STT_GNU_IFUNC)
72fbc6e5 2188 htab->elf.srelgot->size += SPARC_ELF_RELA_BYTES (htab);
22b75d0a 2189 else if (tls_type == GOT_TLS_GD)
72fbc6e5 2190 htab->elf.srelgot->size += 2 * SPARC_ELF_RELA_BYTES (htab);
a8735c82
EB		 2191 else if ((WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, bfd_link_pic (info), h)
2192 /* Even if the symbol isn't dynamic, we may generate a
2193 reloc for the dynamic linker in PIC mode. */
2194 || (h->dynindx == -1
2195 && !h->forced_local
2196 && h->root.type != bfd_link_hash_undefweak
2197 && bfd_link_pic (info)))
2198 /* No dynamic relocations are needed against resolved
2199 undefined weak symbols in an executable. */
2200 && !(h->root.type == bfd_link_hash_undefweak
2201 && (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2202 || resolved_to_zero)))
72fbc6e5 2203 htab->elf.srelgot->size += SPARC_ELF_RELA_BYTES (htab);
22b75d0a
DM		 2204 }
2205 else
2206 h->got.offset = (bfd_vma) -1;
2207
190eb1dd 2208 if (h->dyn_relocs == NULL)
22b75d0a
DM		 2209 return TRUE;
2210
2211 /* In the shared -Bsymbolic case, discard space allocated for
2212 dynamic pc-relative relocs against symbols which turn out to be
2213 defined in regular objects. For the normal shared case, discard
2214 space for pc-relative relocs that have become local due to symbol
2215 visibility changes. */
2216
0e1862bb 2217 if (bfd_link_pic (info))
22b75d0a 2218 {
72fbc6e5 2219 if (SYMBOL_CALLS_LOCAL (info, h))
22b75d0a 2220 {
3bf083ed 2221 struct elf_dyn_relocs **pp;
22b75d0a 2222
190eb1dd 2223 for (pp = &h->dyn_relocs; (p = *pp) != NULL; )
22b75d0a
DM		 2224 {
2225 p->count -= p->pc_count;
2226 p->pc_count = 0;
2227 if (p->count == 0)
2228 *pp = p->next;
2229 else
2230 pp = &p->next;
2231 }
2232 }
22d606e9 2233
3348747a
NS		 2234 if (htab->is_vxworks)
2235 {
3bf083ed 2236 struct elf_dyn_relocs **pp;
3348747a 2237
190eb1dd 2238 for (pp = &h->dyn_relocs; (p = *pp) != NULL; )
3348747a
NS		 2239 {
2240 if (strcmp (p->sec->output_section->name, ".tls_vars") == 0)
2241 *pp = p->next;
2242 else
2243 pp = &p->next;
2244 }
2245 }
2246
22d606e9 2247 /* Also discard relocs on undefined weak syms with non-default
bb1dd176 2248 visibility or in PIE. */
190eb1dd 2249 if (h->dyn_relocs != NULL
22d606e9
AM		 2250 && h->root.type == bfd_link_hash_undefweak)
2251 {
07d6d2b8 2252 /* An undefined weak symbol is never
bb1dd176
QZ		 2253 bound locally in a shared library. */
2254
2255 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
07d6d2b8
AM		 2256 || resolved_to_zero)
2257 {
2258 if (h->non_got_ref)
2259 {
2260 /* Keep dynamic non-GOT/non-PLT relocation so that we
2261 can branch to 0 without PLT. */
2262 struct elf_dyn_relocs **pp;
2263
190eb1dd 2264 for (pp = &h->dyn_relocs; (p = *pp) != NULL;)
07d6d2b8
AM		 2265 if (p->pc_count == 0)
2266 *pp = p->next;
2267 else
2268 {
2269 /* Remove other relocations. */
2270 p->count = p->pc_count;
2271 pp = &p->next;
2272 }
2273
190eb1dd 2274 if (h->dyn_relocs != NULL)
07d6d2b8
AM		 2275 {
2276 /* Make sure undefined weak symbols are output
2277 as dynamic symbols in PIEs for dynamic non-GOT
2278 non-PLT reloations. */
2279 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2280 return FALSE;
2281 }
2282 }
2283 else
190eb1dd 2284 h->dyn_relocs = NULL;
07d6d2b8 2285 }
22d606e9
AM		 2286
2287 /* Make sure undefined weak symbols are output as a dynamic
2288 symbol in PIEs. */
2289 else if (h->dynindx == -1
2290 && !h->forced_local)
2291 {
2292 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2293 return FALSE;
2294 }
2295 }
22b75d0a
DM		 2296 }
2297 else
2298 {
2299 /* For the non-shared case, discard space for relocs against
2300 symbols which turn out to need copy relocs or are not
2301 dynamic. */
2302
bb1dd176 2303 if ((!h->non_got_ref
07d6d2b8
AM		 2304 || (h->root.type == bfd_link_hash_undefweak
2305 && !resolved_to_zero))
22b75d0a
DM		 2306 && ((h->def_dynamic
2307 && !h->def_regular)
2308 || (htab->elf.dynamic_sections_created
2309 && (h->root.type == bfd_link_hash_undefweak
2310 || h->root.type == bfd_link_hash_undefined))))
2311 {
a8735c82
EB		 2312 /* Undefined weak syms won't yet be marked as dynamic. */
2313 if (h->root.type == bfd_link_hash_undefweak
07d6d2b8 2314 && !resolved_to_zero
a8735c82
EB		 2315 && h->dynindx == -1
2316 && !h->forced_local)
22b75d0a
DM		 2317 {
2318 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2319 return FALSE;
2320 }
2321
2322 /* If that succeeded, we know we'll be keeping all the
2323 relocs. */
2324 if (h->dynindx != -1)
2325 goto keep;
2326 }
2327
190eb1dd 2328 h->dyn_relocs = NULL;
22b75d0a
DM		 2329
2330 keep: ;
2331 }
2332
2333 /* Finally, allocate space. */
190eb1dd 2334 for (p = h->dyn_relocs; p != NULL; p = p->next)
22b75d0a
DM		 2335 {
2336 asection *sreloc = elf_section_data (p->sec)->sreloc;
2337 sreloc->size += p->count * SPARC_ELF_RELA_BYTES (htab);
2338 }
2339
2340 return TRUE;
2341}
2342
d0c9aeb3
DM		 2343/* Allocate space in .plt, .got and associated reloc sections for
2344 local dynamic relocs. */
2345
2346static bfd_boolean
2347allocate_local_dynrelocs (void **slot, void *inf)
2348{
2349 struct elf_link_hash_entry *h
2350 = (struct elf_link_hash_entry *) *slot;
2351
2352 if (h->type != STT_GNU_IFUNC
2353 || !h->def_regular
2354 || !h->ref_regular
2355 || !h->forced_local
2356 || h->root.type != bfd_link_hash_defined)
2357 abort ();
2358
2359 return allocate_dynrelocs (h, inf);
2360}
2361
22b75d0a
DM		 2362/* Return true if the dynamic symbol for a given section should be
2363 omitted when creating a shared library. */
2364
2365bfd_boolean
2366_bfd_sparc_elf_omit_section_dynsym (bfd *output_bfd,
2367 struct bfd_link_info *info,
2368 asection *p)
2369{
2370 /* We keep the .got section symbol so that explicit relocations
2371 against the _GLOBAL_OFFSET_TABLE_ symbol emitted in PIC mode
2372 can be turned into relocations against the .got symbol. */
2373 if (strcmp (p->name, ".got") == 0)
2374 return FALSE;
2375
d00dd7dc 2376 return _bfd_elf_omit_section_dynsym_default (output_bfd, info, p);
22b75d0a
DM		 2377}
2378
2379/* Set the sizes of the dynamic sections. */
2380
2381bfd_boolean
2382_bfd_sparc_elf_size_dynamic_sections (bfd *output_bfd,
2383 struct bfd_link_info *info)
2384{
2385 struct _bfd_sparc_elf_link_hash_table *htab;
2386 bfd *dynobj;
2387 asection *s;
2388 bfd *ibfd;
2389
2390 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 2391 BFD_ASSERT (htab != NULL);
22b75d0a
DM		 2392 dynobj = htab->elf.dynobj;
2393 BFD_ASSERT (dynobj != NULL);
2394
2395 if (elf_hash_table (info)->dynamic_sections_created)
2396 {
2397 /* Set the contents of the .interp section to the interpreter. */
9b8b325a 2398 if (bfd_link_executable (info) && !info->nointerp)
07d6d2b8
AM		 2399 {
2400 s = bfd_get_linker_section (dynobj, ".interp");
2401 BFD_ASSERT (s != NULL);
2402 s->size = htab->dynamic_interpreter_size;
2403 s->contents = (unsigned char *) htab->dynamic_interpreter;
2404 htab->interp = s;
2405 }
22b75d0a
DM		 2406 }
2407
2408 /* Set up .got offsets for local syms, and space for local dynamic
2409 relocs. */
c72f2fb2 2410 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
22b75d0a
DM		 2411 {
2412 bfd_signed_vma *local_got;
2413 bfd_signed_vma *end_local_got;
2414 char *local_tls_type;
2415 bfd_size_type locsymcount;
2416 Elf_Internal_Shdr *symtab_hdr;
2417 asection *srel;
2418
0ffa91dd 2419 if (! is_sparc_elf (ibfd))
22b75d0a
DM		 2420 continue;
2421
2422 for (s = ibfd->sections; s != NULL; s = s->next)
2423 {
3bf083ed 2424 struct elf_dyn_relocs *p;
22b75d0a 2425
6edfbbad 2426 for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
22b75d0a
DM		 2427 {
2428 if (!bfd_is_abs_section (p->sec)
2429 && bfd_is_abs_section (p->sec->output_section))
2430 {
2431 /* Input section has been discarded, either because
2432 it is a copy of a linkonce section or due to
2433 linker script /DISCARD/, so we'll be discarding
2434 the relocs too. */
2435 }
3348747a
NS		 2436 else if (htab->is_vxworks
2437 && strcmp (p->sec->output_section->name,
2438 ".tls_vars") == 0)
2439 {
2440 /* Relocations in vxworks .tls_vars sections are
2441 handled specially by the loader. */
2442 }
22b75d0a
DM		 2443 else if (p->count != 0)
2444 {
2445 srel = elf_section_data (p->sec)->sreloc;
d0c9aeb3
DM		 2446 if (!htab->elf.dynamic_sections_created)
2447 srel = htab->elf.irelplt;
22b75d0a
DM		 2448 srel->size += p->count * SPARC_ELF_RELA_BYTES (htab);
2449 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
f0f07ad1
L		 2450 {
2451 info->flags |= DF_TEXTREL;
871b3ab2 2452 info->callbacks->minfo (_("%pB: dynamic relocation in read-only section `%pA'\n"),
f0f07ad1
L		 2453 p->sec->owner, p->sec);
2454 }
22b75d0a
DM		 2455 }
2456 }
2457 }
2458
2459 local_got = elf_local_got_refcounts (ibfd);
2460 if (!local_got)
2461 continue;
2462
0ffa91dd 2463 symtab_hdr = &elf_symtab_hdr (ibfd);
22b75d0a
DM		 2464 locsymcount = symtab_hdr->sh_info;
2465 end_local_got = local_got + locsymcount;
2466 local_tls_type = _bfd_sparc_elf_local_got_tls_type (ibfd);
72fbc6e5
DM		 2467 s = htab->elf.sgot;
2468 srel = htab->elf.srelgot;
22b75d0a
DM		 2469 for (; local_got < end_local_got; ++local_got, ++local_tls_type)
2470 {
2471 if (*local_got > 0)
2472 {
2473 *local_got = s->size;
2474 s->size += SPARC_ELF_WORD_BYTES (htab);
2475 if (*local_tls_type == GOT_TLS_GD)
2476 s->size += SPARC_ELF_WORD_BYTES (htab);
0e1862bb 2477 if (bfd_link_pic (info)
22b75d0a
DM		 2478 || *local_tls_type == GOT_TLS_GD
2479 || *local_tls_type == GOT_TLS_IE)
2480 srel->size += SPARC_ELF_RELA_BYTES (htab);
2481 }
2482 else
2483 *local_got = (bfd_vma) -1;
2484 }
2485 }
2486
2487 if (htab->tls_ldm_got.refcount > 0)
2488 {
2489 /* Allocate 2 got entries and 1 dynamic reloc for
2490 R_SPARC_TLS_LDM_{HI22,LO10} relocs. */
72fbc6e5
DM		 2491 htab->tls_ldm_got.offset = htab->elf.sgot->size;
2492 htab->elf.sgot->size += (2 * SPARC_ELF_WORD_BYTES (htab));
2493 htab->elf.srelgot->size += SPARC_ELF_RELA_BYTES (htab);
22b75d0a
DM		 2494 }
2495 else
2496 htab->tls_ldm_got.offset = -1;
2497
2498 /* Allocate global sym .plt and .got entries, and space for global
2499 sym dynamic relocs. */
2c3fc389 2500 elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, info);
22b75d0a 2501
d0c9aeb3
DM		 2502 /* Allocate .plt and .got entries, and space for local symbols. */
2503 htab_traverse (htab->loc_hash_table, allocate_local_dynrelocs, info);
2504
0fc9967d
JM		 2505 if (! ABI_64_P (output_bfd)
2506 && !htab->is_vxworks
22b75d0a
DM		 2507 && elf_hash_table (info)->dynamic_sections_created)
2508 {
0fc9967d
JM		 2509 /* Make space for the trailing nop in .plt. */
2510 if (htab->elf.splt->size > 0)
2511 htab->elf.splt->size += 1 * SPARC_INSN_BYTES;
22b75d0a
DM		 2512
2513 /* If the .got section is more than 0x1000 bytes, we add
2514 0x1000 to the value of _GLOBAL_OFFSET_TABLE_, so that 13
0fc9967d
JM		 2515 bit relocations have a greater chance of working.
2516
2517 FIXME: Make this optimization work for 64-bit too. */
72fbc6e5 2518 if (htab->elf.sgot->size >= 0x1000
22b75d0a
DM		 2519 && elf_hash_table (info)->hgot->root.u.def.value == 0)
2520 elf_hash_table (info)->hgot->root.u.def.value = 0x1000;
2521 }
2522
2523 /* The check_relocs and adjust_dynamic_symbol entry points have
2524 determined the sizes of the various dynamic sections. Allocate
2525 memory for them. */
2526 for (s = dynobj->sections; s != NULL; s = s->next)
2527 {
22b75d0a
DM		 2528 if ((s->flags & SEC_LINKER_CREATED) == 0)
2529 continue;
2530
72fbc6e5
DM		 2531 if (s == htab->elf.splt
2532 || s == htab->elf.sgot
9d19e4fd 2533 || s == htab->elf.sdynbss
5474d94f 2534 || s == htab->elf.sdynrelro
d0c9aeb3 2535 || s == htab->elf.iplt
72fbc6e5 2536 || s == htab->elf.sgotplt)
22b75d0a 2537 {
c456f082
AM		 2538 /* Strip this section if we don't need it; see the
2539 comment below. */
2540 }
0112cd26 2541 else if (CONST_STRNEQ (s->name, ".rela"))
c456f082
AM		 2542 {
2543 if (s->size != 0)
22b75d0a
DM		 2544 {
2545 /* We use the reloc_count field as a counter if we need
2546 to copy relocs into the output file. */
2547 s->reloc_count = 0;
2548 }
2549 }
c456f082 2550 else
22b75d0a 2551 {
c456f082 2552 /* It's not one of our sections. */
22b75d0a
DM		 2553 continue;
2554 }
2555
c456f082 2556 if (s->size == 0)
22b75d0a 2557 {
c456f082
AM		 2558 /* If we don't need this section, strip it from the
2559 output file. This is mostly to handle .rela.bss and
2560 .rela.plt. We must create both sections in
2561 create_dynamic_sections, because they must be created
2562 before the linker maps input sections to output
2563 sections. The linker does that before
2564 adjust_dynamic_symbol is called, and it is that
2565 function which decides whether anything needs to go
2566 into these sections. */
8423293d 2567 s->flags |= SEC_EXCLUDE;
22b75d0a
DM		 2568 continue;
2569 }
2570
c456f082
AM		 2571 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2572 continue;
2573
22b75d0a
DM		 2574 /* Allocate memory for the section contents. Zero the memory
2575 for the benefit of .rela.plt, which has 4 unused entries
2576 at the beginning, and we don't want garbage. */
2577 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
c456f082 2578 if (s->contents == NULL)
22b75d0a
DM		 2579 return FALSE;
2580 }
2581
2582 if (elf_hash_table (info)->dynamic_sections_created)
2583 {
2584 /* Add some entries to the .dynamic section. We fill in the
2585 values later, in _bfd_sparc_elf_finish_dynamic_sections, but we
2586 must add the entries now so that we get the correct size for
2587 the .dynamic section. The DT_DEBUG entry is filled in by the
2588 dynamic linker and used by the debugger. */
2589#define add_dynamic_entry(TAG, VAL) \
2590 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2591
0e1862bb 2592 if (bfd_link_executable (info))
22b75d0a
DM		 2593 {
2594 if (!add_dynamic_entry (DT_DEBUG, 0))
2595 return FALSE;
2596 }
2597
72fbc6e5 2598 if (htab->elf.srelplt->size != 0)
22b75d0a
DM		 2599 {
2600 if (!add_dynamic_entry (DT_PLTGOT, 0)
2601 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2602 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2603 || !add_dynamic_entry (DT_JMPREL, 0))
2604 return FALSE;
2605 }
2606
2607 if (!add_dynamic_entry (DT_RELA, 0)
2608 || !add_dynamic_entry (DT_RELASZ, 0)
2609 || !add_dynamic_entry (DT_RELAENT,
2610 SPARC_ELF_RELA_BYTES (htab)))
2611 return FALSE;
2612
2613 /* If any dynamic relocs apply to a read-only section,
2614 then we need a DT_TEXTREL entry. */
2615 if ((info->flags & DF_TEXTREL) == 0)
d49e5065
L		 2616 elf_link_hash_traverse (&htab->elf,
2617 _bfd_elf_maybe_set_textrel, info);
22b75d0a
DM		 2618
2619 if (info->flags & DF_TEXTREL)
2620 {
2621 if (!add_dynamic_entry (DT_TEXTREL, 0))
2622 return FALSE;
2623 }
2624
2625 if (ABI_64_P (output_bfd))
2626 {
2627 int reg;
2628 struct _bfd_sparc_elf_app_reg * app_regs;
2629 struct elf_strtab_hash *dynstr;
2630 struct elf_link_hash_table *eht = elf_hash_table (info);
2631
2632 /* Add dynamic STT_REGISTER symbols and corresponding DT_SPARC_REGISTER
2633 entries if needed. */
2634 app_regs = _bfd_sparc_elf_hash_table (info)->app_regs;
2635 dynstr = eht->dynstr;
2636
2637 for (reg = 0; reg < 4; reg++)
2638 if (app_regs [reg].name != NULL)
2639 {
2640 struct elf_link_local_dynamic_entry *entry, *e;
2641
2642 if (!add_dynamic_entry (DT_SPARC_REGISTER, 0))
2643 return FALSE;
2644
2645 entry = (struct elf_link_local_dynamic_entry *)
2646 bfd_hash_allocate (&info->hash->table, sizeof (*entry));
2647 if (entry == NULL)
2648 return FALSE;
2649
2650 /* We cheat here a little bit: the symbol will not be local, so we
2651 put it at the end of the dynlocal linked list. We will fix it
2652 later on, as we have to fix other fields anyway. */
2653 entry->isym.st_value = reg < 2 ? reg + 2 : reg + 4;
2654 entry->isym.st_size = 0;
2655 if (*app_regs [reg].name != '\0')
2656 entry->isym.st_name
2657 = _bfd_elf_strtab_add (dynstr, app_regs[reg].name, FALSE);
2658 else
2659 entry->isym.st_name = 0;
2660 entry->isym.st_other = 0;
2661 entry->isym.st_info = ELF_ST_INFO (app_regs [reg].bind,
2662 STT_REGISTER);
2663 entry->isym.st_shndx = app_regs [reg].shndx;
35fc36a8 2664 entry->isym.st_target_internal = 0;
22b75d0a
DM		 2665 entry->next = NULL;
2666 entry->input_bfd = output_bfd;
2667 entry->input_indx = -1;
2668
2669 if (eht->dynlocal == NULL)
2670 eht->dynlocal = entry;
2671 else
2672 {
2673 for (e = eht->dynlocal; e->next; e = e->next)
2674 ;
2675 e->next = entry;
2676 }
2677 eht->dynsymcount++;
2678 }
2679 }
7a2b07ff
NS		 2680 if (htab->is_vxworks
2681 && !elf_vxworks_add_dynamic_entries (output_bfd, info))
2682 return FALSE;
22b75d0a
DM		 2683 }
2684#undef add_dynamic_entry
2685
2686 return TRUE;
2687}
2688\f
2689bfd_boolean
2690_bfd_sparc_elf_new_section_hook (bfd *abfd, asection *sec)
2691{
f592407e
AM		 2692 if (!sec->used_by_bfd)
2693 {
2694 struct _bfd_sparc_elf_section_data *sdata;
986f0783 2695 size_t amt = sizeof (*sdata);
22b75d0a 2696
f592407e
AM		 2697 sdata = bfd_zalloc (abfd, amt);
2698 if (sdata == NULL)
2699 return FALSE;
2700 sec->used_by_bfd = sdata;
2701 }
22b75d0a
DM		 2702
2703 return _bfd_elf_new_section_hook (abfd, sec);
2704}
2705
2706bfd_boolean
2707_bfd_sparc_elf_relax_section (bfd *abfd ATTRIBUTE_UNUSED,
2708 struct bfd_section *section,
2709 struct bfd_link_info *link_info ATTRIBUTE_UNUSED,
2710 bfd_boolean *again)
2711{
0e1862bb 2712 if (bfd_link_relocatable (link_info))
c8a1f254
NS		 2713 (*link_info->callbacks->einfo)
2714 (_("%P%F: --relax and -r may not be used together\n"));
2715
22b75d0a
DM		 2716 *again = FALSE;
2717 sec_do_relax (section) = 1;
2718 return TRUE;
2719}
2720\f
2721/* Return the base VMA address which should be subtracted from real addresses
2722 when resolving @dtpoff relocation.
2723 This is PT_TLS segment p_vaddr. */
2724
2725static bfd_vma
2726dtpoff_base (struct bfd_link_info *info)
2727{
2728 /* If tls_sec is NULL, we should have signalled an error already. */
2729 if (elf_hash_table (info)->tls_sec == NULL)
2730 return 0;
2731 return elf_hash_table (info)->tls_sec->vma;
2732}
2733
2734/* Return the relocation value for @tpoff relocation
2735 if STT_TLS virtual address is ADDRESS. */
2736
2737static bfd_vma
2738tpoff (struct bfd_link_info *info, bfd_vma address)
2739{
2740 struct elf_link_hash_table *htab = elf_hash_table (info);
1360ba76
RO		 2741 const struct elf_backend_data *bed = get_elf_backend_data (info->output_bfd);
2742 bfd_vma static_tls_size;
22b75d0a
DM		 2743
2744 /* If tls_sec is NULL, we should have signalled an error already. */
2745 if (htab->tls_sec == NULL)
2746 return 0;
1360ba76
RO		 2747
2748 /* Consider special static TLS alignment requirements. */
2749 static_tls_size = BFD_ALIGN (htab->tls_size, bed->static_tls_alignment);
2750 return address - static_tls_size - htab->tls_sec->vma;
22b75d0a
DM		 2751}
2752
00c50991
DM		 2753/* Return the relocation value for a %gdop relocation. */
2754
2755static bfd_vma
2756gdopoff (struct bfd_link_info *info, bfd_vma address)
2757{
2758 struct elf_link_hash_table *htab = elf_hash_table (info);
2759 bfd_vma got_base;
2760
2761 got_base = (htab->hgot->root.u.def.value
2762 + htab->hgot->root.u.def.section->output_offset
2763 + htab->hgot->root.u.def.section->output_section->vma);
2764
2765 return address - got_base;
2766}
2767
5b86074c
AM		 2768/* Return whether H is local and its ADDRESS is within 4G of
2769 _GLOBAL_OFFSET_TABLE_ and thus the offset may be calculated by a
2770 sethi, xor sequence. */
2771
2772static bfd_boolean
2773gdop_relative_offset_ok (struct bfd_link_info *info,
2774 struct elf_link_hash_entry *h,
2775 bfd_vma address ATTRIBUTE_UNUSED)
2776{
2777 if (!SYMBOL_REFERENCES_LOCAL (info, h))
2778 return FALSE;
2779 /* If H is undefined, ADDRESS will be zero. We can't allow a
2780 relative offset to "zero" when producing PIEs or shared libs.
2781 Note that to get here with an undefined symbol it must also be
2782 hidden or internal visibility. */
2783 if (bfd_link_pic (info)
2784 && h != NULL
2785 && (h->root.type == bfd_link_hash_undefweak
2786 || h->root.type == bfd_link_hash_undefined))
2787 return FALSE;
2788#ifdef BFD64
2789 return gdopoff (info, address) + ((bfd_vma) 1 << 32) < (bfd_vma) 2 << 32;
2790#else
2791 return TRUE;
2792#endif
2793}
2794
22b75d0a
DM		 2795/* Relocate a SPARC ELF section. */
2796
2797bfd_boolean
ab96bf03
AM		 2798_bfd_sparc_elf_relocate_section (bfd *output_bfd,
2799 struct bfd_link_info *info,
2800 bfd *input_bfd,
2801 asection *input_section,
2802 bfd_byte *contents,
2803 Elf_Internal_Rela *relocs,
2804 Elf_Internal_Sym *local_syms,
2805 asection **local_sections)
22b75d0a
DM		 2806{
2807 struct _bfd_sparc_elf_link_hash_table *htab;
2808 Elf_Internal_Shdr *symtab_hdr;
2809 struct elf_link_hash_entry **sym_hashes;
2810 bfd_vma *local_got_offsets;
2811 bfd_vma got_base;
2812 asection *sreloc;
2813 Elf_Internal_Rela *rel;
2814 Elf_Internal_Rela *relend;
2815 int num_relocs;
3348747a 2816 bfd_boolean is_vxworks_tls;
22b75d0a 2817
22b75d0a 2818 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 2819 BFD_ASSERT (htab != NULL);
0ffa91dd 2820 symtab_hdr = &elf_symtab_hdr (input_bfd);
22b75d0a
DM		 2821 sym_hashes = elf_sym_hashes (input_bfd);
2822 local_got_offsets = elf_local_got_offsets (input_bfd);
2823
2824 if (elf_hash_table (info)->hgot == NULL)
2825 got_base = 0;
2826 else
2827 got_base = elf_hash_table (info)->hgot->root.u.def.value;
2828
2829 sreloc = elf_section_data (input_section)->sreloc;
3348747a
NS		 2830 /* We have to handle relocations in vxworks .tls_vars sections
2831 specially, because the dynamic loader is 'weird'. */
0e1862bb 2832 is_vxworks_tls = (htab->is_vxworks && bfd_link_pic (info)
3348747a
NS		 2833 && !strcmp (input_section->output_section->name,
2834 ".tls_vars"));
22b75d0a
DM		 2835
2836 rel = relocs;
2837 if (ABI_64_P (output_bfd))
d4730f92 2838 num_relocs = NUM_SHDR_ENTRIES (_bfd_elf_single_rel_hdr (input_section));
22b75d0a
DM		 2839 else
2840 num_relocs = input_section->reloc_count;
2841 relend = relocs + num_relocs;
2842 for (; rel < relend; rel++)
2843 {
2844 int r_type, tls_type;
2845 reloc_howto_type *howto;
2846 unsigned long r_symndx;
2847 struct elf_link_hash_entry *h;
bb1dd176 2848 struct _bfd_sparc_elf_link_hash_entry *eh;
22b75d0a
DM		 2849 Elf_Internal_Sym *sym;
2850 asection *sec;
2851 bfd_vma relocation, off;
2852 bfd_reloc_status_type r;
2853 bfd_boolean is_plt = FALSE;
2854 bfd_boolean unresolved_reloc;
bb1dd176 2855 bfd_boolean resolved_to_zero;
ec1acaba 2856 bfd_boolean relative_reloc;
22b75d0a
DM		 2857
2858 r_type = SPARC_ELF_R_TYPE (rel->r_info);
2859 if (r_type == R_SPARC_GNU_VTINHERIT
2860 || r_type == R_SPARC_GNU_VTENTRY)
2861 continue;
2862
2863 if (r_type < 0 || r_type >= (int) R_SPARC_max_std)
2864 {
2865 bfd_set_error (bfd_error_bad_value);
2866 return FALSE;
2867 }
22b75d0a 2868
c20c30f6 2869 howto = _bfd_sparc_elf_howto_table + r_type;
22b75d0a
DM		 2870 r_symndx = SPARC_ELF_R_SYMNDX (htab, rel->r_info);
2871 h = NULL;
2872 sym = NULL;
2873 sec = NULL;
2874 unresolved_reloc = FALSE;
2875 if (r_symndx < symtab_hdr->sh_info)
2876 {
2877 sym = local_syms + r_symndx;
2878 sec = local_sections[r_symndx];
2879 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
d0c9aeb3 2880
0e1862bb 2881 if (!bfd_link_relocatable (info)
d0c9aeb3
DM		 2882 && ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
2883 {
2884 /* Relocate against local STT_GNU_IFUNC symbol. */
2885 h = elf_sparc_get_local_sym_hash (htab, input_bfd,
2886 rel, FALSE);
2887 if (h == NULL)
2888 abort ();
2889
68ffbac6 2890 /* Set STT_GNU_IFUNC symbol value. */
d0c9aeb3
DM		 2891 h->root.u.def.value = sym->st_value;
2892 h->root.u.def.section = sec;
2893 }
22b75d0a
DM		 2894 }
2895 else
2896 {
62d887d4 2897 bfd_boolean warned, ignored;
22b75d0a
DM		 2898
2899 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2900 r_symndx, symtab_hdr, sym_hashes,
2901 h, sec, relocation,
62d887d4 2902 unresolved_reloc, warned, ignored);
22b75d0a
DM		 2903 if (warned)
2904 {
2905 /* To avoid generating warning messages about truncated
2906 relocations, set the relocation's address to be the same as
2907 the start of this section. */
2908 if (input_section->output_section != NULL)
2909 relocation = input_section->output_section->vma;
2910 else
2911 relocation = 0;
2912 }
2913 }
2914
dbaa2011 2915 if (sec != NULL && discarded_section (sec))
e4067dbb 2916 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
545fd46b 2917 rel, 1, relend, howto, 0, contents);
ab96bf03 2918
0e1862bb 2919 if (bfd_link_relocatable (info))
ab96bf03
AM		 2920 continue;
2921
d0c9aeb3
DM		 2922 if (h != NULL
2923 && h->type == STT_GNU_IFUNC
2924 && h->def_regular)
2925 {
2926 asection *plt_sec;
2927 const char *name;
2928
2929 if ((input_section->flags & SEC_ALLOC) == 0
2930 || h->plt.offset == (bfd_vma) -1)
f657f8c4
NC		 2931 {
2932 /* If this is a SHT_NOTE section without SHF_ALLOC, treat
2933 STT_GNU_IFUNC symbol as STT_FUNC. */
2934 if (elf_section_type (input_section) == SHT_NOTE)
2935 goto skip_ifunc;
2936 abort ();
2937 }
d0c9aeb3
DM		 2938
2939 plt_sec = htab->elf.splt;
2940 if (! plt_sec)
2941 plt_sec =htab->elf.iplt;
2942
2943 switch (r_type)
2944 {
00c50991
DM		 2945 case R_SPARC_GOTDATA_OP:
2946 continue;
2947
d0c9aeb3
DM		 2948 case R_SPARC_GOTDATA_OP_HIX22:
2949 case R_SPARC_GOTDATA_OP_LOX10:
00c50991
DM		 2950 r_type = (r_type == R_SPARC_GOTDATA_OP_HIX22
2951 ? R_SPARC_GOT22
2952 : R_SPARC_GOT10);
2953 howto = _bfd_sparc_elf_howto_table + r_type;
2954 /* Fall through. */
2955
d0c9aeb3
DM		 2956 case R_SPARC_GOT10:
2957 case R_SPARC_GOT13:
2958 case R_SPARC_GOT22:
2959 if (htab->elf.sgot == NULL)
2960 abort ();
2961 off = h->got.offset;
2962 if (off == (bfd_vma) -1)
2963 abort();
2964 relocation = htab->elf.sgot->output_offset + off - got_base;
2965 goto do_relocation;
2966
2967 case R_SPARC_WPLT30:
2968 case R_SPARC_WDISP30:
2969 relocation = (plt_sec->output_section->vma
2970 + plt_sec->output_offset + h->plt.offset);
2971 goto do_relocation;
2972
2973 case R_SPARC_32:
2974 case R_SPARC_64:
0e1862bb 2975 if (bfd_link_pic (info) && h->non_got_ref)
d0c9aeb3
DM		 2976 {
2977 Elf_Internal_Rela outrel;
2978 bfd_vma offset;
2979
2980 offset = _bfd_elf_section_offset (output_bfd, info,
2981 input_section,
2982 rel->r_offset);
2983 if (offset == (bfd_vma) -1
2984 || offset == (bfd_vma) -2)
2985 abort();
2986
2987 outrel.r_offset = (input_section->output_section->vma
2988 + input_section->output_offset
2989 + offset);
2990
2991 if (h->dynindx == -1
2992 || h->forced_local
0e1862bb 2993 || bfd_link_executable (info))
d0c9aeb3
DM		 2994 {
2995 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
2996 0, R_SPARC_IRELATIVE);
2997 outrel.r_addend = relocation + rel->r_addend;
2998 }
2999 else
3000 {
3001 if (h->dynindx == -1)
3002 abort();
3003 outrel.r_info = SPARC_ELF_R_INFO (htab, rel, h->dynindx, r_type);
3004 outrel.r_addend = rel->r_addend;
3005 }
3006
3007 sparc_elf_append_rela (output_bfd, sreloc, &outrel);
3008 continue;
3009 }
3010
3011 relocation = (plt_sec->output_section->vma
3012 + plt_sec->output_offset + h->plt.offset);
3013 goto do_relocation;
3014
3015 case R_SPARC_HI22:
3016 case R_SPARC_LO10:
3017 /* We should only see such relocs in static links. */
0e1862bb 3018 if (bfd_link_pic (info))
d0c9aeb3
DM		 3019 abort();
3020 relocation = (plt_sec->output_section->vma
3021 + plt_sec->output_offset + h->plt.offset);
3022 goto do_relocation;
3023
3024 default:
3025 if (h->root.root.string)
3026 name = h->root.root.string;
3027 else
3028 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
3029 NULL);
4eca0228 3030 _bfd_error_handler
695344c0 3031 /* xgettext:c-format */
871b3ab2 3032 (_("%pB: relocation %s against STT_GNU_IFUNC "
d0c9aeb3
DM		 3033 "symbol `%s' isn't handled by %s"), input_bfd,
3034 _bfd_sparc_elf_howto_table[r_type].name,
3035 name, __FUNCTION__);
3036 bfd_set_error (bfd_error_bad_value);
3037 return FALSE;
3038 }
3039 }
3040
f657f8c4 3041 skip_ifunc:
bb1dd176 3042 eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
c20c30f6 3043 resolved_to_zero = eh && UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh);
bb1dd176 3044
22b75d0a
DM		 3045 switch (r_type)
3046 {
739f7f82
DM		 3047 case R_SPARC_GOTDATA_OP_HIX22:
3048 case R_SPARC_GOTDATA_OP_LOX10:
5b86074c 3049 if (gdop_relative_offset_ok (info, h, relocation))
cc133f9f
JC		 3050 {
3051 r_type = (r_type == R_SPARC_GOTDATA_OP_HIX22
3052 ? R_SPARC_GOTDATA_HIX22
3053 : R_SPARC_GOTDATA_LOX10);
3054 howto = _bfd_sparc_elf_howto_table + r_type;
3055 }
00c50991
DM		 3056 break;
3057
3058 case R_SPARC_GOTDATA_OP:
5b86074c 3059 if (gdop_relative_offset_ok (info, h, relocation))
00c50991
DM		 3060 {
3061 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3062
3063 /* {ld,ldx} [%rs1 + %rs2], %rd --> add %rs1, %rs2, %rd */
3064 relocation = 0x80000000 | (insn & 0x3e07c01f);
3065 bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
a8735c82
EB		 3066
3067 /* If the symbol is global but not dynamic, an .rela.* slot has
f8745e1c
EB		 3068 been allocated for it in the GOT so output R_SPARC_NONE here,
3069 if it isn't also subject to another, old-style GOT relocation.
3070 See also the handling of these GOT relocations just below. */
a8735c82
EB		 3071 if (h != NULL
3072 && h->dynindx == -1
3073 && !h->forced_local
3074 && h->root.type != bfd_link_hash_undefweak
f8745e1c 3075 && !eh->has_old_style_got_reloc
a8735c82
EB		 3076 && (h->got.offset & 1) == 0
3077 && bfd_link_pic (info))
3078 {
3079 asection *s = htab->elf.srelgot;
3080 Elf_Internal_Rela outrel;
3081
3082 BFD_ASSERT (s != NULL);
3083
3084 memset (&outrel, 0, sizeof outrel);
3085 sparc_elf_append_rela (output_bfd, s, &outrel);
3086 h->got.offset |= 1;
3087 }
00c50991
DM		 3088 }
3089 continue;
3090 }
3091
3092 switch (r_type)
3093 {
3094 case R_SPARC_GOTDATA_HIX22:
3095 case R_SPARC_GOTDATA_LOX10:
3096 relocation = gdopoff (info, relocation);
3097 break;
739f7f82 3098
cc133f9f
JC		 3099 case R_SPARC_GOTDATA_OP_HIX22:
3100 case R_SPARC_GOTDATA_OP_LOX10:
22b75d0a
DM		 3101 case R_SPARC_GOT10:
3102 case R_SPARC_GOT13:
3103 case R_SPARC_GOT22:
3104 /* Relocation is to the entry for this symbol in the global
3105 offset table. */
72fbc6e5 3106 if (htab->elf.sgot == NULL)
22b75d0a
DM		 3107 abort ();
3108
ec1acaba 3109 relative_reloc = FALSE;
22b75d0a
DM		 3110 if (h != NULL)
3111 {
3112 bfd_boolean dyn;
3113
3114 off = h->got.offset;
3115 BFD_ASSERT (off != (bfd_vma) -1);
3116 dyn = elf_hash_table (info)->dynamic_sections_created;
3117
0e1862bb
L		 3118 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
3119 bfd_link_pic (info),
3120 h)
3121 || (bfd_link_pic (info)
72fbc6e5 3122 && SYMBOL_REFERENCES_LOCAL (info, h)))
22b75d0a
DM		 3123 {
3124 /* This is actually a static link, or it is a
3125 -Bsymbolic link and the symbol is defined
3126 locally, or the symbol was forced to be local
3127 because of a version file. We must initialize
3128 this entry in the global offset table. Since the
3129 offset must always be a multiple of 8 for 64-bit
3130 and 4 for 32-bit, we use the least significant bit
3131 to record whether we have initialized it already.
3132
3133 When doing a dynamic link, we create a .rela.got
3134 relocation entry to initialize the value. This
3135 is done in the finish_dynamic_symbol routine. */
3136 if ((off & 1) != 0)
3137 off &= ~1;
3138 else
3139 {
a8735c82
EB		 3140 /* If this symbol isn't dynamic in PIC mode, treat it
3141 like a local symbol in PIC mode below. */
ec1acaba
EB		 3142 if (h->dynindx == -1
3143 && !h->forced_local
3144 && h->root.type != bfd_link_hash_undefweak
3145 && bfd_link_pic (info))
a8735c82 3146 relative_reloc = TRUE;
a9d44aad
AM		 3147 else
3148 SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
3149 htab->elf.sgot->contents + off);
3150 h->got.offset |= 1;
22b75d0a
DM		 3151 }
3152 }
3153 else
3154 unresolved_reloc = FALSE;
3155 }
3156 else
3157 {
3158 BFD_ASSERT (local_got_offsets != NULL
3159 && local_got_offsets[r_symndx] != (bfd_vma) -1);
3160
3161 off = local_got_offsets[r_symndx];
3162
3163 /* The offset must always be a multiple of 8 on 64-bit and
3164 4 on 32-bit. We use the least significant bit to record
3165 whether we have already processed this entry. */
3166 if ((off & 1) != 0)
3167 off &= ~1;
3168 else
3169 {
a8735c82
EB		 3170 /* For a local symbol in PIC mode, we need to generate a
3171 R_SPARC_RELATIVE reloc for the dynamic linker. */
0e1862bb 3172 if (bfd_link_pic (info))
a9d44aad
AM		 3173 relative_reloc = TRUE;
3174 else
3175 SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
3176 htab->elf.sgot->contents + off);
22b75d0a
DM		 3177 local_got_offsets[r_symndx] |= 1;
3178 }
3179 }
ec1acaba
EB		 3180
3181 if (relative_reloc)
3182 {
a8735c82 3183 asection *s = htab->elf.srelgot;
ec1acaba
EB		 3184 Elf_Internal_Rela outrel;
3185
ec1acaba
EB		 3186 BFD_ASSERT (s != NULL);
3187
3188 outrel.r_offset = (htab->elf.sgot->output_section->vma
3189 + htab->elf.sgot->output_offset
3190 + off);
3191 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
3192 0, R_SPARC_RELATIVE);
3193 outrel.r_addend = relocation;
ec1acaba 3194 sparc_elf_append_rela (output_bfd, s, &outrel);
a9d44aad
AM		 3195 /* Versions of glibc ld.so at least up to 2.26 wrongly
3196 add the section contents to the value calculated for
3197 a RELATIVE reloc. Zero the contents to work around
3198 this bug. */
3199 relocation = 0;
3200 SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
3201 htab->elf.sgot->contents + off);
ec1acaba
EB		 3202 }
3203
72fbc6e5 3204 relocation = htab->elf.sgot->output_offset + off - got_base;
22b75d0a
DM		 3205 break;
3206
3207 case R_SPARC_PLT32:
3208 case R_SPARC_PLT64:
3209 if (h == NULL || h->plt.offset == (bfd_vma) -1)
3210 {
3211 r_type = (r_type == R_SPARC_PLT32) ? R_SPARC_32 : R_SPARC_64;
3212 goto r_sparc_plt32;
3213 }
3214 /* Fall through. */
3215
3216 case R_SPARC_WPLT30:
3217 case R_SPARC_HIPLT22:
3218 case R_SPARC_LOPLT10:
3219 case R_SPARC_PCPLT32:
3220 case R_SPARC_PCPLT22:
3221 case R_SPARC_PCPLT10:
3222 r_sparc_wplt30:
3223 /* Relocation is to the entry for this symbol in the
3224 procedure linkage table. */
3225
3226 if (! ABI_64_P (output_bfd))
3227 {
3228 /* The Solaris native assembler will generate a WPLT30 reloc
3229 for a local symbol if you assemble a call from one
3230 section to another when using -K pic. We treat it as
3231 WDISP30. */
3232 if (h == NULL)
3233 break;
3234 }
68ffbac6 3235 /* PR 7027: We need similar behaviour for 64-bit binaries. */
af1fb11f
NC		 3236 else if (r_type == R_SPARC_WPLT30 && h == NULL)
3237 break;
22b75d0a
DM		 3238 else
3239 {
3240 BFD_ASSERT (h != NULL);
3241 }
3242
72fbc6e5 3243 if (h->plt.offset == (bfd_vma) -1 || htab->elf.splt == NULL)
22b75d0a
DM		 3244 {
3245 /* We didn't make a PLT entry for this symbol. This
3246 happens when statically linking PIC code, or when
3247 using -Bsymbolic. */
3248 break;
3249 }
3250
72fbc6e5
DM		 3251 relocation = (htab->elf.splt->output_section->vma
3252 + htab->elf.splt->output_offset
22b75d0a
DM		 3253 + h->plt.offset);
3254 unresolved_reloc = FALSE;
3255 if (r_type == R_SPARC_PLT32 || r_type == R_SPARC_PLT64)
3256 {
3257 r_type = r_type == R_SPARC_PLT32 ? R_SPARC_32 : R_SPARC_64;
3258 is_plt = TRUE;
3259 goto r_sparc_plt32;
3260 }
3261 break;
3262
3263 case R_SPARC_PC10:
3264 case R_SPARC_PC22:
3265 case R_SPARC_PC_HH22:
3266 case R_SPARC_PC_HM10:
3267 case R_SPARC_PC_LM22:
3268 if (h != NULL
3269 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3270 break;
3271 /* Fall through. */
3272 case R_SPARC_DISP8:
3273 case R_SPARC_DISP16:
3274 case R_SPARC_DISP32:
3275 case R_SPARC_DISP64:
3276 case R_SPARC_WDISP30:
3277 case R_SPARC_WDISP22:
3278 case R_SPARC_WDISP19:
3279 case R_SPARC_WDISP16:
2615994e 3280 case R_SPARC_WDISP10:
22b75d0a
DM		 3281 case R_SPARC_8:
3282 case R_SPARC_16:
3283 case R_SPARC_32:
3284 case R_SPARC_HI22:
3285 case R_SPARC_22:
3286 case R_SPARC_13:
3287 case R_SPARC_LO10:
3288 case R_SPARC_UA16:
3289 case R_SPARC_UA32:
3290 case R_SPARC_10:
3291 case R_SPARC_11:
3292 case R_SPARC_64:
3293 case R_SPARC_OLO10:
3294 case R_SPARC_HH22:
3295 case R_SPARC_HM10:
3296 case R_SPARC_LM22:
3297 case R_SPARC_7:
3298 case R_SPARC_5:
3299 case R_SPARC_6:
3300 case R_SPARC_HIX22:
3301 case R_SPARC_LOX10:
3302 case R_SPARC_H44:
3303 case R_SPARC_M44:
3304 case R_SPARC_L44:
2615994e 3305 case R_SPARC_H34:
22b75d0a
DM		 3306 case R_SPARC_UA64:
3307 r_sparc_plt32:
c20c30f6 3308 if ((input_section->flags & SEC_ALLOC) == 0 || is_vxworks_tls)
22b75d0a
DM		 3309 break;
3310
07d6d2b8
AM		 3311 /* Copy dynamic function pointer relocations. Don't generate
3312 dynamic relocations against resolved undefined weak symbols
3313 in PIE. */
0e1862bb 3314 if ((bfd_link_pic (info)
22b75d0a 3315 && (h == NULL
a8735c82
EB		 3316 || !(h->root.type == bfd_link_hash_undefweak
3317 && (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
3318 || resolved_to_zero)))
22b75d0a 3319 && (! howto->pc_relative
72fbc6e5 3320 || !SYMBOL_CALLS_LOCAL (info, h)))
0e1862bb 3321 || (!bfd_link_pic (info)
22b75d0a
DM		 3322 && h != NULL
3323 && h->dynindx != -1
3324 && !h->non_got_ref
3325 && ((h->def_dynamic
3326 && !h->def_regular)
bb1dd176 3327 || (h->root.type == bfd_link_hash_undefweak
07d6d2b8 3328 && !resolved_to_zero)
22b75d0a
DM		 3329 || h->root.type == bfd_link_hash_undefined)))
3330 {
3331 Elf_Internal_Rela outrel;
3332 bfd_boolean skip, relocate = FALSE;
3333
3334 /* When generating a shared object, these relocations
3335 are copied into the output file to be resolved at run
3336 time. */
3337
3338 BFD_ASSERT (sreloc != NULL);
3339
3340 skip = FALSE;
3341
3342 outrel.r_offset =
3343 _bfd_elf_section_offset (output_bfd, info, input_section,
3344 rel->r_offset);
3345 if (outrel.r_offset == (bfd_vma) -1)
3346 skip = TRUE;
3347 else if (outrel.r_offset == (bfd_vma) -2)
3348 skip = TRUE, relocate = TRUE;
3349 outrel.r_offset += (input_section->output_section->vma
3350 + input_section->output_offset);
3351
3352 /* Optimize unaligned reloc usage now that we know where
3353 it finally resides. */
3354 switch (r_type)
3355 {
3356 case R_SPARC_16:
3357 if (outrel.r_offset & 1)
3358 r_type = R_SPARC_UA16;
3359 break;
3360 case R_SPARC_UA16:
3361 if (!(outrel.r_offset & 1))
3362 r_type = R_SPARC_16;
3363 break;
3364 case R_SPARC_32:
3365 if (outrel.r_offset & 3)
3366 r_type = R_SPARC_UA32;
3367 break;
3368 case R_SPARC_UA32:
3369 if (!(outrel.r_offset & 3))
3370 r_type = R_SPARC_32;
3371 break;
3372 case R_SPARC_64:
3373 if (outrel.r_offset & 7)
3374 r_type = R_SPARC_UA64;
3375 break;
3376 case R_SPARC_UA64:
3377 if (!(outrel.r_offset & 7))
3378 r_type = R_SPARC_64;
3379 break;
07d6d2b8 3380 case R_SPARC_DISP8:
22b75d0a 3381 case R_SPARC_DISP16:
07d6d2b8
AM		 3382 case R_SPARC_DISP32:
3383 case R_SPARC_DISP64:
22b75d0a
DM		 3384 /* If the symbol is not dynamic, we should not keep
3385 a dynamic relocation. But an .rela.* slot has been
3386 allocated for it, output R_SPARC_NONE.
3387 FIXME: Add code tracking needed dynamic relocs as
3388 e.g. i386 has. */
3389 if (h->dynindx == -1)
3390 skip = TRUE, relocate = TRUE;
3391 break;
3392 }
3393
3394 if (skip)
3395 memset (&outrel, 0, sizeof outrel);
3396 /* h->dynindx may be -1 if the symbol was marked to
3397 become local. */
886a2506
NC		 3398 else if (h != NULL
3399 && h->dynindx != -1
3400 && (_bfd_sparc_elf_howto_table[r_type].pc_relative
0e1862bb 3401 || !bfd_link_pic (info)
72fbc6e5 3402 || !SYMBOLIC_BIND (info, h)
22b75d0a
DM		 3403 || !h->def_regular))
3404 {
22b75d0a
DM		 3405 outrel.r_info = SPARC_ELF_R_INFO (htab, rel, h->dynindx, r_type);
3406 outrel.r_addend = rel->r_addend;
3407 }
3408 else
3409 {
7160c10d
JC		 3410 if ( (!ABI_64_P (output_bfd) && r_type == R_SPARC_32)
3411 || (ABI_64_P (output_bfd) && r_type == R_SPARC_64))
22b75d0a
DM		 3412 {
3413 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
3414 0, R_SPARC_RELATIVE);
3415 outrel.r_addend = relocation + rel->r_addend;
3416 }
3417 else
3418 {
3419 long indx;
3420
74541ad4
AM		 3421 outrel.r_addend = relocation + rel->r_addend;
3422
22b75d0a 3423 if (is_plt)
72fbc6e5 3424 sec = htab->elf.splt;
22b75d0a
DM		 3425
3426 if (bfd_is_abs_section (sec))
3427 indx = 0;
3428 else if (sec == NULL || sec->owner == NULL)
3429 {
3430 bfd_set_error (bfd_error_bad_value);
3431 return FALSE;
3432 }
3433 else
3434 {
3435 asection *osec;
3436
74541ad4
AM		 3437 /* We are turning this relocation into one
3438 against a section symbol. It would be
3439 proper to subtract the symbol's value,
3440 osec->vma, from the emitted reloc addend,
3441 but ld.so expects buggy relocs. */
22b75d0a
DM		 3442 osec = sec->output_section;
3443 indx = elf_section_data (osec)->dynindx;
3444
74541ad4
AM		 3445 if (indx == 0)
3446 {
3447 osec = htab->elf.text_index_section;
3448 indx = elf_section_data (osec)->dynindx;
3449 }
3450
22b75d0a
DM		 3451 /* FIXME: we really should be able to link non-pic
3452 shared libraries. */
3453 if (indx == 0)
3454 {
3455 BFD_FAIL ();
4eca0228 3456 _bfd_error_handler
871b3ab2 3457 (_("%pB: probably compiled without -fPIC?"),
22b75d0a
DM		 3458 input_bfd);
3459 bfd_set_error (bfd_error_bad_value);
3460 return FALSE;
3461 }
3462 }
3463
74541ad4
AM		 3464 outrel.r_info = SPARC_ELF_R_INFO (htab, rel, indx,
3465 r_type);
22b75d0a
DM		 3466 }
3467 }
3468
39817122 3469 sparc_elf_append_rela (output_bfd, sreloc, &outrel);
22b75d0a
DM		 3470
3471 /* This reloc will be computed at runtime, so there's no
3472 need to do anything now. */
3473 if (! relocate)
3474 continue;
3475 }
3476 break;
3477
3478 case R_SPARC_TLS_GD_HI22:
22b75d0a
DM		 3479 case R_SPARC_TLS_GD_LO10:
3480 case R_SPARC_TLS_IE_HI22:
3481 case R_SPARC_TLS_IE_LO10:
c20c30f6
EB		 3482 r_type = sparc_elf_tls_transition (info, input_bfd, r_type,
3483 h == NULL || h->dynindx == -1);
3484 if (r_type == R_SPARC_REV32)
3485 break;
3486 if (h != NULL)
3487 tls_type = _bfd_sparc_elf_hash_entry (h)->tls_type;
3488 else if (local_got_offsets)
22b75d0a 3489 tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
c20c30f6
EB		 3490 else
3491 tls_type = GOT_UNKNOWN;
22b75d0a
DM		 3492 if (tls_type == GOT_TLS_IE)
3493 switch (r_type)
3494 {
3495 case R_SPARC_TLS_GD_HI22:
3496 r_type = R_SPARC_TLS_IE_HI22;
3497 break;
3498 case R_SPARC_TLS_GD_LO10:
3499 r_type = R_SPARC_TLS_IE_LO10;
3500 break;
3501 }
3502
3503 if (r_type == R_SPARC_TLS_LE_HIX22)
3504 {
3505 relocation = tpoff (info, relocation);
3506 break;
3507 }
3508 if (r_type == R_SPARC_TLS_LE_LOX10)
3509 {
3510 /* Change add into xor. */
3511 relocation = tpoff (info, relocation);
3512 bfd_put_32 (output_bfd, (bfd_get_32 (input_bfd,
3513 contents + rel->r_offset)
3514 | 0x80182000), contents + rel->r_offset);
3515 break;
3516 }
3517
3518 if (h != NULL)
3519 {
3520 off = h->got.offset;
3521 h->got.offset |= 1;
3522 }
3523 else
3524 {
3525 BFD_ASSERT (local_got_offsets != NULL);
3526 off = local_got_offsets[r_symndx];
3527 local_got_offsets[r_symndx] |= 1;
3528 }
3529
3530 r_sparc_tlsldm:
72fbc6e5 3531 if (htab->elf.sgot == NULL)
22b75d0a
DM		 3532 abort ();
3533
3534 if ((off & 1) != 0)
3535 off &= ~1;
3536 else
3537 {
3538 Elf_Internal_Rela outrel;
3539 int dr_type, indx;
3540
72fbc6e5 3541 if (htab->elf.srelgot == NULL)
22b75d0a
DM		 3542 abort ();
3543
72fbc6e5
DM		 3544 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
3545 htab->elf.sgot->contents + off);
3546 outrel.r_offset = (htab->elf.sgot->output_section->vma
3547 + htab->elf.sgot->output_offset + off);
22b75d0a
DM		 3548 indx = h && h->dynindx != -1 ? h->dynindx : 0;
3549 if (r_type == R_SPARC_TLS_IE_HI22
3550 || r_type == R_SPARC_TLS_IE_LO10)
3551 dr_type = SPARC_ELF_TPOFF_RELOC (htab);
3552 else
3553 dr_type = SPARC_ELF_DTPMOD_RELOC (htab);
3554 if (dr_type == SPARC_ELF_TPOFF_RELOC (htab) && indx == 0)
3555 outrel.r_addend = relocation - dtpoff_base (info);
3556 else
3557 outrel.r_addend = 0;
3558 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, indx, dr_type);
72fbc6e5 3559 sparc_elf_append_rela (output_bfd, htab->elf.srelgot, &outrel);
22b75d0a
DM		 3560
3561 if (r_type == R_SPARC_TLS_GD_HI22
3562 || r_type == R_SPARC_TLS_GD_LO10)
3563 {
3564 if (indx == 0)
3565 {
07d6d2b8 3566 BFD_ASSERT (! unresolved_reloc);
22b75d0a
DM		 3567 SPARC_ELF_PUT_WORD (htab, output_bfd,
3568 relocation - dtpoff_base (info),
72fbc6e5 3569 (htab->elf.sgot->contents + off
22b75d0a
DM		 3570 + SPARC_ELF_WORD_BYTES (htab)));
3571 }
3572 else
3573 {
3574 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
72fbc6e5 3575 (htab->elf.sgot->contents + off
22b75d0a
DM		 3576 + SPARC_ELF_WORD_BYTES (htab)));
3577 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, indx,
3578 SPARC_ELF_DTPOFF_RELOC (htab));
3579 outrel.r_offset += SPARC_ELF_WORD_BYTES (htab);
72fbc6e5 3580 sparc_elf_append_rela (output_bfd, htab->elf.srelgot,
39817122 3581 &outrel);
22b75d0a
DM		 3582 }
3583 }
3584 else if (dr_type == SPARC_ELF_DTPMOD_RELOC (htab))
3585 {
3586 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
72fbc6e5 3587 (htab->elf.sgot->contents + off
22b75d0a
DM		 3588 + SPARC_ELF_WORD_BYTES (htab)));
3589 }
3590 }
3591
3592 if (off >= (bfd_vma) -2)
3593 abort ();
3594
72fbc6e5 3595 relocation = htab->elf.sgot->output_offset + off - got_base;
22b75d0a
DM		 3596 unresolved_reloc = FALSE;
3597 howto = _bfd_sparc_elf_howto_table + r_type;
3598 break;
3599
3600 case R_SPARC_TLS_LDM_HI22:
3601 case R_SPARC_TLS_LDM_LO10:
c20c30f6
EB		 3602 /* LD -> LE */
3603 if (bfd_link_executable (info))
22b75d0a
DM		 3604 {
3605 bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
3606 continue;
3607 }
3608 off = htab->tls_ldm_got.offset;
3609 htab->tls_ldm_got.offset |= 1;
3610 goto r_sparc_tlsldm;
3611
3612 case R_SPARC_TLS_LDO_HIX22:
3613 case R_SPARC_TLS_LDO_LOX10:
c20c30f6
EB		 3614 /* LD -> LE */
3615 if (bfd_link_executable (info))
3616 {
3617 if (r_type == R_SPARC_TLS_LDO_HIX22)
3618 r_type = R_SPARC_TLS_LE_HIX22;
3619 else
3620 r_type = R_SPARC_TLS_LE_LOX10;
3621 }
3622 else
22b75d0a
DM		 3623 {
3624 relocation -= dtpoff_base (info);
3625 break;
3626 }
22b75d0a
DM		 3627 /* Fall through. */
3628
3629 case R_SPARC_TLS_LE_HIX22:
3630 case R_SPARC_TLS_LE_LOX10:
c20c30f6 3631 if (!bfd_link_executable (info))
22b75d0a
DM		 3632 {
3633 Elf_Internal_Rela outrel;
c20c30f6
EB		 3634 bfd_vma offset
3635 = _bfd_elf_section_offset (output_bfd, info, input_section,
3636 rel->r_offset);
3637 if (offset == (bfd_vma) -1 || offset == (bfd_vma) -2)
22b75d0a
DM		 3638 memset (&outrel, 0, sizeof outrel);
3639 else
3640 {
c20c30f6
EB		 3641 outrel.r_offset = offset
3642 + input_section->output_section->vma
3643 + input_section->output_offset;
22b75d0a 3644 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, r_type);
c20c30f6
EB		 3645 outrel.r_addend
3646 = relocation - dtpoff_base (info) + rel->r_addend;
22b75d0a
DM		 3647 }
3648
c20c30f6 3649 BFD_ASSERT (sreloc != NULL);
39817122 3650 sparc_elf_append_rela (output_bfd, sreloc, &outrel);
22b75d0a
DM		 3651 continue;
3652 }
3653 relocation = tpoff (info, relocation);
3654 break;
3655
3656 case R_SPARC_TLS_LDM_CALL:
c20c30f6
EB		 3657 /* LD -> LE */
3658 if (bfd_link_executable (info))
22b75d0a
DM		 3659 {
3660 /* mov %g0, %o0 */
3661 bfd_put_32 (output_bfd, 0x90100000, contents + rel->r_offset);
3662 continue;
3663 }
3664 /* Fall through */
3665
3666 case R_SPARC_TLS_GD_CALL:
c20c30f6
EB		 3667 if (h != NULL)
3668 tls_type = _bfd_sparc_elf_hash_entry (h)->tls_type;
3669 else if (local_got_offsets)
22b75d0a 3670 tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
c20c30f6
EB		 3671 else
3672 tls_type = GOT_UNKNOWN;
3673 /* GD -> IE or LE */
3674 if (bfd_link_executable (info)
22b75d0a
DM		 3675 || (r_type == R_SPARC_TLS_GD_CALL && tls_type == GOT_TLS_IE))
3676 {
abd242a9 3677 Elf_Internal_Rela *rel2;
22b75d0a
DM		 3678 bfd_vma insn;
3679
c20c30f6
EB		 3680 /* GD -> LE */
3681 if (bfd_link_executable (info) && (h == NULL || h->dynindx == -1))
22b75d0a 3682 {
22b75d0a
DM		 3683 bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
3684 continue;
3685 }
3686
3687 /* GD -> IE */
3688 if (rel + 1 < relend
3689 && SPARC_ELF_R_TYPE (rel[1].r_info) == R_SPARC_TLS_GD_ADD
3690 && rel[1].r_offset == rel->r_offset + 4
3691 && SPARC_ELF_R_SYMNDX (htab, rel[1].r_info) == r_symndx
3692 && (((insn = bfd_get_32 (input_bfd,
3693 contents + rel[1].r_offset))
3694 >> 25) & 0x1f) == 8)
3695 {
3696 /* We have
3697 call __tls_get_addr, %tgd_call(foo)
3698 add %reg1, %reg2, %o0, %tgd_add(foo)
3699 and change it into IE:
3700 {ld,ldx} [%reg1 + %reg2], %o0, %tie_ldx(foo)
3701 add %g7, %o0, %o0, %tie_add(foo).
3702 add is 0x80000000 | (rd << 25) | (rs1 << 14) | rs2,
3703 ld is 0xc0000000 | (rd << 25) | (rs1 << 14) | rs2,
3704 ldx is 0xc0580000 | (rd << 25) | (rs1 << 14) | rs2. */
3705 bfd_put_32 (output_bfd, insn | (ABI_64_P (output_bfd) ? 0xc0580000 : 0xc0000000),
3706 contents + rel->r_offset);
3707 bfd_put_32 (output_bfd, 0x9001c008,
3708 contents + rel->r_offset + 4);
3709 rel++;
3710 continue;
3711 }
3712
abd242a9
DM		 3713 /* We cannot just overwrite the delay slot instruction,
3714 as it might be what puts the %o0 argument to
3715 __tls_get_addr into place. So we have to transpose
3716 the delay slot with the add we patch in. */
3717 insn = bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
3718 bfd_put_32 (output_bfd, insn,
3719 contents + rel->r_offset);
3720 bfd_put_32 (output_bfd, 0x9001c008,
3721 contents + rel->r_offset + 4);
3722
3723 rel2 = rel;
3724 while ((rel2 = sparc_elf_find_reloc_at_ofs (rel2 + 1, relend,
3725 rel->r_offset + 4))
3726 != NULL)
3727 {
3728 /* If the instruction we moved has a relocation attached to
3729 it, adjust the offset so that it will apply to the correct
3730 instruction. */
3731 rel2->r_offset -= 4;
3732 }
22b75d0a
DM		 3733 continue;
3734 }
3735
3736 h = (struct elf_link_hash_entry *)
3737 bfd_link_hash_lookup (info->hash, "__tls_get_addr", FALSE,
3738 FALSE, TRUE);
3739 BFD_ASSERT (h != NULL);
3740 r_type = R_SPARC_WPLT30;
3741 howto = _bfd_sparc_elf_howto_table + r_type;
3742 goto r_sparc_wplt30;
3743
3744 case R_SPARC_TLS_GD_ADD:
c20c30f6
EB		 3745 if (h != NULL)
3746 tls_type = _bfd_sparc_elf_hash_entry (h)->tls_type;
3747 else if (local_got_offsets)
22b75d0a 3748 tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
c20c30f6
EB		 3749 else
3750 tls_type = GOT_UNKNOWN;
3751 /* GD -> IE or LE */
3752 if (bfd_link_executable (info) || tls_type == GOT_TLS_IE)
22b75d0a
DM		 3753 {
3754 /* add %reg1, %reg2, %reg3, %tgd_add(foo)
3755 changed into IE:
3756 {ld,ldx} [%reg1 + %reg2], %reg3, %tie_ldx(foo)
3757 or LE:
3758 add %g7, %reg2, %reg3. */
3759 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
c20c30f6 3760 if (bfd_link_executable (info) && (h == NULL || h->dynindx == -1))
22b75d0a 3761 relocation = (insn & ~0x7c000) | 0x1c000;
c20c30f6
EB		 3762 else
3763 relocation = insn | (ABI_64_P (output_bfd) ? 0xc0580000 : 0xc0000000);
22b75d0a
DM		 3764 bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
3765 }
3766 continue;
3767
3768 case R_SPARC_TLS_LDM_ADD:
c20c30f6
EB		 3769 /* LD -> LE */
3770 if (bfd_link_executable (info))
22b75d0a
DM		 3771 bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
3772 continue;
3773
3774 case R_SPARC_TLS_LDO_ADD:
c20c30f6
EB		 3775 /* LD -> LE */
3776 if (bfd_link_executable (info))
22b75d0a
DM		 3777 {
3778 /* Change rs1 into %g7. */
3779 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3780 insn = (insn & ~0x7c000) | 0x1c000;
3781 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
3782 }
3783 continue;
3784
3785 case R_SPARC_TLS_IE_LD:
3786 case R_SPARC_TLS_IE_LDX:
c20c30f6
EB		 3787 /* IE -> LE */
3788 if (bfd_link_executable (info) && (h == NULL || h->dynindx == -1))
22b75d0a
DM		 3789 {
3790 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3791 int rs2 = insn & 0x1f;
3792 int rd = (insn >> 25) & 0x1f;
3793
3794 if (rs2 == rd)
3795 relocation = SPARC_NOP;
3796 else
3797 relocation = 0x80100000 | (insn & 0x3e00001f);
3798 bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
3799 }
3800 continue;
3801
3802 case R_SPARC_TLS_IE_ADD:
3803 /* Totally useless relocation. */
3804 continue;
3805
3806 case R_SPARC_TLS_DTPOFF32:
3807 case R_SPARC_TLS_DTPOFF64:
3808 relocation -= dtpoff_base (info);
3809 break;
3810
3811 default:
3812 break;
3813 }
3814
3815 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3816 because such sections are not SEC_ALLOC and thus ld.so will
3817 not process them. */
3818 if (unresolved_reloc
3819 && !((input_section->flags & SEC_DEBUGGING) != 0
1d5316ab
AM		 3820 && h->def_dynamic)
3821 && _bfd_elf_section_offset (output_bfd, info, input_section,
3822 rel->r_offset) != (bfd_vma) -1)
4eca0228 3823 _bfd_error_handler
695344c0 3824 /* xgettext:c-format */
2dcf00ce
AM		 3825 (_("%pB(%pA+%#" PRIx64 "): "
3826 "unresolvable %s relocation against symbol `%s'"),
22b75d0a
DM		 3827 input_bfd,
3828 input_section,
2dcf00ce 3829 (uint64_t) rel->r_offset,
843fe662 3830 howto->name,
22b75d0a
DM		 3831 h->root.root.string);
3832
3833 r = bfd_reloc_continue;
3834 if (r_type == R_SPARC_OLO10)
3835 {
3836 bfd_vma x;
3837
3838 if (! ABI_64_P (output_bfd))
3839 abort ();
3840
3841 relocation += rel->r_addend;
3842 relocation = (relocation & 0x3ff) + ELF64_R_TYPE_DATA (rel->r_info);
3843
3844 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3845 x = (x & ~(bfd_vma) 0x1fff) | (relocation & 0x1fff);
3846 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3847
3848 r = bfd_check_overflow (howto->complain_on_overflow,
3849 howto->bitsize, howto->rightshift,
3850 bfd_arch_bits_per_address (input_bfd),
3851 relocation);
3852 }
3853 else if (r_type == R_SPARC_WDISP16)
3854 {
3855 bfd_vma x;
3856
3857 relocation += rel->r_addend;
3858 relocation -= (input_section->output_section->vma
3859 + input_section->output_offset);
3860 relocation -= rel->r_offset;
3861
3862 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3863 x |= ((((relocation >> 2) & 0xc000) << 6)
3864 | ((relocation >> 2) & 0x3fff));
3865 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3866
2615994e
DM		 3867 r = bfd_check_overflow (howto->complain_on_overflow,
3868 howto->bitsize, howto->rightshift,
3869 bfd_arch_bits_per_address (input_bfd),
3870 relocation);
3871 }
3872 else if (r_type == R_SPARC_WDISP10)
3873 {
3874 bfd_vma x;
3875
3876 relocation += rel->r_addend;
3877 relocation -= (input_section->output_section->vma
3878 + input_section->output_offset);
3879 relocation -= rel->r_offset;
3880
3881 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3882 x |= ((((relocation >> 2) & 0x300) << 11)
3883 | (((relocation >> 2) & 0xff) << 5));
3884 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3885
22b75d0a
DM		 3886 r = bfd_check_overflow (howto->complain_on_overflow,
3887 howto->bitsize, howto->rightshift,
3888 bfd_arch_bits_per_address (input_bfd),
3889 relocation);
3890 }
3891 else if (r_type == R_SPARC_REV32)
3892 {
3893 bfd_vma x;
3894
3895 relocation = relocation + rel->r_addend;
3896
3897 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3898 x = x + relocation;
3899 bfd_putl32 (/*input_bfd,*/ x, contents + rel->r_offset);
3900 r = bfd_reloc_ok;
3901 }
3902 else if (r_type == R_SPARC_TLS_LDO_HIX22
3903 || r_type == R_SPARC_TLS_LE_HIX22)
3904 {
3905 bfd_vma x;
3906
3907 relocation += rel->r_addend;
3908 if (r_type == R_SPARC_TLS_LE_HIX22)
3909 relocation ^= MINUS_ONE;
3910
3911 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3912 x = (x & ~(bfd_vma) 0x3fffff) | ((relocation >> 10) & 0x3fffff);
3913 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3914 r = bfd_reloc_ok;
3915 }
3916 else if (r_type == R_SPARC_TLS_LDO_LOX10
3917 || r_type == R_SPARC_TLS_LE_LOX10)
3918 {
3919 bfd_vma x;
3920
3921 relocation += rel->r_addend;
3922 relocation &= 0x3ff;
3923 if (r_type == R_SPARC_TLS_LE_LOX10)
3924 relocation |= 0x1c00;
3925
3926 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3927 x = (x & ~(bfd_vma) 0x1fff) | relocation;
3928 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3929
3930 r = bfd_reloc_ok;
3931 }
00c50991 3932 else if (r_type == R_SPARC_HIX22
cc133f9f
JC		 3933 || r_type == R_SPARC_GOTDATA_HIX22
3934 || r_type == R_SPARC_GOTDATA_OP_HIX22)
22b75d0a
DM		 3935 {
3936 bfd_vma x;
3937
3938 relocation += rel->r_addend;
00c50991
DM		 3939 if (r_type == R_SPARC_HIX22
3940 || (bfd_signed_vma) relocation < 0)
3941 relocation = relocation ^ MINUS_ONE;
22b75d0a
DM		 3942
3943 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3944 x = (x & ~(bfd_vma) 0x3fffff) | ((relocation >> 10) & 0x3fffff);
3945 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3946
3947 r = bfd_check_overflow (howto->complain_on_overflow,
3948 howto->bitsize, howto->rightshift,
3949 bfd_arch_bits_per_address (input_bfd),
3950 relocation);
3951 }
00c50991 3952 else if (r_type == R_SPARC_LOX10
cc133f9f
JC		 3953 || r_type == R_SPARC_GOTDATA_LOX10
3954 || r_type == R_SPARC_GOTDATA_OP_LOX10)
22b75d0a
DM		 3955 {
3956 bfd_vma x;
3957
3958 relocation += rel->r_addend;
00c50991
DM		 3959 if (r_type == R_SPARC_LOX10
3960 || (bfd_signed_vma) relocation < 0)
3961 relocation = (relocation & 0x3ff) | 0x1c00;
3962 else
3963 relocation = (relocation & 0x3ff);
22b75d0a
DM		 3964
3965 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3966 x = (x & ~(bfd_vma) 0x1fff) | relocation;
3967 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3968
3969 r = bfd_reloc_ok;
3970 }
3971 else if ((r_type == R_SPARC_WDISP30 || r_type == R_SPARC_WPLT30)
3972 && sec_do_relax (input_section)
3973 && rel->r_offset + 4 < input_section->size)
3974 {
3975#define G0 0
3976#define O7 15
3977#define XCC (2 << 20)
3978#define COND(x) (((x)&0xf)<<25)
3979#define CONDA COND(0x8)
3980#define INSN_BPA (F2(0,1) | CONDA | BPRED | XCC)
3981#define INSN_BA (F2(0,2) | CONDA)
3982#define INSN_OR F3(2, 0x2, 0)
3983#define INSN_NOP F2(0,4)
3984
3985 bfd_vma x, y;
3986
3987 /* If the instruction is a call with either:
3988 restore
3989 arithmetic instruction with rd == %o7
3990 where rs1 != %o7 and rs2 if it is register != %o7
3991 then we can optimize if the call destination is near
3992 by changing the call into a branch always. */
3993 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3994 y = bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
3995 if ((x & OP(~0)) == OP(1) && (y & OP(~0)) == OP(2))
3996 {
3997 if (((y & OP3(~0)) == OP3(0x3d) /* restore */
3998 || ((y & OP3(0x28)) == 0 /* arithmetic */
3999 && (y & RD(~0)) == RD(O7)))
4000 && (y & RS1(~0)) != RS1(O7)
4001 && ((y & F3I(~0))
4002 || (y & RS2(~0)) != RS2(O7)))
4003 {
4004 bfd_vma reloc;
4005
4006 reloc = relocation + rel->r_addend - rel->r_offset;
4007 reloc -= (input_section->output_section->vma
4008 + input_section->output_offset);
4009
4010 /* Ensure the branch fits into simm22. */
4011 if ((reloc & 3) == 0
4012 && ((reloc & ~(bfd_vma)0x7fffff) == 0
4013 || ((reloc | 0x7fffff) == ~(bfd_vma)0)))
4014 {
4015 reloc >>= 2;
4016
4017 /* Check whether it fits into simm19. */
4018 if (((reloc & 0x3c0000) == 0
4019 || (reloc & 0x3c0000) == 0x3c0000)
4020 && (ABI_64_P (output_bfd)
4021 || elf_elfheader (output_bfd)->e_flags & EF_SPARC_32PLUS))
4022 x = INSN_BPA | (reloc & 0x7ffff); /* ba,pt %xcc */
4023 else
4024 x = INSN_BA | (reloc & 0x3fffff); /* ba */
4025 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
4026 r = bfd_reloc_ok;
4027 if (rel->r_offset >= 4
4028 && (y & (0xffffffff ^ RS1(~0)))
4029 == (INSN_OR | RD(O7) | RS2(G0)))
4030 {
4031 bfd_vma z;
4032 unsigned int reg;
4033
4034 z = bfd_get_32 (input_bfd,
4035 contents + rel->r_offset - 4);
4036 if ((z & (0xffffffff ^ RD(~0)))
4037 != (INSN_OR | RS1(O7) | RS2(G0)))
597e138c 4038 continue;
22b75d0a
DM		 4039
4040 /* The sequence was
4041 or %o7, %g0, %rN
4042 call foo
4043 or %rN, %g0, %o7
4044
4045 If call foo was replaced with ba, replace
4046 or %rN, %g0, %o7 with nop. */
4047
4048 reg = (y & RS1(~0)) >> 14;
4049 if (reg != ((z & RD(~0)) >> 25)
4050 || reg == G0 || reg == O7)
597e138c 4051 continue;
22b75d0a
DM		 4052
4053 bfd_put_32 (input_bfd, (bfd_vma) INSN_NOP,
4054 contents + rel->r_offset + 4);
4055 }
4056
4057 }
4058 }
4059 }
4060 }
4061
4062 if (r == bfd_reloc_continue)
d0c9aeb3 4063 {
dc1e8a47 4064 do_relocation:
d0c9aeb3
DM		 4065 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
4066 contents, rel->r_offset,
4067 relocation, rel->r_addend);
4068 }
22b75d0a
DM		 4069 if (r != bfd_reloc_ok)
4070 {
4071 switch (r)
4072 {
4073 default:
4074 case bfd_reloc_outofrange:
4075 abort ();
4076 case bfd_reloc_overflow:
4077 {
4078 const char *name;
4079
68ffbac6 4080 /* The Solaris native linker silently disregards overflows.
dc669dc8
EB		 4081 We don't, but this breaks stabs debugging info, whose
4082 relocations are only 32-bits wide. Ignore overflows in
4083 this case and also for discarded entries. */
0bef263a
RO		 4084 if ((r_type == R_SPARC_32
4085 || r_type == R_SPARC_UA32
4086 || r_type == R_SPARC_DISP32)
dc669dc8 4087 && (((input_section->flags & SEC_DEBUGGING) != 0
fd361982 4088 && strcmp (bfd_section_name (input_section),
dc669dc8
EB		 4089 ".stab") == 0)
4090 || _bfd_elf_section_offset (output_bfd, info,
4091 input_section,
4092 rel->r_offset)
4093 == (bfd_vma)-1))
4094 break;
4095
22b75d0a 4096 if (h != NULL)
bb29dfea
EB		 4097 {
4098 /* Assume this is a call protected by other code that
4099 detect the symbol is undefined. If this is the case,
4100 we can safely ignore the overflow. If not, the
4101 program is hosed anyway, and a little warning isn't
4102 going to help. */
4103 if (h->root.type == bfd_link_hash_undefweak
4104 && howto->pc_relative)
4105 break;
4106
07d6d2b8 4107 name = NULL;
bb29dfea 4108 }
22b75d0a
DM		 4109 else
4110 {
4111 name = bfd_elf_string_from_elf_section (input_bfd,
4112 symtab_hdr->sh_link,
4113 sym->st_name);
4114 if (name == NULL)
4115 return FALSE;
4116 if (*name == '\0')
fd361982 4117 name = bfd_section_name (sec);
22b75d0a 4118 }
1a72702b
AM		 4119 (*info->callbacks->reloc_overflow)
4120 (info, (h ? &h->root : NULL), name, howto->name,
4121 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
22b75d0a
DM		 4122 }
4123 break;
4124 }
4125 }
4126 }
4127
4128 return TRUE;
4129}
4130
910600e9
RS		 4131/* Build a VxWorks PLT entry. PLT_INDEX is the index of the PLT entry
4132 and PLT_OFFSET is the byte offset from the start of .plt. GOT_OFFSET
4133 is the offset of the associated .got.plt entry from
4134 _GLOBAL_OFFSET_TABLE_. */
4135
4136static void
4137sparc_vxworks_build_plt_entry (bfd *output_bfd, struct bfd_link_info *info,
4138 bfd_vma plt_offset, bfd_vma plt_index,
4139 bfd_vma got_offset)
4140{
4141 bfd_vma got_base;
4142 const bfd_vma *plt_entry;
4143 struct _bfd_sparc_elf_link_hash_table *htab;
4144 bfd_byte *loc;
4145 Elf_Internal_Rela rela;
4146
4147 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6
NC		 4148 BFD_ASSERT (htab != NULL);
4149
0e1862bb 4150 if (bfd_link_pic (info))
910600e9
RS		 4151 {
4152 plt_entry = sparc_vxworks_shared_plt_entry;
4153 got_base = 0;
4154 }
4155 else
4156 {
4157 plt_entry = sparc_vxworks_exec_plt_entry;
4158 got_base = (htab->elf.hgot->root.u.def.value
4159 + htab->elf.hgot->root.u.def.section->output_offset
4160 + htab->elf.hgot->root.u.def.section->output_section->vma);
4161 }
4162
4163 /* Fill in the entry in the procedure linkage table. */
4164 bfd_put_32 (output_bfd, plt_entry[0] + ((got_base + got_offset) >> 10),
72fbc6e5 4165 htab->elf.splt->contents + plt_offset);
910600e9 4166 bfd_put_32 (output_bfd, plt_entry[1] + ((got_base + got_offset) & 0x3ff),
72fbc6e5 4167 htab->elf.splt->contents + plt_offset + 4);
910600e9 4168 bfd_put_32 (output_bfd, plt_entry[2],
72fbc6e5 4169 htab->elf.splt->contents + plt_offset + 8);
910600e9 4170 bfd_put_32 (output_bfd, plt_entry[3],
72fbc6e5 4171 htab->elf.splt->contents + plt_offset + 12);
910600e9 4172 bfd_put_32 (output_bfd, plt_entry[4],
72fbc6e5 4173 htab->elf.splt->contents + plt_offset + 16);
910600e9 4174 bfd_put_32 (output_bfd, plt_entry[5] + (plt_index >> 10),
72fbc6e5 4175 htab->elf.splt->contents + plt_offset + 20);
910600e9
RS		 4176 /* PC-relative displacement for a branch to the start of
4177 the PLT section. */
4178 bfd_put_32 (output_bfd, plt_entry[6] + (((-plt_offset - 24) >> 2)
4179 & 0x003fffff),
72fbc6e5 4180 htab->elf.splt->contents + plt_offset + 24);
910600e9 4181 bfd_put_32 (output_bfd, plt_entry[7] + (plt_index & 0x3ff),
72fbc6e5 4182 htab->elf.splt->contents + plt_offset + 28);
910600e9
RS		 4183
4184 /* Fill in the .got.plt entry, pointing initially at the
4185 second half of the PLT entry. */
72fbc6e5 4186 BFD_ASSERT (htab->elf.sgotplt != NULL);
910600e9 4187 bfd_put_32 (output_bfd,
72fbc6e5
DM		 4188 htab->elf.splt->output_section->vma
4189 + htab->elf.splt->output_offset
910600e9 4190 + plt_offset + 20,
72fbc6e5 4191 htab->elf.sgotplt->contents + got_offset);
910600e9
RS		 4192
4193 /* Add relocations to .rela.plt.unloaded. */
0e1862bb 4194 if (!bfd_link_pic (info))
910600e9
RS		 4195 {
4196 loc = (htab->srelplt2->contents
4197 + (2 + 3 * plt_index) * sizeof (Elf32_External_Rela));
4198
4199 /* Relocate the initial sethi. */
72fbc6e5
DM		 4200 rela.r_offset = (htab->elf.splt->output_section->vma
4201 + htab->elf.splt->output_offset
910600e9
RS		 4202 + plt_offset);
4203 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_HI22);
4204 rela.r_addend = got_offset;
4205 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4206 loc += sizeof (Elf32_External_Rela);
4207
4208 /* Likewise the following or. */
4209 rela.r_offset += 4;
4210 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_LO10);
4211 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4212 loc += sizeof (Elf32_External_Rela);
4213
4214 /* Relocate the .got.plt entry. */
72fbc6e5
DM		 4215 rela.r_offset = (htab->elf.sgotplt->output_section->vma
4216 + htab->elf.sgotplt->output_offset
910600e9
RS		 4217 + got_offset);
4218 rela.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_SPARC_32);
4219 rela.r_addend = plt_offset + 20;
4220 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4221 }
4222}
4223
22b75d0a
DM		 4224/* Finish up dynamic symbol handling. We set the contents of various
4225 dynamic sections here. */
4226
4227bfd_boolean
4228_bfd_sparc_elf_finish_dynamic_symbol (bfd *output_bfd,
4229 struct bfd_link_info *info,
4230 struct elf_link_hash_entry *h,
4231 Elf_Internal_Sym *sym)
4232{
22b75d0a 4233 struct _bfd_sparc_elf_link_hash_table *htab;
39817122 4234 const struct elf_backend_data *bed;
bb1dd176 4235 struct _bfd_sparc_elf_link_hash_entry *eh;
a8735c82 4236 bfd_boolean resolved_to_zero;
22b75d0a
DM		 4237
4238 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4239 BFD_ASSERT (htab != NULL);
39817122 4240 bed = get_elf_backend_data (output_bfd);
22b75d0a 4241
bb1dd176
QZ		 4242 eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
4243
4244 /* We keep PLT/GOT entries without dynamic PLT/GOT relocations for
4245 resolved undefined weak symbols in executable so that their
4246 references have value 0 at run-time. */
a8735c82 4247 resolved_to_zero = UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh);
bb1dd176 4248
22b75d0a
DM		 4249 if (h->plt.offset != (bfd_vma) -1)
4250 {
4251 asection *splt;
4252 asection *srela;
4253 Elf_Internal_Rela rela;
4254 bfd_byte *loc;
910600e9 4255 bfd_vma r_offset, got_offset;
22b75d0a
DM		 4256 int rela_index;
4257
d0c9aeb3
DM		 4258 /* When building a static executable, use .iplt and
4259 .rela.iplt sections for STT_GNU_IFUNC symbols. */
4260 if (htab->elf.splt != NULL)
4261 {
4262 splt = htab->elf.splt;
4263 srela = htab->elf.srelplt;
4264 }
4265 else
4266 {
4267 splt = htab->elf.iplt;
4268 srela = htab->elf.irelplt;
4269 }
22b75d0a 4270
d0c9aeb3
DM		 4271 if (splt == NULL || srela == NULL)
4272 abort ();
22b75d0a 4273
22b75d0a 4274 /* Fill in the entry in the .rela.plt section. */
910600e9 4275 if (htab->is_vxworks)
22b75d0a 4276 {
910600e9
RS		 4277 /* Work out the index of this PLT entry. */
4278 rela_index = ((h->plt.offset - htab->plt_header_size)
4279 / htab->plt_entry_size);
4280
4281 /* Calculate the offset of the associated .got.plt entry.
4282 The first three entries are reserved. */
4283 got_offset = (rela_index + 3) * 4;
4284
4285 sparc_vxworks_build_plt_entry (output_bfd, info, h->plt.offset,
4286 rela_index, got_offset);
4287
4288
4289 /* On VxWorks, the relocation points to the .got.plt entry,
4290 not the .plt entry. */
72fbc6e5
DM		 4291 rela.r_offset = (htab->elf.sgotplt->output_section->vma
4292 + htab->elf.sgotplt->output_offset
910600e9 4293 + got_offset);
22b75d0a 4294 rela.r_addend = 0;
d0c9aeb3
DM		 4295 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx,
4296 R_SPARC_JMP_SLOT);
22b75d0a
DM		 4297 }
4298 else
4299 {
d0c9aeb3
DM		 4300 bfd_boolean ifunc = FALSE;
4301
910600e9
RS		 4302 /* Fill in the entry in the procedure linkage table. */
4303 rela_index = SPARC_ELF_BUILD_PLT_ENTRY (htab, output_bfd, splt,
4304 h->plt.offset, splt->size,
4305 &r_offset);
4306
d0c9aeb3
DM		 4307 if (h == NULL
4308 || h->dynindx == -1
0e1862bb 4309 || ((bfd_link_executable (info)
d0c9aeb3
DM		 4310 || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
4311 && h->def_regular
4312 && h->type == STT_GNU_IFUNC))
4313 {
4314 ifunc = TRUE;
4315 BFD_ASSERT (h == NULL
4316 || (h->type == STT_GNU_IFUNC
4317 && h->def_regular
4318 && (h->root.type == bfd_link_hash_defined
4319 || h->root.type == bfd_link_hash_defweak)));
4320 }
4321
910600e9
RS		 4322 rela.r_offset = r_offset
4323 + (splt->output_section->vma + splt->output_offset);
d0c9aeb3
DM		 4324 if (ABI_64_P (output_bfd)
4325 && h->plt.offset >= (PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE))
910600e9 4326 {
d0c9aeb3
DM		 4327 if (ifunc)
4328 {
4329 rela.r_addend = (h->root.u.def.section->output_section->vma
4330 + h->root.u.def.section->output_offset
4331 + h->root.u.def.value);
4332 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0,
4333 R_SPARC_IRELATIVE);
4334 }
4335 else
4336 {
4337 rela.r_addend = (-(h->plt.offset + 4)
4338 - splt->output_section->vma
4339 - splt->output_offset);
4340 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx,
4341 R_SPARC_JMP_SLOT);
4342 }
910600e9
RS		 4343 }
4344 else
4345 {
d0c9aeb3
DM		 4346 if (ifunc)
4347 {
4348 rela.r_addend = (h->root.u.def.section->output_section->vma
4349 + h->root.u.def.section->output_offset
4350 + h->root.u.def.value);
4351 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0,
4352 R_SPARC_JMP_IREL);
4353 }
4354 else
4355 {
4356 rela.r_addend = 0;
4357 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx,
4358 R_SPARC_JMP_SLOT);
4359 }
910600e9 4360 }
22b75d0a 4361 }
22b75d0a
DM		 4362
4363 /* Adjust for the first 4 reserved elements in the .plt section
4364 when setting the offset in the .rela.plt section.
4365 Sun forgot to read their own ABI and copied elf32-sparc behaviour,
4366 thus .plt[4] has corresponding .rela.plt[0] and so on. */
4367
4368 loc = srela->contents;
39817122
RS		 4369 loc += rela_index * bed->s->sizeof_rela;
4370 bed->s->swap_reloca_out (output_bfd, &rela, loc);
22b75d0a 4371
a8735c82 4372 if (!resolved_to_zero && !h->def_regular)
22b75d0a
DM		 4373 {
4374 /* Mark the symbol as undefined, rather than as defined in
4375 the .plt section. Leave the value alone. */
4376 sym->st_shndx = SHN_UNDEF;
4377 /* If the symbol is weak, we do need to clear the value.
4378 Otherwise, the PLT entry would provide a definition for
4379 the symbol even if the symbol wasn't defined anywhere,
4380 and so the symbol would never be NULL. */
4381 if (!h->ref_regular_nonweak)
4382 sym->st_value = 0;
4383 }
4384 }
4385
a8735c82
EB		 4386 /* Don't generate dynamic GOT relocation against resolved undefined weak
4387 symbols in an executable. */
22b75d0a
DM		 4388 if (h->got.offset != (bfd_vma) -1
4389 && _bfd_sparc_elf_hash_entry(h)->tls_type != GOT_TLS_GD
bb1dd176 4390 && _bfd_sparc_elf_hash_entry(h)->tls_type != GOT_TLS_IE
a8735c82
EB		 4391 && !(h->root.type == bfd_link_hash_undefweak
4392 && (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
4393 || resolved_to_zero)))
22b75d0a
DM		 4394 {
4395 asection *sgot;
4396 asection *srela;
4397 Elf_Internal_Rela rela;
4398
4399 /* This symbol has an entry in the GOT. Set it up. */
4400
72fbc6e5
DM		 4401 sgot = htab->elf.sgot;
4402 srela = htab->elf.srelgot;
22b75d0a
DM		 4403 BFD_ASSERT (sgot != NULL && srela != NULL);
4404
4405 rela.r_offset = (sgot->output_section->vma
4406 + sgot->output_offset
4407 + (h->got.offset &~ (bfd_vma) 1));
4408
4409 /* If this is a -Bsymbolic link, and the symbol is defined
4410 locally, we just want to emit a RELATIVE reloc. Likewise if
4411 the symbol was forced to be local because of a version file.
4412 The entry in the global offset table will already have been
4413 initialized in the relocate_section function. */
0e1862bb 4414 if (! bfd_link_pic (info)
d0c9aeb3
DM		 4415 && h->type == STT_GNU_IFUNC
4416 && h->def_regular)
4417 {
4418 asection *plt;
4419
4420 /* We load the GOT entry with the PLT entry. */
4421 plt = htab->elf.splt ? htab->elf.splt : htab->elf.iplt;
4422 SPARC_ELF_PUT_WORD (htab, output_bfd,
4423 (plt->output_section->vma
4424 + plt->output_offset + h->plt.offset),
4425 htab->elf.sgot->contents
4426 + (h->got.offset & ~(bfd_vma) 1));
4427 return TRUE;
4428 }
a8735c82
EB		 4429
4430 if (bfd_link_pic (info) && SYMBOL_REFERENCES_LOCAL (info, h))
22b75d0a
DM		 4431 {
4432 asection *sec = h->root.u.def.section;
d0c9aeb3
DM		 4433 if (h->type == STT_GNU_IFUNC)
4434 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, R_SPARC_IRELATIVE);
4435 else
4436 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, R_SPARC_RELATIVE);
22b75d0a
DM		 4437 rela.r_addend = (h->root.u.def.value
4438 + sec->output_section->vma
4439 + sec->output_offset);
4440 }
4441 else
4442 {
4443 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx, R_SPARC_GLOB_DAT);
4444 rela.r_addend = 0;
4445 }
4446
4447 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
4448 sgot->contents + (h->got.offset & ~(bfd_vma) 1));
39817122 4449 sparc_elf_append_rela (output_bfd, srela, &rela);
22b75d0a
DM		 4450 }
4451
4452 if (h->needs_copy)
4453 {
4454 asection *s;
4455 Elf_Internal_Rela rela;
4456
4457 /* This symbols needs a copy reloc. Set it up. */
4458 BFD_ASSERT (h->dynindx != -1);
4459
22b75d0a
DM		 4460 rela.r_offset = (h->root.u.def.value
4461 + h->root.u.def.section->output_section->vma
4462 + h->root.u.def.section->output_offset);
4463 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx, R_SPARC_COPY);
4464 rela.r_addend = 0;
afbf7e8e 4465 if (h->root.u.def.section == htab->elf.sdynrelro)
5474d94f
AM		 4466 s = htab->elf.sreldynrelro;
4467 else
4468 s = htab->elf.srelbss;
39817122 4469 sparc_elf_append_rela (output_bfd, s, &rela);
22b75d0a
DM		 4470 }
4471
910600e9
RS		 4472 /* Mark some specially defined symbols as absolute. On VxWorks,
4473 _GLOBAL_OFFSET_TABLE_ is not absolute: it is relative to the
4474 ".got" section. Likewise _PROCEDURE_LINKAGE_TABLE_ and ".plt". */
d0c9aeb3 4475 if (sym != NULL
9637f6ef 4476 && (h == htab->elf.hdynamic
d0c9aeb3
DM		 4477 || (!htab->is_vxworks
4478 && (h == htab->elf.hgot || h == htab->elf.hplt))))
22b75d0a
DM		 4479 sym->st_shndx = SHN_ABS;
4480
4481 return TRUE;
4482}
4483
4484/* Finish up the dynamic sections. */
4485
22b75d0a 4486static bfd_boolean
39817122
RS		 4487sparc_finish_dyn (bfd *output_bfd, struct bfd_link_info *info,
4488 bfd *dynobj, asection *sdyn,
4489 asection *splt ATTRIBUTE_UNUSED)
22b75d0a 4490{
910600e9 4491 struct _bfd_sparc_elf_link_hash_table *htab;
39817122
RS		 4492 const struct elf_backend_data *bed;
4493 bfd_byte *dyncon, *dynconend;
4494 size_t dynsize;
4495 int stt_regidx = -1;
4496 bfd_boolean abi_64_p;
22b75d0a 4497
910600e9 4498 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4499 BFD_ASSERT (htab != NULL);
39817122
RS		 4500 bed = get_elf_backend_data (output_bfd);
4501 dynsize = bed->s->sizeof_dyn;
4502 dynconend = sdyn->contents + sdyn->size;
4503 abi_64_p = ABI_64_P (output_bfd);
4504 for (dyncon = sdyn->contents; dyncon < dynconend; dyncon += dynsize)
22b75d0a
DM		 4505 {
4506 Elf_Internal_Dyn dyn;
22b75d0a
DM		 4507 bfd_boolean size;
4508
39817122 4509 bed->s->swap_dyn_in (dynobj, dyncon, &dyn);
22b75d0a 4510
64f52338 4511 if (htab->is_vxworks && dyn.d_tag == DT_PLTGOT)
22b75d0a 4512 {
910600e9
RS		 4513 /* On VxWorks, DT_PLTGOT should point to the start of the GOT,
4514 not to the start of the PLT. */
72fbc6e5 4515 if (htab->elf.sgotplt)
910600e9 4516 {
72fbc6e5
DM		 4517 dyn.d_un.d_val = (htab->elf.sgotplt->output_section->vma
4518 + htab->elf.sgotplt->output_offset);
39817122 4519 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
910600e9
RS		 4520 }
4521 }
7a2b07ff
NS		 4522 else if (htab->is_vxworks
4523 && elf_vxworks_finish_dynamic_entry (output_bfd, &dyn))
4524 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
39817122
RS		 4525 else if (abi_64_p && dyn.d_tag == DT_SPARC_REGISTER)
4526 {
4527 if (stt_regidx == -1)
4528 {
4529 stt_regidx =
4530 _bfd_elf_link_lookup_local_dynindx (info, output_bfd, -1);
4531 if (stt_regidx == -1)
4532 return FALSE;
4533 }
4534 dyn.d_un.d_val = stt_regidx++;
4535 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
4536 }
910600e9
RS		 4537 else
4538 {
ce558b89
AM		 4539 asection *s;
4540
910600e9
RS		 4541 switch (dyn.d_tag)
4542 {
ce558b89
AM		 4543 case DT_PLTGOT:
4544 s = htab->elf.splt;
4545 size = FALSE;
4546 break;
4547 case DT_PLTRELSZ:
4548 s = htab->elf.srelplt;
4549 size = TRUE;
4550 break;
4551 case DT_JMPREL:
4552 s = htab->elf.srelplt;
4553 size = FALSE;
4554 break;
4555 default:
4556 continue;
910600e9 4557 }
22b75d0a 4558
ce558b89
AM		 4559 if (s == NULL)
4560 dyn.d_un.d_val = 0;
4561 else
22b75d0a 4562 {
ce558b89
AM		 4563 if (!size)
4564 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
22b75d0a 4565 else
ce558b89 4566 dyn.d_un.d_val = s->size;
22b75d0a 4567 }
ce558b89 4568 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
22b75d0a
DM		 4569 }
4570 }
4571 return TRUE;
4572}
4573
910600e9
RS		 4574/* Install the first PLT entry in a VxWorks executable and make sure that
4575 .rela.plt.unloaded relocations have the correct symbol indexes. */
4576
4577static void
4578sparc_vxworks_finish_exec_plt (bfd *output_bfd, struct bfd_link_info *info)
4579{
4580 struct _bfd_sparc_elf_link_hash_table *htab;
4581 Elf_Internal_Rela rela;
4582 bfd_vma got_base;
4583 bfd_byte *loc;
4584
4585 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4586 BFD_ASSERT (htab != NULL);
910600e9
RS		 4587
4588 /* Calculate the absolute value of _GLOBAL_OFFSET_TABLE_. */
4589 got_base = (htab->elf.hgot->root.u.def.section->output_section->vma
4590 + htab->elf.hgot->root.u.def.section->output_offset
4591 + htab->elf.hgot->root.u.def.value);
4592
4593 /* Install the initial PLT entry. */
4594 bfd_put_32 (output_bfd,
4595 sparc_vxworks_exec_plt0_entry[0] + ((got_base + 8) >> 10),
72fbc6e5 4596 htab->elf.splt->contents);
910600e9
RS		 4597 bfd_put_32 (output_bfd,
4598 sparc_vxworks_exec_plt0_entry[1] + ((got_base + 8) & 0x3ff),
72fbc6e5 4599 htab->elf.splt->contents + 4);
910600e9
RS		 4600 bfd_put_32 (output_bfd,
4601 sparc_vxworks_exec_plt0_entry[2],
72fbc6e5 4602 htab->elf.splt->contents + 8);
910600e9
RS		 4603 bfd_put_32 (output_bfd,
4604 sparc_vxworks_exec_plt0_entry[3],
72fbc6e5 4605 htab->elf.splt->contents + 12);
910600e9
RS		 4606 bfd_put_32 (output_bfd,
4607 sparc_vxworks_exec_plt0_entry[4],
72fbc6e5 4608 htab->elf.splt->contents + 16);
910600e9
RS		 4609
4610 loc = htab->srelplt2->contents;
4611
4612 /* Add an unloaded relocation for the initial entry's "sethi". */
72fbc6e5
DM		 4613 rela.r_offset = (htab->elf.splt->output_section->vma
4614 + htab->elf.splt->output_offset);
910600e9
RS		 4615 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_HI22);
4616 rela.r_addend = 8;
4617 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4618 loc += sizeof (Elf32_External_Rela);
4619
4620 /* Likewise the following "or". */
4621 rela.r_offset += 4;
4622 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_LO10);
4623 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4624 loc += sizeof (Elf32_External_Rela);
4625
4626 /* Fix up the remaining .rela.plt.unloaded relocations. They may have
4627 the wrong symbol index for _G_O_T_ or _P_L_T_ depending on the order
4628 in which symbols were output. */
4629 while (loc < htab->srelplt2->contents + htab->srelplt2->size)
4630 {
4631 Elf_Internal_Rela rel;
4632
4633 /* The entry's initial "sethi" (against _G_O_T_). */
4634 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
4635 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_HI22);
4636 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4637 loc += sizeof (Elf32_External_Rela);
4638
4639 /* The following "or" (also against _G_O_T_). */
4640 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
4641 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_LO10);
4642 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4643 loc += sizeof (Elf32_External_Rela);
4644
4645 /* The .got.plt entry (against _P_L_T_). */
4646 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
4647 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_SPARC_32);
4648 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4649 loc += sizeof (Elf32_External_Rela);
4650 }
4651}
4652
4653/* Install the first PLT entry in a VxWorks shared object. */
4654
4655static void
4656sparc_vxworks_finish_shared_plt (bfd *output_bfd, struct bfd_link_info *info)
4657{
4658 struct _bfd_sparc_elf_link_hash_table *htab;
4659 unsigned int i;
4660
4661 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6
NC		 4662 BFD_ASSERT (htab != NULL);
4663
910600e9
RS		 4664 for (i = 0; i < ARRAY_SIZE (sparc_vxworks_shared_plt0_entry); i++)
4665 bfd_put_32 (output_bfd, sparc_vxworks_shared_plt0_entry[i],
72fbc6e5 4666 htab->elf.splt->contents + i * 4);
910600e9
RS		 4667}
4668
d0c9aeb3
DM		 4669/* Finish up local dynamic symbol handling. We set the contents of
4670 various dynamic sections here. */
4671
4672static bfd_boolean
4673finish_local_dynamic_symbol (void **slot, void *inf)
4674{
4675 struct elf_link_hash_entry *h
4676 = (struct elf_link_hash_entry *) *slot;
4677 struct bfd_link_info *info
68ffbac6 4678 = (struct bfd_link_info *) inf;
d0c9aeb3
DM		 4679
4680 return _bfd_sparc_elf_finish_dynamic_symbol (info->output_bfd, info,
4681 h, NULL);
4682}
4683
bb1dd176
QZ		 4684/* Finish up undefined weak symbol handling in PIE. Fill its PLT entry
4685 here since undefined weak symbol may not be dynamic and may not be
4686 called for _bfd_sparc_elf_finish_dynamic_symbol. */
4687
4688static bfd_boolean
4689pie_finish_undefweak_symbol (struct bfd_hash_entry *bh,
07d6d2b8 4690 void *inf)
bb1dd176
QZ		 4691{
4692 struct elf_link_hash_entry *h = (struct elf_link_hash_entry *) bh;
4693 struct bfd_link_info *info = (struct bfd_link_info *) inf;
4694
4695 if (h->root.type != bfd_link_hash_undefweak
4696 || h->dynindx != -1)
4697 return TRUE;
4698
4699 return _bfd_sparc_elf_finish_dynamic_symbol (info->output_bfd, info,
07d6d2b8 4700 h, NULL);
bb1dd176
QZ		 4701}
4702
22b75d0a
DM		 4703bfd_boolean
4704_bfd_sparc_elf_finish_dynamic_sections (bfd *output_bfd, struct bfd_link_info *info)
4705{
4706 bfd *dynobj;
4707 asection *sdyn;
4708 struct _bfd_sparc_elf_link_hash_table *htab;
4709
4710 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4711 BFD_ASSERT (htab != NULL);
22b75d0a 4712 dynobj = htab->elf.dynobj;
4b24dd1a 4713
6d0a6093
JM		 4714 /* We arranged in size_dynamic_sections to put the STT_REGISTER
4715 entries at the end of the dynlocal list, so they came at the end
4716 of the local symbols in the symtab. Except that they aren't
4717 STB_LOCAL, so we need to back up symtab->sh_info. */
4718 if (ABI_64_P (output_bfd)
4719 && elf_hash_table (info)->dynlocal)
4720 {
4721 asection *dynsymsec = bfd_get_linker_section (dynobj, ".dynsym");
4722 struct elf_link_local_dynamic_entry *e;
4b24dd1a 4723
6d0a6093
JM		 4724 for (e = elf_hash_table (info)->dynlocal; e ; e = e->next)
4725 if (e->input_indx == -1)
4726 break;
4727 if (e)
4728 elf_section_data (dynsymsec->output_section)->this_hdr.sh_info
4729 = e->dynindx;
4730 }
4b24dd1a 4731
3d4d4302 4732 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
22b75d0a
DM		 4733
4734 if (elf_hash_table (info)->dynamic_sections_created)
4735 {
4736 asection *splt;
22b75d0a 4737
3d4d4302 4738 splt = htab->elf.splt;
22b75d0a
DM		 4739 BFD_ASSERT (splt != NULL && sdyn != NULL);
4740
39817122
RS		 4741 if (!sparc_finish_dyn (output_bfd, info, dynobj, sdyn, splt))
4742 return FALSE;
22b75d0a
DM		 4743
4744 /* Initialize the contents of the .plt section. */
4745 if (splt->size > 0)
4746 {
910600e9
RS		 4747 if (htab->is_vxworks)
4748 {
0e1862bb 4749 if (bfd_link_pic (info))
910600e9
RS		 4750 sparc_vxworks_finish_shared_plt (output_bfd, info);
4751 else
4752 sparc_vxworks_finish_exec_plt (output_bfd, info);
4753 }
22b75d0a
DM		 4754 else
4755 {
910600e9
RS		 4756 memset (splt->contents, 0, htab->plt_header_size);
4757 if (!ABI_64_P (output_bfd))
4758 bfd_put_32 (output_bfd, (bfd_vma) SPARC_NOP,
4759 splt->contents + splt->size - 4);
22b75d0a
DM		 4760 }
4761 }
4762
387f8054 4763 if (elf_section_data (splt->output_section) != NULL)
07d6d2b8
AM		 4764 elf_section_data (splt->output_section)->this_hdr.sh_entsize
4765 = ((htab->is_vxworks || !ABI_64_P (output_bfd))
4766 ? 0 : htab->plt_entry_size);
22b75d0a
DM		 4767 }
4768
4769 /* Set the first entry in the global offset table to the address of
4770 the dynamic section. */
72fbc6e5 4771 if (htab->elf.sgot && htab->elf.sgot->size > 0)
22b75d0a
DM		 4772 {
4773 bfd_vma val = (sdyn ?
4774 sdyn->output_section->vma + sdyn->output_offset :
4775 0);
4776
72fbc6e5 4777 SPARC_ELF_PUT_WORD (htab, output_bfd, val, htab->elf.sgot->contents);
22b75d0a
DM		 4778 }
4779
72fbc6e5
DM		 4780 if (htab->elf.sgot)
4781 elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize =
22b75d0a
DM		 4782 SPARC_ELF_WORD_BYTES (htab);
4783
d0c9aeb3
DM		 4784 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
4785 htab_traverse (htab->loc_hash_table, finish_local_dynamic_symbol, info);
4786
bb1dd176
QZ		 4787 /* Fill PLT entries for undefined weak symbols in PIE. */
4788 if (bfd_link_pie (info))
4789 bfd_hash_traverse (&info->hash->table,
07d6d2b8
AM		 4790 pie_finish_undefweak_symbol,
4791 info);
22b75d0a
DM		 4792 return TRUE;
4793}
4794
4795\f
4796/* Set the right machine number for a SPARC ELF file. */
4797
4798bfd_boolean
4799_bfd_sparc_elf_object_p (bfd *abfd)
4800{
4f26fb3a
JM		 4801 obj_attribute *attrs = elf_known_obj_attributes (abfd)[OBJ_ATTR_GNU];
4802 obj_attribute *hwcaps = &attrs[Tag_GNU_Sparc_HWCAPS];
4803 obj_attribute *hwcaps2 = &attrs[Tag_GNU_Sparc_HWCAPS2];
4804
4805 unsigned int v9c_hwcaps_mask = ELF_SPARC_HWCAP_ASI_BLK_INIT;
4806 unsigned int v9d_hwcaps_mask = (ELF_SPARC_HWCAP_FMAF
07d6d2b8
AM		 4807 | ELF_SPARC_HWCAP_VIS3
4808 | ELF_SPARC_HWCAP_HPC);
4f26fb3a 4809 unsigned int v9e_hwcaps_mask = (ELF_SPARC_HWCAP_AES
07d6d2b8
AM		 4810 | ELF_SPARC_HWCAP_DES
4811 | ELF_SPARC_HWCAP_KASUMI
4812 | ELF_SPARC_HWCAP_CAMELLIA
4813 | ELF_SPARC_HWCAP_MD5
4814 | ELF_SPARC_HWCAP_SHA1
4815 | ELF_SPARC_HWCAP_SHA256
4816 | ELF_SPARC_HWCAP_SHA512
4817 | ELF_SPARC_HWCAP_MPMUL
4818 | ELF_SPARC_HWCAP_MONT
4819 | ELF_SPARC_HWCAP_CRC32C
4820 | ELF_SPARC_HWCAP_CBCOND
4821 | ELF_SPARC_HWCAP_PAUSE);
4f26fb3a 4822 unsigned int v9v_hwcaps_mask = (ELF_SPARC_HWCAP_FJFMAU
07d6d2b8 4823 | ELF_SPARC_HWCAP_IMA);
4f26fb3a 4824 unsigned int v9m_hwcaps2_mask = (ELF_SPARC_HWCAP2_SPARC5
07d6d2b8
AM		 4825 | ELF_SPARC_HWCAP2_MWAIT
4826 | ELF_SPARC_HWCAP2_XMPMUL
4827 | ELF_SPARC_HWCAP2_XMONT);
64517994 4828 unsigned int m8_hwcaps2_mask = (ELF_SPARC_HWCAP2_SPARC6
07d6d2b8
AM		 4829 | ELF_SPARC_HWCAP2_ONADDSUB
4830 | ELF_SPARC_HWCAP2_ONMUL
4831 | ELF_SPARC_HWCAP2_ONDIV
4832 | ELF_SPARC_HWCAP2_DICTUNP
4833 | ELF_SPARC_HWCAP2_FPCMPSHL
4834 | ELF_SPARC_HWCAP2_RLE
4835 | ELF_SPARC_HWCAP2_SHA3);
4f26fb3a 4836
22b75d0a
DM		 4837 if (ABI_64_P (abfd))
4838 {
4839 unsigned long mach = bfd_mach_sparc_v9;
4840
64517994 4841 if (hwcaps2->i & m8_hwcaps2_mask)
07d6d2b8 4842 mach = bfd_mach_sparc_v9m8;
64517994 4843 else if (hwcaps2->i & v9m_hwcaps2_mask)
07d6d2b8 4844 mach = bfd_mach_sparc_v9m;
4f26fb3a 4845 else if (hwcaps->i & v9v_hwcaps_mask)
07d6d2b8 4846 mach = bfd_mach_sparc_v9v;
4f26fb3a 4847 else if (hwcaps->i & v9e_hwcaps_mask)
07d6d2b8 4848 mach = bfd_mach_sparc_v9e;
4f26fb3a 4849 else if (hwcaps->i & v9d_hwcaps_mask)
07d6d2b8 4850 mach = bfd_mach_sparc_v9d;
4f26fb3a 4851 else if (hwcaps->i & v9c_hwcaps_mask)
07d6d2b8 4852 mach = bfd_mach_sparc_v9c;
4f26fb3a 4853 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US3)
22b75d0a
DM		 4854 mach = bfd_mach_sparc_v9b;
4855 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US1)
4856 mach = bfd_mach_sparc_v9a;
4857 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc, mach);
4858 }
4859 else
4860 {
4861 if (elf_elfheader (abfd)->e_machine == EM_SPARC32PLUS)
4862 {
07d6d2b8
AM		 4863 if (hwcaps2->i & m8_hwcaps2_mask)
4864 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4865 bfd_mach_sparc_v8plusm8);
4866 else if (hwcaps2->i & v9m_hwcaps2_mask)
4f26fb3a
JM		 4867 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4868 bfd_mach_sparc_v8plusm);
07d6d2b8
AM		 4869 else if (hwcaps->i & v9v_hwcaps_mask)
4870 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a 4871 bfd_mach_sparc_v8plusv);
07d6d2b8
AM		 4872 else if (hwcaps->i & v9e_hwcaps_mask)
4873 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a 4874 bfd_mach_sparc_v8pluse);
07d6d2b8
AM		 4875 else if (hwcaps->i & v9d_hwcaps_mask)
4876 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a 4877 bfd_mach_sparc_v8plusd);
07d6d2b8
AM		 4878 else if (hwcaps->i & v9c_hwcaps_mask)
4879 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a
JM		 4880 bfd_mach_sparc_v8plusc);
4881 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US3)
22b75d0a
DM		 4882 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4883 bfd_mach_sparc_v8plusb);
4884 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US1)
4885 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4886 bfd_mach_sparc_v8plusa);
4887 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_32PLUS)
4888 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4889 bfd_mach_sparc_v8plus);
4890 else
4891 return FALSE;
4892 }
4893 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_LEDATA)
4894 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4895 bfd_mach_sparc_sparclite_le);
4896 else
4897 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc, bfd_mach_sparc);
4898 }
4899}
4900
4901/* Return address for Ith PLT stub in section PLT, for relocation REL
4902 or (bfd_vma) -1 if it should not be included. */
4903
4904bfd_vma
4905_bfd_sparc_elf_plt_sym_val (bfd_vma i, const asection *plt, const arelent *rel)
4906{
4907 if (ABI_64_P (plt->owner))
4908 {
4909 bfd_vma j;
4910
4911 i += PLT64_HEADER_SIZE / PLT64_ENTRY_SIZE;
4912 if (i < PLT64_LARGE_THRESHOLD)
4913 return plt->vma + i * PLT64_ENTRY_SIZE;
4914
4915 j = (i - PLT64_LARGE_THRESHOLD) % 160;
4916 i -= j;
4917 return plt->vma + i * PLT64_ENTRY_SIZE + j * 4 * 6;
4918 }
4919 else
4920 return rel->address;
4921}
9e8c70f9
DM		 4922
4923/* Merge backend specific data from an object file to the output
4924 object file when linking. */
4925
4926bfd_boolean
50e03d47 4927_bfd_sparc_elf_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
9e8c70f9 4928{
50e03d47 4929 bfd *obfd = info->output_bfd;
9e8c70f9
DM		 4930 obj_attribute *in_attr, *in_attrs;
4931 obj_attribute *out_attr, *out_attrs;
4932
4933 if (!elf_known_obj_attributes_proc (obfd)[0].i)
4934 {
4935 /* This is the first object. Copy the attributes. */
4936 _bfd_elf_copy_obj_attributes (ibfd, obfd);
4937
4938 /* Use the Tag_null value to indicate the attributes have been
4939 initialized. */
4940 elf_known_obj_attributes_proc (obfd)[0].i = 1;
4941
4942 return TRUE;
4943 }
4944
4945 in_attrs = elf_known_obj_attributes (ibfd)[OBJ_ATTR_GNU];
4946 out_attrs = elf_known_obj_attributes (obfd)[OBJ_ATTR_GNU];
4947
4948 in_attr = &in_attrs[Tag_GNU_Sparc_HWCAPS];
4949 out_attr = &out_attrs[Tag_GNU_Sparc_HWCAPS];
1b786873 4950
3d68f91c
JM		 4951 out_attr->i |= in_attr->i;
4952 out_attr->type = 1;
9e8c70f9 4953
3d68f91c
JM		 4954 in_attr = &in_attrs[Tag_GNU_Sparc_HWCAPS2];
4955 out_attr = &out_attrs[Tag_GNU_Sparc_HWCAPS2];
1b786873 4956
9e8c70f9 4957 out_attr->i |= in_attr->i;
209be8d2 4958 out_attr->type = 1;
9e8c70f9
DM		 4959
4960 /* Merge Tag_compatibility attributes and any common GNU ones. */
50e03d47 4961 _bfd_elf_merge_object_attributes (ibfd, info);
9e8c70f9
DM		 4962
4963 return TRUE;
4964}
GDB Binutils - Deliverables
This page took 1.102529 seconds and 4 git commands to generate.