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