[deliverable/binutils-gdb.git] / opcodes / moxie-dis.c

/* Disassemble moxie instructions.
   Copyright (C) 2009-2020 Free Software Foundation, Inc.

   This file is part of the GNU opcodes library.

   This library 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, or (at your option)
   any later version.

   It 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 <stdio.h>

#define STATIC_TABLE
#define DEFINE_TABLE

#include "opcode/moxie.h"
#include "disassemble.h"

static fprintf_ftype fpr;
static void *stream;

/* Macros to extract operands from the instruction word.  */
#define OP_A(i) ((i >> 4) & 0xf)
#define OP_B(i) (i & 0xf)
#define INST2OFFSET(o) (((((o) & 0x3ff) ^ 0x200) - 0x200) * 2)

static const char * reg_names[16] =
  { "$fp", "$sp", "$r0", "$r1", "$r2", "$r3", "$r4", "$r5",
    "$r6", "$r7", "$r8", "$r9", "$r10", "$r11", "$r12", "$r13" };

int
print_insn_moxie (bfd_vma addr, struct disassemble_info * info)
{
  int length = 2;
  int status;
  stream = info->stream;
  const moxie_opc_info_t * opcode;
  bfd_byte buffer[4];
  unsigned short iword;
  fpr = info->fprintf_func;

  if ((status = info->read_memory_func (addr, buffer, 2, info)))
    goto fail;

  if (info->endian == BFD_ENDIAN_BIG)
    iword = bfd_getb16 (buffer);
  else
    iword = bfd_getl16 (buffer);

  /* Form 1 instructions have the high bit set to 0.  */
  if ((iword & (1<<15)) == 0)
    {
      /* Extract the Form 1 opcode.  */
      opcode = &moxie_form1_opc_info[iword >> 8];
      switch (opcode->itype)
	{
	case MOXIE_F1_NARG:
	  fpr (stream, "%s", opcode->name);
	  break;
	case MOXIE_F1_A:
	  fpr (stream, "%s\t%s", opcode->name,
	       reg_names[OP_A(iword)]);
	  break;
	case MOXIE_F1_AB:
	  fpr (stream, "%s\t%s, %s", opcode->name,
	       reg_names[OP_A(iword)],
	       reg_names[OP_B(iword)]);
	  break;
	case MOXIE_F1_A4:
	  {
	    unsigned imm;
	    if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	      goto fail;
	    if (info->endian == BFD_ENDIAN_BIG)
	      imm = bfd_getb32 (buffer);
	    else
	      imm = bfd_getl32 (buffer);
	    fpr (stream, "%s\t%s, 0x%x", opcode->name,
		 reg_names[OP_A(iword)], imm);
	    length = 6;
	  }
	  break;
	case MOXIE_F1_4:
	  {
	    unsigned imm;
	    if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	      goto fail;
	    if (info->endian == BFD_ENDIAN_BIG)
	      imm = bfd_getb32 (buffer);
	    else
	      imm = bfd_getl32 (buffer);
	    fpr (stream, "%s\t0x%x", opcode->name, imm);
	    length = 6;
	  }
	  break;
	case MOXIE_F1_M:
	  {
	    unsigned imm;
	    if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	      goto fail;
	    if (info->endian == BFD_ENDIAN_BIG)
	      imm = bfd_getb32 (buffer);
	    else
	      imm = bfd_getl32 (buffer);
	    fpr (stream, "%s\t", opcode->name);
	    info->print_address_func ((bfd_vma) imm, info);
	    length = 6;
	  }
	  break;
	case MOXIE_F1_AiB:
	  fpr (stream, "%s\t(%s), %s", opcode->name,
	       reg_names[OP_A(iword)], reg_names[OP_B(iword)]);
	  break;
	case MOXIE_F1_ABi:
	  fpr (stream, "%s\t%s, (%s)", opcode->name,
	       reg_names[OP_A(iword)], reg_names[OP_B(iword)]);
	  break;
	case MOXIE_F1_4A:
	  {
	    unsigned imm;
	    if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	      goto fail;
	    if (info->endian == BFD_ENDIAN_BIG)
	      imm = bfd_getb32 (buffer);
	    else
	      imm = bfd_getl32 (buffer);
	    fpr (stream, "%s\t0x%x, %s",
		 opcode->name, imm, reg_names[OP_A(iword)]);
	    length = 6;
	  }
	  break;
	case MOXIE_F1_AiB2:
	  {
	    unsigned imm;
	    if ((status = info->read_memory_func (addr+2, buffer, 2, info)))
	      goto fail;
	    if (info->endian == BFD_ENDIAN_BIG)
	      imm = bfd_getb16 (buffer);
	    else
	      imm = bfd_getl16 (buffer);
	    fpr (stream, "%s\t0x%x(%s), %s", opcode->name,
		 imm,
		 reg_names[OP_A(iword)],
		 reg_names[OP_B(iword)]);
	    length = 4;
	  }
	  break;
	case MOXIE_F1_ABi2:
	  {
	    unsigned imm;
	    if ((status = info->read_memory_func (addr+2, buffer, 2, info)))
	      goto fail;
	    if (info->endian == BFD_ENDIAN_BIG)
	      imm = bfd_getb16 (buffer);
	    else
	      imm = bfd_getl16 (buffer);
	    fpr (stream, "%s\t%s, 0x%x(%s)",
		 opcode->name,
		 reg_names[OP_A(iword)],
		 imm,
		 reg_names[OP_B(iword)]);
	    length = 4;
	  }
	  break;
        case MOXIE_BAD:
	  fpr (stream, "bad");
	  break;
	default:
	  abort();
	}
    }
  else if ((iword & (1<<14)) == 0)
    {
      /* Extract the Form 2 opcode.  */
      opcode = &moxie_form2_opc_info[(iword >> 12) & 3];
      switch (opcode->itype)
	{
	case MOXIE_F2_A8V:
	  fpr (stream, "%s\t%s, 0x%x",
	       opcode->name,
	       reg_names[(iword >> 8) & 0xf],
	       iword & ((1 << 8) - 1));
	  break;
	case MOXIE_F2_NARG:
	  fpr (stream, "%s", opcode->name);
	  break;
        case MOXIE_BAD:
	  fpr (stream, "bad");
	  break;
	default:
	  abort();
	}
    }
  else
    {
      /* Extract the Form 3 opcode.  */
      opcode = &moxie_form3_opc_info[(iword >> 10) & 15];
      switch (opcode->itype)
	{
	case MOXIE_F3_PCREL:
	  fpr (stream, "%s\t", opcode->name);
	  info->print_address_func (addr + INST2OFFSET (iword) + 2, info);
	  break;
        case MOXIE_BAD:
	  fpr (stream, "bad");
	  break;
	default:
	  abort();
	}
    }

  return length;

 fail:
  info->memory_error_func (status, addr, info);
  return -1;
}
Commit	Line	Data
20135e4c	1	/* Disassemble moxie instructions.
b3adc24a	2	Copyright (C) 2009-2020 Free Software Foundation, Inc.
20135e4c NC	3
	4	This file is part of the GNU opcodes library.
	5
	6	This library is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 3, or (at your option)
	9	any later version.
	10
	11	It is distributed in the hope that it will be useful, but WITHOUT
	12	ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
	13	or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
	14	License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with this program; if not, write to the Free Software
	18	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
	19	MA 02110-1301, USA. */
	20
20135e4c	21	#include "sysdep.h"
df7b86aa NC	22	#include <stdio.h>
df7b86aa NC	23
20135e4c NC	24	#define STATIC_TABLE
	25	#define DEFINE_TABLE
	26
	27	#include "opcode/moxie.h"
88c1242d	28	#include "disassemble.h"
20135e4c NC	29
	30	static fprintf_ftype fpr;
	31	static void *stream;
	32
	33	/* Macros to extract operands from the instruction word. */
	34	#define OP_A(i) ((i >> 4) & 0xf)
	35	#define OP_B(i) (i & 0xf)
cf950fd4	36	#define INST2OFFSET(o) (((((o) & 0x3ff) ^ 0x200) - 0x200) * 2)
20135e4c NC	37
	38	static const char * reg_names[16] =
	39	{ "$fp", "$sp", "$r0", "$r1", "$r2", "$r3", "$r4", "$r5",
	40	"$r6", "$r7", "$r8", "$r9", "$r10", "$r11", "$r12", "$r13" };
	41
	42	int
	43	print_insn_moxie (bfd_vma addr, struct disassemble_info * info)
	44	{
	45	int length = 2;
	46	int status;
	47	stream = info->stream;
	48	const moxie_opc_info_t * opcode;
	49	bfd_byte buffer[4];
	50	unsigned short iword;
	51	fpr = info->fprintf_func;
	52
	53	if ((status = info->read_memory_func (addr, buffer, 2, info)))
	54	goto fail;
e202fa84 AG	55
	56	if (info->endian == BFD_ENDIAN_BIG)
	57	iword = bfd_getb16 (buffer);
	58	else
	59	iword = bfd_getl16 (buffer);
20135e4c NC	60
	61	/* Form 1 instructions have the high bit set to 0. */
	62	if ((iword & (1<<15)) == 0)
	63	{
	64	/* Extract the Form 1 opcode. */
	65	opcode = &moxie_form1_opc_info[iword >> 8];
	66	switch (opcode->itype)
	67	{
	68	case MOXIE_F1_NARG:
	69	fpr (stream, "%s", opcode->name);
	70	break;
	71	case MOXIE_F1_A:
	72	fpr (stream, "%s\t%s", opcode->name,
	73	reg_names[OP_A(iword)]);
	74	break;
	75	case MOXIE_F1_AB:
	76	fpr (stream, "%s\t%s, %s", opcode->name,
	77	reg_names[OP_A(iword)],
	78	reg_names[OP_B(iword)]);
	79	break;
	80	case MOXIE_F1_A4:
	81	{
	82	unsigned imm;
	83	if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	84	goto fail;
e202fa84 AG	85	if (info->endian == BFD_ENDIAN_BIG)
	86	imm = bfd_getb32 (buffer);
	87	else
	88	imm = bfd_getl32 (buffer);
20135e4c NC	89	fpr (stream, "%s\t%s, 0x%x", opcode->name,
	90	reg_names[OP_A(iword)], imm);
	91	length = 6;
	92	}
	93	break;
	94	case MOXIE_F1_4:
	95	{
	96	unsigned imm;
	97	if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	98	goto fail;
e202fa84 AG	99	if (info->endian == BFD_ENDIAN_BIG)
	100	imm = bfd_getb32 (buffer);
	101	else
	102	imm = bfd_getl32 (buffer);
20135e4c NC	103	fpr (stream, "%s\t0x%x", opcode->name, imm);
	104	length = 6;
	105	}
	106	break;
0e7c7f11 AG	107	case MOXIE_F1_M:
	108	{
	109	unsigned imm;
	110	if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	111	goto fail;
e202fa84 AG	112	if (info->endian == BFD_ENDIAN_BIG)
	113	imm = bfd_getb32 (buffer);
	114	else
	115	imm = bfd_getl32 (buffer);
0e7c7f11 AG	116	fpr (stream, "%s\t", opcode->name);
	117	info->print_address_func ((bfd_vma) imm, info);
	118	length = 6;
	119	}
	120	break;
20135e4c NC	121	case MOXIE_F1_AiB:
	122	fpr (stream, "%s\t(%s), %s", opcode->name,
	123	reg_names[OP_A(iword)], reg_names[OP_B(iword)]);
	124	break;
	125	case MOXIE_F1_ABi:
	126	fpr (stream, "%s\t%s, (%s)", opcode->name,
	127	reg_names[OP_A(iword)], reg_names[OP_B(iword)]);
	128	break;
	129	case MOXIE_F1_4A:
	130	{
	131	unsigned imm;
	132	if ((status = info->read_memory_func (addr + 2, buffer, 4, info)))
	133	goto fail;
e202fa84 AG	134	if (info->endian == BFD_ENDIAN_BIG)
	135	imm = bfd_getb32 (buffer);
	136	else
	137	imm = bfd_getl32 (buffer);
20135e4c NC	138	fpr (stream, "%s\t0x%x, %s",
	139	opcode->name, imm, reg_names[OP_A(iword)]);
	140	length = 6;
	141	}
	142	break;
bffb6004	143	case MOXIE_F1_AiB2:
20135e4c NC	144	{
20135e4c NC	145	unsigned imm;
bffb6004	146	if ((status = info->read_memory_func (addr+2, buffer, 2, info)))
20135e4c	147	goto fail;
e202fa84	148	if (info->endian == BFD_ENDIAN_BIG)
bffb6004	149	imm = bfd_getb16 (buffer);
e202fa84	150	else
bffb6004	151	imm = bfd_getl16 (buffer);
20135e4c NC	152	fpr (stream, "%s\t0x%x(%s), %s", opcode->name,
	153	imm,
	154	reg_names[OP_A(iword)],
	155	reg_names[OP_B(iword)]);
bffb6004	156	length = 4;
20135e4c NC	157	}
20135e4c NC	158	break;
bffb6004	159	case MOXIE_F1_ABi2:
20135e4c NC	160	{
20135e4c NC	161	unsigned imm;
bffb6004	162	if ((status = info->read_memory_func (addr+2, buffer, 2, info)))
20135e4c	163	goto fail;
e202fa84	164	if (info->endian == BFD_ENDIAN_BIG)
bffb6004	165	imm = bfd_getb16 (buffer);
e202fa84	166	else
bffb6004	167	imm = bfd_getl16 (buffer);
20135e4c NC	168	fpr (stream, "%s\t%s, 0x%x(%s)",
	169	opcode->name,
	170	reg_names[OP_A(iword)],
	171	imm,
	172	reg_names[OP_B(iword)]);
bffb6004	173	length = 4;
20135e4c NC	174	}
20135e4c NC	175	break;
1415a2a7 AG	176	case MOXIE_BAD:
	177	fpr (stream, "bad");
	178	break;
20135e4c	179	default:
1415a2a7	180	abort();
20135e4c NC	181	}
	182	}
	183	else if ((iword & (1<<14)) == 0)
	184	{
	185	/* Extract the Form 2 opcode. */
	186	opcode = &moxie_form2_opc_info[(iword >> 12) & 3];
	187	switch (opcode->itype)
	188	{
	189	case MOXIE_F2_A8V:
	190	fpr (stream, "%s\t%s, 0x%x",
	191	opcode->name,
	192	reg_names[(iword >> 8) & 0xf],
	193	iword & ((1 << 8) - 1));
	194	break;
	195	case MOXIE_F2_NARG:
	196	fpr (stream, "%s", opcode->name);
	197	break;
1415a2a7 AG	198	case MOXIE_BAD:
	199	fpr (stream, "bad");
	200	break;
20135e4c NC	201	default:
	202	abort();
	203	}
	204	}
	205	else
	206	{
	207	/* Extract the Form 3 opcode. */
f865a31d	208	opcode = &moxie_form3_opc_info[(iword >> 10) & 15];
20135e4c NC	209	switch (opcode->itype)
20135e4c NC	210	{
f865a31d AG	211	case MOXIE_F3_PCREL:
f865a31d AG	212	fpr (stream, "%s\t", opcode->name);
cf950fd4	213	info->print_address_func (addr + INST2OFFSET (iword) + 2, info);
20135e4c	214	break;
1415a2a7 AG	215	case MOXIE_BAD:
	216	fpr (stream, "bad");
	217	break;
20135e4c NC	218	default:
	219	abort();
	220	}
	221	}
	222
	223	return length;
	224
	225	fail:
	226	info->memory_error_func (status, addr, info);
	227	return -1;
	228	}