bfd/
[external/binutils.git] / bfd / cpu-i960.c
1 /* BFD library support routines for the i960 architecture.
2    Copyright 1990, 1991, 1993, 1994, 1996, 1999, 2000, 2001, 2002, 2006,
3    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
26 static bfd_boolean scan_960_mach
27   PARAMS ((const bfd_arch_info_type *, const char *));
28 static const bfd_arch_info_type *compatible
29   PARAMS ((const bfd_arch_info_type *, const bfd_arch_info_type *));
30
31 /* This routine is provided a string, and tries to work out if it
32    could possibly refer to the i960 machine pointed at in the
33    info_struct pointer */
34
35 static bfd_boolean
36 scan_960_mach (ap, string)
37      const bfd_arch_info_type *ap;
38      const char *string;
39 {
40   unsigned long machine;
41   int fail_because_not_80960 = FALSE;
42
43   /* Look for the string i960 at the front of the string.  */
44   if (strncasecmp ("i960", string, 4) == 0)
45     {
46       string += 4;
47
48       /* i960 on it's own means core to us.  */
49       if (* string == 0)
50         return ap->mach == bfd_mach_i960_core;
51
52       /* "i960:*" is valid, anything else is not.  */
53       if (* string != ':')
54         return FALSE;
55
56       string ++;
57     }
58   /* In some bfds the cpu-id is written as "80960KA", "80960KB",
59      "80960CA" or "80960MC".  */
60   else if (CONST_STRNEQ (string, "80960"))
61     {
62       string += 5;
63
64       /* Set this to TRUE here.  If a correct matching postfix
65          is detected below it will be reset to FALSE.  */
66       fail_because_not_80960 = TRUE;
67     }
68   /* No match, can't be us.  */
69   else
70     return FALSE;
71
72   if (* string == '\0')
73     return FALSE;
74
75   if (string[0] == 'c' && string[1] == 'o' && string[2] == 'r' &&
76       string[3] == 'e' && string[4] == '\0')
77     machine = bfd_mach_i960_core;
78   else if (strcasecmp (string, "ka_sa") == 0)
79     machine = bfd_mach_i960_ka_sa;
80   else if (strcasecmp (string, "kb_sb") == 0)
81     machine = bfd_mach_i960_kb_sb;
82   else if (string[1] == '\0' || string[2] != '\0') /* rest are 2-char.  */
83     return FALSE;
84   else if (string[0] == 'k' && string[1] == 'b')
85     { machine = bfd_mach_i960_kb_sb; fail_because_not_80960 = FALSE; }
86   else if (string[0] == 's' && string[1] == 'b')
87     machine = bfd_mach_i960_kb_sb;
88   else if (string[0] == 'm' && string[1] == 'c')
89     { machine = bfd_mach_i960_mc; fail_because_not_80960 = FALSE; }
90   else if (string[0] == 'x' && string[1] == 'a')
91     machine = bfd_mach_i960_xa;
92   else if (string[0] == 'c' && string[1] == 'a')
93     { machine = bfd_mach_i960_ca; fail_because_not_80960 = FALSE; }
94   else if (string[0] == 'k' && string[1] == 'a')
95     { machine = bfd_mach_i960_ka_sa; fail_because_not_80960 = FALSE; }
96   else if (string[0] == 's' && string[1] == 'a')
97     machine = bfd_mach_i960_ka_sa;
98   else if (string[0] == 'j' && string[1] == 'x')
99     machine = bfd_mach_i960_jx;
100   else if (string[0] == 'h' && string[1] == 'x')
101     machine = bfd_mach_i960_hx;
102   else
103     return FALSE;
104
105   if (fail_because_not_80960)
106     return FALSE;
107
108   if (machine == ap->mach)
109     return TRUE;
110
111   return FALSE;
112 }
113
114 /* This routine is provided two arch_infos and works out the i960
115    machine which would be compatible with both and returns a pointer
116    to its info structure */
117
118 static const bfd_arch_info_type *
119 compatible (a,b)
120      const bfd_arch_info_type *a;
121      const bfd_arch_info_type *b;
122 {
123
124   /* The i960 has distinct subspecies which may not interbreed:
125         CORE CA
126         CORE KA KB MC XA
127         CORE HX JX
128      Any architecture on the same line is compatible, the one on
129      the right is the least restrictive.
130
131      We represent this information in an array, each machine to a side */
132
133 #define ERROR   0
134 #define CORE    bfd_mach_i960_core  /*1*/
135 #define KA      bfd_mach_i960_ka_sa /*2*/
136 #define KB      bfd_mach_i960_kb_sb /*3*/
137 #define MC      bfd_mach_i960_mc    /*4*/
138 #define XA      bfd_mach_i960_xa    /*5*/
139 #define CA      bfd_mach_i960_ca    /*6*/
140 #define JX      bfd_mach_i960_jx    /*7*/
141 #define HX      bfd_mach_i960_hx    /*8*/
142 #define MAX_ARCH ((int)HX)
143
144   static const unsigned long matrix[MAX_ARCH+1][MAX_ARCH+1] =
145     {
146       { ERROR,  CORE,   KA,     KB,     MC,     XA,     CA,     JX,     HX },
147       { CORE,   CORE,   KA,     KB,     MC,     XA,     CA,     JX,     HX },
148       { KA,     KA,     KA,     KB,     MC,     XA,     ERROR,  ERROR,  ERROR},
149       { KB,     KB,     KB,     KB,     MC,     XA,     ERROR,  ERROR,  ERROR},
150       { MC,     MC,     MC,     MC,     MC,     XA,     ERROR,  ERROR,  ERROR},
151       { XA,     XA,     XA,     XA,     XA,     XA,     ERROR,  ERROR,  ERROR},
152       { CA,     CA,     ERROR,  ERROR,  ERROR,  ERROR,  CA,     ERROR,  ERROR},
153       { JX,     JX,     ERROR,  ERROR,  ERROR,  ERROR,  ERROR,  JX,     HX },
154       { HX,     HX,     ERROR,  ERROR,  ERROR,  ERROR,  ERROR,  HX,     HX },
155     };
156
157   if (a->arch != b->arch || matrix[a->mach][b->mach] == ERROR)
158     {
159     return NULL;
160     }
161   else
162     {
163     return (a->mach  ==  matrix[a->mach][b->mach]) ?  a : b;
164     }
165 }
166
167 #define N(a,b,d,n) \
168 { 32, 32, 8,bfd_arch_i960,a,"i960",b,3,d,compatible,scan_960_mach,n,}
169
170 static const bfd_arch_info_type arch_info_struct[] =
171 {
172   N(bfd_mach_i960_ka_sa,"i960:ka_sa",FALSE, &arch_info_struct[1]),
173   N(bfd_mach_i960_kb_sb,"i960:kb_sb",FALSE, &arch_info_struct[2]),
174   N(bfd_mach_i960_mc,   "i960:mc",   FALSE, &arch_info_struct[3]),
175   N(bfd_mach_i960_xa,   "i960:xa",   FALSE, &arch_info_struct[4]),
176   N(bfd_mach_i960_ca,   "i960:ca",   FALSE, &arch_info_struct[5]),
177   N(bfd_mach_i960_jx,   "i960:jx",   FALSE, &arch_info_struct[6]),
178   N(bfd_mach_i960_hx,   "i960:hx",   FALSE, 0),
179 };
180
181 const bfd_arch_info_type bfd_i960_arch =
182   N(bfd_mach_i960_core, "i960:core", TRUE, &arch_info_struct[0]);