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