projects / deliverable / binutils-gdb.git / blob
? search:


e28ff0b32af0741316a92f0c6c7996c03684ef90
[deliverable/binutils-gdb.git] / bfd / elf32-microblaze.c
1 /* Xilinx MicroBlaze-specific support for 32-bit ELF
2
3 Copyright (C) 2009-2016 Free Software Foundation, Inc.
4
5 This file is part of BFD, the Binary File Descriptor library.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the
19 Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
20 Boston, MA 02110-1301, USA. */
21
22
23 int dbg = 0;
24
25 #include "sysdep.h"
26 #include "bfd.h"
27 #include "bfdlink.h"
28 #include "libbfd.h"
29 #include "elf-bfd.h"
30 #include "elf/microblaze.h"
31 #include <assert.h>
32
33 #define USE_RELA /* Only USE_REL is actually significant, but this is
34 here are a reminder... */
35 #define INST_WORD_SIZE 4
36
37 static int ro_small_data_pointer = 0;
38 static int rw_small_data_pointer = 0;
39
40 static reloc_howto_type * microblaze_elf_howto_table [(int) R_MICROBLAZE_max];
41
42 static reloc_howto_type microblaze_elf_howto_raw[] =
43 {
44 /* This reloc does nothing. */
45 HOWTO (R_MICROBLAZE_NONE, /* Type. */
46 0, /* Rightshift. */
47 3, /* Size (0 = byte, 1 = short, 2 = long). */
48 0, /* Bitsize. */
49 FALSE, /* PC_relative. */
50 0, /* Bitpos. */
51 complain_overflow_dont, /* Complain on overflow. */
52 NULL, /* Special Function. */
53 "R_MICROBLAZE_NONE", /* Name. */
54 FALSE, /* Partial Inplace. */
55 0, /* Source Mask. */
56 0, /* Dest Mask. */
57 FALSE), /* PC relative offset? */
58
59 /* A standard 32 bit relocation. */
60 HOWTO (R_MICROBLAZE_32, /* Type. */
61 0, /* Rightshift. */
62 2, /* Size (0 = byte, 1 = short, 2 = long). */
63 32, /* Bitsize. */
64 FALSE, /* PC_relative. */
65 0, /* Bitpos. */
66 complain_overflow_bitfield, /* Complain on overflow. */
67 bfd_elf_generic_reloc,/* Special Function. */
68 "R_MICROBLAZE_32", /* Name. */
69 FALSE, /* Partial Inplace. */
70 0, /* Source Mask. */
71 0xffffffff, /* Dest Mask. */
72 FALSE), /* PC relative offset? */
73
74 /* A standard PCREL 32 bit relocation. */
75 HOWTO (R_MICROBLAZE_32_PCREL,/* Type. */
76 0, /* Rightshift. */
77 2, /* Size (0 = byte, 1 = short, 2 = long). */
78 32, /* Bitsize. */
79 TRUE, /* PC_relative. */
80 0, /* Bitpos. */
81 complain_overflow_bitfield, /* Complain on overflow. */
82 bfd_elf_generic_reloc,/* Special Function. */
83 "R_MICROBLAZE_32_PCREL", /* Name. */
84 TRUE, /* Partial Inplace. */
85 0, /* Source Mask. */
86 0xffffffff, /* Dest Mask. */
87 TRUE), /* PC relative offset? */
88
89 /* A 64 bit PCREL relocation. Table-entry not really used. */
90 HOWTO (R_MICROBLAZE_64_PCREL,/* Type. */
91 0, /* Rightshift. */
92 2, /* Size (0 = byte, 1 = short, 2 = long). */
93 16, /* Bitsize. */
94 TRUE, /* PC_relative. */
95 0, /* Bitpos. */
96 complain_overflow_dont, /* Complain on overflow. */
97 bfd_elf_generic_reloc,/* Special Function. */
98 "R_MICROBLAZE_64_PCREL", /* Name. */
99 FALSE, /* Partial Inplace. */
100 0, /* Source Mask. */
101 0x0000ffff, /* Dest Mask. */
102 TRUE), /* PC relative offset? */
103
104 /* The low half of a PCREL 32 bit relocation. */
105 HOWTO (R_MICROBLAZE_32_PCREL_LO, /* Type. */
106 0, /* Rightshift. */
107 2, /* Size (0 = byte, 1 = short, 2 = long). */
108 16, /* Bitsize. */
109 TRUE, /* PC_relative. */
110 0, /* Bitpos. */
111 complain_overflow_signed, /* Complain on overflow. */
112 bfd_elf_generic_reloc, /* Special Function. */
113 "R_MICROBLAZE_32_PCREL_LO", /* Name. */
114 FALSE, /* Partial Inplace. */
115 0, /* Source Mask. */
116 0x0000ffff, /* Dest Mask. */
117 TRUE), /* PC relative offset? */
118
119 /* A 64 bit relocation. Table entry not really used. */
120 HOWTO (R_MICROBLAZE_64, /* Type. */
121 0, /* Rightshift. */
122 2, /* Size (0 = byte, 1 = short, 2 = long). */
123 16, /* Bitsize. */
124 FALSE, /* PC_relative. */
125 0, /* Bitpos. */
126 complain_overflow_dont, /* Complain on overflow. */
127 bfd_elf_generic_reloc,/* Special Function. */
128 "R_MICROBLAZE_64", /* Name. */
129 FALSE, /* Partial Inplace. */
130 0, /* Source Mask. */
131 0x0000ffff, /* Dest Mask. */
132 FALSE), /* PC relative offset? */
133
134 /* The low half of a 32 bit relocation. */
135 HOWTO (R_MICROBLAZE_32_LO, /* Type. */
136 0, /* Rightshift. */
137 2, /* Size (0 = byte, 1 = short, 2 = long). */
138 16, /* Bitsize. */
139 FALSE, /* PC_relative. */
140 0, /* Bitpos. */
141 complain_overflow_signed, /* Complain on overflow. */
142 bfd_elf_generic_reloc,/* Special Function. */
143 "R_MICROBLAZE_32_LO", /* Name. */
144 FALSE, /* Partial Inplace. */
145 0, /* Source Mask. */
146 0x0000ffff, /* Dest Mask. */
147 FALSE), /* PC relative offset? */
148
149 /* Read-only small data section relocation. */
150 HOWTO (R_MICROBLAZE_SRO32, /* Type. */
151 0, /* Rightshift. */
152 2, /* Size (0 = byte, 1 = short, 2 = long). */
153 16, /* Bitsize. */
154 FALSE, /* PC_relative. */
155 0, /* Bitpos. */
156 complain_overflow_bitfield, /* Complain on overflow. */
157 bfd_elf_generic_reloc,/* Special Function. */
158 "R_MICROBLAZE_SRO32", /* Name. */
159 FALSE, /* Partial Inplace. */
160 0, /* Source Mask. */
161 0x0000ffff, /* Dest Mask. */
162 FALSE), /* PC relative offset? */
163
164 /* Read-write small data area relocation. */
165 HOWTO (R_MICROBLAZE_SRW32, /* Type. */
166 0, /* Rightshift. */
167 2, /* Size (0 = byte, 1 = short, 2 = long). */
168 16, /* Bitsize. */
169 FALSE, /* PC_relative. */
170 0, /* Bitpos. */
171 complain_overflow_bitfield, /* Complain on overflow. */
172 bfd_elf_generic_reloc,/* Special Function. */
173 "R_MICROBLAZE_SRW32", /* Name. */
174 FALSE, /* Partial Inplace. */
175 0, /* Source Mask. */
176 0x0000ffff, /* Dest Mask. */
177 FALSE), /* PC relative offset? */
178
179 /* This reloc does nothing. Used for relaxation. */
180 HOWTO (R_MICROBLAZE_64_NONE, /* Type. */
181 0, /* Rightshift. */
182 3, /* Size (0 = byte, 1 = short, 2 = long). */
183 0, /* Bitsize. */
184 TRUE, /* PC_relative. */
185 0, /* Bitpos. */
186 complain_overflow_dont, /* Complain on overflow. */
187 NULL, /* Special Function. */
188 "R_MICROBLAZE_64_NONE",/* Name. */
189 FALSE, /* Partial Inplace. */
190 0, /* Source Mask. */
191 0, /* Dest Mask. */
192 FALSE), /* PC relative offset? */
193
194 /* Symbol Op Symbol relocation. */
195 HOWTO (R_MICROBLAZE_32_SYM_OP_SYM, /* Type. */
196 0, /* Rightshift. */
197 2, /* Size (0 = byte, 1 = short, 2 = long). */
198 32, /* Bitsize. */
199 FALSE, /* PC_relative. */
200 0, /* Bitpos. */
201 complain_overflow_bitfield, /* Complain on overflow. */
202 bfd_elf_generic_reloc,/* Special Function. */
203 "R_MICROBLAZE_32_SYM_OP_SYM", /* Name. */
204 FALSE, /* Partial Inplace. */
205 0, /* Source Mask. */
206 0xffffffff, /* Dest Mask. */
207 FALSE), /* PC relative offset? */
208
209 /* GNU extension to record C++ vtable hierarchy. */
210 HOWTO (R_MICROBLAZE_GNU_VTINHERIT, /* Type. */
211 0, /* Rightshift. */
212 2, /* Size (0 = byte, 1 = short, 2 = long). */
213 0, /* Bitsize. */
214 FALSE, /* PC_relative. */
215 0, /* Bitpos. */
216 complain_overflow_dont,/* Complain on overflow. */
217 NULL, /* Special Function. */
218 "R_MICROBLAZE_GNU_VTINHERIT", /* Name. */
219 FALSE, /* Partial Inplace. */
220 0, /* Source Mask. */
221 0, /* Dest Mask. */
222 FALSE), /* PC relative offset? */
223
224 /* GNU extension to record C++ vtable member usage. */
225 HOWTO (R_MICROBLAZE_GNU_VTENTRY, /* Type. */
226 0, /* Rightshift. */
227 2, /* Size (0 = byte, 1 = short, 2 = long). */
228 0, /* Bitsize. */
229 FALSE, /* PC_relative. */
230 0, /* Bitpos. */
231 complain_overflow_dont,/* Complain on overflow. */
232 _bfd_elf_rel_vtable_reloc_fn, /* Special Function. */
233 "R_MICROBLAZE_GNU_VTENTRY", /* Name. */
234 FALSE, /* Partial Inplace. */
235 0, /* Source Mask. */
236 0, /* Dest Mask. */
237 FALSE), /* PC relative offset? */
238
239 /* A 64 bit GOTPC relocation. Table-entry not really used. */
240 HOWTO (R_MICROBLAZE_GOTPC_64, /* Type. */
241 0, /* Rightshift. */
242 2, /* Size (0 = byte, 1 = short, 2 = long). */
243 16, /* Bitsize. */
244 TRUE, /* PC_relative. */
245 0, /* Bitpos. */
246 complain_overflow_dont, /* Complain on overflow. */
247 bfd_elf_generic_reloc, /* Special Function. */
248 "R_MICROBLAZE_GOTPC_64", /* Name. */
249 FALSE, /* Partial Inplace. */
250 0, /* Source Mask. */
251 0x0000ffff, /* Dest Mask. */
252 TRUE), /* PC relative offset? */
253
254 /* A 64 bit GOT relocation. Table-entry not really used. */
255 HOWTO (R_MICROBLAZE_GOT_64, /* Type. */
256 0, /* Rightshift. */
257 2, /* Size (0 = byte, 1 = short, 2 = long). */
258 16, /* Bitsize. */
259 FALSE, /* PC_relative. */
260 0, /* Bitpos. */
261 complain_overflow_dont, /* Complain on overflow. */
262 bfd_elf_generic_reloc,/* Special Function. */
263 "R_MICROBLAZE_GOT_64",/* Name. */
264 FALSE, /* Partial Inplace. */
265 0, /* Source Mask. */
266 0x0000ffff, /* Dest Mask. */
267 FALSE), /* PC relative offset? */
268
269 /* A 64 bit PLT relocation. Table-entry not really used. */
270 HOWTO (R_MICROBLAZE_PLT_64, /* Type. */
271 0, /* Rightshift. */
272 2, /* Size (0 = byte, 1 = short, 2 = long). */
273 16, /* Bitsize. */
274 TRUE, /* PC_relative. */
275 0, /* Bitpos. */
276 complain_overflow_dont, /* Complain on overflow. */
277 bfd_elf_generic_reloc,/* Special Function. */
278 "R_MICROBLAZE_PLT_64",/* Name. */
279 FALSE, /* Partial Inplace. */
280 0, /* Source Mask. */
281 0x0000ffff, /* Dest Mask. */
282 TRUE), /* PC relative offset? */
283
284 /* Table-entry not really used. */
285 HOWTO (R_MICROBLAZE_REL, /* Type. */
286 0, /* Rightshift. */
287 2, /* Size (0 = byte, 1 = short, 2 = long). */
288 16, /* Bitsize. */
289 TRUE, /* PC_relative. */
290 0, /* Bitpos. */
291 complain_overflow_dont, /* Complain on overflow. */
292 bfd_elf_generic_reloc,/* Special Function. */
293 "R_MICROBLAZE_REL", /* Name. */
294 FALSE, /* Partial Inplace. */
295 0, /* Source Mask. */
296 0x0000ffff, /* Dest Mask. */
297 TRUE), /* PC relative offset? */
298
299 /* Table-entry not really used. */
300 HOWTO (R_MICROBLAZE_JUMP_SLOT,/* Type. */
301 0, /* Rightshift. */
302 2, /* Size (0 = byte, 1 = short, 2 = long). */
303 16, /* Bitsize. */
304 TRUE, /* PC_relative. */
305 0, /* Bitpos. */
306 complain_overflow_dont, /* Complain on overflow. */
307 bfd_elf_generic_reloc,/* Special Function. */
308 "R_MICROBLAZE_JUMP_SLOT", /* Name. */
309 FALSE, /* Partial Inplace. */
310 0, /* Source Mask. */
311 0x0000ffff, /* Dest Mask. */
312 TRUE), /* PC relative offset? */
313
314 /* Table-entry not really used. */
315 HOWTO (R_MICROBLAZE_GLOB_DAT,/* Type. */
316 0, /* Rightshift. */
317 2, /* Size (0 = byte, 1 = short, 2 = long). */
318 16, /* Bitsize. */
319 TRUE, /* PC_relative. */
320 0, /* Bitpos. */
321 complain_overflow_dont, /* Complain on overflow. */
322 bfd_elf_generic_reloc,/* Special Function. */
323 "R_MICROBLAZE_GLOB_DAT", /* Name. */
324 FALSE, /* Partial Inplace. */
325 0, /* Source Mask. */
326 0x0000ffff, /* Dest Mask. */
327 TRUE), /* PC relative offset? */
328
329 /* A 64 bit GOT relative relocation. Table-entry not really used. */
330 HOWTO (R_MICROBLAZE_GOTOFF_64, /* Type. */
331 0, /* Rightshift. */
332 2, /* Size (0 = byte, 1 = short, 2 = long). */
333 16, /* Bitsize. */
334 FALSE, /* PC_relative. */
335 0, /* Bitpos. */
336 complain_overflow_dont, /* Complain on overflow. */
337 bfd_elf_generic_reloc,/* Special Function. */
338 "R_MICROBLAZE_GOTOFF_64", /* Name. */
339 FALSE, /* Partial Inplace. */
340 0, /* Source Mask. */
341 0x0000ffff, /* Dest Mask. */
342 FALSE), /* PC relative offset? */
343
344 /* A 32 bit GOT relative relocation. Table-entry not really used. */
345 HOWTO (R_MICROBLAZE_GOTOFF_32, /* Type. */
346 0, /* Rightshift. */
347 2, /* Size (0 = byte, 1 = short, 2 = long). */
348 16, /* Bitsize. */
349 FALSE, /* PC_relative. */
350 0, /* Bitpos. */
351 complain_overflow_dont, /* Complain on overflow. */
352 bfd_elf_generic_reloc, /* Special Function. */
353 "R_MICROBLAZE_GOTOFF_32", /* Name. */
354 FALSE, /* Partial Inplace. */
355 0, /* Source Mask. */
356 0x0000ffff, /* Dest Mask. */
357 FALSE), /* PC relative offset? */
358
359 /* COPY relocation. Table-entry not really used. */
360 HOWTO (R_MICROBLAZE_COPY, /* Type. */
361 0, /* Rightshift. */
362 2, /* Size (0 = byte, 1 = short, 2 = long). */
363 16, /* Bitsize. */
364 FALSE, /* PC_relative. */
365 0, /* Bitpos. */
366 complain_overflow_dont, /* Complain on overflow. */
367 bfd_elf_generic_reloc,/* Special Function. */
368 "R_MICROBLAZE_COPY", /* Name. */
369 FALSE, /* Partial Inplace. */
370 0, /* Source Mask. */
371 0x0000ffff, /* Dest Mask. */
372 FALSE), /* PC relative offset? */
373
374 /* Marker relocs for TLS. */
375 HOWTO (R_MICROBLAZE_TLS,
376 0, /* rightshift */
377 2, /* size (0 = byte, 1 = short, 2 = long) */
378 32, /* bitsize */
379 FALSE, /* pc_relative */
380 0, /* bitpos */
381 complain_overflow_dont, /* complain_on_overflow */
382 bfd_elf_generic_reloc, /* special_function */
383 "R_MICROBLAZE_TLS", /* name */
384 FALSE, /* partial_inplace */
385 0, /* src_mask */
386 0x0000ffff, /* dst_mask */
387 FALSE), /* pcrel_offset */
388
389 HOWTO (R_MICROBLAZE_TLSGD,
390 0, /* rightshift */
391 2, /* size (0 = byte, 1 = short, 2 = long) */
392 32, /* bitsize */
393 FALSE, /* pc_relative */
394 0, /* bitpos */
395 complain_overflow_dont, /* complain_on_overflow */
396 bfd_elf_generic_reloc, /* special_function */
397 "R_MICROBLAZE_TLSGD", /* name */
398 FALSE, /* partial_inplace */
399 0, /* src_mask */
400 0x0000ffff, /* dst_mask */
401 FALSE), /* pcrel_offset */
402
403 HOWTO (R_MICROBLAZE_TLSLD,
404 0, /* rightshift */
405 2, /* size (0 = byte, 1 = short, 2 = long) */
406 32, /* bitsize */
407 FALSE, /* pc_relative */
408 0, /* bitpos */
409 complain_overflow_dont, /* complain_on_overflow */
410 bfd_elf_generic_reloc, /* special_function */
411 "R_MICROBLAZE_TLSLD", /* name */
412 FALSE, /* partial_inplace */
413 0, /* src_mask */
414 0x0000ffff, /* dst_mask */
415 FALSE), /* pcrel_offset */
416
417 /* Computes the load module index of the load module that contains the
418 definition of its TLS sym. */
419 HOWTO (R_MICROBLAZE_TLSDTPMOD32,
420 0, /* rightshift */
421 2, /* size (0 = byte, 1 = short, 2 = long) */
422 32, /* bitsize */
423 FALSE, /* pc_relative */
424 0, /* bitpos */
425 complain_overflow_dont, /* complain_on_overflow */
426 bfd_elf_generic_reloc, /* special_function */
427 "R_MICROBLAZE_TLSDTPMOD32", /* name */
428 FALSE, /* partial_inplace */
429 0, /* src_mask */
430 0x0000ffff, /* dst_mask */
431 FALSE), /* pcrel_offset */
432
433 /* Computes a dtv-relative displacement, the difference between the value
434 of sym+add and the base address of the thread-local storage block that
435 contains the definition of sym, minus 0x8000. Used for initializing GOT */
436 HOWTO (R_MICROBLAZE_TLSDTPREL32,
437 0, /* rightshift */
438 2, /* size (0 = byte, 1 = short, 2 = long) */
439 32, /* bitsize */
440 FALSE, /* pc_relative */
441 0, /* bitpos */
442 complain_overflow_dont, /* complain_on_overflow */
443 bfd_elf_generic_reloc, /* special_function */
444 "R_MICROBLAZE_TLSDTPREL32", /* name */
445 FALSE, /* partial_inplace */
446 0, /* src_mask */
447 0x0000ffff, /* dst_mask */
448 FALSE), /* pcrel_offset */
449
450 /* Computes a dtv-relative displacement, the difference between the value
451 of sym+add and the base address of the thread-local storage block that
452 contains the definition of sym, minus 0x8000. */
453 HOWTO (R_MICROBLAZE_TLSDTPREL64,
454 0, /* rightshift */
455 2, /* size (0 = byte, 1 = short, 2 = long) */
456 32, /* bitsize */
457 FALSE, /* pc_relative */
458 0, /* bitpos */
459 complain_overflow_dont, /* complain_on_overflow */
460 bfd_elf_generic_reloc, /* special_function */
461 "R_MICROBLAZE_TLSDTPREL64", /* name */
462 FALSE, /* partial_inplace */
463 0, /* src_mask */
464 0x0000ffff, /* dst_mask */
465 FALSE), /* pcrel_offset */
466
467 /* Computes a tp-relative displacement, the difference between the value of
468 sym+add and the value of the thread pointer (r13). */
469 HOWTO (R_MICROBLAZE_TLSGOTTPREL32,
470 0, /* rightshift */
471 2, /* size (0 = byte, 1 = short, 2 = long) */
472 32, /* bitsize */
473 FALSE, /* pc_relative */
474 0, /* bitpos */
475 complain_overflow_dont, /* complain_on_overflow */
476 bfd_elf_generic_reloc, /* special_function */
477 "R_MICROBLAZE_TLSGOTTPREL32", /* name */
478 FALSE, /* partial_inplace */
479 0, /* src_mask */
480 0x0000ffff, /* dst_mask */
481 FALSE), /* pcrel_offset */
482
483 /* Computes a tp-relative displacement, the difference between the value of
484 sym+add and the value of the thread pointer (r13). */
485 HOWTO (R_MICROBLAZE_TLSTPREL32,
486 0, /* rightshift */
487 2, /* size (0 = byte, 1 = short, 2 = long) */
488 32, /* bitsize */
489 FALSE, /* pc_relative */
490 0, /* bitpos */
491 complain_overflow_dont, /* complain_on_overflow */
492 bfd_elf_generic_reloc, /* special_function */
493 "R_MICROBLAZE_TLSTPREL32", /* name */
494 FALSE, /* partial_inplace */
495 0, /* src_mask */
496 0x0000ffff, /* dst_mask */
497 FALSE), /* pcrel_offset */
498
499 };
500
501 #ifndef NUM_ELEM
502 #define NUM_ELEM(a) (sizeof (a) / sizeof (a)[0])
503 #endif
504 \f
505 /* Initialize the microblaze_elf_howto_table, so that linear accesses can be done. */
506
507 static void
508 microblaze_elf_howto_init (void)
509 {
510 unsigned int i;
511
512 for (i = NUM_ELEM (microblaze_elf_howto_raw); i--;)
513 {
514 unsigned int type;
515
516 type = microblaze_elf_howto_raw[i].type;
517
518 BFD_ASSERT (type < NUM_ELEM (microblaze_elf_howto_table));
519
520 microblaze_elf_howto_table [type] = & microblaze_elf_howto_raw [i];
521 }
522 }
523 \f
524 static reloc_howto_type *
525 microblaze_elf_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
526 bfd_reloc_code_real_type code)
527 {
528 enum elf_microblaze_reloc_type microblaze_reloc = R_MICROBLAZE_NONE;
529
530 switch (code)
531 {
532 case BFD_RELOC_NONE:
533 microblaze_reloc = R_MICROBLAZE_NONE;
534 break;
535 case BFD_RELOC_MICROBLAZE_64_NONE:
536 microblaze_reloc = R_MICROBLAZE_64_NONE;
537 break;
538 case BFD_RELOC_32:
539 microblaze_reloc = R_MICROBLAZE_32;
540 break;
541 /* RVA is treated the same as 32 */
542 case BFD_RELOC_RVA:
543 microblaze_reloc = R_MICROBLAZE_32;
544 break;
545 case BFD_RELOC_32_PCREL:
546 microblaze_reloc = R_MICROBLAZE_32_PCREL;
547 break;
548 case BFD_RELOC_64_PCREL:
549 microblaze_reloc = R_MICROBLAZE_64_PCREL;
550 break;
551 case BFD_RELOC_MICROBLAZE_32_LO_PCREL:
552 microblaze_reloc = R_MICROBLAZE_32_PCREL_LO;
553 break;
554 case BFD_RELOC_64:
555 microblaze_reloc = R_MICROBLAZE_64;
556 break;
557 case BFD_RELOC_MICROBLAZE_32_LO:
558 microblaze_reloc = R_MICROBLAZE_32_LO;
559 break;
560 case BFD_RELOC_MICROBLAZE_32_ROSDA:
561 microblaze_reloc = R_MICROBLAZE_SRO32;
562 break;
563 case BFD_RELOC_MICROBLAZE_32_RWSDA:
564 microblaze_reloc = R_MICROBLAZE_SRW32;
565 break;
566 case BFD_RELOC_MICROBLAZE_32_SYM_OP_SYM:
567 microblaze_reloc = R_MICROBLAZE_32_SYM_OP_SYM;
568 break;
569 case BFD_RELOC_VTABLE_INHERIT:
570 microblaze_reloc = R_MICROBLAZE_GNU_VTINHERIT;
571 break;
572 case BFD_RELOC_VTABLE_ENTRY:
573 microblaze_reloc = R_MICROBLAZE_GNU_VTENTRY;
574 break;
575 case BFD_RELOC_MICROBLAZE_64_GOTPC:
576 microblaze_reloc = R_MICROBLAZE_GOTPC_64;
577 break;
578 case BFD_RELOC_MICROBLAZE_64_GOT:
579 microblaze_reloc = R_MICROBLAZE_GOT_64;
580 break;
581 case BFD_RELOC_MICROBLAZE_64_PLT:
582 microblaze_reloc = R_MICROBLAZE_PLT_64;
583 break;
584 case BFD_RELOC_MICROBLAZE_64_GOTOFF:
585 microblaze_reloc = R_MICROBLAZE_GOTOFF_64;
586 break;
587 case BFD_RELOC_MICROBLAZE_32_GOTOFF:
588 microblaze_reloc = R_MICROBLAZE_GOTOFF_32;
589 break;
590 case BFD_RELOC_MICROBLAZE_64_TLSGD:
591 microblaze_reloc = R_MICROBLAZE_TLSGD;
592 break;
593 case BFD_RELOC_MICROBLAZE_64_TLSLD:
594 microblaze_reloc = R_MICROBLAZE_TLSLD;
595 break;
596 case BFD_RELOC_MICROBLAZE_32_TLSDTPREL:
597 microblaze_reloc = R_MICROBLAZE_TLSDTPREL32;
598 break;
599 case BFD_RELOC_MICROBLAZE_64_TLSDTPREL:
600 microblaze_reloc = R_MICROBLAZE_TLSDTPREL64;
601 break;
602 case BFD_RELOC_MICROBLAZE_32_TLSDTPMOD:
603 microblaze_reloc = R_MICROBLAZE_TLSDTPMOD32;
604 break;
605 case BFD_RELOC_MICROBLAZE_64_TLSGOTTPREL:
606 microblaze_reloc = R_MICROBLAZE_TLSGOTTPREL32;
607 break;
608 case BFD_RELOC_MICROBLAZE_64_TLSTPREL:
609 microblaze_reloc = R_MICROBLAZE_TLSTPREL32;
610 break;
611 case BFD_RELOC_MICROBLAZE_COPY:
612 microblaze_reloc = R_MICROBLAZE_COPY;
613 break;
614 default:
615 return (reloc_howto_type *) NULL;
616 }
617
618 if (!microblaze_elf_howto_table [R_MICROBLAZE_32])
619 /* Initialize howto table if needed. */
620 microblaze_elf_howto_init ();
621
622 return microblaze_elf_howto_table [(int) microblaze_reloc];
623 };
624
625 static reloc_howto_type *
626 microblaze_elf_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
627 const char *r_name)
628 {
629 unsigned int i;
630
631 for (i = 0; i < NUM_ELEM (microblaze_elf_howto_raw); i++)
632 if (microblaze_elf_howto_raw[i].name != NULL
633 && strcasecmp (microblaze_elf_howto_raw[i].name, r_name) == 0)
634 return &microblaze_elf_howto_raw[i];
635
636 return NULL;
637 }
638
639 /* Set the howto pointer for a RCE ELF reloc. */
640
641 static void
642 microblaze_elf_info_to_howto (bfd * abfd ATTRIBUTE_UNUSED,
643 arelent * cache_ptr,
644 Elf_Internal_Rela * dst)
645 {
646 unsigned int r_type;
647
648 if (!microblaze_elf_howto_table [R_MICROBLAZE_32])
649 /* Initialize howto table if needed. */
650 microblaze_elf_howto_init ();
651
652 r_type = ELF32_R_TYPE (dst->r_info);
653 if (r_type >= R_MICROBLAZE_max)
654 {
655 (*_bfd_error_handler) (_("%B: unrecognised MicroBlaze reloc number: %d"),
656 abfd, r_type);
657 bfd_set_error (bfd_error_bad_value);
658 r_type = R_MICROBLAZE_NONE;
659 }
660
661 cache_ptr->howto = microblaze_elf_howto_table [r_type];
662 }
663
664 /* Microblaze ELF local labels start with 'L.' or '$L', not '.L'. */
665
666 static bfd_boolean
667 microblaze_elf_is_local_label_name (bfd *abfd, const char *name)
668 {
669 if (name[0] == 'L' && name[1] == '.')
670 return TRUE;
671
672 if (name[0] == '$' && name[1] == 'L')
673 return TRUE;
674
675 /* With gcc, the labels go back to starting with '.', so we accept
676 the generic ELF local label syntax as well. */
677 return _bfd_elf_is_local_label_name (abfd, name);
678 }
679
680 /* The microblaze linker (like many others) needs to keep track of
681 the number of relocs that it decides to copy as dynamic relocs in
682 check_relocs for each symbol. This is so that it can later discard
683 them if they are found to be unnecessary. We store the information
684 in a field extending the regular ELF linker hash table. */
685
686 struct elf32_mb_dyn_relocs
687 {
688 struct elf32_mb_dyn_relocs *next;
689
690 /* The input section of the reloc. */
691 asection *sec;
692
693 /* Total number of relocs copied for the input section. */
694 bfd_size_type count;
695
696 /* Number of pc-relative relocs copied for the input section. */
697 bfd_size_type pc_count;
698 };
699
700 /* ELF linker hash entry. */
701
702 struct elf32_mb_link_hash_entry
703 {
704 struct elf_link_hash_entry elf;
705
706 /* Track dynamic relocs copied for this symbol. */
707 struct elf32_mb_dyn_relocs *dyn_relocs;
708
709 /* TLS Reference Types for the symbol; Updated by check_relocs */
710 #define TLS_GD 1 /* GD reloc. */
711 #define TLS_LD 2 /* LD reloc. */
712 #define TLS_TPREL 4 /* TPREL reloc, => IE. */
713 #define TLS_DTPREL 8 /* DTPREL reloc, => LD. */
714 #define TLS_TLS 16 /* Any TLS reloc. */
715 unsigned char tls_mask;
716
717 };
718
719 #define IS_TLS_GD(x) (x == (TLS_TLS | TLS_GD))
720 #define IS_TLS_LD(x) (x == (TLS_TLS | TLS_LD))
721 #define IS_TLS_DTPREL(x) (x == (TLS_TLS | TLS_DTPREL))
722 #define IS_TLS_NONE(x) (x == 0)
723
724 #define elf32_mb_hash_entry(ent) ((struct elf32_mb_link_hash_entry *)(ent))
725
726 /* ELF linker hash table. */
727
728 struct elf32_mb_link_hash_table
729 {
730 struct elf_link_hash_table elf;
731
732 /* Short-cuts to get to dynamic linker sections. */
733 asection *sgot;
734 asection *sgotplt;
735 asection *srelgot;
736 asection *splt;
737 asection *srelplt;
738 asection *sdynbss;
739 asection *srelbss;
740
741 /* Small local sym to section mapping cache. */
742 struct sym_cache sym_sec;
743
744 /* TLS Local Dynamic GOT Entry */
745 union {
746 bfd_signed_vma refcount;
747 bfd_vma offset;
748 } tlsld_got;
749 };
750
751 /* Nonzero if this section has TLS related relocations. */
752 #define has_tls_reloc sec_flg0
753
754 /* Get the ELF linker hash table from a link_info structure. */
755
756 #define elf32_mb_hash_table(p) \
757 (elf_hash_table_id ((struct elf_link_hash_table *) ((p)->hash)) \
758 == MICROBLAZE_ELF_DATA ? ((struct elf32_mb_link_hash_table *) ((p)->hash)) : NULL)
759
760 /* Create an entry in a microblaze ELF linker hash table. */
761
762 static struct bfd_hash_entry *
763 link_hash_newfunc (struct bfd_hash_entry *entry,
764 struct bfd_hash_table *table,
765 const char *string)
766 {
767 /* Allocate the structure if it has not already been allocated by a
768 subclass. */
769 if (entry == NULL)
770 {
771 entry = bfd_hash_allocate (table,
772 sizeof (struct elf32_mb_link_hash_entry));
773 if (entry == NULL)
774 return entry;
775 }
776
777 /* Call the allocation method of the superclass. */
778 entry = _bfd_elf_link_hash_newfunc (entry, table, string);
779 if (entry != NULL)
780 {
781 struct elf32_mb_link_hash_entry *eh;
782
783 eh = (struct elf32_mb_link_hash_entry *) entry;
784 eh->dyn_relocs = NULL;
785 eh->tls_mask = 0;
786 }
787
788 return entry;
789 }
790
791 /* Create a mb ELF linker hash table. */
792
793 static struct bfd_link_hash_table *
794 microblaze_elf_link_hash_table_create (bfd *abfd)
795 {
796 struct elf32_mb_link_hash_table *ret;
797 bfd_size_type amt = sizeof (struct elf32_mb_link_hash_table);
798
799 ret = (struct elf32_mb_link_hash_table *) bfd_zmalloc (amt);
800 if (ret == NULL)
801 return NULL;
802
803 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd, link_hash_newfunc,
804 sizeof (struct elf32_mb_link_hash_entry),
805 MICROBLAZE_ELF_DATA))
806 {
807 free (ret);
808 return NULL;
809 }
810
811 return &ret->elf.root;
812 }
813 \f
814 /* Set the values of the small data pointers. */
815
816 static void
817 microblaze_elf_final_sdp (struct bfd_link_info *info)
818 {
819 struct bfd_link_hash_entry *h;
820
821 h = bfd_link_hash_lookup (info->hash, RO_SDA_ANCHOR_NAME, FALSE, FALSE, TRUE);
822 if (h != (struct bfd_link_hash_entry *) NULL
823 && h->type == bfd_link_hash_defined)
824 ro_small_data_pointer = (h->u.def.value
825 + h->u.def.section->output_section->vma
826 + h->u.def.section->output_offset);
827
828 h = bfd_link_hash_lookup (info->hash, RW_SDA_ANCHOR_NAME, FALSE, FALSE, TRUE);
829 if (h != (struct bfd_link_hash_entry *) NULL
830 && h->type == bfd_link_hash_defined)
831 rw_small_data_pointer = (h->u.def.value
832 + h->u.def.section->output_section->vma
833 + h->u.def.section->output_offset);
834 }
835
836 static bfd_vma
837 dtprel_base (struct bfd_link_info *info)
838 {
839 /* If tls_sec is NULL, we should have signalled an error already. */
840 if (elf_hash_table (info)->tls_sec == NULL)
841 return 0;
842 return elf_hash_table (info)->tls_sec->vma;
843 }
844
845 /* The size of the thread control block. */
846 #define TCB_SIZE 8
847
848 /* Output a simple dynamic relocation into SRELOC. */
849
850 static void
851 microblaze_elf_output_dynamic_relocation (bfd *output_bfd,
852 asection *sreloc,
853 unsigned long reloc_index,
854 unsigned long indx,
855 int r_type,
856 bfd_vma offset,
857 bfd_vma addend)
858 {
859
860 Elf_Internal_Rela rel;
861
862 rel.r_info = ELF32_R_INFO (indx, r_type);
863 rel.r_offset = offset;
864 rel.r_addend = addend;
865
866 bfd_elf32_swap_reloca_out (output_bfd, &rel,
867 (sreloc->contents + reloc_index * sizeof (Elf32_External_Rela)));
868 }
869
870 /* This code is taken from elf32-m32r.c
871 There is some attempt to make this function usable for many architectures,
872 both USE_REL and USE_RELA ['twould be nice if such a critter existed],
873 if only to serve as a learning tool.
874
875 The RELOCATE_SECTION function is called by the new ELF backend linker
876 to handle the relocations for a section.
877
878 The relocs are always passed as Rela structures; if the section
879 actually uses Rel structures, the r_addend field will always be
880 zero.
881
882 This function is responsible for adjust the section contents as
883 necessary, and (if using Rela relocs and generating a
884 relocatable output file) adjusting the reloc addend as
885 necessary.
886
887 This function does not have to worry about setting the reloc
888 address or the reloc symbol index.
889
890 LOCAL_SYMS is a pointer to the swapped in local symbols.
891
892 LOCAL_SECTIONS is an array giving the section in the input file
893 corresponding to the st_shndx field of each local symbol.
894
895 The global hash table entry for the global symbols can be found
896 via elf_sym_hashes (input_bfd).
897
898 When generating relocatable output, this function must handle
899 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
900 going to be the section symbol corresponding to the output
901 section, which means that the addend must be adjusted
902 accordingly. */
903
904 static bfd_boolean
905 microblaze_elf_relocate_section (bfd *output_bfd,
906 struct bfd_link_info *info,
907 bfd *input_bfd,
908 asection *input_section,
909 bfd_byte *contents,
910 Elf_Internal_Rela *relocs,
911 Elf_Internal_Sym *local_syms,
912 asection **local_sections)
913 {
914 struct elf32_mb_link_hash_table *htab;
915 Elf_Internal_Shdr *symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
916 struct elf_link_hash_entry **sym_hashes = elf_sym_hashes (input_bfd);
917 Elf_Internal_Rela *rel, *relend;
918 int endian = (bfd_little_endian (output_bfd)) ? 0 : 2;
919 /* Assume success. */
920 bfd_boolean ret = TRUE;
921 asection *sreloc;
922 bfd_vma *local_got_offsets;
923 unsigned int tls_type;
924
925 if (!microblaze_elf_howto_table[R_MICROBLAZE_max-1])
926 microblaze_elf_howto_init ();
927
928 htab = elf32_mb_hash_table (info);
929 if (htab == NULL)
930 return FALSE;
931
932 local_got_offsets = elf_local_got_offsets (input_bfd);
933
934 sreloc = elf_section_data (input_section)->sreloc;
935
936 rel = relocs;
937 relend = relocs + input_section->reloc_count;
938 for (; rel < relend; rel++)
939 {
940 int r_type;
941 reloc_howto_type *howto;
942 unsigned long r_symndx;
943 bfd_vma addend = rel->r_addend;
944 bfd_vma offset = rel->r_offset;
945 struct elf_link_hash_entry *h;
946 Elf_Internal_Sym *sym;
947 asection *sec;
948 const char *sym_name;
949 bfd_reloc_status_type r = bfd_reloc_ok;
950 const char *errmsg = NULL;
951 bfd_boolean unresolved_reloc = FALSE;
952
953 h = NULL;
954 r_type = ELF32_R_TYPE (rel->r_info);
955 tls_type = 0;
956
957 if (r_type < 0 || r_type >= (int) R_MICROBLAZE_max)
958 {
959 (*_bfd_error_handler) (_("%s: unknown relocation type %d"),
960 bfd_get_filename (input_bfd), (int) r_type);
961 bfd_set_error (bfd_error_bad_value);
962 ret = FALSE;
963 continue;
964 }
965
966 howto = microblaze_elf_howto_table[r_type];
967 r_symndx = ELF32_R_SYM (rel->r_info);
968
969 if (bfd_link_relocatable (info))
970 {
971 /* This is a relocatable link. We don't have to change
972 anything, unless the reloc is against a section symbol,
973 in which case we have to adjust according to where the
974 section symbol winds up in the output section. */
975 sec = NULL;
976 if (r_symndx >= symtab_hdr->sh_info)
977 /* External symbol. */
978 continue;
979
980 /* Local symbol. */
981 sym = local_syms + r_symndx;
982 sym_name = "<local symbol>";
983 /* STT_SECTION: symbol is associated with a section. */
984 if (ELF_ST_TYPE (sym->st_info) != STT_SECTION)
985 /* Symbol isn't associated with a section. Nothing to do. */
986 continue;
987
988 sec = local_sections[r_symndx];
989 addend += sec->output_offset + sym->st_value;
990 #ifndef USE_REL
991 /* This can't be done for USE_REL because it doesn't mean anything
992 and elf_link_input_bfd asserts this stays zero. */
993 /* rel->r_addend = addend; */
994 #endif
995
996 #ifndef USE_REL
997 /* Addends are stored with relocs. We're done. */
998 continue;
999 #else /* USE_REL */
1000 /* If partial_inplace, we need to store any additional addend
1001 back in the section. */
1002 if (!howto->partial_inplace)
1003 continue;
1004 /* ??? Here is a nice place to call a special_function like handler. */
1005 r = _bfd_relocate_contents (howto, input_bfd, addend,
1006 contents + offset);
1007 #endif /* USE_REL */
1008 }
1009 else
1010 {
1011 bfd_vma relocation;
1012
1013 /* This is a final link. */
1014 sym = NULL;
1015 sec = NULL;
1016 unresolved_reloc = FALSE;
1017
1018 if (r_symndx < symtab_hdr->sh_info)
1019 {
1020 /* Local symbol. */
1021 sym = local_syms + r_symndx;
1022 sec = local_sections[r_symndx];
1023 if (sec == 0)
1024 continue;
1025 sym_name = "<local symbol>";
1026 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1027 /* r_addend may have changed if the reference section was
1028 a merge section. */
1029 addend = rel->r_addend;
1030 }
1031 else
1032 {
1033 /* External symbol. */
1034 bfd_boolean warned ATTRIBUTE_UNUSED;
1035 bfd_boolean ignored ATTRIBUTE_UNUSED;
1036
1037 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1038 r_symndx, symtab_hdr, sym_hashes,
1039 h, sec, relocation,
1040 unresolved_reloc, warned, ignored);
1041 sym_name = h->root.root.string;
1042 }
1043
1044 /* Sanity check the address. */
1045 if (offset > bfd_get_section_limit (input_bfd, input_section))
1046 {
1047 r = bfd_reloc_outofrange;
1048 goto check_reloc;
1049 }
1050
1051 switch ((int) r_type)
1052 {
1053 case (int) R_MICROBLAZE_SRO32 :
1054 {
1055 const char *name;
1056
1057 /* Only relocate if the symbol is defined. */
1058 if (sec)
1059 {
1060 name = bfd_get_section_name (sec->owner, sec);
1061
1062 if (strcmp (name, ".sdata2") == 0
1063 || strcmp (name, ".sbss2") == 0)
1064 {
1065 if (ro_small_data_pointer == 0)
1066 microblaze_elf_final_sdp (info);
1067 if (ro_small_data_pointer == 0)
1068 {
1069 ret = FALSE;
1070 r = bfd_reloc_undefined;
1071 goto check_reloc;
1072 }
1073
1074 /* At this point `relocation' contains the object's
1075 address. */
1076 relocation -= ro_small_data_pointer;
1077 /* Now it contains the offset from _SDA2_BASE_. */
1078 r = _bfd_final_link_relocate (howto, input_bfd,
1079 input_section,
1080 contents, offset,
1081 relocation, addend);
1082 }
1083 else
1084 {
1085 (*_bfd_error_handler) (_("%s: The target (%s) of an %s relocation is in the wrong section (%s)"),
1086 bfd_get_filename (input_bfd),
1087 sym_name,
1088 microblaze_elf_howto_table[(int) r_type]->name,
1089 bfd_get_section_name (sec->owner, sec));
1090 /*bfd_set_error (bfd_error_bad_value); ??? why? */
1091 ret = FALSE;
1092 continue;
1093 }
1094 }
1095 }
1096 break;
1097
1098 case (int) R_MICROBLAZE_SRW32 :
1099 {
1100 const char *name;
1101
1102 /* Only relocate if the symbol is defined. */
1103 if (sec)
1104 {
1105 name = bfd_get_section_name (sec->owner, sec);
1106
1107 if (strcmp (name, ".sdata") == 0
1108 || strcmp (name, ".sbss") == 0)
1109 {
1110 if (rw_small_data_pointer == 0)
1111 microblaze_elf_final_sdp (info);
1112 if (rw_small_data_pointer == 0)
1113 {
1114 ret = FALSE;
1115 r = bfd_reloc_undefined;
1116 goto check_reloc;
1117 }
1118
1119 /* At this point `relocation' contains the object's
1120 address. */
1121 relocation -= rw_small_data_pointer;
1122 /* Now it contains the offset from _SDA_BASE_. */
1123 r = _bfd_final_link_relocate (howto, input_bfd,
1124 input_section,
1125 contents, offset,
1126 relocation, addend);
1127 }
1128 else
1129 {
1130 (*_bfd_error_handler) (_("%s: The target (%s) of an %s relocation is in the wrong section (%s)"),
1131 bfd_get_filename (input_bfd),
1132 sym_name,
1133 microblaze_elf_howto_table[(int) r_type]->name,
1134 bfd_get_section_name (sec->owner, sec));
1135 /*bfd_set_error (bfd_error_bad_value); ??? why? */
1136 ret = FALSE;
1137 continue;
1138 }
1139 }
1140 }
1141 break;
1142
1143 case (int) R_MICROBLAZE_32_SYM_OP_SYM:
1144 break; /* Do nothing. */
1145
1146 case (int) R_MICROBLAZE_GOTPC_64:
1147 relocation = htab->sgotplt->output_section->vma
1148 + htab->sgotplt->output_offset;
1149 relocation -= (input_section->output_section->vma
1150 + input_section->output_offset
1151 + offset + INST_WORD_SIZE);
1152 relocation += addend;
1153 bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1154 contents + offset + endian);
1155 bfd_put_16 (input_bfd, relocation & 0xffff,
1156 contents + offset + endian + INST_WORD_SIZE);
1157 break;
1158
1159 case (int) R_MICROBLAZE_PLT_64:
1160 {
1161 bfd_vma immediate;
1162 if (htab->splt != NULL && h != NULL
1163 && h->plt.offset != (bfd_vma) -1)
1164 {
1165 relocation = (htab->splt->output_section->vma
1166 + htab->splt->output_offset
1167 + h->plt.offset);
1168 unresolved_reloc = FALSE;
1169 immediate = relocation - (input_section->output_section->vma
1170 + input_section->output_offset
1171 + offset + INST_WORD_SIZE);
1172 bfd_put_16 (input_bfd, (immediate >> 16) & 0xffff,
1173 contents + offset + endian);
1174 bfd_put_16 (input_bfd, immediate & 0xffff,
1175 contents + offset + endian + INST_WORD_SIZE);
1176 }
1177 else
1178 {
1179 relocation -= (input_section->output_section->vma
1180 + input_section->output_offset
1181 + offset + INST_WORD_SIZE);
1182 immediate = relocation;
1183 bfd_put_16 (input_bfd, (immediate >> 16) & 0xffff,
1184 contents + offset + endian);
1185 bfd_put_16 (input_bfd, immediate & 0xffff,
1186 contents + offset + endian + INST_WORD_SIZE);
1187 }
1188 break;
1189 }
1190
1191 case (int) R_MICROBLAZE_TLSGD:
1192 tls_type = (TLS_TLS | TLS_GD);
1193 goto dogot;
1194 case (int) R_MICROBLAZE_TLSLD:
1195 tls_type = (TLS_TLS | TLS_LD);
1196 dogot:
1197 case (int) R_MICROBLAZE_GOT_64:
1198 {
1199 bfd_vma *offp;
1200 bfd_vma off, off2;
1201 unsigned long indx;
1202 bfd_vma static_value;
1203
1204 bfd_boolean need_relocs = FALSE;
1205 if (htab->sgot == NULL)
1206 abort ();
1207
1208 indx = 0;
1209 offp = NULL;
1210
1211 /* 1. Identify GOT Offset;
1212 2. Compute Static Values
1213 3. Process Module Id, Process Offset
1214 4. Fixup Relocation with GOT offset value. */
1215
1216 /* 1. Determine GOT Offset to use : TLS_LD, global, local */
1217 if (IS_TLS_LD (tls_type))
1218 offp = &htab->tlsld_got.offset;
1219 else if (h != NULL)
1220 {
1221 if (htab->sgotplt != NULL && h->got.offset != (bfd_vma) -1)
1222 offp = &h->got.offset;
1223 else
1224 abort ();
1225 }
1226 else
1227 {
1228 if (local_got_offsets == NULL)
1229 abort ();
1230 offp = &local_got_offsets[r_symndx];
1231 }
1232
1233 if (!offp)
1234 abort ();
1235
1236 off = (*offp) & ~1;
1237 off2 = off;
1238
1239 if (IS_TLS_LD(tls_type) || IS_TLS_GD(tls_type))
1240 off2 = off + 4;
1241
1242 /* Symbol index to use for relocs */
1243 if (h != NULL)
1244 {
1245 bfd_boolean dyn =
1246 elf_hash_table (info)->dynamic_sections_created;
1247
1248 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
1249 bfd_link_pic (info),
1250 h)
1251 && (!bfd_link_pic (info)
1252 || !SYMBOL_REFERENCES_LOCAL (info, h)))
1253 indx = h->dynindx;
1254 }
1255
1256 /* Need to generate relocs ? */
1257 if ((bfd_link_pic (info) || indx != 0)
1258 && (h == NULL
1259 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1260 || h->root.type != bfd_link_hash_undefweak))
1261 need_relocs = TRUE;
1262
1263 /* 2. Compute/Emit Static value of r-expression */
1264 static_value = relocation + addend;
1265
1266 /* 3. Process module-id and offset */
1267 if (! ((*offp) & 1) )
1268 {
1269 bfd_vma got_offset;
1270
1271 got_offset = (htab->sgot->output_section->vma
1272 + htab->sgot->output_offset
1273 + off);
1274
1275 /* Process module-id */
1276 if (IS_TLS_LD(tls_type))
1277 {
1278 if (! bfd_link_pic (info))
1279 {
1280 bfd_put_32 (output_bfd, 1, htab->sgot->contents + off);
1281 }
1282 else
1283 {
1284 microblaze_elf_output_dynamic_relocation (output_bfd,
1285 htab->srelgot, htab->srelgot->reloc_count++,
1286 /* symindex= */ 0, R_MICROBLAZE_TLSDTPMOD32,
1287 got_offset, 0);
1288 }
1289 }
1290 else if (IS_TLS_GD(tls_type))
1291 {
1292 if (! need_relocs)
1293 {
1294 bfd_put_32 (output_bfd, 1, htab->sgot->contents + off);
1295 }
1296 else
1297 {
1298 microblaze_elf_output_dynamic_relocation (output_bfd,
1299 htab->srelgot,
1300 htab->srelgot->reloc_count++,
1301 /* symindex= */ indx, R_MICROBLAZE_TLSDTPMOD32,
1302 got_offset, indx ? 0 : static_value);
1303 }
1304 }
1305
1306 /* Process Offset */
1307 if (htab->srelgot == NULL)
1308 abort ();
1309
1310 got_offset = (htab->sgot->output_section->vma
1311 + htab->sgot->output_offset
1312 + off2);
1313 if (IS_TLS_LD(tls_type))
1314 {
1315 /* For LD, offset should be 0 */
1316 *offp |= 1;
1317 bfd_put_32 (output_bfd, 0, htab->sgot->contents + off2);
1318 }
1319 else if (IS_TLS_GD(tls_type))
1320 {
1321 *offp |= 1;
1322 static_value -= dtprel_base(info);
1323 if (need_relocs)
1324 {
1325 microblaze_elf_output_dynamic_relocation (output_bfd,
1326 htab->srelgot, htab->srelgot->reloc_count++,
1327 /* symindex= */ indx, R_MICROBLAZE_TLSDTPREL32,
1328 got_offset, indx ? 0 : static_value);
1329 }
1330 else
1331 {
1332 bfd_put_32 (output_bfd, static_value,
1333 htab->sgot->contents + off2);
1334 }
1335 }
1336 else
1337 {
1338 bfd_put_32 (output_bfd, static_value,
1339 htab->sgot->contents + off2);
1340
1341 /* Relocs for dyn symbols generated by
1342 finish_dynamic_symbols */
1343 if (bfd_link_pic (info) && h == NULL)
1344 {
1345 *offp |= 1;
1346 microblaze_elf_output_dynamic_relocation (output_bfd,
1347 htab->srelgot, htab->srelgot->reloc_count++,
1348 /* symindex= */ indx, R_MICROBLAZE_REL,
1349 got_offset, static_value);
1350 }
1351 }
1352 }
1353
1354 /* 4. Fixup Relocation with GOT offset value
1355 Compute relative address of GOT entry for applying
1356 the current relocation */
1357 relocation = htab->sgot->output_section->vma
1358 + htab->sgot->output_offset
1359 + off
1360 - htab->sgotplt->output_section->vma
1361 - htab->sgotplt->output_offset;
1362
1363 /* Apply Current Relocation */
1364 bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1365 contents + offset + endian);
1366 bfd_put_16 (input_bfd, relocation & 0xffff,
1367 contents + offset + endian + INST_WORD_SIZE);
1368
1369 unresolved_reloc = FALSE;
1370 break;
1371 }
1372
1373 case (int) R_MICROBLAZE_GOTOFF_64:
1374 {
1375 bfd_vma immediate;
1376 unsigned short lo, high;
1377 relocation += addend;
1378 relocation -= htab->sgotplt->output_section->vma
1379 + htab->sgotplt->output_offset;
1380 /* Write this value into correct location. */
1381 immediate = relocation;
1382 lo = immediate & 0x0000ffff;
1383 high = (immediate >> 16) & 0x0000ffff;
1384 bfd_put_16 (input_bfd, high, contents + offset + endian);
1385 bfd_put_16 (input_bfd, lo, contents + offset + INST_WORD_SIZE + endian);
1386 break;
1387 }
1388
1389 case (int) R_MICROBLAZE_GOTOFF_32:
1390 {
1391 relocation += addend;
1392 relocation -= htab->sgotplt->output_section->vma
1393 + htab->sgotplt->output_offset;
1394 /* Write this value into correct location. */
1395 bfd_put_32 (input_bfd, relocation, contents + offset);
1396 break;
1397 }
1398
1399 case (int) R_MICROBLAZE_TLSDTPREL64:
1400 relocation += addend;
1401 relocation -= dtprel_base(info);
1402 bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1403 contents + offset + 2);
1404 bfd_put_16 (input_bfd, relocation & 0xffff,
1405 contents + offset + 2 + INST_WORD_SIZE);
1406 break;
1407 case (int) R_MICROBLAZE_64_PCREL :
1408 case (int) R_MICROBLAZE_64:
1409 case (int) R_MICROBLAZE_32:
1410 {
1411 /* r_symndx will be STN_UNDEF (zero) only for relocs against symbols
1412 from removed linkonce sections, or sections discarded by
1413 a linker script. */
1414 if (r_symndx == STN_UNDEF || (input_section->flags & SEC_ALLOC) == 0)
1415 {
1416 relocation += addend;
1417 if (r_type == R_MICROBLAZE_32)
1418 bfd_put_32 (input_bfd, relocation, contents + offset);
1419 else
1420 {
1421 if (r_type == R_MICROBLAZE_64_PCREL)
1422 relocation -= (input_section->output_section->vma
1423 + input_section->output_offset
1424 + offset + INST_WORD_SIZE);
1425 bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1426 contents + offset + endian);
1427 bfd_put_16 (input_bfd, relocation & 0xffff,
1428 contents + offset + endian + INST_WORD_SIZE);
1429 }
1430 break;
1431 }
1432
1433 if ((bfd_link_pic (info)
1434 && (h == NULL
1435 || ELF_ST_VISIBILITY (h->other) == STV_DEFAULT
1436 || h->root.type != bfd_link_hash_undefweak)
1437 && (!howto->pc_relative
1438 || (h != NULL
1439 && h->dynindx != -1
1440 && (!info->symbolic
1441 || !h->def_regular))))
1442 || (!bfd_link_pic (info)
1443 && h != NULL
1444 && h->dynindx != -1
1445 && !h->non_got_ref
1446 && ((h->def_dynamic
1447 && !h->def_regular)
1448 || h->root.type == bfd_link_hash_undefweak
1449 || h->root.type == bfd_link_hash_undefined)))
1450 {
1451 Elf_Internal_Rela outrel;
1452 bfd_byte *loc;
1453 bfd_boolean skip;
1454
1455 /* When generating a shared object, these relocations
1456 are copied into the output file to be resolved at run
1457 time. */
1458
1459 BFD_ASSERT (sreloc != NULL);
1460
1461 skip = FALSE;
1462
1463 outrel.r_offset =
1464 _bfd_elf_section_offset (output_bfd, info, input_section,
1465 rel->r_offset);
1466 if (outrel.r_offset == (bfd_vma) -1)
1467 skip = TRUE;
1468 else if (outrel.r_offset == (bfd_vma) -2)
1469 skip = TRUE;
1470 outrel.r_offset += (input_section->output_section->vma
1471 + input_section->output_offset);
1472
1473 if (skip)
1474 memset (&outrel, 0, sizeof outrel);
1475 /* h->dynindx may be -1 if the symbol was marked to
1476 become local. */
1477 else if (h != NULL
1478 && ((! info->symbolic && h->dynindx != -1)
1479 || !h->def_regular))
1480 {
1481 BFD_ASSERT (h->dynindx != -1);
1482 outrel.r_info = ELF32_R_INFO (h->dynindx, r_type);
1483 outrel.r_addend = addend;
1484 }
1485 else
1486 {
1487 if (r_type == R_MICROBLAZE_32)
1488 {
1489 outrel.r_info = ELF32_R_INFO (0, R_MICROBLAZE_REL);
1490 outrel.r_addend = relocation + addend;
1491 }
1492 else
1493 {
1494 BFD_FAIL ();
1495 (*_bfd_error_handler)
1496 (_("%B: probably compiled without -fPIC?"),
1497 input_bfd);
1498 bfd_set_error (bfd_error_bad_value);
1499 return FALSE;
1500 }
1501 }
1502
1503 loc = sreloc->contents;
1504 loc += sreloc->reloc_count++ * sizeof (Elf32_External_Rela);
1505 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1506 break;
1507 }
1508 else
1509 {
1510 relocation += addend;
1511 if (r_type == R_MICROBLAZE_32)
1512 bfd_put_32 (input_bfd, relocation, contents + offset);
1513 else
1514 {
1515 if (r_type == R_MICROBLAZE_64_PCREL)
1516 relocation -= (input_section->output_section->vma
1517 + input_section->output_offset
1518 + offset + INST_WORD_SIZE);
1519 bfd_put_16 (input_bfd, (relocation >> 16) & 0xffff,
1520 contents + offset + endian);
1521 bfd_put_16 (input_bfd, relocation & 0xffff,
1522 contents + offset + endian + INST_WORD_SIZE);
1523 }
1524 break;
1525 }
1526 }
1527
1528 default :
1529 r = _bfd_final_link_relocate (howto, input_bfd, input_section,
1530 contents, offset,
1531 relocation, addend);
1532 break;
1533 }
1534 }
1535
1536 check_reloc:
1537
1538 if (r != bfd_reloc_ok)
1539 {
1540 /* FIXME: This should be generic enough to go in a utility. */
1541 const char *name;
1542
1543 if (h != NULL)
1544 name = h->root.root.string;
1545 else
1546 {
1547 name = (bfd_elf_string_from_elf_section
1548 (input_bfd, symtab_hdr->sh_link, sym->st_name));
1549 if (name == NULL || *name == '\0')
1550 name = bfd_section_name (input_bfd, sec);
1551 }
1552
1553 if (errmsg != NULL)
1554 goto common_error;
1555
1556 switch (r)
1557 {
1558 case bfd_reloc_overflow:
1559 if (!((*info->callbacks->reloc_overflow)
1560 (info, (h ? &h->root : NULL), name, howto->name,
1561 (bfd_vma) 0, input_bfd, input_section, offset)))
1562 return FALSE;
1563 break;
1564
1565 case bfd_reloc_undefined:
1566 if (!((*info->callbacks->undefined_symbol)
1567 (info, name, input_bfd, input_section, offset, TRUE)))
1568 return FALSE;
1569 break;
1570
1571 case bfd_reloc_outofrange:
1572 errmsg = _("internal error: out of range error");
1573 goto common_error;
1574
1575 case bfd_reloc_notsupported:
1576 errmsg = _("internal error: unsupported relocation error");
1577 goto common_error;
1578
1579 case bfd_reloc_dangerous:
1580 errmsg = _("internal error: dangerous error");
1581 goto common_error;
1582
1583 default:
1584 errmsg = _("internal error: unknown error");
1585 /* Fall through. */
1586 common_error:
1587 if (!((*info->callbacks->warning)
1588 (info, errmsg, name, input_bfd, input_section, offset)))
1589 return FALSE;
1590 break;
1591 }
1592 }
1593 }
1594
1595 return ret;
1596 }
1597
1598 /* Merge backend specific data from an object file to the output
1599 object file when linking.
1600
1601 Note: We only use this hook to catch endian mismatches. */
1602 static bfd_boolean
1603 microblaze_elf_merge_private_bfd_data (bfd * ibfd, bfd * obfd)
1604 {
1605 /* Check if we have the same endianess. */
1606 if (! _bfd_generic_verify_endian_match (ibfd, obfd))
1607 return FALSE;
1608
1609 return TRUE;
1610 }
1611
1612 \f
1613 /* Calculate fixup value for reference. */
1614
1615 static int
1616 calc_fixup (bfd_vma start, bfd_vma size, asection *sec)
1617 {
1618 bfd_vma end = start + size;
1619 int i, fixup = 0;
1620
1621 if (sec == NULL || sec->relax == NULL)
1622 return 0;
1623
1624 /* Look for addr in relax table, total fixup value. */
1625 for (i = 0; i < sec->relax_count; i++)
1626 {
1627 if (end <= sec->relax[i].addr)
1628 break;
1629 if ((end != start) && (start > sec->relax[i].addr))
1630 continue;
1631 fixup += sec->relax[i].size;
1632 }
1633 return fixup;
1634 }
1635
1636 /* Read-modify-write into the bfd, an immediate value into appropriate fields of
1637 a 32-bit instruction. */
1638 static void
1639 microblaze_bfd_write_imm_value_32 (bfd *abfd, bfd_byte *bfd_addr, bfd_vma val)
1640 {
1641 unsigned long instr = bfd_get_32 (abfd, bfd_addr);
1642 instr &= ~0x0000ffff;
1643 instr |= (val & 0x0000ffff);
1644 bfd_put_32 (abfd, instr, bfd_addr);
1645 }
1646
1647 /* Read-modify-write into the bfd, an immediate value into appropriate fields of
1648 two consecutive 32-bit instructions. */
1649 static void
1650 microblaze_bfd_write_imm_value_64 (bfd *abfd, bfd_byte *bfd_addr, bfd_vma val)
1651 {
1652 unsigned long instr_hi;
1653 unsigned long instr_lo;
1654
1655 instr_hi = bfd_get_32 (abfd, bfd_addr);
1656 instr_hi &= ~0x0000ffff;
1657 instr_hi |= ((val >> 16) & 0x0000ffff);
1658 bfd_put_32 (abfd, instr_hi, bfd_addr);
1659
1660 instr_lo = bfd_get_32 (abfd, bfd_addr + INST_WORD_SIZE);
1661 instr_lo &= ~0x0000ffff;
1662 instr_lo |= (val & 0x0000ffff);
1663 bfd_put_32 (abfd, instr_lo, bfd_addr + INST_WORD_SIZE);
1664 }
1665
1666 static bfd_boolean
1667 microblaze_elf_relax_section (bfd *abfd,
1668 asection *sec,
1669 struct bfd_link_info *link_info,
1670 bfd_boolean *again)
1671 {
1672 Elf_Internal_Shdr *symtab_hdr;
1673 Elf_Internal_Rela *internal_relocs;
1674 Elf_Internal_Rela *free_relocs = NULL;
1675 Elf_Internal_Rela *irel, *irelend;
1676 bfd_byte *contents = NULL;
1677 bfd_byte *free_contents = NULL;
1678 int rel_count;
1679 unsigned int shndx;
1680 int i, sym_index;
1681 asection *o;
1682 struct elf_link_hash_entry *sym_hash;
1683 Elf_Internal_Sym *isymbuf, *isymend;
1684 Elf_Internal_Sym *isym;
1685 int symcount;
1686 int offset;
1687 bfd_vma src, dest;
1688
1689 /* We only do this once per section. We may be able to delete some code
1690 by running multiple passes, but it is not worth it. */
1691 *again = FALSE;
1692
1693 /* Only do this for a text section. */
1694 if (bfd_link_relocatable (link_info)
1695 || (sec->flags & SEC_RELOC) == 0
1696 || (sec->reloc_count == 0)
1697 || (sec->flags & SEC_CODE) == 0)
1698 return TRUE;
1699
1700 BFD_ASSERT ((sec->size > 0) || (sec->rawsize > 0));
1701
1702 /* If this is the first time we have been called for this section,
1703 initialize the cooked size. */
1704 if (sec->size == 0)
1705 sec->size = sec->rawsize;
1706
1707 /* Get symbols for this section. */
1708 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1709 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
1710 symcount = symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
1711 if (isymbuf == NULL)
1712 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr, symcount,
1713 0, NULL, NULL, NULL);
1714 BFD_ASSERT (isymbuf != NULL);
1715
1716 internal_relocs = _bfd_elf_link_read_relocs (abfd, sec, NULL, NULL, link_info->keep_memory);
1717 if (internal_relocs == NULL)
1718 goto error_return;
1719 if (! link_info->keep_memory)
1720 free_relocs = internal_relocs;
1721
1722 sec->relax = (struct relax_table *) bfd_malloc ((sec->reloc_count + 1)
1723 * sizeof (struct relax_table));
1724 if (sec->relax == NULL)
1725 goto error_return;
1726 sec->relax_count = 0;
1727
1728 irelend = internal_relocs + sec->reloc_count;
1729 rel_count = 0;
1730 for (irel = internal_relocs; irel < irelend; irel++, rel_count++)
1731 {
1732 bfd_vma symval;
1733 if ((ELF32_R_TYPE (irel->r_info) != (int) R_MICROBLAZE_64_PCREL)
1734 && (ELF32_R_TYPE (irel->r_info) != (int) R_MICROBLAZE_64 ))
1735 continue; /* Can't delete this reloc. */
1736
1737 /* Get the section contents. */
1738 if (contents == NULL)
1739 {
1740 if (elf_section_data (sec)->this_hdr.contents != NULL)
1741 contents = elf_section_data (sec)->this_hdr.contents;
1742 else
1743 {
1744 contents = (bfd_byte *) bfd_malloc (sec->size);
1745 if (contents == NULL)
1746 goto error_return;
1747 free_contents = contents;
1748
1749 if (!bfd_get_section_contents (abfd, sec, contents,
1750 (file_ptr) 0, sec->size))
1751 goto error_return;
1752 elf_section_data (sec)->this_hdr.contents = contents;
1753 }
1754 }
1755
1756 /* Get the value of the symbol referred to by the reloc. */
1757 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1758 {
1759 /* A local symbol. */
1760 asection *sym_sec;
1761
1762 isym = isymbuf + ELF32_R_SYM (irel->r_info);
1763 if (isym->st_shndx == SHN_UNDEF)
1764 sym_sec = bfd_und_section_ptr;
1765 else if (isym->st_shndx == SHN_ABS)
1766 sym_sec = bfd_abs_section_ptr;
1767 else if (isym->st_shndx == SHN_COMMON)
1768 sym_sec = bfd_com_section_ptr;
1769 else
1770 sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
1771
1772 symval = _bfd_elf_rela_local_sym (abfd, isym, &sym_sec, irel);
1773 }
1774 else
1775 {
1776 unsigned long indx;
1777 struct elf_link_hash_entry *h;
1778
1779 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
1780 h = elf_sym_hashes (abfd)[indx];
1781 BFD_ASSERT (h != NULL);
1782
1783 if (h->root.type != bfd_link_hash_defined
1784 && h->root.type != bfd_link_hash_defweak)
1785 /* This appears to be a reference to an undefined
1786 symbol. Just ignore it--it will be caught by the
1787 regular reloc processing. */
1788 continue;
1789
1790 symval = (h->root.u.def.value
1791 + h->root.u.def.section->output_section->vma
1792 + h->root.u.def.section->output_offset);
1793 }
1794
1795 /* If this is a PC-relative reloc, subtract the instr offset from
1796 the symbol value. */
1797 if (ELF32_R_TYPE (irel->r_info) == (int) R_MICROBLAZE_64_PCREL)
1798 {
1799 symval = symval + irel->r_addend
1800 - (irel->r_offset
1801 + sec->output_section->vma
1802 + sec->output_offset);
1803 }
1804 else
1805 symval += irel->r_addend;
1806
1807 if ((symval & 0xffff8000) == 0
1808 || (symval & 0xffff8000) == 0xffff8000)
1809 {
1810 /* We can delete this instruction. */
1811 sec->relax[sec->relax_count].addr = irel->r_offset;
1812 sec->relax[sec->relax_count].size = INST_WORD_SIZE;
1813 sec->relax_count++;
1814
1815 /* Rewrite relocation type. */
1816 switch ((enum elf_microblaze_reloc_type) ELF32_R_TYPE (irel->r_info))
1817 {
1818 case R_MICROBLAZE_64_PCREL:
1819 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1820 (int) R_MICROBLAZE_32_PCREL_LO);
1821 break;
1822 case R_MICROBLAZE_64:
1823 irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
1824 (int) R_MICROBLAZE_32_LO);
1825 break;
1826 default:
1827 /* Cannot happen. */
1828 BFD_ASSERT (FALSE);
1829 }
1830 }
1831 } /* Loop through all relocations. */
1832
1833 /* Loop through the relocs again, and see if anything needs to change. */
1834 if (sec->relax_count > 0)
1835 {
1836 shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1837 rel_count = 0;
1838 sec->relax[sec->relax_count].addr = sec->size;
1839
1840 for (irel = internal_relocs; irel < irelend; irel++, rel_count++)
1841 {
1842 bfd_vma nraddr;
1843
1844 /* Get the new reloc address. */
1845 nraddr = irel->r_offset - calc_fixup (irel->r_offset, 0, sec);
1846 switch ((enum elf_microblaze_reloc_type) ELF32_R_TYPE (irel->r_info))
1847 {
1848 default:
1849 break;
1850 case R_MICROBLAZE_64_PCREL:
1851 break;
1852 case R_MICROBLAZE_64:
1853 case R_MICROBLAZE_32_LO:
1854 /* If this reloc is against a symbol defined in this
1855 section, we must check the addend to see it will put the value in
1856 range to be adjusted, and hence must be changed. */
1857 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
1858 {
1859 isym = isymbuf + ELF32_R_SYM (irel->r_info);
1860 /* Only handle relocs against .text. */
1861 if (isym->st_shndx == shndx
1862 && ELF32_ST_TYPE (isym->st_info) == STT_SECTION)
1863 irel->r_addend -= calc_fixup (irel->r_addend, 0, sec);
1864 }
1865 break;
1866 case R_MICROBLAZE_NONE:
1867 {
1868 /* This was a PC-relative instruction that was
1869 completely resolved. */
1870 int sfix, efix;
1871 bfd_vma target_address;
1872 target_address = irel->r_addend + irel->r_offset;
1873 sfix = calc_fixup (irel->r_offset, 0, sec);
1874 efix = calc_fixup (target_address, 0, sec);
1875 irel->r_addend -= (efix - sfix);
1876 /* Should use HOWTO. */
1877 microblaze_bfd_write_imm_value_32 (abfd, contents + irel->r_offset,
1878 irel->r_addend);
1879 }
1880 break;
1881 case R_MICROBLAZE_64_NONE:
1882 {
1883 /* This was a PC-relative 64-bit instruction that was
1884 completely resolved. */
1885 int sfix, efix;
1886 bfd_vma target_address;
1887 target_address = irel->r_addend + irel->r_offset + INST_WORD_SIZE;
1888 sfix = calc_fixup (irel->r_offset + INST_WORD_SIZE, 0, sec);
1889 efix = calc_fixup (target_address, 0, sec);
1890 irel->r_addend -= (efix - sfix);
1891 microblaze_bfd_write_imm_value_32 (abfd, contents + irel->r_offset
1892 + INST_WORD_SIZE, irel->r_addend);
1893 }
1894 break;
1895 }
1896 irel->r_offset = nraddr;
1897 } /* Change all relocs in this section. */
1898
1899 /* Look through all other sections. */
1900 for (o = abfd->sections; o != NULL; o = o->next)
1901 {
1902 Elf_Internal_Rela *irelocs;
1903 Elf_Internal_Rela *irelscan, *irelscanend;
1904 bfd_byte *ocontents;
1905
1906 if (o == sec
1907 || (o->flags & SEC_RELOC) == 0
1908 || o->reloc_count == 0)
1909 continue;
1910
1911 /* We always cache the relocs. Perhaps, if info->keep_memory is
1912 FALSE, we should free them, if we are permitted to. */
1913
1914 irelocs = _bfd_elf_link_read_relocs (abfd, o, NULL, NULL, TRUE);
1915 if (irelocs == NULL)
1916 goto error_return;
1917
1918 ocontents = NULL;
1919 irelscanend = irelocs + o->reloc_count;
1920 for (irelscan = irelocs; irelscan < irelscanend; irelscan++)
1921 {
1922 if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32)
1923 {
1924 isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1925
1926 /* Look at the reloc only if the value has been resolved. */
1927 if (isym->st_shndx == shndx
1928 && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
1929 {
1930 if (ocontents == NULL)
1931 {
1932 if (elf_section_data (o)->this_hdr.contents != NULL)
1933 ocontents = elf_section_data (o)->this_hdr.contents;
1934 else
1935 {
1936 /* We always cache the section contents.
1937 Perhaps, if info->keep_memory is FALSE, we
1938 should free them, if we are permitted to. */
1939 if (o->rawsize == 0)
1940 o->rawsize = o->size;
1941 ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
1942 if (ocontents == NULL)
1943 goto error_return;
1944 if (!bfd_get_section_contents (abfd, o, ocontents,
1945 (file_ptr) 0,
1946 o->rawsize))
1947 goto error_return;
1948 elf_section_data (o)->this_hdr.contents = ocontents;
1949 }
1950
1951 }
1952 irelscan->r_addend -= calc_fixup (irelscan->r_addend, 0, sec);
1953 }
1954 else if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_SYM_OP_SYM)
1955 {
1956 isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1957
1958 /* Look at the reloc only if the value has been resolved. */
1959 if (ocontents == NULL)
1960 {
1961 if (elf_section_data (o)->this_hdr.contents != NULL)
1962 ocontents = elf_section_data (o)->this_hdr.contents;
1963 else
1964 {
1965 /* We always cache the section contents.
1966 Perhaps, if info->keep_memory is FALSE, we
1967 should free them, if we are permitted to. */
1968
1969 if (o->rawsize == 0)
1970 o->rawsize = o->size;
1971 ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
1972 if (ocontents == NULL)
1973 goto error_return;
1974 if (!bfd_get_section_contents (abfd, o, ocontents,
1975 (file_ptr) 0,
1976 o->rawsize))
1977 goto error_return;
1978 elf_section_data (o)->this_hdr.contents = ocontents;
1979 }
1980 }
1981 irelscan->r_addend -= calc_fixup (irel->r_addend
1982 + isym->st_value,
1983 0,
1984 sec);
1985 }
1986 }
1987 else if ((ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_PCREL_LO)
1988 || (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_32_LO))
1989 {
1990 isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
1991
1992 /* Look at the reloc only if the value has been resolved. */
1993 if (isym->st_shndx == shndx
1994 && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
1995 {
1996 bfd_vma immediate;
1997 bfd_vma target_address;
1998
1999 if (ocontents == NULL)
2000 {
2001 if (elf_section_data (o)->this_hdr.contents != NULL)
2002 ocontents = elf_section_data (o)->this_hdr.contents;
2003 else
2004 {
2005 /* We always cache the section contents.
2006 Perhaps, if info->keep_memory is FALSE, we
2007 should free them, if we are permitted to. */
2008 if (o->rawsize == 0)
2009 o->rawsize = o->size;
2010 ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2011 if (ocontents == NULL)
2012 goto error_return;
2013 if (!bfd_get_section_contents (abfd, o, ocontents,
2014 (file_ptr) 0,
2015 o->rawsize))
2016 goto error_return;
2017 elf_section_data (o)->this_hdr.contents = ocontents;
2018 }
2019 }
2020
2021 unsigned long instr = bfd_get_32 (abfd, ocontents + irelscan->r_offset);
2022 immediate = instr & 0x0000ffff;
2023 target_address = immediate;
2024 offset = calc_fixup (target_address, 0, sec);
2025 immediate -= offset;
2026 irelscan->r_addend -= offset;
2027 microblaze_bfd_write_imm_value_32 (abfd, ocontents + irelscan->r_offset,
2028 irelscan->r_addend);
2029 }
2030 }
2031
2032 if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_64)
2033 {
2034 isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
2035
2036 /* Look at the reloc only if the value has been resolved. */
2037 if (isym->st_shndx == shndx
2038 && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
2039 {
2040 bfd_vma immediate;
2041
2042 if (ocontents == NULL)
2043 {
2044 if (elf_section_data (o)->this_hdr.contents != NULL)
2045 ocontents = elf_section_data (o)->this_hdr.contents;
2046 else
2047 {
2048 /* We always cache the section contents.
2049 Perhaps, if info->keep_memory is FALSE, we
2050 should free them, if we are permitted to. */
2051
2052 if (o->rawsize == 0)
2053 o->rawsize = o->size;
2054 ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2055 if (ocontents == NULL)
2056 goto error_return;
2057 if (!bfd_get_section_contents (abfd, o, ocontents,
2058 (file_ptr) 0,
2059 o->rawsize))
2060 goto error_return;
2061 elf_section_data (o)->this_hdr.contents = ocontents;
2062 }
2063 }
2064 unsigned long instr_hi = bfd_get_32 (abfd, ocontents
2065 + irelscan->r_offset);
2066 unsigned long instr_lo = bfd_get_32 (abfd, ocontents
2067 + irelscan->r_offset
2068 + INST_WORD_SIZE);
2069 immediate = (instr_hi & 0x0000ffff) << 16;
2070 immediate |= (instr_lo & 0x0000ffff);
2071 offset = calc_fixup (irelscan->r_addend, 0, sec);
2072 immediate -= offset;
2073 irelscan->r_addend -= offset;
2074 }
2075 }
2076 else if (ELF32_R_TYPE (irelscan->r_info) == (int) R_MICROBLAZE_64_PCREL)
2077 {
2078 isym = isymbuf + ELF32_R_SYM (irelscan->r_info);
2079
2080 /* Look at the reloc only if the value has been resolved. */
2081 if (isym->st_shndx == shndx
2082 && (ELF32_ST_TYPE (isym->st_info) == STT_SECTION))
2083 {
2084 bfd_vma immediate;
2085 bfd_vma target_address;
2086
2087 if (ocontents == NULL)
2088 {
2089 if (elf_section_data (o)->this_hdr.contents != NULL)
2090 ocontents = elf_section_data (o)->this_hdr.contents;
2091 else
2092 {
2093 /* We always cache the section contents.
2094 Perhaps, if info->keep_memory is FALSE, we
2095 should free them, if we are permitted to. */
2096 if (o->rawsize == 0)
2097 o->rawsize = o->size;
2098 ocontents = (bfd_byte *) bfd_malloc (o->rawsize);
2099 if (ocontents == NULL)
2100 goto error_return;
2101 if (!bfd_get_section_contents (abfd, o, ocontents,
2102 (file_ptr) 0,
2103 o->rawsize))
2104 goto error_return;
2105 elf_section_data (o)->this_hdr.contents = ocontents;
2106 }
2107 }
2108 unsigned long instr_hi = bfd_get_32 (abfd, ocontents
2109 + irelscan->r_offset);
2110 unsigned long instr_lo = bfd_get_32 (abfd, ocontents
2111 + irelscan->r_offset
2112 + INST_WORD_SIZE);
2113 immediate = (instr_hi & 0x0000ffff) << 16;
2114 immediate |= (instr_lo & 0x0000ffff);
2115 target_address = immediate;
2116 offset = calc_fixup (target_address, 0, sec);
2117 immediate -= offset;
2118 irelscan->r_addend -= offset;
2119 microblaze_bfd_write_imm_value_64 (abfd, ocontents
2120 + irelscan->r_offset, immediate);
2121 }
2122 }
2123 }
2124 }
2125
2126 /* Adjust the local symbols defined in this section. */
2127 isymend = isymbuf + symtab_hdr->sh_info;
2128 for (isym = isymbuf; isym < isymend; isym++)
2129 {
2130 if (isym->st_shndx == shndx)
2131 {
2132 isym->st_value -= calc_fixup (isym->st_value, 0, sec);
2133 if (isym->st_size)
2134 isym->st_size -= calc_fixup (isym->st_value, isym->st_size, sec);
2135 }
2136 }
2137
2138 /* Now adjust the global symbols defined in this section. */
2139 isym = isymbuf + symtab_hdr->sh_info;
2140 symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)) - symtab_hdr->sh_info;
2141 for (sym_index = 0; sym_index < symcount; sym_index++)
2142 {
2143 sym_hash = elf_sym_hashes (abfd)[sym_index];
2144 if ((sym_hash->root.type == bfd_link_hash_defined
2145 || sym_hash->root.type == bfd_link_hash_defweak)
2146 && sym_hash->root.u.def.section == sec)
2147 {
2148 sym_hash->root.u.def.value -= calc_fixup (sym_hash->root.u.def.value,
2149 0, sec);
2150 if (sym_hash->size)
2151 sym_hash->size -= calc_fixup (sym_hash->root.u.def.value,
2152 sym_hash->size, sec);
2153 }
2154 }
2155
2156 /* Physically move the code and change the cooked size. */
2157 dest = sec->relax[0].addr;
2158 for (i = 0; i < sec->relax_count; i++)
2159 {
2160 int len;
2161 src = sec->relax[i].addr + sec->relax[i].size;
2162 len = sec->relax[i+1].addr - sec->relax[i].addr - sec->relax[i].size;
2163
2164 memmove (contents + dest, contents + src, len);
2165 sec->size -= sec->relax[i].size;
2166 dest += len;
2167 }
2168
2169 elf_section_data (sec)->relocs = internal_relocs;
2170 free_relocs = NULL;
2171
2172 elf_section_data (sec)->this_hdr.contents = contents;
2173 free_contents = NULL;
2174
2175 symtab_hdr->contents = (bfd_byte *) isymbuf;
2176 }
2177
2178 if (free_relocs != NULL)
2179 {
2180 free (free_relocs);
2181 free_relocs = NULL;
2182 }
2183
2184 if (free_contents != NULL)
2185 {
2186 if (!link_info->keep_memory)
2187 free (free_contents);
2188 else
2189 /* Cache the section contents for elf_link_input_bfd. */
2190 elf_section_data (sec)->this_hdr.contents = contents;
2191 free_contents = NULL;
2192 }
2193
2194 if (sec->relax_count == 0)
2195 {
2196 *again = FALSE;
2197 free (sec->relax);
2198 sec->relax = NULL;
2199 }
2200 else
2201 *again = TRUE;
2202 return TRUE;
2203
2204 error_return:
2205 if (free_relocs != NULL)
2206 free (free_relocs);
2207 if (free_contents != NULL)
2208 free (free_contents);
2209 if (sec->relax != NULL)
2210 {
2211 free (sec->relax);
2212 sec->relax = NULL;
2213 sec->relax_count = 0;
2214 }
2215 return FALSE;
2216 }
2217
2218 /* Return the section that should be marked against GC for a given
2219 relocation. */
2220
2221 static asection *
2222 microblaze_elf_gc_mark_hook (asection *sec,
2223 struct bfd_link_info * info,
2224 Elf_Internal_Rela * rel,
2225 struct elf_link_hash_entry * h,
2226 Elf_Internal_Sym * sym)
2227 {
2228 if (h != NULL)
2229 switch (ELF32_R_TYPE (rel->r_info))
2230 {
2231 case R_MICROBLAZE_GNU_VTINHERIT:
2232 case R_MICROBLAZE_GNU_VTENTRY:
2233 return NULL;
2234 }
2235
2236 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
2237 }
2238
2239 /* Update the got entry reference counts for the section being removed. */
2240
2241 static bfd_boolean
2242 microblaze_elf_gc_sweep_hook (bfd * abfd ATTRIBUTE_UNUSED,
2243 struct bfd_link_info * info ATTRIBUTE_UNUSED,
2244 asection * sec ATTRIBUTE_UNUSED,
2245 const Elf_Internal_Rela * relocs ATTRIBUTE_UNUSED)
2246 {
2247 return TRUE;
2248 }
2249
2250 /* PIC support. */
2251
2252 #define PLT_ENTRY_SIZE 16
2253
2254 #define PLT_ENTRY_WORD_0 0xb0000000 /* "imm 0". */
2255 #define PLT_ENTRY_WORD_1 0xe9940000 /* "lwi r12,r20,0" - relocated to lwi r12,r20,func@GOT. */
2256 #define PLT_ENTRY_WORD_1_NOPIC 0xe9800000 /* "lwi r12,r0,0" - non-PIC object. */
2257 #define PLT_ENTRY_WORD_2 0x98186000 /* "brad r12". */
2258 #define PLT_ENTRY_WORD_3 0x80000000 /* "nop". */
2259
2260 /* Create .got, .gotplt, and .rela.got sections in DYNOBJ, and set up
2261 shortcuts to them in our hash table. */
2262
2263 static bfd_boolean
2264 create_got_section (bfd *dynobj, struct bfd_link_info *info)
2265 {
2266 struct elf32_mb_link_hash_table *htab;
2267
2268 if (! _bfd_elf_create_got_section (dynobj, info))
2269 return FALSE;
2270 htab = elf32_mb_hash_table (info);
2271 if (htab == NULL)
2272 return FALSE;
2273
2274 htab->sgot = bfd_get_linker_section (dynobj, ".got");
2275 htab->sgotplt = bfd_get_linker_section (dynobj, ".got.plt");
2276 if (!htab->sgot || !htab->sgotplt)
2277 return FALSE;
2278
2279 if ((htab->srelgot = bfd_get_linker_section (dynobj, ".rela.got")) == NULL)
2280 htab->srelgot = bfd_make_section_anyway (dynobj, ".rela.got");
2281 if (htab->srelgot == NULL
2282 || ! bfd_set_section_flags (dynobj, htab->srelgot, SEC_ALLOC
2283 | SEC_LOAD
2284 | SEC_HAS_CONTENTS
2285 | SEC_IN_MEMORY
2286 | SEC_LINKER_CREATED
2287 | SEC_READONLY)
2288 || ! bfd_set_section_alignment (dynobj, htab->srelgot, 2))
2289 return FALSE;
2290 return TRUE;
2291 }
2292
2293 static bfd_boolean
2294 update_local_sym_info (bfd *abfd,
2295 Elf_Internal_Shdr *symtab_hdr,
2296 unsigned long r_symndx,
2297 unsigned int tls_type)
2298 {
2299 bfd_signed_vma *local_got_refcounts = elf_local_got_refcounts (abfd);
2300 unsigned char *local_got_tls_masks;
2301
2302 if (local_got_refcounts == NULL)
2303 {
2304 bfd_size_type size = symtab_hdr->sh_info;
2305
2306 size *= (sizeof (*local_got_refcounts) + sizeof (*local_got_tls_masks));
2307 local_got_refcounts = bfd_zalloc (abfd, size);
2308 if (local_got_refcounts == NULL)
2309 return FALSE;
2310 elf_local_got_refcounts (abfd) = local_got_refcounts;
2311 }
2312
2313 local_got_tls_masks =
2314 (unsigned char *) (local_got_refcounts + symtab_hdr->sh_info);
2315 local_got_tls_masks[r_symndx] |= tls_type;
2316 local_got_refcounts[r_symndx] += 1;
2317
2318 return TRUE;
2319 }
2320 /* Look through the relocs for a section during the first phase. */
2321
2322 static bfd_boolean
2323 microblaze_elf_check_relocs (bfd * abfd,
2324 struct bfd_link_info * info,
2325 asection * sec,
2326 const Elf_Internal_Rela * relocs)
2327 {
2328 Elf_Internal_Shdr * symtab_hdr;
2329 struct elf_link_hash_entry ** sym_hashes;
2330 struct elf_link_hash_entry ** sym_hashes_end;
2331 const Elf_Internal_Rela * rel;
2332 const Elf_Internal_Rela * rel_end;
2333 struct elf32_mb_link_hash_table *htab;
2334 asection *sreloc = NULL;
2335
2336 if (bfd_link_relocatable (info))
2337 return TRUE;
2338
2339 htab = elf32_mb_hash_table (info);
2340 if (htab == NULL)
2341 return FALSE;
2342
2343 symtab_hdr = & elf_tdata (abfd)->symtab_hdr;
2344 sym_hashes = elf_sym_hashes (abfd);
2345 sym_hashes_end = sym_hashes + symtab_hdr->sh_size / sizeof (Elf32_External_Sym);
2346 if (!elf_bad_symtab (abfd))
2347 sym_hashes_end -= symtab_hdr->sh_info;
2348
2349 rel_end = relocs + sec->reloc_count;
2350
2351 for (rel = relocs; rel < rel_end; rel++)
2352 {
2353 unsigned int r_type;
2354 struct elf_link_hash_entry * h;
2355 unsigned long r_symndx;
2356 unsigned char tls_type = 0;
2357
2358 r_symndx = ELF32_R_SYM (rel->r_info);
2359 r_type = ELF32_R_TYPE (rel->r_info);
2360
2361 if (r_symndx < symtab_hdr->sh_info)
2362 h = NULL;
2363 else
2364 {
2365 h = sym_hashes [r_symndx - symtab_hdr->sh_info];
2366
2367 /* PR15323, ref flags aren't set for references in the same
2368 object. */
2369 h->root.non_ir_ref = 1;
2370 }
2371
2372 switch (r_type)
2373 {
2374 /* This relocation describes the C++ object vtable hierarchy.
2375 Reconstruct it for later use during GC. */
2376 case R_MICROBLAZE_GNU_VTINHERIT:
2377 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
2378 return FALSE;
2379 break;
2380
2381 /* This relocation describes which C++ vtable entries are actually
2382 used. Record for later use during GC. */
2383 case R_MICROBLAZE_GNU_VTENTRY:
2384 if (!bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
2385 return FALSE;
2386 break;
2387
2388 /* This relocation requires .plt entry. */
2389 case R_MICROBLAZE_PLT_64:
2390 if (h != NULL)
2391 {
2392 h->needs_plt = 1;
2393 h->plt.refcount += 1;
2394 }
2395 break;
2396
2397 /* This relocation requires .got entry. */
2398 case R_MICROBLAZE_TLSGD:
2399 tls_type |= (TLS_TLS | TLS_GD);
2400 goto dogottls;
2401 case R_MICROBLAZE_TLSLD:
2402 tls_type |= (TLS_TLS | TLS_LD);
2403 dogottls:
2404 sec->has_tls_reloc = 1;
2405 case R_MICROBLAZE_GOT_64:
2406 if (htab->sgot == NULL)
2407 {
2408 if (htab->elf.dynobj == NULL)
2409 htab->elf.dynobj = abfd;
2410 if (!create_got_section (htab->elf.dynobj, info))
2411 return FALSE;
2412 }
2413 if (h != NULL)
2414 {
2415 h->got.refcount += 1;
2416 elf32_mb_hash_entry (h)->tls_mask |= tls_type;
2417 }
2418 else
2419 {
2420 if (! update_local_sym_info(abfd, symtab_hdr, r_symndx, tls_type) )
2421 return FALSE;
2422 }
2423 break;
2424
2425 case R_MICROBLAZE_64:
2426 case R_MICROBLAZE_64_PCREL:
2427 case R_MICROBLAZE_32:
2428 {
2429 if (h != NULL && !bfd_link_pic (info))
2430 {
2431 /* we may need a copy reloc. */
2432 h->non_got_ref = 1;
2433
2434 /* we may also need a .plt entry. */
2435 h->plt.refcount += 1;
2436 if (ELF32_R_TYPE (rel->r_info) != R_MICROBLAZE_64_PCREL)
2437 h->pointer_equality_needed = 1;
2438 }
2439
2440
2441 /* If we are creating a shared library, and this is a reloc
2442 against a global symbol, or a non PC relative reloc
2443 against a local symbol, then we need to copy the reloc
2444 into the shared library. However, if we are linking with
2445 -Bsymbolic, we do not need to copy a reloc against a
2446 global symbol which is defined in an object we are
2447 including in the link (i.e., DEF_REGULAR is set). At
2448 this point we have not seen all the input files, so it is
2449 possible that DEF_REGULAR is not set now but will be set
2450 later (it is never cleared). In case of a weak definition,
2451 DEF_REGULAR may be cleared later by a strong definition in
2452 a shared library. We account for that possibility below by
2453 storing information in the relocs_copied field of the hash
2454 table entry. A similar situation occurs when creating
2455 shared libraries and symbol visibility changes render the
2456 symbol local.
2457
2458 If on the other hand, we are creating an executable, we
2459 may need to keep relocations for symbols satisfied by a
2460 dynamic library if we manage to avoid copy relocs for the
2461 symbol. */
2462
2463 if ((bfd_link_pic (info)
2464 && (sec->flags & SEC_ALLOC) != 0
2465 && (r_type != R_MICROBLAZE_64_PCREL
2466 || (h != NULL
2467 && (! info->symbolic
2468 || h->root.type == bfd_link_hash_defweak
2469 || !h->def_regular))))
2470 || (!bfd_link_pic (info)
2471 && (sec->flags & SEC_ALLOC) != 0
2472 && h != NULL
2473 && (h->root.type == bfd_link_hash_defweak
2474 || !h->def_regular)))
2475 {
2476 struct elf32_mb_dyn_relocs *p;
2477 struct elf32_mb_dyn_relocs **head;
2478
2479 /* When creating a shared object, we must copy these
2480 relocs into the output file. We create a reloc
2481 section in dynobj and make room for the reloc. */
2482
2483 if (sreloc == NULL)
2484 {
2485 bfd *dynobj;
2486
2487 if (htab->elf.dynobj == NULL)
2488 htab->elf.dynobj = abfd;
2489 dynobj = htab->elf.dynobj;
2490
2491 sreloc = _bfd_elf_make_dynamic_reloc_section (sec, dynobj,
2492 2, abfd, 1);
2493 if (sreloc == NULL)
2494 return FALSE;
2495 }
2496
2497 /* If this is a global symbol, we count the number of
2498 relocations we need for this symbol. */
2499 if (h != NULL)
2500 head = &((struct elf32_mb_link_hash_entry *) h)->dyn_relocs;
2501 else
2502 {
2503 /* Track dynamic relocs needed for local syms too.
2504 We really need local syms available to do this
2505 easily. Oh well. */
2506
2507 asection *s;
2508 Elf_Internal_Sym *isym;
2509 void *vpp;
2510
2511 isym = bfd_sym_from_r_symndx (&htab->sym_sec,
2512 abfd, r_symndx);
2513 if (isym == NULL)
2514 return FALSE;
2515
2516 s = bfd_section_from_elf_index (abfd, isym->st_shndx);
2517 if (s == NULL)
2518 return FALSE;
2519
2520 vpp = &elf_section_data (s)->local_dynrel;
2521 head = (struct elf32_mb_dyn_relocs **) vpp;
2522 }
2523
2524 p = *head;
2525 if (p == NULL || p->sec != sec)
2526 {
2527 bfd_size_type amt = sizeof *p;
2528 p = ((struct elf32_mb_dyn_relocs *)
2529 bfd_alloc (htab->elf.dynobj, amt));
2530 if (p == NULL)
2531 return FALSE;
2532 p->next = *head;
2533 *head = p;
2534 p->sec = sec;
2535 p->count = 0;
2536 p->pc_count = 0;
2537 }
2538
2539 p->count += 1;
2540 if (r_type == R_MICROBLAZE_64_PCREL)
2541 p->pc_count += 1;
2542 }
2543 }
2544 break;
2545 }
2546 }
2547
2548 return TRUE;
2549 }
2550
2551 static bfd_boolean
2552 microblaze_elf_create_dynamic_sections (bfd *dynobj, struct bfd_link_info *info)
2553 {
2554 struct elf32_mb_link_hash_table *htab;
2555
2556 htab = elf32_mb_hash_table (info);
2557 if (htab == NULL)
2558 return FALSE;
2559
2560 if (!htab->sgot && !create_got_section (dynobj, info))
2561 return FALSE;
2562
2563 if (!_bfd_elf_create_dynamic_sections (dynobj, info))
2564 return FALSE;
2565
2566 htab->splt = bfd_get_linker_section (dynobj, ".plt");
2567 htab->srelplt = bfd_get_linker_section (dynobj, ".rela.plt");
2568 htab->sdynbss = bfd_get_linker_section (dynobj, ".dynbss");
2569 if (!bfd_link_pic (info))
2570 htab->srelbss = bfd_get_linker_section (dynobj, ".rela.bss");
2571
2572 if (!htab->splt || !htab->srelplt || !htab->sdynbss
2573 || (!bfd_link_pic (info) && !htab->srelbss))
2574 abort ();
2575
2576 return TRUE;
2577 }
2578
2579 /* Copy the extra info we tack onto an elf_link_hash_entry. */
2580
2581 static void
2582 microblaze_elf_copy_indirect_symbol (struct bfd_link_info *info,
2583 struct elf_link_hash_entry *dir,
2584 struct elf_link_hash_entry *ind)
2585 {
2586 struct elf32_mb_link_hash_entry *edir, *eind;
2587
2588 edir = (struct elf32_mb_link_hash_entry *) dir;
2589 eind = (struct elf32_mb_link_hash_entry *) ind;
2590
2591 if (eind->dyn_relocs != NULL)
2592 {
2593 if (edir->dyn_relocs != NULL)
2594 {
2595 struct elf32_mb_dyn_relocs **pp;
2596 struct elf32_mb_dyn_relocs *p;
2597
2598 if (ind->root.type == bfd_link_hash_indirect)
2599 abort ();
2600
2601 /* Add reloc counts against the weak sym to the strong sym
2602 list. Merge any entries against the same section. */
2603 for (pp = &eind->dyn_relocs; (p = *pp) != NULL; )
2604 {
2605 struct elf32_mb_dyn_relocs *q;
2606
2607 for (q = edir->dyn_relocs; q != NULL; q = q->next)
2608 if (q->sec == p->sec)
2609 {
2610 q->pc_count += p->pc_count;
2611 q->count += p->count;
2612 *pp = p->next;
2613 break;
2614 }
2615 if (q == NULL)
2616 pp = &p->next;
2617 }
2618 *pp = edir->dyn_relocs;
2619 }
2620
2621 edir->dyn_relocs = eind->dyn_relocs;
2622 eind->dyn_relocs = NULL;
2623 }
2624
2625 edir->tls_mask |= eind->tls_mask;
2626
2627 _bfd_elf_link_hash_copy_indirect (info, dir, ind);
2628 }
2629
2630 static bfd_boolean
2631 microblaze_elf_adjust_dynamic_symbol (struct bfd_link_info *info,
2632 struct elf_link_hash_entry *h)
2633 {
2634 struct elf32_mb_link_hash_table *htab;
2635 struct elf32_mb_link_hash_entry * eh;
2636 struct elf32_mb_dyn_relocs *p;
2637 asection *sdynbss, *s;
2638 unsigned int power_of_two;
2639 bfd *dynobj;
2640
2641 htab = elf32_mb_hash_table (info);
2642 if (htab == NULL)
2643 return FALSE;
2644
2645 /* If this is a function, put it in the procedure linkage table. We
2646 will fill in the contents of the procedure linkage table later,
2647 when we know the address of the .got section. */
2648 if (h->type == STT_FUNC
2649 || h->needs_plt)
2650 {
2651 if (h->plt.refcount <= 0
2652 || SYMBOL_CALLS_LOCAL (info, h)
2653 || (ELF_ST_VISIBILITY (h->other) != STV_DEFAULT
2654 && h->root.type == bfd_link_hash_undefweak))
2655 {
2656 /* This case can occur if we saw a PLT reloc in an input
2657 file, but the symbol was never referred to by a dynamic
2658 object, or if all references were garbage collected. In
2659 such a case, we don't actually need to build a procedure
2660 linkage table, and we can just do a PC32 reloc instead. */
2661 h->plt.offset = (bfd_vma) -1;
2662 h->needs_plt = 0;
2663 }
2664
2665 return TRUE;
2666 }
2667 else
2668 /* It's possible that we incorrectly decided a .plt reloc was
2669 needed for an R_MICROBLAZE_64_PCREL reloc to a non-function sym in
2670 check_relocs. We can't decide accurately between function and
2671 non-function syms in check-relocs; Objects loaded later in
2672 the link may change h->type. So fix it now. */
2673 h->plt.offset = (bfd_vma) -1;
2674
2675 /* If this is a weak symbol, and there is a real definition, the
2676 processor independent code will have arranged for us to see the
2677 real definition first, and we can just use the same value. */
2678 if (h->u.weakdef != NULL)
2679 {
2680 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
2681 || h->u.weakdef->root.type == bfd_link_hash_defweak);
2682 h->root.u.def.section = h->u.weakdef->root.u.def.section;
2683 h->root.u.def.value = h->u.weakdef->root.u.def.value;
2684 return TRUE;
2685 }
2686
2687 /* This is a reference to a symbol defined by a dynamic object which
2688 is not a function. */
2689
2690 /* If we are creating a shared library, we must presume that the
2691 only references to the symbol are via the global offset table.
2692 For such cases we need not do anything here; the relocations will
2693 be handled correctly by relocate_section. */
2694 if (bfd_link_pic (info))
2695 return TRUE;
2696
2697 /* If there are no references to this symbol that do not use the
2698 GOT, we don't need to generate a copy reloc. */
2699 if (!h->non_got_ref)
2700 return TRUE;
2701
2702 /* If -z nocopyreloc was given, we won't generate them either. */
2703 if (info->nocopyreloc)
2704 {
2705 h->non_got_ref = 0;
2706 return TRUE;
2707 }
2708
2709 eh = (struct elf32_mb_link_hash_entry *) h;
2710 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2711 {
2712 s = p->sec->output_section;
2713 if (s != NULL && (s->flags & SEC_READONLY) != 0)
2714 break;
2715 }
2716
2717 /* If we didn't find any dynamic relocs in read-only sections, then
2718 we'll be keeping the dynamic relocs and avoiding the copy reloc. */
2719 if (p == NULL)
2720 {
2721 h->non_got_ref = 0;
2722 return TRUE;
2723 }
2724
2725 /* We must allocate the symbol in our .dynbss section, which will
2726 become part of the .bss section of the executable. There will be
2727 an entry for this symbol in the .dynsym section. The dynamic
2728 object will contain position independent code, so all references
2729 from the dynamic object to this symbol will go through the global
2730 offset table. The dynamic linker will use the .dynsym entry to
2731 determine the address it must put in the global offset table, so
2732 both the dynamic object and the regular object will refer to the
2733 same memory location for the variable. */
2734
2735 /* We must generate a R_MICROBLAZE_COPY reloc to tell the dynamic linker
2736 to copy the initial value out of the dynamic object and into the
2737 runtime process image. */
2738 dynobj = elf_hash_table (info)->dynobj;
2739 BFD_ASSERT (dynobj != NULL);
2740 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
2741 {
2742 htab->srelbss->size += sizeof (Elf32_External_Rela);
2743 h->needs_copy = 1;
2744 }
2745
2746 /* We need to figure out the alignment required for this symbol. I
2747 have no idea how ELF linkers handle this. */
2748 power_of_two = bfd_log2 (h->size);
2749 if (power_of_two > 3)
2750 power_of_two = 3;
2751
2752 sdynbss = htab->sdynbss;
2753 /* Apply the required alignment. */
2754 sdynbss->size = BFD_ALIGN (sdynbss->size, (bfd_size_type) (1 << power_of_two));
2755 if (power_of_two > bfd_get_section_alignment (dynobj, sdynbss))
2756 {
2757 if (! bfd_set_section_alignment (dynobj, sdynbss, power_of_two))
2758 return FALSE;
2759 }
2760
2761 /* Define the symbol as being at this point in the section. */
2762 h->root.u.def.section = sdynbss;
2763 h->root.u.def.value = sdynbss->size;
2764
2765 /* Increment the section size to make room for the symbol. */
2766 sdynbss->size += h->size;
2767 return TRUE;
2768 }
2769
2770 /* Allocate space in .plt, .got and associated reloc sections for
2771 dynamic relocs. */
2772
2773 static bfd_boolean
2774 allocate_dynrelocs (struct elf_link_hash_entry *h, void * dat)
2775 {
2776 struct bfd_link_info *info;
2777 struct elf32_mb_link_hash_table *htab;
2778 struct elf32_mb_link_hash_entry *eh;
2779 struct elf32_mb_dyn_relocs *p;
2780
2781 if (h->root.type == bfd_link_hash_indirect)
2782 return TRUE;
2783
2784 info = (struct bfd_link_info *) dat;
2785 htab = elf32_mb_hash_table (info);
2786 if (htab == NULL)
2787 return FALSE;
2788
2789 if (htab->elf.dynamic_sections_created
2790 && h->plt.refcount > 0)
2791 {
2792 /* Make sure this symbol is output as a dynamic symbol.
2793 Undefined weak syms won't yet be marked as dynamic. */
2794 if (h->dynindx == -1
2795 && !h->forced_local)
2796 {
2797 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2798 return FALSE;
2799 }
2800
2801 if (WILL_CALL_FINISH_DYNAMIC_SYMBOL (1, bfd_link_pic (info), h))
2802 {
2803 asection *s = htab->splt;
2804
2805 /* The first entry in .plt is reserved. */
2806 if (s->size == 0)
2807 s->size = PLT_ENTRY_SIZE;
2808
2809 h->plt.offset = s->size;
2810
2811 /* If this symbol is not defined in a regular file, and we are
2812 not generating a shared library, then set the symbol to this
2813 location in the .plt. This is required to make function
2814 pointers compare as equal between the normal executable and
2815 the shared library. */
2816 if (! bfd_link_pic (info)
2817 && !h->def_regular)
2818 {
2819 h->root.u.def.section = s;
2820 h->root.u.def.value = h->plt.offset;
2821 }
2822
2823 /* Make room for this entry. */
2824 s->size += PLT_ENTRY_SIZE;
2825
2826 /* We also need to make an entry in the .got.plt section, which
2827 will be placed in the .got section by the linker script. */
2828 htab->sgotplt->size += 4;
2829
2830 /* We also need to make an entry in the .rel.plt section. */
2831 htab->srelplt->size += sizeof (Elf32_External_Rela);
2832 }
2833 else
2834 {
2835 h->plt.offset = (bfd_vma) -1;
2836 h->needs_plt = 0;
2837 }
2838 }
2839 else
2840 {
2841 h->plt.offset = (bfd_vma) -1;
2842 h->needs_plt = 0;
2843 }
2844
2845 eh = (struct elf32_mb_link_hash_entry *) h;
2846 if (h->got.refcount > 0)
2847 {
2848 unsigned int need;
2849 asection *s;
2850
2851 /* Make sure this symbol is output as a dynamic symbol.
2852 Undefined weak syms won't yet be marked as dynamic. */
2853 if (h->dynindx == -1
2854 && !h->forced_local)
2855 {
2856 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2857 return FALSE;
2858 }
2859
2860 need = 0;
2861 if ((eh->tls_mask & TLS_TLS) != 0)
2862 {
2863 /* Handle TLS Symbol */
2864 if ((eh->tls_mask & TLS_LD) != 0)
2865 {
2866 if (!eh->elf.def_dynamic)
2867 /* We'll just use htab->tlsld_got.offset. This should
2868 always be the case. It's a little odd if we have
2869 a local dynamic reloc against a non-local symbol. */
2870 htab->tlsld_got.refcount += 1;
2871 else
2872 need += 8;
2873 }
2874 if ((eh->tls_mask & TLS_GD) != 0)
2875 need += 8;
2876 }
2877 else
2878 {
2879 /* Regular (non-TLS) symbol */
2880 need += 4;
2881 }
2882 if (need == 0)
2883 {
2884 h->got.offset = (bfd_vma) -1;
2885 }
2886 else
2887 {
2888 s = htab->sgot;
2889 h->got.offset = s->size;
2890 s->size += need;
2891 htab->srelgot->size += need * (sizeof (Elf32_External_Rela) / 4);
2892 }
2893 }
2894 else
2895 h->got.offset = (bfd_vma) -1;
2896
2897 if (eh->dyn_relocs == NULL)
2898 return TRUE;
2899
2900 /* In the shared -Bsymbolic case, discard space allocated for
2901 dynamic pc-relative relocs against symbols which turn out to be
2902 defined in regular objects. For the normal shared case, discard
2903 space for pc-relative relocs that have become local due to symbol
2904 visibility changes. */
2905
2906 if (bfd_link_pic (info))
2907 {
2908 if (h->def_regular
2909 && (h->forced_local
2910 || info->symbolic))
2911 {
2912 struct elf32_mb_dyn_relocs **pp;
2913
2914 for (pp = &eh->dyn_relocs; (p = *pp) != NULL; )
2915 {
2916 p->count -= p->pc_count;
2917 p->pc_count = 0;
2918 if (p->count == 0)
2919 *pp = p->next;
2920 else
2921 pp = &p->next;
2922 }
2923 }
2924 }
2925 else
2926 {
2927 /* For the non-shared case, discard space for relocs against
2928 symbols which turn out to need copy relocs or are not
2929 dynamic. */
2930
2931 if (!h->non_got_ref
2932 && ((h->def_dynamic
2933 && !h->def_regular)
2934 || (htab->elf.dynamic_sections_created
2935 && (h->root.type == bfd_link_hash_undefweak
2936 || h->root.type == bfd_link_hash_undefined))))
2937 {
2938 /* Make sure this symbol is output as a dynamic symbol.
2939 Undefined weak syms won't yet be marked as dynamic. */
2940 if (h->dynindx == -1
2941 && !h->forced_local)
2942 {
2943 if (! bfd_elf_link_record_dynamic_symbol (info, h))
2944 return FALSE;
2945 }
2946
2947 /* If that succeeded, we know we'll be keeping all the
2948 relocs. */
2949 if (h->dynindx != -1)
2950 goto keep;
2951 }
2952
2953 eh->dyn_relocs = NULL;
2954
2955 keep: ;
2956 }
2957
2958 /* Finally, allocate space. */
2959 for (p = eh->dyn_relocs; p != NULL; p = p->next)
2960 {
2961 asection *sreloc = elf_section_data (p->sec)->sreloc;
2962 sreloc->size += p->count * sizeof (Elf32_External_Rela);
2963 }
2964
2965 return TRUE;
2966 }
2967
2968 /* Set the sizes of the dynamic sections. */
2969
2970 static bfd_boolean
2971 microblaze_elf_size_dynamic_sections (bfd *output_bfd ATTRIBUTE_UNUSED,
2972 struct bfd_link_info *info)
2973 {
2974 struct elf32_mb_link_hash_table *htab;
2975 bfd *dynobj;
2976 asection *s;
2977 bfd *ibfd;
2978
2979 htab = elf32_mb_hash_table (info);
2980 if (htab == NULL)
2981 return FALSE;
2982
2983 dynobj = htab->elf.dynobj;
2984 BFD_ASSERT (dynobj != NULL);
2985
2986 /* Set up .got offsets for local syms, and space for local dynamic
2987 relocs. */
2988 for (ibfd = info->input_bfds; ibfd != NULL; ibfd = ibfd->link.next)
2989 {
2990 bfd_signed_vma *local_got;
2991 bfd_signed_vma *end_local_got;
2992 bfd_size_type locsymcount;
2993 Elf_Internal_Shdr *symtab_hdr;
2994 unsigned char *lgot_masks;
2995 asection *srel;
2996
2997 if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour)
2998 continue;
2999
3000 for (s = ibfd->sections; s != NULL; s = s->next)
3001 {
3002 struct elf32_mb_dyn_relocs *p;
3003
3004 for (p = ((struct elf32_mb_dyn_relocs *)
3005 elf_section_data (s)->local_dynrel);
3006 p != NULL;
3007 p = p->next)
3008 {
3009 if (!bfd_is_abs_section (p->sec)
3010 && bfd_is_abs_section (p->sec->output_section))
3011 {
3012 /* Input section has been discarded, either because
3013 it is a copy of a linkonce section or due to
3014 linker script /DISCARD/, so we'll be discarding
3015 the relocs too. */
3016 }
3017 else if (p->count != 0)
3018 {
3019 srel = elf_section_data (p->sec)->sreloc;
3020 srel->size += p->count * sizeof (Elf32_External_Rela);
3021 if ((p->sec->output_section->flags & SEC_READONLY) != 0)
3022 info->flags |= DF_TEXTREL;
3023 }
3024 }
3025 }
3026
3027 local_got = elf_local_got_refcounts (ibfd);
3028 if (!local_got)
3029 continue;
3030
3031 symtab_hdr = &elf_tdata (ibfd)->symtab_hdr;
3032 locsymcount = symtab_hdr->sh_info;
3033 end_local_got = local_got + locsymcount;
3034 lgot_masks = (unsigned char *) end_local_got;
3035 s = htab->sgot;
3036 srel = htab->srelgot;
3037
3038 for (; local_got < end_local_got; ++local_got, ++lgot_masks)
3039 {
3040 if (*local_got > 0)
3041 {
3042 unsigned int need = 0;
3043 if ((*lgot_masks & TLS_TLS) != 0)
3044 {
3045 if ((*lgot_masks & TLS_GD) != 0)
3046 need += 8;
3047 if ((*lgot_masks & TLS_LD) != 0)
3048 htab->tlsld_got.refcount += 1;
3049 }
3050 else
3051 need += 4;
3052
3053 if (need == 0)
3054 {
3055 *local_got = (bfd_vma) -1;
3056 }
3057 else
3058 {
3059 *local_got = s->size;
3060 s->size += need;
3061 if (bfd_link_pic (info))
3062 srel->size += need * (sizeof (Elf32_External_Rela) / 4);
3063 }
3064 }
3065 else
3066 *local_got = (bfd_vma) -1;
3067 }
3068 }
3069
3070 /* Allocate global sym .plt and .got entries, and space for global
3071 sym dynamic relocs. */
3072 elf_link_hash_traverse (elf_hash_table (info), allocate_dynrelocs, info);
3073
3074 if (htab->tlsld_got.refcount > 0)
3075 {
3076 htab->tlsld_got.offset = htab->sgot->size;
3077 htab->sgot->size += 8;
3078 if (bfd_link_pic (info))
3079 htab->srelgot->size += sizeof (Elf32_External_Rela);
3080 }
3081 else
3082 htab->tlsld_got.offset = (bfd_vma) -1;
3083
3084 if (elf_hash_table (info)->dynamic_sections_created)
3085 {
3086 /* Make space for the trailing nop in .plt. */
3087 if (htab->splt->size > 0)
3088 htab->splt->size += 4;
3089 }
3090
3091 /* The check_relocs and adjust_dynamic_symbol entry points have
3092 determined the sizes of the various dynamic sections. Allocate
3093 memory for them. */
3094 for (s = dynobj->sections; s != NULL; s = s->next)
3095 {
3096 const char *name;
3097 bfd_boolean strip = FALSE;
3098
3099 if ((s->flags & SEC_LINKER_CREATED) == 0)
3100 continue;
3101
3102 /* It's OK to base decisions on the section name, because none
3103 of the dynobj section names depend upon the input files. */
3104 name = bfd_get_section_name (dynobj, s);
3105
3106 if (strncmp (name, ".rela", 5) == 0)
3107 {
3108 if (s->size == 0)
3109 {
3110 /* If we don't need this section, strip it from the
3111 output file. This is to handle .rela.bss and
3112 .rela.plt. We must create it in
3113 create_dynamic_sections, because it must be created
3114 before the linker maps input sections to output
3115 sections. The linker does that before
3116 adjust_dynamic_symbol is called, and it is that
3117 function which decides whether anything needs to go
3118 into these sections. */
3119 strip = TRUE;
3120 }
3121 else
3122 {
3123 /* We use the reloc_count field as a counter if we need
3124 to copy relocs into the output file. */
3125 s->reloc_count = 0;
3126 }
3127 }
3128 else if (s != htab->splt && s != htab->sgot && s != htab->sgotplt)
3129 {
3130 /* It's not one of our sections, so don't allocate space. */
3131 continue;
3132 }
3133
3134 if (strip)
3135 {
3136 s->flags |= SEC_EXCLUDE;
3137 continue;
3138 }
3139
3140 /* Allocate memory for the section contents. */
3141 /* FIXME: This should be a call to bfd_alloc not bfd_zalloc.
3142 Unused entries should be reclaimed before the section's contents
3143 are written out, but at the moment this does not happen. Thus in
3144 order to prevent writing out garbage, we initialise the section's
3145 contents to zero. */
3146 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
3147 if (s->contents == NULL && s->size != 0)
3148 return FALSE;
3149 }
3150
3151 if (elf_hash_table (info)->dynamic_sections_created)
3152 {
3153 /* Add some entries to the .dynamic section. We fill in the
3154 values later, in microblaze_elf_finish_dynamic_sections, but we
3155 must add the entries now so that we get the correct size for
3156 the .dynamic section. The DT_DEBUG entry is filled in by the
3157 dynamic linker and used by the debugger. */
3158 #define add_dynamic_entry(TAG, VAL) \
3159 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
3160
3161 if (bfd_link_executable (info))
3162 {
3163 if (!add_dynamic_entry (DT_DEBUG, 0))
3164 return FALSE;
3165 }
3166
3167 if (!add_dynamic_entry (DT_RELA, 0)
3168 || !add_dynamic_entry (DT_RELASZ, 0)
3169 || !add_dynamic_entry (DT_RELAENT, sizeof (Elf32_External_Rela)))
3170 return FALSE;
3171
3172 if (htab->splt->size != 0)
3173 {
3174 if (!add_dynamic_entry (DT_PLTGOT, 0)
3175 || !add_dynamic_entry (DT_PLTRELSZ, 0)
3176 || !add_dynamic_entry (DT_PLTREL, DT_RELA)
3177 || !add_dynamic_entry (DT_JMPREL, 0)
3178 || !add_dynamic_entry (DT_BIND_NOW, 1))
3179 return FALSE;
3180 }
3181
3182 if (info->flags & DF_TEXTREL)
3183 {
3184 if (!add_dynamic_entry (DT_TEXTREL, 0))
3185 return FALSE;
3186 }
3187 }
3188 #undef add_dynamic_entry
3189 return TRUE;
3190 }
3191
3192 /* Finish up dynamic symbol handling. We set the contents of various
3193 dynamic sections here. */
3194
3195 static bfd_boolean
3196 microblaze_elf_finish_dynamic_symbol (bfd *output_bfd,
3197 struct bfd_link_info *info,
3198 struct elf_link_hash_entry *h,
3199 Elf_Internal_Sym *sym)
3200 {
3201 struct elf32_mb_link_hash_table *htab;
3202 struct elf32_mb_link_hash_entry *eh = elf32_mb_hash_entry(h);
3203
3204 htab = elf32_mb_hash_table (info);
3205 if (htab == NULL)
3206 return FALSE;
3207
3208 if (h->plt.offset != (bfd_vma) -1)
3209 {
3210 asection *splt;
3211 asection *srela;
3212 asection *sgotplt;
3213 Elf_Internal_Rela rela;
3214 bfd_byte *loc;
3215 bfd_vma plt_index;
3216 bfd_vma got_offset;
3217 bfd_vma got_addr;
3218
3219 /* This symbol has an entry in the procedure linkage table. Set
3220 it up. */
3221 BFD_ASSERT (h->dynindx != -1);
3222
3223 splt = htab->splt;
3224 srela = htab->srelplt;
3225 sgotplt = htab->sgotplt;
3226 BFD_ASSERT (splt != NULL && srela != NULL && sgotplt != NULL);
3227
3228 plt_index = h->plt.offset / PLT_ENTRY_SIZE - 1; /* first entry reserved. */
3229 got_offset = (plt_index + 3) * 4; /* 3 reserved ??? */
3230 got_addr = got_offset;
3231
3232 /* For non-PIC objects we need absolute address of the GOT entry. */
3233 if (!bfd_link_pic (info))
3234 got_addr += htab->sgotplt->output_section->vma + sgotplt->output_offset;
3235
3236 /* Fill in the entry in the procedure linkage table. */
3237 bfd_put_32 (output_bfd, PLT_ENTRY_WORD_0 + ((got_addr >> 16) & 0xffff),
3238 splt->contents + h->plt.offset);
3239 if (bfd_link_pic (info))
3240 bfd_put_32 (output_bfd, PLT_ENTRY_WORD_1 + (got_addr & 0xffff),
3241 splt->contents + h->plt.offset + 4);
3242 else
3243 bfd_put_32 (output_bfd, PLT_ENTRY_WORD_1_NOPIC + (got_addr & 0xffff),
3244 splt->contents + h->plt.offset + 4);
3245 bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD_2,
3246 splt->contents + h->plt.offset + 8);
3247 bfd_put_32 (output_bfd, (bfd_vma) PLT_ENTRY_WORD_3,
3248 splt->contents + h->plt.offset + 12);
3249
3250 /* Any additions to the .got section??? */
3251 /* bfd_put_32 (output_bfd,
3252 splt->output_section->vma + splt->output_offset + h->plt.offset + 4,
3253 sgotplt->contents + got_offset); */
3254
3255 /* Fill in the entry in the .rela.plt section. */
3256 rela.r_offset = (sgotplt->output_section->vma
3257 + sgotplt->output_offset
3258 + got_offset);
3259 rela.r_info = ELF32_R_INFO (h->dynindx, R_MICROBLAZE_JUMP_SLOT);
3260 rela.r_addend = 0;
3261 loc = srela->contents;
3262 loc += plt_index * sizeof (Elf32_External_Rela);
3263 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3264
3265 if (!h->def_regular)
3266 {
3267 /* Mark the symbol as undefined, rather than as defined in
3268 the .plt section. Zero the value. */
3269 sym->st_shndx = SHN_UNDEF;
3270 sym->st_value = 0;
3271 }
3272 }
3273
3274 /* h->got.refcount to be checked ? */
3275 if (h->got.offset != (bfd_vma) -1 &&
3276 ! ((h->got.offset & 1) ||
3277 IS_TLS_LD(eh->tls_mask) || IS_TLS_GD(eh->tls_mask)))
3278 {
3279 asection *sgot;
3280 asection *srela;
3281 bfd_vma offset;
3282
3283 /* This symbol has an entry in the global offset table. Set it
3284 up. */
3285
3286 sgot = htab->sgot;
3287 srela = htab->srelgot;
3288 BFD_ASSERT (sgot != NULL && srela != NULL);
3289
3290 offset = (sgot->output_section->vma + sgot->output_offset
3291 + (h->got.offset &~ (bfd_vma) 1));
3292
3293 /* If this is a -Bsymbolic link, and the symbol is defined
3294 locally, we just want to emit a RELATIVE reloc. Likewise if
3295 the symbol was forced to be local because of a version file.
3296 The entry in the global offset table will already have been
3297 initialized in the relocate_section function. */
3298 if (bfd_link_pic (info)
3299 && ((info->symbolic && h->def_regular)
3300 || h->dynindx == -1))
3301 {
3302 asection *sec = h->root.u.def.section;
3303 microblaze_elf_output_dynamic_relocation (output_bfd,
3304 srela, srela->reloc_count++,
3305 /* symindex= */ 0,
3306 R_MICROBLAZE_REL, offset,
3307 h->root.u.def.value
3308 + sec->output_section->vma
3309 + sec->output_offset);
3310 }
3311 else
3312 {
3313 microblaze_elf_output_dynamic_relocation (output_bfd,
3314 srela, srela->reloc_count++,
3315 h->dynindx,
3316 R_MICROBLAZE_GLOB_DAT,
3317 offset, 0);
3318 }
3319
3320 bfd_put_32 (output_bfd, (bfd_vma) 0,
3321 sgot->contents + (h->got.offset &~ (bfd_vma) 1));
3322 }
3323
3324 if (h->needs_copy)
3325 {
3326 asection *s;
3327 Elf_Internal_Rela rela;
3328 bfd_byte *loc;
3329
3330 /* This symbols needs a copy reloc. Set it up. */
3331
3332 BFD_ASSERT (h->dynindx != -1);
3333
3334 s = bfd_get_linker_section (htab->elf.dynobj, ".rela.bss");
3335 BFD_ASSERT (s != NULL);
3336
3337 rela.r_offset = (h->root.u.def.value
3338 + h->root.u.def.section->output_section->vma
3339 + h->root.u.def.section->output_offset);
3340 rela.r_info = ELF32_R_INFO (h->dynindx, R_MICROBLAZE_COPY);
3341 rela.r_addend = 0;
3342 loc = s->contents + s->reloc_count++ * sizeof (Elf32_External_Rela);
3343 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
3344 }
3345
3346 /* Mark some specially defined symbols as absolute. */
3347 if (h == htab->elf.hdynamic
3348 || h == htab->elf.hgot
3349 || h == htab->elf.hplt)
3350 sym->st_shndx = SHN_ABS;
3351
3352 return TRUE;
3353 }
3354
3355
3356 /* Finish up the dynamic sections. */
3357
3358 static bfd_boolean
3359 microblaze_elf_finish_dynamic_sections (bfd *output_bfd,
3360 struct bfd_link_info *info)
3361 {
3362 bfd *dynobj;
3363 asection *sdyn, *sgot;
3364 struct elf32_mb_link_hash_table *htab;
3365
3366 htab = elf32_mb_hash_table (info);
3367 if (htab == NULL)
3368 return FALSE;
3369
3370 dynobj = htab->elf.dynobj;
3371
3372 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
3373
3374 if (htab->elf.dynamic_sections_created)
3375 {
3376 asection *splt;
3377 Elf32_External_Dyn *dyncon, *dynconend;
3378
3379 splt = bfd_get_linker_section (dynobj, ".plt");
3380 BFD_ASSERT (splt != NULL && sdyn != NULL);
3381
3382 dyncon = (Elf32_External_Dyn *) sdyn->contents;
3383 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
3384 for (; dyncon < dynconend; dyncon++)
3385 {
3386 Elf_Internal_Dyn dyn;
3387 const char *name;
3388 bfd_boolean size;
3389
3390 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
3391
3392 switch (dyn.d_tag)
3393 {
3394 case DT_PLTGOT: name = ".got.plt"; size = FALSE; break;
3395 case DT_PLTRELSZ: name = ".rela.plt"; size = TRUE; break;
3396 case DT_JMPREL: name = ".rela.plt"; size = FALSE; break;
3397 case DT_RELA: name = ".rela.dyn"; size = FALSE; break;
3398 case DT_RELASZ: name = ".rela.dyn"; size = TRUE; break;
3399 default: name = NULL; size = FALSE; break;
3400 }
3401
3402 if (name != NULL)
3403 {
3404 asection *s;
3405
3406 s = bfd_get_linker_section (dynobj, name);
3407 if (s == NULL)
3408 dyn.d_un.d_val = 0;
3409 else
3410 {
3411 if (! size)
3412 dyn.d_un.d_ptr = s->output_section->vma + s->output_offset;
3413 else
3414 dyn.d_un.d_val = s->size;
3415 }
3416 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
3417 }
3418 }
3419
3420 /* Clear the first entry in the procedure linkage table,
3421 and put a nop in the last four bytes. */
3422 if (splt->size > 0)
3423 {
3424 memset (splt->contents, 0, PLT_ENTRY_SIZE);
3425 bfd_put_32 (output_bfd, (bfd_vma) 0x80000000 /* nop. */,
3426 splt->contents + splt->size - 4);
3427 }
3428
3429 elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
3430 }
3431
3432 /* Set the first entry in the global offset table to the address of
3433 the dynamic section. */
3434 sgot = bfd_get_linker_section (dynobj, ".got.plt");
3435 if (sgot && sgot->size > 0)
3436 {
3437 if (sdyn == NULL)
3438 bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
3439 else
3440 bfd_put_32 (output_bfd,
3441 sdyn->output_section->vma + sdyn->output_offset,
3442 sgot->contents);
3443 elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
3444 }
3445
3446 if (htab->sgot && htab->sgot->size > 0)
3447 elf_section_data (htab->sgot->output_section)->this_hdr.sh_entsize = 4;
3448
3449 return TRUE;
3450 }
3451
3452 /* Hook called by the linker routine which adds symbols from an object
3453 file. We use it to put .comm items in .sbss, and not .bss. */
3454
3455 static bfd_boolean
3456 microblaze_elf_add_symbol_hook (bfd *abfd,
3457 struct bfd_link_info *info,
3458 Elf_Internal_Sym *sym,
3459 const char **namep ATTRIBUTE_UNUSED,
3460 flagword *flagsp ATTRIBUTE_UNUSED,
3461 asection **secp,
3462 bfd_vma *valp)
3463 {
3464 if (sym->st_shndx == SHN_COMMON
3465 && !bfd_link_relocatable (info)
3466 && sym->st_size <= elf_gp_size (abfd))
3467 {
3468 /* Common symbols less than or equal to -G nn bytes are automatically
3469 put into .sbss. */
3470 *secp = bfd_make_section_old_way (abfd, ".sbss");
3471 if (*secp == NULL
3472 || ! bfd_set_section_flags (abfd, *secp, SEC_IS_COMMON))
3473 return FALSE;
3474
3475 *valp = sym->st_size;
3476 }
3477
3478 return TRUE;
3479 }
3480
3481 #define TARGET_LITTLE_SYM microblaze_elf32_le_vec
3482 #define TARGET_LITTLE_NAME "elf32-microblazeel"
3483
3484 #define TARGET_BIG_SYM microblaze_elf32_vec
3485 #define TARGET_BIG_NAME "elf32-microblaze"
3486
3487 #define ELF_ARCH bfd_arch_microblaze
3488 #define ELF_TARGET_ID MICROBLAZE_ELF_DATA
3489 #define ELF_MACHINE_CODE EM_MICROBLAZE
3490 #define ELF_MACHINE_ALT1 EM_MICROBLAZE_OLD
3491 #define ELF_MAXPAGESIZE 0x1000
3492 #define elf_info_to_howto microblaze_elf_info_to_howto
3493 #define elf_info_to_howto_rel NULL
3494
3495 #define bfd_elf32_bfd_reloc_type_lookup microblaze_elf_reloc_type_lookup
3496 #define bfd_elf32_bfd_is_local_label_name microblaze_elf_is_local_label_name
3497 #define elf_backend_relocate_section microblaze_elf_relocate_section
3498 #define bfd_elf32_bfd_relax_section microblaze_elf_relax_section
3499 #define bfd_elf32_bfd_merge_private_bfd_data microblaze_elf_merge_private_bfd_data
3500 #define bfd_elf32_bfd_reloc_name_lookup microblaze_elf_reloc_name_lookup
3501
3502 #define elf_backend_gc_mark_hook microblaze_elf_gc_mark_hook
3503 #define elf_backend_gc_sweep_hook microblaze_elf_gc_sweep_hook
3504 #define elf_backend_check_relocs microblaze_elf_check_relocs
3505 #define elf_backend_copy_indirect_symbol microblaze_elf_copy_indirect_symbol
3506 #define bfd_elf32_bfd_link_hash_table_create microblaze_elf_link_hash_table_create
3507 #define elf_backend_can_gc_sections 1
3508 #define elf_backend_can_refcount 1
3509 #define elf_backend_want_got_plt 1
3510 #define elf_backend_plt_readonly 1
3511 #define elf_backend_got_header_size 12
3512 #define elf_backend_rela_normal 1
3513
3514 #define elf_backend_adjust_dynamic_symbol microblaze_elf_adjust_dynamic_symbol
3515 #define elf_backend_create_dynamic_sections microblaze_elf_create_dynamic_sections
3516 #define elf_backend_finish_dynamic_sections microblaze_elf_finish_dynamic_sections
3517 #define elf_backend_finish_dynamic_symbol microblaze_elf_finish_dynamic_symbol
3518 #define elf_backend_size_dynamic_sections microblaze_elf_size_dynamic_sections
3519 #define elf_backend_add_symbol_hook microblaze_elf_add_symbol_hook
3520
3521 #include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.0964970000000001 seconds and 3 git commands to generate.