bfd/cpu-m68k.c

   1 /* BFD library support routines for architectures.
   2    Copyright 1990, 1991, 1992, 1993, 1994, 1997, 1998, 2000, 2001, 2002,
   3    2003, 2004, 2006, 2007 Free Software Foundation, Inc.
   4    Hacked by Steve Chamberlain of Cygnus Support.
   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 2 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, MA 02110-1301, USA.  */
  21
  22 #include "sysdep.h"
  23 #include "bfd.h"
  24 #include "libbfd.h"
  25 #include "opcode/m68k.h"
  26
  27 static const bfd_arch_info_type *
  28 bfd_m68k_compatible (const bfd_arch_info_type *a,
  29                      const bfd_arch_info_type *b);
  30
  31 #define N(name, print,d,next)  \
  32 {  32, 32, 8, bfd_arch_m68k, name, "m68k",print,2,d,bfd_m68k_compatible,bfd_default_scan, next, }
  33
  34 static const bfd_arch_info_type arch_info_struct[] =
  35   {
  36     N(bfd_mach_m68000,  "m68k:68000", FALSE, &arch_info_struct[1]),
  37     N(bfd_mach_m68008,  "m68k:68008", FALSE, &arch_info_struct[2]),
  38     N(bfd_mach_m68010,  "m68k:68010", FALSE, &arch_info_struct[3]),
  39     N(bfd_mach_m68020,  "m68k:68020", FALSE, &arch_info_struct[4]),
  40     N(bfd_mach_m68030,  "m68k:68030", FALSE, &arch_info_struct[5]),
  41     N(bfd_mach_m68040,  "m68k:68040", FALSE, &arch_info_struct[6]),
  42     N(bfd_mach_m68060,  "m68k:68060", FALSE, &arch_info_struct[7]),
  43     N(bfd_mach_cpu32,   "m68k:cpu32", FALSE, &arch_info_struct[8]),
  44     N(bfd_mach_fido,    "m68k:fido",  FALSE, &arch_info_struct[9]),
  45
  46     /* Various combinations of CF architecture features */
  47     N(bfd_mach_mcf_isa_a_nodiv, "m68k:isa-a:nodiv",
  48       FALSE, &arch_info_struct[10]),
  49     N(bfd_mach_mcf_isa_a, "m68k:isa-a",
  50       FALSE, &arch_info_struct[11]),
  51     N(bfd_mach_mcf_isa_a_mac, "m68k:isa-a:mac",
  52       FALSE, &arch_info_struct[12]),
  53     N(bfd_mach_mcf_isa_a_emac, "m68k:isa-a:emac",
  54       FALSE, &arch_info_struct[13]),
  55     N(bfd_mach_mcf_isa_aplus, "m68k:isa-aplus",
  56       FALSE, &arch_info_struct[14]),
  57     N(bfd_mach_mcf_isa_aplus_mac, "m68k:isa-aplus:mac",
  58       FALSE, &arch_info_struct[15]),
  59     N(bfd_mach_mcf_isa_aplus_emac, "m68k:isa-aplus:emac",
  60       FALSE, &arch_info_struct[16]),
  61     N(bfd_mach_mcf_isa_b_nousp, "m68k:isa-b:nousp",
  62       FALSE, &arch_info_struct[17]),
  63     N(bfd_mach_mcf_isa_b_nousp_mac, "m68k:isa-b:nousp:mac",
  64       FALSE, &arch_info_struct[18]),
  65     N(bfd_mach_mcf_isa_b_nousp_emac, "m68k:isa-b:nousp:emac",
  66       FALSE, &arch_info_struct[19]),
  67     N(bfd_mach_mcf_isa_b, "m68k:isa-b",
  68       FALSE, &arch_info_struct[20]),
  69     N(bfd_mach_mcf_isa_b_mac, "m68k:isa-b:mac",
  70       FALSE, &arch_info_struct[21]),
  71     N(bfd_mach_mcf_isa_b_emac, "m68k:isa-b:emac",
  72       FALSE, &arch_info_struct[22]),
  73     N(bfd_mach_mcf_isa_b_float, "m68k:isa-b:float",
  74       FALSE, &arch_info_struct[23]),
  75     N(bfd_mach_mcf_isa_b_float_mac, "m68k:isa-b:float:mac",
  76       FALSE, &arch_info_struct[24]),
  77     N(bfd_mach_mcf_isa_b_float_emac, "m68k:isa-b:float:emac",
  78       FALSE, &arch_info_struct[25]),
  79     N(bfd_mach_mcf_isa_c, "m68k:isa-c",
  80       FALSE, &arch_info_struct[26]),
  81     N(bfd_mach_mcf_isa_c_mac, "m68k:isa-c:mac",
  82       FALSE, &arch_info_struct[27]),
  83     N(bfd_mach_mcf_isa_c_emac, "m68k:isa-c:emac",
  84       FALSE, &arch_info_struct[28]),
  85
  86     /* Legacy names for CF architectures */
  87     N(bfd_mach_mcf_isa_a_nodiv, "m68k:5200", FALSE, &arch_info_struct[29]),
  88     N(bfd_mach_mcf_isa_a_mac,"m68k:5206e", FALSE, &arch_info_struct[30]),
  89     N(bfd_mach_mcf_isa_a_mac, "m68k:5307", FALSE, &arch_info_struct[31]),
  90     N(bfd_mach_mcf_isa_b_nousp_mac, "m68k:5407", FALSE, &arch_info_struct[32]),
  91     N(bfd_mach_mcf_isa_aplus_emac, "m68k:528x", FALSE, &arch_info_struct[33]),
  92     N(bfd_mach_mcf_isa_aplus_emac, "m68k:521x", FALSE, &arch_info_struct[34]),
  93     N(bfd_mach_mcf_isa_a_emac, "m68k:5249", FALSE, &arch_info_struct[35]),
  94     N(bfd_mach_mcf_isa_b_float_emac, "m68k:547x",
  95       FALSE, &arch_info_struct[36]),
  96     N(bfd_mach_mcf_isa_b_float_emac, "m68k:548x",
  97       FALSE, &arch_info_struct[37]),
  98     N(bfd_mach_mcf_isa_b_float_emac, "m68k:cfv4e", FALSE, 0),
  99   };
 100
 101 const bfd_arch_info_type bfd_m68k_arch =
 102   N(0, "m68k", TRUE, &arch_info_struct[0]);
 103
 104 /* Table indexed by bfd_mach_arch number indicating which
 105    architectural features are supported.  */
 106 static const unsigned m68k_arch_features[] =
 107 {
 108   0,
 109   m68000|m68881|m68851,
 110   m68000|m68881|m68851,
 111   m68010|m68881|m68851,
 112   m68020|m68881|m68851,
 113   m68030|m68881|m68851,
 114   m68040|m68881|m68851,
 115   m68060|m68881|m68851,
 116   cpu32|m68881,
 117   fido_a|m68881,
 118   mcfisa_a,
 119   mcfisa_a|mcfhwdiv,
 120   mcfisa_a|mcfhwdiv|mcfmac,
 121   mcfisa_a|mcfhwdiv|mcfemac,
 122   mcfisa_a|mcfisa_aa|mcfhwdiv|mcfusp,
 123   mcfisa_a|mcfisa_aa|mcfhwdiv|mcfusp|mcfmac,
 124   mcfisa_a|mcfisa_aa|mcfhwdiv|mcfusp|mcfemac,
 125   mcfisa_a|mcfhwdiv|mcfisa_b,
 126   mcfisa_a|mcfhwdiv|mcfisa_b|mcfmac,
 127   mcfisa_a|mcfhwdiv|mcfisa_b|mcfemac,
 128   mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp,
 129   mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|mcfmac,
 130   mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|mcfemac,
 131   mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|cfloat,
 132   mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|cfloat|mcfmac,
 133   mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|cfloat|mcfemac,
 134   mcfisa_a|mcfhwdiv|mcfisa_c|mcfusp,
 135   mcfisa_a|mcfhwdiv|mcfisa_c|mcfusp|mcfmac,
 136   mcfisa_a|mcfhwdiv|mcfisa_c|mcfusp|mcfemac,
 137 };
 138
 139 /* Return the count of bits set in MASK  */
 140 static unsigned
 141 bit_count (unsigned mask)
 142 {
 143   unsigned ix;
 144
 145   for (ix = 0; mask; ix++)
 146     /* Clear the LSB set */
 147     mask ^= mask & -mask;
 148   return ix;
 149 }
 150
 151 /* Return the architectural features supported by MACH */
 152
 153 unsigned
 154 bfd_m68k_mach_to_features (int mach)
 155 {
 156   if ((unsigned)mach
 157       >= sizeof (m68k_arch_features) / sizeof (m68k_arch_features[0]))
 158     mach = 0;
 159   return m68k_arch_features[mach];
 160 }
 161
 162 /* Return the bfd machine that most closely represents the
 163    architectural features.  We find the machine with the smallest
 164    number of additional features.  If there is no such machine, we
 165    find the one with the smallest number of missing features.  */
 166
 167 int bfd_m68k_features_to_mach (unsigned features)
 168 {
 169   int superset = 0, subset = 0;
 170   unsigned extra = 99, missing = 99;
 171   unsigned ix;
 172
 173   for (ix = 0;
 174        ix != sizeof (m68k_arch_features) / sizeof (m68k_arch_features[0]);
 175        ix++)
 176     {
 177       unsigned this_extra, this_missing;
 178
 179       if (m68k_arch_features[ix] == features)
 180         return ix;
 181       this_extra = bit_count (m68k_arch_features[ix] & ~features);
 182       if (this_extra < extra)
 183         {
 184           extra = this_extra;
 185           superset = ix;
 186         }
 187
 188       this_missing = bit_count (features & ~m68k_arch_features[ix]);
 189       if (this_missing < missing)
 190         {
 191           missing = this_missing;
 192           superset = ix;
 193         }
 194     }
 195   return superset ? superset : subset;
 196 }
 197
 198 static const bfd_arch_info_type *
 199 bfd_m68k_compatible (const bfd_arch_info_type *a,
 200                      const bfd_arch_info_type *b)
 201 {
 202   if (a->arch != b->arch)
 203     return NULL;
 204
 205   if (a->bits_per_word != b->bits_per_word)
 206     return NULL;
 207
 208   if (!a->mach)
 209     return b;
 210   if (!b->mach)
 211     return a;
 212
 213   if (a->mach <= bfd_mach_m68060 && b->mach <= bfd_mach_m68060)
 214     /* Merge m68k machine. */
 215     return a->mach > b->mach ? a : b;
 216   else if (a->mach >= bfd_mach_cpu32 && b->mach >= bfd_mach_cpu32)
 217     {
 218       /* Merge the machine features.  */
 219       unsigned features = (bfd_m68k_mach_to_features (a->mach)
 220                            | bfd_m68k_mach_to_features (b->mach));
 221
 222       /* CPU32 and Coldfire are incompatible.  */
 223       if ((~features & (cpu32 | mcfisa_a)) == 0)
 224         return NULL;
 225
 226       /* Fido and Coldfire are incompatible.  */
 227       if ((~features & (fido_a | mcfisa_a)) == 0)
 228         return NULL;
 229
 230       /* ISA A+ and ISA B are incompatible.  */
 231       if ((~features & (mcfisa_aa | mcfisa_b)) == 0)
 232         return NULL;
 233
 234       /* ISA B and ISA C are incompatible.  */
 235       if ((~features & (mcfisa_b | mcfisa_c)) == 0)
 236         return NULL;
 237
 238       /* MAC and EMAC code cannot be merged.  */
 239       if ((~features & (mcfmac | mcfemac)) == 0)
 240         return NULL;
 241
 242       /* CPU32 is compatible with Fido except that Fido does not
 243          support tbl instructions.  Warn when the user wants to mix
 244          the two.  */
 245       if ((a->mach == bfd_mach_cpu32 && b->mach == bfd_mach_fido)
 246           || (a->mach == bfd_mach_fido && b->mach == bfd_mach_cpu32))
 247         {
 248           static int cpu32_fido_mix_warning;
 249           if (!cpu32_fido_mix_warning)
 250             {
 251               cpu32_fido_mix_warning = 1;
 252               (*_bfd_error_handler) ("warning: linking CPU32 objects with fido objects");
 253             }
 254           return bfd_lookup_arch (a->arch,
 255                                   bfd_m68k_features_to_mach (fido_a | m68881));
 256         }
 257
 258       return bfd_lookup_arch (a->arch, bfd_m68k_features_to_mach (features));
 259     }
 260   else
 261     /* They are incompatible.  */
 262     return NULL;
 263 }