1 /* BFD library support routines for the Z80 architecture.
2 Copyright (C) 2005-2022 Free Software Foundation, Inc.
3 Contributed by Arnold Metselaar <arnold_m@operamail.com>
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
26 const bfd_arch_info_type bfd_z80_arch;
27
28 /* This routine is provided two arch_infos and
29 returns whether they'd be compatible. */
30
31 static const bfd_arch_info_type *
compatible(const bfd_arch_info_type * a,const bfd_arch_info_type * b)32 compatible (const bfd_arch_info_type *a, const bfd_arch_info_type *b)
33 {
34 if (a->arch != b->arch || a->arch != bfd_arch_z80)
35 return NULL;
36
37 if (a->mach == b->mach)
38 return a;
39 switch (a->mach)
40 {
41 case bfd_mach_z80:
42 case bfd_mach_z80full:
43 case bfd_mach_z80strict:
44 switch (b->mach)
45 {
46 case bfd_mach_z80:
47 case bfd_mach_z80full:
48 case bfd_mach_z80strict:
49 return & bfd_z80_arch;
50 case bfd_mach_z180:
51 case bfd_mach_ez80_z80:
52 case bfd_mach_ez80_adl:
53 case bfd_mach_z80n:
54 case bfd_mach_r800:
55 return b;
56 }
57 break;
58 case bfd_mach_z80n:
59 case bfd_mach_r800:
60 switch (b->mach)
61 {
62 case bfd_mach_z80:
63 case bfd_mach_z80full:
64 case bfd_mach_z80strict:
65 return a;
66 }
67 break;
68 case bfd_mach_z180:
69 switch (b->mach)
70 {
71 case bfd_mach_z80:
72 case bfd_mach_z80full:
73 case bfd_mach_z80strict:
74 return a;
75 case bfd_mach_ez80_z80:
76 case bfd_mach_ez80_adl:
77 return b;
78 }
79 break;
80 case bfd_mach_ez80_z80:
81 case bfd_mach_ez80_adl:
82 switch (b->mach)
83 {
84 case bfd_mach_z80:
85 case bfd_mach_z80full:
86 case bfd_mach_z80strict:
87 case bfd_mach_z180:
88 case bfd_mach_ez80_z80:
89 return a;
90 case bfd_mach_ez80_adl:
91 return b;
92 }
93 break;
94 case bfd_mach_gbz80:
95 return NULL;
96 }
97
98 return NULL;
99 }
100
101 #define N(name,print,bits,default,next) \
102 { 16, bits, 8, bfd_arch_z80, name, "z80", print, 0, default, \
103 compatible, bfd_default_scan, bfd_arch_default_fill, next, 0 }
104
105 #define M(n) &arch_info_struct[n]
106
107 static const bfd_arch_info_type arch_info_struct[] =
108 {
109 N (bfd_mach_z80, "z80", 16, true, M(1)),
110 N (bfd_mach_z80strict, "z80-strict", 16, false, M(2)),
111 N (bfd_mach_z80full, "z80-full", 16, false, M(3)),
112 N (bfd_mach_r800, "r800", 16, false, M(4)),
113 N (bfd_mach_gbz80, "gbz80", 16, false, M(5)),
114 N (bfd_mach_z180, "z180", 16, false, M(6)),
115 N (bfd_mach_z80n, "z80n", 16, false, M(7)),
116 N (bfd_mach_ez80_z80, "ez80-z80", 16, false, M(8)),
117 N (bfd_mach_ez80_adl, "ez80-adl", 24, false, NULL)
118 };
119
120 const bfd_arch_info_type bfd_z80_arch =
121 N (bfd_mach_z80, "z80", 16, true, M(1));
122