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