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