bfd/coff-m68k.c

   1 /* BFD back-end for Motorola 68000 COFF binaries.
   2    Copyright 1990, 1991, 1992, 1993, 1994 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 #include "bfd.h"
  22 #include "sysdep.h"
  23 #include "libbfd.h"
  24 #include "obstack.h"
  25 #include "coff/m68k.h"
  26 #include "coff/internal.h"
  27 #include "libcoff.h"
  28
  29 #ifndef LYNX_SPECIAL_FN
  30 #define LYNX_SPECIAL_FN 0
  31 #endif
  32
  33 #define COFF_DEFAULT_SECTION_ALIGNMENT_POWER (1)
  34
  35 /* The page size is a guess based on ELF.  */
  36 #define COFF_PAGE_SIZE 0x2000
  37
  38 /* Clean up namespace.  */
  39 #define m68kcoff_howto_table    _bfd_m68kcoff_howto_table
  40 #define m68k_rtype2howto        _bfd_m68kcoff_rtype2howto
  41 #define m68k_howto2rtype        _bfd_m68kcoff_howto2rtype
  42 #define m68k_reloc_type_lookup  _bfd_m68kcoff_reloc_type_lookup
  43
  44 #ifdef ONLY_DECLARE_RELOCS
  45 extern reloc_howto_type m68kcoff_howto_table[];
  46 #else
  47 reloc_howto_type m68kcoff_howto_table[] =
  48 {
  49   HOWTO(R_RELBYTE,             0,  0,   8,  false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "8", true, 0x000000ff,0x000000ff, false),
  50   HOWTO(R_RELWORD,             0,  1,   16, false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "16",        true, 0x0000ffff,0x0000ffff, false),
  51   HOWTO(R_RELLONG,             0,  2,   32, false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "32",        true, 0xffffffff,0xffffffff, false),
  52   HOWTO(R_PCRBYTE,             0,  0,   8,  true,  0, complain_overflow_signed, LYNX_SPECIAL_FN, "DISP8",    true, 0x000000ff,0x000000ff, false),
  53   HOWTO(R_PCRWORD,             0,  1,   16, true,  0, complain_overflow_signed, LYNX_SPECIAL_FN, "DISP16",   true, 0x0000ffff,0x0000ffff, false),
  54   HOWTO(R_PCRLONG,             0,  2,   32, true,  0, complain_overflow_signed, LYNX_SPECIAL_FN, "DISP32",   true, 0xffffffff,0xffffffff, false),
  55   HOWTO(R_RELLONG_NEG,         0,  -2,  32, false, 0, complain_overflow_bitfield, LYNX_SPECIAL_FN, "-32",       true, 0xffffffff,0xffffffff, false),
  56 };
  57 #endif /* not ONLY_DECLARE_RELOCS */
  58
  59 #ifndef BADMAG
  60 #define BADMAG(x) M68KBADMAG(x)
  61 #endif
  62 #define M68 1           /* Customize coffcode.h */
  63
  64 /* Turn a howto into a reloc number */
  65
  66 #ifdef ONLY_DECLARE_RELOCS
  67 extern void m68k_rtype2howto PARAMS ((arelent *internal, int relocentry));
  68 extern int m68k_howto2rtype PARAMS ((CONST struct reloc_howto_struct *));
  69 extern reloc_howto_type *m68k_reloc_type_lookup
  70   PARAMS ((bfd *, bfd_reloc_code_real_type));
  71 #else
  72 void
  73 m68k_rtype2howto(internal, relocentry)
  74      arelent *internal;
  75      int relocentry;
  76 {
  77   switch (relocentry)
  78   {
  79    case R_RELBYTE:      internal->howto = m68kcoff_howto_table + 0; break;
  80    case R_RELWORD:      internal->howto = m68kcoff_howto_table + 1; break;
  81    case R_RELLONG:      internal->howto = m68kcoff_howto_table + 2; break;
  82    case R_PCRBYTE:      internal->howto = m68kcoff_howto_table + 3; break;
  83    case R_PCRWORD:      internal->howto = m68kcoff_howto_table + 4; break;
  84    case R_PCRLONG:      internal->howto = m68kcoff_howto_table + 5; break;
  85    case R_RELLONG_NEG:  internal->howto = m68kcoff_howto_table + 6; break;
  86   }
  87 }
  88
  89 int
  90 m68k_howto2rtype (internal)
  91      CONST struct reloc_howto_struct *internal;
  92 {
  93   if (internal->pc_relative)
  94   {
  95     switch (internal->bitsize)
  96     {
  97      case 32: return R_PCRLONG;
  98      case 16: return R_PCRWORD;
  99      case 8: return R_PCRBYTE;
 100     }
 101   }
 102   else
 103   {
 104     switch (internal->bitsize)
 105      {
 106       case 32: return R_RELLONG;
 107       case 16: return R_RELWORD;
 108       case 8: return R_RELBYTE;
 109      }
 110   }
 111   return R_RELLONG;
 112 }
 113
 114 reloc_howto_type *
 115 m68k_reloc_type_lookup (abfd, code)
 116      bfd *abfd;
 117      bfd_reloc_code_real_type code;
 118 {
 119   switch (code)
 120     {
 121     default:                    return NULL;
 122     case BFD_RELOC_8:           return m68kcoff_howto_table + 0;
 123     case BFD_RELOC_16:          return m68kcoff_howto_table + 1;
 124     case BFD_RELOC_CTOR:
 125     case BFD_RELOC_32:          return m68kcoff_howto_table + 2;
 126     case BFD_RELOC_8_PCREL:     return m68kcoff_howto_table + 3;
 127     case BFD_RELOC_16_PCREL:    return m68kcoff_howto_table + 4;
 128     case BFD_RELOC_32_PCREL:    return m68kcoff_howto_table + 5;
 129       /* FIXME: There doesn't seem to be a code for R_RELLONG_NEG.  */
 130     }
 131   /*NOTREACHED*/
 132 }
 133
 134 #endif /* not ONLY_DECLARE_RELOCS */
 135
 136 #define RTYPE2HOWTO(internal, relocentry) \
 137   m68k_rtype2howto(internal, (relocentry)->r_type)
 138
 139 #define SELECT_RELOC(external, internal) \
 140   external.r_type = m68k_howto2rtype(internal);
 141
 142 #define coff_bfd_reloc_type_lookup m68k_reloc_type_lookup
 143
 144 #define coff_relocate_section _bfd_coff_generic_relocate_section
 145
 146 #include "coffcode.h"
 147
 148 const bfd_target
 149 #ifdef TARGET_SYM
 150   TARGET_SYM =
 151 #else
 152   m68kcoff_vec =
 153 #endif
 154 {
 155 #ifdef TARGET_NAME
 156   TARGET_NAME,
 157 #else
 158   "coff-m68k",                  /* name */
 159 #endif
 160   bfd_target_coff_flavour,
 161   true,                         /* data byte order is big */
 162   true,                         /* header byte order is big */
 163
 164   (HAS_RELOC | EXEC_P |         /* object flags */
 165    HAS_LINENO | HAS_DEBUG |
 166    HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
 167
 168   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
 169 #ifdef NAMES_HAVE_UNDERSCORE
 170   '_',
 171 #else
 172   0,                            /* leading underscore */
 173 #endif
 174   '/',                          /* ar_pad_char */
 175   15,                           /* ar_max_namelen */
 176   1,                            /* minimum section alignment */
 177   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 178      bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 179      bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* data */
 180   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 181      bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 182      bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* hdrs */
 183
 184  {_bfd_dummy_target, coff_object_p, /* bfd_check_format */
 185    bfd_generic_archive_p, _bfd_dummy_target},
 186  {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */
 187    bfd_false},
 188  {bfd_false, coff_write_object_contents, /* bfd_write_contents */
 189    _bfd_write_archive_contents, bfd_false},
 190
 191      BFD_JUMP_TABLE_GENERIC (coff),
 192      BFD_JUMP_TABLE_COPY (coff),
 193      BFD_JUMP_TABLE_CORE (_bfd_nocore),
 194      BFD_JUMP_TABLE_ARCHIVE (_bfd_archive_coff),
 195      BFD_JUMP_TABLE_SYMBOLS (coff),
 196      BFD_JUMP_TABLE_RELOCS (coff),
 197      BFD_JUMP_TABLE_WRITE (coff),
 198      BFD_JUMP_TABLE_LINK (coff),
 199      BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
 200
 201   COFF_SWAP_TABLE
 202  };