1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
/* BFD library support routines for the Z80 architecture.
Copyright (C) 2005-2022 Free Software Foundation, Inc.
Contributed by Arnold Metselaar <arnold_m@operamail.com>
This file is part of BFD, the Binary File Descriptor library.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
MA 02110-1301, USA. */
#include "sysdep.h"
#include "bfd.h"
#include "libbfd.h"
const bfd_arch_info_type bfd_z80_arch;
/* This routine is provided two arch_infos and
returns whether they'd be compatible. */
static const bfd_arch_info_type *
compatible (const bfd_arch_info_type *a, const bfd_arch_info_type *b)
{
if (a->arch != b->arch || a->arch != bfd_arch_z80)
return NULL;
if (a->mach == b->mach)
return a;
switch (a->mach)
{
case bfd_mach_z80:
case bfd_mach_z80full:
case bfd_mach_z80strict:
switch (b->mach)
{
case bfd_mach_z80:
case bfd_mach_z80full:
case bfd_mach_z80strict:
return & bfd_z80_arch;
case bfd_mach_z180:
case bfd_mach_ez80_z80:
case bfd_mach_ez80_adl:
case bfd_mach_z80n:
case bfd_mach_r800:
return b;
}
break;
case bfd_mach_z80n:
case bfd_mach_r800:
switch (b->mach)
{
case bfd_mach_z80:
case bfd_mach_z80full:
case bfd_mach_z80strict:
return a;
}
break;
case bfd_mach_z180:
switch (b->mach)
{
case bfd_mach_z80:
case bfd_mach_z80full:
case bfd_mach_z80strict:
return a;
case bfd_mach_ez80_z80:
case bfd_mach_ez80_adl:
return b;
}
break;
case bfd_mach_ez80_z80:
case bfd_mach_ez80_adl:
switch (b->mach)
{
case bfd_mach_z80:
case bfd_mach_z80full:
case bfd_mach_z80strict:
case bfd_mach_z180:
case bfd_mach_ez80_z80:
return a;
case bfd_mach_ez80_adl:
return b;
}
break;
case bfd_mach_gbz80:
return NULL;
}
return NULL;
}
#define N(name,print,bits,default,next) \
{ 16, bits, 8, bfd_arch_z80, name, "z80", print, 0, default, \
compatible, bfd_default_scan, bfd_arch_default_fill, next, 0 }
#define M(n) &arch_info_struct[n]
static const bfd_arch_info_type arch_info_struct[] =
{
N (bfd_mach_z80, "z80", 16, true, M(1)),
N (bfd_mach_z80strict, "z80-strict", 16, false, M(2)),
N (bfd_mach_z80full, "z80-full", 16, false, M(3)),
N (bfd_mach_r800, "r800", 16, false, M(4)),
N (bfd_mach_gbz80, "gbz80", 16, false, M(5)),
N (bfd_mach_z180, "z180", 16, false, M(6)),
N (bfd_mach_z80n, "z80n", 16, false, M(7)),
N (bfd_mach_ez80_z80, "ez80-z80", 16, false, M(8)),
N (bfd_mach_ez80_adl, "ez80-adl", 24, false, NULL)
};
const bfd_arch_info_type bfd_z80_arch =
N (bfd_mach_z80, "z80", 16, true, M(1));
|
