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