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