Home | History | Annotate | Line # | Download | only in bfd
elf32-m68hc11.c revision 1.1.1.9
      1 /* Motorola 68HC11-specific support for 32-bit ELF
      2    Copyright (C) 1999-2024 Free Software Foundation, Inc.
      3    Contributed by Stephane Carrez (stcarrez (at) nerim.fr)
      4    (Heavily copied from the D10V port by Martin Hunt (hunt (at) cygnus.com))
      5 
      6    This file is part of BFD, the Binary File Descriptor library.
      7 
      8    This program is free software; you can redistribute it and/or modify
      9    it under the terms of the GNU General Public License as published by
     10    the Free Software Foundation; either version 3 of the License, or
     11    (at your option) any later version.
     12 
     13    This program is distributed in the hope that it will be useful,
     14    but WITHOUT ANY WARRANTY; without even the implied warranty of
     15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     16    GNU General Public License for more details.
     17 
     18    You should have received a copy of the GNU General Public License
     19    along with this program; if not, write to the Free Software
     20    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
     21    MA 02110-1301, USA.  */
     22 
     23 #include "sysdep.h"
     24 #include "bfd.h"
     25 #include "bfdlink.h"
     26 #include "libbfd.h"
     27 #include "elf-bfd.h"
     28 #include "elf32-m68hc1x.h"
     29 #include "elf/m68hc11.h"
     30 #include "opcode/m68hc11.h"
     31 
     32 /* Relocation functions.  */
     33 static reloc_howto_type *bfd_elf32_bfd_reloc_type_lookup
     34   (bfd *, bfd_reloc_code_real_type);
     35 static bool m68hc11_info_to_howto_rel
     36   (bfd *, arelent *, Elf_Internal_Rela *);
     37 
     38 /* Trampoline generation.  */
     39 static bool m68hc11_elf_size_one_stub
     40   (struct bfd_hash_entry *gen_entry, void *in_arg);
     41 static bool m68hc11_elf_build_one_stub
     42   (struct bfd_hash_entry *gen_entry, void *in_arg);
     43 static struct bfd_link_hash_table* m68hc11_elf_bfd_link_hash_table_create
     44   (bfd* abfd);
     45 
     46 /* Linker relaxation.  */
     47 static bool m68hc11_elf_relax_section
     48   (bfd *, asection *, struct bfd_link_info *, bool *);
     49 static void m68hc11_elf_relax_delete_bytes
     50   (bfd *, asection *, bfd_vma, int);
     51 static void m68hc11_relax_group
     52   (bfd *, asection *, bfd_byte *, unsigned, unsigned long, unsigned long);
     53 static int compare_reloc (const void *, const void *);
     54 
     55 /* Use REL instead of RELA to save space */
     56 #define USE_REL	1
     57 
     58 /* The Motorola 68HC11 microcontroller only addresses 64Kb but we also
     59    support a memory bank switching mechanism similar to 68HC12.
     60    We must handle 8 and 16-bit relocations.  The 32-bit relocation
     61    are used for debugging sections (DWARF2) to represent a virtual
     62    address.
     63    The 3-bit and 16-bit PC rel relocation is only used by 68HC12.  */
     64 static reloc_howto_type elf_m68hc11_howto_table[] = {
     65   /* This reloc does nothing.  */
     66   HOWTO (R_M68HC11_NONE,	/* type */
     67 	 0,			/* rightshift */
     68 	 0,			/* size */
     69 	 0,			/* bitsize */
     70 	 false,			/* pc_relative */
     71 	 0,			/* bitpos */
     72 	 complain_overflow_dont,/* complain_on_overflow */
     73 	 bfd_elf_generic_reloc,	/* special_function */
     74 	 "R_M68HC11_NONE",	/* name */
     75 	 false,			/* partial_inplace */
     76 	 0,			/* src_mask */
     77 	 0,			/* dst_mask */
     78 	 false),		/* pcrel_offset */
     79 
     80   /* A 8 bit absolute relocation */
     81   HOWTO (R_M68HC11_8,		/* type */
     82 	 0,			/* rightshift */
     83 	 1,			/* size */
     84 	 8,			/* bitsize */
     85 	 false,			/* pc_relative */
     86 	 0,			/* bitpos */
     87 	 complain_overflow_bitfield,	/* complain_on_overflow */
     88 	 bfd_elf_generic_reloc,	/* special_function */
     89 	 "R_M68HC11_8",		/* name */
     90 	 false,			/* partial_inplace */
     91 	 0x00ff,		/* src_mask */
     92 	 0x00ff,		/* dst_mask */
     93 	 false),		/* pcrel_offset */
     94 
     95   /* A 8 bit absolute relocation (upper address) */
     96   HOWTO (R_M68HC11_HI8,		/* type */
     97 	 8,			/* rightshift */
     98 	 1,			/* size */
     99 	 8,			/* bitsize */
    100 	 false,			/* pc_relative */
    101 	 0,			/* bitpos */
    102 	 complain_overflow_bitfield,	/* complain_on_overflow */
    103 	 bfd_elf_generic_reloc,	/* special_function */
    104 	 "R_M68HC11_HI8",	/* name */
    105 	 false,			/* partial_inplace */
    106 	 0x00ff,		/* src_mask */
    107 	 0x00ff,		/* dst_mask */
    108 	 false),		/* pcrel_offset */
    109 
    110   /* A 8 bit absolute relocation (upper address) */
    111   HOWTO (R_M68HC11_LO8,		/* type */
    112 	 0,			/* rightshift */
    113 	 1,			/* size */
    114 	 8,			/* bitsize */
    115 	 false,			/* pc_relative */
    116 	 0,			/* bitpos */
    117 	 complain_overflow_dont,	/* complain_on_overflow */
    118 	 bfd_elf_generic_reloc,	/* special_function */
    119 	 "R_M68HC11_LO8",	/* name */
    120 	 false,			/* partial_inplace */
    121 	 0x00ff,		/* src_mask */
    122 	 0x00ff,		/* dst_mask */
    123 	 false),		/* pcrel_offset */
    124 
    125   /* A 8 bit PC-rel relocation */
    126   HOWTO (R_M68HC11_PCREL_8,	/* type */
    127 	 0,			/* rightshift */
    128 	 1,			/* size */
    129 	 8,			/* bitsize */
    130 	 true,			/* pc_relative */
    131 	 0,			/* bitpos */
    132 	 complain_overflow_bitfield,	/* complain_on_overflow */
    133 	 bfd_elf_generic_reloc,	/* special_function */
    134 	 "R_M68HC11_PCREL_8",	/* name */
    135 	 false,			/* partial_inplace */
    136 	 0x00ff,		/* src_mask */
    137 	 0x00ff,		/* dst_mask */
    138 	 true),			/* pcrel_offset */
    139 
    140   /* A 16 bit absolute relocation */
    141   HOWTO (R_M68HC11_16,		/* type */
    142 	 0,			/* rightshift */
    143 	 2,			/* size */
    144 	 16,			/* bitsize */
    145 	 false,			/* pc_relative */
    146 	 0,			/* bitpos */
    147 	 complain_overflow_dont /*bitfield */ ,	/* complain_on_overflow */
    148 	 bfd_elf_generic_reloc,	/* special_function */
    149 	 "R_M68HC11_16",	/* name */
    150 	 false,			/* partial_inplace */
    151 	 0xffff,		/* src_mask */
    152 	 0xffff,		/* dst_mask */
    153 	 false),		/* pcrel_offset */
    154 
    155   /* A 32 bit absolute relocation.  This one is never used for the
    156      code relocation.  It's used by gas for -gstabs generation.  */
    157   HOWTO (R_M68HC11_32,		/* type */
    158 	 0,			/* rightshift */
    159 	 4,			/* size */
    160 	 32,			/* bitsize */
    161 	 false,			/* pc_relative */
    162 	 0,			/* bitpos */
    163 	 complain_overflow_bitfield,	/* complain_on_overflow */
    164 	 bfd_elf_generic_reloc,	/* special_function */
    165 	 "R_M68HC11_32",	/* name */
    166 	 false,			/* partial_inplace */
    167 	 0xffffffff,		/* src_mask */
    168 	 0xffffffff,		/* dst_mask */
    169 	 false),		/* pcrel_offset */
    170 
    171   /* A 3 bit absolute relocation */
    172   HOWTO (R_M68HC11_3B,		/* type */
    173 	 0,			/* rightshift */
    174 	 1,			/* size */
    175 	 3,			/* bitsize */
    176 	 false,			/* pc_relative */
    177 	 0,			/* bitpos */
    178 	 complain_overflow_bitfield,	/* complain_on_overflow */
    179 	 bfd_elf_generic_reloc,	/* special_function */
    180 	 "R_M68HC11_4B",	/* name */
    181 	 false,			/* partial_inplace */
    182 	 0x003,			/* src_mask */
    183 	 0x003,			/* dst_mask */
    184 	 false),		/* pcrel_offset */
    185 
    186   /* A 16 bit PC-rel relocation */
    187   HOWTO (R_M68HC11_PCREL_16,	/* type */
    188 	 0,			/* rightshift */
    189 	 2,			/* size */
    190 	 16,			/* bitsize */
    191 	 true,			/* pc_relative */
    192 	 0,			/* bitpos */
    193 	 complain_overflow_dont,	/* complain_on_overflow */
    194 	 bfd_elf_generic_reloc,	/* special_function */
    195 	 "R_M68HC11_PCREL_16",	/* name */
    196 	 false,			/* partial_inplace */
    197 	 0xffff,		/* src_mask */
    198 	 0xffff,		/* dst_mask */
    199 	 true),			/* pcrel_offset */
    200 
    201   /* GNU extension to record C++ vtable hierarchy */
    202   HOWTO (R_M68HC11_GNU_VTINHERIT,	/* type */
    203 	 0,			/* rightshift */
    204 	 2,			/* size */
    205 	 0,			/* bitsize */
    206 	 false,			/* pc_relative */
    207 	 0,			/* bitpos */
    208 	 complain_overflow_dont,	/* complain_on_overflow */
    209 	 NULL,			/* special_function */
    210 	 "R_M68HC11_GNU_VTINHERIT",	/* name */
    211 	 false,			/* partial_inplace */
    212 	 0,			/* src_mask */
    213 	 0,			/* dst_mask */
    214 	 false),		/* pcrel_offset */
    215 
    216   /* GNU extension to record C++ vtable member usage */
    217   HOWTO (R_M68HC11_GNU_VTENTRY,	/* type */
    218 	 0,			/* rightshift */
    219 	 2,			/* size */
    220 	 0,			/* bitsize */
    221 	 false,			/* pc_relative */
    222 	 0,			/* bitpos */
    223 	 complain_overflow_dont,	/* complain_on_overflow */
    224 	 _bfd_elf_rel_vtable_reloc_fn,	/* special_function */
    225 	 "R_M68HC11_GNU_VTENTRY",	/* name */
    226 	 false,			/* partial_inplace */
    227 	 0,			/* src_mask */
    228 	 0,			/* dst_mask */
    229 	 false),		/* pcrel_offset */
    230 
    231   /* A 24 bit relocation */
    232   HOWTO (R_M68HC11_24,		/* type */
    233 	 0,			/* rightshift */
    234 	 2,			/* size */
    235 	 24,			/* bitsize */
    236 	 false,			/* pc_relative */
    237 	 0,			/* bitpos */
    238 	 complain_overflow_bitfield,	/* complain_on_overflow */
    239 	 bfd_elf_generic_reloc,	/* special_function */
    240 	 "R_M68HC11_24",	/* name */
    241 	 false,			/* partial_inplace */
    242 	 0xffffff,		/* src_mask */
    243 	 0xffffff,		/* dst_mask */
    244 	 false),		/* pcrel_offset */
    245 
    246   /* A 16-bit low relocation */
    247   HOWTO (R_M68HC11_LO16,	/* type */
    248 	 0,			/* rightshift */
    249 	 2,			/* size */
    250 	 16,			/* bitsize */
    251 	 false,			/* pc_relative */
    252 	 0,			/* bitpos */
    253 	 complain_overflow_bitfield,	/* complain_on_overflow */
    254 	 bfd_elf_generic_reloc,	/* special_function */
    255 	 "R_M68HC11_LO16",	/* name */
    256 	 false,			/* partial_inplace */
    257 	 0xffff,		/* src_mask */
    258 	 0xffff,		/* dst_mask */
    259 	 false),		/* pcrel_offset */
    260 
    261   /* A page relocation */
    262   HOWTO (R_M68HC11_PAGE,	/* type */
    263 	 0,			/* rightshift */
    264 	 1,			/* size */
    265 	 8,			/* bitsize */
    266 	 false,			/* pc_relative */
    267 	 0,			/* bitpos */
    268 	 complain_overflow_bitfield,	/* complain_on_overflow */
    269 	 bfd_elf_generic_reloc,	/* special_function */
    270 	 "R_M68HC11_PAGE",	/* name */
    271 	 false,			/* partial_inplace */
    272 	 0x00ff,		/* src_mask */
    273 	 0x00ff,		/* dst_mask */
    274 	 false),		/* pcrel_offset */
    275 
    276   EMPTY_HOWTO (14),
    277   EMPTY_HOWTO (15),
    278   EMPTY_HOWTO (16),
    279   EMPTY_HOWTO (17),
    280   EMPTY_HOWTO (18),
    281   EMPTY_HOWTO (19),
    282 
    283   /* Mark beginning of a jump instruction (any form).  */
    284   HOWTO (R_M68HC11_RL_JUMP,	/* type */
    285 	 0,			/* rightshift */
    286 	 2,			/* size */
    287 	 0,			/* bitsize */
    288 	 false,			/* pc_relative */
    289 	 0,			/* bitpos */
    290 	 complain_overflow_dont,	/* complain_on_overflow */
    291 	 m68hc11_elf_ignore_reloc,	/* special_function */
    292 	 "R_M68HC11_RL_JUMP",	/* name */
    293 	 true,			/* partial_inplace */
    294 	 0,			/* src_mask */
    295 	 0,			/* dst_mask */
    296 	 true),			/* pcrel_offset */
    297 
    298   /* Mark beginning of Gcc relaxation group instruction.  */
    299   HOWTO (R_M68HC11_RL_GROUP,	/* type */
    300 	 0,			/* rightshift */
    301 	 2,			/* size */
    302 	 0,			/* bitsize */
    303 	 false,			/* pc_relative */
    304 	 0,			/* bitpos */
    305 	 complain_overflow_dont,	/* complain_on_overflow */
    306 	 m68hc11_elf_ignore_reloc,	/* special_function */
    307 	 "R_M68HC11_RL_GROUP",	/* name */
    308 	 true,			/* partial_inplace */
    309 	 0,			/* src_mask */
    310 	 0,			/* dst_mask */
    311 	 true),			/* pcrel_offset */
    312 };
    313 
    314 /* Map BFD reloc types to M68HC11 ELF reloc types.  */
    315 
    316 struct m68hc11_reloc_map
    317 {
    318   bfd_reloc_code_real_type bfd_reloc_val;
    319   unsigned char elf_reloc_val;
    320 };
    321 
    322 static const struct m68hc11_reloc_map m68hc11_reloc_map[] = {
    323   {BFD_RELOC_NONE, R_M68HC11_NONE,},
    324   {BFD_RELOC_8, R_M68HC11_8},
    325   {BFD_RELOC_M68HC11_HI8, R_M68HC11_HI8},
    326   {BFD_RELOC_M68HC11_LO8, R_M68HC11_LO8},
    327   {BFD_RELOC_8_PCREL, R_M68HC11_PCREL_8},
    328   {BFD_RELOC_16_PCREL, R_M68HC11_PCREL_16},
    329   {BFD_RELOC_16, R_M68HC11_16},
    330   {BFD_RELOC_32, R_M68HC11_32},
    331   {BFD_RELOC_M68HC11_3B, R_M68HC11_3B},
    332 
    333   {BFD_RELOC_VTABLE_INHERIT, R_M68HC11_GNU_VTINHERIT},
    334   {BFD_RELOC_VTABLE_ENTRY, R_M68HC11_GNU_VTENTRY},
    335 
    336   {BFD_RELOC_M68HC11_LO16, R_M68HC11_LO16},
    337   {BFD_RELOC_M68HC11_PAGE, R_M68HC11_PAGE},
    338   {BFD_RELOC_M68HC11_24, R_M68HC11_24},
    339 
    340   {BFD_RELOC_M68HC11_RL_JUMP, R_M68HC11_RL_JUMP},
    341   {BFD_RELOC_M68HC11_RL_GROUP, R_M68HC11_RL_GROUP},
    342 };
    343 
    344 static reloc_howto_type *
    345 bfd_elf32_bfd_reloc_type_lookup (bfd *abfd ATTRIBUTE_UNUSED,
    346 				 bfd_reloc_code_real_type code)
    347 {
    348   unsigned int i;
    349 
    350   for (i = 0;
    351        i < sizeof (m68hc11_reloc_map) / sizeof (struct m68hc11_reloc_map);
    352        i++)
    353     {
    354       if (m68hc11_reloc_map[i].bfd_reloc_val == code)
    355 	return &elf_m68hc11_howto_table[m68hc11_reloc_map[i].elf_reloc_val];
    356     }
    357 
    358   return NULL;
    359 }
    360 
    361 static reloc_howto_type *
    362 bfd_elf32_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
    363 				 const char *r_name)
    364 {
    365   unsigned int i;
    366 
    367   for (i = 0;
    368        i < (sizeof (elf_m68hc11_howto_table)
    369 	    / sizeof (elf_m68hc11_howto_table[0]));
    370        i++)
    371     if (elf_m68hc11_howto_table[i].name != NULL
    372 	&& strcasecmp (elf_m68hc11_howto_table[i].name, r_name) == 0)
    373       return &elf_m68hc11_howto_table[i];
    374 
    375   return NULL;
    376 }
    377 
    378 /* Set the howto pointer for an M68HC11 ELF reloc.  */
    379 
    380 static bool
    381 m68hc11_info_to_howto_rel (bfd *abfd,
    382 			   arelent *cache_ptr, Elf_Internal_Rela *dst)
    383 {
    384   unsigned int r_type;
    385 
    386   r_type = ELF32_R_TYPE (dst->r_info);
    387   if (r_type >= (unsigned int) R_M68HC11_max)
    388     {
    389       /* xgettext:c-format */
    390       _bfd_error_handler (_("%pB: unsupported relocation type %#x"),
    391 			  abfd, r_type);
    392       bfd_set_error (bfd_error_bad_value);
    393       return false;
    394     }
    395   cache_ptr->howto = &elf_m68hc11_howto_table[r_type];
    396   return true;
    397 }
    398 
    399 
    400 /* Far trampoline generation.  */
    402 
    403 /* Build a 68HC11 trampoline stub.  */
    404 static bool
    405 m68hc11_elf_build_one_stub (struct bfd_hash_entry *gen_entry, void *in_arg)
    406 {
    407   struct elf32_m68hc11_stub_hash_entry *stub_entry;
    408   struct bfd_link_info *info;
    409   struct m68hc11_elf_link_hash_table *htab;
    410   asection *stub_sec;
    411   bfd *stub_bfd;
    412   bfd_byte *loc;
    413   bfd_vma sym_value, phys_page, phys_addr;
    414 
    415   /* Massage our args to the form they really have.  */
    416   stub_entry = (struct elf32_m68hc11_stub_hash_entry *) gen_entry;
    417   info = (struct bfd_link_info *) in_arg;
    418 
    419   /* Fail if the target section could not be assigned to an output
    420      section.  The user should fix his linker script.  */
    421   if (stub_entry->target_section->output_section == NULL
    422       && info->non_contiguous_regions)
    423     info->callbacks->einfo (_("%F%P: Could not assign `%pA' to an output section. "
    424 			      "Retry without --enable-non-contiguous-regions.\n"),
    425 			    stub_entry->target_section);
    426 
    427   htab = m68hc11_elf_hash_table (info);
    428   if (htab == NULL)
    429     return false;
    430 
    431   stub_sec = stub_entry->stub_sec;
    432 
    433   /* Make a note of the offset within the stubs for this entry.  */
    434   stub_entry->stub_offset = stub_sec->size;
    435   stub_sec->size += 10;
    436   loc = stub_sec->contents + stub_entry->stub_offset;
    437 
    438   stub_bfd = stub_sec->owner;
    439 
    440   /* Create the trampoline call stub:
    441 
    442      pshb
    443      ldab #%page(symbol)
    444      ldy #%addr(symbol)
    445      jmp __trampoline
    446 
    447   */
    448   sym_value = (stub_entry->target_value
    449 	       + stub_entry->target_section->output_offset
    450 	       + stub_entry->target_section->output_section->vma);
    451   phys_addr = m68hc11_phys_addr (&htab->pinfo, sym_value);
    452   phys_page = m68hc11_phys_page (&htab->pinfo, sym_value);
    453 
    454   /* pshb; ldab #%page(sym) */
    455   bfd_put_8 (stub_bfd, 0x37, loc);
    456   bfd_put_8 (stub_bfd, 0xC6, loc + 1);
    457   bfd_put_8 (stub_bfd, phys_page, loc + 2);
    458   loc += 3;
    459 
    460   /* ldy #%addr(sym)  */
    461   bfd_put_8 (stub_bfd, 0x18, loc);
    462   bfd_put_8 (stub_bfd, 0xCE, loc + 1);
    463   bfd_put_16 (stub_bfd, phys_addr, loc + 2);
    464   loc += 4;
    465 
    466   /* jmp __trampoline  */
    467   bfd_put_8 (stub_bfd, 0x7E, loc);
    468   bfd_put_16 (stub_bfd, htab->pinfo.trampoline_addr, loc + 1);
    469 
    470   return true;
    471 }
    472 
    473 /* As above, but don't actually build the stub.  Just bump offset so
    474    we know stub section sizes.  */
    475 
    476 static bool
    477 m68hc11_elf_size_one_stub (struct bfd_hash_entry *gen_entry,
    478 			   void *in_arg ATTRIBUTE_UNUSED)
    479 {
    480   struct elf32_m68hc11_stub_hash_entry *stub_entry;
    481 
    482   /* Massage our args to the form they really have.  */
    483   stub_entry = (struct elf32_m68hc11_stub_hash_entry *) gen_entry;
    484 
    485   stub_entry->stub_sec->size += 10;
    486   return true;
    487 }
    488 
    489 /* Create a 68HC11 ELF linker hash table.  */
    490 
    491 static struct bfd_link_hash_table *
    492 m68hc11_elf_bfd_link_hash_table_create (bfd *abfd)
    493 {
    494   struct m68hc11_elf_link_hash_table *ret;
    495 
    496   ret = m68hc11_elf_hash_table_create (abfd);
    497   if (ret == (struct m68hc11_elf_link_hash_table *) NULL)
    498     return NULL;
    499 
    500   ret->size_one_stub = m68hc11_elf_size_one_stub;
    501   ret->build_one_stub = m68hc11_elf_build_one_stub;
    502 
    503   return &ret->root.root;
    504 }
    505 
    506 
    507 /* 68HC11 Linker Relaxation.  */
    509 
    510 const struct m68hc11_direct_relax
    511 {
    512   const char *name;
    513   unsigned char code;
    514   unsigned char direct_code;
    515 } m68hc11_direct_relax_table[] = {
    516   { "adca", 0xB9, 0x99 },
    517   { "adcb", 0xF9, 0xD9 },
    518   { "adda", 0xBB, 0x9B },
    519   { "addb", 0xFB, 0xDB },
    520   { "addd", 0xF3, 0xD3 },
    521   { "anda", 0xB4, 0x94 },
    522   { "andb", 0xF4, 0xD4 },
    523   { "cmpa", 0xB1, 0x91 },
    524   { "cmpb", 0xF1, 0xD1 },
    525   { "cpd",  0xB3, 0x93 },
    526   { "cpxy", 0xBC, 0x9C },
    527 /* { "cpy",  0xBC, 0x9C }, */
    528   { "eora", 0xB8, 0x98 },
    529   { "eorb", 0xF8, 0xD8 },
    530   { "jsr",  0xBD, 0x9D },
    531   { "ldaa", 0xB6, 0x96 },
    532   { "ldab", 0xF6, 0xD6 },
    533   { "ldd",  0xFC, 0xDC },
    534   { "lds",  0xBE, 0x9E },
    535   { "ldxy", 0xFE, 0xDE },
    536   /*  { "ldy",  0xFE, 0xDE },*/
    537   { "oraa", 0xBA, 0x9A },
    538   { "orab", 0xFA, 0xDA },
    539   { "sbca", 0xB2, 0x92 },
    540   { "sbcb", 0xF2, 0xD2 },
    541   { "staa", 0xB7, 0x97 },
    542   { "stab", 0xF7, 0xD7 },
    543   { "std",  0xFD, 0xDD },
    544   { "sts",  0xBF, 0x9F },
    545   { "stxy", 0xFF, 0xDF },
    546   /*  { "sty",  0xFF, 0xDF },*/
    547   { "suba", 0xB0, 0x90 },
    548   { "subb", 0xF0, 0xD0 },
    549   { "subd", 0xB3, 0x93 },
    550   { 0, 0, 0 }
    551 };
    552 
    553 static const struct m68hc11_direct_relax *
    554 find_relaxable_insn (unsigned char code)
    555 {
    556   int i;
    557 
    558   for (i = 0; m68hc11_direct_relax_table[i].name; i++)
    559     if (m68hc11_direct_relax_table[i].code == code)
    560       return &m68hc11_direct_relax_table[i];
    561 
    562   return 0;
    563 }
    564 
    565 static int
    566 compare_reloc (const void *e1, const void *e2)
    567 {
    568   const Elf_Internal_Rela *i1 = (const Elf_Internal_Rela *) e1;
    569   const Elf_Internal_Rela *i2 = (const Elf_Internal_Rela *) e2;
    570 
    571   if (i1->r_offset == i2->r_offset)
    572     return 0;
    573   else
    574     return i1->r_offset < i2->r_offset ? -1 : 1;
    575 }
    576 
    577 #define M6811_OP_LDX_IMMEDIATE (0xCE)
    578 
    579 static void
    580 m68hc11_relax_group (bfd *abfd, asection *sec, bfd_byte *contents,
    581 		     unsigned value, unsigned long offset,
    582 		     unsigned long end_group)
    583 {
    584   unsigned char code;
    585   unsigned long start_offset;
    586   unsigned long ldx_offset = offset;
    587   unsigned long ldx_size;
    588   int can_delete_ldx;
    589   int relax_ldy = 0;
    590 
    591   /* First instruction of the relax group must be a
    592      LDX #value or LDY #value.  If this is not the case,
    593      ignore the relax group.  */
    594   code = bfd_get_8 (abfd, contents + offset);
    595   if (code == 0x18)
    596     {
    597       relax_ldy++;
    598       offset++;
    599       code = bfd_get_8 (abfd, contents + offset);
    600     }
    601   ldx_size = offset - ldx_offset + 3;
    602   offset += 3;
    603   if (code != M6811_OP_LDX_IMMEDIATE || offset >= end_group)
    604     return;
    605 
    606 
    607   /* We can remove the LDX/LDY only when all bset/brclr instructions
    608      of the relax group have been converted to use direct addressing
    609      mode.  */
    610   can_delete_ldx = 1;
    611   while (offset < end_group)
    612     {
    613       unsigned isize;
    614       unsigned new_value;
    615       int bset_use_y;
    616 
    617       bset_use_y = 0;
    618       start_offset = offset;
    619       code = bfd_get_8 (abfd, contents + offset);
    620       if (code == 0x18)
    621 	{
    622 	  bset_use_y++;
    623 	  offset++;
    624 	  code = bfd_get_8 (abfd, contents + offset);
    625 	}
    626 
    627       /* Check the instruction and translate to use direct addressing mode.  */
    628       switch (code)
    629 	{
    630 	  /* bset */
    631 	case 0x1C:
    632 	  code = 0x14;
    633 	  isize = 3;
    634 	  break;
    635 
    636 	  /* brclr */
    637 	case 0x1F:
    638 	  code = 0x13;
    639 	  isize = 4;
    640 	  break;
    641 
    642 	  /* brset */
    643 	case 0x1E:
    644 	  code = 0x12;
    645 	  isize = 4;
    646 	  break;
    647 
    648 	  /* bclr */
    649 	case 0x1D:
    650 	  code = 0x15;
    651 	  isize = 3;
    652 	  break;
    653 
    654 	  /* This instruction is not recognized and we are not
    655 	     at end of the relax group.  Ignore and don't remove
    656 	     the first LDX (we don't know what it is used for...).  */
    657 	default:
    658 	  return;
    659 	}
    660       new_value = (unsigned) bfd_get_8 (abfd, contents + offset + 1);
    661       new_value += value;
    662       if ((new_value & 0xff00) == 0 && bset_use_y == relax_ldy)
    663 	{
    664 	  bfd_put_8 (abfd, code, contents + offset);
    665 	  bfd_put_8 (abfd, new_value, contents + offset + 1);
    666 	  if (start_offset != offset)
    667 	    {
    668 	      m68hc11_elf_relax_delete_bytes (abfd, sec, start_offset,
    669 					      offset - start_offset);
    670 	      end_group--;
    671 	    }
    672 	}
    673       else
    674 	{
    675 	  can_delete_ldx = 0;
    676 	}
    677       offset = start_offset + isize;
    678     }
    679   if (can_delete_ldx)
    680     {
    681       /* Remove the move instruction (3 or 4 bytes win).  */
    682       m68hc11_elf_relax_delete_bytes (abfd, sec, ldx_offset, ldx_size);
    683     }
    684 }
    685 
    686 /* This function handles relaxing for the 68HC11.
    687 
    688 
    689 	and somewhat more difficult to support.  */
    690 
    691 static bool
    692 m68hc11_elf_relax_section (bfd *abfd, asection *sec,
    693 			   struct bfd_link_info *link_info, bool *again)
    694 {
    695   Elf_Internal_Shdr *symtab_hdr;
    696   Elf_Internal_Rela *internal_relocs;
    697   Elf_Internal_Rela *free_relocs = NULL;
    698   Elf_Internal_Rela *irel, *irelend;
    699   bfd_byte *contents = NULL;
    700   bfd_byte *free_contents = NULL;
    701   Elf32_External_Sym *free_extsyms = NULL;
    702   Elf_Internal_Rela *prev_insn_branch = NULL;
    703   Elf_Internal_Rela *prev_insn_group = NULL;
    704   unsigned insn_group_value = 0;
    705   Elf_Internal_Sym *isymbuf = NULL;
    706 
    707   /* Assume nothing changes.  */
    708   *again = false;
    709 
    710   /* We don't have to do anything for a relocatable link, if
    711      this section does not have relocs, or if this is not a
    712      code section.  */
    713   if (bfd_link_relocatable (link_info)
    714       || sec->reloc_count == 0
    715       || (sec->flags & SEC_RELOC) == 0
    716       || (sec->flags & SEC_HAS_CONTENTS) == 0
    717       || (sec->flags & SEC_CODE) == 0)
    718     return true;
    719 
    720   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
    721 
    722   /* Get a copy of the native relocations.  */
    723   internal_relocs = (_bfd_elf_link_read_relocs
    724 		     (abfd, sec, NULL, (Elf_Internal_Rela *) NULL,
    725 		      link_info->keep_memory));
    726   if (internal_relocs == NULL)
    727     goto error_return;
    728   if (! link_info->keep_memory)
    729     free_relocs = internal_relocs;
    730 
    731   /* Checking for branch relaxation relies on the relocations to
    732      be sorted on 'r_offset'.  This is not guaranteed so we must sort.  */
    733   qsort (internal_relocs, sec->reloc_count, sizeof (Elf_Internal_Rela),
    734 	 compare_reloc);
    735 
    736   /* Walk through them looking for relaxing opportunities.  */
    737   irelend = internal_relocs + sec->reloc_count;
    738   for (irel = internal_relocs; irel < irelend; irel++)
    739     {
    740       bfd_vma symval;
    741       bfd_vma value;
    742       Elf_Internal_Sym *isym;
    743       asection *sym_sec;
    744       int is_far = 0;
    745 
    746       /* If this isn't something that can be relaxed, then ignore
    747 	 this reloc.  */
    748       if (ELF32_R_TYPE (irel->r_info) != (int) R_M68HC11_16
    749 	  && ELF32_R_TYPE (irel->r_info) != (int) R_M68HC11_RL_JUMP
    750 	  && ELF32_R_TYPE (irel->r_info) != (int) R_M68HC11_RL_GROUP)
    751 	{
    752 	  prev_insn_branch = 0;
    753 	  prev_insn_group = 0;
    754 	  continue;
    755 	}
    756 
    757       /* Get the section contents if we haven't done so already.  */
    758       if (contents == NULL)
    759 	{
    760 	  /* Get cached copy if it exists.  */
    761 	  if (elf_section_data (sec)->this_hdr.contents != NULL)
    762 	    contents = elf_section_data (sec)->this_hdr.contents;
    763 	  else
    764 	    {
    765 	      /* Go get them off disk.  */
    766 	      if (!bfd_malloc_and_get_section (abfd, sec, &contents))
    767 		goto error_return;
    768 	    }
    769 	}
    770 
    771       /* Try to eliminate an unconditional 8 bit pc-relative branch
    772 	 which immediately follows a conditional 8 bit pc-relative
    773 	 branch around the unconditional branch.
    774 
    775 	    original:		new:
    776 	    bCC lab1		bCC' lab2
    777 	    bra lab2
    778 	   lab1:	       lab1:
    779 
    780 	 This happens when the bCC can't reach lab2 at assembly time,
    781 	 but due to other relaxations it can reach at link time.  */
    782       if (ELF32_R_TYPE (irel->r_info) == (int) R_M68HC11_RL_JUMP)
    783 	{
    784 	  Elf_Internal_Rela *nrel;
    785 	  unsigned char code;
    786 	  unsigned char roffset;
    787 
    788 	  prev_insn_branch = 0;
    789 	  prev_insn_group = 0;
    790 
    791 	  /* Do nothing if this reloc is the last byte in the section.  */
    792 	  if (irel->r_offset + 2 >= sec->size)
    793 	    continue;
    794 
    795 	  /* See if the next instruction is an unconditional pc-relative
    796 	     branch, more often than not this test will fail, so we
    797 	     test it first to speed things up.  */
    798 	  code = bfd_get_8 (abfd, contents + irel->r_offset + 2);
    799 	  if (code != 0x7e)
    800 	    continue;
    801 
    802 	  /* Also make sure the next relocation applies to the next
    803 	     instruction and that it's a pc-relative 8 bit branch.  */
    804 	  nrel = irel + 1;
    805 	  if (nrel == irelend
    806 	      || irel->r_offset + 3 != nrel->r_offset
    807 	      || ELF32_R_TYPE (nrel->r_info) != (int) R_M68HC11_16)
    808 	    continue;
    809 
    810 	  /* Make sure our destination immediately follows the
    811 	     unconditional branch.  */
    812 	  roffset = bfd_get_8 (abfd, contents + irel->r_offset + 1);
    813 	  if (roffset != 3)
    814 	    continue;
    815 
    816 	  prev_insn_branch = irel;
    817 	  prev_insn_group = 0;
    818 	  continue;
    819 	}
    820 
    821       /* Read this BFD's symbols if we haven't done so already.  */
    822       if (isymbuf == NULL && symtab_hdr->sh_info != 0)
    823 	{
    824 	  isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
    825 	  if (isymbuf == NULL)
    826 	    isymbuf = bfd_elf_get_elf_syms (abfd, symtab_hdr,
    827 					    symtab_hdr->sh_info, 0,
    828 					    NULL, NULL, NULL);
    829 	  if (isymbuf == NULL)
    830 	    goto error_return;
    831 	}
    832 
    833       /* Get the value of the symbol referred to by the reloc.  */
    834       if (ELF32_R_SYM (irel->r_info) < symtab_hdr->sh_info)
    835 	{
    836 	  /* A local symbol.  */
    837 	  isym = isymbuf + ELF32_R_SYM (irel->r_info);
    838 	  is_far = isym->st_other & STO_M68HC12_FAR;
    839 	  sym_sec = bfd_section_from_elf_index (abfd, isym->st_shndx);
    840 	  symval = (isym->st_value
    841 		    + sym_sec->output_section->vma
    842 		    + sym_sec->output_offset);
    843 	}
    844       else
    845 	{
    846 	  unsigned long indx;
    847 	  struct elf_link_hash_entry *h;
    848 
    849 	  /* An external symbol.  */
    850 	  indx = ELF32_R_SYM (irel->r_info) - symtab_hdr->sh_info;
    851 	  h = elf_sym_hashes (abfd)[indx];
    852 	  BFD_ASSERT (h != NULL);
    853 	  if (h->root.type != bfd_link_hash_defined
    854 	      && h->root.type != bfd_link_hash_defweak)
    855 	    {
    856 	      /* This appears to be a reference to an undefined
    857 		 symbol.  Just ignore it--it will be caught by the
    858 		 regular reloc processing.  */
    859 	      prev_insn_branch = 0;
    860 	      prev_insn_group = 0;
    861 	      continue;
    862 	    }
    863 
    864 	  is_far = h->other & STO_M68HC12_FAR;
    865 	  isym = 0;
    866 	  sym_sec = h->root.u.def.section;
    867 	  symval = (h->root.u.def.value
    868 		    + sym_sec->output_section->vma
    869 		    + sym_sec->output_offset);
    870 	}
    871 
    872       if (ELF32_R_TYPE (irel->r_info) == (int) R_M68HC11_RL_GROUP)
    873 	{
    874 	  prev_insn_branch = 0;
    875 	  prev_insn_group = 0;
    876 
    877 	  /* Do nothing if this reloc is the last byte in the section.  */
    878 	  if (irel->r_offset == sec->size)
    879 	    continue;
    880 
    881 	  prev_insn_group = irel;
    882 	  insn_group_value = isym->st_value;
    883 	  continue;
    884 	}
    885 
    886       /* When we relax some bytes, the size of our section changes.
    887 	 This affects the layout of next input sections that go in our
    888 	 output section.  When the symbol is part of another section that
    889 	 will go in the same output section as the current one, it's
    890 	 final address may now be incorrect (too far).  We must let the
    891 	 linker re-compute all section offsets before processing this
    892 	 reloc.  Code example:
    893 
    894 				Initial		    Final
    895 	 .sect .text		section size = 6    section size = 4
    896 	 jmp foo
    897 	 jmp bar
    898 	 .sect .text.foo_bar	output_offset = 6   output_offset = 4
    899 	 foo: rts
    900 	 bar: rts
    901 
    902 	 If we process the reloc now, the jmp bar is replaced by a
    903 	 relative branch to the initial bar address (output_offset 6).  */
    904       if (*again && sym_sec != sec
    905 	  && sym_sec->output_section == sec->output_section)
    906 	{
    907 	  prev_insn_group = 0;
    908 	  prev_insn_branch = 0;
    909 	  continue;
    910 	}
    911 
    912       value = symval;
    913       /* Try to turn a far branch to a near branch.  */
    914       if (ELF32_R_TYPE (irel->r_info) == (int) R_M68HC11_16
    915 	  && prev_insn_branch)
    916 	{
    917 	  bfd_vma offset;
    918 	  unsigned char code;
    919 
    920 	  offset = value - (prev_insn_branch->r_offset
    921 			    + sec->output_section->vma
    922 			    + sec->output_offset + 2);
    923 
    924 	  /* If the offset is still out of -128..+127 range,
    925 	     leave that far branch unchanged.  */
    926 	  if ((offset & 0xff80) != 0 && (offset & 0xff80) != 0xff80)
    927 	    {
    928 	      prev_insn_branch = 0;
    929 	      continue;
    930 	    }
    931 
    932 	  /* Shrink the branch.  */
    933 	  code = bfd_get_8 (abfd, contents + prev_insn_branch->r_offset);
    934 	  if (code == 0x7e)
    935 	    {
    936 	      code = 0x20;
    937 	      bfd_put_8 (abfd, code, contents + prev_insn_branch->r_offset);
    938 	      bfd_put_8 (abfd, 0xff,
    939 			 contents + prev_insn_branch->r_offset + 1);
    940 	      irel->r_offset = prev_insn_branch->r_offset + 1;
    941 	      irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
    942 					   R_M68HC11_PCREL_8);
    943 	      m68hc11_elf_relax_delete_bytes (abfd, sec,
    944 					      irel->r_offset + 1, 1);
    945 	    }
    946 	  else
    947 	    {
    948 	      code ^= 0x1;
    949 	      bfd_put_8 (abfd, code, contents + prev_insn_branch->r_offset);
    950 	      bfd_put_8 (abfd, 0xff,
    951 			 contents + prev_insn_branch->r_offset + 1);
    952 	      irel->r_offset = prev_insn_branch->r_offset + 1;
    953 	      irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
    954 					   R_M68HC11_PCREL_8);
    955 	      m68hc11_elf_relax_delete_bytes (abfd, sec,
    956 					      irel->r_offset + 1, 3);
    957 	    }
    958 	  prev_insn_branch = 0;
    959 	  *again = true;
    960 	}
    961 
    962       /* Try to turn a 16 bit address into a 8 bit page0 address.  */
    963       else if (ELF32_R_TYPE (irel->r_info) == (int) R_M68HC11_16
    964 	       && (value & 0xff00) == 0)
    965 	{
    966 	  unsigned char code;
    967 	  unsigned short offset;
    968 	  const struct m68hc11_direct_relax *rinfo;
    969 
    970 	  prev_insn_branch = 0;
    971 	  offset = bfd_get_16 (abfd, contents + irel->r_offset);
    972 	  offset += value;
    973 	  if ((offset & 0xff00) != 0)
    974 	    {
    975 	      prev_insn_group = 0;
    976 	      continue;
    977 	    }
    978 
    979 	  if (prev_insn_group)
    980 	    {
    981 	      unsigned long old_sec_size = sec->size;
    982 
    983 	      /* Note that we've changed the relocation contents, etc.  */
    984 	      elf_section_data (sec)->relocs = internal_relocs;
    985 	      free_relocs = NULL;
    986 
    987 	      elf_section_data (sec)->this_hdr.contents = contents;
    988 	      free_contents = NULL;
    989 
    990 	      symtab_hdr->contents = (bfd_byte *) isymbuf;
    991 	      free_extsyms = NULL;
    992 
    993 	      m68hc11_relax_group (abfd, sec, contents, offset,
    994 				   prev_insn_group->r_offset,
    995 				   insn_group_value);
    996 	      irel = prev_insn_group;
    997 	      prev_insn_group = 0;
    998 	      irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
    999 					   R_M68HC11_NONE);
   1000 	      if (sec->size != old_sec_size)
   1001 		*again = true;
   1002 	      continue;
   1003 	    }
   1004 
   1005 	  /* Get the opcode.  */
   1006 	  code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
   1007 	  rinfo = find_relaxable_insn (code);
   1008 	  if (rinfo == 0)
   1009 	    {
   1010 	      prev_insn_group = 0;
   1011 	      continue;
   1012 	    }
   1013 
   1014 	  /* Note that we've changed the relocation contents, etc.  */
   1015 	  elf_section_data (sec)->relocs = internal_relocs;
   1016 	  free_relocs = NULL;
   1017 
   1018 	  elf_section_data (sec)->this_hdr.contents = contents;
   1019 	  free_contents = NULL;
   1020 
   1021 	  symtab_hdr->contents = (bfd_byte *) isymbuf;
   1022 	  free_extsyms = NULL;
   1023 
   1024 	  /* Fix the opcode.  */
   1025 	  /* printf ("A relaxable case : 0x%02x (%s)\n",
   1026 	     code, rinfo->name); */
   1027 	  bfd_put_8 (abfd, rinfo->direct_code,
   1028 		     contents + irel->r_offset - 1);
   1029 
   1030 	  /* Delete one byte of data (upper byte of address).  */
   1031 	  m68hc11_elf_relax_delete_bytes (abfd, sec, irel->r_offset, 1);
   1032 
   1033 	  /* Fix the relocation's type.  */
   1034 	  irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
   1035 				       R_M68HC11_8);
   1036 
   1037 	  /* That will change things, so, we should relax again.  */
   1038 	  *again = true;
   1039 	}
   1040       else if (ELF32_R_TYPE (irel->r_info) == R_M68HC11_16 && !is_far)
   1041 	{
   1042 	  unsigned char code;
   1043 	  bfd_vma offset;
   1044 
   1045 	  prev_insn_branch = 0;
   1046 	  code = bfd_get_8 (abfd, contents + irel->r_offset - 1);
   1047 	  if (code == 0x7e || code == 0xbd)
   1048 	    {
   1049 	      offset = value - (irel->r_offset
   1050 				+ sec->output_section->vma
   1051 				+ sec->output_offset + 1);
   1052 	      offset += bfd_get_16 (abfd, contents + irel->r_offset);
   1053 
   1054 	      /* If the offset is still out of -128..+127 range,
   1055 		 leave that far branch unchanged.  */
   1056 	      if ((offset & 0xff80) == 0 || (offset & 0xff80) == 0xff80)
   1057 		{
   1058 
   1059 		  /* Note that we've changed the relocation contents, etc.  */
   1060 		  elf_section_data (sec)->relocs = internal_relocs;
   1061 		  free_relocs = NULL;
   1062 
   1063 		  elf_section_data (sec)->this_hdr.contents = contents;
   1064 		  free_contents = NULL;
   1065 
   1066 		  symtab_hdr->contents = (bfd_byte *) isymbuf;
   1067 		  free_extsyms = NULL;
   1068 
   1069 		  /* Shrink the branch.  */
   1070 		  code = (code == 0x7e) ? 0x20 : 0x8d;
   1071 		  bfd_put_8 (abfd, code,
   1072 			     contents + irel->r_offset - 1);
   1073 		  bfd_put_8 (abfd, 0xff,
   1074 			     contents + irel->r_offset);
   1075 		  irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
   1076 					       R_M68HC11_PCREL_8);
   1077 		  m68hc11_elf_relax_delete_bytes (abfd, sec,
   1078 						  irel->r_offset + 1, 1);
   1079 		  /* That will change things, so, we should relax again.  */
   1080 		  *again = true;
   1081 		}
   1082 	    }
   1083 	}
   1084       prev_insn_branch = 0;
   1085       prev_insn_group = 0;
   1086     }
   1087 
   1088   free (free_relocs);
   1089   free_relocs = NULL;
   1090 
   1091   if (free_contents != NULL)
   1092     {
   1093       if (! link_info->keep_memory)
   1094 	free (free_contents);
   1095       else
   1096 	{
   1097 	  /* Cache the section contents for elf_link_input_bfd.  */
   1098 	  elf_section_data (sec)->this_hdr.contents = contents;
   1099 	}
   1100       free_contents = NULL;
   1101     }
   1102 
   1103   if (free_extsyms != NULL)
   1104     {
   1105       if (! link_info->keep_memory)
   1106 	free (free_extsyms);
   1107       else
   1108 	{
   1109 	  /* Cache the symbols for elf_link_input_bfd.  */
   1110 	  symtab_hdr->contents = (unsigned char *) isymbuf;
   1111 	}
   1112       free_extsyms = NULL;
   1113     }
   1114 
   1115   return true;
   1116 
   1117  error_return:
   1118   free (free_relocs);
   1119   free (free_contents);
   1120   free (free_extsyms);
   1121   return false;
   1122 }
   1123 
   1124 /* Delete some bytes from a section while relaxing.  */
   1125 
   1126 static void
   1127 m68hc11_elf_relax_delete_bytes (bfd *abfd, asection *sec,
   1128 				bfd_vma addr, int count)
   1129 {
   1130   Elf_Internal_Shdr *symtab_hdr;
   1131   unsigned int sec_shndx;
   1132   bfd_byte *contents;
   1133   Elf_Internal_Rela *irel, *irelend;
   1134   bfd_vma toaddr;
   1135   Elf_Internal_Sym *isymbuf, *isym, *isymend;
   1136   struct elf_link_hash_entry **sym_hashes;
   1137   struct elf_link_hash_entry **end_hashes;
   1138   unsigned int symcount;
   1139 
   1140   symtab_hdr = &elf_tdata (abfd)->symtab_hdr;
   1141   isymbuf = (Elf_Internal_Sym *) symtab_hdr->contents;
   1142 
   1143   sec_shndx = _bfd_elf_section_from_bfd_section (abfd, sec);
   1144 
   1145   contents = elf_section_data (sec)->this_hdr.contents;
   1146 
   1147   toaddr = sec->size;
   1148 
   1149   irel = elf_section_data (sec)->relocs;
   1150   irelend = irel + sec->reloc_count;
   1151 
   1152   /* Actually delete the bytes.  */
   1153   memmove (contents + addr, contents + addr + count,
   1154 	   (size_t) (toaddr - addr - count));
   1155 
   1156   sec->size -= count;
   1157 
   1158   /* Adjust all the relocs.  */
   1159   for (irel = elf_section_data (sec)->relocs; irel < irelend; irel++)
   1160     {
   1161       unsigned char code;
   1162       unsigned char offset;
   1163       unsigned short raddr;
   1164       unsigned long old_offset;
   1165       int branch_pos;
   1166 
   1167       old_offset = irel->r_offset;
   1168 
   1169       /* See if this reloc was for the bytes we have deleted, in which
   1170 	 case we no longer care about it.  Don't delete relocs which
   1171 	 represent addresses, though.  */
   1172       if (ELF32_R_TYPE (irel->r_info) != R_M68HC11_RL_JUMP
   1173 	  && irel->r_offset >= addr && irel->r_offset < addr + count)
   1174 	irel->r_info = ELF32_R_INFO (ELF32_R_SYM (irel->r_info),
   1175 				     R_M68HC11_NONE);
   1176 
   1177       if (ELF32_R_TYPE (irel->r_info) == R_M68HC11_NONE)
   1178 	continue;
   1179 
   1180       /* Get the new reloc address.  */
   1181       if ((irel->r_offset > addr
   1182 	   && irel->r_offset < toaddr))
   1183 	irel->r_offset -= count;
   1184 
   1185       /* If this is a PC relative reloc, see if the range it covers
   1186 	 includes the bytes we have deleted.  */
   1187       switch (ELF32_R_TYPE (irel->r_info))
   1188 	{
   1189 	default:
   1190 	  break;
   1191 
   1192 	case R_M68HC11_RL_JUMP:
   1193 	  code = bfd_get_8 (abfd, contents + irel->r_offset);
   1194 	  switch (code)
   1195 	    {
   1196 	      /* jsr and jmp instruction are also marked with RL_JUMP
   1197 		 relocs but no adjustment must be made.  */
   1198 	    case 0x7e:
   1199 	    case 0x9d:
   1200 	    case 0xbd:
   1201 	      continue;
   1202 
   1203 	    case 0x12:
   1204 	    case 0x13:
   1205 	      branch_pos = 3;
   1206 	      raddr = 4;
   1207 
   1208 	      /* Special case when we translate a brclr N,y into brclr *<addr>
   1209 		 In this case, the 0x18 page2 prefix is removed.
   1210 		 The reloc offset is not modified but the instruction
   1211 		 size is reduced by 1.  */
   1212 	      if (old_offset == addr)
   1213 		raddr++;
   1214 	      break;
   1215 
   1216 	    case 0x1e:
   1217 	    case 0x1f:
   1218 	      branch_pos = 3;
   1219 	      raddr = 4;
   1220 	      break;
   1221 
   1222 	    case 0x18:
   1223 	      branch_pos = 4;
   1224 	      raddr = 5;
   1225 	      break;
   1226 
   1227 	    default:
   1228 	      branch_pos = 1;
   1229 	      raddr = 2;
   1230 	      break;
   1231 	    }
   1232 	  offset = bfd_get_8 (abfd, contents + irel->r_offset + branch_pos);
   1233 	  raddr += old_offset;
   1234 	  raddr += ((unsigned short) offset | ((offset & 0x80) ? 0xff00 : 0));
   1235 	  if (irel->r_offset < addr && raddr > addr)
   1236 	    {
   1237 	      offset -= count;
   1238 	      bfd_put_8 (abfd, offset, contents + irel->r_offset + branch_pos);
   1239 	    }
   1240 	  else if (irel->r_offset >= addr && raddr <= addr)
   1241 	    {
   1242 	      offset += count;
   1243 	      bfd_put_8 (abfd, offset, contents + irel->r_offset + branch_pos);
   1244 	    }
   1245 	  else
   1246 	    {
   1247 	      /*printf ("Not adjusted 0x%04x [0x%4x 0x%4x]\n", raddr,
   1248 		irel->r_offset, addr);*/
   1249 	    }
   1250 
   1251 	  break;
   1252 	}
   1253     }
   1254 
   1255   /* Adjust the local symbols defined in this section.  */
   1256   isymend = isymbuf + symtab_hdr->sh_info;
   1257   for (isym = isymbuf; isym < isymend; isym++)
   1258     {
   1259       if (isym->st_shndx == sec_shndx
   1260 	  && isym->st_value > addr
   1261 	  && isym->st_value <= toaddr)
   1262 	isym->st_value -= count;
   1263     }
   1264 
   1265   /* Now adjust the global symbols defined in this section.  */
   1266   symcount = (symtab_hdr->sh_size / sizeof (Elf32_External_Sym)
   1267 	      - symtab_hdr->sh_info);
   1268   sym_hashes = elf_sym_hashes (abfd);
   1269   end_hashes = sym_hashes + symcount;
   1270   for (; sym_hashes < end_hashes; sym_hashes++)
   1271     {
   1272       struct elf_link_hash_entry *sym_hash = *sym_hashes;
   1273       if ((sym_hash->root.type == bfd_link_hash_defined
   1274 	   || sym_hash->root.type == bfd_link_hash_defweak)
   1275 	  && sym_hash->root.u.def.section == sec
   1276 	  && sym_hash->root.u.def.value > addr
   1277 	  && sym_hash->root.u.def.value <= toaddr)
   1278 	{
   1279 	  sym_hash->root.u.def.value -= count;
   1280 	}
   1281     }
   1282 }
   1283 
   1284 /* Specific sections:
   1285    - The .page0 is a data section that is mapped in [0x0000..0x00FF].
   1286      Page0 accesses are faster on the M68HC11. Soft registers used by GCC-m6811
   1287      are located in .page0.
   1288    - The .vectors is the section that represents the interrupt
   1289      vectors.  */
   1290 static const struct bfd_elf_special_section elf32_m68hc11_special_sections[] =
   1291 {
   1292   { STRING_COMMA_LEN (".eeprom"),   0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
   1293   { STRING_COMMA_LEN (".page0"),    0, SHT_PROGBITS, SHF_ALLOC + SHF_WRITE },
   1294   { STRING_COMMA_LEN (".softregs"), 0, SHT_NOBITS,   SHF_ALLOC + SHF_WRITE },
   1295   { STRING_COMMA_LEN (".vectors"),  0, SHT_PROGBITS, SHF_ALLOC },
   1296   { NULL,			0,  0, 0,	     0 }
   1297 };
   1298 
   1299 #define ELF_ARCH		bfd_arch_m68hc11
   1301 #define ELF_TARGET_ID		M68HC11_ELF_DATA
   1302 #define ELF_MACHINE_CODE	EM_68HC11
   1303 #define ELF_MAXPAGESIZE		0x1000
   1304 
   1305 #define TARGET_BIG_SYM		m68hc11_elf32_vec
   1306 #define TARGET_BIG_NAME		"elf32-m68hc11"
   1307 
   1308 #define elf_info_to_howto	NULL
   1309 #define elf_info_to_howto_rel	m68hc11_info_to_howto_rel
   1310 #define bfd_elf32_bfd_relax_section  m68hc11_elf_relax_section
   1311 #define elf_backend_check_relocs     elf32_m68hc11_check_relocs
   1312 #define elf_backend_relocate_section elf32_m68hc11_relocate_section
   1313 #define elf_backend_add_symbol_hook  elf32_m68hc11_add_symbol_hook
   1314 #define elf_backend_object_p	0
   1315 #define elf_backend_can_gc_sections		1
   1316 #define elf_backend_special_sections  elf32_m68hc11_special_sections
   1317 #define elf_backend_merge_symbol_attribute elf32_m68hc11_merge_symbol_attribute
   1318 
   1319 #define bfd_elf32_bfd_link_hash_table_create \
   1320 				m68hc11_elf_bfd_link_hash_table_create
   1321 #define bfd_elf32_bfd_merge_private_bfd_data \
   1322 					_bfd_m68hc11_elf_merge_private_bfd_data
   1323 #define bfd_elf32_bfd_set_private_flags	_bfd_m68hc11_elf_set_private_flags
   1324 #define bfd_elf32_bfd_print_private_bfd_data \
   1325 					_bfd_m68hc11_elf_print_private_bfd_data
   1326 
   1327 #include "elf32-target.h"
   1328