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