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