bfd/coff-m88k.c

   1 /* BFD back-end for Motorola 88000 COFF "Binary Compatability Standard" files.
   2    Copyright 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
   3    Written by Cygnus Support.
   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 2 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20
  21 #define M88 1           /* Customize various include files */
  22 #include "bfd.h"
  23 #include "sysdep.h"
  24 #include "libbfd.h"
  25 #include "obstack.h"
  26 #include "coff/m88k.h"
  27 #include "coff/internal.h"
  28 #include "libcoff.h"
  29 #undef HOWTO_PREPARE
  30 /* Provided the symbol, returns the value reffed */
  31 #define HOWTO_PREPARE(relocation, symbol)       \
  32   {                                             \
  33   if (symbol != (asymbol *)NULL) {              \
  34     if (bfd_is_com_section (symbol->section)) { \
  35       relocation = 0;                           \
  36     }                                           \
  37     else {                                      \
  38       relocation = symbol->value;               \
  39     }                                           \
  40   }                                             \
  41   if (symbol->section != (asection *)NULL) {    \
  42     relocation += symbol->section->output_section->vma +        \
  43       symbol->section->output_offset;           \
  44   }                                             \
  45 }
  46
  47
  48 static bfd_reloc_status_type
  49 DEFUN(howto_hvrt16,(abfd, reloc_entry, symbol_in, data,
  50                     ignore_input_section, ignore_bfd),
  51       bfd *abfd AND
  52       arelent *reloc_entry AND
  53       asymbol *symbol_in AND
  54       PTR data AND
  55       asection *ignore_input_section AND
  56       bfd *ignore_bfd)
  57 {
  58   long relocation = 0;
  59   bfd_vma addr = reloc_entry->address;
  60   long x = bfd_get_16(abfd, (bfd_byte *)data + addr);
  61
  62   HOWTO_PREPARE(relocation, symbol_in);
  63
  64   x = (x + relocation + reloc_entry->addend) >> 16;
  65
  66   bfd_put_16(abfd, x, (bfd_byte *)data + addr);
  67   return bfd_reloc_ok;
  68 }
  69
  70
  71
  72 static reloc_howto_type howto_table[] =
  73 {
  74   HOWTO(R_PCR16L,02,1,16,true, 0,false,true,0,"PCR16L",false,0x0000ffff,0x0000ffff,true),
  75   HOWTO(R_PCR26L,02,2,26,true, 0,false,true,0,"PCR26L",false,0x03ffffff,0x03ffffff,true),
  76   HOWTO(R_VRT16, 00,1,16,false,0,false,true,0,"VRT16", false,0x0000ffff,0x0000ffff,true),
  77   HOWTO(R_HVRT16,16,1,16,false,0,false,true,howto_hvrt16,"HVRT16",false,0x0000ffff,0x0000ffff,true),
  78   HOWTO(R_LVRT16,00,1,16,false,0,false,true,0,"LVRT16",false,0x0000ffff,0x0000ffff,true),
  79   HOWTO(R_VRT32, 00,2,32,false,0,false,true,0,"VRT32", false,0xffffffff,0xffffffff,true),
  80 };
  81
  82
  83 /* Code to swap in the reloc offset */
  84 #define SWAP_IN_RELOC_OFFSET   bfd_h_get_16
  85 #define SWAP_OUT_RELOC_OFFSET bfd_h_put_16
  86
  87
  88 /* Code to turn an external r_type into a pointer to an entry in the
  89    above howto table */
  90 #define RTYPE2HOWTO(cache_ptr, dst)                                     \
  91             if ((dst)->r_type >= R_PCR16L && (dst)->r_type <= R_VRT32) {\
  92                 cache_ptr->howto = howto_table + (dst)->r_type - R_PCR16L;\
  93                 cache_ptr->addend += (dst)->r_offset << 16;             \
  94             }                                                           \
  95             else {                                                      \
  96                 BFD_ASSERT(0);                                          \
  97             }
  98
  99
 100
 101 #define BADMAG(x) MC88BADMAG(x)
 102 #include "coffcode.h"
 103
 104 #undef coff_write_armap
 105
 106 bfd_target m88kbcs_vec =
 107 {
 108   "coff-m88kbcs",               /* name */
 109   bfd_target_coff_flavour,
 110   true,                         /* data byte order is big */
 111   true,                         /* header byte order is big */
 112
 113   (HAS_RELOC | EXEC_P |         /* object flags */
 114    HAS_LINENO | HAS_DEBUG |
 115    HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT),
 116
 117   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
 118   '_',                          /* leading underscore */
 119   '/',                          /* ar_pad_char */
 120   15,                           /* ar_max_namelen */
 121   3,                            /* default alignment power */
 122   _do_getb64, _do_getb_signed_64, _do_putb64,
 123      _do_getb32, _do_getb_signed_32, _do_putb32,
 124      _do_getb16, _do_getb_signed_16, _do_putb16, /* data */
 125   _do_getb64, _do_getb_signed_64, _do_putb64,
 126      _do_getb32, _do_getb_signed_32, _do_putb32,
 127      _do_getb16, _do_getb_signed_16, _do_putb16, /* hdrs */
 128
 129     {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
 130        bfd_generic_archive_p, _bfd_dummy_target},
 131     {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
 132        bfd_false},
 133     {bfd_false, coff_write_object_contents, /* bfd_write_contents */
 134        _bfd_write_archive_contents, bfd_false},
 135
 136   JUMP_TABLE(coff),
 137   COFF_SWAP_TABLE,
 138 };