(Ada) Fix resolving of homonym components in tagged types
[binutils-gdb.git] / bfd / cpu-alpha.c
blobb0eb7ece518fa73e76b8f6283d1a4f03a1d0d7e7
1 /* BFD support for the Alpha architecture.
2 Copyright (C) 1992-2018 Free Software Foundation, Inc.
4 This file is part of BFD, the Binary File Descriptor library.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19 MA 02110-1301, USA. */
21 #include "sysdep.h"
22 #include "bfd.h"
23 #include "libbfd.h"
25 #define N(BITS_WORD, BITS_ADDR, NUMBER, PRINT, DEFAULT, NEXT) \
26 { \
27 BITS_WORD, /* bits in a word */ \
28 BITS_ADDR, /* bits in an address */ \
29 8, /* 8 bits in a byte */ \
30 bfd_arch_alpha, \
31 NUMBER, \
32 "alpha", \
33 PRINT, \
34 3, \
35 DEFAULT, \
36 bfd_default_compatible, \
37 bfd_default_scan, \
38 bfd_arch_default_fill, \
39 NEXT, \
42 #define NN(index) (&arch_info_struct[index])
44 /* These exist only so that we can reasonably disassemble PALcode. */
45 static const bfd_arch_info_type arch_info_struct[] =
47 N (64, 64, bfd_mach_alpha_ev4, "alpha:ev4", FALSE, NN(1)),
48 N (64, 64, bfd_mach_alpha_ev5, "alpha:ev5", FALSE, NN(2)),
49 N (64, 64, bfd_mach_alpha_ev6, "alpha:ev6", FALSE, 0),
52 const bfd_arch_info_type bfd_alpha_arch =
53 N (64, 64, 0, "alpha", TRUE, NN(0));