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