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