mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-08 05:54:40 +00:00
173 lines
5.8 KiB
C
173 lines
5.8 KiB
C
/* BFD library support routines for the i960 architecture.
|
|
Copyright (C) 1990-2014 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 3 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 "sysdep.h"
|
|
#include "bfd.h"
|
|
#include "libbfd.h"
|
|
|
|
/* This routine is provided a string, and tries to work out if it
|
|
could possibly refer to the i960 machine pointed at in the
|
|
info_struct pointer */
|
|
|
|
static bfd_boolean
|
|
scan_960_mach (const bfd_arch_info_type *ap,
|
|
const char *string)
|
|
{
|
|
unsigned long machine;
|
|
int fail_because_not_80960 = FALSE;
|
|
|
|
/* Look for the string i960 at the front of the string. */
|
|
if (strncasecmp ("i960", string, 4) == 0)
|
|
{
|
|
string += 4;
|
|
|
|
/* i960 on it's own means core to us. */
|
|
if (* string == 0)
|
|
return ap->mach == bfd_mach_i960_core;
|
|
|
|
/* "i960:*" is valid, anything else is not. */
|
|
if (* string != ':')
|
|
return FALSE;
|
|
|
|
string ++;
|
|
}
|
|
/* In some bfds the cpu-id is written as "80960KA", "80960KB",
|
|
"80960CA" or "80960MC". */
|
|
else if (CONST_STRNEQ (string, "80960"))
|
|
{
|
|
string += 5;
|
|
|
|
/* Set this to TRUE here. If a correct matching postfix
|
|
is detected below it will be reset to FALSE. */
|
|
fail_because_not_80960 = TRUE;
|
|
}
|
|
/* No match, can't be us. */
|
|
else
|
|
return FALSE;
|
|
|
|
if (* string == '\0')
|
|
return FALSE;
|
|
|
|
if (string[0] == 'c' && string[1] == 'o' && string[2] == 'r' &&
|
|
string[3] == 'e' && string[4] == '\0')
|
|
machine = bfd_mach_i960_core;
|
|
else if (strcasecmp (string, "ka_sa") == 0)
|
|
machine = bfd_mach_i960_ka_sa;
|
|
else if (strcasecmp (string, "kb_sb") == 0)
|
|
machine = bfd_mach_i960_kb_sb;
|
|
else if (string[1] == '\0' || string[2] != '\0') /* rest are 2-char. */
|
|
return FALSE;
|
|
else if (string[0] == 'k' && string[1] == 'b')
|
|
{ machine = bfd_mach_i960_kb_sb; fail_because_not_80960 = FALSE; }
|
|
else if (string[0] == 's' && string[1] == 'b')
|
|
machine = bfd_mach_i960_kb_sb;
|
|
else if (string[0] == 'm' && string[1] == 'c')
|
|
{ machine = bfd_mach_i960_mc; fail_because_not_80960 = FALSE; }
|
|
else if (string[0] == 'x' && string[1] == 'a')
|
|
machine = bfd_mach_i960_xa;
|
|
else if (string[0] == 'c' && string[1] == 'a')
|
|
{ machine = bfd_mach_i960_ca; fail_because_not_80960 = FALSE; }
|
|
else if (string[0] == 'k' && string[1] == 'a')
|
|
{ machine = bfd_mach_i960_ka_sa; fail_because_not_80960 = FALSE; }
|
|
else if (string[0] == 's' && string[1] == 'a')
|
|
machine = bfd_mach_i960_ka_sa;
|
|
else if (string[0] == 'j' && string[1] == 'x')
|
|
machine = bfd_mach_i960_jx;
|
|
else if (string[0] == 'h' && string[1] == 'x')
|
|
machine = bfd_mach_i960_hx;
|
|
else
|
|
return FALSE;
|
|
|
|
if (fail_because_not_80960)
|
|
return FALSE;
|
|
|
|
if (machine == ap->mach)
|
|
return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
/* This routine is provided two arch_infos and works out the i960
|
|
machine which would be compatible with both and returns a pointer
|
|
to its info structure */
|
|
|
|
static const bfd_arch_info_type *
|
|
compatible (const bfd_arch_info_type *a,
|
|
const bfd_arch_info_type *b)
|
|
{
|
|
|
|
/* The i960 has distinct subspecies which may not interbreed:
|
|
CORE CA
|
|
CORE KA KB MC XA
|
|
CORE HX JX
|
|
Any architecture on the same line is compatible, the one on
|
|
the right is the least restrictive.
|
|
|
|
We represent this information in an array, each machine to a side */
|
|
|
|
#define ERROR 0
|
|
#define CORE bfd_mach_i960_core /*1*/
|
|
#define KA bfd_mach_i960_ka_sa /*2*/
|
|
#define KB bfd_mach_i960_kb_sb /*3*/
|
|
#define MC bfd_mach_i960_mc /*4*/
|
|
#define XA bfd_mach_i960_xa /*5*/
|
|
#define CA bfd_mach_i960_ca /*6*/
|
|
#define JX bfd_mach_i960_jx /*7*/
|
|
#define HX bfd_mach_i960_hx /*8*/
|
|
#define MAX_ARCH ((int)HX)
|
|
|
|
static const unsigned long matrix[MAX_ARCH+1][MAX_ARCH+1] =
|
|
{
|
|
{ ERROR, CORE, KA, KB, MC, XA, CA, JX, HX },
|
|
{ CORE, CORE, KA, KB, MC, XA, CA, JX, HX },
|
|
{ KA, KA, KA, KB, MC, XA, ERROR, ERROR, ERROR},
|
|
{ KB, KB, KB, KB, MC, XA, ERROR, ERROR, ERROR},
|
|
{ MC, MC, MC, MC, MC, XA, ERROR, ERROR, ERROR},
|
|
{ XA, XA, XA, XA, XA, XA, ERROR, ERROR, ERROR},
|
|
{ CA, CA, ERROR, ERROR, ERROR, ERROR, CA, ERROR, ERROR},
|
|
{ JX, JX, ERROR, ERROR, ERROR, ERROR, ERROR, JX, HX },
|
|
{ HX, HX, ERROR, ERROR, ERROR, ERROR, ERROR, HX, HX },
|
|
};
|
|
|
|
if (a->arch != b->arch || matrix[a->mach][b->mach] == ERROR)
|
|
return NULL;
|
|
|
|
return (a->mach == matrix[a->mach][b->mach]) ? a : b;
|
|
}
|
|
|
|
#define N(a,b,d,n) \
|
|
{ 32, 32, 8,bfd_arch_i960,a,"i960",b,3,d,compatible,scan_960_mach, \
|
|
bfd_arch_default_fill, n,}
|
|
|
|
static const bfd_arch_info_type arch_info_struct[] =
|
|
{
|
|
N(bfd_mach_i960_ka_sa,"i960:ka_sa",FALSE, &arch_info_struct[1]),
|
|
N(bfd_mach_i960_kb_sb,"i960:kb_sb",FALSE, &arch_info_struct[2]),
|
|
N(bfd_mach_i960_mc, "i960:mc", FALSE, &arch_info_struct[3]),
|
|
N(bfd_mach_i960_xa, "i960:xa", FALSE, &arch_info_struct[4]),
|
|
N(bfd_mach_i960_ca, "i960:ca", FALSE, &arch_info_struct[5]),
|
|
N(bfd_mach_i960_jx, "i960:jx", FALSE, &arch_info_struct[6]),
|
|
N(bfd_mach_i960_hx, "i960:hx", FALSE, 0),
|
|
};
|
|
|
|
const bfd_arch_info_type bfd_i960_arch =
|
|
N(bfd_mach_i960_core, "i960:core", TRUE, &arch_info_struct[0]);
|