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