1: /* BFD back-end for Renesas H8/500 COFF binaries.
    2:    Copyright 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2002, 2003, 2004,
    3:    2005, 2007 Free Software Foundation, Inc.
    4:    Contributed by Cygnus Support.
    5:    Written by Steve Chamberlain, <sac@cygnus.com>.
    6: 
    7:    This file is part of BFD, the Binary File Descriptor library.
    8: 
    9:    This program is free software; you can redistribute it and/or modify
   10:    it under the terms of the GNU General Public License as published by
   11:    the Free Software Foundation; either version 3 of the License, or
   12:    (at your option) any later version.
   13: 
   14:    This program is distributed in the hope that it will be useful,
   15:    but WITHOUT ANY WARRANTY; without even the implied warranty of
   16:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   17:    GNU General Public License for more details.
   18: 
   19:    You should have received a copy of the GNU General Public License
   20:    along with this program; if not, write to the Free Software
   21:    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
   22:    MA 02110-1301, USA.  */
   23: 
   24: #include "sysdep.h"
   25: #include "bfd.h"
   26: #include "libbfd.h"
   27: #include "bfdlink.h"
   28: #include "coff/h8500.h"
   29: #include "coff/internal.h"
   30: #include "libcoff.h"
   31: 
   32: static int  coff_h8500_select_reloc PARAMS ((reloc_howto_type *));
   33: static void rtype2howto      PARAMS ((arelent *, struct internal_reloc *));
   34: static void reloc_processing PARAMS ((arelent *, struct internal_reloc *, asymbol **, bfd *, asection *));
   35: static void extra_case       PARAMS ((bfd *, struct bfd_link_info *, struct bfd_link_order *, arelent *, bfd_byte *, unsigned int *, unsigned int *));
   36: 
   37: #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (1)
   38: 
   39: static reloc_howto_type r_imm8 =
   40: HOWTO (R_H8500_IMM8, 0, 1, 8, FALSE, 0,
   41:        complain_overflow_bitfield, 0, "r_imm8", TRUE, 0x000000ff, 0x000000ff, FALSE);
   42: 
   43: static reloc_howto_type r_imm16 =
   44: HOWTO (R_H8500_IMM16, 0, 1, 16, FALSE, 0,
   45:        complain_overflow_bitfield, 0, "r_imm16", TRUE, 0x0000ffff, 0x0000ffff, FALSE);
   46: 
   47: static reloc_howto_type r_imm24 =
   48: HOWTO (R_H8500_IMM24, 0, 1, 24, FALSE, 0,
   49:        complain_overflow_bitfield, 0, "r_imm24", TRUE, 0x00ffffff, 0x00ffffff, FALSE);
   50: 
   51: static reloc_howto_type r_imm32 =
   52: HOWTO (R_H8500_IMM32, 0, 1, 32, FALSE, 0,
   53:        complain_overflow_bitfield, 0, "r_imm32", TRUE, 0xffffffff, 0xffffffff, FALSE);
   54: 
   55: static reloc_howto_type r_high8 =
   56: HOWTO (R_H8500_HIGH8, 0, 1, 8, FALSE, 0,
   57:        complain_overflow_dont, 0, "r_high8", TRUE, 0x000000ff, 0x000000ff, FALSE);
   58: 
   59: static reloc_howto_type r_low16 =
   60: HOWTO (R_H8500_LOW16, 0, 1, 16, FALSE, 0,
   61:        complain_overflow_dont, 0, "r_low16", TRUE, 0x0000ffff, 0x0000ffff, FALSE);
   62: 
   63: static reloc_howto_type r_pcrel8 =
   64: HOWTO (R_H8500_PCREL8, 0, 1, 8, TRUE, 0, complain_overflow_signed, 0, "r_pcrel8", TRUE, 0, 0, TRUE);
   65: 
   66: static reloc_howto_type r_pcrel16 =
   67: HOWTO (R_H8500_PCREL16, 0, 1, 16, TRUE, 0, complain_overflow_signed, 0, "r_pcrel16", TRUE, 0, 0, TRUE);
   68: 
   69: static reloc_howto_type r_high16 =
   70: HOWTO (R_H8500_HIGH16, 0, 1, 8, FALSE, 0,
   71:        complain_overflow_dont, 0, "r_high16", TRUE, 0x000ffff, 0x0000ffff, FALSE);
   72: ^L
   73: /* Turn a howto into a reloc number.  */
   74: 
   75: static int
   76: coff_h8500_select_reloc (howto)
   77:      reloc_howto_type *howto;
   78: {
   79:   return howto->type;
   80: }
   81: 
   82: #define SELECT_RELOC(x,howto) x.r_type = coff_h8500_select_reloc(howto)
   83: 
   84: #define BADMAG(x) H8500BADMAG(x)
   85: #define H8500 1                 /* Customize coffcode.h */
   86: 
   87: #define __A_MAGIC_SET__
   88: 
   89: /* Code to swap in the reloc.  */
   90: #define SWAP_IN_RELOC_OFFSET    H_GET_32
   91: #define SWAP_OUT_RELOC_OFFSET   H_PUT_32
   92: #define SWAP_OUT_RELOC_EXTRA(abfd, src, dst) \
   93:   dst->r_stuff[0] = 'S'; \
   94:   dst->r_stuff[1] = 'C';
   95: 
   96: /* Code to turn a r_type into a howto ptr, uses the above howto table.  */
   97: 
   98: static void
   99: rtype2howto (internal, dst)
  100:      arelent * internal;
  101:      struct internal_reloc *dst;
  102: {
  103:   switch (dst->r_type)
  104:     {
  105:     default:
  106:       abort ();
  107:       break;
  108:     case R_H8500_IMM8:
  109:       internal->howto = &r_imm8;
  110:       break;
  111:     case R_H8500_IMM16:
  112:       internal->howto = &r_imm16;
  113:       break;
  114:     case R_H8500_IMM24:
  115:       internal->howto = &r_imm24;
  116:       break;
  117:     case R_H8500_IMM32:
  118:       internal->howto = &r_imm32;
  119:       break;
  120:     case R_H8500_PCREL8:
  121:       internal->howto = &r_pcrel8;
  122:       break;
  123:     case R_H8500_PCREL16:
  124:       internal->howto = &r_pcrel16;
  125:       break;
  126:     case R_H8500_HIGH8:
  127:       internal->howto = &r_high8;
  128:       break;
  129:     case R_H8500_HIGH16:
  130:       internal->howto = &r_high16;
  131:       break;
  132:     case R_H8500_LOW16:
  133:       internal->howto = &r_low16;
  134:       break;
  135:     }
  136: }
  137: 
  138: #define RTYPE2HOWTO(internal, relocentry) rtype2howto(internal,relocentry)
  139: 
  140: /* Perform any necessary magic to the addend in a reloc entry.  */
  141: 
  142: #define CALC_ADDEND(abfd, symbol, ext_reloc, cache_ptr) \
  143:  cache_ptr->addend =  ext_reloc.r_offset;
  144: 
  145: #define RELOC_PROCESSING(relent,reloc,symbols,abfd,section) \
  146:  reloc_processing(relent, reloc, symbols, abfd, section)
  147: 
  148: static void reloc_processing (relent, reloc, symbols, abfd, section)
  149:      arelent * relent;
  150:      struct internal_reloc *reloc;
  151:      asymbol ** symbols;
  152:      bfd * abfd;
  153:      asection * section;
  154: {
  155:   relent->address = reloc->r_vaddr;
  156:   rtype2howto (relent, reloc);
  157: 
  158:   if (reloc->r_symndx > 0)
  159:     relent->sym_ptr_ptr = symbols + obj_convert (abfd)[reloc->r_symndx];
  160:   else
  161:     relent->sym_ptr_ptr = bfd_abs_section_ptr->symbol_ptr_ptr;
  162: 
  163:   relent->addend = reloc->r_offset;
  164:   relent->address -= section->vma;
  165: }
  166: 
  167: static void
  168: extra_case (in_abfd, link_info, link_order, reloc, data, src_ptr, dst_ptr)
  169:      bfd *in_abfd;
  170:      struct bfd_link_info *link_info;
  171:      struct bfd_link_order *link_order;
  172:      arelent *reloc;
  173:      bfd_byte *data;
  174:      unsigned int *src_ptr;
  175:      unsigned int *dst_ptr;
  176: {
  177:   bfd_byte *d = data+*dst_ptr;
  178:   asection *input_section = link_order->u.indirect.section;
  179: 
  180:   switch (reloc->howto->type)
  181:     {
  182:     case R_H8500_IMM8:
  183:       bfd_put_8 (in_abfd,
  184:                  bfd_coff_reloc16_get_value (reloc, link_info, input_section),
  185:                  d);
  186:       (*dst_ptr) += 1;
  187:       (*src_ptr) += 1;
  188:       break;
  189: 
  190:     case R_H8500_HIGH8:
  191:       bfd_put_8 (in_abfd,
  192:                  (bfd_coff_reloc16_get_value (reloc, link_info, input_section)
  193:                   >> 16),
  194:                  d);
  195:       (*dst_ptr) += 1;
  196:       (*src_ptr) += 1;
  197:       break;
  198: 
  199:     case R_H8500_IMM16:
  200:       bfd_put_16 (in_abfd,
  201:                   bfd_coff_reloc16_get_value (reloc, link_info, input_section),
  202:                   d);
  203:       (*dst_ptr) += 2;
  204:       (*src_ptr) += 2;
  205:       break;
  206: 
  207:     case R_H8500_LOW16:
  208:       bfd_put_16 (in_abfd,
  209:                   bfd_coff_reloc16_get_value (reloc, link_info, input_section),
  210:                   d);
  211: 
  212:       (*dst_ptr) += 2;
  213:       (*src_ptr) += 2;
  214:       break;
  215: 
  216:     case R_H8500_HIGH16:
  217:       bfd_put_16 (in_abfd,
  218:                   (bfd_coff_reloc16_get_value (reloc, link_info, input_section)
  219:                    >> 16),
  220:                   d);
  221: 
  222:       (*dst_ptr) += 2;
  223:       (*src_ptr) += 2;
  224:       break;
  225: 
  226:     case R_H8500_IMM24:
  227:       {
  228:         int v = bfd_coff_reloc16_get_value (reloc, link_info, input_section);
  229:         int o = bfd_get_32 (in_abfd, data+ *dst_ptr -1);
  230:         v = (v & 0x00ffffff) | (o & 0xff00000);
  231:         bfd_put_32 (in_abfd, (bfd_vma) v, data  + *dst_ptr -1);
  232:         (*dst_ptr) += 3;
  233:         (*src_ptr) += 3;;
  234:       }
  235:       break;
  236:     case R_H8500_IMM32:
  237:       {
  238:         int v = bfd_coff_reloc16_get_value (reloc, link_info, input_section);
  239:         bfd_put_32 (in_abfd, (bfd_vma) v, data  + *dst_ptr);
  240:         (*dst_ptr) += 4;
  241:         (*src_ptr) += 4;;
  242:       }
  243:       break;
  244: 
  245:     case R_H8500_PCREL8:
  246:       {
  247:         bfd_vma dst = bfd_coff_reloc16_get_value (reloc, link_info,
  248:                                                   input_section);
  249:         bfd_vma dot = (*dst_ptr
  250:                        + input_section->output_offset
  251:                        + input_section->output_section->vma);
  252:         int gap = dst - dot - 1; /* -1 since were in the odd byte of the
  253:                                     word and the pc's been incremented.  */
  254: 
  255:         if (gap > 128 || gap < -128)
  256:           {
  257:             if (! ((*link_info->callbacks->reloc_overflow)
  258:                    (link_info, NULL,
  259:                     bfd_asymbol_name (*reloc->sym_ptr_ptr),
  260:                     reloc->howto->name, reloc->addend, input_section->owner,
  261:                     input_section, reloc->address)))
  262:               abort ();
  263:           }
  264:         bfd_put_8 (in_abfd, gap, data + *dst_ptr);
  265:         (*dst_ptr)++;
  266:         (*src_ptr)++;
  267:         break;
  268:       }
  269:     case R_H8500_PCREL16:
  270:       {
  271:         bfd_vma dst = bfd_coff_reloc16_get_value (reloc, link_info,
  272:                                                   input_section);
  273:         bfd_vma dot = (*dst_ptr
  274:                        + input_section->output_offset
  275:                        + input_section->output_section->vma);
  276:         int gap = dst - dot - 1; /* -1 since were in the odd byte of the
  277:                                     word and the pc's been incremented.  */
  278: 
  279:         if (gap > 32767 || gap < -32768)
  280:           {
  281:             if (! ((*link_info->callbacks->reloc_overflow)
  282:                    (link_info, NULL,
  283:                     bfd_asymbol_name (*reloc->sym_ptr_ptr),
  284:                     reloc->howto->name, reloc->addend, input_section->owner,
  285:                     input_section, reloc->address)))
  286:               abort ();
  287:           }
  288:         bfd_put_16 (in_abfd, (bfd_vma) gap, data + *dst_ptr);
  289:         (*dst_ptr) += 2;
  290:         (*src_ptr) += 2;
  291:         break;
  292:       }
  293: 
  294:     default:
  295:       abort ();
  296:     }
  297: }
  298: 
  299: #define coff_reloc16_extra_cases extra_case
  300: 
  301: #include "coffcode.h"
  302: 
  303: #undef  coff_bfd_get_relocated_section_contents
  304: #undef coff_bfd_relax_section
  305: #define coff_bfd_get_relocated_section_contents \
  306:   bfd_coff_reloc16_get_relocated_section_contents
  307: #define coff_bfd_relax_section bfd_coff_reloc16_relax_section
  308: 
  309: CREATE_BIG_COFF_TARGET_VEC (h8500coff_vec, "coff-h8500", 0, 0, '_', NULL, COFF_SWAP_TABLE)