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


49ef360bcdfd88709b15f5507d44a1eabf44241c
[deliverable/binutils-gdb.git] / bfd / elf32-bfin.c
1 /* ADI Blackfin BFD support for 32-bit ELF.
2 Copyright (C) 2005-2015 Free Software Foundation, Inc.
3
4 This file is part of BFD, the Binary File Descriptor library.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
20
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "libbfd.h"
24 #include "elf-bfd.h"
25 #include "elf/bfin.h"
26 #include "dwarf2.h"
27 #include "hashtab.h"
28
29 /* FUNCTION : bfin_pltpc_reloc
30 ABSTRACT : TODO : figure out how to handle pltpc relocs. */
31 static bfd_reloc_status_type
32 bfin_pltpc_reloc (
33 bfd *abfd ATTRIBUTE_UNUSED,
34 arelent *reloc_entry ATTRIBUTE_UNUSED,
35 asymbol *symbol ATTRIBUTE_UNUSED,
36 void * data ATTRIBUTE_UNUSED,
37 asection *input_section ATTRIBUTE_UNUSED,
38 bfd *output_bfd ATTRIBUTE_UNUSED,
39 char **error_message ATTRIBUTE_UNUSED)
40 {
41 bfd_reloc_status_type flag = bfd_reloc_ok;
42 return flag;
43 }
44 \f
45
46 static bfd_reloc_status_type
47 bfin_pcrel24_reloc (bfd *abfd,
48 arelent *reloc_entry,
49 asymbol *symbol,
50 void * data,
51 asection *input_section,
52 bfd *output_bfd,
53 char **error_message ATTRIBUTE_UNUSED)
54 {
55 bfd_vma relocation;
56 bfd_size_type addr = reloc_entry->address;
57 bfd_vma output_base = 0;
58 reloc_howto_type *howto = reloc_entry->howto;
59 asection *output_section;
60 bfd_boolean relocatable = (output_bfd != NULL);
61
62 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
63 return bfd_reloc_outofrange;
64
65 if (bfd_is_und_section (symbol->section)
66 && (symbol->flags & BSF_WEAK) == 0
67 && !relocatable)
68 return bfd_reloc_undefined;
69
70 if (bfd_is_com_section (symbol->section))
71 relocation = 0;
72 else
73 relocation = symbol->value;
74
75 output_section = symbol->section->output_section;
76
77 if (relocatable)
78 output_base = 0;
79 else
80 output_base = output_section->vma;
81
82 if (!relocatable || !strcmp (symbol->name, symbol->section->name))
83 relocation += output_base + symbol->section->output_offset;
84
85 if (!relocatable && !strcmp (symbol->name, symbol->section->name))
86 relocation += reloc_entry->addend;
87
88 relocation -= input_section->output_section->vma + input_section->output_offset;
89 relocation -= reloc_entry->address;
90
91 if (howto->complain_on_overflow != complain_overflow_dont)
92 {
93 bfd_reloc_status_type status;
94 status = bfd_check_overflow (howto->complain_on_overflow,
95 howto->bitsize,
96 howto->rightshift,
97 bfd_arch_bits_per_address(abfd),
98 relocation);
99 if (status != bfd_reloc_ok)
100 return status;
101 }
102
103 /* if rightshift is 1 and the number odd, return error. */
104 if (howto->rightshift && (relocation & 0x01))
105 {
106 (*_bfd_error_handler) (_("relocation should be even number"));
107 return bfd_reloc_overflow;
108 }
109
110 relocation >>= (bfd_vma) howto->rightshift;
111 /* Shift everything up to where it's going to be used. */
112
113 relocation <<= (bfd_vma) howto->bitpos;
114
115 if (relocatable)
116 {
117 reloc_entry->address += input_section->output_offset;
118 reloc_entry->addend += symbol->section->output_offset;
119 }
120
121 {
122 short x;
123
124 /* We are getting reloc_entry->address 2 byte off from
125 the start of instruction. Assuming absolute postion
126 of the reloc data. But, following code had been written assuming
127 reloc address is starting at begining of instruction.
128 To compensate that I have increased the value of
129 relocation by 1 (effectively 2) and used the addr -2 instead of addr. */
130
131 relocation += 1;
132 x = bfd_get_16 (abfd, (bfd_byte *) data + addr - 2);
133 x = (x & 0xff00) | ((relocation >> 16) & 0xff);
134 bfd_put_16 (abfd, x, (unsigned char *) data + addr - 2);
135
136 x = bfd_get_16 (abfd, (bfd_byte *) data + addr);
137 x = relocation & 0xFFFF;
138 bfd_put_16 (abfd, x, (unsigned char *) data + addr );
139 }
140 return bfd_reloc_ok;
141 }
142
143 static bfd_reloc_status_type
144 bfin_imm16_reloc (bfd *abfd,
145 arelent *reloc_entry,
146 asymbol *symbol,
147 void * data,
148 asection *input_section,
149 bfd *output_bfd,
150 char **error_message ATTRIBUTE_UNUSED)
151 {
152 bfd_vma relocation, x;
153 bfd_size_type reloc_addr = reloc_entry->address;
154 bfd_vma output_base = 0;
155 reloc_howto_type *howto = reloc_entry->howto;
156 asection *output_section;
157 bfd_boolean relocatable = (output_bfd != NULL);
158
159 /* Is the address of the relocation really within the section? */
160 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
161 return bfd_reloc_outofrange;
162
163 if (bfd_is_und_section (symbol->section)
164 && (symbol->flags & BSF_WEAK) == 0
165 && !relocatable)
166 return bfd_reloc_undefined;
167
168 output_section = symbol->section->output_section;
169 relocation = symbol->value;
170
171 /* Convert input-section-relative symbol value to absolute. */
172 if (relocatable)
173 output_base = 0;
174 else
175 output_base = output_section->vma;
176
177 if (!relocatable || !strcmp (symbol->name, symbol->section->name))
178 relocation += output_base + symbol->section->output_offset;
179
180 /* Add in supplied addend. */
181 relocation += reloc_entry->addend;
182
183 if (relocatable)
184 {
185 reloc_entry->address += input_section->output_offset;
186 reloc_entry->addend += symbol->section->output_offset;
187 }
188 else
189 {
190 reloc_entry->addend = 0;
191 }
192
193 if (howto->complain_on_overflow != complain_overflow_dont)
194 {
195 bfd_reloc_status_type flag;
196 flag = bfd_check_overflow (howto->complain_on_overflow,
197 howto->bitsize,
198 howto->rightshift,
199 bfd_arch_bits_per_address(abfd),
200 relocation);
201 if (flag != bfd_reloc_ok)
202 return flag;
203 }
204
205 /* Here the variable relocation holds the final address of the
206 symbol we are relocating against, plus any addend. */
207
208 relocation >>= (bfd_vma) howto->rightshift;
209 x = relocation;
210 bfd_put_16 (abfd, x, (unsigned char *) data + reloc_addr);
211 return bfd_reloc_ok;
212 }
213
214
215 static bfd_reloc_status_type
216 bfin_byte4_reloc (bfd *abfd,
217 arelent *reloc_entry,
218 asymbol *symbol,
219 void * data,
220 asection *input_section,
221 bfd *output_bfd,
222 char **error_message ATTRIBUTE_UNUSED)
223 {
224 bfd_vma relocation, x;
225 bfd_size_type addr = reloc_entry->address;
226 bfd_vma output_base = 0;
227 asection *output_section;
228 bfd_boolean relocatable = (output_bfd != NULL);
229
230 /* Is the address of the relocation really within the section? */
231 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
232 return bfd_reloc_outofrange;
233
234 if (bfd_is_und_section (symbol->section)
235 && (symbol->flags & BSF_WEAK) == 0
236 && !relocatable)
237 return bfd_reloc_undefined;
238
239 output_section = symbol->section->output_section;
240 relocation = symbol->value;
241 /* Convert input-section-relative symbol value to absolute. */
242 if (relocatable)
243 output_base = 0;
244 else
245 output_base = output_section->vma;
246
247 if ((symbol->name
248 && symbol->section->name
249 && !strcmp (symbol->name, symbol->section->name))
250 || !relocatable)
251 {
252 relocation += output_base + symbol->section->output_offset;
253 }
254
255 relocation += reloc_entry->addend;
256
257 if (relocatable)
258 {
259 /* This output will be relocatable ... like ld -r. */
260 reloc_entry->address += input_section->output_offset;
261 reloc_entry->addend += symbol->section->output_offset;
262 }
263 else
264 {
265 reloc_entry->addend = 0;
266 }
267
268 /* Here the variable relocation holds the final address of the
269 symbol we are relocating against, plus any addend. */
270 x = relocation & 0xFFFF0000;
271 x >>=16;
272 bfd_put_16 (abfd, x, (unsigned char *) data + addr + 2);
273
274 x = relocation & 0x0000FFFF;
275 bfd_put_16 (abfd, x, (unsigned char *) data + addr);
276 return bfd_reloc_ok;
277 }
278
279 /* bfin_bfd_reloc handles the blackfin arithmetic relocations.
280 Use this instead of bfd_perform_relocation. */
281 static bfd_reloc_status_type
282 bfin_bfd_reloc (bfd *abfd,
283 arelent *reloc_entry,
284 asymbol *symbol,
285 void * data,
286 asection *input_section,
287 bfd *output_bfd,
288 char **error_message ATTRIBUTE_UNUSED)
289 {
290 bfd_vma relocation;
291 bfd_size_type addr = reloc_entry->address;
292 bfd_vma output_base = 0;
293 reloc_howto_type *howto = reloc_entry->howto;
294 asection *output_section;
295 bfd_boolean relocatable = (output_bfd != NULL);
296
297 /* Is the address of the relocation really within the section? */
298 if (reloc_entry->address > bfd_get_section_limit (abfd, input_section))
299 return bfd_reloc_outofrange;
300
301 if (bfd_is_und_section (symbol->section)
302 && (symbol->flags & BSF_WEAK) == 0
303 && !relocatable)
304 return bfd_reloc_undefined;
305
306 /* Get symbol value. (Common symbols are special.) */
307 if (bfd_is_com_section (symbol->section))
308 relocation = 0;
309 else
310 relocation = symbol->value;
311
312 output_section = symbol->section->output_section;
313
314 /* Convert input-section-relative symbol value to absolute. */
315 if (relocatable)
316 output_base = 0;
317 else
318 output_base = output_section->vma;
319
320 if (!relocatable || !strcmp (symbol->name, symbol->section->name))
321 relocation += output_base + symbol->section->output_offset;
322
323 if (!relocatable && !strcmp (symbol->name, symbol->section->name))
324 {
325 /* Add in supplied addend. */
326 relocation += reloc_entry->addend;
327 }
328
329 /* Here the variable relocation holds the final address of the
330 symbol we are relocating against, plus any addend. */
331
332 if (howto->pc_relative == TRUE)
333 {
334 relocation -= input_section->output_section->vma + input_section->output_offset;
335
336 if (howto->pcrel_offset == TRUE)
337 relocation -= reloc_entry->address;
338 }
339
340 if (relocatable)
341 {
342 reloc_entry->address += input_section->output_offset;
343 reloc_entry->addend += symbol->section->output_offset;
344 }
345
346 if (howto->complain_on_overflow != complain_overflow_dont)
347 {
348 bfd_reloc_status_type status;
349
350 status = bfd_check_overflow (howto->complain_on_overflow,
351 howto->bitsize,
352 howto->rightshift,
353 bfd_arch_bits_per_address(abfd),
354 relocation);
355 if (status != bfd_reloc_ok)
356 return status;
357 }
358
359 /* If rightshift is 1 and the number odd, return error. */
360 if (howto->rightshift && (relocation & 0x01))
361 {
362 (*_bfd_error_handler) (_("relocation should be even number"));
363 return bfd_reloc_overflow;
364 }
365
366 relocation >>= (bfd_vma) howto->rightshift;
367
368 /* Shift everything up to where it's going to be used. */
369
370 relocation <<= (bfd_vma) howto->bitpos;
371
372 #define DOIT(x) \
373 x = ( (x & ~howto->dst_mask) | (relocation & howto->dst_mask))
374
375 /* handle 8 and 16 bit relocations here. */
376 switch (howto->size)
377 {
378 case 0:
379 {
380 char x = bfd_get_8 (abfd, (char *) data + addr);
381 DOIT (x);
382 bfd_put_8 (abfd, x, (unsigned char *) data + addr);
383 }
384 break;
385
386 case 1:
387 {
388 unsigned short x = bfd_get_16 (abfd, (bfd_byte *) data + addr);
389 DOIT (x);
390 bfd_put_16 (abfd, (bfd_vma) x, (unsigned char *) data + addr);
391 }
392 break;
393
394 default:
395 return bfd_reloc_other;
396 }
397
398 return bfd_reloc_ok;
399 }
400
401 /* HOWTO Table for blackfin.
402 Blackfin relocations are fairly complicated.
403 Some of the salient features are
404 a. Even numbered offsets. A number of (not all) relocations are
405 even numbered. This means that the rightmost bit is not stored.
406 Needs to right shift by 1 and check to see if value is not odd
407 b. A relocation can be an expression. An expression takes on
408 a variety of relocations arranged in a stack.
409 As a result, we cannot use the standard generic function as special
410 function. We will have our own, which is very similar to the standard
411 generic function except that it understands how to get the value from
412 the relocation stack. . */
413
414 #define BFIN_RELOC_MIN 0
415 #define BFIN_RELOC_MAX 0x21
416 #define BFIN_GNUEXT_RELOC_MIN 0x40
417 #define BFIN_GNUEXT_RELOC_MAX 0x43
418 #define BFIN_ARELOC_MIN 0xE0
419 #define BFIN_ARELOC_MAX 0xF3
420
421 static reloc_howto_type bfin_howto_table [] =
422 {
423 /* This reloc does nothing. . */
424 HOWTO (R_BFIN_UNUSED0, /* type. */
425 0, /* rightshift. */
426 3, /* size (0 = byte, 1 = short, 2 = long). */
427 0, /* bitsize. */
428 FALSE, /* pc_relative. */
429 0, /* bitpos. */
430 complain_overflow_dont, /* complain_on_overflow. */
431 bfd_elf_generic_reloc, /* special_function. */
432 "R_BFIN_UNUSED0", /* name. */
433 FALSE, /* partial_inplace. */
434 0, /* src_mask. */
435 0, /* dst_mask. */
436 FALSE), /* pcrel_offset. */
437
438 HOWTO (R_BFIN_PCREL5M2, /* type. */
439 1, /* rightshift. */
440 1, /* size (0 = byte, 1 = short, 2 = long).. */
441 4, /* bitsize. */
442 TRUE, /* pc_relative. */
443 0, /* bitpos. */
444 complain_overflow_unsigned, /* complain_on_overflow. */
445 bfin_bfd_reloc, /* special_function. */
446 "R_BFIN_PCREL5M2", /* name. */
447 FALSE, /* partial_inplace. */
448 0, /* src_mask. */
449 0x0000000F, /* dst_mask. */
450 FALSE), /* pcrel_offset. */
451
452 HOWTO (R_BFIN_UNUSED1, /* type. */
453 0, /* rightshift. */
454 3, /* size (0 = byte, 1 = short, 2 = long). */
455 0, /* bitsize. */
456 FALSE, /* pc_relative. */
457 0, /* bitpos. */
458 complain_overflow_dont, /* complain_on_overflow. */
459 bfd_elf_generic_reloc, /* special_function. */
460 "R_BFIN_UNUSED1", /* name. */
461 FALSE, /* partial_inplace. */
462 0, /* src_mask. */
463 0, /* dst_mask. */
464 FALSE), /* pcrel_offset. */
465
466 HOWTO (R_BFIN_PCREL10, /* type. */
467 1, /* rightshift. */
468 1, /* size (0 = byte, 1 = short, 2 = long). */
469 10, /* bitsize. */
470 TRUE, /* pc_relative. */
471 0, /* bitpos. */
472 complain_overflow_signed, /* complain_on_overflow. */
473 bfin_bfd_reloc, /* special_function. */
474 "R_BFIN_PCREL10", /* name. */
475 FALSE, /* partial_inplace. */
476 0, /* src_mask. */
477 0x000003FF, /* dst_mask. */
478 TRUE), /* pcrel_offset. */
479
480 HOWTO (R_BFIN_PCREL12_JUMP, /* type. */
481 1, /* rightshift. */
482 /* the offset is actually 13 bit
483 aligned on a word boundary so
484 only 12 bits have to be used.
485 Right shift the rightmost bit.. */
486 1, /* size (0 = byte, 1 = short, 2 = long). */
487 12, /* bitsize. */
488 TRUE, /* pc_relative. */
489 0, /* bitpos. */
490 complain_overflow_signed, /* complain_on_overflow. */
491 bfin_bfd_reloc, /* special_function. */
492 "R_BFIN_PCREL12_JUMP", /* name. */
493 FALSE, /* partial_inplace. */
494 0, /* src_mask. */
495 0x0FFF, /* dst_mask. */
496 TRUE), /* pcrel_offset. */
497
498 HOWTO (R_BFIN_RIMM16, /* type. */
499 0, /* rightshift. */
500 1, /* size (0 = byte, 1 = short, 2 = long). */
501 16, /* bitsize. */
502 FALSE, /* pc_relative. */
503 0, /* bitpos. */
504 complain_overflow_signed, /* complain_on_overflow. */
505 bfin_imm16_reloc, /* special_function. */
506 "R_BFIN_RIMM16", /* name. */
507 FALSE, /* partial_inplace. */
508 0, /* src_mask. */
509 0x0000FFFF, /* dst_mask. */
510 TRUE), /* pcrel_offset. */
511
512 HOWTO (R_BFIN_LUIMM16, /* type. */
513 0, /* rightshift. */
514 1, /* size (0 = byte, 1 = short, 2 = long). */
515 16, /* bitsize. */
516 FALSE, /* pc_relative. */
517 0, /* bitpos. */
518 complain_overflow_dont, /* complain_on_overflow. */
519 bfin_imm16_reloc, /* special_function. */
520 "R_BFIN_LUIMM16", /* name. */
521 FALSE, /* partial_inplace. */
522 0, /* src_mask. */
523 0x0000FFFF, /* dst_mask. */
524 TRUE), /* pcrel_offset. */
525
526 HOWTO (R_BFIN_HUIMM16, /* type. */
527 16, /* rightshift. */
528 1, /* size (0 = byte, 1 = short, 2 = long). */
529 16, /* bitsize. */
530 FALSE, /* pc_relative. */
531 0, /* bitpos. */
532 complain_overflow_unsigned, /* complain_on_overflow. */
533 bfin_imm16_reloc, /* special_function. */
534 "R_BFIN_HUIMM16", /* name. */
535 FALSE, /* partial_inplace. */
536 0, /* src_mask. */
537 0x0000FFFF, /* dst_mask. */
538 TRUE), /* pcrel_offset. */
539
540 HOWTO (R_BFIN_PCREL12_JUMP_S, /* type. */
541 1, /* rightshift. */
542 1, /* size (0 = byte, 1 = short, 2 = long). */
543 12, /* bitsize. */
544 TRUE, /* pc_relative. */
545 0, /* bitpos. */
546 complain_overflow_signed, /* complain_on_overflow. */
547 bfin_bfd_reloc, /* special_function. */
548 "R_BFIN_PCREL12_JUMP_S", /* name. */
549 FALSE, /* partial_inplace. */
550 0, /* src_mask. */
551 0x00000FFF, /* dst_mask. */
552 TRUE), /* pcrel_offset. */
553
554 HOWTO (R_BFIN_PCREL24_JUMP_X, /* type. */
555 1, /* rightshift. */
556 2, /* size (0 = byte, 1 = short, 2 = long). */
557 24, /* bitsize. */
558 TRUE, /* pc_relative. */
559 0, /* bitpos. */
560 complain_overflow_signed, /* complain_on_overflow. */
561 bfin_pcrel24_reloc, /* special_function. */
562 "R_BFIN_PCREL24_JUMP_X", /* name. */
563 FALSE, /* partial_inplace. */
564 0, /* src_mask. */
565 0x00FFFFFF, /* dst_mask. */
566 TRUE), /* pcrel_offset. */
567
568 HOWTO (R_BFIN_PCREL24, /* type. */
569 1, /* rightshift. */
570 2, /* size (0 = byte, 1 = short, 2 = long). */
571 24, /* bitsize. */
572 TRUE, /* pc_relative. */
573 0, /* bitpos. */
574 complain_overflow_signed, /* complain_on_overflow. */
575 bfin_pcrel24_reloc, /* special_function. */
576 "R_BFIN_PCREL24", /* name. */
577 FALSE, /* partial_inplace. */
578 0, /* src_mask. */
579 0x00FFFFFF, /* dst_mask. */
580 TRUE), /* pcrel_offset. */
581
582 HOWTO (R_BFIN_UNUSEDB, /* type. */
583 0, /* rightshift. */
584 3, /* size (0 = byte, 1 = short, 2 = long). */
585 0, /* bitsize. */
586 FALSE, /* pc_relative. */
587 0, /* bitpos. */
588 complain_overflow_dont, /* complain_on_overflow. */
589 bfd_elf_generic_reloc, /* special_function. */
590 "R_BFIN_UNUSEDB", /* name. */
591 FALSE, /* partial_inplace. */
592 0, /* src_mask. */
593 0, /* dst_mask. */
594 FALSE), /* pcrel_offset. */
595
596 HOWTO (R_BFIN_UNUSEDC, /* type. */
597 0, /* rightshift. */
598 3, /* size (0 = byte, 1 = short, 2 = long). */
599 0, /* bitsize. */
600 FALSE, /* pc_relative. */
601 0, /* bitpos. */
602 complain_overflow_dont, /* complain_on_overflow. */
603 bfd_elf_generic_reloc, /* special_function. */
604 "R_BFIN_UNUSEDC", /* name. */
605 FALSE, /* partial_inplace. */
606 0, /* src_mask. */
607 0, /* dst_mask. */
608 FALSE), /* pcrel_offset. */
609
610 HOWTO (R_BFIN_PCREL24_JUMP_L, /* type. */
611 1, /* rightshift. */
612 2, /* size (0 = byte, 1 = short, 2 = long). */
613 24, /* bitsize. */
614 TRUE, /* pc_relative. */
615 0, /* bitpos. */
616 complain_overflow_signed, /* complain_on_overflow. */
617 bfin_pcrel24_reloc, /* special_function. */
618 "R_BFIN_PCREL24_JUMP_L", /* name. */
619 FALSE, /* partial_inplace. */
620 0, /* src_mask. */
621 0x00FFFFFF, /* dst_mask. */
622 TRUE), /* pcrel_offset. */
623
624 HOWTO (R_BFIN_PCREL24_CALL_X, /* type. */
625 1, /* rightshift. */
626 2, /* size (0 = byte, 1 = short, 2 = long). */
627 24, /* bitsize. */
628 TRUE, /* pc_relative. */
629 0, /* bitpos. */
630 complain_overflow_signed, /* complain_on_overflow. */
631 bfin_pcrel24_reloc, /* special_function. */
632 "R_BFIN_PCREL24_CALL_X", /* name. */
633 FALSE, /* partial_inplace. */
634 0, /* src_mask. */
635 0x00FFFFFF, /* dst_mask. */
636 TRUE), /* pcrel_offset. */
637
638 HOWTO (R_BFIN_VAR_EQ_SYMB, /* type. */
639 0, /* rightshift. */
640 2, /* size (0 = byte, 1 = short, 2 = long). */
641 32, /* bitsize. */
642 FALSE, /* pc_relative. */
643 0, /* bitpos. */
644 complain_overflow_bitfield, /* complain_on_overflow. */
645 bfin_bfd_reloc, /* special_function. */
646 "R_BFIN_VAR_EQ_SYMB", /* name. */
647 FALSE, /* partial_inplace. */
648 0, /* src_mask. */
649 0, /* dst_mask. */
650 FALSE), /* pcrel_offset. */
651
652 HOWTO (R_BFIN_BYTE_DATA, /* type. */
653 0, /* rightshift. */
654 0, /* size (0 = byte, 1 = short, 2 = long). */
655 8, /* bitsize. */
656 FALSE, /* pc_relative. */
657 0, /* bitpos. */
658 complain_overflow_unsigned, /* complain_on_overflow. */
659 bfin_bfd_reloc, /* special_function. */
660 "R_BFIN_BYTE_DATA", /* name. */
661 FALSE, /* partial_inplace. */
662 0, /* src_mask. */
663 0xFF, /* dst_mask. */
664 TRUE), /* pcrel_offset. */
665
666 HOWTO (R_BFIN_BYTE2_DATA, /* type. */
667 0, /* rightshift. */
668 1, /* size (0 = byte, 1 = short, 2 = long). */
669 16, /* bitsize. */
670 FALSE, /* pc_relative. */
671 0, /* bitpos. */
672 complain_overflow_signed, /* complain_on_overflow. */
673 bfin_bfd_reloc, /* special_function. */
674 "R_BFIN_BYTE2_DATA", /* name. */
675 FALSE, /* partial_inplace. */
676 0, /* src_mask. */
677 0xFFFF, /* dst_mask. */
678 TRUE), /* pcrel_offset. */
679
680 HOWTO (R_BFIN_BYTE4_DATA, /* type. */
681 0, /* rightshift. */
682 2, /* size (0 = byte, 1 = short, 2 = long). */
683 32, /* bitsize. */
684 FALSE, /* pc_relative. */
685 0, /* bitpos. */
686 complain_overflow_unsigned, /* complain_on_overflow. */
687 bfin_byte4_reloc, /* special_function. */
688 "R_BFIN_BYTE4_DATA", /* name. */
689 FALSE, /* partial_inplace. */
690 0, /* src_mask. */
691 0xFFFFFFFF, /* dst_mask. */
692 TRUE), /* pcrel_offset. */
693
694 HOWTO (R_BFIN_PCREL11, /* type. */
695 1, /* rightshift. */
696 1, /* size (0 = byte, 1 = short, 2 = long). */
697 10, /* bitsize. */
698 TRUE, /* pc_relative. */
699 0, /* bitpos. */
700 complain_overflow_unsigned, /* complain_on_overflow. */
701 bfin_bfd_reloc, /* special_function. */
702 "R_BFIN_PCREL11", /* name. */
703 FALSE, /* partial_inplace. */
704 0, /* src_mask. */
705 0x000003FF, /* dst_mask. */
706 FALSE), /* pcrel_offset. */
707
708
709 /* A 18-bit signed operand with the GOT offset for the address of
710 the symbol. */
711 HOWTO (R_BFIN_GOT17M4, /* type */
712 2, /* rightshift */
713 1, /* size (0 = byte, 1 = short, 2 = long) */
714 16, /* bitsize */
715 FALSE, /* pc_relative */
716 0, /* bitpos */
717 complain_overflow_signed, /* complain_on_overflow */
718 bfd_elf_generic_reloc, /* special_function */
719 "R_BFIN_GOT17M4", /* name */
720 FALSE, /* partial_inplace */
721 0xffff, /* src_mask */
722 0xffff, /* dst_mask */
723 FALSE), /* pcrel_offset */
724
725 /* The upper 16 bits of the GOT offset for the address of the
726 symbol. */
727 HOWTO (R_BFIN_GOTHI, /* type */
728 0, /* rightshift */
729 1, /* size (0 = byte, 1 = short, 2 = long) */
730 16, /* bitsize */
731 FALSE, /* pc_relative */
732 0, /* bitpos */
733 complain_overflow_dont, /* complain_on_overflow */
734 bfd_elf_generic_reloc, /* special_function */
735 "R_BFIN_GOTHI", /* name */
736 FALSE, /* partial_inplace */
737 0xffff, /* src_mask */
738 0xffff, /* dst_mask */
739 FALSE), /* pcrel_offset */
740
741 /* The lower 16 bits of the GOT offset for the address of the
742 symbol. */
743 HOWTO (R_BFIN_GOTLO, /* type */
744 0, /* rightshift */
745 1, /* size (0 = byte, 1 = short, 2 = long) */
746 16, /* bitsize */
747 FALSE, /* pc_relative */
748 0, /* bitpos */
749 complain_overflow_dont, /* complain_on_overflow */
750 bfd_elf_generic_reloc, /* special_function */
751 "R_BFIN_GOTLO", /* name */
752 FALSE, /* partial_inplace */
753 0xffff, /* src_mask */
754 0xffff, /* dst_mask */
755 FALSE), /* pcrel_offset */
756
757 /* The 32-bit address of the canonical descriptor of a function. */
758 HOWTO (R_BFIN_FUNCDESC, /* type */
759 0, /* rightshift */
760 2, /* size (0 = byte, 1 = short, 2 = long) */
761 32, /* bitsize */
762 FALSE, /* pc_relative */
763 0, /* bitpos */
764 complain_overflow_bitfield, /* complain_on_overflow */
765 bfd_elf_generic_reloc, /* special_function */
766 "R_BFIN_FUNCDESC", /* name */
767 FALSE, /* partial_inplace */
768 0xffffffff, /* src_mask */
769 0xffffffff, /* dst_mask */
770 FALSE), /* pcrel_offset */
771
772 /* A 12-bit signed operand with the GOT offset for the address of
773 canonical descriptor of a function. */
774 HOWTO (R_BFIN_FUNCDESC_GOT17M4, /* type */
775 2, /* rightshift */
776 1, /* size (0 = byte, 1 = short, 2 = long) */
777 16, /* bitsize */
778 FALSE, /* pc_relative */
779 0, /* bitpos */
780 complain_overflow_signed, /* complain_on_overflow */
781 bfd_elf_generic_reloc, /* special_function */
782 "R_BFIN_FUNCDESC_GOT17M4", /* name */
783 FALSE, /* partial_inplace */
784 0xffff, /* src_mask */
785 0xffff, /* dst_mask */
786 FALSE), /* pcrel_offset */
787
788 /* The upper 16 bits of the GOT offset for the address of the
789 canonical descriptor of a function. */
790 HOWTO (R_BFIN_FUNCDESC_GOTHI, /* type */
791 0, /* rightshift */
792 1, /* size (0 = byte, 1 = short, 2 = long) */
793 16, /* bitsize */
794 FALSE, /* pc_relative */
795 0, /* bitpos */
796 complain_overflow_dont, /* complain_on_overflow */
797 bfd_elf_generic_reloc, /* special_function */
798 "R_BFIN_FUNCDESC_GOTHI", /* name */
799 FALSE, /* partial_inplace */
800 0xffff, /* src_mask */
801 0xffff, /* dst_mask */
802 FALSE), /* pcrel_offset */
803
804 /* The lower 16 bits of the GOT offset for the address of the
805 canonical descriptor of a function. */
806 HOWTO (R_BFIN_FUNCDESC_GOTLO, /* type */
807 0, /* rightshift */
808 1, /* size (0 = byte, 1 = short, 2 = long) */
809 16, /* bitsize */
810 FALSE, /* pc_relative */
811 0, /* bitpos */
812 complain_overflow_dont, /* complain_on_overflow */
813 bfd_elf_generic_reloc, /* special_function */
814 "R_BFIN_FUNCDESC_GOTLO", /* name */
815 FALSE, /* partial_inplace */
816 0xffff, /* src_mask */
817 0xffff, /* dst_mask */
818 FALSE), /* pcrel_offset */
819
820 /* The 32-bit address of the canonical descriptor of a function. */
821 HOWTO (R_BFIN_FUNCDESC_VALUE, /* type */
822 0, /* rightshift */
823 2, /* size (0 = byte, 1 = short, 2 = long) */
824 64, /* bitsize */
825 FALSE, /* pc_relative */
826 0, /* bitpos */
827 complain_overflow_bitfield, /* complain_on_overflow */
828 bfd_elf_generic_reloc, /* special_function */
829 "R_BFIN_FUNCDESC_VALUE", /* name */
830 FALSE, /* partial_inplace */
831 0xffffffff, /* src_mask */
832 0xffffffff, /* dst_mask */
833 FALSE), /* pcrel_offset */
834
835 /* A 12-bit signed operand with the GOT offset for the address of
836 canonical descriptor of a function. */
837 HOWTO (R_BFIN_FUNCDESC_GOTOFF17M4, /* type */
838 2, /* rightshift */
839 1, /* size (0 = byte, 1 = short, 2 = long) */
840 16, /* bitsize */
841 FALSE, /* pc_relative */
842 0, /* bitpos */
843 complain_overflow_signed, /* complain_on_overflow */
844 bfd_elf_generic_reloc, /* special_function */
845 "R_BFIN_FUNCDESC_GOTOFF17M4", /* name */
846 FALSE, /* partial_inplace */
847 0xffff, /* src_mask */
848 0xffff, /* dst_mask */
849 FALSE), /* pcrel_offset */
850
851 /* The upper 16 bits of the GOT offset for the address of the
852 canonical descriptor of a function. */
853 HOWTO (R_BFIN_FUNCDESC_GOTOFFHI, /* type */
854 0, /* rightshift */
855 1, /* size (0 = byte, 1 = short, 2 = long) */
856 16, /* bitsize */
857 FALSE, /* pc_relative */
858 0, /* bitpos */
859 complain_overflow_dont, /* complain_on_overflow */
860 bfd_elf_generic_reloc, /* special_function */
861 "R_BFIN_FUNCDESC_GOTOFFHI", /* name */
862 FALSE, /* partial_inplace */
863 0xffff, /* src_mask */
864 0xffff, /* dst_mask */
865 FALSE), /* pcrel_offset */
866
867 /* The lower 16 bits of the GOT offset for the address of the
868 canonical descriptor of a function. */
869 HOWTO (R_BFIN_FUNCDESC_GOTOFFLO, /* type */
870 0, /* rightshift */
871 1, /* size (0 = byte, 1 = short, 2 = long) */
872 16, /* bitsize */
873 FALSE, /* pc_relative */
874 0, /* bitpos */
875 complain_overflow_dont, /* complain_on_overflow */
876 bfd_elf_generic_reloc, /* special_function */
877 "R_BFIN_FUNCDESC_GOTOFFLO", /* name */
878 FALSE, /* partial_inplace */
879 0xffff, /* src_mask */
880 0xffff, /* dst_mask */
881 FALSE), /* pcrel_offset */
882
883 /* A 12-bit signed operand with the GOT offset for the address of
884 the symbol. */
885 HOWTO (R_BFIN_GOTOFF17M4, /* type */
886 2, /* rightshift */
887 1, /* size (0 = byte, 1 = short, 2 = long) */
888 16, /* bitsize */
889 FALSE, /* pc_relative */
890 0, /* bitpos */
891 complain_overflow_signed, /* complain_on_overflow */
892 bfd_elf_generic_reloc, /* special_function */
893 "R_BFIN_GOTOFF17M4", /* name */
894 FALSE, /* partial_inplace */
895 0xffff, /* src_mask */
896 0xffff, /* dst_mask */
897 FALSE), /* pcrel_offset */
898
899 /* The upper 16 bits of the GOT offset for the address of the
900 symbol. */
901 HOWTO (R_BFIN_GOTOFFHI, /* type */
902 0, /* rightshift */
903 1, /* size (0 = byte, 1 = short, 2 = long) */
904 16, /* bitsize */
905 FALSE, /* pc_relative */
906 0, /* bitpos */
907 complain_overflow_dont, /* complain_on_overflow */
908 bfd_elf_generic_reloc, /* special_function */
909 "R_BFIN_GOTOFFHI", /* name */
910 FALSE, /* partial_inplace */
911 0xffff, /* src_mask */
912 0xffff, /* dst_mask */
913 FALSE), /* pcrel_offset */
914
915 /* The lower 16 bits of the GOT offset for the address of the
916 symbol. */
917 HOWTO (R_BFIN_GOTOFFLO, /* type */
918 0, /* rightshift */
919 1, /* size (0 = byte, 1 = short, 2 = long) */
920 16, /* bitsize */
921 FALSE, /* pc_relative */
922 0, /* bitpos */
923 complain_overflow_dont, /* complain_on_overflow */
924 bfd_elf_generic_reloc, /* special_function */
925 "R_BFIN_GOTOFFLO", /* name */
926 FALSE, /* partial_inplace */
927 0xffff, /* src_mask */
928 0xffff, /* dst_mask */
929 FALSE), /* pcrel_offset */
930 };
931
932 static reloc_howto_type bfin_gnuext_howto_table [] =
933 {
934 HOWTO (R_BFIN_PLTPC, /* type. */
935 0, /* rightshift. */
936 1, /* size (0 = byte, 1 = short, 2 = long). */
937 16, /* bitsize. */
938 FALSE, /* pc_relative. */
939 0, /* bitpos. */
940 complain_overflow_bitfield, /* complain_on_overflow. */
941 bfin_pltpc_reloc, /* special_function. */
942 "R_BFIN_PLTPC", /* name. */
943 FALSE, /* partial_inplace. */
944 0xffff, /* src_mask. */
945 0xffff, /* dst_mask. */
946 FALSE), /* pcrel_offset. */
947
948 HOWTO (R_BFIN_GOT, /* type. */
949 0, /* rightshift. */
950 1, /* size (0 = byte, 1 = short, 2 = long). */
951 16, /* bitsize. */
952 FALSE, /* pc_relative. */
953 0, /* bitpos. */
954 complain_overflow_bitfield, /* complain_on_overflow. */
955 bfd_elf_generic_reloc, /* special_function. */
956 "R_BFIN_GOT", /* name. */
957 FALSE, /* partial_inplace. */
958 0x7fff, /* src_mask. */
959 0x7fff, /* dst_mask. */
960 FALSE), /* pcrel_offset. */
961
962 /* GNU extension to record C++ vtable hierarchy. */
963 HOWTO (R_BFIN_GNU_VTINHERIT, /* type. */
964 0, /* rightshift. */
965 2, /* size (0 = byte, 1 = short, 2 = long). */
966 0, /* bitsize. */
967 FALSE, /* pc_relative. */
968 0, /* bitpos. */
969 complain_overflow_dont, /* complain_on_overflow. */
970 NULL, /* special_function. */
971 "R_BFIN_GNU_VTINHERIT", /* name. */
972 FALSE, /* partial_inplace. */
973 0, /* src_mask. */
974 0, /* dst_mask. */
975 FALSE), /* pcrel_offset. */
976
977 /* GNU extension to record C++ vtable member usage. */
978 HOWTO (R_BFIN_GNU_VTENTRY, /* type. */
979 0, /* rightshift. */
980 2, /* size (0 = byte, 1 = short, 2 = long). */
981 0, /* bitsize. */
982 FALSE, /* pc_relative. */
983 0, /* bitpos. */
984 complain_overflow_dont, /* complain_on_overflow. */
985 _bfd_elf_rel_vtable_reloc_fn, /* special_function. */
986 "R_BFIN_GNU_VTENTRY", /* name. */
987 FALSE, /* partial_inplace. */
988 0, /* src_mask. */
989 0, /* dst_mask. */
990 FALSE) /* pcrel_offset. */
991 };
992
993 struct bfin_reloc_map
994 {
995 bfd_reloc_code_real_type bfd_reloc_val;
996 unsigned int bfin_reloc_val;
997 };
998
999 static const struct bfin_reloc_map bfin_reloc_map [] =
1000 {
1001 { BFD_RELOC_NONE, R_BFIN_UNUSED0 },
1002 { BFD_RELOC_BFIN_5_PCREL, R_BFIN_PCREL5M2 },
1003 { BFD_RELOC_NONE, R_BFIN_UNUSED1 },
1004 { BFD_RELOC_BFIN_10_PCREL, R_BFIN_PCREL10 },
1005 { BFD_RELOC_BFIN_12_PCREL_JUMP, R_BFIN_PCREL12_JUMP },
1006 { BFD_RELOC_BFIN_16_IMM, R_BFIN_RIMM16 },
1007 { BFD_RELOC_BFIN_16_LOW, R_BFIN_LUIMM16 },
1008 { BFD_RELOC_BFIN_16_HIGH, R_BFIN_HUIMM16 },
1009 { BFD_RELOC_BFIN_12_PCREL_JUMP_S, R_BFIN_PCREL12_JUMP_S },
1010 { BFD_RELOC_24_PCREL, R_BFIN_PCREL24 },
1011 { BFD_RELOC_24_PCREL, R_BFIN_PCREL24 },
1012 { BFD_RELOC_BFIN_24_PCREL_JUMP_L, R_BFIN_PCREL24_JUMP_L },
1013 { BFD_RELOC_NONE, R_BFIN_UNUSEDB },
1014 { BFD_RELOC_NONE, R_BFIN_UNUSEDC },
1015 { BFD_RELOC_BFIN_24_PCREL_CALL_X, R_BFIN_PCREL24_CALL_X },
1016 { BFD_RELOC_8, R_BFIN_BYTE_DATA },
1017 { BFD_RELOC_16, R_BFIN_BYTE2_DATA },
1018 { BFD_RELOC_32, R_BFIN_BYTE4_DATA },
1019 { BFD_RELOC_BFIN_11_PCREL, R_BFIN_PCREL11 },
1020 { BFD_RELOC_BFIN_GOT, R_BFIN_GOT },
1021 { BFD_RELOC_BFIN_PLTPC, R_BFIN_PLTPC },
1022
1023 { BFD_RELOC_BFIN_GOT17M4, R_BFIN_GOT17M4 },
1024 { BFD_RELOC_BFIN_GOTHI, R_BFIN_GOTHI },
1025 { BFD_RELOC_BFIN_GOTLO, R_BFIN_GOTLO },
1026 { BFD_RELOC_BFIN_FUNCDESC, R_BFIN_FUNCDESC },
1027 { BFD_RELOC_BFIN_FUNCDESC_GOT17M4, R_BFIN_FUNCDESC_GOT17M4 },
1028 { BFD_RELOC_BFIN_FUNCDESC_GOTHI, R_BFIN_FUNCDESC_GOTHI },
1029 { BFD_RELOC_BFIN_FUNCDESC_GOTLO, R_BFIN_FUNCDESC_GOTLO },
1030 { BFD_RELOC_BFIN_FUNCDESC_VALUE, R_BFIN_FUNCDESC_VALUE },
1031 { BFD_RELOC_BFIN_FUNCDESC_GOTOFF17M4, R_BFIN_FUNCDESC_GOTOFF17M4 },
1032 { BFD_RELOC_BFIN_FUNCDESC_GOTOFFHI, R_BFIN_FUNCDESC_GOTOFFHI },
1033 { BFD_RELOC_BFIN_FUNCDESC_GOTOFFLO, R_BFIN_FUNCDESC_GOTOFFLO },
1034 { BFD_RELOC_BFIN_GOTOFF17M4, R_BFIN_GOTOFF17M4 },
1035 { BFD_RELOC_BFIN_GOTOFFHI, R_BFIN_GOTOFFHI },
1036 { BFD_RELOC_BFIN_GOTOFFLO, R_BFIN_GOTOFFLO },
1037
1038 { BFD_RELOC_VTABLE_INHERIT, R_BFIN_GNU_VTINHERIT },
1039 { BFD_RELOC_VTABLE_ENTRY, R_BFIN_GNU_VTENTRY },
1040 };
1041
1042
1043 static void
1044 bfin_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
1045 arelent *cache_ptr,
1046 Elf_Internal_Rela *dst)
1047 {
1048 unsigned int r_type;
1049
1050 r_type = ELF32_R_TYPE (dst->r_info);
1051
1052 if (r_type <= BFIN_RELOC_MAX)
1053 cache_ptr->howto = &bfin_howto_table [r_type];
1054
1055 else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1056 cache_ptr->howto = &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1057
1058 else
1059 cache_ptr->howto = (reloc_howto_type *) NULL;
1060 }
1061
1062 /* Given a BFD reloc type, return the howto. */
1063 static reloc_howto_type *
1064 bfin_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
1065 bfd_reloc_code_real_type code)
1066 {
1067 unsigned int i;
1068 unsigned int r_type = (unsigned int) -1;
1069
1070 for (i = sizeof (bfin_reloc_map) / sizeof (bfin_reloc_map[0]); i--;)
1071 if (bfin_reloc_map[i].bfd_reloc_val == code)
1072 r_type = bfin_reloc_map[i].bfin_reloc_val;
1073
1074 if (r_type <= BFIN_RELOC_MAX)
1075 return &bfin_howto_table [r_type];
1076
1077 else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1078 return &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1079
1080 return (reloc_howto_type *) NULL;
1081 }
1082
1083 static reloc_howto_type *
1084 bfin_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
1085 const char *r_name)
1086 {
1087 unsigned int i;
1088
1089 for (i = 0;
1090 i < (sizeof (bfin_howto_table)
1091 / sizeof (bfin_howto_table[0]));
1092 i++)
1093 if (bfin_howto_table[i].name != NULL
1094 && strcasecmp (bfin_howto_table[i].name, r_name) == 0)
1095 return &bfin_howto_table[i];
1096
1097 for (i = 0;
1098 i < (sizeof (bfin_gnuext_howto_table)
1099 / sizeof (bfin_gnuext_howto_table[0]));
1100 i++)
1101 if (bfin_gnuext_howto_table[i].name != NULL
1102 && strcasecmp (bfin_gnuext_howto_table[i].name, r_name) == 0)
1103 return &bfin_gnuext_howto_table[i];
1104
1105 return NULL;
1106 }
1107
1108 /* Given a bfin relocation type, return the howto. */
1109 static reloc_howto_type *
1110 bfin_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
1111 unsigned int r_type)
1112 {
1113 if (r_type <= BFIN_RELOC_MAX)
1114 return &bfin_howto_table [r_type];
1115
1116 else if (r_type >= BFIN_GNUEXT_RELOC_MIN && r_type <= BFIN_GNUEXT_RELOC_MAX)
1117 return &bfin_gnuext_howto_table [r_type - BFIN_GNUEXT_RELOC_MIN];
1118
1119 return (reloc_howto_type *) NULL;
1120 }
1121
1122 /* Set by ld emulation if --code-in-l1. */
1123 bfd_boolean elf32_bfin_code_in_l1 = 0;
1124
1125 /* Set by ld emulation if --data-in-l1. */
1126 bfd_boolean elf32_bfin_data_in_l1 = 0;
1127
1128 static void
1129 elf32_bfin_final_write_processing (bfd *abfd,
1130 bfd_boolean linker ATTRIBUTE_UNUSED)
1131 {
1132 if (elf32_bfin_code_in_l1)
1133 elf_elfheader (abfd)->e_flags |= EF_BFIN_CODE_IN_L1;
1134 if (elf32_bfin_data_in_l1)
1135 elf_elfheader (abfd)->e_flags |= EF_BFIN_DATA_IN_L1;
1136 }
1137
1138 /* Return TRUE if the name is a local label.
1139 bfin local labels begin with L$. */
1140 static bfd_boolean
1141 bfin_is_local_label_name (bfd *abfd, const char *label)
1142 {
1143 if (label[0] == 'L' && label[1] == '$' )
1144 return TRUE;
1145
1146 return _bfd_elf_is_local_label_name (abfd, label);
1147 }
1148 \f
1149 /* Look through the relocs for a section during the first phase, and
1150 allocate space in the global offset table or procedure linkage
1151 table. */
1152
1153 static bfd_boolean
1154 bfin_check_relocs (bfd * abfd,
1155 struct bfd_link_info *info,
1156 asection *sec,
1157 const Elf_Internal_Rela *relocs)
1158 {
1159 bfd *dynobj;
1160 Elf_Internal_Shdr *symtab_hdr;
1161 struct elf_link_hash_entry **sym_hashes;
1162 bfd_signed_vma *local_got_refcounts;
1163 const Elf_Internal_Rela *rel;
1164 const Elf_Internal_Rela *rel_end;
1165 asection *sgot;
1166 asection *srelgot;
1167
1168 if (bfd_link_relocatable (info))
1169 return TRUE;
1170
1171 dynobj = elf_hash_table (info)->dynobj;
1172 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1173 sym_hashes = elf_sym_hashes (abfd);
1174 local_got_refcounts = elf_local_got_refcounts (abfd);
1175
1176 sgot = NULL;
1177 srelgot = NULL;
1178
1179 rel_end = relocs + sec->reloc_count;
1180 for (rel = relocs; rel < rel_end; rel++)
1181 {
1182 unsigned long r_symndx;
1183 struct elf_link_hash_entry *h;
1184
1185 r_symndx = ELF32_R_SYM (rel->r_info);
1186 if (r_symndx < symtab_hdr->sh_info)
1187 h = NULL;
1188 else
1189 {
1190 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1191
1192 /* PR15323, ref flags aren't set for references in the same
1193 object. */
1194 h->root.non_ir_ref = 1;
1195 }
1196
1197 switch (ELF32_R_TYPE (rel->r_info))
1198 {
1199 /* This relocation describes the C++ object vtable hierarchy.
1200 Reconstruct it for later use during GC. */
1201 case R_BFIN_GNU_VTINHERIT:
1202 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
1203 return FALSE;
1204 break;
1205
1206 /* This relocation describes which C++ vtable entries
1207 are actually used. Record for later use during GC. */
1208 case R_BFIN_GNU_VTENTRY:
1209 BFD_ASSERT (h != NULL);
1210 if (h != NULL
1211 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
1212 return FALSE;
1213 break;
1214
1215 case R_BFIN_GOT:
1216 if (h != NULL
1217 && strcmp (h->root.root.string, "__GLOBAL_OFFSET_TABLE_") == 0)
1218 break;
1219 /* Fall through. */
1220
1221 if (dynobj == NULL)
1222 {
1223 /* Create the .got section. */
1224 elf_hash_table (info)->dynobj = dynobj = abfd;
1225 if (!_bfd_elf_create_got_section (dynobj, info))
1226 return FALSE;
1227 }
1228
1229 if (sgot == NULL)
1230 {
1231 sgot = bfd_get_linker_section (dynobj, ".got");
1232 BFD_ASSERT (sgot != NULL);
1233 }
1234
1235 if (srelgot == NULL && (h != NULL || bfd_link_pic (info)))
1236 {
1237 srelgot = bfd_get_linker_section (dynobj, ".rela.got");
1238 if (srelgot == NULL)
1239 {
1240 flagword flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS
1241 | SEC_IN_MEMORY | SEC_LINKER_CREATED
1242 | SEC_READONLY);
1243 srelgot = bfd_make_section_anyway_with_flags (dynobj,
1244 ".rela.got",
1245 flags);
1246 if (srelgot == NULL
1247 || !bfd_set_section_alignment (dynobj, srelgot, 2))
1248 return FALSE;
1249 }
1250 }
1251
1252 if (h != NULL)
1253 {
1254 if (h->got.refcount == 0)
1255 {
1256 /* Make sure this symbol is output as a dynamic symbol. */
1257 if (h->dynindx == -1 && !h->forced_local)
1258 {
1259 if (!bfd_elf_link_record_dynamic_symbol (info, h))
1260 return FALSE;
1261 }
1262
1263 /* Allocate space in the .got section. */
1264 sgot->size += 4;
1265 /* Allocate relocation space. */
1266 srelgot->size += sizeof (Elf32_External_Rela);
1267 }
1268 h->got.refcount++;
1269 }
1270 else
1271 {
1272 /* This is a global offset table entry for a local symbol. */
1273 if (local_got_refcounts == NULL)
1274 {
1275 bfd_size_type size;
1276
1277 size = symtab_hdr->sh_info;
1278 size *= sizeof (bfd_signed_vma);
1279 local_got_refcounts = ((bfd_signed_vma *)
1280 bfd_zalloc (abfd, size));
1281 if (local_got_refcounts == NULL)
1282 return FALSE;
1283 elf_local_got_refcounts (abfd) = local_got_refcounts;
1284 }
1285 if (local_got_refcounts[r_symndx] == 0)
1286 {
1287 sgot->size += 4;
1288 if (bfd_link_pic (info))
1289 {
1290 /* If we are generating a shared object, we need to
1291 output a R_68K_RELATIVE reloc so that the dynamic
1292 linker can adjust this GOT entry. */
1293 srelgot->size += sizeof (Elf32_External_Rela);
1294 }
1295 }
1296 local_got_refcounts[r_symndx]++;
1297 }
1298 break;
1299
1300 default:
1301 break;
1302 }
1303 }
1304
1305 return TRUE;
1306 }
1307
1308 static enum elf_reloc_type_class
1309 elf32_bfin_reloc_type_class (const struct bfd_link_info *info ATTRIBUTE_UNUSED,
1310 const asection *rel_sec ATTRIBUTE_UNUSED,
1311 const Elf_Internal_Rela * rela)
1312 {
1313 switch ((int) ELF32_R_TYPE (rela->r_info))
1314 {
1315 default:
1316 return reloc_class_normal;
1317 }
1318 }
1319 \f
1320 static bfd_reloc_status_type
1321 bfin_final_link_relocate (Elf_Internal_Rela *rel, reloc_howto_type *howto,
1322 bfd *input_bfd, asection *input_section,
1323 bfd_byte *contents, bfd_vma address,
1324 bfd_vma value, bfd_vma addend)
1325 {
1326 int r_type = ELF32_R_TYPE (rel->r_info);
1327
1328 if (r_type == R_BFIN_PCREL24 || r_type == R_BFIN_PCREL24_JUMP_L)
1329 {
1330 bfd_reloc_status_type r = bfd_reloc_ok;
1331 bfd_vma x;
1332
1333 if (address > bfd_get_section_limit (input_bfd, input_section))
1334 return bfd_reloc_outofrange;
1335
1336 value += addend;
1337
1338 /* Perform usual pc-relative correction. */
1339 value -= input_section->output_section->vma + input_section->output_offset;
1340 value -= address;
1341
1342 /* We are getting reloc_entry->address 2 byte off from
1343 the start of instruction. Assuming absolute postion
1344 of the reloc data. But, following code had been written assuming
1345 reloc address is starting at begining of instruction.
1346 To compensate that I have increased the value of
1347 relocation by 1 (effectively 2) and used the addr -2 instead of addr. */
1348
1349 value += 2;
1350 address -= 2;
1351
1352 if ((value & 0xFF000000) != 0
1353 && (value & 0xFF000000) != 0xFF000000)
1354 r = bfd_reloc_overflow;
1355
1356 value >>= 1;
1357
1358 x = bfd_get_16 (input_bfd, contents + address);
1359 x = (x & 0xff00) | ((value >> 16) & 0xff);
1360 bfd_put_16 (input_bfd, x, contents + address);
1361
1362 x = bfd_get_16 (input_bfd, contents + address + 2);
1363 x = value & 0xFFFF;
1364 bfd_put_16 (input_bfd, x, contents + address + 2);
1365 return r;
1366 }
1367
1368 return _bfd_final_link_relocate (howto, input_bfd, input_section, contents,
1369 rel->r_offset, value, addend);
1370
1371 }
1372
1373 static bfd_boolean
1374 bfin_relocate_section (bfd * output_bfd,
1375 struct bfd_link_info *info,
1376 bfd * input_bfd,
1377 asection * input_section,
1378 bfd_byte * contents,
1379 Elf_Internal_Rela * relocs,
1380 Elf_Internal_Sym * local_syms,
1381 asection ** local_sections)
1382 {
1383 bfd *dynobj;
1384 Elf_Internal_Shdr *symtab_hdr;
1385 struct elf_link_hash_entry **sym_hashes;
1386 bfd_vma *local_got_offsets;
1387 asection *sgot;
1388 Elf_Internal_Rela *rel;
1389 Elf_Internal_Rela *relend;
1390 int i = 0;
1391
1392 dynobj = elf_hash_table (info)->dynobj;
1393 symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1394 sym_hashes = elf_sym_hashes (input_bfd);
1395 local_got_offsets = elf_local_got_offsets (input_bfd);
1396
1397 sgot = NULL;
1398
1399 rel = relocs;
1400 relend = relocs + input_section->reloc_count;
1401 for (; rel < relend; rel++, i++)
1402 {
1403 int r_type;
1404 reloc_howto_type *howto;
1405 unsigned long r_symndx;
1406 struct elf_link_hash_entry *h;
1407 Elf_Internal_Sym *sym;
1408 asection *sec;
1409 bfd_vma relocation = 0;
1410 bfd_boolean unresolved_reloc;
1411 bfd_reloc_status_type r;
1412 bfd_vma address;
1413
1414 r_type = ELF32_R_TYPE (rel->r_info);
1415 if (r_type < 0 || r_type >= 243)
1416 {
1417 bfd_set_error (bfd_error_bad_value);
1418 return FALSE;
1419 }
1420
1421 if (r_type == R_BFIN_GNU_VTENTRY
1422 || r_type == R_BFIN_GNU_VTINHERIT)
1423 continue;
1424
1425 howto = bfin_reloc_type_lookup (input_bfd, r_type);
1426 if (howto == NULL)
1427 {
1428 bfd_set_error (bfd_error_bad_value);
1429 return FALSE;
1430 }
1431 r_symndx = ELF32_R_SYM (rel->r_info);
1432
1433 h = NULL;
1434 sym = NULL;
1435 sec = NULL;
1436 unresolved_reloc = FALSE;
1437
1438 if (r_symndx < symtab_hdr->sh_info)
1439 {
1440 sym = local_syms + r_symndx;
1441 sec = local_sections[r_symndx];
1442 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1443 }
1444 else
1445 {
1446 bfd_boolean warned, ignored;
1447
1448 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1449 r_symndx, symtab_hdr, sym_hashes,
1450 h, sec, relocation,
1451 unresolved_reloc, warned, ignored);
1452 }
1453
1454 if (sec != NULL && discarded_section (sec))
1455 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
1456 rel, 1, relend, howto, 0, contents);
1457
1458 if (bfd_link_relocatable (info))
1459 continue;
1460
1461 address = rel->r_offset;
1462
1463 /* Then, process normally. */
1464 switch (r_type)
1465 {
1466 case R_BFIN_GNU_VTINHERIT:
1467 case R_BFIN_GNU_VTENTRY:
1468 return bfd_reloc_ok;
1469
1470 case R_BFIN_GOT:
1471 /* Relocation is to the address of the entry for this symbol
1472 in the global offset table. */
1473 if (h != NULL
1474 && strcmp (h->root.root.string, "__GLOBAL_OFFSET_TABLE_") == 0)
1475 goto do_default;
1476 /* Fall through. */
1477 /* Relocation is the offset of the entry for this symbol in
1478 the global offset table. */
1479
1480 {
1481 bfd_vma off;
1482
1483 if (dynobj == NULL)
1484 {
1485 /* Create the .got section. */
1486 elf_hash_table (info)->dynobj = dynobj = output_bfd;
1487 if (!_bfd_elf_create_got_section (dynobj, info))
1488 return FALSE;
1489 }
1490
1491 if (sgot == NULL)
1492 {
1493 sgot = bfd_get_linker_section (dynobj, ".got");
1494 BFD_ASSERT (sgot != NULL);
1495 }
1496
1497 if (h != NULL)
1498 {
1499 bfd_boolean dyn;
1500
1501 off = h->got.offset;
1502 BFD_ASSERT (off != (bfd_vma) - 1);
1503 dyn = elf_hash_table (info)->dynamic_sections_created;
1504
1505 if (!WILL_CALL_FINISH_DYNAMIC_SYMBOL (dyn,
1506 bfd_link_pic (info),
1507 h)
1508 || (bfd_link_pic (info)
1509 && (info->symbolic
1510 || h->dynindx == -1
1511 || h->forced_local)
1512 && h->def_regular))
1513 {
1514 /* This is actually a static link, or it is a
1515 -Bsymbolic link and the symbol is defined
1516 locally, or the symbol was forced to be local
1517 because of a version file.. We must initialize
1518 this entry in the global offset table. Since
1519 the offset must always be a multiple of 4, we
1520 use the least significant bit to record whether
1521 we have initialized it already.
1522
1523 When doing a dynamic link, we create a .rela.got
1524 relocation entry to initialize the value. This
1525 is done in the finish_dynamic_symbol routine. */
1526 if ((off & 1) != 0)
1527 off &= ~1;
1528 else
1529 {
1530 bfd_put_32 (output_bfd, relocation,
1531 sgot->contents + off);
1532 h->got.offset |= 1;
1533 }
1534 }
1535 else
1536 unresolved_reloc = FALSE;
1537 }
1538 else
1539 {
1540 BFD_ASSERT (local_got_offsets != NULL);
1541 off = local_got_offsets[r_symndx];
1542 BFD_ASSERT (off != (bfd_vma) - 1);
1543
1544 /* The offset must always be a multiple of 4. We use
1545 the least significant bit to record whether we have
1546 already generated the necessary reloc. */
1547 if ((off & 1) != 0)
1548 off &= ~1;
1549 else
1550 {
1551 bfd_put_32 (output_bfd, relocation, sgot->contents + off);
1552
1553 if (bfd_link_pic (info))
1554 {
1555 asection *s;
1556 Elf_Internal_Rela outrel;
1557 bfd_byte *loc;
1558
1559 s = bfd_get_linker_section (dynobj, ".rela.got");
1560 BFD_ASSERT (s != NULL);
1561
1562 outrel.r_offset = (sgot->output_section->vma
1563 + sgot->output_offset + off);
1564 outrel.r_info =
1565 ELF32_R_INFO (0, R_BFIN_PCREL24);
1566 outrel.r_addend = relocation;
1567 loc = s->contents;
1568 loc +=
1569 s->reloc_count++ * sizeof (Elf32_External_Rela);
1570 bfd_elf32_swap_reloca_out (output_bfd, &outrel, loc);
1571 }
1572
1573 local_got_offsets[r_symndx] |= 1;
1574 }
1575 }
1576
1577 relocation = sgot->output_offset + off;
1578 rel->r_addend = 0;
1579 /* bfin : preg = [preg + 17bitdiv4offset] relocation is div by 4. */
1580 relocation /= 4;
1581 }
1582 goto do_default;
1583
1584 default:
1585 do_default:
1586 r = bfin_final_link_relocate (rel, howto, input_bfd, input_section,
1587 contents, address,
1588 relocation, rel->r_addend);
1589
1590 break;
1591 }
1592
1593 /* Dynamic relocs are not propagated for SEC_DEBUGGING sections
1594 because such sections are not SEC_ALLOC and thus ld.so will
1595 not process them. */
1596 if (unresolved_reloc
1597 && !((input_section->flags & SEC_DEBUGGING) != 0 && h->def_dynamic)
1598 && _bfd_elf_section_offset (output_bfd, info, input_section,
1599 rel->r_offset) != (bfd_vma) -1)
1600 {
1601 (*_bfd_error_handler)
1602 (_("%B(%A+0x%lx): unresolvable relocation against symbol `%s'"),
1603 input_bfd,
1604 input_section, (long) rel->r_offset, h->root.root.string);
1605 return FALSE;
1606 }
1607
1608 if (r != bfd_reloc_ok)
1609 {
1610 const char *name;
1611
1612 if (h != NULL)
1613 name = h->root.root.string;
1614 else
1615 {
1616 name = bfd_elf_string_from_elf_section (input_bfd,
1617 symtab_hdr->sh_link,
1618 sym->st_name);
1619 if (name == NULL)
1620 return FALSE;
1621 if (*name == '\0')
1622 name = bfd_section_name (input_bfd, sec);
1623 }
1624
1625 if (r == bfd_reloc_overflow)
1626 {
1627 if (!(info->callbacks->reloc_overflow
1628 (info, (h ? &h->root : NULL), name, howto->name,
1629 (bfd_vma) 0, input_bfd, input_section, rel->r_offset)))
1630 return FALSE;
1631 }
1632 else
1633 {
1634 (*_bfd_error_handler)
1635 (_("%B(%A+0x%lx): reloc against `%s': error %d"),
1636 input_bfd, input_section,
1637 (long) rel->r_offset, name, (int) r);
1638 return FALSE;
1639 }
1640 }
1641 }
1642
1643 return TRUE;
1644 }
1645
1646 static asection *
1647 bfin_gc_mark_hook (asection * sec,
1648 struct bfd_link_info *info,
1649 Elf_Internal_Rela * rel,
1650 struct elf_link_hash_entry *h,
1651 Elf_Internal_Sym * sym)
1652 {
1653 if (h != NULL)
1654 switch (ELF32_R_TYPE (rel->r_info))
1655 {
1656 case R_BFIN_GNU_VTINHERIT:
1657 case R_BFIN_GNU_VTENTRY:
1658 return NULL;
1659 }
1660
1661 return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
1662 }
1663
1664 /* Update the got entry reference counts for the section being removed. */
1665
1666 static bfd_boolean
1667 bfin_gc_sweep_hook (bfd * abfd,
1668 struct bfd_link_info *info,
1669 asection * sec,
1670 const Elf_Internal_Rela * relocs)
1671 {
1672 Elf_Internal_Shdr *symtab_hdr;
1673 struct elf_link_hash_entry **sym_hashes;
1674 bfd_signed_vma *local_got_refcounts;
1675 const Elf_Internal_Rela *rel, *relend;
1676 bfd *dynobj;
1677 asection *sgot;
1678 asection *srelgot;
1679
1680 dynobj = elf_hash_table (info)->dynobj;
1681 if (dynobj == NULL)
1682 return TRUE;
1683
1684 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1685 sym_hashes = elf_sym_hashes (abfd);
1686 local_got_refcounts = elf_local_got_refcounts (abfd);
1687
1688 sgot = bfd_get_linker_section (dynobj, ".got");
1689 srelgot = bfd_get_linker_section (dynobj, ".rela.got");
1690
1691 relend = relocs + sec->reloc_count;
1692 for (rel = relocs; rel < relend; rel++)
1693 {
1694 unsigned long r_symndx;
1695 struct elf_link_hash_entry *h;
1696
1697 switch (ELF32_R_TYPE (rel->r_info))
1698 {
1699 case R_BFIN_GOT:
1700 r_symndx = ELF32_R_SYM (rel->r_info);
1701 if (r_symndx >= symtab_hdr->sh_info)
1702 {
1703 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
1704 if (h->got.refcount > 0)
1705 {
1706 --h->got.refcount;
1707 if (h->got.refcount == 0)
1708 {
1709 /* We don't need the .got entry any more. */
1710 sgot->size -= 4;
1711 srelgot->size -= sizeof (Elf32_External_Rela);
1712 }
1713 }
1714 }
1715 else if (local_got_refcounts != NULL)
1716 {
1717 if (local_got_refcounts[r_symndx] > 0)
1718 {
1719 --local_got_refcounts[r_symndx];
1720 if (local_got_refcounts[r_symndx] == 0)
1721 {
1722 /* We don't need the .got entry any more. */
1723 sgot->size -= 4;
1724 if (bfd_link_pic (info))
1725 srelgot->size -= sizeof (Elf32_External_Rela);
1726 }
1727 }
1728 }
1729 break;
1730 default:
1731 break;
1732 }
1733 }
1734 return TRUE;
1735 }
1736 \f
1737 extern const bfd_target bfin_elf32_fdpic_vec;
1738 #define IS_FDPIC(bfd) ((bfd)->xvec == &bfin_elf32_fdpic_vec)
1739
1740 /* An extension of the elf hash table data structure,
1741 containing some additional Blackfin-specific data. */
1742 struct bfinfdpic_elf_link_hash_table
1743 {
1744 struct elf_link_hash_table elf;
1745
1746 /* A pointer to the .got section. */
1747 asection *sgot;
1748 /* A pointer to the .rel.got section. */
1749 asection *sgotrel;
1750 /* A pointer to the .rofixup section. */
1751 asection *sgotfixup;
1752 /* A pointer to the .plt section. */
1753 asection *splt;
1754 /* A pointer to the .rel.plt section. */
1755 asection *spltrel;
1756 /* GOT base offset. */
1757 bfd_vma got0;
1758 /* Location of the first non-lazy PLT entry, i.e., the number of
1759 bytes taken by lazy PLT entries. */
1760 bfd_vma plt0;
1761 /* A hash table holding information about which symbols were
1762 referenced with which PIC-related relocations. */
1763 struct htab *relocs_info;
1764 /* Summary reloc information collected by
1765 _bfinfdpic_count_got_plt_entries. */
1766 struct _bfinfdpic_dynamic_got_info *g;
1767 };
1768
1769 /* Get the Blackfin ELF linker hash table from a link_info structure. */
1770
1771 #define bfinfdpic_hash_table(info) \
1772 (elf_hash_table_id ((struct elf_link_hash_table *) ((info)->hash)) \
1773 == BFIN_ELF_DATA ? ((struct bfinfdpic_elf_link_hash_table *) ((info)->hash)) : NULL)
1774
1775 #define bfinfdpic_got_section(info) \
1776 (bfinfdpic_hash_table (info)->sgot)
1777 #define bfinfdpic_gotrel_section(info) \
1778 (bfinfdpic_hash_table (info)->sgotrel)
1779 #define bfinfdpic_gotfixup_section(info) \
1780 (bfinfdpic_hash_table (info)->sgotfixup)
1781 #define bfinfdpic_plt_section(info) \
1782 (bfinfdpic_hash_table (info)->splt)
1783 #define bfinfdpic_pltrel_section(info) \
1784 (bfinfdpic_hash_table (info)->spltrel)
1785 #define bfinfdpic_relocs_info(info) \
1786 (bfinfdpic_hash_table (info)->relocs_info)
1787 #define bfinfdpic_got_initial_offset(info) \
1788 (bfinfdpic_hash_table (info)->got0)
1789 #define bfinfdpic_plt_initial_offset(info) \
1790 (bfinfdpic_hash_table (info)->plt0)
1791 #define bfinfdpic_dynamic_got_plt_info(info) \
1792 (bfinfdpic_hash_table (info)->g)
1793
1794 /* The name of the dynamic interpreter. This is put in the .interp
1795 section. */
1796
1797 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
1798
1799 #define DEFAULT_STACK_SIZE 0x20000
1800
1801 /* This structure is used to collect the number of entries present in
1802 each addressable range of the got. */
1803 struct _bfinfdpic_dynamic_got_info
1804 {
1805 /* Several bits of information about the current link. */
1806 struct bfd_link_info *info;
1807 /* Total size needed for GOT entries within the 18- or 32-bit
1808 ranges. */
1809 bfd_vma got17m4, gothilo;
1810 /* Total size needed for function descriptor entries within the 18-
1811 or 32-bit ranges. */
1812 bfd_vma fd17m4, fdhilo;
1813 /* Total size needed function descriptor entries referenced in PLT
1814 entries, that would be profitable to place in offsets close to
1815 the PIC register. */
1816 bfd_vma fdplt;
1817 /* Total size needed by lazy PLT entries. */
1818 bfd_vma lzplt;
1819 /* Number of relocations carried over from input object files. */
1820 unsigned long relocs;
1821 /* Number of fixups introduced by relocations in input object files. */
1822 unsigned long fixups;
1823 };
1824
1825 /* Create a Blackfin ELF linker hash table. */
1826
1827 static struct bfd_link_hash_table *
1828 bfinfdpic_elf_link_hash_table_create (bfd *abfd)
1829 {
1830 struct bfinfdpic_elf_link_hash_table *ret;
1831 bfd_size_type amt = sizeof (struct bfinfdpic_elf_link_hash_table);
1832
1833 ret = bfd_zmalloc (amt);
1834 if (ret == NULL)
1835 return NULL;
1836
1837 if (!_bfd_elf_link_hash_table_init (&ret->elf, abfd,
1838 _bfd_elf_link_hash_newfunc,
1839 sizeof (struct elf_link_hash_entry),
1840 BFIN_ELF_DATA))
1841 {
1842 free (ret);
1843 return NULL;
1844 }
1845
1846 return &ret->elf.root;
1847 }
1848
1849 /* Decide whether a reference to a symbol can be resolved locally or
1850 not. If the symbol is protected, we want the local address, but
1851 its function descriptor must be assigned by the dynamic linker. */
1852 #define BFINFDPIC_SYM_LOCAL(INFO, H) \
1853 (_bfd_elf_symbol_refs_local_p ((H), (INFO), 1) \
1854 || ! elf_hash_table (INFO)->dynamic_sections_created)
1855 #define BFINFDPIC_FUNCDESC_LOCAL(INFO, H) \
1856 ((H)->dynindx == -1 || ! elf_hash_table (INFO)->dynamic_sections_created)
1857
1858 /* This structure collects information on what kind of GOT, PLT or
1859 function descriptors are required by relocations that reference a
1860 certain symbol. */
1861 struct bfinfdpic_relocs_info
1862 {
1863 /* The index of the symbol, as stored in the relocation r_info, if
1864 we have a local symbol; -1 otherwise. */
1865 long symndx;
1866 union
1867 {
1868 /* The input bfd in which the symbol is defined, if it's a local
1869 symbol. */
1870 bfd *abfd;
1871 /* If symndx == -1, the hash table entry corresponding to a global
1872 symbol (even if it turns out to bind locally, in which case it
1873 should ideally be replaced with section's symndx + addend). */
1874 struct elf_link_hash_entry *h;
1875 } d;
1876 /* The addend of the relocation that references the symbol. */
1877 bfd_vma addend;
1878
1879 /* The fields above are used to identify an entry. The fields below
1880 contain information on how an entry is used and, later on, which
1881 locations it was assigned. */
1882 /* The following 2 fields record whether the symbol+addend above was
1883 ever referenced with a GOT relocation. The 17M4 suffix indicates a
1884 GOT17M4 relocation; hilo is used for GOTLO/GOTHI pairs. */
1885 unsigned got17m4;
1886 unsigned gothilo;
1887 /* Whether a FUNCDESC relocation references symbol+addend. */
1888 unsigned fd;
1889 /* Whether a FUNCDESC_GOT relocation references symbol+addend. */
1890 unsigned fdgot17m4;
1891 unsigned fdgothilo;
1892 /* Whether a FUNCDESC_GOTOFF relocation references symbol+addend. */
1893 unsigned fdgoff17m4;
1894 unsigned fdgoffhilo;
1895 /* Whether symbol+addend is referenced with GOTOFF17M4, GOTOFFLO or
1896 GOTOFFHI relocations. The addend doesn't really matter, since we
1897 envision that this will only be used to check whether the symbol
1898 is mapped to the same segment as the got. */
1899 unsigned gotoff;
1900 /* Whether symbol+addend is referenced by a LABEL24 relocation. */
1901 unsigned call;
1902 /* Whether symbol+addend is referenced by a 32 or FUNCDESC_VALUE
1903 relocation. */
1904 unsigned sym;
1905 /* Whether we need a PLT entry for a symbol. Should be implied by
1906 something like:
1907 (call && symndx == -1 && ! BFINFDPIC_SYM_LOCAL (info, d.h)) */
1908 unsigned plt:1;
1909 /* Whether a function descriptor should be created in this link unit
1910 for symbol+addend. Should be implied by something like:
1911 (plt || fdgotoff17m4 || fdgotofflohi
1912 || ((fd || fdgot17m4 || fdgothilo)
1913 && (symndx != -1 || BFINFDPIC_FUNCDESC_LOCAL (info, d.h)))) */
1914 unsigned privfd:1;
1915 /* Whether a lazy PLT entry is needed for this symbol+addend.
1916 Should be implied by something like:
1917 (privfd && symndx == -1 && ! BFINFDPIC_SYM_LOCAL (info, d.h)
1918 && ! (info->flags & DF_BIND_NOW)) */
1919 unsigned lazyplt:1;
1920 /* Whether we've already emitted GOT relocations and PLT entries as
1921 needed for this symbol. */
1922 unsigned done:1;
1923
1924 /* The number of R_BFIN_BYTE4_DATA, R_BFIN_FUNCDESC and R_BFIN_FUNCDESC_VALUE
1925 relocations referencing the symbol. */
1926 unsigned relocs32, relocsfd, relocsfdv;
1927
1928 /* The number of .rofixups entries and dynamic relocations allocated
1929 for this symbol, minus any that might have already been used. */
1930 unsigned fixups, dynrelocs;
1931
1932 /* The offsets of the GOT entries assigned to symbol+addend, to the
1933 function descriptor's address, and to a function descriptor,
1934 respectively. Should be zero if unassigned. The offsets are
1935 counted from the value that will be assigned to the PIC register,
1936 not from the beginning of the .got section. */
1937 bfd_signed_vma got_entry, fdgot_entry, fd_entry;
1938 /* The offsets of the PLT entries assigned to symbol+addend,
1939 non-lazy and lazy, respectively. If unassigned, should be
1940 (bfd_vma)-1. */
1941 bfd_vma plt_entry, lzplt_entry;
1942 };
1943
1944 /* Compute a hash with the key fields of an bfinfdpic_relocs_info entry. */
1945 static hashval_t
1946 bfinfdpic_relocs_info_hash (const void *entry_)
1947 {
1948 const struct bfinfdpic_relocs_info *entry = entry_;
1949
1950 return (entry->symndx == -1
1951 ? (long) entry->d.h->root.root.hash
1952 : entry->symndx + (long) entry->d.abfd->id * 257) + entry->addend;
1953 }
1954
1955 /* Test whether the key fields of two bfinfdpic_relocs_info entries are
1956 identical. */
1957 static int
1958 bfinfdpic_relocs_info_eq (const void *entry1, const void *entry2)
1959 {
1960 const struct bfinfdpic_relocs_info *e1 = entry1;
1961 const struct bfinfdpic_relocs_info *e2 = entry2;
1962
1963 return e1->symndx == e2->symndx && e1->addend == e2->addend
1964 && (e1->symndx == -1 ? e1->d.h == e2->d.h : e1->d.abfd == e2->d.abfd);
1965 }
1966
1967 /* Find or create an entry in a hash table HT that matches the key
1968 fields of the given ENTRY. If it's not found, memory for a new
1969 entry is allocated in ABFD's obstack. */
1970 static struct bfinfdpic_relocs_info *
1971 bfinfdpic_relocs_info_find (struct htab *ht,
1972 bfd *abfd,
1973 const struct bfinfdpic_relocs_info *entry,
1974 enum insert_option insert)
1975 {
1976 struct bfinfdpic_relocs_info **loc;
1977
1978 if (!ht)
1979 return NULL;
1980
1981 loc = (struct bfinfdpic_relocs_info **) htab_find_slot (ht, entry, insert);
1982
1983 if (! loc)
1984 return NULL;
1985
1986 if (*loc)
1987 return *loc;
1988
1989 *loc = bfd_zalloc (abfd, sizeof (**loc));
1990
1991 if (! *loc)
1992 return *loc;
1993
1994 (*loc)->symndx = entry->symndx;
1995 (*loc)->d = entry->d;
1996 (*loc)->addend = entry->addend;
1997 (*loc)->plt_entry = (bfd_vma)-1;
1998 (*loc)->lzplt_entry = (bfd_vma)-1;
1999
2000 return *loc;
2001 }
2002
2003 /* Obtain the address of the entry in HT associated with H's symbol +
2004 addend, creating a new entry if none existed. ABFD is only used
2005 for memory allocation purposes. */
2006 inline static struct bfinfdpic_relocs_info *
2007 bfinfdpic_relocs_info_for_global (struct htab *ht,
2008 bfd *abfd,
2009 struct elf_link_hash_entry *h,
2010 bfd_vma addend,
2011 enum insert_option insert)
2012 {
2013 struct bfinfdpic_relocs_info entry;
2014
2015 entry.symndx = -1;
2016 entry.d.h = h;
2017 entry.addend = addend;
2018
2019 return bfinfdpic_relocs_info_find (ht, abfd, &entry, insert);
2020 }
2021
2022 /* Obtain the address of the entry in HT associated with the SYMNDXth
2023 local symbol of the input bfd ABFD, plus the addend, creating a new
2024 entry if none existed. */
2025 inline static struct bfinfdpic_relocs_info *
2026 bfinfdpic_relocs_info_for_local (struct htab *ht,
2027 bfd *abfd,
2028 long symndx,
2029 bfd_vma addend,
2030 enum insert_option insert)
2031 {
2032 struct bfinfdpic_relocs_info entry;
2033
2034 entry.symndx = symndx;
2035 entry.d.abfd = abfd;
2036 entry.addend = addend;
2037
2038 return bfinfdpic_relocs_info_find (ht, abfd, &entry, insert);
2039 }
2040
2041 /* Merge fields set by check_relocs() of two entries that end up being
2042 mapped to the same (presumably global) symbol. */
2043
2044 inline static void
2045 bfinfdpic_pic_merge_early_relocs_info (struct bfinfdpic_relocs_info *e2,
2046 struct bfinfdpic_relocs_info const *e1)
2047 {
2048 e2->got17m4 |= e1->got17m4;
2049 e2->gothilo |= e1->gothilo;
2050 e2->fd |= e1->fd;
2051 e2->fdgot17m4 |= e1->fdgot17m4;
2052 e2->fdgothilo |= e1->fdgothilo;
2053 e2->fdgoff17m4 |= e1->fdgoff17m4;
2054 e2->fdgoffhilo |= e1->fdgoffhilo;
2055 e2->gotoff |= e1->gotoff;
2056 e2->call |= e1->call;
2057 e2->sym |= e1->sym;
2058 }
2059
2060 /* Every block of 65535 lazy PLT entries shares a single call to the
2061 resolver, inserted in the 32768th lazy PLT entry (i.e., entry #
2062 32767, counting from 0). All other lazy PLT entries branch to it
2063 in a single instruction. */
2064
2065 #define LZPLT_RESOLVER_EXTRA 10
2066 #define LZPLT_NORMAL_SIZE 6
2067 #define LZPLT_ENTRIES 1362
2068
2069 #define BFINFDPIC_LZPLT_BLOCK_SIZE ((bfd_vma) LZPLT_NORMAL_SIZE * LZPLT_ENTRIES + LZPLT_RESOLVER_EXTRA)
2070 #define BFINFDPIC_LZPLT_RESOLV_LOC (LZPLT_NORMAL_SIZE * LZPLT_ENTRIES / 2)
2071
2072 /* Add a dynamic relocation to the SRELOC section. */
2073
2074 inline static bfd_vma
2075 _bfinfdpic_add_dyn_reloc (bfd *output_bfd, asection *sreloc, bfd_vma offset,
2076 int reloc_type, long dynindx, bfd_vma addend,
2077 struct bfinfdpic_relocs_info *entry)
2078 {
2079 Elf_Internal_Rela outrel;
2080 bfd_vma reloc_offset;
2081
2082 outrel.r_offset = offset;
2083 outrel.r_info = ELF32_R_INFO (dynindx, reloc_type);
2084 outrel.r_addend = addend;
2085
2086 reloc_offset = sreloc->reloc_count * sizeof (Elf32_External_Rel);
2087 BFD_ASSERT (reloc_offset < sreloc->size);
2088 bfd_elf32_swap_reloc_out (output_bfd, &outrel,
2089 sreloc->contents + reloc_offset);
2090 sreloc->reloc_count++;
2091
2092 /* If the entry's index is zero, this relocation was probably to a
2093 linkonce section that got discarded. We reserved a dynamic
2094 relocation, but it was for another entry than the one we got at
2095 the time of emitting the relocation. Unfortunately there's no
2096 simple way for us to catch this situation, since the relocation
2097 is cleared right before calling relocate_section, at which point
2098 we no longer know what the relocation used to point to. */
2099 if (entry->symndx)
2100 {
2101 BFD_ASSERT (entry->dynrelocs > 0);
2102 entry->dynrelocs--;
2103 }
2104
2105 return reloc_offset;
2106 }
2107
2108 /* Add a fixup to the ROFIXUP section. */
2109
2110 static bfd_vma
2111 _bfinfdpic_add_rofixup (bfd *output_bfd, asection *rofixup, bfd_vma offset,
2112 struct bfinfdpic_relocs_info *entry)
2113 {
2114 bfd_vma fixup_offset;
2115
2116 if (rofixup->flags & SEC_EXCLUDE)
2117 return -1;
2118
2119 fixup_offset = rofixup->reloc_count * 4;
2120 if (rofixup->contents)
2121 {
2122 BFD_ASSERT (fixup_offset < rofixup->size);
2123 bfd_put_32 (output_bfd, offset, rofixup->contents + fixup_offset);
2124 }
2125 rofixup->reloc_count++;
2126
2127 if (entry && entry->symndx)
2128 {
2129 /* See discussion about symndx == 0 in _bfinfdpic_add_dyn_reloc
2130 above. */
2131 BFD_ASSERT (entry->fixups > 0);
2132 entry->fixups--;
2133 }
2134
2135 return fixup_offset;
2136 }
2137
2138 /* Find the segment number in which OSEC, and output section, is
2139 located. */
2140
2141 static unsigned
2142 _bfinfdpic_osec_to_segment (bfd *output_bfd, asection *osec)
2143 {
2144 Elf_Internal_Phdr *p = _bfd_elf_find_segment_containing_section (output_bfd, osec);
2145
2146 return (p != NULL) ? p - elf_tdata (output_bfd)->phdr : -1;
2147 }
2148
2149 inline static bfd_boolean
2150 _bfinfdpic_osec_readonly_p (bfd *output_bfd, asection *osec)
2151 {
2152 unsigned seg = _bfinfdpic_osec_to_segment (output_bfd, osec);
2153
2154 return ! (elf_tdata (output_bfd)->phdr[seg].p_flags & PF_W);
2155 }
2156
2157 /* Generate relocations for GOT entries, function descriptors, and
2158 code for PLT and lazy PLT entries. */
2159
2160 inline static bfd_boolean
2161 _bfinfdpic_emit_got_relocs_plt_entries (struct bfinfdpic_relocs_info *entry,
2162 bfd *output_bfd,
2163 struct bfd_link_info *info,
2164 asection *sec,
2165 Elf_Internal_Sym *sym,
2166 bfd_vma addend)
2167 {
2168 bfd_vma fd_lazy_rel_offset = (bfd_vma) -1;
2169 int dynindx = -1;
2170
2171 if (entry->done)
2172 return TRUE;
2173 entry->done = 1;
2174
2175 if (entry->got_entry || entry->fdgot_entry || entry->fd_entry)
2176 {
2177 /* If the symbol is dynamic, consider it for dynamic
2178 relocations, otherwise decay to section + offset. */
2179 if (entry->symndx == -1 && entry->d.h->dynindx != -1)
2180 dynindx = entry->d.h->dynindx;
2181 else
2182 {
2183 if (sec
2184 && sec->output_section
2185 && ! bfd_is_abs_section (sec->output_section)
2186 && ! bfd_is_und_section (sec->output_section))
2187 dynindx = elf_section_data (sec->output_section)->dynindx;
2188 else
2189 dynindx = 0;
2190 }
2191 }
2192
2193 /* Generate relocation for GOT entry pointing to the symbol. */
2194 if (entry->got_entry)
2195 {
2196 int idx = dynindx;
2197 bfd_vma ad = addend;
2198
2199 /* If the symbol is dynamic but binds locally, use
2200 section+offset. */
2201 if (sec && (entry->symndx != -1
2202 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2203 {
2204 if (entry->symndx == -1)
2205 ad += entry->d.h->root.u.def.value;
2206 else
2207 ad += sym->st_value;
2208 ad += sec->output_offset;
2209 if (sec->output_section && elf_section_data (sec->output_section))
2210 idx = elf_section_data (sec->output_section)->dynindx;
2211 else
2212 idx = 0;
2213 }
2214
2215 /* If we're linking an executable at a fixed address, we can
2216 omit the dynamic relocation as long as the symbol is local to
2217 this module. */
2218 if (bfd_link_executable (info) && !bfd_link_pic (info)
2219 && (entry->symndx != -1
2220 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2221 {
2222 if (sec)
2223 ad += sec->output_section->vma;
2224 if (entry->symndx != -1
2225 || entry->d.h->root.type != bfd_link_hash_undefweak)
2226 _bfinfdpic_add_rofixup (output_bfd,
2227 bfinfdpic_gotfixup_section (info),
2228 bfinfdpic_got_section (info)->output_section
2229 ->vma
2230 + bfinfdpic_got_section (info)->output_offset
2231 + bfinfdpic_got_initial_offset (info)
2232 + entry->got_entry, entry);
2233 }
2234 else
2235 _bfinfdpic_add_dyn_reloc (output_bfd, bfinfdpic_gotrel_section (info),
2236 _bfd_elf_section_offset
2237 (output_bfd, info,
2238 bfinfdpic_got_section (info),
2239 bfinfdpic_got_initial_offset (info)
2240 + entry->got_entry)
2241 + bfinfdpic_got_section (info)
2242 ->output_section->vma
2243 + bfinfdpic_got_section (info)->output_offset,
2244 R_BFIN_BYTE4_DATA, idx, ad, entry);
2245
2246 bfd_put_32 (output_bfd, ad,
2247 bfinfdpic_got_section (info)->contents
2248 + bfinfdpic_got_initial_offset (info)
2249 + entry->got_entry);
2250 }
2251
2252 /* Generate relocation for GOT entry pointing to a canonical
2253 function descriptor. */
2254 if (entry->fdgot_entry)
2255 {
2256 int reloc, idx;
2257 bfd_vma ad = 0;
2258
2259 if (! (entry->symndx == -1
2260 && entry->d.h->root.type == bfd_link_hash_undefweak
2261 && BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2262 {
2263 /* If the symbol is dynamic and there may be dynamic symbol
2264 resolution because we are, or are linked with, a shared
2265 library, emit a FUNCDESC relocation such that the dynamic
2266 linker will allocate the function descriptor. If the
2267 symbol needs a non-local function descriptor but binds
2268 locally (e.g., its visibility is protected, emit a
2269 dynamic relocation decayed to section+offset. */
2270 if (entry->symndx == -1
2271 && ! BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h)
2272 && BFINFDPIC_SYM_LOCAL (info, entry->d.h)
2273 && !(bfd_link_executable (info) && !bfd_link_pic (info)))
2274 {
2275 reloc = R_BFIN_FUNCDESC;
2276 idx = elf_section_data (entry->d.h->root.u.def.section
2277 ->output_section)->dynindx;
2278 ad = entry->d.h->root.u.def.section->output_offset
2279 + entry->d.h->root.u.def.value;
2280 }
2281 else if (entry->symndx == -1
2282 && ! BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h))
2283 {
2284 reloc = R_BFIN_FUNCDESC;
2285 idx = dynindx;
2286 ad = addend;
2287 if (ad)
2288 return FALSE;
2289 }
2290 else
2291 {
2292 /* Otherwise, we know we have a private function descriptor,
2293 so reference it directly. */
2294 if (elf_hash_table (info)->dynamic_sections_created)
2295 BFD_ASSERT (entry->privfd);
2296 reloc = R_BFIN_BYTE4_DATA;
2297 idx = elf_section_data (bfinfdpic_got_section (info)
2298 ->output_section)->dynindx;
2299 ad = bfinfdpic_got_section (info)->output_offset
2300 + bfinfdpic_got_initial_offset (info) + entry->fd_entry;
2301 }
2302
2303 /* If there is room for dynamic symbol resolution, emit the
2304 dynamic relocation. However, if we're linking an
2305 executable at a fixed location, we won't have emitted a
2306 dynamic symbol entry for the got section, so idx will be
2307 zero, which means we can and should compute the address
2308 of the private descriptor ourselves. */
2309 if (bfd_link_executable (info) && !bfd_link_pic (info)
2310 && (entry->symndx != -1
2311 || BFINFDPIC_FUNCDESC_LOCAL (info, entry->d.h)))
2312 {
2313 ad += bfinfdpic_got_section (info)->output_section->vma;
2314 _bfinfdpic_add_rofixup (output_bfd,
2315 bfinfdpic_gotfixup_section (info),
2316 bfinfdpic_got_section (info)
2317 ->output_section->vma
2318 + bfinfdpic_got_section (info)
2319 ->output_offset
2320 + bfinfdpic_got_initial_offset (info)
2321 + entry->fdgot_entry, entry);
2322 }
2323 else
2324 _bfinfdpic_add_dyn_reloc (output_bfd,
2325 bfinfdpic_gotrel_section (info),
2326 _bfd_elf_section_offset
2327 (output_bfd, info,
2328 bfinfdpic_got_section (info),
2329 bfinfdpic_got_initial_offset (info)
2330 + entry->fdgot_entry)
2331 + bfinfdpic_got_section (info)
2332 ->output_section->vma
2333 + bfinfdpic_got_section (info)
2334 ->output_offset,
2335 reloc, idx, ad, entry);
2336 }
2337
2338 bfd_put_32 (output_bfd, ad,
2339 bfinfdpic_got_section (info)->contents
2340 + bfinfdpic_got_initial_offset (info)
2341 + entry->fdgot_entry);
2342 }
2343
2344 /* Generate relocation to fill in a private function descriptor in
2345 the GOT. */
2346 if (entry->fd_entry)
2347 {
2348 int idx = dynindx;
2349 bfd_vma ad = addend;
2350 bfd_vma ofst;
2351 long lowword, highword;
2352
2353 /* If the symbol is dynamic but binds locally, use
2354 section+offset. */
2355 if (sec && (entry->symndx != -1
2356 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2357 {
2358 if (entry->symndx == -1)
2359 ad += entry->d.h->root.u.def.value;
2360 else
2361 ad += sym->st_value;
2362 ad += sec->output_offset;
2363 if (sec->output_section && elf_section_data (sec->output_section))
2364 idx = elf_section_data (sec->output_section)->dynindx;
2365 else
2366 idx = 0;
2367 }
2368
2369 /* If we're linking an executable at a fixed address, we can
2370 omit the dynamic relocation as long as the symbol is local to
2371 this module. */
2372 if (bfd_link_executable (info) && !bfd_link_pic (info)
2373 && (entry->symndx != -1 || BFINFDPIC_SYM_LOCAL (info, entry->d.h)))
2374 {
2375 if (sec)
2376 ad += sec->output_section->vma;
2377 ofst = 0;
2378 if (entry->symndx != -1
2379 || entry->d.h->root.type != bfd_link_hash_undefweak)
2380 {
2381 _bfinfdpic_add_rofixup (output_bfd,
2382 bfinfdpic_gotfixup_section (info),
2383 bfinfdpic_got_section (info)
2384 ->output_section->vma
2385 + bfinfdpic_got_section (info)
2386 ->output_offset
2387 + bfinfdpic_got_initial_offset (info)
2388 + entry->fd_entry, entry);
2389 _bfinfdpic_add_rofixup (output_bfd,
2390 bfinfdpic_gotfixup_section (info),
2391 bfinfdpic_got_section (info)
2392 ->output_section->vma
2393 + bfinfdpic_got_section (info)
2394 ->output_offset
2395 + bfinfdpic_got_initial_offset (info)
2396 + entry->fd_entry + 4, entry);
2397 }
2398 }
2399 else
2400 {
2401 ofst
2402 = _bfinfdpic_add_dyn_reloc (output_bfd,
2403 entry->lazyplt
2404 ? bfinfdpic_pltrel_section (info)
2405 : bfinfdpic_gotrel_section (info),
2406 _bfd_elf_section_offset
2407 (output_bfd, info,
2408 bfinfdpic_got_section (info),
2409 bfinfdpic_got_initial_offset (info)
2410 + entry->fd_entry)
2411 + bfinfdpic_got_section (info)
2412 ->output_section->vma
2413 + bfinfdpic_got_section (info)
2414 ->output_offset,
2415 R_BFIN_FUNCDESC_VALUE, idx, ad, entry);
2416 }
2417
2418 /* If we've omitted the dynamic relocation, just emit the fixed
2419 addresses of the symbol and of the local GOT base offset. */
2420 if (bfd_link_executable (info)
2421 && !bfd_link_pic (info)
2422 && sec
2423 && sec->output_section)
2424 {
2425 lowword = ad;
2426 highword = bfinfdpic_got_section (info)->output_section->vma
2427 + bfinfdpic_got_section (info)->output_offset
2428 + bfinfdpic_got_initial_offset (info);
2429 }
2430 else if (entry->lazyplt)
2431 {
2432 if (ad)
2433 return FALSE;
2434
2435 fd_lazy_rel_offset = ofst;
2436
2437 /* A function descriptor used for lazy or local resolving is
2438 initialized such that its high word contains the output
2439 section index in which the PLT entries are located, and
2440 the low word contains the address of the lazy PLT entry
2441 entry point, that must be within the memory region
2442 assigned to that section. */
2443 lowword = entry->lzplt_entry + 4
2444 + bfinfdpic_plt_section (info)->output_offset
2445 + bfinfdpic_plt_section (info)->output_section->vma;
2446 highword = _bfinfdpic_osec_to_segment
2447 (output_bfd, bfinfdpic_plt_section (info)->output_section);
2448 }
2449 else
2450 {
2451 /* A function descriptor for a local function gets the index
2452 of the section. For a non-local function, it's
2453 disregarded. */
2454 lowword = ad;
2455 if (sec == NULL
2456 || (entry->symndx == -1 && entry->d.h->dynindx != -1
2457 && entry->d.h->dynindx == idx))
2458 highword = 0;
2459 else
2460 highword = _bfinfdpic_osec_to_segment
2461 (output_bfd, sec->output_section);
2462 }
2463
2464 bfd_put_32 (output_bfd, lowword,
2465 bfinfdpic_got_section (info)->contents
2466 + bfinfdpic_got_initial_offset (info)
2467 + entry->fd_entry);
2468 bfd_put_32 (output_bfd, highword,
2469 bfinfdpic_got_section (info)->contents
2470 + bfinfdpic_got_initial_offset (info)
2471 + entry->fd_entry + 4);
2472 }
2473
2474 /* Generate code for the PLT entry. */
2475 if (entry->plt_entry != (bfd_vma) -1)
2476 {
2477 bfd_byte *plt_code = bfinfdpic_plt_section (info)->contents
2478 + entry->plt_entry;
2479
2480 BFD_ASSERT (entry->fd_entry);
2481
2482 /* Figure out what kind of PLT entry we need, depending on the
2483 location of the function descriptor within the GOT. */
2484 if (entry->fd_entry >= -(1 << (18 - 1))
2485 && entry->fd_entry + 4 < (1 << (18 - 1)))
2486 {
2487 /* P1 = [P3 + fd_entry]; P3 = [P3 + fd_entry + 4] */
2488 bfd_put_32 (output_bfd,
2489 0xe519 | ((entry->fd_entry << 14) & 0xFFFF0000),
2490 plt_code);
2491 bfd_put_32 (output_bfd,
2492 0xe51b | (((entry->fd_entry + 4) << 14) & 0xFFFF0000),
2493 plt_code + 4);
2494 plt_code += 8;
2495 }
2496 else
2497 {
2498 /* P1.L = fd_entry; P1.H = fd_entry;
2499 P3 = P3 + P1;
2500 P1 = [P3];
2501 P3 = [P3 + 4]; */
2502 bfd_put_32 (output_bfd,
2503 0xe109 | (entry->fd_entry << 16),
2504 plt_code);
2505 bfd_put_32 (output_bfd,
2506 0xe149 | (entry->fd_entry & 0xFFFF0000),
2507 plt_code + 4);
2508 bfd_put_16 (output_bfd, 0x5ad9, plt_code + 8);
2509 bfd_put_16 (output_bfd, 0x9159, plt_code + 10);
2510 bfd_put_16 (output_bfd, 0xac5b, plt_code + 12);
2511 plt_code += 14;
2512 }
2513 /* JUMP (P1) */
2514 bfd_put_16 (output_bfd, 0x0051, plt_code);
2515 }
2516
2517 /* Generate code for the lazy PLT entry. */
2518 if (entry->lzplt_entry != (bfd_vma) -1)
2519 {
2520 bfd_byte *lzplt_code = bfinfdpic_plt_section (info)->contents
2521 + entry->lzplt_entry;
2522 bfd_vma resolverStub_addr;
2523
2524 bfd_put_32 (output_bfd, fd_lazy_rel_offset, lzplt_code);
2525 lzplt_code += 4;
2526
2527 resolverStub_addr = entry->lzplt_entry / BFINFDPIC_LZPLT_BLOCK_SIZE
2528 * BFINFDPIC_LZPLT_BLOCK_SIZE + BFINFDPIC_LZPLT_RESOLV_LOC;
2529 if (resolverStub_addr >= bfinfdpic_plt_initial_offset (info))
2530 resolverStub_addr = bfinfdpic_plt_initial_offset (info) - LZPLT_NORMAL_SIZE - LZPLT_RESOLVER_EXTRA;
2531
2532 if (entry->lzplt_entry == resolverStub_addr)
2533 {
2534 /* This is a lazy PLT entry that includes a resolver call.
2535 P2 = [P3];
2536 R3 = [P3 + 4];
2537 JUMP (P2); */
2538 bfd_put_32 (output_bfd,
2539 0xa05b915a,
2540 lzplt_code);
2541 bfd_put_16 (output_bfd, 0x0052, lzplt_code + 4);
2542 }
2543 else
2544 {
2545 /* JUMP.S resolverStub */
2546 bfd_put_16 (output_bfd,
2547 0x2000
2548 | (((resolverStub_addr - entry->lzplt_entry)
2549 / 2) & (((bfd_vma)1 << 12) - 1)),
2550 lzplt_code);
2551 }
2552 }
2553
2554 return TRUE;
2555 }
2556 \f
2557 /* Relocate an Blackfin ELF section.
2558
2559 The RELOCATE_SECTION function is called by the new ELF backend linker
2560 to handle the relocations for a section.
2561
2562 The relocs are always passed as Rela structures; if the section
2563 actually uses Rel structures, the r_addend field will always be
2564 zero.
2565
2566 This function is responsible for adjusting the section contents as
2567 necessary, and (if using Rela relocs and generating a relocatable
2568 output file) adjusting the reloc addend as necessary.
2569
2570 This function does not have to worry about setting the reloc
2571 address or the reloc symbol index.
2572
2573 LOCAL_SYMS is a pointer to the swapped in local symbols.
2574
2575 LOCAL_SECTIONS is an array giving the section in the input file
2576 corresponding to the st_shndx field of each local symbol.
2577
2578 The global hash table entry for the global symbols can be found
2579 via elf_sym_hashes (input_bfd).
2580
2581 When generating relocatable output, this function must handle
2582 STB_LOCAL/STT_SECTION symbols specially. The output symbol is
2583 going to be the section symbol corresponding to the output
2584 section, which means that the addend must be adjusted
2585 accordingly. */
2586
2587 static bfd_boolean
2588 bfinfdpic_relocate_section (bfd * output_bfd,
2589 struct bfd_link_info *info,
2590 bfd * input_bfd,
2591 asection * input_section,
2592 bfd_byte * contents,
2593 Elf_Internal_Rela * relocs,
2594 Elf_Internal_Sym * local_syms,
2595 asection ** local_sections)
2596 {
2597 Elf_Internal_Shdr *symtab_hdr;
2598 struct elf_link_hash_entry **sym_hashes;
2599 Elf_Internal_Rela *rel;
2600 Elf_Internal_Rela *relend;
2601 unsigned isec_segment, got_segment, plt_segment,
2602 check_segment[2];
2603 int silence_segment_error = !bfd_link_pic (info);
2604
2605 symtab_hdr = & elf_tdata (input_bfd)->symtab_hdr;
2606 sym_hashes = elf_sym_hashes (input_bfd);
2607 relend = relocs + input_section->reloc_count;
2608
2609 isec_segment = _bfinfdpic_osec_to_segment (output_bfd,
2610 input_section->output_section);
2611 if (IS_FDPIC (output_bfd) && bfinfdpic_got_section (info))
2612 got_segment = _bfinfdpic_osec_to_segment (output_bfd,
2613 bfinfdpic_got_section (info)
2614 ->output_section);
2615 else
2616 got_segment = -1;
2617 if (IS_FDPIC (output_bfd) && elf_hash_table (info)->dynamic_sections_created)
2618 plt_segment = _bfinfdpic_osec_to_segment (output_bfd,
2619 bfinfdpic_plt_section (info)
2620 ->output_section);
2621 else
2622 plt_segment = -1;
2623
2624 for (rel = relocs; rel < relend; rel ++)
2625 {
2626 reloc_howto_type *howto;
2627 unsigned long r_symndx;
2628 Elf_Internal_Sym *sym;
2629 asection *sec;
2630 struct elf_link_hash_entry *h;
2631 bfd_vma relocation;
2632 bfd_reloc_status_type r;
2633 const char * name = NULL;
2634 int r_type;
2635 asection *osec;
2636 struct bfinfdpic_relocs_info *picrel;
2637 bfd_vma orig_addend = rel->r_addend;
2638
2639 r_type = ELF32_R_TYPE (rel->r_info);
2640
2641 if (r_type == R_BFIN_GNU_VTINHERIT
2642 || r_type == R_BFIN_GNU_VTENTRY)
2643 continue;
2644
2645 r_symndx = ELF32_R_SYM (rel->r_info);
2646 howto = bfin_reloc_type_lookup (input_bfd, r_type);
2647 if (howto == NULL)
2648 {
2649 bfd_set_error (bfd_error_bad_value);
2650 return FALSE;
2651 }
2652
2653 h = NULL;
2654 sym = NULL;
2655 sec = NULL;
2656
2657 if (r_symndx < symtab_hdr->sh_info)
2658 {
2659 sym = local_syms + r_symndx;
2660 osec = sec = local_sections [r_symndx];
2661 relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
2662
2663 name = bfd_elf_string_from_elf_section
2664 (input_bfd, symtab_hdr->sh_link, sym->st_name);
2665 name = (name == NULL) ? bfd_section_name (input_bfd, sec) : name;
2666 }
2667 else
2668 {
2669 bfd_boolean warned, ignored;
2670 bfd_boolean unresolved_reloc;
2671
2672 RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
2673 r_symndx, symtab_hdr, sym_hashes,
2674 h, sec, relocation,
2675 unresolved_reloc, warned, ignored);
2676 osec = sec;
2677 }
2678
2679 if (sec != NULL && discarded_section (sec))
2680 RELOC_AGAINST_DISCARDED_SECTION (info, input_bfd, input_section,
2681 rel, 1, relend, howto, 0, contents);
2682
2683 if (bfd_link_relocatable (info))
2684 continue;
2685
2686 if (h != NULL
2687 && (h->root.type == bfd_link_hash_defined
2688 || h->root.type == bfd_link_hash_defweak)
2689 && !BFINFDPIC_SYM_LOCAL (info, h))
2690 {
2691 osec = sec = NULL;
2692 relocation = 0;
2693 }
2694
2695 switch (r_type)
2696 {
2697 case R_BFIN_PCREL24:
2698 case R_BFIN_PCREL24_JUMP_L:
2699 case R_BFIN_BYTE4_DATA:
2700 if (! IS_FDPIC (output_bfd))
2701 goto non_fdpic;
2702
2703 case R_BFIN_GOT17M4:
2704 case R_BFIN_GOTHI:
2705 case R_BFIN_GOTLO:
2706 case R_BFIN_FUNCDESC_GOT17M4:
2707 case R_BFIN_FUNCDESC_GOTHI:
2708 case R_BFIN_FUNCDESC_GOTLO:
2709 case R_BFIN_GOTOFF17M4:
2710 case R_BFIN_GOTOFFHI:
2711 case R_BFIN_GOTOFFLO:
2712 case R_BFIN_FUNCDESC_GOTOFF17M4:
2713 case R_BFIN_FUNCDESC_GOTOFFHI:
2714 case R_BFIN_FUNCDESC_GOTOFFLO:
2715 case R_BFIN_FUNCDESC:
2716 case R_BFIN_FUNCDESC_VALUE:
2717 if (h != NULL)
2718 picrel = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info
2719 (info), input_bfd, h,
2720 orig_addend, INSERT);
2721 else
2722 /* In order to find the entry we created before, we must
2723 use the original addend, not the one that may have been
2724 modified by _bfd_elf_rela_local_sym(). */
2725 picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
2726 (info), input_bfd, r_symndx,
2727 orig_addend, INSERT);
2728 if (! picrel)
2729 return FALSE;
2730
2731 if (!_bfinfdpic_emit_got_relocs_plt_entries (picrel, output_bfd, info,
2732 osec, sym,
2733 rel->r_addend))
2734 {
2735 (*_bfd_error_handler)
2736 (_("%B: relocation at `%A+0x%x' references symbol `%s' with nonzero addend"),
2737 input_bfd, input_section, rel->r_offset, name);
2738 return FALSE;
2739
2740 }
2741
2742 break;
2743
2744 default:
2745 non_fdpic:
2746 picrel = NULL;
2747 if (h && ! BFINFDPIC_SYM_LOCAL (info, h)
2748 && _bfd_elf_section_offset (output_bfd, info, input_section,
2749 rel->r_offset) != (bfd_vma) -1)
2750 {
2751 info->callbacks->warning
2752 (info, _("relocation references symbol not defined in the module"),
2753 name, input_bfd, input_section, rel->r_offset);
2754 return FALSE;
2755 }
2756 break;
2757 }
2758
2759 switch (r_type)
2760 {
2761 case R_BFIN_PCREL24:
2762 case R_BFIN_PCREL24_JUMP_L:
2763 check_segment[0] = isec_segment;
2764 if (! IS_FDPIC (output_bfd))
2765 check_segment[1] = isec_segment;
2766 else if (picrel->plt)
2767 {
2768 relocation = bfinfdpic_plt_section (info)->output_section->vma
2769 + bfinfdpic_plt_section (info)->output_offset
2770 + picrel->plt_entry;
2771 check_segment[1] = plt_segment;
2772 }
2773 /* We don't want to warn on calls to undefined weak symbols,
2774 as calls to them must be protected by non-NULL tests
2775 anyway, and unprotected calls would invoke undefined
2776 behavior. */
2777 else if (picrel->symndx == -1
2778 && picrel->d.h->root.type == bfd_link_hash_undefweak)
2779 check_segment[1] = check_segment[0];
2780 else
2781 check_segment[1] = sec
2782 ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
2783 : (unsigned)-1;
2784 break;
2785
2786 case R_BFIN_GOT17M4:
2787 case R_BFIN_GOTHI:
2788 case R_BFIN_GOTLO:
2789 relocation = picrel->got_entry;
2790 check_segment[0] = check_segment[1] = got_segment;
2791 break;
2792
2793 case R_BFIN_FUNCDESC_GOT17M4:
2794 case R_BFIN_FUNCDESC_GOTHI:
2795 case R_BFIN_FUNCDESC_GOTLO:
2796 relocation = picrel->fdgot_entry;
2797 check_segment[0] = check_segment[1] = got_segment;
2798 break;
2799
2800 case R_BFIN_GOTOFFHI:
2801 case R_BFIN_GOTOFF17M4:
2802 case R_BFIN_GOTOFFLO:
2803 relocation -= bfinfdpic_got_section (info)->output_section->vma
2804 + bfinfdpic_got_section (info)->output_offset
2805 + bfinfdpic_got_initial_offset (info);
2806 check_segment[0] = got_segment;
2807 check_segment[1] = sec
2808 ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
2809 : (unsigned)-1;
2810 break;
2811
2812 case R_BFIN_FUNCDESC_GOTOFF17M4:
2813 case R_BFIN_FUNCDESC_GOTOFFHI:
2814 case R_BFIN_FUNCDESC_GOTOFFLO:
2815 relocation = picrel->fd_entry;
2816 check_segment[0] = check_segment[1] = got_segment;
2817 break;
2818
2819 case R_BFIN_FUNCDESC:
2820 {
2821 int dynindx;
2822 bfd_vma addend = rel->r_addend;
2823
2824 if (! (h && h->root.type == bfd_link_hash_undefweak
2825 && BFINFDPIC_SYM_LOCAL (info, h)))
2826 {
2827 /* If the symbol is dynamic and there may be dynamic
2828 symbol resolution because we are or are linked with a
2829 shared library, emit a FUNCDESC relocation such that
2830 the dynamic linker will allocate the function
2831 descriptor. If the symbol needs a non-local function
2832 descriptor but binds locally (e.g., its visibility is
2833 protected, emit a dynamic relocation decayed to
2834 section+offset. */
2835 if (h && ! BFINFDPIC_FUNCDESC_LOCAL (info, h)
2836 && BFINFDPIC_SYM_LOCAL (info, h)
2837 && !(bfd_link_executable (info)
2838 && !bfd_link_pic (info)))
2839 {
2840 dynindx = elf_section_data (h->root.u.def.section
2841 ->output_section)->dynindx;
2842 addend += h->root.u.def.section->output_offset
2843 + h->root.u.def.value;
2844 }
2845 else if (h && ! BFINFDPIC_FUNCDESC_LOCAL (info, h))
2846 {
2847 if (addend)
2848 {
2849 info->callbacks->warning
2850 (info, _("R_BFIN_FUNCDESC references dynamic symbol with nonzero addend"),
2851 name, input_bfd, input_section, rel->r_offset);
2852 return FALSE;
2853 }
2854 dynindx = h->dynindx;
2855 }
2856 else
2857 {
2858 /* Otherwise, we know we have a private function
2859 descriptor, so reference it directly. */
2860 BFD_ASSERT (picrel->privfd);
2861 r_type = R_BFIN_BYTE4_DATA;
2862 dynindx = elf_section_data (bfinfdpic_got_section (info)
2863 ->output_section)->dynindx;
2864 addend = bfinfdpic_got_section (info)->output_offset
2865 + bfinfdpic_got_initial_offset (info)
2866 + picrel->fd_entry;
2867 }
2868
2869 /* If there is room for dynamic symbol resolution, emit
2870 the dynamic relocation. However, if we're linking an
2871 executable at a fixed location, we won't have emitted a
2872 dynamic symbol entry for the got section, so idx will
2873 be zero, which means we can and should compute the
2874 address of the private descriptor ourselves. */
2875 if (bfd_link_executable (info) && !bfd_link_pic (info)
2876 && (!h || BFINFDPIC_FUNCDESC_LOCAL (info, h)))
2877 {
2878 bfd_vma offset;
2879
2880 addend += bfinfdpic_got_section (info)->output_section->vma;
2881 if ((bfd_get_section_flags (output_bfd,
2882 input_section->output_section)
2883 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2884 {
2885 if (_bfinfdpic_osec_readonly_p (output_bfd,
2886 input_section
2887 ->output_section))
2888 {
2889 info->callbacks->warning
2890 (info,
2891 _("cannot emit fixups in read-only section"),
2892 name, input_bfd, input_section, rel->r_offset);
2893 return FALSE;
2894 }
2895
2896 offset = _bfd_elf_section_offset
2897 (output_bfd, info,
2898 input_section, rel->r_offset);
2899
2900 if (offset != (bfd_vma)-1)
2901 _bfinfdpic_add_rofixup (output_bfd,
2902 bfinfdpic_gotfixup_section
2903 (info),
2904 offset + input_section
2905 ->output_section->vma
2906 + input_section->output_offset,
2907 picrel);
2908 }
2909 }
2910 else if ((bfd_get_section_flags (output_bfd,
2911 input_section->output_section)
2912 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
2913 {
2914 bfd_vma offset;
2915
2916 if (_bfinfdpic_osec_readonly_p (output_bfd,
2917 input_section
2918 ->output_section))
2919 {
2920 info->callbacks->warning
2921 (info,
2922 _("cannot emit dynamic relocations in read-only section"),
2923 name, input_bfd, input_section, rel->r_offset);
2924 return FALSE;
2925 }
2926 offset = _bfd_elf_section_offset (output_bfd, info,
2927 input_section, rel->r_offset);
2928
2929 if (offset != (bfd_vma)-1)
2930 _bfinfdpic_add_dyn_reloc (output_bfd,
2931 bfinfdpic_gotrel_section (info),
2932 offset + input_section
2933 ->output_section->vma
2934 + input_section->output_offset,
2935 r_type,
2936 dynindx, addend, picrel);
2937 }
2938 else
2939 addend += bfinfdpic_got_section (info)->output_section->vma;
2940 }
2941
2942 /* We want the addend in-place because dynamic
2943 relocations are REL. Setting relocation to it should
2944 arrange for it to be installed. */
2945 relocation = addend - rel->r_addend;
2946 }
2947 check_segment[0] = check_segment[1] = got_segment;
2948 break;
2949
2950 case R_BFIN_BYTE4_DATA:
2951 if (! IS_FDPIC (output_bfd))
2952 {
2953 check_segment[0] = check_segment[1] = -1;
2954 break;
2955 }
2956 /* Fall through. */
2957 case R_BFIN_FUNCDESC_VALUE:
2958 {
2959 int dynindx;
2960 bfd_vma addend = rel->r_addend;
2961 bfd_vma offset;
2962 offset = _bfd_elf_section_offset (output_bfd, info,
2963 input_section, rel->r_offset);
2964
2965 /* If the symbol is dynamic but binds locally, use
2966 section+offset. */
2967 if (h && ! BFINFDPIC_SYM_LOCAL (info, h))
2968 {
2969 if (addend && r_type == R_BFIN_FUNCDESC_VALUE)
2970 {
2971 info->callbacks->warning
2972 (info, _("R_BFIN_FUNCDESC_VALUE references dynamic symbol with nonzero addend"),
2973 name, input_bfd, input_section, rel->r_offset);
2974 return FALSE;
2975 }
2976 dynindx = h->dynindx;
2977 }
2978 else
2979 {
2980 if (h)
2981 addend += h->root.u.def.value;
2982 else
2983 addend += sym->st_value;
2984 if (osec)
2985 addend += osec->output_offset;
2986 if (osec && osec->output_section
2987 && ! bfd_is_abs_section (osec->output_section)
2988 && ! bfd_is_und_section (osec->output_section))
2989 dynindx = elf_section_data (osec->output_section)->dynindx;
2990 else
2991 dynindx = 0;
2992 }
2993
2994 /* If we're linking an executable at a fixed address, we
2995 can omit the dynamic relocation as long as the symbol
2996 is defined in the current link unit (which is implied
2997 by its output section not being NULL). */
2998 if (bfd_link_executable (info) && !bfd_link_pic (info)
2999 && (!h || BFINFDPIC_SYM_LOCAL (info, h)))
3000 {
3001 if (osec)
3002 addend += osec->output_section->vma;
3003 if (IS_FDPIC (input_bfd)
3004 && (bfd_get_section_flags (output_bfd,
3005 input_section->output_section)
3006 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
3007 {
3008 if (_bfinfdpic_osec_readonly_p (output_bfd,
3009 input_section
3010 ->output_section))
3011 {
3012 info->callbacks->warning
3013 (info,
3014 _("cannot emit fixups in read-only section"),
3015 name, input_bfd, input_section, rel->r_offset);
3016 return FALSE;
3017 }
3018 if (!h || h->root.type != bfd_link_hash_undefweak)
3019 {
3020 if (offset != (bfd_vma)-1)
3021 {
3022 _bfinfdpic_add_rofixup (output_bfd,
3023 bfinfdpic_gotfixup_section
3024 (info),
3025 offset + input_section
3026 ->output_section->vma
3027 + input_section->output_offset,
3028 picrel);
3029
3030 if (r_type == R_BFIN_FUNCDESC_VALUE)
3031 _bfinfdpic_add_rofixup
3032 (output_bfd,
3033 bfinfdpic_gotfixup_section (info),
3034 offset + input_section->output_section->vma
3035 + input_section->output_offset + 4, picrel);
3036 }
3037 }
3038 }
3039 }
3040 else
3041 {
3042 if ((bfd_get_section_flags (output_bfd,
3043 input_section->output_section)
3044 & (SEC_ALLOC | SEC_LOAD)) == (SEC_ALLOC | SEC_LOAD))
3045 {
3046 if (_bfinfdpic_osec_readonly_p (output_bfd,
3047 input_section
3048 ->output_section))
3049 {
3050 info->callbacks->warning
3051 (info,
3052 _("cannot emit dynamic relocations in read-only section"),
3053 name, input_bfd, input_section, rel->r_offset);
3054 return FALSE;
3055 }
3056
3057 if (offset != (bfd_vma)-1)
3058 _bfinfdpic_add_dyn_reloc (output_bfd,
3059 bfinfdpic_gotrel_section (info),
3060 offset
3061 + input_section->output_section->vma
3062 + input_section->output_offset,
3063 r_type, dynindx, addend, picrel);
3064 }
3065 else if (osec)
3066 addend += osec->output_section->vma;
3067 /* We want the addend in-place because dynamic
3068 relocations are REL. Setting relocation to it
3069 should arrange for it to be installed. */
3070 relocation = addend - rel->r_addend;
3071 }
3072
3073 if (r_type == R_BFIN_FUNCDESC_VALUE)
3074 {
3075 /* If we've omitted the dynamic relocation, just emit
3076 the fixed addresses of the symbol and of the local
3077 GOT base offset. */
3078 if (bfd_link_executable (info) && !bfd_link_pic (info)
3079 && (!h || BFINFDPIC_SYM_LOCAL (info, h)))
3080 bfd_put_32 (output_bfd,
3081 bfinfdpic_got_section (info)->output_section->vma
3082 + bfinfdpic_got_section (info)->output_offset
3083 + bfinfdpic_got_initial_offset (info),
3084 contents + rel->r_offset + 4);
3085 else
3086 /* A function descriptor used for lazy or local
3087 resolving is initialized such that its high word
3088 contains the output section index in which the
3089 PLT entries are located, and the low word
3090 contains the offset of the lazy PLT entry entry
3091 point into that section. */
3092 bfd_put_32 (output_bfd,
3093 h && ! BFINFDPIC_SYM_LOCAL (info, h)
3094 ? 0
3095 : _bfinfdpic_osec_to_segment (output_bfd,
3096 sec
3097 ->output_section),
3098 contents + rel->r_offset + 4);
3099 }
3100 }
3101 check_segment[0] = check_segment[1] = got_segment;
3102 break;
3103
3104 default:
3105 check_segment[0] = isec_segment;
3106 check_segment[1] = sec
3107 ? _bfinfdpic_osec_to_segment (output_bfd, sec->output_section)
3108 : (unsigned)-1;
3109 break;
3110 }
3111
3112 if (check_segment[0] != check_segment[1] && IS_FDPIC (output_bfd))
3113 {
3114 #if 1 /* If you take this out, remove the #error from fdpic-static-6.d
3115 in the ld testsuite. */
3116 /* This helps catch problems in GCC while we can't do more
3117 than static linking. The idea is to test whether the
3118 input file basename is crt0.o only once. */
3119 if (silence_segment_error == 1)
3120 silence_segment_error =
3121 (strlen (input_bfd->filename) == 6
3122 && filename_cmp (input_bfd->filename, "crt0.o") == 0)
3123 || (strlen (input_bfd->filename) > 6
3124 && filename_cmp (input_bfd->filename
3125 + strlen (input_bfd->filename) - 7,
3126 "/crt0.o") == 0)
3127 ? -1 : 0;
3128 #endif
3129 if (!silence_segment_error
3130 /* We don't want duplicate errors for undefined
3131 symbols. */
3132 && !(picrel && picrel->symndx == -1
3133 && picrel->d.h->root.type == bfd_link_hash_undefined))
3134 info->callbacks->warning
3135 (info,
3136 bfd_link_pic (info)
3137 ? _("relocations between different segments are not supported")
3138 : _("warning: relocation references a different segment"),
3139 name, input_bfd, input_section, rel->r_offset);
3140 if (!silence_segment_error && bfd_link_pic (info))
3141 return FALSE;
3142 elf_elfheader (output_bfd)->e_flags |= EF_BFIN_PIC;
3143 }
3144
3145 switch (r_type)
3146 {
3147 case R_BFIN_GOTOFFHI:
3148 /* We need the addend to be applied before we shift the
3149 value right. */
3150 relocation += rel->r_addend;
3151 /* Fall through. */
3152 case R_BFIN_GOTHI:
3153 case R_BFIN_FUNCDESC_GOTHI:
3154 case R_BFIN_FUNCDESC_GOTOFFHI:
3155 relocation >>= 16;
3156 /* Fall through. */
3157
3158 case R_BFIN_GOTLO:
3159 case R_BFIN_FUNCDESC_GOTLO:
3160 case R_BFIN_GOTOFFLO:
3161 case R_BFIN_FUNCDESC_GOTOFFLO:
3162 relocation &= 0xffff;
3163 break;
3164
3165 default:
3166 break;
3167 }
3168
3169 switch (r_type)
3170 {
3171 case R_BFIN_PCREL24:
3172 case R_BFIN_PCREL24_JUMP_L:
3173 if (! IS_FDPIC (output_bfd) || ! picrel->plt)
3174 break;
3175 /* Fall through. */
3176
3177 /* When referencing a GOT entry, a function descriptor or a
3178 PLT, we don't want the addend to apply to the reference,
3179 but rather to the referenced symbol. The actual entry
3180 will have already been created taking the addend into
3181 account, so cancel it out here. */
3182 case R_BFIN_GOT17M4:
3183 case R_BFIN_GOTHI:
3184 case R_BFIN_GOTLO:
3185 case R_BFIN_FUNCDESC_GOT17M4:
3186 case R_BFIN_FUNCDESC_GOTHI:
3187 case R_BFIN_FUNCDESC_GOTLO:
3188 case R_BFIN_FUNCDESC_GOTOFF17M4:
3189 case R_BFIN_FUNCDESC_GOTOFFHI:
3190 case R_BFIN_FUNCDESC_GOTOFFLO:
3191 /* Note that we only want GOTOFFHI, not GOTOFFLO or GOTOFF17M4
3192 here, since we do want to apply the addend to the others.
3193 Note that we've applied the addend to GOTOFFHI before we
3194 shifted it right. */
3195 case R_BFIN_GOTOFFHI:
3196 relocation -= rel->r_addend;
3197 break;
3198
3199 default:
3200 break;
3201 }
3202
3203 r = bfin_final_link_relocate (rel, howto, input_bfd, input_section,
3204 contents, rel->r_offset,
3205 relocation, rel->r_addend);
3206
3207 if (r != bfd_reloc_ok)
3208 {
3209 const char * msg = (const char *) NULL;
3210
3211 switch (r)
3212 {
3213 case bfd_reloc_overflow:
3214 r = info->callbacks->reloc_overflow
3215 (info, (h ? &h->root : NULL), name, howto->name,
3216 (bfd_vma) 0, input_bfd, input_section, rel->r_offset);
3217 break;
3218
3219 case bfd_reloc_undefined:
3220 r = info->callbacks->undefined_symbol
3221 (info, name, input_bfd, input_section, rel->r_offset, TRUE);
3222 break;
3223
3224 case bfd_reloc_outofrange:
3225 msg = _("internal error: out of range error");
3226 break;
3227
3228 case bfd_reloc_notsupported:
3229 msg = _("internal error: unsupported relocation error");
3230 break;
3231
3232 case bfd_reloc_dangerous:
3233 msg = _("internal error: dangerous relocation");
3234 break;
3235
3236 default:
3237 msg = _("internal error: unknown error");
3238 break;
3239 }
3240
3241 if (msg)
3242 r = info->callbacks->warning
3243 (info, msg, name, input_bfd, input_section, rel->r_offset);
3244
3245 if (! r)
3246 return FALSE;
3247 }
3248 }
3249
3250 return TRUE;
3251 }
3252
3253 /* Update the relocation information for the relocations of the section
3254 being removed. */
3255
3256 static bfd_boolean
3257 bfinfdpic_gc_sweep_hook (bfd *abfd,
3258 struct bfd_link_info *info,
3259 asection *sec,
3260 const Elf_Internal_Rela *relocs)
3261 {
3262 Elf_Internal_Shdr *symtab_hdr;
3263 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
3264 const Elf_Internal_Rela *rel;
3265 const Elf_Internal_Rela *rel_end;
3266 struct bfinfdpic_relocs_info *picrel;
3267
3268 BFD_ASSERT (IS_FDPIC (abfd));
3269
3270 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
3271 sym_hashes = elf_sym_hashes (abfd);
3272 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof(Elf32_External_Sym);
3273 if (!elf_bad_symtab (abfd))
3274 sym_hashes_end -= symtab_hdr->sh_info;
3275
3276 rel_end = relocs + sec->reloc_count;
3277 for (rel = relocs; rel < rel_end; rel++)
3278 {
3279 struct elf_link_hash_entry *h;
3280 unsigned long r_symndx;
3281
3282 r_symndx = ELF32_R_SYM (rel->r_info);
3283 if (r_symndx < symtab_hdr->sh_info)
3284 h = NULL;
3285 else
3286 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
3287
3288 if (h != NULL)
3289 picrel = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info (info),
3290 abfd, h,
3291 rel->r_addend, NO_INSERT);
3292 else
3293 picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
3294 (info), abfd, r_symndx,
3295 rel->r_addend, NO_INSERT);
3296
3297 if (!picrel)
3298 return TRUE;
3299
3300 switch (ELF32_R_TYPE (rel->r_info))
3301 {
3302 case R_BFIN_PCREL24:
3303 case R_BFIN_PCREL24_JUMP_L:
3304 picrel->call--;
3305 break;
3306
3307 case R_BFIN_FUNCDESC_VALUE:
3308 picrel->relocsfdv--;
3309 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
3310 picrel->relocs32++;
3311 /* Fall through. */
3312
3313 case R_BFIN_BYTE4_DATA:
3314 picrel->sym--;
3315 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
3316 picrel->relocs32--;
3317 break;
3318
3319 case R_BFIN_GOT17M4:
3320 picrel->got17m4--;
3321 break;
3322
3323 case R_BFIN_GOTHI:
3324 case R_BFIN_GOTLO:
3325 picrel->gothilo--;
3326 break;
3327
3328 case R_BFIN_FUNCDESC_GOT17M4:
3329 picrel->fdgot17m4--;
3330 break;
3331
3332 case R_BFIN_FUNCDESC_GOTHI:
3333 case R_BFIN_FUNCDESC_GOTLO:
3334 picrel->fdgothilo--;
3335 break;
3336
3337 case R_BFIN_GOTOFF17M4:
3338 case R_BFIN_GOTOFFHI:
3339 case R_BFIN_GOTOFFLO:
3340 picrel->gotoff--;
3341 break;
3342
3343 case R_BFIN_FUNCDESC_GOTOFF17M4:
3344 picrel->fdgoff17m4--;
3345 break;
3346
3347 case R_BFIN_FUNCDESC_GOTOFFHI:
3348 case R_BFIN_FUNCDESC_GOTOFFLO:
3349 picrel->fdgoffhilo--;
3350 break;
3351
3352 case R_BFIN_FUNCDESC:
3353 picrel->fd--;
3354 picrel->relocsfd--;
3355 break;
3356
3357 default:
3358 break;
3359 }
3360 }
3361
3362 return TRUE;
3363 }
3364
3365 /* We need dynamic symbols for every section, since segments can
3366 relocate independently. */
3367 static bfd_boolean
3368 _bfinfdpic_link_omit_section_dynsym (bfd *output_bfd ATTRIBUTE_UNUSED,
3369 struct bfd_link_info *info ATTRIBUTE_UNUSED,
3370 asection *p)
3371 {
3372 switch (elf_section_data (p)->this_hdr.sh_type)
3373 {
3374 case SHT_PROGBITS:
3375 case SHT_NOBITS:
3376 /* If sh_type is yet undecided, assume it could be
3377 SHT_PROGBITS/SHT_NOBITS. */
3378 case SHT_NULL:
3379 return FALSE;
3380
3381 /* There shouldn't be section relative relocations
3382 against any other section. */
3383 default:
3384 return TRUE;
3385 }
3386 }
3387
3388 /* Create a .got section, as well as its additional info field. This
3389 is almost entirely copied from
3390 elflink.c:_bfd_elf_create_got_section(). */
3391
3392 static bfd_boolean
3393 _bfin_create_got_section (bfd *abfd, struct bfd_link_info *info)
3394 {
3395 flagword flags, pltflags;
3396 asection *s;
3397 struct elf_link_hash_entry *h;
3398 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3399 int ptralign;
3400
3401 /* This function may be called more than once. */
3402 s = bfd_get_linker_section (abfd, ".got");
3403 if (s != NULL)
3404 return TRUE;
3405
3406 /* Machine specific: although pointers are 32-bits wide, we want the
3407 GOT to be aligned to a 64-bit boundary, such that function
3408 descriptors in it can be accessed with 64-bit loads and
3409 stores. */
3410 ptralign = 3;
3411
3412 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3413 | SEC_LINKER_CREATED);
3414 pltflags = flags;
3415
3416 s = bfd_make_section_anyway_with_flags (abfd, ".got", flags);
3417 if (s == NULL
3418 || !bfd_set_section_alignment (abfd, s, ptralign))
3419 return FALSE;
3420
3421 if (bed->want_got_plt)
3422 {
3423 s = bfd_make_section_anyway_with_flags (abfd, ".got.plt", flags);
3424 if (s == NULL
3425 || !bfd_set_section_alignment (abfd, s, ptralign))
3426 return FALSE;
3427 }
3428
3429 if (bed->want_got_sym)
3430 {
3431 /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
3432 (or .got.plt) section. We don't do this in the linker script
3433 because we don't want to define the symbol if we are not creating
3434 a global offset table. */
3435 h = _bfd_elf_define_linkage_sym (abfd, info, s, "__GLOBAL_OFFSET_TABLE_");
3436 elf_hash_table (info)->hgot = h;
3437 if (h == NULL)
3438 return FALSE;
3439
3440 /* Machine-specific: we want the symbol for executables as
3441 well. */
3442 if (! bfd_elf_link_record_dynamic_symbol (info, h))
3443 return FALSE;
3444 }
3445
3446 /* The first bit of the global offset table is the header. */
3447 s->size += bed->got_header_size;
3448
3449 /* This is the machine-specific part. Create and initialize section
3450 data for the got. */
3451 if (IS_FDPIC (abfd))
3452 {
3453 bfinfdpic_got_section (info) = s;
3454 bfinfdpic_relocs_info (info) = htab_try_create (1,
3455 bfinfdpic_relocs_info_hash,
3456 bfinfdpic_relocs_info_eq,
3457 (htab_del) NULL);
3458 if (! bfinfdpic_relocs_info (info))
3459 return FALSE;
3460
3461 s = bfd_make_section_anyway_with_flags (abfd, ".rel.got",
3462 (flags | SEC_READONLY));
3463 if (s == NULL
3464 || ! bfd_set_section_alignment (abfd, s, 2))
3465 return FALSE;
3466
3467 bfinfdpic_gotrel_section (info) = s;
3468
3469 /* Machine-specific. */
3470 s = bfd_make_section_anyway_with_flags (abfd, ".rofixup",
3471 (flags | SEC_READONLY));
3472 if (s == NULL
3473 || ! bfd_set_section_alignment (abfd, s, 2))
3474 return FALSE;
3475
3476 bfinfdpic_gotfixup_section (info) = s;
3477 }
3478
3479 pltflags |= SEC_CODE;
3480 if (bed->plt_not_loaded)
3481 pltflags &= ~ (SEC_CODE | SEC_LOAD | SEC_HAS_CONTENTS);
3482 if (bed->plt_readonly)
3483 pltflags |= SEC_READONLY;
3484
3485 s = bfd_make_section_anyway_with_flags (abfd, ".plt", pltflags);
3486 if (s == NULL
3487 || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
3488 return FALSE;
3489 /* Blackfin-specific: remember it. */
3490 bfinfdpic_plt_section (info) = s;
3491
3492 if (bed->want_plt_sym)
3493 {
3494 /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
3495 .plt section. */
3496 struct bfd_link_hash_entry *bh = NULL;
3497
3498 if (! (_bfd_generic_link_add_one_symbol
3499 (info, abfd, "__PROCEDURE_LINKAGE_TABLE_", BSF_GLOBAL, s, 0, NULL,
3500 FALSE, get_elf_backend_data (abfd)->collect, &bh)))
3501 return FALSE;
3502 h = (struct elf_link_hash_entry *) bh;
3503 h->def_regular = 1;
3504 h->type = STT_OBJECT;
3505
3506 if (! bfd_link_executable (info)
3507 && ! bfd_elf_link_record_dynamic_symbol (info, h))
3508 return FALSE;
3509 }
3510
3511 /* Blackfin-specific: we want rel relocations for the plt. */
3512 s = bfd_make_section_anyway_with_flags (abfd, ".rel.plt",
3513 flags | SEC_READONLY);
3514 if (s == NULL
3515 || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
3516 return FALSE;
3517 /* Blackfin-specific: remember it. */
3518 bfinfdpic_pltrel_section (info) = s;
3519
3520 return TRUE;
3521 }
3522
3523 /* Make sure the got and plt sections exist, and that our pointers in
3524 the link hash table point to them. */
3525
3526 static bfd_boolean
3527 elf32_bfinfdpic_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
3528 {
3529 /* This is mostly copied from
3530 elflink.c:_bfd_elf_create_dynamic_sections(). */
3531 flagword flags;
3532 asection *s;
3533 const struct elf_backend_data *bed = get_elf_backend_data (abfd);
3534
3535 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
3536 | SEC_LINKER_CREATED);
3537
3538 /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
3539 .rel[a].bss sections. */
3540
3541 /* Blackfin-specific: we want to create the GOT in the Blackfin way. */
3542 if (! _bfin_create_got_section (abfd, info))
3543 return FALSE;
3544
3545 /* Blackfin-specific: make sure we created everything we wanted. */
3546 BFD_ASSERT (bfinfdpic_got_section (info) && bfinfdpic_gotrel_section (info)
3547 /* && bfinfdpic_gotfixup_section (info) */
3548 && bfinfdpic_plt_section (info)
3549 && bfinfdpic_pltrel_section (info));
3550
3551 if (bed->want_dynbss)
3552 {
3553 /* The .dynbss section is a place to put symbols which are defined
3554 by dynamic objects, are referenced by regular objects, and are
3555 not functions. We must allocate space for them in the process
3556 image and use a R_*_COPY reloc to tell the dynamic linker to
3557 initialize them at run time. The linker script puts the .dynbss
3558 section into the .bss section of the final image. */
3559 s = bfd_make_section_anyway_with_flags (abfd, ".dynbss",
3560 SEC_ALLOC | SEC_LINKER_CREATED);
3561 if (s == NULL)
3562 return FALSE;
3563
3564 /* The .rel[a].bss section holds copy relocs. This section is not
3565 normally needed. We need to create it here, though, so that the
3566 linker will map it to an output section. We can't just create it
3567 only if we need it, because we will not know whether we need it
3568 until we have seen all the input files, and the first time the
3569 main linker code calls BFD after examining all the input files
3570 (size_dynamic_sections) the input sections have already been
3571 mapped to the output sections. If the section turns out not to
3572 be needed, we can discard it later. We will never need this
3573 section when generating a shared object, since they do not use
3574 copy relocs. */
3575 if (! bfd_link_pic (info))
3576 {
3577 s = bfd_make_section_anyway_with_flags (abfd,
3578 ".rela.bss",
3579 flags | SEC_READONLY);
3580 if (s == NULL
3581 || ! bfd_set_section_alignment (abfd, s, bed->s->log_file_align))
3582 return FALSE;
3583 }
3584 }
3585
3586 return TRUE;
3587 }
3588
3589 /* Compute the total GOT size required by each symbol in each range.
3590 Symbols may require up to 4 words in the GOT: an entry pointing to
3591 the symbol, an entry pointing to its function descriptor, and a
3592 private function descriptors taking two words. */
3593
3594 static void
3595 _bfinfdpic_count_nontls_entries (struct bfinfdpic_relocs_info *entry,
3596 struct _bfinfdpic_dynamic_got_info *dinfo)
3597 {
3598 /* Allocate space for a GOT entry pointing to the symbol. */
3599 if (entry->got17m4)
3600 dinfo->got17m4 += 4;
3601 else if (entry->gothilo)
3602 dinfo->gothilo += 4;
3603 else
3604 entry->relocs32--;
3605 entry->relocs32++;
3606
3607 /* Allocate space for a GOT entry pointing to the function
3608 descriptor. */
3609 if (entry->fdgot17m4)
3610 dinfo->got17m4 += 4;
3611 else if (entry->fdgothilo)
3612 dinfo->gothilo += 4;
3613 else
3614 entry->relocsfd--;
3615 entry->relocsfd++;
3616
3617 /* Decide whether we need a PLT entry, a function descriptor in the
3618 GOT, and a lazy PLT entry for this symbol. */
3619 entry->plt = entry->call
3620 && entry->symndx == -1 && ! BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
3621 && elf_hash_table (dinfo->info)->dynamic_sections_created;
3622 entry->privfd = entry->plt
3623 || entry->fdgoff17m4 || entry->fdgoffhilo
3624 || ((entry->fd || entry->fdgot17m4 || entry->fdgothilo)
3625 && (entry->symndx != -1
3626 || BFINFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h)));
3627 entry->lazyplt = entry->privfd
3628 && entry->symndx == -1 && ! BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h)
3629 && ! (dinfo->info->flags & DF_BIND_NOW)
3630 && elf_hash_table (dinfo->info)->dynamic_sections_created;
3631
3632 /* Allocate space for a function descriptor. */
3633 if (entry->fdgoff17m4)
3634 dinfo->fd17m4 += 8;
3635 else if (entry->privfd && entry->plt)
3636 dinfo->fdplt += 8;
3637 else if (entry->privfd)
3638 dinfo->fdhilo += 8;
3639 else
3640 entry->relocsfdv--;
3641 entry->relocsfdv++;
3642
3643 if (entry->lazyplt)
3644 dinfo->lzplt += LZPLT_NORMAL_SIZE;
3645 }
3646
3647 /* Compute the number of dynamic relocations and fixups that a symbol
3648 requires, and add (or subtract) from the grand and per-symbol
3649 totals. */
3650
3651 static void
3652 _bfinfdpic_count_relocs_fixups (struct bfinfdpic_relocs_info *entry,
3653 struct _bfinfdpic_dynamic_got_info *dinfo,
3654 bfd_boolean subtract)
3655 {
3656 bfd_vma relocs = 0, fixups = 0;
3657
3658 if (!bfd_link_executable (dinfo->info) || bfd_link_pie (dinfo->info))
3659 relocs = entry->relocs32 + entry->relocsfd + entry->relocsfdv;
3660 else
3661 {
3662 if (entry->symndx != -1 || BFINFDPIC_SYM_LOCAL (dinfo->info, entry->d.h))
3663 {
3664 if (entry->symndx != -1
3665 || entry->d.h->root.type != bfd_link_hash_undefweak)
3666 fixups += entry->relocs32 + 2 * entry->relocsfdv;
3667 }
3668 else
3669 relocs += entry->relocs32 + entry->relocsfdv;
3670
3671 if (entry->symndx != -1
3672 || BFINFDPIC_FUNCDESC_LOCAL (dinfo->info, entry->d.h))
3673 {
3674 if (entry->symndx != -1
3675 || entry->d.h->root.type != bfd_link_hash_undefweak)
3676 fixups += entry->relocsfd;
3677 }
3678 else
3679 relocs += entry->relocsfd;
3680 }
3681
3682 if (subtract)
3683 {
3684 relocs = - relocs;
3685 fixups = - fixups;
3686 }
3687
3688 entry->dynrelocs += relocs;
3689 entry->fixups += fixups;
3690 dinfo->relocs += relocs;
3691 dinfo->fixups += fixups;
3692 }
3693
3694 /* Compute the total GOT and PLT size required by each symbol in each range. *
3695 Symbols may require up to 4 words in the GOT: an entry pointing to
3696 the symbol, an entry pointing to its function descriptor, and a
3697 private function descriptors taking two words. */
3698
3699 static int
3700 _bfinfdpic_count_got_plt_entries (void **entryp, void *dinfo_)
3701 {
3702 struct bfinfdpic_relocs_info *entry = *entryp;
3703 struct _bfinfdpic_dynamic_got_info *dinfo = dinfo_;
3704
3705 _bfinfdpic_count_nontls_entries (entry, dinfo);
3706
3707 _bfinfdpic_count_relocs_fixups (entry, dinfo, FALSE);
3708
3709 return 1;
3710 }
3711
3712 /* This structure is used to assign offsets to got entries, function
3713 descriptors, plt entries and lazy plt entries. */
3714
3715 struct _bfinfdpic_dynamic_got_plt_info
3716 {
3717 /* Summary information collected with _bfinfdpic_count_got_plt_entries. */
3718 struct _bfinfdpic_dynamic_got_info g;
3719
3720 /* For each addressable range, we record a MAX (positive) and MIN
3721 (negative) value. CUR is used to assign got entries, and it's
3722 incremented from an initial positive value to MAX, then from MIN
3723 to FDCUR (unless FDCUR wraps around first). FDCUR is used to
3724 assign function descriptors, and it's decreased from an initial
3725 non-positive value to MIN, then from MAX down to CUR (unless CUR
3726 wraps around first). All of MIN, MAX, CUR and FDCUR always point
3727 to even words. ODD, if non-zero, indicates an odd word to be
3728 used for the next got entry, otherwise CUR is used and
3729 incremented by a pair of words, wrapping around when it reaches
3730 MAX. FDCUR is decremented (and wrapped) before the next function
3731 descriptor is chosen. FDPLT indicates the number of remaining
3732 slots that can be used for function descriptors used only by PLT
3733 entries. */
3734 struct _bfinfdpic_dynamic_got_alloc_data
3735 {
3736 bfd_signed_vma max, cur, odd, fdcur, min;
3737 bfd_vma fdplt;
3738 } got17m4, gothilo;
3739 };
3740
3741 /* Determine the positive and negative ranges to be used by each
3742 offset range in the GOT. FDCUR and CUR, that must be aligned to a
3743 double-word boundary, are the minimum (negative) and maximum
3744 (positive) GOT offsets already used by previous ranges, except for
3745 an ODD entry that may have been left behind. GOT and FD indicate
3746 the size of GOT entries and function descriptors that must be
3747 placed within the range from -WRAP to WRAP. If there's room left,
3748 up to FDPLT bytes should be reserved for additional function
3749 descriptors. */
3750
3751 inline static bfd_signed_vma
3752 _bfinfdpic_compute_got_alloc_data (struct _bfinfdpic_dynamic_got_alloc_data *gad,
3753 bfd_signed_vma fdcur,
3754 bfd_signed_vma odd,
3755 bfd_signed_vma cur,
3756 bfd_vma got,
3757 bfd_vma fd,
3758 bfd_vma fdplt,
3759 bfd_vma wrap)
3760 {
3761 bfd_signed_vma wrapmin = -wrap;
3762
3763 /* Start at the given initial points. */
3764 gad->fdcur = fdcur;
3765 gad->cur = cur;
3766
3767 /* If we had an incoming odd word and we have any got entries that
3768 are going to use it, consume it, otherwise leave gad->odd at
3769 zero. We might force gad->odd to zero and return the incoming
3770 odd such that it is used by the next range, but then GOT entries
3771 might appear to be out of order and we wouldn't be able to
3772 shorten the GOT by one word if it turns out to end with an
3773 unpaired GOT entry. */
3774 if (odd && got)
3775 {
3776 gad->odd = odd;
3777 got -= 4;
3778 odd = 0;
3779 }
3780 else
3781 gad->odd = 0;
3782
3783 /* If we're left with an unpaired GOT entry, compute its location
3784 such that we can return it. Otherwise, if got doesn't require an
3785 odd number of words here, either odd was already zero in the
3786 block above, or it was set to zero because got was non-zero, or
3787 got was already zero. In the latter case, we want the value of
3788 odd to carry over to the return statement, so we don't want to
3789 reset odd unless the condition below is true. */
3790 if (got & 4)
3791 {
3792 odd = cur + got;
3793 got += 4;
3794 }
3795
3796 /* Compute the tentative boundaries of this range. */
3797 gad->max = cur + got;
3798 gad->min = fdcur - fd;
3799 gad->fdplt = 0;
3800
3801 /* If function descriptors took too much space, wrap some of them
3802 around. */
3803 if (gad->min < wrapmin)
3804 {
3805 gad->max += wrapmin - gad->min;
3806 gad->min = wrapmin;
3807 }
3808 /* If there is space left and we have function descriptors
3809 referenced in PLT entries that could take advantage of shorter
3810 offsets, place them here. */
3811 else if (fdplt && gad->min > wrapmin)
3812 {
3813 bfd_vma fds;
3814 if ((bfd_vma) (gad->min - wrapmin) < fdplt)
3815 fds = gad->min - wrapmin;
3816 else
3817 fds = fdplt;
3818
3819 fdplt -= fds;
3820 gad->min -= fds;
3821 gad->fdplt += fds;
3822 }
3823
3824 /* If GOT entries took too much space, wrap some of them around.
3825 This may well cause gad->min to become lower than wrapmin. This
3826 will cause a relocation overflow later on, so we don't have to
3827 report it here . */
3828 if ((bfd_vma) gad->max > wrap)
3829 {
3830 gad->min -= gad->max - wrap;
3831 gad->max = wrap;
3832 }
3833 /* If there is more space left, try to place some more function
3834 descriptors for PLT entries. */
3835 else if (fdplt && (bfd_vma) gad->max < wrap)
3836 {
3837 bfd_vma fds;
3838 if ((bfd_vma) (wrap - gad->max) < fdplt)
3839 fds = wrap - gad->max;
3840 else
3841 fds = fdplt;
3842
3843 fdplt -= fds;
3844 gad->max += fds;
3845 gad->fdplt += fds;
3846 }
3847
3848 /* If odd was initially computed as an offset past the wrap point,
3849 wrap it around. */
3850 if (odd > gad->max)
3851 odd = gad->min + odd - gad->max;
3852
3853 /* _bfinfdpic_get_got_entry() below will always wrap gad->cur if needed
3854 before returning, so do it here too. This guarantees that,
3855 should cur and fdcur meet at the wrap point, they'll both be
3856 equal to min. */
3857 if (gad->cur == gad->max)
3858 gad->cur = gad->min;
3859
3860 return odd;
3861 }
3862
3863 /* Compute the location of the next GOT entry, given the allocation
3864 data for a range. */
3865
3866 inline static bfd_signed_vma
3867 _bfinfdpic_get_got_entry (struct _bfinfdpic_dynamic_got_alloc_data *gad)
3868 {
3869 bfd_signed_vma ret;
3870
3871 if (gad->odd)
3872 {
3873 /* If there was an odd word left behind, use it. */
3874 ret = gad->odd;
3875 gad->odd = 0;
3876 }
3877 else
3878 {
3879 /* Otherwise, use the word pointed to by cur, reserve the next
3880 as an odd word, and skip to the next pair of words, possibly
3881 wrapping around. */
3882 ret = gad->cur;
3883 gad->odd = gad->cur + 4;
3884 gad->cur += 8;
3885 if (gad->cur == gad->max)
3886 gad->cur = gad->min;
3887 }
3888
3889 return ret;
3890 }
3891
3892 /* Compute the location of the next function descriptor entry in the
3893 GOT, given the allocation data for a range. */
3894
3895 inline static bfd_signed_vma
3896 _bfinfdpic_get_fd_entry (struct _bfinfdpic_dynamic_got_alloc_data *gad)
3897 {
3898 /* If we're at the bottom, wrap around, and only then allocate the
3899 next pair of words. */
3900 if (gad->fdcur == gad->min)
3901 gad->fdcur = gad->max;
3902 return gad->fdcur -= 8;
3903 }
3904
3905 /* Assign GOT offsets for every GOT entry and function descriptor.
3906 Doing everything in a single pass is tricky. */
3907
3908 static int
3909 _bfinfdpic_assign_got_entries (void **entryp, void *info_)
3910 {
3911 struct bfinfdpic_relocs_info *entry = *entryp;
3912 struct _bfinfdpic_dynamic_got_plt_info *dinfo = info_;
3913
3914 if (entry->got17m4)
3915 entry->got_entry = _bfinfdpic_get_got_entry (&dinfo->got17m4);
3916 else if (entry->gothilo)
3917 entry->got_entry = _bfinfdpic_get_got_entry (&dinfo->gothilo);
3918
3919 if (entry->fdgot17m4)
3920 entry->fdgot_entry = _bfinfdpic_get_got_entry (&dinfo->got17m4);
3921 else if (entry->fdgothilo)
3922 entry->fdgot_entry = _bfinfdpic_get_got_entry (&dinfo->gothilo);
3923
3924 if (entry->fdgoff17m4)
3925 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3926 else if (entry->plt && dinfo->got17m4.fdplt)
3927 {
3928 dinfo->got17m4.fdplt -= 8;
3929 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3930 }
3931 else if (entry->plt)
3932 {
3933 dinfo->gothilo.fdplt -= 8;
3934 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3935 }
3936 else if (entry->privfd)
3937 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3938
3939 return 1;
3940 }
3941
3942 /* Assign GOT offsets to private function descriptors used by PLT
3943 entries (or referenced by 32-bit offsets), as well as PLT entries
3944 and lazy PLT entries. */
3945
3946 static int
3947 _bfinfdpic_assign_plt_entries (void **entryp, void *info_)
3948 {
3949 struct bfinfdpic_relocs_info *entry = *entryp;
3950 struct _bfinfdpic_dynamic_got_plt_info *dinfo = info_;
3951
3952 /* If this symbol requires a local function descriptor, allocate
3953 one. */
3954 if (entry->privfd && entry->fd_entry == 0)
3955 {
3956 if (dinfo->got17m4.fdplt)
3957 {
3958 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->got17m4);
3959 dinfo->got17m4.fdplt -= 8;
3960 }
3961 else
3962 {
3963 BFD_ASSERT (dinfo->gothilo.fdplt);
3964 entry->fd_entry = _bfinfdpic_get_fd_entry (&dinfo->gothilo);
3965 dinfo->gothilo.fdplt -= 8;
3966 }
3967 }
3968
3969 if (entry->plt)
3970 {
3971 int size;
3972
3973 /* We use the section's raw size to mark the location of the
3974 next PLT entry. */
3975 entry->plt_entry = bfinfdpic_plt_section (dinfo->g.info)->size;
3976
3977 /* Figure out the length of this PLT entry based on the
3978 addressing mode we need to reach the function descriptor. */
3979 BFD_ASSERT (entry->fd_entry);
3980 if (entry->fd_entry >= -(1 << (18 - 1))
3981 && entry->fd_entry + 4 < (1 << (18 - 1)))
3982 size = 10;
3983 else
3984 size = 16;
3985
3986 bfinfdpic_plt_section (dinfo->g.info)->size += size;
3987 }
3988
3989 if (entry->lazyplt)
3990 {
3991 entry->lzplt_entry = dinfo->g.lzplt;
3992 dinfo->g.lzplt += LZPLT_NORMAL_SIZE;
3993 /* If this entry is the one that gets the resolver stub, account
3994 for the additional instruction. */
3995 if (entry->lzplt_entry % BFINFDPIC_LZPLT_BLOCK_SIZE
3996 == BFINFDPIC_LZPLT_RESOLV_LOC)
3997 dinfo->g.lzplt += LZPLT_RESOLVER_EXTRA;
3998 }
3999
4000 return 1;
4001 }
4002
4003 /* Cancel out any effects of calling _bfinfdpic_assign_got_entries and
4004 _bfinfdpic_assign_plt_entries. */
4005
4006 static int
4007 _bfinfdpic_reset_got_plt_entries (void **entryp, void *ignore ATTRIBUTE_UNUSED)
4008 {
4009 struct bfinfdpic_relocs_info *entry = *entryp;
4010
4011 entry->got_entry = 0;
4012 entry->fdgot_entry = 0;
4013 entry->fd_entry = 0;
4014 entry->plt_entry = (bfd_vma)-1;
4015 entry->lzplt_entry = (bfd_vma)-1;
4016
4017 return 1;
4018 }
4019
4020 /* Follow indirect and warning hash entries so that each got entry
4021 points to the final symbol definition. P must point to a pointer
4022 to the hash table we're traversing. Since this traversal may
4023 modify the hash table, we set this pointer to NULL to indicate
4024 we've made a potentially-destructive change to the hash table, so
4025 the traversal must be restarted. */
4026 static int
4027 _bfinfdpic_resolve_final_relocs_info (void **entryp, void *p)
4028 {
4029 struct bfinfdpic_relocs_info *entry = *entryp;
4030 htab_t *htab = p;
4031
4032 if (entry->symndx == -1)
4033 {
4034 struct elf_link_hash_entry *h = entry->d.h;
4035 struct bfinfdpic_relocs_info *oentry;
4036
4037 while (h->root.type == bfd_link_hash_indirect
4038 || h->root.type == bfd_link_hash_warning)
4039 h = (struct elf_link_hash_entry *)h->root.u.i.link;
4040
4041 if (entry->d.h == h)
4042 return 1;
4043
4044 oentry = bfinfdpic_relocs_info_for_global (*htab, 0, h, entry->addend,
4045 NO_INSERT);
4046
4047 if (oentry)
4048 {
4049 /* Merge the two entries. */
4050 bfinfdpic_pic_merge_early_relocs_info (oentry, entry);
4051 htab_clear_slot (*htab, entryp);
4052 return 1;
4053 }
4054
4055 entry->d.h = h;
4056
4057 /* If we can't find this entry with the new bfd hash, re-insert
4058 it, and get the traversal restarted. */
4059 if (! htab_find (*htab, entry))
4060 {
4061 htab_clear_slot (*htab, entryp);
4062 entryp = htab_find_slot (*htab, entry, INSERT);
4063 if (! *entryp)
4064 *entryp = entry;
4065 /* Abort the traversal, since the whole table may have
4066 moved, and leave it up to the parent to restart the
4067 process. */
4068 *(htab_t *)p = NULL;
4069 return 0;
4070 }
4071 }
4072
4073 return 1;
4074 }
4075
4076 /* Compute the total size of the GOT, the PLT, the dynamic relocations
4077 section and the rofixup section. Assign locations for GOT and PLT
4078 entries. */
4079
4080 static bfd_boolean
4081 _bfinfdpic_size_got_plt (bfd *output_bfd,
4082 struct _bfinfdpic_dynamic_got_plt_info *gpinfop)
4083 {
4084 bfd_signed_vma odd;
4085 bfd_vma limit;
4086 struct bfd_link_info *info = gpinfop->g.info;
4087 bfd *dynobj = elf_hash_table (info)->dynobj;
4088
4089 memcpy (bfinfdpic_dynamic_got_plt_info (info), &gpinfop->g,
4090 sizeof (gpinfop->g));
4091
4092 odd = 12;
4093 /* Compute the total size taken by entries in the 18-bit range,
4094 to tell how many PLT function descriptors we can bring into it
4095 without causing it to overflow. */
4096 limit = odd + gpinfop->g.got17m4 + gpinfop->g.fd17m4;
4097 if (limit < (bfd_vma)1 << 18)
4098 limit = ((bfd_vma)1 << 18) - limit;
4099 else
4100 limit = 0;
4101 if (gpinfop->g.fdplt < limit)
4102 limit = gpinfop->g.fdplt;
4103
4104 /* Determine the ranges of GOT offsets that we can use for each
4105 range of addressing modes. */
4106 odd = _bfinfdpic_compute_got_alloc_data (&gpinfop->got17m4,
4107 0,
4108 odd,
4109 16,
4110 gpinfop->g.got17m4,
4111 gpinfop->g.fd17m4,
4112 limit,
4113 (bfd_vma)1 << (18-1));
4114 odd = _bfinfdpic_compute_got_alloc_data (&gpinfop->gothilo,
4115 gpinfop->got17m4.min,
4116 odd,
4117 gpinfop->got17m4.max,
4118 gpinfop->g.gothilo,
4119 gpinfop->g.fdhilo,
4120 gpinfop->g.fdplt - gpinfop->got17m4.fdplt,
4121 (bfd_vma)1 << (32-1));
4122
4123 /* Now assign (most) GOT offsets. */
4124 htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_assign_got_entries,
4125 gpinfop);
4126
4127 bfinfdpic_got_section (info)->size = gpinfop->gothilo.max
4128 - gpinfop->gothilo.min
4129 /* If an odd word is the last word of the GOT, we don't need this
4130 word to be part of the GOT. */
4131 - (odd + 4 == gpinfop->gothilo.max ? 4 : 0);
4132 if (bfinfdpic_got_section (info)->size == 0)
4133 bfinfdpic_got_section (info)->flags |= SEC_EXCLUDE;
4134 else if (bfinfdpic_got_section (info)->size == 12
4135 && ! elf_hash_table (info)->dynamic_sections_created)
4136 {
4137 bfinfdpic_got_section (info)->flags |= SEC_EXCLUDE;
4138 bfinfdpic_got_section (info)->size = 0;
4139 }
4140 else
4141 {
4142 bfinfdpic_got_section (info)->contents =
4143 (bfd_byte *) bfd_zalloc (dynobj,
4144 bfinfdpic_got_section (info)->size);
4145 if (bfinfdpic_got_section (info)->contents == NULL)
4146 return FALSE;
4147 }
4148
4149 if (elf_hash_table (info)->dynamic_sections_created)
4150 /* Subtract the number of lzplt entries, since those will generate
4151 relocations in the pltrel section. */
4152 bfinfdpic_gotrel_section (info)->size =
4153 (gpinfop->g.relocs - gpinfop->g.lzplt / LZPLT_NORMAL_SIZE)
4154 * get_elf_backend_data (output_bfd)->s->sizeof_rel;
4155 else
4156 BFD_ASSERT (gpinfop->g.relocs == 0);
4157 if (bfinfdpic_gotrel_section (info)->size == 0)
4158 bfinfdpic_gotrel_section (info)->flags |= SEC_EXCLUDE;
4159 else
4160 {
4161 bfinfdpic_gotrel_section (info)->contents =
4162 (bfd_byte *) bfd_zalloc (dynobj,
4163 bfinfdpic_gotrel_section (info)->size);
4164 if (bfinfdpic_gotrel_section (info)->contents == NULL)
4165 return FALSE;
4166 }
4167
4168 bfinfdpic_gotfixup_section (info)->size = (gpinfop->g.fixups + 1) * 4;
4169 if (bfinfdpic_gotfixup_section (info)->size == 0)
4170 bfinfdpic_gotfixup_section (info)->flags |= SEC_EXCLUDE;
4171 else
4172 {
4173 bfinfdpic_gotfixup_section (info)->contents =
4174 (bfd_byte *) bfd_zalloc (dynobj,
4175 bfinfdpic_gotfixup_section (info)->size);
4176 if (bfinfdpic_gotfixup_section (info)->contents == NULL)
4177 return FALSE;
4178 }
4179
4180 if (elf_hash_table (info)->dynamic_sections_created)
4181 bfinfdpic_pltrel_section (info)->size =
4182 gpinfop->g.lzplt / LZPLT_NORMAL_SIZE * get_elf_backend_data (output_bfd)->s->sizeof_rel;
4183 if (bfinfdpic_pltrel_section (info)->size == 0)
4184 bfinfdpic_pltrel_section (info)->flags |= SEC_EXCLUDE;
4185 else
4186 {
4187 bfinfdpic_pltrel_section (info)->contents =
4188 (bfd_byte *) bfd_zalloc (dynobj,
4189 bfinfdpic_pltrel_section (info)->size);
4190 if (bfinfdpic_pltrel_section (info)->contents == NULL)
4191 return FALSE;
4192 }
4193
4194 /* Add 4 bytes for every block of at most 65535 lazy PLT entries,
4195 such that there's room for the additional instruction needed to
4196 call the resolver. Since _bfinfdpic_assign_got_entries didn't
4197 account for them, our block size is 4 bytes smaller than the real
4198 block size. */
4199 if (elf_hash_table (info)->dynamic_sections_created)
4200 {
4201 bfinfdpic_plt_section (info)->size = gpinfop->g.lzplt
4202 + ((gpinfop->g.lzplt + (BFINFDPIC_LZPLT_BLOCK_SIZE - 4) - LZPLT_NORMAL_SIZE)
4203 / (BFINFDPIC_LZPLT_BLOCK_SIZE - 4) * LZPLT_RESOLVER_EXTRA);
4204 }
4205
4206 /* Reset it, such that _bfinfdpic_assign_plt_entries() can use it to
4207 actually assign lazy PLT entries addresses. */
4208 gpinfop->g.lzplt = 0;
4209
4210 /* Save information that we're going to need to generate GOT and PLT
4211 entries. */
4212 bfinfdpic_got_initial_offset (info) = -gpinfop->gothilo.min;
4213
4214 if (get_elf_backend_data (output_bfd)->want_got_sym)
4215 elf_hash_table (info)->hgot->root.u.def.value
4216 = bfinfdpic_got_initial_offset (info);
4217
4218 if (elf_hash_table (info)->dynamic_sections_created)
4219 bfinfdpic_plt_initial_offset (info) =
4220 bfinfdpic_plt_section (info)->size;
4221
4222 htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_assign_plt_entries,
4223 gpinfop);
4224
4225 /* Allocate the PLT section contents only after
4226 _bfinfdpic_assign_plt_entries has a chance to add the size of the
4227 non-lazy PLT entries. */
4228 if (bfinfdpic_plt_section (info)->size == 0)
4229 bfinfdpic_plt_section (info)->flags |= SEC_EXCLUDE;
4230 else
4231 {
4232 bfinfdpic_plt_section (info)->contents =
4233 (bfd_byte *) bfd_zalloc (dynobj,
4234 bfinfdpic_plt_section (info)->size);
4235 if (bfinfdpic_plt_section (info)->contents == NULL)
4236 return FALSE;
4237 }
4238
4239 return TRUE;
4240 }
4241
4242 /* Set the sizes of the dynamic sections. */
4243
4244 static bfd_boolean
4245 elf32_bfinfdpic_size_dynamic_sections (bfd *output_bfd,
4246 struct bfd_link_info *info)
4247 {
4248 struct elf_link_hash_table *htab;
4249 bfd *dynobj;
4250 asection *s;
4251 struct _bfinfdpic_dynamic_got_plt_info gpinfo;
4252
4253 htab = elf_hash_table (info);
4254 dynobj = htab->dynobj;
4255 BFD_ASSERT (dynobj != NULL);
4256
4257 if (htab->dynamic_sections_created)
4258 {
4259 /* Set the contents of the .interp section to the interpreter. */
4260 if (bfd_link_executable (info))
4261 {
4262 s = bfd_get_linker_section (dynobj, ".interp");
4263 BFD_ASSERT (s != NULL);
4264 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
4265 s->contents = (bfd_byte *) ELF_DYNAMIC_INTERPRETER;
4266 }
4267 }
4268
4269 memset (&gpinfo, 0, sizeof (gpinfo));
4270 gpinfo.g.info = info;
4271
4272 for (;;)
4273 {
4274 htab_t relocs = bfinfdpic_relocs_info (info);
4275
4276 htab_traverse (relocs, _bfinfdpic_resolve_final_relocs_info, &relocs);
4277
4278 if (relocs == bfinfdpic_relocs_info (info))
4279 break;
4280 }
4281
4282 htab_traverse (bfinfdpic_relocs_info (info), _bfinfdpic_count_got_plt_entries,
4283 &gpinfo.g);
4284
4285 /* Allocate space to save the summary information, we're going to
4286 use it if we're doing relaxations. */
4287 bfinfdpic_dynamic_got_plt_info (info) = bfd_alloc (dynobj, sizeof (gpinfo.g));
4288
4289 if (!_bfinfdpic_size_got_plt (output_bfd, &gpinfo))
4290 return FALSE;
4291
4292 if (elf_hash_table (info)->dynamic_sections_created)
4293 {
4294 if (bfinfdpic_got_section (info)->size)
4295 if (!_bfd_elf_add_dynamic_entry (info, DT_PLTGOT, 0))
4296 return FALSE;
4297
4298 if (bfinfdpic_pltrel_section (info)->size)
4299 if (!_bfd_elf_add_dynamic_entry (info, DT_PLTRELSZ, 0)
4300 || !_bfd_elf_add_dynamic_entry (info, DT_PLTREL, DT_REL)
4301 || !_bfd_elf_add_dynamic_entry (info, DT_JMPREL, 0))
4302 return FALSE;
4303
4304 if (bfinfdpic_gotrel_section (info)->size)
4305 if (!_bfd_elf_add_dynamic_entry (info, DT_REL, 0)
4306 || !_bfd_elf_add_dynamic_entry (info, DT_RELSZ, 0)
4307 || !_bfd_elf_add_dynamic_entry (info, DT_RELENT,
4308 sizeof (Elf32_External_Rel)))
4309 return FALSE;
4310 }
4311
4312 s = bfd_get_linker_section (dynobj, ".dynbss");
4313 if (s && s->size == 0)
4314 s->flags |= SEC_EXCLUDE;
4315
4316 s = bfd_get_linker_section (dynobj, ".rela.bss");
4317 if (s && s->size == 0)
4318 s->flags |= SEC_EXCLUDE;
4319
4320 return TRUE;
4321 }
4322
4323 static bfd_boolean
4324 elf32_bfinfdpic_always_size_sections (bfd *output_bfd,
4325 struct bfd_link_info *info)
4326 {
4327 if (!bfd_link_relocatable (info)
4328 && !bfd_elf_stack_segment_size (output_bfd, info,
4329 "__stacksize", DEFAULT_STACK_SIZE))
4330 return FALSE;
4331
4332 return TRUE;
4333 }
4334
4335 /* Check whether any of the relocations was optimized away, and
4336 subtract it from the relocation or fixup count. */
4337 static bfd_boolean
4338 _bfinfdpic_check_discarded_relocs (bfd *abfd, asection *sec,
4339 struct bfd_link_info *info,
4340 bfd_boolean *changed)
4341 {
4342 Elf_Internal_Shdr *symtab_hdr;
4343 struct elf_link_hash_entry **sym_hashes, **sym_hashes_end;
4344 Elf_Internal_Rela *rel, *erel;
4345
4346 if ((sec->flags & SEC_RELOC) == 0
4347 || sec->reloc_count == 0)
4348 return TRUE;
4349
4350 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
4351 sym_hashes = elf_sym_hashes (abfd);
4352 sym_hashes_end = sym_hashes + symtab_hdr->sh_size/sizeof(Elf32_External_Sym);
4353 if (!elf_bad_symtab (abfd))
4354 sym_hashes_end -= symtab_hdr->sh_info;
4355
4356 rel = elf_section_data (sec)->relocs;
4357
4358 /* Now examine each relocation. */
4359 for (erel = rel + sec->reloc_count; rel < erel; rel++)
4360 {
4361 struct elf_link_hash_entry *h;
4362 unsigned long r_symndx;
4363 struct bfinfdpic_relocs_info *picrel;
4364 struct _bfinfdpic_dynamic_got_info *dinfo;
4365
4366 if (ELF32_R_TYPE (rel->r_info) != R_BFIN_BYTE4_DATA
4367 && ELF32_R_TYPE (rel->r_info) != R_BFIN_FUNCDESC)
4368 continue;
4369
4370 if (_bfd_elf_section_offset (sec->output_section->owner,
4371 info, sec, rel->r_offset)
4372 != (bfd_vma)-1)
4373 continue;
4374
4375 r_symndx = ELF32_R_SYM (rel->r_info);
4376 if (r_symndx < symtab_hdr->sh_info)
4377 h = NULL;
4378 else
4379 {
4380 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4381 while (h->root.type == bfd_link_hash_indirect
4382 || h->root.type == bfd_link_hash_warning)
4383 h = (struct elf_link_hash_entry *)h->root.u.i.link;
4384 }
4385
4386 if (h != NULL)
4387 picrel = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info (info),
4388 abfd, h,
4389 rel->r_addend, NO_INSERT);
4390 else
4391 picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info (info),
4392 abfd, r_symndx,
4393 rel->r_addend, NO_INSERT);
4394
4395 if (! picrel)
4396 return FALSE;
4397
4398 *changed = TRUE;
4399 dinfo = bfinfdpic_dynamic_got_plt_info (info);
4400
4401 _bfinfdpic_count_relocs_fixups (picrel, dinfo, TRUE);
4402 if (ELF32_R_TYPE (rel->r_info) == R_BFIN_BYTE4_DATA)
4403 picrel->relocs32--;
4404 else /* we know (ELF32_R_TYPE (rel->r_info) == R_BFIN_FUNCDESC) */
4405 picrel->relocsfd--;
4406 _bfinfdpic_count_relocs_fixups (picrel, dinfo, FALSE);
4407 }
4408
4409 return TRUE;
4410 }
4411
4412 static bfd_boolean
4413 bfinfdpic_elf_discard_info (bfd *ibfd,
4414 struct elf_reloc_cookie *cookie ATTRIBUTE_UNUSED,
4415 struct bfd_link_info *info)
4416 {
4417 bfd_boolean changed = FALSE;
4418 asection *s;
4419 bfd *obfd = NULL;
4420
4421 /* Account for relaxation of .eh_frame section. */
4422 for (s = ibfd->sections; s; s = s->next)
4423 if (s->sec_info_type == SEC_INFO_TYPE_EH_FRAME)
4424 {
4425 if (!_bfinfdpic_check_discarded_relocs (ibfd, s, info, &changed))
4426 return FALSE;
4427 obfd = s->output_section->owner;
4428 }
4429
4430 if (changed)
4431 {
4432 struct _bfinfdpic_dynamic_got_plt_info gpinfo;
4433
4434 memset (&gpinfo, 0, sizeof (gpinfo));
4435 memcpy (&gpinfo.g, bfinfdpic_dynamic_got_plt_info (info),
4436 sizeof (gpinfo.g));
4437
4438 /* Clear GOT and PLT assignments. */
4439 htab_traverse (bfinfdpic_relocs_info (info),
4440 _bfinfdpic_reset_got_plt_entries,
4441 NULL);
4442
4443 if (!_bfinfdpic_size_got_plt (obfd, &gpinfo))
4444 return FALSE;
4445 }
4446
4447 return TRUE;
4448 }
4449
4450 static bfd_boolean
4451 elf32_bfinfdpic_finish_dynamic_sections (bfd *output_bfd,
4452 struct bfd_link_info *info)
4453 {
4454 bfd *dynobj;
4455 asection *sdyn;
4456
4457 dynobj = elf_hash_table (info)->dynobj;
4458
4459 if (bfinfdpic_got_section (info))
4460 {
4461 BFD_ASSERT (bfinfdpic_gotrel_section (info)->size
4462 == (bfinfdpic_gotrel_section (info)->reloc_count
4463 * sizeof (Elf32_External_Rel)));
4464
4465 if (bfinfdpic_gotfixup_section (info))
4466 {
4467 struct elf_link_hash_entry *hgot = elf_hash_table (info)->hgot;
4468 bfd_vma got_value = hgot->root.u.def.value
4469 + hgot->root.u.def.section->output_section->vma
4470 + hgot->root.u.def.section->output_offset;
4471
4472 _bfinfdpic_add_rofixup (output_bfd, bfinfdpic_gotfixup_section (info),
4473 got_value, 0);
4474
4475 if (bfinfdpic_gotfixup_section (info)->size
4476 != (bfinfdpic_gotfixup_section (info)->reloc_count * 4))
4477 {
4478 (*_bfd_error_handler)
4479 ("LINKER BUG: .rofixup section size mismatch");
4480 return FALSE;
4481 }
4482 }
4483 }
4484 if (elf_hash_table (info)->dynamic_sections_created)
4485 {
4486 BFD_ASSERT (bfinfdpic_pltrel_section (info)->size
4487 == (bfinfdpic_pltrel_section (info)->reloc_count
4488 * sizeof (Elf32_External_Rel)));
4489 }
4490
4491 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
4492
4493 if (elf_hash_table (info)->dynamic_sections_created)
4494 {
4495 Elf32_External_Dyn * dyncon;
4496 Elf32_External_Dyn * dynconend;
4497
4498 BFD_ASSERT (sdyn != NULL);
4499
4500 dyncon = (Elf32_External_Dyn *) sdyn->contents;
4501 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4502
4503 for (; dyncon < dynconend; dyncon++)
4504 {
4505 Elf_Internal_Dyn dyn;
4506
4507 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4508
4509 switch (dyn.d_tag)
4510 {
4511 default:
4512 break;
4513
4514 case DT_PLTGOT:
4515 dyn.d_un.d_ptr = bfinfdpic_got_section (info)->output_section->vma
4516 + bfinfdpic_got_section (info)->output_offset
4517 + bfinfdpic_got_initial_offset (info);
4518 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4519 break;
4520
4521 case DT_JMPREL:
4522 dyn.d_un.d_ptr = bfinfdpic_pltrel_section (info)
4523 ->output_section->vma
4524 + bfinfdpic_pltrel_section (info)->output_offset;
4525 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4526 break;
4527
4528 case DT_PLTRELSZ:
4529 dyn.d_un.d_val = bfinfdpic_pltrel_section (info)->size;
4530 bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4531 break;
4532 }
4533 }
4534 }
4535
4536 return TRUE;
4537 }
4538
4539 /* Adjust a symbol defined by a dynamic object and referenced by a
4540 regular object. */
4541
4542 static bfd_boolean
4543 elf32_bfinfdpic_adjust_dynamic_symbol (struct bfd_link_info *info,
4544 struct elf_link_hash_entry *h)
4545 {
4546 bfd * dynobj;
4547
4548 dynobj = elf_hash_table (info)->dynobj;
4549
4550 /* Make sure we know what is going on here. */
4551 BFD_ASSERT (dynobj != NULL
4552 && (h->u.weakdef != NULL
4553 || (h->def_dynamic
4554 && h->ref_regular
4555 && !h->def_regular)));
4556
4557 /* If this is a weak symbol, and there is a real definition, the
4558 processor independent code will have arranged for us to see the
4559 real definition first, and we can just use the same value. */
4560 if (h->u.weakdef != NULL)
4561 {
4562 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4563 || h->u.weakdef->root.type == bfd_link_hash_defweak);
4564 h->root.u.def.section = h->u.weakdef->root.u.def.section;
4565 h->root.u.def.value = h->u.weakdef->root.u.def.value;
4566 }
4567
4568 return TRUE;
4569 }
4570
4571 /* Perform any actions needed for dynamic symbols. */
4572
4573 static bfd_boolean
4574 elf32_bfinfdpic_finish_dynamic_symbol
4575 (bfd *output_bfd ATTRIBUTE_UNUSED,
4576 struct bfd_link_info *info ATTRIBUTE_UNUSED,
4577 struct elf_link_hash_entry *h ATTRIBUTE_UNUSED,
4578 Elf_Internal_Sym *sym ATTRIBUTE_UNUSED)
4579 {
4580 return TRUE;
4581 }
4582
4583 /* Decide whether to attempt to turn absptr or lsda encodings in
4584 shared libraries into pcrel within the given input section. */
4585
4586 static bfd_boolean
4587 bfinfdpic_elf_use_relative_eh_frame
4588 (bfd *input_bfd ATTRIBUTE_UNUSED,
4589 struct bfd_link_info *info ATTRIBUTE_UNUSED,
4590 asection *eh_frame_section ATTRIBUTE_UNUSED)
4591 {
4592 /* We can't use PC-relative encodings in FDPIC binaries, in general. */
4593 return FALSE;
4594 }
4595
4596 /* Adjust the contents of an eh_frame_hdr section before they're output. */
4597
4598 static bfd_byte
4599 bfinfdpic_elf_encode_eh_address (bfd *abfd,
4600 struct bfd_link_info *info,
4601 asection *osec, bfd_vma offset,
4602 asection *loc_sec, bfd_vma loc_offset,
4603 bfd_vma *encoded)
4604 {
4605 struct elf_link_hash_entry *h;
4606
4607 h = elf_hash_table (info)->hgot;
4608 BFD_ASSERT (h && h->root.type == bfd_link_hash_defined);
4609
4610 if (! h || (_bfinfdpic_osec_to_segment (abfd, osec)
4611 == _bfinfdpic_osec_to_segment (abfd, loc_sec->output_section)))
4612 return _bfd_elf_encode_eh_address (abfd, info, osec, offset,
4613 loc_sec, loc_offset, encoded);
4614
4615 BFD_ASSERT (_bfinfdpic_osec_to_segment (abfd, osec)
4616 == (_bfinfdpic_osec_to_segment
4617 (abfd, h->root.u.def.section->output_section)));
4618
4619 *encoded = osec->vma + offset
4620 - (h->root.u.def.value
4621 + h->root.u.def.section->output_section->vma
4622 + h->root.u.def.section->output_offset);
4623
4624 return DW_EH_PE_datarel | DW_EH_PE_sdata4;
4625 }
4626
4627
4628
4629 /* Look through the relocs for a section during the first phase.
4630
4631 Besides handling virtual table relocs for gc, we have to deal with
4632 all sorts of PIC-related relocations. We describe below the
4633 general plan on how to handle such relocations, even though we only
4634 collect information at this point, storing them in hash tables for
4635 perusal of later passes.
4636
4637 32 relocations are propagated to the linker output when creating
4638 position-independent output. LO16 and HI16 relocations are not
4639 supposed to be encountered in this case.
4640
4641 LABEL16 should always be resolvable by the linker, since it's only
4642 used by branches.
4643
4644 LABEL24, on the other hand, is used by calls. If it turns out that
4645 the target of a call is a dynamic symbol, a PLT entry must be
4646 created for it, which triggers the creation of a private function
4647 descriptor and, unless lazy binding is disabled, a lazy PLT entry.
4648
4649 GPREL relocations require the referenced symbol to be in the same
4650 segment as _gp, but this can only be checked later.
4651
4652 All GOT, GOTOFF and FUNCDESC relocations require a .got section to
4653 exist. LABEL24 might as well, since it may require a PLT entry,
4654 that will require a got.
4655
4656 Non-FUNCDESC GOT relocations require a GOT entry to be created
4657 regardless of whether the symbol is dynamic. However, since a
4658 global symbol that turns out to not be exported may have the same
4659 address of a non-dynamic symbol, we don't assign GOT entries at
4660 this point, such that we can share them in this case. A relocation
4661 for the GOT entry always has to be created, be it to offset a
4662 private symbol by the section load address, be it to get the symbol
4663 resolved dynamically.
4664
4665 FUNCDESC GOT relocations require a GOT entry to be created, and
4666 handled as if a FUNCDESC relocation was applied to the GOT entry in
4667 an object file.
4668
4669 FUNCDESC relocations referencing a symbol that turns out to NOT be
4670 dynamic cause a private function descriptor to be created. The
4671 FUNCDESC relocation then decays to a 32 relocation that points at
4672 the private descriptor. If the symbol is dynamic, the FUNCDESC
4673 relocation is propagated to the linker output, such that the
4674 dynamic linker creates the canonical descriptor, pointing to the
4675 dynamically-resolved definition of the function.
4676
4677 Non-FUNCDESC GOTOFF relocations must always refer to non-dynamic
4678 symbols that are assigned to the same segment as the GOT, but we
4679 can only check this later, after we know the complete set of
4680 symbols defined and/or exported.
4681
4682 FUNCDESC GOTOFF relocations require a function descriptor to be
4683 created and, unless lazy binding is disabled or the symbol is not
4684 dynamic, a lazy PLT entry. Since we can't tell at this point
4685 whether a symbol is going to be dynamic, we have to decide later
4686 whether to create a lazy PLT entry or bind the descriptor directly
4687 to the private function.
4688
4689 FUNCDESC_VALUE relocations are not supposed to be present in object
4690 files, but they may very well be simply propagated to the linker
4691 output, since they have no side effect.
4692
4693
4694 A function descriptor always requires a FUNCDESC_VALUE relocation.
4695 Whether it's in .plt.rel or not depends on whether lazy binding is
4696 enabled and on whether the referenced symbol is dynamic.
4697
4698 The existence of a lazy PLT requires the resolverStub lazy PLT
4699 entry to be present.
4700
4701
4702 As for assignment of GOT, PLT and lazy PLT entries, and private
4703 descriptors, we might do them all sequentially, but we can do
4704 better than that. For example, we can place GOT entries and
4705 private function descriptors referenced using 12-bit operands
4706 closer to the PIC register value, such that these relocations don't
4707 overflow. Those that are only referenced with LO16 relocations
4708 could come next, but we may as well place PLT-required function
4709 descriptors in the 12-bit range to make them shorter. Symbols
4710 referenced with LO16/HI16 may come next, but we may place
4711 additional function descriptors in the 16-bit range if we can
4712 reliably tell that we've already placed entries that are ever
4713 referenced with only LO16. PLT entries are therefore generated as
4714 small as possible, while not introducing relocation overflows in
4715 GOT or FUNCDESC_GOTOFF relocations. Lazy PLT entries could be
4716 generated before or after PLT entries, but not intermingled with
4717 them, such that we can have more lazy PLT entries in range for a
4718 branch to the resolverStub. The resolverStub should be emitted at
4719 the most distant location from the first lazy PLT entry such that
4720 it's still in range for a branch, or closer, if there isn't a need
4721 for so many lazy PLT entries. Additional lazy PLT entries may be
4722 emitted after the resolverStub, as long as branches are still in
4723 range. If the branch goes out of range, longer lazy PLT entries
4724 are emitted.
4725
4726 We could further optimize PLT and lazy PLT entries by giving them
4727 priority in assignment to closer-to-gr17 locations depending on the
4728 number of occurrences of references to them (assuming a function
4729 that's called more often is more important for performance, so its
4730 PLT entry should be faster), or taking hints from the compiler.
4731 Given infinite time and money... :-) */
4732
4733 static bfd_boolean
4734 bfinfdpic_check_relocs (bfd *abfd, struct bfd_link_info *info,
4735 asection *sec, const Elf_Internal_Rela *relocs)
4736 {
4737 Elf_Internal_Shdr *symtab_hdr;
4738 struct elf_link_hash_entry **sym_hashes;
4739 const Elf_Internal_Rela *rel;
4740 const Elf_Internal_Rela *rel_end;
4741 bfd *dynobj;
4742 struct bfinfdpic_relocs_info *picrel;
4743
4744 if (bfd_link_relocatable (info))
4745 return TRUE;
4746
4747 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
4748 sym_hashes = elf_sym_hashes (abfd);
4749
4750 dynobj = elf_hash_table (info)->dynobj;
4751 rel_end = relocs + sec->reloc_count;
4752 for (rel = relocs; rel < rel_end; rel++)
4753 {
4754 struct elf_link_hash_entry *h;
4755 unsigned long r_symndx;
4756
4757 r_symndx = ELF32_R_SYM (rel->r_info);
4758 if (r_symndx < symtab_hdr->sh_info)
4759 h = NULL;
4760 else
4761 h = sym_hashes[r_symndx - symtab_hdr->sh_info];
4762
4763 switch (ELF32_R_TYPE (rel->r_info))
4764 {
4765 case R_BFIN_GOT17M4:
4766 case R_BFIN_GOTHI:
4767 case R_BFIN_GOTLO:
4768 case R_BFIN_FUNCDESC_GOT17M4:
4769 case R_BFIN_FUNCDESC_GOTHI:
4770 case R_BFIN_FUNCDESC_GOTLO:
4771 case R_BFIN_GOTOFF17M4:
4772 case R_BFIN_GOTOFFHI:
4773 case R_BFIN_GOTOFFLO:
4774 case R_BFIN_FUNCDESC_GOTOFF17M4:
4775 case R_BFIN_FUNCDESC_GOTOFFHI:
4776 case R_BFIN_FUNCDESC_GOTOFFLO:
4777 case R_BFIN_FUNCDESC:
4778 case R_BFIN_FUNCDESC_VALUE:
4779 if (! IS_FDPIC (abfd))
4780 goto bad_reloc;
4781 /* Fall through. */
4782 case R_BFIN_PCREL24:
4783 case R_BFIN_PCREL24_JUMP_L:
4784 case R_BFIN_BYTE4_DATA:
4785 if (IS_FDPIC (abfd) && ! dynobj)
4786 {
4787 elf_hash_table (info)->dynobj = dynobj = abfd;
4788 if (! _bfin_create_got_section (abfd, info))
4789 return FALSE;
4790 }
4791 if (! IS_FDPIC (abfd))
4792 {
4793 picrel = NULL;
4794 break;
4795 }
4796 if (h != NULL)
4797 {
4798 if (h->dynindx == -1)
4799 switch (ELF_ST_VISIBILITY (h->other))
4800 {
4801 case STV_INTERNAL:
4802 case STV_HIDDEN:
4803 break;
4804 default:
4805 bfd_elf_link_record_dynamic_symbol (info, h);
4806 break;
4807 }
4808 picrel
4809 = bfinfdpic_relocs_info_for_global (bfinfdpic_relocs_info (info),
4810 abfd, h,
4811 rel->r_addend, INSERT);
4812 }
4813 else
4814 picrel = bfinfdpic_relocs_info_for_local (bfinfdpic_relocs_info
4815 (info), abfd, r_symndx,
4816 rel->r_addend, INSERT);
4817 if (! picrel)
4818 return FALSE;
4819 break;
4820
4821 default:
4822 picrel = NULL;
4823 break;
4824 }
4825
4826 switch (ELF32_R_TYPE (rel->r_info))
4827 {
4828 case R_BFIN_PCREL24:
4829 case R_BFIN_PCREL24_JUMP_L:
4830 if (IS_FDPIC (abfd))
4831 picrel->call++;
4832 break;
4833
4834 case R_BFIN_FUNCDESC_VALUE:
4835 picrel->relocsfdv++;
4836 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4837 picrel->relocs32--;
4838 /* Fall through. */
4839
4840 case R_BFIN_BYTE4_DATA:
4841 if (! IS_FDPIC (abfd))
4842 break;
4843
4844 picrel->sym++;
4845 if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
4846 picrel->relocs32++;
4847 break;
4848
4849 case R_BFIN_GOT17M4:
4850 picrel->got17m4++;
4851 break;
4852
4853 case R_BFIN_GOTHI:
4854 case R_BFIN_GOTLO:
4855 picrel->gothilo++;
4856 break;
4857
4858 case R_BFIN_FUNCDESC_GOT17M4:
4859 picrel->fdgot17m4++;
4860 break;
4861
4862 case R_BFIN_FUNCDESC_GOTHI:
4863 case R_BFIN_FUNCDESC_GOTLO:
4864 picrel->fdgothilo++;
4865 break;
4866
4867 case R_BFIN_GOTOFF17M4:
4868 case R_BFIN_GOTOFFHI:
4869 case R_BFIN_GOTOFFLO:
4870 picrel->gotoff++;
4871 break;
4872
4873 case R_BFIN_FUNCDESC_GOTOFF17M4:
4874 picrel->fdgoff17m4++;
4875 break;
4876
4877 case R_BFIN_FUNCDESC_GOTOFFHI:
4878 case R_BFIN_FUNCDESC_GOTOFFLO:
4879 picrel->fdgoffhilo++;
4880 break;
4881
4882 case R_BFIN_FUNCDESC:
4883 picrel->fd++;
4884 picrel->relocsfd++;
4885 break;
4886
4887 /* This relocation describes the C++ object vtable hierarchy.
4888 Reconstruct it for later use during GC. */
4889 case R_BFIN_GNU_VTINHERIT:
4890 if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
4891 return FALSE;
4892 break;
4893
4894 /* This relocation describes which C++ vtable entries are actually
4895 used. Record for later use during GC. */
4896 case R_BFIN_GNU_VTENTRY:
4897 BFD_ASSERT (h != NULL);
4898 if (h != NULL
4899 && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
4900 return FALSE;
4901 break;
4902
4903 case R_BFIN_HUIMM16:
4904 case R_BFIN_LUIMM16:
4905 case R_BFIN_PCREL12_JUMP_S:
4906 case R_BFIN_PCREL10:
4907 break;
4908
4909 default:
4910 bad_reloc:
4911 (*_bfd_error_handler)
4912 (_("%B: unsupported relocation type %i"),
4913 abfd, ELF32_R_TYPE (rel->r_info));
4914 return FALSE;
4915 }
4916 }
4917
4918 return TRUE;
4919 }
4920
4921 /* Set the right machine number for a Blackfin ELF file. */
4922
4923 static bfd_boolean
4924 elf32_bfin_object_p (bfd *abfd)
4925 {
4926 bfd_default_set_arch_mach (abfd, bfd_arch_bfin, 0);
4927 return (((elf_elfheader (abfd)->e_flags & EF_BFIN_FDPIC) != 0)
4928 == (IS_FDPIC (abfd)));
4929 }
4930
4931 static bfd_boolean
4932 elf32_bfin_set_private_flags (bfd * abfd, flagword flags)
4933 {
4934 elf_elfheader (abfd)->e_flags = flags;
4935 elf_flags_init (abfd) = TRUE;
4936 return TRUE;
4937 }
4938
4939 /* Display the flags field. */
4940 static bfd_boolean
4941 elf32_bfin_print_private_bfd_data (bfd * abfd, void * ptr)
4942 {
4943 FILE *file = (FILE *) ptr;
4944 flagword flags;
4945
4946 BFD_ASSERT (abfd != NULL && ptr != NULL);
4947
4948 /* Print normal ELF private data. */
4949 _bfd_elf_print_private_bfd_data (abfd, ptr);
4950
4951 flags = elf_elfheader (abfd)->e_flags;
4952
4953 /* xgettext:c-format */
4954 fprintf (file, _("private flags = %lx:"), elf_elfheader (abfd)->e_flags);
4955
4956 if (flags & EF_BFIN_PIC)
4957 fprintf (file, " -fpic");
4958
4959 if (flags & EF_BFIN_FDPIC)
4960 fprintf (file, " -mfdpic");
4961
4962 fputc ('\n', file);
4963
4964 return TRUE;
4965 }
4966
4967 /* Merge backend specific data from an object file to the output
4968 object file when linking. */
4969
4970 static bfd_boolean
4971 elf32_bfin_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
4972 {
4973 flagword old_flags, new_flags;
4974 bfd_boolean error = FALSE;
4975
4976 new_flags = elf_elfheader (ibfd)->e_flags;
4977 old_flags = elf_elfheader (obfd)->e_flags;
4978
4979 if (new_flags & EF_BFIN_FDPIC)
4980 new_flags &= ~EF_BFIN_PIC;
4981
4982 #ifndef DEBUG
4983 if (0)
4984 #endif
4985 (*_bfd_error_handler) ("old_flags = 0x%.8lx, new_flags = 0x%.8lx, init = %s, filename = %s",
4986 old_flags, new_flags, elf_flags_init (obfd) ? "yes" : "no",
4987 bfd_get_filename (ibfd));
4988
4989 if (!elf_flags_init (obfd)) /* First call, no flags set. */
4990 {
4991 elf_flags_init (obfd) = TRUE;
4992 elf_elfheader (obfd)->e_flags = new_flags;
4993 }
4994
4995 if (((new_flags & EF_BFIN_FDPIC) == 0) != (! IS_FDPIC (obfd)))
4996 {
4997 error = TRUE;
4998 if (IS_FDPIC (obfd))
4999 (*_bfd_error_handler)
5000 (_("%s: cannot link non-fdpic object file into fdpic executable"),
5001 bfd_get_filename (ibfd));
5002 else
5003 (*_bfd_error_handler)
5004 (_("%s: cannot link fdpic object file into non-fdpic executable"),
5005 bfd_get_filename (ibfd));
5006 }
5007
5008 if (error)
5009 bfd_set_error (bfd_error_bad_value);
5010
5011 return !error;
5012 }
5013 \f
5014 /* bfin ELF linker hash entry. */
5015
5016 struct bfin_link_hash_entry
5017 {
5018 struct elf_link_hash_entry root;
5019
5020 /* Number of PC relative relocs copied for this symbol. */
5021 struct bfin_pcrel_relocs_copied *pcrel_relocs_copied;
5022 };
5023
5024 /* bfin ELF linker hash table. */
5025
5026 struct bfin_link_hash_table
5027 {
5028 struct elf_link_hash_table root;
5029
5030 /* Small local sym cache. */
5031 struct sym_cache sym_cache;
5032 };
5033
5034 #define bfin_hash_entry(ent) ((struct bfin_link_hash_entry *) (ent))
5035
5036 static struct bfd_hash_entry *
5037 bfin_link_hash_newfunc (struct bfd_hash_entry *entry,
5038 struct bfd_hash_table *table, const char *string)
5039 {
5040 struct bfd_hash_entry *ret = entry;
5041
5042 /* Allocate the structure if it has not already been allocated by a
5043 subclass. */
5044 if (ret == NULL)
5045 ret = bfd_hash_allocate (table, sizeof (struct bfin_link_hash_entry));
5046 if (ret == NULL)
5047 return ret;
5048
5049 /* Call the allocation method of the superclass. */
5050 ret = _bfd_elf_link_hash_newfunc (ret, table, string);
5051 if (ret != NULL)
5052 bfin_hash_entry (ret)->pcrel_relocs_copied = NULL;
5053
5054 return ret;
5055 }
5056
5057 /* Create an bfin ELF linker hash table. */
5058
5059 static struct bfd_link_hash_table *
5060 bfin_link_hash_table_create (bfd * abfd)
5061 {
5062 struct bfin_link_hash_table *ret;
5063 bfd_size_type amt = sizeof (struct bfin_link_hash_table);
5064
5065 ret = bfd_zmalloc (amt);
5066 if (ret == NULL)
5067 return NULL;
5068
5069 if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
5070 bfin_link_hash_newfunc,
5071 sizeof (struct elf_link_hash_entry),
5072 BFIN_ELF_DATA))
5073 {
5074 free (ret);
5075 return NULL;
5076 }
5077
5078 ret->sym_cache.abfd = NULL;
5079
5080 return &ret->root.root;
5081 }
5082
5083 /* The size in bytes of an entry in the procedure linkage table. */
5084
5085 /* Finish up the dynamic sections. */
5086
5087 static bfd_boolean
5088 bfin_finish_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
5089 struct bfd_link_info *info)
5090 {
5091 bfd *dynobj;
5092 asection *sdyn;
5093
5094 dynobj = elf_hash_table (info)->dynobj;
5095
5096 sdyn = bfd_get_linker_section (dynobj, ".dynamic");
5097
5098 if (elf_hash_table (info)->dynamic_sections_created)
5099 {
5100 Elf32_External_Dyn *dyncon, *dynconend;
5101
5102 BFD_ASSERT (sdyn != NULL);
5103
5104 dyncon = (Elf32_External_Dyn *) sdyn->contents;
5105 dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
5106 for (; dyncon < dynconend; dyncon++)
5107 {
5108 Elf_Internal_Dyn dyn;
5109
5110 bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
5111
5112 }
5113
5114 }
5115 return TRUE;
5116 }
5117
5118 /* Finish up dynamic symbol handling. We set the contents of various
5119 dynamic sections here. */
5120
5121 static bfd_boolean
5122 bfin_finish_dynamic_symbol (bfd * output_bfd,
5123 struct bfd_link_info *info,
5124 struct elf_link_hash_entry *h,
5125 Elf_Internal_Sym * sym)
5126 {
5127 bfd *dynobj;
5128
5129 dynobj = elf_hash_table (info)->dynobj;
5130
5131 if (h->got.offset != (bfd_vma) - 1)
5132 {
5133 asection *sgot;
5134 asection *srela;
5135 Elf_Internal_Rela rela;
5136 bfd_byte *loc;
5137
5138 /* This symbol has an entry in the global offset table.
5139 Set it up. */
5140
5141 sgot = bfd_get_linker_section (dynobj, ".got");
5142 srela = bfd_get_linker_section (dynobj, ".rela.got");
5143 BFD_ASSERT (sgot != NULL && srela != NULL);
5144
5145 rela.r_offset = (sgot->output_section->vma
5146 + sgot->output_offset
5147 + (h->got.offset & ~(bfd_vma) 1));
5148
5149 /* If this is a -Bsymbolic link, and the symbol is defined
5150 locally, we just want to emit a RELATIVE reloc. Likewise if
5151 the symbol was forced to be local because of a version file.
5152 The entry in the global offset table will already have been
5153 initialized in the relocate_section function. */
5154 if (bfd_link_pic (info)
5155 && (info->symbolic
5156 || h->dynindx == -1 || h->forced_local) && h->def_regular)
5157 {
5158 (*_bfd_error_handler) (_("*** check this relocation %s"),
5159 __FUNCTION__);
5160 rela.r_info = ELF32_R_INFO (0, R_BFIN_PCREL24);
5161 rela.r_addend = bfd_get_signed_32 (output_bfd,
5162 (sgot->contents
5163 +
5164 (h->got.
5165 offset & ~(bfd_vma) 1)));
5166 }
5167 else
5168 {
5169 bfd_put_32 (output_bfd, (bfd_vma) 0,
5170 sgot->contents + (h->got.offset & ~(bfd_vma) 1));
5171 rela.r_info = ELF32_R_INFO (h->dynindx, R_BFIN_GOT);
5172 rela.r_addend = 0;
5173 }
5174
5175 loc = srela->contents;
5176 loc += srela->reloc_count++ * sizeof (Elf32_External_Rela);
5177 bfd_elf32_swap_reloca_out (output_bfd, &rela, loc);
5178 }
5179
5180 if (h->needs_copy)
5181 {
5182 BFD_ASSERT (0);
5183 }
5184 /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute. */
5185 if (strcmp (h->root.root.string, "__DYNAMIC") == 0
5186 || h == elf_hash_table (info)->hgot)
5187 sym->st_shndx = SHN_ABS;
5188
5189 return TRUE;
5190 }
5191
5192 /* Adjust a symbol defined by a dynamic object and referenced by a
5193 regular object. The current definition is in some section of the
5194 dynamic object, but we're not including those sections. We have to
5195 change the definition to something the rest of the link can
5196 understand. */
5197
5198 static bfd_boolean
5199 bfin_adjust_dynamic_symbol (struct bfd_link_info *info,
5200 struct elf_link_hash_entry *h)
5201 {
5202 bfd *dynobj;
5203 asection *s;
5204 unsigned int power_of_two;
5205
5206 dynobj = elf_hash_table (info)->dynobj;
5207
5208 /* Make sure we know what is going on here. */
5209 BFD_ASSERT (dynobj != NULL
5210 && (h->needs_plt
5211 || h->u.weakdef != NULL
5212 || (h->def_dynamic && h->ref_regular && !h->def_regular)));
5213
5214 /* If this is a function, put it in the procedure linkage table. We
5215 will fill in the contents of the procedure linkage table later,
5216 when we know the address of the .got section. */
5217 if (h->type == STT_FUNC || h->needs_plt)
5218 {
5219 BFD_ASSERT(0);
5220 }
5221
5222 /* If this is a weak symbol, and there is a real definition, the
5223 processor independent code will have arranged for us to see the
5224 real definition first, and we can just use the same value. */
5225 if (h->u.weakdef != NULL)
5226 {
5227 BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
5228 || h->u.weakdef->root.type == bfd_link_hash_defweak);
5229 h->root.u.def.section = h->u.weakdef->root.u.def.section;
5230 h->root.u.def.value = h->u.weakdef->root.u.def.value;
5231 return TRUE;
5232 }
5233
5234 /* This is a reference to a symbol defined by a dynamic object which
5235 is not a function. */
5236
5237 /* If we are creating a shared library, we must presume that the
5238 only references to the symbol are via the global offset table.
5239 For such cases we need not do anything here; the relocations will
5240 be handled correctly by relocate_section. */
5241 if (bfd_link_pic (info))
5242 return TRUE;
5243
5244 /* We must allocate the symbol in our .dynbss section, which will
5245 become part of the .bss section of the executable. There will be
5246 an entry for this symbol in the .dynsym section. The dynamic
5247 object will contain position independent code, so all references
5248 from the dynamic object to this symbol will go through the global
5249 offset table. The dynamic linker will use the .dynsym entry to
5250 determine the address it must put in the global offset table, so
5251 both the dynamic object and the regular object will refer to the
5252 same memory location for the variable. */
5253
5254 s = bfd_get_linker_section (dynobj, ".dynbss");
5255 BFD_ASSERT (s != NULL);
5256
5257 /* We must generate a R_68K_COPY reloc to tell the dynamic linker to
5258 copy the initial value out of the dynamic object and into the
5259 runtime process image. We need to remember the offset into the
5260 .rela.bss section we are going to use. */
5261 if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
5262 {
5263 asection *srel;
5264
5265 srel = bfd_get_linker_section (dynobj, ".rela.bss");
5266 BFD_ASSERT (srel != NULL);
5267 srel->size += sizeof (Elf32_External_Rela);
5268 h->needs_copy = 1;
5269 }
5270
5271 /* We need to figure out the alignment required for this symbol. I
5272 have no idea how ELF linkers handle this. */
5273 power_of_two = bfd_log2 (h->size);
5274 if (power_of_two > 3)
5275 power_of_two = 3;
5276
5277 /* Apply the required alignment. */
5278 s->size = BFD_ALIGN (s->size, (bfd_size_type) (1 << power_of_two));
5279 if (power_of_two > bfd_get_section_alignment (dynobj, s))
5280 {
5281 if (!bfd_set_section_alignment (dynobj, s, power_of_two))
5282 return FALSE;
5283 }
5284
5285 /* Define the symbol as being at this point in the section. */
5286 h->root.u.def.section = s;
5287 h->root.u.def.value = s->size;
5288
5289 /* Increment the section size to make room for the symbol. */
5290 s->size += h->size;
5291
5292 return TRUE;
5293 }
5294
5295 /* The bfin linker needs to keep track of the number of relocs that it
5296 decides to copy in check_relocs for each symbol. This is so that it
5297 can discard PC relative relocs if it doesn't need them when linking
5298 with -Bsymbolic. We store the information in a field extending the
5299 regular ELF linker hash table. */
5300
5301 /* This structure keeps track of the number of PC relative relocs we have
5302 copied for a given symbol. */
5303
5304 struct bfin_pcrel_relocs_copied
5305 {
5306 /* Next section. */
5307 struct bfin_pcrel_relocs_copied *next;
5308 /* A section in dynobj. */
5309 asection *section;
5310 /* Number of relocs copied in this section. */
5311 bfd_size_type count;
5312 };
5313
5314 /* This function is called via elf_link_hash_traverse if we are
5315 creating a shared object. In the -Bsymbolic case it discards the
5316 space allocated to copy PC relative relocs against symbols which
5317 are defined in regular objects. For the normal shared case, it
5318 discards space for pc-relative relocs that have become local due to
5319 symbol visibility changes. We allocated space for them in the
5320 check_relocs routine, but we won't fill them in in the
5321 relocate_section routine.
5322
5323 We also check whether any of the remaining relocations apply
5324 against a readonly section, and set the DF_TEXTREL flag in this
5325 case. */
5326
5327 static bfd_boolean
5328 bfin_discard_copies (struct elf_link_hash_entry *h, void * inf)
5329 {
5330 struct bfd_link_info *info = (struct bfd_link_info *) inf;
5331 struct bfin_pcrel_relocs_copied *s;
5332
5333 if (!h->def_regular || (!info->symbolic && !h->forced_local))
5334 {
5335 if ((info->flags & DF_TEXTREL) == 0)
5336 {
5337 /* Look for relocations against read-only sections. */
5338 for (s = bfin_hash_entry (h)->pcrel_relocs_copied;
5339 s != NULL; s = s->next)
5340 if ((s->section->flags & SEC_READONLY) != 0)
5341 {
5342 info->flags |= DF_TEXTREL;
5343 break;
5344 }
5345 }
5346
5347 return TRUE;
5348 }
5349
5350 for (s = bfin_hash_entry (h)->pcrel_relocs_copied;
5351 s != NULL; s = s->next)
5352 s->section->size -= s->count * sizeof (Elf32_External_Rela);
5353
5354 return TRUE;
5355 }
5356
5357 static bfd_boolean
5358 bfin_size_dynamic_sections (bfd * output_bfd ATTRIBUTE_UNUSED,
5359 struct bfd_link_info *info)
5360 {
5361 bfd *dynobj;
5362 asection *s;
5363 bfd_boolean relocs;
5364
5365 dynobj = elf_hash_table (info)->dynobj;
5366 BFD_ASSERT (dynobj != NULL);
5367
5368 if (elf_hash_table (info)->dynamic_sections_created)
5369 {
5370 /* Set the contents of the .interp section to the interpreter. */
5371 if (bfd_link_executable (info))
5372 {
5373 s = bfd_get_linker_section (dynobj, ".interp");
5374 BFD_ASSERT (s != NULL);
5375 s->size = sizeof ELF_DYNAMIC_INTERPRETER;
5376 s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
5377 }
5378 }
5379 else
5380 {
5381 /* We may have created entries in the .rela.got section.
5382 However, if we are not creating the dynamic sections, we will
5383 not actually use these entries. Reset the size of .rela.got,
5384 which will cause it to get stripped from the output file
5385 below. */
5386 s = bfd_get_linker_section (dynobj, ".rela.got");
5387 if (s != NULL)
5388 s->size = 0;
5389 }
5390
5391 /* If this is a -Bsymbolic shared link, then we need to discard all
5392 PC relative relocs against symbols defined in a regular object.
5393 For the normal shared case we discard the PC relative relocs
5394 against symbols that have become local due to visibility changes.
5395 We allocated space for them in the check_relocs routine, but we
5396 will not fill them in in the relocate_section routine. */
5397 if (bfd_link_pic (info))
5398 elf_link_hash_traverse (elf_hash_table (info),
5399 bfin_discard_copies, info);
5400
5401 /* The check_relocs and adjust_dynamic_symbol entry points have
5402 determined the sizes of the various dynamic sections. Allocate
5403 memory for them. */
5404 relocs = FALSE;
5405 for (s = dynobj->sections; s != NULL; s = s->next)
5406 {
5407 const char *name;
5408 bfd_boolean strip;
5409
5410 if ((s->flags & SEC_LINKER_CREATED) == 0)
5411 continue;
5412
5413 /* It's OK to base decisions on the section name, because none
5414 of the dynobj section names depend upon the input files. */
5415 name = bfd_get_section_name (dynobj, s);
5416
5417 strip = FALSE;
5418
5419 if (CONST_STRNEQ (name, ".rela"))
5420 {
5421 if (s->size == 0)
5422 {
5423 /* If we don't need this section, strip it from the
5424 output file. This is mostly to handle .rela.bss and
5425 .rela.plt. We must create both sections in
5426 create_dynamic_sections, because they must be created
5427 before the linker maps input sections to output
5428 sections. The linker does that before
5429 adjust_dynamic_symbol is called, and it is that
5430 function which decides whether anything needs to go
5431 into these sections. */
5432 strip = TRUE;
5433 }
5434 else
5435 {
5436 relocs = TRUE;
5437
5438 /* We use the reloc_count field as a counter if we need
5439 to copy relocs into the output file. */
5440 s->reloc_count = 0;
5441 }
5442 }
5443 else if (! CONST_STRNEQ (name, ".got"))
5444 {
5445 /* It's not one of our sections, so don't allocate space. */
5446 continue;
5447 }
5448
5449 if (strip)
5450 {
5451 s->flags |= SEC_EXCLUDE;
5452 continue;
5453 }
5454
5455 /* Allocate memory for the section contents. */
5456 /* FIXME: This should be a call to bfd_alloc not bfd_zalloc.
5457 Unused entries should be reclaimed before the section's contents
5458 are written out, but at the moment this does not happen. Thus in
5459 order to prevent writing out garbage, we initialise the section's
5460 contents to zero. */
5461 s->contents = (bfd_byte *) bfd_zalloc (dynobj, s->size);
5462 if (s->contents == NULL && s->size != 0)
5463 return FALSE;
5464 }
5465
5466 if (elf_hash_table (info)->dynamic_sections_created)
5467 {
5468 /* Add some entries to the .dynamic section. We fill in the
5469 values later, in bfin_finish_dynamic_sections, but we
5470 must add the entries now so that we get the correct size for
5471 the .dynamic section. The DT_DEBUG entry is filled in by the
5472 dynamic linker and used by the debugger. */
5473 #define add_dynamic_entry(TAG, VAL) \
5474 _bfd_elf_add_dynamic_entry (info, TAG, VAL)
5475
5476 if (!bfd_link_pic (info))
5477 {
5478 if (!add_dynamic_entry (DT_DEBUG, 0))
5479 return FALSE;
5480 }
5481
5482
5483 if (relocs)
5484 {
5485 if (!add_dynamic_entry (DT_RELA, 0)
5486 || !add_dynamic_entry (DT_RELASZ, 0)
5487 || !add_dynamic_entry (DT_RELAENT,
5488 sizeof (Elf32_External_Rela)))
5489 return FALSE;
5490 }
5491
5492 if ((info->flags & DF_TEXTREL) != 0)
5493 {
5494 if (!add_dynamic_entry (DT_TEXTREL, 0))
5495 return FALSE;
5496 }
5497 }
5498 #undef add_dynamic_entry
5499
5500 return TRUE;
5501 }
5502 \f
5503 /* Given a .data section and a .emreloc in-memory section, store
5504 relocation information into the .emreloc section which can be
5505 used at runtime to relocate the section. This is called by the
5506 linker when the --embedded-relocs switch is used. This is called
5507 after the add_symbols entry point has been called for all the
5508 objects, and before the final_link entry point is called. */
5509
5510 bfd_boolean
5511 bfd_bfin_elf32_create_embedded_relocs (bfd *abfd,
5512 struct bfd_link_info *info,
5513 asection *datasec,
5514 asection *relsec,
5515 char **errmsg)
5516 {
5517 Elf_Internal_Shdr *symtab_hdr;
5518 Elf_Internal_Sym *isymbuf = NULL;
5519 Elf_Internal_Rela *internal_relocs = NULL;
5520 Elf_Internal_Rela *irel, *irelend;
5521 bfd_byte *p;
5522 bfd_size_type amt;
5523
5524 BFD_ASSERT (! bfd_link_relocatable (info));
5525
5526 *errmsg = NULL;
5527
5528 if (datasec->reloc_count == 0)
5529 return TRUE;
5530
5531 symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
5532
5533 /* Get a copy of the native relocations. */
5534 internal_relocs = (_bfd_elf_link_read_relocs
5535 (abfd, datasec, NULL, (Elf_Internal_Rela *) NULL,
5536 info->keep_memory));
5537 if (internal_relocs == NULL)
5538 goto error_return;
5539
5540 amt = (bfd_size_type) datasec->reloc_count * 12;
5541 relsec->contents = (bfd_byte *) bfd_alloc (abfd, amt);
5542 if (relsec->contents == NULL)
5543 goto error_return;
5544
5545 p = relsec->contents;
5546
5547 irelend = internal_relocs + datasec->reloc_count;
5548 for (irel = internal_relocs; irel < irelend; irel++, p += 12)
5549 {
5550 asection *targetsec;
5551
5552 /* We are going to write a four byte longword into the runtime
5553 reloc section. The longword will be the address in the data
5554 section which must be relocated. It is followed by the name
5555 of the target section NUL-padded or truncated to 8
5556 characters. */
5557
5558 /* We can only relocate absolute longword relocs at run time. */
5559 if (ELF32_R_TYPE (irel->r_info) != (int) R_BFIN_BYTE4_DATA)
5560 {
5561 *errmsg = _("unsupported reloc type");
5562 bfd_set_error (bfd_error_bad_value);
5563 goto error_return;
5564 }
5565
5566 /* Get the target section referred to by the reloc. */
5567 if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
5568 {
5569 /* A local symbol. */
5570 Elf_Internal_Sym *isym;
5571
5572 /* Read this BFD's local symbols if we haven't done so already. */
5573 if (isymbuf == NULL)
5574 {
5575 isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
5576 if (isymbuf == NULL)
5577 isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
5578 symtab_hdr->sh_info, 0,
5579 NULL, NULL, NULL);
5580 if (isymbuf == NULL)
5581 goto error_return;
5582 }
5583
5584 isym = isymbuf + ELF32_R_SYM (irel->r_info);
5585 targetsec = bfd_section_from_elf_index (abfd, isym->st_shndx);
5586 }
5587 else
5588 {
5589 unsigned long indx;
5590 struct elf_link_hash_entry *h;
5591
5592 /* An external symbol. */
5593 indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
5594 h = elf_sym_hashes (abfd)[indx];
5595 BFD_ASSERT (h != NULL);
5596 if (h->root.type == bfd_link_hash_defined
5597 || h->root.type == bfd_link_hash_defweak)
5598 targetsec = h->root.u.def.section;
5599 else
5600 targetsec = NULL;
5601 }
5602
5603 bfd_put_32 (abfd, irel->r_offset + datasec->output_offset, p);
5604 memset (p + 4, 0, 8);
5605 if (targetsec != NULL)
5606 strncpy ((char *) p + 4, targetsec->output_section->name, 8);
5607 }
5608
5609 if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
5610 free (isymbuf);
5611 if (internal_relocs != NULL
5612 && elf_section_data (datasec)->relocs != internal_relocs)
5613 free (internal_relocs);
5614 return TRUE;
5615
5616 error_return:
5617 if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
5618 free (isymbuf);
5619 if (internal_relocs != NULL
5620 && elf_section_data (datasec)->relocs != internal_relocs)
5621 free (internal_relocs);
5622 return FALSE;
5623 }
5624
5625 struct bfd_elf_special_section const elf32_bfin_special_sections[] =
5626 {
5627 { ".l1.text", 8, -2, SHT_PROGBITS, SHF_ALLOC + SHF_EXECINSTR },
5628 { ".l1.data", 8, -2, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
5629 { NULL, 0, 0, 0, 0 }
5630 };
5631
5632 \f
5633 #define TARGET_LITTLE_SYM bfin_elf32_vec
5634 #define TARGET_LITTLE_NAME "elf32-bfin"
5635 #define ELF_ARCH bfd_arch_bfin
5636 #define ELF_TARGET_ID BFIN_ELF_DATA
5637 #define ELF_MACHINE_CODE EM_BLACKFIN
5638 #define ELF_MAXPAGESIZE 0x1000
5639 #define elf_symbol_leading_char '_'
5640
5641 #define bfd_elf32_bfd_reloc_type_lookup bfin_bfd_reloc_type_lookup
5642 #define bfd_elf32_bfd_reloc_name_lookup \
5643 bfin_bfd_reloc_name_lookup
5644 #define elf_info_to_howto bfin_info_to_howto
5645 #define elf_info_to_howto_rel 0
5646 #define elf_backend_object_p elf32_bfin_object_p
5647
5648 #define bfd_elf32_bfd_is_local_label_name \
5649 bfin_is_local_label_name
5650 #define bfin_hash_table(p) \
5651 ((struct bfin_link_hash_table *) (p)->hash)
5652
5653
5654
5655 #define elf_backend_create_dynamic_sections \
5656 _bfd_elf_create_dynamic_sections
5657 #define bfd_elf32_bfd_link_hash_table_create \
5658 bfin_link_hash_table_create
5659 #define bfd_elf32_bfd_final_link bfd_elf_gc_common_final_link
5660
5661 #define elf_backend_check_relocs bfin_check_relocs
5662 #define elf_backend_adjust_dynamic_symbol \
5663 bfin_adjust_dynamic_symbol
5664 #define elf_backend_size_dynamic_sections \
5665 bfin_size_dynamic_sections
5666 #define elf_backend_relocate_section bfin_relocate_section
5667 #define elf_backend_finish_dynamic_symbol \
5668 bfin_finish_dynamic_symbol
5669 #define elf_backend_finish_dynamic_sections \
5670 bfin_finish_dynamic_sections
5671 #define elf_backend_gc_mark_hook bfin_gc_mark_hook
5672 #define elf_backend_gc_sweep_hook bfin_gc_sweep_hook
5673 #define bfd_elf32_bfd_merge_private_bfd_data \
5674 elf32_bfin_merge_private_bfd_data
5675 #define bfd_elf32_bfd_set_private_flags \
5676 elf32_bfin_set_private_flags
5677 #define bfd_elf32_bfd_print_private_bfd_data \
5678 elf32_bfin_print_private_bfd_data
5679 #define elf_backend_final_write_processing \
5680 elf32_bfin_final_write_processing
5681 #define elf_backend_reloc_type_class elf32_bfin_reloc_type_class
5682 #define elf_backend_stack_align 8
5683 #define elf_backend_can_gc_sections 1
5684 #define elf_backend_special_sections elf32_bfin_special_sections
5685 #define elf_backend_can_refcount 1
5686 #define elf_backend_want_got_plt 0
5687 #define elf_backend_plt_readonly 1
5688 #define elf_backend_want_plt_sym 0
5689 #define elf_backend_got_header_size 12
5690 #define elf_backend_rela_normal 1
5691
5692 #include "elf32-target.h"
5693
5694 #undef TARGET_LITTLE_SYM
5695 #define TARGET_LITTLE_SYM bfin_elf32_fdpic_vec
5696 #undef TARGET_LITTLE_NAME
5697 #define TARGET_LITTLE_NAME "elf32-bfinfdpic"
5698 #undef elf32_bed
5699 #define elf32_bed elf32_bfinfdpic_bed
5700
5701 #undef elf_backend_gc_sweep_hook
5702 #define elf_backend_gc_sweep_hook bfinfdpic_gc_sweep_hook
5703
5704 #undef elf_backend_got_header_size
5705 #define elf_backend_got_header_size 0
5706
5707 #undef elf_backend_relocate_section
5708 #define elf_backend_relocate_section bfinfdpic_relocate_section
5709 #undef elf_backend_check_relocs
5710 #define elf_backend_check_relocs bfinfdpic_check_relocs
5711
5712 #undef bfd_elf32_bfd_link_hash_table_create
5713 #define bfd_elf32_bfd_link_hash_table_create \
5714 bfinfdpic_elf_link_hash_table_create
5715 #undef elf_backend_always_size_sections
5716 #define elf_backend_always_size_sections \
5717 elf32_bfinfdpic_always_size_sections
5718
5719 #undef elf_backend_create_dynamic_sections
5720 #define elf_backend_create_dynamic_sections \
5721 elf32_bfinfdpic_create_dynamic_sections
5722 #undef elf_backend_adjust_dynamic_symbol
5723 #define elf_backend_adjust_dynamic_symbol \
5724 elf32_bfinfdpic_adjust_dynamic_symbol
5725 #undef elf_backend_size_dynamic_sections
5726 #define elf_backend_size_dynamic_sections \
5727 elf32_bfinfdpic_size_dynamic_sections
5728 #undef elf_backend_finish_dynamic_symbol
5729 #define elf_backend_finish_dynamic_symbol \
5730 elf32_bfinfdpic_finish_dynamic_symbol
5731 #undef elf_backend_finish_dynamic_sections
5732 #define elf_backend_finish_dynamic_sections \
5733 elf32_bfinfdpic_finish_dynamic_sections
5734
5735 #undef elf_backend_discard_info
5736 #define elf_backend_discard_info \
5737 bfinfdpic_elf_discard_info
5738 #undef elf_backend_can_make_relative_eh_frame
5739 #define elf_backend_can_make_relative_eh_frame \
5740 bfinfdpic_elf_use_relative_eh_frame
5741 #undef elf_backend_can_make_lsda_relative_eh_frame
5742 #define elf_backend_can_make_lsda_relative_eh_frame \
5743 bfinfdpic_elf_use_relative_eh_frame
5744 #undef elf_backend_encode_eh_address
5745 #define elf_backend_encode_eh_address \
5746 bfinfdpic_elf_encode_eh_address
5747
5748 #undef elf_backend_may_use_rel_p
5749 #define elf_backend_may_use_rel_p 1
5750 #undef elf_backend_may_use_rela_p
5751 #define elf_backend_may_use_rela_p 1
5752 /* We use REL for dynamic relocations only. */
5753 #undef elf_backend_default_use_rela_p
5754 #define elf_backend_default_use_rela_p 1
5755
5756 #undef elf_backend_omit_section_dynsym
5757 #define elf_backend_omit_section_dynsym _bfinfdpic_link_omit_section_dynsym
5758
5759 #include "elf32-target.h"
GDB Binutils - Deliverables
This page took 0.163646 seconds and 3 git commands to generate.