?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
merge from gcc
[binutils.git] / bfd / elf32-s390.c
blob189c828aa627cd4b771f73257ed12288483b9bf4
1 /* IBM S/390-specific support for 32-bit ELF
2 Copyright 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
3 Contributed by Carl B. Pedersen and Martin Schwidefsky.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA. */
21
22 #include "bfd.h"
23 #include "sysdep.h"
24 #include "bfdlink.h"
25 #include "libbfd.h"
26 #include "elf-bfd.h"
27
28 static reloc_howto_type *elf_s390_reloc_type_lookup
29 PARAMS ((bfd *, bfd_reloc_code_real_type));
30 static void elf_s390_info_to_howto
31 PARAMS ((bfd *, arelent *, Elf_Internal_Rela *));
32 static bfd_boolean elf_s390_is_local_label_name
33 PARAMS ((bfd *, const char *));
34 static struct bfd_hash_entry *link_hash_newfunc
35 PARAMS ((struct bfd_hash_entry *, struct bfd_hash_table *, const char *));
36 static struct bfd_link_hash_table *elf_s390_link_hash_table_create
37 PARAMS ((bfd *));
38 static bfd_boolean create_got_section
39 PARAMS((bfd *, struct bfd_link_info *));
40 static bfd_boolean elf_s390_create_dynamic_sections
41 PARAMS((bfd *, struct bfd_link_info *));
42 static void elf_s390_copy_indirect_symbol
43 PARAMS ((const struct elf_backend_data *, struct elf_link_hash_entry *,
44 struct elf_link_hash_entry *));
45 static bfd_boolean elf_s390_check_relocs
46 PARAMS ((bfd *, struct bfd_link_info *, asection *,
47 const Elf_Internal_Rela *));
48 static asection *elf_s390_gc_mark_hook
49 PARAMS ((asection *, struct bfd_link_info *, Elf_Internal_Rela *,
50 struct elf_link_hash_entry *, Elf_Internal_Sym *));
51 static bfd_boolean elf_s390_gc_sweep_hook
52 PARAMS ((bfd *, struct bfd_link_info *, asection *,
53 const Elf_Internal_Rela *));
54 struct elf_s390_link_hash_entry;
55 static void elf_s390_adjust_gotplt
56 PARAMS ((struct elf_s390_link_hash_entry *));
57 static bfd_boolean elf_s390_adjust_dynamic_symbol
58 PARAMS ((struct bfd_link_info *, struct elf_link_hash_entry *));
59 static bfd_boolean allocate_dynrelocs
60 PARAMS ((struct elf_link_hash_entry *, PTR));
61 static bfd_boolean readonly_dynrelocs
62 PARAMS ((struct elf_link_hash_entry *, PTR));
63 static bfd_boolean elf_s390_size_dynamic_sections
64 PARAMS ((bfd *, struct bfd_link_info *));
65 static bfd_boolean elf_s390_relocate_section
66 PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
67 Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
68 static bfd_boolean elf_s390_finish_dynamic_symbol
69 PARAMS ((bfd *, struct bfd_link_info *, struct elf_link_hash_entry *,
70 Elf_Internal_Sym *));
71 static enum elf_reloc_type_class elf_s390_reloc_type_class
72 PARAMS ((const Elf_Internal_Rela *));
73 static bfd_boolean elf_s390_finish_dynamic_sections
74 PARAMS ((bfd *, struct bfd_link_info *));
75 static bfd_boolean elf_s390_mkobject
76 PARAMS ((bfd *));
77 static bfd_boolean elf_s390_object_p
78 PARAMS ((bfd *));
79 static bfd_boolean elf_s390_grok_prstatus
80 PARAMS ((bfd *, Elf_Internal_Note *));
81 static int elf_s390_tls_transition
82 PARAMS ((struct bfd_link_info *, int, int));
83 static bfd_reloc_status_type s390_tls_reloc
84 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
85 static bfd_vma dtpoff_base
86 PARAMS ((struct bfd_link_info *));
87 static bfd_vma tpoff
88 PARAMS ((struct bfd_link_info *, bfd_vma));
89 static void invalid_tls_insn
90 PARAMS ((bfd *, asection *, Elf_Internal_Rela *));
91 static bfd_reloc_status_type s390_elf_ldisp_reloc
92 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
93
94 #include "elf/s390.h"
95
96 /* The relocation "howto" table. */
97
98 static reloc_howto_type elf_howto_table[] =
99 {
100 HOWTO (R_390_NONE, /* type */
101 0, /* rightshift */
102 0, /* size (0 = byte, 1 = short, 2 = long) */
103 0, /* bitsize */
104 FALSE, /* pc_relative */
105 0, /* bitpos */
106 complain_overflow_dont, /* complain_on_overflow */
107 bfd_elf_generic_reloc, /* special_function */
108 "R_390_NONE", /* name */
109 FALSE, /* partial_inplace */
110 0, /* src_mask */
111 0, /* dst_mask */
112 FALSE), /* pcrel_offset */
113
114 HOWTO(R_390_8, 0, 0, 8, FALSE, 0, complain_overflow_bitfield,
115 bfd_elf_generic_reloc, "R_390_8", FALSE, 0,0x000000ff, FALSE),
116 HOWTO(R_390_12, 0, 1, 12, FALSE, 0, complain_overflow_dont,
117 bfd_elf_generic_reloc, "R_390_12", FALSE, 0,0x00000fff, FALSE),
118 HOWTO(R_390_16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
119 bfd_elf_generic_reloc, "R_390_16", FALSE, 0,0x0000ffff, FALSE),
120 HOWTO(R_390_32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
121 bfd_elf_generic_reloc, "R_390_32", FALSE, 0,0xffffffff, FALSE),
122 HOWTO(R_390_PC32, 0, 2, 32, TRUE, 0, complain_overflow_bitfield,
123 bfd_elf_generic_reloc, "R_390_PC32", FALSE, 0,0xffffffff, TRUE),
124 HOWTO(R_390_GOT12, 0, 1, 12, FALSE, 0, complain_overflow_bitfield,
125 bfd_elf_generic_reloc, "R_390_GOT12", FALSE, 0,0x00000fff, FALSE),
126 HOWTO(R_390_GOT32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
127 bfd_elf_generic_reloc, "R_390_GOT32", FALSE, 0,0xffffffff, FALSE),
128 HOWTO(R_390_PLT32, 0, 2, 32, TRUE, 0, complain_overflow_bitfield,
129 bfd_elf_generic_reloc, "R_390_PLT32", FALSE, 0,0xffffffff, TRUE),
130 HOWTO(R_390_COPY, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
131 bfd_elf_generic_reloc, "R_390_COPY", FALSE, 0,0xffffffff, FALSE),
132 HOWTO(R_390_GLOB_DAT, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
133 bfd_elf_generic_reloc, "R_390_GLOB_DAT", FALSE, 0,0xffffffff, FALSE),
134 HOWTO(R_390_JMP_SLOT, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
135 bfd_elf_generic_reloc, "R_390_JMP_SLOT", FALSE, 0,0xffffffff, FALSE),
136 HOWTO(R_390_RELATIVE, 0, 2, 32, TRUE, 0, complain_overflow_bitfield,
137 bfd_elf_generic_reloc, "R_390_RELATIVE", FALSE, 0,0xffffffff, FALSE),
138 HOWTO(R_390_GOTOFF32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
139 bfd_elf_generic_reloc, "R_390_GOTOFF32", FALSE, 0,0xffffffff, FALSE),
140 HOWTO(R_390_GOTPC, 0, 2, 32, TRUE, 0, complain_overflow_bitfield,
141 bfd_elf_generic_reloc, "R_390_GOTPC", FALSE, 0,0xffffffff, TRUE),
142 HOWTO(R_390_GOT16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
143 bfd_elf_generic_reloc, "R_390_GOT16", FALSE, 0,0x0000ffff, FALSE),
144 HOWTO(R_390_PC16, 0, 1, 16, TRUE, 0, complain_overflow_bitfield,
145 bfd_elf_generic_reloc, "R_390_PC16", FALSE, 0,0x0000ffff, TRUE),
146 HOWTO(R_390_PC16DBL, 1, 1, 16, TRUE, 0, complain_overflow_bitfield,
147 bfd_elf_generic_reloc, "R_390_PC16DBL", FALSE, 0,0x0000ffff, TRUE),
148 HOWTO(R_390_PLT16DBL, 1, 1, 16, TRUE, 0, complain_overflow_bitfield,
149 bfd_elf_generic_reloc, "R_390_PLT16DBL", FALSE, 0,0x0000ffff, TRUE),
150 HOWTO(R_390_PC32DBL, 1, 2, 32, TRUE, 0, complain_overflow_bitfield,
151 bfd_elf_generic_reloc, "R_390_PC32DBL", FALSE, 0,0xffffffff, TRUE),
152 HOWTO(R_390_PLT32DBL, 1, 2, 32, TRUE, 0, complain_overflow_bitfield,
153 bfd_elf_generic_reloc, "R_390_PLT32DBL", FALSE, 0,0xffffffff, TRUE),
154 HOWTO(R_390_GOTPCDBL, 1, 2, 32, TRUE, 0, complain_overflow_bitfield,
155 bfd_elf_generic_reloc, "R_390_GOTPCDBL", FALSE, 0,0xffffffff, TRUE),
156 EMPTY_HOWTO (R_390_64), /* Empty entry for R_390_64. */
157 EMPTY_HOWTO (R_390_PC64), /* Empty entry for R_390_PC64. */
158 EMPTY_HOWTO (R_390_GOT64), /* Empty entry for R_390_GOT64. */
159 EMPTY_HOWTO (R_390_PLT64), /* Empty entry for R_390_PLT64. */
160 HOWTO(R_390_GOTENT, 1, 2, 32, TRUE, 0, complain_overflow_bitfield,
161 bfd_elf_generic_reloc, "R_390_GOTENT", FALSE, 0,0xffffffff, TRUE),
162 HOWTO(R_390_GOTOFF16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
163 bfd_elf_generic_reloc, "R_390_GOTOFF16", FALSE, 0,0x0000ffff, FALSE),
164 EMPTY_HOWTO (R_390_GOTOFF64), /* Empty entry for R_390_GOTOFF64. */
165 HOWTO(R_390_GOTPLT12, 0, 1, 12, FALSE, 0, complain_overflow_dont,
166 bfd_elf_generic_reloc, "R_390_GOTPLT12", FALSE, 0,0x00000fff, FALSE),
167 HOWTO(R_390_GOTPLT16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
168 bfd_elf_generic_reloc, "R_390_GOTPLT16", FALSE, 0,0x0000ffff, FALSE),
169 HOWTO(R_390_GOTPLT32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
170 bfd_elf_generic_reloc, "R_390_GOTPLT32", FALSE, 0,0xffffffff, FALSE),
171 EMPTY_HOWTO (R_390_GOTPLT64), /* Empty entry for R_390_GOTPLT64. */
172 HOWTO(R_390_GOTPLTENT, 1, 2, 32, TRUE, 0, complain_overflow_bitfield,
173 bfd_elf_generic_reloc, "R_390_GOTPLTENT",FALSE, 0,0xffffffff, TRUE),
174 HOWTO(R_390_PLTOFF16, 0, 1, 16, FALSE, 0, complain_overflow_bitfield,
175 bfd_elf_generic_reloc, "R_390_PLTOFF16", FALSE, 0,0x0000ffff, FALSE),
176 HOWTO(R_390_PLTOFF32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
177 bfd_elf_generic_reloc, "R_390_PLTOFF32", FALSE, 0,0xffffffff, FALSE),
178 EMPTY_HOWTO (R_390_PLTOFF64), /* Empty entry for R_390_PLTOFF64. */
179 HOWTO(R_390_TLS_LOAD, 0, 0, 0, FALSE, 0, complain_overflow_dont,
180 s390_tls_reloc, "R_390_TLS_LOAD", FALSE, 0, 0, FALSE),
181 HOWTO(R_390_TLS_GDCALL, 0, 0, 0, FALSE, 0, complain_overflow_dont,
182 s390_tls_reloc, "R_390_TLS_GDCALL", FALSE, 0, 0, FALSE),
183 HOWTO(R_390_TLS_LDCALL, 0, 0, 0, FALSE, 0, complain_overflow_dont,
184 s390_tls_reloc, "R_390_TLS_LDCALL", FALSE, 0, 0, FALSE),
185 HOWTO(R_390_TLS_GD32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
186 bfd_elf_generic_reloc, "R_390_TLS_GD32", FALSE, 0, 0xffffffff, FALSE),
187 EMPTY_HOWTO (R_390_TLS_GD64), /* Empty entry for R_390_TLS_GD64. */
188 HOWTO(R_390_TLS_GOTIE12, 0, 1, 12, FALSE, 0, complain_overflow_dont,
189 bfd_elf_generic_reloc, "R_390_TLS_GOTIE12", FALSE, 0, 0x00000fff, FALSE),
190 HOWTO(R_390_TLS_GOTIE32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
191 bfd_elf_generic_reloc, "R_390_TLS_GOTIE32", FALSE, 0, 0xffffffff, FALSE),
192 EMPTY_HOWTO (R_390_TLS_GOTIE64), /* Empty entry for R_390_TLS_GOTIE64. */
193 HOWTO(R_390_TLS_LDM32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
194 bfd_elf_generic_reloc, "R_390_TLS_LDM32", FALSE, 0, 0xffffffff, FALSE),
195 EMPTY_HOWTO (R_390_TLS_LDM64), /* Empty entry for R_390_TLS_LDM64. */
196 HOWTO(R_390_TLS_IE32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
197 bfd_elf_generic_reloc, "R_390_TLS_IE32", FALSE, 0, 0xffffffff, FALSE),
198 EMPTY_HOWTO (R_390_TLS_IE64), /* Empty entry for R_390_TLS_IE64. */
199 HOWTO(R_390_TLS_IEENT, 1, 2, 32, TRUE, 0, complain_overflow_bitfield,
200 bfd_elf_generic_reloc, "R_390_TLS_IEENT", FALSE, 0, 0xffffffff, TRUE),
201 HOWTO(R_390_TLS_LE32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
202 bfd_elf_generic_reloc, "R_390_TLS_LE32", FALSE, 0, 0xffffffff, FALSE),
203 EMPTY_HOWTO (R_390_TLS_LE64), /* Empty entry for R_390_TLS_LE64. */
204 HOWTO(R_390_TLS_LDO32, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
205 bfd_elf_generic_reloc, "R_390_TLS_LDO32", FALSE, 0, 0xffffffff, FALSE),
206 EMPTY_HOWTO (R_390_TLS_LDO64), /* Empty entry for R_390_TLS_LDO64. */
207 HOWTO(R_390_TLS_DTPMOD, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
208 bfd_elf_generic_reloc, "R_390_TLS_DTPMOD", FALSE, 0, 0xffffffff, FALSE),
209 HOWTO(R_390_TLS_DTPOFF, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
210 bfd_elf_generic_reloc, "R_390_TLS_DTPOFF", FALSE, 0, 0xffffffff, FALSE),
211 HOWTO(R_390_TLS_TPOFF, 0, 2, 32, FALSE, 0, complain_overflow_bitfield,
212 bfd_elf_generic_reloc, "R_390_TLS_TPOFF", FALSE, 0, 0xffffffff, FALSE),
213 HOWTO(R_390_20, 0, 2, 20, FALSE, 8, complain_overflow_dont,
214 s390_elf_ldisp_reloc, "R_390_20", FALSE, 0,0x0fffff00, FALSE),
215 HOWTO(R_390_GOT20, 0, 2, 20, FALSE, 8, complain_overflow_dont,
216 s390_elf_ldisp_reloc, "R_390_GOT20", FALSE, 0,0x0fffff00, FALSE),
217 HOWTO(R_390_GOTPLT20, 0, 2, 20, FALSE, 8, complain_overflow_dont,
218 s390_elf_ldisp_reloc, "R_390_GOTPLT20", FALSE, 0,0x0fffff00, FALSE),
219 HOWTO(R_390_TLS_GOTIE20, 0, 2, 20, FALSE, 8, complain_overflow_dont,
220 s390_elf_ldisp_reloc, "R_390_TLS_GOTIE20", FALSE, 0,0x0fffff00, FALSE),
221 };
222
223 /* GNU extension to record C++ vtable hierarchy. */
224 static reloc_howto_type elf32_s390_vtinherit_howto =
225 HOWTO (R_390_GNU_VTINHERIT, 0,2,0,FALSE,0,complain_overflow_dont, NULL, "R_390_GNU_VTINHERIT", FALSE,0, 0, FALSE);
226 static reloc_howto_type elf32_s390_vtentry_howto =
227 HOWTO (R_390_GNU_VTENTRY, 0,2,0,FALSE,0,complain_overflow_dont, _bfd_elf_rel_vtable_reloc_fn,"R_390_GNU_VTENTRY", FALSE,0,0, FALSE);
228
229 static reloc_howto_type *
230 elf_s390_reloc_type_lookup (abfd, code)
231 bfd *abfd ATTRIBUTE_UNUSED;
232 bfd_reloc_code_real_type code;
233 {
234 switch (code)
235 {
236 case BFD_RELOC_NONE:
237 return &elf_howto_table[(int) R_390_NONE];
238 case BFD_RELOC_8:
239 return &elf_howto_table[(int) R_390_8];
240 case BFD_RELOC_390_12:
241 return &elf_howto_table[(int) R_390_12];
242 case BFD_RELOC_16:
243 return &elf_howto_table[(int) R_390_16];
244 case BFD_RELOC_32:
245 return &elf_howto_table[(int) R_390_32];
246 case BFD_RELOC_CTOR:
247 return &elf_howto_table[(int) R_390_32];
248 case BFD_RELOC_32_PCREL:
249 return &elf_howto_table[(int) R_390_PC32];
250 case BFD_RELOC_390_GOT12:
251 return &elf_howto_table[(int) R_390_GOT12];
252 case BFD_RELOC_32_GOT_PCREL:
253 return &elf_howto_table[(int) R_390_GOT32];
254 case BFD_RELOC_390_PLT32:
255 return &elf_howto_table[(int) R_390_PLT32];
256 case BFD_RELOC_390_COPY:
257 return &elf_howto_table[(int) R_390_COPY];
258 case BFD_RELOC_390_GLOB_DAT:
259 return &elf_howto_table[(int) R_390_GLOB_DAT];
260 case BFD_RELOC_390_JMP_SLOT:
261 return &elf_howto_table[(int) R_390_JMP_SLOT];
262 case BFD_RELOC_390_RELATIVE:
263 return &elf_howto_table[(int) R_390_RELATIVE];
264 case BFD_RELOC_32_GOTOFF:
265 return &elf_howto_table[(int) R_390_GOTOFF32];
266 case BFD_RELOC_390_GOTPC:
267 return &elf_howto_table[(int) R_390_GOTPC];
268 case BFD_RELOC_390_GOT16:
269 return &elf_howto_table[(int) R_390_GOT16];
270 case BFD_RELOC_16_PCREL:
271 return &elf_howto_table[(int) R_390_PC16];
272 case BFD_RELOC_390_PC16DBL:
273 return &elf_howto_table[(int) R_390_PC16DBL];
274 case BFD_RELOC_390_PLT16DBL:
275 return &elf_howto_table[(int) R_390_PLT16DBL];
276 case BFD_RELOC_390_PC32DBL:
277 return &elf_howto_table[(int) R_390_PC32DBL];
278 case BFD_RELOC_390_PLT32DBL:
279 return &elf_howto_table[(int) R_390_PLT32DBL];
280 case BFD_RELOC_390_GOTPCDBL:
281 return &elf_howto_table[(int) R_390_GOTPCDBL];
282 case BFD_RELOC_390_GOTENT:
283 return &elf_howto_table[(int) R_390_GOTENT];
284 case BFD_RELOC_16_GOTOFF:
285 return &elf_howto_table[(int) R_390_GOTOFF16];
286 case BFD_RELOC_390_GOTPLT12:
287 return &elf_howto_table[(int) R_390_GOTPLT12];
288 case BFD_RELOC_390_GOTPLT16:
289 return &elf_howto_table[(int) R_390_GOTPLT16];
290 case BFD_RELOC_390_GOTPLT32:
291 return &elf_howto_table[(int) R_390_GOTPLT32];
292 case BFD_RELOC_390_GOTPLTENT:
293 return &elf_howto_table[(int) R_390_GOTPLTENT];
294 case BFD_RELOC_390_PLTOFF16:
295 return &elf_howto_table[(int) R_390_PLTOFF16];
296 case BFD_RELOC_390_PLTOFF32:
297 return &elf_howto_table[(int) R_390_PLTOFF32];
298 case BFD_RELOC_390_TLS_LOAD:
299 return &elf_howto_table[(int) R_390_TLS_LOAD];
300 case BFD_RELOC_390_TLS_GDCALL:
301 return &elf_howto_table[(int) R_390_TLS_GDCALL];
302 case BFD_RELOC_390_TLS_LDCALL:
303 return &elf_howto_table[(int) R_390_TLS_LDCALL];
304 case BFD_RELOC_390_TLS_GD32:
305 return &elf_howto_table[(int) R_390_TLS_GD32];
306 case BFD_RELOC_390_TLS_GOTIE12:
307 return &elf_howto_table[(int) R_390_TLS_GOTIE12];
308 case BFD_RELOC_390_TLS_GOTIE32:
309 return &elf_howto_table[(int) R_390_TLS_GOTIE32];
310 case BFD_RELOC_390_TLS_LDM32:
311 return &elf_howto_table[(int) R_390_TLS_LDM32];
312 case BFD_RELOC_390_TLS_IE32:
313 return &elf_howto_table[(int) R_390_TLS_IE32];
314 case BFD_RELOC_390_TLS_IEENT:
315 return &elf_howto_table[(int) R_390_TLS_IEENT];
316 case BFD_RELOC_390_TLS_LE32:
317 return &elf_howto_table[(int) R_390_TLS_LE32];
318 case BFD_RELOC_390_TLS_LDO32:
319 return &elf_howto_table[(int) R_390_TLS_LDO32];
320 case BFD_RELOC_390_TLS_DTPMOD:
321 return &elf_howto_table[(int) R_390_TLS_DTPMOD];
322 case BFD_RELOC_390_TLS_DTPOFF:
323 return &elf_howto_table[(int) R_390_TLS_DTPOFF];
324 case BFD_RELOC_390_TLS_TPOFF:
325 return &elf_howto_table[(int) R_390_TLS_TPOFF];
326 case BFD_RELOC_390_20:
327 return &elf_howto_table[(int) R_390_20];
328 case BFD_RELOC_390_GOT20:
329 return &elf_howto_table[(int) R_390_GOT20];
330 case BFD_RELOC_390_GOTPLT20:
331 return &elf_howto_table[(int) R_390_GOTPLT20];
332 case BFD_RELOC_390_TLS_GOTIE20:
333 return &elf_howto_table[(int) R_390_TLS_GOTIE20];
334 case BFD_RELOC_VTABLE_INHERIT:
335 return &elf32_s390_vtinherit_howto;
336 case BFD_RELOC_VTABLE_ENTRY:
337 return &elf32_s390_vtentry_howto;
338 default:
339 break;
340 }
341 return 0;
342 }
343
344 /* We need to use ELF32_R_TYPE so we have our own copy of this function,
345 and elf32-s390.c has its own copy. */
346
347 static void
348 elf_s390_info_to_howto (abfd, cache_ptr, dst)
349 bfd *abfd ATTRIBUTE_UNUSED;
350 arelent *cache_ptr;
351 Elf_Internal_Rela *dst;
352 {
353 switch (ELF32_R_TYPE(dst->r_info))
354 {
355 case R_390_GNU_VTINHERIT:
356 cache_ptr->howto = &elf32_s390_vtinherit_howto;
357 break;
358
359 case R_390_GNU_VTENTRY:
360 cache_ptr->howto = &elf32_s390_vtentry_howto;
361 break;
362
363 default:
364 BFD_ASSERT (ELF32_R_TYPE(dst->r_info) < (unsigned int) R_390_max);
365 cache_ptr->howto = &elf_howto_table[ELF32_R_TYPE(dst->r_info)];
366 }
367 }
368
369 /* A relocation function which doesn't do anything. */
370 static bfd_reloc_status_type
371 s390_tls_reloc (abfd, reloc_entry, symbol, data, input_section,
372 output_bfd, error_message)
373 bfd *abfd ATTRIBUTE_UNUSED;
374 arelent *reloc_entry;
375 asymbol *symbol ATTRIBUTE_UNUSED;
376 PTR data ATTRIBUTE_UNUSED;
377 asection *input_section;
378 bfd *output_bfd;
379 char **error_message ATTRIBUTE_UNUSED;
380 {
381 if (output_bfd)
382 reloc_entry->address += input_section->output_offset;
383 return bfd_reloc_ok;
384 }
385
386 /* Handle the large displacement relocs. */
387 static bfd_reloc_status_type
388 s390_elf_ldisp_reloc (abfd, reloc_entry, symbol, data, input_section,
389 output_bfd, error_message)
390 bfd *abfd ATTRIBUTE_UNUSED;
391 arelent *reloc_entry;
392 asymbol *symbol;
393 PTR data ATTRIBUTE_UNUSED;
394 asection *input_section;
395 bfd *output_bfd;
396 char **error_message ATTRIBUTE_UNUSED;
397 {
398 reloc_howto_type *howto = reloc_entry->howto;
399 bfd_vma relocation;
400 bfd_vma insn;
401
402 if (output_bfd != (bfd *) NULL
403 && (symbol->flags & BSF_SECTION_SYM) == 0
404 && (! howto->partial_inplace
405 || reloc_entry->addend == 0))
406 {
407 reloc_entry->address += input_section->output_offset;
408 return bfd_reloc_ok;
409 }
410
411 if (output_bfd != NULL)
412 return bfd_reloc_continue;
413
414 if (reloc_entry->address > input_section->_cooked_size)
415 return bfd_reloc_outofrange;
416
417 relocation = (symbol->value
418 + symbol->section->output_section->vma
419 + symbol->section->output_offset);
420 relocation += reloc_entry->addend;
421 if (howto->pc_relative)
422 {
423 relocation -= (input_section->output_section->vma
424 + input_section->output_offset);
425 relocation -= reloc_entry->address;
426 }
427
428 insn = bfd_get_32 (abfd, (bfd_byte *) data + reloc_entry->address);
429 insn |= (relocation & 0xfff) << 16 | (relocation & 0xff000) >> 4;
430 bfd_put_32 (abfd, insn, (bfd_byte *) data + reloc_entry->address);
431
432 if ((bfd_signed_vma) relocation < - 0x80000
433 || (bfd_signed_vma) relocation > 0x7ffff)
434 return bfd_reloc_overflow;
435 else
436 return bfd_reloc_ok;
437 }
438
439 static bfd_boolean
440 elf_s390_is_local_label_name (abfd, name)
441 bfd *abfd;
442 const char *name;
443 {
444 if (name[0] == '.' && (name[1] == 'X' || name[1] == 'L'))
445 return TRUE;
446
447 return _bfd_elf_is_local_label_name (abfd, name);
448 }
449
450 /* Functions for the 390 ELF linker. */
451
452 /* The name of the dynamic interpreter. This is put in the .interp
453 section. */
454
455 #define ELF_DYNAMIC_INTERPRETER "/usr/lib/ld.so.1"
456
457 /* If ELIMINATE_COPY_RELOCS is non-zero, the linker will try to avoid
458 copying dynamic variables from a shared lib into an app's dynbss
459 section, and instead use a dynamic relocation to point into the
460 shared lib. */
461 #define ELIMINATE_COPY_RELOCS 1
462
463 /* The size in bytes of the first entry in the procedure linkage table. */
464 #define PLT_FIRST_ENTRY_SIZE 32
465 /* The size in bytes of an entry in the procedure linkage table. */
466 #define PLT_ENTRY_SIZE 32
467
468 #define GOT_ENTRY_SIZE 4
469
470 /* The first three entries in a procedure linkage table are reserved,
471 and the initial contents are unimportant (we zero them out).
472 Subsequent entries look like this. See the SVR4 ABI 386
473 supplement to see how this works. */
474
475 /* For the s390, simple addr offset can only be 0 - 4096.
476 To use the full 2 GB address space, several instructions
477 are needed to load an address in a register and execute
478 a branch( or just saving the address)
479
480 Furthermore, only r 0 and 1 are free to use!!! */
481
482 /* The first 3 words in the GOT are then reserved.
483 Word 0 is the address of the dynamic table.
484 Word 1 is a pointer to a structure describing the object
485 Word 2 is used to point to the loader entry address.
486
487 The code for position independand PLT entries looks like this:
488
489 r12 holds addr of the current GOT at entry to the PLT
490
491 The GOT holds the address in the PLT to be executed.
492 The loader then gets:
493 24(15) = Pointer to the structure describing the object.
494 28(15) = Offset in symbol table
495
496 The loader must then find the module where the function is
497 and insert the address in the GOT.
498
499 Note: 390 can only address +- 64 K relative.
500 We check if offset > 65536, then make a relative branch -64xxx
501 back to a previous defined branch
502
503 PLT1: BASR 1,0 # 2 bytes
504 L 1,22(1) # 4 bytes Load offset in GOT in r 1
505 L 1,(1,12) # 4 bytes Load address from GOT in r1
506 BCR 15,1 # 2 bytes Jump to address
507 RET1: BASR 1,0 # 2 bytes Return from GOT 1st time
508 L 1,14(1) # 4 bytes Load offset in symol table in r1
509 BRC 15,-x # 4 bytes Jump to start of PLT
510 .word 0 # 2 bytes filler
511 .long ? # 4 bytes offset in GOT
512 .long ? # 4 bytes offset into symbol table
513
514 This was the general case. There are two additional, optimizes PLT
515 definitions. One for GOT offsets < 4096 and one for GOT offsets < 32768.
516 First the one for GOT offsets < 4096:
517
518 PLT1: L 1,<offset>(12) # 4 bytes Load address from GOT in R1
519 BCR 15,1 # 2 bytes Jump to address
520 .word 0,0,0 # 6 bytes filler
521 RET1: BASR 1,0 # 2 bytes Return from GOT 1st time
522 L 1,14(1) # 4 bytes Load offset in symbol table in r1
523 BRC 15,-x # 4 bytes Jump to start of PLT
524 .word 0,0,0 # 6 bytes filler
525 .long ? # 4 bytes offset into symbol table
526
527 Second the one for GOT offsets < 32768:
528
529 PLT1: LHI 1,<offset> # 4 bytes Load offset in GOT to r1
530 L 1,(1,12) # 4 bytes Load address from GOT to r1
531 BCR 15,1 # 2 bytes Jump to address
532 .word 0 # 2 bytes filler
533 RET1: BASR 1,0 # 2 bytes Return from GOT 1st time
534 L 1,14(1) # 4 bytes Load offset in symbol table in r1
535 BRC 15,-x # 4 bytes Jump to start of PLT
536 .word 0,0,0 # 6 bytes filler
537 .long ? # 4 bytes offset into symbol table
538
539 Total = 32 bytes per PLT entry
540
541 The code for static build PLT entries looks like this:
542
543 PLT1: BASR 1,0 # 2 bytes
544 L 1,22(1) # 4 bytes Load address of GOT entry
545 L 1,0(0,1) # 4 bytes Load address from GOT in r1
546 BCR 15,1 # 2 bytes Jump to address
547 RET1: BASR 1,0 # 2 bytes Return from GOT 1st time
548 L 1,14(1) # 4 bytes Load offset in symbol table in r1
549 BRC 15,-x # 4 bytes Jump to start of PLT
550 .word 0 # 2 bytes filler
551 .long ? # 4 bytes address of GOT entry
552 .long ? # 4 bytes offset into symbol table */
553
554 #define PLT_PIC_ENTRY_WORD0 0x0d105810
555 #define PLT_PIC_ENTRY_WORD1 0x10165811
556 #define PLT_PIC_ENTRY_WORD2 0xc00007f1
557 #define PLT_PIC_ENTRY_WORD3 0x0d105810
558 #define PLT_PIC_ENTRY_WORD4 0x100ea7f4
559
560 #define PLT_PIC12_ENTRY_WORD0 0x5810c000
561 #define PLT_PIC12_ENTRY_WORD1 0x07f10000
562 #define PLT_PIC12_ENTRY_WORD2 0x00000000
563 #define PLT_PIC12_ENTRY_WORD3 0x0d105810
564 #define PLT_PIC12_ENTRY_WORD4 0x100ea7f4
565
566 #define PLT_PIC16_ENTRY_WORD0 0xa7180000
567 #define PLT_PIC16_ENTRY_WORD1 0x5811c000
568 #define PLT_PIC16_ENTRY_WORD2 0x07f10000
569 #define PLT_PIC16_ENTRY_WORD3 0x0d105810
570 #define PLT_PIC16_ENTRY_WORD4 0x100ea7f4
571
572 #define PLT_ENTRY_WORD0 0x0d105810
573 #define PLT_ENTRY_WORD1 0x10165810
574 #define PLT_ENTRY_WORD2 0x100007f1
575 #define PLT_ENTRY_WORD3 0x0d105810
576 #define PLT_ENTRY_WORD4 0x100ea7f4
577
578 /* The first PLT entry pushes the offset into the symbol table
579 from R1 onto the stack at 8(15) and the loader object info
580 at 12(15), loads the loader address in R1 and jumps to it. */
581
582 /* The first entry in the PLT for PIC code:
583
584 PLT0:
585 ST 1,28(15) # R1 has offset into symbol table
586 L 1,4(12) # Get loader ino(object struct address)
587 ST 1,24(15) # Store address
588 L 1,8(12) # Entry address of loader in R1
589 BR 1 # Jump to loader
590
591 The first entry in the PLT for static code:
592
593 PLT0:
594 ST 1,28(15) # R1 has offset into symbol table
595 BASR 1,0
596 L 1,18(0,1) # Get address of GOT
597 MVC 24(4,15),4(1) # Move loader ino to stack
598 L 1,8(1) # Get address of loader
599 BR 1 # Jump to loader
600 .word 0 # filler
601 .long got # address of GOT */
602
603 #define PLT_PIC_FIRST_ENTRY_WORD0 0x5010f01c
604 #define PLT_PIC_FIRST_ENTRY_WORD1 0x5810c004
605 #define PLT_PIC_FIRST_ENTRY_WORD2 0x5010f018
606 #define PLT_PIC_FIRST_ENTRY_WORD3 0x5810c008
607 #define PLT_PIC_FIRST_ENTRY_WORD4 0x07f10000
608
609 #define PLT_FIRST_ENTRY_WORD0 0x5010f01c
610 #define PLT_FIRST_ENTRY_WORD1 0x0d105810
611 #define PLT_FIRST_ENTRY_WORD2 0x1012D203
612 #define PLT_FIRST_ENTRY_WORD3 0xf0181004
613 #define PLT_FIRST_ENTRY_WORD4 0x58101008
614 #define PLT_FIRST_ENTRY_WORD5 0x07f10000
615
616 /* The s390 linker needs to keep track of the number of relocs that it
617 decides to copy as dynamic relocs in check_relocs for each symbol.
618 This is so that it can later discard them if they are found to be
619 unnecessary. We store the information in a field extending the
620 regular ELF linker hash table. */
621
622 struct elf_s390_dyn_relocs
623 {
624 struct elf_s390_dyn_relocs *next;
625
626 /* The input section of the reloc. */
627 asection *sec;
628
629 /* Total number of relocs copied for the input section. */
630 bfd_size_type count;
631
632 /* Number of pc-relative relocs copied for the input section. */
633 bfd_size_type pc_count;
634 };
635
636 /* s390 ELF linker hash entry. */
637
638 struct elf_s390_link_hash_entry
639 {
640 struct elf_link_hash_entry elf;
641
642 /* Track dynamic relocs copied for this symbol. */
643 struct elf_s390_dyn_relocs *dyn_relocs;
644
645 /* Number of GOTPLT references for a function. */
646 bfd_signed_vma gotplt_refcount;
647
648 #define GOT_UNKNOWN 0
649 #define GOT_NORMAL 1
650 #define GOT_TLS_GD 2
651 #define GOT_TLS_IE 3
652 #define GOT_TLS_IE_NLT 4
653 unsigned char tls_type;
654 };
655
656 #define elf_s390_hash_entry(ent) \
657 ((struct elf_s390_link_hash_entry *)(ent))
658
659 struct elf_s390_obj_tdata
660 {
661 struct elf_obj_tdata root;
662
663 /* tls_type for each local got entry. */
664 char *local_got_tls_type;
665 };
666
667 #define elf_s390_tdata(abfd) \
668 ((struct elf_s390_obj_tdata *) (abfd)->tdata.any)
669
670 #define elf_s390_local_got_tls_type(abfd) \
671 (elf_s390_tdata (abfd)->local_got_tls_type)
672
673 static bfd_boolean
674 elf_s390_mkobject (abfd)
675 bfd *abfd;
676 {
677 bfd_size_type amt = sizeof (struct elf_s390_obj_tdata);
678 abfd->tdata.any = bfd_zalloc (abfd, amt);
679 if (abfd->tdata.any == NULL)
680 return FALSE;
681 return TRUE;
682 }
683
684 static bfd_boolean
685 elf_s390_object_p (abfd)
686 bfd *abfd;
687 {
688 /* Allocate our special target data. */
689 struct elf_s390_obj_tdata *new_tdata;
690 bfd_size_type amt = sizeof (struct elf_s390_obj_tdata);
691 new_tdata = bfd_zalloc (abfd, amt);
692 if (new_tdata == NULL)
693 return FALSE;
694 new_tdata->root = *abfd->tdata.elf_obj_data;
695 abfd->tdata.any = new_tdata;
696 /* Set the right machine number for an s390 elf32 file. */
697 return bfd_default_set_arch_mach (abfd, bfd_arch_s390, bfd_mach_s390_31);
698 }
699
700 /* s390 ELF linker hash table. */
701
702 struct elf_s390_link_hash_table
703 {
704 struct elf_link_hash_table elf;
705
706 /* Short-cuts to get to dynamic linker sections. */
707 asection *sgot;
708 asection *sgotplt;
709 asection *srelgot;
710 asection *splt;
711 asection *srelplt;
712 asection *sdynbss;
713 asection *srelbss;
714
715 union {
716 bfd_signed_vma refcount;
717 bfd_vma offset;
718 } tls_ldm_got;
719
720 /* Small local sym to section mapping cache. */
721 struct sym_sec_cache sym_sec;
722 };
723
724 /* Get the s390 ELF linker hash table from a link_info structure. */
725
726 #define elf_s390_hash_table(p) \
727 ((struct elf_s390_link_hash_table *) ((p)->hash))
728
729 /* Create an entry in an s390 ELF linker hash table. */
730
731 static struct bfd_hash_entry *
732 link_hash_newfunc (entry, table, string)
733 struct bfd_hash_entry *entry;
734 struct bfd_hash_table *table;
735 const char *string;
736 {
737 /* Allocate the structure if it has not already been allocated by a
738 subclass. */
739 if (entry == NULL)
740 {
741 entry = bfd_hash_allocate (table,
742 sizeof (struct elf_s390_link_hash_entry));
743 if (entry == NULL)
744 return entry;
745 }
746
747 /* Call the allocation method of the superclass. */
748 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
749 if (entry != NULL)
750 {
751 struct elf_s390_link_hash_entry *eh;
752
753 eh = (struct elf_s390_link_hash_entry *) entry;
754 eh->dyn_relocs = NULL;
755 eh->gotplt_refcount = 0;
756 eh->tls_type = GOT_UNKNOWN;
757 }
758
759 return entry;
760 }
761
762 /* Create an s390 ELF linker hash table. */
763
764 static struct bfd_link_hash_table *
765 elf_s390_link_hash_table_create (abfd)
766 bfd *abfd;
767 {
768 struct elf_s390_link_hash_table *ret;
769 bfd_size_type amt = sizeof (struct elf_s390_link_hash_table);
770
771 ret = (struct elf_s390_link_hash_table *) bfd_malloc (amt);
772 if (ret == NULL)
773 return NULL;
774
775 if (! _bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc))
776 {
777 free (ret);
778 return NULL;
779 }
780
781 ret->sgot = NULL;
782 ret->sgotplt = NULL;
783 ret->srelgot = NULL;
784 ret->splt = NULL;
785 ret->srelplt = NULL;
786 ret->sdynbss = NULL;
787 ret->srelbss = NULL;
788 ret->tls_ldm_got.refcount = 0;
789 ret->sym_sec.abfd = NULL;
790
791 return &ret->elf.root;
792 }
793
794 /* Create .got, .gotplt, and .rela.got sections in DYNOBJ, and set up
795 shortcuts to them in our hash table. */
796
797 static bfd_boolean
798 create_got_section (dynobj, info)
799 bfd *dynobj;
800 struct bfd_link_info *info;
801 {
802 struct elf_s390_link_hash_table *htab;
803
804 if (! _bfd_elf_create_got_section (dynobj, info))
805 return FALSE;
806
807 htab = elf_s390_hash_table (info);
808 htab->sgot = bfd_get_section_by_name (dynobj, ".got");
809 htab->sgotplt = bfd_get_section_by_name (dynobj, ".got.plt");
810 if (!htab->sgot || !htab->sgotplt)
811 abort ();
812
813 htab->srelgot = bfd_make_section (dynobj, ".rela.got");
814 if (htab->srelgot == NULL
815 || ! bfd_set_section_flags (dynobj, htab->srelgot,
816 (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
817 | SEC_IN_MEMORY | SEC_LINKER_CREATED
818 | SEC_READONLY))
819 || ! bfd_set_section_alignment (dynobj, htab->srelgot, 2))
820 return FALSE;
821 return TRUE;
822 }
823
824 /* Create .plt, .rela.plt, .got, .got.plt, .rela.got, .dynbss, and
825 .rela.bss sections in DYNOBJ, and set up shortcuts to them in our
826 hash table. */
827
828 static bfd_boolean
829 elf_s390_create_dynamic_sections (dynobj, info)
830 bfd *dynobj;
831 struct bfd_link_info *info;
832 {
833 struct elf_s390_link_hash_table *htab;
834
835 htab = elf_s390_hash_table (info);
836 if (!htab->sgot && !create_got_section (dynobj, info))
837 return FALSE;
838
839 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
840 return FALSE;
841
842 htab->splt = bfd_get_section_by_name (dynobj, ".plt");
843 htab->srelplt = bfd_get_section_by_name (dynobj, ".rela.plt");
844 htab->sdynbss = bfd_get_section_by_name (dynobj, ".dynbss");
845 if (!info->shared)
846 htab->srelbss = bfd_get_section_by_name (dynobj, ".rela.bss");
847
848 if (!htab->splt || !htab->srelplt || !htab->sdynbss
849 || (!info->shared && !htab->srelbss))
850 abort ();
851
852 return TRUE;
853 }
854
855 /* Copy the extra info we tack onto an elf_link_hash_entry. */
856
857 static void
858 elf_s390_copy_indirect_symbol (bed, dir, ind)
859 const struct elf_backend_data *bed;
860 struct elf_link_hash_entry *dir, *ind;
861 {
862 struct elf_s390_link_hash_entry *edir, *eind;
863
864 edir = (struct elf_s390_link_hash_entry *) dir;
865 eind = (struct elf_s390_link_hash_entry *) ind;
866
867 if (eind->dyn_relocs != NULL)
868 {
869 if (edir->dyn_relocs != NULL)
870 {
871 struct elf_s390_dyn_relocs **pp;
872 struct elf_s390_dyn_relocs *p;
873
874 if (ind->root.type == bfd_link_hash_indirect)
875 abort ();
876
877 /* Add reloc counts against the weak sym to the strong sym
878 list. Merge any entries against the same section. */
879 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
880 {
881 struct elf_s390_dyn_relocs *q;
882
883 for (q = edir->dyn_relocs; q != NULL; q = q->next)
884 if (q->sec == p->sec)
885 {
886 q->pc_count += p->pc_count;
887 q->count += p->count;
888 *pp = p->next;
889 break;
890 }
891 if (q == NULL)
892 pp = &p->next;
893 }
894 *pp = edir->dyn_relocs;
895 }
896
897 edir->dyn_relocs = eind->dyn_relocs;
898 eind->dyn_relocs = NULL;
899 }
900
901 if (ind->root.type == bfd_link_hash_indirect
902 && dir->got.refcount <= 0)
903 {
904 edir->tls_type = eind->tls_type;
905 eind->tls_type = GOT_UNKNOWN;
906 }
907
908 if (ELIMINATE_COPY_RELOCS
909 && ind->root.type != bfd_link_hash_indirect
910 && (dir->elf_link_hash_flags & ELF_LINK_HASH_DYNAMIC_ADJUSTED) != 0)
911 /* If called to transfer flags for a weakdef during processing
912 of elf_adjust_dynamic_symbol, don't copy ELF_LINK_NON_GOT_REF.
913 We clear it ourselves for ELIMINATE_COPY_RELOCS. */
914 dir->elf_link_hash_flags |=
915 (ind->elf_link_hash_flags & (ELF_LINK_HASH_REF_DYNAMIC
916 | ELF_LINK_HASH_REF_REGULAR
917 | ELF_LINK_HASH_REF_REGULAR_NONWEAK
918 | ELF_LINK_HASH_NEEDS_PLT));
919 else
920 _bfd_elf_link_hash_copy_indirect (bed, dir, ind);
921 }
922
923 static int
924 elf_s390_tls_transition (info, r_type, is_local)
925 struct bfd_link_info *info;
926 int r_type;
927 int is_local;
928 {
929 if (info->shared)
930 return r_type;
931
932 switch (r_type)
933 {
934 case R_390_TLS_GD32:
935 case R_390_TLS_IE32:
936 if (is_local)
937 return R_390_TLS_LE32;
938 return R_390_TLS_IE32;
939 case R_390_TLS_GOTIE32:
940 if (is_local)
941 return R_390_TLS_LE32;
942 return R_390_TLS_GOTIE32;
943 case R_390_TLS_LDM32:
944 return R_390_TLS_LE32;
945 }
946
947 return r_type;
948 }
949
950 /* Look through the relocs for a section during the first phase, and
951 allocate space in the global offset table or procedure linkage
952 table. */
953
954 static bfd_boolean
955 elf_s390_check_relocs (abfd, info, sec, relocs)
956 bfd *abfd;
957 struct bfd_link_info *info;
958 asection *sec;
959 const Elf_Internal_Rela *relocs;
960 {
961 struct elf_s390_link_hash_table *htab;
962 Elf_Internal_Shdr *symtab_hdr;
963 struct elf_link_hash_entry **sym_hashes;
964 const Elf_Internal_Rela *rel;
965 const Elf_Internal_Rela *rel_end;
966 asection *sreloc;
967 bfd_signed_vma *local_got_refcounts;
968 int tls_type, old_tls_type;
969
970 if (info->relocatable)
971 return TRUE;
972
973 htab = elf_s390_hash_table (info);
974 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
975 sym_hashes = elf_sym_hashes (abfd);
976 local_got_refcounts = elf_local_got_refcounts (abfd);
977
978 sreloc = NULL;
979
980 rel_end = relocs + sec->reloc_count;
981 for (rel = relocs; rel < rel_end; rel++)
982 {
983 unsigned int r_type;
984 unsigned long r_symndx;
985 struct elf_link_hash_entry *h;
986
987 r_symndx = ELF32_R_SYM (rel->r_info);
988
989 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
990 {
991 (*_bfd_error_handler) (_("%s: bad symbol index: %d"),
992 bfd_archive_filename (abfd),
993 r_symndx);
994 return FALSE;
995 }
996
997 if (r_symndx < symtab_hdr->sh_info)
998 h = NULL;
999 else
1000 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1001
1002 /* Create got section and local_got_refcounts array if they
1003 are needed. */
1004 r_type = elf_s390_tls_transition (info,
1005 ELF32_R_TYPE (rel->r_info),
1006 h == NULL);
1007 switch (r_type)
1008 {
1009 case R_390_GOT12:
1010 case R_390_GOT16:
1011 case R_390_GOT20:
1012 case R_390_GOT32:
1013 case R_390_GOTENT:
1014 case R_390_GOTPLT12:
1015 case R_390_GOTPLT16:
1016 case R_390_GOTPLT20:
1017 case R_390_GOTPLT32:
1018 case R_390_GOTPLTENT:
1019 case R_390_TLS_GD32:
1020 case R_390_TLS_GOTIE12:
1021 case R_390_TLS_GOTIE20:
1022 case R_390_TLS_GOTIE32:
1023 case R_390_TLS_IEENT:
1024 case R_390_TLS_IE32:
1025 case R_390_TLS_LDM32:
1026 if (h == NULL
1027 && local_got_refcounts == NULL)
1028 {
1029 bfd_size_type size;
1030
1031 size = symtab_hdr->sh_info;
1032 size *= (sizeof (bfd_signed_vma) + sizeof(char));
1033 local_got_refcounts = ((bfd_signed_vma *)
1034 bfd_zalloc (abfd, size));
1035 if (local_got_refcounts == NULL)
1036 return FALSE;
1037 elf_local_got_refcounts (abfd) = local_got_refcounts;
1038 elf_s390_local_got_tls_type (abfd)
1039 = (char *) (local_got_refcounts + symtab_hdr->sh_info);
1040 }
1041 /* Fall through. */
1042 case R_390_GOTOFF16:
1043 case R_390_GOTOFF32:
1044 case R_390_GOTPC:
1045 case R_390_GOTPCDBL:
1046 if (htab->sgot == NULL)
1047 {
1048 if (htab->elf.dynobj == NULL)
1049 htab->elf.dynobj = abfd;
1050 if (!create_got_section (htab->elf.dynobj, info))
1051 return FALSE;
1052 }
1053 }
1054
1055 switch (r_type)
1056 {
1057 case R_390_GOTOFF16:
1058 case R_390_GOTOFF32:
1059 case R_390_GOTPC:
1060 case R_390_GOTPCDBL:
1061 /* Got is created, nothing to be done. */
1062 break;
1063
1064 case R_390_PLT16DBL:
1065 case R_390_PLT32DBL:
1066 case R_390_PLT32:
1067 case R_390_PLTOFF16:
1068 case R_390_PLTOFF32:
1069 /* This symbol requires a procedure linkage table entry. We
1070 actually build the entry in adjust_dynamic_symbol,
1071 because this might be a case of linking PIC code which is
1072 never referenced by a dynamic object, in which case we
1073 don't need to generate a procedure linkage table entry
1074 after all. */
1075
1076 /* If this is a local symbol, we resolve it directly without
1077 creating a procedure linkage table entry. */
1078 if (h != NULL)
1079 {
1080 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
1081 h->plt.refcount += 1;
1082 }
1083 break;
1084
1085 case R_390_GOTPLT12:
1086 case R_390_GOTPLT16:
1087 case R_390_GOTPLT20:
1088 case R_390_GOTPLT32:
1089 case R_390_GOTPLTENT:
1090 /* This symbol requires either a procedure linkage table entry
1091 or an entry in the local got. We actually build the entry
1092 in adjust_dynamic_symbol because whether this is really a
1093 global reference can change and with it the fact if we have
1094 to create a plt entry or a local got entry. To be able to
1095 make a once global symbol a local one we have to keep track
1096 of the number of gotplt references that exist for this
1097 symbol. */
1098 if (h != NULL)
1099 {
1100 ((struct elf_s390_link_hash_entry *) h)->gotplt_refcount++;
1101 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_PLT;
1102 h->plt.refcount += 1;
1103 }
1104 else
1105 local_got_refcounts[r_symndx] += 1;
1106 break;
1107
1108 case R_390_TLS_LDM32:
1109 htab->tls_ldm_got.refcount += 1;
1110 break;
1111
1112 case R_390_TLS_IE32:
1113 case R_390_TLS_GOTIE12:
1114 case R_390_TLS_GOTIE20:
1115 case R_390_TLS_GOTIE32:
1116 case R_390_TLS_IEENT:
1117 if (info->shared)
1118 info->flags |= DF_STATIC_TLS;
1119 /* Fall through. */
1120
1121 case R_390_GOT12:
1122 case R_390_GOT16:
1123 case R_390_GOT20:
1124 case R_390_GOT32:
1125 case R_390_GOTENT:
1126 case R_390_TLS_GD32:
1127 /* This symbol requires a global offset table entry. */
1128 switch (r_type)
1129 {
1130 default:
1131 case R_390_GOT12:
1132 case R_390_GOT16:
1133 case R_390_GOT20:
1134 case R_390_GOT32:
1135 case R_390_GOTENT:
1136 tls_type = GOT_NORMAL;
1137 break;
1138 case R_390_TLS_GD32:
1139 tls_type = GOT_TLS_GD;
1140 break;
1141 case R_390_TLS_IE32:
1142 case R_390_TLS_GOTIE32:
1143 tls_type = GOT_TLS_IE;
1144 break;
1145 case R_390_TLS_GOTIE12:
1146 case R_390_TLS_GOTIE20:
1147 case R_390_TLS_IEENT:
1148 tls_type = GOT_TLS_IE_NLT;
1149 break;
1150 }
1151
1152 if (h != NULL)
1153 {
1154 h->got.refcount += 1;
1155 old_tls_type = elf_s390_hash_entry(h)->tls_type;
1156 }
1157 else
1158 {
1159 local_got_refcounts[r_symndx] += 1;
1160 old_tls_type = elf_s390_local_got_tls_type (abfd) [r_symndx];
1161 }
1162 /* If a TLS symbol is accessed using IE at least once,
1163 there is no point to use dynamic model for it. */
1164 if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN)
1165 {
1166 if (old_tls_type == GOT_NORMAL || tls_type == GOT_NORMAL)
1167 {
1168 (*_bfd_error_handler)
1169 (_("%s: `%s' accessed both as normal and thread local symbol"),
1170 bfd_archive_filename (abfd), h->root.root.string);
1171 return FALSE;
1172 }
1173 if (old_tls_type > tls_type)
1174 tls_type = old_tls_type;
1175 }
1176
1177 if (old_tls_type != tls_type)
1178 {
1179 if (h != NULL)
1180 elf_s390_hash_entry (h)->tls_type = tls_type;
1181 else
1182 elf_s390_local_got_tls_type (abfd) [r_symndx] = tls_type;
1183 }
1184
1185 if (r_type != R_390_TLS_IE32)
1186 break;
1187 /* Fall through. */
1188
1189 case R_390_TLS_LE32:
1190 if (!info->shared)
1191 break;
1192 info->flags |= DF_STATIC_TLS;
1193 /* Fall through. */
1194
1195 case R_390_8:
1196 case R_390_16:
1197 case R_390_32:
1198 case R_390_PC16:
1199 case R_390_PC16DBL:
1200 case R_390_PC32DBL:
1201 case R_390_PC32:
1202 if (h != NULL && !info->shared)
1203 {
1204 /* If this reloc is in a read-only section, we might
1205 need a copy reloc. We can't check reliably at this
1206 stage whether the section is read-only, as input
1207 sections have not yet been mapped to output sections.
1208 Tentatively set the flag for now, and correct in
1209 adjust_dynamic_symbol. */
1210 h->elf_link_hash_flags |= ELF_LINK_NON_GOT_REF;
1211
1212 /* We may need a .plt entry if the function this reloc
1213 refers to is in a shared lib. */
1214 h->plt.refcount += 1;
1215 }
1216
1217 /* If we are creating a shared library, and this is a reloc
1218 against a global symbol, or a non PC relative reloc
1219 against a local symbol, then we need to copy the reloc
1220 into the shared library. However, if we are linking with
1221 -Bsymbolic, we do not need to copy a reloc against a
1222 global symbol which is defined in an object we are
1223 including in the link (i.e., DEF_REGULAR is set). At
1224 this point we have not seen all the input files, so it is
1225 possible that DEF_REGULAR is not set now but will be set
1226 later (it is never cleared). In case of a weak definition,
1227 DEF_REGULAR may be cleared later by a strong definition in
1228 a shared library. We account for that possibility below by
1229 storing information in the relocs_copied field of the hash
1230 table entry. A similar situation occurs when creating
1231 shared libraries and symbol visibility changes render the
1232 symbol local.
1233
1234 If on the other hand, we are creating an executable, we
1235 may need to keep relocations for symbols satisfied by a
1236 dynamic library if we manage to avoid copy relocs for the
1237 symbol. */
1238 if ((info->shared
1239 && (sec->flags & SEC_ALLOC) != 0
1240 && ((ELF32_R_TYPE (rel->r_info) != R_390_PC16
1241 && ELF32_R_TYPE (rel->r_info) != R_390_PC16DBL
1242 && ELF32_R_TYPE (rel->r_info) != R_390_PC32DBL
1243 && ELF32_R_TYPE (rel->r_info) != R_390_PC32)
1244 || (h != NULL
1245 && (! info->symbolic
1246 || h->root.type == bfd_link_hash_defweak
1247 || (h->elf_link_hash_flags
1248 & ELF_LINK_HASH_DEF_REGULAR) == 0))))
1249 || (ELIMINATE_COPY_RELOCS
1250 && !info->shared
1251 && (sec->flags & SEC_ALLOC) != 0
1252 && h != NULL
1253 && (h->root.type == bfd_link_hash_defweak
1254 || (h->elf_link_hash_flags
1255 & ELF_LINK_HASH_DEF_REGULAR) == 0)))
1256 {
1257 struct elf_s390_dyn_relocs *p;
1258 struct elf_s390_dyn_relocs **head;
1259
1260 /* We must copy these reloc types into the output file.
1261 Create a reloc section in dynobj and make room for
1262 this reloc. */
1263 if (sreloc == NULL)
1264 {
1265 const char *name;
1266 bfd *dynobj;
1267
1268 name = (bfd_elf_string_from_elf_section
1269 (abfd,
1270 elf_elfheader (abfd)->e_shstrndx,
1271 elf_section_data (sec)->rel_hdr.sh_name));
1272 if (name == NULL)
1273 return FALSE;
1274
1275 if (strncmp (name, ".rela", 5) != 0
1276 || strcmp (bfd_get_section_name (abfd, sec),
1277 name + 5) != 0)
1278 {
1279 (*_bfd_error_handler)
1280 (_("%s: bad relocation section name `%s\'"),
1281 bfd_archive_filename (abfd), name);
1282 }
1283
1284 if (htab->elf.dynobj == NULL)
1285 htab->elf.dynobj = abfd;
1286
1287 dynobj = htab->elf.dynobj;
1288 sreloc = bfd_get_section_by_name (dynobj, name);
1289 if (sreloc == NULL)
1290 {
1291 flagword flags;
1292
1293 sreloc = bfd_make_section (dynobj, name);
1294 flags = (SEC_HAS_CONTENTS | SEC_READONLY
1295 | SEC_IN_MEMORY | SEC_LINKER_CREATED);
1296 if ((sec->flags & SEC_ALLOC) != 0)
1297 flags |= SEC_ALLOC | SEC_LOAD;
1298 if (sreloc == NULL
1299 || ! bfd_set_section_flags (dynobj, sreloc, flags)
1300 || ! bfd_set_section_alignment (dynobj, sreloc, 2))
1301 return FALSE;
1302 }
1303 elf_section_data (sec)->sreloc = sreloc;
1304 }
1305
1306 /* If this is a global symbol, we count the number of
1307 relocations we need for this symbol. */
1308 if (h != NULL)
1309 {
1310 head = &((struct elf_s390_link_hash_entry *) h)->dyn_relocs;
1311 }
1312 else
1313 {
1314 /* Track dynamic relocs needed for local syms too.
1315 We really need local syms available to do this
1316 easily. Oh well. */
1317 asection *s;
1318
1319 s = bfd_section_from_r_symndx (abfd, &htab->sym_sec,
1320 sec, r_symndx);
1321 if (s == NULL)
1322 return FALSE;
1323
1324 head = ((struct elf_s390_dyn_relocs **)
1325 &elf_section_data (s)->local_dynrel);
1326 }
1327
1328 p = *head;
1329 if (p == NULL || p->sec != sec)
1330 {
1331 bfd_size_type amt = sizeof *p;
1332
1333 p = ((struct elf_s390_dyn_relocs *)
1334 bfd_alloc (htab->elf.dynobj, amt));
1335 if (p == NULL)
1336 return FALSE;
1337 p->next = *head;
1338 *head = p;
1339 p->sec = sec;
1340 p->count = 0;
1341 p->pc_count = 0;
1342 }
1343
1344 p->count += 1;
1345 if (ELF32_R_TYPE (rel->r_info) == R_390_PC16
1346 || ELF32_R_TYPE (rel->r_info) == R_390_PC16DBL
1347 || ELF32_R_TYPE (rel->r_info) == R_390_PC32DBL
1348 || ELF32_R_TYPE (rel->r_info) == R_390_PC32)
1349 p->pc_count += 1;
1350 }
1351 break;
1352
1353 /* This relocation describes the C++ object vtable hierarchy.
1354 Reconstruct it for later use during GC. */
1355 case R_390_GNU_VTINHERIT:
1356 if (!_bfd_elf32_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1357 return FALSE;
1358 break;
1359
1360 /* This relocation describes which C++ vtable entries are actually
1361 used. Record for later use during GC. */
1362 case R_390_GNU_VTENTRY:
1363 if (!_bfd_elf32_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1364 return FALSE;
1365 break;
1366
1367 default:
1368 break;
1369 }
1370 }
1371
1372 return TRUE;
1373 }
1374
1375 /* Return the section that should be marked against GC for a given
1376 relocation. */
1377
1378 static asection *
1379 elf_s390_gc_mark_hook (sec, info, rel, h, sym)
1380 asection *sec;
1381 struct bfd_link_info *info ATTRIBUTE_UNUSED;
1382 Elf_Internal_Rela *rel;
1383 struct elf_link_hash_entry *h;
1384 Elf_Internal_Sym *sym;
1385 {
1386 if (h != NULL)
1387 {
1388 switch (ELF32_R_TYPE (rel->r_info))
1389 {
1390 case R_390_GNU_VTINHERIT:
1391 case R_390_GNU_VTENTRY:
1392 break;
1393
1394 default:
1395 switch (h->root.type)
1396 {
1397 case bfd_link_hash_defined:
1398 case bfd_link_hash_defweak:
1399 return h->root.u.def.section;
1400
1401 case bfd_link_hash_common:
1402 return h->root.u.c.p->section;
1403
1404 default:
1405 break;
1406 }
1407 }
1408 }
1409 else
1410 return bfd_section_from_elf_index (sec->owner, sym->st_shndx);
1411
1412 return NULL;
1413 }
1414
1415 /* Update the got entry reference counts for the section being removed. */
1416
1417 static bfd_boolean
1418 elf_s390_gc_sweep_hook (abfd, info, sec, relocs)
1419 bfd *abfd;
1420 struct bfd_link_info *info;
1421 asection *sec;
1422 const Elf_Internal_Rela *relocs;
1423 {
1424 Elf_Internal_Shdr *symtab_hdr;
1425 struct elf_link_hash_entry **sym_hashes;
1426 bfd_signed_vma *local_got_refcounts;
1427 const Elf_Internal_Rela *rel, *relend;
1428
1429 elf_section_data (sec)->local_dynrel = NULL;
1430
1431 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1432 sym_hashes = elf_sym_hashes (abfd);
1433 local_got_refcounts = elf_local_got_refcounts (abfd);
1434
1435 relend = relocs + sec->reloc_count;
1436 for (rel = relocs; rel < relend; rel++)
1437 {
1438 unsigned long r_symndx;
1439 unsigned int r_type;
1440 struct elf_link_hash_entry *h = NULL;
1441
1442 r_symndx = ELF32_R_SYM (rel->r_info);
1443 if (r_symndx >= symtab_hdr->sh_info)
1444 {
1445 struct elf_s390_link_hash_entry *eh;
1446 struct elf_s390_dyn_relocs **pp;
1447 struct elf_s390_dyn_relocs *p;
1448
1449 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1450 eh = (struct elf_s390_link_hash_entry *) h;
1451
1452 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
1453 if (p->sec == sec)
1454 {
1455 /* Everything must go for SEC. */
1456 *pp = p->next;
1457 break;
1458 }
1459 }
1460
1461 r_type = ELF32_R_TYPE (rel->r_info);
1462 r_type = elf_s390_tls_transition (info, r_type, h != NULL);
1463 switch (r_type)
1464 {
1465 case R_390_TLS_LDM32:
1466 if (elf_s390_hash_table (info)->tls_ldm_got.refcount > 0)
1467 elf_s390_hash_table (info)->tls_ldm_got.refcount -= 1;
1468 break;
1469
1470 case R_390_TLS_GD32:
1471 case R_390_TLS_IE32:
1472 case R_390_TLS_GOTIE12:
1473 case R_390_TLS_GOTIE20:
1474 case R_390_TLS_GOTIE32:
1475 case R_390_TLS_IEENT:
1476 case R_390_GOT12:
1477 case R_390_GOT16:
1478 case R_390_GOT20:
1479 case R_390_GOT32:
1480 case R_390_GOTOFF16:
1481 case R_390_GOTOFF32:
1482 case R_390_GOTPC:
1483 case R_390_GOTPCDBL:
1484 case R_390_GOTENT:
1485 if (h != NULL)
1486 {
1487 if (h->got.refcount > 0)
1488 h->got.refcount -= 1;
1489 }
1490 else if (local_got_refcounts != NULL)
1491 {
1492 if (local_got_refcounts[r_symndx] > 0)
1493 local_got_refcounts[r_symndx] -= 1;
1494 }
1495 break;
1496
1497 case R_390_8:
1498 case R_390_12:
1499 case R_390_16:
1500 case R_390_20:
1501 case R_390_32:
1502 case R_390_PC16:
1503 case R_390_PC16DBL:
1504 case R_390_PC32DBL:
1505 case R_390_PC32:
1506 if (info->shared)
1507 break;
1508 /* Fall through. */
1509
1510 case R_390_PLT16DBL:
1511 case R_390_PLT32DBL:
1512 case R_390_PLT32:
1513 case R_390_PLTOFF16:
1514 case R_390_PLTOFF32:
1515 if (h != NULL)
1516 {
1517 if (h->plt.refcount > 0)
1518 h->plt.refcount -= 1;
1519 }
1520 break;
1521
1522 case R_390_GOTPLT12:
1523 case R_390_GOTPLT16:
1524 case R_390_GOTPLT20:
1525 case R_390_GOTPLT32:
1526 case R_390_GOTPLTENT:
1527 if (h != NULL)
1528 {
1529 if (h->plt.refcount > 0)
1530 {
1531 ((struct elf_s390_link_hash_entry *) h)->gotplt_refcount--;
1532 h->plt.refcount -= 1;
1533 }
1534 }
1535 else if (local_got_refcounts != NULL)
1536 {
1537 if (local_got_refcounts[r_symndx] > 0)
1538 local_got_refcounts[r_symndx] -= 1;
1539 }
1540 break;
1541
1542 default:
1543 break;
1544 }
1545 }
1546
1547 return TRUE;
1548 }
1549
1550 /* Make sure we emit a GOT entry if the symbol was supposed to have a PLT
1551 entry but we found we will not create any. Called when we find we will
1552 not have any PLT for this symbol, by for example
1553 elf_s390_adjust_dynamic_symbol when we're doing a proper dynamic link,
1554 or elf_s390_size_dynamic_sections if no dynamic sections will be
1555 created (we're only linking static objects). */
1556
1557 static void
1558 elf_s390_adjust_gotplt (h)
1559 struct elf_s390_link_hash_entry *h;
1560 {
1561 if (h->elf.root.type == bfd_link_hash_warning)
1562 h = (struct elf_s390_link_hash_entry *) h->elf.root.u.i.link;
1563
1564 if (h->gotplt_refcount <= 0)
1565 return;
1566
1567 /* We simply add the number of gotplt references to the number
1568 * of got references for this symbol. */
1569 h->elf.got.refcount += h->gotplt_refcount;
1570 h->gotplt_refcount = -1;
1571 }
1572
1573 /* Adjust a symbol defined by a dynamic object and referenced by a
1574 regular object. The current definition is in some section of the
1575 dynamic object, but we're not including those sections. We have to
1576 change the definition to something the rest of the link can
1577 understand. */
1578
1579 static bfd_boolean
1580 elf_s390_adjust_dynamic_symbol (info, h)
1581 struct bfd_link_info *info;
1582 struct elf_link_hash_entry *h;
1583 {
1584 struct elf_s390_link_hash_table *htab;
1585 asection *s;
1586 unsigned int power_of_two;
1587
1588 /* If this is a function, put it in the procedure linkage table. We
1589 will fill in the contents of the procedure linkage table later
1590 (although we could actually do it here). */
1591 if (h->type == STT_FUNC
1592 || (h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_PLT) != 0)
1593 {
1594 if (h->plt.refcount <= 0
1595 || (! info->shared
1596 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) == 0
1597 && (h->elf_link_hash_flags & ELF_LINK_HASH_REF_DYNAMIC) == 0
1598 && h->root.type != bfd_link_hash_undefweak
1599 && h->root.type != bfd_link_hash_undefined))
1600 {
1601 /* This case can occur if we saw a PLT32 reloc in an input
1602 file, but the symbol was never referred to by a dynamic
1603 object, or if all references were garbage collected. In
1604 such a case, we don't actually need to build a procedure
1605 linkage table, and we can just do a PC32 reloc instead. */
1606 h->plt.offset = (bfd_vma) -1;
1607 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
1608 elf_s390_adjust_gotplt((struct elf_s390_link_hash_entry *) h);
1609 }
1610
1611 return TRUE;
1612 }
1613 else
1614 /* It's possible that we incorrectly decided a .plt reloc was
1615 needed for an R_390_PC32 reloc to a non-function sym in
1616 check_relocs. We can't decide accurately between function and
1617 non-function syms in check-relocs; Objects loaded later in
1618 the link may change h->type. So fix it now. */
1619 h->plt.offset = (bfd_vma) -1;
1620
1621 /* If this is a weak symbol, and there is a real definition, the
1622 processor independent code will have arranged for us to see the
1623 real definition first, and we can just use the same value. */
1624 if (h->weakdef != NULL)
1625 {
1626 BFD_ASSERT (h->weakdef->root.type == bfd_link_hash_defined
1627 || h->weakdef->root.type == bfd_link_hash_defweak);
1628 h->root.u.def.section = h->weakdef->root.u.def.section;
1629 h->root.u.def.value = h->weakdef->root.u.def.value;
1630 if (ELIMINATE_COPY_RELOCS || info->nocopyreloc)
1631 h->elf_link_hash_flags
1632 = ((h->elf_link_hash_flags & ~ELF_LINK_NON_GOT_REF)
1633 | (h->weakdef->elf_link_hash_flags & ELF_LINK_NON_GOT_REF));
1634 return TRUE;
1635 }
1636
1637 /* This is a reference to a symbol defined by a dynamic object which
1638 is not a function. */
1639
1640 /* If we are creating a shared library, we must presume that the
1641 only references to the symbol are via the global offset table.
1642 For such cases we need not do anything here; the relocations will
1643 be handled correctly by relocate_section. */
1644 if (info->shared)
1645 return TRUE;
1646
1647 /* If there are no references to this symbol that do not use the
1648 GOT, we don't need to generate a copy reloc. */
1649 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0)
1650 return TRUE;
1651
1652 /* If -z nocopyreloc was given, we won't generate them either. */
1653 if (info->nocopyreloc)
1654 {
1655 h->elf_link_hash_flags &= ~ELF_LINK_NON_GOT_REF;
1656 return TRUE;
1657 }
1658
1659 if (ELIMINATE_COPY_RELOCS)
1660 {
1661 struct elf_s390_link_hash_entry * eh;
1662 struct elf_s390_dyn_relocs *p;
1663
1664 eh = (struct elf_s390_link_hash_entry *) h;
1665 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1666 {
1667 s = p->sec->output_section;
1668 if (s != NULL && (s->flags & SEC_READONLY) != 0)
1669 break;
1670 }
1671
1672 /* If we didn't find any dynamic relocs in read-only sections, then
1673 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
1674 if (p == NULL)
1675 {
1676 h->elf_link_hash_flags &= ~ELF_LINK_NON_GOT_REF;
1677 return TRUE;
1678 }
1679 }
1680
1681 /* We must allocate the symbol in our .dynbss section, which will
1682 become part of the .bss section of the executable. There will be
1683 an entry for this symbol in the .dynsym section. The dynamic
1684 object will contain position independent code, so all references
1685 from the dynamic object to this symbol will go through the global
1686 offset table. The dynamic linker will use the .dynsym entry to
1687 determine the address it must put in the global offset table, so
1688 both the dynamic object and the regular object will refer to the
1689 same memory location for the variable. */
1690
1691 htab = elf_s390_hash_table (info);
1692
1693 /* We must generate a R_390_COPY reloc to tell the dynamic linker to
1694 copy the initial value out of the dynamic object and into the
1695 runtime process image. */
1696 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
1697 {
1698 htab->srelbss->_raw_size += sizeof (Elf32_External_Rela);
1699 h->elf_link_hash_flags |= ELF_LINK_HASH_NEEDS_COPY;
1700 }
1701
1702 /* We need to figure out the alignment required for this symbol. I
1703 have no idea how ELF linkers handle this. */
1704 power_of_two = bfd_log2 (h->size);
1705 if (power_of_two > 3)
1706 power_of_two = 3;
1707
1708 /* Apply the required alignment. */
1709 s = htab->sdynbss;
1710 s->_raw_size = BFD_ALIGN (s->_raw_size, (bfd_size_type) (1 << power_of_two));
1711 if (power_of_two > bfd_get_section_alignment (htab->elf.dynobj, s))
1712 {
1713 if (! bfd_set_section_alignment (htab->elf.dynobj, s, power_of_two))
1714 return FALSE;
1715 }
1716
1717 /* Define the symbol as being at this point in the section. */
1718 h->root.u.def.section = s;
1719 h->root.u.def.value = s->_raw_size;
1720
1721 /* Increment the section size to make room for the symbol. */
1722 s->_raw_size += h->size;
1723
1724 return TRUE;
1725 }
1726
1727 /* This is the condition under which elf_s390_finish_dynamic_symbol
1728 will be called from elflink.h. If elflink.h doesn't call our
1729 finish_dynamic_symbol routine, we'll need to do something about
1730 initializing any .plt and .got entries in elf_s390_relocate_section. */
1731 #define WILL_CALL_FINISH_DYNAMIC_SYMBOL(DYN, SHARED, H) \
1732 ((DYN) \
1733 && ((SHARED) \
1734 || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0) \
1735 && ((H)->dynindx != -1 \
1736 || ((H)->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0))
1737
1738 /* Allocate space in .plt, .got and associated reloc sections for
1739 dynamic relocs. */
1740
1741 static bfd_boolean
1742 allocate_dynrelocs (h, inf)
1743 struct elf_link_hash_entry *h;
1744 PTR inf;
1745 {
1746 struct bfd_link_info *info;
1747 struct elf_s390_link_hash_table *htab;
1748 struct elf_s390_link_hash_entry *eh;
1749 struct elf_s390_dyn_relocs *p;
1750
1751 if (h->root.type == bfd_link_hash_indirect)
1752 return TRUE;
1753
1754 if (h->root.type == bfd_link_hash_warning)
1755 /* When warning symbols are created, they **replace** the "real"
1756 entry in the hash table, thus we never get to see the real
1757 symbol in a hash traversal. So look at it now. */
1758 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1759
1760 info = (struct bfd_link_info *) inf;
1761 htab = elf_s390_hash_table (info);
1762
1763 if (htab->elf.dynamic_sections_created
1764 && h->plt.refcount > 0
1765 && (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1766 || h->root.type != bfd_link_hash_undefweak))
1767 {
1768 /* Make sure this symbol is output as a dynamic symbol.
1769 Undefined weak syms won't yet be marked as dynamic. */
1770 if (h->dynindx == -1
1771 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
1772 {
1773 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
1774 return FALSE;
1775 }
1776
1777 if (info->shared
1778 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, 0, h))
1779 {
1780 asection *s = htab->splt;
1781
1782 /* If this is the first .plt entry, make room for the special
1783 first entry. */
1784 if (s->_raw_size == 0)
1785 s->_raw_size += PLT_FIRST_ENTRY_SIZE;
1786
1787 h->plt.offset = s->_raw_size;
1788
1789 /* If this symbol is not defined in a regular file, and we are
1790 not generating a shared library, then set the symbol to this
1791 location in the .plt. This is required to make function
1792 pointers compare as equal between the normal executable and
1793 the shared library. */
1794 if (! info->shared
1795 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1796 {
1797 h->root.u.def.section = s;
1798 h->root.u.def.value = h->plt.offset;
1799 }
1800
1801 /* Make room for this entry. */
1802 s->_raw_size += PLT_ENTRY_SIZE;
1803
1804 /* We also need to make an entry in the .got.plt section, which
1805 will be placed in the .got section by the linker script. */
1806 htab->sgotplt->_raw_size += GOT_ENTRY_SIZE;
1807
1808 /* We also need to make an entry in the .rela.plt section. */
1809 htab->srelplt->_raw_size += sizeof (Elf32_External_Rela);
1810 }
1811 else
1812 {
1813 h->plt.offset = (bfd_vma) -1;
1814 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
1815 elf_s390_adjust_gotplt((struct elf_s390_link_hash_entry *) h);
1816 }
1817 }
1818 else
1819 {
1820 h->plt.offset = (bfd_vma) -1;
1821 h->elf_link_hash_flags &= ~ELF_LINK_HASH_NEEDS_PLT;
1822 elf_s390_adjust_gotplt((struct elf_s390_link_hash_entry *) h);
1823 }
1824
1825 /* If R_390_TLS_{IE32,GOTIE32,GOTIE12,IEENT} symbol is now local to
1826 the binary, we can optimize a bit. IE32 and GOTIE32 get converted
1827 to R_390_TLS_LE32 requiring no TLS entry. For GOTIE12 and IEENT
1828 we can save the dynamic TLS relocation. */
1829 if (h->got.refcount > 0
1830 && !info->shared
1831 && h->dynindx == -1
1832 && elf_s390_hash_entry(h)->tls_type >= GOT_TLS_IE)
1833 {
1834 if (elf_s390_hash_entry(h)->tls_type == GOT_TLS_IE_NLT)
1835 /* For the GOTIE access without a literal pool entry the offset has
1836 to be stored somewhere. The immediate value in the instruction
1837 is not bit enough so the value is stored in the got. */
1838 {
1839 h->got.offset = htab->sgot->_raw_size;
1840 htab->sgot->_raw_size += GOT_ENTRY_SIZE;
1841 }
1842 else
1843 h->got.offset = (bfd_vma) -1;
1844 }
1845 else if (h->got.refcount > 0)
1846 {
1847 asection *s;
1848 bfd_boolean dyn;
1849 int tls_type = elf_s390_hash_entry(h)->tls_type;
1850
1851 /* Make sure this symbol is output as a dynamic symbol.
1852 Undefined weak syms won't yet be marked as dynamic. */
1853 if (h->dynindx == -1
1854 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
1855 {
1856 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
1857 return FALSE;
1858 }
1859
1860 s = htab->sgot;
1861 h->got.offset = s->_raw_size;
1862 s->_raw_size += GOT_ENTRY_SIZE;
1863 /* R_390_TLS_GD32 needs 2 consecutive GOT slots. */
1864 if (tls_type == GOT_TLS_GD)
1865 s->_raw_size += GOT_ENTRY_SIZE;
1866 dyn = htab->elf.dynamic_sections_created;
1867 /* R_390_TLS_IE32 needs one dynamic relocation,
1868 R_390_TLS_GD32 needs one if local symbol and two if global. */
1869 if ((tls_type == GOT_TLS_GD && h->dynindx == -1)
1870 || tls_type >= GOT_TLS_IE)
1871 htab->srelgot->_raw_size += sizeof (Elf32_External_Rela);
1872 else if (tls_type == GOT_TLS_GD)
1873 htab->srelgot->_raw_size += 2 * sizeof (Elf32_External_Rela);
1874 else if ((ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1875 || h->root.type != bfd_link_hash_undefweak)
1876 && (info->shared
1877 || WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, 0, h)))
1878 htab->srelgot->_raw_size += sizeof (Elf32_External_Rela);
1879 }
1880 else
1881 h->got.offset = (bfd_vma) -1;
1882
1883 eh = (struct elf_s390_link_hash_entry *) h;
1884 if (eh->dyn_relocs == NULL)
1885 return TRUE;
1886
1887 /* In the shared -Bsymbolic case, discard space allocated for
1888 dynamic pc-relative relocs against symbols which turn out to be
1889 defined in regular objects. For the normal shared case, discard
1890 space for pc-relative relocs that have become local due to symbol
1891 visibility changes. */
1892
1893 if (info->shared)
1894 {
1895 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) != 0
1896 && ((h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) != 0
1897 || info->symbolic))
1898 {
1899 struct elf_s390_dyn_relocs **pp;
1900
1901 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
1902 {
1903 p->count -= p->pc_count;
1904 p->pc_count = 0;
1905 if (p->count == 0)
1906 *pp = p->next;
1907 else
1908 pp = &p->next;
1909 }
1910 }
1911
1912 /* Also discard relocs on undefined weak syms with non-default
1913 visibility. */
1914 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
1915 && h->root.type == bfd_link_hash_undefweak)
1916 eh->dyn_relocs = NULL;
1917 }
1918 else if (ELIMINATE_COPY_RELOCS)
1919 {
1920 /* For the non-shared case, discard space for relocs against
1921 symbols which turn out to need copy relocs or are not
1922 dynamic. */
1923
1924 if ((h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
1925 && (((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0
1926 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
1927 || (htab->elf.dynamic_sections_created
1928 && (h->root.type == bfd_link_hash_undefweak
1929 || h->root.type == bfd_link_hash_undefined))))
1930 {
1931 /* Make sure this symbol is output as a dynamic symbol.
1932 Undefined weak syms won't yet be marked as dynamic. */
1933 if (h->dynindx == -1
1934 && (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL) == 0)
1935 {
1936 if (! bfd_elf32_link_record_dynamic_symbol (info, h))
1937 return FALSE;
1938 }
1939
1940 /* If that succeeded, we know we'll be keeping all the
1941 relocs. */
1942 if (h->dynindx != -1)
1943 goto keep;
1944 }
1945
1946 eh->dyn_relocs = NULL;
1947
1948 keep: ;
1949 }
1950
1951 /* Finally, allocate space. */
1952 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1953 {
1954 asection *sreloc = elf_section_data (p->sec)->sreloc;
1955
1956 sreloc->_raw_size += p->count * sizeof (Elf32_External_Rela);
1957 }
1958
1959 return TRUE;
1960 }
1961
1962 /* Find any dynamic relocs that apply to read-only sections. */
1963
1964 static bfd_boolean
1965 readonly_dynrelocs (h, inf)
1966 struct elf_link_hash_entry *h;
1967 PTR inf;
1968 {
1969 struct elf_s390_link_hash_entry *eh;
1970 struct elf_s390_dyn_relocs *p;
1971
1972 if (h->root.type == bfd_link_hash_warning)
1973 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1974
1975 eh = (struct elf_s390_link_hash_entry *) h;
1976 for (p = eh->dyn_relocs; p != NULL; p = p->next)
1977 {
1978 asection *s = p->sec->output_section;
1979
1980 if (s != NULL && (s->flags & SEC_READONLY) != 0)
1981 {
1982 struct bfd_link_info *info = (struct bfd_link_info *) inf;
1983
1984 info->flags |= DF_TEXTREL;
1985
1986 /* Not an error, just cut short the traversal. */
1987 return FALSE;
1988 }
1989 }
1990 return TRUE;
1991 }
1992
1993 /* Set the sizes of the dynamic sections. */
1994
1995 static bfd_boolean
1996 elf_s390_size_dynamic_sections (output_bfd, info)
1997 bfd *output_bfd ATTRIBUTE_UNUSED;
1998 struct bfd_link_info *info;
1999 {
2000 struct elf_s390_link_hash_table *htab;
2001 bfd *dynobj;
2002 asection *s;
2003 bfd_boolean relocs;
2004 bfd *ibfd;
2005
2006 htab = elf_s390_hash_table (info);
2007 dynobj = htab->elf.dynobj;
2008 if (dynobj == NULL)
2009 abort ();
2010
2011 if (htab->elf.dynamic_sections_created)
2012 {
2013 /* Set the contents of the .interp section to the interpreter. */
2014 if (info->executable)
2015 {
2016 s = bfd_get_section_by_name (dynobj, ".interp");
2017 if (s == NULL)
2018 abort ();
2019 s->_raw_size = sizeof ELF_DYNAMIC_INTERPRETER;
2020 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
2021 }
2022 }
2023
2024 /* Set up .got offsets for local syms, and space for local dynamic
2025 relocs. */
2026 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
2027 {
2028 bfd_signed_vma *local_got;
2029 bfd_signed_vma *end_local_got;
2030 char *local_tls_type;
2031 bfd_size_type locsymcount;
2032 Elf_Internal_Shdr *symtab_hdr;
2033 asection *srela;
2034
2035 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2036 continue;
2037
2038 for (s = ibfd->sections; s != NULL; s = s->next)
2039 {
2040 struct elf_s390_dyn_relocs *p;
2041
2042 for (p = *((struct elf_s390_dyn_relocs **)
2043 &elf_section_data (s)->local_dynrel);
2044 p != NULL;
2045 p = p->next)
2046 {
2047 if (!bfd_is_abs_section (p->sec)
2048 && bfd_is_abs_section (p->sec->output_section))
2049 {
2050 /* Input section has been discarded, either because
2051 it is a copy of a linkonce section or due to
2052 linker script /DISCARD/, so we'll be discarding
2053 the relocs too. */
2054 }
2055 else if (p->count != 0)
2056 {
2057 srela = elf_section_data (p->sec)->sreloc;
2058 srela->_raw_size += p->count * sizeof (Elf32_External_Rela);
2059 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
2060 info->flags |= DF_TEXTREL;
2061 }
2062 }
2063 }
2064
2065 local_got = elf_local_got_refcounts (ibfd);
2066 if (!local_got)
2067 continue;
2068
2069 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
2070 locsymcount = symtab_hdr->sh_info;
2071 end_local_got = local_got + locsymcount;
2072 local_tls_type = elf_s390_local_got_tls_type (ibfd);
2073 s = htab->sgot;
2074 srela = htab->srelgot;
2075 for (; local_got < end_local_got; ++local_got, ++local_tls_type)
2076 {
2077 if (*local_got > 0)
2078 {
2079 *local_got = s->_raw_size;
2080 s->_raw_size += GOT_ENTRY_SIZE;
2081 if (*local_tls_type == GOT_TLS_GD)
2082 s->_raw_size += GOT_ENTRY_SIZE;
2083 if (info->shared)
2084 srela->_raw_size += sizeof (Elf32_External_Rela);
2085 }
2086 else
2087 *local_got = (bfd_vma) -1;
2088 }
2089 }
2090
2091 if (htab->tls_ldm_got.refcount > 0)
2092 {
2093 /* Allocate 2 got entries and 1 dynamic reloc for R_390_TLS_LDM32
2094 relocs. */
2095 htab->tls_ldm_got.offset = htab->sgot->_raw_size;
2096 htab->sgot->_raw_size += 2 * GOT_ENTRY_SIZE;
2097 htab->srelgot->_raw_size += sizeof (Elf32_External_Rela);
2098 }
2099 else
2100 htab->tls_ldm_got.offset = -1;
2101
2102 /* Allocate global sym .plt and .got entries, and space for global
2103 sym dynamic relocs. */
2104 elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, (PTR) info);
2105
2106 /* We now have determined the sizes of the various dynamic sections.
2107 Allocate memory for them. */
2108 relocs = FALSE;
2109 for (s = dynobj->sections; s != NULL; s = s->next)
2110 {
2111 if ((s->flags & SEC_LINKER_CREATED) == 0)
2112 continue;
2113
2114 if (s == htab->splt
2115 || s == htab->sgot
2116 || s == htab->sgotplt)
2117 {
2118 /* Strip this section if we don't need it; see the
2119 comment below. */
2120 }
2121 else if (strncmp (bfd_get_section_name (dynobj, s), ".rela", 5) == 0)
2122 {
2123 if (s->_raw_size != 0)
2124 relocs = TRUE;
2125
2126 /* We use the reloc_count field as a counter if we need
2127 to copy relocs into the output file. */
2128 s->reloc_count = 0;
2129 }
2130 else
2131 {
2132 /* It's not one of our sections, so don't allocate space. */
2133 continue;
2134 }
2135
2136 if (s->_raw_size == 0)
2137 {
2138 /* If we don't need this section, strip it from the
2139 output file. This is to handle .rela.bss and
2140 .rela.plt. We must create it in
2141 create_dynamic_sections, because it must be created
2142 before the linker maps input sections to output
2143 sections. The linker does that before
2144 adjust_dynamic_symbol is called, and it is that
2145 function which decides whether anything needs to go
2146 into these sections. */
2147
2148 _bfd_strip_section_from_output (info, s);
2149 continue;
2150 }
2151
2152 /* Allocate memory for the section contents. We use bfd_zalloc
2153 here in case unused entries are not reclaimed before the
2154 section's contents are written out. This should not happen,
2155 but this way if it does, we get a R_390_NONE reloc instead
2156 of garbage. */
2157 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->_raw_size);
2158 if (s->contents == NULL)
2159 return FALSE;
2160 }
2161
2162 if (htab->elf.dynamic_sections_created)
2163 {
2164 /* Add some entries to the .dynamic section. We fill in the
2165 values later, in elf_s390_finish_dynamic_sections, but we
2166 must add the entries now so that we get the correct size for
2167 the .dynamic section. The DT_DEBUG entry is filled in by the
2168 dynamic linker and used by the debugger. */
2169 #define add_dynamic_entry(TAG, VAL) \
2170 bfd_elf32_add_dynamic_entry (info, (bfd_vma) (TAG), (bfd_vma) (VAL))
2171
2172 if (info->executable)
2173 {
2174 if (!add_dynamic_entry (DT_DEBUG, 0))
2175 return FALSE;
2176 }
2177
2178 if (htab->splt->_raw_size != 0)
2179 {
2180 if (!add_dynamic_entry (DT_PLTGOT, 0)
2181 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2182 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2183 || !add_dynamic_entry (DT_JMPREL, 0))
2184 return FALSE;
2185 }
2186
2187 if (relocs)
2188 {
2189 if (!add_dynamic_entry (DT_RELA, 0)
2190 || !add_dynamic_entry (DT_RELASZ, 0)
2191 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
2192 return FALSE;
2193
2194 /* If any dynamic relocs apply to a read-only section,
2195 then we need a DT_TEXTREL entry. */
2196 if ((info->flags & DF_TEXTREL) == 0)
2197 elf_link_hash_traverse (&htab->elf, readonly_dynrelocs,
2198 (PTR) info);
2199
2200 if ((info->flags & DF_TEXTREL) != 0)
2201 {
2202 if (!add_dynamic_entry (DT_TEXTREL, 0))
2203 return FALSE;
2204 }
2205 }
2206 }
2207 #undef add_dynamic_entry
2208
2209 return TRUE;
2210 }
2211
2212 /* Return the base VMA address which should be subtracted from real addresses
2213 when resolving @dtpoff relocation.
2214 This is PT_TLS segment p_vaddr. */
2215
2216 static bfd_vma
2217 dtpoff_base (info)
2218 struct bfd_link_info *info;
2219 {
2220 /* If tls_sec is NULL, we should have signalled an error already. */
2221 if (elf_hash_table (info)->tls_sec == NULL)
2222 return 0;
2223 return elf_hash_table (info)->tls_sec->vma;
2224 }
2225
2226 /* Return the relocation value for @tpoff relocation
2227 if STT_TLS virtual address is ADDRESS. */
2228
2229 static bfd_vma
2230 tpoff (info, address)
2231 struct bfd_link_info *info;
2232 bfd_vma address;
2233 {
2234 struct elf_link_hash_table *htab = elf_hash_table (info);
2235
2236 /* If tls_sec is NULL, we should have signalled an error already. */
2237 if (htab->tls_sec == NULL)
2238 return 0;
2239 return htab->tls_size + htab->tls_sec->vma - address;
2240 }
2241
2242 /* Complain if TLS instruction relocation is against an invalid
2243 instruction. */
2244
2245 static void
2246 invalid_tls_insn (input_bfd, input_section, rel)
2247 bfd *input_bfd;
2248 asection *input_section;
2249 Elf_Internal_Rela *rel;
2250 {
2251 reloc_howto_type *howto;
2252
2253 howto = elf_howto_table + ELF32_R_TYPE (rel->r_info);
2254 (*_bfd_error_handler)
2255 (_("%s(%s+0x%lx): invalid instruction for TLS relocation %s"),
2256 bfd_archive_filename (input_bfd),
2257 bfd_get_section_name (input_bfd, input_section),
2258 (long) rel->r_offset,
2259 howto->name);
2260 }
2261
2262 /* Relocate a 390 ELF section. */
2263
2264 static bfd_boolean
2265 elf_s390_relocate_section (output_bfd, info, input_bfd, input_section,
2266 contents, relocs, local_syms, local_sections)
2267 bfd *output_bfd;
2268 struct bfd_link_info *info;
2269 bfd *input_bfd;
2270 asection *input_section;
2271 bfd_byte *contents;
2272 Elf_Internal_Rela *relocs;
2273 Elf_Internal_Sym *local_syms;
2274 asection **local_sections;
2275 {
2276 struct elf_s390_link_hash_table *htab;
2277 Elf_Internal_Shdr *symtab_hdr;
2278 struct elf_link_hash_entry **sym_hashes;
2279 bfd_vma *local_got_offsets;
2280 Elf_Internal_Rela *rel;
2281 Elf_Internal_Rela *relend;
2282
2283 if (info->relocatable)
2284 return TRUE;
2285
2286 htab = elf_s390_hash_table (info);
2287 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
2288 sym_hashes = elf_sym_hashes (input_bfd);
2289 local_got_offsets = elf_local_got_offsets (input_bfd);
2290
2291 rel = relocs;
2292 relend = relocs + input_section->reloc_count;
2293 for (; rel < relend; rel++)
2294 {
2295 unsigned int r_type;
2296 reloc_howto_type *howto;
2297 unsigned long r_symndx;
2298 struct elf_link_hash_entry *h;
2299 Elf_Internal_Sym *sym;
2300 asection *sec;
2301 bfd_vma off;
2302 bfd_vma relocation;
2303 bfd_boolean unresolved_reloc;
2304 bfd_reloc_status_type r;
2305 int tls_type;
2306
2307 r_type = ELF32_R_TYPE (rel->r_info);
2308 if (r_type == (int) R_390_GNU_VTINHERIT
2309 || r_type == (int) R_390_GNU_VTENTRY)
2310 continue;
2311 if (r_type >= (int) R_390_max)
2312 {
2313 bfd_set_error (bfd_error_bad_value);
2314 return FALSE;
2315 }
2316
2317 howto = elf_howto_table + r_type;
2318 r_symndx = ELF32_R_SYM (rel->r_info);
2319
2320 /* This is a final link. */
2321 h = NULL;
2322 sym = NULL;
2323 sec = NULL;
2324 unresolved_reloc = FALSE;
2325 if (r_symndx < symtab_hdr->sh_info)
2326 {
2327 sym = local_syms + r_symndx;
2328 sec = local_sections[r_symndx];
2329 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2330 }
2331 else
2332 {
2333 bfd_boolean warned ATTRIBUTE_UNUSED;
2334
2335 RELOC_FOR_GLOBAL_SYMBOL (h, sym_hashes, r_symndx,
2336 symtab_hdr, relocation, sec,
2337 unresolved_reloc, info,
2338 warned);
2339 }
2340
2341 switch (r_type)
2342 {
2343 case R_390_GOTPLT12:
2344 case R_390_GOTPLT16:
2345 case R_390_GOTPLT20:
2346 case R_390_GOTPLT32:
2347 case R_390_GOTPLTENT:
2348 /* There are three cases for a GOTPLT relocation. 1) The
2349 relocation is against the jump slot entry of a plt that
2350 will get emitted to the output file. 2) The relocation
2351 is against the jump slot of a plt entry that has been
2352 removed. elf_s390_adjust_gotplt has created a GOT entry
2353 as replacement. 3) The relocation is against a local symbol.
2354 Cases 2) and 3) are the same as the GOT relocation code
2355 so we just have to test for case 1 and fall through for
2356 the other two. */
2357 if (h != NULL && h->plt.offset != (bfd_vma) -1)
2358 {
2359 bfd_vma plt_index;
2360
2361 /* Calc. index no.
2362 Current offset - size first entry / entry size. */
2363 plt_index = (h->plt.offset - PLT_FIRST_ENTRY_SIZE) /
2364 PLT_ENTRY_SIZE;
2365
2366 /* Offset in GOT is PLT index plus GOT headers(3) times 4,
2367 addr & GOT addr. */
2368 relocation = (plt_index + 3) * GOT_ENTRY_SIZE;
2369 unresolved_reloc = FALSE;
2370
2371 if (r_type == R_390_GOTPLTENT)
2372 relocation += htab->sgot->output_section->vma;
2373 break;
2374 }
2375 /* Fall through. */
2376
2377 case R_390_GOT12:
2378 case R_390_GOT16:
2379 case R_390_GOT20:
2380 case R_390_GOT32:
2381 case R_390_GOTENT:
2382 /* Relocation is to the entry for this symbol in the global
2383 offset table. */
2384 if (htab->sgot == NULL)
2385 abort ();
2386
2387 if (h != NULL)
2388 {
2389 bfd_boolean dyn;
2390
2391 off = h->got.offset;
2392 dyn = htab->elf.dynamic_sections_created;
2393 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
2394 || (info->shared
2395 && (info->symbolic
2396 || h->dynindx == -1
2397 || (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL))
2398 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR))
2399 || (ELF_ST_VISIBILITY (h->other)
2400 && h->root.type == bfd_link_hash_undefweak))
2401 {
2402 /* This is actually a static link, or it is a
2403 -Bsymbolic link and the symbol is defined
2404 locally, or the symbol was forced to be local
2405 because of a version file. We must initialize
2406 this entry in the global offset table. Since the
2407 offset must always be a multiple of 2, we use the
2408 least significant bit to record whether we have
2409 initialized it already.
2410
2411 When doing a dynamic link, we create a .rel.got
2412 relocation entry to initialize the value. This
2413 is done in the finish_dynamic_symbol routine. */
2414 if ((off & 1) != 0)
2415 off &= ~1;
2416 else
2417 {
2418 bfd_put_32 (output_bfd, relocation,
2419 htab->sgot->contents + off);
2420 h->got.offset |= 1;
2421 }
2422 }
2423 else
2424 unresolved_reloc = FALSE;
2425 }
2426 else
2427 {
2428 if (local_got_offsets == NULL)
2429 abort ();
2430
2431 off = local_got_offsets[r_symndx];
2432
2433 /* The offset must always be a multiple of 4. We use
2434 the least significant bit to record whether we have
2435 already generated the necessary reloc. */
2436 if ((off & 1) != 0)
2437 off &= ~1;
2438 else
2439 {
2440 bfd_put_32 (output_bfd, relocation,
2441 htab->sgot->contents + off);
2442
2443 if (info->shared)
2444 {
2445 asection *srelgot;
2446 Elf_Internal_Rela outrel;
2447 bfd_byte *loc;
2448
2449 srelgot = htab->srelgot;
2450 if (srelgot == NULL)
2451 abort ();
2452
2453 outrel.r_offset = (htab->sgot->output_section->vma
2454 + htab->sgot->output_offset
2455 + off);
2456 outrel.r_info = ELF32_R_INFO (0, R_390_RELATIVE);
2457 outrel.r_addend = relocation;
2458 loc = srelgot->contents;
2459 loc += srelgot->reloc_count++ * sizeof (Elf32_External_Rela);
2460 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
2461 }
2462
2463 local_got_offsets[r_symndx] |= 1;
2464 }
2465 }
2466
2467 if (off >= (bfd_vma) -2)
2468 abort ();
2469
2470 relocation = htab->sgot->output_offset + off;
2471
2472 /* For @GOTENT the relocation is against the offset between
2473 the instruction and the symbols entry in the GOT and not
2474 between the start of the GOT and the symbols entry. We
2475 add the vma of the GOT to get the correct value. */
2476 if ( r_type == R_390_GOTENT
2477 || r_type == R_390_GOTPLTENT)
2478 relocation += htab->sgot->output_section->vma;
2479
2480 break;
2481
2482 case R_390_GOTOFF16:
2483 case R_390_GOTOFF32:
2484 /* Relocation is relative to the start of the global offset
2485 table. */
2486
2487 /* Note that sgot->output_offset is not involved in this
2488 calculation. We always want the start of .got. If we
2489 defined _GLOBAL_OFFSET_TABLE in a different way, as is
2490 permitted by the ABI, we might have to change this
2491 calculation. */
2492 relocation -= htab->sgot->output_section->vma;
2493 break;
2494
2495 case R_390_GOTPC:
2496 case R_390_GOTPCDBL:
2497 /* Use global offset table as symbol value. */
2498 relocation = htab->sgot->output_section->vma;
2499 unresolved_reloc = FALSE;
2500 break;
2501
2502 case R_390_PLT16DBL:
2503 case R_390_PLT32DBL:
2504 case R_390_PLT32:
2505 /* Relocation is to the entry for this symbol in the
2506 procedure linkage table. */
2507
2508 /* Resolve a PLT32 reloc against a local symbol directly,
2509 without using the procedure linkage table. */
2510 if (h == NULL)
2511 break;
2512
2513 if (h->plt.offset == (bfd_vma) -1
2514 || htab->splt == NULL)
2515 {
2516 /* We didn't make a PLT entry for this symbol. This
2517 happens when statically linking PIC code, or when
2518 using -Bsymbolic. */
2519 break;
2520 }
2521
2522 relocation = (htab->splt->output_section->vma
2523 + htab->splt->output_offset
2524 + h->plt.offset);
2525 unresolved_reloc = FALSE;
2526 break;
2527
2528 case R_390_PLTOFF16:
2529 case R_390_PLTOFF32:
2530 /* Relocation is to the entry for this symbol in the
2531 procedure linkage table relative to the start of the GOT. */
2532
2533 /* For local symbols or if we didn't make a PLT entry for
2534 this symbol resolve the symbol directly. */
2535 if ( h == NULL
2536 || h->plt.offset == (bfd_vma) -1
2537 || htab->splt == NULL)
2538 {
2539 relocation -= htab->sgot->output_section->vma;
2540 break;
2541 }
2542
2543 relocation = (htab->splt->output_section->vma
2544 + htab->splt->output_offset
2545 + h->plt.offset
2546 - htab->sgot->output_section->vma);
2547 unresolved_reloc = FALSE;
2548 break;
2549
2550 case R_390_8:
2551 case R_390_16:
2552 case R_390_32:
2553 case R_390_PC16:
2554 case R_390_PC16DBL:
2555 case R_390_PC32DBL:
2556 case R_390_PC32:
2557 /* r_symndx will be zero only for relocs against symbols
2558 from removed linkonce sections, or sections discarded by
2559 a linker script. */
2560 if (r_symndx == 0
2561 || (input_section->flags & SEC_ALLOC) == 0)
2562 break;
2563
2564 if ((info->shared
2565 && (h == NULL
2566 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
2567 || h->root.type != bfd_link_hash_undefweak)
2568 && ((r_type != R_390_PC16
2569 && r_type != R_390_PC16DBL
2570 && r_type != R_390_PC32DBL
2571 && r_type != R_390_PC32)
2572 || (h != NULL
2573 && h->dynindx != -1
2574 && (! info->symbolic
2575 || (h->elf_link_hash_flags
2576 & ELF_LINK_HASH_DEF_REGULAR) == 0))))
2577 || (ELIMINATE_COPY_RELOCS
2578 && !info->shared
2579 && h != NULL
2580 && h->dynindx != -1
2581 && (h->elf_link_hash_flags & ELF_LINK_NON_GOT_REF) == 0
2582 && (((h->elf_link_hash_flags
2583 & ELF_LINK_HASH_DEF_DYNAMIC) != 0
2584 && (h->elf_link_hash_flags
2585 & ELF_LINK_HASH_DEF_REGULAR) == 0)
2586 || h->root.type == bfd_link_hash_undefweak
2587 || h->root.type == bfd_link_hash_undefined)))
2588 {
2589 Elf_Internal_Rela outrel;
2590 bfd_boolean skip, relocate;
2591 asection *sreloc;
2592 bfd_byte *loc;
2593
2594 /* When generating a shared object, these relocations
2595 are copied into the output file to be resolved at run
2596 time. */
2597
2598 skip = FALSE;
2599 relocate = FALSE;
2600
2601 outrel.r_offset =
2602 _bfd_elf_section_offset (output_bfd, info, input_section,
2603 rel->r_offset);
2604 if (outrel.r_offset == (bfd_vma) -1)
2605 skip = TRUE;
2606 else if (outrel.r_offset == (bfd_vma) -2)
2607 skip = TRUE, relocate = TRUE;
2608 outrel.r_offset += (input_section->output_section->vma
2609 + input_section->output_offset);
2610
2611 if (skip)
2612 memset (&outrel, 0, sizeof outrel);
2613 else if (h != NULL
2614 && h->dynindx != -1
2615 && (r_type == R_390_PC16
2616 || r_type == R_390_PC16DBL
2617 || r_type == R_390_PC32DBL
2618 || r_type == R_390_PC32
2619 || !info->shared
2620 || !info->symbolic
2621 || (h->elf_link_hash_flags
2622 & ELF_LINK_HASH_DEF_REGULAR) == 0))
2623 {
2624 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
2625 outrel.r_addend = rel->r_addend;
2626 }
2627 else
2628 {
2629 /* This symbol is local, or marked to become local. */
2630 outrel.r_addend = relocation + rel->r_addend;
2631 if (r_type == R_390_32)
2632 {
2633 relocate = TRUE;
2634 outrel.r_info = ELF32_R_INFO (0, R_390_RELATIVE);
2635 }
2636 else
2637 {
2638 long sindx;
2639
2640 if (bfd_is_abs_section (sec))
2641 sindx = 0;
2642 else if (sec == NULL || sec->owner == NULL)
2643 {
2644 bfd_set_error(bfd_error_bad_value);
2645 return FALSE;
2646 }
2647 else
2648 {
2649 asection *osec;
2650
2651 osec = sec->output_section;
2652 sindx = elf_section_data (osec)->dynindx;
2653 BFD_ASSERT (sindx > 0);
2654
2655 /* We are turning this relocation into one
2656 against a section symbol, so subtract out
2657 the output section's address but not the
2658 offset of the input section in the output
2659 section. */
2660
2661 outrel.r_addend -= osec->vma;
2662 }
2663 outrel.r_info = ELF32_R_INFO (sindx, r_type);
2664 }
2665 }
2666
2667 sreloc = elf_section_data (input_section)->sreloc;
2668 if (sreloc == NULL)
2669 abort ();
2670
2671 loc = sreloc->contents;
2672 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
2673 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
2674
2675 /* If this reloc is against an external symbol, we do
2676 not want to fiddle with the addend. Otherwise, we
2677 need to include the symbol value so that it becomes
2678 an addend for the dynamic reloc. */
2679 if (! relocate)
2680 continue;
2681 }
2682 break;
2683
2684 /* Relocations for tls literal pool entries. */
2685 case R_390_TLS_IE32:
2686 if (info->shared)
2687 {
2688 Elf_Internal_Rela outrel;
2689 asection *sreloc;
2690 bfd_byte *loc;
2691
2692 outrel.r_offset = rel->r_offset
2693 + input_section->output_section->vma
2694 + input_section->output_offset;
2695 outrel.r_info = ELF32_R_INFO (0, R_390_RELATIVE);
2696 sreloc = elf_section_data (input_section)->sreloc;
2697 if (sreloc == NULL)
2698 abort ();
2699 loc = sreloc->contents;
2700 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
2701 bfd_elf32_swap_reloc_out (output_bfd, &outrel, loc);
2702 }
2703 /* Fall through. */
2704
2705 case R_390_TLS_GD32:
2706 case R_390_TLS_GOTIE32:
2707 r_type = elf_s390_tls_transition (info, r_type, h == NULL);
2708 tls_type = GOT_UNKNOWN;
2709 if (h == NULL && local_got_offsets)
2710 tls_type = elf_s390_local_got_tls_type (input_bfd) [r_symndx];
2711 else if (h != NULL)
2712 {
2713 tls_type = elf_s390_hash_entry(h)->tls_type;
2714 if (!info->shared && h->dynindx == -1 && tls_type >= GOT_TLS_IE)
2715 r_type = R_390_TLS_LE32;
2716 }
2717 if (r_type == R_390_TLS_GD32 && tls_type >= GOT_TLS_IE)
2718 r_type = R_390_TLS_IE32;
2719
2720 if (r_type == R_390_TLS_LE32)
2721 {
2722 /* This relocation gets optimized away by the local exec
2723 access optimization. */
2724 BFD_ASSERT (! unresolved_reloc);
2725 bfd_put_32 (output_bfd, -tpoff (info, relocation),
2726 contents + rel->r_offset);
2727 continue;
2728 }
2729
2730 if (htab->sgot == NULL)
2731 abort ();
2732
2733 if (h != NULL)
2734 off = h->got.offset;
2735 else
2736 {
2737 if (local_got_offsets == NULL)
2738 abort ();
2739
2740 off = local_got_offsets[r_symndx];
2741 }
2742
2743 emit_tls_relocs:
2744
2745 if ((off & 1) != 0)
2746 off &= ~1;
2747 else
2748 {
2749 Elf_Internal_Rela outrel;
2750 bfd_byte *loc;
2751 int dr_type, indx;
2752
2753 if (htab->srelgot == NULL)
2754 abort ();
2755
2756 outrel.r_offset = (htab->sgot->output_section->vma
2757 + htab->sgot->output_offset + off);
2758
2759 indx = h && h->dynindx != -1 ? h->dynindx : 0;
2760 if (r_type == R_390_TLS_GD32)
2761 dr_type = R_390_TLS_DTPMOD;
2762 else
2763 dr_type = R_390_TLS_TPOFF;
2764 if (dr_type == R_390_TLS_TPOFF && indx == 0)
2765 outrel.r_addend = relocation - dtpoff_base (info);
2766 else
2767 outrel.r_addend = 0;
2768 outrel.r_info = ELF32_R_INFO (indx, dr_type);
2769 loc = htab->srelgot->contents;
2770 loc += htab->srelgot->reloc_count++
2771 * sizeof (Elf32_External_Rela);
2772 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
2773
2774 if (r_type == R_390_TLS_GD32)
2775 {
2776 if (indx == 0)
2777 {
2778 BFD_ASSERT (! unresolved_reloc);
2779 bfd_put_32 (output_bfd,
2780 relocation - dtpoff_base (info),
2781 htab->sgot->contents + off + GOT_ENTRY_SIZE);
2782 }
2783 else
2784 {
2785 outrel.r_info = ELF32_R_INFO (indx, R_390_TLS_DTPOFF);
2786 outrel.r_offset += GOT_ENTRY_SIZE;
2787 outrel.r_addend = 0;
2788 htab->srelgot->reloc_count++;
2789 loc += sizeof (Elf32_External_Rela);
2790 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
2791 }
2792 }
2793
2794 if (h != NULL)
2795 h->got.offset |= 1;
2796 else
2797 local_got_offsets[r_symndx] |= 1;
2798 }
2799
2800 if (off >= (bfd_vma) -2)
2801 abort ();
2802 if (r_type == ELF32_R_TYPE (rel->r_info))
2803 {
2804 relocation = htab->sgot->output_offset + off;
2805 if (r_type == R_390_TLS_IE32 || r_type == R_390_TLS_IEENT)
2806 relocation += htab->sgot->output_section->vma;
2807 unresolved_reloc = FALSE;
2808 }
2809 else
2810 {
2811 bfd_put_32 (output_bfd, htab->sgot->output_offset + off,
2812 contents + rel->r_offset);
2813 continue;
2814 }
2815 break;
2816
2817 case R_390_TLS_GOTIE12:
2818 case R_390_TLS_GOTIE20:
2819 case R_390_TLS_IEENT:
2820 if (h == NULL)
2821 {
2822 if (local_got_offsets == NULL)
2823 abort();
2824 off = local_got_offsets[r_symndx];
2825 if (info->shared)
2826 goto emit_tls_relocs;
2827 }
2828 else
2829 {
2830 off = h->got.offset;
2831 tls_type = elf_s390_hash_entry(h)->tls_type;
2832 if (info->shared || h->dynindx != -1 || tls_type < GOT_TLS_IE)
2833 goto emit_tls_relocs;
2834 }
2835
2836 if (htab->sgot == NULL)
2837 abort ();
2838
2839 BFD_ASSERT (! unresolved_reloc);
2840 bfd_put_32 (output_bfd, -tpoff (info, relocation),
2841 htab->sgot->contents + off);
2842 relocation = htab->sgot->output_offset + off;
2843 if (r_type == R_390_TLS_IEENT)
2844 relocation += htab->sgot->output_section->vma;
2845 unresolved_reloc = FALSE;
2846 break;
2847
2848 case R_390_TLS_LDM32:
2849 if (! info->shared)
2850 /* The literal pool entry this relocation refers to gets ignored
2851 by the optimized code of the local exec model. Do nothing
2852 and the value will turn out zero. */
2853 continue;
2854
2855 if (htab->sgot == NULL)
2856 abort ();
2857
2858 off = htab->tls_ldm_got.offset;
2859 if (off & 1)
2860 off &= ~1;
2861 else
2862 {
2863 Elf_Internal_Rela outrel;
2864 bfd_byte *loc;
2865
2866 if (htab->srelgot == NULL)
2867 abort ();
2868
2869 outrel.r_offset = (htab->sgot->output_section->vma
2870 + htab->sgot->output_offset + off);
2871
2872 bfd_put_32 (output_bfd, 0,
2873 htab->sgot->contents + off + GOT_ENTRY_SIZE);
2874 outrel.r_info = ELF32_R_INFO (0, R_390_TLS_DTPMOD);
2875 outrel.r_addend = 0;
2876 loc = htab->srelgot->contents;
2877 loc += htab->srelgot->reloc_count++
2878 * sizeof (Elf32_External_Rela);
2879 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
2880 htab->tls_ldm_got.offset |= 1;
2881 }
2882 relocation = htab->sgot->output_offset + off;
2883 unresolved_reloc = FALSE;
2884 break;
2885
2886 case R_390_TLS_LE32:
2887 if (info->shared)
2888 {
2889 /* Linking a shared library with non-fpic code requires
2890 a R_390_TLS_TPOFF relocation. */
2891 Elf_Internal_Rela outrel;
2892 asection *sreloc;
2893 bfd_byte *loc;
2894 int indx;
2895
2896 outrel.r_offset = rel->r_offset
2897 + input_section->output_section->vma
2898 + input_section->output_offset;
2899 if (h != NULL && h->dynindx != -1)
2900 indx = h->dynindx;
2901 else
2902 indx = 0;
2903 outrel.r_info = ELF32_R_INFO (indx, R_390_TLS_TPOFF);
2904 if (indx == 0)
2905 outrel.r_addend = relocation - dtpoff_base (info);
2906 else
2907 outrel.r_addend = 0;
2908 sreloc = elf_section_data (input_section)->sreloc;
2909 if (sreloc == NULL)
2910 abort ();
2911 loc = sreloc->contents;
2912 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
2913 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
2914 }
2915 else
2916 {
2917 BFD_ASSERT (! unresolved_reloc);
2918 bfd_put_32 (output_bfd, -tpoff (info, relocation),
2919 contents + rel->r_offset);
2920 }
2921 continue;
2922
2923 case R_390_TLS_LDO32:
2924 if (info->shared || (input_section->flags & SEC_CODE) == 0)
2925 relocation -= dtpoff_base (info);
2926 else
2927 /* When converting LDO to LE, we must negate. */
2928 relocation = -tpoff (info, relocation);
2929 break;
2930
2931 /* Relocations for tls instructions. */
2932 case R_390_TLS_LOAD:
2933 case R_390_TLS_GDCALL:
2934 case R_390_TLS_LDCALL:
2935 tls_type = GOT_UNKNOWN;
2936 if (h == NULL && local_got_offsets)
2937 tls_type = elf_s390_local_got_tls_type (input_bfd) [r_symndx];
2938 else if (h != NULL)
2939 tls_type = elf_s390_hash_entry(h)->tls_type;
2940
2941 if (tls_type == GOT_TLS_GD)
2942 continue;
2943
2944 if (r_type == R_390_TLS_LOAD)
2945 {
2946 if (!info->shared && (h == NULL || h->dynindx == -1))
2947 {
2948 /* IE->LE transition. Four valid cases:
2949 l %rx,0(0,%ry) -> lr %rx,%ry + bcr 0,0
2950 l %rx,0(%ry,0) -> lr %rx,%ry + bcr 0,0
2951 l %rx,0(%ry,%r12) -> lr %rx,%ry + bcr 0,0
2952 l %rx,0(%r12,%ry) -> lr %rx,%ry + bcr 0,0 */
2953 unsigned int insn, ry;
2954
2955 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
2956 ry = 0;
2957 if ((insn & 0xff00f000) == 0x58000000)
2958 /* l %rx,0(%ry,0) -> lr %rx,%ry + bcr 0,0 */
2959 ry = (insn & 0x000f0000);
2960 else if ((insn & 0xff0f0000) == 0x58000000)
2961 /* l %rx,0(0,%ry) -> lr %rx,%ry + bcr 0,0 */
2962 ry = (insn & 0x0000f000) << 4;
2963 else if ((insn & 0xff00f000) == 0x5800c000)
2964 /* l %rx,0(%ry,%r12) -> lr %rx,%ry + bcr 0,0 */
2965 ry = (insn & 0x000f0000);
2966 else if ((insn & 0xff0f0000) == 0x580c0000)
2967 /* l %rx,0(%r12,%ry) -> lr %rx,%ry + bcr 0,0 */
2968 ry = (insn & 0x0000f000) << 4;
2969 else
2970 invalid_tls_insn (input_bfd, input_section, rel);
2971 insn = 0x18000700 | (insn & 0x00f00000) | ry;
2972 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
2973 }
2974 }
2975 else if (r_type == R_390_TLS_GDCALL)
2976 {
2977 unsigned int insn;
2978
2979 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
2980 if ((insn & 0xff000fff) != 0x4d000000)
2981 invalid_tls_insn (input_bfd, input_section, rel);
2982 if (!info->shared && (h == NULL || h->dynindx == -1))
2983 /* GD->LE transition.
2984 bas %r14,0(%rx,%r13) -> bc 0,0 */
2985 insn = 0x47000000;
2986 else
2987 /* GD->IE transition.
2988 bas %r14,0(%rx,%r13) -> l %r2,0(%r2,%r12) */
2989 insn = 0x5822c000;
2990 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
2991 }
2992 else if (r_type == R_390_TLS_LDCALL)
2993 {
2994 if (!info->shared)
2995 {
2996 unsigned int insn;
2997
2998 insn = bfd_get_32 (input_bfd, contents + rel->r_offset);
2999 if ((insn & 0xff000fff) != 0x4d000000)
3000 invalid_tls_insn (input_bfd, input_section, rel);
3001 /* LD->LE transition.
3002 bas %r14,0(%rx,%r13) -> bc 0,0 */
3003 insn = 0x47000000;
3004 bfd_put_32 (output_bfd, insn, contents + rel->r_offset);
3005 }
3006 }
3007 continue;
3008
3009 default:
3010 break;
3011 }
3012
3013 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3014 because such sections are not SEC_ALLOC and thus ld.so will
3015 not process them. */
3016 if (unresolved_reloc
3017 && !((input_section->flags & SEC_DEBUGGING) != 0
3018 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_DYNAMIC) != 0))
3019 (*_bfd_error_handler)
3020 (_("%s(%s+0x%lx): unresolvable relocation against symbol `%s'"),
3021 bfd_archive_filename (input_bfd),
3022 bfd_get_section_name (input_bfd, input_section),
3023 (long) rel->r_offset,
3024 h->root.root.string);
3025
3026 if (r_type == R_390_20
3027 || r_type == R_390_GOT20
3028 || r_type == R_390_GOTPLT20
3029 || r_type == R_390_TLS_GOTIE20)
3030 {
3031 relocation += rel->r_addend;
3032 relocation = (relocation&0xfff) << 8 | (relocation&0xff000) >> 12;
3033 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3034 contents, rel->r_offset,
3035 relocation, 0);
3036 }
3037 else
3038 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3039 contents, rel->r_offset,
3040 relocation, rel->r_addend);
3041
3042 if (r != bfd_reloc_ok)
3043 {
3044 const char *name;
3045
3046 if (h != NULL)
3047 name = h->root.root.string;
3048 else
3049 {
3050 name = bfd_elf_string_from_elf_section (input_bfd,
3051 symtab_hdr->sh_link,
3052 sym->st_name);
3053 if (name == NULL)
3054 return FALSE;
3055 if (*name == '\0')
3056 name = bfd_section_name (input_bfd, sec);
3057 }
3058
3059 if (r == bfd_reloc_overflow)
3060 {
3061
3062 if (! ((*info->callbacks->reloc_overflow)
3063 (info, name, howto->name, (bfd_vma) 0,
3064 input_bfd, input_section, rel->r_offset)))
3065 return FALSE;
3066 }
3067 else
3068 {
3069 (*_bfd_error_handler)
3070 (_("%s(%s+0x%lx): reloc against `%s': error %d"),
3071 bfd_archive_filename (input_bfd),
3072 bfd_get_section_name (input_bfd, input_section),
3073 (long) rel->r_offset, name, (int) r);
3074 return FALSE;
3075 }
3076 }
3077 }
3078
3079 return TRUE;
3080 }
3081
3082 /* Finish up dynamic symbol handling. We set the contents of various
3083 dynamic sections here. */
3084
3085 static bfd_boolean
3086 elf_s390_finish_dynamic_symbol (output_bfd, info, h, sym)
3087 bfd *output_bfd;
3088 struct bfd_link_info *info;
3089 struct elf_link_hash_entry *h;
3090 Elf_Internal_Sym *sym;
3091 {
3092 struct elf_s390_link_hash_table *htab;
3093
3094 htab = elf_s390_hash_table (info);
3095
3096 if (h->plt.offset != (bfd_vma) -1)
3097 {
3098 bfd_vma plt_index;
3099 bfd_vma got_offset;
3100 Elf_Internal_Rela rela;
3101 bfd_byte *loc;
3102 bfd_vma relative_offset;
3103
3104 /* This symbol has an entry in the procedure linkage table. Set
3105 it up. */
3106 if (h->dynindx == -1
3107 || htab->splt == NULL
3108 || htab->sgotplt == NULL
3109 || htab->srelplt == NULL)
3110 abort ();
3111
3112 /* Calc. index no.
3113 Current offset - size first entry / entry size. */
3114 plt_index = (h->plt.offset - PLT_FIRST_ENTRY_SIZE) / PLT_ENTRY_SIZE;
3115
3116 /* Offset in GOT is PLT index plus GOT headers(3) times 4,
3117 addr & GOT addr. */
3118 got_offset = (plt_index + 3) * GOT_ENTRY_SIZE;
3119
3120 /* S390 uses halfwords for relative branch calc! */
3121 relative_offset = - ((PLT_FIRST_ENTRY_SIZE +
3122 (PLT_ENTRY_SIZE * plt_index) + 18) / 2);
3123 /* If offset is > 32768, branch to a previous branch
3124 390 can only handle +-64 K jumps. */
3125 if ( -32768 > (int) relative_offset )
3126 relative_offset
3127 = -(unsigned) (((65536 / PLT_ENTRY_SIZE - 1) * PLT_ENTRY_SIZE) / 2);
3128
3129 /* Fill in the entry in the procedure linkage table. */
3130 if (!info->shared)
3131 {
3132 bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD0,
3133 htab->splt->contents + h->plt.offset);
3134 bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD1,
3135 htab->splt->contents + h->plt.offset + 4);
3136 bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD2,
3137 htab->splt->contents + h->plt.offset + 8);
3138 bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD3,
3139 htab->splt->contents + h->plt.offset + 12);
3140 bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD4,
3141 htab->splt->contents + h->plt.offset + 16);
3142 bfd_put_32 (output_bfd, (bfd_vma) 0+(relative_offset << 16),
3143 htab->splt->contents + h->plt.offset + 20);
3144 bfd_put_32 (output_bfd,
3145 (htab->sgotplt->output_section->vma
3146 + htab->sgotplt->output_offset
3147 + got_offset),
3148 htab->splt->contents + h->plt.offset + 24);
3149 }
3150 else if (got_offset < 4096)
3151 {
3152 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC12_ENTRY_WORD0 + got_offset,
3153 htab->splt->contents + h->plt.offset);
3154 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC12_ENTRY_WORD1,
3155 htab->splt->contents + h->plt.offset + 4);
3156 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC12_ENTRY_WORD2,
3157 htab->splt->contents + h->plt.offset + 8);
3158 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC12_ENTRY_WORD3,
3159 htab->splt->contents + h->plt.offset + 12);
3160 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC12_ENTRY_WORD4,
3161 htab->splt->contents + h->plt.offset + 16);
3162 bfd_put_32 (output_bfd, (bfd_vma) 0+(relative_offset << 16),
3163 htab->splt->contents + h->plt.offset + 20);
3164 bfd_put_32 (output_bfd, (bfd_vma) 0,
3165 htab->splt->contents + h->plt.offset + 24);
3166 }
3167 else if (got_offset < 32768)
3168 {
3169 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC16_ENTRY_WORD0 + got_offset,
3170 htab->splt->contents + h->plt.offset);
3171 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC16_ENTRY_WORD1,
3172 htab->splt->contents + h->plt.offset + 4);
3173 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC16_ENTRY_WORD2,
3174 htab->splt->contents + h->plt.offset + 8);
3175 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC16_ENTRY_WORD3,
3176 htab->splt->contents + h->plt.offset + 12);
3177 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC16_ENTRY_WORD4,
3178 htab->splt->contents + h->plt.offset + 16);
3179 bfd_put_32 (output_bfd, (bfd_vma) 0+(relative_offset << 16),
3180 htab->splt->contents + h->plt.offset + 20);
3181 bfd_put_32 (output_bfd, (bfd_vma) 0,
3182 htab->splt->contents + h->plt.offset + 24);
3183 }
3184 else
3185 {
3186 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_ENTRY_WORD0,
3187 htab->splt->contents + h->plt.offset);
3188 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_ENTRY_WORD1,
3189 htab->splt->contents + h->plt.offset + 4);
3190 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_ENTRY_WORD2,
3191 htab->splt->contents + h->plt.offset + 8);
3192 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_ENTRY_WORD3,
3193 htab->splt->contents + h->plt.offset + 12);
3194 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_ENTRY_WORD4,
3195 htab->splt->contents + h->plt.offset + 16);
3196 bfd_put_32 (output_bfd, (bfd_vma) 0+(relative_offset << 16),
3197 htab->splt->contents + h->plt.offset + 20);
3198 bfd_put_32 (output_bfd, got_offset,
3199 htab->splt->contents + h->plt.offset + 24);
3200 }
3201 /* Insert offset into reloc. table here. */
3202 bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rela),
3203 htab->splt->contents + h->plt.offset + 28);
3204
3205 /* Fill in the entry in the global offset table.
3206 Points to instruction after GOT offset. */
3207 bfd_put_32 (output_bfd,
3208 (htab->splt->output_section->vma
3209 + htab->splt->output_offset
3210 + h->plt.offset
3211 + 12),
3212 htab->sgotplt->contents + got_offset);
3213
3214 /* Fill in the entry in the .rela.plt section. */
3215 rela.r_offset = (htab->sgotplt->output_section->vma
3216 + htab->sgotplt->output_offset
3217 + got_offset);
3218 rela.r_info = ELF32_R_INFO (h->dynindx, R_390_JMP_SLOT);
3219 rela.r_addend = 0;
3220 loc = htab->srelplt->contents + plt_index * sizeof (Elf32_External_Rela);
3221 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3222
3223 if ((h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR) == 0)
3224 {
3225 /* Mark the symbol as undefined, rather than as defined in
3226 the .plt section. Leave the value alone. This is a clue
3227 for the dynamic linker, to make function pointer
3228 comparisons work between an application and shared
3229 library. */
3230 sym->st_shndx = SHN_UNDEF;
3231 }
3232 }
3233
3234 if (h->got.offset != (bfd_vma) -1
3235 && elf_s390_hash_entry(h)->tls_type != GOT_TLS_GD
3236 && elf_s390_hash_entry(h)->tls_type != GOT_TLS_IE
3237 && elf_s390_hash_entry(h)->tls_type != GOT_TLS_IE_NLT)
3238 {
3239 Elf_Internal_Rela rela;
3240 bfd_byte *loc;
3241
3242 /* This symbol has an entry in the global offset table. Set it
3243 up. */
3244
3245 if (htab->sgot == NULL || htab->srelgot == NULL)
3246 abort ();
3247
3248 rela.r_offset = (htab->sgot->output_section->vma
3249 + htab->sgot->output_offset
3250 + (h->got.offset &~ (bfd_vma) 1));
3251
3252 /* If this is a static link, or it is a -Bsymbolic link and the
3253 symbol is defined locally or was forced to be local because
3254 of a version file, we just want to emit a RELATIVE reloc.
3255 The entry in the global offset table will already have been
3256 initialized in the relocate_section function. */
3257 if (info->shared
3258 && (info->symbolic
3259 || h->dynindx == -1
3260 || (h->elf_link_hash_flags & ELF_LINK_FORCED_LOCAL))
3261 && (h->elf_link_hash_flags & ELF_LINK_HASH_DEF_REGULAR))
3262 {
3263 BFD_ASSERT((h->got.offset & 1) != 0);
3264 rela.r_info = ELF32_R_INFO (0, R_390_RELATIVE);
3265 rela.r_addend = (h->root.u.def.value
3266 + h->root.u.def.section->output_section->vma
3267 + h->root.u.def.section->output_offset);
3268 }
3269 else
3270 {
3271 BFD_ASSERT((h->got.offset & 1) == 0);
3272 bfd_put_32 (output_bfd, (bfd_vma) 0, htab->sgot->contents + h->got.offset);
3273 rela.r_info = ELF32_R_INFO (h->dynindx, R_390_GLOB_DAT);
3274 rela.r_addend = 0;
3275 }
3276
3277 loc = htab->srelgot->contents;
3278 loc += htab->srelgot->reloc_count++ * sizeof (Elf32_External_Rela);
3279 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3280 }
3281
3282 if ((h->elf_link_hash_flags & ELF_LINK_HASH_NEEDS_COPY) != 0)
3283 {
3284 Elf_Internal_Rela rela;
3285 bfd_byte *loc;
3286
3287 /* This symbols needs a copy reloc. Set it up. */
3288
3289 if (h->dynindx == -1
3290 || (h->root.type != bfd_link_hash_defined
3291 && h->root.type != bfd_link_hash_defweak)
3292 || htab->srelbss == NULL)
3293 abort ();
3294
3295 rela.r_offset = (h->root.u.def.value
3296 + h->root.u.def.section->output_section->vma
3297 + h->root.u.def.section->output_offset);
3298 rela.r_info = ELF32_R_INFO (h->dynindx, R_390_COPY);
3299 rela.r_addend = 0;
3300 loc = htab->srelbss->contents;
3301 loc += htab->srelbss->reloc_count++ * sizeof (Elf32_External_Rela);
3302 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3303 }
3304
3305 /* Mark some specially defined symbols as absolute. */
3306 if (strcmp (h->root.root.string, "_DYNAMIC") == 0
3307 || strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0
3308 || strcmp (h->root.root.string, "_PROCEDURE_LINKAGE_TABLE_") == 0)
3309 sym->st_shndx = SHN_ABS;
3310
3311 return TRUE;
3312 }
3313
3314 /* Used to decide how to sort relocs in an optimal manner for the
3315 dynamic linker, before writing them out. */
3316
3317 static enum elf_reloc_type_class
3318 elf_s390_reloc_type_class (rela)
3319 const Elf_Internal_Rela *rela;
3320 {
3321 switch ((int) ELF32_R_TYPE (rela->r_info))
3322 {
3323 case R_390_RELATIVE:
3324 return reloc_class_relative;
3325 case R_390_JMP_SLOT:
3326 return reloc_class_plt;
3327 case R_390_COPY:
3328 return reloc_class_copy;
3329 default:
3330 return reloc_class_normal;
3331 }
3332 }
3333
3334 /* Finish up the dynamic sections. */
3335
3336 static bfd_boolean
3337 elf_s390_finish_dynamic_sections (output_bfd, info)
3338 bfd *output_bfd;
3339 struct bfd_link_info *info;
3340 {
3341 struct elf_s390_link_hash_table *htab;
3342 bfd *dynobj;
3343 asection *sdyn;
3344
3345 htab = elf_s390_hash_table (info);
3346 dynobj = htab->elf.dynobj;
3347 sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
3348
3349 if (htab->elf.dynamic_sections_created)
3350 {
3351 Elf32_External_Dyn *dyncon, *dynconend;
3352
3353 if (sdyn == NULL || htab->sgot == NULL)
3354 abort ();
3355
3356 dyncon = (Elf32_External_Dyn *) sdyn->contents;
3357 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->_raw_size);
3358 for (; dyncon < dynconend; dyncon++)
3359 {
3360 Elf_Internal_Dyn dyn;
3361 asection *s;
3362
3363 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
3364
3365 switch (dyn.d_tag)
3366 {
3367 default:
3368 continue;
3369
3370 case DT_PLTGOT:
3371 dyn.d_un.d_ptr = htab->sgot->output_section->vma;
3372 break;
3373
3374 case DT_JMPREL:
3375 dyn.d_un.d_ptr = htab->srelplt->output_section->vma;
3376 break;
3377
3378 case DT_PLTRELSZ:
3379 s = htab->srelplt->output_section;
3380 if (s->_cooked_size != 0)
3381 dyn.d_un.d_val = s->_cooked_size;
3382 else
3383 dyn.d_un.d_val = s->_raw_size;
3384 break;
3385 }
3386
3387 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3388 }
3389
3390 /* Fill in the special first entry in the procedure linkage table. */
3391 if (htab->splt && htab->splt->_raw_size > 0)
3392 {
3393 memset (htab->splt->contents, 0, PLT_FIRST_ENTRY_SIZE);
3394 if (info->shared)
3395 {
3396 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_FIRST_ENTRY_WORD0,
3397 htab->splt->contents );
3398 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_FIRST_ENTRY_WORD1,
3399 htab->splt->contents +4 );
3400 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_FIRST_ENTRY_WORD2,
3401 htab->splt->contents +8 );
3402 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_FIRST_ENTRY_WORD3,
3403 htab->splt->contents +12 );
3404 bfd_put_32 (output_bfd, (bfd_vma) PLT_PIC_FIRST_ENTRY_WORD4,
3405 htab->splt->contents +16 );
3406 }
3407 else
3408 {
3409 bfd_put_32 (output_bfd, (bfd_vma)PLT_FIRST_ENTRY_WORD0,
3410 htab->splt->contents );
3411 bfd_put_32 (output_bfd, (bfd_vma) PLT_FIRST_ENTRY_WORD1,
3412 htab->splt->contents +4 );
3413 bfd_put_32 (output_bfd, (bfd_vma) PLT_FIRST_ENTRY_WORD2,
3414 htab->splt->contents +8 );
3415 bfd_put_32 (output_bfd, (bfd_vma) PLT_FIRST_ENTRY_WORD3,
3416 htab->splt->contents +12 );
3417 bfd_put_32 (output_bfd, (bfd_vma) PLT_FIRST_ENTRY_WORD4,
3418 htab->splt->contents +16 );
3419 bfd_put_32 (output_bfd, (bfd_vma) PLT_FIRST_ENTRY_WORD5,
3420 htab->splt->contents +20 );
3421 bfd_put_32 (output_bfd,
3422 htab->sgotplt->output_section->vma
3423 + htab->sgotplt->output_offset,
3424 htab->splt->contents + 24);
3425 }
3426 elf_section_data (htab->splt->output_section)
3427 ->this_hdr.sh_entsize = 4;
3428 }
3429
3430 }
3431
3432 if (htab->sgotplt)
3433 {
3434 /* Fill in the first three entries in the global offset table. */
3435 if (htab->sgotplt->_raw_size > 0)
3436 {
3437 bfd_put_32 (output_bfd,
3438 (sdyn == NULL ? (bfd_vma) 0
3439 : sdyn->output_section->vma + sdyn->output_offset),
3440 htab->sgotplt->contents);
3441 /* One entry for shared object struct ptr. */
3442 bfd_put_32 (output_bfd, (bfd_vma) 0, htab->sgotplt->contents + 4);
3443 /* One entry for _dl_runtime_resolve. */
3444 bfd_put_32 (output_bfd, (bfd_vma) 0, htab->sgotplt->contents + 8);
3445 }
3446
3447 elf_section_data (htab->sgotplt->output_section)
3448 ->this_hdr.sh_entsize = 4;
3449 }
3450 return TRUE;
3451 }
3452
3453 static bfd_boolean
3454 elf_s390_grok_prstatus (abfd, note)
3455 bfd * abfd;
3456 Elf_Internal_Note * note;
3457 {
3458 int offset;
3459 unsigned int raw_size;
3460
3461 switch (note->descsz)
3462 {
3463 default:
3464 return FALSE;
3465
3466 case 224: /* S/390 Linux. */
3467 /* pr_cursig */
3468 elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
3469
3470 /* pr_pid */
3471 elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 24);
3472
3473 /* pr_reg */
3474 offset = 72;
3475 raw_size = 144;
3476 break;
3477 }
3478
3479 /* Make a ".reg/999" section. */
3480 return _bfd_elfcore_make_pseudosection (abfd, ".reg",
3481 raw_size, note->descpos + offset);
3482 }
3483
3484 #define TARGET_BIG_SYM bfd_elf32_s390_vec
3485 #define TARGET_BIG_NAME "elf32-s390"
3486 #define ELF_ARCH bfd_arch_s390
3487 #define ELF_MACHINE_CODE EM_S390
3488 #define ELF_MACHINE_ALT1 EM_S390_OLD
3489 #define ELF_MAXPAGESIZE 0x1000
3490
3491 #define elf_backend_can_gc_sections 1
3492 #define elf_backend_can_refcount 1
3493 #define elf_backend_want_got_plt 1
3494 #define elf_backend_plt_readonly 1
3495 #define elf_backend_want_plt_sym 0
3496 #define elf_backend_got_header_size 12
3497 #define elf_backend_rela_normal 1
3498
3499 #define elf_info_to_howto elf_s390_info_to_howto
3500
3501 #define bfd_elf32_bfd_is_local_label_name elf_s390_is_local_label_name
3502 #define bfd_elf32_bfd_link_hash_table_create elf_s390_link_hash_table_create
3503 #define bfd_elf32_bfd_reloc_type_lookup elf_s390_reloc_type_lookup
3504
3505 #define elf_backend_adjust_dynamic_symbol elf_s390_adjust_dynamic_symbol
3506 #define elf_backend_check_relocs elf_s390_check_relocs
3507 #define elf_backend_copy_indirect_symbol elf_s390_copy_indirect_symbol
3508 #define elf_backend_create_dynamic_sections elf_s390_create_dynamic_sections
3509 #define elf_backend_finish_dynamic_sections elf_s390_finish_dynamic_sections
3510 #define elf_backend_finish_dynamic_symbol elf_s390_finish_dynamic_symbol
3511 #define elf_backend_gc_mark_hook elf_s390_gc_mark_hook
3512 #define elf_backend_gc_sweep_hook elf_s390_gc_sweep_hook
3513 #define elf_backend_reloc_type_class elf_s390_reloc_type_class
3514 #define elf_backend_relocate_section elf_s390_relocate_section
3515 #define elf_backend_size_dynamic_sections elf_s390_size_dynamic_sections
3516 #define elf_backend_reloc_type_class elf_s390_reloc_type_class
3517 #define elf_backend_grok_prstatus elf_s390_grok_prstatus
3518
3519 #define bfd_elf32_mkobject elf_s390_mkobject
3520 #define elf_backend_object_p elf_s390_object_p
3521
3522 #include "elf32-target.h"
git-cvsimport of binutils cvsroot