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