?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2013-03-12 Sebastian Huber <sebastian.huber@embedded-brains.de>
[binutils-gdb.git] / bfd / elf32-tilepro.c
blobdb31eebe2c83edeb2d6611b40b4dc7c29d8b21f0
1 /* TILEPro-specific support for 32-bit ELF.
2 Copyright 2011, 2012 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
1526 r_type = tilepro_elf_tls_transition (info, r_type, h == NULL);
1527 switch (r_type)
1528 {
1529 case R_TILEPRO_IMM16_X0_TLS_LE:
1530 case R_TILEPRO_IMM16_X1_TLS_LE:
1531 case R_TILEPRO_IMM16_X0_TLS_LE_LO:
1532 case R_TILEPRO_IMM16_X1_TLS_LE_LO:
1533 case R_TILEPRO_IMM16_X0_TLS_LE_HI:
1534 case R_TILEPRO_IMM16_X1_TLS_LE_HI:
1535 case R_TILEPRO_IMM16_X0_TLS_LE_HA:
1536 case R_TILEPRO_IMM16_X1_TLS_LE_HA:
1537 if (info->shared)
1538 goto r_tilepro_plt32;
1539 break;
1540
1541 case R_TILEPRO_IMM16_X0_TLS_GD:
1542 case R_TILEPRO_IMM16_X1_TLS_GD:
1543 case R_TILEPRO_IMM16_X0_TLS_GD_LO:
1544 case R_TILEPRO_IMM16_X1_TLS_GD_LO:
1545 case R_TILEPRO_IMM16_X0_TLS_GD_HI:
1546 case R_TILEPRO_IMM16_X1_TLS_GD_HI:
1547 case R_TILEPRO_IMM16_X0_TLS_GD_HA:
1548 case R_TILEPRO_IMM16_X1_TLS_GD_HA:
1549 BFD_ASSERT (info->shared);
1550 tls_type = GOT_TLS_GD;
1551 goto have_got_reference;
1552
1553 case R_TILEPRO_IMM16_X0_TLS_IE:
1554 case R_TILEPRO_IMM16_X1_TLS_IE:
1555 case R_TILEPRO_IMM16_X0_TLS_IE_LO:
1556 case R_TILEPRO_IMM16_X1_TLS_IE_LO:
1557 case R_TILEPRO_IMM16_X0_TLS_IE_HI:
1558 case R_TILEPRO_IMM16_X1_TLS_IE_HI:
1559 case R_TILEPRO_IMM16_X0_TLS_IE_HA:
1560 case R_TILEPRO_IMM16_X1_TLS_IE_HA:
1561 tls_type = GOT_TLS_IE;
1562 if (info->shared)
1563 info->flags |= DF_STATIC_TLS;
1564 goto have_got_reference;
1565
1566 case R_TILEPRO_IMM16_X0_GOT:
1567 case R_TILEPRO_IMM16_X1_GOT:
1568 case R_TILEPRO_IMM16_X0_GOT_LO:
1569 case R_TILEPRO_IMM16_X1_GOT_LO:
1570 case R_TILEPRO_IMM16_X0_GOT_HI:
1571 case R_TILEPRO_IMM16_X1_GOT_HI:
1572 case R_TILEPRO_IMM16_X0_GOT_HA:
1573 case R_TILEPRO_IMM16_X1_GOT_HA:
1574 tls_type = GOT_NORMAL;
1575 /* Fall Through */
1576
1577 have_got_reference:
1578 /* This symbol requires a global offset table entry. */
1579 {
1580 int old_tls_type;
1581
1582 if (h != NULL)
1583 {
1584 h->got.refcount += 1;
1585 old_tls_type = tilepro_elf_hash_entry(h)->tls_type;
1586 }
1587 else
1588 {
1589 bfd_signed_vma *local_got_refcounts;
1590
1591 /* This is a global offset table entry for a local symbol. */
1592 local_got_refcounts = elf_local_got_refcounts (abfd);
1593 if (local_got_refcounts == NULL)
1594 {
1595 bfd_size_type size;
1596
1597 size = symtab_hdr->sh_info;
1598 size *= (sizeof (bfd_signed_vma) + sizeof(char));
1599 local_got_refcounts = ((bfd_signed_vma *)
1600 bfd_zalloc (abfd, size));
1601 if (local_got_refcounts == NULL)
1602 return FALSE;
1603 elf_local_got_refcounts (abfd) = local_got_refcounts;
1604 _bfd_tilepro_elf_local_got_tls_type (abfd)
1605 = (char *) (local_got_refcounts + symtab_hdr->sh_info);
1606 }
1607 local_got_refcounts[r_symndx] += 1;
1608 old_tls_type =
1609 _bfd_tilepro_elf_local_got_tls_type (abfd) [r_symndx];
1610 }
1611
1612 /* If a TLS symbol is accessed using IE at least once,
1613 there is no point to use dynamic model for it. */
1614 if (old_tls_type != tls_type && old_tls_type != GOT_UNKNOWN
1615 && (old_tls_type != GOT_TLS_GD
1616 || tls_type != GOT_TLS_IE))
1617 {
1618 if (old_tls_type == GOT_TLS_IE && tls_type == GOT_TLS_GD)
1619 tls_type = old_tls_type;
1620 else
1621 {
1622 (*_bfd_error_handler)
1623 (_("%B: `%s' accessed both as normal and thread local symbol"),
1624 abfd, h ? h->root.root.string : "<local>");
1625 return FALSE;
1626 }
1627 }
1628
1629 if (old_tls_type != tls_type)
1630 {
1631 if (h != NULL)
1632 tilepro_elf_hash_entry (h)->tls_type = tls_type;
1633 else
1634 _bfd_tilepro_elf_local_got_tls_type (abfd) [r_symndx] =
1635 tls_type;
1636 }
1637 }
1638
1639 if (htab->elf.sgot == NULL)
1640 {
1641 if (!tilepro_elf_create_got_section (htab->elf.dynobj, info))
1642 return FALSE;
1643 }
1644 break;
1645
1646 case R_TILEPRO_TLS_GD_CALL:
1647 if (info->shared)
1648 {
1649 /* These are basically R_TILEPRO_JOFFLONG_X1_PLT relocs
1650 against __tls_get_addr. */
1651 struct bfd_link_hash_entry *bh = NULL;
1652 if (! _bfd_generic_link_add_one_symbol (info, abfd,
1653 "__tls_get_addr", 0,
1654 bfd_und_section_ptr, 0,
1655 NULL, FALSE, FALSE,
1656 &bh))
1657 return FALSE;
1658 h = (struct elf_link_hash_entry *) bh;
1659 }
1660 else
1661 break;
1662 /* Fall through */
1663
1664 case R_TILEPRO_JOFFLONG_X1_PLT:
1665 /* This symbol requires a procedure linkage table entry. We
1666 actually build the entry in adjust_dynamic_symbol,
1667 because this might be a case of linking PIC code without
1668 linking in any dynamic objects, in which case we don't
1669 need to generate a procedure linkage table after all. */
1670
1671 if (h != NULL)
1672 {
1673 h->needs_plt = 1;
1674 h->plt.refcount += 1;
1675 }
1676 break;
1677
1678 case R_TILEPRO_32_PCREL:
1679 case R_TILEPRO_16_PCREL:
1680 case R_TILEPRO_8_PCREL:
1681 case R_TILEPRO_IMM16_X0_PCREL:
1682 case R_TILEPRO_IMM16_X1_PCREL:
1683 case R_TILEPRO_IMM16_X0_LO_PCREL:
1684 case R_TILEPRO_IMM16_X1_LO_PCREL:
1685 case R_TILEPRO_IMM16_X0_HI_PCREL:
1686 case R_TILEPRO_IMM16_X1_HI_PCREL:
1687 case R_TILEPRO_IMM16_X0_HA_PCREL:
1688 case R_TILEPRO_IMM16_X1_HA_PCREL:
1689 if (h != NULL)
1690 h->non_got_ref = 1;
1691
1692 if (h != NULL
1693 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
1694 break;
1695 /* Fall through. */
1696
1697 case R_TILEPRO_32:
1698 case R_TILEPRO_16:
1699 case R_TILEPRO_8:
1700 case R_TILEPRO_LO16:
1701 case R_TILEPRO_HI16:
1702 case R_TILEPRO_HA16:
1703 case R_TILEPRO_COPY:
1704 case R_TILEPRO_GLOB_DAT:
1705 case R_TILEPRO_JMP_SLOT:
1706 case R_TILEPRO_RELATIVE:
1707 case R_TILEPRO_BROFF_X1:
1708 case R_TILEPRO_JOFFLONG_X1:
1709 case R_TILEPRO_IMM8_X0:
1710 case R_TILEPRO_IMM8_Y0:
1711 case R_TILEPRO_IMM8_X1:
1712 case R_TILEPRO_IMM8_Y1:
1713 case R_TILEPRO_DEST_IMM8_X1:
1714 case R_TILEPRO_MT_IMM15_X1:
1715 case R_TILEPRO_MF_IMM15_X1:
1716 case R_TILEPRO_IMM16_X0:
1717 case R_TILEPRO_IMM16_X1:
1718 case R_TILEPRO_IMM16_X0_LO:
1719 case R_TILEPRO_IMM16_X1_LO:
1720 case R_TILEPRO_IMM16_X0_HI:
1721 case R_TILEPRO_IMM16_X1_HI:
1722 case R_TILEPRO_IMM16_X0_HA:
1723 case R_TILEPRO_IMM16_X1_HA:
1724 case R_TILEPRO_MMSTART_X0:
1725 case R_TILEPRO_MMEND_X0:
1726 case R_TILEPRO_MMSTART_X1:
1727 case R_TILEPRO_MMEND_X1:
1728 case R_TILEPRO_SHAMT_X0:
1729 case R_TILEPRO_SHAMT_X1:
1730 case R_TILEPRO_SHAMT_Y0:
1731 case R_TILEPRO_SHAMT_Y1:
1732 if (h != NULL)
1733 h->non_got_ref = 1;
1734
1735 r_tilepro_plt32:
1736 if (h != NULL && !info->shared)
1737 {
1738 /* We may need a .plt entry if the function this reloc
1739 refers to is in a shared lib. */
1740 h->plt.refcount += 1;
1741 }
1742
1743 /* If we are creating a shared library, and this is a reloc
1744 against a global symbol, or a non PC relative reloc
1745 against a local symbol, then we need to copy the reloc
1746 into the shared library. However, if we are linking with
1747 -Bsymbolic, we do not need to copy a reloc against a
1748 global symbol which is defined in an object we are
1749 including in the link (i.e., DEF_REGULAR is set). At
1750 this point we have not seen all the input files, so it is
1751 possible that DEF_REGULAR is not set now but will be set
1752 later (it is never cleared). In case of a weak definition,
1753 DEF_REGULAR may be cleared later by a strong definition in
1754 a shared library. We account for that possibility below by
1755 storing information in the relocs_copied field of the hash
1756 table entry. A similar situation occurs when creating
1757 shared libraries and symbol visibility changes render the
1758 symbol local.
1759
1760 If on the other hand, we are creating an executable, we
1761 may need to keep relocations for symbols satisfied by a
1762 dynamic library if we manage to avoid copy relocs for the
1763 symbol. */
1764 if ((info->shared
1765 && (sec->flags & SEC_ALLOC) != 0
1766 && (! tilepro_elf_howto_table[r_type].pc_relative
1767 || (h != NULL
1768 && (! info->symbolic
1769 || h->root.type == bfd_link_hash_defweak
1770 || !h->def_regular))))
1771 || (!info->shared
1772 && (sec->flags & SEC_ALLOC) != 0
1773 && h != NULL
1774 && (h->root.type == bfd_link_hash_defweak
1775 || !h->def_regular)))
1776 {
1777 struct tilepro_elf_dyn_relocs *p;
1778 struct tilepro_elf_dyn_relocs **head;
1779
1780 /* When creating a shared object, we must copy these
1781 relocs into the output file. We create a reloc
1782 section in dynobj and make room for the reloc. */
1783 if (sreloc == NULL)
1784 {
1785 sreloc = _bfd_elf_make_dynamic_reloc_section
1786 (sec, htab->elf.dynobj, 2, abfd, /*rela?*/ TRUE);
1787
1788 if (sreloc == NULL)
1789 return FALSE;
1790 }
1791
1792 /* If this is a global symbol, we count the number of
1793 relocations we need for this symbol. */
1794 if (h != NULL)
1795 head =
1796 &((struct tilepro_elf_link_hash_entry *) h)->dyn_relocs;
1797 else
1798 {
1799 /* Track dynamic relocs needed for local syms too.
1800 We really need local syms available to do this
1801 easily. Oh well. */
1802
1803 asection *s;
1804 void *vpp;
1805 Elf_Internal_Sym *isym;
1806
1807 isym = bfd_sym_from_r_symndx (&htab->sym_cache,
1808 abfd, r_symndx);
1809 if (isym == NULL)
1810 return FALSE;
1811
1812 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
1813 if (s == NULL)
1814 s = sec;
1815
1816 vpp = &elf_section_data (s)->local_dynrel;
1817 head = (struct tilepro_elf_dyn_relocs **) vpp;
1818 }
1819
1820 p = *head;
1821 if (p == NULL || p->sec != sec)
1822 {
1823 bfd_size_type amt = sizeof *p;
1824 p = ((struct tilepro_elf_dyn_relocs *)
1825 bfd_alloc (htab->elf.dynobj, amt));
1826 if (p == NULL)
1827 return FALSE;
1828 p->next = *head;
1829 *head = p;
1830 p->sec = sec;
1831 p->count = 0;
1832 p->pc_count = 0;
1833 }
1834
1835 p->count += 1;
1836 if (tilepro_elf_howto_table[r_type].pc_relative)
1837 p->pc_count += 1;
1838 }
1839
1840 break;
1841
1842 case R_TILEPRO_GNU_VTINHERIT:
1843 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1844 return FALSE;
1845 break;
1846
1847 case R_TILEPRO_GNU_VTENTRY:
1848 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1849 return FALSE;
1850 break;
1851
1852 default:
1853 break;
1854 }
1855 }
1856
1857 return TRUE;
1858 }
1859
1860 \f
1861 static asection *
1862 tilepro_elf_gc_mark_hook (asection *sec,
1863 struct bfd_link_info *info,
1864 Elf_Internal_Rela *rel,
1865 struct elf_link_hash_entry *h,
1866 Elf_Internal_Sym *sym)
1867 {
1868 if (h != NULL)
1869 {
1870 switch (ELF32_R_TYPE (rel->r_info))
1871 {
1872 case R_TILEPRO_GNU_VTINHERIT:
1873 case R_TILEPRO_GNU_VTENTRY:
1874 return NULL;
1875 }
1876 }
1877
1878 /* FIXME: The test here, in check_relocs and in relocate_section
1879 dealing with TLS optimization, ought to be !info->executable. */
1880 if (info->shared)
1881 {
1882 switch (ELF32_R_TYPE (rel->r_info))
1883 {
1884 case R_TILEPRO_TLS_GD_CALL:
1885 /* This reloc implicitly references __tls_get_addr. We know
1886 another reloc will reference the same symbol as the one
1887 on this reloc, so the real symbol and section will be
1888 gc marked when processing the other reloc. That lets
1889 us handle __tls_get_addr here. */
1890 h = elf_link_hash_lookup (elf_hash_table (info), "__tls_get_addr",
1891 FALSE, FALSE, TRUE);
1892 BFD_ASSERT (h != NULL);
1893 h->mark = 1;
1894 if (h->u.weakdef != NULL)
1895 h->u.weakdef->mark = 1;
1896 sym = NULL;
1897 }
1898 }
1899
1900 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1901 }
1902
1903 /* Update the got entry reference counts for the section being removed. */
1904 static bfd_boolean
1905 tilepro_elf_gc_sweep_hook (bfd *abfd, struct bfd_link_info *info,
1906 asection *sec, const Elf_Internal_Rela *relocs)
1907 {
1908 struct tilepro_elf_link_hash_table *htab;
1909 Elf_Internal_Shdr *symtab_hdr;
1910 struct elf_link_hash_entry **sym_hashes;
1911 bfd_signed_vma *local_got_refcounts;
1912 const Elf_Internal_Rela *rel, *relend;
1913
1914 if (info->relocatable)
1915 return TRUE;
1916
1917 BFD_ASSERT (is_tilepro_elf (abfd) || sec->reloc_count == 0);
1918
1919 elf_section_data (sec)->local_dynrel = NULL;
1920
1921 htab = tilepro_elf_hash_table (info);
1922 BFD_ASSERT (htab != NULL);
1923 symtab_hdr = &elf_symtab_hdr (abfd);
1924 sym_hashes = elf_sym_hashes (abfd);
1925 local_got_refcounts = elf_local_got_refcounts (abfd);
1926
1927 relend = relocs + sec->reloc_count;
1928 for (rel = relocs; rel < relend; rel++)
1929 {
1930 unsigned long r_symndx;
1931 unsigned int r_type;
1932 struct elf_link_hash_entry *h = NULL;
1933
1934 r_symndx = ELF32_R_SYM (rel->r_info);
1935 if (r_symndx >= symtab_hdr->sh_info)
1936 {
1937 struct tilepro_elf_link_hash_entry *eh;
1938 struct tilepro_elf_dyn_relocs **pp;
1939 struct tilepro_elf_dyn_relocs *p;
1940
1941 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1942 while (h->root.type == bfd_link_hash_indirect
1943 || h->root.type == bfd_link_hash_warning)
1944 h = (struct elf_link_hash_entry *) h->root.u.i.link;
1945 eh = (struct tilepro_elf_link_hash_entry *) h;
1946 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; pp = &p->next)
1947 if (p->sec == sec)
1948 {
1949 /* Everything must go for SEC. */
1950 *pp = p->next;
1951 break;
1952 }
1953 }
1954
1955 r_type = ELF32_R_TYPE (rel->r_info);
1956 r_type = tilepro_elf_tls_transition (info, r_type, h != NULL);
1957 switch (r_type)
1958 {
1959 case R_TILEPRO_IMM16_X0_GOT:
1960 case R_TILEPRO_IMM16_X1_GOT:
1961 case R_TILEPRO_IMM16_X0_GOT_LO:
1962 case R_TILEPRO_IMM16_X1_GOT_LO:
1963 case R_TILEPRO_IMM16_X0_GOT_HI:
1964 case R_TILEPRO_IMM16_X1_GOT_HI:
1965 case R_TILEPRO_IMM16_X0_GOT_HA:
1966 case R_TILEPRO_IMM16_X1_GOT_HA:
1967 case R_TILEPRO_IMM16_X0_TLS_GD:
1968 case R_TILEPRO_IMM16_X1_TLS_GD:
1969 case R_TILEPRO_IMM16_X0_TLS_GD_LO:
1970 case R_TILEPRO_IMM16_X1_TLS_GD_LO:
1971 case R_TILEPRO_IMM16_X0_TLS_GD_HI:
1972 case R_TILEPRO_IMM16_X1_TLS_GD_HI:
1973 case R_TILEPRO_IMM16_X0_TLS_GD_HA:
1974 case R_TILEPRO_IMM16_X1_TLS_GD_HA:
1975 case R_TILEPRO_IMM16_X0_TLS_IE:
1976 case R_TILEPRO_IMM16_X1_TLS_IE:
1977 case R_TILEPRO_IMM16_X0_TLS_IE_LO:
1978 case R_TILEPRO_IMM16_X1_TLS_IE_LO:
1979 case R_TILEPRO_IMM16_X0_TLS_IE_HI:
1980 case R_TILEPRO_IMM16_X1_TLS_IE_HI:
1981 case R_TILEPRO_IMM16_X0_TLS_IE_HA:
1982 case R_TILEPRO_IMM16_X1_TLS_IE_HA:
1983 if (h != NULL)
1984 {
1985 if (h->got.refcount > 0)
1986 h->got.refcount--;
1987 }
1988 else
1989 {
1990 if (local_got_refcounts &&
1991 local_got_refcounts[r_symndx] > 0)
1992 local_got_refcounts[r_symndx]--;
1993 }
1994 break;
1995
1996 case R_TILEPRO_32_PCREL:
1997 case R_TILEPRO_16_PCREL:
1998 case R_TILEPRO_8_PCREL:
1999 case R_TILEPRO_IMM16_X0_PCREL:
2000 case R_TILEPRO_IMM16_X1_PCREL:
2001 case R_TILEPRO_IMM16_X0_LO_PCREL:
2002 case R_TILEPRO_IMM16_X1_LO_PCREL:
2003 case R_TILEPRO_IMM16_X0_HI_PCREL:
2004 case R_TILEPRO_IMM16_X1_HI_PCREL:
2005 case R_TILEPRO_IMM16_X0_HA_PCREL:
2006 case R_TILEPRO_IMM16_X1_HA_PCREL:
2007 if (h != NULL
2008 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
2009 break;
2010 /* Fall through. */
2011
2012 case R_TILEPRO_32:
2013 case R_TILEPRO_16:
2014 case R_TILEPRO_8:
2015 case R_TILEPRO_LO16:
2016 case R_TILEPRO_HI16:
2017 case R_TILEPRO_HA16:
2018 case R_TILEPRO_COPY:
2019 case R_TILEPRO_GLOB_DAT:
2020 case R_TILEPRO_JMP_SLOT:
2021 case R_TILEPRO_RELATIVE:
2022 case R_TILEPRO_BROFF_X1:
2023 case R_TILEPRO_JOFFLONG_X1:
2024 case R_TILEPRO_IMM8_X0:
2025 case R_TILEPRO_IMM8_Y0:
2026 case R_TILEPRO_IMM8_X1:
2027 case R_TILEPRO_IMM8_Y1:
2028 case R_TILEPRO_DEST_IMM8_X1:
2029 case R_TILEPRO_MT_IMM15_X1:
2030 case R_TILEPRO_MF_IMM15_X1:
2031 case R_TILEPRO_IMM16_X0:
2032 case R_TILEPRO_IMM16_X1:
2033 case R_TILEPRO_IMM16_X0_LO:
2034 case R_TILEPRO_IMM16_X1_LO:
2035 case R_TILEPRO_IMM16_X0_HI:
2036 case R_TILEPRO_IMM16_X1_HI:
2037 case R_TILEPRO_IMM16_X0_HA:
2038 case R_TILEPRO_IMM16_X1_HA:
2039 case R_TILEPRO_MMSTART_X0:
2040 case R_TILEPRO_MMEND_X0:
2041 case R_TILEPRO_MMSTART_X1:
2042 case R_TILEPRO_MMEND_X1:
2043 case R_TILEPRO_SHAMT_X0:
2044 case R_TILEPRO_SHAMT_X1:
2045 case R_TILEPRO_SHAMT_Y0:
2046 case R_TILEPRO_SHAMT_Y1:
2047 if (info->shared)
2048 break;
2049 /* Fall through. */
2050
2051 case R_TILEPRO_JOFFLONG_X1_PLT:
2052 if (h != NULL)
2053 {
2054 if (h->plt.refcount > 0)
2055 h->plt.refcount--;
2056 }
2057 break;
2058
2059 default:
2060 break;
2061 }
2062 }
2063
2064 return TRUE;
2065 }
2066
2067 /* Adjust a symbol defined by a dynamic object and referenced by a
2068 regular object. The current definition is in some section of the
2069 dynamic object, but we're not including those sections. We have to
2070 change the definition to something the rest of the link can
2071 understand. */
2072
2073 static bfd_boolean
2074 tilepro_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
2075 struct elf_link_hash_entry *h)
2076 {
2077 struct tilepro_elf_link_hash_table *htab;
2078 struct tilepro_elf_link_hash_entry * eh;
2079 struct tilepro_elf_dyn_relocs *p;
2080 asection *s;
2081
2082 htab = tilepro_elf_hash_table (info);
2083 BFD_ASSERT (htab != NULL);
2084
2085 /* Make sure we know what is going on here. */
2086 BFD_ASSERT (htab->elf.dynobj != NULL
2087 && (h->needs_plt
2088 || h->u.weakdef != NULL
2089 || (h->def_dynamic
2090 && h->ref_regular
2091 && !h->def_regular)));
2092
2093 /* If this is a function, put it in the procedure linkage table. We
2094 will fill in the contents of the procedure linkage table later
2095 (although we could actually do it here). */
2096 if (h->type == STT_FUNC || h->needs_plt)
2097 {
2098 if (h->plt.refcount <= 0
2099 || SYMBOL_CALLS_LOCAL (info, h)
2100 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2101 && h->root.type == bfd_link_hash_undefweak))
2102 {
2103 /* This case can occur if we saw a R_TILEPRO_JOFFLONG_X1_PLT
2104 reloc in an input file, but the symbol was never referred
2105 to by a dynamic object, or if all references were garbage
2106 collected. In such a case, we don't actually need to build
2107 a procedure linkage table, and we can just do a
2108 R_TILEPRO_JOFFLONG_X1 relocation instead. */
2109 h->plt.offset = (bfd_vma) -1;
2110 h->needs_plt = 0;
2111 }
2112
2113 return TRUE;
2114 }
2115 else
2116 h->plt.offset = (bfd_vma) -1;
2117
2118 /* If this is a weak symbol, and there is a real definition, the
2119 processor independent code will have arranged for us to see the
2120 real definition first, and we can just use the same value. */
2121 if (h->u.weakdef != NULL)
2122 {
2123 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
2124 || h->u.weakdef->root.type == bfd_link_hash_defweak);
2125 h->root.u.def.section = h->u.weakdef->root.u.def.section;
2126 h->root.u.def.value = h->u.weakdef->root.u.def.value;
2127 return TRUE;
2128 }
2129
2130 /* This is a reference to a symbol defined by a dynamic object which
2131 is not a function. */
2132
2133 /* If we are creating a shared library, we must presume that the
2134 only references to the symbol are via the global offset table.
2135 For such cases we need not do anything here; the relocations will
2136 be handled correctly by relocate_section. */
2137 if (info->shared)
2138 return TRUE;
2139
2140 /* If there are no references to this symbol that do not use the
2141 GOT, we don't need to generate a copy reloc. */
2142 if (!h->non_got_ref)
2143 return TRUE;
2144
2145 /* If -z nocopyreloc was given, we won't generate them either. */
2146 if (info->nocopyreloc)
2147 {
2148 h->non_got_ref = 0;
2149 return TRUE;
2150 }
2151
2152 eh = (struct tilepro_elf_link_hash_entry *) h;
2153 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2154 {
2155 s = p->sec->output_section;
2156 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2157 break;
2158 }
2159
2160 /* If we didn't find any dynamic relocs in read-only sections, then
2161 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
2162 if (p == NULL)
2163 {
2164 h->non_got_ref = 0;
2165 return TRUE;
2166 }
2167
2168 /* We must allocate the symbol in our .dynbss section, which will
2169 become part of the .bss section of the executable. There will be
2170 an entry for this symbol in the .dynsym section. The dynamic
2171 object will contain position independent code, so all references
2172 from the dynamic object to this symbol will go through the global
2173 offset table. The dynamic linker will use the .dynsym entry to
2174 determine the address it must put in the global offset table, so
2175 both the dynamic object and the regular object will refer to the
2176 same memory location for the variable. */
2177
2178 /* We must generate a R_TILEPRO_COPY reloc to tell the dynamic linker
2179 to copy the initial value out of the dynamic object and into the
2180 runtime process image. We need to remember the offset into the
2181 .rel.bss section we are going to use. */
2182 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0 && h->size != 0)
2183 {
2184 htab->srelbss->size += TILEPRO_ELF_RELA_BYTES;
2185 h->needs_copy = 1;
2186 }
2187
2188 return _bfd_elf_adjust_dynamic_copy (h, htab->sdynbss);
2189 }
2190
2191 /* Allocate space in .plt, .got and associated reloc sections for
2192 dynamic relocs. */
2193
2194 static bfd_boolean
2195 allocate_dynrelocs (struct elf_link_hash_entry *h, void *inf)
2196 {
2197 struct bfd_link_info *info;
2198 struct tilepro_elf_link_hash_table *htab;
2199 struct tilepro_elf_link_hash_entry *eh;
2200 struct tilepro_elf_dyn_relocs *p;
2201
2202 if (h->root.type == bfd_link_hash_indirect)
2203 return TRUE;
2204
2205 info = (struct bfd_link_info *) inf;
2206 htab = tilepro_elf_hash_table (info);
2207 BFD_ASSERT (htab != NULL);
2208
2209 if (htab->elf.dynamic_sections_created
2210 && h->plt.refcount > 0)
2211 {
2212 /* Make sure this symbol is output as a dynamic symbol.
2213 Undefined weak syms won't yet be marked as dynamic. */
2214 if (h->dynindx == -1
2215 && !h->forced_local)
2216 {
2217 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2218 return FALSE;
2219 }
2220
2221 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, info->shared, h))
2222 {
2223 asection *s = htab->elf.splt;
2224
2225 /* Allocate room for the header. */
2226 if (s->size == 0)
2227 {
2228 s->size = PLT_ENTRY_SIZE;
2229 }
2230
2231 h->plt.offset = s->size;
2232
2233 /* If this symbol is not defined in a regular file, and we are
2234 not generating a shared library, then set the symbol to this
2235 location in the .plt. This is required to make function
2236 pointers compare as equal between the normal executable and
2237 the shared library. */
2238 if (! info->shared
2239 && !h->def_regular)
2240 {
2241 h->root.u.def.section = s;
2242 h->root.u.def.value = h->plt.offset;
2243 }
2244
2245 /* Make room for this entry. */
2246 s->size += PLT_ENTRY_SIZE;
2247
2248 /* We also need to make an entry in the .got.plt section. */
2249 htab->elf.sgotplt->size += GOT_ENTRY_SIZE;
2250
2251 /* We also need to make an entry in the .rela.plt section. */
2252 htab->elf.srelplt->size += TILEPRO_ELF_RELA_BYTES;
2253 }
2254 else
2255 {
2256 h->plt.offset = (bfd_vma) -1;
2257 h->needs_plt = 0;
2258 }
2259 }
2260 else
2261 {
2262 h->plt.offset = (bfd_vma) -1;
2263 h->needs_plt = 0;
2264 }
2265
2266 /* If a TLS_IE symbol is now local to the binary, make it a TLS_LE
2267 requiring no TLS entry. */
2268 if (h->got.refcount > 0
2269 && !info->shared
2270 && h->dynindx == -1
2271 && tilepro_elf_hash_entry(h)->tls_type == GOT_TLS_IE)
2272 h->got.offset = (bfd_vma) -1;
2273 else if (h->got.refcount > 0)
2274 {
2275 asection *s;
2276 bfd_boolean dyn;
2277 int tls_type = tilepro_elf_hash_entry(h)->tls_type;
2278
2279 /* Make sure this symbol is output as a dynamic symbol.
2280 Undefined weak syms won't yet be marked as dynamic. */
2281 if (h->dynindx == -1
2282 && !h->forced_local)
2283 {
2284 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2285 return FALSE;
2286 }
2287
2288 s = htab->elf.sgot;
2289 h->got.offset = s->size;
2290 s->size += TILEPRO_BYTES_PER_WORD;
2291 /* R_TILEPRO_IMM16_Xn_TLS_GD entries need 2 consecutive GOT slots. */
2292 if (tls_type == GOT_TLS_GD)
2293 s->size += TILEPRO_BYTES_PER_WORD;
2294 dyn = htab->elf.dynamic_sections_created;
2295 /* R_TILEPRO_IMM16_Xn_TLS_IE_xxx needs one dynamic relocation,
2296 R_TILEPRO_IMM16_Xn_TLS_GD_xxx needs two if local symbol and two if
2297 global. */
2298 if (tls_type == GOT_TLS_GD || tls_type == GOT_TLS_IE)
2299 htab->elf.srelgot->size += 2 * TILEPRO_ELF_RELA_BYTES;
2300 else if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h))
2301 htab->elf.srelgot->size += TILEPRO_ELF_RELA_BYTES;
2302 }
2303 else
2304 h->got.offset = (bfd_vma) -1;
2305
2306 eh = (struct tilepro_elf_link_hash_entry *) h;
2307 if (eh->dyn_relocs == NULL)
2308 return TRUE;
2309
2310 /* In the shared -Bsymbolic case, discard space allocated for
2311 dynamic pc-relative relocs against symbols which turn out to be
2312 defined in regular objects. For the normal shared case, discard
2313 space for pc-relative relocs that have become local due to symbol
2314 visibility changes. */
2315
2316 if (info->shared)
2317 {
2318 if (SYMBOL_CALLS_LOCAL (info, h))
2319 {
2320 struct tilepro_elf_dyn_relocs **pp;
2321
2322 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2323 {
2324 p->count -= p->pc_count;
2325 p->pc_count = 0;
2326 if (p->count == 0)
2327 *pp = p->next;
2328 else
2329 pp = &p->next;
2330 }
2331 }
2332
2333 /* Also discard relocs on undefined weak syms with non-default
2334 visibility. */
2335 if (eh->dyn_relocs != NULL
2336 && h->root.type == bfd_link_hash_undefweak)
2337 {
2338 if (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT)
2339 eh->dyn_relocs = NULL;
2340
2341 /* Make sure undefined weak symbols are output as a dynamic
2342 symbol in PIEs. */
2343 else if (h->dynindx == -1
2344 && !h->forced_local)
2345 {
2346 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2347 return FALSE;
2348 }
2349 }
2350 }
2351 else
2352 {
2353 /* For the non-shared case, discard space for relocs against
2354 symbols which turn out to need copy relocs or are not
2355 dynamic. */
2356
2357 if (!h->non_got_ref
2358 && ((h->def_dynamic
2359 && !h->def_regular)
2360 || (htab->elf.dynamic_sections_created
2361 && (h->root.type == bfd_link_hash_undefweak
2362 || h->root.type == bfd_link_hash_undefined))))
2363 {
2364 /* Make sure this symbol is output as a dynamic symbol.
2365 Undefined weak syms won't yet be marked as dynamic. */
2366 if (h->dynindx == -1
2367 && !h->forced_local)
2368 {
2369 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2370 return FALSE;
2371 }
2372
2373 /* If that succeeded, we know we'll be keeping all the
2374 relocs. */
2375 if (h->dynindx != -1)
2376 goto keep;
2377 }
2378
2379 eh->dyn_relocs = NULL;
2380
2381 keep: ;
2382 }
2383
2384 /* Finally, allocate space. */
2385 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2386 {
2387 asection *sreloc = elf_section_data (p->sec)->sreloc;
2388 sreloc->size += p->count * TILEPRO_ELF_RELA_BYTES;
2389 }
2390
2391 return TRUE;
2392 }
2393
2394 /* Find any dynamic relocs that apply to read-only sections. */
2395
2396 static bfd_boolean
2397 readonly_dynrelocs (struct elf_link_hash_entry *h, void *inf)
2398 {
2399 struct tilepro_elf_link_hash_entry *eh;
2400 struct tilepro_elf_dyn_relocs *p;
2401
2402 eh = (struct tilepro_elf_link_hash_entry *) h;
2403 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2404 {
2405 asection *s = p->sec->output_section;
2406
2407 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2408 {
2409 struct bfd_link_info *info = (struct bfd_link_info *) inf;
2410
2411 info->flags |= DF_TEXTREL;
2412
2413 /* Not an error, just cut short the traversal. */
2414 return FALSE;
2415 }
2416 }
2417 return TRUE;
2418 }
2419
2420 /* Return true if the dynamic symbol for a given section should be
2421 omitted when creating a shared library. */
2422
2423 static bfd_boolean
2424 tilepro_elf_omit_section_dynsym (bfd *output_bfd,
2425 struct bfd_link_info *info,
2426 asection *p)
2427 {
2428 /* We keep the .got section symbol so that explicit relocations
2429 against the _GLOBAL_OFFSET_TABLE_ symbol emitted in PIC mode
2430 can be turned into relocations against the .got symbol. */
2431 if (strcmp (p->name, ".got") == 0)
2432 return FALSE;
2433
2434 return _bfd_elf_link_omit_section_dynsym (output_bfd, info, p);
2435 }
2436
2437 /* Set the sizes of the dynamic sections. */
2438
2439 #define ELF32_DYNAMIC_INTERPRETER "/lib/ld.so.1"
2440
2441 static bfd_boolean
2442 tilepro_elf_size_dynamic_sections (bfd *output_bfd,
2443 struct bfd_link_info *info)
2444 {
2445 (void)output_bfd;
2446
2447 struct tilepro_elf_link_hash_table *htab;
2448 bfd *dynobj;
2449 asection *s;
2450 bfd *ibfd;
2451
2452 htab = tilepro_elf_hash_table (info);
2453 BFD_ASSERT (htab != NULL);
2454 dynobj = htab->elf.dynobj;
2455 BFD_ASSERT (dynobj != NULL);
2456
2457 if (elf_hash_table (info)->dynamic_sections_created)
2458 {
2459 /* Set the contents of the .interp section to the interpreter. */
2460 if (info->executable)
2461 {
2462 s = bfd_get_linker_section (dynobj, ".interp");
2463 BFD_ASSERT (s != NULL);
2464 s->size = sizeof ELF32_DYNAMIC_INTERPRETER;
2465 s->contents = (unsigned char *) ELF32_DYNAMIC_INTERPRETER;
2466 }
2467 }
2468
2469 /* Set up .got offsets for local syms, and space for local dynamic
2470 relocs. */
2471 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link_next)
2472 {
2473 bfd_signed_vma *local_got;
2474 bfd_signed_vma *end_local_got;
2475 char *local_tls_type;
2476 bfd_size_type locsymcount;
2477 Elf_Internal_Shdr *symtab_hdr;
2478 asection *srel;
2479
2480 if (! is_tilepro_elf (ibfd))
2481 continue;
2482
2483 for (s = ibfd->sections; s != NULL; s = s->next)
2484 {
2485 struct tilepro_elf_dyn_relocs *p;
2486
2487 for (p = elf_section_data (s)->local_dynrel; p != NULL; p = p->next)
2488 {
2489 if (!bfd_is_abs_section (p->sec)
2490 && bfd_is_abs_section (p->sec->output_section))
2491 {
2492 /* Input section has been discarded, either because
2493 it is a copy of a linkonce section or due to
2494 linker script /DISCARD/, so we'll be discarding
2495 the relocs too. */
2496 }
2497 else if (p->count != 0)
2498 {
2499 srel = elf_section_data (p->sec)->sreloc;
2500 srel->size += p->count * TILEPRO_ELF_RELA_BYTES;
2501 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
2502 info->flags |= DF_TEXTREL;
2503 }
2504 }
2505 }
2506
2507 local_got = elf_local_got_refcounts (ibfd);
2508 if (!local_got)
2509 continue;
2510
2511 symtab_hdr = &elf_symtab_hdr (ibfd);
2512 locsymcount = symtab_hdr->sh_info;
2513 end_local_got = local_got + locsymcount;
2514 local_tls_type = _bfd_tilepro_elf_local_got_tls_type (ibfd);
2515 s = htab->elf.sgot;
2516 srel = htab->elf.srelgot;
2517 for (; local_got < end_local_got; ++local_got, ++local_tls_type)
2518 {
2519 if (*local_got > 0)
2520 {
2521 *local_got = s->size;
2522 s->size += TILEPRO_BYTES_PER_WORD;
2523 if (*local_tls_type == GOT_TLS_GD)
2524 s->size += TILEPRO_BYTES_PER_WORD;
2525 if (info->shared
2526 || *local_tls_type == GOT_TLS_GD
2527 || *local_tls_type == GOT_TLS_IE)
2528 srel->size += TILEPRO_ELF_RELA_BYTES;
2529 }
2530 else
2531 *local_got = (bfd_vma) -1;
2532 }
2533 }
2534
2535 /* Allocate global sym .plt and .got entries, and space for global
2536 sym dynamic relocs. */
2537 elf_link_hash_traverse (&htab->elf, allocate_dynrelocs, info);
2538
2539 if (elf_hash_table (info)->dynamic_sections_created)
2540 {
2541 /* If the .got section is more than 0x8000 bytes, we add
2542 0x8000 to the value of _GLOBAL_OFFSET_TABLE_, so that 16
2543 bit relocations have a greater chance of working. */
2544 if (htab->elf.sgot->size >= 0x8000
2545 && elf_hash_table (info)->hgot->root.u.def.value == 0)
2546 elf_hash_table (info)->hgot->root.u.def.value = 0x8000;
2547 }
2548
2549 if (htab->elf.sgotplt)
2550 {
2551 struct elf_link_hash_entry *got;
2552 got = elf_link_hash_lookup (elf_hash_table (info),
2553 "_GLOBAL_OFFSET_TABLE_",
2554 FALSE, FALSE, FALSE);
2555
2556 /* Don't allocate .got.plt section if there are no GOT nor PLT
2557 entries and there is no refeence to _GLOBAL_OFFSET_TABLE_. */
2558 if ((got == NULL
2559 || !got->ref_regular_nonweak)
2560 && (htab->elf.sgotplt->size
2561 == GOTPLT_HEADER_SIZE)
2562 && (htab->elf.splt == NULL
2563 || htab->elf.splt->size == 0)
2564 && (htab->elf.sgot == NULL
2565 || (htab->elf.sgot->size
2566 == get_elf_backend_data (output_bfd)->got_header_size)))
2567 htab->elf.sgotplt->size = 0;
2568 }
2569
2570 /* The check_relocs and adjust_dynamic_symbol entry points have
2571 determined the sizes of the various dynamic sections. Allocate
2572 memory for them. */
2573 for (s = dynobj->sections; s != NULL; s = s->next)
2574 {
2575 if ((s->flags & SEC_LINKER_CREATED) == 0)
2576 continue;
2577
2578 if (s == htab->elf.splt
2579 || s == htab->elf.sgot
2580 || s == htab->elf.sgotplt
2581 || s == htab->sdynbss)
2582 {
2583 /* Strip this section if we don't need it; see the
2584 comment below. */
2585 }
2586 else if (strncmp (s->name, ".rela", 5) == 0)
2587 {
2588 if (s->size != 0)
2589 {
2590 /* We use the reloc_count field as a counter if we need
2591 to copy relocs into the output file. */
2592 s->reloc_count = 0;
2593 }
2594 }
2595 else
2596 {
2597 /* It's not one of our sections. */
2598 continue;
2599 }
2600
2601 if (s->size == 0)
2602 {
2603 /* If we don't need this section, strip it from the
2604 output file. This is mostly to handle .rela.bss and
2605 .rela.plt. We must create both sections in
2606 create_dynamic_sections, because they must be created
2607 before the linker maps input sections to output
2608 sections. The linker does that before
2609 adjust_dynamic_symbol is called, and it is that
2610 function which decides whether anything needs to go
2611 into these sections. */
2612 s->flags |= SEC_EXCLUDE;
2613 continue;
2614 }
2615
2616 if ((s->flags & SEC_HAS_CONTENTS) == 0)
2617 continue;
2618
2619 /* Allocate memory for the section contents. Zero the memory
2620 for the benefit of .rela.plt, which has 4 unused entries
2621 at the beginning, and we don't want garbage. */
2622 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
2623 if (s->contents == NULL)
2624 return FALSE;
2625 }
2626
2627 if (elf_hash_table (info)->dynamic_sections_created)
2628 {
2629 /* Add some entries to the .dynamic section. We fill in the
2630 values later, in tilepro_elf_finish_dynamic_sections, but we
2631 must add the entries now so that we get the correct size for
2632 the .dynamic section. The DT_DEBUG entry is filled in by the
2633 dynamic linker and used by the debugger. */
2634 #define add_dynamic_entry(TAG, VAL) \
2635 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
2636
2637 if (info->executable)
2638 {
2639 if (!add_dynamic_entry (DT_DEBUG, 0))
2640 return FALSE;
2641 }
2642
2643 if (htab->elf.srelplt->size != 0)
2644 {
2645 if (!add_dynamic_entry (DT_PLTGOT, 0)
2646 || !add_dynamic_entry (DT_PLTRELSZ, 0)
2647 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
2648 || !add_dynamic_entry (DT_JMPREL, 0))
2649 return FALSE;
2650 }
2651
2652 if (!add_dynamic_entry (DT_RELA, 0)
2653 || !add_dynamic_entry (DT_RELASZ, 0)
2654 || !add_dynamic_entry (DT_RELAENT, TILEPRO_ELF_RELA_BYTES))
2655 return FALSE;
2656
2657 /* If any dynamic relocs apply to a read-only section,
2658 then we need a DT_TEXTREL entry. */
2659 if ((info->flags & DF_TEXTREL) == 0)
2660 elf_link_hash_traverse (&htab->elf, readonly_dynrelocs, info);
2661
2662 if (info->flags & DF_TEXTREL)
2663 {
2664 if (!add_dynamic_entry (DT_TEXTREL, 0))
2665 return FALSE;
2666 }
2667 }
2668 #undef add_dynamic_entry
2669
2670 return TRUE;
2671 }
2672 \f
2673 /* Return the base VMA address which should be subtracted from real addresses
2674 when resolving @dtpoff relocation.
2675 This is PT_TLS segment p_vaddr. */
2676
2677 static bfd_vma
2678 dtpoff_base (struct bfd_link_info *info)
2679 {
2680 /* If tls_sec is NULL, we should have signalled an error already. */
2681 if (elf_hash_table (info)->tls_sec == NULL)
2682 return 0;
2683 return elf_hash_table (info)->tls_sec->vma;
2684 }
2685
2686 /* Return the relocation value for R_TILEPRO_TLS_TPOFF32. */
2687
2688 static bfd_vma
2689 tpoff (struct bfd_link_info *info, bfd_vma address)
2690 {
2691 struct elf_link_hash_table *htab = elf_hash_table (info);
2692
2693 /* If tls_sec is NULL, we should have signalled an error already. */
2694 if (htab->tls_sec == NULL)
2695 return 0;
2696
2697 return (address - htab->tls_sec->vma);
2698 }
2699
2700 /* Replace the MASK bits in ADDR with those in INSN, for the next
2701 TILEPRO_BUNDLE_SIZE_IN_BYTES bytes. */
2702
2703 static void
2704 tilepro_replace_insn (bfd_byte *addr, const bfd_byte *mask,
2705 const bfd_byte *insn)
2706 {
2707 int i;
2708 for (i = 0; i < TILEPRO_BUNDLE_SIZE_IN_BYTES; i++)
2709 {
2710 addr[i] = (addr[i] & ~mask[i]) | (insn[i] & mask[i]);
2711 }
2712 }
2713
2714 /* Mask to extract the bits corresponding to an instruction in a
2715 specific pipe of a bundle. */
2716 static const bfd_byte insn_mask_X1[] = {
2717 0x00, 0x00, 0x00, 0x80, 0xff, 0xff, 0xff, 0x7f
2718 };
2719
2720 /* Mask to extract the bits corresponding to an instruction in a
2721 specific pipe of a bundle, minus the destination operand and the
2722 first source operand. */
2723 static const bfd_byte insn_mask_X0_no_dest_no_srca[] = {
2724 0x00, 0xf0, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00
2725 };
2726
2727 static const bfd_byte insn_mask_X1_no_dest_no_srca[] = {
2728 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0x7f
2729 };
2730
2731 static const bfd_byte insn_mask_Y0_no_dest_no_srca[] = {
2732 0x00, 0xf0, 0x0f, 0x78, 0x00, 0x00, 0x00, 0x00
2733 };
2734
2735 static const bfd_byte insn_mask_Y1_no_dest_no_srca[] = {
2736 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x07, 0x78
2737 };
2738
2739 /* Mask to extract the first source operand of an instruction. */
2740 static const bfd_byte srca_mask_X0[] = {
2741 0xc0, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2742 };
2743
2744 static const bfd_byte srca_mask_X1[] = {
2745 0x00, 0x00, 0x00, 0x00, 0xe0, 0x07, 0x00, 0x00
2746 };
2747
2748 /* Various instructions synthesized to support tls references. */
2749
2750 /* move r0, r0 in the X1 pipe, used for tls le. */
2751 static const bfd_byte insn_tls_le_move_X1[] = {
2752 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x33, 0x08
2753 };
2754
2755 /* move r0, zero in the X0 and X1 pipe, used for tls le. */
2756 static const bfd_byte insn_tls_le_move_zero_X0X1[] = {
2757 0xc0, 0xff, 0xcf, 0x00, 0xe0, 0xff, 0x33, 0x08
2758 };
2759
2760 /* lw r0, r0 in the X1 pipe, used for tls ie. */
2761 static const bfd_byte insn_tls_ie_lw_X1[] = {
2762 0x00, 0x00, 0x00, 0x00, 0x00, 0x70, 0x0b, 0x40
2763 };
2764
2765 /* add r0, r0, tp in various pipes, used for tls ie. */
2766 static const bfd_byte insn_tls_ie_add_X0X1[] = {
2767 0x00, 0x50, 0x0f, 0x00, 0x00, 0xa8, 0x07, 0x08
2768 };
2769 static const bfd_byte insn_tls_ie_add_Y0Y1[] = {
2770 0x00, 0x50, 0x03, 0x08, 0x00, 0xa8, 0x01, 0x8c
2771 };
2772
2773 /* move r0, r0 in various pipes, used for tls gd. */
2774 static const bfd_byte insn_tls_gd_add_X0X1[] = {
2775 0x00, 0xf0, 0xcf, 0x00, 0x00, 0xf8, 0x33, 0x08
2776 };
2777 static const bfd_byte insn_tls_gd_add_Y0Y1[] = {
2778 0x00, 0xf0, 0x0b, 0x18, 0x00, 0xf8, 0x05, 0x9c
2779 };
2780
2781 /* Relocate an TILEPRO ELF section.
2782
2783 The RELOCATE_SECTION function is called by the new ELF backend linker
2784 to handle the relocations for a section.
2785
2786 The relocs are always passed as Rela structures.
2787
2788 This function is responsible for adjusting the section contents as
2789 necessary, and (if generating a relocatable output file) adjusting
2790 the reloc addend as necessary.
2791
2792 This function does not have to worry about setting the reloc
2793 address or the reloc symbol index.
2794
2795 LOCAL_SYMS is a pointer to the swapped in local symbols.
2796
2797 LOCAL_SECTIONS is an array giving the section in the input file
2798 corresponding to the st_shndx field of each local symbol.
2799
2800 The global hash table entry for the global symbols can be found
2801 via elf_sym_hashes (input_bfd).
2802
2803 When generating relocatable output, this function must handle
2804 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
2805 going to be the section symbol corresponding to the output
2806 section, which means that the addend must be adjusted
2807 accordingly. */
2808
2809 static bfd_boolean
2810 tilepro_elf_relocate_section (bfd *output_bfd, struct bfd_link_info *info,
2811 bfd *input_bfd, asection *input_section,
2812 bfd_byte *contents, Elf_Internal_Rela *relocs,
2813 Elf_Internal_Sym *local_syms,
2814 asection **local_sections)
2815 {
2816 struct tilepro_elf_link_hash_table *htab;
2817 Elf_Internal_Shdr *symtab_hdr;
2818 struct elf_link_hash_entry **sym_hashes;
2819 bfd_vma *local_got_offsets;
2820 bfd_vma got_base;
2821 asection *sreloc;
2822 Elf_Internal_Rela *rel;
2823 Elf_Internal_Rela *relend;
2824 int num_relocs;
2825
2826 htab = tilepro_elf_hash_table (info);
2827 BFD_ASSERT (htab != NULL);
2828 symtab_hdr = &elf_symtab_hdr (input_bfd);
2829 sym_hashes = elf_sym_hashes (input_bfd);
2830 local_got_offsets = elf_local_got_offsets (input_bfd);
2831
2832 if (elf_hash_table (info)->hgot == NULL)
2833 got_base = 0;
2834 else
2835 got_base = elf_hash_table (info)->hgot->root.u.def.value;
2836
2837 sreloc = elf_section_data (input_section)->sreloc;
2838
2839 rel = relocs;
2840 num_relocs = input_section->reloc_count;
2841 relend = relocs + num_relocs;
2842 for (; rel < relend; rel++)
2843 {
2844 int r_type, tls_type;
2845 bfd_boolean is_tls_iele, is_tls_le;
2846 reloc_howto_type *howto;
2847 unsigned long r_symndx;
2848 struct elf_link_hash_entry *h;
2849 Elf_Internal_Sym *sym;
2850 tilepro_create_func create_func;
2851 asection *sec;
2852 bfd_vma relocation;
2853 bfd_reloc_status_type r;
2854 const char *name;
2855 bfd_vma off;
2856 bfd_boolean is_plt = FALSE;
2857
2858 bfd_boolean unresolved_reloc;
2859
2860 r_type = ELF32_R_TYPE (rel->r_info);
2861 if (r_type == R_TILEPRO_GNU_VTINHERIT
2862 || r_type == R_TILEPRO_GNU_VTENTRY)
2863 continue;
2864
2865 if ((unsigned int)r_type >= NELEMS(tilepro_elf_howto_table))
2866 {
2867 /* Not clear if we need to check here, but just be paranoid. */
2868 (*_bfd_error_handler)
2869 (_("%B: unrecognized relocation (0x%x) in section `%A'"),
2870 input_bfd, r_type, input_section);
2871 bfd_set_error (bfd_error_bad_value);
2872 return FALSE;
2873 }
2874
2875 howto = tilepro_elf_howto_table + r_type;
2876
2877 /* This is a final link. */
2878 r_symndx = ELF32_R_SYM (rel->r_info);
2879 h = NULL;
2880 sym = NULL;
2881 sec = NULL;
2882 unresolved_reloc = FALSE;
2883 if (r_symndx < symtab_hdr->sh_info)
2884 {
2885 sym = local_syms + r_symndx;
2886 sec = local_sections[r_symndx];
2887 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2888 }
2889 else
2890 {
2891 bfd_boolean warned;
2892
2893 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2894 r_symndx, symtab_hdr, sym_hashes,
2895 h, sec, relocation,
2896 unresolved_reloc, warned);
2897 if (warned)
2898 {
2899 /* To avoid generating warning messages about truncated
2900 relocations, set the relocation's address to be the same as
2901 the start of this section. */
2902 if (input_section->output_section != NULL)
2903 relocation = input_section->output_section->vma;
2904 else
2905 relocation = 0;
2906 }
2907 }
2908
2909 if (sec != NULL && discarded_section (sec))
2910 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
2911 rel, 1, relend, howto, 0, contents);
2912
2913 if (info->relocatable)
2914 continue;
2915
2916 if (h != NULL)
2917 name = h->root.root.string;
2918 else
2919 {
2920 name = (bfd_elf_string_from_elf_section
2921 (input_bfd, symtab_hdr->sh_link, sym->st_name));
2922 if (name == NULL || *name == '\0')
2923 name = bfd_section_name (input_bfd, sec);
2924 }
2925
2926 switch (r_type)
2927 {
2928 case R_TILEPRO_TLS_GD_CALL:
2929 case R_TILEPRO_IMM8_X0_TLS_GD_ADD:
2930 case R_TILEPRO_IMM8_Y0_TLS_GD_ADD:
2931 case R_TILEPRO_IMM8_X1_TLS_GD_ADD:
2932 case R_TILEPRO_IMM8_Y1_TLS_GD_ADD:
2933 case R_TILEPRO_IMM16_X0_TLS_GD_HA:
2934 case R_TILEPRO_IMM16_X1_TLS_GD_HA:
2935 case R_TILEPRO_IMM16_X0_TLS_IE_HA:
2936 case R_TILEPRO_IMM16_X1_TLS_IE_HA:
2937 tls_type = GOT_UNKNOWN;
2938 if (h == NULL && local_got_offsets)
2939 tls_type =
2940 _bfd_tilepro_elf_local_got_tls_type (input_bfd) [r_symndx];
2941 else if (h != NULL)
2942 tls_type = tilepro_elf_hash_entry(h)->tls_type;
2943
2944 is_tls_iele = (! info->shared || tls_type == GOT_TLS_IE);
2945 is_tls_le = is_tls_iele && (!info->shared
2946 && (h == NULL || h->dynindx == -1));
2947
2948 if (r_type == R_TILEPRO_TLS_GD_CALL)
2949 {
2950 if (is_tls_le)
2951 {
2952 /* GD -> LE */
2953 tilepro_replace_insn (contents + rel->r_offset,
2954 insn_mask_X1, insn_tls_le_move_X1);
2955 continue;
2956 }
2957 else if (is_tls_iele)
2958 {
2959 /* GD -> IE */
2960 tilepro_replace_insn (contents + rel->r_offset,
2961 insn_mask_X1, insn_tls_ie_lw_X1);
2962 continue;
2963 }
2964
2965 /* GD -> GD */
2966 h = (struct elf_link_hash_entry *)
2967 bfd_link_hash_lookup (info->hash, "__tls_get_addr", FALSE,
2968 FALSE, TRUE);
2969 BFD_ASSERT (h != NULL);
2970 r_type = R_TILEPRO_JOFFLONG_X1_PLT;
2971 howto = tilepro_elf_howto_table + r_type;
2972 }
2973 else if (r_type == R_TILEPRO_IMM16_X0_TLS_GD_HA
2974 || r_type == R_TILEPRO_IMM16_X0_TLS_IE_HA)
2975 {
2976 if (is_tls_le)
2977 tilepro_replace_insn (contents + rel->r_offset, srca_mask_X0,
2978 insn_tls_le_move_zero_X0X1);
2979 }
2980 else if (r_type == R_TILEPRO_IMM16_X1_TLS_GD_HA
2981 || r_type == R_TILEPRO_IMM16_X1_TLS_IE_HA)
2982 {
2983 if (is_tls_le)
2984 tilepro_replace_insn (contents + rel->r_offset, srca_mask_X1,
2985 insn_tls_le_move_zero_X0X1);
2986 }
2987 else
2988 {
2989 const bfd_byte *mask = NULL;
2990 const bfd_byte *add_insn = NULL;
2991
2992 switch (r_type)
2993 {
2994 case R_TILEPRO_IMM8_X0_TLS_GD_ADD:
2995 add_insn = is_tls_iele ? insn_tls_ie_add_X0X1
2996 : insn_tls_gd_add_X0X1;
2997 mask = insn_mask_X0_no_dest_no_srca;
2998 break;
2999 case R_TILEPRO_IMM8_X1_TLS_GD_ADD:
3000 add_insn = is_tls_iele ? insn_tls_ie_add_X0X1
3001 : insn_tls_gd_add_X0X1;
3002 mask = insn_mask_X1_no_dest_no_srca;
3003 break;
3004 case R_TILEPRO_IMM8_Y0_TLS_GD_ADD:
3005 add_insn = is_tls_iele ? insn_tls_ie_add_Y0Y1
3006 : insn_tls_gd_add_Y0Y1;
3007 mask = insn_mask_Y0_no_dest_no_srca;
3008 break;
3009 case R_TILEPRO_IMM8_Y1_TLS_GD_ADD:
3010 add_insn = is_tls_iele ? insn_tls_ie_add_Y0Y1
3011 : insn_tls_gd_add_Y0Y1;
3012 mask = insn_mask_Y1_no_dest_no_srca;
3013 break;
3014 }
3015
3016 tilepro_replace_insn (contents + rel->r_offset, mask, add_insn);
3017
3018 continue;
3019 }
3020 break;
3021 case R_TILEPRO_TLS_IE_LOAD:
3022 if (!info->shared && (h == NULL || h->dynindx == -1))
3023 /* IE -> LE */
3024 tilepro_replace_insn (contents + rel->r_offset,
3025 insn_mask_X1_no_dest_no_srca,
3026 insn_tls_le_move_X1);
3027 else
3028 /* IE -> IE */
3029 tilepro_replace_insn (contents + rel->r_offset,
3030 insn_mask_X1_no_dest_no_srca,
3031 insn_tls_ie_lw_X1);
3032 continue;
3033 break;
3034 default:
3035 break;
3036 }
3037
3038 switch (r_type)
3039 {
3040 case R_TILEPRO_IMM16_X0_GOT:
3041 case R_TILEPRO_IMM16_X1_GOT:
3042 case R_TILEPRO_IMM16_X0_GOT_LO:
3043 case R_TILEPRO_IMM16_X1_GOT_LO:
3044 case R_TILEPRO_IMM16_X0_GOT_HI:
3045 case R_TILEPRO_IMM16_X1_GOT_HI:
3046 case R_TILEPRO_IMM16_X0_GOT_HA:
3047 case R_TILEPRO_IMM16_X1_GOT_HA:
3048 /* Relocation is to the entry for this symbol in the global
3049 offset table. */
3050 if (htab->elf.sgot == NULL)
3051 abort ();
3052
3053 if (h != NULL)
3054 {
3055 bfd_boolean dyn;
3056
3057 off = h->got.offset;
3058 BFD_ASSERT (off != (bfd_vma) -1);
3059 dyn = elf_hash_table (info)->dynamic_sections_created;
3060
3061 if (! WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
3062 || (info->shared
3063 && SYMBOL_REFERENCES_LOCAL (info, h)))
3064 {
3065 /* This is actually a static link, or it is a
3066 -Bsymbolic link and the symbol is defined
3067 locally, or the symbol was forced to be local
3068 because of a version file. We must initialize
3069 this entry in the global offset table. Since the
3070 offset must always be a multiple
3071 of 4 for 32-bit, we use the least significant bit
3072 to record whether we have initialized it already.
3073
3074 When doing a dynamic link, we create a .rela.got
3075 relocation entry to initialize the value. This
3076 is done in the finish_dynamic_symbol routine. */
3077 if ((off & 1) != 0)
3078 off &= ~1;
3079 else
3080 {
3081 bfd_put_32 (output_bfd, relocation,
3082 htab->elf.sgot->contents + off);
3083 h->got.offset |= 1;
3084 }
3085 }
3086 else
3087 unresolved_reloc = FALSE;
3088 }
3089 else
3090 {
3091 BFD_ASSERT (local_got_offsets != NULL
3092 && local_got_offsets[r_symndx] != (bfd_vma) -1);
3093
3094 off = local_got_offsets[r_symndx];
3095
3096 /* The offset must always be a multiple of 4 on 32-bit.
3097 We use the least significant bit to record
3098 whether we have already processed this entry. */
3099 if ((off & 1) != 0)
3100 off &= ~1;
3101 else
3102 {
3103 if (info->shared)
3104 {
3105 asection *s;
3106 Elf_Internal_Rela outrel;
3107
3108 /* We need to generate a R_TILEPRO_RELATIVE reloc
3109 for the dynamic linker. */
3110 s = htab->elf.srelgot;
3111 BFD_ASSERT (s != NULL);
3112
3113 outrel.r_offset = (htab->elf.sgot->output_section->vma
3114 + htab->elf.sgot->output_offset
3115 + off);
3116 outrel.r_info = ELF32_R_INFO (0, R_TILEPRO_RELATIVE);
3117 outrel.r_addend = relocation;
3118 relocation = 0;
3119 tilepro_elf_append_rela_32 (output_bfd, s, &outrel);
3120 }
3121
3122 bfd_put_32 (output_bfd, relocation,
3123 htab->elf.sgot->contents + off);
3124 local_got_offsets[r_symndx] |= 1;
3125 }
3126 }
3127 relocation = off - got_base;
3128 break;
3129
3130 case R_TILEPRO_JOFFLONG_X1_PLT:
3131 /* Relocation is to the entry for this symbol in the
3132 procedure linkage table. */
3133 BFD_ASSERT (h != NULL);
3134
3135 if (h->plt.offset == (bfd_vma) -1 || htab->elf.splt == NULL)
3136 {
3137 /* We didn't make a PLT entry for this symbol. This
3138 happens when statically linking PIC code, or when
3139 using -Bsymbolic. */
3140 break;
3141 }
3142
3143 relocation = (htab->elf.splt->output_section->vma
3144 + htab->elf.splt->output_offset
3145 + h->plt.offset);
3146 unresolved_reloc = FALSE;
3147 break;
3148
3149 case R_TILEPRO_32_PCREL:
3150 case R_TILEPRO_16_PCREL:
3151 case R_TILEPRO_8_PCREL:
3152 case R_TILEPRO_IMM16_X0_PCREL:
3153 case R_TILEPRO_IMM16_X1_PCREL:
3154 case R_TILEPRO_IMM16_X0_LO_PCREL:
3155 case R_TILEPRO_IMM16_X1_LO_PCREL:
3156 case R_TILEPRO_IMM16_X0_HI_PCREL:
3157 case R_TILEPRO_IMM16_X1_HI_PCREL:
3158 case R_TILEPRO_IMM16_X0_HA_PCREL:
3159 case R_TILEPRO_IMM16_X1_HA_PCREL:
3160 if (h != NULL
3161 && strcmp (h->root.root.string, "_GLOBAL_OFFSET_TABLE_") == 0)
3162 break;
3163 /* Fall through. */
3164 case R_TILEPRO_32:
3165 case R_TILEPRO_16:
3166 case R_TILEPRO_8:
3167 case R_TILEPRO_LO16:
3168 case R_TILEPRO_HI16:
3169 case R_TILEPRO_HA16:
3170 case R_TILEPRO_COPY:
3171 case R_TILEPRO_GLOB_DAT:
3172 case R_TILEPRO_JMP_SLOT:
3173 case R_TILEPRO_RELATIVE:
3174 case R_TILEPRO_BROFF_X1:
3175 case R_TILEPRO_JOFFLONG_X1:
3176 case R_TILEPRO_IMM8_X0:
3177 case R_TILEPRO_IMM8_Y0:
3178 case R_TILEPRO_IMM8_X1:
3179 case R_TILEPRO_IMM8_Y1:
3180 case R_TILEPRO_DEST_IMM8_X1:
3181 case R_TILEPRO_MT_IMM15_X1:
3182 case R_TILEPRO_MF_IMM15_X1:
3183 case R_TILEPRO_IMM16_X0:
3184 case R_TILEPRO_IMM16_X1:
3185 case R_TILEPRO_IMM16_X0_LO:
3186 case R_TILEPRO_IMM16_X1_LO:
3187 case R_TILEPRO_IMM16_X0_HI:
3188 case R_TILEPRO_IMM16_X1_HI:
3189 case R_TILEPRO_IMM16_X0_HA:
3190 case R_TILEPRO_IMM16_X1_HA:
3191 case R_TILEPRO_MMSTART_X0:
3192 case R_TILEPRO_MMEND_X0:
3193 case R_TILEPRO_MMSTART_X1:
3194 case R_TILEPRO_MMEND_X1:
3195 case R_TILEPRO_SHAMT_X0:
3196 case R_TILEPRO_SHAMT_X1:
3197 case R_TILEPRO_SHAMT_Y0:
3198 case R_TILEPRO_SHAMT_Y1:
3199 if ((input_section->flags & SEC_ALLOC) == 0)
3200 break;
3201
3202 if ((info->shared
3203 && (h == NULL
3204 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3205 || h->root.type != bfd_link_hash_undefweak)
3206 && (! howto->pc_relative
3207 || !SYMBOL_CALLS_LOCAL (info, h)))
3208 || (!info->shared
3209 && h != NULL
3210 && h->dynindx != -1
3211 && !h->non_got_ref
3212 && ((h->def_dynamic
3213 && !h->def_regular)
3214 || h->root.type == bfd_link_hash_undefweak
3215 || h->root.type == bfd_link_hash_undefined)))
3216 {
3217 Elf_Internal_Rela outrel;
3218 bfd_boolean skip, relocate = FALSE;
3219
3220 /* When generating a shared object, these relocations
3221 are copied into the output file to be resolved at run
3222 time. */
3223
3224 BFD_ASSERT (sreloc != NULL);
3225
3226 skip = FALSE;
3227
3228 outrel.r_offset =
3229 _bfd_elf_section_offset (output_bfd, info, input_section,
3230 rel->r_offset);
3231 if (outrel.r_offset == (bfd_vma) -1)
3232 skip = TRUE;
3233 else if (outrel.r_offset == (bfd_vma) -2)
3234 skip = TRUE, relocate = TRUE;
3235 outrel.r_offset += (input_section->output_section->vma
3236 + input_section->output_offset);
3237
3238 switch (r_type)
3239 {
3240 case R_TILEPRO_32_PCREL:
3241 case R_TILEPRO_16_PCREL:
3242 case R_TILEPRO_8_PCREL:
3243 /* If the symbol is not dynamic, we should not keep
3244 a dynamic relocation. But an .rela.* slot has been
3245 allocated for it, output R_TILEPRO_NONE.
3246 FIXME: Add code tracking needed dynamic relocs as
3247 e.g. i386 has. */
3248 if (h->dynindx == -1)
3249 skip = TRUE, relocate = TRUE;
3250 break;
3251 }
3252
3253 if (skip)
3254 memset (&outrel, 0, sizeof outrel);
3255 /* h->dynindx may be -1 if the symbol was marked to
3256 become local. */
3257 else if (h != NULL &&
3258 h->dynindx != -1
3259 && (! is_plt
3260 || !info->shared
3261 || !SYMBOLIC_BIND (info, h)
3262 || !h->def_regular))
3263 {
3264 BFD_ASSERT (h->dynindx != -1);
3265 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
3266 outrel.r_addend = rel->r_addend;
3267 }
3268 else
3269 {
3270 if (r_type == R_TILEPRO_32)
3271 {
3272 outrel.r_info = ELF32_R_INFO (0, R_TILEPRO_RELATIVE);
3273 outrel.r_addend = relocation + rel->r_addend;
3274 }
3275 else
3276 {
3277 long indx;
3278
3279 outrel.r_addend = relocation + rel->r_addend;
3280
3281 if (is_plt)
3282 sec = htab->elf.splt;
3283
3284 if (bfd_is_abs_section (sec))
3285 indx = 0;
3286 else if (sec == NULL || sec->owner == NULL)
3287 {
3288 bfd_set_error (bfd_error_bad_value);
3289 return FALSE;
3290 }
3291 else
3292 {
3293 asection *osec;
3294
3295 /* We are turning this relocation into one
3296 against a section symbol. It would be
3297 proper to subtract the symbol's value,
3298 osec->vma, from the emitted reloc addend,
3299 but ld.so expects buggy relocs. */
3300 osec = sec->output_section;
3301 indx = elf_section_data (osec)->dynindx;
3302
3303 if (indx == 0)
3304 {
3305 osec = htab->elf.text_index_section;
3306 indx = elf_section_data (osec)->dynindx;
3307 }
3308
3309 /* FIXME: we really should be able to link non-pic
3310 shared libraries. */
3311 if (indx == 0)
3312 {
3313 BFD_FAIL ();
3314 (*_bfd_error_handler)
3315 (_("%B: probably compiled without -fPIC?"),
3316 input_bfd);
3317 bfd_set_error (bfd_error_bad_value);
3318 return FALSE;
3319 }
3320 }
3321
3322 outrel.r_info = ELF32_R_INFO (indx, r_type);
3323 }
3324 }
3325
3326 tilepro_elf_append_rela_32 (output_bfd, sreloc, &outrel);
3327
3328 /* This reloc will be computed at runtime, so there's no
3329 need to do anything now. */
3330 if (! relocate)
3331 continue;
3332 }
3333 break;
3334
3335 case R_TILEPRO_IMM16_X0_TLS_LE:
3336 case R_TILEPRO_IMM16_X1_TLS_LE:
3337 case R_TILEPRO_IMM16_X0_TLS_LE_LO:
3338 case R_TILEPRO_IMM16_X1_TLS_LE_LO:
3339 case R_TILEPRO_IMM16_X0_TLS_LE_HI:
3340 case R_TILEPRO_IMM16_X1_TLS_LE_HI:
3341 case R_TILEPRO_IMM16_X0_TLS_LE_HA:
3342 case R_TILEPRO_IMM16_X1_TLS_LE_HA:
3343 if (info->shared)
3344 {
3345 Elf_Internal_Rela outrel;
3346 bfd_boolean skip;
3347
3348 BFD_ASSERT (sreloc != NULL);
3349 skip = FALSE;
3350 outrel.r_offset =
3351 _bfd_elf_section_offset (output_bfd, info, input_section,
3352 rel->r_offset);
3353 if (outrel.r_offset == (bfd_vma) -1)
3354 skip = TRUE;
3355 else if (outrel.r_offset == (bfd_vma) -2)
3356 skip = TRUE;
3357 outrel.r_offset += (input_section->output_section->vma
3358 + input_section->output_offset);
3359 if (skip)
3360 memset (&outrel, 0, sizeof outrel);
3361 else
3362 {
3363 outrel.r_info = ELF32_R_INFO (0, r_type);
3364 outrel.r_addend = relocation - dtpoff_base (info)
3365 + rel->r_addend;
3366 }
3367
3368 tilepro_elf_append_rela_32 (output_bfd, sreloc, &outrel);
3369 continue;
3370 }
3371 relocation = tpoff (info, relocation);
3372 break;
3373
3374 case R_TILEPRO_IMM16_X0_TLS_GD:
3375 case R_TILEPRO_IMM16_X1_TLS_GD:
3376 case R_TILEPRO_IMM16_X0_TLS_GD_LO:
3377 case R_TILEPRO_IMM16_X1_TLS_GD_LO:
3378 case R_TILEPRO_IMM16_X0_TLS_GD_HI:
3379 case R_TILEPRO_IMM16_X1_TLS_GD_HI:
3380 case R_TILEPRO_IMM16_X0_TLS_GD_HA:
3381 case R_TILEPRO_IMM16_X1_TLS_GD_HA:
3382 case R_TILEPRO_IMM16_X0_TLS_IE:
3383 case R_TILEPRO_IMM16_X1_TLS_IE:
3384 case R_TILEPRO_IMM16_X0_TLS_IE_LO:
3385 case R_TILEPRO_IMM16_X1_TLS_IE_LO:
3386 case R_TILEPRO_IMM16_X0_TLS_IE_HI:
3387 case R_TILEPRO_IMM16_X1_TLS_IE_HI:
3388 case R_TILEPRO_IMM16_X0_TLS_IE_HA:
3389 case R_TILEPRO_IMM16_X1_TLS_IE_HA:
3390 r_type = tilepro_elf_tls_transition (info, r_type, h == NULL);
3391 tls_type = GOT_UNKNOWN;
3392 if (h == NULL && local_got_offsets)
3393 tls_type
3394 = _bfd_tilepro_elf_local_got_tls_type (input_bfd) [r_symndx];
3395 else if (h != NULL)
3396 {
3397 tls_type = tilepro_elf_hash_entry(h)->tls_type;
3398 if (!info->shared && h->dynindx == -1 && tls_type == GOT_TLS_IE)
3399 r_type = tilepro_tls_translate_to_le (r_type);
3400 }
3401 if (tls_type == GOT_TLS_IE)
3402 r_type = tilepro_tls_translate_to_ie (r_type);
3403
3404 if (r_type == R_TILEPRO_IMM16_X0_TLS_LE
3405 || r_type == R_TILEPRO_IMM16_X1_TLS_LE
3406 || r_type == R_TILEPRO_IMM16_X0_TLS_LE_LO
3407 || r_type == R_TILEPRO_IMM16_X1_TLS_LE_LO
3408 || r_type == R_TILEPRO_IMM16_X0_TLS_LE_HI
3409 || r_type == R_TILEPRO_IMM16_X1_TLS_LE_HI
3410 || r_type == R_TILEPRO_IMM16_X0_TLS_LE_HA
3411 || r_type == R_TILEPRO_IMM16_X1_TLS_LE_HA)
3412 {
3413 relocation = tpoff (info, relocation);
3414 break;
3415 }
3416
3417 if (h != NULL)
3418 {
3419 off = h->got.offset;
3420 h->got.offset |= 1;
3421 }
3422 else
3423 {
3424 BFD_ASSERT (local_got_offsets != NULL);
3425 off = local_got_offsets[r_symndx];
3426 local_got_offsets[r_symndx] |= 1;
3427 }
3428
3429 if (htab->elf.sgot == NULL)
3430 abort ();
3431
3432 if ((off & 1) != 0)
3433 off &= ~1;
3434 else
3435 {
3436 Elf_Internal_Rela outrel;
3437 int indx = 0;
3438 bfd_boolean need_relocs = FALSE;
3439
3440 if (htab->elf.srelgot == NULL)
3441 abort ();
3442
3443 if (h != NULL)
3444 {
3445 bfd_boolean dyn;
3446 dyn = htab->elf.dynamic_sections_created;
3447
3448 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn, info->shared, h)
3449 && (!info->shared
3450 || !SYMBOL_REFERENCES_LOCAL (info, h)))
3451 {
3452 indx = h->dynindx;
3453 }
3454 }
3455
3456 /* The GOT entries have not been initialized yet. Do it
3457 now, and emit any relocations. */
3458 if ((info->shared || indx != 0)
3459 && (h == NULL
3460 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
3461 || h->root.type != bfd_link_hash_undefweak))
3462 need_relocs = TRUE;
3463
3464 switch (r_type)
3465 {
3466 case R_TILEPRO_IMM16_X0_TLS_IE:
3467 case R_TILEPRO_IMM16_X1_TLS_IE:
3468 case R_TILEPRO_IMM16_X0_TLS_IE_LO:
3469 case R_TILEPRO_IMM16_X1_TLS_IE_LO:
3470 case R_TILEPRO_IMM16_X0_TLS_IE_HI:
3471 case R_TILEPRO_IMM16_X1_TLS_IE_HI:
3472 case R_TILEPRO_IMM16_X0_TLS_IE_HA:
3473 case R_TILEPRO_IMM16_X1_TLS_IE_HA:
3474 if (need_relocs) {
3475 bfd_put_32 (output_bfd, 0, htab->elf.sgot->contents + off);
3476 outrel.r_offset = (htab->elf.sgot->output_section->vma
3477 + htab->elf.sgot->output_offset + off);
3478 outrel.r_addend = 0;
3479 if (indx == 0)
3480 outrel.r_addend = relocation - dtpoff_base (info);
3481 outrel.r_info = ELF32_R_INFO (indx, R_TILEPRO_TLS_TPOFF32);
3482 tilepro_elf_append_rela_32 (output_bfd, htab->elf.srelgot,
3483 &outrel);
3484 } else {
3485 bfd_put_32 (output_bfd, tpoff (info, relocation),
3486 htab->elf.sgot->contents + off);
3487 }
3488 break;
3489
3490 case R_TILEPRO_IMM16_X0_TLS_GD:
3491 case R_TILEPRO_IMM16_X1_TLS_GD:
3492 case R_TILEPRO_IMM16_X0_TLS_GD_LO:
3493 case R_TILEPRO_IMM16_X1_TLS_GD_LO:
3494 case R_TILEPRO_IMM16_X0_TLS_GD_HI:
3495 case R_TILEPRO_IMM16_X1_TLS_GD_HI:
3496 case R_TILEPRO_IMM16_X0_TLS_GD_HA:
3497 case R_TILEPRO_IMM16_X1_TLS_GD_HA:
3498 if (need_relocs) {
3499 outrel.r_offset = (htab->elf.sgot->output_section->vma
3500 + htab->elf.sgot->output_offset + off);
3501 outrel.r_addend = 0;
3502 outrel.r_info = ELF32_R_INFO (indx, R_TILEPRO_TLS_DTPMOD32);
3503 bfd_put_32 (output_bfd, 0, htab->elf.sgot->contents + off);
3504 tilepro_elf_append_rela_32 (output_bfd, htab->elf.srelgot,
3505 &outrel);
3506 if (indx == 0)
3507 {
3508 BFD_ASSERT (! unresolved_reloc);
3509 bfd_put_32 (output_bfd,
3510 relocation - dtpoff_base (info),
3511 (htab->elf.sgot->contents + off +
3512 TILEPRO_BYTES_PER_WORD));
3513 }
3514 else
3515 {
3516 bfd_put_32 (output_bfd, 0,
3517 (htab->elf.sgot->contents + off +
3518 TILEPRO_BYTES_PER_WORD));
3519 outrel.r_info = ELF32_R_INFO (indx,
3520 R_TILEPRO_TLS_DTPOFF32);
3521 outrel.r_offset += TILEPRO_BYTES_PER_WORD;
3522 tilepro_elf_append_rela_32 (output_bfd,
3523 htab->elf.srelgot, &outrel);
3524 }
3525 }
3526
3527 else {
3528 /* If we are not emitting relocations for a
3529 general dynamic reference, then we must be in a
3530 static link or an executable link with the
3531 symbol binding locally. Mark it as belonging
3532 to module 1, the executable. */
3533 bfd_put_32 (output_bfd, 1,
3534 htab->elf.sgot->contents + off );
3535 bfd_put_32 (output_bfd, relocation - dtpoff_base (info),
3536 htab->elf.sgot->contents + off +
3537 TILEPRO_BYTES_PER_WORD);
3538 }
3539 break;
3540 }
3541 }
3542
3543 if (off >= (bfd_vma) -2)
3544 abort ();
3545
3546 relocation = off - got_base;
3547 unresolved_reloc = FALSE;
3548 howto = tilepro_elf_howto_table + r_type;
3549 break;
3550
3551 default:
3552 break;
3553 }
3554
3555 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
3556 because such sections are not SEC_ALLOC and thus ld.so will
3557 not process them. */
3558 if (unresolved_reloc
3559 && !((input_section->flags & SEC_DEBUGGING) != 0
3560 && h->def_dynamic)
3561 && _bfd_elf_section_offset (output_bfd, info, input_section,
3562 rel->r_offset) != (bfd_vma) -1)
3563 (*_bfd_error_handler)
3564 (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
3565 input_bfd,
3566 input_section,
3567 (long) rel->r_offset,
3568 howto->name,
3569 h->root.root.string);
3570
3571 r = bfd_reloc_continue;
3572
3573 /* For the _HA types, we add 0x8000 so that if bit 15 is set,
3574 * we will increment bit 16. The howto->rightshift takes care
3575 * of the rest for us. */
3576 switch (r_type)
3577 {
3578 case R_TILEPRO_HA16:
3579 case R_TILEPRO_IMM16_X0_HA:
3580 case R_TILEPRO_IMM16_X1_HA:
3581 case R_TILEPRO_IMM16_X0_HA_PCREL:
3582 case R_TILEPRO_IMM16_X1_HA_PCREL:
3583 case R_TILEPRO_IMM16_X0_GOT_HA:
3584 case R_TILEPRO_IMM16_X1_GOT_HA:
3585 case R_TILEPRO_IMM16_X0_TLS_GD_HA:
3586 case R_TILEPRO_IMM16_X1_TLS_GD_HA:
3587 case R_TILEPRO_IMM16_X0_TLS_IE_HA:
3588 case R_TILEPRO_IMM16_X1_TLS_IE_HA:
3589 relocation += 0x8000;
3590 break;
3591 }
3592
3593 /* Get the operand creation function, if any. */
3594 create_func = reloc_to_create_func[r_type];
3595 if (create_func == NULL)
3596 {
3597 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
3598 contents, rel->r_offset,
3599 relocation, rel->r_addend);
3600 }
3601 else
3602 {
3603 if (howto->pc_relative)
3604 {
3605 relocation -=
3606 input_section->output_section->vma + input_section->output_offset;
3607 if (howto->pcrel_offset)
3608 relocation -= rel->r_offset;
3609 }
3610
3611 bfd_byte *data;
3612
3613 /* Add the relocation addend if any to the final target value */
3614 relocation += rel->r_addend;
3615
3616 /* Do basic range checking */
3617 r = bfd_check_overflow (howto->complain_on_overflow,
3618 howto->bitsize,
3619 howto->rightshift,
3620 32,
3621 relocation);
3622
3623 /*
3624 * Write the relocated value out into the raw section data.
3625 * Don't put a relocation out in the .rela section.
3626 */
3627 tilepro_bundle_bits mask = create_func(-1);
3628 tilepro_bundle_bits value = create_func(relocation >> howto->rightshift);
3629
3630 /* Only touch bytes while the mask is not 0, so we
3631 don't write to out of bounds memory if this is actually
3632 a 16-bit switch instruction. */
3633 for (data = contents + rel->r_offset; mask != 0; data++)
3634 {
3635 bfd_byte byte_mask = (bfd_byte)mask;
3636 *data = (*data & ~byte_mask) | ((bfd_byte)value & byte_mask);
3637 mask >>= 8;
3638 value >>= 8;
3639 }
3640 }
3641
3642 if (r != bfd_reloc_ok)
3643 {
3644 const char *msg = NULL;
3645
3646 switch (r)
3647 {
3648 case bfd_reloc_overflow:
3649 r = info->callbacks->reloc_overflow
3650 (info, (h ? &h->root : NULL), name, howto->name,
3651 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
3652 break;
3653
3654 case bfd_reloc_undefined:
3655 r = info->callbacks->undefined_symbol
3656 (info, name, input_bfd, input_section, rel->r_offset,
3657 TRUE);
3658 break;
3659
3660 case bfd_reloc_outofrange:
3661 msg = _("internal error: out of range error");
3662 break;
3663
3664 case bfd_reloc_notsupported:
3665 msg = _("internal error: unsupported relocation error");
3666 break;
3667
3668 case bfd_reloc_dangerous:
3669 msg = _("internal error: dangerous relocation");
3670 break;
3671
3672 default:
3673 msg = _("internal error: unknown error");
3674 break;
3675 }
3676
3677 if (msg)
3678 r = info->callbacks->warning
3679 (info, msg, name, input_bfd, input_section, rel->r_offset);
3680
3681 if (! r)
3682 return FALSE;
3683 }
3684 }
3685
3686 return TRUE;
3687 }
3688
3689 /* Finish up dynamic symbol handling. We set the contents of various
3690 dynamic sections here. */
3691
3692 static bfd_boolean
3693 tilepro_elf_finish_dynamic_symbol (bfd *output_bfd,
3694 struct bfd_link_info *info,
3695 struct elf_link_hash_entry *h,
3696 Elf_Internal_Sym *sym)
3697 {
3698 struct tilepro_elf_link_hash_table *htab;
3699
3700 htab = tilepro_elf_hash_table (info);
3701 BFD_ASSERT (htab != NULL);
3702
3703 if (h->plt.offset != (bfd_vma) -1)
3704 {
3705 asection *splt;
3706 asection *srela;
3707 asection *sgotplt;
3708 Elf_Internal_Rela rela;
3709 bfd_byte *loc;
3710 bfd_vma r_offset;
3711
3712 int rela_index;
3713
3714 /* This symbol has an entry in the PLT. Set it up. */
3715
3716 BFD_ASSERT (h->dynindx != -1);
3717
3718 splt = htab->elf.splt;
3719 srela = htab->elf.srelplt;
3720 sgotplt = htab->elf.sgotplt;
3721
3722 if (splt == NULL || srela == NULL)
3723 abort ();
3724
3725 /* Fill in the entry in the procedure linkage table. */
3726 rela_index = tilepro_plt_entry_build (splt, sgotplt, h->plt.offset,
3727 &r_offset);
3728
3729 /* Fill in the entry in the global offset table, which initially points
3730 to the beginning of the plt. */
3731 bfd_put_32 (output_bfd, splt->output_section->vma + splt->output_offset,
3732 sgotplt->contents + r_offset);
3733
3734 /* Fill in the entry in the .rela.plt section. */
3735 rela.r_offset = (sgotplt->output_section->vma
3736 + sgotplt->output_offset
3737 + r_offset);
3738 rela.r_addend = 0;
3739 rela.r_info = ELF32_R_INFO (h->dynindx, R_TILEPRO_JMP_SLOT);
3740
3741 loc = srela->contents + rela_index * sizeof (Elf32_External_Rela);
3742 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3743
3744 if (!h->def_regular)
3745 {
3746 /* Mark the symbol as undefined, rather than as defined in
3747 the .plt section. Leave the value alone. */
3748 sym->st_shndx = SHN_UNDEF;
3749 /* If the symbol is weak, we do need to clear the value.
3750 Otherwise, the PLT entry would provide a definition for
3751 the symbol even if the symbol wasn't defined anywhere,
3752 and so the symbol would never be NULL. */
3753 if (!h->ref_regular_nonweak)
3754 sym->st_value = 0;
3755 }
3756 }
3757
3758 if (h->got.offset != (bfd_vma) -1
3759 && tilepro_elf_hash_entry(h)->tls_type != GOT_TLS_GD
3760 && tilepro_elf_hash_entry(h)->tls_type != GOT_TLS_IE)
3761 {
3762 asection *sgot;
3763 asection *srela;
3764 Elf_Internal_Rela rela;
3765
3766 /* This symbol has an entry in the GOT. Set it up. */
3767
3768 sgot = htab->elf.sgot;
3769 srela = htab->elf.srelgot;
3770 BFD_ASSERT (sgot != NULL && srela != NULL);
3771
3772 rela.r_offset = (sgot->output_section->vma
3773 + sgot->output_offset
3774 + (h->got.offset &~ (bfd_vma) 1));
3775
3776 /* If this is a -Bsymbolic link, and the symbol is defined
3777 locally, we just want to emit a RELATIVE reloc. Likewise if
3778 the symbol was forced to be local because of a version file.
3779 The entry in the global offset table will already have been
3780 initialized in the relocate_section function. */
3781 if (info->shared
3782 && (info->symbolic || h->dynindx == -1)
3783 && h->def_regular)
3784 {
3785 asection *sec = h->root.u.def.section;
3786 rela.r_info = ELF32_R_INFO (0, R_TILEPRO_RELATIVE);
3787 rela.r_addend = (h->root.u.def.value
3788 + sec->output_section->vma
3789 + sec->output_offset);
3790 }
3791 else
3792 {
3793 rela.r_info = ELF32_R_INFO (h->dynindx, R_TILEPRO_GLOB_DAT);
3794 rela.r_addend = 0;
3795 }
3796
3797 bfd_put_32 (output_bfd, 0,
3798 sgot->contents + (h->got.offset & ~(bfd_vma) 1));
3799 tilepro_elf_append_rela_32 (output_bfd, srela, &rela);
3800 }
3801
3802 if (h->needs_copy)
3803 {
3804 asection *s;
3805 Elf_Internal_Rela rela;
3806
3807 /* This symbols needs a copy reloc. Set it up. */
3808 BFD_ASSERT (h->dynindx != -1);
3809
3810 s = htab->srelbss;
3811 BFD_ASSERT (s != NULL);
3812
3813 rela.r_offset = (h->root.u.def.value
3814 + h->root.u.def.section->output_section->vma
3815 + h->root.u.def.section->output_offset);
3816 rela.r_info = ELF32_R_INFO (h->dynindx, R_TILEPRO_COPY);
3817 rela.r_addend = 0;
3818 tilepro_elf_append_rela_32 (output_bfd, s, &rela);
3819 }
3820
3821 /* Mark some specially defined symbols as absolute. */
3822 if (h == htab->elf.hdynamic
3823 || (h == htab->elf.hgot || h == htab->elf.hplt))
3824 sym->st_shndx = SHN_ABS;
3825
3826 return TRUE;
3827 }
3828
3829 /* Finish up the dynamic sections. */
3830
3831 static bfd_boolean
3832 tilepro_finish_dyn (bfd *output_bfd, struct bfd_link_info *info,
3833 bfd *dynobj, asection *sdyn,
3834 asection *splt ATTRIBUTE_UNUSED)
3835 {
3836 Elf32_External_Dyn *dyncon, *dynconend;
3837 struct tilepro_elf_link_hash_table *htab;
3838
3839 htab = tilepro_elf_hash_table (info);
3840 BFD_ASSERT (htab != NULL);
3841 dyncon = (Elf32_External_Dyn *) sdyn->contents;
3842 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
3843 for (; dyncon < dynconend; dyncon++)
3844 {
3845 Elf_Internal_Dyn dyn;
3846 asection *s;
3847
3848 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
3849
3850 switch (dyn.d_tag)
3851 {
3852 case DT_PLTGOT:
3853 s = htab->elf.sgotplt;
3854 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
3855 break;
3856 case DT_JMPREL:
3857 s = htab->elf.srelplt;
3858 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
3859 break;
3860 case DT_PLTRELSZ:
3861 s = htab->elf.srelplt;
3862 dyn.d_un.d_val = s->size;
3863 break;
3864 default:
3865 continue;
3866 }
3867
3868 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3869 }
3870 return TRUE;
3871 }
3872
3873 static bfd_boolean
3874 tilepro_elf_finish_dynamic_sections (bfd *output_bfd,
3875 struct bfd_link_info *info)
3876 {
3877 bfd *dynobj;
3878 asection *sdyn;
3879 struct tilepro_elf_link_hash_table *htab;
3880
3881 htab = tilepro_elf_hash_table (info);
3882 BFD_ASSERT (htab != NULL);
3883 dynobj = htab->elf.dynobj;
3884
3885 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
3886
3887 if (elf_hash_table (info)->dynamic_sections_created)
3888 {
3889 asection *splt;
3890 bfd_boolean ret;
3891
3892 splt = htab->elf.splt;
3893 BFD_ASSERT (splt != NULL && sdyn != NULL);
3894
3895 ret = tilepro_finish_dyn (output_bfd, info, dynobj, sdyn, splt);
3896
3897 if (ret != TRUE)
3898 return ret;
3899
3900 /* Fill in the first entry in the procedure linkage table. */
3901 if (splt->size > 0)
3902 {
3903 memcpy (splt->contents, tilepro_plt0_entry, PLT_HEADER_SIZE);
3904 memset (splt->contents + PLT_HEADER_SIZE, 0,
3905 PLT_ENTRY_SIZE - PLT_HEADER_SIZE);
3906 }
3907
3908 elf_section_data (splt->output_section)->this_hdr.sh_entsize
3909 = PLT_ENTRY_SIZE;
3910 }
3911
3912 if (htab->elf.sgotplt)
3913 {
3914 if (bfd_is_abs_section (htab->elf.sgotplt->output_section))
3915 {
3916 (*_bfd_error_handler)
3917 (_("discarded output section: `%A'"), htab->elf.sgotplt);
3918 return FALSE;
3919 }
3920
3921 if (htab->elf.sgotplt->size > 0)
3922 {
3923 /* Write the first two entries in .got.plt, needed for the dynamic
3924 linker. */
3925 bfd_put_32 (output_bfd, (bfd_vma) -1,
3926 htab->elf.sgotplt->contents);
3927 bfd_put_32 (output_bfd, (bfd_vma) 0,
3928 htab->elf.sgotplt->contents + GOT_ENTRY_SIZE);
3929 }
3930
3931 elf_section_data (htab->elf.sgotplt->output_section)->this_hdr.sh_entsize
3932 = GOT_ENTRY_SIZE;
3933 }
3934
3935 if (htab->elf.sgot)
3936 {
3937 if (htab->elf.sgot->size > 0)
3938 {
3939 /* Set the first entry in the global offset table to the address of
3940 the dynamic section. */
3941 bfd_vma val = (sdyn ?
3942 sdyn->output_section->vma + sdyn->output_offset :
3943 0);
3944 bfd_put_32 (output_bfd, val, htab->elf.sgot->contents);
3945 }
3946
3947 elf_section_data (htab->elf.sgot->output_section)->this_hdr.sh_entsize
3948 = GOT_ENTRY_SIZE;
3949 }
3950
3951 return TRUE;
3952 }
3953
3954 \f
3955
3956 /* Return address for Ith PLT stub in section PLT, for relocation REL
3957 or (bfd_vma) -1 if it should not be included. */
3958
3959 static bfd_vma
3960 tilepro_elf_plt_sym_val (bfd_vma i, const asection *plt,
3961 const arelent *rel ATTRIBUTE_UNUSED)
3962 {
3963 return plt->vma + (i + 1) * PLT_ENTRY_SIZE;
3964 }
3965
3966 static enum elf_reloc_type_class
3967 tilepro_reloc_type_class (const Elf_Internal_Rela *rela)
3968 {
3969 switch ((int) ELF32_R_TYPE (rela->r_info))
3970 {
3971 case R_TILEPRO_RELATIVE:
3972 return reloc_class_relative;
3973 case R_TILEPRO_JMP_SLOT:
3974 return reloc_class_plt;
3975 case R_TILEPRO_COPY:
3976 return reloc_class_copy;
3977 default:
3978 return reloc_class_normal;
3979 }
3980 }
3981
3982 static int
3983 tilepro_additional_program_headers (bfd *abfd,
3984 struct bfd_link_info *info ATTRIBUTE_UNUSED)
3985 {
3986 /* Each .intrpt section specified by the user adds another PT_LOAD
3987 header since the sections are discontiguous. */
3988 static const char intrpt_sections[4][9] =
3989 {
3990 ".intrpt0", ".intrpt1", ".intrpt2", ".intrpt3"
3991 };
3992 int count = 0;
3993 int i;
3994
3995 for (i = 0; i < 4; i++)
3996 {
3997 asection *sec = bfd_get_section_by_name (abfd, intrpt_sections[i]);
3998 if (sec != NULL && (sec->flags & SEC_LOAD) != 0)
3999 ++count;
4000 }
4001
4002 /* Add four "padding" headers in to leave room in case a custom linker
4003 script does something fancy. Otherwise ld complains that it ran
4004 out of program headers and refuses to link. */
4005 count += 4;
4006
4007 return count;
4008 }
4009
4010 #define ELF_ARCH bfd_arch_tilepro
4011 #define ELF_TARGET_ID TILEPRO_ELF_DATA
4012 #define ELF_MACHINE_CODE EM_TILEPRO
4013 #define ELF_MAXPAGESIZE 0x10000
4014 #define ELF_COMMONPAGESIZE 0x10000
4015
4016 #define TARGET_LITTLE_SYM bfd_elf32_tilepro_vec
4017 #define TARGET_LITTLE_NAME "elf32-tilepro"
4018
4019 #define elf_backend_reloc_type_class tilepro_reloc_type_class
4020
4021 #define bfd_elf32_bfd_reloc_name_lookup tilepro_reloc_name_lookup
4022 #define bfd_elf32_bfd_link_hash_table_create tilepro_elf_link_hash_table_create
4023 #define bfd_elf32_bfd_reloc_type_lookup tilepro_reloc_type_lookup
4024
4025 #define elf_backend_copy_indirect_symbol tilepro_elf_copy_indirect_symbol
4026 #define elf_backend_create_dynamic_sections tilepro_elf_create_dynamic_sections
4027 #define elf_backend_check_relocs tilepro_elf_check_relocs
4028 #define elf_backend_adjust_dynamic_symbol tilepro_elf_adjust_dynamic_symbol
4029 #define elf_backend_omit_section_dynsym tilepro_elf_omit_section_dynsym
4030 #define elf_backend_size_dynamic_sections tilepro_elf_size_dynamic_sections
4031 #define elf_backend_relocate_section tilepro_elf_relocate_section
4032 #define elf_backend_finish_dynamic_symbol tilepro_elf_finish_dynamic_symbol
4033 #define elf_backend_finish_dynamic_sections tilepro_elf_finish_dynamic_sections
4034 #define elf_backend_gc_mark_hook tilepro_elf_gc_mark_hook
4035 #define elf_backend_gc_sweep_hook tilepro_elf_gc_sweep_hook
4036 #define elf_backend_plt_sym_val tilepro_elf_plt_sym_val
4037 #define elf_info_to_howto_rel NULL
4038 #define elf_info_to_howto tilepro_info_to_howto_rela
4039 #define elf_backend_grok_prstatus tilepro_elf_grok_prstatus
4040 #define elf_backend_grok_psinfo tilepro_elf_grok_psinfo
4041 #define elf_backend_additional_program_headers tilepro_additional_program_headers
4042
4043 #define bfd_elf32_mkobject tilepro_elf_mkobject
4044
4045 #define elf_backend_init_index_section _bfd_elf_init_1_index_section
4046
4047 #define elf_backend_can_gc_sections 1
4048 #define elf_backend_can_refcount 1
4049 #define elf_backend_want_got_plt 1
4050 #define elf_backend_plt_readonly 1
4051 /* Align PLT mod 64 byte L2 line size. */
4052 #define elf_backend_plt_alignment 6
4053 #define elf_backend_want_plt_sym 1
4054 #define elf_backend_got_header_size GOT_ENTRY_SIZE
4055 #define elf_backend_rela_normal 1
4056 #define elf_backend_default_execstack 0
4057
4058 #include "elf32-target.h"
The GNU Binutils are a collection of binary tools.