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