44c9199adf4074fc61c832b2fae67f3880e07451
[platform/upstream/binutils.git] / bfd / archures.c
1 /* BFD library support routines for architectures.
2    Copyright (C) 1990-2014 Free Software Foundation, Inc.
3    Hacked by John Gilmore and Steve Chamberlain of Cygnus Support.
4
5    This file is part of BFD, the Binary File Descriptor library.
6
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 3 of the License, or
10    (at your option) any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program; if not, write to the Free Software
19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20    MA 02110-1301, USA.  */
21
22 #include "sysdep.h"
23 #include "bfd.h"
24 #include "libbfd.h"
25 #include "safe-ctype.h"
26
27 /*
28
29 SECTION
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
57 SUBSECTION
58         bfd_architecture
59
60 DESCRIPTION
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 .#define bfd_mach_fido   9
83 .#define bfd_mach_mcf_isa_a_nodiv 10
84 .#define bfd_mach_mcf_isa_a 11
85 .#define bfd_mach_mcf_isa_a_mac 12
86 .#define bfd_mach_mcf_isa_a_emac 13
87 .#define bfd_mach_mcf_isa_aplus 14
88 .#define bfd_mach_mcf_isa_aplus_mac 15
89 .#define bfd_mach_mcf_isa_aplus_emac 16
90 .#define bfd_mach_mcf_isa_b_nousp 17
91 .#define bfd_mach_mcf_isa_b_nousp_mac 18
92 .#define bfd_mach_mcf_isa_b_nousp_emac 19
93 .#define bfd_mach_mcf_isa_b 20
94 .#define bfd_mach_mcf_isa_b_mac 21
95 .#define bfd_mach_mcf_isa_b_emac 22
96 .#define bfd_mach_mcf_isa_b_float 23
97 .#define bfd_mach_mcf_isa_b_float_mac 24
98 .#define bfd_mach_mcf_isa_b_float_emac 25
99 .#define bfd_mach_mcf_isa_c 26
100 .#define bfd_mach_mcf_isa_c_mac 27
101 .#define bfd_mach_mcf_isa_c_emac 28
102 .#define bfd_mach_mcf_isa_c_nodiv 29
103 .#define bfd_mach_mcf_isa_c_nodiv_mac 30
104 .#define bfd_mach_mcf_isa_c_nodiv_emac 31
105 .  bfd_arch_vax,       {* DEC Vax *}
106 .  bfd_arch_i960,      {* Intel 960 *}
107 .    {* The order of the following is important.
108 .       lower number indicates a machine type that
109 .       only accepts a subset of the instructions
110 .       available to machines with higher numbers.
111 .       The exception is the "ca", which is
112 .       incompatible with all other machines except
113 .       "core".  *}
114 .
115 .#define bfd_mach_i960_core      1
116 .#define bfd_mach_i960_ka_sa     2
117 .#define bfd_mach_i960_kb_sb     3
118 .#define bfd_mach_i960_mc        4
119 .#define bfd_mach_i960_xa        5
120 .#define bfd_mach_i960_ca        6
121 .#define bfd_mach_i960_jx        7
122 .#define bfd_mach_i960_hx        8
123 .
124 .  bfd_arch_or1k,      {* OpenRISC 1000 *}
125 .#define bfd_mach_or1k           1
126 .#define bfd_mach_or1knd         2
127 .
128 .  bfd_arch_sparc,     {* SPARC *}
129 .#define bfd_mach_sparc                 1
130 .{* The difference between v8plus and v9 is that v9 is a true 64 bit env.  *}
131 .#define bfd_mach_sparc_sparclet        2
132 .#define bfd_mach_sparc_sparclite       3
133 .#define bfd_mach_sparc_v8plus          4
134 .#define bfd_mach_sparc_v8plusa         5 {* with ultrasparc add'ns.  *}
135 .#define bfd_mach_sparc_sparclite_le    6
136 .#define bfd_mach_sparc_v9              7
137 .#define bfd_mach_sparc_v9a             8 {* with ultrasparc add'ns.  *}
138 .#define bfd_mach_sparc_v8plusb         9 {* with cheetah add'ns.  *}
139 .#define bfd_mach_sparc_v9b             10 {* with cheetah add'ns.  *}
140 .{* Nonzero if MACH has the v9 instruction set.  *}
141 .#define bfd_mach_sparc_v9_p(mach) \
142 .  ((mach) >= bfd_mach_sparc_v8plus && (mach) <= bfd_mach_sparc_v9b \
143 .   && (mach) != bfd_mach_sparc_sparclite_le)
144 .{* Nonzero if MACH is a 64 bit sparc architecture.  *}
145 .#define bfd_mach_sparc_64bit_p(mach) \
146 .  ((mach) >= bfd_mach_sparc_v9 && (mach) != bfd_mach_sparc_v8plusb)
147 .  bfd_arch_spu,       {* PowerPC SPU *}
148 .#define bfd_mach_spu           256
149 .  bfd_arch_mips,      {* MIPS Rxxxx *}
150 .#define bfd_mach_mips3000              3000
151 .#define bfd_mach_mips3900              3900
152 .#define bfd_mach_mips4000              4000
153 .#define bfd_mach_mips4010              4010
154 .#define bfd_mach_mips4100              4100
155 .#define bfd_mach_mips4111              4111
156 .#define bfd_mach_mips4120              4120
157 .#define bfd_mach_mips4300              4300
158 .#define bfd_mach_mips4400              4400
159 .#define bfd_mach_mips4600              4600
160 .#define bfd_mach_mips4650              4650
161 .#define bfd_mach_mips5000              5000
162 .#define bfd_mach_mips5400              5400
163 .#define bfd_mach_mips5500              5500
164 .#define bfd_mach_mips5900              5900
165 .#define bfd_mach_mips6000              6000
166 .#define bfd_mach_mips7000              7000
167 .#define bfd_mach_mips8000              8000
168 .#define bfd_mach_mips9000              9000
169 .#define bfd_mach_mips10000             10000
170 .#define bfd_mach_mips12000             12000
171 .#define bfd_mach_mips14000             14000
172 .#define bfd_mach_mips16000             16000
173 .#define bfd_mach_mips16                16
174 .#define bfd_mach_mips5                 5
175 .#define bfd_mach_mips_loongson_2e      3001
176 .#define bfd_mach_mips_loongson_2f      3002
177 .#define bfd_mach_mips_loongson_3a      3003
178 .#define bfd_mach_mips_sb1              12310201 {* octal 'SB', 01 *}
179 .#define bfd_mach_mips_octeon           6501
180 .#define bfd_mach_mips_octeonp          6601
181 .#define bfd_mach_mips_octeon2          6502
182 .#define bfd_mach_mips_xlr              887682   {* decimal 'XLR'  *}
183 .#define bfd_mach_mipsisa32             32
184 .#define bfd_mach_mipsisa32r2           33
185 .#define bfd_mach_mipsisa32r3           34
186 .#define bfd_mach_mipsisa32r5           36
187 .#define bfd_mach_mipsisa64             64
188 .#define bfd_mach_mipsisa64r2           65
189 .#define bfd_mach_mipsisa64r3           66
190 .#define bfd_mach_mipsisa64r5           68
191 .#define bfd_mach_mips_micromips        96
192 .  bfd_arch_i386,      {* Intel 386 *}
193 .#define bfd_mach_i386_intel_syntax     (1 << 0)
194 .#define bfd_mach_i386_i8086            (1 << 1)
195 .#define bfd_mach_i386_i386             (1 << 2)
196 .#define bfd_mach_x86_64                (1 << 3)
197 .#define bfd_mach_x64_32                (1 << 4)
198 .#define bfd_mach_i386_i386_intel_syntax (bfd_mach_i386_i386 | bfd_mach_i386_intel_syntax)
199 .#define bfd_mach_x86_64_intel_syntax   (bfd_mach_x86_64 | bfd_mach_i386_intel_syntax)
200 .#define bfd_mach_x64_32_intel_syntax   (bfd_mach_x64_32 | bfd_mach_i386_intel_syntax)
201 .  bfd_arch_l1om,   {* Intel L1OM *}
202 .#define bfd_mach_l1om                  (1 << 5)
203 .#define bfd_mach_l1om_intel_syntax     (bfd_mach_l1om | bfd_mach_i386_intel_syntax)
204 .  bfd_arch_k1om,   {* Intel K1OM *}
205 .#define bfd_mach_k1om                  (1 << 6)
206 .#define bfd_mach_k1om_intel_syntax     (bfd_mach_k1om | bfd_mach_i386_intel_syntax)
207 .#define bfd_mach_i386_nacl             (1 << 7)
208 .#define bfd_mach_i386_i386_nacl        (bfd_mach_i386_i386 | bfd_mach_i386_nacl)
209 .#define bfd_mach_x86_64_nacl           (bfd_mach_x86_64 | bfd_mach_i386_nacl)
210 .#define bfd_mach_x64_32_nacl           (bfd_mach_x64_32 | bfd_mach_i386_nacl)
211 .  bfd_arch_we32k,     {* AT&T WE32xxx *}
212 .  bfd_arch_tahoe,     {* CCI/Harris Tahoe *}
213 .  bfd_arch_i860,      {* Intel 860 *}
214 .  bfd_arch_i370,      {* IBM 360/370 Mainframes *}
215 .  bfd_arch_romp,      {* IBM ROMP PC/RT *}
216 .  bfd_arch_convex,    {* Convex *}
217 .  bfd_arch_m88k,      {* Motorola 88xxx *}
218 .  bfd_arch_m98k,      {* Motorola 98xxx *}
219 .  bfd_arch_pyramid,   {* Pyramid Technology *}
220 .  bfd_arch_h8300,     {* Renesas H8/300 (formerly Hitachi H8/300) *}
221 .#define bfd_mach_h8300    1
222 .#define bfd_mach_h8300h   2
223 .#define bfd_mach_h8300s   3
224 .#define bfd_mach_h8300hn  4
225 .#define bfd_mach_h8300sn  5
226 .#define bfd_mach_h8300sx  6
227 .#define bfd_mach_h8300sxn 7
228 .  bfd_arch_pdp11,     {* DEC PDP-11 *}
229 .  bfd_arch_plugin,
230 .  bfd_arch_powerpc,   {* PowerPC *}
231 .#define bfd_mach_ppc           32
232 .#define bfd_mach_ppc64         64
233 .#define bfd_mach_ppc_403       403
234 .#define bfd_mach_ppc_403gc     4030
235 .#define bfd_mach_ppc_405       405
236 .#define bfd_mach_ppc_505       505
237 .#define bfd_mach_ppc_601       601
238 .#define bfd_mach_ppc_602       602
239 .#define bfd_mach_ppc_603       603
240 .#define bfd_mach_ppc_ec603e    6031
241 .#define bfd_mach_ppc_604       604
242 .#define bfd_mach_ppc_620       620
243 .#define bfd_mach_ppc_630       630
244 .#define bfd_mach_ppc_750       750
245 .#define bfd_mach_ppc_860       860
246 .#define bfd_mach_ppc_a35       35
247 .#define bfd_mach_ppc_rs64ii    642
248 .#define bfd_mach_ppc_rs64iii   643
249 .#define bfd_mach_ppc_7400      7400
250 .#define bfd_mach_ppc_e500      500
251 .#define bfd_mach_ppc_e500mc    5001
252 .#define bfd_mach_ppc_e500mc64  5005
253 .#define bfd_mach_ppc_e5500     5006
254 .#define bfd_mach_ppc_e6500     5007
255 .#define bfd_mach_ppc_titan     83
256 .#define bfd_mach_ppc_vle       84
257 .  bfd_arch_rs6000,    {* IBM RS/6000 *}
258 .#define bfd_mach_rs6k          6000
259 .#define bfd_mach_rs6k_rs1      6001
260 .#define bfd_mach_rs6k_rsc      6003
261 .#define bfd_mach_rs6k_rs2      6002
262 .  bfd_arch_hppa,      {* HP PA RISC *}
263 .#define bfd_mach_hppa10        10
264 .#define bfd_mach_hppa11        11
265 .#define bfd_mach_hppa20        20
266 .#define bfd_mach_hppa20w       25
267 .  bfd_arch_d10v,      {* Mitsubishi D10V *}
268 .#define bfd_mach_d10v          1
269 .#define bfd_mach_d10v_ts2      2
270 .#define bfd_mach_d10v_ts3      3
271 .  bfd_arch_d30v,      {* Mitsubishi D30V *}
272 .  bfd_arch_dlx,       {* DLX *}
273 .  bfd_arch_m68hc11,   {* Motorola 68HC11 *}
274 .  bfd_arch_m68hc12,   {* Motorola 68HC12 *}
275 .#define bfd_mach_m6812_default 0
276 .#define bfd_mach_m6812         1
277 .#define bfd_mach_m6812s        2
278 .  bfd_arch_m9s12x,   {* Freescale S12X *}
279 .  bfd_arch_m9s12xg,  {* Freescale XGATE *}
280 .  bfd_arch_z8k,       {* Zilog Z8000 *}
281 .#define bfd_mach_z8001         1
282 .#define bfd_mach_z8002         2
283 .  bfd_arch_h8500,     {* Renesas H8/500 (formerly Hitachi H8/500) *}
284 .  bfd_arch_sh,        {* Renesas / SuperH SH (formerly Hitachi SH) *}
285 .#define bfd_mach_sh            1
286 .#define bfd_mach_sh2        0x20
287 .#define bfd_mach_sh_dsp     0x2d
288 .#define bfd_mach_sh2a       0x2a
289 .#define bfd_mach_sh2a_nofpu 0x2b
290 .#define bfd_mach_sh2a_nofpu_or_sh4_nommu_nofpu 0x2a1
291 .#define bfd_mach_sh2a_nofpu_or_sh3_nommu 0x2a2
292 .#define bfd_mach_sh2a_or_sh4  0x2a3
293 .#define bfd_mach_sh2a_or_sh3e 0x2a4
294 .#define bfd_mach_sh2e       0x2e
295 .#define bfd_mach_sh3        0x30
296 .#define bfd_mach_sh3_nommu  0x31
297 .#define bfd_mach_sh3_dsp    0x3d
298 .#define bfd_mach_sh3e       0x3e
299 .#define bfd_mach_sh4        0x40
300 .#define bfd_mach_sh4_nofpu  0x41
301 .#define bfd_mach_sh4_nommu_nofpu  0x42
302 .#define bfd_mach_sh4a       0x4a
303 .#define bfd_mach_sh4a_nofpu 0x4b
304 .#define bfd_mach_sh4al_dsp  0x4d
305 .#define bfd_mach_sh5        0x50
306 .  bfd_arch_alpha,     {* Dec Alpha *}
307 .#define bfd_mach_alpha_ev4  0x10
308 .#define bfd_mach_alpha_ev5  0x20
309 .#define bfd_mach_alpha_ev6  0x30
310 .  bfd_arch_arm,       {* Advanced Risc Machines ARM.  *}
311 .#define bfd_mach_arm_unknown   0
312 .#define bfd_mach_arm_2         1
313 .#define bfd_mach_arm_2a        2
314 .#define bfd_mach_arm_3         3
315 .#define bfd_mach_arm_3M        4
316 .#define bfd_mach_arm_4         5
317 .#define bfd_mach_arm_4T        6
318 .#define bfd_mach_arm_5         7
319 .#define bfd_mach_arm_5T        8
320 .#define bfd_mach_arm_5TE       9
321 .#define bfd_mach_arm_XScale    10
322 .#define bfd_mach_arm_ep9312    11
323 .#define bfd_mach_arm_iWMMXt    12
324 .#define bfd_mach_arm_iWMMXt2   13
325 .  bfd_arch_nds32,     {* Andes NDS32 *}
326 .#define bfd_mach_n1            1
327 .#define bfd_mach_n1h           2
328 .#define bfd_mach_n1h_v2        3
329 .#define bfd_mach_n1h_v3        4
330 .#define bfd_mach_n1h_v3m       5
331 .  bfd_arch_ns32k,     {* National Semiconductors ns32000 *}
332 .  bfd_arch_w65,       {* WDC 65816 *}
333 .  bfd_arch_tic30,     {* Texas Instruments TMS320C30 *}
334 .  bfd_arch_tic4x,     {* Texas Instruments TMS320C3X/4X *}
335 .#define bfd_mach_tic3x         30
336 .#define bfd_mach_tic4x         40
337 .  bfd_arch_tic54x,    {* Texas Instruments TMS320C54X *}
338 .  bfd_arch_tic6x,     {* Texas Instruments TMS320C6X *}
339 .  bfd_arch_tic80,     {* TI TMS320c80 (MVP) *}
340 .  bfd_arch_v850,      {* NEC V850 *}
341 .  bfd_arch_v850_rh850,{* NEC V850 (using RH850 ABI) *}
342 .#define bfd_mach_v850          1
343 .#define bfd_mach_v850e         'E'
344 .#define bfd_mach_v850e1        '1'
345 .#define bfd_mach_v850e2        0x4532
346 .#define bfd_mach_v850e2v3      0x45325633
347 .#define bfd_mach_v850e3v5      0x45335635 {* ('E'|'3'|'V'|'5') *}
348 .  bfd_arch_arc,       {* ARC Cores *}
349 .#define bfd_mach_arc_5         5
350 .#define bfd_mach_arc_6         6
351 .#define bfd_mach_arc_7         7
352 .#define bfd_mach_arc_8         8
353 . bfd_arch_m32c,     {* Renesas M16C/M32C.  *}
354 .#define bfd_mach_m16c        0x75
355 .#define bfd_mach_m32c        0x78
356 .  bfd_arch_m32r,      {* Renesas M32R (formerly Mitsubishi M32R/D) *}
357 .#define bfd_mach_m32r          1 {* For backwards compatibility.  *}
358 .#define bfd_mach_m32rx         'x'
359 .#define bfd_mach_m32r2         '2'
360 .  bfd_arch_mn10200,   {* Matsushita MN10200 *}
361 .  bfd_arch_mn10300,   {* Matsushita MN10300 *}
362 .#define bfd_mach_mn10300               300
363 .#define bfd_mach_am33          330
364 .#define bfd_mach_am33_2        332
365 .  bfd_arch_fr30,
366 .#define bfd_mach_fr30          0x46523330
367 .  bfd_arch_frv,
368 .#define bfd_mach_frv           1
369 .#define bfd_mach_frvsimple     2
370 .#define bfd_mach_fr300         300
371 .#define bfd_mach_fr400         400
372 .#define bfd_mach_fr450         450
373 .#define bfd_mach_frvtomcat     499     {* fr500 prototype *}
374 .#define bfd_mach_fr500         500
375 .#define bfd_mach_fr550         550
376 .  bfd_arch_moxie,       {* The moxie processor *}
377 .#define bfd_mach_moxie         1
378 .  bfd_arch_mcore,
379 .  bfd_arch_mep,
380 .#define bfd_mach_mep           1
381 .#define bfd_mach_mep_h1        0x6831
382 .#define bfd_mach_mep_c5        0x6335
383 .  bfd_arch_metag,
384 .#define bfd_mach_metag         1
385 .  bfd_arch_ia64,      {* HP/Intel ia64 *}
386 .#define bfd_mach_ia64_elf64    64
387 .#define bfd_mach_ia64_elf32    32
388 .  bfd_arch_ip2k,      {* Ubicom IP2K microcontrollers. *}
389 .#define bfd_mach_ip2022        1
390 .#define bfd_mach_ip2022ext     2
391 . bfd_arch_iq2000,     {* Vitesse IQ2000.  *}
392 .#define bfd_mach_iq2000        1
393 .#define bfd_mach_iq10          2
394 .  bfd_arch_epiphany,   {* Adapteva EPIPHANY *}
395 .#define bfd_mach_epiphany16    1
396 .#define bfd_mach_epiphany32    2
397 .  bfd_arch_mt,
398 .#define bfd_mach_ms1           1
399 .#define bfd_mach_mrisc2        2
400 .#define bfd_mach_ms2           3
401 .  bfd_arch_pj,
402 .  bfd_arch_avr,       {* Atmel AVR microcontrollers.  *}
403 .#define bfd_mach_avr1          1
404 .#define bfd_mach_avr2          2
405 .#define bfd_mach_avr25         25
406 .#define bfd_mach_avr3          3
407 .#define bfd_mach_avr31         31
408 .#define bfd_mach_avr35         35
409 .#define bfd_mach_avr4          4
410 .#define bfd_mach_avr5          5
411 .#define bfd_mach_avr51         51
412 .#define bfd_mach_avr6          6
413 .#define bfd_mach_avrtiny   100
414 .#define bfd_mach_avrxmega1 101
415 .#define bfd_mach_avrxmega2 102
416 .#define bfd_mach_avrxmega3 103
417 .#define bfd_mach_avrxmega4 104
418 .#define bfd_mach_avrxmega5 105
419 .#define bfd_mach_avrxmega6 106
420 .#define bfd_mach_avrxmega7 107
421 .  bfd_arch_bfin,        {* ADI Blackfin *}
422 .#define bfd_mach_bfin          1
423 .  bfd_arch_cr16,       {* National Semiconductor CompactRISC (ie CR16). *}
424 .#define bfd_mach_cr16          1
425 .  bfd_arch_cr16c,       {* National Semiconductor CompactRISC. *}
426 .#define bfd_mach_cr16c         1
427 .  bfd_arch_crx,       {*  National Semiconductor CRX.  *}
428 .#define bfd_mach_crx           1
429 .  bfd_arch_cris,      {* Axis CRIS *}
430 .#define bfd_mach_cris_v0_v10   255
431 .#define bfd_mach_cris_v32      32
432 .#define bfd_mach_cris_v10_v32  1032
433 .  bfd_arch_rl78,
434 .#define bfd_mach_rl78  0x75
435 .  bfd_arch_rx,        {* Renesas RX.  *}
436 .#define bfd_mach_rx            0x75
437 .  bfd_arch_s390,      {* IBM s390 *}
438 .#define bfd_mach_s390_31       31
439 .#define bfd_mach_s390_64       64
440 .  bfd_arch_score,     {* Sunplus score *}
441 .#define bfd_mach_score3         3
442 .#define bfd_mach_score7         7
443 .  bfd_arch_mmix,      {* Donald Knuth's educational processor.  *}
444 .  bfd_arch_xstormy16,
445 .#define bfd_mach_xstormy16     1
446 .  bfd_arch_msp430,    {* Texas Instruments MSP430 architecture.  *}
447 .#define bfd_mach_msp11          11
448 .#define bfd_mach_msp110         110
449 .#define bfd_mach_msp12          12
450 .#define bfd_mach_msp13          13
451 .#define bfd_mach_msp14          14
452 .#define bfd_mach_msp15          15
453 .#define bfd_mach_msp16          16
454 .#define bfd_mach_msp20          20
455 .#define bfd_mach_msp21          21
456 .#define bfd_mach_msp22          22
457 .#define bfd_mach_msp23          23
458 .#define bfd_mach_msp24          24
459 .#define bfd_mach_msp26          26
460 .#define bfd_mach_msp31          31
461 .#define bfd_mach_msp32          32
462 .#define bfd_mach_msp33          33
463 .#define bfd_mach_msp41          41
464 .#define bfd_mach_msp42          42
465 .#define bfd_mach_msp43          43
466 .#define bfd_mach_msp44          44
467 .#define bfd_mach_msp430x        45
468 .#define bfd_mach_msp46          46
469 .#define bfd_mach_msp47          47
470 .#define bfd_mach_msp54          54
471 .  bfd_arch_xc16x,     {* Infineon's XC16X Series.               *}
472 .#define bfd_mach_xc16x         1
473 .#define bfd_mach_xc16xl        2
474 .#define bfd_mach_xc16xs        3
475 .  bfd_arch_xgate,   {* Freescale XGATE *}
476 .#define bfd_mach_xgate         1
477 .  bfd_arch_xtensa,    {* Tensilica's Xtensa cores.  *}
478 .#define bfd_mach_xtensa        1
479 .  bfd_arch_z80,
480 .#define bfd_mach_z80strict      1 {* No undocumented opcodes.  *}
481 .#define bfd_mach_z80            3 {* With ixl, ixh, iyl, and iyh.  *}
482 .#define bfd_mach_z80full        7 {* All undocumented instructions.  *}
483 .#define bfd_mach_r800           11 {* R800: successor with multiplication.  *}
484 .  bfd_arch_lm32,      {* Lattice Mico32 *}
485 .#define bfd_mach_lm32      1
486 .  bfd_arch_microblaze,{* Xilinx MicroBlaze. *}
487 .  bfd_arch_tilepro,   {* Tilera TILEPro *}
488 .  bfd_arch_tilegx, {* Tilera TILE-Gx *}
489 .#define bfd_mach_tilepro   1
490 .#define bfd_mach_tilegx    1
491 .#define bfd_mach_tilegx32  2
492 .  bfd_arch_aarch64,   {* AArch64  *}
493 .#define bfd_mach_aarch64 0
494 .#define bfd_mach_aarch64_ilp32 32
495 .  bfd_arch_nios2,
496 .#define bfd_mach_nios2 0
497 .  bfd_arch_last
498 .  };
499 */
500
501 /*
502 SUBSECTION
503         bfd_arch_info
504
505 DESCRIPTION
506         This structure contains information on architectures for use
507         within BFD.
508
509 .
510 .typedef struct bfd_arch_info
511 .{
512 .  int bits_per_word;
513 .  int bits_per_address;
514 .  int bits_per_byte;
515 .  enum bfd_architecture arch;
516 .  unsigned long mach;
517 .  const char *arch_name;
518 .  const char *printable_name;
519 .  unsigned int section_align_power;
520 .  {* TRUE if this is the default machine for the architecture.
521 .     The default arch should be the first entry for an arch so that
522 .     all the entries for that arch can be accessed via <<next>>.  *}
523 .  bfd_boolean the_default;
524 .  const struct bfd_arch_info * (*compatible)
525 .    (const struct bfd_arch_info *a, const struct bfd_arch_info *b);
526 .
527 .  bfd_boolean (*scan) (const struct bfd_arch_info *, const char *);
528 .
529 .  {* Allocate via bfd_malloc and return a fill buffer of size COUNT.  If
530 .     IS_BIGENDIAN is TRUE, the order of bytes is big endian.  If CODE is
531 .     TRUE, the buffer contains code.  *}
532 .  void *(*fill) (bfd_size_type count, bfd_boolean is_bigendian,
533 .                 bfd_boolean code);
534 .
535 .  const struct bfd_arch_info *next;
536 .}
537 .bfd_arch_info_type;
538 .
539 */
540
541 extern const bfd_arch_info_type bfd_aarch64_arch;
542 extern const bfd_arch_info_type bfd_alpha_arch;
543 extern const bfd_arch_info_type bfd_arc_arch;
544 extern const bfd_arch_info_type bfd_arm_arch;
545 extern const bfd_arch_info_type bfd_avr_arch;
546 extern const bfd_arch_info_type bfd_bfin_arch;
547 extern const bfd_arch_info_type bfd_cr16_arch;
548 extern const bfd_arch_info_type bfd_cr16c_arch;
549 extern const bfd_arch_info_type bfd_cris_arch;
550 extern const bfd_arch_info_type bfd_crx_arch;
551 extern const bfd_arch_info_type bfd_d10v_arch;
552 extern const bfd_arch_info_type bfd_d30v_arch;
553 extern const bfd_arch_info_type bfd_dlx_arch;
554 extern const bfd_arch_info_type bfd_epiphany_arch;
555 extern const bfd_arch_info_type bfd_fr30_arch;
556 extern const bfd_arch_info_type bfd_frv_arch;
557 extern const bfd_arch_info_type bfd_h8300_arch;
558 extern const bfd_arch_info_type bfd_h8500_arch;
559 extern const bfd_arch_info_type bfd_hppa_arch;
560 extern const bfd_arch_info_type bfd_i370_arch;
561 extern const bfd_arch_info_type bfd_i386_arch;
562 extern const bfd_arch_info_type bfd_i860_arch;
563 extern const bfd_arch_info_type bfd_i960_arch;
564 extern const bfd_arch_info_type bfd_ia64_arch;
565 extern const bfd_arch_info_type bfd_ip2k_arch;
566 extern const bfd_arch_info_type bfd_iq2000_arch;
567 extern const bfd_arch_info_type bfd_k1om_arch;
568 extern const bfd_arch_info_type bfd_l1om_arch;
569 extern const bfd_arch_info_type bfd_lm32_arch;
570 extern const bfd_arch_info_type bfd_m32c_arch;
571 extern const bfd_arch_info_type bfd_m32r_arch;
572 extern const bfd_arch_info_type bfd_m68hc11_arch;
573 extern const bfd_arch_info_type bfd_m68hc12_arch;
574 extern const bfd_arch_info_type bfd_m9s12x_arch;
575 extern const bfd_arch_info_type bfd_m9s12xg_arch;
576 extern const bfd_arch_info_type bfd_m68k_arch;
577 extern const bfd_arch_info_type bfd_m88k_arch;
578 extern const bfd_arch_info_type bfd_mcore_arch;
579 extern const bfd_arch_info_type bfd_mep_arch;
580 extern const bfd_arch_info_type bfd_metag_arch;
581 extern const bfd_arch_info_type bfd_mips_arch;
582 extern const bfd_arch_info_type bfd_microblaze_arch;
583 extern const bfd_arch_info_type bfd_mmix_arch;
584 extern const bfd_arch_info_type bfd_mn10200_arch;
585 extern const bfd_arch_info_type bfd_mn10300_arch;
586 extern const bfd_arch_info_type bfd_moxie_arch;
587 extern const bfd_arch_info_type bfd_msp430_arch;
588 extern const bfd_arch_info_type bfd_mt_arch;
589 extern const bfd_arch_info_type bfd_nds32_arch;
590 extern const bfd_arch_info_type bfd_nios2_arch;
591 extern const bfd_arch_info_type bfd_ns32k_arch;
592 extern const bfd_arch_info_type bfd_or1k_arch;
593 extern const bfd_arch_info_type bfd_pdp11_arch;
594 extern const bfd_arch_info_type bfd_pj_arch;
595 extern const bfd_arch_info_type bfd_plugin_arch;
596 extern const bfd_arch_info_type bfd_powerpc_archs[];
597 #define bfd_powerpc_arch bfd_powerpc_archs[0]
598 extern const bfd_arch_info_type bfd_rs6000_arch;
599 extern const bfd_arch_info_type bfd_rl78_arch;
600 extern const bfd_arch_info_type bfd_rx_arch;
601 extern const bfd_arch_info_type bfd_s390_arch;
602 extern const bfd_arch_info_type bfd_score_arch;
603 extern const bfd_arch_info_type bfd_sh_arch;
604 extern const bfd_arch_info_type bfd_sparc_arch;
605 extern const bfd_arch_info_type bfd_spu_arch;
606 extern const bfd_arch_info_type bfd_tic30_arch;
607 extern const bfd_arch_info_type bfd_tic4x_arch;
608 extern const bfd_arch_info_type bfd_tic54x_arch;
609 extern const bfd_arch_info_type bfd_tic6x_arch;
610 extern const bfd_arch_info_type bfd_tic80_arch;
611 extern const bfd_arch_info_type bfd_tilegx_arch;
612 extern const bfd_arch_info_type bfd_tilepro_arch;
613 extern const bfd_arch_info_type bfd_v850_arch;
614 extern const bfd_arch_info_type bfd_v850_rh850_arch;
615 extern const bfd_arch_info_type bfd_vax_arch;
616 extern const bfd_arch_info_type bfd_w65_arch;
617 extern const bfd_arch_info_type bfd_we32k_arch;
618 extern const bfd_arch_info_type bfd_xstormy16_arch;
619 extern const bfd_arch_info_type bfd_xtensa_arch;
620 extern const bfd_arch_info_type bfd_xc16x_arch;
621 extern const bfd_arch_info_type bfd_xgate_arch;
622 extern const bfd_arch_info_type bfd_z80_arch;
623 extern const bfd_arch_info_type bfd_z8k_arch;
624
625 static const bfd_arch_info_type * const bfd_archures_list[] =
626   {
627 #ifdef SELECT_ARCHITECTURES
628     SELECT_ARCHITECTURES,
629 #else
630     &bfd_aarch64_arch,
631     &bfd_alpha_arch,
632     &bfd_arc_arch,
633     &bfd_arm_arch,
634     &bfd_avr_arch,
635     &bfd_bfin_arch,
636     &bfd_cr16_arch,
637     &bfd_cr16c_arch,
638     &bfd_cris_arch,
639     &bfd_crx_arch,
640     &bfd_d10v_arch,
641     &bfd_d30v_arch,
642     &bfd_dlx_arch,
643     &bfd_epiphany_arch,
644     &bfd_fr30_arch,
645     &bfd_frv_arch,
646     &bfd_h8300_arch,
647     &bfd_h8500_arch,
648     &bfd_hppa_arch,
649     &bfd_i370_arch,
650     &bfd_i386_arch,
651     &bfd_i860_arch,
652     &bfd_i960_arch,
653     &bfd_ia64_arch,
654     &bfd_ip2k_arch,
655     &bfd_iq2000_arch,
656     &bfd_k1om_arch,
657     &bfd_l1om_arch,
658     &bfd_lm32_arch,
659     &bfd_m32c_arch,
660     &bfd_m32r_arch,
661     &bfd_m68hc11_arch,
662     &bfd_m68hc12_arch,
663     &bfd_m9s12x_arch,
664     &bfd_m9s12xg_arch,
665     &bfd_m68k_arch,
666     &bfd_m88k_arch,
667     &bfd_mcore_arch,
668     &bfd_mep_arch,
669     &bfd_metag_arch,
670     &bfd_microblaze_arch,
671     &bfd_mips_arch,
672     &bfd_mmix_arch,
673     &bfd_mn10200_arch,
674     &bfd_mn10300_arch,
675     &bfd_moxie_arch,
676     &bfd_msp430_arch,
677     &bfd_mt_arch,
678     &bfd_nds32_arch,
679     &bfd_nios2_arch,
680     &bfd_ns32k_arch,
681     &bfd_or1k_arch,
682     &bfd_pdp11_arch,
683     &bfd_powerpc_arch,
684     &bfd_rs6000_arch,
685     &bfd_rl78_arch,
686     &bfd_rx_arch,
687     &bfd_s390_arch,
688     &bfd_score_arch,
689     &bfd_sh_arch,
690     &bfd_sparc_arch,
691     &bfd_spu_arch,
692     &bfd_tic30_arch,
693     &bfd_tic4x_arch,
694     &bfd_tic54x_arch,
695     &bfd_tic6x_arch,
696     &bfd_tic80_arch,
697     &bfd_tilegx_arch,
698     &bfd_tilepro_arch,
699     &bfd_v850_arch,
700     &bfd_v850_rh850_arch,
701     &bfd_vax_arch,
702     &bfd_w65_arch,
703     &bfd_we32k_arch,
704     &bfd_xstormy16_arch,
705     &bfd_xtensa_arch,
706     &bfd_xc16x_arch,
707     &bfd_xgate_arch,
708     &bfd_z80_arch,
709     &bfd_z8k_arch,
710 #endif
711   0
712 };
713
714 /*
715 FUNCTION
716         bfd_printable_name
717
718 SYNOPSIS
719         const char *bfd_printable_name (bfd *abfd);
720
721 DESCRIPTION
722         Return a printable string representing the architecture and machine
723         from the pointer to the architecture info structure.
724
725 */
726
727 const char *
728 bfd_printable_name (bfd *abfd)
729 {
730   return abfd->arch_info->printable_name;
731 }
732
733 /*
734 FUNCTION
735         bfd_scan_arch
736
737 SYNOPSIS
738         const bfd_arch_info_type *bfd_scan_arch (const char *string);
739
740 DESCRIPTION
741         Figure out if BFD supports any cpu which could be described with
742         the name @var{string}.  Return a pointer to an <<arch_info>>
743         structure if a machine is found, otherwise NULL.
744 */
745
746 const bfd_arch_info_type *
747 bfd_scan_arch (const char *string)
748 {
749   const bfd_arch_info_type * const *app, *ap;
750
751   /* Look through all the installed architectures.  */
752   for (app = bfd_archures_list; *app != NULL; app++)
753     {
754       for (ap = *app; ap != NULL; ap = ap->next)
755         {
756           if (ap->scan (ap, string))
757             return ap;
758         }
759     }
760
761   return NULL;
762 }
763
764 /*
765 FUNCTION
766         bfd_arch_list
767
768 SYNOPSIS
769         const char **bfd_arch_list (void);
770
771 DESCRIPTION
772         Return a freshly malloced NULL-terminated vector of the names
773         of all the valid BFD architectures.  Do not modify the names.
774 */
775
776 const char **
777 bfd_arch_list (void)
778 {
779   int vec_length = 0;
780   const char **name_ptr;
781   const char **name_list;
782   const bfd_arch_info_type * const *app;
783   bfd_size_type amt;
784
785   /* Determine the number of architectures.  */
786   vec_length = 0;
787   for (app = bfd_archures_list; *app != NULL; app++)
788     {
789       const bfd_arch_info_type *ap;
790       for (ap = *app; ap != NULL; ap = ap->next)
791         {
792           vec_length++;
793         }
794     }
795
796   amt = (vec_length + 1) * sizeof (char **);
797   name_list = (const char **) bfd_malloc (amt);
798   if (name_list == NULL)
799     return NULL;
800
801   /* Point the list at each of the names.  */
802   name_ptr = name_list;
803   for (app = bfd_archures_list; *app != NULL; app++)
804     {
805       const bfd_arch_info_type *ap;
806       for (ap = *app; ap != NULL; ap = ap->next)
807         {
808           *name_ptr = ap->printable_name;
809           name_ptr++;
810         }
811     }
812   *name_ptr = NULL;
813
814   return name_list;
815 }
816
817 /*
818 FUNCTION
819         bfd_arch_get_compatible
820
821 SYNOPSIS
822         const bfd_arch_info_type *bfd_arch_get_compatible
823           (const bfd *abfd, const bfd *bbfd, bfd_boolean accept_unknowns);
824
825 DESCRIPTION
826         Determine whether two BFDs' architectures and machine types
827         are compatible.  Calculates the lowest common denominator
828         between the two architectures and machine types implied by
829         the BFDs and returns a pointer to an <<arch_info>> structure
830         describing the compatible machine.
831 */
832
833 const bfd_arch_info_type *
834 bfd_arch_get_compatible (const bfd *abfd,
835                          const bfd *bbfd,
836                          bfd_boolean accept_unknowns)
837 {
838   const bfd *ubfd, *kbfd;
839
840   /* Look for an unknown architecture.  */
841   if (abfd->arch_info->arch == bfd_arch_unknown)
842     ubfd = abfd, kbfd = bbfd;
843   else if (bbfd->arch_info->arch == bfd_arch_unknown)
844     ubfd = bbfd, kbfd = abfd;
845   else
846     /* Otherwise architecture-specific code has to decide.  */
847     return abfd->arch_info->compatible (abfd->arch_info, bbfd->arch_info);
848
849   /* We can allow an unknown architecture if accept_unknowns
850      is true, or if the target is the "binary" format, which
851      has an unknown architecture.  Since the binary format can
852      only be set by explicit request from the user, it is safe
853      to assume that they know what they are doing.  */
854   if (accept_unknowns
855       || strcmp (bfd_get_target (ubfd), "binary") == 0)
856     return kbfd->arch_info;
857   return NULL;
858 }
859
860 /*
861 INTERNAL_DEFINITION
862         bfd_default_arch_struct
863
864 DESCRIPTION
865         The <<bfd_default_arch_struct>> is an item of
866         <<bfd_arch_info_type>> which has been initialized to a fairly
867         generic state.  A BFD starts life by pointing to this
868         structure, until the correct back end has determined the real
869         architecture of the file.
870
871 .extern const bfd_arch_info_type bfd_default_arch_struct;
872 */
873
874 const bfd_arch_info_type bfd_default_arch_struct = {
875   32, 32, 8, bfd_arch_unknown, 0, "unknown", "unknown", 2, TRUE,
876   bfd_default_compatible,
877   bfd_default_scan,
878   bfd_arch_default_fill,
879   0,
880 };
881
882 /*
883 FUNCTION
884         bfd_set_arch_info
885
886 SYNOPSIS
887         void bfd_set_arch_info (bfd *abfd, const bfd_arch_info_type *arg);
888
889 DESCRIPTION
890         Set the architecture info of @var{abfd} to @var{arg}.
891 */
892
893 void
894 bfd_set_arch_info (bfd *abfd, const bfd_arch_info_type *arg)
895 {
896   abfd->arch_info = arg;
897 }
898
899 /*
900 INTERNAL_FUNCTION
901         bfd_default_set_arch_mach
902
903 SYNOPSIS
904         bfd_boolean bfd_default_set_arch_mach
905           (bfd *abfd, enum bfd_architecture arch, unsigned long mach);
906
907 DESCRIPTION
908         Set the architecture and machine type in BFD @var{abfd}
909         to @var{arch} and @var{mach}.  Find the correct
910         pointer to a structure and insert it into the <<arch_info>>
911         pointer.
912 */
913
914 bfd_boolean
915 bfd_default_set_arch_mach (bfd *abfd,
916                            enum bfd_architecture arch,
917                            unsigned long mach)
918 {
919   abfd->arch_info = bfd_lookup_arch (arch, mach);
920   if (abfd->arch_info != NULL)
921     return TRUE;
922
923   abfd->arch_info = &bfd_default_arch_struct;
924   bfd_set_error (bfd_error_bad_value);
925   return FALSE;
926 }
927
928 /*
929 FUNCTION
930         bfd_get_arch
931
932 SYNOPSIS
933         enum bfd_architecture bfd_get_arch (bfd *abfd);
934
935 DESCRIPTION
936         Return the enumerated type which describes the BFD @var{abfd}'s
937         architecture.
938 */
939
940 enum bfd_architecture
941 bfd_get_arch (bfd *abfd)
942 {
943   return abfd->arch_info->arch;
944 }
945
946 /*
947 FUNCTION
948         bfd_get_mach
949
950 SYNOPSIS
951         unsigned long bfd_get_mach (bfd *abfd);
952
953 DESCRIPTION
954         Return the long type which describes the BFD @var{abfd}'s
955         machine.
956 */
957
958 unsigned long
959 bfd_get_mach (bfd *abfd)
960 {
961   return abfd->arch_info->mach;
962 }
963
964 /*
965 FUNCTION
966         bfd_arch_bits_per_byte
967
968 SYNOPSIS
969         unsigned int bfd_arch_bits_per_byte (bfd *abfd);
970
971 DESCRIPTION
972         Return the number of bits in one of the BFD @var{abfd}'s
973         architecture's bytes.
974 */
975
976 unsigned int
977 bfd_arch_bits_per_byte (bfd *abfd)
978 {
979   return abfd->arch_info->bits_per_byte;
980 }
981
982 /*
983 FUNCTION
984         bfd_arch_bits_per_address
985
986 SYNOPSIS
987         unsigned int bfd_arch_bits_per_address (bfd *abfd);
988
989 DESCRIPTION
990         Return the number of bits in one of the BFD @var{abfd}'s
991         architecture's addresses.
992 */
993
994 unsigned int
995 bfd_arch_bits_per_address (bfd *abfd)
996 {
997   return abfd->arch_info->bits_per_address;
998 }
999
1000 /*
1001 INTERNAL_FUNCTION
1002         bfd_default_compatible
1003
1004 SYNOPSIS
1005         const bfd_arch_info_type *bfd_default_compatible
1006           (const bfd_arch_info_type *a, const bfd_arch_info_type *b);
1007
1008 DESCRIPTION
1009         The default function for testing for compatibility.
1010 */
1011
1012 const bfd_arch_info_type *
1013 bfd_default_compatible (const bfd_arch_info_type *a,
1014                         const bfd_arch_info_type *b)
1015 {
1016   if (a->arch != b->arch)
1017     return NULL;
1018
1019   if (a->bits_per_word != b->bits_per_word)
1020     return NULL;
1021
1022   if (a->mach > b->mach)
1023     return a;
1024
1025   if (b->mach > a->mach)
1026     return b;
1027
1028   return a;
1029 }
1030
1031 /*
1032 INTERNAL_FUNCTION
1033         bfd_default_scan
1034
1035 SYNOPSIS
1036         bfd_boolean bfd_default_scan
1037           (const struct bfd_arch_info *info, const char *string);
1038
1039 DESCRIPTION
1040         The default function for working out whether this is an
1041         architecture hit and a machine hit.
1042 */
1043
1044 bfd_boolean
1045 bfd_default_scan (const bfd_arch_info_type *info, const char *string)
1046 {
1047   const char *ptr_src;
1048   const char *ptr_tst;
1049   unsigned long number;
1050   enum bfd_architecture arch;
1051   const char *printable_name_colon;
1052
1053   /* Exact match of the architecture name (ARCH_NAME) and also the
1054      default architecture?  */
1055   if (strcasecmp (string, info->arch_name) == 0
1056       && info->the_default)
1057     return TRUE;
1058
1059   /* Exact match of the machine name (PRINTABLE_NAME)?  */
1060   if (strcasecmp (string, info->printable_name) == 0)
1061     return TRUE;
1062
1063   /* Given that printable_name contains no colon, attempt to match:
1064      ARCH_NAME [ ":" ] PRINTABLE_NAME?  */
1065   printable_name_colon = strchr (info->printable_name, ':');
1066   if (printable_name_colon == NULL)
1067     {
1068       size_t strlen_arch_name = strlen (info->arch_name);
1069       if (strncasecmp (string, info->arch_name, strlen_arch_name) == 0)
1070         {
1071           if (string[strlen_arch_name] == ':')
1072             {
1073               if (strcasecmp (string + strlen_arch_name + 1,
1074                               info->printable_name) == 0)
1075                 return TRUE;
1076             }
1077           else
1078             {
1079               if (strcasecmp (string + strlen_arch_name,
1080                               info->printable_name) == 0)
1081                 return TRUE;
1082             }
1083         }
1084     }
1085
1086   /* Given that PRINTABLE_NAME has the form: <arch> ":" <mach>;
1087      Attempt to match: <arch> <mach>?  */
1088   if (printable_name_colon != NULL)
1089     {
1090       size_t colon_index = printable_name_colon - info->printable_name;
1091       if (strncasecmp (string, info->printable_name, colon_index) == 0
1092           && strcasecmp (string + colon_index,
1093                          info->printable_name + colon_index + 1) == 0)
1094         return TRUE;
1095     }
1096
1097   /* Given that PRINTABLE_NAME has the form: <arch> ":" <mach>; Do not
1098      attempt to match just <mach>, it could be ambiguous.  This test
1099      is left until later.  */
1100
1101   /* NOTE: The below is retained for compatibility only.  Please do
1102      not add to this code.  */
1103
1104   /* See how much of the supplied string matches with the
1105      architecture, eg the string m68k:68020 would match the 68k entry
1106      up to the :, then we get left with the machine number.  */
1107
1108   for (ptr_src = string, ptr_tst = info->arch_name;
1109        *ptr_src && *ptr_tst;
1110        ptr_src++, ptr_tst++)
1111     {
1112       if (*ptr_src != *ptr_tst)
1113         break;
1114     }
1115
1116   /* Chewed up as much of the architecture as will match, skip any
1117      colons.  */
1118   if (*ptr_src == ':')
1119     ptr_src++;
1120
1121   if (*ptr_src == 0)
1122     {
1123       /* Nothing more, then only keep this one if it is the default
1124          machine for this architecture.  */
1125       return info->the_default;
1126     }
1127
1128   number = 0;
1129   while (ISDIGIT (*ptr_src))
1130     {
1131       number = number * 10 + *ptr_src - '0';
1132       ptr_src++;
1133     }
1134
1135   /* NOTE: The below is retained for compatibility only.
1136      PLEASE DO NOT ADD TO THIS CODE.  */
1137
1138   switch (number)
1139     {
1140       /* FIXME: These are needed to parse IEEE objects.  */
1141       /* The following seven case's are here only for compatibility with
1142          older binutils (at least IEEE objects from binutils 2.9.1 require
1143          them).  */
1144     case bfd_mach_m68000:
1145     case bfd_mach_m68010:
1146     case bfd_mach_m68020:
1147     case bfd_mach_m68030:
1148     case bfd_mach_m68040:
1149     case bfd_mach_m68060:
1150     case bfd_mach_cpu32:
1151       arch = bfd_arch_m68k;
1152       break;
1153     case 68000:
1154       arch = bfd_arch_m68k;
1155       number = bfd_mach_m68000;
1156       break;
1157     case 68010:
1158       arch = bfd_arch_m68k;
1159       number = bfd_mach_m68010;
1160       break;
1161     case 68020:
1162       arch = bfd_arch_m68k;
1163       number = bfd_mach_m68020;
1164       break;
1165     case 68030:
1166       arch = bfd_arch_m68k;
1167       number = bfd_mach_m68030;
1168       break;
1169     case 68040:
1170       arch = bfd_arch_m68k;
1171       number = bfd_mach_m68040;
1172       break;
1173     case 68060:
1174       arch = bfd_arch_m68k;
1175       number = bfd_mach_m68060;
1176       break;
1177     case 68332:
1178       arch = bfd_arch_m68k;
1179       number = bfd_mach_cpu32;
1180       break;
1181     case 5200:
1182       arch = bfd_arch_m68k;
1183       number = bfd_mach_mcf_isa_a_nodiv;
1184       break;
1185     case 5206:
1186       arch = bfd_arch_m68k;
1187       number = bfd_mach_mcf_isa_a_mac;
1188       break;
1189     case 5307:
1190       arch = bfd_arch_m68k;
1191       number = bfd_mach_mcf_isa_a_mac;
1192       break;
1193     case 5407:
1194       arch = bfd_arch_m68k;
1195       number = bfd_mach_mcf_isa_b_nousp_mac;
1196       break;
1197     case 5282:
1198       arch = bfd_arch_m68k;
1199       number = bfd_mach_mcf_isa_aplus_emac;
1200       break;
1201
1202     case 32000:
1203       arch = bfd_arch_we32k;
1204       break;
1205
1206     case 3000:
1207       arch = bfd_arch_mips;
1208       number = bfd_mach_mips3000;
1209       break;
1210
1211     case 4000:
1212       arch = bfd_arch_mips;
1213       number = bfd_mach_mips4000;
1214       break;
1215
1216     case 6000:
1217       arch = bfd_arch_rs6000;
1218       break;
1219
1220     case 7410:
1221       arch = bfd_arch_sh;
1222       number = bfd_mach_sh_dsp;
1223       break;
1224
1225     case 7708:
1226       arch = bfd_arch_sh;
1227       number = bfd_mach_sh3;
1228       break;
1229
1230     case 7729:
1231       arch = bfd_arch_sh;
1232       number = bfd_mach_sh3_dsp;
1233       break;
1234
1235     case 7750:
1236       arch = bfd_arch_sh;
1237       number = bfd_mach_sh4;
1238       break;
1239
1240     default:
1241       return FALSE;
1242     }
1243
1244   if (arch != info->arch)
1245     return FALSE;
1246
1247   if (number != info->mach)
1248     return FALSE;
1249
1250   return TRUE;
1251 }
1252
1253 /*
1254 FUNCTION
1255         bfd_get_arch_info
1256
1257 SYNOPSIS
1258         const bfd_arch_info_type *bfd_get_arch_info (bfd *abfd);
1259
1260 DESCRIPTION
1261         Return the architecture info struct in @var{abfd}.
1262 */
1263
1264 const bfd_arch_info_type *
1265 bfd_get_arch_info (bfd *abfd)
1266 {
1267   return abfd->arch_info;
1268 }
1269
1270 /*
1271 FUNCTION
1272         bfd_lookup_arch
1273
1274 SYNOPSIS
1275         const bfd_arch_info_type *bfd_lookup_arch
1276           (enum bfd_architecture arch, unsigned long machine);
1277
1278 DESCRIPTION
1279         Look for the architecture info structure which matches the
1280         arguments @var{arch} and @var{machine}. A machine of 0 matches the
1281         machine/architecture structure which marks itself as the
1282         default.
1283 */
1284
1285 const bfd_arch_info_type *
1286 bfd_lookup_arch (enum bfd_architecture arch, unsigned long machine)
1287 {
1288   const bfd_arch_info_type * const *app, *ap;
1289
1290   for (app = bfd_archures_list; *app != NULL; app++)
1291     {
1292       for (ap = *app; ap != NULL; ap = ap->next)
1293         {
1294           if (ap->arch == arch
1295               && (ap->mach == machine
1296                   || (machine == 0 && ap->the_default)))
1297             return ap;
1298         }
1299     }
1300
1301   return NULL;
1302 }
1303
1304 /*
1305 FUNCTION
1306         bfd_printable_arch_mach
1307
1308 SYNOPSIS
1309         const char *bfd_printable_arch_mach
1310           (enum bfd_architecture arch, unsigned long machine);
1311
1312 DESCRIPTION
1313         Return a printable string representing the architecture and
1314         machine type.
1315
1316         This routine is depreciated.
1317 */
1318
1319 const char *
1320 bfd_printable_arch_mach (enum bfd_architecture arch, unsigned long machine)
1321 {
1322   const bfd_arch_info_type *ap = bfd_lookup_arch (arch, machine);
1323
1324   if (ap)
1325     return ap->printable_name;
1326   return "UNKNOWN!";
1327 }
1328
1329 /*
1330 FUNCTION
1331         bfd_octets_per_byte
1332
1333 SYNOPSIS
1334         unsigned int bfd_octets_per_byte (bfd *abfd);
1335
1336 DESCRIPTION
1337         Return the number of octets (8-bit quantities) per target byte
1338         (minimum addressable unit).  In most cases, this will be one, but some
1339         DSP targets have 16, 32, or even 48 bits per byte.
1340 */
1341
1342 unsigned int
1343 bfd_octets_per_byte (bfd *abfd)
1344 {
1345   return bfd_arch_mach_octets_per_byte (bfd_get_arch (abfd),
1346                                         bfd_get_mach (abfd));
1347 }
1348
1349 /*
1350 FUNCTION
1351         bfd_arch_mach_octets_per_byte
1352
1353 SYNOPSIS
1354         unsigned int bfd_arch_mach_octets_per_byte
1355           (enum bfd_architecture arch, unsigned long machine);
1356
1357 DESCRIPTION
1358         See bfd_octets_per_byte.
1359
1360         This routine is provided for those cases where a bfd * is not
1361         available
1362 */
1363
1364 unsigned int
1365 bfd_arch_mach_octets_per_byte (enum bfd_architecture arch,
1366                                unsigned long mach)
1367 {
1368   const bfd_arch_info_type *ap = bfd_lookup_arch (arch, mach);
1369
1370   if (ap)
1371     return ap->bits_per_byte / 8;
1372   return 1;
1373 }
1374
1375 /*
1376 INTERNAL_FUNCTION
1377         bfd_arch_default_fill
1378
1379 SYNOPSIS
1380         void *bfd_arch_default_fill (bfd_size_type count,
1381                                      bfd_boolean is_bigendian,
1382                                      bfd_boolean code);
1383
1384 DESCRIPTION
1385         Allocate via bfd_malloc and return a fill buffer of size COUNT.
1386         If IS_BIGENDIAN is TRUE, the order of bytes is big endian.  If
1387         CODE is TRUE, the buffer contains code.
1388 */
1389
1390 void *
1391 bfd_arch_default_fill (bfd_size_type count,
1392                        bfd_boolean is_bigendian ATTRIBUTE_UNUSED,
1393                        bfd_boolean code ATTRIBUTE_UNUSED)
1394 {
1395   void *fill = bfd_malloc (count);
1396   if (fill != NULL)
1397     memset (fill, 0, count);
1398   return fill;
1399 }