1/* BFD library support routines for the Z80 architecture.
2   Copyright (C) 2005-2020 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
26const 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
31static const bfd_arch_info_type *
32compatible (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
107static 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
120const bfd_arch_info_type bfd_z80_arch =
121  N (bfd_mach_z80,   "z80",   16, TRUE,  M(1));
122