projects / deliverable / binutils-gdb.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
ELF: Consolidate readonly_dynrelocs
[deliverable/binutils-gdb.git] / bfd / elfxx-tilegx.c
1 /* TILE-Gx-specific support for ELF.
2 Copyright (C) 2011-2020 Free Software Foundation, Inc.
3
4 This file is part of BFD, the Binary File Descriptor library.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
20
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "elf/tilegx.h"
26 #include "opcode/tilegx.h"
27 #include "libiberty.h"
28 #include "elfxx-tilegx.h"
29
30 #define ABI_64_P(abfd) \
31 (get_elf_backend_data (abfd)->s->elfclass == ELFCLASS64)
32
33 #define TILEGX_ELF_WORD_BYTES(htab) \
34 ((htab)->bytes_per_word)
35
36 /* The size of an external RELA relocation. */
37 #define TILEGX_ELF_RELA_BYTES(htab) \
38 ((htab)->bytes_per_rela)
39
40 /* Both 32-bit and 64-bit tilegx encode this in an identical manner,
41 so just take advantage of that. */
42 #define TILEGX_ELF_R_TYPE(r_info) \
43 ((r_info) & 0xFF)
44
45 #define TILEGX_ELF_R_INFO(htab, in_rel, index, type) \
46 ((htab)->r_info (in_rel, index, type))
47
48 #define TILEGX_ELF_R_SYMNDX(htab, r_info) \
49 ((htab)->r_symndx(r_info))
50
51 #define TILEGX_ELF_DTPOFF_RELOC(htab) \
52 ((htab)->dtpoff_reloc)
53
54 #define TILEGX_ELF_DTPMOD_RELOC(htab) \
55 ((htab)->dtpmod_reloc)
56
57 #define TILEGX_ELF_TPOFF_RELOC(htab) \
58 ((htab)->tpoff_reloc)
59
60 #define TILEGX_ELF_PUT_WORD(htab, bfd, val, ptr) \
61 ((htab)->put_word (bfd, val, ptr))
62
63 /* The name of the dynamic interpreter. This is put in the .interp
64 section. */
65
66 #define ELF64_DYNAMIC_INTERPRETER "/lib/ld.so.1"
67 #define ELF32_DYNAMIC_INTERPRETER "/lib32/ld.so.1"
68
69
70 static reloc_howto_type tilegx_elf_howto_table [] =
71 {
72 /* This reloc does nothing. */
73 HOWTO (R_TILEGX_NONE, /* type */
74 0, /* rightshift */
75 3, /* size (0 = byte, 1 = short, 2 = long) */
76 0, /* bitsize */
77 FALSE, /* pc_relative */
78 0, /* bitpos */
79 complain_overflow_dont, /* complain_on_overflow */
80 bfd_elf_generic_reloc, /* special_function */
81 "R_TILEGX_NONE", /* name */
82 FALSE, /* partial_inplace */
83 0, /* src_mask */
84 0, /* dst_mask */
85 FALSE), /* pcrel_offset */
86 #ifdef BFD64
87 /* A 64 bit absolute relocation. */
88 HOWTO (R_TILEGX_64, /* type */
89 0, /* rightshift */
90 4, /* size (0 = byte, 1 = short, 2 = long) */
91 64, /* bitsize */
92 FALSE, /* pc_relative */
93 0, /* bitpos */
94 complain_overflow_dont, /* complain_on_overflow */
95 bfd_elf_generic_reloc, /* special_function */
96 "R_TILEGX_64", /* name */
97 FALSE, /* partial_inplace */
98 0, /* src_mask */
99 0xffffffffffffffffULL, /* dst_mask */
100 FALSE), /* pcrel_offset */
101 #endif
102 /* A 32 bit absolute relocation. */
103 HOWTO (R_TILEGX_32, /* type */
104 0, /* rightshift */
105 2, /* size (0 = byte, 1 = short, 2 = long) */
106 32, /* bitsize */
107 FALSE, /* pc_relative */
108 0, /* bitpos */
109 complain_overflow_dont, /* complain_on_overflow */
110 bfd_elf_generic_reloc, /* special_function */
111 "R_TILEGX_32", /* name */
112 FALSE, /* partial_inplace */
113 0, /* src_mask */
114 0xffffffff, /* dst_mask */
115 FALSE), /* pcrel_offset */
116
117 /* A 16 bit absolute relocation. */
118 HOWTO (R_TILEGX_16, /* type */
119 0, /* rightshift */
120 1, /* size (0 = byte, 1 = short, 2 = long) */
121 16, /* bitsize */
122 FALSE, /* pc_relative */
123 0, /* bitpos */
124 complain_overflow_bitfield, /* complain_on_overflow */
125 bfd_elf_generic_reloc, /* special_function */
126 "R_TILEGX_16", /* name */
127 FALSE, /* partial_inplace */
128 0, /* src_mask */
129 0xffff, /* dst_mask */
130 FALSE), /* pcrel_offset */
131
132 /* An 8 bit absolute relocation. */
133 HOWTO (R_TILEGX_8, /* type */
134 0, /* rightshift */
135 0, /* size (0 = byte, 1 = short, 2 = long) */
136 8, /* bitsize */
137 FALSE, /* pc_relative */
138 0, /* bitpos */
139 complain_overflow_unsigned, /* complain_on_overflow */
140 bfd_elf_generic_reloc, /* special_function */
141 "R_TILEGX_8", /* name */
142 FALSE, /* partial_inplace */
143 0, /* src_mask */
144 0xff, /* dst_mask */
145 FALSE), /* pcrel_offset */
146 #ifdef BFD64
147 /* A 64 bit pc-relative relocation. */
148 HOWTO (R_TILEGX_64_PCREL,/* type */
149 0, /* rightshift */
150 4, /* size (0 = byte, 1 = short, 2 = long) */
151 64, /* bitsize */
152 TRUE, /* pc_relative */
153 0, /* bitpos */
154 complain_overflow_dont, /* complain_on_overflow */
155 bfd_elf_generic_reloc, /* special_function */
156 "R_TILEGX_32_PCREL", /* name */
157 FALSE, /* partial_inplace */
158 0, /* src_mask */
159 0xffffffffffffffffULL, /* dst_mask */
160 TRUE), /* pcrel_offset */
161 #endif
162 /* A 32 bit pc-relative relocation. */
163 HOWTO (R_TILEGX_32_PCREL,/* type */
164 0, /* rightshift */
165 2, /* size (0 = byte, 1 = short, 2 = long) */
166 32, /* bitsize */
167 TRUE, /* pc_relative */
168 0, /* bitpos */
169 complain_overflow_dont, /* complain_on_overflow */
170 bfd_elf_generic_reloc, /* special_function */
171 "R_TILEGX_32_PCREL", /* name */
172 FALSE, /* partial_inplace */
173 0, /* src_mask */
174 0xffffffff, /* dst_mask */
175 TRUE), /* pcrel_offset */
176
177 /* A 16 bit pc-relative relocation. */
178 HOWTO (R_TILEGX_16_PCREL,/* type */
179 0, /* rightshift */
180 1, /* size (0 = byte, 1 = short, 2 = long) */
181 16, /* bitsize */
182 TRUE, /* pc_relative */
183 0, /* bitpos */
184 complain_overflow_signed, /* complain_on_overflow */
185 bfd_elf_generic_reloc, /* special_function */
186 "R_TILEGX_16_PCREL", /* name */
187 FALSE, /* partial_inplace */
188 0, /* src_mask */
189 0xffff, /* dst_mask */
190 TRUE), /* pcrel_offset */
191
192 /* An 8 bit pc-relative relocation. */
193 HOWTO (R_TILEGX_8_PCREL, /* type */
194 0, /* rightshift */
195 0, /* size (0 = byte, 1 = short, 2 = long) */
196 8, /* bitsize */
197 TRUE, /* pc_relative */
198 0, /* bitpos */
199 complain_overflow_signed, /* complain_on_overflow */
200 bfd_elf_generic_reloc, /* special_function */
201 "R_TILEGX_8_PCREL",/* name */
202 FALSE, /* partial_inplace */
203 0, /* src_mask */
204 0xff, /* dst_mask */
205 TRUE), /* pcrel_offset */
206
207 /* A 16 bit relocation without overflow. */
208 HOWTO (R_TILEGX_HW0, /* type */
209 0, /* rightshift */
210 1, /* size (0 = byte, 1 = short, 2 = long) */
211 16, /* bitsize */
212 FALSE, /* pc_relative */
213 0, /* bitpos */
214 complain_overflow_dont,/* complain_on_overflow */
215 bfd_elf_generic_reloc, /* special_function */
216 "R_TILEGX_HW0", /* name */
217 FALSE, /* partial_inplace */
218 0, /* src_mask */
219 0xffff, /* dst_mask */
220 FALSE), /* pcrel_offset */
221
222 /* A 16 bit relocation without overflow. */
223 HOWTO (R_TILEGX_HW1, /* type */
224 16, /* rightshift */
225 1, /* size (0 = byte, 1 = short, 2 = long) */
226 16, /* bitsize */
227 FALSE, /* pc_relative */
228 0, /* bitpos */
229 complain_overflow_dont,/* complain_on_overflow */
230 bfd_elf_generic_reloc, /* special_function */
231 "R_TILEGX_HW1", /* name */
232 FALSE, /* partial_inplace */
233 0, /* src_mask */
234 0xffff, /* dst_mask */
235 FALSE), /* pcrel_offset */
236
237 /* A 16 bit relocation without overflow. */
238 HOWTO (R_TILEGX_HW2, /* type */
239 32, /* rightshift */
240 1, /* size (0 = byte, 1 = short, 2 = long) */
241 16, /* bitsize */
242 FALSE, /* pc_relative */
243 0, /* bitpos */
244 complain_overflow_dont,/* complain_on_overflow */
245 bfd_elf_generic_reloc, /* special_function */
246 "R_TILEGX_HW2", /* name */
247 FALSE, /* partial_inplace */
248 0, /* src_mask */
249 0xffff, /* dst_mask */
250 FALSE), /* pcrel_offset */
251
252 /* A 16 bit relocation without overflow. */
253 HOWTO (R_TILEGX_HW3, /* type */
254 48, /* rightshift */
255 1, /* size (0 = byte, 1 = short, 2 = long) */
256 16, /* bitsize */
257 FALSE, /* pc_relative */
258 0, /* bitpos */
259 complain_overflow_dont,/* complain_on_overflow */
260 bfd_elf_generic_reloc, /* special_function */
261 "R_TILEGX_HW3", /* name */
262 FALSE, /* partial_inplace */
263 0, /* src_mask */
264 0xffff, /* dst_mask */
265 FALSE), /* pcrel_offset */
266
267 /* A 16 bit relocation with overflow. */
268 HOWTO (R_TILEGX_HW0_LAST, /* type */
269 0, /* rightshift */
270 1, /* size (0 = byte, 1 = short, 2 = long) */
271 16, /* bitsize */
272 FALSE, /* pc_relative */
273 0, /* bitpos */
274 complain_overflow_signed,/* complain_on_overflow */
275 bfd_elf_generic_reloc, /* special_function */
276 "R_TILEGX_HW0_LAST", /* name */
277 FALSE, /* partial_inplace */
278 0, /* src_mask */
279 0xffff, /* dst_mask */
280 FALSE), /* pcrel_offset */
281
282 /* A 16 bit relocation with overflow. */
283 HOWTO (R_TILEGX_HW1_LAST, /* type */
284 16, /* rightshift */
285 1, /* size (0 = byte, 1 = short, 2 = long) */
286 16, /* bitsize */
287 FALSE, /* pc_relative */
288 0, /* bitpos */
289 complain_overflow_signed,/* complain_on_overflow */
290 bfd_elf_generic_reloc, /* special_function */
291 "R_TILEGX_HW1_LAST", /* name */
292 FALSE, /* partial_inplace */
293 0, /* src_mask */
294 0xffff, /* dst_mask */
295 FALSE), /* pcrel_offset */
296
297 /* A 16 bit relocation with overflow. */
298 HOWTO (R_TILEGX_HW2_LAST, /* type */
299 32, /* rightshift */
300 1, /* size (0 = byte, 1 = short, 2 = long) */
301 16, /* bitsize */
302 FALSE, /* pc_relative */
303 0, /* bitpos */
304 complain_overflow_signed,/* complain_on_overflow */
305 bfd_elf_generic_reloc, /* special_function */
306 "R_TILEGX_HW2_LAST", /* name */
307 FALSE, /* partial_inplace */
308 0, /* src_mask */
309 0xffff, /* dst_mask */
310 FALSE), /* pcrel_offset */
311
312 HOWTO (R_TILEGX_COPY, /* type */
313 0, /* rightshift */
314 0, /* size (0 = byte, 1 = short, 2 = long) */
315 0, /* bitsize */
316 FALSE, /* pc_relative */
317 0, /* bitpos */
318 complain_overflow_dont, /* complain_on_overflow */
319 bfd_elf_generic_reloc, /* special_function */
320 "R_TILEGX_COPY", /* name */
321 FALSE, /* partial_inplace */
322 0, /* src_mask */
323 0, /* dst_mask */
324 TRUE), /* pcrel_offset */
325
326 HOWTO (R_TILEGX_GLOB_DAT, /* type */
327 0, /* rightshift */
328 0, /* size (0 = byte, 1 = short, 2 = long) */
329 0, /* bitsize */
330 FALSE, /* pc_relative */
331 0, /* bitpos */
332 complain_overflow_dont, /* complain_on_overflow */
333 bfd_elf_generic_reloc, /* special_function */
334 "R_TILEGX_GLOB_DAT", /* name */
335 FALSE, /* partial_inplace */
336 0, /* src_mask */
337 0, /* dst_mask */
338 TRUE), /* pcrel_offset */
339
340 HOWTO (R_TILEGX_JMP_SLOT, /* type */
341 0, /* rightshift */
342 0, /* size (0 = byte, 1 = short, 2 = long) */
343 0, /* bitsize */
344 FALSE, /* pc_relative */
345 0, /* bitpos */
346 complain_overflow_dont, /* complain_on_overflow */
347 bfd_elf_generic_reloc, /* special_function */
348 "R_TILEGX_JMP_SLOT", /* name */
349 FALSE, /* partial_inplace */
350 0, /* src_mask */
351 0, /* dst_mask */
352 TRUE), /* pcrel_offset */
353
354 HOWTO (R_TILEGX_RELATIVE, /* type */
355 0, /* rightshift */
356 0, /* size (0 = byte, 1 = short, 2 = long) */
357 0, /* bitsize */
358 FALSE, /* pc_relative */
359 0, /* bitpos */
360 complain_overflow_dont, /* complain_on_overflow */
361 bfd_elf_generic_reloc, /* special_function */
362 "R_TILEGX_RELATIVE", /* name */
363 FALSE, /* partial_inplace */
364 0, /* src_mask */
365 0, /* dst_mask */
366 TRUE), /* pcrel_offset */
367
368 HOWTO (R_TILEGX_BROFF_X1, /* type */
369 TILEGX_LOG2_BUNDLE_ALIGNMENT_IN_BYTES, /* rightshift */
370 2, /* size (0 = byte, 1 = short, 2 = long) */
371 17, /* bitsize */
372 TRUE, /* pc_relative */
373 0, /* bitpos */
374 complain_overflow_signed, /* complain_on_overflow */
375 bfd_elf_generic_reloc, /* special_function */
376 "R_TILEGX_BROFF_X1", /* name */
377 FALSE, /* partial_inplace */
378 0, /* src_mask */
379 -1, /* dst_mask */
380 TRUE), /* pcrel_offset */
381
382 HOWTO (R_TILEGX_JUMPOFF_X1, /* type */
383 TILEGX_LOG2_BUNDLE_ALIGNMENT_IN_BYTES, /* rightshift */
384 2, /* size (0 = byte, 1 = short, 2 = long) */
385 27, /* bitsize */
386 TRUE, /* pc_relative */
387 0, /* bitpos */
388 complain_overflow_signed,/* complain_on_overflow */
389 bfd_elf_generic_reloc, /* special_function */
390 "R_TILEGX_JUMPOFF_X1", /* name */
391 FALSE, /* partial_inplace */
392 0, /* src_mask */
393 -1, /* dst_mask */
394 TRUE), /* pcrel_offset */
395
396 HOWTO (R_TILEGX_JUMPOFF_X1_PLT, /* type */
397 TILEGX_LOG2_BUNDLE_ALIGNMENT_IN_BYTES, /* rightshift */
398 2, /* size (0 = byte, 1 = short, 2 = long) */
399 27, /* bitsize */
400 TRUE, /* pc_relative */
401 0, /* bitpos */
402 complain_overflow_signed,/* complain_on_overflow */
403 bfd_elf_generic_reloc, /* special_function */
404 "R_TILEGX_JUMPOFF_X1_PLT", /* name */
405 FALSE, /* partial_inplace */
406 0, /* src_mask */
407 -1, /* dst_mask */
408 TRUE), /* pcrel_offset */
409
410 #define TILEGX_IMM_HOWTO(name, size, bitsize) \
411 HOWTO (name, 0, size, bitsize, FALSE, 0, \
412 complain_overflow_signed, bfd_elf_generic_reloc, \
413 #name, FALSE, 0, -1, FALSE)
414
415 #define TILEGX_UIMM_HOWTO(name, size, bitsize) \
416 HOWTO (name, 0, size, bitsize, FALSE, 0, \
417 complain_overflow_unsigned, bfd_elf_generic_reloc, \
418 #name, FALSE, 0, -1, FALSE)
419
420 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_X0, 0, 8),
421 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_Y0, 0, 8),
422 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_X1, 0, 8),
423 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_Y1, 0, 8),
424 TILEGX_IMM_HOWTO(R_TILEGX_DEST_IMM8_X1, 0, 8),
425
426 TILEGX_UIMM_HOWTO(R_TILEGX_MT_IMM14_X1, 1, 14),
427 TILEGX_UIMM_HOWTO(R_TILEGX_MF_IMM14_X1, 1, 14),
428
429 TILEGX_UIMM_HOWTO(R_TILEGX_MMSTART_X0, 0, 6),
430 TILEGX_UIMM_HOWTO(R_TILEGX_MMEND_X0, 0, 6),
431
432 TILEGX_UIMM_HOWTO(R_TILEGX_SHAMT_X0, 0, 6),
433 TILEGX_UIMM_HOWTO(R_TILEGX_SHAMT_X1, 0, 6),
434 TILEGX_UIMM_HOWTO(R_TILEGX_SHAMT_Y0, 0, 6),
435 TILEGX_UIMM_HOWTO(R_TILEGX_SHAMT_Y1, 0, 6),
436
437 #define TILEGX_IMM16_HOWTO(name, rshift) \
438 HOWTO (name, rshift, 1, 16, FALSE, 0, \
439 complain_overflow_dont, bfd_elf_generic_reloc, \
440 #name, FALSE, 0, 0xffff, FALSE)
441
442 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X0_HW0, 0),
443 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X1_HW0, 0),
444 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X0_HW1, 16),
445 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X1_HW1, 16),
446 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X0_HW2, 32),
447 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X1_HW2, 32),
448 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X0_HW3, 48),
449 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X1_HW3, 48),
450
451 #define TILEGX_IMM16_HOWTO_LAST(name, rshift) \
452 HOWTO (name, rshift, 1, 16, FALSE, 0, \
453 complain_overflow_signed, bfd_elf_generic_reloc, \
454 #name, FALSE, 0, 0xffff, FALSE)
455
456 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW0_LAST, 0),
457 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW0_LAST, 0),
458 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW1_LAST, 16),
459 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW1_LAST, 16),
460 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW2_LAST, 32),
461 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW2_LAST, 32),
462
463 /* PC-relative offsets. */
464
465 #define TILEGX_IMM16_HOWTO_PCREL(name, rshift) \
466 HOWTO (name, rshift, 1, 16, TRUE, 0, \
467 complain_overflow_dont, bfd_elf_generic_reloc, \
468 #name, FALSE, 0, 0xffff, TRUE)
469
470 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW0_PCREL, 0),
471 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW0_PCREL, 0),
472 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW1_PCREL, 16),
473 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW1_PCREL, 16),
474 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW2_PCREL, 32),
475 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW2_PCREL, 32),
476 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW3_PCREL, 48),
477 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW3_PCREL, 48),
478
479 #define TILEGX_IMM16_HOWTO_LAST_PCREL(name, rshift) \
480 HOWTO (name, rshift, 1, 16, TRUE, 0, \
481 complain_overflow_signed, bfd_elf_generic_reloc, \
482 #name, FALSE, 0, 0xffff, TRUE)
483
484 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X0_HW0_LAST_PCREL, 0),
485 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X1_HW0_LAST_PCREL, 0),
486 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X0_HW1_LAST_PCREL, 16),
487 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X1_HW1_LAST_PCREL, 16),
488 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X0_HW2_LAST_PCREL, 32),
489 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X1_HW2_LAST_PCREL, 32),
490
491 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X0_HW0_GOT, 0),
492 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X1_HW0_GOT, 0),
493
494 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW0_PLT_PCREL, 0),
495 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW0_PLT_PCREL, 0),
496 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW1_PLT_PCREL, 16),
497 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW1_PLT_PCREL, 16),
498 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW2_PLT_PCREL, 32),
499 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW2_PLT_PCREL, 32),
500
501 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW0_LAST_GOT, 0),
502 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW0_LAST_GOT, 0),
503 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW1_LAST_GOT, 16),
504 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW1_LAST_GOT, 16),
505
506 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X0_HW3_PLT_PCREL, 48),
507 TILEGX_IMM16_HOWTO_PCREL (R_TILEGX_IMM16_X1_HW3_PLT_PCREL, 48),
508
509 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X0_HW0_TLS_GD, 0),
510 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X1_HW0_TLS_GD, 0),
511
512 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X0_HW0_TLS_LE, 0),
513 TILEGX_IMM16_HOWTO (R_TILEGX_IMM16_X1_HW0_TLS_LE, 0),
514 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW0_LAST_TLS_LE, 0),
515 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW0_LAST_TLS_LE, 0),
516 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW1_LAST_TLS_LE, 16),
517 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW1_LAST_TLS_LE, 16),
518
519 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW0_LAST_TLS_GD, 0),
520 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW0_LAST_TLS_GD, 0),
521 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X0_HW1_LAST_TLS_GD, 16),
522 TILEGX_IMM16_HOWTO_LAST (R_TILEGX_IMM16_X1_HW1_LAST_TLS_GD, 16),
523 EMPTY_HOWTO (90),
524 EMPTY_HOWTO (91),
525
526 #define TILEGX_IMM16_HOWTO_TLS_IE(name, rshift) \
527 HOWTO (name, rshift, 1, 16, FALSE, 0, \
528 complain_overflow_dont, bfd_elf_generic_reloc, \
529 #name, FALSE, 0, 0xffff, TRUE)
530
531 TILEGX_IMM16_HOWTO_TLS_IE (R_TILEGX_IMM16_X0_HW0_TLS_IE, 0),
532 TILEGX_IMM16_HOWTO_TLS_IE (R_TILEGX_IMM16_X1_HW0_TLS_IE, 0),
533
534 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X0_HW0_LAST_PLT_PCREL, 0),
535 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X1_HW0_LAST_PLT_PCREL, 0),
536 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X0_HW1_LAST_PLT_PCREL, 16),
537 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X1_HW1_LAST_PLT_PCREL, 16),
538 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X0_HW2_LAST_PLT_PCREL, 32),
539 TILEGX_IMM16_HOWTO_LAST_PCREL (R_TILEGX_IMM16_X1_HW2_LAST_PLT_PCREL, 32),
540
541 #define TILEGX_IMM16_HOWTO_LAST_TLS_IE(name, rshift) \
542 HOWTO (name, rshift, 1, 16, FALSE, 0, \
543 complain_overflow_signed, bfd_elf_generic_reloc, \
544 #name, FALSE, 0, 0xffff, TRUE)
545
546 TILEGX_IMM16_HOWTO_LAST_TLS_IE (R_TILEGX_IMM16_X0_HW0_LAST_TLS_IE, 0),
547 TILEGX_IMM16_HOWTO_LAST_TLS_IE (R_TILEGX_IMM16_X1_HW0_LAST_TLS_IE, 0),
548 TILEGX_IMM16_HOWTO_LAST_TLS_IE (R_TILEGX_IMM16_X0_HW1_LAST_TLS_IE, 16),
549 TILEGX_IMM16_HOWTO_LAST_TLS_IE (R_TILEGX_IMM16_X1_HW1_LAST_TLS_IE, 16),
550 EMPTY_HOWTO (104),
551 EMPTY_HOWTO (105),
552
553 HOWTO(R_TILEGX_TLS_DTPMOD64, 0, 0, 0, FALSE, 0, complain_overflow_dont,
554 bfd_elf_generic_reloc, "R_TILEGX_TLS_DTPMOD64",
555 FALSE, 0, 0, TRUE),
556 HOWTO(R_TILEGX_TLS_DTPOFF64, 0, 4, 64, FALSE, 0, complain_overflow_bitfield,
557 bfd_elf_generic_reloc, "R_TILEGX_TLS_DTPOFF64",
558 FALSE, 0, -1, TRUE),
559 HOWTO(R_TILEGX_TLS_TPOFF64, 0, 0, 0, FALSE, 0, complain_overflow_dont,
560 bfd_elf_generic_reloc, "R_TILEGX_TLS_TPOFF64",
561 FALSE, 0, 0, TRUE),
562
563 HOWTO(R_TILEGX_TLS_DTPMOD32, 0, 0, 0, FALSE, 0, complain_overflow_dont,
564 bfd_elf_generic_reloc, "R_TILEGX_TLS_DTPMOD32",
565 FALSE, 0, 0, TRUE),
566 HOWTO(R_TILEGX_TLS_DTPOFF32, 0, 4, 32, FALSE, 0, complain_overflow_bitfield,
567 bfd_elf_generic_reloc, "R_TILEGX_TLS_DTPOFF32",
568 FALSE, 0, -1, TRUE),
569 HOWTO(R_TILEGX_TLS_TPOFF32, 0, 0, 0, FALSE, 0, complain_overflow_dont,
570 bfd_elf_generic_reloc, "R_TILEGX_TLS_TPOFF32",
571 FALSE, 0, 0, TRUE),
572
573 HOWTO (R_TILEGX_TLS_GD_CALL, /* type */
574 TILEGX_LOG2_BUNDLE_ALIGNMENT_IN_BYTES, /* rightshift */
575 2, /* size (0 = byte, 1 = short, 2 = long) */
576 27, /* bitsize */
577 TRUE, /* pc_relative */
578 0, /* bitpos */
579 complain_overflow_signed,/* complain_on_overflow */
580 bfd_elf_generic_reloc, /* special_function */
581 "R_TILEGX_TLS_GD_CALL", /* name */
582 FALSE, /* partial_inplace */
583 0, /* src_mask */
584 -1, /* dst_mask */
585 TRUE), /* pcrel_offset */
586
587 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_X0_TLS_GD_ADD, 0, 8),
588 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_X1_TLS_GD_ADD, 0, 8),
589 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_Y0_TLS_GD_ADD, 0, 8),
590 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_Y1_TLS_GD_ADD, 0, 8),
591 TILEGX_IMM_HOWTO(R_TILEGX_TLS_IE_LOAD, 0, 8),
592 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_X0_TLS_ADD, 0, 8),
593 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_X1_TLS_ADD, 0, 8),
594 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_Y0_TLS_ADD, 0, 8),
595 TILEGX_IMM_HOWTO(R_TILEGX_IMM8_Y1_TLS_ADD, 0, 8),
596 };
597
598 static reloc_howto_type tilegx_elf_howto_table2 [] =
599 {
600 /* GNU extension to record C++ vtable hierarchy */
601 HOWTO (R_TILEGX_GNU_VTINHERIT, /* type */
602 0, /* rightshift */
603 4, /* size (0 = byte, 1 = short, 2 = long) */
604 0, /* bitsize */
605 FALSE, /* pc_relative */
606 0, /* bitpos */
607 complain_overflow_dont, /* complain_on_overflow */
608 NULL, /* special_function */
609 "R_TILEGX_GNU_VTINHERIT", /* name */
610 FALSE, /* partial_inplace */
611 0, /* src_mask */
612 0, /* dst_mask */
613 FALSE), /* pcrel_offset */
614
615 /* GNU extension to record C++ vtable member usage */
616 HOWTO (R_TILEGX_GNU_VTENTRY, /* type */
617 0, /* rightshift */
618 4, /* size (0 = byte, 1 = short, 2 = long) */
619 0, /* bitsize */
620 FALSE, /* pc_relative */
621 0, /* bitpos */
622 complain_overflow_dont, /* complain_on_overflow */
623 _bfd_elf_rel_vtable_reloc_fn, /* special_function */
624 "R_TILEGX_GNU_VTENTRY", /* name */
625 FALSE, /* partial_inplace */
626 0, /* src_mask */
627 0, /* dst_mask */
628 FALSE), /* pcrel_offset */
629
630 };
631 \f
632 /* Map BFD reloc types to TILEGX ELF reloc types. */
633
634 typedef struct tilegx_reloc_map
635 {
636 bfd_reloc_code_real_type bfd_reloc_val;
637 unsigned int tilegx_reloc_val;
638 reloc_howto_type * table;
639 } reloc_map;
640
641 static const reloc_map tilegx_reloc_map [] =
642 {
643 #define TH_REMAP(bfd, tilegx) \
644 { bfd, tilegx, tilegx_elf_howto_table },
645
646 /* Standard relocations. */
647 TH_REMAP (BFD_RELOC_NONE, R_TILEGX_NONE)
648 TH_REMAP (BFD_RELOC_64, R_TILEGX_64)
649 TH_REMAP (BFD_RELOC_32, R_TILEGX_32)
650 TH_REMAP (BFD_RELOC_16, R_TILEGX_16)
651 TH_REMAP (BFD_RELOC_8, R_TILEGX_8)
652 TH_REMAP (BFD_RELOC_64_PCREL, R_TILEGX_64_PCREL)
653 TH_REMAP (BFD_RELOC_32_PCREL, R_TILEGX_32_PCREL)
654 TH_REMAP (BFD_RELOC_16_PCREL, R_TILEGX_16_PCREL)
655 TH_REMAP (BFD_RELOC_8_PCREL, R_TILEGX_8_PCREL)
656
657 #define SIMPLE_REMAP(t) TH_REMAP (BFD_RELOC_##t, R_##t)
658
659 /* Custom relocations. */
660 SIMPLE_REMAP (TILEGX_HW0)
661 SIMPLE_REMAP (TILEGX_HW1)
662 SIMPLE_REMAP (TILEGX_HW2)
663 SIMPLE_REMAP (TILEGX_HW3)
664 SIMPLE_REMAP (TILEGX_HW0_LAST)
665 SIMPLE_REMAP (TILEGX_HW1_LAST)
666 SIMPLE_REMAP (TILEGX_HW2_LAST)
667 SIMPLE_REMAP (TILEGX_COPY)
668 SIMPLE_REMAP (TILEGX_GLOB_DAT)
669 SIMPLE_REMAP (TILEGX_JMP_SLOT)
670 SIMPLE_REMAP (TILEGX_RELATIVE)
671 SIMPLE_REMAP (TILEGX_BROFF_X1)
672 SIMPLE_REMAP (TILEGX_JUMPOFF_X1)
673 SIMPLE_REMAP (TILEGX_JUMPOFF_X1_PLT)
674 SIMPLE_REMAP (TILEGX_IMM8_X0)
675 SIMPLE_REMAP (TILEGX_IMM8_Y0)
676 SIMPLE_REMAP (TILEGX_IMM8_X1)
677 SIMPLE_REMAP (TILEGX_IMM8_Y1)
678 SIMPLE_REMAP (TILEGX_DEST_IMM8_X1)
679 SIMPLE_REMAP (TILEGX_MT_IMM14_X1)
680 SIMPLE_REMAP (TILEGX_MF_IMM14_X1)
681 SIMPLE_REMAP (TILEGX_MMSTART_X0)
682 SIMPLE_REMAP (TILEGX_MMEND_X0)
683 SIMPLE_REMAP (TILEGX_SHAMT_X0)
684 SIMPLE_REMAP (TILEGX_SHAMT_X1)
685 SIMPLE_REMAP (TILEGX_SHAMT_Y0)
686 SIMPLE_REMAP (TILEGX_SHAMT_Y1)
687 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0)
688 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0)
689 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1)
690 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1)
691 SIMPLE_REMAP (TILEGX_IMM16_X0_HW2)
692 SIMPLE_REMAP (TILEGX_IMM16_X1_HW2)
693 SIMPLE_REMAP (TILEGX_IMM16_X0_HW3)
694 SIMPLE_REMAP (TILEGX_IMM16_X1_HW3)
695 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_LAST)
696 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_LAST)
697 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_LAST)
698 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_LAST)
699 SIMPLE_REMAP (TILEGX_IMM16_X0_HW2_LAST)
700 SIMPLE_REMAP (TILEGX_IMM16_X1_HW2_LAST)
701 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_PCREL)
702 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_PCREL)
703 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_PCREL)
704 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_PCREL)
705 SIMPLE_REMAP (TILEGX_IMM16_X0_HW2_PCREL)
706 SIMPLE_REMAP (TILEGX_IMM16_X1_HW2_PCREL)
707 SIMPLE_REMAP (TILEGX_IMM16_X0_HW3_PCREL)
708 SIMPLE_REMAP (TILEGX_IMM16_X1_HW3_PCREL)
709 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_LAST_PCREL)
710 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_LAST_PCREL)
711 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_LAST_PCREL)
712 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_LAST_PCREL)
713 SIMPLE_REMAP (TILEGX_IMM16_X0_HW2_LAST_PCREL)
714 SIMPLE_REMAP (TILEGX_IMM16_X1_HW2_LAST_PCREL)
715 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_GOT)
716 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_GOT)
717 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_PLT_PCREL)
718 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_PLT_PCREL)
719 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_PLT_PCREL)
720 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_PLT_PCREL)
721 SIMPLE_REMAP (TILEGX_IMM16_X0_HW2_PLT_PCREL)
722 SIMPLE_REMAP (TILEGX_IMM16_X1_HW2_PLT_PCREL)
723 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_LAST_GOT)
724 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_LAST_GOT)
725 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_LAST_GOT)
726 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_LAST_GOT)
727 SIMPLE_REMAP (TILEGX_IMM16_X0_HW3_PLT_PCREL)
728 SIMPLE_REMAP (TILEGX_IMM16_X1_HW3_PLT_PCREL)
729 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_TLS_GD)
730 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_TLS_GD)
731 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_TLS_LE)
732 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_TLS_LE)
733 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_LAST_TLS_LE)
734 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_LAST_TLS_LE)
735 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_LAST_TLS_LE)
736 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_LAST_TLS_LE)
737 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_LAST_TLS_GD)
738 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_LAST_TLS_GD)
739 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_LAST_TLS_GD)
740 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_LAST_TLS_GD)
741 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_TLS_IE)
742 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_TLS_IE)
743 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_LAST_PLT_PCREL)
744 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_LAST_PLT_PCREL)
745 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_LAST_PLT_PCREL)
746 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_LAST_PLT_PCREL)
747 SIMPLE_REMAP (TILEGX_IMM16_X0_HW2_LAST_PLT_PCREL)
748 SIMPLE_REMAP (TILEGX_IMM16_X1_HW2_LAST_PLT_PCREL)
749 SIMPLE_REMAP (TILEGX_IMM16_X0_HW0_LAST_TLS_IE)
750 SIMPLE_REMAP (TILEGX_IMM16_X1_HW0_LAST_TLS_IE)
751 SIMPLE_REMAP (TILEGX_IMM16_X0_HW1_LAST_TLS_IE)
752 SIMPLE_REMAP (TILEGX_IMM16_X1_HW1_LAST_TLS_IE)
753
754 SIMPLE_REMAP (TILEGX_TLS_DTPMOD64)
755 SIMPLE_REMAP (TILEGX_TLS_DTPOFF64)
756 SIMPLE_REMAP (TILEGX_TLS_TPOFF64)
757
758 SIMPLE_REMAP (TILEGX_TLS_DTPMOD32)
759 SIMPLE_REMAP (TILEGX_TLS_DTPOFF32)
760 SIMPLE_REMAP (TILEGX_TLS_TPOFF32)
761
762 SIMPLE_REMAP (TILEGX_TLS_GD_CALL)
763 SIMPLE_REMAP (TILEGX_IMM8_X0_TLS_GD_ADD)
764 SIMPLE_REMAP (TILEGX_IMM8_X1_TLS_GD_ADD)
765 SIMPLE_REMAP (TILEGX_IMM8_Y0_TLS_GD_ADD)
766 SIMPLE_REMAP (TILEGX_IMM8_Y1_TLS_GD_ADD)
767 SIMPLE_REMAP (TILEGX_TLS_IE_LOAD)
768 SIMPLE_REMAP (TILEGX_IMM8_X0_TLS_ADD)
769 SIMPLE_REMAP (TILEGX_IMM8_X1_TLS_ADD)
770 SIMPLE_REMAP (TILEGX_IMM8_Y0_TLS_ADD)
771 SIMPLE_REMAP (TILEGX_IMM8_Y1_TLS_ADD)
772
773 #undef SIMPLE_REMAP
774 #undef TH_REMAP
775
776 { BFD_RELOC_VTABLE_INHERIT, R_TILEGX_GNU_VTINHERIT, tilegx_elf_howto_table2 },
777 { BFD_RELOC_VTABLE_ENTRY, R_TILEGX_GNU_VTENTRY, tilegx_elf_howto_table2 },
778 };
779
780
781
782 /* TILEGX ELF linker hash entry. */
783
784 struct tilegx_elf_link_hash_entry
785 {
786 struct elf_link_hash_entry elf;
787
788 #define GOT_UNKNOWN 0
789 #define GOT_NORMAL 1
790 #define GOT_TLS_GD 2
791 #define GOT_TLS_IE 4
792 unsigned char tls_type;
793 };
794
795 #define tilegx_elf_hash_entry(ent) \
796 ((struct tilegx_elf_link_hash_entry *)(ent))
797
798 struct _bfd_tilegx_elf_obj_tdata
799 {
800 struct elf_obj_tdata root;
801
802 /* tls_type for each local got entry. */
803 char *local_got_tls_type;
804 };
805
806 #define _bfd_tilegx_elf_tdata(abfd) \
807 ((struct _bfd_tilegx_elf_obj_tdata *) (abfd)->tdata.any)
808
809 #define _bfd_tilegx_elf_local_got_tls_type(abfd) \
810 (_bfd_tilegx_elf_tdata (abfd)->local_got_tls_type)
811
812 #define is_tilegx_elf(bfd) \
813 (bfd_get_flavour (bfd) == bfd_target_elf_flavour \
814 && elf_tdata (bfd) != NULL \
815 && elf_object_id (bfd) == TILEGX_ELF_DATA)
816
817 #include "elf/common.h"
818 #include "elf/internal.h"
819
820 struct tilegx_elf_link_hash_table
821 {
822 struct elf_link_hash_table elf;
823
824 int bytes_per_word;
825 int word_align_power;
826 int bytes_per_rela;
827 int dtpmod_reloc;
828 int dtpoff_reloc;
829 int tpoff_reloc;
830 bfd_vma (*r_info) (Elf_Internal_Rela *, bfd_vma, bfd_vma);
831 bfd_vma (*r_symndx) (bfd_vma);
832 void (*put_word) (bfd *, bfd_vma, void *);
833 const char *dynamic_interpreter;
834
835 /* Whether LE transition has been disabled for some of the
836 sections. */
837 bfd_boolean disable_le_transition;
838
839 /* Small local sym to section mapping cache. */
840 struct sym_cache sym_cache;
841 };
842
843
844 /* Get the Tile ELF linker hash table from a link_info structure. */
845 #define tilegx_elf_hash_table(p) \
846 (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
847 == TILEGX_ELF_DATA ? ((struct tilegx_elf_link_hash_table *) ((p)->hash)) : NULL)
848
849 #ifdef BFD64
850 static bfd_vma
851 tilegx_elf_r_info_64 (Elf_Internal_Rela *in_rel ATTRIBUTE_UNUSED,
852 bfd_vma rel_index,
853 bfd_vma type)
854 {
855 return ELF64_R_INFO (rel_index, type);
856 }
857
858 static bfd_vma
859 tilegx_elf_r_symndx_64 (bfd_vma r_info)
860 {
861 return ELF64_R_SYM (r_info);
862 }
863
864 static void
865 tilegx_put_word_64 (bfd *abfd, bfd_vma val, void *ptr)
866 {
867 bfd_put_64 (abfd, val, ptr);
868 }
869 #endif /* BFD64 */
870
871 static bfd_vma
872 tilegx_elf_r_info_32 (Elf_Internal_Rela *in_rel ATTRIBUTE_UNUSED,
873 bfd_vma rel_index,
874 bfd_vma type)
875 {
876 return ELF32_R_INFO (rel_index, type);
877 }
878
879 static bfd_vma
880 tilegx_elf_r_symndx_32 (bfd_vma r_info)
881 {
882 return ELF32_R_SYM (r_info);
883 }
884
885 static void
886 tilegx_put_word_32 (bfd *abfd, bfd_vma val, void *ptr)
887 {
888 bfd_put_32 (abfd, val, ptr);
889 }
890
891 reloc_howto_type *
892 tilegx_reloc_type_lookup (bfd * abfd,
893 bfd_reloc_code_real_type code)
894 {
895 unsigned int i;
896
897 for (i = ARRAY_SIZE (tilegx_reloc_map); i--;)
898 {
899 const reloc_map * entry;
900
901 entry = tilegx_reloc_map + i;
902
903 if (entry->bfd_reloc_val == code)
904 return entry->table + (entry->tilegx_reloc_val
905 - entry->table[0].type);
906 }
907
908 /* xgettext:c-format */
909 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
910 abfd, (int) code);
911 bfd_set_error (bfd_error_bad_value);
912 return NULL;
913 }
914
915 reloc_howto_type *
916 tilegx_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
917 const char *r_name)
918 {
919 unsigned int i;
920
921 for (i = 0;
922 i < (sizeof (tilegx_elf_howto_table)
923 / sizeof (tilegx_elf_howto_table[0]));
924 i++)
925 if (tilegx_elf_howto_table[i].name != NULL
926 && strcasecmp (tilegx_elf_howto_table[i].name, r_name) == 0)
927 return &tilegx_elf_howto_table[i];
928
929 return NULL;
930 }
931
932 bfd_boolean
933 tilegx_info_to_howto_rela (bfd *abfd ATTRIBUTE_UNUSED,
934 arelent *cache_ptr,
935 Elf_Internal_Rela *dst)
936 {
937 unsigned int r_type = TILEGX_ELF_R_TYPE (dst->r_info);
938
939 if (r_type <= (unsigned int) R_TILEGX_IMM8_Y1_TLS_ADD)
940 cache_ptr->howto = &tilegx_elf_howto_table [r_type];
941 else if (r_type - R_TILEGX_GNU_VTINHERIT
942 <= ((unsigned int) R_TILEGX_GNU_VTENTRY
943 - (unsigned int) R_TILEGX_GNU_VTINHERIT))
944 cache_ptr->howto
945 = &tilegx_elf_howto_table2 [r_type - R_TILEGX_GNU_VTINHERIT];
946 else
947 {
948 /* xgettext:c-format */
949 _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
950 abfd, r_type);
951 bfd_set_error (bfd_error_bad_value);
952 return FALSE;
953 }
954 return TRUE;
955 }
956
957 typedef tilegx_bundle_bits (*tilegx_create_func)(int);
958
959 static const tilegx_create_func reloc_to_create_func[] =
960 {
961 /* The first twenty relocation types don't correspond to operands */
962 NULL,
963 NULL,
964 NULL,
965 NULL,
966 NULL,
967 NULL,
968 NULL,
969 NULL,
970 NULL,
971 NULL,
972 NULL,
973 NULL,
974 NULL,
975 NULL,
976 NULL,
977 NULL,
978 NULL,
979 NULL,
980 NULL,
981 NULL,
982
983 /* The remaining relocations are used for immediate operands */
984 create_BrOff_X1,
985 create_JumpOff_X1,
986 create_JumpOff_X1,
987 create_Imm8_X0,
988 create_Imm8_Y0,
989 create_Imm8_X1,
990 create_Imm8_Y1,
991 create_Dest_Imm8_X1,
992 create_MT_Imm14_X1,
993 create_MF_Imm14_X1,
994 create_BFStart_X0,
995 create_BFEnd_X0,
996 create_ShAmt_X0,
997 create_ShAmt_X1,
998 create_ShAmt_Y0,
999 create_ShAmt_Y1,
1000 create_Imm16_X0,
1001 create_Imm16_X1,
1002 create_Imm16_X0,
1003 create_Imm16_X1,
1004 create_Imm16_X0,
1005 create_Imm16_X1,
1006 create_Imm16_X0,
1007 create_Imm16_X1,
1008 create_Imm16_X0,
1009 create_Imm16_X1,
1010 create_Imm16_X0,
1011 create_Imm16_X1,
1012 create_Imm16_X0,
1013 create_Imm16_X1,
1014 create_Imm16_X0,
1015 create_Imm16_X1,
1016 create_Imm16_X0,
1017 create_Imm16_X1,
1018 create_Imm16_X0,
1019 create_Imm16_X1,
1020 create_Imm16_X0,
1021 create_Imm16_X1,
1022 create_Imm16_X0,
1023 create_Imm16_X1,
1024 create_Imm16_X0,
1025 create_Imm16_X1,
1026 create_Imm16_X0,
1027 create_Imm16_X1,
1028 create_Imm16_X0,
1029 create_Imm16_X1,
1030 create_Imm16_X0,
1031 create_Imm16_X1,
1032 create_Imm16_X0,
1033 create_Imm16_X1,
1034 create_Imm16_X0,
1035 create_Imm16_X1,
1036 create_Imm16_X0,
1037 create_Imm16_X1,
1038 create_Imm16_X0,
1039 create_Imm16_X1,
1040 create_Imm16_X0,
1041 create_Imm16_X1,
1042 create_Imm16_X0,
1043 create_Imm16_X1,
1044 create_Imm16_X0,
1045 create_Imm16_X1,
1046 create_Imm16_X0,
1047 create_Imm16_X1,
1048 create_Imm16_X0,
1049 create_Imm16_X1,
1050 create_Imm16_X0,
1051 create_Imm16_X1,
1052 create_Imm16_X0,
1053 create_Imm16_X1,
1054 NULL,
1055 NULL,
1056 create_Imm16_X0,
1057 create_Imm16_X1,
1058 create_Imm16_X0,
1059 create_Imm16_X1,
1060 create_Imm16_X0,
1061 create_Imm16_X1,
1062 create_Imm16_X0,
1063 create_Imm16_X1,
1064 create_Imm16_X0,
1065 create_Imm16_X1,
1066 create_Imm16_X0,
1067 create_Imm16_X1,
1068 };
1069
1070 static void
1071 tilegx_elf_append_rela (bfd *abfd, asection *s, Elf_Internal_Rela *rel)
1072 {
1073 const struct elf_backend_data *bed;
1074 bfd_byte *loc;
1075
1076 bed = get_elf_backend_data (abfd);
1077 loc = s->contents + (s->reloc_count++ * bed->s->sizeof_rela);
1078 bed->s->swap_reloca_out (abfd, rel, loc);
1079 }
1080
1081 /* PLT/GOT stuff */
1082
1083 /* The procedure linkage table starts with the following header:
1084
1085 ld_add r28, r27, 8
1086 ld r27, r27
1087 {
1088 jr r27
1089 info 10 ## SP not offset, return PC in LR
1090 }
1091
1092 Subsequent entries are the following, jumping to the header at the end:
1093
1094 {
1095 moveli r28, <_GLOBAL_OFFSET_TABLE_ - 1f + MY_GOT_OFFSET>
1096 lnk r26
1097 }
1098 1:
1099 {
1100 moveli r27, <_GLOBAL_OFFSET_TABLE_ - 1b>
1101 shl16insli r28, r28, <_GLOBAL_OFFSET_TABLE_ - 1b + MY_GOT_OFFSET>
1102 }
1103 {
1104 add r28, r26, r28
1105 shl16insli r27, r27, <_GLOBAL_OFFSET_TABLE_ - 1b>
1106 }
1107 {
1108 add r27, r26, r27
1109 ld r28, r28
1110 info 10 ## SP not offset, return PC in LR
1111 }
1112 {
1113 shl16insli r29, zero, MY_PLT_INDEX
1114 jr r28
1115 }
1116
1117 This code sequence lets the code at at the start of the PLT determine
1118 which PLT entry was executed by examining 'r29'.
1119
1120 Note that MY_PLT_INDEX skips over the header entries, so the first
1121 actual jump table entry has index zero.
1122
1123 If the offset fits in 16 bits,
1124
1125 lnk r26
1126 1:
1127 {
1128 addli r28, r26, <_GLOBAL_OFFSET_TABLE_ - 1b + MY_GOT_OFFSET>
1129 moveli r27, <_GLOBAL_OFFSET_TABLE_ - 1b>
1130 }
1131 {
1132 shl16insli r29, zero, MY_PLT_INDEX
1133 ld r28, r28
1134 }
1135 {
1136 add r27, r26, r27
1137 jr r28
1138 }
1139 info 10 ## SP not offset, return PC in LR
1140
1141 For the purpose of backtracing, the procedure linkage table ends with the
1142 following tail entry:
1143
1144 info 10 ## SP not offset, return PC in LR
1145
1146 The 32-bit versions are similar, with ld4s replacing ld, and offsets into
1147 the GOT being multiples of 4 instead of 8.
1148
1149 */
1150
1151 #define PLT_HEADER_SIZE_IN_BUNDLES 3
1152 #define PLT_ENTRY_SIZE_IN_BUNDLES 5
1153 #define PLT_TAIL_SIZE_IN_BUNDLES 1
1154
1155 #define PLT_HEADER_SIZE \
1156 (PLT_HEADER_SIZE_IN_BUNDLES * TILEGX_BUNDLE_SIZE_IN_BYTES)
1157 #define PLT_ENTRY_SIZE \
1158 (PLT_ENTRY_SIZE_IN_BUNDLES * TILEGX_BUNDLE_SIZE_IN_BYTES)
1159 #define PLT_TAIL_SIZE \
1160 (PLT_TAIL_SIZE_IN_BUNDLES * TILEGX_BUNDLE_SIZE_IN_BYTES)
1161
1162 #define GOT_ENTRY_SIZE(htab) TILEGX_ELF_WORD_BYTES (htab)
1163
1164 #define GOTPLT_HEADER_SIZE(htab) (2 * GOT_ENTRY_SIZE (htab))
1165
1166 static const bfd_byte
1167 tilegx64_plt0_entry[PLT_HEADER_SIZE] =
1168 {
1169 0x00, 0x30, 0x48, 0x51,
1170 0x6e, 0x43, 0xa0, 0x18, /* { ld_add r28, r27, 8 } */
1171 0x00, 0x30, 0xbc, 0x35,
1172 0x00, 0x40, 0xde, 0x9e, /* { ld r27, r27 } */
1173 0xff, 0xaf, 0x30, 0x40,
1174 0x60, 0x73, 0x6a, 0x28, /* { info 10 ; jr r27 } */
1175 };
1176
1177 static const bfd_byte
1178 tilegx64_long_plt_entry[PLT_ENTRY_SIZE] =
1179 {
1180 0xdc, 0x0f, 0x00, 0x10,
1181 0x0d, 0xf0, 0x6a, 0x28, /* { moveli r28, 0 ; lnk r26 } */
1182 0xdb, 0x0f, 0x00, 0x10,
1183 0x8e, 0x03, 0x00, 0x38, /* { moveli r27, 0 ; shl16insli r28, r28, 0 } */
1184 0x9c, 0xc6, 0x0d, 0xd0,
1185 0x6d, 0x03, 0x00, 0x38, /* { add r28, r26, r28 ; shl16insli r27, r27, 0 } */
1186 0x9b, 0xb6, 0xc5, 0xad,
1187 0xff, 0x57, 0xe0, 0x8e, /* { add r27, r26, r27 ; info 10 ; ld r28, r28 } */
1188 0xdd, 0x0f, 0x00, 0x70,
1189 0x80, 0x73, 0x6a, 0x28, /* { shl16insli r29, zero, 0 ; jr r28 } */
1190 };
1191
1192 static const bfd_byte
1193 tilegx64_short_plt_entry[PLT_ENTRY_SIZE] =
1194 {
1195 0x00, 0x30, 0x48, 0x51,
1196 0x0d, 0xf0, 0x6a, 0x28, /* { lnk r26 } */
1197 0x9c, 0x06, 0x00, 0x90,
1198 0xed, 0x07, 0x00, 0x00, /* { addli r28, r26, 0 ; moveli r27, 0 } */
1199 0xdd, 0x0f, 0x00, 0x70,
1200 0x8e, 0xeb, 0x6a, 0x28, /* { shl16insli r29, zero, 0 ; ld r28, r28 } */
1201 0x9b, 0xb6, 0x0d, 0x50,
1202 0x80, 0x73, 0x6a, 0x28, /* { add r27, r26, r27 ; jr r28 } */
1203 0x00, 0x30, 0x48, 0xd1,
1204 0xff, 0x57, 0x18, 0x18, /* { info 10 } */
1205 };
1206
1207 /* Reuse an existing info 10 bundle. */
1208 static const bfd_byte *const tilegx64_plt_tail_entry =
1209 &tilegx64_short_plt_entry[4 * TILEGX_BUNDLE_SIZE_IN_BYTES];
1210
1211 static const bfd_byte
1212 tilegx32_plt0_entry[PLT_HEADER_SIZE] =
1213 {
1214 0x00, 0x30, 0x48, 0x51,
1215 0x6e, 0x23, 0x58, 0x18, /* { ld4s_add r28, r27, 4 } */
1216 0x00, 0x30, 0xbc, 0x35,
1217 0x00, 0x40, 0xde, 0x9c, /* { ld4s r27, r27 } */
1218 0xff, 0xaf, 0x30, 0x40,
1219 0x60, 0x73, 0x6a, 0x28, /* { info 10 ; jr r27 } */
1220 };
1221
1222 static const bfd_byte
1223 tilegx32_long_plt_entry[PLT_ENTRY_SIZE] =
1224 {
1225 0xdc, 0x0f, 0x00, 0x10,
1226 0x0d, 0xf0, 0x6a, 0x28, /* { moveli r28, 0 ; lnk r26 } */
1227 0xdb, 0x0f, 0x00, 0x10,
1228 0x8e, 0x03, 0x00, 0x38, /* { moveli r27, 0 ; shl16insli r28, r28, 0 } */
1229 0x9c, 0xc6, 0x0d, 0xd0,
1230 0x6d, 0x03, 0x00, 0x38, /* { add r28, r26, r28 ; shl16insli r27, r27, 0 } */
1231 0x9b, 0xb6, 0xc5, 0xad,
1232 0xff, 0x57, 0xe0, 0x8c, /* { add r27, r26, r27 ; info 10 ; ld4s r28, r28 } */
1233 0xdd, 0x0f, 0x00, 0x70,
1234 0x80, 0x73, 0x6a, 0x28, /* { shl16insli r29, zero, 0 ; jr r28 } */
1235 };
1236
1237 static const bfd_byte
1238 tilegx32_short_plt_entry[PLT_ENTRY_SIZE] =
1239 {
1240 0x00, 0x30, 0x48, 0x51,
1241 0x0d, 0xf0, 0x6a, 0x28, /* { lnk r26 } */
1242 0x9c, 0x06, 0x00, 0x90,
1243 0xed, 0x07, 0x00, 0x00, /* { addli r28, r26, 0 ; moveli r27, 0 } */
1244 0xdd, 0x0f, 0x00, 0x70,
1245 0x8e, 0x9b, 0x6a, 0x28, /* { shl16insli r29, zero, 0 ; ld4s r28, r28 } */
1246 0x9b, 0xb6, 0x0d, 0x50,
1247 0x80, 0x73, 0x6a, 0x28, /* { add r27, r26, r27 ; jr r28 } */
1248 0x00, 0x30, 0x48, 0xd1,
1249 0xff, 0x57, 0x18, 0x18, /* { info 10 } */
1250 };
1251
1252 /* Reuse an existing info 10 bundle. */
1253 static const bfd_byte *const tilegx32_plt_tail_entry =
1254 &tilegx64_short_plt_entry[4 * TILEGX_BUNDLE_SIZE_IN_BYTES];
1255
1256 static int
1257 tilegx_plt_entry_build (bfd *output_bfd,
1258 struct tilegx_elf_link_hash_table *htab,
1259 asection *splt, asection *sgotplt,
1260 bfd_vma offset, bfd_vma *r_offset)
1261 {
1262 int plt_index = (offset - PLT_HEADER_SIZE) / PLT_ENTRY_SIZE;
1263 int got_offset = (plt_index * GOT_ENTRY_SIZE (htab)
1264 + GOTPLT_HEADER_SIZE (htab));
1265 tilegx_bundle_bits *pc;
1266
1267 /* Compute the distance from the got entry to the lnk. */
1268 bfd_signed_vma dist_got_entry = sgotplt->output_section->vma
1269 + sgotplt->output_offset
1270 + got_offset
1271 - splt->output_section->vma
1272 - splt->output_offset
1273 - offset
1274 - TILEGX_BUNDLE_SIZE_IN_BYTES;
1275
1276 /* Compute the distance to GOTPLT[0]. */
1277 bfd_signed_vma dist_got0 = dist_got_entry - got_offset;
1278
1279 /* Check whether we can use the short plt entry with 16-bit offset. */
1280 bfd_boolean short_plt_entry =
1281 (dist_got_entry <= 0x7fff && dist_got0 >= -0x8000);
1282
1283 const tilegx_bundle_bits *plt_entry = (tilegx_bundle_bits *)
1284 (ABI_64_P (output_bfd) ?
1285 (short_plt_entry ? tilegx64_short_plt_entry : tilegx64_long_plt_entry) :
1286 (short_plt_entry ? tilegx32_short_plt_entry : tilegx32_long_plt_entry));
1287
1288 /* Copy the plt entry template. */
1289 memcpy (splt->contents + offset, plt_entry, PLT_ENTRY_SIZE);
1290
1291 /* Write the immediate offsets. */
1292 pc = (tilegx_bundle_bits *)(splt->contents + offset);
1293
1294 if (short_plt_entry)
1295 {
1296 /* { lnk r28 } */
1297 pc++;
1298
1299 /* { addli r28, r28, &GOTPLT[MY_GOT_INDEX] ; moveli r27, &GOTPLT[0] } */
1300 *pc++ |= create_Imm16_X0 (dist_got_entry)
1301 | create_Imm16_X1 (dist_got0);
1302
1303 /* { shl16insli r29, zero, MY_PLT_INDEX ; ld r28, r28 } */
1304 *pc++ |= create_Imm16_X0 (plt_index);
1305 }
1306 else
1307 {
1308 /* { moveli r28, &GOTPLT[MY_GOT_INDEX] ; lnk r26 } */
1309 *pc++ |= create_Imm16_X0 (dist_got_entry >> 16);
1310
1311 /* { moveli r27, &GOTPLT[0] ;
1312 shl16insli r28, r28, &GOTPLT[MY_GOT_INDEX] } */
1313 *pc++ |= create_Imm16_X0 (dist_got0 >> 16)
1314 | create_Imm16_X1 (dist_got_entry);
1315
1316 /* { add r28, r26, r28 ; shl16insli r27, r27, &GOTPLT[0] } */
1317 *pc++ |= create_Imm16_X1 (dist_got0);
1318
1319 /* { add r27, r26, r27 ; info 10 ; ld r28, r28 } */
1320 pc++;
1321
1322 /* { shl16insli r29, zero, MY_GOT_INDEX ; jr r28 } */
1323 *pc++ |= create_Imm16_X0 (plt_index);
1324 }
1325
1326 /* Set the relocation offset. */
1327 *r_offset = got_offset;
1328
1329 return plt_index;
1330 }
1331
1332 /* Create an entry in an TILEGX ELF linker hash table. */
1333
1334 static struct bfd_hash_entry *
1335 link_hash_newfunc (struct bfd_hash_entry *entry,
1336 struct bfd_hash_table *table, const char *string)
1337 {
1338 /* Allocate the structure if it has not already been allocated by a
1339 subclass. */
1340 if (entry == NULL)
1341 {
1342 entry =
1343 bfd_hash_allocate (table,
1344 sizeof (struct tilegx_elf_link_hash_entry));
1345 if (entry == NULL)
1346 return entry;
1347 }
1348
1349 /* Call the allocation method of the superclass. */
1350 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
1351 if (entry != NULL)
1352 {
1353 struct tilegx_elf_link_hash_entry *eh;
1354
1355 eh = (struct tilegx_elf_link_hash_entry *) entry;
1356 eh->tls_type = GOT_UNKNOWN;
1357 }
1358
1359 return entry;
1360 }
1361
1362 /* Create a TILEGX ELF linker hash table. */
1363
1364 struct bfd_link_hash_table *
1365 tilegx_elf_link_hash_table_create (bfd *abfd)
1366 {
1367 struct tilegx_elf_link_hash_table *ret;
1368 size_t amt = sizeof (struct tilegx_elf_link_hash_table);
1369
1370 ret = (struct tilegx_elf_link_hash_table *) bfd_zmalloc (amt);
1371 if (ret == NULL)
1372 return NULL;
1373
1374 #ifdef BFD64
1375 if (ABI_64_P (abfd))
1376 {
1377 ret->bytes_per_word = 8;
1378 ret->word_align_power = 3;
1379 ret->bytes_per_rela = sizeof (Elf64_External_Rela);
1380 ret->dtpoff_reloc = R_TILEGX_TLS_DTPOFF64;
1381 ret->dtpmod_reloc = R_TILEGX_TLS_DTPMOD64;
1382 ret->tpoff_reloc = R_TILEGX_TLS_TPOFF64;
1383 ret->r_info = tilegx_elf_r_info_64;
1384 ret->r_symndx = tilegx_elf_r_symndx_64;
1385 ret->dynamic_interpreter = ELF64_DYNAMIC_INTERPRETER;
1386 ret->put_word = tilegx_put_word_64;
1387 }
1388 else
1389 #endif
1390 {
1391 ret->bytes_per_word = 4;
1392 ret->word_align_power = 2;
1393 ret->bytes_per_rela = sizeof (Elf32_External_Rela);
1394 ret->dtpoff_reloc = R_TILEGX_TLS_DTPOFF32;
1395 ret->dtpmod_reloc = R_TILEGX_TLS_DTPMOD32;
1396 ret->tpoff_reloc = R_TILEGX_TLS_TPOFF32;
1397 ret->r_info = tilegx_elf_r_info_32;
1398 ret->r_symndx = tilegx_elf_r_symndx_32;
1399 ret->dynamic_interpreter = ELF32_DYNAMIC_INTERPRETER;
1400 ret->put_word = tilegx_put_word_32;
1401 }
1402
1403 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc,
1404 sizeof (struct tilegx_elf_link_hash_entry),
1405 TILEGX_ELF_DATA))
1406 {
1407 free (ret);
1408 return NULL;
1409 }
1410
1411 return &ret->elf.root;
1412 }
1413
1414 /* Create the .got section. */
1415
1416 static bfd_boolean
1417 tilegx_elf_create_got_section (bfd *abfd, struct bfd_link_info *info)
1418 {
1419 flagword flags;
1420 asection *s, *s_got;
1421 struct elf_link_hash_entry *h;
1422 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
1423 struct elf_link_hash_table *htab = elf_hash_table (info);
1424
1425 /* This function may be called more than once. */
1426 if (htab->sgot != NULL)
1427 return TRUE;
1428
1429 flags = bed->dynamic_sec_flags;
1430
1431 s = bfd_make_section_anyway_with_flags (abfd,
1432 (bed->rela_plts_and_copies_p
1433 ? ".rela.got" : ".rel.got"),
1434 (bed->dynamic_sec_flags
1435 | SEC_READONLY));
1436 if (s == NULL
1437 || !bfd_set_section_alignment (s, bed->s->log_file_align))
1438 return FALSE;
1439 htab->srelgot = s;
1440
1441 s = s_got = bfd_make_section_anyway_with_flags (abfd, ".got", flags);
1442 if (s == NULL
1443 || !bfd_set_section_alignment (s, bed->s->log_file_align))
1444 return FALSE;
1445 htab->sgot = s;
1446
1447 /* The first bit of the global offset table is the header. */
1448 s->size += bed->got_header_size;
1449
1450 if (bed->want_got_plt)
1451 {
1452 s = bfd_make_section_anyway_with_flags (abfd, ".got.plt", flags);
1453 if (s == NULL
1454 || !bfd_set_section_alignment (s, bed->s->log_file_align))
1455 return FALSE;
1456 htab->sgotplt = s;
1457
1458 /* Reserve room for the header. */
1459 s->size += GOTPLT_HEADER_SIZE (tilegx_elf_hash_table (info));
1460 }
1461
1462 if (bed->want_got_sym)
1463 {
1464 /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
1465 section. We don't do this in the linker script because we don't want
1466 to define the symbol if we are not creating a global offset
1467 table. */
1468 h = _bfd_elf_define_linkage_sym (abfd, info, s_got,
1469 "_GLOBAL_OFFSET_TABLE_");
1470 elf_hash_table (info)->hgot = h;
1471 if (h == NULL)
1472 return FALSE;
1473 }
1474
1475 return TRUE;
1476 }
1477
1478 /* Create .plt, .rela.plt, .got, .got.plt, .rela.got, .dynbss, and
1479 .rela.bss sections in DYNOBJ, and set up shortcuts to them in our
1480 hash table. */
1481
1482 bfd_boolean
1483 tilegx_elf_create_dynamic_sections (bfd *dynobj,
1484 struct bfd_link_info *info)
1485 {
1486 if (!tilegx_elf_create_got_section (dynobj, info))
1487 return FALSE;
1488
1489 return _bfd_elf_create_dynamic_sections (dynobj, info);
1490 }
1491
1492 /* Copy the extra info we tack onto an elf_link_hash_entry. */
1493
1494 void
1495 tilegx_elf_copy_indirect_symbol (struct bfd_link_info *info,
1496 struct elf_link_hash_entry *dir,
1497 struct elf_link_hash_entry *ind)
1498 {
1499 struct tilegx_elf_link_hash_entry *edir, *eind;
1500
1501 edir = (struct tilegx_elf_link_hash_entry *) dir;
1502 eind = (struct tilegx_elf_link_hash_entry *) ind;
1503
1504 if (ind->dyn_relocs != NULL)
1505 {
1506 if (dir->dyn_relocs != NULL)
1507 {
1508 struct elf_dyn_relocs **pp;
1509 struct elf_dyn_relocs *p;
1510
1511 /* Add reloc counts against the indirect sym to the direct sym
1512 list. Merge any entries against the same section. */
1513 for (pp = &ind->dyn_relocs; (p = *pp) != NULL; )
1514 {
1515 struct elf_dyn_relocs *q;
1516
1517 for (q = dir->dyn_relocs; q != NULL; q = q->next)
1518 if (q->sec == p->sec)
1519 {
1520 q->pc_count += p->pc_count;
1521 q->count += p->count;
1522 *pp = p->next;
1523 break;
1524 }
1525 if (q == NULL)
1526 pp = &p->next;
1527 }
1528 *pp = dir->dyn_relocs;
1529 }
1530
1531 dir->dyn_relocs = ind->dyn_relocs;
1532 ind->dyn_relocs = NULL;
1533 }
1534
1535 if (ind->root.type == bfd_link_hash_indirect
1536 && dir->got.refcount <= 0)
1537 {
1538 edir->tls_type = eind->tls_type;
1539 eind->tls_type = GOT_UNKNOWN;
1540 }
1541 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
1542 }
1543
1544 static int
1545 tilegx_tls_translate_to_le (int r_type)
1546 {
1547 switch (r_type)
1548 {
1549 case R_TILEGX_IMM16_X0_HW0_TLS_GD:
1550 case R_TILEGX_IMM16_X0_HW0_TLS_IE:
1551 return R_TILEGX_IMM16_X0_HW0_TLS_LE;
1552
1553 case R_TILEGX_IMM16_X1_HW0_TLS_GD:
1554 case R_TILEGX_IMM16_X1_HW0_TLS_IE:
1555 return R_TILEGX_IMM16_X1_HW0_TLS_LE;
1556
1557 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_GD:
1558 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_IE:
1559 return R_TILEGX_IMM16_X0_HW0_LAST_TLS_LE;
1560
1561 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_GD:
1562 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_IE:
1563 return R_TILEGX_IMM16_X1_HW0_LAST_TLS_LE;
1564
1565 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_GD:
1566 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_IE:
1567 return R_TILEGX_IMM16_X0_HW1_LAST_TLS_LE;
1568
1569 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_GD:
1570 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_IE:
1571 return R_TILEGX_IMM16_X1_HW1_LAST_TLS_LE;
1572 }
1573 return r_type;
1574 }
1575
1576 static int
1577 tilegx_tls_translate_to_ie (int r_type)
1578 {
1579 switch (r_type)
1580 {
1581 case R_TILEGX_IMM16_X0_HW0_TLS_GD:
1582 case R_TILEGX_IMM16_X0_HW0_TLS_IE:
1583 return R_TILEGX_IMM16_X0_HW0_TLS_IE;
1584
1585 case R_TILEGX_IMM16_X1_HW0_TLS_GD:
1586 case R_TILEGX_IMM16_X1_HW0_TLS_IE:
1587 return R_TILEGX_IMM16_X1_HW0_TLS_IE;
1588
1589 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_GD:
1590 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_IE:
1591 return R_TILEGX_IMM16_X0_HW0_LAST_TLS_IE;
1592
1593 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_GD:
1594 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_IE:
1595 return R_TILEGX_IMM16_X1_HW0_LAST_TLS_IE;
1596
1597 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_GD:
1598 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_IE:
1599 return R_TILEGX_IMM16_X0_HW1_LAST_TLS_IE;
1600
1601 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_GD:
1602 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_IE:
1603 return R_TILEGX_IMM16_X1_HW1_LAST_TLS_IE;
1604 }
1605 return r_type;
1606 }
1607
1608 static int
1609 tilegx_elf_tls_transition (struct bfd_link_info *info, int r_type,
1610 int is_local, bfd_boolean disable_le_transition)
1611 {
1612 if (!bfd_link_executable (info))
1613 return r_type;
1614
1615 if (is_local && !disable_le_transition)
1616 return tilegx_tls_translate_to_le (r_type);
1617 else
1618 return tilegx_tls_translate_to_ie (r_type);
1619 }
1620
1621 /* Look through the relocs for a section during the first phase, and
1622 allocate space in the global offset table or procedure linkage
1623 table. */
1624
1625 bfd_boolean
1626 tilegx_elf_check_relocs (bfd *abfd, struct bfd_link_info *info,
1627 asection *sec, const Elf_Internal_Rela *relocs)
1628 {
1629 struct tilegx_elf_link_hash_table *htab;
1630 Elf_Internal_Shdr *symtab_hdr;
1631 struct elf_link_hash_entry **sym_hashes;
1632 const Elf_Internal_Rela *rel;
1633 const Elf_Internal_Rela *rel_end;
1634 asection *sreloc;
1635 int num_relocs;
1636 bfd_boolean has_tls_gd_or_ie = FALSE, has_tls_add = FALSE;
1637
1638 if (bfd_link_relocatable (info))
1639 return TRUE;
1640
1641 htab = tilegx_elf_hash_table (info);
1642 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1643 sym_hashes = elf_sym_hashes (abfd);
1644
1645 sreloc = NULL;
1646
1647 num_relocs = sec->reloc_count;
1648
1649 BFD_ASSERT (is_tilegx_elf (abfd) || num_relocs == 0);
1650
1651 if (htab->elf.dynobj == NULL)
1652 htab->elf.dynobj = abfd;
1653
1654 rel_end = relocs + num_relocs;
1655
1656 /* Check whether to do optimization to transform TLS GD/IE
1657 referehces to TLS LE. We disable it if we're linking with old
1658 TLS code sequences that do not support such optimization. Old
1659 TLS code sequences have tls_gd_call/tls_ie_load relocations but
1660 no tls_add relocations. */
1661 for (rel = relocs; rel < rel_end && !has_tls_add; rel++)
1662 {
1663 int r_type = TILEGX_ELF_R_TYPE (rel->r_info);
1664 switch (r_type)
1665 {
1666 case R_TILEGX_TLS_GD_CALL:
1667 case R_TILEGX_TLS_IE_LOAD:
1668 has_tls_gd_or_ie = TRUE;
1669 break;
1670 case R_TILEGX_IMM8_X0_TLS_ADD:
1671 case R_TILEGX_IMM8_Y0_TLS_ADD:
1672 case R_TILEGX_IMM8_X1_TLS_ADD:
1673 case R_TILEGX_IMM8_Y1_TLS_ADD:
1674 has_tls_add = TRUE;
1675 break;
1676 }
1677 }
1678
1679 sec->sec_flg0 = (has_tls_gd_or_ie && !has_tls_add);
1680 htab->disable_le_transition |= sec->sec_flg0;
1681
1682 for (rel = relocs; rel < rel_end; rel++)
1683 {
1684 unsigned int r_type;
1685 unsigned int r_symndx;
1686 struct elf_link_hash_entry *h;
1687 int tls_type;
1688
1689 r_symndx = TILEGX_ELF_R_SYMNDX (htab, rel->r_info);
1690 r_type = TILEGX_ELF_R_TYPE (rel->r_info);
1691
1692 if (r_symndx >= NUM_SHDR_ENTRIES (symtab_hdr))
1693 {
1694 /* xgettext:c-format */
1695 _bfd_error_handler (_("%pB: bad symbol index: %d"),
1696 abfd, r_symndx);
1697 return FALSE;
1698 }
1699
1700 if (r_symndx < symtab_hdr->sh_info)
1701 h = NULL;
1702 else
1703 {
1704 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1705 while (h->root.type == bfd_link_hash_indirect
1706 || h->root.type == bfd_link_hash_warning)
1707 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1708 }
1709
1710 r_type = tilegx_elf_tls_transition (info, r_type, h == NULL,
1711 sec->sec_flg0);
1712 switch (r_type)
1713 {
1714 case R_TILEGX_IMM16_X0_HW0_TLS_LE:
1715 case R_TILEGX_IMM16_X1_HW0_TLS_LE:
1716 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_LE:
1717 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_LE:
1718 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_LE:
1719 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_LE:
1720 if (!bfd_link_executable (info))
1721 goto r_tilegx_plt32;
1722 break;
1723
1724 case R_TILEGX_IMM16_X0_HW0_TLS_GD:
1725 case R_TILEGX_IMM16_X1_HW0_TLS_GD:
1726 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_GD:
1727 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_GD:
1728 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_GD:
1729 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_GD:
1730 BFD_ASSERT (bfd_link_pic (info));
1731 tls_type = GOT_TLS_GD;
1732 goto have_got_reference;
1733
1734 case R_TILEGX_IMM16_X0_HW0_TLS_IE:
1735 case R_TILEGX_IMM16_X1_HW0_TLS_IE:
1736 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_IE:
1737 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_IE:
1738 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_IE:
1739 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_IE:
1740 tls_type = GOT_TLS_IE;
1741 if (!bfd_link_executable (info))
1742 info->flags |= DF_STATIC_TLS;
1743 goto have_got_reference;
1744
1745 case R_TILEGX_IMM16_X0_HW0_GOT:
1746 case R_TILEGX_IMM16_X1_HW0_GOT:
1747 case R_TILEGX_IMM16_X0_HW0_LAST_GOT:
1748 case R_TILEGX_IMM16_X1_HW0_LAST_GOT:
1749 case R_TILEGX_IMM16_X0_HW1_LAST_GOT:
1750 case R_TILEGX_IMM16_X1_HW1_LAST_GOT:
1751 tls_type = GOT_NORMAL;
1752 /* Fall Through */
1753
1754 have_got_reference:
1755 /* This symbol requires a global offset table entry. */
1756 {
1757 int old_tls_type;
1758
1759 if (h != NULL)
1760 {
1761 h->got.refcount += 1;
1762 old_tls_type = tilegx_elf_hash_entry(h)->tls_type;
1763 }
1764 else
1765 {
1766 bfd_signed_vma *local_got_refcounts;
1767
1768 /* This is a global offset table entry for a local symbol. */
1769 local_got_refcounts = elf_local_got_refcounts (abfd);
1770 if (local_got_refcounts == NULL)
1771 {
1772 bfd_size_type size;
1773
1774 size = symtab_hdr->sh_info;
1775 size *= (sizeof (bfd_signed_vma) + sizeof(char));
1776 local_got_refcounts = ((bfd_signed_vma *)
1777 bfd_zalloc (abfd, size));
1778 if (local_got_refcounts == NULL)
1779 return FALSE;
1780 elf_local_got_refcounts (abfd) = local_got_refcounts;
1781 _bfd_tilegx_elf_local_got_tls_type (abfd)
1782 = (char *) (local_got_refcounts + symtab_hdr->sh_info);
1783 }
1784 local_got_refcounts[r_symndx] += 1;
1785 old_tls_type = _bfd_tilegx_elf_local_got_tls_type (abfd) [r_symndx];
1786 }
1787
1788 /* If a TLS symbol is accessed using IE at least once,
1789 there is no point to use dynamic model for it. */
1790 if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
1791 && (old_tls_type != GOT_TLS_GD
1792 || tls_type != GOT_TLS_IE))
1793 {
1794 if (old_tls_type == GOT_TLS_IE && tls_type == GOT_TLS_GD)
1795 tls_type = old_tls_type;
1796 else
1797 {
1798 _bfd_error_handler
1799 /* xgettext:c-format */
1800 (_("%pB: `%s' accessed both as normal and thread local symbol"),
1801 abfd, h ? h->root.root.string : "<local>");
1802 return FALSE;
1803 }
1804 }
1805
1806 if (old_tls_type != tls_type)
1807 {
1808 if (h != NULL)
1809 tilegx_elf_hash_entry (h)->tls_type = tls_type;
1810 else
1811 _bfd_tilegx_elf_local_got_tls_type (abfd) [r_symndx] = tls_type;
1812 }
1813 }
1814
1815 if (htab->elf.sgot == NULL)
1816 {
1817 if (!tilegx_elf_create_got_section (htab->elf.dynobj, info))
1818 return FALSE;
1819 }
1820 break;
1821
1822 case R_TILEGX_TLS_GD_CALL:
1823 if (!bfd_link_executable (info))
1824 {
1825 /* These are basically R_TILEGX_JUMPOFF_X1_PLT relocs
1826 against __tls_get_addr. */
1827 struct bfd_link_hash_entry *bh = NULL;
1828 if (! _bfd_generic_link_add_one_symbol (info, abfd,
1829 "__tls_get_addr", 0,
1830 bfd_und_section_ptr, 0,
1831 NULL, FALSE, FALSE,
1832 &bh))
1833 return FALSE;
1834 h = (struct elf_link_hash_entry *) bh;
1835 }
1836 else
1837 break;
1838 /* Fall through */
1839
1840 case R_TILEGX_JUMPOFF_X1_PLT:
1841 case R_TILEGX_IMM16_X0_HW0_PLT_PCREL:
1842 case R_TILEGX_IMM16_X1_HW0_PLT_PCREL:
1843 case R_TILEGX_IMM16_X0_HW1_PLT_PCREL:
1844 case R_TILEGX_IMM16_X1_HW1_PLT_PCREL:
1845 case R_TILEGX_IMM16_X0_HW2_PLT_PCREL:
1846 case R_TILEGX_IMM16_X1_HW2_PLT_PCREL:
1847 case R_TILEGX_IMM16_X0_HW3_PLT_PCREL:
1848 case R_TILEGX_IMM16_X1_HW3_PLT_PCREL:
1849 case R_TILEGX_IMM16_X0_HW0_LAST_PLT_PCREL:
1850 case R_TILEGX_IMM16_X1_HW0_LAST_PLT_PCREL:
1851 case R_TILEGX_IMM16_X0_HW1_LAST_PLT_PCREL:
1852 case R_TILEGX_IMM16_X1_HW1_LAST_PLT_PCREL:
1853 case R_TILEGX_IMM16_X0_HW2_LAST_PLT_PCREL:
1854 case R_TILEGX_IMM16_X1_HW2_LAST_PLT_PCREL:
1855 /* This symbol requires a procedure linkage table entry. We
1856 actually build the entry in adjust_dynamic_symbol,
1857 because this might be a case of linking PIC code without
1858 linking in any dynamic objects, in which case we don't
1859 need to generate a procedure linkage table after all. */
1860
1861 if (h != NULL)
1862 {
1863 h->needs_plt = 1;
1864 h->plt.refcount += 1;
1865 }
1866 break;
1867
1868 case R_TILEGX_64_PCREL:
1869 case R_TILEGX_32_PCREL:
1870 case R_TILEGX_16_PCREL:
1871 case R_TILEGX_8_PCREL:
1872 case R_TILEGX_IMM16_X0_HW0_PCREL:
1873 case R_TILEGX_IMM16_X1_HW0_PCREL:
1874 case R_TILEGX_IMM16_X0_HW1_PCREL:
1875 case R_TILEGX_IMM16_X1_HW1_PCREL:
1876 case R_TILEGX_IMM16_X0_HW2_PCREL:
1877 case R_TILEGX_IMM16_X1_HW2_PCREL:
1878 case R_TILEGX_IMM16_X0_HW3_PCREL:
1879 case R_TILEGX_IMM16_X1_HW3_PCREL:
1880 case R_TILEGX_IMM16_X0_HW0_LAST_PCREL:
1881 case R_TILEGX_IMM16_X1_HW0_LAST_PCREL:
1882 case R_TILEGX_IMM16_X0_HW1_LAST_PCREL:
1883 case R_TILEGX_IMM16_X1_HW1_LAST_PCREL:
1884 case R_TILEGX_IMM16_X0_HW2_LAST_PCREL:
1885 case R_TILEGX_IMM16_X1_HW2_LAST_PCREL:
1886 if (h != NULL)
1887 h->non_got_ref = 1;
1888
1889 if (h != NULL
1890 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
1891 break;
1892 /* Fall through. */
1893
1894 case R_TILEGX_64:
1895 case R_TILEGX_32:
1896 case R_TILEGX_16:
1897 case R_TILEGX_8:
1898 case R_TILEGX_HW0:
1899 case R_TILEGX_HW1:
1900 case R_TILEGX_HW2:
1901 case R_TILEGX_HW3:
1902 case R_TILEGX_HW0_LAST:
1903 case R_TILEGX_HW1_LAST:
1904 case R_TILEGX_HW2_LAST:
1905 case R_TILEGX_COPY:
1906 case R_TILEGX_GLOB_DAT:
1907 case R_TILEGX_JMP_SLOT:
1908 case R_TILEGX_RELATIVE:
1909 case R_TILEGX_BROFF_X1:
1910 case R_TILEGX_JUMPOFF_X1:
1911 case R_TILEGX_IMM8_X0:
1912 case R_TILEGX_IMM8_Y0:
1913 case R_TILEGX_IMM8_X1:
1914 case R_TILEGX_IMM8_Y1:
1915 case R_TILEGX_DEST_IMM8_X1:
1916 case R_TILEGX_MT_IMM14_X1:
1917 case R_TILEGX_MF_IMM14_X1:
1918 case R_TILEGX_MMSTART_X0:
1919 case R_TILEGX_MMEND_X0:
1920 case R_TILEGX_SHAMT_X0:
1921 case R_TILEGX_SHAMT_X1:
1922 case R_TILEGX_SHAMT_Y0:
1923 case R_TILEGX_SHAMT_Y1:
1924 case R_TILEGX_IMM16_X0_HW0:
1925 case R_TILEGX_IMM16_X1_HW0:
1926 case R_TILEGX_IMM16_X0_HW1:
1927 case R_TILEGX_IMM16_X1_HW1:
1928 case R_TILEGX_IMM16_X0_HW2:
1929 case R_TILEGX_IMM16_X1_HW2:
1930 case R_TILEGX_IMM16_X0_HW3:
1931 case R_TILEGX_IMM16_X1_HW3:
1932 case R_TILEGX_IMM16_X0_HW0_LAST:
1933 case R_TILEGX_IMM16_X1_HW0_LAST:
1934 case R_TILEGX_IMM16_X0_HW1_LAST:
1935 case R_TILEGX_IMM16_X1_HW1_LAST:
1936 case R_TILEGX_IMM16_X0_HW2_LAST:
1937 case R_TILEGX_IMM16_X1_HW2_LAST:
1938 if (h != NULL)
1939 h->non_got_ref = 1;
1940
1941 r_tilegx_plt32:
1942 if (h != NULL && !bfd_link_pic (info))
1943 {
1944 /* We may need a .plt entry if the function this reloc
1945 refers to is in a shared lib. */
1946 h->plt.refcount += 1;
1947 }
1948
1949 /* If we are creating a shared library, and this is a reloc
1950 against a global symbol, or a non PC relative reloc
1951 against a local symbol, then we need to copy the reloc
1952 into the shared library. However, if we are linking with
1953 -Bsymbolic, we do not need to copy a reloc against a
1954 global symbol which is defined in an object we are
1955 including in the link (i.e., DEF_REGULAR is set). At
1956 this point we have not seen all the input files, so it is
1957 possible that DEF_REGULAR is not set now but will be set
1958 later (it is never cleared). In case of a weak definition,
1959 DEF_REGULAR may be cleared later by a strong definition in
1960 a shared library. We account for that possibility below by
1961 storing information in the relocs_copied field of the hash
1962 table entry. A similar situation occurs when creating
1963 shared libraries and symbol visibility changes render the
1964 symbol local.
1965
1966 If on the other hand, we are creating an executable, we
1967 may need to keep relocations for symbols satisfied by a
1968 dynamic library if we manage to avoid copy relocs for the
1969 symbol. */
1970 if ((bfd_link_pic (info)
1971 && (sec->flags & SEC_ALLOC) != 0
1972 && (! tilegx_elf_howto_table[r_type].pc_relative
1973 || (h != NULL
1974 && (! info->symbolic
1975 || h->root.type == bfd_link_hash_defweak
1976 || !h->def_regular))))
1977 || (!bfd_link_pic (info)
1978 && (sec->flags & SEC_ALLOC) != 0
1979 && h != NULL
1980 && (h->root.type == bfd_link_hash_defweak
1981 || !h->def_regular)))
1982 {
1983 struct elf_dyn_relocs *p;
1984 struct elf_dyn_relocs **head;
1985
1986 /* When creating a shared object, we must copy these
1987 relocs into the output file. We create a reloc
1988 section in dynobj and make room for the reloc. */
1989 if (sreloc == NULL)
1990 {
1991 sreloc = _bfd_elf_make_dynamic_reloc_section
1992 (sec, htab->elf.dynobj, htab->word_align_power, abfd,
1993 /*rela?*/ TRUE);
1994
1995 if (sreloc == NULL)
1996 return FALSE;
1997 }
1998
1999 /* If this is a global symbol, we count the number of
2000 relocations we need for this symbol. */
2001 if (h != NULL)
2002 head = &h->dyn_relocs;
2003 else
2004 {
2005 /* Track dynamic relocs needed for local syms too.
2006 We really need local syms available to do this
2007 easily. Oh well. */
2008
2009 asection *s;
2010 void *vpp;
2011 Elf_Internal_Sym *isym;
2012
2013 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
2014 abfd, r_symndx);
2015 if (isym == NULL)
2016 return FALSE;
2017
2018 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
2019 if (s == NULL)
2020 s = sec;
2021
2022 vpp = &elf_section_data (s)->local_dynrel;
2023 head = (struct elf_dyn_relocs **) vpp;
2024 }
2025
2026 p = *head;
2027 if (p == NULL || p->sec != sec)
2028 {
2029 size_t amt = sizeof *p;
2030 p = ((struct elf_dyn_relocs *)
2031 bfd_alloc (htab->elf.dynobj, amt));
2032 if (p == NULL)
2033 return FALSE;
2034 p->next = *head;
2035 *head = p;
2036 p->sec = sec;
2037 p->count = 0;
2038 p->pc_count = 0;
2039 }
2040
2041 p->count += 1;
2042 if (tilegx_elf_howto_table[r_type].pc_relative)
2043 p->pc_count += 1;
2044 }
2045
2046 break;
2047
2048 case R_TILEGX_GNU_VTINHERIT:
2049 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2050 return FALSE;
2051 break;
2052
2053 case R_TILEGX_GNU_VTENTRY:
2054 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2055 return FALSE;
2056 break;
2057
2058 default:
2059 break;
2060 }
2061 }
2062
2063 return TRUE;
2064 }
2065
2066 \f
2067 asection *
2068 tilegx_elf_gc_mark_hook (asection *sec,
2069 struct bfd_link_info *info,
2070 Elf_Internal_Rela *rel,
2071 struct elf_link_hash_entry *h,
2072 Elf_Internal_Sym *sym)
2073 {
2074 if (h != NULL)
2075 {
2076 switch (TILEGX_ELF_R_TYPE (rel->r_info))
2077 {
2078 case R_TILEGX_GNU_VTINHERIT:
2079 case R_TILEGX_GNU_VTENTRY:
2080 return NULL;
2081 }
2082 }
2083
2084 /* FIXME: The test here, in check_relocs and in relocate_section
2085 dealing with TLS optimization, ought to be !bfd_link_executable (info). */
2086 if (bfd_link_pic (info))
2087 {
2088 struct bfd_link_hash_entry *bh;
2089
2090 switch (TILEGX_ELF_R_TYPE (rel->r_info))
2091 {
2092 case R_TILEGX_TLS_GD_CALL:
2093 /* This reloc implicitly references __tls_get_addr. We know
2094 another reloc will reference the same symbol as the one
2095 on this reloc, so the real symbol and section will be
2096 gc marked when processing the other reloc. That lets
2097 us handle __tls_get_addr here. */
2098 bh = NULL;
2099 if (! _bfd_generic_link_add_one_symbol (info, sec->owner,
2100 "__tls_get_addr", 0,
2101 bfd_und_section_ptr,
2102 0, NULL, FALSE,
2103 FALSE, &bh))
2104 return NULL;
2105 h = (struct elf_link_hash_entry *) bh;
2106 BFD_ASSERT (h != NULL);
2107 h->mark = 1;
2108 if (h->is_weakalias)
2109 weakdef (h)->mark = 1;
2110 sym = NULL;
2111 }
2112 }
2113
2114 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2115 }
2116
2117 /* Adjust a symbol defined by a dynamic object and referenced by a
2118 regular object. The current definition is in some section of the
2119 dynamic object, but we're not including those sections. We have to
2120 change the definition to something the rest of the link can
2121 understand. */
2122
2123 bfd_boolean
2124 tilegx_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
2125 struct elf_link_hash_entry *h)
2126 {
2127 struct tilegx_elf_link_hash_table *htab;
2128 bfd *dynobj;
2129 asection *s, *srel;
2130
2131 htab = tilegx_elf_hash_table (info);
2132 BFD_ASSERT (htab != NULL);
2133
2134 dynobj = htab->elf.dynobj;
2135
2136 /* Make sure we know what is going on here. */
2137 BFD_ASSERT (dynobj != NULL
2138 && (h->needs_plt
2139 || h->is_weakalias
2140 || (h->def_dynamic
2141 && h->ref_regular
2142 && !h->def_regular)));
2143
2144 /* If this is a function, put it in the procedure linkage table. We
2145 will fill in the contents of the procedure linkage table later
2146 (although we could actually do it here). */
2147 if (h->type == STT_FUNC || h->needs_plt)
2148 {
2149 if (h->plt.refcount <= 0
2150 || SYMBOL_CALLS_LOCAL (info, h)
2151 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2152 && h->root.type == bfd_link_hash_undefweak))
2153 {
2154 /* This case can occur if we saw a R_TILEGX_JUMPOFF_X1_PLT
2155 reloc in an input file, but the symbol was never referred
2156 to by a dynamic object, or if all references were garbage
2157 collected. In such a case, we don't actually need to build
2158 a procedure linkage table, and we can just do a
2159 R_TILEGX_JUMPOFF_X1 relocation instead. */
2160 h->plt.offset = (bfd_vma) -1;
2161 h->needs_plt = 0;
2162 }
2163
2164 return TRUE;
2165 }
2166 else
2167 h->plt.offset = (bfd_vma) -1;
2168
2169 /* If this is a weak symbol, and there is a real definition, the
2170 processor independent code will have arranged for us to see the
2171 real definition first, and we can just use the same value. */
2172 if (h->is_weakalias)
2173 {
2174 struct elf_link_hash_entry *def = weakdef (h);
2175 BFD_ASSERT (def->root.type == bfd_link_hash_defined);
2176 h->root.u.def.section = def->root.u.def.section;
2177 h->root.u.def.value = def->root.u.def.value;
2178 return TRUE;
2179 }
2180
2181 /* This is a reference to a symbol defined by a dynamic object which
2182 is not a function. */
2183
2184 /* If we are creating a shared library, we must presume that the
2185 only references to the symbol are via the global offset table.
2186 For such cases we need not do anything here; the relocations will
2187 be handled correctly by relocate_section. */
2188 if (bfd_link_pic (info))
2189 return TRUE;
2190
2191 /* If there are no references to this symbol that do not use the
2192 GOT, we don't need to generate a copy reloc. */
2193 if (!h->non_got_ref)
2194 return TRUE;
2195
2196 /* If -z nocopyreloc was given, we won't generate them either. */
2197 if (info->nocopyreloc)
2198 {
2199 h->non_got_ref = 0;
2200 return TRUE;
2201 }
2202
2203 /* If we don't find any dynamic relocs in read-only sections, then
2204 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
2205 if (!_bfd_elf_readonly_dynrelocs (h))
2206 {
2207 h->non_got_ref = 0;
2208 return TRUE;
2209 }
2210
2211 /* We must allocate the symbol in our .dynbss section, which will
2212 become part of the .bss section of the executable. There will be
2213 an entry for this symbol in the .dynsym section. The dynamic
2214 object will contain position independent code, so all references
2215 from the dynamic object to this symbol will go through the global
2216 offset table. The dynamic linker will use the .dynsym entry to
2217 determine the address it must put in the global offset table, so
2218 both the dynamic object and the regular object will refer to the
2219 same memory location for the variable. */
2220
2221 /* We must generate a R_TILEGX_COPY reloc to tell the dynamic linker
2222 to copy the initial value out of the dynamic object and into the
2223 runtime process image. We need to remember the offset into the
2224 .rel.bss section we are going to use. */
2225 if ((h->root.u.def.section->flags & SEC_READONLY) != 0)
2226 {
2227 s = htab->elf.sdynrelro;
2228 srel = htab->elf.sreldynrelro;
2229 }
2230 else
2231 {
2232 s = htab->elf.sdynbss;
2233 srel = htab->elf.srelbss;
2234 }
2235 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
2236 {
2237 srel->size += TILEGX_ELF_RELA_BYTES (htab);
2238 h->needs_copy = 1;
2239 }
2240
2241 return _bfd_elf_adjust_dynamic_copy (info, h, s);
2242 }
2243
2244 /* Allocate space in .plt, .got and associated reloc sections for
2245 dynamic relocs. */
2246
2247 static bfd_boolean
2248 allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
2249 {
2250 struct bfd_link_info *info;
2251 struct tilegx_elf_link_hash_table *htab;
2252 struct elf_dyn_relocs *p;
2253
2254 if (h->root.type == bfd_link_hash_indirect)
2255 return TRUE;
2256
2257 info = (struct bfd_link_info *) inf;
2258 htab = tilegx_elf_hash_table (info);
2259 BFD_ASSERT (htab != NULL);
2260
2261 if (htab->elf.dynamic_sections_created
2262 && h->plt.refcount > 0)
2263 {
2264 /* Make sure this symbol is output as a dynamic symbol.
2265 Undefined weak syms won't yet be marked as dynamic. */
2266 if (h->dynindx == -1
2267 && !h->forced_local)
2268 {
2269 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2270 return FALSE;
2271 }
2272
2273 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h))
2274 {
2275 asection *s = htab->elf.splt;
2276
2277 /* Allocate room for the header and tail. */
2278 if (s->size == 0)
2279 {
2280 s->size = PLT_ENTRY_SIZE;
2281 }
2282
2283 h->plt.offset = s->size - PLT_ENTRY_SIZE + PLT_HEADER_SIZE;
2284
2285 /* If this symbol is not defined in a regular file, and we are
2286 not generating a shared library, then set the symbol to this
2287 location in the .plt. This is required to make function
2288 pointers compare as equal between the normal executable and
2289 the shared library. */
2290 if (! bfd_link_pic (info)
2291 && !h->def_regular)
2292 {
2293 h->root.u.def.section = s;
2294 h->root.u.def.value = h->plt.offset;
2295 }
2296
2297 /* Make room for this entry. */
2298 s->size += PLT_ENTRY_SIZE;
2299
2300 /* We also need to make an entry in the .got.plt section. */
2301 htab->elf.sgotplt->size += GOT_ENTRY_SIZE (htab);
2302
2303 /* We also need to make an entry in the .rela.plt section. */
2304 htab->elf.srelplt->size += TILEGX_ELF_RELA_BYTES (htab);
2305 }
2306 else
2307 {
2308 h->plt.offset = (bfd_vma) -1;
2309 h->needs_plt = 0;
2310 }
2311 }
2312 else
2313 {
2314 h->plt.offset = (bfd_vma) -1;
2315 h->needs_plt = 0;
2316 }
2317
2318 /* If a TLS_IE symbol is now local to the binary, make it a TLS_LE
2319 requiring no TLS entry. */
2320 if (h->got.refcount > 0
2321 && !htab->disable_le_transition
2322 && bfd_link_executable (info)
2323 && h->dynindx == -1
2324 && tilegx_elf_hash_entry(h)->tls_type == GOT_TLS_IE)
2325 h->got.offset = (bfd_vma) -1;
2326 else if (h->got.refcount > 0)
2327 {
2328 asection *s;
2329 bfd_boolean dyn;
2330 int tls_type = tilegx_elf_hash_entry(h)->tls_type;
2331
2332 /* Make sure this symbol is output as a dynamic symbol.
2333 Undefined weak syms won't yet be marked as dynamic. */
2334 if (h->dynindx == -1
2335 && !h->forced_local)
2336 {
2337 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2338 return FALSE;
2339 }
2340
2341 s = htab->elf.sgot;
2342 h->got.offset = s->size;
2343 s->size += TILEGX_ELF_WORD_BYTES (htab);
2344 /* TLS_GD entries need 2 consecutive GOT slots. */
2345 if (tls_type == GOT_TLS_GD)
2346 s->size += TILEGX_ELF_WORD_BYTES (htab);
2347 dyn = htab->elf.dynamic_sections_created;
2348 /* TLS_IE needs one dynamic relocation,
2349 TLS_GD needs two if local symbol and two if global. */
2350 if (tls_type == GOT_TLS_GD || tls_type == GOT_TLS_IE)
2351 htab->elf.srelgot->size += 2 * TILEGX_ELF_RELA_BYTES (htab);
2352 else if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
2353 bfd_link_pic (info),
2354 h))
2355 htab->elf.srelgot->size += TILEGX_ELF_RELA_BYTES (htab);
2356 }
2357 else
2358 h->got.offset = (bfd_vma) -1;
2359
2360 if (h->dyn_relocs == NULL)
2361 return TRUE;
2362
2363 /* In the shared -Bsymbolic case, discard space allocated for
2364 dynamic pc-relative relocs against symbols which turn out to be
2365 defined in regular objects. For the normal shared case, discard
2366 space for pc-relative relocs that have become local due to symbol
2367 visibility changes. */
2368
2369 if (bfd_link_pic (info))
2370 {
2371 if (SYMBOL_CALLS_LOCAL (info, h))
2372 {
2373 struct elf_dyn_relocs **pp;
2374
2375 for (pp = &h->dyn_relocs; (p = *pp) != NULL; )
2376 {
2377 p->count -= p->pc_count;
2378 p->pc_count = 0;
2379 if (p->count == 0)
2380 *pp = p->next;
2381 else
2382 pp = &p->next;
2383 }
2384 }
2385
2386 /* Also discard relocs on undefined weak syms with non-default
2387 visibility. */
2388 if (h->dyn_relocs != NULL
2389 && h->root.type == bfd_link_hash_undefweak)
2390 {
2391 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2392 || UNDEFWEAK_NO_DYNAMIC_RELOC (info, h))
2393 h->dyn_relocs = NULL;
2394
2395 /* Make sure undefined weak symbols are output as a dynamic
2396 symbol in PIEs. */
2397 else if (h->dynindx == -1
2398 && !h->forced_local)
2399 {
2400 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2401 return FALSE;
2402 }
2403 }
2404 }
2405 else
2406 {
2407 /* For the non-shared case, discard space for relocs against
2408 symbols which turn out to need copy relocs or are not
2409 dynamic. */
2410
2411 if (!h->non_got_ref
2412 && ((h->def_dynamic
2413 && !h->def_regular)
2414 || (htab->elf.dynamic_sections_created
2415 && (h->root.type == bfd_link_hash_undefweak
2416 || h->root.type == bfd_link_hash_undefined))))
2417 {
2418 /* Make sure this symbol is output as a dynamic symbol.
2419 Undefined weak syms won't yet be marked as dynamic. */
2420 if (h->dynindx == -1
2421 && !h->forced_local)
2422 {
2423 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2424 return FALSE;
2425 }
2426
2427 /* If that succeeded, we know we'll be keeping all the
2428 relocs. */
2429 if (h->dynindx != -1)
2430 goto keep;
2431 }
2432
2433 h->dyn_relocs = NULL;
2434
2435 keep: ;
2436 }
2437
2438 /* Finally, allocate space. */
2439 for (p = h->dyn_relocs; p != NULL; p = p->next)
2440 {
2441 asection *sreloc = elf_section_data (p->sec)->sreloc;
2442 sreloc->size += p->count * TILEGX_ELF_RELA_BYTES (htab);
2443 }
2444
2445 return TRUE;
2446 }
2447
2448 /* Set DF_TEXTREL if we find any dynamic relocs that apply to
2449 read-only sections. */
2450
2451 static bfd_boolean
2452 maybe_set_textrel (struct elf_link_hash_entry *h, void *info_p)
2453 {
2454 asection *sec;
2455
2456 if (h->root.type == bfd_link_hash_indirect)
2457 return TRUE;
2458
2459 sec = _bfd_elf_readonly_dynrelocs (h);
2460 if (sec != NULL)
2461 {
2462 struct bfd_link_info *info = (struct bfd_link_info *) info_p;
2463
2464 info->flags |= DF_TEXTREL;
2465 info->callbacks->minfo
2466 (_("%pB: dynamic relocation against `%pT' in read-only section `%pA'\n"),
2467 sec->owner, h->root.root.string, sec);
2468
2469 /* Not an error, just cut short the traversal. */
2470 return FALSE;
2471 }
2472 return TRUE;
2473 }
2474
2475 /* Return true if the dynamic symbol for a given section should be
2476 omitted when creating a shared library. */
2477
2478 bfd_boolean
2479 tilegx_elf_omit_section_dynsym (bfd *output_bfd,
2480 struct bfd_link_info *info,
2481 asection *p)
2482 {
2483 /* We keep the .got section symbol so that explicit relocations
2484 against the _GLOBAL_OFFSET_TABLE_ symbol emitted in PIC mode
2485 can be turned into relocations against the .got symbol. */
2486 if (strcmp (p->name, ".got") == 0)
2487 return FALSE;
2488
2489 return _bfd_elf_omit_section_dynsym_default (output_bfd, info, p);
2490 }
2491
2492 bfd_boolean
2493 tilegx_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2494 struct bfd_link_info *info)
2495 {
2496 struct tilegx_elf_link_hash_table *htab;
2497 bfd *dynobj;
2498 asection *s;
2499 bfd *ibfd;
2500
2501 htab = tilegx_elf_hash_table (info);
2502 BFD_ASSERT (htab != NULL);
2503 dynobj = htab->elf.dynobj;
2504 BFD_ASSERT (dynobj != NULL);
2505
2506 if (elf_hash_table (info)->dynamic_sections_created)
2507 {
2508 /* Set the contents of the .interp section to the interpreter. */
2509 if (bfd_link_executable (info) && !info->nointerp)
2510 {
2511 s = bfd_get_linker_section (dynobj, ".interp");
2512 BFD_ASSERT (s != NULL);
2513 s->size = strlen (htab->dynamic_interpreter) + 1;
2514 s->contents = (unsigned char *) htab->dynamic_interpreter;
2515 }
2516 }
2517
2518 /* Set up .got offsets for local syms, and space for local dynamic
2519 relocs. */
2520 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2521 {
2522 bfd_signed_vma *local_got;
2523 bfd_signed_vma *end_local_got;
2524 char *local_tls_type;
2525 bfd_size_type locsymcount;
2526 Elf_Internal_Shdr *symtab_hdr;
2527 asection *srel;
2528
2529 if (! is_tilegx_elf (ibfd))
2530 continue;
2531
2532 for (s = ibfd->sections; s != NULL; s = s->next)
2533 {
2534 struct elf_dyn_relocs *p;
2535
2536 for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
2537 {
2538 if (!bfd_is_abs_section (p->sec)
2539 && bfd_is_abs_section (p->sec->output_section))
2540 {
2541 /* Input section has been discarded, either because
2542 it is a copy of a linkonce section or due to
2543 linker script /DISCARD/, so we'll be discarding
2544 the relocs too. */
2545 }
2546 else if (p->count != 0)
2547 {
2548 srel = elf_section_data (p->sec)->sreloc;
2549 srel->size += p->count * TILEGX_ELF_RELA_BYTES (htab);
2550 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
2551 {
2552 info->flags |= DF_TEXTREL;
2553
2554 info->callbacks->minfo (_("%pB: dynamic relocation in read-only section `%pA'\n"),
2555 p->sec->owner, p->sec);
2556 }
2557 }
2558 }
2559 }
2560
2561 local_got = elf_local_got_refcounts (ibfd);
2562 if (!local_got)
2563 continue;
2564
2565 symtab_hdr = &elf_symtab_hdr (ibfd);
2566 locsymcount = symtab_hdr->sh_info;
2567 end_local_got = local_got + locsymcount;
2568 local_tls_type = _bfd_tilegx_elf_local_got_tls_type (ibfd);
2569 s = htab->elf.sgot;
2570 srel = htab->elf.srelgot;
2571 for (; local_got < end_local_got; ++local_got, ++local_tls_type)
2572 {
2573 if (*local_got > 0)
2574 {
2575 *local_got = s->size;
2576 s->size += TILEGX_ELF_WORD_BYTES (htab);
2577 if (*local_tls_type == GOT_TLS_GD)
2578 s->size += TILEGX_ELF_WORD_BYTES (htab);
2579 if (bfd_link_pic (info)
2580 || *local_tls_type == GOT_TLS_GD
2581 || *local_tls_type == GOT_TLS_IE)
2582 srel->size += TILEGX_ELF_RELA_BYTES (htab);
2583 }
2584 else
2585 *local_got = (bfd_vma) -1;
2586 }
2587 }
2588
2589 /* Allocate global sym .plt and .got entries, and space for global
2590 sym dynamic relocs. */
2591 elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, info);
2592
2593 if (elf_hash_table (info)->dynamic_sections_created)
2594 {
2595 /* If the .got section is more than 0x8000 bytes, we add
2596 0x8000 to the value of _GLOBAL_OFFSET_TABLE_, so that 16
2597 bit relocations have a greater chance of working. */
2598 if (htab->elf.sgot->size >= 0x8000
2599 && elf_hash_table (info)->hgot->root.u.def.value == 0)
2600 elf_hash_table (info)->hgot->root.u.def.value = 0x8000;
2601 }
2602
2603 if (htab->elf.sgotplt)
2604 {
2605 struct elf_link_hash_entry *got;
2606 got = elf_link_hash_lookup (elf_hash_table (info),
2607 "_GLOBAL_OFFSET_TABLE_",
2608 FALSE, FALSE, FALSE);
2609
2610 /* Don't allocate .got.plt section if there are no GOT nor PLT
2611 entries and there is no refeence to _GLOBAL_OFFSET_TABLE_. */
2612 if ((got == NULL
2613 || !got->ref_regular_nonweak)
2614 && (htab->elf.sgotplt->size
2615 == (unsigned)GOTPLT_HEADER_SIZE (htab))
2616 && (htab->elf.splt == NULL
2617 || htab->elf.splt->size == 0)
2618 && (htab->elf.sgot == NULL
2619 || (htab->elf.sgot->size
2620 == get_elf_backend_data (output_bfd)->got_header_size)))
2621 htab->elf.sgotplt->size = 0;
2622 }
2623
2624 /* The check_relocs and adjust_dynamic_symbol entry points have
2625 determined the sizes of the various dynamic sections. Allocate
2626 memory for them. */
2627 for (s = dynobj->sections; s != NULL; s = s->next)
2628 {
2629 if ((s->flags & SEC_LINKER_CREATED) == 0)
2630 continue;
2631
2632 if (s == htab->elf.splt
2633 || s == htab->elf.sgot
2634 || s == htab->elf.sgotplt
2635 || s == htab->elf.sdynbss
2636 || s == htab->elf.sdynrelro)
2637 {
2638 /* Strip this section if we don't need it; see the
2639 comment below. */
2640 }
2641 else if (strncmp (s->name, ".rela", 5) == 0)
2642 {
2643 if (s->size != 0)
2644 {
2645 /* We use the reloc_count field as a counter if we need
2646 to copy relocs into the output file. */
2647 s->reloc_count = 0;
2648 }
2649 }
2650 else
2651 {
2652 /* It's not one of our sections. */
2653 continue;
2654 }
2655
2656 if (s->size == 0)
2657 {
2658 /* If we don't need this section, strip it from the
2659 output file. This is mostly to handle .rela.bss and
2660 .rela.plt. We must create both sections in
2661 create_dynamic_sections, because they must be created
2662 before the linker maps input sections to output
2663 sections. The linker does that before
2664 adjust_dynamic_symbol is called, and it is that
2665 function which decides whether anything needs to go
2666 into these sections. */
2667 s->flags |= SEC_EXCLUDE;
2668 continue;
2669 }
2670
2671 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2672 continue;
2673
2674 /* Allocate memory for the section contents. Zero the memory
2675 for the benefit of .rela.plt, which has 4 unused entries
2676 at the beginning, and we don't want garbage. */
2677 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
2678 if (s->contents == NULL)
2679 return FALSE;
2680 }
2681
2682 if (elf_hash_table (info)->dynamic_sections_created)
2683 {
2684 /* Add some entries to the .dynamic section. We fill in the
2685 values later, in tilegx_elf_finish_dynamic_sections, but we
2686 must add the entries now so that we get the correct size for
2687 the .dynamic section. The DT_DEBUG entry is filled in by the
2688 dynamic linker and used by the debugger. */
2689 #define add_dynamic_entry(TAG, VAL) \
2690 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2691
2692 if (bfd_link_executable (info))
2693 {
2694 if (!add_dynamic_entry (DT_DEBUG, 0))
2695 return FALSE;
2696 }
2697
2698 if (htab->elf.srelplt->size != 0)
2699 {
2700 if (!add_dynamic_entry (DT_PLTGOT, 0)
2701 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2702 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2703 || !add_dynamic_entry (DT_JMPREL, 0))
2704 return FALSE;
2705 }
2706
2707 if (!add_dynamic_entry (DT_RELA, 0)
2708 || !add_dynamic_entry (DT_RELASZ, 0)
2709 || !add_dynamic_entry (DT_RELAENT, TILEGX_ELF_RELA_BYTES (htab)))
2710 return FALSE;
2711
2712 /* If any dynamic relocs apply to a read-only section,
2713 then we need a DT_TEXTREL entry. */
2714 if ((info->flags & DF_TEXTREL) == 0)
2715 elf_link_hash_traverse (&htab->elf, maybe_set_textrel, info);
2716
2717 if (info->flags & DF_TEXTREL)
2718 {
2719 if (!add_dynamic_entry (DT_TEXTREL, 0))
2720 return FALSE;
2721 }
2722 }
2723 #undef add_dynamic_entry
2724
2725 return TRUE;
2726 }
2727 \f
2728 /* Return the base VMA address which should be subtracted from real addresses
2729 when resolving @dtpoff relocation.
2730 This is PT_TLS segment p_vaddr. */
2731
2732 static bfd_vma
2733 dtpoff_base (struct bfd_link_info *info)
2734 {
2735 /* If tls_sec is NULL, we should have signalled an error already. */
2736 if (elf_hash_table (info)->tls_sec == NULL)
2737 return 0;
2738 return elf_hash_table (info)->tls_sec->vma;
2739 }
2740
2741 /* Return the relocation value for @tpoff relocation. */
2742
2743 static bfd_vma
2744 tpoff (struct bfd_link_info *info, bfd_vma address)
2745 {
2746 struct elf_link_hash_table *htab = elf_hash_table (info);
2747
2748 /* If tls_sec is NULL, we should have signalled an error already. */
2749 if (htab->tls_sec == NULL)
2750 return 0;
2751
2752 return (address - htab->tls_sec->vma);
2753 }
2754
2755 /* Copy SIZE bits from FROM to TO at address ADDR. */
2756
2757 static void
2758 tilegx_copy_bits (bfd_byte *addr, int from, int to, int size)
2759 {
2760 int i;
2761 for (i = 0; i < size; i++)
2762 {
2763 int from_byte = (from + i) / 8;
2764 int from_bit = (from + i) % 8;
2765 int to_byte = (to + i) / 8;
2766 int to_bit = (to + i) % 8;
2767 bfd_byte to_mask = 1 << to_bit;
2768 addr[to_byte] = (addr[to_byte] & ~to_mask)
2769 | ((addr[from_byte] >> from_bit << to_bit) & to_mask);
2770 }
2771 }
2772
2773 /* Replace the MASK bits in ADDR with those in INSN, for the next
2774 TILEGX_BUNDLE_SIZE_IN_BYTES bytes. */
2775
2776 static void
2777 tilegx_replace_insn (bfd_byte *addr, const bfd_byte *mask,
2778 const bfd_byte *insn)
2779 {
2780 int i;
2781 for (i = 0; i < TILEGX_BUNDLE_SIZE_IN_BYTES; i++)
2782 {
2783 addr[i] = (addr[i] & ~mask[i]) | (insn[i] & mask[i]);
2784 }
2785 }
2786
2787 /* Mask to extract the bits corresponding to an instruction in a
2788 specific pipe of a bundle. */
2789 static const bfd_byte insn_mask_X1[] = {
2790 0x00, 0x00, 0x00, 0x80, 0xff, 0xff, 0xff, 0x3f
2791 };
2792
2793 /* Mask to extract the bits corresponding to an instruction in a
2794 specific pipe of a bundle, minus the destination operand and the
2795 first source operand. */
2796 static const bfd_byte insn_mask_X0_no_dest_no_srca[] = {
2797 0x00, 0xf0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00
2798 };
2799
2800 static const bfd_byte insn_mask_X1_no_dest_no_srca[] = {
2801 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0x3f
2802 };
2803
2804 static const bfd_byte insn_mask_Y0_no_dest_no_srca[] = {
2805 0x00, 0xf0, 0x0f, 0x78, 0x00, 0x00, 0x00, 0x00
2806 };
2807 static const bfd_byte insn_mask_Y1_no_dest_no_srca[] = {
2808 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0x3c
2809 };
2810
2811 /* Mask to extract the bits corresponding to an instruction in a
2812 specific pipe of a bundle, minus the register operands. */
2813 static const bfd_byte insn_mask_X0_no_operand[] = {
2814 0x00, 0x00, 0xfc, 0x7f, 0x00, 0x00, 0x00, 0x00
2815 };
2816
2817 static const bfd_byte insn_mask_X1_no_operand[] = {
2818 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x3f
2819 };
2820
2821 static const bfd_byte insn_mask_Y0_no_operand[] = {
2822 0x00, 0x00, 0x0c, 0x78, 0x00, 0x00, 0x00, 0x00
2823 };
2824
2825 static const bfd_byte insn_mask_Y1_no_operand[] = {
2826 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x3c
2827 };
2828
2829 /* Various instructions synthesized to support tls references. */
2830
2831 /* ld r0, r0 in the X1 pipe, used for tls ie. */
2832 static const bfd_byte insn_tls_ie_ld_X1[] = {
2833 0x00, 0x00, 0x00, 0x00, 0x00, 0xe8, 0x6a, 0x28
2834 };
2835
2836 /* ld4s r0, r0 in the X1 pipe, used for tls ie. */
2837 static const bfd_byte insn_tls_ie_ld4s_X1[] = {
2838 0x00, 0x00, 0x00, 0x00, 0x00, 0x98, 0x6a, 0x28
2839 };
2840
2841 /* add r0, r0, tp in various pipes, used for tls ie. */
2842 static const bfd_byte insn_tls_ie_add_X0X1[] = {
2843 0x00, 0x50, 0x0f, 0x50, 0x00, 0xa8, 0x07, 0x28
2844 };
2845 static const bfd_byte insn_tls_ie_add_Y0Y1[] = {
2846 0x00, 0x50, 0x27, 0x2c, 0x00, 0xa8, 0x13, 0x9a
2847 };
2848
2849 /* addx r0, r0, tp in various pipes, used for tls ie. */
2850 static const bfd_byte insn_tls_ie_addx_X0X1[] = {
2851 0x00, 0x50, 0x0b, 0x50, 0x00, 0xa8, 0x05, 0x28
2852 };
2853 static const bfd_byte insn_tls_ie_addx_Y0Y1[] = {
2854 0x00, 0x50, 0x03, 0x2c, 0x00, 0xa8, 0x01, 0x9a
2855 };
2856
2857 /* move r0, r0 in various pipes, used for tls gd. */
2858 static const bfd_byte insn_tls_gd_add_X0X1[] = {
2859 0x00, 0xf0, 0x07, 0x51, 0x00, 0xf8, 0x3b, 0x28
2860 };
2861 static const bfd_byte insn_tls_gd_add_Y0Y1[] = {
2862 0x00, 0xf0, 0x0b, 0x54, 0x00, 0xf8, 0x05, 0xae
2863 };
2864
2865 static const bfd_byte *insn_move_X0X1 = insn_tls_gd_add_X0X1;
2866 static const bfd_byte *insn_move_Y0Y1 = insn_tls_gd_add_Y0Y1;
2867
2868 static const bfd_byte *insn_add_X0X1 = insn_tls_ie_add_X0X1;
2869 static const bfd_byte *insn_add_Y0Y1 = insn_tls_ie_add_Y0Y1;
2870
2871 static const bfd_byte *insn_addx_X0X1 = insn_tls_ie_addx_X0X1;
2872 static const bfd_byte *insn_addx_Y0Y1 = insn_tls_ie_addx_Y0Y1;
2873
2874 /* Relocate an TILEGX ELF section.
2875
2876 The RELOCATE_SECTION function is called by the new ELF backend linker
2877 to handle the relocations for a section.
2878
2879 The relocs are always passed as Rela structures.
2880
2881 This function is responsible for adjusting the section contents as
2882 necessary, and (if generating a relocatable output file) adjusting
2883 the reloc addend as necessary.
2884
2885 This function does not have to worry about setting the reloc
2886 address or the reloc symbol index.
2887
2888 LOCAL_SYMS is a pointer to the swapped in local symbols.
2889
2890 LOCAL_SECTIONS is an array giving the section in the input file
2891 corresponding to the st_shndx field of each local symbol.
2892
2893 The global hash table entry for the global symbols can be found
2894 via elf_sym_hashes (input_bfd).
2895
2896 When generating relocatable output, this function must handle
2897 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
2898 going to be the section symbol corresponding to the output
2899 section, which means that the addend must be adjusted
2900 accordingly. */
2901
2902 bfd_boolean
2903 tilegx_elf_relocate_section (bfd *output_bfd, struct bfd_link_info *info,
2904 bfd *input_bfd, asection *input_section,
2905 bfd_byte *contents, Elf_Internal_Rela *relocs,
2906 Elf_Internal_Sym *local_syms,
2907 asection **local_sections)
2908 {
2909 struct tilegx_elf_link_hash_table *htab;
2910 Elf_Internal_Shdr *symtab_hdr;
2911 struct elf_link_hash_entry **sym_hashes;
2912 bfd_vma *local_got_offsets;
2913 bfd_vma got_base;
2914 asection *sreloc;
2915 Elf_Internal_Rela *rel;
2916 Elf_Internal_Rela *relend;
2917 int num_relocs;
2918
2919 htab = tilegx_elf_hash_table (info);
2920 BFD_ASSERT (htab != NULL);
2921 symtab_hdr = &elf_symtab_hdr (input_bfd);
2922 sym_hashes = elf_sym_hashes (input_bfd);
2923 local_got_offsets = elf_local_got_offsets (input_bfd);
2924
2925 if (elf_hash_table (info)->hgot == NULL)
2926 got_base = 0;
2927 else
2928 got_base = elf_hash_table (info)->hgot->root.u.def.value;
2929
2930 sreloc = elf_section_data (input_section)->sreloc;
2931
2932 rel = relocs;
2933 num_relocs = input_section->reloc_count;
2934 relend = relocs + num_relocs;
2935 for (; rel < relend; rel++)
2936 {
2937 int r_type, tls_type;
2938 bfd_boolean is_tls_iele, is_tls_le;
2939 reloc_howto_type *howto;
2940 unsigned long r_symndx;
2941 struct elf_link_hash_entry *h;
2942 Elf_Internal_Sym *sym;
2943 tilegx_create_func create_func;
2944 asection *sec;
2945 bfd_vma relocation;
2946 bfd_reloc_status_type r;
2947 const char *name;
2948 bfd_vma off;
2949 bfd_boolean is_plt = FALSE;
2950 bfd_boolean resolved_to_zero;
2951 bfd_boolean unresolved_reloc;
2952
2953 r_type = TILEGX_ELF_R_TYPE (rel->r_info);
2954 if (r_type == R_TILEGX_GNU_VTINHERIT
2955 || r_type == R_TILEGX_GNU_VTENTRY)
2956 continue;
2957
2958 if ((unsigned int)r_type >= ARRAY_SIZE (tilegx_elf_howto_table))
2959 return _bfd_unrecognized_reloc (input_bfd, input_section, r_type);
2960
2961 howto = tilegx_elf_howto_table + r_type;
2962
2963 /* This is a final link. */
2964 r_symndx = TILEGX_ELF_R_SYMNDX (htab, rel->r_info);
2965 h = NULL;
2966 sym = NULL;
2967 sec = NULL;
2968 unresolved_reloc = FALSE;
2969 if (r_symndx < symtab_hdr->sh_info)
2970 {
2971 sym = local_syms + r_symndx;
2972 sec = local_sections[r_symndx];
2973 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2974 }
2975 else
2976 {
2977 bfd_boolean warned ATTRIBUTE_UNUSED;
2978 bfd_boolean ignored ATTRIBUTE_UNUSED;
2979
2980 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2981 r_symndx, symtab_hdr, sym_hashes,
2982 h, sec, relocation,
2983 unresolved_reloc, warned, ignored);
2984 if (warned)
2985 {
2986 /* To avoid generating warning messages about truncated
2987 relocations, set the relocation's address to be the same as
2988 the start of this section. */
2989 if (input_section->output_section != NULL)
2990 relocation = input_section->output_section->vma;
2991 else
2992 relocation = 0;
2993 }
2994 }
2995
2996 if (sec != NULL && discarded_section (sec))
2997 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
2998 rel, 1, relend, howto, 0, contents);
2999
3000 if (bfd_link_relocatable (info))
3001 continue;
3002
3003 if (h != NULL)
3004 name = h->root.root.string;
3005 else
3006 {
3007 name = (bfd_elf_string_from_elf_section
3008 (input_bfd, symtab_hdr->sh_link, sym->st_name));
3009 if (name == NULL || *name == '\0')
3010 name = bfd_section_name (sec);
3011 }
3012
3013 switch (r_type)
3014 {
3015 case R_TILEGX_TLS_GD_CALL:
3016 case R_TILEGX_IMM8_X0_TLS_GD_ADD:
3017 case R_TILEGX_IMM8_Y0_TLS_GD_ADD:
3018 case R_TILEGX_IMM8_X1_TLS_GD_ADD:
3019 case R_TILEGX_IMM8_Y1_TLS_GD_ADD:
3020 case R_TILEGX_IMM8_X0_TLS_ADD:
3021 case R_TILEGX_IMM8_Y0_TLS_ADD:
3022 case R_TILEGX_IMM8_X1_TLS_ADD:
3023 case R_TILEGX_IMM8_Y1_TLS_ADD:
3024 tls_type = GOT_UNKNOWN;
3025 if (h == NULL && local_got_offsets)
3026 tls_type =
3027 _bfd_tilegx_elf_local_got_tls_type (input_bfd) [r_symndx];
3028 else if (h != NULL)
3029 tls_type = tilegx_elf_hash_entry(h)->tls_type;
3030
3031 is_tls_iele = (bfd_link_executable (info) || tls_type == GOT_TLS_IE);
3032 is_tls_le = is_tls_iele && (!input_section->sec_flg0
3033 && bfd_link_executable (info)
3034 && (h == NULL || h->dynindx == -1));
3035
3036 if (r_type == R_TILEGX_TLS_GD_CALL)
3037 {
3038 if (is_tls_le)
3039 {
3040 /* GD -> LE */
3041 tilegx_replace_insn (contents + rel->r_offset,
3042 insn_mask_X1, insn_move_X0X1);
3043 continue;
3044 }
3045 else if (is_tls_iele)
3046 {
3047 /* GD -> IE */
3048 if (ABI_64_P (output_bfd))
3049 tilegx_replace_insn (contents + rel->r_offset,
3050 insn_mask_X1, insn_tls_ie_ld_X1);
3051 else
3052 tilegx_replace_insn (contents + rel->r_offset,
3053 insn_mask_X1, insn_tls_ie_ld4s_X1);
3054 continue;
3055 }
3056
3057 /* GD -> GD */
3058 h = (struct elf_link_hash_entry *)
3059 bfd_link_hash_lookup (info->hash, "__tls_get_addr", FALSE,
3060 FALSE, TRUE);
3061 BFD_ASSERT (h != NULL);
3062 r_type = R_TILEGX_JUMPOFF_X1_PLT;
3063 howto = tilegx_elf_howto_table + r_type;
3064 }
3065 else if (r_type == R_TILEGX_IMM8_X0_TLS_ADD
3066 || r_type == R_TILEGX_IMM8_X1_TLS_ADD
3067 || r_type == R_TILEGX_IMM8_Y0_TLS_ADD
3068 || r_type == R_TILEGX_IMM8_Y1_TLS_ADD)
3069 {
3070 bfd_boolean is_pipe0 =
3071 (r_type == R_TILEGX_IMM8_X0_TLS_ADD
3072 || r_type == R_TILEGX_IMM8_Y0_TLS_ADD);
3073 bfd_boolean is_X0X1 =
3074 (r_type == R_TILEGX_IMM8_X0_TLS_ADD
3075 || r_type == R_TILEGX_IMM8_X1_TLS_ADD);
3076 int dest_begin = is_pipe0 ? 0 : 31;
3077 int src_begin;
3078 const bfd_byte *insn;
3079 const bfd_byte *mask = NULL;
3080
3081 if (is_tls_le)
3082 {
3083 /* 1. copy dest operand into the first source operand.
3084 2. change the opcode to "move". */
3085 src_begin = is_pipe0 ? 6 : 37;
3086 insn = is_X0X1 ? insn_move_X0X1 : insn_move_Y0Y1;
3087
3088 switch (r_type)
3089 {
3090 case R_TILEGX_IMM8_X0_TLS_ADD:
3091 mask = insn_mask_X0_no_dest_no_srca;
3092 break;
3093 case R_TILEGX_IMM8_X1_TLS_ADD:
3094 mask = insn_mask_X1_no_dest_no_srca;
3095 break;
3096 case R_TILEGX_IMM8_Y0_TLS_ADD:
3097 mask = insn_mask_Y0_no_dest_no_srca;
3098 break;
3099 case R_TILEGX_IMM8_Y1_TLS_ADD:
3100 mask = insn_mask_Y1_no_dest_no_srca;
3101 break;
3102 }
3103 }
3104 else
3105 {
3106 /* 1. copy dest operand into the second source operand.
3107 2. change the opcode to "add". */
3108 src_begin = is_pipe0 ? 12 : 43;
3109 if (ABI_64_P (output_bfd))
3110 insn = is_X0X1 ? insn_add_X0X1 : insn_add_Y0Y1;
3111 else
3112 insn = is_X0X1 ? insn_addx_X0X1 : insn_addx_Y0Y1;
3113
3114 switch (r_type)
3115 {
3116 case R_TILEGX_IMM8_X0_TLS_ADD:
3117 mask = insn_mask_X0_no_operand;
3118 break;
3119 case R_TILEGX_IMM8_X1_TLS_ADD:
3120 mask = insn_mask_X1_no_operand;
3121 break;
3122 case R_TILEGX_IMM8_Y0_TLS_ADD:
3123 mask = insn_mask_Y0_no_operand;
3124 break;
3125 case R_TILEGX_IMM8_Y1_TLS_ADD:
3126 mask = insn_mask_Y1_no_operand;
3127 break;
3128 }
3129 }
3130
3131 tilegx_copy_bits (contents + rel->r_offset, dest_begin,
3132 src_begin, 6);
3133 tilegx_replace_insn (contents + rel->r_offset, mask, insn);
3134
3135 continue;
3136 }
3137 else
3138 {
3139 const bfd_byte *mask = NULL;
3140 const bfd_byte *add_insn = NULL;
3141 bfd_boolean is_64bit = ABI_64_P (output_bfd);
3142
3143 switch (r_type)
3144 {
3145 case R_TILEGX_IMM8_X0_TLS_GD_ADD:
3146 add_insn = is_tls_iele
3147 ? (is_64bit ? insn_tls_ie_add_X0X1 : insn_tls_ie_addx_X0X1)
3148 : insn_tls_gd_add_X0X1;
3149 mask = insn_mask_X0_no_dest_no_srca;
3150 break;
3151 case R_TILEGX_IMM8_X1_TLS_GD_ADD:
3152 add_insn = is_tls_iele
3153 ? (is_64bit ? insn_tls_ie_add_X0X1 : insn_tls_ie_addx_X0X1)
3154 : insn_tls_gd_add_X0X1;
3155 mask = insn_mask_X1_no_dest_no_srca;
3156 break;
3157 case R_TILEGX_IMM8_Y0_TLS_GD_ADD:
3158 add_insn = is_tls_iele
3159 ? (is_64bit ? insn_tls_ie_add_Y0Y1 : insn_tls_ie_addx_Y0Y1)
3160 : insn_tls_gd_add_Y0Y1;
3161 mask = insn_mask_Y0_no_dest_no_srca;
3162 break;
3163 case R_TILEGX_IMM8_Y1_TLS_GD_ADD:
3164 add_insn = is_tls_iele
3165 ? (is_64bit ? insn_tls_ie_add_Y0Y1 : insn_tls_ie_addx_Y0Y1)
3166 : insn_tls_gd_add_Y0Y1;
3167 mask = insn_mask_Y1_no_dest_no_srca;
3168 break;
3169 }
3170
3171 tilegx_replace_insn (contents + rel->r_offset, mask, add_insn);
3172
3173 continue;
3174 }
3175 break;
3176 case R_TILEGX_TLS_IE_LOAD:
3177 if (!input_section->sec_flg0
3178 && bfd_link_executable (info)
3179 && (h == NULL || h->dynindx == -1))
3180 {
3181 /* IE -> LE */
3182 tilegx_replace_insn (contents + rel->r_offset,
3183 insn_mask_X1_no_dest_no_srca,
3184 insn_move_X0X1);
3185 }
3186 else
3187 {
3188 /* IE -> IE */
3189 if (ABI_64_P (output_bfd))
3190 tilegx_replace_insn (contents + rel->r_offset,
3191 insn_mask_X1_no_dest_no_srca,
3192 insn_tls_ie_ld_X1);
3193 else
3194 tilegx_replace_insn (contents + rel->r_offset,
3195 insn_mask_X1_no_dest_no_srca,
3196 insn_tls_ie_ld4s_X1);
3197 }
3198 continue;
3199 break;
3200 default:
3201 break;
3202 }
3203
3204 resolved_to_zero = (h != NULL
3205 && UNDEFWEAK_NO_DYNAMIC_RELOC (info, h));
3206
3207 switch (r_type)
3208 {
3209 case R_TILEGX_IMM16_X0_HW0_GOT:
3210 case R_TILEGX_IMM16_X1_HW0_GOT:
3211 case R_TILEGX_IMM16_X0_HW0_LAST_GOT:
3212 case R_TILEGX_IMM16_X1_HW0_LAST_GOT:
3213 case R_TILEGX_IMM16_X0_HW1_LAST_GOT:
3214 case R_TILEGX_IMM16_X1_HW1_LAST_GOT:
3215 /* Relocation is to the entry for this symbol in the global
3216 offset table. */
3217 if (htab->elf.sgot == NULL)
3218 abort ();
3219
3220 if (h != NULL)
3221 {
3222 bfd_boolean dyn;
3223
3224 off = h->got.offset;
3225 BFD_ASSERT (off != (bfd_vma) -1);
3226 dyn = elf_hash_table (info)->dynamic_sections_created;
3227
3228 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
3229 bfd_link_pic (info),
3230 h)
3231 || (bfd_link_pic (info)
3232 && SYMBOL_REFERENCES_LOCAL (info, h)))
3233 {
3234 /* This is actually a static link, or it is a
3235 -Bsymbolic link and the symbol is defined
3236 locally, or the symbol was forced to be local
3237 because of a version file. We must initialize
3238 this entry in the global offset table. Since the
3239 offset must always be a multiple
3240 of 8 for 64-bit, we use the least significant bit
3241 to record whether we have initialized it already.
3242
3243 When doing a dynamic link, we create a .rela.got
3244 relocation entry to initialize the value. This
3245 is done in the finish_dynamic_symbol routine. */
3246 if ((off & 1) != 0)
3247 off &= ~1;
3248 else
3249 {
3250 TILEGX_ELF_PUT_WORD (htab, output_bfd, relocation,
3251 htab->elf.sgot->contents + off);
3252 h->got.offset |= 1;
3253 }
3254 }
3255 else
3256 unresolved_reloc = FALSE;
3257 }
3258 else
3259 {
3260 BFD_ASSERT (local_got_offsets != NULL
3261 && local_got_offsets[r_symndx] != (bfd_vma) -1);
3262
3263 off = local_got_offsets[r_symndx];
3264
3265 /* The offset must always be a multiple of 8 on 64-bit.
3266 We use the least significant bit to record
3267 whether we have already processed this entry. */
3268 if ((off & 1) != 0)
3269 off &= ~1;
3270 else
3271 {
3272 if (bfd_link_pic (info))
3273 {
3274 asection *s;
3275 Elf_Internal_Rela outrel;
3276
3277 /* We need to generate a R_TILEGX_RELATIVE reloc
3278 for the dynamic linker. */
3279 s = htab->elf.srelgot;
3280 BFD_ASSERT (s != NULL);
3281
3282 outrel.r_offset = (htab->elf.sgot->output_section->vma
3283 + htab->elf.sgot->output_offset
3284 + off);
3285 outrel.r_info =
3286 TILEGX_ELF_R_INFO (htab, NULL, 0, R_TILEGX_RELATIVE);
3287 outrel.r_addend = relocation;
3288 relocation = 0;
3289 tilegx_elf_append_rela (output_bfd, s, &outrel);
3290 }
3291
3292 TILEGX_ELF_PUT_WORD (htab, output_bfd, relocation,
3293 htab->elf.sgot->contents + off);
3294 local_got_offsets[r_symndx] |= 1;
3295 }
3296 }
3297 relocation = off - got_base;
3298 break;
3299
3300 case R_TILEGX_JUMPOFF_X1_PLT:
3301 case R_TILEGX_IMM16_X0_HW0_PLT_PCREL:
3302 case R_TILEGX_IMM16_X1_HW0_PLT_PCREL:
3303 case R_TILEGX_IMM16_X0_HW1_PLT_PCREL:
3304 case R_TILEGX_IMM16_X1_HW1_PLT_PCREL:
3305 case R_TILEGX_IMM16_X0_HW2_PLT_PCREL:
3306 case R_TILEGX_IMM16_X1_HW2_PLT_PCREL:
3307 case R_TILEGX_IMM16_X0_HW3_PLT_PCREL:
3308 case R_TILEGX_IMM16_X1_HW3_PLT_PCREL:
3309 case R_TILEGX_IMM16_X0_HW0_LAST_PLT_PCREL:
3310 case R_TILEGX_IMM16_X1_HW0_LAST_PLT_PCREL:
3311 case R_TILEGX_IMM16_X0_HW1_LAST_PLT_PCREL:
3312 case R_TILEGX_IMM16_X1_HW1_LAST_PLT_PCREL:
3313 case R_TILEGX_IMM16_X0_HW2_LAST_PLT_PCREL:
3314 case R_TILEGX_IMM16_X1_HW2_LAST_PLT_PCREL:
3315 /* Relocation is to the entry for this symbol in the
3316 procedure linkage table. */
3317 BFD_ASSERT (h != NULL);
3318
3319 if (h->plt.offset == (bfd_vma) -1 || htab->elf.splt == NULL)
3320 {
3321 /* We didn't make a PLT entry for this symbol. This
3322 happens when statically linking PIC code, or when
3323 using -Bsymbolic. */
3324 break;
3325 }
3326
3327 relocation = (htab->elf.splt->output_section->vma
3328 + htab->elf.splt->output_offset
3329 + h->plt.offset);
3330 unresolved_reloc = FALSE;
3331 break;
3332
3333 case R_TILEGX_64_PCREL:
3334 case R_TILEGX_32_PCREL:
3335 case R_TILEGX_16_PCREL:
3336 case R_TILEGX_8_PCREL:
3337 case R_TILEGX_IMM16_X0_HW0_PCREL:
3338 case R_TILEGX_IMM16_X1_HW0_PCREL:
3339 case R_TILEGX_IMM16_X0_HW1_PCREL:
3340 case R_TILEGX_IMM16_X1_HW1_PCREL:
3341 case R_TILEGX_IMM16_X0_HW2_PCREL:
3342 case R_TILEGX_IMM16_X1_HW2_PCREL:
3343 case R_TILEGX_IMM16_X0_HW3_PCREL:
3344 case R_TILEGX_IMM16_X1_HW3_PCREL:
3345 case R_TILEGX_IMM16_X0_HW0_LAST_PCREL:
3346 case R_TILEGX_IMM16_X1_HW0_LAST_PCREL:
3347 case R_TILEGX_IMM16_X0_HW1_LAST_PCREL:
3348 case R_TILEGX_IMM16_X1_HW1_LAST_PCREL:
3349 case R_TILEGX_IMM16_X0_HW2_LAST_PCREL:
3350 case R_TILEGX_IMM16_X1_HW2_LAST_PCREL:
3351 if (h != NULL
3352 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3353 break;
3354 /* Fall through. */
3355 case R_TILEGX_64:
3356 case R_TILEGX_32:
3357 case R_TILEGX_16:
3358 case R_TILEGX_8:
3359 case R_TILEGX_HW0:
3360 case R_TILEGX_HW1:
3361 case R_TILEGX_HW2:
3362 case R_TILEGX_HW3:
3363 case R_TILEGX_HW0_LAST:
3364 case R_TILEGX_HW1_LAST:
3365 case R_TILEGX_HW2_LAST:
3366 case R_TILEGX_COPY:
3367 case R_TILEGX_GLOB_DAT:
3368 case R_TILEGX_JMP_SLOT:
3369 case R_TILEGX_RELATIVE:
3370 case R_TILEGX_BROFF_X1:
3371 case R_TILEGX_JUMPOFF_X1:
3372 case R_TILEGX_IMM8_X0:
3373 case R_TILEGX_IMM8_Y0:
3374 case R_TILEGX_IMM8_X1:
3375 case R_TILEGX_IMM8_Y1:
3376 case R_TILEGX_DEST_IMM8_X1:
3377 case R_TILEGX_MT_IMM14_X1:
3378 case R_TILEGX_MF_IMM14_X1:
3379 case R_TILEGX_MMSTART_X0:
3380 case R_TILEGX_MMEND_X0:
3381 case R_TILEGX_SHAMT_X0:
3382 case R_TILEGX_SHAMT_X1:
3383 case R_TILEGX_SHAMT_Y0:
3384 case R_TILEGX_SHAMT_Y1:
3385 case R_TILEGX_IMM16_X0_HW0:
3386 case R_TILEGX_IMM16_X1_HW0:
3387 case R_TILEGX_IMM16_X0_HW1:
3388 case R_TILEGX_IMM16_X1_HW1:
3389 case R_TILEGX_IMM16_X0_HW2:
3390 case R_TILEGX_IMM16_X1_HW2:
3391 case R_TILEGX_IMM16_X0_HW3:
3392 case R_TILEGX_IMM16_X1_HW3:
3393 case R_TILEGX_IMM16_X0_HW0_LAST:
3394 case R_TILEGX_IMM16_X1_HW0_LAST:
3395 case R_TILEGX_IMM16_X0_HW1_LAST:
3396 case R_TILEGX_IMM16_X1_HW1_LAST:
3397 case R_TILEGX_IMM16_X0_HW2_LAST:
3398 case R_TILEGX_IMM16_X1_HW2_LAST:
3399 if ((input_section->flags & SEC_ALLOC) == 0)
3400 break;
3401
3402 if ((bfd_link_pic (info)
3403 && (h == NULL
3404 || (ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3405 && !resolved_to_zero)
3406 || h->root.type != bfd_link_hash_undefweak)
3407 && (! howto->pc_relative
3408 || !SYMBOL_CALLS_LOCAL (info, h)))
3409 || (!bfd_link_pic (info)
3410 && h != NULL
3411 && h->dynindx != -1
3412 && !h->non_got_ref
3413 && ((h->def_dynamic
3414 && !h->def_regular)
3415 || h->root.type == bfd_link_hash_undefweak
3416 || h->root.type == bfd_link_hash_undefined)))
3417 {
3418 Elf_Internal_Rela outrel;
3419 bfd_boolean skip, relocate = FALSE;
3420
3421 /* When generating a shared object, these relocations
3422 are copied into the output file to be resolved at run
3423 time. */
3424
3425 BFD_ASSERT (sreloc != NULL);
3426
3427 skip = FALSE;
3428
3429 outrel.r_offset =
3430 _bfd_elf_section_offset (output_bfd, info, input_section,
3431 rel->r_offset);
3432 if (outrel.r_offset == (bfd_vma) -1)
3433 skip = TRUE;
3434 else if (outrel.r_offset == (bfd_vma) -2)
3435 skip = TRUE, relocate = TRUE;
3436 outrel.r_offset += (input_section->output_section->vma
3437 + input_section->output_offset);
3438
3439 switch (r_type)
3440 {
3441 case R_TILEGX_64_PCREL:
3442 case R_TILEGX_32_PCREL:
3443 case R_TILEGX_16_PCREL:
3444 case R_TILEGX_8_PCREL:
3445 /* If the symbol is not dynamic, we should not keep
3446 a dynamic relocation. But an .rela.* slot has been
3447 allocated for it, output R_TILEGX_NONE.
3448 FIXME: Add code tracking needed dynamic relocs as
3449 e.g. i386 has. */
3450 if (h->dynindx == -1)
3451 skip = TRUE, relocate = TRUE;
3452 break;
3453 }
3454
3455 if (skip)
3456 memset (&outrel, 0, sizeof outrel);
3457 /* h->dynindx may be -1 if the symbol was marked to
3458 become local. */
3459 else if (h != NULL &&
3460 h->dynindx != -1
3461 && (! is_plt
3462 || !bfd_link_pic (info)
3463 || !SYMBOLIC_BIND (info, h)
3464 || !h->def_regular))
3465 {
3466 BFD_ASSERT (h->dynindx != -1);
3467 outrel.r_info = TILEGX_ELF_R_INFO (htab, rel, h->dynindx, r_type);
3468 outrel.r_addend = rel->r_addend;
3469 }
3470 else
3471 {
3472 if (r_type == R_TILEGX_32 || r_type == R_TILEGX_64)
3473 {
3474 outrel.r_info = TILEGX_ELF_R_INFO (htab, NULL, 0,
3475 R_TILEGX_RELATIVE);
3476 outrel.r_addend = relocation + rel->r_addend;
3477 }
3478 else
3479 {
3480 long indx;
3481
3482 outrel.r_addend = relocation + rel->r_addend;
3483
3484 if (is_plt)
3485 sec = htab->elf.splt;
3486
3487 if (bfd_is_abs_section (sec))
3488 indx = 0;
3489 else if (sec == NULL || sec->owner == NULL)
3490 {
3491 bfd_set_error (bfd_error_bad_value);
3492 return FALSE;
3493 }
3494 else
3495 {
3496 asection *osec;
3497
3498 /* We are turning this relocation into one
3499 against a section symbol. It would be
3500 proper to subtract the symbol's value,
3501 osec->vma, from the emitted reloc addend,
3502 but ld.so expects buggy relocs. */
3503 osec = sec->output_section;
3504 indx = elf_section_data (osec)->dynindx;
3505
3506 if (indx == 0)
3507 {
3508 osec = htab->elf.text_index_section;
3509 indx = elf_section_data (osec)->dynindx;
3510 }
3511
3512 /* FIXME: we really should be able to link non-pic
3513 shared libraries. */
3514 if (indx == 0)
3515 {
3516 BFD_FAIL ();
3517 _bfd_error_handler
3518 (_("%pB: probably compiled without -fPIC?"),
3519 input_bfd);
3520 bfd_set_error (bfd_error_bad_value);
3521 return FALSE;
3522 }
3523 }
3524
3525 outrel.r_info = TILEGX_ELF_R_INFO (htab, rel, indx,
3526 r_type);
3527 }
3528 }
3529
3530 tilegx_elf_append_rela (output_bfd, sreloc, &outrel);
3531
3532 /* This reloc will be computed at runtime, so there's no
3533 need to do anything now. */
3534 if (! relocate)
3535 continue;
3536 }
3537 break;
3538
3539 case R_TILEGX_IMM16_X0_HW0_TLS_LE:
3540 case R_TILEGX_IMM16_X1_HW0_TLS_LE:
3541 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_LE:
3542 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_LE:
3543 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_LE:
3544 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_LE:
3545 if (!bfd_link_executable (info))
3546 {
3547 Elf_Internal_Rela outrel;
3548 bfd_boolean skip;
3549
3550 BFD_ASSERT (sreloc != NULL);
3551 skip = FALSE;
3552 outrel.r_offset =
3553 _bfd_elf_section_offset (output_bfd, info, input_section,
3554 rel->r_offset);
3555 if (outrel.r_offset == (bfd_vma) -1)
3556 skip = TRUE;
3557 else if (outrel.r_offset == (bfd_vma) -2)
3558 skip = TRUE;
3559 outrel.r_offset += (input_section->output_section->vma
3560 + input_section->output_offset);
3561 if (skip)
3562 memset (&outrel, 0, sizeof outrel);
3563 else
3564 {
3565 outrel.r_info = TILEGX_ELF_R_INFO (htab, NULL, 0, r_type);
3566 outrel.r_addend = relocation - dtpoff_base (info)
3567 + rel->r_addend;
3568 }
3569
3570 tilegx_elf_append_rela (output_bfd, sreloc, &outrel);
3571 continue;
3572 }
3573 relocation = tpoff (info, relocation);
3574 break;
3575
3576 case R_TILEGX_IMM16_X0_HW0_TLS_GD:
3577 case R_TILEGX_IMM16_X1_HW0_TLS_GD:
3578 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_GD:
3579 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_GD:
3580 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_GD:
3581 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_GD:
3582 case R_TILEGX_IMM16_X0_HW0_TLS_IE:
3583 case R_TILEGX_IMM16_X1_HW0_TLS_IE:
3584 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_IE:
3585 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_IE:
3586 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_IE:
3587 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_IE:
3588 r_type = tilegx_elf_tls_transition (info, r_type, h == NULL,
3589 input_section->sec_flg0);
3590 tls_type = GOT_UNKNOWN;
3591 if (h == NULL && local_got_offsets)
3592 tls_type =
3593 _bfd_tilegx_elf_local_got_tls_type (input_bfd) [r_symndx];
3594 else if (h != NULL)
3595 {
3596 tls_type = tilegx_elf_hash_entry(h)->tls_type;
3597 if (bfd_link_executable (info)
3598 && h->dynindx == -1
3599 && tls_type == GOT_TLS_IE)
3600 r_type = (!input_section->sec_flg0
3601 ? tilegx_tls_translate_to_le (r_type)
3602 : tilegx_tls_translate_to_ie (r_type));
3603 }
3604
3605 if (tls_type == GOT_TLS_IE)
3606 r_type = tilegx_tls_translate_to_ie (r_type);
3607
3608 if (r_type == R_TILEGX_IMM16_X0_HW0_TLS_LE
3609 || r_type == R_TILEGX_IMM16_X1_HW0_TLS_LE
3610 || r_type == R_TILEGX_IMM16_X0_HW0_LAST_TLS_LE
3611 || r_type == R_TILEGX_IMM16_X1_HW0_LAST_TLS_LE
3612 || r_type == R_TILEGX_IMM16_X0_HW1_LAST_TLS_LE
3613 || r_type == R_TILEGX_IMM16_X1_HW1_LAST_TLS_LE)
3614 {
3615 relocation = tpoff (info, relocation);
3616 break;
3617 }
3618
3619 if (h != NULL)
3620 {
3621 off = h->got.offset;
3622 h->got.offset |= 1;
3623 }
3624 else
3625 {
3626 BFD_ASSERT (local_got_offsets != NULL);
3627 off = local_got_offsets[r_symndx];
3628 local_got_offsets[r_symndx] |= 1;
3629 }
3630
3631 if (htab->elf.sgot == NULL)
3632 abort ();
3633
3634 if ((off & 1) != 0)
3635 off &= ~1;
3636 else
3637 {
3638 Elf_Internal_Rela outrel;
3639 int indx = 0;
3640 bfd_boolean need_relocs = FALSE;
3641
3642 if (htab->elf.srelgot == NULL)
3643 abort ();
3644
3645 if (h != NULL)
3646 {
3647 bfd_boolean dyn;
3648 dyn = htab->elf.dynamic_sections_created;
3649
3650 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
3651 bfd_link_pic (info),
3652 h)
3653 && (!bfd_link_pic (info)
3654 || !SYMBOL_REFERENCES_LOCAL (info, h)))
3655 {
3656 indx = h->dynindx;
3657 }
3658 }
3659
3660 /* The GOT entries have not been initialized yet. Do it
3661 now, and emit any relocations. */
3662 if ((bfd_link_pic (info) || indx != 0)
3663 && (h == NULL
3664 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3665 || h->root.type != bfd_link_hash_undefweak))
3666 need_relocs = TRUE;
3667
3668 switch (r_type)
3669 {
3670 case R_TILEGX_IMM16_X0_HW0_TLS_IE:
3671 case R_TILEGX_IMM16_X1_HW0_TLS_IE:
3672 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_IE:
3673 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_IE:
3674 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_IE:
3675 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_IE:
3676 if (need_relocs) {
3677 TILEGX_ELF_PUT_WORD (htab, output_bfd, 0,
3678 htab->elf.sgot->contents + off);
3679 outrel.r_offset = (htab->elf.sgot->output_section->vma
3680 + htab->elf.sgot->output_offset + off);
3681 outrel.r_addend = 0;
3682 if (indx == 0)
3683 outrel.r_addend = relocation - dtpoff_base (info);
3684 outrel.r_info = TILEGX_ELF_R_INFO (htab, NULL, indx,
3685 TILEGX_ELF_TPOFF_RELOC (htab));
3686 tilegx_elf_append_rela (output_bfd, htab->elf.srelgot, &outrel);
3687 } else {
3688 TILEGX_ELF_PUT_WORD (htab, output_bfd,
3689 tpoff (info, relocation),
3690 htab->elf.sgot->contents + off);
3691 }
3692 break;
3693
3694 case R_TILEGX_IMM16_X0_HW0_TLS_GD:
3695 case R_TILEGX_IMM16_X1_HW0_TLS_GD:
3696 case R_TILEGX_IMM16_X0_HW0_LAST_TLS_GD:
3697 case R_TILEGX_IMM16_X1_HW0_LAST_TLS_GD:
3698 case R_TILEGX_IMM16_X0_HW1_LAST_TLS_GD:
3699 case R_TILEGX_IMM16_X1_HW1_LAST_TLS_GD:
3700 if (need_relocs) {
3701 outrel.r_offset = (htab->elf.sgot->output_section->vma
3702 + htab->elf.sgot->output_offset + off);
3703 outrel.r_addend = 0;
3704 outrel.r_info = TILEGX_ELF_R_INFO (htab, NULL, indx,
3705 TILEGX_ELF_DTPMOD_RELOC (htab));
3706 TILEGX_ELF_PUT_WORD (htab, output_bfd, 0,
3707 htab->elf.sgot->contents + off);
3708 tilegx_elf_append_rela (output_bfd, htab->elf.srelgot, &outrel);
3709 if (indx == 0)
3710 {
3711 BFD_ASSERT (! unresolved_reloc);
3712 TILEGX_ELF_PUT_WORD (htab, output_bfd,
3713 relocation - dtpoff_base (info),
3714 (htab->elf.sgot->contents + off +
3715 TILEGX_ELF_WORD_BYTES (htab)));
3716 }
3717 else
3718 {
3719 TILEGX_ELF_PUT_WORD (htab, output_bfd, 0,
3720 (htab->elf.sgot->contents + off +
3721 TILEGX_ELF_WORD_BYTES (htab)));
3722 outrel.r_info = TILEGX_ELF_R_INFO (htab, NULL, indx,
3723 TILEGX_ELF_DTPOFF_RELOC (htab));
3724 outrel.r_offset += TILEGX_ELF_WORD_BYTES (htab);
3725 tilegx_elf_append_rela (output_bfd, htab->elf.srelgot, &outrel);
3726 }
3727 }
3728
3729 else {
3730 /* If we are not emitting relocations for a
3731 general dynamic reference, then we must be in a
3732 static link or an executable link with the
3733 symbol binding locally. Mark it as belonging
3734 to module 1, the executable. */
3735 TILEGX_ELF_PUT_WORD (htab, output_bfd, 1,
3736 htab->elf.sgot->contents + off );
3737 TILEGX_ELF_PUT_WORD (htab, output_bfd,
3738 relocation - dtpoff_base (info),
3739 htab->elf.sgot->contents + off +
3740 TILEGX_ELF_WORD_BYTES (htab));
3741 }
3742 break;
3743 }
3744 }
3745
3746 if (off >= (bfd_vma) -2)
3747 abort ();
3748
3749 relocation = off - got_base;
3750 unresolved_reloc = FALSE;
3751 howto = tilegx_elf_howto_table + r_type;
3752 break;
3753
3754 default:
3755 break;
3756 }
3757
3758 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3759 because such sections are not SEC_ALLOC and thus ld.so will
3760 not process them. */
3761 if (unresolved_reloc
3762 && !((input_section->flags & SEC_DEBUGGING) != 0
3763 && h->def_dynamic)
3764 && _bfd_elf_section_offset (output_bfd, info, input_section,
3765 rel->r_offset) != (bfd_vma) -1)
3766 _bfd_error_handler
3767 /* xgettext:c-format */
3768 (_("%pB(%pA+%#" PRIx64 "): "
3769 "unresolvable %s relocation against symbol `%s'"),
3770 input_bfd,
3771 input_section,
3772 (uint64_t) rel->r_offset,
3773 howto->name,
3774 h->root.root.string);
3775
3776 r = bfd_reloc_continue;
3777
3778 /* Get the operand creation function, if any. */
3779 create_func = reloc_to_create_func[r_type];
3780 if (create_func == NULL)
3781 {
3782 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3783 contents, rel->r_offset,
3784 relocation, rel->r_addend);
3785 }
3786 else
3787 {
3788 if (howto->pc_relative)
3789 {
3790 relocation -=
3791 input_section->output_section->vma + input_section->output_offset;
3792 if (howto->pcrel_offset)
3793 relocation -= rel->r_offset;
3794 }
3795
3796 bfd_byte *data;
3797
3798 /* Add the relocation addend if any to the final target value */
3799 relocation += rel->r_addend;
3800
3801 /* Do basic range checking */
3802 r = bfd_check_overflow (howto->complain_on_overflow,
3803 howto->bitsize,
3804 howto->rightshift,
3805 TILEGX_ELF_WORD_BYTES (htab) * 8,
3806 relocation);
3807
3808 /*
3809 * Write the relocated value out into the raw section data.
3810 * Don't put a relocation out in the .rela section.
3811 */
3812 tilegx_bundle_bits mask = create_func(-1);
3813 tilegx_bundle_bits value = create_func(relocation >> howto->rightshift);
3814
3815 /* Only touch bytes while the mask is not 0, so we
3816 don't write to out of bounds memory if this is actually
3817 a 16-bit switch instruction. */
3818 for (data = contents + rel->r_offset; mask != 0; data++)
3819 {
3820 bfd_byte byte_mask = (bfd_byte)mask;
3821 *data = (*data & ~byte_mask) | ((bfd_byte)value & byte_mask);
3822 mask >>= 8;
3823 value >>= 8;
3824 }
3825 }
3826
3827 if (r != bfd_reloc_ok)
3828 {
3829 const char *msg = NULL;
3830
3831 switch (r)
3832 {
3833 case bfd_reloc_overflow:
3834 (*info->callbacks->reloc_overflow)
3835 (info, (h ? &h->root : NULL), name, howto->name,
3836 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
3837 break;
3838
3839 case bfd_reloc_undefined:
3840 (*info->callbacks->undefined_symbol)
3841 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
3842 break;
3843
3844 case bfd_reloc_outofrange:
3845 msg = _("internal error: out of range error");
3846 break;
3847
3848 case bfd_reloc_notsupported:
3849 msg = _("internal error: unsupported relocation error");
3850 break;
3851
3852 case bfd_reloc_dangerous:
3853 msg = _("internal error: dangerous relocation");
3854 break;
3855
3856 default:
3857 msg = _("internal error: unknown error");
3858 break;
3859 }
3860
3861 if (msg)
3862 (*info->callbacks->warning) (info, msg, name, input_bfd,
3863 input_section, rel->r_offset);
3864 }
3865 }
3866
3867 return TRUE;
3868 }
3869
3870 /* Finish up dynamic symbol handling. We set the contents of various
3871 dynamic sections here. */
3872
3873 bfd_boolean
3874 tilegx_elf_finish_dynamic_symbol (bfd *output_bfd,
3875 struct bfd_link_info *info,
3876 struct elf_link_hash_entry *h,
3877 Elf_Internal_Sym *sym)
3878 {
3879 struct tilegx_elf_link_hash_table *htab;
3880
3881 htab = tilegx_elf_hash_table (info);
3882 BFD_ASSERT (htab != NULL);
3883
3884 if (h->plt.offset != (bfd_vma) -1)
3885 {
3886 asection *splt;
3887 asection *srela;
3888 asection *sgotplt;
3889 Elf_Internal_Rela rela;
3890 bfd_byte *loc;
3891 bfd_vma r_offset;
3892 const struct elf_backend_data *bed = get_elf_backend_data (output_bfd);
3893
3894
3895 int rela_index;
3896
3897 /* This symbol has an entry in the PLT. Set it up. */
3898
3899 BFD_ASSERT (h->dynindx != -1);
3900
3901 splt = htab->elf.splt;
3902 srela = htab->elf.srelplt;
3903 sgotplt = htab->elf.sgotplt;
3904
3905 if (splt == NULL || srela == NULL)
3906 abort ();
3907
3908 /* Fill in the entry in the procedure linkage table. */
3909 rela_index = tilegx_plt_entry_build (output_bfd, htab, splt, sgotplt,
3910 h->plt.offset, &r_offset);
3911
3912 /* Fill in the entry in the global offset table, which initially points
3913 to the beginning of the plt. */
3914 TILEGX_ELF_PUT_WORD (htab, output_bfd,
3915 splt->output_section->vma + splt->output_offset,
3916 sgotplt->contents + r_offset);
3917
3918 /* Fill in the entry in the .rela.plt section. */
3919 rela.r_offset = (sgotplt->output_section->vma
3920 + sgotplt->output_offset
3921 + r_offset);
3922 rela.r_addend = 0;
3923 rela.r_info = TILEGX_ELF_R_INFO (htab, NULL, h->dynindx, R_TILEGX_JMP_SLOT);
3924
3925 loc = srela->contents + rela_index * TILEGX_ELF_RELA_BYTES (htab);
3926 bed->s->swap_reloca_out (output_bfd, &rela, loc);
3927
3928 if (!h->def_regular)
3929 {
3930 /* Mark the symbol as undefined, rather than as defined in
3931 the .plt section. Leave the value alone. */
3932 sym->st_shndx = SHN_UNDEF;
3933 /* If the symbol is weak, we do need to clear the value.
3934 Otherwise, the PLT entry would provide a definition for
3935 the symbol even if the symbol wasn't defined anywhere,
3936 and so the symbol would never be NULL. */
3937 if (!h->ref_regular_nonweak)
3938 sym->st_value = 0;
3939 }
3940 }
3941
3942 if (h->got.offset != (bfd_vma) -1
3943 && tilegx_elf_hash_entry(h)->tls_type != GOT_TLS_GD
3944 && tilegx_elf_hash_entry(h)->tls_type != GOT_TLS_IE)
3945 {
3946 asection *sgot;
3947 asection *srela;
3948 Elf_Internal_Rela rela;
3949
3950 /* This symbol has an entry in the GOT. Set it up. */
3951
3952 sgot = htab->elf.sgot;
3953 srela = htab->elf.srelgot;
3954 BFD_ASSERT (sgot != NULL && srela != NULL);
3955
3956 rela.r_offset = (sgot->output_section->vma
3957 + sgot->output_offset
3958 + (h->got.offset &~ (bfd_vma) 1));
3959
3960 /* If this is a -Bsymbolic link, and the symbol is defined
3961 locally, we just want to emit a RELATIVE reloc. Likewise if
3962 the symbol was forced to be local because of a version file.
3963 The entry in the global offset table will already have been
3964 initialized in the relocate_section function. */
3965 if (bfd_link_pic (info)
3966 && (info->symbolic || h->dynindx == -1)
3967 && h->def_regular)
3968 {
3969 asection *sec = h->root.u.def.section;
3970 rela.r_info = TILEGX_ELF_R_INFO (htab, NULL, 0, R_TILEGX_RELATIVE);
3971 rela.r_addend = (h->root.u.def.value
3972 + sec->output_section->vma
3973 + sec->output_offset);
3974 }
3975 else
3976 {
3977 rela.r_info = TILEGX_ELF_R_INFO (htab, NULL, h->dynindx, R_TILEGX_GLOB_DAT);
3978 rela.r_addend = 0;
3979 }
3980
3981 TILEGX_ELF_PUT_WORD (htab, output_bfd, 0,
3982 sgot->contents + (h->got.offset & ~(bfd_vma) 1));
3983 tilegx_elf_append_rela (output_bfd, srela, &rela);
3984 }
3985
3986 if (h->needs_copy)
3987 {
3988 asection *s;
3989 Elf_Internal_Rela rela;
3990
3991 /* This symbols needs a copy reloc. Set it up. */
3992 BFD_ASSERT (h->dynindx != -1);
3993
3994 if (h->root.u.def.section == htab->elf.sdynrelro)
3995 s = htab->elf.sreldynrelro;
3996 else
3997 s = htab->elf.srelbss;
3998 BFD_ASSERT (s != NULL);
3999
4000 rela.r_offset = (h->root.u.def.value
4001 + h->root.u.def.section->output_section->vma
4002 + h->root.u.def.section->output_offset);
4003 rela.r_info = TILEGX_ELF_R_INFO (htab, NULL, h->dynindx, R_TILEGX_COPY);
4004 rela.r_addend = 0;
4005 tilegx_elf_append_rela (output_bfd, s, &rela);
4006 }
4007
4008 /* Mark some specially defined symbols as absolute. */
4009 if (h == htab->elf.hdynamic
4010 || (h == htab->elf.hgot || h == htab->elf.hplt))
4011 sym->st_shndx = SHN_ABS;
4012
4013 return TRUE;
4014 }
4015
4016 /* Finish up the dynamic sections. */
4017
4018 static bfd_boolean
4019 tilegx_finish_dyn (bfd *output_bfd, struct bfd_link_info *info,
4020 bfd *dynobj, asection *sdyn,
4021 asection *splt ATTRIBUTE_UNUSED)
4022 {
4023 struct tilegx_elf_link_hash_table *htab;
4024 const struct elf_backend_data *bed;
4025 bfd_byte *dyncon, *dynconend;
4026 size_t dynsize;
4027
4028 htab = tilegx_elf_hash_table (info);
4029 BFD_ASSERT (htab != NULL);
4030 bed = get_elf_backend_data (output_bfd);
4031 dynsize = bed->s->sizeof_dyn;
4032 dynconend = sdyn->contents + sdyn->size;
4033
4034 for (dyncon = sdyn->contents; dyncon < dynconend; dyncon += dynsize)
4035 {
4036 Elf_Internal_Dyn dyn;
4037 asection *s;
4038
4039 bed->s->swap_dyn_in (dynobj, dyncon, &dyn);
4040
4041 switch (dyn.d_tag)
4042 {
4043 case DT_PLTGOT:
4044 s = htab->elf.sgotplt;
4045 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4046 break;
4047 case DT_JMPREL:
4048 s = htab->elf.srelplt;
4049 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
4050 break;
4051 case DT_PLTRELSZ:
4052 s = htab->elf.srelplt;
4053 dyn.d_un.d_val = s->size;
4054 break;
4055 default:
4056 continue;
4057 }
4058
4059 bed->s->swap_dyn_out (output_bfd, &dyn, dyncon);
4060 }
4061 return TRUE;
4062 }
4063
4064 bfd_boolean
4065 tilegx_elf_finish_dynamic_sections (bfd *output_bfd,
4066 struct bfd_link_info *info)
4067 {
4068 bfd *dynobj;
4069 asection *sdyn;
4070 struct tilegx_elf_link_hash_table *htab;
4071 size_t pad_size;
4072
4073 htab = tilegx_elf_hash_table (info);
4074 BFD_ASSERT (htab != NULL);
4075 dynobj = htab->elf.dynobj;
4076
4077 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
4078
4079 if (elf_hash_table (info)->dynamic_sections_created)
4080 {
4081 asection *splt;
4082 bfd_boolean ret;
4083
4084 splt = htab->elf.splt;
4085 BFD_ASSERT (splt != NULL && sdyn != NULL);
4086
4087 ret = tilegx_finish_dyn (output_bfd, info, dynobj, sdyn, splt);
4088
4089 if (!ret)
4090 return ret;
4091
4092 /* Fill in the head and tail entries in the procedure linkage table. */
4093 if (splt->size > 0)
4094 {
4095 memcpy (splt->contents,
4096 ABI_64_P (output_bfd) ?
4097 tilegx64_plt0_entry : tilegx32_plt0_entry,
4098 PLT_HEADER_SIZE);
4099
4100 memcpy (splt->contents + splt->size
4101 - PLT_ENTRY_SIZE + PLT_HEADER_SIZE,
4102 ABI_64_P (output_bfd) ?
4103 tilegx64_plt_tail_entry : tilegx32_plt_tail_entry,
4104 PLT_TAIL_SIZE);
4105 /* Add padding so that the plt section is a multiple of its
4106 entry size. */
4107 pad_size = PLT_ENTRY_SIZE - PLT_HEADER_SIZE - PLT_TAIL_SIZE;
4108 memset (splt->contents + splt->size - pad_size, 0, pad_size);
4109
4110 elf_section_data (splt->output_section)->this_hdr.sh_entsize
4111 = PLT_ENTRY_SIZE;
4112 }
4113 }
4114
4115 if (htab->elf.sgotplt)
4116 {
4117 if (bfd_is_abs_section (htab->elf.sgotplt->output_section))
4118 {
4119 _bfd_error_handler
4120 (_("discarded output section: `%pA'"), htab->elf.sgotplt);
4121 return FALSE;
4122 }
4123
4124 if (htab->elf.sgotplt->size > 0)
4125 {
4126 /* Write the first two entries in .got.plt, needed for the dynamic
4127 linker. */
4128 TILEGX_ELF_PUT_WORD (htab, output_bfd, (bfd_vma) -1,
4129 htab->elf.sgotplt->contents);
4130 TILEGX_ELF_PUT_WORD (htab, output_bfd, (bfd_vma) 0,
4131 htab->elf.sgotplt->contents
4132 + GOT_ENTRY_SIZE (htab));
4133
4134 elf_section_data (htab->elf.sgotplt->output_section)->this_hdr.sh_entsize =
4135 GOT_ENTRY_SIZE (htab);
4136 }
4137 }
4138
4139 if (htab->elf.sgot)
4140 {
4141 if (htab->elf.sgot->size > 0)
4142 {
4143 /* Set the first entry in the global offset table to the address of
4144 the dynamic section. */
4145 bfd_vma val = (sdyn ?
4146 sdyn->output_section->vma + sdyn->output_offset :
4147 0);
4148 TILEGX_ELF_PUT_WORD (htab, output_bfd, val,
4149 htab->elf.sgot->contents);
4150
4151 elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize =
4152 GOT_ENTRY_SIZE (htab);
4153 }
4154 }
4155
4156 return TRUE;
4157 }
4158
4159 \f
4160
4161 /* Return address for Ith PLT stub in section PLT, for relocation REL
4162 or (bfd_vma) -1 if it should not be included. */
4163
4164 bfd_vma
4165 tilegx_elf_plt_sym_val (bfd_vma i, const asection *plt,
4166 const arelent *rel ATTRIBUTE_UNUSED)
4167 {
4168 return plt->vma + PLT_HEADER_SIZE + i * PLT_ENTRY_SIZE;
4169 }
4170
4171 enum elf_reloc_type_class
4172 tilegx_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
4173 const asection *rel_sec ATTRIBUTE_UNUSED,
4174 const Elf_Internal_Rela *rela)
4175 {
4176 switch ((int) TILEGX_ELF_R_TYPE (rela->r_info))
4177 {
4178 case R_TILEGX_RELATIVE:
4179 return reloc_class_relative;
4180 case R_TILEGX_JMP_SLOT:
4181 return reloc_class_plt;
4182 case R_TILEGX_COPY:
4183 return reloc_class_copy;
4184 default:
4185 return reloc_class_normal;
4186 }
4187 }
4188
4189 int
4190 tilegx_additional_program_headers (bfd *abfd,
4191 struct bfd_link_info *info ATTRIBUTE_UNUSED)
4192 {
4193 /* Each .intrpt section specified by the user adds another PT_LOAD
4194 header since the sections are discontiguous. */
4195 static const char intrpt_sections[4][9] =
4196 {
4197 ".intrpt0", ".intrpt1", ".intrpt2", ".intrpt3"
4198 };
4199 int count = 0;
4200 int i;
4201
4202 for (i = 0; i < 4; i++)
4203 {
4204 asection *sec = bfd_get_section_by_name (abfd, intrpt_sections[i]);
4205 if (sec != NULL && (sec->flags & SEC_LOAD) != 0)
4206 ++count;
4207 }
4208
4209 /* Add four "padding" headers in to leave room in case a custom linker
4210 script does something fancy. Otherwise ld complains that it ran
4211 out of program headers and refuses to link. */
4212 count += 4;
4213
4214 return count;
4215 }
4216
4217
4218 bfd_boolean
4219 _bfd_tilegx_elf_merge_private_bfd_data (bfd *ibfd, struct bfd_link_info *info)
4220 {
4221 bfd *obfd = info->output_bfd;
4222 const char *targ1 = bfd_get_target (ibfd);
4223 const char *targ2 = bfd_get_target (obfd);
4224
4225 if (strcmp (targ1, targ2) != 0)
4226 {
4227 _bfd_error_handler
4228 /* xgettext:c-format */
4229 (_("%pB: cannot link together %s and %s objects"),
4230 ibfd, targ1, targ2);
4231 bfd_set_error (bfd_error_bad_value);
4232 return FALSE;
4233 }
4234
4235 return TRUE;
4236 }
GDB Binutils - Deliverables
This page took 0.169057 seconds and 5 git commands to generate.