bfd/archures.c

   1 /* BFD library support routines for architectures.
   2    Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
   3    2000, 2001
   4    Free Software Foundation, Inc.
   5    Hacked by John Gilmore and Steve Chamberlain of Cygnus Support.
   6
   7 This file is part of BFD, the Binary File Descriptor library.
   8
   9 This program is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 2 of the License, or
  12 (at your option) any later version.
  13
  14 This program is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 GNU General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with this program; if not, write to the Free Software
  21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  22
  23 #include "bfd.h"
  24 #include "sysdep.h"
  25 #include "libbfd.h"
  26 #include <ctype.h>
  27
  28 /*
  29
  30 SECTION
  31         Architectures
  32
  33         BFD keeps one atom in a BFD describing the
  34         architecture of the data attached to the BFD: a pointer to a
  35         <<bfd_arch_info_type>>.
  36
  37         Pointers to structures can be requested independently of a BFD
  38         so that an architecture's information can be interrogated
  39         without access to an open BFD.
  40
  41         The architecture information is provided by each architecture package.
  42         The set of default architectures is selected by the macro
  43         <<SELECT_ARCHITECTURES>>.  This is normally set up in the
  44         @file{config/@var{target}.mt} file of your choice.  If the name is not
  45         defined, then all the architectures supported are included.
  46
  47         When BFD starts up, all the architectures are called with an
  48         initialize method.  It is up to the architecture back end to
  49         insert as many items into the list of architectures as it wants to;
  50         generally this would be one for each machine and one for the
  51         default case (an item with a machine field of 0).
  52
  53         BFD's idea of an architecture is implemented in @file{archures.c}.
  54 */
  55
  56 /*
  57
  58 SUBSECTION
  59         bfd_architecture
  60
  61 DESCRIPTION
  62         This enum gives the object file's CPU architecture, in a
  63         global sense---i.e., what processor family does it belong to?
  64         Another field indicates which processor within
  65         the family is in use.  The machine gives a number which
  66         distinguishes different versions of the architecture,
  67         containing, for example, 2 and 3 for Intel i960 KA and i960 KB,
  68         and 68020 and 68030 for Motorola 68020 and 68030.
  69
  70 .enum bfd_architecture
  71 .{
  72 .  bfd_arch_unknown,   {* File arch not known *}
  73 .  bfd_arch_obscure,   {* Arch known, not one of these *}
  74 .  bfd_arch_m68k,      {* Motorola 68xxx *}
  75 .#define bfd_mach_m68000 1
  76 .#define bfd_mach_m68008 2
  77 .#define bfd_mach_m68010 3
  78 .#define bfd_mach_m68020 4
  79 .#define bfd_mach_m68030 5
  80 .#define bfd_mach_m68040 6
  81 .#define bfd_mach_m68060 7
  82 .#define bfd_mach_cpu32  8
  83 .#define bfd_mach_mcf5200  9
  84 .#define bfd_mach_mcf5206e 10
  85 .#define bfd_mach_mcf5307  11
  86 .#define bfd_mach_mcf5407  12
  87 .  bfd_arch_vax,       {* DEC Vax *}
  88 .  bfd_arch_i960,      {* Intel 960 *}
  89 .    {* The order of the following is important.
  90 .       lower number indicates a machine type that
  91 .       only accepts a subset of the instructions
  92 .       available to machines with higher numbers.
  93 .       The exception is the "ca", which is
  94 .       incompatible with all other machines except
  95 .       "core". *}
  96 .
  97 .#define bfd_mach_i960_core      1
  98 .#define bfd_mach_i960_ka_sa     2
  99 .#define bfd_mach_i960_kb_sb     3
 100 .#define bfd_mach_i960_mc        4
 101 .#define bfd_mach_i960_xa        5
 102 .#define bfd_mach_i960_ca        6
 103 .#define bfd_mach_i960_jx        7
 104 .#define bfd_mach_i960_hx        8
 105 .
 106 .  bfd_arch_a29k,      {* AMD 29000 *}
 107 .  bfd_arch_sparc,     {* SPARC *}
 108 .#define bfd_mach_sparc                 1
 109 .{* The difference between v8plus and v9 is that v9 is a true 64 bit env.  *}
 110 .#define bfd_mach_sparc_sparclet        2
 111 .#define bfd_mach_sparc_sparclite       3
 112 .#define bfd_mach_sparc_v8plus          4
 113 .#define bfd_mach_sparc_v8plusa         5 {* with ultrasparc add'ns *}
 114 .#define bfd_mach_sparc_sparclite_le    6
 115 .#define bfd_mach_sparc_v9              7
 116 .#define bfd_mach_sparc_v9a             8 {* with ultrasparc add'ns *}
 117 .#define bfd_mach_sparc_v8plusb         9 {* with cheetah add'ns *}
 118 .#define bfd_mach_sparc_v9b             10 {* with cheetah add'ns *}
 119 .{* Nonzero if MACH has the v9 instruction set.  *}
 120 .#define bfd_mach_sparc_v9_p(mach) \
 121 .  ((mach) >= bfd_mach_sparc_v8plus && (mach) <= bfd_mach_sparc_v9b \
 122 .   && (mach) != bfd_mach_sparc_sparclite_le)
 123 .  bfd_arch_mips,      {* MIPS Rxxxx *}
 124 .#define bfd_mach_mips3000              3000
 125 .#define bfd_mach_mips3900              3900
 126 .#define bfd_mach_mips4000              4000
 127 .#define bfd_mach_mips4010              4010
 128 .#define bfd_mach_mips4100              4100
 129 .#define bfd_mach_mips4111              4111
 130 .#define bfd_mach_mips4300              4300
 131 .#define bfd_mach_mips4400              4400
 132 .#define bfd_mach_mips4600              4600
 133 .#define bfd_mach_mips4650              4650
 134 .#define bfd_mach_mips5000              5000
 135 .#define bfd_mach_mips6000              6000
 136 .#define bfd_mach_mips8000              8000
 137 .#define bfd_mach_mips10000             10000
 138 .#define bfd_mach_mips12000             12000
 139 .#define bfd_mach_mips16                16
 140 .#define bfd_mach_mips32                32
 141 .#define bfd_mach_mips32_4k             3204113 {* 32, 04, octal 'K' *}
 142 .#define bfd_mach_mips5                 5
 143 .#define bfd_mach_mips64                64
 144 .#define bfd_mach_mips_sb1              12310201 {* octal 'SB', 01 *}
 145 .  bfd_arch_i386,      {* Intel 386 *}
 146 .#define bfd_mach_i386_i386 0
 147 .#define bfd_mach_i386_i8086 1
 148 .#define bfd_mach_i386_i386_intel_syntax 2
 149 .#define bfd_mach_x86_64 3
 150 .#define bfd_mach_x86_64_intel_syntax 4
 151 .  bfd_arch_we32k,     {* AT&T WE32xxx *}
 152 .  bfd_arch_tahoe,     {* CCI/Harris Tahoe *}
 153 .  bfd_arch_i860,      {* Intel 860 *}
 154 .  bfd_arch_i370,      {* IBM 360/370 Mainframes *}
 155 .  bfd_arch_romp,      {* IBM ROMP PC/RT *}
 156 .  bfd_arch_alliant,   {* Alliant *}
 157 .  bfd_arch_convex,    {* Convex *}
 158 .  bfd_arch_m88k,      {* Motorola 88xxx *}
 159 .  bfd_arch_pyramid,   {* Pyramid Technology *}
 160 .  bfd_arch_h8300,     {* Hitachi H8/300 *}
 161 .#define bfd_mach_h8300   1
 162 .#define bfd_mach_h8300h  2
 163 .#define bfd_mach_h8300s  3
 164 .  bfd_arch_pdp11,     {* DEC PDP-11 *}
 165 .  bfd_arch_powerpc,   {* PowerPC *}
 166 .#define bfd_mach_ppc           0
 167 .#define bfd_mach_ppc_403       403
 168 .#define bfd_mach_ppc_403gc     4030
 169 .#define bfd_mach_ppc_505       505
 170 .#define bfd_mach_ppc_601       601
 171 .#define bfd_mach_ppc_602       602
 172 .#define bfd_mach_ppc_603       603
 173 .#define bfd_mach_ppc_ec603e    6031
 174 .#define bfd_mach_ppc_604       604
 175 .#define bfd_mach_ppc_620       620
 176 .#define bfd_mach_ppc_630       630
 177 .#define bfd_mach_ppc_750       750
 178 .#define bfd_mach_ppc_860       860
 179 .#define bfd_mach_ppc_a35       35
 180 .#define bfd_mach_ppc_rs64ii    642
 181 .#define bfd_mach_ppc_rs64iii   643
 182 .#define bfd_mach_ppc_7400      7400
 183 .  bfd_arch_rs6000,    {* IBM RS/6000 *}
 184 .#define bfd_mach_rs6k          0
 185 .#define bfd_mach_rs6k_rs1      6001
 186 .#define bfd_mach_rs6k_rsc      6003
 187 .#define bfd_mach_rs6k_rs2      6002
 188 .  bfd_arch_hppa,      {* HP PA RISC *}
 189 .  bfd_arch_d10v,      {* Mitsubishi D10V *}
 190 .#define bfd_mach_d10v          0
 191 .#define bfd_mach_d10v_ts2      2
 192 .#define bfd_mach_d10v_ts3      3
 193 .  bfd_arch_d30v,      {* Mitsubishi D30V *}
 194 .  bfd_arch_m68hc11,   {* Motorola 68HC11 *}
 195 .  bfd_arch_m68hc12,   {* Motorola 68HC12 *}
 196 .  bfd_arch_z8k,       {* Zilog Z8000 *}
 197 .#define bfd_mach_z8001         1
 198 .#define bfd_mach_z8002         2
 199 .  bfd_arch_h8500,     {* Hitachi H8/500 *}
 200 .  bfd_arch_sh,        {* Hitachi SH *}
 201 .#define bfd_mach_sh            0
 202 .#define bfd_mach_sh2        0x20
 203 .#define bfd_mach_sh_dsp     0x2d
 204 .#define bfd_mach_sh3        0x30
 205 .#define bfd_mach_sh3_dsp    0x3d
 206 .#define bfd_mach_sh3e       0x3e
 207 .#define bfd_mach_sh4        0x40
 208 .  bfd_arch_alpha,     {* Dec Alpha *}
 209 .#define bfd_mach_alpha_ev4  0x10
 210 .#define bfd_mach_alpha_ev5  0x20
 211 .#define bfd_mach_alpha_ev6  0x30
 212 .  bfd_arch_arm,       {* Advanced Risc Machines ARM *}
 213 .#define bfd_mach_arm_2         1
 214 .#define bfd_mach_arm_2a        2
 215 .#define bfd_mach_arm_3         3
 216 .#define bfd_mach_arm_3M        4
 217 .#define bfd_mach_arm_4         5
 218 .#define bfd_mach_arm_4T        6
 219 .#define bfd_mach_arm_5         7
 220 .#define bfd_mach_arm_5T        8
 221 .#define bfd_mach_arm_5TE       9
 222 .#define bfd_mach_arm_XScale    10
 223 .  bfd_arch_ns32k,     {* National Semiconductors ns32000 *}
 224 .  bfd_arch_w65,       {* WDC 65816 *}
 225 .  bfd_arch_tic30,     {* Texas Instruments TMS320C30 *}
 226 .  bfd_arch_tic54x,    {* Texas Instruments TMS320C54X *}
 227 .  bfd_arch_tic80,     {* TI TMS320c80 (MVP) *}
 228 .  bfd_arch_v850,      {* NEC V850 *}
 229 .#define bfd_mach_v850          0
 230 .#define bfd_mach_v850e         'E'
 231 .#define bfd_mach_v850ea        'A'
 232 .  bfd_arch_arc,       {* ARC Cores *}
 233 .#define bfd_mach_arc_5         0
 234 .#define bfd_mach_arc_6         1
 235 .#define bfd_mach_arc_7         2
 236 .#define bfd_mach_arc_8         3
 237 .  bfd_arch_m32r,      {* Mitsubishi M32R/D *}
 238 .#define bfd_mach_m32r          0 {* backwards compatibility *}
 239 .#define bfd_mach_m32rx         'x'
 240 .  bfd_arch_mn10200,   {* Matsushita MN10200 *}
 241 .  bfd_arch_mn10300,   {* Matsushita MN10300 *}
 242 .#define bfd_mach_mn10300               300
 243 .#define bfd_mach_am33          330
 244 .  bfd_arch_fr30,
 245 .#define bfd_mach_fr30          0x46523330
 246 .  bfd_arch_mcore,
 247 .  bfd_arch_ia64,      {* HP/Intel ia64 *}
 248 .#define bfd_mach_ia64_elf64    0
 249 .#define bfd_mach_ia64_elf32    1
 250 .  bfd_arch_pj,
 251 .  bfd_arch_avr,       {* Atmel AVR microcontrollers *}
 252 .#define bfd_mach_avr1          1
 253 .#define bfd_mach_avr2          2
 254 .#define bfd_mach_avr3          3
 255 .#define bfd_mach_avr4          4
 256 .#define bfd_mach_avr5          5
 257 .  bfd_arch_cris,      {* Axis CRIS *}
 258 .  bfd_arch_s390,      {* IBM s390 *}
 259 .#define bfd_mach_s390_esa      0
 260 .#define bfd_mach_s390_esame    1
 261 .  bfd_arch_openrisc,  {* OpenRISC *}
 262 .  bfd_arch_last
 263 .  };
 264 */
 265
 266 /*
 267 SUBSECTION
 268         bfd_arch_info
 269
 270 DESCRIPTION
 271         This structure contains information on architectures for use
 272         within BFD.
 273
 274 .
 275 .typedef struct bfd_arch_info
 276 .{
 277 .  int bits_per_word;
 278 .  int bits_per_address;
 279 .  int bits_per_byte;
 280 .  enum bfd_architecture arch;
 281 .  unsigned long mach;
 282 .  const char *arch_name;
 283 .  const char *printable_name;
 284 .  unsigned int section_align_power;
 285 .  {* True if this is the default machine for the architecture.  *}
 286 .  boolean the_default;
 287 .  const struct bfd_arch_info * (*compatible)
 288 .       PARAMS ((const struct bfd_arch_info *a,
 289 .                const struct bfd_arch_info *b));
 290 .
 291 .  boolean (*scan) PARAMS ((const struct bfd_arch_info *, const char *));
 292 .
 293 .  const struct bfd_arch_info *next;
 294 .} bfd_arch_info_type;
 295 */
 296
 297 extern const bfd_arch_info_type bfd_a29k_arch;
 298 extern const bfd_arch_info_type bfd_alpha_arch;
 299 extern const bfd_arch_info_type bfd_arc_arch;
 300 extern const bfd_arch_info_type bfd_arm_arch;
 301 extern const bfd_arch_info_type bfd_cris_arch;
 302 extern const bfd_arch_info_type bfd_d10v_arch;
 303 extern const bfd_arch_info_type bfd_d30v_arch;
 304 extern const bfd_arch_info_type bfd_h8300_arch;
 305 extern const bfd_arch_info_type bfd_h8500_arch;
 306 extern const bfd_arch_info_type bfd_hppa_arch;
 307 extern const bfd_arch_info_type bfd_i370_arch;
 308 extern const bfd_arch_info_type bfd_i386_arch;
 309 extern const bfd_arch_info_type bfd_i860_arch;
 310 extern const bfd_arch_info_type bfd_i960_arch;
 311 extern const bfd_arch_info_type bfd_m32r_arch;
 312 extern const bfd_arch_info_type bfd_m68hc11_arch;
 313 extern const bfd_arch_info_type bfd_m68hc12_arch;
 314 extern const bfd_arch_info_type bfd_m68k_arch;
 315 extern const bfd_arch_info_type bfd_m88k_arch;
 316 extern const bfd_arch_info_type bfd_mips_arch;
 317 extern const bfd_arch_info_type bfd_mn10200_arch;
 318 extern const bfd_arch_info_type bfd_mn10300_arch;
 319 extern const bfd_arch_info_type bfd_pdp11_arch;
 320 extern const bfd_arch_info_type bfd_powerpc_arch;
 321 extern const bfd_arch_info_type bfd_rs6000_arch;
 322 extern const bfd_arch_info_type bfd_pj_arch;
 323 extern const bfd_arch_info_type bfd_sh_arch;
 324 extern const bfd_arch_info_type bfd_sparc_arch;
 325 extern const bfd_arch_info_type bfd_tic30_arch;
 326 extern const bfd_arch_info_type bfd_tic54x_arch;
 327 extern const bfd_arch_info_type bfd_tic80_arch;
 328 extern const bfd_arch_info_type bfd_vax_arch;
 329 extern const bfd_arch_info_type bfd_we32k_arch;
 330 extern const bfd_arch_info_type bfd_z8k_arch;
 331 extern const bfd_arch_info_type bfd_ns32k_arch;
 332 extern const bfd_arch_info_type bfd_w65_arch;
 333 extern const bfd_arch_info_type bfd_v850_arch;
 334 extern const bfd_arch_info_type bfd_fr30_arch;
 335 extern const bfd_arch_info_type bfd_mcore_arch;
 336 extern const bfd_arch_info_type bfd_avr_arch;
 337 extern const bfd_arch_info_type bfd_ia64_arch;
 338 extern const bfd_arch_info_type bfd_s390_arch;
 339 extern const bfd_arch_info_type bfd_openrisc_arch;
 340
 341 static const bfd_arch_info_type * const bfd_archures_list[] = {
 342 #ifdef SELECT_ARCHITECTURES
 343   SELECT_ARCHITECTURES,
 344 #else
 345   &bfd_a29k_arch,
 346   &bfd_alpha_arch,
 347   &bfd_arc_arch,
 348   &bfd_arm_arch,
 349   &bfd_cris_arch,
 350   &bfd_d10v_arch,
 351   &bfd_d30v_arch,
 352   &bfd_h8300_arch,
 353   &bfd_h8500_arch,
 354   &bfd_hppa_arch,
 355   &bfd_i370_arch,
 356   &bfd_i386_arch,
 357   &bfd_i860_arch,
 358   &bfd_i960_arch,
 359   &bfd_m32r_arch,
 360   &bfd_m68hc11_arch,
 361   &bfd_m68hc12_arch,
 362   &bfd_m68k_arch,
 363   &bfd_m88k_arch,
 364   &bfd_mips_arch,
 365   &bfd_mn10200_arch,
 366   &bfd_mn10300_arch,
 367   &bfd_pdp11_arch,
 368   &bfd_powerpc_arch,
 369   &bfd_rs6000_arch,
 370   &bfd_sh_arch,
 371   &bfd_sparc_arch,
 372   &bfd_tic30_arch,
 373   &bfd_tic54x_arch,
 374   &bfd_tic80_arch,
 375   &bfd_vax_arch,
 376   &bfd_we32k_arch,
 377   &bfd_z8k_arch,
 378   &bfd_ns32k_arch,
 379   &bfd_w65_arch,
 380   &bfd_v850_arch,
 381   &bfd_fr30_arch,
 382   &bfd_mcore_arch,
 383   &bfd_avr_arch,
 384   &bfd_ia64_arch,
 385   &bfd_s390_arch,
 386   &bfd_openrisc_arch,
 387 #endif
 388   0
 389 };
 390
 391 /*
 392 FUNCTION
 393         bfd_printable_name
 394
 395 SYNOPSIS
 396         const char *bfd_printable_name(bfd *abfd);
 397
 398 DESCRIPTION
 399         Return a printable string representing the architecture and machine
 400         from the pointer to the architecture info structure.
 401
 402 */
 403
 404 const char *
 405 bfd_printable_name (abfd)
 406      bfd *abfd;
 407 {
 408   return abfd->arch_info->printable_name;
 409 }
 410
 411 /*
 412 FUNCTION
 413         bfd_scan_arch
 414
 415 SYNOPSIS
 416         const bfd_arch_info_type *bfd_scan_arch(const char *string);
 417
 418 DESCRIPTION
 419         Figure out if BFD supports any cpu which could be described with
 420         the name @var{string}.  Return a pointer to an <<arch_info>>
 421         structure if a machine is found, otherwise NULL.
 422 */
 423
 424 const bfd_arch_info_type *
 425 bfd_scan_arch (string)
 426      const char *string;
 427 {
 428   const bfd_arch_info_type * const *app, *ap;
 429
 430   /* Look through all the installed architectures.  */
 431   for (app = bfd_archures_list; *app != NULL; app++)
 432     {
 433       for (ap = *app; ap != NULL; ap = ap->next)
 434         {
 435           if (ap->scan (ap, string))
 436             return ap;
 437         }
 438     }
 439
 440   return NULL;
 441 }
 442
 443 /*
 444 FUNCTION
 445         bfd_arch_list
 446
 447 SYNOPSIS
 448         const char **bfd_arch_list(void);
 449
 450 DESCRIPTION
 451         Return a freshly malloced NULL-terminated vector of the names
 452         of all the valid BFD architectures.  Do not modify the names.
 453 */
 454
 455 const char **
 456 bfd_arch_list ()
 457 {
 458   int vec_length = 0;
 459   const char **name_ptr;
 460   const char **name_list;
 461   const bfd_arch_info_type * const *app;
 462
 463   /* Determine the number of architectures.  */
 464   vec_length = 0;
 465   for (app = bfd_archures_list; *app != NULL; app++)
 466     {
 467       const bfd_arch_info_type *ap;
 468       for (ap = *app; ap != NULL; ap = ap->next)
 469         {
 470           vec_length++;
 471         }
 472     }
 473
 474   name_list = (const char **)
 475     bfd_malloc ((vec_length + 1) * sizeof (char **));
 476   if (name_list == NULL)
 477     return NULL;
 478
 479   /* Point the list at each of the names.  */
 480   name_ptr = name_list;
 481   for (app = bfd_archures_list; *app != NULL; app++)
 482     {
 483       const bfd_arch_info_type *ap;
 484       for (ap = *app; ap != NULL; ap = ap->next)
 485         {
 486           *name_ptr = ap->printable_name;
 487           name_ptr++;
 488         }
 489     }
 490   *name_ptr = NULL;
 491
 492   return name_list;
 493 }
 494
 495 /*
 496 FUNCTION
 497         bfd_arch_get_compatible
 498
 499 SYNOPSIS
 500         const bfd_arch_info_type *bfd_arch_get_compatible(
 501                 const bfd *abfd,
 502                 const bfd *bbfd);
 503
 504 DESCRIPTION
 505         Determine whether two BFDs'
 506         architectures and machine types are compatible.  Calculates
 507         the lowest common denominator between the two architectures
 508         and machine types implied by the BFDs and returns a pointer to
 509         an <<arch_info>> structure describing the compatible machine.
 510 */
 511
 512 const bfd_arch_info_type *
 513 bfd_arch_get_compatible (abfd, bbfd)
 514      const bfd *abfd;
 515      const bfd *bbfd;
 516 {
 517   /* If either architecture is unknown, then all we can do is assume
 518      the user knows what he's doing.  */
 519   if (abfd->arch_info->arch == bfd_arch_unknown)
 520     return bbfd->arch_info;
 521   if (bbfd->arch_info->arch == bfd_arch_unknown)
 522     return abfd->arch_info;
 523
 524   /* Otherwise architecture-specific code has to decide.  */
 525   return abfd->arch_info->compatible (abfd->arch_info, bbfd->arch_info);
 526 }
 527
 528 /*
 529 INTERNAL_DEFINITION
 530         bfd_default_arch_struct
 531
 532 DESCRIPTION
 533         The <<bfd_default_arch_struct>> is an item of
 534         <<bfd_arch_info_type>> which has been initialized to a fairly
 535         generic state.  A BFD starts life by pointing to this
 536         structure, until the correct back end has determined the real
 537         architecture of the file.
 538
 539 .extern const bfd_arch_info_type bfd_default_arch_struct;
 540 */
 541
 542 const bfd_arch_info_type bfd_default_arch_struct = {
 543   32, 32, 8, bfd_arch_unknown, 0, "unknown", "unknown", 2, true,
 544   bfd_default_compatible,
 545   bfd_default_scan,
 546   0,
 547 };
 548
 549 /*
 550 FUNCTION
 551         bfd_set_arch_info
 552
 553 SYNOPSIS
 554         void bfd_set_arch_info(bfd *abfd, const bfd_arch_info_type *arg);
 555
 556 DESCRIPTION
 557         Set the architecture info of @var{abfd} to @var{arg}.
 558 */
 559
 560 void
 561 bfd_set_arch_info (abfd, arg)
 562      bfd *abfd;
 563      const bfd_arch_info_type *arg;
 564 {
 565   abfd->arch_info = arg;
 566 }
 567
 568 /*
 569 INTERNAL_FUNCTION
 570         bfd_default_set_arch_mach
 571
 572 SYNOPSIS
 573         boolean bfd_default_set_arch_mach(bfd *abfd,
 574                 enum bfd_architecture arch,
 575                 unsigned long mach);
 576
 577 DESCRIPTION
 578         Set the architecture and machine type in BFD @var{abfd}
 579         to @var{arch} and @var{mach}.  Find the correct
 580         pointer to a structure and insert it into the <<arch_info>>
 581         pointer.
 582 */
 583
 584 boolean
 585 bfd_default_set_arch_mach (abfd, arch, mach)
 586      bfd *abfd;
 587      enum bfd_architecture arch;
 588      unsigned long mach;
 589 {
 590   const bfd_arch_info_type * const *app, *ap;
 591
 592   for (app = bfd_archures_list; *app != NULL; app++)
 593     {
 594       for (ap = *app; ap != NULL; ap = ap->next)
 595         {
 596           if (ap->arch == arch
 597               && (ap->mach == mach
 598                   || (mach == 0 && ap->the_default)))
 599             {
 600               abfd->arch_info = ap;
 601               return true;
 602             }
 603         }
 604     }
 605
 606   abfd->arch_info = &bfd_default_arch_struct;
 607   bfd_set_error (bfd_error_bad_value);
 608   return false;
 609 }
 610
 611 /*
 612 FUNCTION
 613         bfd_get_arch
 614
 615 SYNOPSIS
 616         enum bfd_architecture bfd_get_arch(bfd *abfd);
 617
 618 DESCRIPTION
 619         Return the enumerated type which describes the BFD @var{abfd}'s
 620         architecture.
 621 */
 622
 623 enum bfd_architecture
 624 bfd_get_arch (abfd)
 625      bfd *abfd;
 626 {
 627   return abfd->arch_info->arch;
 628 }
 629
 630 /*
 631 FUNCTION
 632         bfd_get_mach
 633
 634 SYNOPSIS
 635         unsigned long bfd_get_mach(bfd *abfd);
 636
 637 DESCRIPTION
 638         Return the long type which describes the BFD @var{abfd}'s
 639         machine.
 640 */
 641
 642 unsigned long
 643 bfd_get_mach (abfd)
 644      bfd *abfd;
 645 {
 646   return abfd->arch_info->mach;
 647 }
 648
 649 /*
 650 FUNCTION
 651         bfd_arch_bits_per_byte
 652
 653 SYNOPSIS
 654         unsigned int bfd_arch_bits_per_byte(bfd *abfd);
 655
 656 DESCRIPTION
 657         Return the number of bits in one of the BFD @var{abfd}'s
 658         architecture's bytes.
 659 */
 660
 661 unsigned int
 662 bfd_arch_bits_per_byte (abfd)
 663      bfd *abfd;
 664 {
 665   return abfd->arch_info->bits_per_byte;
 666 }
 667
 668 /*
 669 FUNCTION
 670         bfd_arch_bits_per_address
 671
 672 SYNOPSIS
 673         unsigned int bfd_arch_bits_per_address(bfd *abfd);
 674
 675 DESCRIPTION
 676         Return the number of bits in one of the BFD @var{abfd}'s
 677         architecture's addresses.
 678 */
 679
 680 unsigned int
 681 bfd_arch_bits_per_address (abfd)
 682      bfd *abfd;
 683 {
 684   return abfd->arch_info->bits_per_address;
 685 }
 686
 687 /*
 688 INTERNAL_FUNCTION
 689         bfd_default_compatible
 690
 691 SYNOPSIS
 692         const bfd_arch_info_type *bfd_default_compatible
 693         (const bfd_arch_info_type *a,
 694         const bfd_arch_info_type *b);
 695
 696 DESCRIPTION
 697         The default function for testing for compatibility.
 698 */
 699
 700 const bfd_arch_info_type *
 701 bfd_default_compatible (a, b)
 702      const bfd_arch_info_type *a;
 703      const bfd_arch_info_type *b;
 704 {
 705   if (a->arch != b->arch)
 706     return NULL;
 707
 708   if (a->mach > b->mach)
 709     return a;
 710
 711   if (b->mach > a->mach)
 712     return b;
 713
 714   return a;
 715 }
 716
 717 /*
 718 INTERNAL_FUNCTION
 719         bfd_default_scan
 720
 721 SYNOPSIS
 722         boolean bfd_default_scan(const struct bfd_arch_info *info, const char *string);
 723
 724 DESCRIPTION
 725         The default function for working out whether this is an
 726         architecture hit and a machine hit.
 727 */
 728
 729 boolean
 730 bfd_default_scan (info, string)
 731      const bfd_arch_info_type *info;
 732      const char *string;
 733 {
 734   const char *ptr_src;
 735   const char *ptr_tst;
 736   unsigned long number;
 737   enum bfd_architecture arch;
 738   const char *printable_name_colon;
 739
 740   /* Exact match of the architecture name (ARCH_NAME) and also the
 741      default architecture?  */
 742   if (strcasecmp (string, info->arch_name) == 0
 743       && info->the_default)
 744     return true;
 745
 746   /* Exact match of the machine name (PRINTABLE_NAME)?  */
 747   if (strcasecmp (string, info->printable_name) == 0)
 748     return true;
 749
 750   /* Given that printable_name contains no colon, attempt to match:
 751      ARCH_NAME [ ":" ] PRINTABLE_NAME?  */
 752   printable_name_colon = strchr (info->printable_name, ':');
 753   if (printable_name_colon == NULL)
 754     {
 755       int strlen_arch_name = strlen (info->arch_name);
 756       if (strncasecmp (string, info->arch_name, strlen_arch_name) == 0)
 757         {
 758           if (string[strlen_arch_name] == ':')
 759             {
 760               if (strcasecmp (string + strlen_arch_name + 1,
 761                               info->printable_name) == 0)
 762                 return true;
 763             }
 764           else
 765             {
 766               if (strcasecmp (string + strlen_arch_name,
 767                               info->printable_name) == 0)
 768                 return true;
 769             }
 770         }
 771     }
 772
 773   /* Given that PRINTABLE_NAME has the form: <arch> ":" <mach>;
 774      Attempt to match: <arch> <mach>?  */
 775   if (printable_name_colon != NULL)
 776     {
 777       int colon_index = printable_name_colon - info->printable_name;
 778       if (strncasecmp (string, info->printable_name, colon_index) == 0
 779           && strcasecmp (string + colon_index,
 780                          info->printable_name + colon_index + 1) == 0)
 781         return true;
 782     }
 783
 784   /* Given that PRINTABLE_NAME has the form: <arch> ":" <mach>; Do not
 785      attempt to match just <mach>, it could be ambigious.  This test
 786      is left until later.  */
 787
 788   /* NOTE: The below is retained for compatibility only.  Please do
 789      not add to this code.  */
 790
 791   /* See how much of the supplied string matches with the
 792      architecture, eg the string m68k:68020 would match the 68k entry
 793      up to the :, then we get left with the machine number.  */
 794
 795   for (ptr_src = string, ptr_tst = info->arch_name;
 796        *ptr_src && *ptr_tst;
 797        ptr_src++, ptr_tst++)
 798     {
 799       if (*ptr_src != *ptr_tst)
 800         break;
 801     }
 802
 803   /* Chewed up as much of the architecture as will match, skip any
 804      colons.  */
 805   if (*ptr_src == ':')
 806     ptr_src++;
 807
 808   if (*ptr_src == 0)
 809     {
 810       /* Nothing more, then only keep this one if it is the default
 811          machine for this architecture.  */
 812       return info->the_default;
 813     }
 814
 815   number = 0;
 816   while (isdigit ((unsigned char) *ptr_src))
 817     {
 818       number = number * 10 + *ptr_src - '0';
 819       ptr_src++;
 820     }
 821
 822   /* NOTE: The below is retained for compatibility only.
 823      PLEASE DO NOT ADD TO THIS CODE.  */
 824
 825   switch (number)
 826     {
 827       /* FIXME: These are needed to parse IEEE objects.  */
 828       /* The following seven case's are here only for compatibility with
 829          older binutils (at least IEEE objects from binutils 2.9.1 require
 830          them).  */
 831     case bfd_mach_m68000:
 832     case bfd_mach_m68010:
 833     case bfd_mach_m68020:
 834     case bfd_mach_m68030:
 835     case bfd_mach_m68040:
 836     case bfd_mach_m68060:
 837     case bfd_mach_cpu32:
 838       arch = bfd_arch_m68k;
 839       break;
 840     case 68000:
 841       arch = bfd_arch_m68k;
 842       number = bfd_mach_m68000;
 843       break;
 844     case 68010:
 845       arch = bfd_arch_m68k;
 846       number = bfd_mach_m68010;
 847       break;
 848     case 68020:
 849       arch = bfd_arch_m68k;
 850       number = bfd_mach_m68020;
 851       break;
 852     case 68030:
 853       arch = bfd_arch_m68k;
 854       number = bfd_mach_m68030;
 855       break;
 856     case 68040:
 857       arch = bfd_arch_m68k;
 858       number = bfd_mach_m68040;
 859       break;
 860     case 68060:
 861       arch = bfd_arch_m68k;
 862       number = bfd_mach_m68060;
 863       break;
 864     case 68332:
 865       arch = bfd_arch_m68k;
 866       number = bfd_mach_cpu32;
 867       break;
 868     case 5200:
 869       arch = bfd_arch_m68k;
 870       number = bfd_mach_mcf5200;
 871       break;
 872     case 5206:
 873       arch = bfd_arch_m68k;
 874       number = bfd_mach_mcf5206e;
 875       break;
 876     case 5307:
 877       arch = bfd_arch_m68k;
 878       number = bfd_mach_mcf5307;
 879       break;
 880     case 5407:
 881       arch = bfd_arch_m68k;
 882       number = bfd_mach_mcf5407;
 883       break;
 884
 885     case 32000:
 886       arch = bfd_arch_we32k;
 887       break;
 888
 889     case 3000:
 890       arch = bfd_arch_mips;
 891       number = bfd_mach_mips3000;
 892       break;
 893
 894     case 4000:
 895       arch = bfd_arch_mips;
 896       number = bfd_mach_mips4000;
 897       break;
 898
 899     case 6000:
 900       arch = bfd_arch_rs6000;
 901       break;
 902
 903     case 7410:
 904       arch = bfd_arch_sh;
 905       number = bfd_mach_sh_dsp;
 906       break;
 907
 908     case 7708:
 909       arch = bfd_arch_sh;
 910       number = bfd_mach_sh3;
 911       break;
 912
 913     case 7729:
 914       arch = bfd_arch_sh;
 915       number = bfd_mach_sh3_dsp;
 916       break;
 917
 918     case 7750:
 919       arch = bfd_arch_sh;
 920       number = bfd_mach_sh4;
 921       break;
 922
 923     default:
 924       return false;
 925     }
 926
 927   if (arch != info->arch)
 928     return false;
 929
 930   if (number != info->mach)
 931     return false;
 932
 933   return true;
 934 }
 935
 936 /*
 937 FUNCTION
 938         bfd_get_arch_info
 939
 940 SYNOPSIS
 941         const bfd_arch_info_type * bfd_get_arch_info(bfd *abfd);
 942
 943 DESCRIPTION
 944         Return the architecture info struct in @var{abfd}.
 945 */
 946
 947 const bfd_arch_info_type *
 948 bfd_get_arch_info (abfd)
 949      bfd *abfd;
 950 {
 951   return abfd->arch_info;
 952 }
 953
 954 /*
 955 FUNCTION
 956         bfd_lookup_arch
 957
 958 SYNOPSIS
 959         const bfd_arch_info_type *bfd_lookup_arch
 960                 (enum bfd_architecture
 961                 arch,
 962                 unsigned long machine);
 963
 964 DESCRIPTION
 965         Look for the architecure info structure which matches the
 966         arguments @var{arch} and @var{machine}. A machine of 0 matches the
 967         machine/architecture structure which marks itself as the
 968         default.
 969 */
 970
 971 const bfd_arch_info_type *
 972 bfd_lookup_arch (arch, machine)
 973      enum bfd_architecture arch;
 974      unsigned long machine;
 975 {
 976   const bfd_arch_info_type * const *app, *ap;
 977
 978   for (app = bfd_archures_list; *app != NULL; app++)
 979     {
 980       for (ap = *app; ap != NULL; ap = ap->next)
 981         {
 982           if (ap->arch == arch
 983               && (ap->mach == machine
 984                   || (machine == 0 && ap->the_default)))
 985             return ap;
 986         }
 987     }
 988
 989   return NULL;
 990 }
 991
 992 /*
 993 FUNCTION
 994         bfd_printable_arch_mach
 995
 996 SYNOPSIS
 997         const char *bfd_printable_arch_mach
 998                 (enum bfd_architecture arch, unsigned long machine);
 999
1000 DESCRIPTION
1001         Return a printable string representing the architecture and
1002         machine type.
1003
1004         This routine is depreciated.
1005 */
1006
1007 const char *
1008 bfd_printable_arch_mach (arch, machine)
1009      enum bfd_architecture arch;
1010      unsigned long machine;
1011 {
1012   const bfd_arch_info_type *ap = bfd_lookup_arch (arch, machine);
1013
1014   if (ap)
1015     return ap->printable_name;
1016   return "UNKNOWN!";
1017 }
1018
1019 /*
1020 FUNCTION
1021         bfd_octets_per_byte
1022
1023 SYNOPSIS
1024         unsigned int bfd_octets_per_byte(bfd *abfd);
1025
1026 DESCRIPTION
1027         Return the number of octets (8-bit quantities) per target byte
1028         (minimum addressable unit).  In most cases, this will be one, but some
1029         DSP targets have 16, 32, or even 48 bits per byte.
1030 */
1031
1032 unsigned int
1033 bfd_octets_per_byte (abfd)
1034      bfd *abfd;
1035 {
1036   return bfd_arch_mach_octets_per_byte (bfd_get_arch (abfd),
1037                                         bfd_get_mach (abfd));
1038 }
1039
1040 /*
1041 FUNCTION
1042         bfd_arch_mach_octets_per_byte
1043
1044 SYNOPSIS
1045         unsigned int bfd_arch_mach_octets_per_byte(enum bfd_architecture arch,
1046                                                    unsigned long machine);
1047
1048 DESCRIPTION
1049         See bfd_octets_per_byte.
1050
1051         This routine is provided for those cases where a bfd * is not
1052         available
1053 */
1054
1055 unsigned int
1056 bfd_arch_mach_octets_per_byte (arch, mach)
1057      enum bfd_architecture arch;
1058      unsigned long mach;
1059 {
1060   const bfd_arch_info_type *ap = bfd_lookup_arch (arch, mach);
1061
1062   if (ap)
1063     return ap->bits_per_byte / 8;
1064   return 1;
1065 }