[deliverable/binutils-gdb.git] / bfd / cpu-m68k.c

/* BFD library support routines for architectures.
   Copyright 1990, 1991, 1992, 1993, 1994, 1997, 1998, 2000, 2001, 2002,
   2003, 2004, 2006 Free Software Foundation, Inc.
   Hacked by Steve Chamberlain of Cygnus Support.

   This file is part of BFD, the Binary File Descriptor library.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */

#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "opcode/m68k.h"

static const bfd_arch_info_type *
bfd_m68k_compatible (const bfd_arch_info_type *a,
		     const bfd_arch_info_type *b);

#define N(name, print,d,next)  \
{  32, 32, 8, bfd_arch_m68k, name, "m68k",print,2,d,bfd_m68k_compatible,bfd_default_scan, next, }

static const bfd_arch_info_type arch_info_struct[] =
  {
    N(bfd_mach_m68000,  "m68k:68000", FALSE, &arch_info_struct[1]),
    N(bfd_mach_m68008,  "m68k:68008", FALSE, &arch_info_struct[2]),
    N(bfd_mach_m68010,  "m68k:68010", FALSE, &arch_info_struct[3]),
    N(bfd_mach_m68020,  "m68k:68020", FALSE, &arch_info_struct[4]),
    N(bfd_mach_m68030,  "m68k:68030", FALSE, &arch_info_struct[5]),
    N(bfd_mach_m68040,  "m68k:68040", FALSE, &arch_info_struct[6]),
    N(bfd_mach_m68060,  "m68k:68060", FALSE, &arch_info_struct[7]),
    N(bfd_mach_cpu32,   "m68k:cpu32", FALSE, &arch_info_struct[8]),
    N(bfd_mach_fido,    "m68k:fido",  FALSE, &arch_info_struct[9]),

    /* Various combinations of CF architecture features */
    N(bfd_mach_mcf_isa_a_nodiv, "m68k:isa-a:nodiv",
      FALSE, &arch_info_struct[10]),
    N(bfd_mach_mcf_isa_a, "m68k:isa-a",
      FALSE, &arch_info_struct[11]),
    N(bfd_mach_mcf_isa_a_mac, "m68k:isa-a:mac",
      FALSE, &arch_info_struct[12]),
    N(bfd_mach_mcf_isa_a_emac, "m68k:isa-a:emac",
      FALSE, &arch_info_struct[13]),
    N(bfd_mach_mcf_isa_aplus, "m68k:isa-aplus",
      FALSE, &arch_info_struct[14]),
    N(bfd_mach_mcf_isa_aplus_mac, "m68k:isa-aplus:mac",
      FALSE, &arch_info_struct[15]),
    N(bfd_mach_mcf_isa_aplus_emac, "m68k:isa-aplus:emac",
      FALSE, &arch_info_struct[16]),
    N(bfd_mach_mcf_isa_b_nousp, "m68k:isa-b:nousp",
      FALSE, &arch_info_struct[17]),
    N(bfd_mach_mcf_isa_b_nousp_mac, "m68k:isa-b:nousp:mac",
      FALSE, &arch_info_struct[18]),
    N(bfd_mach_mcf_isa_b_nousp_emac, "m68k:isa-b:nousp:emac",
      FALSE, &arch_info_struct[19]),
    N(bfd_mach_mcf_isa_b, "m68k:isa-b",
      FALSE, &arch_info_struct[20]),
    N(bfd_mach_mcf_isa_b_mac, "m68k:isa-b:mac",
      FALSE, &arch_info_struct[21]),
    N(bfd_mach_mcf_isa_b_emac, "m68k:isa-b:emac",
      FALSE, &arch_info_struct[22]),
    N(bfd_mach_mcf_isa_b_float, "m68k:isa-b:float",
      FALSE, &arch_info_struct[23]),
    N(bfd_mach_mcf_isa_b_float_mac, "m68k:isa-b:float:mac",
      FALSE, &arch_info_struct[24]),
    N(bfd_mach_mcf_isa_b_float_emac, "m68k:isa-b:float:emac",
      FALSE, &arch_info_struct[25]),

    /* Legacy names for CF architectures */
    N(bfd_mach_mcf_isa_a_nodiv, "m68k:5200", FALSE, &arch_info_struct[26]),
    N(bfd_mach_mcf_isa_a_mac,"m68k:5206e", FALSE, &arch_info_struct[27]),
    N(bfd_mach_mcf_isa_a_mac, "m68k:5307", FALSE, &arch_info_struct[28]),
    N(bfd_mach_mcf_isa_b_nousp_mac, "m68k:5407", FALSE, &arch_info_struct[29]),
    N(bfd_mach_mcf_isa_aplus_emac, "m68k:528x", FALSE, &arch_info_struct[30]),
    N(bfd_mach_mcf_isa_aplus_emac, "m68k:521x", FALSE, &arch_info_struct[31]),
    N(bfd_mach_mcf_isa_a_emac, "m68k:5249", FALSE, &arch_info_struct[32]),
    N(bfd_mach_mcf_isa_b_float_emac, "m68k:547x",
      FALSE, &arch_info_struct[33]),
    N(bfd_mach_mcf_isa_b_float_emac, "m68k:548x",
      FALSE, &arch_info_struct[34]),
    N(bfd_mach_mcf_isa_b_float_emac, "m68k:cfv4e", FALSE, 0),
  };

const bfd_arch_info_type bfd_m68k_arch =
  N(0, "m68k", TRUE, &arch_info_struct[0]);

/* Table indexed by bfd_mach_arch number indicating which
   architectural features are supported.  */
static const unsigned m68k_arch_features[] = 
{
  0,
  m68000|m68881|m68851,
  m68000|m68881|m68851,
  m68010|m68881|m68851,
  m68020|m68881|m68851,
  m68030|m68881|m68851,
  m68040|m68881|m68851,
  m68060|m68881|m68851,
  cpu32|m68881,
  fido_a|m68881,
  mcfisa_a,
  mcfisa_a|mcfhwdiv,
  mcfisa_a|mcfhwdiv|mcfmac,
  mcfisa_a|mcfhwdiv|mcfemac,
  mcfisa_a|mcfisa_aa|mcfhwdiv|mcfusp,
  mcfisa_a|mcfisa_aa|mcfhwdiv|mcfusp|mcfmac,
  mcfisa_a|mcfisa_aa|mcfhwdiv|mcfusp|mcfemac,
  mcfisa_a|mcfhwdiv|mcfisa_b,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfmac,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfemac,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|mcfmac,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|mcfemac,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|cfloat,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|cfloat|mcfmac,
  mcfisa_a|mcfhwdiv|mcfisa_b|mcfusp|cfloat|mcfemac,
};

/* Return the count of bits set in MASK  */
static unsigned
bit_count (unsigned mask)
{
  unsigned ix;

  for (ix = 0; mask; ix++)
    /* Clear the LSB set */
    mask ^= mask & -mask;
  return ix;
}

/* Return the architectural features supported by MACH */

unsigned
bfd_m68k_mach_to_features (int mach)
{
  if ((unsigned)mach
      >= sizeof (m68k_arch_features) / sizeof (m68k_arch_features[0]))
    mach = 0;
  return m68k_arch_features[mach];
}

/* Return the bfd machine that most closely represents the
   architectural features.  We find the machine with the smallest
   number of additional features.  If there is no such machine, we
   find the one with the smallest number of missing features.  */

int bfd_m68k_features_to_mach (unsigned features)
{
  int superset = 0, subset = 0;
  unsigned extra = 99, missing = 99;
  unsigned ix;

  for (ix = 0;
       ix != sizeof (m68k_arch_features) / sizeof (m68k_arch_features[0]);
       ix++)
    {
      unsigned this_extra, this_missing;
      
      if (m68k_arch_features[ix] == features)
	return ix;
      this_extra = bit_count (m68k_arch_features[ix] & ~features);
      if (this_extra < extra)
	{
	  extra = this_extra;
	  superset = ix;
	}
      
      this_missing = bit_count (features & ~m68k_arch_features[ix]);
      if (this_missing < missing)
	{
	  missing = this_missing;
	  superset = ix;
	}
    }
  return superset ? superset : subset;
}

static const bfd_arch_info_type *
bfd_m68k_compatible (const bfd_arch_info_type *a,
		     const bfd_arch_info_type *b)
{
  if (a->arch != b->arch)
    return NULL;

  if (a->bits_per_word != b->bits_per_word)
    return NULL;

  if (!a->mach)
    return b;
  if (!b->mach)
    return a;
  
  if (a->mach <= bfd_mach_m68060 && b->mach <= bfd_mach_m68060)
    /* Merge m68k machine. */
    return a->mach > b->mach ? a : b;
  else if (a->mach >= bfd_mach_cpu32 && b->mach >= bfd_mach_cpu32)
    {
      /* Merge the machine features.  */
      unsigned features = (bfd_m68k_mach_to_features (a->mach)
			   | bfd_m68k_mach_to_features (b->mach));

      /* CPU32 and Coldfire are incompatible.  */
      if ((~features & (cpu32 | mcfisa_a)) == 0)
	return NULL;

      /* Fido and Coldfire are incompatible.  */
      if ((~features & (fido_a | mcfisa_a)) == 0)
	return NULL;

      /* ISA A+ and ISA B are incompatible.  */
      if ((~features & (mcfisa_aa | mcfisa_b)) == 0)
	return NULL;

      /* MAC and EMAC code cannot be merged.  */
      if ((~features & (mcfmac | mcfemac)) == 0)
	return NULL;

      /* CPU32 is compatible with Fido except that Fido does not
	 support tbl instructions.  Warn when the user wants to mix
	 the two.  */
      if ((a->mach == bfd_mach_cpu32 && b->mach == bfd_mach_fido)
	  || (a->mach == bfd_mach_fido && b->mach == bfd_mach_cpu32))
	{
	  static int cpu32_fido_mix_warning;
	  if (!cpu32_fido_mix_warning)
	    {
	      cpu32_fido_mix_warning = 1;
	      (*_bfd_error_handler) ("warning: linking CPU32 objects with fido objects");
	    }
	  return bfd_lookup_arch (a->arch,
				  bfd_m68k_features_to_mach (fido_a | m68881));
	}

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