projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
x86: operand sizing prefixes can disambiguate insns
[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
90c14f0c 1219 if (htab->elf.target_os == is_vxworks)
910600e9
RS		 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. */
90c14f0c
L		 2079 if (htab->elf.target_os == is_vxworks
2080 && !bfd_link_pic (info))
910600e9
RS		 2081 htab->srelplt2->size = sizeof (Elf32_External_Rela) * 2;
2082 }
22b75d0a
DM		 2083
2084 /* The procedure linkage table size is bounded by the magnitude
2085 of the offset we can describe in the entry. */
2086 if (s->size >= (SPARC_ELF_WORD_BYTES(htab) == 8 ?
e8be8da4 2087 (((bfd_vma)1 << 31) << 1) : 0x400000))
22b75d0a
DM		 2088 {
2089 bfd_set_error (bfd_error_bad_value);
2090 return FALSE;
2091 }
2092
2093 if (SPARC_ELF_WORD_BYTES(htab) == 8
2094 && s->size >= PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE)
2095 {
2096 bfd_vma off = s->size - PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE;
2097
2098
2099 off = (off % (160 * PLT64_ENTRY_SIZE)) / PLT64_ENTRY_SIZE;
2100
2101 h->plt.offset = (s->size - (off * 8));
2102 }
2103 else
2104 h->plt.offset = s->size;
2105
2106 /* If this symbol is not defined in a regular file, and we are
2107 not generating a shared library, then set the symbol to this
2108 location in the .plt. This is required to make function
2109 pointers compare as equal between the normal executable and
2110 the shared library. */
0e1862bb 2111 if (! bfd_link_pic (info)
22b75d0a
DM		 2112 && !h->def_regular)
2113 {
2114 h->root.u.def.section = s;
2115 h->root.u.def.value = h->plt.offset;
2116 }
2117
2118 /* Make room for this entry. */
910600e9 2119 s->size += htab->plt_entry_size;
22b75d0a 2120
07d6d2b8
AM		 2121 /* There should be no PLT relocations against resolved undefined
2122 weak symbols in the executable. */
2123 if (!resolved_to_zero)
2124 {
bb1dd176
QZ		 2125 /* We also need to make an entry in the .rela.plt section. */
2126 if (s == htab->elf.splt)
07d6d2b8 2127 htab->elf.srelplt->size += SPARC_ELF_RELA_BYTES (htab);
bb1dd176 2128 else
07d6d2b8
AM		 2129 htab->elf.irelplt->size += SPARC_ELF_RELA_BYTES (htab);
2130 }
910600e9 2131
90c14f0c 2132 if (htab->elf.target_os == is_vxworks)
910600e9
RS		 2133 {
2134 /* Allocate space for the .got.plt entry. */
72fbc6e5 2135 htab->elf.sgotplt->size += 4;
910600e9
RS		 2136
2137 /* ...and for the .rela.plt.unloaded relocations. */
0e1862bb 2138 if (!bfd_link_pic (info))
910600e9
RS		 2139 htab->srelplt2->size += sizeof (Elf32_External_Rela) * 3;
2140 }
22b75d0a
DM		 2141 }
2142 else
2143 {
2144 h->plt.offset = (bfd_vma) -1;
2145 h->needs_plt = 0;
2146 }
2147 }
2148 else
2149 {
2150 h->plt.offset = (bfd_vma) -1;
2151 h->needs_plt = 0;
2152 }
2153
2154 /* If R_SPARC_TLS_IE_{HI22,LO10} symbol is now local to the binary,
2155 make it a R_SPARC_TLS_LE_{HI22,LO10} requiring no TLS entry. */
2156 if (h->got.refcount > 0
c20c30f6 2157 && bfd_link_executable (info)
22b75d0a
DM		 2158 && h->dynindx == -1
2159 && _bfd_sparc_elf_hash_entry(h)->tls_type == GOT_TLS_IE)
2160 h->got.offset = (bfd_vma) -1;
2161 else if (h->got.refcount > 0)
2162 {
2163 asection *s;
2164 bfd_boolean dyn;
2165 int tls_type = _bfd_sparc_elf_hash_entry(h)->tls_type;
2166
a8735c82
EB		 2167 /* Undefined weak syms won't yet be marked as dynamic. */
2168 if (h->root.type == bfd_link_hash_undefweak
07d6d2b8 2169 && !resolved_to_zero
a8735c82
EB		 2170 && h->dynindx == -1
2171 && !h->forced_local)
22b75d0a
DM		 2172 {
2173 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2174 return FALSE;
2175 }
2176
72fbc6e5 2177 s = htab->elf.sgot;
22b75d0a
DM		 2178 h->got.offset = s->size;
2179 s->size += SPARC_ELF_WORD_BYTES (htab);
2180 /* R_SPARC_TLS_GD_HI{22,LO10} needs 2 consecutive GOT slots. */
2181 if (tls_type == GOT_TLS_GD)
2182 s->size += SPARC_ELF_WORD_BYTES (htab);
2183 dyn = htab->elf.dynamic_sections_created;
2184 /* R_SPARC_TLS_IE_{HI22,LO10} needs one dynamic relocation,
a8735c82 2185 R_SPARC_TLS_GD_{HI22,LO10} needs one if local and two if global. */
22b75d0a 2186 if ((tls_type == GOT_TLS_GD && h->dynindx == -1)
d0c9aeb3
DM		 2187 || tls_type == GOT_TLS_IE
2188 || h->type == STT_GNU_IFUNC)
72fbc6e5 2189 htab->elf.srelgot->size += SPARC_ELF_RELA_BYTES (htab);
22b75d0a 2190 else if (tls_type == GOT_TLS_GD)
72fbc6e5 2191 htab->elf.srelgot->size += 2 * SPARC_ELF_RELA_BYTES (htab);
a8735c82
EB		 2192 else if ((WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, bfd_link_pic (info), h)
2193 /* Even if the symbol isn't dynamic, we may generate a
2194 reloc for the dynamic linker in PIC mode. */
2195 || (h->dynindx == -1
2196 && !h->forced_local
2197 && h->root.type != bfd_link_hash_undefweak
2198 && bfd_link_pic (info)))
2199 /* No dynamic relocations are needed against resolved
2200 undefined weak symbols in an executable. */
2201 && !(h->root.type == bfd_link_hash_undefweak
2202 && (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2203 || resolved_to_zero)))
72fbc6e5 2204 htab->elf.srelgot->size += SPARC_ELF_RELA_BYTES (htab);
22b75d0a
DM		 2205 }
2206 else
2207 h->got.offset = (bfd_vma) -1;
2208
190eb1dd 2209 if (h->dyn_relocs == NULL)
22b75d0a
DM		 2210 return TRUE;
2211
2212 /* In the shared -Bsymbolic case, discard space allocated for
2213 dynamic pc-relative relocs against symbols which turn out to be
2214 defined in regular objects. For the normal shared case, discard
2215 space for pc-relative relocs that have become local due to symbol
2216 visibility changes. */
2217
0e1862bb 2218 if (bfd_link_pic (info))
22b75d0a 2219 {
72fbc6e5 2220 if (SYMBOL_CALLS_LOCAL (info, h))
22b75d0a 2221 {
3bf083ed 2222 struct elf_dyn_relocs **pp;
22b75d0a 2223
190eb1dd 2224 for (pp = &h->dyn_relocs; (p = *pp) != NULL; )
22b75d0a
DM		 2225 {
2226 p->count -= p->pc_count;
2227 p->pc_count = 0;
2228 if (p->count == 0)
2229 *pp = p->next;
2230 else
2231 pp = &p->next;
2232 }
2233 }
22d606e9 2234
90c14f0c 2235 if (htab->elf.target_os == is_vxworks)
3348747a 2236 {
3bf083ed 2237 struct elf_dyn_relocs **pp;
3348747a 2238
190eb1dd 2239 for (pp = &h->dyn_relocs; (p = *pp) != NULL; )
3348747a
NS		 2240 {
2241 if (strcmp (p->sec->output_section->name, ".tls_vars") == 0)
2242 *pp = p->next;
2243 else
2244 pp = &p->next;
2245 }
2246 }
2247
22d606e9 2248 /* Also discard relocs on undefined weak syms with non-default
bb1dd176 2249 visibility or in PIE. */
190eb1dd 2250 if (h->dyn_relocs != NULL
22d606e9
AM		 2251 && h->root.type == bfd_link_hash_undefweak)
2252 {
07d6d2b8 2253 /* An undefined weak symbol is never
bb1dd176
QZ		 2254 bound locally in a shared library. */
2255
2256 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
07d6d2b8
AM		 2257 || resolved_to_zero)
2258 {
2259 if (h->non_got_ref)
2260 {
2261 /* Keep dynamic non-GOT/non-PLT relocation so that we
2262 can branch to 0 without PLT. */
2263 struct elf_dyn_relocs **pp;
2264
190eb1dd 2265 for (pp = &h->dyn_relocs; (p = *pp) != NULL;)
07d6d2b8
AM		 2266 if (p->pc_count == 0)
2267 *pp = p->next;
2268 else
2269 {
2270 /* Remove other relocations. */
2271 p->count = p->pc_count;
2272 pp = &p->next;
2273 }
2274
190eb1dd 2275 if (h->dyn_relocs != NULL)
07d6d2b8
AM		 2276 {
2277 /* Make sure undefined weak symbols are output
2278 as dynamic symbols in PIEs for dynamic non-GOT
2279 non-PLT reloations. */
2280 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2281 return FALSE;
2282 }
2283 }
2284 else
190eb1dd 2285 h->dyn_relocs = NULL;
07d6d2b8 2286 }
22d606e9
AM		 2287
2288 /* Make sure undefined weak symbols are output as a dynamic
2289 symbol in PIEs. */
2290 else if (h->dynindx == -1
2291 && !h->forced_local)
2292 {
2293 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2294 return FALSE;
2295 }
2296 }
22b75d0a
DM		 2297 }
2298 else
2299 {
2300 /* For the non-shared case, discard space for relocs against
2301 symbols which turn out to need copy relocs or are not
2302 dynamic. */
2303
bb1dd176 2304 if ((!h->non_got_ref
07d6d2b8
AM		 2305 || (h->root.type == bfd_link_hash_undefweak
2306 && !resolved_to_zero))
22b75d0a
DM		 2307 && ((h->def_dynamic
2308 && !h->def_regular)
2309 || (htab->elf.dynamic_sections_created
2310 && (h->root.type == bfd_link_hash_undefweak
2311 || h->root.type == bfd_link_hash_undefined))))
2312 {
a8735c82
EB		 2313 /* Undefined weak syms won't yet be marked as dynamic. */
2314 if (h->root.type == bfd_link_hash_undefweak
07d6d2b8 2315 && !resolved_to_zero
a8735c82
EB		 2316 && h->dynindx == -1
2317 && !h->forced_local)
22b75d0a
DM		 2318 {
2319 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2320 return FALSE;
2321 }
2322
2323 /* If that succeeded, we know we'll be keeping all the
2324 relocs. */
2325 if (h->dynindx != -1)
2326 goto keep;
2327 }
2328
190eb1dd 2329 h->dyn_relocs = NULL;
22b75d0a
DM		 2330
2331 keep: ;
2332 }
2333
2334 /* Finally, allocate space. */
190eb1dd 2335 for (p = h->dyn_relocs; p != NULL; p = p->next)
22b75d0a
DM		 2336 {
2337 asection *sreloc = elf_section_data (p->sec)->sreloc;
2338 sreloc->size += p->count * SPARC_ELF_RELA_BYTES (htab);
2339 }
2340
2341 return TRUE;
2342}
2343
d0c9aeb3
DM		 2344/* Allocate space in .plt, .got and associated reloc sections for
2345 local dynamic relocs. */
2346
2347static bfd_boolean
2348allocate_local_dynrelocs (void **slot, void *inf)
2349{
2350 struct elf_link_hash_entry *h
2351 = (struct elf_link_hash_entry *) *slot;
2352
2353 if (h->type != STT_GNU_IFUNC
2354 || !h->def_regular
2355 || !h->ref_regular
2356 || !h->forced_local
2357 || h->root.type != bfd_link_hash_defined)
2358 abort ();
2359
2360 return allocate_dynrelocs (h, inf);
2361}
2362
22b75d0a
DM		 2363/* Return true if the dynamic symbol for a given section should be
2364 omitted when creating a shared library. */
2365
2366bfd_boolean
2367_bfd_sparc_elf_omit_section_dynsym (bfd *output_bfd,
2368 struct bfd_link_info *info,
2369 asection *p)
2370{
2371 /* We keep the .got section symbol so that explicit relocations
2372 against the _GLOBAL_OFFSET_TABLE_ symbol emitted in PIC mode
2373 can be turned into relocations against the .got symbol. */
2374 if (strcmp (p->name, ".got") == 0)
2375 return FALSE;
2376
d00dd7dc 2377 return _bfd_elf_omit_section_dynsym_default (output_bfd, info, p);
22b75d0a
DM		 2378}
2379
2380/* Set the sizes of the dynamic sections. */
2381
2382bfd_boolean
2383_bfd_sparc_elf_size_dynamic_sections (bfd *output_bfd,
2384 struct bfd_link_info *info)
2385{
2386 struct _bfd_sparc_elf_link_hash_table *htab;
2387 bfd *dynobj;
2388 asection *s;
2389 bfd *ibfd;
2390
2391 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 2392 BFD_ASSERT (htab != NULL);
22b75d0a
DM		 2393 dynobj = htab->elf.dynobj;
2394 BFD_ASSERT (dynobj != NULL);
2395
2396 if (elf_hash_table (info)->dynamic_sections_created)
2397 {
2398 /* Set the contents of the .interp section to the interpreter. */
9b8b325a 2399 if (bfd_link_executable (info) && !info->nointerp)
07d6d2b8
AM		 2400 {
2401 s = bfd_get_linker_section (dynobj, ".interp");
2402 BFD_ASSERT (s != NULL);
2403 s->size = htab->dynamic_interpreter_size;
2404 s->contents = (unsigned char *) htab->dynamic_interpreter;
2405 htab->interp = s;
2406 }
22b75d0a
DM		 2407 }
2408
2409 /* Set up .got offsets for local syms, and space for local dynamic
2410 relocs. */
c72f2fb2 2411 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
22b75d0a
DM		 2412 {
2413 bfd_signed_vma *local_got;
2414 bfd_signed_vma *end_local_got;
2415 char *local_tls_type;
2416 bfd_size_type locsymcount;
2417 Elf_Internal_Shdr *symtab_hdr;
2418 asection *srel;
2419
0ffa91dd 2420 if (! is_sparc_elf (ibfd))
22b75d0a
DM		 2421 continue;
2422
2423 for (s = ibfd->sections; s != NULL; s = s->next)
2424 {
3bf083ed 2425 struct elf_dyn_relocs *p;
22b75d0a 2426
6edfbbad 2427 for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
22b75d0a
DM		 2428 {
2429 if (!bfd_is_abs_section (p->sec)
2430 && bfd_is_abs_section (p->sec->output_section))
2431 {
2432 /* Input section has been discarded, either because
2433 it is a copy of a linkonce section or due to
2434 linker script /DISCARD/, so we'll be discarding
2435 the relocs too. */
2436 }
90c14f0c 2437 else if (htab->elf.target_os == is_vxworks
3348747a
NS		 2438 && strcmp (p->sec->output_section->name,
2439 ".tls_vars") == 0)
2440 {
2441 /* Relocations in vxworks .tls_vars sections are
2442 handled specially by the loader. */
2443 }
22b75d0a
DM		 2444 else if (p->count != 0)
2445 {
2446 srel = elf_section_data (p->sec)->sreloc;
d0c9aeb3
DM		 2447 if (!htab->elf.dynamic_sections_created)
2448 srel = htab->elf.irelplt;
22b75d0a
DM		 2449 srel->size += p->count * SPARC_ELF_RELA_BYTES (htab);
2450 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
f0f07ad1
L		 2451 {
2452 info->flags |= DF_TEXTREL;
871b3ab2 2453 info->callbacks->minfo (_("%pB: dynamic relocation in read-only section `%pA'\n"),
f0f07ad1
L		 2454 p->sec->owner, p->sec);
2455 }
22b75d0a
DM		 2456 }
2457 }
2458 }
2459
2460 local_got = elf_local_got_refcounts (ibfd);
2461 if (!local_got)
2462 continue;
2463
0ffa91dd 2464 symtab_hdr = &elf_symtab_hdr (ibfd);
22b75d0a
DM		 2465 locsymcount = symtab_hdr->sh_info;
2466 end_local_got = local_got + locsymcount;
2467 local_tls_type = _bfd_sparc_elf_local_got_tls_type (ibfd);
72fbc6e5
DM		 2468 s = htab->elf.sgot;
2469 srel = htab->elf.srelgot;
22b75d0a
DM		 2470 for (; local_got < end_local_got; ++local_got, ++local_tls_type)
2471 {
2472 if (*local_got > 0)
2473 {
2474 *local_got = s->size;
2475 s->size += SPARC_ELF_WORD_BYTES (htab);
2476 if (*local_tls_type == GOT_TLS_GD)
2477 s->size += SPARC_ELF_WORD_BYTES (htab);
0e1862bb 2478 if (bfd_link_pic (info)
22b75d0a
DM		 2479 || *local_tls_type == GOT_TLS_GD
2480 || *local_tls_type == GOT_TLS_IE)
2481 srel->size += SPARC_ELF_RELA_BYTES (htab);
2482 }
2483 else
2484 *local_got = (bfd_vma) -1;
2485 }
2486 }
2487
2488 if (htab->tls_ldm_got.refcount > 0)
2489 {
2490 /* Allocate 2 got entries and 1 dynamic reloc for
2491 R_SPARC_TLS_LDM_{HI22,LO10} relocs. */
72fbc6e5
DM		 2492 htab->tls_ldm_got.offset = htab->elf.sgot->size;
2493 htab->elf.sgot->size += (2 * SPARC_ELF_WORD_BYTES (htab));
2494 htab->elf.srelgot->size += SPARC_ELF_RELA_BYTES (htab);
22b75d0a
DM		 2495 }
2496 else
2497 htab->tls_ldm_got.offset = -1;
2498
2499 /* Allocate global sym .plt and .got entries, and space for global
2500 sym dynamic relocs. */
2c3fc389 2501 elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, info);
22b75d0a 2502
d0c9aeb3
DM		 2503 /* Allocate .plt and .got entries, and space for local symbols. */
2504 htab_traverse (htab->loc_hash_table, allocate_local_dynrelocs, info);
2505
0fc9967d 2506 if (! ABI_64_P (output_bfd)
90c14f0c 2507 && htab->elf.target_os != is_vxworks
22b75d0a
DM		 2508 && elf_hash_table (info)->dynamic_sections_created)
2509 {
0fc9967d
JM		 2510 /* Make space for the trailing nop in .plt. */
2511 if (htab->elf.splt->size > 0)
2512 htab->elf.splt->size += 1 * SPARC_INSN_BYTES;
22b75d0a
DM		 2513
2514 /* If the .got section is more than 0x1000 bytes, we add
2515 0x1000 to the value of _GLOBAL_OFFSET_TABLE_, so that 13
0fc9967d
JM		 2516 bit relocations have a greater chance of working.
2517
2518 FIXME: Make this optimization work for 64-bit too. */
72fbc6e5 2519 if (htab->elf.sgot->size >= 0x1000
22b75d0a
DM		 2520 && elf_hash_table (info)->hgot->root.u.def.value == 0)
2521 elf_hash_table (info)->hgot->root.u.def.value = 0x1000;
2522 }
2523
2524 /* The check_relocs and adjust_dynamic_symbol entry points have
2525 determined the sizes of the various dynamic sections. Allocate
2526 memory for them. */
2527 for (s = dynobj->sections; s != NULL; s = s->next)
2528 {
22b75d0a
DM		 2529 if ((s->flags & SEC_LINKER_CREATED) == 0)
2530 continue;
2531
72fbc6e5
DM		 2532 if (s == htab->elf.splt
2533 || s == htab->elf.sgot
9d19e4fd 2534 || s == htab->elf.sdynbss
5474d94f 2535 || s == htab->elf.sdynrelro
d0c9aeb3 2536 || s == htab->elf.iplt
72fbc6e5 2537 || s == htab->elf.sgotplt)
22b75d0a 2538 {
c456f082
AM		 2539 /* Strip this section if we don't need it; see the
2540 comment below. */
2541 }
0112cd26 2542 else if (CONST_STRNEQ (s->name, ".rela"))
c456f082
AM		 2543 {
2544 if (s->size != 0)
22b75d0a
DM		 2545 {
2546 /* We use the reloc_count field as a counter if we need
2547 to copy relocs into the output file. */
2548 s->reloc_count = 0;
2549 }
2550 }
c456f082 2551 else
22b75d0a 2552 {
c456f082 2553 /* It's not one of our sections. */
22b75d0a
DM		 2554 continue;
2555 }
2556
c456f082 2557 if (s->size == 0)
22b75d0a 2558 {
c456f082
AM		 2559 /* If we don't need this section, strip it from the
2560 output file. This is mostly to handle .rela.bss and
2561 .rela.plt. We must create both sections in
2562 create_dynamic_sections, because they must be created
2563 before the linker maps input sections to output
2564 sections. The linker does that before
2565 adjust_dynamic_symbol is called, and it is that
2566 function which decides whether anything needs to go
2567 into these sections. */
8423293d 2568 s->flags |= SEC_EXCLUDE;
22b75d0a
DM		 2569 continue;
2570 }
2571
c456f082
AM		 2572 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2573 continue;
2574
22b75d0a
DM		 2575 /* Allocate memory for the section contents. Zero the memory
2576 for the benefit of .rela.plt, which has 4 unused entries
2577 at the beginning, and we don't want garbage. */
2578 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
c456f082 2579 if (s->contents == NULL)
22b75d0a
DM		 2580 return FALSE;
2581 }
2582
2583 if (elf_hash_table (info)->dynamic_sections_created)
2584 {
2585 /* Add some entries to the .dynamic section. We fill in the
2586 values later, in _bfd_sparc_elf_finish_dynamic_sections, but we
2587 must add the entries now so that we get the correct size for
2588 the .dynamic section. The DT_DEBUG entry is filled in by the
2589 dynamic linker and used by the debugger. */
2590#define add_dynamic_entry(TAG, VAL) \
2591 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2592
3084d7a2
L		 2593 if (!_bfd_elf_maybe_vxworks_add_dynamic_tags (output_bfd, info,
2594 TRUE))
22b75d0a
DM		 2595 return FALSE;
2596
22b75d0a
DM		 2597 if (ABI_64_P (output_bfd))
2598 {
2599 int reg;
2600 struct _bfd_sparc_elf_app_reg * app_regs;
2601 struct elf_strtab_hash *dynstr;
2602 struct elf_link_hash_table *eht = elf_hash_table (info);
2603
2604 /* Add dynamic STT_REGISTER symbols and corresponding DT_SPARC_REGISTER
2605 entries if needed. */
2606 app_regs = _bfd_sparc_elf_hash_table (info)->app_regs;
2607 dynstr = eht->dynstr;
2608
2609 for (reg = 0; reg < 4; reg++)
2610 if (app_regs [reg].name != NULL)
2611 {
2612 struct elf_link_local_dynamic_entry *entry, *e;
2613
2614 if (!add_dynamic_entry (DT_SPARC_REGISTER, 0))
2615 return FALSE;
2616
2617 entry = (struct elf_link_local_dynamic_entry *)
2618 bfd_hash_allocate (&info->hash->table, sizeof (*entry));
2619 if (entry == NULL)
2620 return FALSE;
2621
2622 /* We cheat here a little bit: the symbol will not be local, so we
2623 put it at the end of the dynlocal linked list. We will fix it
2624 later on, as we have to fix other fields anyway. */
2625 entry->isym.st_value = reg < 2 ? reg + 2 : reg + 4;
2626 entry->isym.st_size = 0;
2627 if (*app_regs [reg].name != '\0')
2628 entry->isym.st_name
2629 = _bfd_elf_strtab_add (dynstr, app_regs[reg].name, FALSE);
2630 else
2631 entry->isym.st_name = 0;
2632 entry->isym.st_other = 0;
2633 entry->isym.st_info = ELF_ST_INFO (app_regs [reg].bind,
2634 STT_REGISTER);
2635 entry->isym.st_shndx = app_regs [reg].shndx;
35fc36a8 2636 entry->isym.st_target_internal = 0;
22b75d0a
DM		 2637 entry->next = NULL;
2638 entry->input_bfd = output_bfd;
2639 entry->input_indx = -1;
2640
2641 if (eht->dynlocal == NULL)
2642 eht->dynlocal = entry;
2643 else
2644 {
2645 for (e = eht->dynlocal; e->next; e = e->next)
2646 ;
2647 e->next = entry;
2648 }
2649 eht->dynsymcount++;
2650 }
2651 }
2652 }
2653#undef add_dynamic_entry
2654
2655 return TRUE;
2656}
2657\f
2658bfd_boolean
2659_bfd_sparc_elf_new_section_hook (bfd *abfd, asection *sec)
2660{
f592407e
AM		 2661 if (!sec->used_by_bfd)
2662 {
2663 struct _bfd_sparc_elf_section_data *sdata;
986f0783 2664 size_t amt = sizeof (*sdata);
22b75d0a 2665
f592407e
AM		 2666 sdata = bfd_zalloc (abfd, amt);
2667 if (sdata == NULL)
2668 return FALSE;
2669 sec->used_by_bfd = sdata;
2670 }
22b75d0a
DM		 2671
2672 return _bfd_elf_new_section_hook (abfd, sec);
2673}
2674
2675bfd_boolean
2676_bfd_sparc_elf_relax_section (bfd *abfd ATTRIBUTE_UNUSED,
2677 struct bfd_section *section,
2678 struct bfd_link_info *link_info ATTRIBUTE_UNUSED,
2679 bfd_boolean *again)
2680{
0e1862bb 2681 if (bfd_link_relocatable (link_info))
c8a1f254
NS		 2682 (*link_info->callbacks->einfo)
2683 (_("%P%F: --relax and -r may not be used together\n"));
2684
22b75d0a
DM		 2685 *again = FALSE;
2686 sec_do_relax (section) = 1;
2687 return TRUE;
2688}
2689\f
2690/* Return the base VMA address which should be subtracted from real addresses
2691 when resolving @dtpoff relocation.
2692 This is PT_TLS segment p_vaddr. */
2693
2694static bfd_vma
2695dtpoff_base (struct bfd_link_info *info)
2696{
2697 /* If tls_sec is NULL, we should have signalled an error already. */
2698 if (elf_hash_table (info)->tls_sec == NULL)
2699 return 0;
2700 return elf_hash_table (info)->tls_sec->vma;
2701}
2702
2703/* Return the relocation value for @tpoff relocation
2704 if STT_TLS virtual address is ADDRESS. */
2705
2706static bfd_vma
2707tpoff (struct bfd_link_info *info, bfd_vma address)
2708{
2709 struct elf_link_hash_table *htab = elf_hash_table (info);
1360ba76
RO		 2710 const struct elf_backend_data *bed = get_elf_backend_data (info->output_bfd);
2711 bfd_vma static_tls_size;
22b75d0a
DM		 2712
2713 /* If tls_sec is NULL, we should have signalled an error already. */
2714 if (htab->tls_sec == NULL)
2715 return 0;
1360ba76
RO		 2716
2717 /* Consider special static TLS alignment requirements. */
2718 static_tls_size = BFD_ALIGN (htab->tls_size, bed->static_tls_alignment);
2719 return address - static_tls_size - htab->tls_sec->vma;
22b75d0a
DM		 2720}
2721
00c50991
DM		 2722/* Return the relocation value for a %gdop relocation. */
2723
2724static bfd_vma
2725gdopoff (struct bfd_link_info *info, bfd_vma address)
2726{
2727 struct elf_link_hash_table *htab = elf_hash_table (info);
2728 bfd_vma got_base;
2729
2730 got_base = (htab->hgot->root.u.def.value
2731 + htab->hgot->root.u.def.section->output_offset
2732 + htab->hgot->root.u.def.section->output_section->vma);
2733
2734 return address - got_base;
2735}
2736
5b86074c
AM		 2737/* Return whether H is local and its ADDRESS is within 4G of
2738 _GLOBAL_OFFSET_TABLE_ and thus the offset may be calculated by a
2739 sethi, xor sequence. */
2740
2741static bfd_boolean
2742gdop_relative_offset_ok (struct bfd_link_info *info,
2743 struct elf_link_hash_entry *h,
2744 bfd_vma address ATTRIBUTE_UNUSED)
2745{
2746 if (!SYMBOL_REFERENCES_LOCAL (info, h))
2747 return FALSE;
2748 /* If H is undefined, ADDRESS will be zero. We can't allow a
2749 relative offset to "zero" when producing PIEs or shared libs.
2750 Note that to get here with an undefined symbol it must also be
2751 hidden or internal visibility. */
2752 if (bfd_link_pic (info)
2753 && h != NULL
2754 && (h->root.type == bfd_link_hash_undefweak
2755 || h->root.type == bfd_link_hash_undefined))
2756 return FALSE;
2757#ifdef BFD64
2758 return gdopoff (info, address) + ((bfd_vma) 1 << 32) < (bfd_vma) 2 << 32;
2759#else
2760 return TRUE;
2761#endif
2762}
2763
22b75d0a
DM		 2764/* Relocate a SPARC ELF section. */
2765
2766bfd_boolean
ab96bf03
AM		 2767_bfd_sparc_elf_relocate_section (bfd *output_bfd,
2768 struct bfd_link_info *info,
2769 bfd *input_bfd,
2770 asection *input_section,
2771 bfd_byte *contents,
2772 Elf_Internal_Rela *relocs,
2773 Elf_Internal_Sym *local_syms,
2774 asection **local_sections)
22b75d0a
DM		 2775{
2776 struct _bfd_sparc_elf_link_hash_table *htab;
2777 Elf_Internal_Shdr *symtab_hdr;
2778 struct elf_link_hash_entry **sym_hashes;
2779 bfd_vma *local_got_offsets;
2780 bfd_vma got_base;
2781 asection *sreloc;
2782 Elf_Internal_Rela *rel;
2783 Elf_Internal_Rela *relend;
2784 int num_relocs;
3348747a 2785 bfd_boolean is_vxworks_tls;
22b75d0a 2786
22b75d0a 2787 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 2788 BFD_ASSERT (htab != NULL);
0ffa91dd 2789 symtab_hdr = &elf_symtab_hdr (input_bfd);
22b75d0a
DM		 2790 sym_hashes = elf_sym_hashes (input_bfd);
2791 local_got_offsets = elf_local_got_offsets (input_bfd);
2792
2793 if (elf_hash_table (info)->hgot == NULL)
2794 got_base = 0;
2795 else
2796 got_base = elf_hash_table (info)->hgot->root.u.def.value;
2797
2798 sreloc = elf_section_data (input_section)->sreloc;
3348747a
NS		 2799 /* We have to handle relocations in vxworks .tls_vars sections
2800 specially, because the dynamic loader is 'weird'. */
90c14f0c
L		 2801 is_vxworks_tls = (htab->elf.target_os == is_vxworks
2802 && bfd_link_pic (info)
3348747a
NS		 2803 && !strcmp (input_section->output_section->name,
2804 ".tls_vars"));
22b75d0a
DM		 2805
2806 rel = relocs;
2807 if (ABI_64_P (output_bfd))
d4730f92 2808 num_relocs = NUM_SHDR_ENTRIES (_bfd_elf_single_rel_hdr (input_section));
22b75d0a
DM		 2809 else
2810 num_relocs = input_section->reloc_count;
2811 relend = relocs + num_relocs;
2812 for (; rel < relend; rel++)
2813 {
2814 int r_type, tls_type;
2815 reloc_howto_type *howto;
2816 unsigned long r_symndx;
2817 struct elf_link_hash_entry *h;
bb1dd176 2818 struct _bfd_sparc_elf_link_hash_entry *eh;
22b75d0a
DM		 2819 Elf_Internal_Sym *sym;
2820 asection *sec;
2821 bfd_vma relocation, off;
2822 bfd_reloc_status_type r;
2823 bfd_boolean is_plt = FALSE;
2824 bfd_boolean unresolved_reloc;
bb1dd176 2825 bfd_boolean resolved_to_zero;
ec1acaba 2826 bfd_boolean relative_reloc;
22b75d0a
DM		 2827
2828 r_type = SPARC_ELF_R_TYPE (rel->r_info);
2829 if (r_type == R_SPARC_GNU_VTINHERIT
2830 || r_type == R_SPARC_GNU_VTENTRY)
2831 continue;
2832
2833 if (r_type < 0 || r_type >= (int) R_SPARC_max_std)
2834 {
2835 bfd_set_error (bfd_error_bad_value);
2836 return FALSE;
2837 }
22b75d0a 2838
c20c30f6 2839 howto = _bfd_sparc_elf_howto_table + r_type;
22b75d0a
DM		 2840 r_symndx = SPARC_ELF_R_SYMNDX (htab, rel->r_info);
2841 h = NULL;
2842 sym = NULL;
2843 sec = NULL;
2844 unresolved_reloc = FALSE;
2845 if (r_symndx < symtab_hdr->sh_info)
2846 {
2847 sym = local_syms + r_symndx;
2848 sec = local_sections[r_symndx];
2849 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
d0c9aeb3 2850
0e1862bb 2851 if (!bfd_link_relocatable (info)
d0c9aeb3
DM		 2852 && ELF_ST_TYPE (sym->st_info) == STT_GNU_IFUNC)
2853 {
2854 /* Relocate against local STT_GNU_IFUNC symbol. */
2855 h = elf_sparc_get_local_sym_hash (htab, input_bfd,
2856 rel, FALSE);
2857 if (h == NULL)
2858 abort ();
2859
68ffbac6 2860 /* Set STT_GNU_IFUNC symbol value. */
d0c9aeb3
DM		 2861 h->root.u.def.value = sym->st_value;
2862 h->root.u.def.section = sec;
2863 }
22b75d0a
DM		 2864 }
2865 else
2866 {
62d887d4 2867 bfd_boolean warned, ignored;
22b75d0a
DM		 2868
2869 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2870 r_symndx, symtab_hdr, sym_hashes,
2871 h, sec, relocation,
62d887d4 2872 unresolved_reloc, warned, ignored);
22b75d0a
DM		 2873 if (warned)
2874 {
2875 /* To avoid generating warning messages about truncated
2876 relocations, set the relocation's address to be the same as
2877 the start of this section. */
2878 if (input_section->output_section != NULL)
2879 relocation = input_section->output_section->vma;
2880 else
2881 relocation = 0;
2882 }
2883 }
2884
dbaa2011 2885 if (sec != NULL && discarded_section (sec))
e4067dbb 2886 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
545fd46b 2887 rel, 1, relend, howto, 0, contents);
ab96bf03 2888
0e1862bb 2889 if (bfd_link_relocatable (info))
ab96bf03
AM		 2890 continue;
2891
d0c9aeb3
DM		 2892 if (h != NULL
2893 && h->type == STT_GNU_IFUNC
2894 && h->def_regular)
2895 {
2896 asection *plt_sec;
2897 const char *name;
2898
2899 if ((input_section->flags & SEC_ALLOC) == 0
2900 || h->plt.offset == (bfd_vma) -1)
f657f8c4
NC		 2901 {
2902 /* If this is a SHT_NOTE section without SHF_ALLOC, treat
2903 STT_GNU_IFUNC symbol as STT_FUNC. */
2904 if (elf_section_type (input_section) == SHT_NOTE)
2905 goto skip_ifunc;
2906 abort ();
2907 }
d0c9aeb3
DM		 2908
2909 plt_sec = htab->elf.splt;
2910 if (! plt_sec)
2911 plt_sec =htab->elf.iplt;
2912
2913 switch (r_type)
2914 {
00c50991
DM		 2915 case R_SPARC_GOTDATA_OP:
2916 continue;
2917
d0c9aeb3
DM		 2918 case R_SPARC_GOTDATA_OP_HIX22:
2919 case R_SPARC_GOTDATA_OP_LOX10:
00c50991
DM		 2920 r_type = (r_type == R_SPARC_GOTDATA_OP_HIX22
2921 ? R_SPARC_GOT22
2922 : R_SPARC_GOT10);
2923 howto = _bfd_sparc_elf_howto_table + r_type;
2924 /* Fall through. */
2925
d0c9aeb3
DM		 2926 case R_SPARC_GOT10:
2927 case R_SPARC_GOT13:
2928 case R_SPARC_GOT22:
2929 if (htab->elf.sgot == NULL)
2930 abort ();
2931 off = h->got.offset;
2932 if (off == (bfd_vma) -1)
2933 abort();
2934 relocation = htab->elf.sgot->output_offset + off - got_base;
2935 goto do_relocation;
2936
2937 case R_SPARC_WPLT30:
2938 case R_SPARC_WDISP30:
2939 relocation = (plt_sec->output_section->vma
2940 + plt_sec->output_offset + h->plt.offset);
2941 goto do_relocation;
2942
2943 case R_SPARC_32:
2944 case R_SPARC_64:
0e1862bb 2945 if (bfd_link_pic (info) && h->non_got_ref)
d0c9aeb3
DM		 2946 {
2947 Elf_Internal_Rela outrel;
2948 bfd_vma offset;
2949
2950 offset = _bfd_elf_section_offset (output_bfd, info,
2951 input_section,
2952 rel->r_offset);
2953 if (offset == (bfd_vma) -1
2954 || offset == (bfd_vma) -2)
2955 abort();
2956
2957 outrel.r_offset = (input_section->output_section->vma
2958 + input_section->output_offset
2959 + offset);
2960
2961 if (h->dynindx == -1
2962 || h->forced_local
0e1862bb 2963 || bfd_link_executable (info))
d0c9aeb3
DM		 2964 {
2965 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
2966 0, R_SPARC_IRELATIVE);
2967 outrel.r_addend = relocation + rel->r_addend;
2968 }
2969 else
2970 {
2971 if (h->dynindx == -1)
2972 abort();
2973 outrel.r_info = SPARC_ELF_R_INFO (htab, rel, h->dynindx, r_type);
2974 outrel.r_addend = rel->r_addend;
2975 }
2976
2977 sparc_elf_append_rela (output_bfd, sreloc, &outrel);
2978 continue;
2979 }
2980
2981 relocation = (plt_sec->output_section->vma
2982 + plt_sec->output_offset + h->plt.offset);
2983 goto do_relocation;
2984
2985 case R_SPARC_HI22:
2986 case R_SPARC_LO10:
2987 /* We should only see such relocs in static links. */
0e1862bb 2988 if (bfd_link_pic (info))
d0c9aeb3
DM		 2989 abort();
2990 relocation = (plt_sec->output_section->vma
2991 + plt_sec->output_offset + h->plt.offset);
2992 goto do_relocation;
2993
2994 default:
2995 if (h->root.root.string)
2996 name = h->root.root.string;
2997 else
2998 name = bfd_elf_sym_name (input_bfd, symtab_hdr, sym,
2999 NULL);
4eca0228 3000 _bfd_error_handler
695344c0 3001 /* xgettext:c-format */
871b3ab2 3002 (_("%pB: relocation %s against STT_GNU_IFUNC "
d0c9aeb3
DM		 3003 "symbol `%s' isn't handled by %s"), input_bfd,
3004 _bfd_sparc_elf_howto_table[r_type].name,
3005 name, __FUNCTION__);
3006 bfd_set_error (bfd_error_bad_value);
3007 return FALSE;
3008 }
3009 }
3010
f657f8c4 3011 skip_ifunc:
bb1dd176 3012 eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
c20c30f6 3013 resolved_to_zero = eh && UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh);
bb1dd176 3014
22b75d0a
DM		 3015 switch (r_type)
3016 {
739f7f82
DM		 3017 case R_SPARC_GOTDATA_OP_HIX22:
3018 case R_SPARC_GOTDATA_OP_LOX10:
5b86074c 3019 if (gdop_relative_offset_ok (info, h, relocation))
cc133f9f
JC		 3020 {
3021 r_type = (r_type == R_SPARC_GOTDATA_OP_HIX22
3022 ? R_SPARC_GOTDATA_HIX22
3023 : R_SPARC_GOTDATA_LOX10);
3024 howto = _bfd_sparc_elf_howto_table + r_type;
3025 }
00c50991
DM		 3026 break;
3027
3028 case R_SPARC_GOTDATA_OP:
5b86074c 3029 if (gdop_relative_offset_ok (info, h, relocation))
00c50991
DM		 3030 {
3031 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3032
3033 /* {ld,ldx} [%rs1 + %rs2], %rd --> add %rs1, %rs2, %rd */
3034 relocation = 0x80000000 | (insn & 0x3e07c01f);
3035 bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
a8735c82
EB		 3036
3037 /* If the symbol is global but not dynamic, an .rela.* slot has
f8745e1c
EB		 3038 been allocated for it in the GOT so output R_SPARC_NONE here,
3039 if it isn't also subject to another, old-style GOT relocation.
3040 See also the handling of these GOT relocations just below. */
a8735c82
EB		 3041 if (h != NULL
3042 && h->dynindx == -1
3043 && !h->forced_local
3044 && h->root.type != bfd_link_hash_undefweak
f8745e1c 3045 && !eh->has_old_style_got_reloc
a8735c82
EB		 3046 && (h->got.offset & 1) == 0
3047 && bfd_link_pic (info))
3048 {
3049 asection *s = htab->elf.srelgot;
3050 Elf_Internal_Rela outrel;
3051
3052 BFD_ASSERT (s != NULL);
3053
3054 memset (&outrel, 0, sizeof outrel);
3055 sparc_elf_append_rela (output_bfd, s, &outrel);
3056 h->got.offset |= 1;
3057 }
00c50991
DM		 3058 }
3059 continue;
3060 }
3061
3062 switch (r_type)
3063 {
3064 case R_SPARC_GOTDATA_HIX22:
3065 case R_SPARC_GOTDATA_LOX10:
3066 relocation = gdopoff (info, relocation);
3067 break;
739f7f82 3068
cc133f9f
JC		 3069 case R_SPARC_GOTDATA_OP_HIX22:
3070 case R_SPARC_GOTDATA_OP_LOX10:
22b75d0a
DM		 3071 case R_SPARC_GOT10:
3072 case R_SPARC_GOT13:
3073 case R_SPARC_GOT22:
3074 /* Relocation is to the entry for this symbol in the global
3075 offset table. */
72fbc6e5 3076 if (htab->elf.sgot == NULL)
22b75d0a
DM		 3077 abort ();
3078
ec1acaba 3079 relative_reloc = FALSE;
22b75d0a
DM		 3080 if (h != NULL)
3081 {
3082 bfd_boolean dyn;
3083
3084 off = h->got.offset;
3085 BFD_ASSERT (off != (bfd_vma) -1);
3086 dyn = elf_hash_table (info)->dynamic_sections_created;
3087
0e1862bb
L		 3088 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
3089 bfd_link_pic (info),
3090 h)
3091 || (bfd_link_pic (info)
72fbc6e5 3092 && SYMBOL_REFERENCES_LOCAL (info, h)))
22b75d0a
DM		 3093 {
3094 /* This is actually a static link, or it is a
3095 -Bsymbolic link and the symbol is defined
3096 locally, or the symbol was forced to be local
3097 because of a version file. We must initialize
3098 this entry in the global offset table. Since the
3099 offset must always be a multiple of 8 for 64-bit
3100 and 4 for 32-bit, we use the least significant bit
3101 to record whether we have initialized it already.
3102
3103 When doing a dynamic link, we create a .rela.got
3104 relocation entry to initialize the value. This
3105 is done in the finish_dynamic_symbol routine. */
3106 if ((off & 1) != 0)
3107 off &= ~1;
3108 else
3109 {
a8735c82
EB		 3110 /* If this symbol isn't dynamic in PIC mode, treat it
3111 like a local symbol in PIC mode below. */
ec1acaba
EB		 3112 if (h->dynindx == -1
3113 && !h->forced_local
3114 && h->root.type != bfd_link_hash_undefweak
3115 && bfd_link_pic (info))
a8735c82 3116 relative_reloc = TRUE;
a9d44aad
AM		 3117 else
3118 SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
3119 htab->elf.sgot->contents + off);
3120 h->got.offset |= 1;
22b75d0a
DM		 3121 }
3122 }
3123 else
3124 unresolved_reloc = FALSE;
3125 }
3126 else
3127 {
3128 BFD_ASSERT (local_got_offsets != NULL
3129 && local_got_offsets[r_symndx] != (bfd_vma) -1);
3130
3131 off = local_got_offsets[r_symndx];
3132
3133 /* The offset must always be a multiple of 8 on 64-bit and
3134 4 on 32-bit. We use the least significant bit to record
3135 whether we have already processed this entry. */
3136 if ((off & 1) != 0)
3137 off &= ~1;
3138 else
3139 {
a8735c82
EB		 3140 /* For a local symbol in PIC mode, we need to generate a
3141 R_SPARC_RELATIVE reloc for the dynamic linker. */
0e1862bb 3142 if (bfd_link_pic (info))
a9d44aad
AM		 3143 relative_reloc = TRUE;
3144 else
3145 SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
3146 htab->elf.sgot->contents + off);
22b75d0a
DM		 3147 local_got_offsets[r_symndx] |= 1;
3148 }
3149 }
ec1acaba
EB		 3150
3151 if (relative_reloc)
3152 {
a8735c82 3153 asection *s = htab->elf.srelgot;
ec1acaba
EB		 3154 Elf_Internal_Rela outrel;
3155
ec1acaba
EB		 3156 BFD_ASSERT (s != NULL);
3157
3158 outrel.r_offset = (htab->elf.sgot->output_section->vma
3159 + htab->elf.sgot->output_offset
3160 + off);
3161 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
3162 0, R_SPARC_RELATIVE);
3163 outrel.r_addend = relocation;
ec1acaba 3164 sparc_elf_append_rela (output_bfd, s, &outrel);
a9d44aad
AM		 3165 /* Versions of glibc ld.so at least up to 2.26 wrongly
3166 add the section contents to the value calculated for
3167 a RELATIVE reloc. Zero the contents to work around
3168 this bug. */
3169 relocation = 0;
3170 SPARC_ELF_PUT_WORD (htab, output_bfd, relocation,
3171 htab->elf.sgot->contents + off);
ec1acaba
EB		 3172 }
3173
72fbc6e5 3174 relocation = htab->elf.sgot->output_offset + off - got_base;
22b75d0a
DM		 3175 break;
3176
3177 case R_SPARC_PLT32:
3178 case R_SPARC_PLT64:
3179 if (h == NULL || h->plt.offset == (bfd_vma) -1)
3180 {
3181 r_type = (r_type == R_SPARC_PLT32) ? R_SPARC_32 : R_SPARC_64;
3182 goto r_sparc_plt32;
3183 }
3184 /* Fall through. */
3185
3186 case R_SPARC_WPLT30:
3187 case R_SPARC_HIPLT22:
3188 case R_SPARC_LOPLT10:
3189 case R_SPARC_PCPLT32:
3190 case R_SPARC_PCPLT22:
3191 case R_SPARC_PCPLT10:
3192 r_sparc_wplt30:
3193 /* Relocation is to the entry for this symbol in the
3194 procedure linkage table. */
3195
3196 if (! ABI_64_P (output_bfd))
3197 {
3198 /* The Solaris native assembler will generate a WPLT30 reloc
3199 for a local symbol if you assemble a call from one
3200 section to another when using -K pic. We treat it as
3201 WDISP30. */
3202 if (h == NULL)
3203 break;
3204 }
68ffbac6 3205 /* PR 7027: We need similar behaviour for 64-bit binaries. */
af1fb11f
NC		 3206 else if (r_type == R_SPARC_WPLT30 && h == NULL)
3207 break;
22b75d0a
DM		 3208 else
3209 {
3210 BFD_ASSERT (h != NULL);
3211 }
3212
72fbc6e5 3213 if (h->plt.offset == (bfd_vma) -1 || htab->elf.splt == NULL)
22b75d0a
DM		 3214 {
3215 /* We didn't make a PLT entry for this symbol. This
3216 happens when statically linking PIC code, or when
3217 using -Bsymbolic. */
3218 break;
3219 }
3220
72fbc6e5
DM		 3221 relocation = (htab->elf.splt->output_section->vma
3222 + htab->elf.splt->output_offset
22b75d0a
DM		 3223 + h->plt.offset);
3224 unresolved_reloc = FALSE;
3225 if (r_type == R_SPARC_PLT32 || r_type == R_SPARC_PLT64)
3226 {
3227 r_type = r_type == R_SPARC_PLT32 ? R_SPARC_32 : R_SPARC_64;
3228 is_plt = TRUE;
3229 goto r_sparc_plt32;
3230 }
3231 break;
3232
3233 case R_SPARC_PC10:
3234 case R_SPARC_PC22:
3235 case R_SPARC_PC_HH22:
3236 case R_SPARC_PC_HM10:
3237 case R_SPARC_PC_LM22:
3238 if (h != NULL
3239 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3240 break;
3241 /* Fall through. */
3242 case R_SPARC_DISP8:
3243 case R_SPARC_DISP16:
3244 case R_SPARC_DISP32:
3245 case R_SPARC_DISP64:
3246 case R_SPARC_WDISP30:
3247 case R_SPARC_WDISP22:
3248 case R_SPARC_WDISP19:
3249 case R_SPARC_WDISP16:
2615994e 3250 case R_SPARC_WDISP10:
22b75d0a
DM		 3251 case R_SPARC_8:
3252 case R_SPARC_16:
3253 case R_SPARC_32:
3254 case R_SPARC_HI22:
3255 case R_SPARC_22:
3256 case R_SPARC_13:
3257 case R_SPARC_LO10:
3258 case R_SPARC_UA16:
3259 case R_SPARC_UA32:
3260 case R_SPARC_10:
3261 case R_SPARC_11:
3262 case R_SPARC_64:
3263 case R_SPARC_OLO10:
3264 case R_SPARC_HH22:
3265 case R_SPARC_HM10:
3266 case R_SPARC_LM22:
3267 case R_SPARC_7:
3268 case R_SPARC_5:
3269 case R_SPARC_6:
3270 case R_SPARC_HIX22:
3271 case R_SPARC_LOX10:
3272 case R_SPARC_H44:
3273 case R_SPARC_M44:
3274 case R_SPARC_L44:
2615994e 3275 case R_SPARC_H34:
22b75d0a
DM		 3276 case R_SPARC_UA64:
3277 r_sparc_plt32:
c20c30f6 3278 if ((input_section->flags & SEC_ALLOC) == 0 || is_vxworks_tls)
22b75d0a
DM		 3279 break;
3280
07d6d2b8
AM		 3281 /* Copy dynamic function pointer relocations. Don't generate
3282 dynamic relocations against resolved undefined weak symbols
3283 in PIE. */
0e1862bb 3284 if ((bfd_link_pic (info)
22b75d0a 3285 && (h == NULL
a8735c82
EB		 3286 || !(h->root.type == bfd_link_hash_undefweak
3287 && (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
3288 || resolved_to_zero)))
22b75d0a 3289 && (! howto->pc_relative
72fbc6e5 3290 || !SYMBOL_CALLS_LOCAL (info, h)))
0e1862bb 3291 || (!bfd_link_pic (info)
22b75d0a
DM		 3292 && h != NULL
3293 && h->dynindx != -1
3294 && !h->non_got_ref
3295 && ((h->def_dynamic
3296 && !h->def_regular)
bb1dd176 3297 || (h->root.type == bfd_link_hash_undefweak
07d6d2b8 3298 && !resolved_to_zero)
22b75d0a
DM		 3299 || h->root.type == bfd_link_hash_undefined)))
3300 {
3301 Elf_Internal_Rela outrel;
3302 bfd_boolean skip, relocate = FALSE;
3303
3304 /* When generating a shared object, these relocations
3305 are copied into the output file to be resolved at run
3306 time. */
3307
3308 BFD_ASSERT (sreloc != NULL);
3309
3310 skip = FALSE;
3311
3312 outrel.r_offset =
3313 _bfd_elf_section_offset (output_bfd, info, input_section,
3314 rel->r_offset);
3315 if (outrel.r_offset == (bfd_vma) -1)
3316 skip = TRUE;
3317 else if (outrel.r_offset == (bfd_vma) -2)
3318 skip = TRUE, relocate = TRUE;
3319 outrel.r_offset += (input_section->output_section->vma
3320 + input_section->output_offset);
3321
3322 /* Optimize unaligned reloc usage now that we know where
3323 it finally resides. */
3324 switch (r_type)
3325 {
3326 case R_SPARC_16:
3327 if (outrel.r_offset & 1)
3328 r_type = R_SPARC_UA16;
3329 break;
3330 case R_SPARC_UA16:
3331 if (!(outrel.r_offset & 1))
3332 r_type = R_SPARC_16;
3333 break;
3334 case R_SPARC_32:
3335 if (outrel.r_offset & 3)
3336 r_type = R_SPARC_UA32;
3337 break;
3338 case R_SPARC_UA32:
3339 if (!(outrel.r_offset & 3))
3340 r_type = R_SPARC_32;
3341 break;
3342 case R_SPARC_64:
3343 if (outrel.r_offset & 7)
3344 r_type = R_SPARC_UA64;
3345 break;
3346 case R_SPARC_UA64:
3347 if (!(outrel.r_offset & 7))
3348 r_type = R_SPARC_64;
3349 break;
07d6d2b8 3350 case R_SPARC_DISP8:
22b75d0a 3351 case R_SPARC_DISP16:
07d6d2b8
AM		 3352 case R_SPARC_DISP32:
3353 case R_SPARC_DISP64:
22b75d0a
DM		 3354 /* If the symbol is not dynamic, we should not keep
3355 a dynamic relocation. But an .rela.* slot has been
3356 allocated for it, output R_SPARC_NONE.
3357 FIXME: Add code tracking needed dynamic relocs as
3358 e.g. i386 has. */
3359 if (h->dynindx == -1)
3360 skip = TRUE, relocate = TRUE;
3361 break;
3362 }
3363
3364 if (skip)
3365 memset (&outrel, 0, sizeof outrel);
3366 /* h->dynindx may be -1 if the symbol was marked to
3367 become local. */
886a2506
NC		 3368 else if (h != NULL
3369 && h->dynindx != -1
3370 && (_bfd_sparc_elf_howto_table[r_type].pc_relative
0e1862bb 3371 || !bfd_link_pic (info)
72fbc6e5 3372 || !SYMBOLIC_BIND (info, h)
22b75d0a
DM		 3373 || !h->def_regular))
3374 {
22b75d0a
DM		 3375 outrel.r_info = SPARC_ELF_R_INFO (htab, rel, h->dynindx, r_type);
3376 outrel.r_addend = rel->r_addend;
3377 }
3378 else
3379 {
7160c10d
JC		 3380 if ( (!ABI_64_P (output_bfd) && r_type == R_SPARC_32)
3381 || (ABI_64_P (output_bfd) && r_type == R_SPARC_64))
22b75d0a
DM		 3382 {
3383 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL,
3384 0, R_SPARC_RELATIVE);
3385 outrel.r_addend = relocation + rel->r_addend;
3386 }
3387 else
3388 {
3389 long indx;
3390
74541ad4
AM		 3391 outrel.r_addend = relocation + rel->r_addend;
3392
22b75d0a 3393 if (is_plt)
72fbc6e5 3394 sec = htab->elf.splt;
22b75d0a
DM		 3395
3396 if (bfd_is_abs_section (sec))
3397 indx = 0;
3398 else if (sec == NULL || sec->owner == NULL)
3399 {
3400 bfd_set_error (bfd_error_bad_value);
3401 return FALSE;
3402 }
3403 else
3404 {
3405 asection *osec;
3406
74541ad4
AM		 3407 /* We are turning this relocation into one
3408 against a section symbol. It would be
3409 proper to subtract the symbol's value,
3410 osec->vma, from the emitted reloc addend,
3411 but ld.so expects buggy relocs. */
22b75d0a
DM		 3412 osec = sec->output_section;
3413 indx = elf_section_data (osec)->dynindx;
3414
74541ad4
AM		 3415 if (indx == 0)
3416 {
3417 osec = htab->elf.text_index_section;
3418 indx = elf_section_data (osec)->dynindx;
3419 }
3420
22b75d0a
DM		 3421 /* FIXME: we really should be able to link non-pic
3422 shared libraries. */
3423 if (indx == 0)
3424 {
3425 BFD_FAIL ();
4eca0228 3426 _bfd_error_handler
871b3ab2 3427 (_("%pB: probably compiled without -fPIC?"),
22b75d0a
DM		 3428 input_bfd);
3429 bfd_set_error (bfd_error_bad_value);
3430 return FALSE;
3431 }
3432 }
3433
74541ad4
AM		 3434 outrel.r_info = SPARC_ELF_R_INFO (htab, rel, indx,
3435 r_type);
22b75d0a
DM		 3436 }
3437 }
3438
39817122 3439 sparc_elf_append_rela (output_bfd, sreloc, &outrel);
22b75d0a
DM		 3440
3441 /* This reloc will be computed at runtime, so there's no
3442 need to do anything now. */
3443 if (! relocate)
3444 continue;
3445 }
3446 break;
3447
3448 case R_SPARC_TLS_GD_HI22:
22b75d0a
DM		 3449 case R_SPARC_TLS_GD_LO10:
3450 case R_SPARC_TLS_IE_HI22:
3451 case R_SPARC_TLS_IE_LO10:
c20c30f6
EB		 3452 r_type = sparc_elf_tls_transition (info, input_bfd, r_type,
3453 h == NULL || h->dynindx == -1);
3454 if (r_type == R_SPARC_REV32)
3455 break;
3456 if (h != NULL)
3457 tls_type = _bfd_sparc_elf_hash_entry (h)->tls_type;
3458 else if (local_got_offsets)
22b75d0a 3459 tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
c20c30f6
EB		 3460 else
3461 tls_type = GOT_UNKNOWN;
22b75d0a
DM		 3462 if (tls_type == GOT_TLS_IE)
3463 switch (r_type)
3464 {
3465 case R_SPARC_TLS_GD_HI22:
3466 r_type = R_SPARC_TLS_IE_HI22;
3467 break;
3468 case R_SPARC_TLS_GD_LO10:
3469 r_type = R_SPARC_TLS_IE_LO10;
3470 break;
3471 }
3472
3473 if (r_type == R_SPARC_TLS_LE_HIX22)
3474 {
3475 relocation = tpoff (info, relocation);
3476 break;
3477 }
3478 if (r_type == R_SPARC_TLS_LE_LOX10)
3479 {
3480 /* Change add into xor. */
3481 relocation = tpoff (info, relocation);
3482 bfd_put_32 (output_bfd, (bfd_get_32 (input_bfd,
3483 contents + rel->r_offset)
3484 | 0x80182000), contents + rel->r_offset);
3485 break;
3486 }
3487
3488 if (h != NULL)
3489 {
3490 off = h->got.offset;
3491 h->got.offset |= 1;
3492 }
3493 else
3494 {
3495 BFD_ASSERT (local_got_offsets != NULL);
3496 off = local_got_offsets[r_symndx];
3497 local_got_offsets[r_symndx] |= 1;
3498 }
3499
3500 r_sparc_tlsldm:
72fbc6e5 3501 if (htab->elf.sgot == NULL)
22b75d0a
DM		 3502 abort ();
3503
3504 if ((off & 1) != 0)
3505 off &= ~1;
3506 else
3507 {
3508 Elf_Internal_Rela outrel;
3509 int dr_type, indx;
3510
72fbc6e5 3511 if (htab->elf.srelgot == NULL)
22b75d0a
DM		 3512 abort ();
3513
72fbc6e5
DM		 3514 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
3515 htab->elf.sgot->contents + off);
3516 outrel.r_offset = (htab->elf.sgot->output_section->vma
3517 + htab->elf.sgot->output_offset + off);
22b75d0a
DM		 3518 indx = h && h->dynindx != -1 ? h->dynindx : 0;
3519 if (r_type == R_SPARC_TLS_IE_HI22
3520 || r_type == R_SPARC_TLS_IE_LO10)
3521 dr_type = SPARC_ELF_TPOFF_RELOC (htab);
3522 else
3523 dr_type = SPARC_ELF_DTPMOD_RELOC (htab);
3524 if (dr_type == SPARC_ELF_TPOFF_RELOC (htab) && indx == 0)
3525 outrel.r_addend = relocation - dtpoff_base (info);
3526 else
3527 outrel.r_addend = 0;
3528 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, indx, dr_type);
72fbc6e5 3529 sparc_elf_append_rela (output_bfd, htab->elf.srelgot, &outrel);
22b75d0a
DM		 3530
3531 if (r_type == R_SPARC_TLS_GD_HI22
3532 || r_type == R_SPARC_TLS_GD_LO10)
3533 {
3534 if (indx == 0)
3535 {
07d6d2b8 3536 BFD_ASSERT (! unresolved_reloc);
22b75d0a
DM		 3537 SPARC_ELF_PUT_WORD (htab, output_bfd,
3538 relocation - dtpoff_base (info),
72fbc6e5 3539 (htab->elf.sgot->contents + off
22b75d0a
DM		 3540 + SPARC_ELF_WORD_BYTES (htab)));
3541 }
3542 else
3543 {
3544 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
72fbc6e5 3545 (htab->elf.sgot->contents + off
22b75d0a
DM		 3546 + SPARC_ELF_WORD_BYTES (htab)));
3547 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, indx,
3548 SPARC_ELF_DTPOFF_RELOC (htab));
3549 outrel.r_offset += SPARC_ELF_WORD_BYTES (htab);
72fbc6e5 3550 sparc_elf_append_rela (output_bfd, htab->elf.srelgot,
39817122 3551 &outrel);
22b75d0a
DM		 3552 }
3553 }
3554 else if (dr_type == SPARC_ELF_DTPMOD_RELOC (htab))
3555 {
3556 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
72fbc6e5 3557 (htab->elf.sgot->contents + off
22b75d0a
DM		 3558 + SPARC_ELF_WORD_BYTES (htab)));
3559 }
3560 }
3561
3562 if (off >= (bfd_vma) -2)
3563 abort ();
3564
72fbc6e5 3565 relocation = htab->elf.sgot->output_offset + off - got_base;
22b75d0a
DM		 3566 unresolved_reloc = FALSE;
3567 howto = _bfd_sparc_elf_howto_table + r_type;
3568 break;
3569
3570 case R_SPARC_TLS_LDM_HI22:
3571 case R_SPARC_TLS_LDM_LO10:
c20c30f6
EB		 3572 /* LD -> LE */
3573 if (bfd_link_executable (info))
22b75d0a
DM		 3574 {
3575 bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
3576 continue;
3577 }
3578 off = htab->tls_ldm_got.offset;
3579 htab->tls_ldm_got.offset |= 1;
3580 goto r_sparc_tlsldm;
3581
3582 case R_SPARC_TLS_LDO_HIX22:
3583 case R_SPARC_TLS_LDO_LOX10:
c20c30f6
EB		 3584 /* LD -> LE */
3585 if (bfd_link_executable (info))
3586 {
3587 if (r_type == R_SPARC_TLS_LDO_HIX22)
3588 r_type = R_SPARC_TLS_LE_HIX22;
3589 else
3590 r_type = R_SPARC_TLS_LE_LOX10;
3591 }
3592 else
22b75d0a
DM		 3593 {
3594 relocation -= dtpoff_base (info);
3595 break;
3596 }
22b75d0a
DM		 3597 /* Fall through. */
3598
3599 case R_SPARC_TLS_LE_HIX22:
3600 case R_SPARC_TLS_LE_LOX10:
c20c30f6 3601 if (!bfd_link_executable (info))
22b75d0a
DM		 3602 {
3603 Elf_Internal_Rela outrel;
c20c30f6
EB		 3604 bfd_vma offset
3605 = _bfd_elf_section_offset (output_bfd, info, input_section,
3606 rel->r_offset);
3607 if (offset == (bfd_vma) -1 || offset == (bfd_vma) -2)
22b75d0a
DM		 3608 memset (&outrel, 0, sizeof outrel);
3609 else
3610 {
c20c30f6
EB		 3611 outrel.r_offset = offset
3612 + input_section->output_section->vma
3613 + input_section->output_offset;
22b75d0a 3614 outrel.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, r_type);
c20c30f6
EB		 3615 outrel.r_addend
3616 = relocation - dtpoff_base (info) + rel->r_addend;
22b75d0a
DM		 3617 }
3618
c20c30f6 3619 BFD_ASSERT (sreloc != NULL);
39817122 3620 sparc_elf_append_rela (output_bfd, sreloc, &outrel);
22b75d0a
DM		 3621 continue;
3622 }
3623 relocation = tpoff (info, relocation);
3624 break;
3625
3626 case R_SPARC_TLS_LDM_CALL:
c20c30f6
EB		 3627 /* LD -> LE */
3628 if (bfd_link_executable (info))
22b75d0a
DM		 3629 {
3630 /* mov %g0, %o0 */
3631 bfd_put_32 (output_bfd, 0x90100000, contents + rel->r_offset);
3632 continue;
3633 }
3634 /* Fall through */
3635
3636 case R_SPARC_TLS_GD_CALL:
c20c30f6
EB		 3637 if (h != NULL)
3638 tls_type = _bfd_sparc_elf_hash_entry (h)->tls_type;
3639 else if (local_got_offsets)
22b75d0a 3640 tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
c20c30f6
EB		 3641 else
3642 tls_type = GOT_UNKNOWN;
3643 /* GD -> IE or LE */
3644 if (bfd_link_executable (info)
22b75d0a
DM		 3645 || (r_type == R_SPARC_TLS_GD_CALL && tls_type == GOT_TLS_IE))
3646 {
abd242a9 3647 Elf_Internal_Rela *rel2;
22b75d0a
DM		 3648 bfd_vma insn;
3649
c20c30f6
EB		 3650 /* GD -> LE */
3651 if (bfd_link_executable (info) && (h == NULL || h->dynindx == -1))
22b75d0a 3652 {
22b75d0a
DM		 3653 bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
3654 continue;
3655 }
3656
3657 /* GD -> IE */
3658 if (rel + 1 < relend
3659 && SPARC_ELF_R_TYPE (rel[1].r_info) == R_SPARC_TLS_GD_ADD
3660 && rel[1].r_offset == rel->r_offset + 4
3661 && SPARC_ELF_R_SYMNDX (htab, rel[1].r_info) == r_symndx
3662 && (((insn = bfd_get_32 (input_bfd,
3663 contents + rel[1].r_offset))
3664 >> 25) & 0x1f) == 8)
3665 {
3666 /* We have
3667 call __tls_get_addr, %tgd_call(foo)
3668 add %reg1, %reg2, %o0, %tgd_add(foo)
3669 and change it into IE:
3670 {ld,ldx} [%reg1 + %reg2], %o0, %tie_ldx(foo)
3671 add %g7, %o0, %o0, %tie_add(foo).
3672 add is 0x80000000 | (rd << 25) | (rs1 << 14) | rs2,
3673 ld is 0xc0000000 | (rd << 25) | (rs1 << 14) | rs2,
3674 ldx is 0xc0580000 | (rd << 25) | (rs1 << 14) | rs2. */
3675 bfd_put_32 (output_bfd, insn | (ABI_64_P (output_bfd) ? 0xc0580000 : 0xc0000000),
3676 contents + rel->r_offset);
3677 bfd_put_32 (output_bfd, 0x9001c008,
3678 contents + rel->r_offset + 4);
3679 rel++;
3680 continue;
3681 }
3682
abd242a9
DM		 3683 /* We cannot just overwrite the delay slot instruction,
3684 as it might be what puts the %o0 argument to
3685 __tls_get_addr into place. So we have to transpose
3686 the delay slot with the add we patch in. */
3687 insn = bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
3688 bfd_put_32 (output_bfd, insn,
3689 contents + rel->r_offset);
3690 bfd_put_32 (output_bfd, 0x9001c008,
3691 contents + rel->r_offset + 4);
3692
3693 rel2 = rel;
3694 while ((rel2 = sparc_elf_find_reloc_at_ofs (rel2 + 1, relend,
3695 rel->r_offset + 4))
3696 != NULL)
3697 {
3698 /* If the instruction we moved has a relocation attached to
3699 it, adjust the offset so that it will apply to the correct
3700 instruction. */
3701 rel2->r_offset -= 4;
3702 }
22b75d0a
DM		 3703 continue;
3704 }
3705
3706 h = (struct elf_link_hash_entry *)
3707 bfd_link_hash_lookup (info->hash, "__tls_get_addr", FALSE,
3708 FALSE, TRUE);
3709 BFD_ASSERT (h != NULL);
3710 r_type = R_SPARC_WPLT30;
3711 howto = _bfd_sparc_elf_howto_table + r_type;
3712 goto r_sparc_wplt30;
3713
3714 case R_SPARC_TLS_GD_ADD:
c20c30f6
EB		 3715 if (h != NULL)
3716 tls_type = _bfd_sparc_elf_hash_entry (h)->tls_type;
3717 else if (local_got_offsets)
22b75d0a 3718 tls_type = _bfd_sparc_elf_local_got_tls_type (input_bfd) [r_symndx];
c20c30f6
EB		 3719 else
3720 tls_type = GOT_UNKNOWN;
3721 /* GD -> IE or LE */
3722 if (bfd_link_executable (info) || tls_type == GOT_TLS_IE)
22b75d0a
DM		 3723 {
3724 /* add %reg1, %reg2, %reg3, %tgd_add(foo)
3725 changed into IE:
3726 {ld,ldx} [%reg1 + %reg2], %reg3, %tie_ldx(foo)
3727 or LE:
3728 add %g7, %reg2, %reg3. */
3729 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
c20c30f6 3730 if (bfd_link_executable (info) && (h == NULL || h->dynindx == -1))
22b75d0a 3731 relocation = (insn & ~0x7c000) | 0x1c000;
c20c30f6
EB		 3732 else
3733 relocation = insn | (ABI_64_P (output_bfd) ? 0xc0580000 : 0xc0000000);
22b75d0a
DM		 3734 bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
3735 }
3736 continue;
3737
3738 case R_SPARC_TLS_LDM_ADD:
c20c30f6
EB		 3739 /* LD -> LE */
3740 if (bfd_link_executable (info))
22b75d0a
DM		 3741 bfd_put_32 (output_bfd, SPARC_NOP, contents + rel->r_offset);
3742 continue;
3743
3744 case R_SPARC_TLS_LDO_ADD:
c20c30f6
EB		 3745 /* LD -> LE */
3746 if (bfd_link_executable (info))
22b75d0a
DM		 3747 {
3748 /* Change rs1 into %g7. */
3749 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3750 insn = (insn & ~0x7c000) | 0x1c000;
3751 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
3752 }
3753 continue;
3754
3755 case R_SPARC_TLS_IE_LD:
3756 case R_SPARC_TLS_IE_LDX:
c20c30f6
EB		 3757 /* IE -> LE */
3758 if (bfd_link_executable (info) && (h == NULL || h->dynindx == -1))
22b75d0a
DM		 3759 {
3760 bfd_vma insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
3761 int rs2 = insn & 0x1f;
3762 int rd = (insn >> 25) & 0x1f;
3763
3764 if (rs2 == rd)
3765 relocation = SPARC_NOP;
3766 else
3767 relocation = 0x80100000 | (insn & 0x3e00001f);
3768 bfd_put_32 (output_bfd, relocation, contents + rel->r_offset);
3769 }
3770 continue;
3771
3772 case R_SPARC_TLS_IE_ADD:
3773 /* Totally useless relocation. */
3774 continue;
3775
3776 case R_SPARC_TLS_DTPOFF32:
3777 case R_SPARC_TLS_DTPOFF64:
3778 relocation -= dtpoff_base (info);
3779 break;
3780
3781 default:
3782 break;
3783 }
3784
3785 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3786 because such sections are not SEC_ALLOC and thus ld.so will
3787 not process them. */
3788 if (unresolved_reloc
3789 && !((input_section->flags & SEC_DEBUGGING) != 0
1d5316ab
AM		 3790 && h->def_dynamic)
3791 && _bfd_elf_section_offset (output_bfd, info, input_section,
3792 rel->r_offset) != (bfd_vma) -1)
4eca0228 3793 _bfd_error_handler
695344c0 3794 /* xgettext:c-format */
2dcf00ce
AM		 3795 (_("%pB(%pA+%#" PRIx64 "): "
3796 "unresolvable %s relocation against symbol `%s'"),
22b75d0a
DM		 3797 input_bfd,
3798 input_section,
2dcf00ce 3799 (uint64_t) rel->r_offset,
843fe662 3800 howto->name,
22b75d0a
DM		 3801 h->root.root.string);
3802
3803 r = bfd_reloc_continue;
3804 if (r_type == R_SPARC_OLO10)
3805 {
3806 bfd_vma x;
3807
3808 if (! ABI_64_P (output_bfd))
3809 abort ();
3810
3811 relocation += rel->r_addend;
3812 relocation = (relocation & 0x3ff) + ELF64_R_TYPE_DATA (rel->r_info);
3813
3814 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3815 x = (x & ~(bfd_vma) 0x1fff) | (relocation & 0x1fff);
3816 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3817
3818 r = bfd_check_overflow (howto->complain_on_overflow,
3819 howto->bitsize, howto->rightshift,
3820 bfd_arch_bits_per_address (input_bfd),
3821 relocation);
3822 }
3823 else if (r_type == R_SPARC_WDISP16)
3824 {
3825 bfd_vma x;
3826
3827 relocation += rel->r_addend;
3828 relocation -= (input_section->output_section->vma
3829 + input_section->output_offset);
3830 relocation -= rel->r_offset;
3831
3832 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3833 x |= ((((relocation >> 2) & 0xc000) << 6)
3834 | ((relocation >> 2) & 0x3fff));
3835 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3836
2615994e
DM		 3837 r = bfd_check_overflow (howto->complain_on_overflow,
3838 howto->bitsize, howto->rightshift,
3839 bfd_arch_bits_per_address (input_bfd),
3840 relocation);
3841 }
3842 else if (r_type == R_SPARC_WDISP10)
3843 {
3844 bfd_vma x;
3845
3846 relocation += rel->r_addend;
3847 relocation -= (input_section->output_section->vma
3848 + input_section->output_offset);
3849 relocation -= rel->r_offset;
3850
3851 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3852 x |= ((((relocation >> 2) & 0x300) << 11)
3853 | (((relocation >> 2) & 0xff) << 5));
3854 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3855
22b75d0a
DM		 3856 r = bfd_check_overflow (howto->complain_on_overflow,
3857 howto->bitsize, howto->rightshift,
3858 bfd_arch_bits_per_address (input_bfd),
3859 relocation);
3860 }
3861 else if (r_type == R_SPARC_REV32)
3862 {
3863 bfd_vma x;
3864
3865 relocation = relocation + rel->r_addend;
3866
3867 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3868 x = x + relocation;
3869 bfd_putl32 (/*input_bfd,*/ x, contents + rel->r_offset);
3870 r = bfd_reloc_ok;
3871 }
3872 else if (r_type == R_SPARC_TLS_LDO_HIX22
3873 || r_type == R_SPARC_TLS_LE_HIX22)
3874 {
3875 bfd_vma x;
3876
3877 relocation += rel->r_addend;
3878 if (r_type == R_SPARC_TLS_LE_HIX22)
3879 relocation ^= MINUS_ONE;
3880
3881 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3882 x = (x & ~(bfd_vma) 0x3fffff) | ((relocation >> 10) & 0x3fffff);
3883 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3884 r = bfd_reloc_ok;
3885 }
3886 else if (r_type == R_SPARC_TLS_LDO_LOX10
3887 || r_type == R_SPARC_TLS_LE_LOX10)
3888 {
3889 bfd_vma x;
3890
3891 relocation += rel->r_addend;
3892 relocation &= 0x3ff;
3893 if (r_type == R_SPARC_TLS_LE_LOX10)
3894 relocation |= 0x1c00;
3895
3896 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3897 x = (x & ~(bfd_vma) 0x1fff) | relocation;
3898 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3899
3900 r = bfd_reloc_ok;
3901 }
00c50991 3902 else if (r_type == R_SPARC_HIX22
cc133f9f
JC		 3903 || r_type == R_SPARC_GOTDATA_HIX22
3904 || r_type == R_SPARC_GOTDATA_OP_HIX22)
22b75d0a
DM		 3905 {
3906 bfd_vma x;
3907
3908 relocation += rel->r_addend;
00c50991
DM		 3909 if (r_type == R_SPARC_HIX22
3910 || (bfd_signed_vma) relocation < 0)
3911 relocation = relocation ^ MINUS_ONE;
22b75d0a
DM		 3912
3913 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3914 x = (x & ~(bfd_vma) 0x3fffff) | ((relocation >> 10) & 0x3fffff);
3915 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3916
3917 r = bfd_check_overflow (howto->complain_on_overflow,
3918 howto->bitsize, howto->rightshift,
3919 bfd_arch_bits_per_address (input_bfd),
3920 relocation);
3921 }
00c50991 3922 else if (r_type == R_SPARC_LOX10
cc133f9f
JC		 3923 || r_type == R_SPARC_GOTDATA_LOX10
3924 || r_type == R_SPARC_GOTDATA_OP_LOX10)
22b75d0a
DM		 3925 {
3926 bfd_vma x;
3927
3928 relocation += rel->r_addend;
00c50991
DM		 3929 if (r_type == R_SPARC_LOX10
3930 || (bfd_signed_vma) relocation < 0)
3931 relocation = (relocation & 0x3ff) | 0x1c00;
3932 else
3933 relocation = (relocation & 0x3ff);
22b75d0a
DM		 3934
3935 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3936 x = (x & ~(bfd_vma) 0x1fff) | relocation;
3937 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3938
3939 r = bfd_reloc_ok;
3940 }
3941 else if ((r_type == R_SPARC_WDISP30 || r_type == R_SPARC_WPLT30)
3942 && sec_do_relax (input_section)
3943 && rel->r_offset + 4 < input_section->size)
3944 {
3945#define G0 0
3946#define O7 15
3947#define XCC (2 << 20)
3948#define COND(x) (((x)&0xf)<<25)
3949#define CONDA COND(0x8)
3950#define INSN_BPA (F2(0,1) | CONDA | BPRED | XCC)
3951#define INSN_BA (F2(0,2) | CONDA)
3952#define INSN_OR F3(2, 0x2, 0)
3953#define INSN_NOP F2(0,4)
3954
3955 bfd_vma x, y;
3956
3957 /* If the instruction is a call with either:
3958 restore
3959 arithmetic instruction with rd == %o7
3960 where rs1 != %o7 and rs2 if it is register != %o7
3961 then we can optimize if the call destination is near
3962 by changing the call into a branch always. */
3963 x = bfd_get_32 (input_bfd, contents + rel->r_offset);
3964 y = bfd_get_32 (input_bfd, contents + rel->r_offset + 4);
3965 if ((x & OP(~0)) == OP(1) && (y & OP(~0)) == OP(2))
3966 {
3967 if (((y & OP3(~0)) == OP3(0x3d) /* restore */
3968 || ((y & OP3(0x28)) == 0 /* arithmetic */
3969 && (y & RD(~0)) == RD(O7)))
3970 && (y & RS1(~0)) != RS1(O7)
3971 && ((y & F3I(~0))
3972 || (y & RS2(~0)) != RS2(O7)))
3973 {
3974 bfd_vma reloc;
3975
3976 reloc = relocation + rel->r_addend - rel->r_offset;
3977 reloc -= (input_section->output_section->vma
3978 + input_section->output_offset);
3979
3980 /* Ensure the branch fits into simm22. */
3981 if ((reloc & 3) == 0
3982 && ((reloc & ~(bfd_vma)0x7fffff) == 0
3983 || ((reloc | 0x7fffff) == ~(bfd_vma)0)))
3984 {
3985 reloc >>= 2;
3986
3987 /* Check whether it fits into simm19. */
3988 if (((reloc & 0x3c0000) == 0
3989 || (reloc & 0x3c0000) == 0x3c0000)
3990 && (ABI_64_P (output_bfd)
3991 || elf_elfheader (output_bfd)->e_flags & EF_SPARC_32PLUS))
3992 x = INSN_BPA | (reloc & 0x7ffff); /* ba,pt %xcc */
3993 else
3994 x = INSN_BA | (reloc & 0x3fffff); /* ba */
3995 bfd_put_32 (input_bfd, x, contents + rel->r_offset);
3996 r = bfd_reloc_ok;
3997 if (rel->r_offset >= 4
3998 && (y & (0xffffffff ^ RS1(~0)))
3999 == (INSN_OR | RD(O7) | RS2(G0)))
4000 {
4001 bfd_vma z;
4002 unsigned int reg;
4003
4004 z = bfd_get_32 (input_bfd,
4005 contents + rel->r_offset - 4);
4006 if ((z & (0xffffffff ^ RD(~0)))
4007 != (INSN_OR | RS1(O7) | RS2(G0)))
597e138c 4008 continue;
22b75d0a
DM		 4009
4010 /* The sequence was
4011 or %o7, %g0, %rN
4012 call foo
4013 or %rN, %g0, %o7
4014
4015 If call foo was replaced with ba, replace
4016 or %rN, %g0, %o7 with nop. */
4017
4018 reg = (y & RS1(~0)) >> 14;
4019 if (reg != ((z & RD(~0)) >> 25)
4020 || reg == G0 || reg == O7)
597e138c 4021 continue;
22b75d0a
DM		 4022
4023 bfd_put_32 (input_bfd, (bfd_vma) INSN_NOP,
4024 contents + rel->r_offset + 4);
4025 }
4026
4027 }
4028 }
4029 }
4030 }
4031
4032 if (r == bfd_reloc_continue)
d0c9aeb3 4033 {
dc1e8a47 4034 do_relocation:
d0c9aeb3
DM		 4035 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
4036 contents, rel->r_offset,
4037 relocation, rel->r_addend);
4038 }
22b75d0a
DM		 4039 if (r != bfd_reloc_ok)
4040 {
4041 switch (r)
4042 {
4043 default:
4044 case bfd_reloc_outofrange:
4045 abort ();
4046 case bfd_reloc_overflow:
4047 {
4048 const char *name;
4049
68ffbac6 4050 /* The Solaris native linker silently disregards overflows.
dc669dc8
EB		 4051 We don't, but this breaks stabs debugging info, whose
4052 relocations are only 32-bits wide. Ignore overflows in
4053 this case and also for discarded entries. */
0bef263a
RO		 4054 if ((r_type == R_SPARC_32
4055 || r_type == R_SPARC_UA32
4056 || r_type == R_SPARC_DISP32)
dc669dc8 4057 && (((input_section->flags & SEC_DEBUGGING) != 0
fd361982 4058 && strcmp (bfd_section_name (input_section),
dc669dc8
EB		 4059 ".stab") == 0)
4060 || _bfd_elf_section_offset (output_bfd, info,
4061 input_section,
4062 rel->r_offset)
4063 == (bfd_vma)-1))
4064 break;
4065
22b75d0a 4066 if (h != NULL)
bb29dfea
EB		 4067 {
4068 /* Assume this is a call protected by other code that
4069 detect the symbol is undefined. If this is the case,
4070 we can safely ignore the overflow. If not, the
4071 program is hosed anyway, and a little warning isn't
4072 going to help. */
4073 if (h->root.type == bfd_link_hash_undefweak
4074 && howto->pc_relative)
4075 break;
4076
07d6d2b8 4077 name = NULL;
bb29dfea 4078 }
22b75d0a
DM		 4079 else
4080 {
4081 name = bfd_elf_string_from_elf_section (input_bfd,
4082 symtab_hdr->sh_link,
4083 sym->st_name);
4084 if (name == NULL)
4085 return FALSE;
4086 if (*name == '\0')
fd361982 4087 name = bfd_section_name (sec);
22b75d0a 4088 }
1a72702b
AM		 4089 (*info->callbacks->reloc_overflow)
4090 (info, (h ? &h->root : NULL), name, howto->name,
4091 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
22b75d0a
DM		 4092 }
4093 break;
4094 }
4095 }
4096 }
4097
4098 return TRUE;
4099}
4100
910600e9
RS		 4101/* Build a VxWorks PLT entry. PLT_INDEX is the index of the PLT entry
4102 and PLT_OFFSET is the byte offset from the start of .plt. GOT_OFFSET
4103 is the offset of the associated .got.plt entry from
4104 _GLOBAL_OFFSET_TABLE_. */
4105
4106static void
4107sparc_vxworks_build_plt_entry (bfd *output_bfd, struct bfd_link_info *info,
4108 bfd_vma plt_offset, bfd_vma plt_index,
4109 bfd_vma got_offset)
4110{
4111 bfd_vma got_base;
4112 const bfd_vma *plt_entry;
4113 struct _bfd_sparc_elf_link_hash_table *htab;
4114 bfd_byte *loc;
4115 Elf_Internal_Rela rela;
4116
4117 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6
NC		 4118 BFD_ASSERT (htab != NULL);
4119
0e1862bb 4120 if (bfd_link_pic (info))
910600e9
RS		 4121 {
4122 plt_entry = sparc_vxworks_shared_plt_entry;
4123 got_base = 0;
4124 }
4125 else
4126 {
4127 plt_entry = sparc_vxworks_exec_plt_entry;
4128 got_base = (htab->elf.hgot->root.u.def.value
4129 + htab->elf.hgot->root.u.def.section->output_offset
4130 + htab->elf.hgot->root.u.def.section->output_section->vma);
4131 }
4132
4133 /* Fill in the entry in the procedure linkage table. */
4134 bfd_put_32 (output_bfd, plt_entry[0] + ((got_base + got_offset) >> 10),
72fbc6e5 4135 htab->elf.splt->contents + plt_offset);
910600e9 4136 bfd_put_32 (output_bfd, plt_entry[1] + ((got_base + got_offset) & 0x3ff),
72fbc6e5 4137 htab->elf.splt->contents + plt_offset + 4);
910600e9 4138 bfd_put_32 (output_bfd, plt_entry[2],
72fbc6e5 4139 htab->elf.splt->contents + plt_offset + 8);
910600e9 4140 bfd_put_32 (output_bfd, plt_entry[3],
72fbc6e5 4141 htab->elf.splt->contents + plt_offset + 12);
910600e9 4142 bfd_put_32 (output_bfd, plt_entry[4],
72fbc6e5 4143 htab->elf.splt->contents + plt_offset + 16);
910600e9 4144 bfd_put_32 (output_bfd, plt_entry[5] + (plt_index >> 10),
72fbc6e5 4145 htab->elf.splt->contents + plt_offset + 20);
910600e9
RS		 4146 /* PC-relative displacement for a branch to the start of
4147 the PLT section. */
4148 bfd_put_32 (output_bfd, plt_entry[6] + (((-plt_offset - 24) >> 2)
4149 & 0x003fffff),
72fbc6e5 4150 htab->elf.splt->contents + plt_offset + 24);
910600e9 4151 bfd_put_32 (output_bfd, plt_entry[7] + (plt_index & 0x3ff),
72fbc6e5 4152 htab->elf.splt->contents + plt_offset + 28);
910600e9
RS		 4153
4154 /* Fill in the .got.plt entry, pointing initially at the
4155 second half of the PLT entry. */
72fbc6e5 4156 BFD_ASSERT (htab->elf.sgotplt != NULL);
910600e9 4157 bfd_put_32 (output_bfd,
72fbc6e5
DM		 4158 htab->elf.splt->output_section->vma
4159 + htab->elf.splt->output_offset
910600e9 4160 + plt_offset + 20,
72fbc6e5 4161 htab->elf.sgotplt->contents + got_offset);
910600e9
RS		 4162
4163 /* Add relocations to .rela.plt.unloaded. */
0e1862bb 4164 if (!bfd_link_pic (info))
910600e9
RS		 4165 {
4166 loc = (htab->srelplt2->contents
4167 + (2 + 3 * plt_index) * sizeof (Elf32_External_Rela));
4168
4169 /* Relocate the initial sethi. */
72fbc6e5
DM		 4170 rela.r_offset = (htab->elf.splt->output_section->vma
4171 + htab->elf.splt->output_offset
910600e9
RS		 4172 + plt_offset);
4173 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_HI22);
4174 rela.r_addend = got_offset;
4175 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4176 loc += sizeof (Elf32_External_Rela);
4177
4178 /* Likewise the following or. */
4179 rela.r_offset += 4;
4180 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_LO10);
4181 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4182 loc += sizeof (Elf32_External_Rela);
4183
4184 /* Relocate the .got.plt entry. */
72fbc6e5
DM		 4185 rela.r_offset = (htab->elf.sgotplt->output_section->vma
4186 + htab->elf.sgotplt->output_offset
910600e9
RS		 4187 + got_offset);
4188 rela.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_SPARC_32);
4189 rela.r_addend = plt_offset + 20;
4190 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4191 }
4192}
4193
22b75d0a
DM		 4194/* Finish up dynamic symbol handling. We set the contents of various
4195 dynamic sections here. */
4196
4197bfd_boolean
4198_bfd_sparc_elf_finish_dynamic_symbol (bfd *output_bfd,
4199 struct bfd_link_info *info,
4200 struct elf_link_hash_entry *h,
4201 Elf_Internal_Sym *sym)
4202{
22b75d0a 4203 struct _bfd_sparc_elf_link_hash_table *htab;
39817122 4204 const struct elf_backend_data *bed;
bb1dd176 4205 struct _bfd_sparc_elf_link_hash_entry *eh;
a8735c82 4206 bfd_boolean resolved_to_zero;
22b75d0a
DM		 4207
4208 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4209 BFD_ASSERT (htab != NULL);
39817122 4210 bed = get_elf_backend_data (output_bfd);
22b75d0a 4211
bb1dd176
QZ		 4212 eh = (struct _bfd_sparc_elf_link_hash_entry *) h;
4213
4214 /* We keep PLT/GOT entries without dynamic PLT/GOT relocations for
4215 resolved undefined weak symbols in executable so that their
4216 references have value 0 at run-time. */
a8735c82 4217 resolved_to_zero = UNDEFINED_WEAK_RESOLVED_TO_ZERO (info, eh);
bb1dd176 4218
22b75d0a
DM		 4219 if (h->plt.offset != (bfd_vma) -1)
4220 {
4221 asection *splt;
4222 asection *srela;
4223 Elf_Internal_Rela rela;
4224 bfd_byte *loc;
910600e9 4225 bfd_vma r_offset, got_offset;
22b75d0a
DM		 4226 int rela_index;
4227
d0c9aeb3
DM		 4228 /* When building a static executable, use .iplt and
4229 .rela.iplt sections for STT_GNU_IFUNC symbols. */
4230 if (htab->elf.splt != NULL)
4231 {
4232 splt = htab->elf.splt;
4233 srela = htab->elf.srelplt;
4234 }
4235 else
4236 {
4237 splt = htab->elf.iplt;
4238 srela = htab->elf.irelplt;
4239 }
22b75d0a 4240
d0c9aeb3
DM		 4241 if (splt == NULL || srela == NULL)
4242 abort ();
22b75d0a 4243
22b75d0a 4244 /* Fill in the entry in the .rela.plt section. */
90c14f0c 4245 if (htab->elf.target_os == is_vxworks)
22b75d0a 4246 {
910600e9
RS		 4247 /* Work out the index of this PLT entry. */
4248 rela_index = ((h->plt.offset - htab->plt_header_size)
4249 / htab->plt_entry_size);
4250
4251 /* Calculate the offset of the associated .got.plt entry.
4252 The first three entries are reserved. */
4253 got_offset = (rela_index + 3) * 4;
4254
4255 sparc_vxworks_build_plt_entry (output_bfd, info, h->plt.offset,
4256 rela_index, got_offset);
4257
4258
4259 /* On VxWorks, the relocation points to the .got.plt entry,
4260 not the .plt entry. */
72fbc6e5
DM		 4261 rela.r_offset = (htab->elf.sgotplt->output_section->vma
4262 + htab->elf.sgotplt->output_offset
910600e9 4263 + got_offset);
22b75d0a 4264 rela.r_addend = 0;
d0c9aeb3
DM		 4265 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx,
4266 R_SPARC_JMP_SLOT);
22b75d0a
DM		 4267 }
4268 else
4269 {
d0c9aeb3
DM		 4270 bfd_boolean ifunc = FALSE;
4271
910600e9
RS		 4272 /* Fill in the entry in the procedure linkage table. */
4273 rela_index = SPARC_ELF_BUILD_PLT_ENTRY (htab, output_bfd, splt,
4274 h->plt.offset, splt->size,
4275 &r_offset);
4276
d0c9aeb3
DM		 4277 if (h == NULL
4278 || h->dynindx == -1
0e1862bb 4279 || ((bfd_link_executable (info)
d0c9aeb3
DM		 4280 || ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
4281 && h->def_regular
4282 && h->type == STT_GNU_IFUNC))
4283 {
4284 ifunc = TRUE;
4285 BFD_ASSERT (h == NULL
4286 || (h->type == STT_GNU_IFUNC
4287 && h->def_regular
4288 && (h->root.type == bfd_link_hash_defined
4289 || h->root.type == bfd_link_hash_defweak)));
4290 }
4291
910600e9
RS		 4292 rela.r_offset = r_offset
4293 + (splt->output_section->vma + splt->output_offset);
d0c9aeb3
DM		 4294 if (ABI_64_P (output_bfd)
4295 && h->plt.offset >= (PLT64_LARGE_THRESHOLD * PLT64_ENTRY_SIZE))
910600e9 4296 {
d0c9aeb3
DM		 4297 if (ifunc)
4298 {
4299 rela.r_addend = (h->root.u.def.section->output_section->vma
4300 + h->root.u.def.section->output_offset
4301 + h->root.u.def.value);
4302 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0,
4303 R_SPARC_IRELATIVE);
4304 }
4305 else
4306 {
4307 rela.r_addend = (-(h->plt.offset + 4)
4308 - splt->output_section->vma
4309 - splt->output_offset);
4310 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx,
4311 R_SPARC_JMP_SLOT);
4312 }
910600e9
RS		 4313 }
4314 else
4315 {
d0c9aeb3
DM		 4316 if (ifunc)
4317 {
4318 rela.r_addend = (h->root.u.def.section->output_section->vma
4319 + h->root.u.def.section->output_offset
4320 + h->root.u.def.value);
4321 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0,
4322 R_SPARC_JMP_IREL);
4323 }
4324 else
4325 {
4326 rela.r_addend = 0;
4327 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx,
4328 R_SPARC_JMP_SLOT);
4329 }
910600e9 4330 }
22b75d0a 4331 }
22b75d0a
DM		 4332
4333 /* Adjust for the first 4 reserved elements in the .plt section
4334 when setting the offset in the .rela.plt section.
4335 Sun forgot to read their own ABI and copied elf32-sparc behaviour,
4336 thus .plt[4] has corresponding .rela.plt[0] and so on. */
4337
4338 loc = srela->contents;
39817122
RS		 4339 loc += rela_index * bed->s->sizeof_rela;
4340 bed->s->swap_reloca_out (output_bfd, &rela, loc);
22b75d0a 4341
a8735c82 4342 if (!resolved_to_zero && !h->def_regular)
22b75d0a
DM		 4343 {
4344 /* Mark the symbol as undefined, rather than as defined in
4345 the .plt section. Leave the value alone. */
4346 sym->st_shndx = SHN_UNDEF;
4347 /* If the symbol is weak, we do need to clear the value.
4348 Otherwise, the PLT entry would provide a definition for
4349 the symbol even if the symbol wasn't defined anywhere,
4350 and so the symbol would never be NULL. */
4351 if (!h->ref_regular_nonweak)
4352 sym->st_value = 0;
4353 }
4354 }
4355
a8735c82
EB		 4356 /* Don't generate dynamic GOT relocation against resolved undefined weak
4357 symbols in an executable. */
22b75d0a
DM		 4358 if (h->got.offset != (bfd_vma) -1
4359 && _bfd_sparc_elf_hash_entry(h)->tls_type != GOT_TLS_GD
bb1dd176 4360 && _bfd_sparc_elf_hash_entry(h)->tls_type != GOT_TLS_IE
a8735c82
EB		 4361 && !(h->root.type == bfd_link_hash_undefweak
4362 && (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
4363 || resolved_to_zero)))
22b75d0a
DM		 4364 {
4365 asection *sgot;
4366 asection *srela;
4367 Elf_Internal_Rela rela;
4368
4369 /* This symbol has an entry in the GOT. Set it up. */
4370
72fbc6e5
DM		 4371 sgot = htab->elf.sgot;
4372 srela = htab->elf.srelgot;
22b75d0a
DM		 4373 BFD_ASSERT (sgot != NULL && srela != NULL);
4374
4375 rela.r_offset = (sgot->output_section->vma
4376 + sgot->output_offset
4377 + (h->got.offset &~ (bfd_vma) 1));
4378
4379 /* If this is a -Bsymbolic link, and the symbol is defined
4380 locally, we just want to emit a RELATIVE reloc. Likewise if
4381 the symbol was forced to be local because of a version file.
4382 The entry in the global offset table will already have been
4383 initialized in the relocate_section function. */
0e1862bb 4384 if (! bfd_link_pic (info)
d0c9aeb3
DM		 4385 && h->type == STT_GNU_IFUNC
4386 && h->def_regular)
4387 {
4388 asection *plt;
4389
4390 /* We load the GOT entry with the PLT entry. */
4391 plt = htab->elf.splt ? htab->elf.splt : htab->elf.iplt;
4392 SPARC_ELF_PUT_WORD (htab, output_bfd,
4393 (plt->output_section->vma
4394 + plt->output_offset + h->plt.offset),
4395 htab->elf.sgot->contents
4396 + (h->got.offset & ~(bfd_vma) 1));
4397 return TRUE;
4398 }
a8735c82
EB		 4399
4400 if (bfd_link_pic (info) && SYMBOL_REFERENCES_LOCAL (info, h))
22b75d0a
DM		 4401 {
4402 asection *sec = h->root.u.def.section;
d0c9aeb3
DM		 4403 if (h->type == STT_GNU_IFUNC)
4404 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, R_SPARC_IRELATIVE);
4405 else
4406 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, 0, R_SPARC_RELATIVE);
22b75d0a
DM		 4407 rela.r_addend = (h->root.u.def.value
4408 + sec->output_section->vma
4409 + sec->output_offset);
4410 }
4411 else
4412 {
4413 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx, R_SPARC_GLOB_DAT);
4414 rela.r_addend = 0;
4415 }
4416
4417 SPARC_ELF_PUT_WORD (htab, output_bfd, 0,
4418 sgot->contents + (h->got.offset & ~(bfd_vma) 1));
39817122 4419 sparc_elf_append_rela (output_bfd, srela, &rela);
22b75d0a
DM		 4420 }
4421
4422 if (h->needs_copy)
4423 {
4424 asection *s;
4425 Elf_Internal_Rela rela;
4426
4427 /* This symbols needs a copy reloc. Set it up. */
4428 BFD_ASSERT (h->dynindx != -1);
4429
22b75d0a
DM		 4430 rela.r_offset = (h->root.u.def.value
4431 + h->root.u.def.section->output_section->vma
4432 + h->root.u.def.section->output_offset);
4433 rela.r_info = SPARC_ELF_R_INFO (htab, NULL, h->dynindx, R_SPARC_COPY);
4434 rela.r_addend = 0;
afbf7e8e 4435 if (h->root.u.def.section == htab->elf.sdynrelro)
5474d94f
AM		 4436 s = htab->elf.sreldynrelro;
4437 else
4438 s = htab->elf.srelbss;
39817122 4439 sparc_elf_append_rela (output_bfd, s, &rela);
22b75d0a
DM		 4440 }
4441
910600e9
RS		 4442 /* Mark some specially defined symbols as absolute. On VxWorks,
4443 _GLOBAL_OFFSET_TABLE_ is not absolute: it is relative to the
4444 ".got" section. Likewise _PROCEDURE_LINKAGE_TABLE_ and ".plt". */
d0c9aeb3 4445 if (sym != NULL
9637f6ef 4446 && (h == htab->elf.hdynamic
90c14f0c 4447 || (htab->elf.target_os != is_vxworks
d0c9aeb3 4448 && (h == htab->elf.hgot || h == htab->elf.hplt))))
22b75d0a
DM		 4449 sym->st_shndx = SHN_ABS;
4450
4451 return TRUE;
4452}
4453
4454/* Finish up the dynamic sections. */
4455
22b75d0a 4456static bfd_boolean
39817122
RS		 4457sparc_finish_dyn (bfd *output_bfd, struct bfd_link_info *info,
4458 bfd *dynobj, asection *sdyn,
4459 asection *splt ATTRIBUTE_UNUSED)
22b75d0a 4460{
910600e9 4461 struct _bfd_sparc_elf_link_hash_table *htab;
39817122
RS		 4462 const struct elf_backend_data *bed;
4463 bfd_byte *dyncon, *dynconend;
4464 size_t dynsize;
4465 int stt_regidx = -1;
4466 bfd_boolean abi_64_p;
22b75d0a 4467
910600e9 4468 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4469 BFD_ASSERT (htab != NULL);
39817122
RS		 4470 bed = get_elf_backend_data (output_bfd);
4471 dynsize = bed->s->sizeof_dyn;
4472 dynconend = sdyn->contents + sdyn->size;
4473 abi_64_p = ABI_64_P (output_bfd);
4474 for (dyncon = sdyn->contents; dyncon < dynconend; dyncon += dynsize)
22b75d0a
DM		 4475 {
4476 Elf_Internal_Dyn dyn;
22b75d0a
DM		 4477 bfd_boolean size;
4478
39817122 4479 bed->s->swap_dyn_in (dynobj, dyncon, &dyn);
22b75d0a 4480
90c14f0c 4481 if (htab->elf.target_os == is_vxworks && dyn.d_tag == DT_PLTGOT)
22b75d0a 4482 {
910600e9
RS		 4483 /* On VxWorks, DT_PLTGOT should point to the start of the GOT,
4484 not to the start of the PLT. */
72fbc6e5 4485 if (htab->elf.sgotplt)
910600e9 4486 {
72fbc6e5
DM		 4487 dyn.d_un.d_val = (htab->elf.sgotplt->output_section->vma
4488 + htab->elf.sgotplt->output_offset);
39817122 4489 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
910600e9
RS		 4490 }
4491 }
90c14f0c 4492 else if (htab->elf.target_os == is_vxworks
7a2b07ff
NS		 4493 && elf_vxworks_finish_dynamic_entry (output_bfd, &dyn))
4494 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
39817122
RS		 4495 else if (abi_64_p && dyn.d_tag == DT_SPARC_REGISTER)
4496 {
4497 if (stt_regidx == -1)
4498 {
4499 stt_regidx =
4500 _bfd_elf_link_lookup_local_dynindx (info, output_bfd, -1);
4501 if (stt_regidx == -1)
4502 return FALSE;
4503 }
4504 dyn.d_un.d_val = stt_regidx++;
4505 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
4506 }
910600e9
RS		 4507 else
4508 {
ce558b89
AM		 4509 asection *s;
4510
910600e9
RS		 4511 switch (dyn.d_tag)
4512 {
ce558b89
AM		 4513 case DT_PLTGOT:
4514 s = htab->elf.splt;
4515 size = FALSE;
4516 break;
4517 case DT_PLTRELSZ:
4518 s = htab->elf.srelplt;
4519 size = TRUE;
4520 break;
4521 case DT_JMPREL:
4522 s = htab->elf.srelplt;
4523 size = FALSE;
4524 break;
4525 default:
4526 continue;
910600e9 4527 }
22b75d0a 4528
ce558b89
AM		 4529 if (s == NULL)
4530 dyn.d_un.d_val = 0;
4531 else
22b75d0a 4532 {
ce558b89
AM		 4533 if (!size)
4534 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
22b75d0a 4535 else
ce558b89 4536 dyn.d_un.d_val = s->size;
22b75d0a 4537 }
ce558b89 4538 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
22b75d0a
DM		 4539 }
4540 }
4541 return TRUE;
4542}
4543
910600e9
RS		 4544/* Install the first PLT entry in a VxWorks executable and make sure that
4545 .rela.plt.unloaded relocations have the correct symbol indexes. */
4546
4547static void
4548sparc_vxworks_finish_exec_plt (bfd *output_bfd, struct bfd_link_info *info)
4549{
4550 struct _bfd_sparc_elf_link_hash_table *htab;
4551 Elf_Internal_Rela rela;
4552 bfd_vma got_base;
4553 bfd_byte *loc;
4554
4555 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4556 BFD_ASSERT (htab != NULL);
910600e9
RS		 4557
4558 /* Calculate the absolute value of _GLOBAL_OFFSET_TABLE_. */
4559 got_base = (htab->elf.hgot->root.u.def.section->output_section->vma
4560 + htab->elf.hgot->root.u.def.section->output_offset
4561 + htab->elf.hgot->root.u.def.value);
4562
4563 /* Install the initial PLT entry. */
4564 bfd_put_32 (output_bfd,
4565 sparc_vxworks_exec_plt0_entry[0] + ((got_base + 8) >> 10),
72fbc6e5 4566 htab->elf.splt->contents);
910600e9
RS		 4567 bfd_put_32 (output_bfd,
4568 sparc_vxworks_exec_plt0_entry[1] + ((got_base + 8) & 0x3ff),
72fbc6e5 4569 htab->elf.splt->contents + 4);
910600e9
RS		 4570 bfd_put_32 (output_bfd,
4571 sparc_vxworks_exec_plt0_entry[2],
72fbc6e5 4572 htab->elf.splt->contents + 8);
910600e9
RS		 4573 bfd_put_32 (output_bfd,
4574 sparc_vxworks_exec_plt0_entry[3],
72fbc6e5 4575 htab->elf.splt->contents + 12);
910600e9
RS		 4576 bfd_put_32 (output_bfd,
4577 sparc_vxworks_exec_plt0_entry[4],
72fbc6e5 4578 htab->elf.splt->contents + 16);
910600e9
RS		 4579
4580 loc = htab->srelplt2->contents;
4581
4582 /* Add an unloaded relocation for the initial entry's "sethi". */
72fbc6e5
DM		 4583 rela.r_offset = (htab->elf.splt->output_section->vma
4584 + htab->elf.splt->output_offset);
910600e9
RS		 4585 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_HI22);
4586 rela.r_addend = 8;
4587 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4588 loc += sizeof (Elf32_External_Rela);
4589
4590 /* Likewise the following "or". */
4591 rela.r_offset += 4;
4592 rela.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_LO10);
4593 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
4594 loc += sizeof (Elf32_External_Rela);
4595
4596 /* Fix up the remaining .rela.plt.unloaded relocations. They may have
4597 the wrong symbol index for _G_O_T_ or _P_L_T_ depending on the order
4598 in which symbols were output. */
4599 while (loc < htab->srelplt2->contents + htab->srelplt2->size)
4600 {
4601 Elf_Internal_Rela rel;
4602
4603 /* The entry's initial "sethi" (against _G_O_T_). */
4604 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
4605 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_HI22);
4606 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4607 loc += sizeof (Elf32_External_Rela);
4608
4609 /* The following "or" (also against _G_O_T_). */
4610 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
4611 rel.r_info = ELF32_R_INFO (htab->elf.hgot->indx, R_SPARC_LO10);
4612 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4613 loc += sizeof (Elf32_External_Rela);
4614
4615 /* The .got.plt entry (against _P_L_T_). */
4616 bfd_elf32_swap_reloc_in (output_bfd, loc, &rel);
4617 rel.r_info = ELF32_R_INFO (htab->elf.hplt->indx, R_SPARC_32);
4618 bfd_elf32_swap_reloc_out (output_bfd, &rel, loc);
4619 loc += sizeof (Elf32_External_Rela);
4620 }
4621}
4622
4623/* Install the first PLT entry in a VxWorks shared object. */
4624
4625static void
4626sparc_vxworks_finish_shared_plt (bfd *output_bfd, struct bfd_link_info *info)
4627{
4628 struct _bfd_sparc_elf_link_hash_table *htab;
4629 unsigned int i;
4630
4631 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6
NC		 4632 BFD_ASSERT (htab != NULL);
4633
910600e9
RS		 4634 for (i = 0; i < ARRAY_SIZE (sparc_vxworks_shared_plt0_entry); i++)
4635 bfd_put_32 (output_bfd, sparc_vxworks_shared_plt0_entry[i],
72fbc6e5 4636 htab->elf.splt->contents + i * 4);
910600e9
RS		 4637}
4638
d0c9aeb3
DM		 4639/* Finish up local dynamic symbol handling. We set the contents of
4640 various dynamic sections here. */
4641
4642static bfd_boolean
4643finish_local_dynamic_symbol (void **slot, void *inf)
4644{
4645 struct elf_link_hash_entry *h
4646 = (struct elf_link_hash_entry *) *slot;
4647 struct bfd_link_info *info
68ffbac6 4648 = (struct bfd_link_info *) inf;
d0c9aeb3
DM		 4649
4650 return _bfd_sparc_elf_finish_dynamic_symbol (info->output_bfd, info,
4651 h, NULL);
4652}
4653
bb1dd176
QZ		 4654/* Finish up undefined weak symbol handling in PIE. Fill its PLT entry
4655 here since undefined weak symbol may not be dynamic and may not be
4656 called for _bfd_sparc_elf_finish_dynamic_symbol. */
4657
4658static bfd_boolean
4659pie_finish_undefweak_symbol (struct bfd_hash_entry *bh,
07d6d2b8 4660 void *inf)
bb1dd176
QZ		 4661{
4662 struct elf_link_hash_entry *h = (struct elf_link_hash_entry *) bh;
4663 struct bfd_link_info *info = (struct bfd_link_info *) inf;
4664
4665 if (h->root.type != bfd_link_hash_undefweak
4666 || h->dynindx != -1)
4667 return TRUE;
4668
4669 return _bfd_sparc_elf_finish_dynamic_symbol (info->output_bfd, info,
07d6d2b8 4670 h, NULL);
bb1dd176
QZ		 4671}
4672
22b75d0a
DM		 4673bfd_boolean
4674_bfd_sparc_elf_finish_dynamic_sections (bfd *output_bfd, struct bfd_link_info *info)
4675{
4676 bfd *dynobj;
4677 asection *sdyn;
4678 struct _bfd_sparc_elf_link_hash_table *htab;
4679
4680 htab = _bfd_sparc_elf_hash_table (info);
4dfe6ac6 4681 BFD_ASSERT (htab != NULL);
22b75d0a 4682 dynobj = htab->elf.dynobj;
4b24dd1a 4683
6d0a6093
JM		 4684 /* We arranged in size_dynamic_sections to put the STT_REGISTER
4685 entries at the end of the dynlocal list, so they came at the end
4686 of the local symbols in the symtab. Except that they aren't
4687 STB_LOCAL, so we need to back up symtab->sh_info. */
4688 if (ABI_64_P (output_bfd)
4689 && elf_hash_table (info)->dynlocal)
4690 {
4691 asection *dynsymsec = bfd_get_linker_section (dynobj, ".dynsym");
4692 struct elf_link_local_dynamic_entry *e;
4b24dd1a 4693
6d0a6093
JM		 4694 for (e = elf_hash_table (info)->dynlocal; e ; e = e->next)
4695 if (e->input_indx == -1)
4696 break;
4697 if (e)
4698 elf_section_data (dynsymsec->output_section)->this_hdr.sh_info
4699 = e->dynindx;
4700 }
4b24dd1a 4701
3d4d4302 4702 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
22b75d0a
DM		 4703
4704 if (elf_hash_table (info)->dynamic_sections_created)
4705 {
4706 asection *splt;
22b75d0a 4707
3d4d4302 4708 splt = htab->elf.splt;
22b75d0a
DM		 4709 BFD_ASSERT (splt != NULL && sdyn != NULL);
4710
39817122
RS		 4711 if (!sparc_finish_dyn (output_bfd, info, dynobj, sdyn, splt))
4712 return FALSE;
22b75d0a
DM		 4713
4714 /* Initialize the contents of the .plt section. */
4715 if (splt->size > 0)
4716 {
90c14f0c 4717 if (htab->elf.target_os == is_vxworks)
910600e9 4718 {
0e1862bb 4719 if (bfd_link_pic (info))
910600e9
RS		 4720 sparc_vxworks_finish_shared_plt (output_bfd, info);
4721 else
4722 sparc_vxworks_finish_exec_plt (output_bfd, info);
4723 }
22b75d0a
DM		 4724 else
4725 {
910600e9
RS		 4726 memset (splt->contents, 0, htab->plt_header_size);
4727 if (!ABI_64_P (output_bfd))
4728 bfd_put_32 (output_bfd, (bfd_vma) SPARC_NOP,
4729 splt->contents + splt->size - 4);
22b75d0a
DM		 4730 }
4731 }
4732
387f8054 4733 if (elf_section_data (splt->output_section) != NULL)
07d6d2b8 4734 elf_section_data (splt->output_section)->this_hdr.sh_entsize
90c14f0c
L		 4735 = ((htab->elf.target_os == is_vxworks
4736 || !ABI_64_P (output_bfd))
07d6d2b8 4737 ? 0 : htab->plt_entry_size);
22b75d0a
DM		 4738 }
4739
4740 /* Set the first entry in the global offset table to the address of
4741 the dynamic section. */
72fbc6e5 4742 if (htab->elf.sgot && htab->elf.sgot->size > 0)
22b75d0a
DM		 4743 {
4744 bfd_vma val = (sdyn ?
4745 sdyn->output_section->vma + sdyn->output_offset :
4746 0);
4747
72fbc6e5 4748 SPARC_ELF_PUT_WORD (htab, output_bfd, val, htab->elf.sgot->contents);
22b75d0a
DM		 4749 }
4750
72fbc6e5
DM		 4751 if (htab->elf.sgot)
4752 elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize =
22b75d0a
DM		 4753 SPARC_ELF_WORD_BYTES (htab);
4754
d0c9aeb3
DM		 4755 /* Fill PLT and GOT entries for local STT_GNU_IFUNC symbols. */
4756 htab_traverse (htab->loc_hash_table, finish_local_dynamic_symbol, info);
4757
bb1dd176
QZ		 4758 /* Fill PLT entries for undefined weak symbols in PIE. */
4759 if (bfd_link_pie (info))
4760 bfd_hash_traverse (&info->hash->table,
07d6d2b8
AM		 4761 pie_finish_undefweak_symbol,
4762 info);
22b75d0a
DM		 4763 return TRUE;
4764}
4765
4766\f
4767/* Set the right machine number for a SPARC ELF file. */
4768
4769bfd_boolean
4770_bfd_sparc_elf_object_p (bfd *abfd)
4771{
4f26fb3a
JM		 4772 obj_attribute *attrs = elf_known_obj_attributes (abfd)[OBJ_ATTR_GNU];
4773 obj_attribute *hwcaps = &attrs[Tag_GNU_Sparc_HWCAPS];
4774 obj_attribute *hwcaps2 = &attrs[Tag_GNU_Sparc_HWCAPS2];
4775
4776 unsigned int v9c_hwcaps_mask = ELF_SPARC_HWCAP_ASI_BLK_INIT;
4777 unsigned int v9d_hwcaps_mask = (ELF_SPARC_HWCAP_FMAF
07d6d2b8
AM		 4778 | ELF_SPARC_HWCAP_VIS3
4779 | ELF_SPARC_HWCAP_HPC);
4f26fb3a 4780 unsigned int v9e_hwcaps_mask = (ELF_SPARC_HWCAP_AES
07d6d2b8
AM		 4781 | ELF_SPARC_HWCAP_DES
4782 | ELF_SPARC_HWCAP_KASUMI
4783 | ELF_SPARC_HWCAP_CAMELLIA
4784 | ELF_SPARC_HWCAP_MD5
4785 | ELF_SPARC_HWCAP_SHA1
4786 | ELF_SPARC_HWCAP_SHA256
4787 | ELF_SPARC_HWCAP_SHA512
4788 | ELF_SPARC_HWCAP_MPMUL
4789 | ELF_SPARC_HWCAP_MONT
4790 | ELF_SPARC_HWCAP_CRC32C
4791 | ELF_SPARC_HWCAP_CBCOND
4792 | ELF_SPARC_HWCAP_PAUSE);
4f26fb3a 4793 unsigned int v9v_hwcaps_mask = (ELF_SPARC_HWCAP_FJFMAU
07d6d2b8 4794 | ELF_SPARC_HWCAP_IMA);
4f26fb3a 4795 unsigned int v9m_hwcaps2_mask = (ELF_SPARC_HWCAP2_SPARC5
07d6d2b8
AM		 4796 | ELF_SPARC_HWCAP2_MWAIT
4797 | ELF_SPARC_HWCAP2_XMPMUL
4798 | ELF_SPARC_HWCAP2_XMONT);
64517994 4799 unsigned int m8_hwcaps2_mask = (ELF_SPARC_HWCAP2_SPARC6
07d6d2b8
AM		 4800 | ELF_SPARC_HWCAP2_ONADDSUB
4801 | ELF_SPARC_HWCAP2_ONMUL
4802 | ELF_SPARC_HWCAP2_ONDIV
4803 | ELF_SPARC_HWCAP2_DICTUNP
4804 | ELF_SPARC_HWCAP2_FPCMPSHL
4805 | ELF_SPARC_HWCAP2_RLE
4806 | ELF_SPARC_HWCAP2_SHA3);
4f26fb3a 4807
22b75d0a
DM		 4808 if (ABI_64_P (abfd))
4809 {
4810 unsigned long mach = bfd_mach_sparc_v9;
4811
64517994 4812 if (hwcaps2->i & m8_hwcaps2_mask)
07d6d2b8 4813 mach = bfd_mach_sparc_v9m8;
64517994 4814 else if (hwcaps2->i & v9m_hwcaps2_mask)
07d6d2b8 4815 mach = bfd_mach_sparc_v9m;
4f26fb3a 4816 else if (hwcaps->i & v9v_hwcaps_mask)
07d6d2b8 4817 mach = bfd_mach_sparc_v9v;
4f26fb3a 4818 else if (hwcaps->i & v9e_hwcaps_mask)
07d6d2b8 4819 mach = bfd_mach_sparc_v9e;
4f26fb3a 4820 else if (hwcaps->i & v9d_hwcaps_mask)
07d6d2b8 4821 mach = bfd_mach_sparc_v9d;
4f26fb3a 4822 else if (hwcaps->i & v9c_hwcaps_mask)
07d6d2b8 4823 mach = bfd_mach_sparc_v9c;
4f26fb3a 4824 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US3)
22b75d0a
DM		 4825 mach = bfd_mach_sparc_v9b;
4826 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US1)
4827 mach = bfd_mach_sparc_v9a;
4828 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc, mach);
4829 }
4830 else
4831 {
4832 if (elf_elfheader (abfd)->e_machine == EM_SPARC32PLUS)
4833 {
07d6d2b8
AM		 4834 if (hwcaps2->i & m8_hwcaps2_mask)
4835 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4836 bfd_mach_sparc_v8plusm8);
4837 else if (hwcaps2->i & v9m_hwcaps2_mask)
4f26fb3a
JM		 4838 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4839 bfd_mach_sparc_v8plusm);
07d6d2b8
AM		 4840 else if (hwcaps->i & v9v_hwcaps_mask)
4841 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a 4842 bfd_mach_sparc_v8plusv);
07d6d2b8
AM		 4843 else if (hwcaps->i & v9e_hwcaps_mask)
4844 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a 4845 bfd_mach_sparc_v8pluse);
07d6d2b8
AM		 4846 else if (hwcaps->i & v9d_hwcaps_mask)
4847 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a 4848 bfd_mach_sparc_v8plusd);
07d6d2b8
AM		 4849 else if (hwcaps->i & v9c_hwcaps_mask)
4850 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4f26fb3a
JM		 4851 bfd_mach_sparc_v8plusc);
4852 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US3)
22b75d0a
DM		 4853 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4854 bfd_mach_sparc_v8plusb);
4855 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_SUN_US1)
4856 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4857 bfd_mach_sparc_v8plusa);
4858 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_32PLUS)
4859 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4860 bfd_mach_sparc_v8plus);
4861 else
4862 return FALSE;
4863 }
4864 else if (elf_elfheader (abfd)->e_flags & EF_SPARC_LEDATA)
4865 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc,
4866 bfd_mach_sparc_sparclite_le);
4867 else
4868 return bfd_default_set_arch_mach (abfd, bfd_arch_sparc, bfd_mach_sparc);
4869 }
4870}
4871
4872/* Return address for Ith PLT stub in section PLT, for relocation REL
4873 or (bfd_vma) -1 if it should not be included. */
4874
4875bfd_vma
4876_bfd_sparc_elf_plt_sym_val (bfd_vma i, const asection *plt, const arelent *rel)
4877{
4878 if (ABI_64_P (plt->owner))
4879 {
4880 bfd_vma j;
4881
4882 i += PLT64_HEADER_SIZE / PLT64_ENTRY_SIZE;
4883 if (i < PLT64_LARGE_THRESHOLD)
4884 return plt->vma + i * PLT64_ENTRY_SIZE;
4885
4886 j = (i - PLT64_LARGE_THRESHOLD) % 160;
4887 i -= j;
4888 return plt->vma + i * PLT64_ENTRY_SIZE + j * 4 * 6;
4889 }
4890 else
4891 return rel->address;
4892}
9e8c70f9
DM		 4893
4894/* Merge backend specific data from an object file to the output
4895 object file when linking. */
4896
4897bfd_boolean
50e03d47 4898_bfd_sparc_elf_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
9e8c70f9 4899{
50e03d47 4900 bfd *obfd = info->output_bfd;
9e8c70f9
DM		 4901 obj_attribute *in_attr, *in_attrs;
4902 obj_attribute *out_attr, *out_attrs;
4903
4904 if (!elf_known_obj_attributes_proc (obfd)[0].i)
4905 {
4906 /* This is the first object. Copy the attributes. */
4907 _bfd_elf_copy_obj_attributes (ibfd, obfd);
4908
4909 /* Use the Tag_null value to indicate the attributes have been
4910 initialized. */
4911 elf_known_obj_attributes_proc (obfd)[0].i = 1;
4912
4913 return TRUE;
4914 }
4915
4916 in_attrs = elf_known_obj_attributes (ibfd)[OBJ_ATTR_GNU];
4917 out_attrs = elf_known_obj_attributes (obfd)[OBJ_ATTR_GNU];
4918
4919 in_attr = &in_attrs[Tag_GNU_Sparc_HWCAPS];
4920 out_attr = &out_attrs[Tag_GNU_Sparc_HWCAPS];
1b786873 4921
3d68f91c
JM		 4922 out_attr->i |= in_attr->i;
4923 out_attr->type = 1;
9e8c70f9 4924
3d68f91c
JM		 4925 in_attr = &in_attrs[Tag_GNU_Sparc_HWCAPS2];
4926 out_attr = &out_attrs[Tag_GNU_Sparc_HWCAPS2];
1b786873 4927
9e8c70f9 4928 out_attr->i |= in_attr->i;
209be8d2 4929 out_attr->type = 1;
9e8c70f9
DM		 4930
4931 /* Merge Tag_compatibility attributes and any common GNU ones. */
50e03d47 4932 _bfd_elf_merge_object_attributes (ibfd, info);
9e8c70f9
DM		 4933
4934 return TRUE;
4935}
GDB Binutils - Deliverables
This page took 1.077445 seconds and 4 git commands to generate.