bfd/archures.c

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