bfd/elf-m10300.c

   1 /* Matsushita 10300 specific support for 32-bit ELF
   2    Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
   3    2006, 2007 Free Software Foundation, Inc.
   4
   5    This file is part of BFD, the Binary File Descriptor library.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #include "sysdep.h"
  23 #include "bfd.h"
  24 #include "libbfd.h"
  25 #include "elf-bfd.h"
  26 #include "elf/mn10300.h"
  27 #include "libiberty.h"
  28
  29 /* The mn10300 linker needs to keep track of the number of relocs that
  30    it decides to copy in check_relocs for each symbol.  This is so
  31    that it can discard PC relative relocs if it doesn't need them when
  32    linking with -Bsymbolic.  We store the information in a field
  33    extending the regular ELF linker hash table.  */
  34
  35 struct elf32_mn10300_link_hash_entry
  36 {
  37   /* The basic elf link hash table entry.  */
  38   struct elf_link_hash_entry root;
  39
  40   /* For function symbols, the number of times this function is
  41      called directly (ie by name).  */
  42   unsigned int direct_calls;
  43
  44   /* For function symbols, the size of this function's stack
  45      (if <= 255 bytes).  We stuff this into "call" instructions
  46      to this target when it's valid and profitable to do so.
  47
  48      This does not include stack allocated by movm!  */
  49   unsigned char stack_size;
  50
  51   /* For function symbols, arguments (if any) for movm instruction
  52      in the prologue.  We stuff this value into "call" instructions
  53      to the target when it's valid and profitable to do so.  */
  54   unsigned char movm_args;
  55
  56   /* For function symbols, the amount of stack space that would be allocated
  57      by the movm instruction.  This is redundant with movm_args, but we
  58      add it to the hash table to avoid computing it over and over.  */
  59   unsigned char movm_stack_size;
  60
  61 /* When set, convert all "call" instructions to this target into "calls"
  62    instructions.  */
  63 #define MN10300_CONVERT_CALL_TO_CALLS 0x1
  64
  65 /* Used to mark functions which have had redundant parts of their
  66    prologue deleted.  */
  67 #define MN10300_DELETED_PROLOGUE_BYTES 0x2
  68   unsigned char flags;
  69
  70   /* Calculated value.  */
  71   bfd_vma value;
  72 };
  73
  74 /* We derive a hash table from the main elf linker hash table so
  75    we can store state variables and a secondary hash table without
  76    resorting to global variables.  */
  77 struct elf32_mn10300_link_hash_table
  78 {
  79   /* The main hash table.  */
  80   struct elf_link_hash_table root;
  81
  82   /* A hash table for static functions.  We could derive a new hash table
  83      instead of using the full elf32_mn10300_link_hash_table if we wanted
  84      to save some memory.  */
  85   struct elf32_mn10300_link_hash_table *static_hash_table;
  86
  87   /* Random linker state flags.  */
  88 #define MN10300_HASH_ENTRIES_INITIALIZED 0x1
  89   char flags;
  90 };
  91
  92 #ifndef streq
  93 #define streq(a, b) (strcmp ((a),(b)) == 0)
  94 #endif
  95
  96 /* For MN10300 linker hash table.  */
  97
  98 /* Get the MN10300 ELF linker hash table from a link_info structure.  */
  99
 100 #define elf32_mn10300_hash_table(p) \
 101   ((struct elf32_mn10300_link_hash_table *) ((p)->hash))
 102
 103 #define elf32_mn10300_link_hash_traverse(table, func, info)             \
 104   (elf_link_hash_traverse                                               \
 105    (&(table)->root,                                                     \
 106     (bfd_boolean (*) (struct elf_link_hash_entry *, void *)) (func),    \
 107     (info)))
 108
 109 static reloc_howto_type elf_mn10300_howto_table[] =
 110 {
 111   /* Dummy relocation.  Does nothing.  */
 112   HOWTO (R_MN10300_NONE,
 113          0,
 114          2,
 115          16,
 116          FALSE,
 117          0,
 118          complain_overflow_bitfield,
 119          bfd_elf_generic_reloc,
 120          "R_MN10300_NONE",
 121          FALSE,
 122          0,
 123          0,
 124          FALSE),
 125   /* Standard 32 bit reloc.  */
 126   HOWTO (R_MN10300_32,
 127          0,
 128          2,
 129          32,
 130          FALSE,
 131          0,
 132          complain_overflow_bitfield,
 133          bfd_elf_generic_reloc,
 134          "R_MN10300_32",
 135          FALSE,
 136          0xffffffff,
 137          0xffffffff,
 138          FALSE),
 139   /* Standard 16 bit reloc.  */
 140   HOWTO (R_MN10300_16,
 141          0,
 142          1,
 143          16,
 144          FALSE,
 145          0,
 146          complain_overflow_bitfield,
 147          bfd_elf_generic_reloc,
 148          "R_MN10300_16",
 149          FALSE,
 150          0xffff,
 151          0xffff,
 152          FALSE),
 153   /* Standard 8 bit reloc.  */
 154   HOWTO (R_MN10300_8,
 155          0,
 156          0,
 157          8,
 158          FALSE,
 159          0,
 160          complain_overflow_bitfield,
 161          bfd_elf_generic_reloc,
 162          "R_MN10300_8",
 163          FALSE,
 164          0xff,
 165          0xff,
 166          FALSE),
 167   /* Standard 32bit pc-relative reloc.  */
 168   HOWTO (R_MN10300_PCREL32,
 169          0,
 170          2,
 171          32,
 172          TRUE,
 173          0,
 174          complain_overflow_bitfield,
 175          bfd_elf_generic_reloc,
 176          "R_MN10300_PCREL32",
 177          FALSE,
 178          0xffffffff,
 179          0xffffffff,
 180          TRUE),
 181   /* Standard 16bit pc-relative reloc.  */
 182   HOWTO (R_MN10300_PCREL16,
 183          0,
 184          1,
 185          16,
 186          TRUE,
 187          0,
 188          complain_overflow_bitfield,
 189          bfd_elf_generic_reloc,
 190          "R_MN10300_PCREL16",
 191          FALSE,
 192          0xffff,
 193          0xffff,
 194          TRUE),
 195   /* Standard 8 pc-relative reloc.  */
 196   HOWTO (R_MN10300_PCREL8,
 197          0,
 198          0,
 199          8,
 200          TRUE,
 201          0,
 202          complain_overflow_bitfield,
 203          bfd_elf_generic_reloc,
 204          "R_MN10300_PCREL8",
 205          FALSE,
 206          0xff,
 207          0xff,
 208          TRUE),
 209
 210   /* GNU extension to record C++ vtable hierarchy.  */
 211   HOWTO (R_MN10300_GNU_VTINHERIT, /* type */
 212          0,                     /* rightshift */
 213          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 214          0,                     /* bitsize */
 215          FALSE,                 /* pc_relative */
 216          0,                     /* bitpos */
 217          complain_overflow_dont, /* complain_on_overflow */
 218          NULL,                  /* special_function */
 219          "R_MN10300_GNU_VTINHERIT", /* name */
 220          FALSE,                 /* partial_inplace */
 221          0,                     /* src_mask */
 222          0,                     /* dst_mask */
 223          FALSE),                /* pcrel_offset */
 224
 225   /* GNU extension to record C++ vtable member usage */
 226   HOWTO (R_MN10300_GNU_VTENTRY, /* type */
 227          0,                     /* rightshift */
 228          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 229          0,                     /* bitsize */
 230          FALSE,                 /* pc_relative */
 231          0,                     /* bitpos */
 232          complain_overflow_dont, /* complain_on_overflow */
 233          NULL,                  /* special_function */
 234          "R_MN10300_GNU_VTENTRY", /* name */
 235          FALSE,                 /* partial_inplace */
 236          0,                     /* src_mask */
 237          0,                     /* dst_mask */
 238          FALSE),                /* pcrel_offset */
 239
 240   /* Standard 24 bit reloc.  */
 241   HOWTO (R_MN10300_24,
 242          0,
 243          2,
 244          24,
 245          FALSE,
 246          0,
 247          complain_overflow_bitfield,
 248          bfd_elf_generic_reloc,
 249          "R_MN10300_24",
 250          FALSE,
 251          0xffffff,
 252          0xffffff,
 253          FALSE),
 254   HOWTO (R_MN10300_GOTPC32,     /* type */
 255          0,                     /* rightshift */
 256          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 257          32,                    /* bitsize */
 258          TRUE,                  /* pc_relative */
 259          0,                     /* bitpos */
 260          complain_overflow_bitfield, /* complain_on_overflow */
 261          bfd_elf_generic_reloc, /* */
 262          "R_MN10300_GOTPC32",   /* name */
 263          FALSE,                 /* partial_inplace */
 264          0xffffffff,            /* src_mask */
 265          0xffffffff,            /* dst_mask */
 266          TRUE),                 /* pcrel_offset */
 267
 268   HOWTO (R_MN10300_GOTPC16,     /* type */
 269          0,                     /* rightshift */
 270          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 271          16,                    /* bitsize */
 272          TRUE,                  /* pc_relative */
 273          0,                     /* bitpos */
 274          complain_overflow_bitfield, /* complain_on_overflow */
 275          bfd_elf_generic_reloc, /* */
 276          "R_MN10300_GOTPC16",   /* name */
 277          FALSE,                 /* partial_inplace */
 278          0xffff,                /* src_mask */
 279          0xffff,                /* dst_mask */
 280          TRUE),                 /* pcrel_offset */
 281
 282   HOWTO (R_MN10300_GOTOFF32,    /* type */
 283          0,                     /* rightshift */
 284          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 285          32,                    /* bitsize */
 286          FALSE,                 /* pc_relative */
 287          0,                     /* bitpos */
 288          complain_overflow_bitfield, /* complain_on_overflow */
 289          bfd_elf_generic_reloc, /* */
 290          "R_MN10300_GOTOFF32",  /* name */
 291          FALSE,                 /* partial_inplace */
 292          0xffffffff,            /* src_mask */
 293          0xffffffff,            /* dst_mask */
 294          FALSE),                /* pcrel_offset */
 295
 296   HOWTO (R_MN10300_GOTOFF24,    /* type */
 297          0,                     /* rightshift */
 298          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 299          24,                    /* bitsize */
 300          FALSE,                 /* pc_relative */
 301          0,                     /* bitpos */
 302          complain_overflow_bitfield, /* complain_on_overflow */
 303          bfd_elf_generic_reloc, /* */
 304          "R_MN10300_GOTOFF24",  /* name */
 305          FALSE,                 /* partial_inplace */
 306          0xffffff,              /* src_mask */
 307          0xffffff,              /* dst_mask */
 308          FALSE),                /* pcrel_offset */
 309
 310   HOWTO (R_MN10300_GOTOFF16,    /* type */
 311          0,                     /* rightshift */
 312          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 313          16,                    /* bitsize */
 314          FALSE,                 /* pc_relative */
 315          0,                     /* bitpos */
 316          complain_overflow_bitfield, /* complain_on_overflow */
 317          bfd_elf_generic_reloc, /* */
 318          "R_MN10300_GOTOFF16",  /* name */
 319          FALSE,                 /* partial_inplace */
 320          0xffff,                /* src_mask */
 321          0xffff,                /* dst_mask */
 322          FALSE),                /* pcrel_offset */
 323
 324   HOWTO (R_MN10300_PLT32,       /* type */
 325          0,                     /* rightshift */
 326          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 327          32,                    /* bitsize */
 328          TRUE,                  /* pc_relative */
 329          0,                     /* bitpos */
 330          complain_overflow_bitfield, /* complain_on_overflow */
 331          bfd_elf_generic_reloc, /* */
 332          "R_MN10300_PLT32",     /* name */
 333          FALSE,                 /* partial_inplace */
 334          0xffffffff,            /* src_mask */
 335          0xffffffff,            /* dst_mask */
 336          TRUE),                 /* pcrel_offset */
 337
 338   HOWTO (R_MN10300_PLT16,       /* type */
 339          0,                     /* rightshift */
 340          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 341          16,                    /* bitsize */
 342          TRUE,                  /* pc_relative */
 343          0,                     /* bitpos */
 344          complain_overflow_bitfield, /* complain_on_overflow */
 345          bfd_elf_generic_reloc, /* */
 346          "R_MN10300_PLT16",     /* name */
 347          FALSE,                 /* partial_inplace */
 348          0xffff,                /* src_mask */
 349          0xffff,                /* dst_mask */
 350          TRUE),                 /* pcrel_offset */
 351
 352   HOWTO (R_MN10300_GOT32,       /* type */
 353          0,                     /* rightshift */
 354          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 355          32,                    /* bitsize */
 356          FALSE,                 /* pc_relative */
 357          0,                     /* bitpos */
 358          complain_overflow_bitfield, /* complain_on_overflow */
 359          bfd_elf_generic_reloc, /* */
 360          "R_MN10300_GOT32",     /* name */
 361          FALSE,                 /* partial_inplace */
 362          0xffffffff,            /* src_mask */
 363          0xffffffff,            /* dst_mask */
 364          FALSE),                /* pcrel_offset */
 365
 366   HOWTO (R_MN10300_GOT24,       /* type */
 367          0,                     /* rightshift */
 368          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 369          24,                    /* bitsize */
 370          FALSE,                 /* pc_relative */
 371          0,                     /* bitpos */
 372          complain_overflow_bitfield, /* complain_on_overflow */
 373          bfd_elf_generic_reloc, /* */
 374          "R_MN10300_GOT24",     /* name */
 375          FALSE,                 /* partial_inplace */
 376          0xffffffff,            /* src_mask */
 377          0xffffffff,            /* dst_mask */
 378          FALSE),                /* pcrel_offset */
 379
 380   HOWTO (R_MN10300_GOT16,       /* type */
 381          0,                     /* rightshift */
 382          1,                     /* size (0 = byte, 1 = short, 2 = long) */
 383          16,                    /* bitsize */
 384          FALSE,                 /* pc_relative */
 385          0,                     /* bitpos */
 386          complain_overflow_bitfield, /* complain_on_overflow */
 387          bfd_elf_generic_reloc, /* */
 388          "R_MN10300_GOT16",     /* name */
 389          FALSE,                 /* partial_inplace */
 390          0xffffffff,            /* src_mask */
 391          0xffffffff,            /* dst_mask */
 392          FALSE),                /* pcrel_offset */
 393
 394   HOWTO (R_MN10300_COPY,        /* type */
 395          0,                     /* rightshift */
 396          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 397          32,                    /* bitsize */
 398          FALSE,                 /* pc_relative */
 399          0,                     /* bitpos */
 400          complain_overflow_bitfield, /* complain_on_overflow */
 401          bfd_elf_generic_reloc, /* */
 402          "R_MN10300_COPY",              /* name */
 403          FALSE,                 /* partial_inplace */
 404          0xffffffff,            /* src_mask */
 405          0xffffffff,            /* dst_mask */
 406          FALSE),                /* pcrel_offset */
 407
 408   HOWTO (R_MN10300_GLOB_DAT,    /* type */
 409          0,                     /* rightshift */
 410          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 411          32,                    /* bitsize */
 412          FALSE,                 /* pc_relative */
 413          0,                     /* bitpos */
 414          complain_overflow_bitfield, /* complain_on_overflow */
 415          bfd_elf_generic_reloc, /* */
 416          "R_MN10300_GLOB_DAT",  /* name */
 417          FALSE,                 /* partial_inplace */
 418          0xffffffff,            /* src_mask */
 419          0xffffffff,            /* dst_mask */
 420          FALSE),                /* pcrel_offset */
 421
 422   HOWTO (R_MN10300_JMP_SLOT,    /* type */
 423          0,                     /* rightshift */
 424          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 425          32,                    /* bitsize */
 426          FALSE,                 /* pc_relative */
 427          0,                     /* bitpos */
 428          complain_overflow_bitfield, /* complain_on_overflow */
 429          bfd_elf_generic_reloc, /* */
 430          "R_MN10300_JMP_SLOT",  /* name */
 431          FALSE,                 /* partial_inplace */
 432          0xffffffff,            /* src_mask */
 433          0xffffffff,            /* dst_mask */
 434          FALSE),                /* pcrel_offset */
 435
 436   HOWTO (R_MN10300_RELATIVE,    /* type */
 437          0,                     /* rightshift */
 438          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 439          32,                    /* bitsize */
 440          FALSE,                 /* pc_relative */
 441          0,                     /* bitpos */
 442          complain_overflow_bitfield, /* complain_on_overflow */
 443          bfd_elf_generic_reloc, /* */
 444          "R_MN10300_RELATIVE",  /* name */
 445          FALSE,                 /* partial_inplace */
 446          0xffffffff,            /* src_mask */
 447          0xffffffff,            /* dst_mask */
 448          FALSE),                /* pcrel_offset */
 449
 450   EMPTY_HOWTO (24),
 451   EMPTY_HOWTO (25),
 452   EMPTY_HOWTO (26),
 453   EMPTY_HOWTO (27),
 454   EMPTY_HOWTO (28),
 455   EMPTY_HOWTO (29),
 456   EMPTY_HOWTO (30),
 457   EMPTY_HOWTO (31),
 458   EMPTY_HOWTO (32),
 459
 460   HOWTO (R_MN10300_SYM_DIFF,    /* type */
 461          0,                     /* rightshift */
 462          2,                     /* size (0 = byte, 1 = short, 2 = long) */
 463          32,                    /* bitsize */
 464          FALSE,                 /* pc_relative */
 465          0,                     /* bitpos */
 466          complain_overflow_dont,/* complain_on_overflow */
 467          NULL,                  /* special handler.  */
 468          "R_MN10300_SYM_DIFF",  /* name */
 469          FALSE,                 /* partial_inplace */
 470          0xffffffff,            /* src_mask */
 471          0xffffffff,            /* dst_mask */
 472          FALSE),                /* pcrel_offset */
 473
 474   HOWTO (R_MN10300_ALIGN,       /* type */
 475          0,                     /* rightshift */
 476          0,                     /* size (0 = byte, 1 = short, 2 = long) */
 477          32,                    /* bitsize */
 478          FALSE,                 /* pc_relative */
 479          0,                     /* bitpos */
 480          complain_overflow_dont,/* complain_on_overflow */
 481          NULL,                  /* special handler.  */
 482          "R_MN10300_ALIGN",     /* name */
 483          FALSE,                 /* partial_inplace */
 484          0,                     /* src_mask */
 485          0,                     /* dst_mask */
 486          FALSE)                 /* pcrel_offset */
 487 };
 488
 489 struct mn10300_reloc_map
 490 {
 491   bfd_reloc_code_real_type bfd_reloc_val;
 492   unsigned char elf_reloc_val;
 493 };
 494
 495 static const struct mn10300_reloc_map mn10300_reloc_map[] =
 496 {
 497   { BFD_RELOC_NONE, R_MN10300_NONE, },
 498   { BFD_RELOC_32, R_MN10300_32, },
 499   { BFD_RELOC_16, R_MN10300_16, },
 500   { BFD_RELOC_8, R_MN10300_8, },
 501   { BFD_RELOC_32_PCREL, R_MN10300_PCREL32, },
 502   { BFD_RELOC_16_PCREL, R_MN10300_PCREL16, },
 503   { BFD_RELOC_8_PCREL, R_MN10300_PCREL8, },
 504   { BFD_RELOC_24, R_MN10300_24, },
 505   { BFD_RELOC_VTABLE_INHERIT, R_MN10300_GNU_VTINHERIT },
 506   { BFD_RELOC_VTABLE_ENTRY, R_MN10300_GNU_VTENTRY },
 507   { BFD_RELOC_32_GOT_PCREL, R_MN10300_GOTPC32 },
 508   { BFD_RELOC_16_GOT_PCREL, R_MN10300_GOTPC16 },
 509   { BFD_RELOC_32_GOTOFF, R_MN10300_GOTOFF32 },
 510   { BFD_RELOC_MN10300_GOTOFF24, R_MN10300_GOTOFF24 },
 511   { BFD_RELOC_16_GOTOFF, R_MN10300_GOTOFF16 },
 512   { BFD_RELOC_32_PLT_PCREL, R_MN10300_PLT32 },
 513   { BFD_RELOC_16_PLT_PCREL, R_MN10300_PLT16 },
 514   { BFD_RELOC_MN10300_GOT32, R_MN10300_GOT32 },
 515   { BFD_RELOC_MN10300_GOT24, R_MN10300_GOT24 },
 516   { BFD_RELOC_MN10300_GOT16, R_MN10300_GOT16 },
 517   { BFD_RELOC_MN10300_COPY, R_MN10300_COPY },
 518   { BFD_RELOC_MN10300_GLOB_DAT, R_MN10300_GLOB_DAT },
 519   { BFD_RELOC_MN10300_JMP_SLOT, R_MN10300_JMP_SLOT },
 520   { BFD_RELOC_MN10300_RELATIVE, R_MN10300_RELATIVE },
 521   { BFD_RELOC_MN10300_SYM_DIFF, R_MN10300_SYM_DIFF },
 522   { BFD_RELOC_MN10300_ALIGN, R_MN10300_ALIGN }
 523 };
 524
 525 /* Create the GOT section.  */
 526
 527 static bfd_boolean
 528 _bfd_mn10300_elf_create_got_section (bfd * abfd,
 529                                      struct bfd_link_info * info)
 530 {
 531   flagword   flags;
 532   flagword   pltflags;
 533   asection * s;
 534   struct elf_link_hash_entry * h;
 535   const struct elf_backend_data * bed = get_elf_backend_data (abfd);
 536   int ptralign;
 537
 538   /* This function may be called more than once.  */
 539   if (bfd_get_section_by_name (abfd, ".got") != NULL)
 540     return TRUE;
 541
 542   switch (bed->s->arch_size)
 543     {
 544     case 32:
 545       ptralign = 2;
 546       break;
 547
 548     case 64:
 549       ptralign = 3;
 550       break;
 551
 552     default:
 553       bfd_set_error (bfd_error_bad_value);
 554       return FALSE;
 555     }
 556
 557   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
 558            | SEC_LINKER_CREATED);
 559
 560   pltflags = flags;
 561   pltflags |= SEC_CODE;
 562   if (bed->plt_not_loaded)
 563     pltflags &= ~ (SEC_LOAD | SEC_HAS_CONTENTS);
 564   if (bed->plt_readonly)
 565     pltflags |= SEC_READONLY;
 566
 567   s = bfd_make_section_with_flags (abfd, ".plt", pltflags);
 568   if (s == NULL
 569       || ! bfd_set_section_alignment (abfd, s, bed->plt_alignment))
 570     return FALSE;
 571
 572   /* Define the symbol _PROCEDURE_LINKAGE_TABLE_ at the start of the
 573      .plt section.  */
 574   if (bed->want_plt_sym)
 575     {
 576       h = _bfd_elf_define_linkage_sym (abfd, info, s,
 577                                        "_PROCEDURE_LINKAGE_TABLE_");
 578       elf_hash_table (info)->hplt = h;
 579       if (h == NULL)
 580         return FALSE;
 581     }
 582
 583   s = bfd_make_section_with_flags (abfd, ".got", flags);
 584   if (s == NULL
 585       || ! bfd_set_section_alignment (abfd, s, ptralign))
 586     return FALSE;
 587
 588   if (bed->want_got_plt)
 589     {
 590       s = bfd_make_section_with_flags (abfd, ".got.plt", flags);
 591       if (s == NULL
 592           || ! bfd_set_section_alignment (abfd, s, ptralign))
 593         return FALSE;
 594     }
 595
 596   /* Define the symbol _GLOBAL_OFFSET_TABLE_ at the start of the .got
 597      (or .got.plt) section.  We don't do this in the linker script
 598      because we don't want to define the symbol if we are not creating
 599      a global offset table.  */
 600   h = _bfd_elf_define_linkage_sym (abfd, info, s, "_GLOBAL_OFFSET_TABLE_");
 601   elf_hash_table (info)->hgot = h;
 602   if (h == NULL)
 603     return FALSE;
 604
 605   /* The first bit of the global offset table is the header.  */
 606   s->size += bed->got_header_size;
 607
 608   return TRUE;
 609 }
 610
 611 static reloc_howto_type *
 612 bfd_elf32_bfd_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 613                                  bfd_reloc_code_real_type code)
 614 {
 615   unsigned int i;
 616
 617   for (i = ARRAY_SIZE (mn10300_reloc_map); i--;)
 618     if (mn10300_reloc_map[i].bfd_reloc_val == code)
 619       return &elf_mn10300_howto_table[mn10300_reloc_map[i].elf_reloc_val];
 620
 621   return NULL;
 622 }
 623
 624 static reloc_howto_type *
 625 bfd_elf32_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
 626                                  const char *r_name)
 627 {
 628   unsigned int i;
 629
 630   for (i = ARRAY_SIZE (elf_mn10300_howto_table); i--;)
 631     if (elf_mn10300_howto_table[i].name != NULL
 632         && strcasecmp (elf_mn10300_howto_table[i].name, r_name) == 0)
 633       return elf_mn10300_howto_table + i;
 634
 635   return NULL;
 636 }
 637
 638 /* Set the howto pointer for an MN10300 ELF reloc.  */
 639
 640 static void
 641 mn10300_info_to_howto (bfd *abfd ATTRIBUTE_UNUSED,
 642                        arelent *cache_ptr,
 643                        Elf_Internal_Rela *dst)
 644 {
 645   unsigned int r_type;
 646
 647   r_type = ELF32_R_TYPE (dst->r_info);
 648   BFD_ASSERT (r_type < (unsigned int) R_MN10300_MAX);
 649   cache_ptr->howto = elf_mn10300_howto_table + r_type;
 650 }
 651
 652 /* Look through the relocs for a section during the first phase.
 653    Since we don't do .gots or .plts, we just need to consider the
 654    virtual table relocs for gc.  */
 655
 656 static bfd_boolean
 657 mn10300_elf_check_relocs (bfd *abfd,
 658                           struct bfd_link_info *info,
 659                           asection *sec,
 660                           const Elf_Internal_Rela *relocs)
 661 {
 662   bfd_boolean sym_diff_reloc_seen;
 663   Elf_Internal_Shdr *symtab_hdr;
 664   Elf_Internal_Sym * isymbuf = NULL;
 665   struct elf_link_hash_entry **sym_hashes;
 666   const Elf_Internal_Rela *rel;
 667   const Elf_Internal_Rela *rel_end;
 668   bfd *      dynobj;
 669   bfd_vma *  local_got_offsets;
 670   asection * sgot;
 671   asection * srelgot;
 672   asection * sreloc;
 673   bfd_boolean result = FALSE;
 674
 675   sgot    = NULL;
 676   srelgot = NULL;
 677   sreloc  = NULL;
 678
 679   if (info->relocatable)
 680     return TRUE;
 681
 682   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
 683   isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
 684   sym_hashes = elf_sym_hashes (abfd);
 685
 686   dynobj = elf_hash_table (info)->dynobj;
 687   local_got_offsets = elf_local_got_offsets (abfd);
 688   rel_end = relocs + sec->reloc_count;
 689   sym_diff_reloc_seen = FALSE;
 690
 691   for (rel = relocs; rel < rel_end; rel++)
 692     {
 693       struct elf_link_hash_entry *h;
 694       unsigned long r_symndx;
 695       unsigned int r_type;
 696
 697       r_symndx = ELF32_R_SYM (rel->r_info);
 698       if (r_symndx < symtab_hdr->sh_info)
 699         h = NULL;
 700       else
 701         {
 702           h = sym_hashes[r_symndx - symtab_hdr->sh_info];
 703           while (h->root.type == bfd_link_hash_indirect
 704                  || h->root.type == bfd_link_hash_warning)
 705             h = (struct elf_link_hash_entry *) h->root.u.i.link;
 706         }
 707
 708       r_type = ELF32_R_TYPE (rel->r_info);
 709
 710       /* Some relocs require a global offset table.  */
 711       if (dynobj == NULL)
 712         {
 713           switch (r_type)
 714             {
 715             case R_MN10300_GOT32:
 716             case R_MN10300_GOT24:
 717             case R_MN10300_GOT16:
 718             case R_MN10300_GOTOFF32:
 719             case R_MN10300_GOTOFF24:
 720             case R_MN10300_GOTOFF16:
 721             case R_MN10300_GOTPC32:
 722             case R_MN10300_GOTPC16:
 723               elf_hash_table (info)->dynobj = dynobj = abfd;
 724               if (! _bfd_mn10300_elf_create_got_section (dynobj, info))
 725                 goto fail;
 726               break;
 727
 728             default:
 729               break;
 730             }
 731         }
 732
 733       switch (r_type)
 734         {
 735         /* This relocation describes the C++ object vtable hierarchy.
 736            Reconstruct it for later use during GC.  */
 737         case R_MN10300_GNU_VTINHERIT:
 738           if (!bfd_elf_gc_record_vtinherit (abfd, sec, h, rel->r_offset))
 739             goto fail;
 740           break;
 741
 742         /* This relocation describes which C++ vtable entries are actually
 743            used.  Record for later use during GC.  */
 744         case R_MN10300_GNU_VTENTRY:
 745           BFD_ASSERT (h != NULL);
 746           if (h != NULL
 747               && !bfd_elf_gc_record_vtentry (abfd, sec, h, rel->r_addend))
 748             goto fail;
 749           break;
 750
 751         case R_MN10300_GOT32:
 752         case R_MN10300_GOT24:
 753         case R_MN10300_GOT16:
 754           /* This symbol requires a global offset table entry.  */
 755
 756           if (sgot == NULL)
 757             {
 758               sgot = bfd_get_section_by_name (dynobj, ".got");
 759               BFD_ASSERT (sgot != NULL);
 760             }
 761
 762           if (srelgot == NULL
 763               && (h != NULL || info->shared))
 764             {
 765               srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
 766               if (srelgot == NULL)
 767                 {
 768                   srelgot = bfd_make_section_with_flags (dynobj,
 769                                                          ".rela.got",
 770                                                          (SEC_ALLOC
 771                                                           | SEC_LOAD
 772                                                           | SEC_HAS_CONTENTS
 773                                                           | SEC_IN_MEMORY
 774                                                           | SEC_LINKER_CREATED
 775                                                           | SEC_READONLY));
 776                   if (srelgot == NULL
 777                       || ! bfd_set_section_alignment (dynobj, srelgot, 2))
 778                     goto fail;
 779                 }
 780             }
 781
 782           if (h != NULL)
 783             {
 784               if (h->got.offset != (bfd_vma) -1)
 785                 /* We have already allocated space in the .got.  */
 786                 break;
 787
 788               h->got.offset = sgot->size;
 789
 790               /* Make sure this symbol is output as a dynamic symbol.  */
 791               if (h->dynindx == -1)
 792                 {
 793                   if (! bfd_elf_link_record_dynamic_symbol (info, h))
 794                     goto fail;
 795                 }
 796
 797               srelgot->size += sizeof (Elf32_External_Rela);
 798             }
 799           else
 800             {
 801               /* This is a global offset table entry for a local
 802                  symbol.  */
 803               if (local_got_offsets == NULL)
 804                 {
 805                   size_t       size;
 806                   unsigned int i;
 807
 808                   size = symtab_hdr->sh_info * sizeof (bfd_vma);
 809                   local_got_offsets = bfd_alloc (abfd, size);
 810
 811                   if (local_got_offsets == NULL)
 812                     goto fail;
 813
 814                   elf_local_got_offsets (abfd) = local_got_offsets;
 815
 816                   for (i = 0; i < symtab_hdr->sh_info; i++)
 817                     local_got_offsets[i] = (bfd_vma) -1;
 818                 }
 819
 820               if (local_got_offsets[r_symndx] != (bfd_vma) -1)
 821                 /* We have already allocated space in the .got.  */
 822                 break;
 823
 824               local_got_offsets[r_symndx] = sgot->size;
 825
 826               if (info->shared)
 827                 /* If we are generating a shared object, we need to
 828                    output a R_MN10300_RELATIVE reloc so that the dynamic
 829                    linker can adjust this GOT entry.  */
 830                 srelgot->size += sizeof (Elf32_External_Rela);
 831             }
 832
 833           sgot->size += 4;
 834           break;
 835
 836         case R_MN10300_PLT32:
 837         case R_MN10300_PLT16:
 838           /* This symbol requires a procedure linkage table entry.  We
 839              actually build the entry in adjust_dynamic_symbol,
 840              because this might be a case of linking PIC code which is
 841              never referenced by a dynamic object, in which case we
 842              don't need to generate a procedure linkage table entry
 843              after all.  */
 844
 845           /* If this is a local symbol, we resolve it directly without
 846              creating a procedure linkage table entry.  */
 847           if (h == NULL)
 848             continue;
 849
 850           if (ELF_ST_VISIBILITY (h->other) == STV_INTERNAL
 851               || ELF_ST_VISIBILITY (h->other) == STV_HIDDEN)
 852             break;
 853
 854           h->needs_plt = 1;
 855           break;
 856
 857         case R_MN10300_24:
 858         case R_MN10300_16:
 859         case R_MN10300_8:
 860         case R_MN10300_PCREL32:
 861         case R_MN10300_PCREL16:
 862         case R_MN10300_PCREL8:
 863           if (h != NULL)
 864             h->non_got_ref = 1;
 865           break;
 866
 867         case R_MN10300_SYM_DIFF:
 868           sym_diff_reloc_seen = TRUE;
 869           break;
 870
 871         case R_MN10300_32:
 872           if (h != NULL)
 873             h->non_got_ref = 1;
 874
 875           /* If we are creating a shared library, then we
 876              need to copy the reloc into the shared library.  */
 877           if (info->shared
 878               && (sec->flags & SEC_ALLOC) != 0
 879               /* Do not generate a dynamic reloc for a
 880                  reloc associated with a SYM_DIFF operation.  */
 881               && ! sym_diff_reloc_seen)
 882             {
 883               asection * sym_section = NULL;
 884
 885               /* Find the section containing the
 886                  symbol involved in the relocation.  */
 887               if (h == NULL)
 888                 {
 889                   Elf_Internal_Sym * isym;
 890
 891                   if (isymbuf == NULL)
 892                     isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
 893                                                     symtab_hdr->sh_info, 0,
 894                                                     NULL, NULL, NULL);
 895                   if (isymbuf)
 896                     {
 897                       isym = isymbuf + r_symndx;
 898                       /* All we care about is whether this local symbol is absolute.  */
 899                       if (isym->st_shndx == SHN_ABS)
 900                         sym_section = bfd_abs_section_ptr;
 901                     }
 902                 }
 903               else
 904                 {
 905                   if (h->root.type == bfd_link_hash_defined
 906                       || h->root.type == bfd_link_hash_defweak)
 907                     sym_section = h->root.u.def.section;
 908                 }
 909
 910               /* If the symbol is absolute then the relocation can
 911                  be resolved during linking and there is no need for
 912                  a dynamic reloc.  */
 913               if (sym_section != bfd_abs_section_ptr)
 914                 {
 915                   /* When creating a shared object, we must copy these
 916                      reloc types into the output file.  We create a reloc
 917                      section in dynobj and make room for this reloc.  */
 918                   if (sreloc == NULL)
 919                     {
 920                       sreloc = _bfd_elf_make_dynamic_reloc_section
 921                         (sec, dynobj, 2, abfd, /*rela?*/ TRUE);
 922                       if (sreloc == NULL)
 923                         goto fail;
 924                     }
 925
 926                   sreloc->size += sizeof (Elf32_External_Rela);
 927                 }
 928             }
 929
 930           break;
 931         }
 932
 933       if (ELF32_R_TYPE (rel->r_info) != R_MN10300_SYM_DIFF)
 934         sym_diff_reloc_seen = FALSE;
 935     }
 936
 937   result = TRUE;
 938  fail:
 939   if (isymbuf != NULL)
 940     free (isymbuf);
 941
 942   return result;
 943 }
 944
 945 /* Return the section that should be marked against GC for a given
 946    relocation.  */
 947
 948 static asection *
 949 mn10300_elf_gc_mark_hook (asection *sec,
 950                           struct bfd_link_info *info,
 951                           Elf_Internal_Rela *rel,
 952                           struct elf_link_hash_entry *h,
 953                           Elf_Internal_Sym *sym)
 954 {
 955   if (h != NULL)
 956     switch (ELF32_R_TYPE (rel->r_info))
 957       {
 958       case R_MN10300_GNU_VTINHERIT:
 959       case R_MN10300_GNU_VTENTRY:
 960         return NULL;
 961       }
 962
 963   return _bfd_elf_gc_mark_hook (sec, info, rel, h, sym);
 964 }
 965
 966 /* Perform a relocation as part of a final link.  */
 967
 968 static bfd_reloc_status_type
 969 mn10300_elf_final_link_relocate (reloc_howto_type *howto,
 970                                  bfd *input_bfd,
 971                                  bfd *output_bfd ATTRIBUTE_UNUSED,
 972                                  asection *input_section,
 973                                  bfd_byte *contents,
 974                                  bfd_vma offset,
 975                                  bfd_vma value,
 976                                  bfd_vma addend,
 977                                  struct elf_link_hash_entry * h,
 978                                  unsigned long symndx,
 979                                  struct bfd_link_info *info,
 980                                  asection *sym_sec ATTRIBUTE_UNUSED,
 981                                  int is_local ATTRIBUTE_UNUSED)
 982 {
 983   static asection *  sym_diff_section;
 984   static bfd_vma     sym_diff_value;
 985   bfd_boolean is_sym_diff_reloc;
 986   unsigned long r_type = howto->type;
 987   bfd_byte * hit_data = contents + offset;
 988   bfd *      dynobj;
 989   bfd_vma *  local_got_offsets;
 990   asection * sgot;
 991   asection * splt;
 992   asection * sreloc;
 993
 994   dynobj = elf_hash_table (info)->dynobj;
 995   local_got_offsets = elf_local_got_offsets (input_bfd);
 996
 997   sgot   = NULL;
 998   splt   = NULL;
 999   sreloc = NULL;
1000
1001   switch (r_type)
1002     {
1003     case R_MN10300_24:
1004     case R_MN10300_16:
1005     case R_MN10300_8:
1006     case R_MN10300_PCREL8:
1007     case R_MN10300_PCREL16:
1008     case R_MN10300_PCREL32:
1009     case R_MN10300_GOTOFF32:
1010     case R_MN10300_GOTOFF24:
1011     case R_MN10300_GOTOFF16:
1012       if (info->shared
1013           && (input_section->flags & SEC_ALLOC) != 0
1014           && h != NULL
1015           && ! SYMBOL_REFERENCES_LOCAL (info, h))
1016         return bfd_reloc_dangerous;
1017     }
1018
1019   is_sym_diff_reloc = FALSE;
1020   if (sym_diff_section != NULL)
1021     {
1022       BFD_ASSERT (sym_diff_section == input_section);
1023
1024       switch (r_type)
1025         {
1026         case R_MN10300_32:
1027         case R_MN10300_24:
1028         case R_MN10300_16:
1029         case R_MN10300_8:
1030           value -= sym_diff_value;
1031           /* If we are computing a 32-bit value for the location lists
1032              and the result is 0 then we add one to the value.  A zero
1033              value can result because of linker relaxation deleteing
1034              prologue instructions and using a value of 1 (for the begin
1035              and end offsets in the location list entry) results in a
1036              nul entry which does not prevent the following entries from
1037              being parsed.  */
1038           if (r_type == R_MN10300_32
1039               && value == 0
1040               && strcmp (input_section->name, ".debug_loc") == 0)
1041             value = 1;
1042           sym_diff_section = NULL;
1043           is_sym_diff_reloc = TRUE;
1044           break;
1045
1046         default:
1047           sym_diff_section = NULL;
1048           break;
1049         }
1050     }
1051
1052   switch (r_type)
1053     {
1054     case R_MN10300_SYM_DIFF:
1055       BFD_ASSERT (addend == 0);
1056       /* Cache the input section and value.
1057          The offset is unreliable, since relaxation may
1058          have reduced the following reloc's offset.  */
1059       sym_diff_section = input_section;
1060       sym_diff_value = value;
1061       return bfd_reloc_ok;
1062
1063     case R_MN10300_ALIGN:
1064     case R_MN10300_NONE:
1065       return bfd_reloc_ok;
1066
1067     case R_MN10300_32:
1068       if (info->shared
1069           /* Do not generate relocs when an R_MN10300_32 has been used
1070              with an R_MN10300_SYM_DIFF to compute a difference of two
1071              symbols.  */
1072           && is_sym_diff_reloc == FALSE
1073           /* Also, do not generate a reloc when the symbol associated
1074              with the R_MN10300_32 reloc is absolute - there is no
1075              need for a run time computation in this case.  */
1076           && sym_sec != bfd_abs_section_ptr
1077           /* If the section is not going to be allocated at load time
1078              then there is no need to generate relocs for it.  */
1079           && (input_section->flags & SEC_ALLOC) != 0)
1080         {
1081           Elf_Internal_Rela outrel;
1082           bfd_boolean skip, relocate;
1083
1084           /* When generating a shared object, these relocations are
1085              copied into the output file to be resolved at run
1086              time.  */
1087           if (sreloc == NULL)
1088             {
1089               sreloc = _bfd_elf_get_dynamic_reloc_section
1090                 (input_bfd, input_section, /*rela?*/ TRUE);
1091               if (sreloc == NULL)
1092                 return FALSE;
1093             }
1094
1095           skip = FALSE;
1096
1097           outrel.r_offset = _bfd_elf_section_offset (input_bfd, info,
1098                                                      input_section, offset);
1099           if (outrel.r_offset == (bfd_vma) -1)
1100             skip = TRUE;
1101
1102           outrel.r_offset += (input_section->output_section->vma
1103                               + input_section->output_offset);
1104
1105           if (skip)
1106             {
1107               memset (&outrel, 0, sizeof outrel);
1108               relocate = FALSE;
1109             }
1110           else
1111             {
1112               /* h->dynindx may be -1 if this symbol was marked to
1113                  become local.  */
1114               if (h == NULL
1115                   || SYMBOL_REFERENCES_LOCAL (info, h))
1116                 {
1117                   relocate = TRUE;
1118                   outrel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
1119                   outrel.r_addend = value + addend;
1120                 }
1121               else
1122                 {
1123                   BFD_ASSERT (h->dynindx != -1);
1124                   relocate = FALSE;
1125                   outrel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_32);
1126                   outrel.r_addend = value + addend;
1127                 }
1128             }
1129
1130           bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1131                                      (bfd_byte *) (((Elf32_External_Rela *) sreloc->contents)
1132                                                    + sreloc->reloc_count));
1133           ++sreloc->reloc_count;
1134
1135           /* If this reloc is against an external symbol, we do
1136              not want to fiddle with the addend.  Otherwise, we
1137              need to include the symbol value so that it becomes
1138              an addend for the dynamic reloc.  */
1139           if (! relocate)
1140             return bfd_reloc_ok;
1141         }
1142       value += addend;
1143       bfd_put_32 (input_bfd, value, hit_data);
1144       return bfd_reloc_ok;
1145
1146     case R_MN10300_24:
1147       value += addend;
1148
1149       if ((long) value > 0x7fffff || (long) value < -0x800000)
1150         return bfd_reloc_overflow;
1151
1152       bfd_put_8 (input_bfd, value & 0xff, hit_data);
1153       bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1154       bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1155       return bfd_reloc_ok;
1156
1157     case R_MN10300_16:
1158       value += addend;
1159
1160       if ((long) value > 0x7fff || (long) value < -0x8000)
1161         return bfd_reloc_overflow;
1162
1163       bfd_put_16 (input_bfd, value, hit_data);
1164       return bfd_reloc_ok;
1165
1166     case R_MN10300_8:
1167       value += addend;
1168
1169       if ((long) value > 0x7f || (long) value < -0x80)
1170         return bfd_reloc_overflow;
1171
1172       bfd_put_8 (input_bfd, value, hit_data);
1173       return bfd_reloc_ok;
1174
1175     case R_MN10300_PCREL8:
1176       value -= (input_section->output_section->vma
1177                 + input_section->output_offset);
1178       value -= offset;
1179       value += addend;
1180
1181       if ((long) value > 0x7f || (long) value < -0x80)
1182         return bfd_reloc_overflow;
1183
1184       bfd_put_8 (input_bfd, value, hit_data);
1185       return bfd_reloc_ok;
1186
1187     case R_MN10300_PCREL16:
1188       value -= (input_section->output_section->vma
1189                 + input_section->output_offset);
1190       value -= offset;
1191       value += addend;
1192
1193       if ((long) value > 0x7fff || (long) value < -0x8000)
1194         return bfd_reloc_overflow;
1195
1196       bfd_put_16 (input_bfd, value, hit_data);
1197       return bfd_reloc_ok;
1198
1199     case R_MN10300_PCREL32:
1200       value -= (input_section->output_section->vma
1201                 + input_section->output_offset);
1202       value -= offset;
1203       value += addend;
1204
1205       bfd_put_32 (input_bfd, value, hit_data);
1206       return bfd_reloc_ok;
1207
1208     case R_MN10300_GNU_VTINHERIT:
1209     case R_MN10300_GNU_VTENTRY:
1210       return bfd_reloc_ok;
1211
1212     case R_MN10300_GOTPC32:
1213       /* Use global offset table as symbol value.  */
1214       value = bfd_get_section_by_name (dynobj,
1215                                        ".got")->output_section->vma;
1216       value -= (input_section->output_section->vma
1217                 + input_section->output_offset);
1218       value -= offset;
1219       value += addend;
1220
1221       bfd_put_32 (input_bfd, value, hit_data);
1222       return bfd_reloc_ok;
1223
1224     case R_MN10300_GOTPC16:
1225       /* Use global offset table as symbol value.  */
1226       value = bfd_get_section_by_name (dynobj,
1227                                        ".got")->output_section->vma;
1228       value -= (input_section->output_section->vma
1229                 + input_section->output_offset);
1230       value -= offset;
1231       value += addend;
1232
1233       if ((long) value > 0x7fff || (long) value < -0x8000)
1234         return bfd_reloc_overflow;
1235
1236       bfd_put_16 (input_bfd, value, hit_data);
1237       return bfd_reloc_ok;
1238
1239     case R_MN10300_GOTOFF32:
1240       value -= bfd_get_section_by_name (dynobj,
1241                                         ".got")->output_section->vma;
1242       value += addend;
1243
1244       bfd_put_32 (input_bfd, value, hit_data);
1245       return bfd_reloc_ok;
1246
1247     case R_MN10300_GOTOFF24:
1248       value -= bfd_get_section_by_name (dynobj,
1249                                         ".got")->output_section->vma;
1250       value += addend;
1251
1252       if ((long) value > 0x7fffff || (long) value < -0x800000)
1253         return bfd_reloc_overflow;
1254
1255       bfd_put_8 (input_bfd, value, hit_data);
1256       bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1257       bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1258       return bfd_reloc_ok;
1259
1260     case R_MN10300_GOTOFF16:
1261       value -= bfd_get_section_by_name (dynobj,
1262                                         ".got")->output_section->vma;
1263       value += addend;
1264
1265       if ((long) value > 0x7fff || (long) value < -0x8000)
1266         return bfd_reloc_overflow;
1267
1268       bfd_put_16 (input_bfd, value, hit_data);
1269       return bfd_reloc_ok;
1270
1271     case R_MN10300_PLT32:
1272       if (h != NULL
1273           && ELF_ST_VISIBILITY (h->other) != STV_INTERNAL
1274           && ELF_ST_VISIBILITY (h->other) != STV_HIDDEN
1275           && h->plt.offset != (bfd_vma) -1)
1276         {
1277           asection * splt;
1278
1279           splt = bfd_get_section_by_name (dynobj, ".plt");
1280
1281           value = (splt->output_section->vma
1282                    + splt->output_offset
1283                    + h->plt.offset) - value;
1284         }
1285
1286       value -= (input_section->output_section->vma
1287                 + input_section->output_offset);
1288       value -= offset;
1289       value += addend;
1290
1291       bfd_put_32 (input_bfd, value, hit_data);
1292       return bfd_reloc_ok;
1293
1294     case R_MN10300_PLT16:
1295       if (h != NULL
1296           && ELF_ST_VISIBILITY (h->other) != STV_INTERNAL
1297           && ELF_ST_VISIBILITY (h->other) != STV_HIDDEN
1298           && h->plt.offset != (bfd_vma) -1)
1299         {
1300           asection * splt;
1301
1302           splt = bfd_get_section_by_name (dynobj, ".plt");
1303
1304           value = (splt->output_section->vma
1305                    + splt->output_offset
1306                    + h->plt.offset) - value;
1307         }
1308
1309       value -= (input_section->output_section->vma
1310                 + input_section->output_offset);
1311       value -= offset;
1312       value += addend;
1313
1314       if ((long) value > 0x7fff || (long) value < -0x8000)
1315         return bfd_reloc_overflow;
1316
1317       bfd_put_16 (input_bfd, value, hit_data);
1318       return bfd_reloc_ok;
1319
1320     case R_MN10300_GOT32:
1321     case R_MN10300_GOT24:
1322     case R_MN10300_GOT16:
1323       {
1324         asection * sgot;
1325
1326         sgot = bfd_get_section_by_name (dynobj, ".got");
1327
1328           if (h != NULL)
1329             {
1330               bfd_vma off;
1331
1332               off = h->got.offset;
1333               BFD_ASSERT (off != (bfd_vma) -1);
1334
1335               if (! elf_hash_table (info)->dynamic_sections_created
1336                   || SYMBOL_REFERENCES_LOCAL (info, h))
1337                 /* This is actually a static link, or it is a
1338                    -Bsymbolic link and the symbol is defined
1339                    locally, or the symbol was forced to be local
1340                    because of a version file.  We must initialize
1341                    this entry in the global offset table.
1342
1343                    When doing a dynamic link, we create a .rela.got
1344                    relocation entry to initialize the value.  This
1345                    is done in the finish_dynamic_symbol routine.  */
1346                 bfd_put_32 (output_bfd, value,
1347                             sgot->contents + off);
1348
1349               value = sgot->output_offset + off;
1350             }
1351           else
1352             {
1353               bfd_vma off;
1354
1355               off = elf_local_got_offsets (input_bfd)[symndx];
1356
1357               bfd_put_32 (output_bfd, value, sgot->contents + off);
1358
1359               if (info->shared)
1360                 {
1361                   asection * srelgot;
1362                   Elf_Internal_Rela outrel;
1363
1364                   srelgot = bfd_get_section_by_name (dynobj, ".rela.got");
1365                   BFD_ASSERT (srelgot != NULL);
1366
1367                   outrel.r_offset = (sgot->output_section->vma
1368                                      + sgot->output_offset
1369                                      + off);
1370                   outrel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
1371                   outrel.r_addend = value;
1372                   bfd_elf32_swap_reloca_out (output_bfd, &outrel,
1373                                              (bfd_byte *) (((Elf32_External_Rela *)
1374                                                             srelgot->contents)
1375                                                            + srelgot->reloc_count));
1376                   ++ srelgot->reloc_count;
1377                 }
1378
1379               value = sgot->output_offset + off;
1380             }
1381       }
1382
1383       value += addend;
1384
1385       if (r_type == R_MN10300_GOT32)
1386         {
1387           bfd_put_32 (input_bfd, value, hit_data);
1388           return bfd_reloc_ok;
1389         }
1390       else if (r_type == R_MN10300_GOT24)
1391         {
1392           if ((long) value > 0x7fffff || (long) value < -0x800000)
1393             return bfd_reloc_overflow;
1394
1395           bfd_put_8 (input_bfd, value & 0xff, hit_data);
1396           bfd_put_8 (input_bfd, (value >> 8) & 0xff, hit_data + 1);
1397           bfd_put_8 (input_bfd, (value >> 16) & 0xff, hit_data + 2);
1398           return bfd_reloc_ok;
1399         }
1400       else if (r_type == R_MN10300_GOT16)
1401         {
1402           if ((long) value > 0x7fff || (long) value < -0x8000)
1403             return bfd_reloc_overflow;
1404
1405           bfd_put_16 (input_bfd, value, hit_data);
1406           return bfd_reloc_ok;
1407         }
1408       /* Fall through.  */
1409
1410     default:
1411       return bfd_reloc_notsupported;
1412     }
1413 }
1414 \f
1415 /* Relocate an MN10300 ELF section.  */
1416
1417 static bfd_boolean
1418 mn10300_elf_relocate_section (bfd *output_bfd,
1419                               struct bfd_link_info *info,
1420                               bfd *input_bfd,
1421                               asection *input_section,
1422                               bfd_byte *contents,
1423                               Elf_Internal_Rela *relocs,
1424                               Elf_Internal_Sym *local_syms,
1425                               asection **local_sections)
1426 {
1427   Elf_Internal_Shdr *symtab_hdr;
1428   struct elf_link_hash_entry **sym_hashes;
1429   Elf_Internal_Rela *rel, *relend;
1430
1431   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
1432   sym_hashes = elf_sym_hashes (input_bfd);
1433
1434   rel = relocs;
1435   relend = relocs + input_section->reloc_count;
1436   for (; rel < relend; rel++)
1437     {
1438       int r_type;
1439       reloc_howto_type *howto;
1440       unsigned long r_symndx;
1441       Elf_Internal_Sym *sym;
1442       asection *sec;
1443       struct elf32_mn10300_link_hash_entry *h;
1444       bfd_vma relocation;
1445       bfd_reloc_status_type r;
1446
1447       r_symndx = ELF32_R_SYM (rel->r_info);
1448       r_type = ELF32_R_TYPE (rel->r_info);
1449       howto = elf_mn10300_howto_table + r_type;
1450
1451       /* Just skip the vtable gc relocs.  */
1452       if (r_type == R_MN10300_GNU_VTINHERIT
1453           || r_type == R_MN10300_GNU_VTENTRY)
1454         continue;
1455
1456       h = NULL;
1457       sym = NULL;
1458       sec = NULL;
1459       if (r_symndx < symtab_hdr->sh_info)
1460         {
1461           sym = local_syms + r_symndx;
1462           sec = local_sections[r_symndx];
1463           relocation = _bfd_elf_rela_local_sym (output_bfd, sym, &sec, rel);
1464         }
1465       else
1466         {
1467           bfd_boolean unresolved_reloc;
1468           bfd_boolean warned;
1469           struct elf_link_hash_entry *hh;
1470
1471           RELOC_FOR_GLOBAL_SYMBOL (info, input_bfd, input_section, rel,
1472                                    r_symndx, symtab_hdr, sym_hashes,
1473                                    hh, sec, relocation,
1474                                    unresolved_reloc, warned);
1475
1476           h = (struct elf32_mn10300_link_hash_entry *) hh;
1477
1478           if ((h->root.root.type == bfd_link_hash_defined
1479               || h->root.root.type == bfd_link_hash_defweak)
1480               && (   r_type == R_MN10300_GOTPC32
1481                   || r_type == R_MN10300_GOTPC16
1482                   || ((   r_type == R_MN10300_PLT32
1483                        || r_type == R_MN10300_PLT16)
1484                       && ELF_ST_VISIBILITY (h->root.other) != STV_INTERNAL
1485                       && ELF_ST_VISIBILITY (h->root.other) != STV_HIDDEN
1486                       && h->root.plt.offset != (bfd_vma) -1)
1487                   || ((   r_type == R_MN10300_GOT32
1488                        || r_type == R_MN10300_GOT24
1489                        || r_type == R_MN10300_GOT16)
1490                       && elf_hash_table (info)->dynamic_sections_created
1491                       && !SYMBOL_REFERENCES_LOCAL (info, hh))
1492                   || (r_type == R_MN10300_32
1493                       /* _32 relocs in executables force _COPY relocs,
1494                          such that the address of the symbol ends up
1495                          being local.  */
1496                       && !info->executable
1497                       && !SYMBOL_REFERENCES_LOCAL (info, hh)
1498                       && ((input_section->flags & SEC_ALLOC) != 0
1499                           /* DWARF will emit R_MN10300_32 relocations
1500                              in its sections against symbols defined
1501                              externally in shared libraries.  We can't
1502                              do anything with them here.  */
1503                           || ((input_section->flags & SEC_DEBUGGING) != 0
1504                               && h->root.def_dynamic)))))
1505             /* In these cases, we don't need the relocation
1506                value.  We check specially because in some
1507                obscure cases sec->output_section will be NULL.  */
1508             relocation = 0;
1509
1510           else if (!info->relocatable && unresolved_reloc)
1511             (*_bfd_error_handler)
1512               (_("%B(%A+0x%lx): unresolvable %s relocation against symbol `%s'"),
1513                input_bfd,
1514                input_section,
1515                (long) rel->r_offset,
1516                howto->name,
1517                h->root.root.root.string);
1518         }
1519
1520       if (sec != NULL && elf_discarded_section (sec))
1521         {
1522           /* For relocs against symbols from removed linkonce sections,
1523              or sections discarded by a linker script, we just want the
1524              section contents zeroed.  Avoid any special processing.  */
1525           _bfd_clear_contents (howto, input_bfd, contents + rel->r_offset);
1526           rel->r_info = 0;
1527           rel->r_addend = 0;
1528           continue;
1529         }
1530
1531       if (info->relocatable)
1532         continue;
1533
1534       r = mn10300_elf_final_link_relocate (howto, input_bfd, output_bfd,
1535                                            input_section,
1536                                            contents, rel->r_offset,
1537                                            relocation, rel->r_addend,
1538                                            (struct elf_link_hash_entry *) h,
1539                                            r_symndx,
1540                                            info, sec, h == NULL);
1541
1542       if (r != bfd_reloc_ok)
1543         {
1544           const char *name;
1545           const char *msg = NULL;
1546
1547           if (h != NULL)
1548             name = h->root.root.root.string;
1549           else
1550             {
1551               name = (bfd_elf_string_from_elf_section
1552                       (input_bfd, symtab_hdr->sh_link, sym->st_name));
1553               if (name == NULL || *name == '\0')
1554                 name = bfd_section_name (input_bfd, sec);
1555             }
1556
1557           switch (r)
1558             {
1559             case bfd_reloc_overflow:
1560               if (! ((*info->callbacks->reloc_overflow)
1561                      (info, (h ? &h->root.root : NULL), name,
1562                       howto->name, (bfd_vma) 0, input_bfd,
1563                       input_section, rel->r_offset)))
1564                 return FALSE;
1565               break;
1566
1567             case bfd_reloc_undefined:
1568               if (! ((*info->callbacks->undefined_symbol)
1569                      (info, name, input_bfd, input_section,
1570                       rel->r_offset, TRUE)))
1571                 return FALSE;
1572               break;
1573
1574             case bfd_reloc_outofrange:
1575               msg = _("internal error: out of range error");
1576               goto common_error;
1577
1578             case bfd_reloc_notsupported:
1579               msg = _("internal error: unsupported relocation error");
1580               goto common_error;
1581
1582             case bfd_reloc_dangerous:
1583               if (r_type == R_MN10300_PCREL32)
1584                 msg = _("error: inappropriate relocation type for shared"
1585                         " library (did you forget -fpic?)");
1586               else
1587                 msg = _("internal error: suspicious relocation type used"
1588                         " in shared library");
1589               goto common_error;
1590
1591             default:
1592               msg = _("internal error: unknown error");
1593               /* Fall through.  */
1594
1595             common_error:
1596               if (!((*info->callbacks->warning)
1597                     (info, msg, name, input_bfd, input_section,
1598                      rel->r_offset)))
1599                 return FALSE;
1600               break;
1601             }
1602         }
1603     }
1604
1605   return TRUE;
1606 }
1607
1608 /* Finish initializing one hash table entry.  */
1609
1610 static bfd_boolean
1611 elf32_mn10300_finish_hash_table_entry (struct bfd_hash_entry *gen_entry,
1612                                        void * in_args)
1613 {
1614   struct elf32_mn10300_link_hash_entry *entry;
1615   struct bfd_link_info *link_info = (struct bfd_link_info *) in_args;
1616   unsigned int byte_count = 0;
1617
1618   entry = (struct elf32_mn10300_link_hash_entry *) gen_entry;
1619
1620   if (entry->root.root.type == bfd_link_hash_warning)
1621     entry = (struct elf32_mn10300_link_hash_entry *) entry->root.root.u.i.link;
1622
1623   /* If we already know we want to convert "call" to "calls" for calls
1624      to this symbol, then return now.  */
1625   if (entry->flags == MN10300_CONVERT_CALL_TO_CALLS)
1626     return TRUE;
1627
1628   /* If there are no named calls to this symbol, or there's nothing we
1629      can move from the function itself into the "call" instruction,
1630      then note that all "call" instructions should be converted into
1631      "calls" instructions and return.  If a symbol is available for
1632      dynamic symbol resolution (overridable or overriding), avoid
1633      custom calling conventions.  */
1634   if (entry->direct_calls == 0
1635       || (entry->stack_size == 0 && entry->movm_args == 0)
1636       || (elf_hash_table (link_info)->dynamic_sections_created
1637           && ELF_ST_VISIBILITY (entry->root.other) != STV_INTERNAL
1638           && ELF_ST_VISIBILITY (entry->root.other) != STV_HIDDEN))
1639     {
1640       /* Make a note that we should convert "call" instructions to "calls"
1641          instructions for calls to this symbol.  */
1642       entry->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1643       return TRUE;
1644     }
1645
1646   /* We may be able to move some instructions from the function itself into
1647      the "call" instruction.  Count how many bytes we might be able to
1648      eliminate in the function itself.  */
1649
1650   /* A movm instruction is two bytes.  */
1651   if (entry->movm_args)
1652     byte_count += 2;
1653
1654   /* Count the insn to allocate stack space too.  */
1655   if (entry->stack_size > 0)
1656     {
1657       if (entry->stack_size <= 128)
1658         byte_count += 3;
1659       else
1660         byte_count += 4;
1661     }
1662
1663   /* If using "call" will result in larger code, then turn all
1664      the associated "call" instructions into "calls" instructions.  */
1665   if (byte_count < entry->direct_calls)
1666     entry->flags |= MN10300_CONVERT_CALL_TO_CALLS;
1667
1668   /* This routine never fails.  */
1669   return TRUE;
1670 }
1671
1672 /* Used to count hash table entries.  */
1673
1674 static bfd_boolean
1675 elf32_mn10300_count_hash_table_entries (struct bfd_hash_entry *gen_entry ATTRIBUTE_UNUSED,
1676                                         void * in_args)
1677 {
1678   int *count = (int *) in_args;
1679
1680   (*count) ++;
1681   return TRUE;
1682 }
1683
1684 /* Used to enumerate hash table entries into a linear array.  */
1685
1686 static bfd_boolean
1687 elf32_mn10300_list_hash_table_entries (struct bfd_hash_entry *gen_entry,
1688                                        void * in_args)
1689 {
1690   struct bfd_hash_entry ***ptr = (struct bfd_hash_entry ***) in_args;
1691
1692   **ptr = gen_entry;
1693   (*ptr) ++;
1694   return TRUE;
1695 }
1696
1697 /* Used to sort the array created by the above.  */
1698
1699 static int
1700 sort_by_value (const void *va, const void *vb)
1701 {
1702   struct elf32_mn10300_link_hash_entry *a
1703     = *(struct elf32_mn10300_link_hash_entry **) va;
1704   struct elf32_mn10300_link_hash_entry *b
1705     = *(struct elf32_mn10300_link_hash_entry **) vb;
1706
1707   return a->value - b->value;
1708 }
1709
1710 /* Compute the stack size and movm arguments for the function
1711    referred to by HASH at address ADDR in section with
1712    contents CONTENTS, store the information in the hash table.  */
1713
1714 static void
1715 compute_function_info (bfd *abfd,
1716                        struct elf32_mn10300_link_hash_entry *hash,
1717                        bfd_vma addr,
1718                        unsigned char *contents)
1719 {
1720   unsigned char byte1, byte2;
1721   /* We only care about a very small subset of the possible prologue
1722      sequences here.  Basically we look for:
1723
1724      movm [d2,d3,a2,a3],sp (optional)
1725      add <size>,sp (optional, and only for sizes which fit in an unsigned
1726                     8 bit number)
1727
1728      If we find anything else, we quit.  */
1729
1730   /* Look for movm [regs],sp.  */
1731   byte1 = bfd_get_8 (abfd, contents + addr);
1732   byte2 = bfd_get_8 (abfd, contents + addr + 1);
1733
1734   if (byte1 == 0xcf)
1735     {
1736       hash->movm_args = byte2;
1737       addr += 2;
1738       byte1 = bfd_get_8 (abfd, contents + addr);
1739       byte2 = bfd_get_8 (abfd, contents + addr + 1);
1740     }
1741
1742   /* Now figure out how much stack space will be allocated by the movm
1743      instruction.  We need this kept separate from the function's normal
1744      stack space.  */
1745   if (hash->movm_args)
1746     {
1747       /* Space for d2.  */
1748       if (hash->movm_args & 0x80)
1749         hash->movm_stack_size += 4;
1750
1751       /* Space for d3.  */
1752       if (hash->movm_args & 0x40)
1753         hash->movm_stack_size += 4;
1754
1755       /* Space for a2.  */
1756       if (hash->movm_args & 0x20)
1757         hash->movm_stack_size += 4;
1758
1759       /* Space for a3.  */
1760       if (hash->movm_args & 0x10)
1761         hash->movm_stack_size += 4;
1762
1763       /* "other" space.  d0, d1, a0, a1, mdr, lir, lar, 4 byte pad.  */
1764       if (hash->movm_args & 0x08)
1765         hash->movm_stack_size += 8 * 4;
1766
1767       if (bfd_get_mach (abfd) == bfd_mach_am33
1768           || bfd_get_mach (abfd) == bfd_mach_am33_2)
1769         {
1770           /* "exother" space.  e0, e1, mdrq, mcrh, mcrl, mcvf */
1771           if (hash->movm_args & 0x1)
1772             hash->movm_stack_size += 6 * 4;
1773
1774           /* exreg1 space.  e4, e5, e6, e7 */
1775           if (hash->movm_args & 0x2)
1776             hash->movm_stack_size += 4 * 4;
1777
1778           /* exreg0 space.  e2, e3  */
1779           if (hash->movm_args & 0x4)
1780             hash->movm_stack_size += 2 * 4;
1781         }
1782     }
1783
1784   /* Now look for the two stack adjustment variants.  */
1785   if (byte1 == 0xf8 && byte2 == 0xfe)
1786     {
1787       int temp = bfd_get_8 (abfd, contents + addr + 2);
1788       temp = ((temp & 0xff) ^ (~0x7f)) + 0x80;
1789
1790       hash->stack_size = -temp;
1791     }
1792   else if (byte1 == 0xfa && byte2 == 0xfe)
1793     {
1794       int temp = bfd_get_16 (abfd, contents + addr + 2);
1795       temp = ((temp & 0xffff) ^ (~0x7fff)) + 0x8000;
1796       temp = -temp;
1797
1798       if (temp < 255)
1799         hash->stack_size = temp;
1800     }
1801
1802   /* If the total stack to be allocated by the call instruction is more
1803      than 255 bytes, then we can't remove the stack adjustment by using
1804      "call" (we might still be able to remove the "movm" instruction.  */
1805   if (hash->stack_size + hash->movm_stack_size > 255)
1806     hash->stack_size = 0;
1807 }
1808
1809 /* Delete some bytes from a section while relaxing.  */
1810
1811 static bfd_boolean
1812 mn10300_elf_relax_delete_bytes (bfd *abfd,
1813                                 asection *sec,
1814                                 bfd_vma addr,
1815                                 int count)
1816 {
1817   Elf_Internal_Shdr *symtab_hdr;
1818   unsigned int sec_shndx;
1819   bfd_byte *contents;
1820   Elf_Internal_Rela *irel, *irelend;
1821   Elf_Internal_Rela *irelalign;
1822   bfd_vma toaddr;
1823   Elf_Internal_Sym *isym, *isymend;
1824   struct elf_link_hash_entry **sym_hashes;
1825   struct elf_link_hash_entry **end_hashes;
1826   unsigned int symcount;
1827
1828   sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1829
1830   contents = elf_section_data (sec)->this_hdr.contents;
1831
1832   irelalign = NULL;
1833   toaddr = sec->size;
1834
1835   irel = elf_section_data (sec)->relocs;
1836   irelend = irel + sec->reloc_count;
1837
1838   if (sec->reloc_count > 0)
1839     {
1840       /* If there is an align reloc at the end of the section ignore it.
1841          GAS creates these relocs for reasons of its own, and they just
1842          serve to keep the section artifically inflated.  */
1843       if (ELF32_R_TYPE ((irelend - 1)->r_info) == (int) R_MN10300_ALIGN)
1844         --irelend;
1845
1846       /* The deletion must stop at the next ALIGN reloc for an aligment
1847          power larger than, or not a multiple of, the number of bytes we
1848          are deleting.  */
1849       for (; irel < irelend; irel++)
1850         {
1851           int alignment = 1 << irel->r_addend;
1852
1853           if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_ALIGN
1854               && irel->r_offset > addr
1855               && irel->r_offset < toaddr
1856               && (count < alignment
1857                   || alignment % count != 0))
1858             {
1859               irelalign = irel;
1860               toaddr = irel->r_offset;
1861               break;
1862             }
1863         }
1864     }
1865
1866   /* Actually delete the bytes.  */
1867   memmove (contents + addr, contents + addr + count,
1868            (size_t) (toaddr - addr - count));
1869
1870   /* Adjust the section's size if we are shrinking it, or else
1871      pad the bytes between the end of the shrunken region and
1872      the start of the next region with NOP codes.  */
1873   if (irelalign == NULL)
1874     {
1875       sec->size -= count;
1876       /* Include symbols at the end of the section, but
1877          not at the end of a sub-region of the section.  */
1878       toaddr ++;
1879     }
1880   else
1881     {
1882       int i;
1883
1884 #define NOP_OPCODE 0xcb
1885
1886       for (i = 0; i < count; i ++)
1887         bfd_put_8 (abfd, (bfd_vma) NOP_OPCODE, contents + toaddr - count + i);
1888     }
1889
1890   /* Adjust all the relocs.  */
1891   for (irel = elf_section_data (sec)->relocs; irel < irelend; irel++)
1892     {
1893       /* Get the new reloc address.  */
1894       if ((irel->r_offset > addr
1895            && irel->r_offset < toaddr)
1896           || (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_ALIGN
1897               && irel->r_offset == toaddr))
1898         irel->r_offset -= count;
1899     }
1900
1901   /* Adjust the local symbols in the section, reducing their value
1902      by the number of bytes deleted.  Note - symbols within the deleted
1903      region are moved to the address of the start of the region, which
1904      actually means that they will address the byte beyond the end of
1905      the region once the deletion has been completed.  */
1906   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1907   isym = (Elf_Internal_Sym *) symtab_hdr->contents;
1908   for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
1909     {
1910       if (isym->st_shndx == sec_shndx
1911           && isym->st_value > addr
1912           && isym->st_value < toaddr)
1913         {
1914           if (isym->st_value < addr + count)
1915             isym->st_value = addr;
1916           else
1917             isym->st_value -= count;
1918         }
1919       /* Adjust the function symbol's size as well.  */
1920       else if (isym->st_shndx == sec_shndx
1921                && ELF_ST_TYPE (isym->st_info) == STT_FUNC
1922                && isym->st_value + isym->st_size > addr
1923                && isym->st_value + isym->st_size < toaddr)
1924         isym->st_size -= count;
1925     }
1926
1927   /* Now adjust the global symbols defined in this section.  */
1928   symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
1929               - symtab_hdr->sh_info);
1930   sym_hashes = elf_sym_hashes (abfd);
1931   end_hashes = sym_hashes + symcount;
1932   for (; sym_hashes < end_hashes; sym_hashes++)
1933     {
1934       struct elf_link_hash_entry *sym_hash = *sym_hashes;
1935
1936       if ((sym_hash->root.type == bfd_link_hash_defined
1937            || sym_hash->root.type == bfd_link_hash_defweak)
1938           && sym_hash->root.u.def.section == sec
1939           && sym_hash->root.u.def.value > addr
1940           && sym_hash->root.u.def.value < toaddr)
1941         {
1942           if (sym_hash->root.u.def.value < addr + count)
1943             sym_hash->root.u.def.value = addr;
1944           else
1945             sym_hash->root.u.def.value -= count;
1946         }
1947       /* Adjust the function symbol's size as well.  */
1948       else if (sym_hash->root.type == bfd_link_hash_defined
1949                && sym_hash->root.u.def.section == sec
1950                && sym_hash->type == STT_FUNC
1951                && sym_hash->root.u.def.value + sym_hash->size > addr
1952                && sym_hash->root.u.def.value + sym_hash->size < toaddr)
1953         sym_hash->size -= count;
1954     }
1955
1956   /* See if we can move the ALIGN reloc forward.
1957      We have adjusted r_offset for it already.  */
1958   if (irelalign != NULL)
1959     {
1960       bfd_vma alignto, alignaddr;
1961
1962       if ((int) irelalign->r_addend > 0)
1963         {
1964           /* This is the old address.  */
1965           alignto = BFD_ALIGN (toaddr, 1 << irelalign->r_addend);
1966           /* This is where the align points to now.  */
1967           alignaddr = BFD_ALIGN (irelalign->r_offset,
1968                                  1 << irelalign->r_addend);
1969           if (alignaddr < alignto)
1970             /* Tail recursion.  */
1971             return mn10300_elf_relax_delete_bytes (abfd, sec, alignaddr,
1972                                                    (int) (alignto - alignaddr));
1973         }
1974     }
1975
1976   return TRUE;
1977 }
1978
1979 /* Return TRUE if a symbol exists at the given address, else return
1980    FALSE.  */
1981
1982 static bfd_boolean
1983 mn10300_elf_symbol_address_p (bfd *abfd,
1984                               asection *sec,
1985                               Elf_Internal_Sym *isym,
1986                               bfd_vma addr)
1987 {
1988   Elf_Internal_Shdr *symtab_hdr;
1989   unsigned int sec_shndx;
1990   Elf_Internal_Sym *isymend;
1991   struct elf_link_hash_entry **sym_hashes;
1992   struct elf_link_hash_entry **end_hashes;
1993   unsigned int symcount;
1994
1995   sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
1996
1997   /* Examine all the symbols.  */
1998   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
1999   for (isymend = isym + symtab_hdr->sh_info; isym < isymend; isym++)
2000     if (isym->st_shndx == sec_shndx
2001         && isym->st_value == addr)
2002       return TRUE;
2003
2004   symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
2005               - symtab_hdr->sh_info);
2006   sym_hashes = elf_sym_hashes (abfd);
2007   end_hashes = sym_hashes + symcount;
2008   for (; sym_hashes < end_hashes; sym_hashes++)
2009     {
2010       struct elf_link_hash_entry *sym_hash = *sym_hashes;
2011
2012       if ((sym_hash->root.type == bfd_link_hash_defined
2013            || sym_hash->root.type == bfd_link_hash_defweak)
2014           && sym_hash->root.u.def.section == sec
2015           && sym_hash->root.u.def.value == addr)
2016         return TRUE;
2017     }
2018
2019   return FALSE;
2020 }
2021
2022 /* This function handles relaxing for the mn10300.
2023
2024    There are quite a few relaxing opportunities available on the mn10300:
2025
2026         * calls:32 -> calls:16                                     2 bytes
2027         * call:32  -> call:16                                      2 bytes
2028
2029         * call:32 -> calls:32                                      1 byte
2030         * call:16 -> calls:16                                      1 byte
2031                 * These are done anytime using "calls" would result
2032                 in smaller code, or when necessary to preserve the
2033                 meaning of the program.
2034
2035         * call:32                                                  varies
2036         * call:16
2037                 * In some circumstances we can move instructions
2038                 from a function prologue into a "call" instruction.
2039                 This is only done if the resulting code is no larger
2040                 than the original code.
2041
2042         * jmp:32 -> jmp:16                                         2 bytes
2043         * jmp:16 -> bra:8                                          1 byte
2044
2045                 * If the previous instruction is a conditional branch
2046                 around the jump/bra, we may be able to reverse its condition
2047                 and change its target to the jump's target.  The jump/bra
2048                 can then be deleted.                               2 bytes
2049
2050         * mov abs32 -> mov abs16                                   1 or 2 bytes
2051
2052         * Most instructions which accept imm32 can relax to imm16  1 or 2 bytes
2053         - Most instructions which accept imm16 can relax to imm8   1 or 2 bytes
2054
2055         * Most instructions which accept d32 can relax to d16      1 or 2 bytes
2056         - Most instructions which accept d16 can relax to d8       1 or 2 bytes
2057
2058         We don't handle imm16->imm8 or d16->d8 as they're very rare
2059         and somewhat more difficult to support.  */
2060
2061 static bfd_boolean
2062 mn10300_elf_relax_section (bfd *abfd,
2063                            asection *sec,
2064                            struct bfd_link_info *link_info,
2065                            bfd_boolean *again)
2066 {
2067   Elf_Internal_Shdr *symtab_hdr;
2068   Elf_Internal_Rela *internal_relocs = NULL;
2069   Elf_Internal_Rela *irel, *irelend;
2070   bfd_byte *contents = NULL;
2071   Elf_Internal_Sym *isymbuf = NULL;
2072   struct elf32_mn10300_link_hash_table *hash_table;
2073   asection *section = sec;
2074   bfd_vma align_gap_adjustment;
2075
2076   /* Assume nothing changes.  */
2077   *again = FALSE;
2078
2079   /* We need a pointer to the mn10300 specific hash table.  */
2080   hash_table = elf32_mn10300_hash_table (link_info);
2081
2082   /* Initialize fields in each hash table entry the first time through.  */
2083   if ((hash_table->flags & MN10300_HASH_ENTRIES_INITIALIZED) == 0)
2084     {
2085       bfd *input_bfd;
2086
2087       /* Iterate over all the input bfds.  */
2088       for (input_bfd = link_info->input_bfds;
2089            input_bfd != NULL;
2090            input_bfd = input_bfd->link_next)
2091         {
2092           /* We're going to need all the symbols for each bfd.  */
2093           symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
2094           if (symtab_hdr->sh_info != 0)
2095             {
2096               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2097               if (isymbuf == NULL)
2098                 isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
2099                                                 symtab_hdr->sh_info, 0,
2100                                                 NULL, NULL, NULL);
2101               if (isymbuf == NULL)
2102                 goto error_return;
2103             }
2104
2105           /* Iterate over each section in this bfd.  */
2106           for (section = input_bfd->sections;
2107                section != NULL;
2108                section = section->next)
2109             {
2110               struct elf32_mn10300_link_hash_entry *hash;
2111               Elf_Internal_Sym *sym;
2112               asection *sym_sec = NULL;
2113               const char *sym_name;
2114               char *new_name;
2115
2116               /* If there's nothing to do in this section, skip it.  */
2117               if (! ((section->flags & SEC_RELOC) != 0
2118                      && section->reloc_count != 0))
2119                 continue;
2120               if ((section->flags & SEC_ALLOC) == 0)
2121                 continue;
2122
2123               /* Get cached copy of section contents if it exists.  */
2124               if (elf_section_data (section)->this_hdr.contents != NULL)
2125                 contents = elf_section_data (section)->this_hdr.contents;
2126               else if (section->size != 0)
2127                 {
2128                   /* Go get them off disk.  */
2129                   if (!bfd_malloc_and_get_section (input_bfd, section,
2130                                                    &contents))
2131                     goto error_return;
2132                 }
2133               else
2134                 contents = NULL;
2135
2136               /* If there aren't any relocs, then there's nothing to do.  */
2137               if ((section->flags & SEC_RELOC) != 0
2138                   && section->reloc_count != 0)
2139                 {
2140                   /* Get a copy of the native relocations.  */
2141                   internal_relocs = _bfd_elf_link_read_relocs (input_bfd, section,
2142                                                                NULL, NULL,
2143                                                                link_info->keep_memory);
2144                   if (internal_relocs == NULL)
2145                     goto error_return;
2146
2147                   /* Now examine each relocation.  */
2148                   irel = internal_relocs;
2149                   irelend = irel + section->reloc_count;
2150                   for (; irel < irelend; irel++)
2151                     {
2152                       long r_type;
2153                       unsigned long r_index;
2154                       unsigned char code;
2155
2156                       r_type = ELF32_R_TYPE (irel->r_info);
2157                       r_index = ELF32_R_SYM (irel->r_info);
2158
2159                       if (r_type < 0 || r_type >= (int) R_MN10300_MAX)
2160                         goto error_return;
2161
2162                       /* We need the name and hash table entry of the target
2163                          symbol!  */
2164                       hash = NULL;
2165                       sym = NULL;
2166                       sym_sec = NULL;
2167
2168                       if (r_index < symtab_hdr->sh_info)
2169                         {
2170                           /* A local symbol.  */
2171                           Elf_Internal_Sym *isym;
2172                           struct elf_link_hash_table *elftab;
2173                           bfd_size_type amt;
2174
2175                           isym = isymbuf + r_index;
2176                           if (isym->st_shndx == SHN_UNDEF)
2177                             sym_sec = bfd_und_section_ptr;
2178                           else if (isym->st_shndx == SHN_ABS)
2179                             sym_sec = bfd_abs_section_ptr;
2180                           else if (isym->st_shndx == SHN_COMMON)
2181                             sym_sec = bfd_com_section_ptr;
2182                           else
2183                             sym_sec
2184                               = bfd_section_from_elf_index (input_bfd,
2185                                                             isym->st_shndx);
2186
2187                           sym_name
2188                             = bfd_elf_string_from_elf_section (input_bfd,
2189                                                                (symtab_hdr
2190                                                                 ->sh_link),
2191                                                                isym->st_name);
2192
2193                           /* If it isn't a function, then we don't care
2194                              about it.  */
2195                           if (ELF_ST_TYPE (isym->st_info) != STT_FUNC)
2196                             continue;
2197
2198                           /* Tack on an ID so we can uniquely identify this
2199                              local symbol in the global hash table.  */
2200                           amt = strlen (sym_name) + 10;
2201                           new_name = bfd_malloc (amt);
2202                           if (new_name == NULL)
2203                             goto error_return;
2204
2205                           sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2206                           sym_name = new_name;
2207
2208                           elftab = &hash_table->static_hash_table->root;
2209                           hash = ((struct elf32_mn10300_link_hash_entry *)
2210                                   elf_link_hash_lookup (elftab, sym_name,
2211                                                         TRUE, TRUE, FALSE));
2212                           free (new_name);
2213                         }
2214                       else
2215                         {
2216                           r_index -= symtab_hdr->sh_info;
2217                           hash = (struct elf32_mn10300_link_hash_entry *)
2218                                    elf_sym_hashes (input_bfd)[r_index];
2219                         }
2220
2221                       sym_name = hash->root.root.root.string;
2222                       if ((section->flags & SEC_CODE) != 0)
2223                         {
2224                           /* If this is not a "call" instruction, then we
2225                              should convert "call" instructions to "calls"
2226                              instructions.  */
2227                           code = bfd_get_8 (input_bfd,
2228                                             contents + irel->r_offset - 1);
2229                           if (code != 0xdd && code != 0xcd)
2230                             hash->flags |= MN10300_CONVERT_CALL_TO_CALLS;
2231                         }
2232
2233                       /* If this is a jump/call, then bump the
2234                          direct_calls counter.  Else force "call" to
2235                          "calls" conversions.  */
2236                       if (r_type == R_MN10300_PCREL32
2237                           || r_type == R_MN10300_PLT32
2238                           || r_type == R_MN10300_PLT16
2239                           || r_type == R_MN10300_PCREL16)
2240                         hash->direct_calls++;
2241                       else
2242                         hash->flags |= MN10300_CONVERT_CALL_TO_CALLS;
2243                     }
2244                 }
2245
2246               /* Now look at the actual contents to get the stack size,
2247                  and a list of what registers were saved in the prologue
2248                  (ie movm_args).  */
2249               if ((section->flags & SEC_CODE) != 0)
2250                 {
2251                   Elf_Internal_Sym *isym, *isymend;
2252                   unsigned int sec_shndx;
2253                   struct elf_link_hash_entry **hashes;
2254                   struct elf_link_hash_entry **end_hashes;
2255                   unsigned int symcount;
2256
2257                   sec_shndx = _bfd_elf_section_from_bfd_section (input_bfd,
2258                                                                  section);
2259
2260                   symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
2261                               - symtab_hdr->sh_info);
2262                   hashes = elf_sym_hashes (input_bfd);
2263                   end_hashes = hashes + symcount;
2264
2265                   /* Look at each function defined in this section and
2266                      update info for that function.  */
2267                   isymend = isymbuf + symtab_hdr->sh_info;
2268                   for (isym = isymbuf; isym < isymend; isym++)
2269                     {
2270                       if (isym->st_shndx == sec_shndx
2271                           && ELF_ST_TYPE (isym->st_info) == STT_FUNC)
2272                         {
2273                           struct elf_link_hash_table *elftab;
2274                           bfd_size_type amt;
2275                           struct elf_link_hash_entry **lhashes = hashes;
2276
2277                           /* Skip a local symbol if it aliases a
2278                              global one.  */
2279                           for (; lhashes < end_hashes; lhashes++)
2280                             {
2281                               hash = (struct elf32_mn10300_link_hash_entry *) *lhashes;
2282                               if ((hash->root.root.type == bfd_link_hash_defined
2283                                    || hash->root.root.type == bfd_link_hash_defweak)
2284                                   && hash->root.root.u.def.section == section
2285                                   && hash->root.type == STT_FUNC
2286                                   && hash->root.root.u.def.value == isym->st_value)
2287                                 break;
2288                             }
2289                           if (lhashes != end_hashes)
2290                             continue;
2291
2292                           if (isym->st_shndx == SHN_UNDEF)
2293                             sym_sec = bfd_und_section_ptr;
2294                           else if (isym->st_shndx == SHN_ABS)
2295                             sym_sec = bfd_abs_section_ptr;
2296                           else if (isym->st_shndx == SHN_COMMON)
2297                             sym_sec = bfd_com_section_ptr;
2298                           else
2299                             sym_sec
2300                               = bfd_section_from_elf_index (input_bfd,
2301                                                             isym->st_shndx);
2302
2303                           sym_name = (bfd_elf_string_from_elf_section
2304                                       (input_bfd, symtab_hdr->sh_link,
2305                                        isym->st_name));
2306
2307                           /* Tack on an ID so we can uniquely identify this
2308                              local symbol in the global hash table.  */
2309                           amt = strlen (sym_name) + 10;
2310                           new_name = bfd_malloc (amt);
2311                           if (new_name == NULL)
2312                             goto error_return;
2313
2314                           sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2315                           sym_name = new_name;
2316
2317                           elftab = &hash_table->static_hash_table->root;
2318                           hash = ((struct elf32_mn10300_link_hash_entry *)
2319                                   elf_link_hash_lookup (elftab, sym_name,
2320                                                         TRUE, TRUE, FALSE));
2321                           free (new_name);
2322                           compute_function_info (input_bfd, hash,
2323                                                  isym->st_value, contents);
2324                           hash->value = isym->st_value;
2325                         }
2326                     }
2327
2328                   for (; hashes < end_hashes; hashes++)
2329                     {
2330                       hash = (struct elf32_mn10300_link_hash_entry *) *hashes;
2331                       if ((hash->root.root.type == bfd_link_hash_defined
2332                            || hash->root.root.type == bfd_link_hash_defweak)
2333                           && hash->root.root.u.def.section == section
2334                           && hash->root.type == STT_FUNC)
2335                         compute_function_info (input_bfd, hash,
2336                                                (hash)->root.root.u.def.value,
2337                                                contents);
2338                     }
2339                 }
2340
2341               /* Cache or free any memory we allocated for the relocs.  */
2342               if (internal_relocs != NULL
2343                   && elf_section_data (section)->relocs != internal_relocs)
2344                 free (internal_relocs);
2345               internal_relocs = NULL;
2346
2347               /* Cache or free any memory we allocated for the contents.  */
2348               if (contents != NULL
2349                   && elf_section_data (section)->this_hdr.contents != contents)
2350                 {
2351                   if (! link_info->keep_memory)
2352                     free (contents);
2353                   else
2354                     {
2355                       /* Cache the section contents for elf_link_input_bfd.  */
2356                       elf_section_data (section)->this_hdr.contents = contents;
2357                     }
2358                 }
2359               contents = NULL;
2360             }
2361
2362           /* Cache or free any memory we allocated for the symbols.  */
2363           if (isymbuf != NULL
2364               && symtab_hdr->contents != (unsigned char *) isymbuf)
2365             {
2366               if (! link_info->keep_memory)
2367                 free (isymbuf);
2368               else
2369                 {
2370                   /* Cache the symbols for elf_link_input_bfd.  */
2371                   symtab_hdr->contents = (unsigned char *) isymbuf;
2372                 }
2373             }
2374           isymbuf = NULL;
2375         }
2376
2377       /* Now iterate on each symbol in the hash table and perform
2378          the final initialization steps on each.  */
2379       elf32_mn10300_link_hash_traverse (hash_table,
2380                                         elf32_mn10300_finish_hash_table_entry,
2381                                         link_info);
2382       elf32_mn10300_link_hash_traverse (hash_table->static_hash_table,
2383                                         elf32_mn10300_finish_hash_table_entry,
2384                                         link_info);
2385
2386       {
2387         /* This section of code collects all our local symbols, sorts
2388            them by value, and looks for multiple symbols referring to
2389            the same address.  For those symbols, the flags are merged.
2390            At this point, the only flag that can be set is
2391            MN10300_CONVERT_CALL_TO_CALLS, so we simply OR the flags
2392            together.  */
2393         int static_count = 0, i;
2394         struct elf32_mn10300_link_hash_entry **entries;
2395         struct elf32_mn10300_link_hash_entry **ptr;
2396
2397         elf32_mn10300_link_hash_traverse (hash_table->static_hash_table,
2398                                           elf32_mn10300_count_hash_table_entries,
2399                                           &static_count);
2400
2401         entries = bfd_malloc (static_count * sizeof (* ptr));
2402
2403         ptr = entries;
2404         elf32_mn10300_link_hash_traverse (hash_table->static_hash_table,
2405                                           elf32_mn10300_list_hash_table_entries,
2406                                           & ptr);
2407
2408         qsort (entries, static_count, sizeof (entries[0]), sort_by_value);
2409
2410         for (i = 0; i < static_count - 1; i++)
2411           if (entries[i]->value && entries[i]->value == entries[i+1]->value)
2412             {
2413               int v = entries[i]->flags;
2414               int j;
2415
2416               for (j = i + 1; j < static_count && entries[j]->value == entries[i]->value; j++)
2417                 v |= entries[j]->flags;
2418
2419               for (j = i; j < static_count && entries[j]->value == entries[i]->value; j++)
2420                 entries[j]->flags = v;
2421
2422               i = j - 1;
2423             }
2424       }
2425
2426       /* All entries in the hash table are fully initialized.  */
2427       hash_table->flags |= MN10300_HASH_ENTRIES_INITIALIZED;
2428
2429       /* Now that everything has been initialized, go through each
2430          code section and delete any prologue insns which will be
2431          redundant because their operations will be performed by
2432          a "call" instruction.  */
2433       for (input_bfd = link_info->input_bfds;
2434            input_bfd != NULL;
2435            input_bfd = input_bfd->link_next)
2436         {
2437           /* We're going to need all the local symbols for each bfd.  */
2438           symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
2439           if (symtab_hdr->sh_info != 0)
2440             {
2441               isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2442               if (isymbuf == NULL)
2443                 isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
2444                                                 symtab_hdr->sh_info, 0,
2445                                                 NULL, NULL, NULL);
2446               if (isymbuf == NULL)
2447                 goto error_return;
2448             }
2449
2450           /* Walk over each section in this bfd.  */
2451           for (section = input_bfd->sections;
2452                section != NULL;
2453                section = section->next)
2454             {
2455               unsigned int sec_shndx;
2456               Elf_Internal_Sym *isym, *isymend;
2457               struct elf_link_hash_entry **hashes;
2458               struct elf_link_hash_entry **end_hashes;
2459               unsigned int symcount;
2460
2461               /* Skip non-code sections and empty sections.  */
2462               if ((section->flags & SEC_CODE) == 0 || section->size == 0)
2463                 continue;
2464
2465               if (section->reloc_count != 0)
2466                 {
2467                   /* Get a copy of the native relocations.  */
2468                   internal_relocs = _bfd_elf_link_read_relocs (input_bfd, section,
2469                                                                NULL, NULL,
2470                                                                link_info->keep_memory);
2471                   if (internal_relocs == NULL)
2472                     goto error_return;
2473                 }
2474
2475               /* Get cached copy of section contents if it exists.  */
2476               if (elf_section_data (section)->this_hdr.contents != NULL)
2477                 contents = elf_section_data (section)->this_hdr.contents;
2478               else
2479                 {
2480                   /* Go get them off disk.  */
2481                   if (!bfd_malloc_and_get_section (input_bfd, section,
2482                                                    &contents))
2483                     goto error_return;
2484                 }
2485
2486               sec_shndx = _bfd_elf_section_from_bfd_section (input_bfd,
2487                                                              section);
2488
2489               /* Now look for any function in this section which needs
2490                  insns deleted from its prologue.  */
2491               isymend = isymbuf + symtab_hdr->sh_info;
2492               for (isym = isymbuf; isym < isymend; isym++)
2493                 {
2494                   struct elf32_mn10300_link_hash_entry *sym_hash;
2495                   asection *sym_sec = NULL;
2496                   const char *sym_name;
2497                   char *new_name;
2498                   struct elf_link_hash_table *elftab;
2499                   bfd_size_type amt;
2500
2501                   if (isym->st_shndx != sec_shndx)
2502                     continue;
2503
2504                   if (isym->st_shndx == SHN_UNDEF)
2505                     sym_sec = bfd_und_section_ptr;
2506                   else if (isym->st_shndx == SHN_ABS)
2507                     sym_sec = bfd_abs_section_ptr;
2508                   else if (isym->st_shndx == SHN_COMMON)
2509                     sym_sec = bfd_com_section_ptr;
2510                   else
2511                     sym_sec
2512                       = bfd_section_from_elf_index (input_bfd, isym->st_shndx);
2513
2514                   sym_name
2515                     = bfd_elf_string_from_elf_section (input_bfd,
2516                                                        symtab_hdr->sh_link,
2517                                                        isym->st_name);
2518
2519                   /* Tack on an ID so we can uniquely identify this
2520                      local symbol in the global hash table.  */
2521                   amt = strlen (sym_name) + 10;
2522                   new_name = bfd_malloc (amt);
2523                   if (new_name == NULL)
2524                     goto error_return;
2525                   sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2526                   sym_name = new_name;
2527
2528                   elftab = & hash_table->static_hash_table->root;
2529                   sym_hash = (struct elf32_mn10300_link_hash_entry *)
2530                     elf_link_hash_lookup (elftab, sym_name,
2531                                           FALSE, FALSE, FALSE);
2532
2533                   free (new_name);
2534                   if (sym_hash == NULL)
2535                     continue;
2536
2537                   if (! (sym_hash->flags & MN10300_CONVERT_CALL_TO_CALLS)
2538                       && ! (sym_hash->flags & MN10300_DELETED_PROLOGUE_BYTES))
2539                     {
2540                       int bytes = 0;
2541
2542                       /* Note that we've changed things.  */
2543                       elf_section_data (section)->relocs = internal_relocs;
2544                       elf_section_data (section)->this_hdr.contents = contents;
2545                       symtab_hdr->contents = (unsigned char *) isymbuf;
2546
2547                       /* Count how many bytes we're going to delete.  */
2548                       if (sym_hash->movm_args)
2549                         bytes += 2;
2550
2551                       if (sym_hash->stack_size > 0)
2552                         {
2553                           if (sym_hash->stack_size <= 128)
2554                             bytes += 3;
2555                           else
2556                             bytes += 4;
2557                         }
2558
2559                       /* Note that we've deleted prologue bytes for this
2560                          function.  */
2561                       sym_hash->flags |= MN10300_DELETED_PROLOGUE_BYTES;
2562
2563                       /* Actually delete the bytes.  */
2564                       if (!mn10300_elf_relax_delete_bytes (input_bfd,
2565                                                            section,
2566                                                            isym->st_value,
2567                                                            bytes))
2568                         goto error_return;
2569
2570                       /* Something changed.  Not strictly necessary, but
2571                          may lead to more relaxing opportunities.  */
2572                       *again = TRUE;
2573                     }
2574                 }
2575
2576               /* Look for any global functions in this section which
2577                  need insns deleted from their prologues.  */
2578               symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
2579                           - symtab_hdr->sh_info);
2580               hashes = elf_sym_hashes (input_bfd);
2581               end_hashes = hashes + symcount;
2582               for (; hashes < end_hashes; hashes++)
2583                 {
2584                   struct elf32_mn10300_link_hash_entry *sym_hash;
2585
2586                   sym_hash = (struct elf32_mn10300_link_hash_entry *) *hashes;
2587                   if ((sym_hash->root.root.type == bfd_link_hash_defined
2588                        || sym_hash->root.root.type == bfd_link_hash_defweak)
2589                       && sym_hash->root.root.u.def.section == section
2590                       && ! (sym_hash->flags & MN10300_CONVERT_CALL_TO_CALLS)
2591                       && ! (sym_hash->flags & MN10300_DELETED_PROLOGUE_BYTES))
2592                     {
2593                       int bytes = 0;
2594                       bfd_vma symval;
2595
2596                       /* Note that we've changed things.  */
2597                       elf_section_data (section)->relocs = internal_relocs;
2598                       elf_section_data (section)->this_hdr.contents = contents;
2599                       symtab_hdr->contents = (unsigned char *) isymbuf;
2600
2601                       /* Count how many bytes we're going to delete.  */
2602                       if (sym_hash->movm_args)
2603                         bytes += 2;
2604
2605                       if (sym_hash->stack_size > 0)
2606                         {
2607                           if (sym_hash->stack_size <= 128)
2608                             bytes += 3;
2609                           else
2610                             bytes += 4;
2611                         }
2612
2613                       /* Note that we've deleted prologue bytes for this
2614                          function.  */
2615                       sym_hash->flags |= MN10300_DELETED_PROLOGUE_BYTES;
2616
2617                       /* Actually delete the bytes.  */
2618                       symval = sym_hash->root.root.u.def.value;
2619                       if (!mn10300_elf_relax_delete_bytes (input_bfd,
2620                                                            section,
2621                                                            symval,
2622                                                            bytes))
2623                         goto error_return;
2624
2625                       /* Something changed.  Not strictly necessary, but
2626                          may lead to more relaxing opportunities.  */
2627                       *again = TRUE;
2628                     }
2629                 }
2630
2631               /* Cache or free any memory we allocated for the relocs.  */
2632               if (internal_relocs != NULL
2633                   && elf_section_data (section)->relocs != internal_relocs)
2634                 free (internal_relocs);
2635               internal_relocs = NULL;
2636
2637               /* Cache or free any memory we allocated for the contents.  */
2638               if (contents != NULL
2639                   && elf_section_data (section)->this_hdr.contents != contents)
2640                 {
2641                   if (! link_info->keep_memory)
2642                     free (contents);
2643                   else
2644                     /* Cache the section contents for elf_link_input_bfd.  */
2645                     elf_section_data (section)->this_hdr.contents = contents;
2646                 }
2647               contents = NULL;
2648             }
2649
2650           /* Cache or free any memory we allocated for the symbols.  */
2651           if (isymbuf != NULL
2652               && symtab_hdr->contents != (unsigned char *) isymbuf)
2653             {
2654               if (! link_info->keep_memory)
2655                 free (isymbuf);
2656               else
2657                 /* Cache the symbols for elf_link_input_bfd.  */
2658                 symtab_hdr->contents = (unsigned char *) isymbuf;
2659             }
2660           isymbuf = NULL;
2661         }
2662     }
2663
2664   /* (Re)initialize for the basic instruction shortening/relaxing pass.  */
2665   contents = NULL;
2666   internal_relocs = NULL;
2667   isymbuf = NULL;
2668   /* For error_return.  */
2669   section = sec;
2670
2671   /* We don't have to do anything for a relocatable link, if
2672      this section does not have relocs, or if this is not a
2673      code section.  */
2674   if (link_info->relocatable
2675       || (sec->flags & SEC_RELOC) == 0
2676       || sec->reloc_count == 0
2677       || (sec->flags & SEC_CODE) == 0)
2678     return TRUE;
2679
2680   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
2681
2682   /* Get a copy of the native relocations.  */
2683   internal_relocs = _bfd_elf_link_read_relocs (abfd, sec, NULL, NULL,
2684                                                link_info->keep_memory);
2685   if (internal_relocs == NULL)
2686     goto error_return;
2687
2688   /* Scan for worst case alignment gap changes.  Note that this logic
2689      is not ideal; what we should do is run this scan for every
2690      opcode/address range and adjust accordingly, but that's
2691      expensive.  Worst case is that for an alignment of N bytes, we
2692      move by 2*N-N-1 bytes, assuming we have aligns of 1, 2, 4, 8, etc
2693      all before it.  Plus, this still doesn't cover cross-section
2694      jumps with section alignment.  */
2695   irelend = internal_relocs + sec->reloc_count;
2696   align_gap_adjustment = 0;
2697   for (irel = internal_relocs; irel < irelend; irel++)
2698     {
2699       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_ALIGN)
2700         {
2701           bfd_vma adj = 1 << irel->r_addend;
2702           bfd_vma aend = irel->r_offset;
2703
2704           aend = BFD_ALIGN (aend, 1 << irel->r_addend);
2705           adj = 2 * adj - adj - 1;
2706
2707           /* Record the biggest adjustmnet.  Skip any alignment at the
2708              end of our section.  */
2709           if (align_gap_adjustment < adj
2710               && aend < sec->output_section->vma + sec->output_offset + sec->size)
2711             align_gap_adjustment = adj;
2712         }
2713     }
2714
2715   /* Walk through them looking for relaxing opportunities.  */
2716   irelend = internal_relocs + sec->reloc_count;
2717   for (irel = internal_relocs; irel < irelend; irel++)
2718     {
2719       bfd_vma symval;
2720       bfd_signed_vma jump_offset;
2721       asection *sym_sec = NULL;
2722       struct elf32_mn10300_link_hash_entry *h = NULL;
2723
2724       /* If this isn't something that can be relaxed, then ignore
2725          this reloc.  */
2726       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_NONE
2727           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_8
2728           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_MAX)
2729         continue;
2730
2731       /* Get the section contents if we haven't done so already.  */
2732       if (contents == NULL)
2733         {
2734           /* Get cached copy if it exists.  */
2735           if (elf_section_data (sec)->this_hdr.contents != NULL)
2736             contents = elf_section_data (sec)->this_hdr.contents;
2737           else
2738             {
2739               /* Go get them off disk.  */
2740               if (!bfd_malloc_and_get_section (abfd, sec, &contents))
2741                 goto error_return;
2742             }
2743         }
2744
2745       /* Read this BFD's symbols if we haven't done so already.  */
2746       if (isymbuf == NULL && symtab_hdr->sh_info != 0)
2747         {
2748           isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
2749           if (isymbuf == NULL)
2750             isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
2751                                             symtab_hdr->sh_info, 0,
2752                                             NULL, NULL, NULL);
2753           if (isymbuf == NULL)
2754             goto error_return;
2755         }
2756
2757       /* Get the value of the symbol referred to by the reloc.  */
2758       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
2759         {
2760           Elf_Internal_Sym *isym;
2761           const char *sym_name;
2762           char *new_name;
2763
2764           /* A local symbol.  */
2765           isym = isymbuf + ELF32_R_SYM (irel->r_info);
2766           if (isym->st_shndx == SHN_UNDEF)
2767             sym_sec = bfd_und_section_ptr;
2768           else if (isym->st_shndx == SHN_ABS)
2769             sym_sec = bfd_abs_section_ptr;
2770           else if (isym->st_shndx == SHN_COMMON)
2771             sym_sec = bfd_com_section_ptr;
2772           else
2773             sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
2774
2775           sym_name = bfd_elf_string_from_elf_section (abfd,
2776                                                       symtab_hdr->sh_link,
2777                                                       isym->st_name);
2778
2779           if ((sym_sec->flags & SEC_MERGE)
2780               && ELF_ST_TYPE (isym->st_info) == STT_SECTION
2781               && sym_sec->sec_info_type == ELF_INFO_TYPE_MERGE)
2782             {
2783               symval = isym->st_value + irel->r_addend;
2784               symval = _bfd_merged_section_offset (abfd, & sym_sec,
2785                                                    elf_section_data (sym_sec)->sec_info,
2786                                                    symval);
2787               symval += sym_sec->output_section->vma + sym_sec->output_offset - irel->r_addend;
2788             }
2789           else
2790             symval = (isym->st_value
2791                       + sym_sec->output_section->vma
2792                       + sym_sec->output_offset);
2793
2794           /* Tack on an ID so we can uniquely identify this
2795              local symbol in the global hash table.  */
2796           new_name = bfd_malloc ((bfd_size_type) strlen (sym_name) + 10);
2797           if (new_name == NULL)
2798             goto error_return;
2799           sprintf (new_name, "%s_%08x", sym_name, sym_sec->id);
2800           sym_name = new_name;
2801
2802           h = (struct elf32_mn10300_link_hash_entry *)
2803                 elf_link_hash_lookup (&hash_table->static_hash_table->root,
2804                                       sym_name, FALSE, FALSE, FALSE);
2805           free (new_name);
2806         }
2807       else
2808         {
2809           unsigned long indx;
2810
2811           /* An external symbol.  */
2812           indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
2813           h = (struct elf32_mn10300_link_hash_entry *)
2814                 (elf_sym_hashes (abfd)[indx]);
2815           BFD_ASSERT (h != NULL);
2816           if (h->root.root.type != bfd_link_hash_defined
2817               && h->root.root.type != bfd_link_hash_defweak)
2818             /* This appears to be a reference to an undefined
2819                symbol.  Just ignore it--it will be caught by the
2820                regular reloc processing.  */
2821             continue;
2822
2823           /* Check for a reference to a discarded symbol and ignore it.  */
2824           if (h->root.root.u.def.section->output_section == NULL)
2825             continue;
2826
2827           sym_sec = h->root.root.u.def.section->output_section;
2828
2829           symval = (h->root.root.u.def.value
2830                     + h->root.root.u.def.section->output_section->vma
2831                     + h->root.root.u.def.section->output_offset);
2832         }
2833
2834       /* For simplicity of coding, we are going to modify the section
2835          contents, the section relocs, and the BFD symbol table.  We
2836          must tell the rest of the code not to free up this
2837          information.  It would be possible to instead create a table
2838          of changes which have to be made, as is done in coff-mips.c;
2839          that would be more work, but would require less memory when
2840          the linker is run.  */
2841
2842       /* Try to turn a 32bit pc-relative branch/call into a 16bit pc-relative
2843          branch/call, also deal with "call" -> "calls" conversions and
2844          insertion of prologue data into "call" instructions.  */
2845       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL32
2846           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PLT32)
2847         {
2848           bfd_vma value = symval;
2849
2850           if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PLT32
2851               && h != NULL
2852               && ELF_ST_VISIBILITY (h->root.other) != STV_INTERNAL
2853               && ELF_ST_VISIBILITY (h->root.other) != STV_HIDDEN
2854               && h->root.plt.offset != (bfd_vma) -1)
2855             {
2856               asection * splt;
2857
2858               splt = bfd_get_section_by_name (elf_hash_table (link_info)
2859                                               ->dynobj, ".plt");
2860
2861               value = ((splt->output_section->vma
2862                         + splt->output_offset
2863                         + h->root.plt.offset)
2864                        - (sec->output_section->vma
2865                           + sec->output_offset
2866                           + irel->r_offset));
2867             }
2868
2869           /* If we've got a "call" instruction that needs to be turned
2870              into a "calls" instruction, do so now.  It saves a byte.  */
2871           if (h && (h->flags & MN10300_CONVERT_CALL_TO_CALLS))
2872             {
2873               unsigned char code;
2874
2875               /* Get the opcode.  */
2876               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2877
2878               /* Make sure we're working with a "call" instruction!  */
2879               if (code == 0xdd)
2880                 {
2881                   /* Note that we've changed the relocs, section contents,
2882                      etc.  */
2883                   elf_section_data (sec)->relocs = internal_relocs;
2884                   elf_section_data (sec)->this_hdr.contents = contents;
2885                   symtab_hdr->contents = (unsigned char *) isymbuf;
2886
2887                   /* Fix the opcode.  */
2888                   bfd_put_8 (abfd, 0xfc, contents + irel->r_offset - 1);
2889                   bfd_put_8 (abfd, 0xff, contents + irel->r_offset);
2890
2891                   /* Fix irel->r_offset and irel->r_addend.  */
2892                   irel->r_offset += 1;
2893                   irel->r_addend += 1;
2894
2895                   /* Delete one byte of data.  */
2896                   if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2897                                                        irel->r_offset + 3, 1))
2898                     goto error_return;
2899
2900                   /* That will change things, so, we should relax again.
2901                      Note that this is not required, and it may be slow.  */
2902                   *again = TRUE;
2903                 }
2904             }
2905           else if (h)
2906             {
2907               /* We've got a "call" instruction which needs some data
2908                  from target function filled in.  */
2909               unsigned char code;
2910
2911               /* Get the opcode.  */
2912               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2913
2914               /* Insert data from the target function into the "call"
2915                  instruction if needed.  */
2916               if (code == 0xdd)
2917                 {
2918                   bfd_put_8 (abfd, h->movm_args, contents + irel->r_offset + 4);
2919                   bfd_put_8 (abfd, h->stack_size + h->movm_stack_size,
2920                              contents + irel->r_offset + 5);
2921                 }
2922             }
2923
2924           /* Deal with pc-relative gunk.  */
2925           value -= (sec->output_section->vma + sec->output_offset);
2926           value -= irel->r_offset;
2927           value += irel->r_addend;
2928
2929           /* See if the value will fit in 16 bits, note the high value is
2930              0x7fff + 2 as the target will be two bytes closer if we are
2931              able to relax, if it's in the same section.  */
2932           if (sec->output_section == sym_sec->output_section)
2933             jump_offset = 0x8001;
2934           else
2935             jump_offset = 0x7fff;
2936
2937           /* Account for jumps across alignment boundaries using
2938              align_gap_adjustment.  */
2939           if ((bfd_signed_vma) value < jump_offset - (bfd_signed_vma) align_gap_adjustment
2940               && ((bfd_signed_vma) value > -0x8000 + (bfd_signed_vma) align_gap_adjustment))
2941             {
2942               unsigned char code;
2943
2944               /* Get the opcode.  */
2945               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2946
2947               if (code != 0xdc && code != 0xdd && code != 0xff)
2948                 continue;
2949
2950               /* Note that we've changed the relocs, section contents, etc.  */
2951               elf_section_data (sec)->relocs = internal_relocs;
2952               elf_section_data (sec)->this_hdr.contents = contents;
2953               symtab_hdr->contents = (unsigned char *) isymbuf;
2954
2955               /* Fix the opcode.  */
2956               if (code == 0xdc)
2957                 bfd_put_8 (abfd, 0xcc, contents + irel->r_offset - 1);
2958               else if (code == 0xdd)
2959                 bfd_put_8 (abfd, 0xcd, contents + irel->r_offset - 1);
2960               else if (code == 0xff)
2961                 bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
2962
2963               /* Fix the relocation's type.  */
2964               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
2965                                            (ELF32_R_TYPE (irel->r_info)
2966                                             == (int) R_MN10300_PLT32)
2967                                            ? R_MN10300_PLT16 :
2968                                            R_MN10300_PCREL16);
2969
2970               /* Delete two bytes of data.  */
2971               if (!mn10300_elf_relax_delete_bytes (abfd, sec,
2972                                                    irel->r_offset + 1, 2))
2973                 goto error_return;
2974
2975               /* That will change things, so, we should relax again.
2976                  Note that this is not required, and it may be slow.  */
2977               *again = TRUE;
2978             }
2979         }
2980
2981       /* Try to turn a 16bit pc-relative branch into a 8bit pc-relative
2982          branch.  */
2983       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL16)
2984         {
2985           bfd_vma value = symval;
2986
2987           /* If we've got a "call" instruction that needs to be turned
2988              into a "calls" instruction, do so now.  It saves a byte.  */
2989           if (h && (h->flags & MN10300_CONVERT_CALL_TO_CALLS))
2990             {
2991               unsigned char code;
2992
2993               /* Get the opcode.  */
2994               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
2995
2996               /* Make sure we're working with a "call" instruction!  */
2997               if (code == 0xcd)
2998                 {
2999                   /* Note that we've changed the relocs, section contents,
3000                      etc.  */
3001                   elf_section_data (sec)->relocs = internal_relocs;
3002                   elf_section_data (sec)->this_hdr.contents = contents;
3003                   symtab_hdr->contents = (unsigned char *) isymbuf;
3004
3005                   /* Fix the opcode.  */
3006                   bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 1);
3007                   bfd_put_8 (abfd, 0xff, contents + irel->r_offset);
3008
3009                   /* Fix irel->r_offset and irel->r_addend.  */
3010                   irel->r_offset += 1;
3011                   irel->r_addend += 1;
3012
3013                   /* Delete one byte of data.  */
3014                   if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3015                                                        irel->r_offset + 1, 1))
3016                     goto error_return;
3017
3018                   /* That will change things, so, we should relax again.
3019                      Note that this is not required, and it may be slow.  */
3020                   *again = TRUE;
3021                 }
3022             }
3023           else if (h)
3024             {
3025               unsigned char code;
3026
3027               /* Get the opcode.  */
3028               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3029
3030               /* Insert data from the target function into the "call"
3031                  instruction if needed.  */
3032               if (code == 0xcd)
3033                 {
3034                   bfd_put_8 (abfd, h->movm_args, contents + irel->r_offset + 2);
3035                   bfd_put_8 (abfd, h->stack_size + h->movm_stack_size,
3036                              contents + irel->r_offset + 3);
3037                 }
3038             }
3039
3040           /* Deal with pc-relative gunk.  */
3041           value -= (sec->output_section->vma + sec->output_offset);
3042           value -= irel->r_offset;
3043           value += irel->r_addend;
3044
3045           /* See if the value will fit in 8 bits, note the high value is
3046              0x7f + 1 as the target will be one bytes closer if we are
3047              able to relax.  */
3048           if ((long) value < 0x80 && (long) value > -0x80)
3049             {
3050               unsigned char code;
3051
3052               /* Get the opcode.  */
3053               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3054
3055               if (code != 0xcc)
3056                 continue;
3057
3058               /* Note that we've changed the relocs, section contents, etc.  */
3059               elf_section_data (sec)->relocs = internal_relocs;
3060               elf_section_data (sec)->this_hdr.contents = contents;
3061               symtab_hdr->contents = (unsigned char *) isymbuf;
3062
3063               /* Fix the opcode.  */
3064               bfd_put_8 (abfd, 0xca, contents + irel->r_offset - 1);
3065
3066               /* Fix the relocation's type.  */
3067               irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3068                                            R_MN10300_PCREL8);
3069
3070               /* Delete one byte of data.  */
3071               if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3072                                                    irel->r_offset + 1, 1))
3073                 goto error_return;
3074
3075               /* That will change things, so, we should relax again.
3076                  Note that this is not required, and it may be slow.  */
3077               *again = TRUE;
3078             }
3079         }
3080
3081       /* Try to eliminate an unconditional 8 bit pc-relative branch
3082          which immediately follows a conditional 8 bit pc-relative
3083          branch around the unconditional branch.
3084
3085             original:           new:
3086             bCC lab1            bCC' lab2
3087             bra lab2
3088            lab1:               lab1:
3089
3090          This happens when the bCC can't reach lab2 at assembly time,
3091          but due to other relaxations it can reach at link time.  */
3092       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_PCREL8)
3093         {
3094           Elf_Internal_Rela *nrel;
3095           bfd_vma value = symval;
3096           unsigned char code;
3097
3098           /* Deal with pc-relative gunk.  */
3099           value -= (sec->output_section->vma + sec->output_offset);
3100           value -= irel->r_offset;
3101           value += irel->r_addend;
3102
3103           /* Do nothing if this reloc is the last byte in the section.  */
3104           if (irel->r_offset == sec->size)
3105             continue;
3106
3107           /* See if the next instruction is an unconditional pc-relative
3108              branch, more often than not this test will fail, so we
3109              test it first to speed things up.  */
3110           code = bfd_get_8 (abfd, contents + irel->r_offset + 1);
3111           if (code != 0xca)
3112             continue;
3113
3114           /* Also make sure the next relocation applies to the next
3115              instruction and that it's a pc-relative 8 bit branch.  */
3116           nrel = irel + 1;
3117           if (nrel == irelend
3118               || irel->r_offset + 2 != nrel->r_offset
3119               || ELF32_R_TYPE (nrel->r_info) != (int) R_MN10300_PCREL8)
3120             continue;
3121
3122           /* Make sure our destination immediately follows the
3123              unconditional branch.  */
3124           if (symval != (sec->output_section->vma + sec->output_offset
3125                          + irel->r_offset + 3))
3126             continue;
3127
3128           /* Now make sure we are a conditional branch.  This may not
3129              be necessary, but why take the chance.
3130
3131              Note these checks assume that R_MN10300_PCREL8 relocs
3132              only occur on bCC and bCCx insns.  If they occured
3133              elsewhere, we'd need to know the start of this insn
3134              for this check to be accurate.  */
3135           code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3136           if (code != 0xc0 && code != 0xc1 && code != 0xc2
3137               && code != 0xc3 && code != 0xc4 && code != 0xc5
3138               && code != 0xc6 && code != 0xc7 && code != 0xc8
3139               && code != 0xc9 && code != 0xe8 && code != 0xe9
3140               && code != 0xea && code != 0xeb)
3141             continue;
3142
3143           /* We also have to be sure there is no symbol/label
3144              at the unconditional branch.  */
3145           if (mn10300_elf_symbol_address_p (abfd, sec, isymbuf,
3146                                             irel->r_offset + 1))
3147             continue;
3148
3149           /* Note that we've changed the relocs, section contents, etc.  */
3150           elf_section_data (sec)->relocs = internal_relocs;
3151           elf_section_data (sec)->this_hdr.contents = contents;
3152           symtab_hdr->contents = (unsigned char *) isymbuf;
3153
3154           /* Reverse the condition of the first branch.  */
3155           switch (code)
3156             {
3157             case 0xc8:
3158               code = 0xc9;
3159               break;
3160             case 0xc9:
3161               code = 0xc8;
3162               break;
3163             case 0xc0:
3164               code = 0xc2;
3165               break;
3166             case 0xc2:
3167               code = 0xc0;
3168               break;
3169             case 0xc3:
3170               code = 0xc1;
3171               break;
3172             case 0xc1:
3173               code = 0xc3;
3174               break;
3175             case 0xc4:
3176               code = 0xc6;
3177               break;
3178             case 0xc6:
3179               code = 0xc4;
3180               break;
3181             case 0xc7:
3182               code = 0xc5;
3183               break;
3184             case 0xc5:
3185               code = 0xc7;
3186               break;
3187             case 0xe8:
3188               code = 0xe9;
3189               break;
3190             case 0x9d:
3191               code = 0xe8;
3192               break;
3193             case 0xea:
3194               code = 0xeb;
3195               break;
3196             case 0xeb:
3197               code = 0xea;
3198               break;
3199             }
3200           bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3201
3202           /* Set the reloc type and symbol for the first branch
3203              from the second branch.  */
3204           irel->r_info = nrel->r_info;
3205
3206           /* Make the reloc for the second branch a null reloc.  */
3207           nrel->r_info = ELF32_R_INFO (ELF32_R_SYM (nrel->r_info),
3208                                        R_MN10300_NONE);
3209
3210           /* Delete two bytes of data.  */
3211           if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3212                                                irel->r_offset + 1, 2))
3213             goto error_return;
3214
3215           /* That will change things, so, we should relax again.
3216              Note that this is not required, and it may be slow.  */
3217           *again = TRUE;
3218         }
3219
3220       /* Try to turn a 24 immediate, displacement or absolute address
3221          into a 8 immediate, displacement or absolute address.  */
3222       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_24)
3223         {
3224           bfd_vma value = symval;
3225           value += irel->r_addend;
3226
3227           /* See if the value will fit in 8 bits.  */
3228           if ((long) value < 0x7f && (long) value > -0x80)
3229             {
3230               unsigned char code;
3231
3232               /* AM33 insns which have 24 operands are 6 bytes long and
3233                  will have 0xfd as the first byte.  */
3234
3235               /* Get the first opcode.  */
3236               code = bfd_get_8 (abfd, contents + irel->r_offset - 3);
3237
3238               if (code == 0xfd)
3239                 {
3240                   /* Get the second opcode.  */
3241                   code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
3242
3243                   /* We can not relax 0x6b, 0x7b, 0x8b, 0x9b as no 24bit
3244                      equivalent instructions exists.  */
3245                   if (code != 0x6b && code != 0x7b
3246                       && code != 0x8b && code != 0x9b
3247                       && ((code & 0x0f) == 0x09 || (code & 0x0f) == 0x08
3248                           || (code & 0x0f) == 0x0a || (code & 0x0f) == 0x0b
3249                           || (code & 0x0f) == 0x0e))
3250                     {
3251                       /* Not safe if the high bit is on as relaxing may
3252                          move the value out of high mem and thus not fit
3253                          in a signed 8bit value.  This is currently over
3254                          conservative.  */
3255                       if ((value & 0x80) == 0)
3256                         {
3257                           /* Note that we've changed the relocation contents,
3258                              etc.  */
3259                           elf_section_data (sec)->relocs = internal_relocs;
3260                           elf_section_data (sec)->this_hdr.contents = contents;
3261                           symtab_hdr->contents = (unsigned char *) isymbuf;
3262
3263                           /* Fix the opcode.  */
3264                           bfd_put_8 (abfd, 0xfb, contents + irel->r_offset - 3);
3265                           bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3266
3267                           /* Fix the relocation's type.  */
3268                           irel->r_info =
3269                             ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3270                                           R_MN10300_8);
3271
3272                           /* Delete two bytes of data.  */
3273                           if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3274                                                                irel->r_offset + 1, 2))
3275                             goto error_return;
3276
3277                           /* That will change things, so, we should relax
3278                              again.  Note that this is not required, and it
3279                              may be slow.  */
3280                           *again = TRUE;
3281                           break;
3282                         }
3283                     }
3284                 }
3285             }
3286         }
3287
3288       /* Try to turn a 32bit immediate, displacement or absolute address
3289          into a 16bit immediate, displacement or absolute address.  */
3290       if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_32
3291           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOT32
3292           || ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTOFF32)
3293         {
3294           bfd_vma value = symval;
3295
3296           if (ELF32_R_TYPE (irel->r_info) != (int) R_MN10300_32)
3297             {
3298               asection * sgot;
3299
3300               sgot = bfd_get_section_by_name (elf_hash_table (link_info)
3301                                               ->dynobj, ".got");
3302
3303               if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOT32)
3304                 {
3305                   value = sgot->output_offset;
3306
3307                   if (h)
3308                     value += h->root.got.offset;
3309                   else
3310                     value += (elf_local_got_offsets
3311                               (abfd)[ELF32_R_SYM (irel->r_info)]);
3312                 }
3313               else if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTOFF32)
3314                 value -= sgot->output_section->vma;
3315               else if (ELF32_R_TYPE (irel->r_info) == (int) R_MN10300_GOTPC32)
3316                 value = (sgot->output_section->vma
3317                          - (sec->output_section->vma
3318                             + sec->output_offset
3319                             + irel->r_offset));
3320               else
3321                 abort ();
3322             }
3323
3324           value += irel->r_addend;
3325
3326           /* See if the value will fit in 24 bits.
3327              We allow any 16bit match here.  We prune those we can't
3328              handle below.  */
3329           if ((long) value < 0x7fffff && (long) value > -0x800000)
3330             {
3331               unsigned char code;
3332
3333               /* AM33 insns which have 32bit operands are 7 bytes long and
3334                  will have 0xfe as the first byte.  */
3335
3336               /* Get the first opcode.  */
3337               code = bfd_get_8 (abfd, contents + irel->r_offset - 3);
3338
3339               if (code == 0xfe)
3340                 {
3341                   /* Get the second opcode.  */
3342                   code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
3343
3344                   /* All the am33 32 -> 24 relaxing possibilities.  */
3345                   /* We can not relax 0x6b, 0x7b, 0x8b, 0x9b as no 24bit
3346                      equivalent instructions exists.  */
3347                   if (code != 0x6b && code != 0x7b
3348                       && code != 0x8b && code != 0x9b
3349                       && (ELF32_R_TYPE (irel->r_info)
3350                           != (int) R_MN10300_GOTPC32)
3351                       && ((code & 0x0f) == 0x09 || (code & 0x0f) == 0x08
3352                           || (code & 0x0f) == 0x0a || (code & 0x0f) == 0x0b
3353                           || (code & 0x0f) == 0x0e))
3354                     {
3355                       /* Not safe if the high bit is on as relaxing may
3356                          move the value out of high mem and thus not fit
3357                          in a signed 16bit value.  This is currently over
3358                          conservative.  */
3359                       if ((value & 0x8000) == 0)
3360                         {
3361                           /* Note that we've changed the relocation contents,
3362                              etc.  */
3363                           elf_section_data (sec)->relocs = internal_relocs;
3364                           elf_section_data (sec)->this_hdr.contents = contents;
3365                           symtab_hdr->contents = (unsigned char *) isymbuf;
3366
3367                           /* Fix the opcode.  */
3368                           bfd_put_8 (abfd, 0xfd, contents + irel->r_offset - 3);
3369                           bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3370
3371                           /* Fix the relocation's type.  */
3372                           irel->r_info =
3373                             ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3374                                           (ELF32_R_TYPE (irel->r_info)
3375                                            == (int) R_MN10300_GOTOFF32)
3376                                           ? R_MN10300_GOTOFF24
3377                                           : (ELF32_R_TYPE (irel->r_info)
3378                                              == (int) R_MN10300_GOT32)
3379                                           ? R_MN10300_GOT24 :
3380                                           R_MN10300_24);
3381
3382                           /* Delete one byte of data.  */
3383                           if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3384                                                                irel->r_offset + 3, 1))
3385                             goto error_return;
3386
3387                           /* That will change things, so, we should relax
3388                              again.  Note that this is not required, and it
3389                              may be slow.  */
3390                           *again = TRUE;
3391                           break;
3392                         }
3393                     }
3394                 }
3395             }
3396
3397           /* See if the value will fit in 16 bits.
3398              We allow any 16bit match here.  We prune those we can't
3399              handle below.  */
3400           if ((long) value < 0x7fff && (long) value > -0x8000)
3401             {
3402               unsigned char code;
3403
3404               /* Most insns which have 32bit operands are 6 bytes long;
3405                  exceptions are pcrel insns and bit insns.
3406
3407                  We handle pcrel insns above.  We don't bother trying
3408                  to handle the bit insns here.
3409
3410                  The first byte of the remaining insns will be 0xfc.  */
3411
3412               /* Get the first opcode.  */
3413               code = bfd_get_8 (abfd, contents + irel->r_offset - 2);
3414
3415               if (code != 0xfc)
3416                 continue;
3417
3418               /* Get the second opcode.  */
3419               code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
3420
3421               if ((code & 0xf0) < 0x80)
3422                 switch (code & 0xf0)
3423                   {
3424                   /* mov (d32,am),dn   -> mov (d32,am),dn
3425                      mov dm,(d32,am)   -> mov dn,(d32,am)
3426                      mov (d32,am),an   -> mov (d32,am),an
3427                      mov dm,(d32,am)   -> mov dn,(d32,am)
3428                      movbu (d32,am),dn -> movbu (d32,am),dn
3429                      movbu dm,(d32,am) -> movbu dn,(d32,am)
3430                      movhu (d32,am),dn -> movhu (d32,am),dn
3431                      movhu dm,(d32,am) -> movhu dn,(d32,am) */
3432                   case 0x00:
3433                   case 0x10:
3434                   case 0x20:
3435                   case 0x30:
3436                   case 0x40:
3437                   case 0x50:
3438                   case 0x60:
3439                   case 0x70:
3440                     /* Not safe if the high bit is on as relaxing may
3441                        move the value out of high mem and thus not fit
3442                        in a signed 16bit value.  */
3443                     if (code == 0xcc
3444                         && (value & 0x8000))
3445                       continue;
3446
3447                     /* Note that we've changed the relocation contents, etc.  */
3448                     elf_section_data (sec)->relocs = internal_relocs;
3449                     elf_section_data (sec)->this_hdr.contents = contents;
3450                     symtab_hdr->contents = (unsigned char *) isymbuf;
3451
3452                     /* Fix the opcode.  */
3453                     bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3454                     bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3455
3456                     /* Fix the relocation's type.  */
3457                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3458                                                  (ELF32_R_TYPE (irel->r_info)
3459                                                   == (int) R_MN10300_GOTOFF32)
3460                                                  ? R_MN10300_GOTOFF16
3461                                                  : (ELF32_R_TYPE (irel->r_info)
3462                                                     == (int) R_MN10300_GOT32)
3463                                                  ? R_MN10300_GOT16
3464                                                  : (ELF32_R_TYPE (irel->r_info)
3465                                                     == (int) R_MN10300_GOTPC32)
3466                                                  ? R_MN10300_GOTPC16 :
3467                                                  R_MN10300_16);
3468
3469                     /* Delete two bytes of data.  */
3470                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3471                                                          irel->r_offset + 2, 2))
3472                       goto error_return;
3473
3474                     /* That will change things, so, we should relax again.
3475                        Note that this is not required, and it may be slow.  */
3476                     *again = TRUE;
3477                     break;
3478                   }
3479               else if ((code & 0xf0) == 0x80
3480                        || (code & 0xf0) == 0x90)
3481                 switch (code & 0xf3)
3482                   {
3483                   /* mov dn,(abs32)   -> mov dn,(abs16)
3484                      movbu dn,(abs32) -> movbu dn,(abs16)
3485                      movhu dn,(abs32) -> movhu dn,(abs16)  */
3486                   case 0x81:
3487                   case 0x82:
3488                   case 0x83:
3489                     /* Note that we've changed the relocation contents, etc.  */
3490                     elf_section_data (sec)->relocs = internal_relocs;
3491                     elf_section_data (sec)->this_hdr.contents = contents;
3492                     symtab_hdr->contents = (unsigned char *) isymbuf;
3493
3494                     if ((code & 0xf3) == 0x81)
3495                       code = 0x01 + (code & 0x0c);
3496                     else if ((code & 0xf3) == 0x82)
3497                       code = 0x02 + (code & 0x0c);
3498                     else if ((code & 0xf3) == 0x83)
3499                       code = 0x03 + (code & 0x0c);
3500                     else
3501                       abort ();
3502
3503                     /* Fix the opcode.  */
3504                     bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3505
3506                     /* Fix the relocation's type.  */
3507                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3508                                                  (ELF32_R_TYPE (irel->r_info)
3509                                                   == (int) R_MN10300_GOTOFF32)
3510                                                  ? R_MN10300_GOTOFF16
3511                                                  : (ELF32_R_TYPE (irel->r_info)
3512                                                     == (int) R_MN10300_GOT32)
3513                                                  ? R_MN10300_GOT16
3514                                                  : (ELF32_R_TYPE (irel->r_info)
3515                                                     == (int) R_MN10300_GOTPC32)
3516                                                  ? R_MN10300_GOTPC16 :
3517                                                  R_MN10300_16);
3518
3519                     /* The opcode got shorter too, so we have to fix the
3520                        addend and offset too!  */
3521                     irel->r_offset -= 1;
3522
3523                     /* Delete three bytes of data.  */
3524                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3525                                                          irel->r_offset + 1, 3))
3526                       goto error_return;
3527
3528                     /* That will change things, so, we should relax again.
3529                        Note that this is not required, and it may be slow.  */
3530                     *again = TRUE;
3531                     break;
3532
3533                   /* mov am,(abs32)    -> mov am,(abs16)
3534                      mov am,(d32,sp)   -> mov am,(d16,sp)
3535                      mov dm,(d32,sp)   -> mov dm,(d32,sp)
3536                      movbu dm,(d32,sp) -> movbu dm,(d32,sp)
3537                      movhu dm,(d32,sp) -> movhu dm,(d32,sp) */
3538                   case 0x80:
3539                   case 0x90:
3540                   case 0x91:
3541                   case 0x92:
3542                   case 0x93:
3543                     /* sp-based offsets are zero-extended.  */
3544                     if (code >= 0x90 && code <= 0x93
3545                         && (long) value < 0)
3546                       continue;
3547
3548                     /* Note that we've changed the relocation contents, etc.  */
3549                     elf_section_data (sec)->relocs = internal_relocs;
3550                     elf_section_data (sec)->this_hdr.contents = contents;
3551                     symtab_hdr->contents = (unsigned char *) isymbuf;
3552
3553                     /* Fix the opcode.  */
3554                     bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3555                     bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3556
3557                     /* Fix the relocation's type.  */
3558                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3559                                                  (ELF32_R_TYPE (irel->r_info)
3560                                                   == (int) R_MN10300_GOTOFF32)
3561                                                  ? R_MN10300_GOTOFF16
3562                                                  : (ELF32_R_TYPE (irel->r_info)
3563                                                     == (int) R_MN10300_GOT32)
3564                                                  ? R_MN10300_GOT16
3565                                                  : (ELF32_R_TYPE (irel->r_info)
3566                                                     == (int) R_MN10300_GOTPC32)
3567                                                  ? R_MN10300_GOTPC16 :
3568                                                  R_MN10300_16);
3569
3570                     /* Delete two bytes of data.  */
3571                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3572                                                          irel->r_offset + 2, 2))
3573                       goto error_return;
3574
3575                     /* That will change things, so, we should relax again.
3576                        Note that this is not required, and it may be slow.  */
3577                     *again = TRUE;
3578                     break;
3579                   }
3580               else if ((code & 0xf0) < 0xf0)
3581                 switch (code & 0xfc)
3582                   {
3583                   /* mov imm32,dn     -> mov imm16,dn
3584                      mov imm32,an     -> mov imm16,an
3585                      mov (abs32),dn   -> mov (abs16),dn
3586                      movbu (abs32),dn -> movbu (abs16),dn
3587                      movhu (abs32),dn -> movhu (abs16),dn  */
3588                   case 0xcc:
3589                   case 0xdc:
3590                   case 0xa4:
3591                   case 0xa8:
3592                   case 0xac:
3593                     /* Not safe if the high bit is on as relaxing may
3594                        move the value out of high mem and thus not fit
3595                        in a signed 16bit value.  */
3596                     if (code == 0xcc
3597                         && (value & 0x8000))
3598                       continue;
3599
3600                     /* mov imm16, an zero-extends the immediate.  */
3601                     if (code == 0xdc
3602                         && (long) value < 0)
3603                       continue;
3604
3605                     /* Note that we've changed the relocation contents, etc.  */
3606                     elf_section_data (sec)->relocs = internal_relocs;
3607                     elf_section_data (sec)->this_hdr.contents = contents;
3608                     symtab_hdr->contents = (unsigned char *) isymbuf;
3609
3610                     if ((code & 0xfc) == 0xcc)
3611                       code = 0x2c + (code & 0x03);
3612                     else if ((code & 0xfc) == 0xdc)
3613                       code = 0x24 + (code & 0x03);
3614                     else if ((code & 0xfc) == 0xa4)
3615                       code = 0x30 + (code & 0x03);
3616                     else if ((code & 0xfc) == 0xa8)
3617                       code = 0x34 + (code & 0x03);
3618                     else if ((code & 0xfc) == 0xac)
3619                       code = 0x38 + (code & 0x03);
3620                     else
3621                       abort ();
3622
3623                     /* Fix the opcode.  */
3624                     bfd_put_8 (abfd, code, contents + irel->r_offset - 2);
3625
3626                     /* Fix the relocation's type.  */
3627                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3628                                                  (ELF32_R_TYPE (irel->r_info)
3629                                                   == (int) R_MN10300_GOTOFF32)
3630                                                  ? R_MN10300_GOTOFF16
3631                                                  : (ELF32_R_TYPE (irel->r_info)
3632                                                     == (int) R_MN10300_GOT32)
3633                                                  ? R_MN10300_GOT16
3634                                                  : (ELF32_R_TYPE (irel->r_info)
3635                                                     == (int) R_MN10300_GOTPC32)
3636                                                  ? R_MN10300_GOTPC16 :
3637                                                  R_MN10300_16);
3638
3639                     /* The opcode got shorter too, so we have to fix the
3640                        addend and offset too!  */
3641                     irel->r_offset -= 1;
3642
3643                     /* Delete three bytes of data.  */
3644                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3645                                                          irel->r_offset + 1, 3))
3646                       goto error_return;
3647
3648                     /* That will change things, so, we should relax again.
3649                        Note that this is not required, and it may be slow.  */
3650                     *again = TRUE;
3651                     break;
3652
3653                   /* mov (abs32),an    -> mov (abs16),an
3654                      mov (d32,sp),an   -> mov (d16,sp),an
3655                      mov (d32,sp),dn   -> mov (d16,sp),dn
3656                      movbu (d32,sp),dn -> movbu (d16,sp),dn
3657                      movhu (d32,sp),dn -> movhu (d16,sp),dn
3658                      add imm32,dn      -> add imm16,dn
3659                      cmp imm32,dn      -> cmp imm16,dn
3660                      add imm32,an      -> add imm16,an
3661                      cmp imm32,an      -> cmp imm16,an
3662                      and imm32,dn      -> and imm16,dn
3663                      or imm32,dn       -> or imm16,dn
3664                      xor imm32,dn      -> xor imm16,dn
3665                      btst imm32,dn     -> btst imm16,dn */
3666
3667                   case 0xa0:
3668                   case 0xb0:
3669                   case 0xb1:
3670                   case 0xb2:
3671                   case 0xb3:
3672                   case 0xc0:
3673                   case 0xc8:
3674
3675                   case 0xd0:
3676                   case 0xd8:
3677                   case 0xe0:
3678                   case 0xe1:
3679                   case 0xe2:
3680                   case 0xe3:
3681                     /* cmp imm16, an zero-extends the immediate.  */
3682                     if (code == 0xdc
3683                         && (long) value < 0)
3684                       continue;
3685
3686                     /* So do sp-based offsets.  */
3687                     if (code >= 0xb0 && code <= 0xb3
3688                         && (long) value < 0)
3689                       continue;
3690
3691                     /* Note that we've changed the relocation contents, etc.  */
3692                     elf_section_data (sec)->relocs = internal_relocs;
3693                     elf_section_data (sec)->this_hdr.contents = contents;
3694                     symtab_hdr->contents = (unsigned char *) isymbuf;
3695
3696                     /* Fix the opcode.  */
3697                     bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3698                     bfd_put_8 (abfd, code, contents + irel->r_offset - 1);
3699
3700                     /* Fix the relocation's type.  */
3701                     irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3702                                                  (ELF32_R_TYPE (irel->r_info)
3703                                                   == (int) R_MN10300_GOTOFF32)
3704                                                  ? R_MN10300_GOTOFF16
3705                                                  : (ELF32_R_TYPE (irel->r_info)
3706                                                     == (int) R_MN10300_GOT32)
3707                                                  ? R_MN10300_GOT16
3708                                                  : (ELF32_R_TYPE (irel->r_info)
3709                                                     == (int) R_MN10300_GOTPC32)
3710                                                  ? R_MN10300_GOTPC16 :
3711                                                  R_MN10300_16);
3712
3713                     /* Delete two bytes of data.  */
3714                     if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3715                                                          irel->r_offset + 2, 2))
3716                       goto error_return;
3717
3718                     /* That will change things, so, we should relax again.
3719                        Note that this is not required, and it may be slow.  */
3720                     *again = TRUE;
3721                     break;
3722                   }
3723               else if (code == 0xfe)
3724                 {
3725                   /* add imm32,sp -> add imm16,sp  */
3726
3727                   /* Note that we've changed the relocation contents, etc.  */
3728                   elf_section_data (sec)->relocs = internal_relocs;
3729                   elf_section_data (sec)->this_hdr.contents = contents;
3730                   symtab_hdr->contents = (unsigned char *) isymbuf;
3731
3732                   /* Fix the opcode.  */
3733                   bfd_put_8 (abfd, 0xfa, contents + irel->r_offset - 2);
3734                   bfd_put_8 (abfd, 0xfe, contents + irel->r_offset - 1);
3735
3736                   /* Fix the relocation's type.  */
3737                   irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
3738                                                (ELF32_R_TYPE (irel->r_info)
3739                                                 == (int) R_MN10300_GOT32)
3740                                                ? R_MN10300_GOT16
3741                                                : (ELF32_R_TYPE (irel->r_info)
3742                                                   == (int) R_MN10300_GOTOFF32)
3743                                                ? R_MN10300_GOTOFF16
3744                                                : (ELF32_R_TYPE (irel->r_info)
3745                                                   == (int) R_MN10300_GOTPC32)
3746                                                ? R_MN10300_GOTPC16 :
3747                                                R_MN10300_16);
3748
3749                   /* Delete two bytes of data.  */
3750                   if (!mn10300_elf_relax_delete_bytes (abfd, sec,
3751                                                        irel->r_offset + 2, 2))
3752                     goto error_return;
3753
3754                   /* That will change things, so, we should relax again.
3755                      Note that this is not required, and it may be slow.  */
3756                   *again = TRUE;
3757                   break;
3758                 }
3759             }
3760         }
3761     }
3762
3763   if (isymbuf != NULL
3764       && symtab_hdr->contents != (unsigned char *) isymbuf)
3765     {
3766       if (! link_info->keep_memory)
3767         free (isymbuf);
3768       else
3769         {
3770           /* Cache the symbols for elf_link_input_bfd.  */
3771           symtab_hdr->contents = (unsigned char *) isymbuf;
3772         }
3773     }
3774
3775   if (contents != NULL
3776       && elf_section_data (sec)->this_hdr.contents != contents)
3777     {
3778       if (! link_info->keep_memory)
3779         free (contents);
3780       else
3781         {
3782           /* Cache the section contents for elf_link_input_bfd.  */
3783           elf_section_data (sec)->this_hdr.contents = contents;
3784         }
3785     }
3786
3787   if (internal_relocs != NULL
3788       && elf_section_data (sec)->relocs != internal_relocs)
3789     free (internal_relocs);
3790
3791   return TRUE;
3792
3793  error_return:
3794   if (isymbuf != NULL
3795       && symtab_hdr->contents != (unsigned char *) isymbuf)
3796     free (isymbuf);
3797   if (contents != NULL
3798       && elf_section_data (section)->this_hdr.contents != contents)
3799     free (contents);
3800   if (internal_relocs != NULL
3801       && elf_section_data (section)->relocs != internal_relocs)
3802     free (internal_relocs);
3803
3804   return FALSE;
3805 }
3806
3807 /* This is a version of bfd_generic_get_relocated_section_contents
3808    which uses mn10300_elf_relocate_section.  */
3809
3810 static bfd_byte *
3811 mn10300_elf_get_relocated_section_contents (bfd *output_bfd,
3812                                             struct bfd_link_info *link_info,
3813                                             struct bfd_link_order *link_order,
3814                                             bfd_byte *data,
3815                                             bfd_boolean relocatable,
3816                                             asymbol **symbols)
3817 {
3818   Elf_Internal_Shdr *symtab_hdr;
3819   asection *input_section = link_order->u.indirect.section;
3820   bfd *input_bfd = input_section->owner;
3821   asection **sections = NULL;
3822   Elf_Internal_Rela *internal_relocs = NULL;
3823   Elf_Internal_Sym *isymbuf = NULL;
3824
3825   /* We only need to handle the case of relaxing, or of having a
3826      particular set of section contents, specially.  */
3827   if (relocatable
3828       || elf_section_data (input_section)->this_hdr.contents == NULL)
3829     return bfd_generic_get_relocated_section_contents (output_bfd, link_info,
3830                                                        link_order, data,
3831                                                        relocatable,
3832                                                        symbols);
3833
3834   symtab_hdr = &elf_tdata (input_bfd)->symtab_hdr;
3835
3836   memcpy (data, elf_section_data (input_section)->this_hdr.contents,
3837           (size_t) input_section->size);
3838
3839   if ((input_section->flags & SEC_RELOC) != 0
3840       && input_section->reloc_count > 0)
3841     {
3842       asection **secpp;
3843       Elf_Internal_Sym *isym, *isymend;
3844       bfd_size_type amt;
3845
3846       internal_relocs = _bfd_elf_link_read_relocs (input_bfd, input_section,
3847                                                    NULL, NULL, FALSE);
3848       if (internal_relocs == NULL)
3849         goto error_return;
3850
3851       if (symtab_hdr->sh_info != 0)
3852         {
3853           isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
3854           if (isymbuf == NULL)
3855             isymbuf = bfd_elf_get_elf_syms (input_bfd, symtab_hdr,
3856                                             symtab_hdr->sh_info, 0,
3857                                             NULL, NULL, NULL);
3858           if (isymbuf == NULL)
3859             goto error_return;
3860         }
3861
3862       amt = symtab_hdr->sh_info;
3863       amt *= sizeof (asection *);
3864       sections = bfd_malloc (amt);
3865       if (sections == NULL && amt != 0)
3866         goto error_return;
3867
3868       isymend = isymbuf + symtab_hdr->sh_info;
3869       for (isym = isymbuf, secpp = sections; isym < isymend; ++isym, ++secpp)
3870         {
3871           asection *isec;
3872
3873           if (isym->st_shndx == SHN_UNDEF)
3874             isec = bfd_und_section_ptr;
3875           else if (isym->st_shndx == SHN_ABS)
3876             isec = bfd_abs_section_ptr;
3877           else if (isym->st_shndx == SHN_COMMON)
3878             isec = bfd_com_section_ptr;
3879           else
3880             isec = bfd_section_from_elf_index (input_bfd, isym->st_shndx);
3881
3882           *secpp = isec;
3883         }
3884
3885       if (! mn10300_elf_relocate_section (output_bfd, link_info, input_bfd,
3886                                           input_section, data, internal_relocs,
3887                                           isymbuf, sections))
3888         goto error_return;
3889
3890       if (sections != NULL)
3891         free (sections);
3892       if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
3893         free (isymbuf);
3894       if (internal_relocs != elf_section_data (input_section)->relocs)
3895         free (internal_relocs);
3896     }
3897
3898   return data;
3899
3900  error_return:
3901   if (sections != NULL)
3902     free (sections);
3903   if (isymbuf != NULL && symtab_hdr->contents != (unsigned char *) isymbuf)
3904     free (isymbuf);
3905   if (internal_relocs != NULL
3906       && internal_relocs != elf_section_data (input_section)->relocs)
3907     free (internal_relocs);
3908   return NULL;
3909 }
3910
3911 /* Assorted hash table functions.  */
3912
3913 /* Initialize an entry in the link hash table.  */
3914
3915 /* Create an entry in an MN10300 ELF linker hash table.  */
3916
3917 static struct bfd_hash_entry *
3918 elf32_mn10300_link_hash_newfunc (struct bfd_hash_entry *entry,
3919                                  struct bfd_hash_table *table,
3920                                  const char *string)
3921 {
3922   struct elf32_mn10300_link_hash_entry *ret =
3923     (struct elf32_mn10300_link_hash_entry *) entry;
3924
3925   /* Allocate the structure if it has not already been allocated by a
3926      subclass.  */
3927   if (ret == NULL)
3928     ret = (struct elf32_mn10300_link_hash_entry *)
3929            bfd_hash_allocate (table, sizeof (* ret));
3930   if (ret == NULL)
3931     return (struct bfd_hash_entry *) ret;
3932
3933   /* Call the allocation method of the superclass.  */
3934   ret = (struct elf32_mn10300_link_hash_entry *)
3935          _bfd_elf_link_hash_newfunc ((struct bfd_hash_entry *) ret,
3936                                      table, string);
3937   if (ret != NULL)
3938     {
3939       ret->direct_calls = 0;
3940       ret->stack_size = 0;
3941       ret->movm_args = 0;
3942       ret->movm_stack_size = 0;
3943       ret->flags = 0;
3944       ret->value = 0;
3945     }
3946
3947   return (struct bfd_hash_entry *) ret;
3948 }
3949
3950 /* Create an mn10300 ELF linker hash table.  */
3951
3952 static struct bfd_link_hash_table *
3953 elf32_mn10300_link_hash_table_create (bfd *abfd)
3954 {
3955   struct elf32_mn10300_link_hash_table *ret;
3956   bfd_size_type amt = sizeof (* ret);
3957
3958   ret = bfd_malloc (amt);
3959   if (ret == NULL)
3960     return NULL;
3961
3962   if (!_bfd_elf_link_hash_table_init (&ret->root, abfd,
3963                                       elf32_mn10300_link_hash_newfunc,
3964                                       sizeof (struct elf32_mn10300_link_hash_entry)))
3965     {
3966       free (ret);
3967       return NULL;
3968     }
3969
3970   ret->flags = 0;
3971   amt = sizeof (struct elf_link_hash_table);
3972   ret->static_hash_table = bfd_malloc (amt);
3973   if (ret->static_hash_table == NULL)
3974     {
3975       free (ret);
3976       return NULL;
3977     }
3978
3979   if (!_bfd_elf_link_hash_table_init (&ret->static_hash_table->root, abfd,
3980                                       elf32_mn10300_link_hash_newfunc,
3981                                       sizeof (struct elf32_mn10300_link_hash_entry)))
3982     {
3983       free (ret->static_hash_table);
3984       free (ret);
3985       return NULL;
3986     }
3987   return & ret->root.root;
3988 }
3989
3990 /* Free an mn10300 ELF linker hash table.  */
3991
3992 static void
3993 elf32_mn10300_link_hash_table_free (struct bfd_link_hash_table *hash)
3994 {
3995   struct elf32_mn10300_link_hash_table *ret
3996     = (struct elf32_mn10300_link_hash_table *) hash;
3997
3998   _bfd_generic_link_hash_table_free
3999     ((struct bfd_link_hash_table *) ret->static_hash_table);
4000   _bfd_generic_link_hash_table_free
4001     ((struct bfd_link_hash_table *) ret);
4002 }
4003
4004 static unsigned long
4005 elf_mn10300_mach (flagword flags)
4006 {
4007   switch (flags & EF_MN10300_MACH)
4008     {
4009     case E_MN10300_MACH_MN10300:
4010     default:
4011       return bfd_mach_mn10300;
4012
4013     case E_MN10300_MACH_AM33:
4014       return bfd_mach_am33;
4015
4016     case E_MN10300_MACH_AM33_2:
4017       return bfd_mach_am33_2;
4018     }
4019 }
4020
4021 /* The final processing done just before writing out a MN10300 ELF object
4022    file.  This gets the MN10300 architecture right based on the machine
4023    number.  */
4024
4025 static void
4026 _bfd_mn10300_elf_final_write_processing (bfd *abfd,
4027                                          bfd_boolean linker ATTRIBUTE_UNUSED)
4028 {
4029   unsigned long val;
4030
4031   switch (bfd_get_mach (abfd))
4032     {
4033     default:
4034     case bfd_mach_mn10300:
4035       val = E_MN10300_MACH_MN10300;
4036       break;
4037
4038     case bfd_mach_am33:
4039       val = E_MN10300_MACH_AM33;
4040       break;
4041
4042     case bfd_mach_am33_2:
4043       val = E_MN10300_MACH_AM33_2;
4044       break;
4045     }
4046
4047   elf_elfheader (abfd)->e_flags &= ~ (EF_MN10300_MACH);
4048   elf_elfheader (abfd)->e_flags |= val;
4049 }
4050
4051 static bfd_boolean
4052 _bfd_mn10300_elf_object_p (bfd *abfd)
4053 {
4054   bfd_default_set_arch_mach (abfd, bfd_arch_mn10300,
4055                              elf_mn10300_mach (elf_elfheader (abfd)->e_flags));
4056   return TRUE;
4057 }
4058
4059 /* Merge backend specific data from an object file to the output
4060    object file when linking.  */
4061
4062 static bfd_boolean
4063 _bfd_mn10300_elf_merge_private_bfd_data (bfd *ibfd, bfd *obfd)
4064 {
4065   if (bfd_get_flavour (ibfd) != bfd_target_elf_flavour
4066       || bfd_get_flavour (obfd) != bfd_target_elf_flavour)
4067     return TRUE;
4068
4069   if (bfd_get_arch (obfd) == bfd_get_arch (ibfd)
4070       && bfd_get_mach (obfd) < bfd_get_mach (ibfd))
4071     {
4072       if (! bfd_set_arch_mach (obfd, bfd_get_arch (ibfd),
4073                                bfd_get_mach (ibfd)))
4074         return FALSE;
4075     }
4076
4077   return TRUE;
4078 }
4079
4080 #define PLT0_ENTRY_SIZE     15
4081 #define PLT_ENTRY_SIZE      20
4082 #define PIC_PLT_ENTRY_SIZE  24
4083
4084 static const bfd_byte elf_mn10300_plt0_entry[PLT0_ENTRY_SIZE] =
4085 {
4086   0xfc, 0xa0, 0, 0, 0, 0,       /* mov  (.got+8),a0 */
4087   0xfe, 0xe, 0x10, 0, 0, 0, 0,  /* mov  (.got+4),r1 */
4088   0xf0, 0xf4,                   /* jmp  (a0) */
4089 };
4090
4091 static const bfd_byte elf_mn10300_plt_entry[PLT_ENTRY_SIZE] =
4092 {
4093   0xfc, 0xa0, 0, 0, 0, 0,       /* mov  (nameN@GOT + .got),a0 */
4094   0xf0, 0xf4,                   /* jmp  (a0) */
4095   0xfe, 8, 0, 0, 0, 0, 0,       /* mov  reloc-table-address,r0 */
4096   0xdc, 0, 0, 0, 0,             /* jmp  .plt0 */
4097 };
4098
4099 static const bfd_byte elf_mn10300_pic_plt_entry[PIC_PLT_ENTRY_SIZE] =
4100 {
4101   0xfc, 0x22, 0, 0, 0, 0,       /* mov  (nameN@GOT,a2),a0 */
4102   0xf0, 0xf4,                   /* jmp  (a0) */
4103   0xfe, 8, 0, 0, 0, 0, 0,       /* mov  reloc-table-address,r0 */
4104   0xf8, 0x22, 8,                /* mov  (8,a2),a0 */
4105   0xfb, 0xa, 0x1a, 4,           /* mov  (4,a2),r1 */
4106   0xf0, 0xf4,                   /* jmp  (a0) */
4107 };
4108
4109 /* Return size of the first PLT entry.  */
4110 #define elf_mn10300_sizeof_plt0(info) \
4111   (info->shared ? PIC_PLT_ENTRY_SIZE : PLT0_ENTRY_SIZE)
4112
4113 /* Return size of a PLT entry.  */
4114 #define elf_mn10300_sizeof_plt(info) \
4115   (info->shared ? PIC_PLT_ENTRY_SIZE : PLT_ENTRY_SIZE)
4116
4117 /* Return offset of the PLT0 address in an absolute PLT entry.  */
4118 #define elf_mn10300_plt_plt0_offset(info) 16
4119
4120 /* Return offset of the linker in PLT0 entry.  */
4121 #define elf_mn10300_plt0_linker_offset(info) 2
4122
4123 /* Return offset of the GOT id in PLT0 entry.  */
4124 #define elf_mn10300_plt0_gotid_offset(info) 9
4125
4126 /* Return offset of the temporary in PLT entry.  */
4127 #define elf_mn10300_plt_temp_offset(info) 8
4128
4129 /* Return offset of the symbol in PLT entry.  */
4130 #define elf_mn10300_plt_symbol_offset(info) 2
4131
4132 /* Return offset of the relocation in PLT entry.  */
4133 #define elf_mn10300_plt_reloc_offset(info) 11
4134
4135 /* The name of the dynamic interpreter.  This is put in the .interp
4136    section.  */
4137
4138 #define ELF_DYNAMIC_INTERPRETER "/lib/ld.so.1"
4139
4140 /* Create dynamic sections when linking against a dynamic object.  */
4141
4142 static bfd_boolean
4143 _bfd_mn10300_elf_create_dynamic_sections (bfd *abfd, struct bfd_link_info *info)
4144 {
4145   flagword   flags;
4146   asection * s;
4147   const struct elf_backend_data * bed = get_elf_backend_data (abfd);
4148   int ptralign = 0;
4149
4150   switch (bed->s->arch_size)
4151     {
4152     case 32:
4153       ptralign = 2;
4154       break;
4155
4156     case 64:
4157       ptralign = 3;
4158       break;
4159
4160     default:
4161       bfd_set_error (bfd_error_bad_value);
4162       return FALSE;
4163     }
4164
4165   /* We need to create .plt, .rel[a].plt, .got, .got.plt, .dynbss, and
4166      .rel[a].bss sections.  */
4167   flags = (SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_IN_MEMORY
4168            | SEC_LINKER_CREATED);
4169
4170   s = bfd_make_section_with_flags (abfd,
4171                                    (bed->default_use_rela_p
4172                                     ? ".rela.plt" : ".rel.plt"),
4173                                    flags | SEC_READONLY);
4174   if (s == NULL
4175       || ! bfd_set_section_alignment (abfd, s, ptralign))
4176     return FALSE;
4177
4178   if (! _bfd_mn10300_elf_create_got_section (abfd, info))
4179     return FALSE;
4180
4181   {
4182     const char * secname;
4183     char *       relname;
4184     flagword     secflags;
4185     asection *   sec;
4186
4187     for (sec = abfd->sections; sec; sec = sec->next)
4188       {
4189         secflags = bfd_get_section_flags (abfd, sec);
4190         if ((secflags & (SEC_DATA | SEC_LINKER_CREATED))
4191             || ((secflags & SEC_HAS_CONTENTS) != SEC_HAS_CONTENTS))
4192           continue;
4193
4194         secname = bfd_get_section_name (abfd, sec);
4195         relname = bfd_malloc (strlen (secname) + 6);
4196         strcpy (relname, ".rela");
4197         strcat (relname, secname);
4198
4199         s = bfd_make_section_with_flags (abfd, relname,
4200                                          flags | SEC_READONLY);
4201         if (s == NULL
4202             || ! bfd_set_section_alignment (abfd, s, ptralign))
4203           return FALSE;
4204       }
4205   }
4206
4207   if (bed->want_dynbss)
4208     {
4209       /* The .dynbss section is a place to put symbols which are defined
4210          by dynamic objects, are referenced by regular objects, and are
4211          not functions.  We must allocate space for them in the process
4212          image and use a R_*_COPY reloc to tell the dynamic linker to
4213          initialize them at run time.  The linker script puts the .dynbss
4214          section into the .bss section of the final image.  */
4215       s = bfd_make_section_with_flags (abfd, ".dynbss",
4216                                        SEC_ALLOC | SEC_LINKER_CREATED);
4217       if (s == NULL)
4218         return FALSE;
4219
4220       /* The .rel[a].bss section holds copy relocs.  This section is not
4221          normally needed.  We need to create it here, though, so that the
4222          linker will map it to an output section.  We can't just create it
4223          only if we need it, because we will not know whether we need it
4224          until we have seen all the input files, and the first time the
4225          main linker code calls BFD after examining all the input files
4226          (size_dynamic_sections) the input sections have already been
4227          mapped to the output sections.  If the section turns out not to
4228          be needed, we can discard it later.  We will never need this
4229          section when generating a shared object, since they do not use
4230          copy relocs.  */
4231       if (! info->shared)
4232         {
4233           s = bfd_make_section_with_flags (abfd,
4234                                            (bed->default_use_rela_p
4235                                             ? ".rela.bss" : ".rel.bss"),
4236                                            flags | SEC_READONLY);
4237           if (s == NULL
4238               || ! bfd_set_section_alignment (abfd, s, ptralign))
4239             return FALSE;
4240         }
4241     }
4242
4243   return TRUE;
4244 }
4245 \f
4246 /* Adjust a symbol defined by a dynamic object and referenced by a
4247    regular object.  The current definition is in some section of the
4248    dynamic object, but we're not including those sections.  We have to
4249    change the definition to something the rest of the link can
4250    understand.  */
4251
4252 static bfd_boolean
4253 _bfd_mn10300_elf_adjust_dynamic_symbol (struct bfd_link_info * info,
4254                                         struct elf_link_hash_entry * h)
4255 {
4256   bfd * dynobj;
4257   asection * s;
4258
4259   dynobj = elf_hash_table (info)->dynobj;
4260
4261   /* Make sure we know what is going on here.  */
4262   BFD_ASSERT (dynobj != NULL
4263               && (h->needs_plt
4264                   || h->u.weakdef != NULL
4265                   || (h->def_dynamic
4266                       && h->ref_regular
4267                       && !h->def_regular)));
4268
4269   /* If this is a function, put it in the procedure linkage table.  We
4270      will fill in the contents of the procedure linkage table later,
4271      when we know the address of the .got section.  */
4272   if (h->type == STT_FUNC
4273       || h->needs_plt)
4274     {
4275       if (! info->shared
4276           && !h->def_dynamic
4277           && !h->ref_dynamic)
4278         {
4279           /* This case can occur if we saw a PLT reloc in an input
4280              file, but the symbol was never referred to by a dynamic
4281              object.  In such a case, we don't actually need to build
4282              a procedure linkage table, and we can just do a REL32
4283              reloc instead.  */
4284           BFD_ASSERT (h->needs_plt);
4285           return TRUE;
4286         }
4287
4288       /* Make sure this symbol is output as a dynamic symbol.  */
4289       if (h->dynindx == -1)
4290         {
4291           if (! bfd_elf_link_record_dynamic_symbol (info, h))
4292             return FALSE;
4293         }
4294
4295       s = bfd_get_section_by_name (dynobj, ".plt");
4296       BFD_ASSERT (s != NULL);
4297
4298       /* If this is the first .plt entry, make room for the special
4299          first entry.  */
4300       if (s->size == 0)
4301         s->size += elf_mn10300_sizeof_plt0 (info);
4302
4303       /* If this symbol is not defined in a regular file, and we are
4304          not generating a shared library, then set the symbol to this
4305          location in the .plt.  This is required to make function
4306          pointers compare as equal between the normal executable and
4307          the shared library.  */
4308       if (! info->shared
4309           && !h->def_regular)
4310         {
4311           h->root.u.def.section = s;
4312           h->root.u.def.value = s->size;
4313         }
4314
4315       h->plt.offset = s->size;
4316
4317       /* Make room for this entry.  */
4318       s->size += elf_mn10300_sizeof_plt (info);
4319
4320       /* We also need to make an entry in the .got.plt section, which
4321          will be placed in the .got section by the linker script.  */
4322       s = bfd_get_section_by_name (dynobj, ".got.plt");
4323       BFD_ASSERT (s != NULL);
4324       s->size += 4;
4325
4326       /* We also need to make an entry in the .rela.plt section.  */
4327       s = bfd_get_section_by_name (dynobj, ".rela.plt");
4328       BFD_ASSERT (s != NULL);
4329       s->size += sizeof (Elf32_External_Rela);
4330
4331       return TRUE;
4332     }
4333
4334   /* If this is a weak symbol, and there is a real definition, the
4335      processor independent code will have arranged for us to see the
4336      real definition first, and we can just use the same value.  */
4337   if (h->u.weakdef != NULL)
4338     {
4339       BFD_ASSERT (h->u.weakdef->root.type == bfd_link_hash_defined
4340                   || h->u.weakdef->root.type == bfd_link_hash_defweak);
4341       h->root.u.def.section = h->u.weakdef->root.u.def.section;
4342       h->root.u.def.value = h->u.weakdef->root.u.def.value;
4343       return TRUE;
4344     }
4345
4346   /* This is a reference to a symbol defined by a dynamic object which
4347      is not a function.  */
4348
4349   /* If we are creating a shared library, we must presume that the
4350      only references to the symbol are via the global offset table.
4351      For such cases we need not do anything here; the relocations will
4352      be handled correctly by relocate_section.  */
4353   if (info->shared)
4354     return TRUE;
4355
4356   /* If there are no references to this symbol that do not use the
4357      GOT, we don't need to generate a copy reloc.  */
4358   if (!h->non_got_ref)
4359     return TRUE;
4360
4361   if (h->size == 0)
4362     {
4363       (*_bfd_error_handler) (_("dynamic variable `%s' is zero size"),
4364                              h->root.root.string);
4365       return TRUE;
4366     }
4367
4368   /* We must allocate the symbol in our .dynbss section, which will
4369      become part of the .bss section of the executable.  There will be
4370      an entry for this symbol in the .dynsym section.  The dynamic
4371      object will contain position independent code, so all references
4372      from the dynamic object to this symbol will go through the global
4373      offset table.  The dynamic linker will use the .dynsym entry to
4374      determine the address it must put in the global offset table, so
4375      both the dynamic object and the regular object will refer to the
4376      same memory location for the variable.  */
4377
4378   s = bfd_get_section_by_name (dynobj, ".dynbss");
4379   BFD_ASSERT (s != NULL);
4380
4381   /* We must generate a R_MN10300_COPY reloc to tell the dynamic linker to
4382      copy the initial value out of the dynamic object and into the
4383      runtime process image.  We need to remember the offset into the
4384      .rela.bss section we are going to use.  */
4385   if ((h->root.u.def.section->flags & SEC_ALLOC) != 0)
4386     {
4387       asection * srel;
4388
4389       srel = bfd_get_section_by_name (dynobj, ".rela.bss");
4390       BFD_ASSERT (srel != NULL);
4391       srel->size += sizeof (Elf32_External_Rela);
4392       h->needs_copy = 1;
4393     }
4394
4395   return _bfd_elf_adjust_dynamic_copy (h, s);
4396 }
4397
4398 /* Set the sizes of the dynamic sections.  */
4399
4400 static bfd_boolean
4401 _bfd_mn10300_elf_size_dynamic_sections (bfd * output_bfd,
4402                                         struct bfd_link_info * info)
4403 {
4404   bfd * dynobj;
4405   asection * s;
4406   bfd_boolean plt;
4407   bfd_boolean relocs;
4408   bfd_boolean reltext;
4409
4410   dynobj = elf_hash_table (info)->dynobj;
4411   BFD_ASSERT (dynobj != NULL);
4412
4413   if (elf_hash_table (info)->dynamic_sections_created)
4414     {
4415       /* Set the contents of the .interp section to the interpreter.  */
4416       if (info->executable)
4417         {
4418           s = bfd_get_section_by_name (dynobj, ".interp");
4419           BFD_ASSERT (s != NULL);
4420           s->size = sizeof ELF_DYNAMIC_INTERPRETER;
4421           s->contents = (unsigned char *) ELF_DYNAMIC_INTERPRETER;
4422         }
4423     }
4424   else
4425     {
4426       /* We may have created entries in the .rela.got section.
4427          However, if we are not creating the dynamic sections, we will
4428          not actually use these entries.  Reset the size of .rela.got,
4429          which will cause it to get stripped from the output file
4430          below.  */
4431       s = bfd_get_section_by_name (dynobj, ".rela.got");
4432       if (s != NULL)
4433         s->size = 0;
4434     }
4435
4436   /* The check_relocs and adjust_dynamic_symbol entry points have
4437      determined the sizes of the various dynamic sections.  Allocate
4438      memory for them.  */
4439   plt = FALSE;
4440   relocs = FALSE;
4441   reltext = FALSE;
4442   for (s = dynobj->sections; s != NULL; s = s->next)
4443     {
4444       const char * name;
4445
4446       if ((s->flags & SEC_LINKER_CREATED) == 0)
4447         continue;
4448
4449       /* It's OK to base decisions on the section name, because none
4450          of the dynobj section names depend upon the input files.  */
4451       name = bfd_get_section_name (dynobj, s);
4452
4453       if (streq (name, ".plt"))
4454         {
4455           /* Remember whether there is a PLT.  */
4456           plt = s->size != 0;
4457         }
4458       else if (CONST_STRNEQ (name, ".rela"))
4459         {
4460           if (s->size != 0)
4461             {
4462               asection * target;
4463
4464               /* Remember whether there are any reloc sections other
4465                  than .rela.plt.  */
4466               if (! streq (name, ".rela.plt"))
4467                 {
4468                   const char * outname;
4469
4470                   relocs = TRUE;
4471
4472                   /* If this relocation section applies to a read only
4473                      section, then we probably need a DT_TEXTREL
4474                      entry.  The entries in the .rela.plt section
4475                      really apply to the .got section, which we
4476                      created ourselves and so know is not readonly.  */
4477                   outname = bfd_get_section_name (output_bfd,
4478                                                   s->output_section);
4479                   target = bfd_get_section_by_name (output_bfd, outname + 5);
4480                   if (target != NULL
4481                       && (target->flags & SEC_READONLY) != 0
4482                       && (target->flags & SEC_ALLOC) != 0)
4483                     reltext = TRUE;
4484                 }
4485
4486               /* We use the reloc_count field as a counter if we need
4487                  to copy relocs into the output file.  */
4488               s->reloc_count = 0;
4489             }
4490         }
4491       else if (! CONST_STRNEQ (name, ".got")
4492                && ! streq (name, ".dynbss"))
4493         /* It's not one of our sections, so don't allocate space.  */
4494         continue;
4495
4496       if (s->size == 0)
4497         {
4498           /* If we don't need this section, strip it from the
4499              output file.  This is mostly to handle .rela.bss and
4500              .rela.plt.  We must create both sections in
4501              create_dynamic_sections, because they must be created
4502              before the linker maps input sections to output
4503              sections.  The linker does that before
4504              adjust_dynamic_symbol is called, and it is that
4505              function which decides whether anything needs to go
4506              into these sections.  */
4507           s->flags |= SEC_EXCLUDE;
4508           continue;
4509         }
4510
4511         if ((s->flags & SEC_HAS_CONTENTS) == 0)
4512           continue;
4513
4514       /* Allocate memory for the section contents.  We use bfd_zalloc
4515          here in case unused entries are not reclaimed before the
4516          section's contents are written out.  This should not happen,
4517          but this way if it does, we get a R_MN10300_NONE reloc
4518          instead of garbage.  */
4519       s->contents = bfd_zalloc (dynobj, s->size);
4520       if (s->contents == NULL)
4521         return FALSE;
4522     }
4523
4524   if (elf_hash_table (info)->dynamic_sections_created)
4525     {
4526       /* Add some entries to the .dynamic section.  We fill in the
4527          values later, in _bfd_mn10300_elf_finish_dynamic_sections,
4528          but we must add the entries now so that we get the correct
4529          size for the .dynamic section.  The DT_DEBUG entry is filled
4530          in by the dynamic linker and used by the debugger.  */
4531       if (! info->shared)
4532         {
4533           if (!_bfd_elf_add_dynamic_entry (info, DT_DEBUG, 0))
4534             return FALSE;
4535         }
4536
4537       if (plt)
4538         {
4539           if (!_bfd_elf_add_dynamic_entry (info, DT_PLTGOT, 0)
4540               || !_bfd_elf_add_dynamic_entry (info, DT_PLTRELSZ, 0)
4541               || !_bfd_elf_add_dynamic_entry (info, DT_PLTREL, DT_RELA)
4542               || !_bfd_elf_add_dynamic_entry (info, DT_JMPREL, 0))
4543             return FALSE;
4544         }
4545
4546       if (relocs)
4547         {
4548           if (!_bfd_elf_add_dynamic_entry (info, DT_RELA, 0)
4549               || !_bfd_elf_add_dynamic_entry (info, DT_RELASZ, 0)
4550               || !_bfd_elf_add_dynamic_entry (info, DT_RELAENT,
4551                                               sizeof (Elf32_External_Rela)))
4552             return FALSE;
4553         }
4554
4555       if (reltext)
4556         {
4557           if (!_bfd_elf_add_dynamic_entry (info, DT_TEXTREL, 0))
4558             return FALSE;
4559         }
4560     }
4561
4562   return TRUE;
4563 }
4564
4565 /* Finish up dynamic symbol handling.  We set the contents of various
4566    dynamic sections here.  */
4567
4568 static bfd_boolean
4569 _bfd_mn10300_elf_finish_dynamic_symbol (bfd * output_bfd,
4570                                         struct bfd_link_info * info,
4571                                         struct elf_link_hash_entry * h,
4572                                         Elf_Internal_Sym * sym)
4573 {
4574   bfd * dynobj;
4575
4576   dynobj = elf_hash_table (info)->dynobj;
4577
4578   if (h->plt.offset != (bfd_vma) -1)
4579     {
4580       asection *        splt;
4581       asection *        sgot;
4582       asection *        srel;
4583       bfd_vma           plt_index;
4584       bfd_vma           got_offset;
4585       Elf_Internal_Rela rel;
4586
4587       /* This symbol has an entry in the procedure linkage table.  Set
4588          it up.  */
4589
4590       BFD_ASSERT (h->dynindx != -1);
4591
4592       splt = bfd_get_section_by_name (dynobj, ".plt");
4593       sgot = bfd_get_section_by_name (dynobj, ".got.plt");
4594       srel = bfd_get_section_by_name (dynobj, ".rela.plt");
4595       BFD_ASSERT (splt != NULL && sgot != NULL && srel != NULL);
4596
4597       /* Get the index in the procedure linkage table which
4598          corresponds to this symbol.  This is the index of this symbol
4599          in all the symbols for which we are making plt entries.  The
4600          first entry in the procedure linkage table is reserved.  */
4601       plt_index = ((h->plt.offset - elf_mn10300_sizeof_plt0 (info))
4602                    / elf_mn10300_sizeof_plt (info));
4603
4604       /* Get the offset into the .got table of the entry that
4605          corresponds to this function.  Each .got entry is 4 bytes.
4606          The first three are reserved.  */
4607       got_offset = (plt_index + 3) * 4;
4608
4609       /* Fill in the entry in the procedure linkage table.  */
4610       if (! info->shared)
4611         {
4612           memcpy (splt->contents + h->plt.offset, elf_mn10300_plt_entry,
4613                   elf_mn10300_sizeof_plt (info));
4614           bfd_put_32 (output_bfd,
4615                       (sgot->output_section->vma
4616                        + sgot->output_offset
4617                        + got_offset),
4618                       (splt->contents + h->plt.offset
4619                        + elf_mn10300_plt_symbol_offset (info)));
4620
4621           bfd_put_32 (output_bfd,
4622                       (1 - h->plt.offset - elf_mn10300_plt_plt0_offset (info)),
4623                       (splt->contents + h->plt.offset
4624                        + elf_mn10300_plt_plt0_offset (info)));
4625         }
4626       else
4627         {
4628           memcpy (splt->contents + h->plt.offset, elf_mn10300_pic_plt_entry,
4629                   elf_mn10300_sizeof_plt (info));
4630
4631           bfd_put_32 (output_bfd, got_offset,
4632                       (splt->contents + h->plt.offset
4633                        + elf_mn10300_plt_symbol_offset (info)));
4634         }
4635
4636       bfd_put_32 (output_bfd, plt_index * sizeof (Elf32_External_Rela),
4637                   (splt->contents + h->plt.offset
4638                    + elf_mn10300_plt_reloc_offset (info)));
4639
4640       /* Fill in the entry in the global offset table.  */
4641       bfd_put_32 (output_bfd,
4642                   (splt->output_section->vma
4643                    + splt->output_offset
4644                    + h->plt.offset
4645                    + elf_mn10300_plt_temp_offset (info)),
4646                   sgot->contents + got_offset);
4647
4648       /* Fill in the entry in the .rela.plt section.  */
4649       rel.r_offset = (sgot->output_section->vma
4650                       + sgot->output_offset
4651                       + got_offset);
4652       rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_JMP_SLOT);
4653       rel.r_addend = 0;
4654       bfd_elf32_swap_reloca_out (output_bfd, &rel,
4655                                  (bfd_byte *) ((Elf32_External_Rela *) srel->contents
4656                                                + plt_index));
4657
4658       if (!h->def_regular)
4659         /* Mark the symbol as undefined, rather than as defined in
4660            the .plt section.  Leave the value alone.  */
4661         sym->st_shndx = SHN_UNDEF;
4662     }
4663
4664   if (h->got.offset != (bfd_vma) -1)
4665     {
4666       asection *        sgot;
4667       asection *        srel;
4668       Elf_Internal_Rela rel;
4669
4670       /* This symbol has an entry in the global offset table.  Set it up.  */
4671       sgot = bfd_get_section_by_name (dynobj, ".got");
4672       srel = bfd_get_section_by_name (dynobj, ".rela.got");
4673       BFD_ASSERT (sgot != NULL && srel != NULL);
4674
4675       rel.r_offset = (sgot->output_section->vma
4676                       + sgot->output_offset
4677                       + (h->got.offset & ~1));
4678
4679       /* If this is a -Bsymbolic link, and the symbol is defined
4680          locally, we just want to emit a RELATIVE reloc.  Likewise if
4681          the symbol was forced to be local because of a version file.
4682          The entry in the global offset table will already have been
4683          initialized in the relocate_section function.  */
4684       if (info->shared
4685           && (info->symbolic || h->dynindx == -1)
4686           && h->def_regular)
4687         {
4688           rel.r_info = ELF32_R_INFO (0, R_MN10300_RELATIVE);
4689           rel.r_addend = (h->root.u.def.value
4690                           + h->root.u.def.section->output_section->vma
4691                           + h->root.u.def.section->output_offset);
4692         }
4693       else
4694         {
4695           bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + h->got.offset);
4696           rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_GLOB_DAT);
4697           rel.r_addend = 0;
4698         }
4699
4700       bfd_elf32_swap_reloca_out (output_bfd, &rel,
4701                                  (bfd_byte *) ((Elf32_External_Rela *) srel->contents
4702                                                + srel->reloc_count));
4703       ++ srel->reloc_count;
4704     }
4705
4706   if (h->needs_copy)
4707     {
4708       asection *        s;
4709       Elf_Internal_Rela rel;
4710
4711       /* This symbol needs a copy reloc.  Set it up.  */
4712       BFD_ASSERT (h->dynindx != -1
4713                   && (h->root.type == bfd_link_hash_defined
4714                       || h->root.type == bfd_link_hash_defweak));
4715
4716       s = bfd_get_section_by_name (h->root.u.def.section->owner,
4717                                    ".rela.bss");
4718       BFD_ASSERT (s != NULL);
4719
4720       rel.r_offset = (h->root.u.def.value
4721                       + h->root.u.def.section->output_section->vma
4722                       + h->root.u.def.section->output_offset);
4723       rel.r_info = ELF32_R_INFO (h->dynindx, R_MN10300_COPY);
4724       rel.r_addend = 0;
4725       bfd_elf32_swap_reloca_out (output_bfd, & rel,
4726                                  (bfd_byte *) ((Elf32_External_Rela *) s->contents
4727                                                + s->reloc_count));
4728       ++ s->reloc_count;
4729     }
4730
4731   /* Mark _DYNAMIC and _GLOBAL_OFFSET_TABLE_ as absolute.  */
4732   if (streq (h->root.root.string, "_DYNAMIC")
4733       || h == elf_hash_table (info)->hgot)
4734     sym->st_shndx = SHN_ABS;
4735
4736   return TRUE;
4737 }
4738
4739 /* Finish up the dynamic sections.  */
4740
4741 static bfd_boolean
4742 _bfd_mn10300_elf_finish_dynamic_sections (bfd * output_bfd,
4743                                           struct bfd_link_info * info)
4744 {
4745   bfd *      dynobj;
4746   asection * sgot;
4747   asection * sdyn;
4748
4749   dynobj = elf_hash_table (info)->dynobj;
4750
4751   sgot = bfd_get_section_by_name (dynobj, ".got.plt");
4752   BFD_ASSERT (sgot != NULL);
4753   sdyn = bfd_get_section_by_name (dynobj, ".dynamic");
4754
4755   if (elf_hash_table (info)->dynamic_sections_created)
4756     {
4757       asection *           splt;
4758       Elf32_External_Dyn * dyncon;
4759       Elf32_External_Dyn * dynconend;
4760
4761       BFD_ASSERT (sdyn != NULL);
4762
4763       dyncon = (Elf32_External_Dyn *) sdyn->contents;
4764       dynconend = (Elf32_External_Dyn *) (sdyn->contents + sdyn->size);
4765
4766       for (; dyncon < dynconend; dyncon++)
4767         {
4768           Elf_Internal_Dyn dyn;
4769           const char * name;
4770           asection * s;
4771
4772           bfd_elf32_swap_dyn_in (dynobj, dyncon, &dyn);
4773
4774           switch (dyn.d_tag)
4775             {
4776             default:
4777               break;
4778
4779             case DT_PLTGOT:
4780               name = ".got";
4781               goto get_vma;
4782
4783             case DT_JMPREL:
4784               name = ".rela.plt";
4785             get_vma:
4786               s = bfd_get_section_by_name (output_bfd, name);
4787               BFD_ASSERT (s != NULL);
4788               dyn.d_un.d_ptr = s->vma;
4789               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4790               break;
4791
4792             case DT_PLTRELSZ:
4793               s = bfd_get_section_by_name (output_bfd, ".rela.plt");
4794               BFD_ASSERT (s != NULL);
4795               dyn.d_un.d_val = s->size;
4796               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4797               break;
4798
4799             case DT_RELASZ:
4800               /* My reading of the SVR4 ABI indicates that the
4801                  procedure linkage table relocs (DT_JMPREL) should be
4802                  included in the overall relocs (DT_RELA).  This is
4803                  what Solaris does.  However, UnixWare can not handle
4804                  that case.  Therefore, we override the DT_RELASZ entry
4805                  here to make it not include the JMPREL relocs.  Since
4806                  the linker script arranges for .rela.plt to follow all
4807                  other relocation sections, we don't have to worry
4808                  about changing the DT_RELA entry.  */
4809               s = bfd_get_section_by_name (output_bfd, ".rela.plt");
4810               if (s != NULL)
4811                 dyn.d_un.d_val -= s->size;
4812               bfd_elf32_swap_dyn_out (output_bfd, &dyn, dyncon);
4813               break;
4814             }
4815         }
4816
4817       /* Fill in the first entry in the procedure linkage table.  */
4818       splt = bfd_get_section_by_name (dynobj, ".plt");
4819       if (splt && splt->size > 0)
4820         {
4821           if (info->shared)
4822             {
4823               memcpy (splt->contents, elf_mn10300_pic_plt_entry,
4824                       elf_mn10300_sizeof_plt (info));
4825             }
4826           else
4827             {
4828               memcpy (splt->contents, elf_mn10300_plt0_entry, PLT0_ENTRY_SIZE);
4829               bfd_put_32 (output_bfd,
4830                           sgot->output_section->vma + sgot->output_offset + 4,
4831                           splt->contents + elf_mn10300_plt0_gotid_offset (info));
4832               bfd_put_32 (output_bfd,
4833                           sgot->output_section->vma + sgot->output_offset + 8,
4834                           splt->contents + elf_mn10300_plt0_linker_offset (info));
4835             }
4836
4837           /* UnixWare sets the entsize of .plt to 4, although that doesn't
4838              really seem like the right value.  */
4839           elf_section_data (splt->output_section)->this_hdr.sh_entsize = 4;
4840         }
4841     }
4842
4843   /* Fill in the first three entries in the global offset table.  */
4844   if (sgot->size > 0)
4845     {
4846       if (sdyn == NULL)
4847         bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents);
4848       else
4849         bfd_put_32 (output_bfd,
4850                     sdyn->output_section->vma + sdyn->output_offset,
4851                     sgot->contents);
4852       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 4);
4853       bfd_put_32 (output_bfd, (bfd_vma) 0, sgot->contents + 8);
4854     }
4855
4856   elf_section_data (sgot->output_section)->this_hdr.sh_entsize = 4;
4857
4858   return TRUE;
4859 }
4860
4861 /* Classify relocation types, such that combreloc can sort them
4862    properly.  */
4863
4864 static enum elf_reloc_type_class
4865 _bfd_mn10300_elf_reloc_type_class (const Elf_Internal_Rela *rela)
4866 {
4867   switch ((int) ELF32_R_TYPE (rela->r_info))
4868     {
4869     case R_MN10300_RELATIVE:    return reloc_class_relative;
4870     case R_MN10300_JMP_SLOT:    return reloc_class_plt;
4871     case R_MN10300_COPY:        return reloc_class_copy;
4872     default:                    return reloc_class_normal;
4873     }
4874 }
4875
4876 #ifndef ELF_ARCH
4877 #define TARGET_LITTLE_SYM       bfd_elf32_mn10300_vec
4878 #define TARGET_LITTLE_NAME      "elf32-mn10300"
4879 #define ELF_ARCH                bfd_arch_mn10300
4880 #define ELF_MACHINE_CODE        EM_MN10300
4881 #define ELF_MACHINE_ALT1        EM_CYGNUS_MN10300
4882 #define ELF_MAXPAGESIZE         0x1000
4883 #endif
4884
4885 #define elf_info_to_howto               mn10300_info_to_howto
4886 #define elf_info_to_howto_rel           0
4887 #define elf_backend_can_gc_sections     1
4888 #define elf_backend_rela_normal         1
4889 #define elf_backend_check_relocs        mn10300_elf_check_relocs
4890 #define elf_backend_gc_mark_hook        mn10300_elf_gc_mark_hook
4891 #define elf_backend_relocate_section    mn10300_elf_relocate_section
4892 #define bfd_elf32_bfd_relax_section     mn10300_elf_relax_section
4893 #define bfd_elf32_bfd_get_relocated_section_contents \
4894                                 mn10300_elf_get_relocated_section_contents
4895 #define bfd_elf32_bfd_link_hash_table_create \
4896                                 elf32_mn10300_link_hash_table_create
4897 #define bfd_elf32_bfd_link_hash_table_free \
4898                                 elf32_mn10300_link_hash_table_free
4899
4900 #ifndef elf_symbol_leading_char
4901 #define elf_symbol_leading_char '_'
4902 #endif
4903
4904 /* So we can set bits in e_flags.  */
4905 #define elf_backend_final_write_processing \
4906                                         _bfd_mn10300_elf_final_write_processing
4907 #define elf_backend_object_p            _bfd_mn10300_elf_object_p
4908
4909 #define bfd_elf32_bfd_merge_private_bfd_data \
4910                                         _bfd_mn10300_elf_merge_private_bfd_data
4911
4912 #define elf_backend_can_gc_sections     1
4913 #define elf_backend_create_dynamic_sections \
4914   _bfd_mn10300_elf_create_dynamic_sections
4915 #define elf_backend_adjust_dynamic_symbol \
4916   _bfd_mn10300_elf_adjust_dynamic_symbol
4917 #define elf_backend_size_dynamic_sections \
4918   _bfd_mn10300_elf_size_dynamic_sections
4919 #define elf_backend_omit_section_dynsym \
4920   ((bfd_boolean (*) (bfd *, struct bfd_link_info *, asection *)) bfd_true)
4921 #define elf_backend_finish_dynamic_symbol \
4922   _bfd_mn10300_elf_finish_dynamic_symbol
4923 #define elf_backend_finish_dynamic_sections \
4924   _bfd_mn10300_elf_finish_dynamic_sections
4925
4926 #define elf_backend_reloc_type_class \
4927   _bfd_mn10300_elf_reloc_type_class
4928
4929 #define elf_backend_want_got_plt        1
4930 #define elf_backend_plt_readonly        1
4931 #define elf_backend_want_plt_sym        0
4932 #define elf_backend_got_header_size     12
4933
4934 #include "elf32-target.h"