OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [bfd/] [cpu-m68k.c] - Blame information for rev 840

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.