[deliverable/binutils-gdb.git] / bfd / cpu-z80.c

/* BFD library support routines for the Z80 architecture.
   Copyright (C) 2005-2020 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));
Commit	Line	Data
3c9b82ba	1	/* BFD library support routines for the Z80 architecture.
b3adc24a	2	Copyright (C) 2005-2020 Free Software Foundation, Inc.
3c9b82ba NC	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
cd123cb7	9	the Free Software Foundation; either version 3 of the License, or
3c9b82ba NC	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
3c9b82ba	22	#include "sysdep.h"
3db64b00	23	#include "bfd.h"
3c9b82ba NC	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 *
	32	compatible (const bfd_arch_info_type a, const bfd_arch_info_type b)
	33	{
fcaaac0a	34	if (a->arch != b->arch \|\| a->arch != bfd_arch_z80)
3c9b82ba NC	35	return NULL;
	36
	37	if (a->mach == b->mach)
	38	return a;
fcaaac0a SB	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	}
3c9b82ba	97
fcaaac0a	98	return NULL;
3c9b82ba NC	99	}
3c9b82ba NC	100
6655dba2 SB	101	#define N(name,print,bits,default,next) \
6655dba2 SB	102	{ 16, bits, 8, bfd_arch_z80, name, "z80", print, 0, default, \
aebcfb76	103	compatible, bfd_default_scan, bfd_arch_default_fill, next, 0 }
3c9b82ba NC	104
	105	#define M(n) &arch_info_struct[n]
	106
	107	static const bfd_arch_info_type arch_info_struct[] =
	108	{
fcaaac0a	109	N (bfd_mach_z80, "z80", 16, TRUE, M(1)),
6655dba2	110	N (bfd_mach_z80strict, "z80-strict", 16, FALSE, M(2)),
fcaaac0a	111	N (bfd_mach_z80full, "z80-full", 16, FALSE, M(3)),
6655dba2 SB	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)),
9fc0b501 SB	115	N (bfd_mach_z80n, "z80n", 16, FALSE, M(7)),
9fc0b501 SB	116	N (bfd_mach_ez80_z80, "ez80-z80", 16, FALSE, M(8)),
6655dba2	117	N (bfd_mach_ez80_adl, "ez80-adl", 24, FALSE, NULL)
3c9b82ba NC	118	};
3c9b82ba NC	119
6655dba2	120	const bfd_arch_info_type bfd_z80_arch =
fcaaac0a	121	N (bfd_mach_z80, "z80", 16, TRUE, M(1));