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