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