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