xref: /netbsd-src/external/gpl3/binutils.old/dist/bfd/cpu-z80.c (revision e992f068c547fd6e84b3f104dc2340adcc955732)

/* 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));