122 lines
3.2 KiB
C
122 lines
3.2 KiB
C
|
/* 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));
|