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