?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2011-03-25 Tristan Gingold <gingold@adacore.com>
[binutils.git] / bfd / coff-arm.c
blobbdadfb2cd4ab866304b5415a198f392914085fe1
1 /* BFD back-end for ARM COFF files.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
5 Written by Cygnus Support.
6
7 This file is part of BFD, the Binary File Descriptor library.
8
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
13
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
22 MA 02110-1301, USA. */
23
24 #include "sysdep.h"
25 #include "bfd.h"
26 #include "libbfd.h"
27 #include "coff/arm.h"
28 #include "coff/internal.h"
29
30 #ifdef COFF_WITH_PE
31 #include "coff/pe.h"
32 #endif
33
34 #include "libcoff.h"
35
36 /* Macros for manipulation the bits in the flags field of the coff data
37 structure. */
38 #define APCS_26_FLAG(abfd) \
39 (coff_data (abfd)->flags & F_APCS_26)
40
41 #define APCS_FLOAT_FLAG(abfd) \
42 (coff_data (abfd)->flags & F_APCS_FLOAT)
43
44 #define PIC_FLAG(abfd) \
45 (coff_data (abfd)->flags & F_PIC)
46
47 #define APCS_SET(abfd) \
48 (coff_data (abfd)->flags & F_APCS_SET)
49
50 #define SET_APCS_FLAGS(abfd, flgs) \
51 do \
52 { \
53 coff_data (abfd)->flags &= ~(F_APCS_26 | F_APCS_FLOAT | F_PIC); \
54 coff_data (abfd)->flags |= (flgs) | F_APCS_SET; \
55 } \
56 while (0)
57
58 #define INTERWORK_FLAG(abfd) \
59 (coff_data (abfd)->flags & F_INTERWORK)
60
61 #define INTERWORK_SET(abfd) \
62 (coff_data (abfd)->flags & F_INTERWORK_SET)
63
64 #define SET_INTERWORK_FLAG(abfd, flg) \
65 do \
66 { \
67 coff_data (abfd)->flags &= ~F_INTERWORK; \
68 coff_data (abfd)->flags |= (flg) | F_INTERWORK_SET; \
69 } \
70 while (0)
71
72 #ifndef NUM_ELEM
73 #define NUM_ELEM(a) ((sizeof (a)) / sizeof ((a)[0]))
74 #endif
75
76 typedef enum {bunknown, b9, b12, b23} thumb_pcrel_branchtype;
77 /* Some typedefs for holding instructions. */
78 typedef unsigned long int insn32;
79 typedef unsigned short int insn16;
80
81 /* The linker script knows the section names for placement.
82 The entry_names are used to do simple name mangling on the stubs.
83 Given a function name, and its type, the stub can be found. The
84 name can be changed. The only requirement is the %s be present. */
85
86 #define THUMB2ARM_GLUE_SECTION_NAME ".glue_7t"
87 #define THUMB2ARM_GLUE_ENTRY_NAME "__%s_from_thumb"
88
89 #define ARM2THUMB_GLUE_SECTION_NAME ".glue_7"
90 #define ARM2THUMB_GLUE_ENTRY_NAME "__%s_from_arm"
91
92 /* Used by the assembler. */
93
94 static bfd_reloc_status_type
95 coff_arm_reloc (bfd *abfd,
96 arelent *reloc_entry,
97 asymbol *symbol ATTRIBUTE_UNUSED,
98 void * data,
99 asection *input_section ATTRIBUTE_UNUSED,
100 bfd *output_bfd,
101 char **error_message ATTRIBUTE_UNUSED)
102 {
103 symvalue diff;
104
105 if (output_bfd == NULL)
106 return bfd_reloc_continue;
107
108 diff = reloc_entry->addend;
109
110 #define DOIT(x) \
111 x = ((x & ~howto->dst_mask) \
112 | (((x & howto->src_mask) + diff) & howto->dst_mask))
113
114 if (diff != 0)
115 {
116 reloc_howto_type *howto = reloc_entry->howto;
117 unsigned char *addr = (unsigned char *) data + reloc_entry->address;
118
119 switch (howto->size)
120 {
121 case 0:
122 {
123 char x = bfd_get_8 (abfd, addr);
124 DOIT (x);
125 bfd_put_8 (abfd, x, addr);
126 }
127 break;
128
129 case 1:
130 {
131 short x = bfd_get_16 (abfd, addr);
132 DOIT (x);
133 bfd_put_16 (abfd, (bfd_vma) x, addr);
134 }
135 break;
136
137 case 2:
138 {
139 long x = bfd_get_32 (abfd, addr);
140 DOIT (x);
141 bfd_put_32 (abfd, (bfd_vma) x, addr);
142 }
143 break;
144
145 default:
146 abort ();
147 }
148 }
149
150 /* Now let bfd_perform_relocation finish everything up. */
151 return bfd_reloc_continue;
152 }
153
154 /* If USER_LABEL_PREFIX is defined as "_" (see coff_arm_is_local_label_name()
155 in this file), then TARGET_UNDERSCORE should be defined, otherwise it
156 should not. */
157 #ifndef TARGET_UNDERSCORE
158 #define TARGET_UNDERSCORE '_'
159 #endif
160
161 #ifndef PCRELOFFSET
162 #define PCRELOFFSET TRUE
163 #endif
164
165 /* These most certainly belong somewhere else. Just had to get rid of
166 the manifest constants in the code. */
167
168 #ifdef ARM_WINCE
169
170 #define ARM_26D 0
171 #define ARM_32 1
172 #define ARM_RVA32 2
173 #define ARM_26 3
174 #define ARM_THUMB12 4
175 #define ARM_SECTION 14
176 #define ARM_SECREL 15
177
178 #else
179
180 #define ARM_8 0
181 #define ARM_16 1
182 #define ARM_32 2
183 #define ARM_26 3
184 #define ARM_DISP8 4
185 #define ARM_DISP16 5
186 #define ARM_DISP32 6
187 #define ARM_26D 7
188 /* 8 is unused. */
189 #define ARM_NEG16 9
190 #define ARM_NEG32 10
191 #define ARM_RVA32 11
192 #define ARM_THUMB9 12
193 #define ARM_THUMB12 13
194 #define ARM_THUMB23 14
195
196 #endif
197
198 static bfd_reloc_status_type aoutarm_fix_pcrel_26_done
199 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
200 static bfd_reloc_status_type aoutarm_fix_pcrel_26
201 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
202 static bfd_reloc_status_type coff_thumb_pcrel_12
203 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
204 #ifndef ARM_WINCE
205 static bfd_reloc_status_type coff_thumb_pcrel_9
206 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
207 static bfd_reloc_status_type coff_thumb_pcrel_23
208 (bfd *, arelent *, asymbol *, void *, asection *, bfd *, char **);
209 #endif
210
211 static reloc_howto_type aoutarm_std_reloc_howto[] =
212 {
213 #ifdef ARM_WINCE
214 HOWTO (ARM_26D,
215 2,
216 2,
217 24,
218 TRUE,
219 0,
220 complain_overflow_dont,
221 aoutarm_fix_pcrel_26_done,
222 "ARM_26D",
223 TRUE, /* partial_inplace. */
224 0x00ffffff,
225 0x0,
226 PCRELOFFSET),
227 HOWTO (ARM_32,
228 0,
229 2,
230 32,
231 FALSE,
232 0,
233 complain_overflow_bitfield,
234 coff_arm_reloc,
235 "ARM_32",
236 TRUE, /* partial_inplace. */
237 0xffffffff,
238 0xffffffff,
239 PCRELOFFSET),
240 HOWTO (ARM_RVA32,
241 0,
242 2,
243 32,
244 FALSE,
245 0,
246 complain_overflow_bitfield,
247 coff_arm_reloc,
248 "ARM_RVA32",
249 TRUE, /* partial_inplace. */
250 0xffffffff,
251 0xffffffff,
252 PCRELOFFSET),
253 HOWTO (ARM_26,
254 2,
255 2,
256 24,
257 TRUE,
258 0,
259 complain_overflow_signed,
260 aoutarm_fix_pcrel_26 ,
261 "ARM_26",
262 FALSE,
263 0x00ffffff,
264 0x00ffffff,
265 PCRELOFFSET),
266 HOWTO (ARM_THUMB12,
267 1,
268 1,
269 11,
270 TRUE,
271 0,
272 complain_overflow_signed,
273 coff_thumb_pcrel_12 ,
274 "ARM_THUMB12",
275 FALSE,
276 0x000007ff,
277 0x000007ff,
278 PCRELOFFSET),
279 EMPTY_HOWTO (-1),
280 EMPTY_HOWTO (-1),
281 EMPTY_HOWTO (-1),
282 EMPTY_HOWTO (-1),
283 EMPTY_HOWTO (-1),
284 EMPTY_HOWTO (-1),
285 EMPTY_HOWTO (-1),
286 EMPTY_HOWTO (-1),
287 EMPTY_HOWTO (-1),
288 HOWTO (ARM_SECTION,
289 0,
290 1,
291 16,
292 FALSE,
293 0,
294 complain_overflow_bitfield,
295 coff_arm_reloc,
296 "ARM_SECTION",
297 TRUE, /* partial_inplace. */
298 0x0000ffff,
299 0x0000ffff,
300 PCRELOFFSET),
301 HOWTO (ARM_SECREL,
302 0,
303 2,
304 32,
305 FALSE,
306 0,
307 complain_overflow_bitfield,
308 coff_arm_reloc,
309 "ARM_SECREL",
310 TRUE, /* partial_inplace. */
311 0xffffffff,
312 0xffffffff,
313 PCRELOFFSET),
314 #else /* not ARM_WINCE */
315 HOWTO (ARM_8,
316 0,
317 0,
318 8,
319 FALSE,
320 0,
321 complain_overflow_bitfield,
322 coff_arm_reloc,
323 "ARM_8",
324 TRUE,
325 0x000000ff,
326 0x000000ff,
327 PCRELOFFSET),
328 HOWTO (ARM_16,
329 0,
330 1,
331 16,
332 FALSE,
333 0,
334 complain_overflow_bitfield,
335 coff_arm_reloc,
336 "ARM_16",
337 TRUE,
338 0x0000ffff,
339 0x0000ffff,
340 PCRELOFFSET),
341 HOWTO (ARM_32,
342 0,
343 2,
344 32,
345 FALSE,
346 0,
347 complain_overflow_bitfield,
348 coff_arm_reloc,
349 "ARM_32",
350 TRUE,
351 0xffffffff,
352 0xffffffff,
353 PCRELOFFSET),
354 HOWTO (ARM_26,
355 2,
356 2,
357 24,
358 TRUE,
359 0,
360 complain_overflow_signed,
361 aoutarm_fix_pcrel_26 ,
362 "ARM_26",
363 FALSE,
364 0x00ffffff,
365 0x00ffffff,
366 PCRELOFFSET),
367 HOWTO (ARM_DISP8,
368 0,
369 0,
370 8,
371 TRUE,
372 0,
373 complain_overflow_signed,
374 coff_arm_reloc,
375 "ARM_DISP8",
376 TRUE,
377 0x000000ff,
378 0x000000ff,
379 TRUE),
380 HOWTO (ARM_DISP16,
381 0,
382 1,
383 16,
384 TRUE,
385 0,
386 complain_overflow_signed,
387 coff_arm_reloc,
388 "ARM_DISP16",
389 TRUE,
390 0x0000ffff,
391 0x0000ffff,
392 TRUE),
393 HOWTO (ARM_DISP32,
394 0,
395 2,
396 32,
397 TRUE,
398 0,
399 complain_overflow_signed,
400 coff_arm_reloc,
401 "ARM_DISP32",
402 TRUE,
403 0xffffffff,
404 0xffffffff,
405 TRUE),
406 HOWTO (ARM_26D,
407 2,
408 2,
409 24,
410 FALSE,
411 0,
412 complain_overflow_dont,
413 aoutarm_fix_pcrel_26_done,
414 "ARM_26D",
415 TRUE,
416 0x00ffffff,
417 0x0,
418 FALSE),
419 /* 8 is unused */
420 EMPTY_HOWTO (-1),
421 HOWTO (ARM_NEG16,
422 0,
423 -1,
424 16,
425 FALSE,
426 0,
427 complain_overflow_bitfield,
428 coff_arm_reloc,
429 "ARM_NEG16",
430 TRUE,
431 0x0000ffff,
432 0x0000ffff,
433 FALSE),
434 HOWTO (ARM_NEG32,
435 0,
436 -2,
437 32,
438 FALSE,
439 0,
440 complain_overflow_bitfield,
441 coff_arm_reloc,
442 "ARM_NEG32",
443 TRUE,
444 0xffffffff,
445 0xffffffff,
446 FALSE),
447 HOWTO (ARM_RVA32,
448 0,
449 2,
450 32,
451 FALSE,
452 0,
453 complain_overflow_bitfield,
454 coff_arm_reloc,
455 "ARM_RVA32",
456 TRUE,
457 0xffffffff,
458 0xffffffff,
459 PCRELOFFSET),
460 HOWTO (ARM_THUMB9,
461 1,
462 1,
463 8,
464 TRUE,
465 0,
466 complain_overflow_signed,
467 coff_thumb_pcrel_9 ,
468 "ARM_THUMB9",
469 FALSE,
470 0x000000ff,
471 0x000000ff,
472 PCRELOFFSET),
473 HOWTO (ARM_THUMB12,
474 1,
475 1,
476 11,
477 TRUE,
478 0,
479 complain_overflow_signed,
480 coff_thumb_pcrel_12 ,
481 "ARM_THUMB12",
482 FALSE,
483 0x000007ff,
484 0x000007ff,
485 PCRELOFFSET),
486 HOWTO (ARM_THUMB23,
487 1,
488 2,
489 22,
490 TRUE,
491 0,
492 complain_overflow_signed,
493 coff_thumb_pcrel_23 ,
494 "ARM_THUMB23",
495 FALSE,
496 0x07ff07ff,
497 0x07ff07ff,
498 PCRELOFFSET)
499 #endif /* not ARM_WINCE */
500 };
501
502 #define NUM_RELOCS NUM_ELEM (aoutarm_std_reloc_howto)
503
504 #ifdef COFF_WITH_PE
505 /* Return TRUE if this relocation should
506 appear in the output .reloc section. */
507
508 static bfd_boolean
509 in_reloc_p (bfd * abfd ATTRIBUTE_UNUSED,
510 reloc_howto_type * howto)
511 {
512 return !howto->pc_relative && howto->type != ARM_RVA32;
513 }
514 #endif
515
516 #define RTYPE2HOWTO(cache_ptr, dst) \
517 (cache_ptr)->howto = \
518 (dst)->r_type < NUM_RELOCS \
519 ? aoutarm_std_reloc_howto + (dst)->r_type \
520 : NULL
521
522 #define coff_rtype_to_howto coff_arm_rtype_to_howto
523
524 static reloc_howto_type *
525 coff_arm_rtype_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
526 asection *sec,
527 struct internal_reloc *rel,
528 struct coff_link_hash_entry *h ATTRIBUTE_UNUSED,
529 struct internal_syment *sym ATTRIBUTE_UNUSED,
530 bfd_vma *addendp)
531 {
532 reloc_howto_type * howto;
533
534 if (rel->r_type >= NUM_RELOCS)
535 return NULL;
536
537 howto = aoutarm_std_reloc_howto + rel->r_type;
538
539 if (rel->r_type == ARM_RVA32)
540 *addendp -= pe_data (sec->output_section->owner)->pe_opthdr.ImageBase;
541
542 #if defined COFF_WITH_PE && defined ARM_WINCE
543 if (rel->r_type == ARM_SECREL)
544 {
545 bfd_vma osect_vma;
546
547 if (h && (h->type == bfd_link_hash_defined
548 || h->type == bfd_link_hash_defweak))
549 osect_vma = h->root.u.def.section->output_section->vma;
550 else
551 {
552 int i;
553
554 /* Sigh, the only way to get the section to offset against
555 is to find it the hard way. */
556
557 for (sec = abfd->sections, i = 1; i < sym->n_scnum; i++)
558 sec = sec->next;
559
560 osect_vma = sec->output_section->vma;
561 }
562
563 *addendp -= osect_vma;
564 }
565 #endif
566
567 return howto;
568 }
569
570 /* Used by the assembler. */
571
572 static bfd_reloc_status_type
573 aoutarm_fix_pcrel_26_done (bfd *abfd ATTRIBUTE_UNUSED,
574 arelent *reloc_entry ATTRIBUTE_UNUSED,
575 asymbol *symbol ATTRIBUTE_UNUSED,
576 void * data ATTRIBUTE_UNUSED,
577 asection *input_section ATTRIBUTE_UNUSED,
578 bfd *output_bfd ATTRIBUTE_UNUSED,
579 char **error_message ATTRIBUTE_UNUSED)
580 {
581 /* This is dead simple at present. */
582 return bfd_reloc_ok;
583 }
584
585 /* Used by the assembler. */
586
587 static bfd_reloc_status_type
588 aoutarm_fix_pcrel_26 (bfd *abfd,
589 arelent *reloc_entry,
590 asymbol *symbol,
591 void * data,
592 asection *input_section,
593 bfd *output_bfd,
594 char **error_message ATTRIBUTE_UNUSED)
595 {
596 bfd_vma relocation;
597 bfd_size_type addr = reloc_entry->address;
598 long target = bfd_get_32 (abfd, (bfd_byte *) data + addr);
599 bfd_reloc_status_type flag = bfd_reloc_ok;
600
601 /* If this is an undefined symbol, return error. */
602 if (symbol->section == &bfd_und_section
603 && (symbol->flags & BSF_WEAK) == 0)
604 return output_bfd ? bfd_reloc_continue : bfd_reloc_undefined;
605
606 /* If the sections are different, and we are doing a partial relocation,
607 just ignore it for now. */
608 if (symbol->section->name != input_section->name
609 && output_bfd != (bfd *)NULL)
610 return bfd_reloc_continue;
611
612 relocation = (target & 0x00ffffff) << 2;
613 relocation = (relocation ^ 0x02000000) - 0x02000000; /* Sign extend. */
614 relocation += symbol->value;
615 relocation += symbol->section->output_section->vma;
616 relocation += symbol->section->output_offset;
617 relocation += reloc_entry->addend;
618 relocation -= input_section->output_section->vma;
619 relocation -= input_section->output_offset;
620 relocation -= addr;
621
622 if (relocation & 3)
623 return bfd_reloc_overflow;
624
625 /* Check for overflow. */
626 if (relocation & 0x02000000)
627 {
628 if ((relocation & ~ (bfd_vma) 0x03ffffff) != ~ (bfd_vma) 0x03ffffff)
629 flag = bfd_reloc_overflow;
630 }
631 else if (relocation & ~(bfd_vma) 0x03ffffff)
632 flag = bfd_reloc_overflow;
633
634 target &= ~0x00ffffff;
635 target |= (relocation >> 2) & 0x00ffffff;
636 bfd_put_32 (abfd, (bfd_vma) target, (bfd_byte *) data + addr);
637
638 /* Now the ARM magic... Change the reloc type so that it is marked as done.
639 Strictly this is only necessary if we are doing a partial relocation. */
640 reloc_entry->howto = &aoutarm_std_reloc_howto[ARM_26D];
641
642 return flag;
643 }
644
645 static bfd_reloc_status_type
646 coff_thumb_pcrel_common (bfd *abfd,
647 arelent *reloc_entry,
648 asymbol *symbol,
649 void * data,
650 asection *input_section,
651 bfd *output_bfd,
652 char **error_message ATTRIBUTE_UNUSED,
653 thumb_pcrel_branchtype btype)
654 {
655 bfd_vma relocation = 0;
656 bfd_size_type addr = reloc_entry->address;
657 long target = bfd_get_32 (abfd, (bfd_byte *) data + addr);
658 bfd_reloc_status_type flag = bfd_reloc_ok;
659 bfd_vma dstmsk;
660 bfd_vma offmsk;
661 bfd_vma signbit;
662
663 /* NOTE: This routine is currently used by GAS, but not by the link
664 phase. */
665 switch (btype)
666 {
667 case b9:
668 dstmsk = 0x000000ff;
669 offmsk = 0x000001fe;
670 signbit = 0x00000100;
671 break;
672
673 case b12:
674 dstmsk = 0x000007ff;
675 offmsk = 0x00000ffe;
676 signbit = 0x00000800;
677 break;
678
679 case b23:
680 dstmsk = 0x07ff07ff;
681 offmsk = 0x007fffff;
682 signbit = 0x00400000;
683 break;
684
685 default:
686 abort ();
687 }
688
689 /* If this is an undefined symbol, return error. */
690 if (symbol->section == &bfd_und_section
691 && (symbol->flags & BSF_WEAK) == 0)
692 return output_bfd ? bfd_reloc_continue : bfd_reloc_undefined;
693
694 /* If the sections are different, and we are doing a partial relocation,
695 just ignore it for now. */
696 if (symbol->section->name != input_section->name
697 && output_bfd != (bfd *)NULL)
698 return bfd_reloc_continue;
699
700 switch (btype)
701 {
702 case b9:
703 case b12:
704 relocation = ((target & dstmsk) << 1);
705 break;
706
707 case b23:
708 if (bfd_big_endian (abfd))
709 relocation = ((target & 0x7ff) << 1) | ((target & 0x07ff0000) >> 4);
710 else
711 relocation = ((target & 0x7ff) << 12) | ((target & 0x07ff0000) >> 15);
712 break;
713
714 default:
715 abort ();
716 }
717
718 relocation = (relocation ^ signbit) - signbit; /* Sign extend. */
719 relocation += symbol->value;
720 relocation += symbol->section->output_section->vma;
721 relocation += symbol->section->output_offset;
722 relocation += reloc_entry->addend;
723 relocation -= input_section->output_section->vma;
724 relocation -= input_section->output_offset;
725 relocation -= addr;
726
727 if (relocation & 1)
728 return bfd_reloc_overflow;
729
730 /* Check for overflow. */
731 if (relocation & signbit)
732 {
733 if ((relocation & ~offmsk) != ~offmsk)
734 flag = bfd_reloc_overflow;
735 }
736 else if (relocation & ~offmsk)
737 flag = bfd_reloc_overflow;
738
739 target &= ~dstmsk;
740 switch (btype)
741 {
742 case b9:
743 case b12:
744 target |= (relocation >> 1);
745 break;
746
747 case b23:
748 if (bfd_big_endian (abfd))
749 target |= (((relocation & 0xfff) >> 1)
750 | ((relocation << 4) & 0x07ff0000));
751 else
752 target |= (((relocation & 0xffe) << 15)
753 | ((relocation >> 12) & 0x7ff));
754 break;
755
756 default:
757 abort ();
758 }
759
760 bfd_put_32 (abfd, (bfd_vma) target, (bfd_byte *) data + addr);
761
762 /* Now the ARM magic... Change the reloc type so that it is marked as done.
763 Strictly this is only necessary if we are doing a partial relocation. */
764 reloc_entry->howto = & aoutarm_std_reloc_howto [ARM_26D];
765
766 /* TODO: We should possibly have DONE entries for the THUMB PCREL relocations. */
767 return flag;
768 }
769
770 #ifndef ARM_WINCE
771 static bfd_reloc_status_type
772 coff_thumb_pcrel_23 (bfd *abfd,
773 arelent *reloc_entry,
774 asymbol *symbol,
775 void * data,
776 asection *input_section,
777 bfd *output_bfd,
778 char **error_message)
779 {
780 return coff_thumb_pcrel_common (abfd, reloc_entry, symbol, data,
781 input_section, output_bfd, error_message,
782 b23);
783 }
784
785 static bfd_reloc_status_type
786 coff_thumb_pcrel_9 (bfd *abfd,
787 arelent *reloc_entry,
788 asymbol *symbol,
789 void * data,
790 asection *input_section,
791 bfd *output_bfd,
792 char **error_message)
793 {
794 return coff_thumb_pcrel_common (abfd, reloc_entry, symbol, data,
795 input_section, output_bfd, error_message,
796 b9);
797 }
798 #endif /* not ARM_WINCE */
799
800 static bfd_reloc_status_type
801 coff_thumb_pcrel_12 (bfd *abfd,
802 arelent *reloc_entry,
803 asymbol *symbol,
804 void * data,
805 asection *input_section,
806 bfd *output_bfd,
807 char **error_message)
808 {
809 return coff_thumb_pcrel_common (abfd, reloc_entry, symbol, data,
810 input_section, output_bfd, error_message,
811 b12);
812 }
813
814 static const struct reloc_howto_struct *
815 coff_arm_reloc_type_lookup (bfd * abfd, bfd_reloc_code_real_type code)
816 {
817 #define ASTD(i,j) case i: return aoutarm_std_reloc_howto + j
818
819 if (code == BFD_RELOC_CTOR)
820 switch (bfd_arch_bits_per_address (abfd))
821 {
822 case 32:
823 code = BFD_RELOC_32;
824 break;
825 default:
826 return NULL;
827 }
828
829 switch (code)
830 {
831 #ifdef ARM_WINCE
832 ASTD (BFD_RELOC_32, ARM_32);
833 ASTD (BFD_RELOC_RVA, ARM_RVA32);
834 ASTD (BFD_RELOC_ARM_PCREL_BRANCH, ARM_26);
835 ASTD (BFD_RELOC_THUMB_PCREL_BRANCH12, ARM_THUMB12);
836 ASTD (BFD_RELOC_32_SECREL, ARM_SECREL);
837 #else
838 ASTD (BFD_RELOC_8, ARM_8);
839 ASTD (BFD_RELOC_16, ARM_16);
840 ASTD (BFD_RELOC_32, ARM_32);
841 ASTD (BFD_RELOC_ARM_PCREL_BRANCH, ARM_26);
842 ASTD (BFD_RELOC_ARM_PCREL_BLX, ARM_26);
843 ASTD (BFD_RELOC_8_PCREL, ARM_DISP8);
844 ASTD (BFD_RELOC_16_PCREL, ARM_DISP16);
845 ASTD (BFD_RELOC_32_PCREL, ARM_DISP32);
846 ASTD (BFD_RELOC_RVA, ARM_RVA32);
847 ASTD (BFD_RELOC_THUMB_PCREL_BRANCH9, ARM_THUMB9);
848 ASTD (BFD_RELOC_THUMB_PCREL_BRANCH12, ARM_THUMB12);
849 ASTD (BFD_RELOC_THUMB_PCREL_BRANCH23, ARM_THUMB23);
850 ASTD (BFD_RELOC_THUMB_PCREL_BLX, ARM_THUMB23);
851 #endif
852 default: return NULL;
853 }
854 }
855
856 static reloc_howto_type *
857 coff_arm_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
858 const char *r_name)
859 {
860 unsigned int i;
861
862 for (i = 0;
863 i < (sizeof (aoutarm_std_reloc_howto)
864 / sizeof (aoutarm_std_reloc_howto[0]));
865 i++)
866 if (aoutarm_std_reloc_howto[i].name != NULL
867 && strcasecmp (aoutarm_std_reloc_howto[i].name, r_name) == 0)
868 return &aoutarm_std_reloc_howto[i];
869
870 return NULL;
871 }
872
873 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER 2
874 #define COFF_PAGE_SIZE 0x1000
875
876 /* Turn a howto into a reloc nunmber. */
877 #define SELECT_RELOC(x,howto) { x.r_type = howto->type; }
878 #define BADMAG(x) ARMBADMAG(x)
879 #define ARM 1 /* Customize coffcode.h. */
880
881 #ifndef ARM_WINCE
882 /* Make sure that the 'r_offset' field is copied properly
883 so that identical binaries will compare the same. */
884 #define SWAP_IN_RELOC_OFFSET H_GET_32
885 #define SWAP_OUT_RELOC_OFFSET H_PUT_32
886 #endif
887
888 /* Extend the coff_link_hash_table structure with a few ARM specific fields.
889 This allows us to store global data here without actually creating any
890 global variables, which is a no-no in the BFD world. */
891 struct coff_arm_link_hash_table
892 {
893 /* The original coff_link_hash_table structure. MUST be first field. */
894 struct coff_link_hash_table root;
895
896 /* The size in bytes of the section containing the Thumb-to-ARM glue. */
897 bfd_size_type thumb_glue_size;
898
899 /* The size in bytes of the section containing the ARM-to-Thumb glue. */
900 bfd_size_type arm_glue_size;
901
902 /* An arbitrary input BFD chosen to hold the glue sections. */
903 bfd * bfd_of_glue_owner;
904
905 /* Support interworking with old, non-interworking aware ARM code. */
906 int support_old_code;
907 };
908
909 /* Get the ARM coff linker hash table from a link_info structure. */
910 #define coff_arm_hash_table(info) \
911 ((struct coff_arm_link_hash_table *) ((info)->hash))
912
913 /* Create an ARM coff linker hash table. */
914
915 static struct bfd_link_hash_table *
916 coff_arm_link_hash_table_create (bfd * abfd)
917 {
918 struct coff_arm_link_hash_table * ret;
919 bfd_size_type amt = sizeof (struct coff_arm_link_hash_table);
920
921 ret = bfd_malloc (amt);
922 if (ret == NULL)
923 return NULL;
924
925 if (!_bfd_coff_link_hash_table_init (&ret->root,
926 abfd,
927 _bfd_coff_link_hash_newfunc,
928 sizeof (struct coff_link_hash_entry)))
929 {
930 free (ret);
931 return NULL;
932 }
933
934 ret->thumb_glue_size = 0;
935 ret->arm_glue_size = 0;
936 ret->bfd_of_glue_owner = NULL;
937
938 return & ret->root.root;
939 }
940
941 static bfd_boolean
942 arm_emit_base_file_entry (struct bfd_link_info *info,
943 bfd *output_bfd,
944 asection *input_section,
945 bfd_vma reloc_offset)
946 {
947 bfd_vma addr = (reloc_offset
948 - input_section->vma
949 + input_section->output_offset
950 + input_section->output_section->vma);
951
952 if (coff_data (output_bfd)->pe)
953 addr -= pe_data (output_bfd)->pe_opthdr.ImageBase;
954 if (fwrite (&addr, sizeof (addr), 1, (FILE *) info->base_file) == 1)
955 return TRUE;
956
957 bfd_set_error (bfd_error_system_call);
958 return FALSE;
959 }
960 \f
961 #ifndef ARM_WINCE
962 /* The thumb form of a long branch is a bit finicky, because the offset
963 encoding is split over two fields, each in it's own instruction. They
964 can occur in any order. So given a thumb form of long branch, and an
965 offset, insert the offset into the thumb branch and return finished
966 instruction.
967
968 It takes two thumb instructions to encode the target address. Each has
969 11 bits to invest. The upper 11 bits are stored in one (identified by
970 H-0.. see below), the lower 11 bits are stored in the other (identified
971 by H-1).
972
973 Combine together and shifted left by 1 (it's a half word address) and
974 there you have it.
975
976 Op: 1111 = F,
977 H-0, upper address-0 = 000
978 Op: 1111 = F,
979 H-1, lower address-0 = 800
980
981 They can be ordered either way, but the arm tools I've seen always put
982 the lower one first. It probably doesn't matter. krk@cygnus.com
983
984 XXX: Actually the order does matter. The second instruction (H-1)
985 moves the computed address into the PC, so it must be the second one
986 in the sequence. The problem, however is that whilst little endian code
987 stores the instructions in HI then LOW order, big endian code does the
988 reverse. nickc@cygnus.com. */
989
990 #define LOW_HI_ORDER 0xF800F000
991 #define HI_LOW_ORDER 0xF000F800
992
993 static insn32
994 insert_thumb_branch (insn32 br_insn, int rel_off)
995 {
996 unsigned int low_bits;
997 unsigned int high_bits;
998
999 BFD_ASSERT ((rel_off & 1) != 1);
1000
1001 rel_off >>= 1; /* Half word aligned address. */
1002 low_bits = rel_off & 0x000007FF; /* The bottom 11 bits. */
1003 high_bits = (rel_off >> 11) & 0x000007FF; /* The top 11 bits. */
1004
1005 if ((br_insn & LOW_HI_ORDER) == LOW_HI_ORDER)
1006 br_insn = LOW_HI_ORDER | (low_bits << 16) | high_bits;
1007 else if ((br_insn & HI_LOW_ORDER) == HI_LOW_ORDER)
1008 br_insn = HI_LOW_ORDER | (high_bits << 16) | low_bits;
1009 else
1010 /* FIXME: the BFD library should never abort except for internal errors
1011 - it should return an error status. */
1012 abort (); /* Error - not a valid branch instruction form. */
1013
1014 return br_insn;
1015 }
1016
1017 \f
1018 static struct coff_link_hash_entry *
1019 find_thumb_glue (struct bfd_link_info *info,
1020 const char *name,
1021 bfd *input_bfd)
1022 {
1023 char *tmp_name;
1024 struct coff_link_hash_entry *myh;
1025 bfd_size_type amt = strlen (name) + strlen (THUMB2ARM_GLUE_ENTRY_NAME) + 1;
1026
1027 tmp_name = bfd_malloc (amt);
1028
1029 BFD_ASSERT (tmp_name);
1030
1031 sprintf (tmp_name, THUMB2ARM_GLUE_ENTRY_NAME, name);
1032
1033 myh = coff_link_hash_lookup
1034 (coff_hash_table (info), tmp_name, FALSE, FALSE, TRUE);
1035
1036 if (myh == NULL)
1037 /* xgettext:c-format */
1038 _bfd_error_handler (_("%B: unable to find THUMB glue '%s' for `%s'"),
1039 input_bfd, tmp_name, name);
1040
1041 free (tmp_name);
1042
1043 return myh;
1044 }
1045 #endif /* not ARM_WINCE */
1046
1047 static struct coff_link_hash_entry *
1048 find_arm_glue (struct bfd_link_info *info,
1049 const char *name,
1050 bfd *input_bfd)
1051 {
1052 char *tmp_name;
1053 struct coff_link_hash_entry * myh;
1054 bfd_size_type amt = strlen (name) + strlen (ARM2THUMB_GLUE_ENTRY_NAME) + 1;
1055
1056 tmp_name = bfd_malloc (amt);
1057
1058 BFD_ASSERT (tmp_name);
1059
1060 sprintf (tmp_name, ARM2THUMB_GLUE_ENTRY_NAME, name);
1061
1062 myh = coff_link_hash_lookup
1063 (coff_hash_table (info), tmp_name, FALSE, FALSE, TRUE);
1064
1065 if (myh == NULL)
1066 /* xgettext:c-format */
1067 _bfd_error_handler (_("%B: unable to find ARM glue '%s' for `%s'"),
1068 input_bfd, tmp_name, name);
1069
1070 free (tmp_name);
1071
1072 return myh;
1073 }
1074
1075 /*
1076 ARM->Thumb glue:
1077
1078 .arm
1079 __func_from_arm:
1080 ldr r12, __func_addr
1081 bx r12
1082 __func_addr:
1083 .word func @ behave as if you saw a ARM_32 reloc
1084 */
1085
1086 #define ARM2THUMB_GLUE_SIZE 12
1087 static const insn32 a2t1_ldr_insn = 0xe59fc000;
1088 static const insn32 a2t2_bx_r12_insn = 0xe12fff1c;
1089 static const insn32 a2t3_func_addr_insn = 0x00000001;
1090
1091 /*
1092 Thumb->ARM: Thumb->(non-interworking aware) ARM
1093
1094 .thumb .thumb
1095 .align 2 .align 2
1096 __func_from_thumb: __func_from_thumb:
1097 bx pc push {r6, lr}
1098 nop ldr r6, __func_addr
1099 .arm mov lr, pc
1100 __func_change_to_arm: bx r6
1101 b func .arm
1102 __func_back_to_thumb:
1103 ldmia r13! {r6, lr}
1104 bx lr
1105 __func_addr:
1106 .word func
1107 */
1108
1109 #define THUMB2ARM_GLUE_SIZE (globals->support_old_code ? 20 : 8)
1110 #ifndef ARM_WINCE
1111 static const insn16 t2a1_bx_pc_insn = 0x4778;
1112 static const insn16 t2a2_noop_insn = 0x46c0;
1113 static const insn32 t2a3_b_insn = 0xea000000;
1114
1115 static const insn16 t2a1_push_insn = 0xb540;
1116 static const insn16 t2a2_ldr_insn = 0x4e03;
1117 static const insn16 t2a3_mov_insn = 0x46fe;
1118 static const insn16 t2a4_bx_insn = 0x4730;
1119 static const insn32 t2a5_pop_insn = 0xe8bd4040;
1120 static const insn32 t2a6_bx_insn = 0xe12fff1e;
1121 #endif
1122
1123 /* TODO:
1124 We should really create new local (static) symbols in destination
1125 object for each stub we create. We should also create local
1126 (static) symbols within the stubs when switching between ARM and
1127 Thumb code. This will ensure that the debugger and disassembler
1128 can present a better view of stubs.
1129
1130 We can treat stubs like literal sections, and for the THUMB9 ones
1131 (short addressing range) we should be able to insert the stubs
1132 between sections. i.e. the simplest approach (since relocations
1133 are done on a section basis) is to dump the stubs at the end of
1134 processing a section. That way we can always try and minimise the
1135 offset to and from a stub. However, this does not map well onto
1136 the way that the linker/BFD does its work: mapping all input
1137 sections to output sections via the linker script before doing
1138 all the processing.
1139
1140 Unfortunately it may be easier to just to disallow short range
1141 Thumb->ARM stubs (i.e. no conditional inter-working branches,
1142 only branch-and-link (BL) calls. This will simplify the processing
1143 since we can then put all of the stubs into their own section.
1144
1145 TODO:
1146 On a different subject, rather than complaining when a
1147 branch cannot fit in the number of bits available for the
1148 instruction we should generate a trampoline stub (needed to
1149 address the complete 32bit address space). */
1150
1151 /* The standard COFF backend linker does not cope with the special
1152 Thumb BRANCH23 relocation. The alternative would be to split the
1153 BRANCH23 into seperate HI23 and LO23 relocations. However, it is a
1154 bit simpler simply providing our own relocation driver. */
1155
1156 /* The reloc processing routine for the ARM/Thumb COFF linker. NOTE:
1157 This code is a very slightly modified copy of
1158 _bfd_coff_generic_relocate_section. It would be a much more
1159 maintainable solution to have a MACRO that could be expanded within
1160 _bfd_coff_generic_relocate_section that would only be provided for
1161 ARM/Thumb builds. It is only the code marked THUMBEXTENSION that
1162 is different from the original. */
1163
1164 static bfd_boolean
1165 coff_arm_relocate_section (bfd *output_bfd,
1166 struct bfd_link_info *info,
1167 bfd *input_bfd,
1168 asection *input_section,
1169 bfd_byte *contents,
1170 struct internal_reloc *relocs,
1171 struct internal_syment *syms,
1172 asection **sections)
1173 {
1174 struct internal_reloc * rel;
1175 struct internal_reloc * relend;
1176 #ifndef ARM_WINCE
1177 bfd_vma high_address = bfd_get_section_limit (input_bfd, input_section);
1178 #endif
1179
1180 rel = relocs;
1181 relend = rel + input_section->reloc_count;
1182
1183 for (; rel < relend; rel++)
1184 {
1185 int done = 0;
1186 long symndx;
1187 struct coff_link_hash_entry * h;
1188 struct internal_syment * sym;
1189 bfd_vma addend;
1190 bfd_vma val;
1191 reloc_howto_type * howto;
1192 bfd_reloc_status_type rstat;
1193 bfd_vma h_val;
1194
1195 symndx = rel->r_symndx;
1196
1197 if (symndx == -1)
1198 {
1199 h = NULL;
1200 sym = NULL;
1201 }
1202 else
1203 {
1204 h = obj_coff_sym_hashes (input_bfd)[symndx];
1205 sym = syms + symndx;
1206 }
1207
1208 /* COFF treats common symbols in one of two ways. Either the
1209 size of the symbol is included in the section contents, or it
1210 is not. We assume that the size is not included, and force
1211 the rtype_to_howto function to adjust the addend as needed. */
1212
1213 if (sym != NULL && sym->n_scnum != 0)
1214 addend = - sym->n_value;
1215 else
1216 addend = 0;
1217
1218 howto = coff_rtype_to_howto (input_bfd, input_section, rel, h,
1219 sym, &addend);
1220 if (howto == NULL)
1221 return FALSE;
1222
1223 /* The relocation_section function will skip pcrel_offset relocs
1224 when doing a relocatable link. However, we want to convert
1225 ARM_26 to ARM_26D relocs if possible. We return a fake howto in
1226 this case without pcrel_offset set, and adjust the addend to
1227 compensate. 'partial_inplace' is also set, since we want 'done'
1228 relocations to be reflected in section's data. */
1229 if (rel->r_type == ARM_26
1230 && h != NULL
1231 && info->relocatable
1232 && (h->root.type == bfd_link_hash_defined
1233 || h->root.type == bfd_link_hash_defweak)
1234 && (h->root.u.def.section->output_section
1235 == input_section->output_section))
1236 {
1237 static reloc_howto_type fake_arm26_reloc =
1238 HOWTO (ARM_26,
1239 2,
1240 2,
1241 24,
1242 TRUE,
1243 0,
1244 complain_overflow_signed,
1245 aoutarm_fix_pcrel_26 ,
1246 "ARM_26",
1247 TRUE,
1248 0x00ffffff,
1249 0x00ffffff,
1250 FALSE);
1251
1252 addend -= rel->r_vaddr - input_section->vma;
1253 #ifdef ARM_WINCE
1254 /* FIXME: I don't know why, but the hack is necessary for correct
1255 generation of bl's instruction offset. */
1256 addend -= 8;
1257 #endif
1258 howto = & fake_arm26_reloc;
1259 }
1260
1261 #ifdef ARM_WINCE
1262 /* MS ARM-CE makes the reloc relative to the opcode's pc, not
1263 the next opcode's pc, so is off by one. */
1264 if (howto->pc_relative && !info->relocatable)
1265 addend -= 8;
1266 #endif
1267
1268 /* If we are doing a relocatable link, then we can just ignore
1269 a PC relative reloc that is pcrel_offset. It will already
1270 have the correct value. If this is not a relocatable link,
1271 then we should ignore the symbol value. */
1272 if (howto->pc_relative && howto->pcrel_offset)
1273 {
1274 if (info->relocatable)
1275 continue;
1276 /* FIXME - it is not clear which targets need this next test
1277 and which do not. It is known that it is needed for the
1278 VxWorks and EPOC-PE targets, but it is also known that it
1279 was suppressed for other ARM targets. This ought to be
1280 sorted out one day. */
1281 #ifdef ARM_COFF_BUGFIX
1282 /* We must not ignore the symbol value. If the symbol is
1283 within the same section, the relocation should have already
1284 been fixed, but if it is not, we'll be handed a reloc into
1285 the beginning of the symbol's section, so we must not cancel
1286 out the symbol's value, otherwise we'll be adding it in
1287 twice. */
1288 if (sym != NULL && sym->n_scnum != 0)
1289 addend += sym->n_value;
1290 #endif
1291 }
1292
1293 val = 0;
1294
1295 if (h == NULL)
1296 {
1297 asection *sec;
1298
1299 if (symndx == -1)
1300 {
1301 sec = bfd_abs_section_ptr;
1302 val = 0;
1303 }
1304 else
1305 {
1306 sec = sections[symndx];
1307 val = (sec->output_section->vma
1308 + sec->output_offset
1309 + sym->n_value
1310 - sec->vma);
1311 }
1312 }
1313 else
1314 {
1315 /* We don't output the stubs if we are generating a
1316 relocatable output file, since we may as well leave the
1317 stub generation to the final linker pass. If we fail to
1318 verify that the name is defined, we'll try to build stubs
1319 for an undefined name... */
1320 if (! info->relocatable
1321 && ( h->root.type == bfd_link_hash_defined
1322 || h->root.type == bfd_link_hash_defweak))
1323 {
1324 asection * h_sec = h->root.u.def.section;
1325 const char * name = h->root.root.string;
1326
1327 /* h locates the symbol referenced in the reloc. */
1328 h_val = (h->root.u.def.value
1329 + h_sec->output_section->vma
1330 + h_sec->output_offset);
1331
1332 if (howto->type == ARM_26)
1333 {
1334 if ( h->symbol_class == C_THUMBSTATFUNC
1335 || h->symbol_class == C_THUMBEXTFUNC)
1336 {
1337 /* Arm code calling a Thumb function. */
1338 unsigned long int tmp;
1339 bfd_vma my_offset;
1340 asection * s;
1341 long int ret_offset;
1342 struct coff_link_hash_entry * myh;
1343 struct coff_arm_link_hash_table * globals;
1344
1345 myh = find_arm_glue (info, name, input_bfd);
1346 if (myh == NULL)
1347 return FALSE;
1348
1349 globals = coff_arm_hash_table (info);
1350
1351 BFD_ASSERT (globals != NULL);
1352 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
1353
1354 my_offset = myh->root.u.def.value;
1355
1356 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
1357 ARM2THUMB_GLUE_SECTION_NAME);
1358 BFD_ASSERT (s != NULL);
1359 BFD_ASSERT (s->contents != NULL);
1360 BFD_ASSERT (s->output_section != NULL);
1361
1362 if ((my_offset & 0x01) == 0x01)
1363 {
1364 if (h_sec->owner != NULL
1365 && INTERWORK_SET (h_sec->owner)
1366 && ! INTERWORK_FLAG (h_sec->owner))
1367 _bfd_error_handler
1368 /* xgettext:c-format */
1369 (_("%B(%s): warning: interworking not enabled.\n"
1370 " first occurrence: %B: arm call to thumb"),
1371 h_sec->owner, input_bfd, name);
1372
1373 --my_offset;
1374 myh->root.u.def.value = my_offset;
1375
1376 bfd_put_32 (output_bfd, (bfd_vma) a2t1_ldr_insn,
1377 s->contents + my_offset);
1378
1379 bfd_put_32 (output_bfd, (bfd_vma) a2t2_bx_r12_insn,
1380 s->contents + my_offset + 4);
1381
1382 /* It's a thumb address. Add the low order bit. */
1383 bfd_put_32 (output_bfd, h_val | a2t3_func_addr_insn,
1384 s->contents + my_offset + 8);
1385
1386 if (info->base_file
1387 && !arm_emit_base_file_entry (info, output_bfd,
1388 s, my_offset + 8))
1389 return FALSE;
1390 }
1391
1392 BFD_ASSERT (my_offset <= globals->arm_glue_size);
1393
1394 tmp = bfd_get_32 (input_bfd, contents + rel->r_vaddr
1395 - input_section->vma);
1396
1397 tmp = tmp & 0xFF000000;
1398
1399 /* Somehow these are both 4 too far, so subtract 8. */
1400 ret_offset =
1401 s->output_offset
1402 + my_offset
1403 + s->output_section->vma
1404 - (input_section->output_offset
1405 + input_section->output_section->vma
1406 + rel->r_vaddr)
1407 - 8;
1408
1409 tmp = tmp | ((ret_offset >> 2) & 0x00FFFFFF);
1410
1411 bfd_put_32 (output_bfd, (bfd_vma) tmp,
1412 contents + rel->r_vaddr - input_section->vma);
1413 done = 1;
1414 }
1415 }
1416
1417 #ifndef ARM_WINCE
1418 /* Note: We used to check for ARM_THUMB9 and ARM_THUMB12. */
1419 else if (howto->type == ARM_THUMB23)
1420 {
1421 if ( h->symbol_class == C_EXT
1422 || h->symbol_class == C_STAT
1423 || h->symbol_class == C_LABEL)
1424 {
1425 /* Thumb code calling an ARM function. */
1426 asection * s = 0;
1427 bfd_vma my_offset;
1428 unsigned long int tmp;
1429 long int ret_offset;
1430 struct coff_link_hash_entry * myh;
1431 struct coff_arm_link_hash_table * globals;
1432
1433 myh = find_thumb_glue (info, name, input_bfd);
1434 if (myh == NULL)
1435 return FALSE;
1436
1437 globals = coff_arm_hash_table (info);
1438
1439 BFD_ASSERT (globals != NULL);
1440 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
1441
1442 my_offset = myh->root.u.def.value;
1443
1444 s = bfd_get_section_by_name (globals->bfd_of_glue_owner,
1445 THUMB2ARM_GLUE_SECTION_NAME);
1446
1447 BFD_ASSERT (s != NULL);
1448 BFD_ASSERT (s->contents != NULL);
1449 BFD_ASSERT (s->output_section != NULL);
1450
1451 if ((my_offset & 0x01) == 0x01)
1452 {
1453 if (h_sec->owner != NULL
1454 && INTERWORK_SET (h_sec->owner)
1455 && ! INTERWORK_FLAG (h_sec->owner)
1456 && ! globals->support_old_code)
1457 _bfd_error_handler
1458 /* xgettext:c-format */
1459 (_("%B(%s): warning: interworking not enabled.\n"
1460 " first occurrence: %B: thumb call to arm\n"
1461 " consider relinking with --support-old-code enabled"),
1462 h_sec->owner, input_bfd, name);
1463
1464 -- my_offset;
1465 myh->root.u.def.value = my_offset;
1466
1467 if (globals->support_old_code)
1468 {
1469 bfd_put_16 (output_bfd, (bfd_vma) t2a1_push_insn,
1470 s->contents + my_offset);
1471
1472 bfd_put_16 (output_bfd, (bfd_vma) t2a2_ldr_insn,
1473 s->contents + my_offset + 2);
1474
1475 bfd_put_16 (output_bfd, (bfd_vma) t2a3_mov_insn,
1476 s->contents + my_offset + 4);
1477
1478 bfd_put_16 (output_bfd, (bfd_vma) t2a4_bx_insn,
1479 s->contents + my_offset + 6);
1480
1481 bfd_put_32 (output_bfd, (bfd_vma) t2a5_pop_insn,
1482 s->contents + my_offset + 8);
1483
1484 bfd_put_32 (output_bfd, (bfd_vma) t2a6_bx_insn,
1485 s->contents + my_offset + 12);
1486
1487 /* Store the address of the function in the last word of the stub. */
1488 bfd_put_32 (output_bfd, h_val,
1489 s->contents + my_offset + 16);
1490
1491 if (info->base_file
1492 && !arm_emit_base_file_entry (info,
1493 output_bfd, s,
1494 my_offset + 16))
1495 return FALSE;
1496 }
1497 else
1498 {
1499 bfd_put_16 (output_bfd, (bfd_vma) t2a1_bx_pc_insn,
1500 s->contents + my_offset);
1501
1502 bfd_put_16 (output_bfd, (bfd_vma) t2a2_noop_insn,
1503 s->contents + my_offset + 2);
1504
1505 ret_offset =
1506 /* Address of destination of the stub. */
1507 ((bfd_signed_vma) h_val)
1508 - ((bfd_signed_vma)
1509 /* Offset from the start of the current section to the start of the stubs. */
1510 (s->output_offset
1511 /* Offset of the start of this stub from the start of the stubs. */
1512 + my_offset
1513 /* Address of the start of the current section. */
1514 + s->output_section->vma)
1515 /* The branch instruction is 4 bytes into the stub. */
1516 + 4
1517 /* ARM branches work from the pc of the instruction + 8. */
1518 + 8);
1519
1520 bfd_put_32 (output_bfd,
1521 (bfd_vma) t2a3_b_insn | ((ret_offset >> 2) & 0x00FFFFFF),
1522 s->contents + my_offset + 4);
1523
1524 }
1525 }
1526
1527 BFD_ASSERT (my_offset <= globals->thumb_glue_size);
1528
1529 /* Now go back and fix up the original BL insn to point
1530 to here. */
1531 ret_offset =
1532 s->output_offset
1533 + my_offset
1534 - (input_section->output_offset
1535 + rel->r_vaddr)
1536 -4;
1537
1538 tmp = bfd_get_32 (input_bfd, contents + rel->r_vaddr
1539 - input_section->vma);
1540
1541 bfd_put_32 (output_bfd,
1542 (bfd_vma) insert_thumb_branch (tmp,
1543 ret_offset),
1544 contents + rel->r_vaddr - input_section->vma);
1545
1546 done = 1;
1547 }
1548 }
1549 #endif
1550 }
1551
1552 /* If the relocation type and destination symbol does not
1553 fall into one of the above categories, then we can just
1554 perform a direct link. */
1555
1556 if (done)
1557 rstat = bfd_reloc_ok;
1558 else
1559 if ( h->root.type == bfd_link_hash_defined
1560 || h->root.type == bfd_link_hash_defweak)
1561 {
1562 asection *sec;
1563
1564 sec = h->root.u.def.section;
1565 val = (h->root.u.def.value
1566 + sec->output_section->vma
1567 + sec->output_offset);
1568 }
1569
1570 else if (! info->relocatable)
1571 {
1572 if (! ((*info->callbacks->undefined_symbol)
1573 (info, h->root.root.string, input_bfd, input_section,
1574 rel->r_vaddr - input_section->vma, TRUE)))
1575 return FALSE;
1576 }
1577 }
1578
1579 /* Emit a reloc if the backend thinks it needs it. */
1580 if (info->base_file
1581 && sym
1582 && pe_data(output_bfd)->in_reloc_p(output_bfd, howto)
1583 && !arm_emit_base_file_entry (info, output_bfd, input_section,
1584 rel->r_vaddr))
1585 return FALSE;
1586
1587 if (done)
1588 rstat = bfd_reloc_ok;
1589 #ifndef ARM_WINCE
1590 /* Only perform this fix during the final link, not a relocatable link. */
1591 else if (! info->relocatable
1592 && howto->type == ARM_THUMB23)
1593 {
1594 /* This is pretty much a copy of what the default
1595 _bfd_final_link_relocate and _bfd_relocate_contents
1596 routines do to perform a relocation, with special
1597 processing for the split addressing of the Thumb BL
1598 instruction. Again, it would probably be simpler adding a
1599 ThumbBRANCH23 specific macro expansion into the default
1600 code. */
1601
1602 bfd_vma address = rel->r_vaddr - input_section->vma;
1603
1604 if (address > high_address)
1605 rstat = bfd_reloc_outofrange;
1606 else
1607 {
1608 bfd_vma relocation = val + addend;
1609 int size = bfd_get_reloc_size (howto);
1610 bfd_boolean overflow = FALSE;
1611 bfd_byte *location = contents + address;
1612 bfd_vma x = bfd_get_32 (input_bfd, location);
1613 bfd_vma src_mask = 0x007FFFFE;
1614 bfd_signed_vma reloc_signed_max = (1 << (howto->bitsize - 1)) - 1;
1615 bfd_signed_vma reloc_signed_min = ~reloc_signed_max;
1616 bfd_vma check;
1617 bfd_signed_vma signed_check;
1618 bfd_vma add;
1619 bfd_signed_vma signed_add;
1620
1621 BFD_ASSERT (size == 4);
1622
1623 /* howto->pc_relative should be TRUE for type 14 BRANCH23. */
1624 relocation -= (input_section->output_section->vma
1625 + input_section->output_offset);
1626
1627 /* howto->pcrel_offset should be TRUE for type 14 BRANCH23. */
1628 relocation -= address;
1629
1630 /* No need to negate the relocation with BRANCH23. */
1631 /* howto->complain_on_overflow == complain_overflow_signed for BRANCH23. */
1632 /* howto->rightshift == 1 */
1633
1634 /* Drop unwanted bits from the value we are relocating to. */
1635 check = relocation >> howto->rightshift;
1636
1637 /* If this is a signed value, the rightshift just dropped
1638 leading 1 bits (assuming twos complement). */
1639 if ((bfd_signed_vma) relocation >= 0)
1640 signed_check = check;
1641 else
1642 signed_check = (check
1643 | ((bfd_vma) - 1
1644 & ~((bfd_vma) - 1 >> howto->rightshift)));
1645
1646 /* Get the value from the object file. */
1647 if (bfd_big_endian (input_bfd))
1648 add = (((x) & 0x07ff0000) >> 4) | (((x) & 0x7ff) << 1);
1649 else
1650 add = ((((x) & 0x7ff) << 12) | (((x) & 0x07ff0000) >> 15));
1651
1652 /* Get the value from the object file with an appropriate sign.
1653 The expression involving howto->src_mask isolates the upper
1654 bit of src_mask. If that bit is set in the value we are
1655 adding, it is negative, and we subtract out that number times
1656 two. If src_mask includes the highest possible bit, then we
1657 can not get the upper bit, but that does not matter since
1658 signed_add needs no adjustment to become negative in that
1659 case. */
1660 signed_add = add;
1661
1662 if ((add & (((~ src_mask) >> 1) & src_mask)) != 0)
1663 signed_add -= (((~ src_mask) >> 1) & src_mask) << 1;
1664
1665 /* howto->bitpos == 0 */
1666 /* Add the value from the object file, shifted so that it is a
1667 straight number. */
1668 signed_check += signed_add;
1669 relocation += signed_add;
1670
1671 BFD_ASSERT (howto->complain_on_overflow == complain_overflow_signed);
1672
1673 /* Assumes two's complement. */
1674 if ( signed_check > reloc_signed_max
1675 || signed_check < reloc_signed_min)
1676 overflow = TRUE;
1677
1678 /* Put the relocation into the correct bits.
1679 For a BLX instruction, make sure that the relocation is rounded up
1680 to a word boundary. This follows the semantics of the instruction
1681 which specifies that bit 1 of the target address will come from bit
1682 1 of the base address. */
1683 if (bfd_big_endian (input_bfd))
1684 {
1685 if ((x & 0x1800) == 0x0800 && (relocation & 0x02))
1686 relocation += 2;
1687 relocation = (((relocation & 0xffe) >> 1) | ((relocation << 4) & 0x07ff0000));
1688 }
1689 else
1690 {
1691 if ((x & 0x18000000) == 0x08000000 && (relocation & 0x02))
1692 relocation += 2;
1693 relocation = (((relocation & 0xffe) << 15) | ((relocation >> 12) & 0x7ff));
1694 }
1695
1696 /* Add the relocation to the correct bits of X. */
1697 x = ((x & ~howto->dst_mask) | relocation);
1698
1699 /* Put the relocated value back in the object file. */
1700 bfd_put_32 (input_bfd, x, location);
1701
1702 rstat = overflow ? bfd_reloc_overflow : bfd_reloc_ok;
1703 }
1704 }
1705 #endif
1706 else
1707 if (info->relocatable && ! howto->partial_inplace)
1708 rstat = bfd_reloc_ok;
1709 else
1710 rstat = _bfd_final_link_relocate (howto, input_bfd, input_section,
1711 contents,
1712 rel->r_vaddr - input_section->vma,
1713 val, addend);
1714 /* Only perform this fix during the final link, not a relocatable link. */
1715 if (! info->relocatable
1716 && (rel->r_type == ARM_32 || rel->r_type == ARM_RVA32))
1717 {
1718 /* Determine if we need to set the bottom bit of a relocated address
1719 because the address is the address of a Thumb code symbol. */
1720 int patchit = FALSE;
1721
1722 if (h != NULL
1723 && ( h->symbol_class == C_THUMBSTATFUNC
1724 || h->symbol_class == C_THUMBEXTFUNC))
1725 {
1726 patchit = TRUE;
1727 }
1728 else if (sym != NULL
1729 && sym->n_scnum > N_UNDEF)
1730 {
1731 /* No hash entry - use the symbol instead. */
1732 if ( sym->n_sclass == C_THUMBSTATFUNC
1733 || sym->n_sclass == C_THUMBEXTFUNC)
1734 patchit = TRUE;
1735 }
1736
1737 if (patchit)
1738 {
1739 bfd_byte * location = contents + rel->r_vaddr - input_section->vma;
1740 bfd_vma x = bfd_get_32 (input_bfd, location);
1741
1742 bfd_put_32 (input_bfd, x | 1, location);
1743 }
1744 }
1745
1746 switch (rstat)
1747 {
1748 default:
1749 abort ();
1750 case bfd_reloc_ok:
1751 break;
1752 case bfd_reloc_outofrange:
1753 (*_bfd_error_handler)
1754 (_("%B: bad reloc address 0x%lx in section `%A'"),
1755 input_bfd, input_section, (unsigned long) rel->r_vaddr);
1756 return FALSE;
1757 case bfd_reloc_overflow:
1758 {
1759 const char *name;
1760 char buf[SYMNMLEN + 1];
1761
1762 if (symndx == -1)
1763 name = "*ABS*";
1764 else if (h != NULL)
1765 name = NULL;
1766 else
1767 {
1768 name = _bfd_coff_internal_syment_name (input_bfd, sym, buf);
1769 if (name == NULL)
1770 return FALSE;
1771 }
1772
1773 if (! ((*info->callbacks->reloc_overflow)
1774 (info, (h ? &h->root : NULL), name, howto->name,
1775 (bfd_vma) 0, input_bfd, input_section,
1776 rel->r_vaddr - input_section->vma)))
1777 return FALSE;
1778 }
1779 }
1780 }
1781
1782 return TRUE;
1783 }
1784
1785 #ifndef COFF_IMAGE_WITH_PE
1786
1787 bfd_boolean
1788 bfd_arm_allocate_interworking_sections (struct bfd_link_info * info)
1789 {
1790 asection * s;
1791 bfd_byte * foo;
1792 struct coff_arm_link_hash_table * globals;
1793
1794 globals = coff_arm_hash_table (info);
1795
1796 BFD_ASSERT (globals != NULL);
1797
1798 if (globals->arm_glue_size != 0)
1799 {
1800 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
1801
1802 s = bfd_get_section_by_name
1803 (globals->bfd_of_glue_owner, ARM2THUMB_GLUE_SECTION_NAME);
1804
1805 BFD_ASSERT (s != NULL);
1806
1807 foo = bfd_alloc (globals->bfd_of_glue_owner, globals->arm_glue_size);
1808
1809 s->size = globals->arm_glue_size;
1810 s->contents = foo;
1811 }
1812
1813 if (globals->thumb_glue_size != 0)
1814 {
1815 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
1816
1817 s = bfd_get_section_by_name
1818 (globals->bfd_of_glue_owner, THUMB2ARM_GLUE_SECTION_NAME);
1819
1820 BFD_ASSERT (s != NULL);
1821
1822 foo = bfd_alloc (globals->bfd_of_glue_owner, globals->thumb_glue_size);
1823
1824 s->size = globals->thumb_glue_size;
1825 s->contents = foo;
1826 }
1827
1828 return TRUE;
1829 }
1830
1831 static void
1832 record_arm_to_thumb_glue (struct bfd_link_info * info,
1833 struct coff_link_hash_entry * h)
1834 {
1835 const char * name = h->root.root.string;
1836 register asection * s;
1837 char * tmp_name;
1838 struct coff_link_hash_entry * myh;
1839 struct bfd_link_hash_entry * bh;
1840 struct coff_arm_link_hash_table * globals;
1841 bfd_vma val;
1842 bfd_size_type amt;
1843
1844 globals = coff_arm_hash_table (info);
1845
1846 BFD_ASSERT (globals != NULL);
1847 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
1848
1849 s = bfd_get_section_by_name
1850 (globals->bfd_of_glue_owner, ARM2THUMB_GLUE_SECTION_NAME);
1851
1852 BFD_ASSERT (s != NULL);
1853
1854 amt = strlen (name) + strlen (ARM2THUMB_GLUE_ENTRY_NAME) + 1;
1855 tmp_name = bfd_malloc (amt);
1856
1857 BFD_ASSERT (tmp_name);
1858
1859 sprintf (tmp_name, ARM2THUMB_GLUE_ENTRY_NAME, name);
1860
1861 myh = coff_link_hash_lookup
1862 (coff_hash_table (info), tmp_name, FALSE, FALSE, TRUE);
1863
1864 if (myh != NULL)
1865 {
1866 free (tmp_name);
1867 /* We've already seen this guy. */
1868 return;
1869 }
1870
1871 /* The only trick here is using globals->arm_glue_size as the value. Even
1872 though the section isn't allocated yet, this is where we will be putting
1873 it. */
1874 bh = NULL;
1875 val = globals->arm_glue_size + 1;
1876 bfd_coff_link_add_one_symbol (info, globals->bfd_of_glue_owner, tmp_name,
1877 BSF_GLOBAL, s, val, NULL, TRUE, FALSE, &bh);
1878
1879 free (tmp_name);
1880
1881 globals->arm_glue_size += ARM2THUMB_GLUE_SIZE;
1882
1883 return;
1884 }
1885
1886 #ifndef ARM_WINCE
1887 static void
1888 record_thumb_to_arm_glue (struct bfd_link_info * info,
1889 struct coff_link_hash_entry * h)
1890 {
1891 const char * name = h->root.root.string;
1892 asection * s;
1893 char * tmp_name;
1894 struct coff_link_hash_entry * myh;
1895 struct bfd_link_hash_entry * bh;
1896 struct coff_arm_link_hash_table * globals;
1897 bfd_vma val;
1898 bfd_size_type amt;
1899
1900 globals = coff_arm_hash_table (info);
1901
1902 BFD_ASSERT (globals != NULL);
1903 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
1904
1905 s = bfd_get_section_by_name
1906 (globals->bfd_of_glue_owner, THUMB2ARM_GLUE_SECTION_NAME);
1907
1908 BFD_ASSERT (s != NULL);
1909
1910 amt = strlen (name) + strlen (THUMB2ARM_GLUE_ENTRY_NAME) + 1;
1911 tmp_name = bfd_malloc (amt);
1912
1913 BFD_ASSERT (tmp_name);
1914
1915 sprintf (tmp_name, THUMB2ARM_GLUE_ENTRY_NAME, name);
1916
1917 myh = coff_link_hash_lookup
1918 (coff_hash_table (info), tmp_name, FALSE, FALSE, TRUE);
1919
1920 if (myh != NULL)
1921 {
1922 free (tmp_name);
1923 /* We've already seen this guy. */
1924 return;
1925 }
1926
1927 bh = NULL;
1928 val = globals->thumb_glue_size + 1;
1929 bfd_coff_link_add_one_symbol (info, globals->bfd_of_glue_owner, tmp_name,
1930 BSF_GLOBAL, s, val, NULL, TRUE, FALSE, &bh);
1931
1932 /* If we mark it 'thumb', the disassembler will do a better job. */
1933 myh = (struct coff_link_hash_entry *) bh;
1934 myh->symbol_class = C_THUMBEXTFUNC;
1935
1936 free (tmp_name);
1937
1938 /* Allocate another symbol to mark where we switch to arm mode. */
1939
1940 #define CHANGE_TO_ARM "__%s_change_to_arm"
1941 #define BACK_FROM_ARM "__%s_back_from_arm"
1942
1943 amt = strlen (name) + strlen (CHANGE_TO_ARM) + 1;
1944 tmp_name = bfd_malloc (amt);
1945
1946 BFD_ASSERT (tmp_name);
1947
1948 sprintf (tmp_name, globals->support_old_code ? BACK_FROM_ARM : CHANGE_TO_ARM, name);
1949
1950 bh = NULL;
1951 val = globals->thumb_glue_size + (globals->support_old_code ? 8 : 4);
1952 bfd_coff_link_add_one_symbol (info, globals->bfd_of_glue_owner, tmp_name,
1953 BSF_LOCAL, s, val, NULL, TRUE, FALSE, &bh);
1954
1955 free (tmp_name);
1956
1957 globals->thumb_glue_size += THUMB2ARM_GLUE_SIZE;
1958
1959 return;
1960 }
1961 #endif /* not ARM_WINCE */
1962
1963 /* Select a BFD to be used to hold the sections used by the glue code.
1964 This function is called from the linker scripts in ld/emultempl/
1965 {armcoff/pe}.em */
1966
1967 bfd_boolean
1968 bfd_arm_get_bfd_for_interworking (bfd * abfd,
1969 struct bfd_link_info * info)
1970 {
1971 struct coff_arm_link_hash_table * globals;
1972 flagword flags;
1973 asection * sec;
1974
1975 /* If we are only performing a partial link do not bother
1976 getting a bfd to hold the glue. */
1977 if (info->relocatable)
1978 return TRUE;
1979
1980 globals = coff_arm_hash_table (info);
1981
1982 BFD_ASSERT (globals != NULL);
1983
1984 if (globals->bfd_of_glue_owner != NULL)
1985 return TRUE;
1986
1987 sec = bfd_get_section_by_name (abfd, ARM2THUMB_GLUE_SECTION_NAME);
1988
1989 if (sec == NULL)
1990 {
1991 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
1992 | SEC_CODE | SEC_READONLY);
1993 sec = bfd_make_section_with_flags (abfd, ARM2THUMB_GLUE_SECTION_NAME,
1994 flags);
1995 if (sec == NULL
1996 || ! bfd_set_section_alignment (abfd, sec, 2))
1997 return FALSE;
1998 }
1999
2000 sec = bfd_get_section_by_name (abfd, THUMB2ARM_GLUE_SECTION_NAME);
2001
2002 if (sec == NULL)
2003 {
2004 flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
2005 | SEC_CODE | SEC_READONLY);
2006 sec = bfd_make_section_with_flags (abfd, THUMB2ARM_GLUE_SECTION_NAME,
2007 flags);
2008
2009 if (sec == NULL
2010 || ! bfd_set_section_alignment (abfd, sec, 2))
2011 return FALSE;
2012 }
2013
2014 /* Save the bfd for later use. */
2015 globals->bfd_of_glue_owner = abfd;
2016
2017 return TRUE;
2018 }
2019
2020 bfd_boolean
2021 bfd_arm_process_before_allocation (bfd * abfd,
2022 struct bfd_link_info * info,
2023 int support_old_code)
2024 {
2025 asection * sec;
2026 struct coff_arm_link_hash_table * globals;
2027
2028 /* If we are only performing a partial link do not bother
2029 to construct any glue. */
2030 if (info->relocatable)
2031 return TRUE;
2032
2033 /* Here we have a bfd that is to be included on the link. We have a hook
2034 to do reloc rummaging, before section sizes are nailed down. */
2035 _bfd_coff_get_external_symbols (abfd);
2036
2037 globals = coff_arm_hash_table (info);
2038
2039 BFD_ASSERT (globals != NULL);
2040 BFD_ASSERT (globals->bfd_of_glue_owner != NULL);
2041
2042 globals->support_old_code = support_old_code;
2043
2044 /* Rummage around all the relocs and map the glue vectors. */
2045 sec = abfd->sections;
2046
2047 if (sec == NULL)
2048 return TRUE;
2049
2050 for (; sec != NULL; sec = sec->next)
2051 {
2052 struct internal_reloc * i;
2053 struct internal_reloc * rel;
2054
2055 if (sec->reloc_count == 0)
2056 continue;
2057
2058 /* Load the relocs. */
2059 /* FIXME: there may be a storage leak here. */
2060 i = _bfd_coff_read_internal_relocs (abfd, sec, 1, 0, 0, 0);
2061
2062 BFD_ASSERT (i != 0);
2063
2064 for (rel = i; rel < i + sec->reloc_count; ++rel)
2065 {
2066 unsigned short r_type = rel->r_type;
2067 long symndx;
2068 struct coff_link_hash_entry * h;
2069
2070 symndx = rel->r_symndx;
2071
2072 /* If the relocation is not against a symbol it cannot concern us. */
2073 if (symndx == -1)
2074 continue;
2075
2076 /* If the index is outside of the range of our table, something has gone wrong. */
2077 if (symndx >= obj_conv_table_size (abfd))
2078 {
2079 _bfd_error_handler (_("%B: illegal symbol index in reloc: %d"),
2080 abfd, symndx);
2081 continue;
2082 }
2083
2084 h = obj_coff_sym_hashes (abfd)[symndx];
2085
2086 /* If the relocation is against a static symbol it must be within
2087 the current section and so cannot be a cross ARM/Thumb relocation. */
2088 if (h == NULL)
2089 continue;
2090
2091 switch (r_type)
2092 {
2093 case ARM_26:
2094 /* This one is a call from arm code. We need to look up
2095 the target of the call. If it is a thumb target, we
2096 insert glue. */
2097
2098 if (h->symbol_class == C_THUMBEXTFUNC)
2099 record_arm_to_thumb_glue (info, h);
2100 break;
2101
2102 #ifndef ARM_WINCE
2103 case ARM_THUMB23:
2104 /* This one is a call from thumb code. We used to look
2105 for ARM_THUMB9 and ARM_THUMB12 as well. We need to look
2106 up the target of the call. If it is an arm target, we
2107 insert glue. If the symbol does not exist it will be
2108 given a class of C_EXT and so we will generate a stub
2109 for it. This is not really a problem, since the link
2110 is doomed anyway. */
2111
2112 switch (h->symbol_class)
2113 {
2114 case C_EXT:
2115 case C_STAT:
2116 case C_LABEL:
2117 record_thumb_to_arm_glue (info, h);
2118 break;
2119 default:
2120 ;
2121 }
2122 break;
2123 #endif
2124
2125 default:
2126 break;
2127 }
2128 }
2129 }
2130
2131 return TRUE;
2132 }
2133
2134 #endif /* ! defined (COFF_IMAGE_WITH_PE) */
2135
2136 #define coff_bfd_reloc_type_lookup coff_arm_reloc_type_lookup
2137 #define coff_bfd_reloc_name_lookup coff_arm_reloc_name_lookup
2138 #define coff_relocate_section coff_arm_relocate_section
2139 #define coff_bfd_is_local_label_name coff_arm_is_local_label_name
2140 #define coff_adjust_symndx coff_arm_adjust_symndx
2141 #define coff_link_output_has_begun coff_arm_link_output_has_begun
2142 #define coff_final_link_postscript coff_arm_final_link_postscript
2143 #define coff_bfd_merge_private_bfd_data coff_arm_merge_private_bfd_data
2144 #define coff_bfd_print_private_bfd_data coff_arm_print_private_bfd_data
2145 #define coff_bfd_set_private_flags _bfd_coff_arm_set_private_flags
2146 #define coff_bfd_copy_private_bfd_data coff_arm_copy_private_bfd_data
2147 #define coff_bfd_link_hash_table_create coff_arm_link_hash_table_create
2148
2149 /* When doing a relocatable link, we want to convert ARM_26 relocs
2150 into ARM_26D relocs. */
2151
2152 static bfd_boolean
2153 coff_arm_adjust_symndx (bfd *obfd ATTRIBUTE_UNUSED,
2154 struct bfd_link_info *info ATTRIBUTE_UNUSED,
2155 bfd *ibfd,
2156 asection *sec,
2157 struct internal_reloc *irel,
2158 bfd_boolean *adjustedp)
2159 {
2160 if (irel->r_type == ARM_26)
2161 {
2162 struct coff_link_hash_entry *h;
2163
2164 h = obj_coff_sym_hashes (ibfd)[irel->r_symndx];
2165 if (h != NULL
2166 && (h->root.type == bfd_link_hash_defined
2167 || h->root.type == bfd_link_hash_defweak)
2168 && h->root.u.def.section->output_section == sec->output_section)
2169 irel->r_type = ARM_26D;
2170 }
2171 *adjustedp = FALSE;
2172 return TRUE;
2173 }
2174
2175 /* Called when merging the private data areas of two BFDs.
2176 This is important as it allows us to detect if we are
2177 attempting to merge binaries compiled for different ARM
2178 targets, eg different CPUs or different APCS's. */
2179
2180 static bfd_boolean
2181 coff_arm_merge_private_bfd_data (bfd * ibfd, bfd * obfd)
2182 {
2183 BFD_ASSERT (ibfd != NULL && obfd != NULL);
2184
2185 if (ibfd == obfd)
2186 return TRUE;
2187
2188 /* If the two formats are different we cannot merge anything.
2189 This is not an error, since it is permissable to change the
2190 input and output formats. */
2191 if ( ibfd->xvec->flavour != bfd_target_coff_flavour
2192 || obfd->xvec->flavour != bfd_target_coff_flavour)
2193 return TRUE;
2194
2195 /* Determine what should happen if the input ARM architecture
2196 does not match the output ARM architecture. */
2197 if (! bfd_arm_merge_machines (ibfd, obfd))
2198 return FALSE;
2199
2200 /* Verify that the APCS is the same for the two BFDs. */
2201 if (APCS_SET (ibfd))
2202 {
2203 if (APCS_SET (obfd))
2204 {
2205 /* If the src and dest have different APCS flag bits set, fail. */
2206 if (APCS_26_FLAG (obfd) != APCS_26_FLAG (ibfd))
2207 {
2208 _bfd_error_handler
2209 /* xgettext: c-format */
2210 (_("error: %B is compiled for APCS-%d, whereas %B is compiled for APCS-%d"),
2211 ibfd, obfd,
2212 APCS_26_FLAG (ibfd) ? 26 : 32,
2213 APCS_26_FLAG (obfd) ? 26 : 32
2214 );
2215
2216 bfd_set_error (bfd_error_wrong_format);
2217 return FALSE;
2218 }
2219
2220 if (APCS_FLOAT_FLAG (obfd) != APCS_FLOAT_FLAG (ibfd))
2221 {
2222 const char *msg;
2223
2224 if (APCS_FLOAT_FLAG (ibfd))
2225 /* xgettext: c-format */
2226 msg = _("error: %B passes floats in float registers, whereas %B passes them in integer registers");
2227 else
2228 /* xgettext: c-format */
2229 msg = _("error: %B passes floats in integer registers, whereas %B passes them in float registers");
2230
2231 _bfd_error_handler (msg, ibfd, obfd);
2232
2233 bfd_set_error (bfd_error_wrong_format);
2234 return FALSE;
2235 }
2236
2237 if (PIC_FLAG (obfd) != PIC_FLAG (ibfd))
2238 {
2239 const char * msg;
2240
2241 if (PIC_FLAG (ibfd))
2242 /* xgettext: c-format */
2243 msg = _("error: %B is compiled as position independent code, whereas target %B is absolute position");
2244 else
2245 /* xgettext: c-format */
2246 msg = _("error: %B is compiled as absolute position code, whereas target %B is position independent");
2247 _bfd_error_handler (msg, ibfd, obfd);
2248
2249 bfd_set_error (bfd_error_wrong_format);
2250 return FALSE;
2251 }
2252 }
2253 else
2254 {
2255 SET_APCS_FLAGS (obfd, APCS_26_FLAG (ibfd) | APCS_FLOAT_FLAG (ibfd) | PIC_FLAG (ibfd));
2256
2257 /* Set up the arch and fields as well as these are probably wrong. */
2258 bfd_set_arch_mach (obfd, bfd_get_arch (ibfd), bfd_get_mach (ibfd));
2259 }
2260 }
2261
2262 /* Check the interworking support. */
2263 if (INTERWORK_SET (ibfd))
2264 {
2265 if (INTERWORK_SET (obfd))
2266 {
2267 /* If the src and dest differ in their interworking issue a warning. */
2268 if (INTERWORK_FLAG (obfd) != INTERWORK_FLAG (ibfd))
2269 {
2270 const char * msg;
2271
2272 if (INTERWORK_FLAG (ibfd))
2273 /* xgettext: c-format */
2274 msg = _("Warning: %B supports interworking, whereas %B does not");
2275 else
2276 /* xgettext: c-format */
2277 msg = _("Warning: %B does not support interworking, whereas %B does");
2278
2279 _bfd_error_handler (msg, ibfd, obfd);
2280 }
2281 }
2282 else
2283 {
2284 SET_INTERWORK_FLAG (obfd, INTERWORK_FLAG (ibfd));
2285 }
2286 }
2287
2288 return TRUE;
2289 }
2290
2291 /* Display the flags field. */
2292
2293 static bfd_boolean
2294 coff_arm_print_private_bfd_data (bfd * abfd, void * ptr)
2295 {
2296 FILE * file = (FILE *) ptr;
2297
2298 BFD_ASSERT (abfd != NULL && ptr != NULL);
2299
2300 /* xgettext:c-format */
2301 fprintf (file, _("private flags = %x:"), coff_data (abfd)->flags);
2302
2303 if (APCS_SET (abfd))
2304 {
2305 /* xgettext: APCS is ARM Procedure Call Standard, it should not be translated. */
2306 fprintf (file, " [APCS-%d]", APCS_26_FLAG (abfd) ? 26 : 32);
2307
2308 if (APCS_FLOAT_FLAG (abfd))
2309 fprintf (file, _(" [floats passed in float registers]"));
2310 else
2311 fprintf (file, _(" [floats passed in integer registers]"));
2312
2313 if (PIC_FLAG (abfd))
2314 fprintf (file, _(" [position independent]"));
2315 else
2316 fprintf (file, _(" [absolute position]"));
2317 }
2318
2319 if (! INTERWORK_SET (abfd))
2320 fprintf (file, _(" [interworking flag not initialised]"));
2321 else if (INTERWORK_FLAG (abfd))
2322 fprintf (file, _(" [interworking supported]"));
2323 else
2324 fprintf (file, _(" [interworking not supported]"));
2325
2326 fputc ('\n', file);
2327
2328 return TRUE;
2329 }
2330
2331 /* Copies the given flags into the coff_tdata.flags field.
2332 Typically these flags come from the f_flags[] field of
2333 the COFF filehdr structure, which contains important,
2334 target specific information.
2335 Note: Although this function is static, it is explicitly
2336 called from both coffcode.h and peicode.h. */
2337
2338 static bfd_boolean
2339 _bfd_coff_arm_set_private_flags (bfd * abfd, flagword flags)
2340 {
2341 flagword flag;
2342
2343 BFD_ASSERT (abfd != NULL);
2344
2345 flag = (flags & F_APCS26) ? F_APCS_26 : 0;
2346
2347 /* Make sure that the APCS field has not been initialised to the opposite
2348 value. */
2349 if (APCS_SET (abfd)
2350 && ( (APCS_26_FLAG (abfd) != flag)
2351 || (APCS_FLOAT_FLAG (abfd) != (flags & F_APCS_FLOAT))
2352 || (PIC_FLAG (abfd) != (flags & F_PIC))
2353 ))
2354 return FALSE;
2355
2356 flag |= (flags & (F_APCS_FLOAT | F_PIC));
2357
2358 SET_APCS_FLAGS (abfd, flag);
2359
2360 flag = (flags & F_INTERWORK);
2361
2362 /* If the BFD has already had its interworking flag set, but it
2363 is different from the value that we have been asked to set,
2364 then assume that that merged code will not support interworking
2365 and set the flag accordingly. */
2366 if (INTERWORK_SET (abfd) && (INTERWORK_FLAG (abfd) != flag))
2367 {
2368 if (flag)
2369 /* xgettext: c-format */
2370 _bfd_error_handler (_("Warning: Not setting interworking flag of %B since it has already been specified as non-interworking"),
2371 abfd);
2372 else
2373 /* xgettext: c-format */
2374 _bfd_error_handler (_("Warning: Clearing the interworking flag of %B due to outside request"),
2375 abfd);
2376 flag = 0;
2377 }
2378
2379 SET_INTERWORK_FLAG (abfd, flag);
2380
2381 return TRUE;
2382 }
2383
2384 /* Copy the important parts of the target specific data
2385 from one instance of a BFD to another. */
2386
2387 static bfd_boolean
2388 coff_arm_copy_private_bfd_data (bfd * src, bfd * dest)
2389 {
2390 BFD_ASSERT (src != NULL && dest != NULL);
2391
2392 if (src == dest)
2393 return TRUE;
2394
2395 /* If the destination is not in the same format as the source, do not do
2396 the copy. */
2397 if (src->xvec != dest->xvec)
2398 return TRUE;
2399
2400 /* Copy the flags field. */
2401 if (APCS_SET (src))
2402 {
2403 if (APCS_SET (dest))
2404 {
2405 /* If the src and dest have different APCS flag bits set, fail. */
2406 if (APCS_26_FLAG (dest) != APCS_26_FLAG (src))
2407 return FALSE;
2408
2409 if (APCS_FLOAT_FLAG (dest) != APCS_FLOAT_FLAG (src))
2410 return FALSE;
2411
2412 if (PIC_FLAG (dest) != PIC_FLAG (src))
2413 return FALSE;
2414 }
2415 else
2416 SET_APCS_FLAGS (dest, APCS_26_FLAG (src) | APCS_FLOAT_FLAG (src)
2417 | PIC_FLAG (src));
2418 }
2419
2420 if (INTERWORK_SET (src))
2421 {
2422 if (INTERWORK_SET (dest))
2423 {
2424 /* If the src and dest have different interworking flags then turn
2425 off the interworking bit. */
2426 if (INTERWORK_FLAG (dest) != INTERWORK_FLAG (src))
2427 {
2428 if (INTERWORK_FLAG (dest))
2429 {
2430 /* xgettext:c-format */
2431 _bfd_error_handler (("\
2432 Warning: Clearing the interworking flag of %B because non-interworking code in %B has been linked with it"),
2433 dest, src);
2434 }
2435
2436 SET_INTERWORK_FLAG (dest, 0);
2437 }
2438 }
2439 else
2440 {
2441 SET_INTERWORK_FLAG (dest, INTERWORK_FLAG (src));
2442 }
2443 }
2444
2445 return TRUE;
2446 }
2447
2448 /* Note: the definitions here of LOCAL_LABEL_PREFIX and USER_LABEL_PREIFX
2449 *must* match the definitions in gcc/config/arm/{coff|semi|aout}.h. */
2450 #ifndef LOCAL_LABEL_PREFIX
2451 #define LOCAL_LABEL_PREFIX ""
2452 #endif
2453 #ifndef USER_LABEL_PREFIX
2454 #define USER_LABEL_PREFIX "_"
2455 #endif
2456
2457 /* Like _bfd_coff_is_local_label_name, but
2458 a) test against USER_LABEL_PREFIX, to avoid stripping labels known to be
2459 non-local.
2460 b) Allow other prefixes than ".", e.g. an empty prefix would cause all
2461 labels of the form Lxxx to be stripped. */
2462
2463 static bfd_boolean
2464 coff_arm_is_local_label_name (bfd * abfd ATTRIBUTE_UNUSED,
2465 const char * name)
2466 {
2467 #ifdef USER_LABEL_PREFIX
2468 if (USER_LABEL_PREFIX[0] != 0)
2469 {
2470 size_t len = strlen (USER_LABEL_PREFIX);
2471
2472 if (strncmp (name, USER_LABEL_PREFIX, len) == 0)
2473 return FALSE;
2474 }
2475 #endif
2476
2477 #ifdef LOCAL_LABEL_PREFIX
2478 /* If there is a prefix for local labels then look for this.
2479 If the prefix exists, but it is empty, then ignore the test. */
2480
2481 if (LOCAL_LABEL_PREFIX[0] != 0)
2482 {
2483 size_t len = strlen (LOCAL_LABEL_PREFIX);
2484
2485 if (strncmp (name, LOCAL_LABEL_PREFIX, len) != 0)
2486 return FALSE;
2487
2488 /* Perform the checks below for the rest of the name. */
2489 name += len;
2490 }
2491 #endif
2492
2493 return name[0] == 'L';
2494 }
2495
2496 /* This piece of machinery exists only to guarantee that the bfd that holds
2497 the glue section is written last.
2498
2499 This does depend on bfd_make_section attaching a new section to the
2500 end of the section list for the bfd. */
2501
2502 static bfd_boolean
2503 coff_arm_link_output_has_begun (bfd * sub, struct coff_final_link_info * info)
2504 {
2505 return (sub->output_has_begun
2506 || sub == coff_arm_hash_table (info->info)->bfd_of_glue_owner);
2507 }
2508
2509 static bfd_boolean
2510 coff_arm_final_link_postscript (bfd * abfd ATTRIBUTE_UNUSED,
2511 struct coff_final_link_info * pfinfo)
2512 {
2513 struct coff_arm_link_hash_table * globals;
2514
2515 globals = coff_arm_hash_table (pfinfo->info);
2516
2517 BFD_ASSERT (globals != NULL);
2518
2519 if (globals->bfd_of_glue_owner != NULL)
2520 {
2521 if (! _bfd_coff_link_input_bfd (pfinfo, globals->bfd_of_glue_owner))
2522 return FALSE;
2523
2524 globals->bfd_of_glue_owner->output_has_begun = TRUE;
2525 }
2526
2527 return bfd_arm_update_notes (abfd, ARM_NOTE_SECTION);
2528 }
2529
2530 #ifndef bfd_pe_print_pdata
2531 #define bfd_pe_print_pdata NULL
2532 #endif
2533
2534 #include "coffcode.h"
2535
2536 #ifndef TARGET_LITTLE_SYM
2537 #define TARGET_LITTLE_SYM armcoff_little_vec
2538 #endif
2539 #ifndef TARGET_LITTLE_NAME
2540 #define TARGET_LITTLE_NAME "coff-arm-little"
2541 #endif
2542 #ifndef TARGET_BIG_SYM
2543 #define TARGET_BIG_SYM armcoff_big_vec
2544 #endif
2545 #ifndef TARGET_BIG_NAME
2546 #define TARGET_BIG_NAME "coff-arm-big"
2547 #endif
2548
2549 #ifndef TARGET_UNDERSCORE
2550 #define TARGET_UNDERSCORE 0
2551 #endif
2552
2553 #ifndef EXTRA_S_FLAGS
2554 #ifdef COFF_WITH_PE
2555 #define EXTRA_S_FLAGS (SEC_CODE | SEC_LINK_ONCE | SEC_LINK_DUPLICATES)
2556 #else
2557 #define EXTRA_S_FLAGS SEC_CODE
2558 #endif
2559 #endif
2560
2561 /* Forward declaration for use initialising alternative_target field. */
2562 extern const bfd_target TARGET_BIG_SYM ;
2563
2564 /* Target vectors. */
2565 CREATE_LITTLE_COFF_TARGET_VEC (TARGET_LITTLE_SYM, TARGET_LITTLE_NAME, D_PAGED, EXTRA_S_FLAGS, TARGET_UNDERSCORE, & TARGET_BIG_SYM, COFF_SWAP_TABLE)
2566 CREATE_BIG_COFF_TARGET_VEC (TARGET_BIG_SYM, TARGET_BIG_NAME, D_PAGED, EXTRA_S_FLAGS, TARGET_UNDERSCORE, & TARGET_LITTLE_SYM, COFF_SWAP_TABLE)
git-cvsimport of binutils cvsroot