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

/* Disassemble ft32 instructions.
   Copyright (C) 2013-2019 Free Software Foundation, Inc.
   Contributed by FTDI (support@ftdichip.com)

   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/ft32.h"
#include "disassemble.h"

extern const ft32_opc_info_t ft32_opc_info[128];

static fprintf_ftype fpr;
static void *stream;

static int
sign_extend(int bit, int value)
{
  int onebit = (1 << bit);
  return (value & (onebit - 1)) - (value & onebit);
}

static void
ft32_opcode(bfd_vma addr ATTRIBUTE_UNUSED,
            unsigned int iword,
            struct disassemble_info *info)
{
  const ft32_opc_info_t *oo;

  for (oo = ft32_opc_info; oo->name; oo++)
    if ((iword & oo->mask) == oo->bits)
      break;

  unsigned int sc[2];
  if (ft32_decode_shortcode((unsigned int)addr, iword, sc))
    {
      ft32_opcode(addr, sc[0], info);
      fpr (stream, " ; ");
      ft32_opcode(addr, sc[1], info);
    }

  if (oo->name)
    {
      int f = oo->fields;
      int imm;

      fpr (stream, "%s", oo->name);
      if (oo->dw)
        {
          fpr (stream, ".%c ", "bsl"[(iword >> FT32_FLD_DW_BIT) & 3]);
        }
      else
        {
          fpr (stream, " ");
        }

      while (f)
        {
          int lobit = f & -f;
          if (f & lobit)
            {
              switch (lobit)
              {
              case  FT32_FLD_CBCRCV:
                // imm is {CB, CV}
                imm = ((iword >> FT32_FLD_CB_BIT) & ((1 << FT32_FLD_CB_SIZ) - 1)) << 4;
                imm |= ((iword >> FT32_FLD_CV_BIT) & ((1 << FT32_FLD_CV_SIZ) - 1));
                switch (imm)
                {
                case 0x00: fpr(stream, "nz");  break;
                case 0x01: fpr(stream, "z");   break;
                case 0x10: fpr(stream, "ae");  break;
                case 0x11: fpr(stream, "b");   break;
                case 0x20: fpr(stream, "no");  break;
                case 0x21: fpr(stream, "o");   break;
                case 0x30: fpr(stream, "ns");  break;
                case 0x31: fpr(stream, "s");   break;
                case 0x40: fpr(stream, "lt");  break;
                case 0x41: fpr(stream, "gte"); break;
                case 0x50: fpr(stream, "lte"); break;
                case 0x51: fpr(stream, "gt");  break;
                case 0x60: fpr(stream, "be");  break;
                case 0x61: fpr(stream, "a");   break;
                default:   fpr(stream, "%d,$r30,%d", (imm >> 4), (imm & 1)); break;
                }
                break;
              case  FT32_FLD_CB:
                imm = (iword >> FT32_FLD_CB_BIT) & ((1 << FT32_FLD_CB_SIZ) - 1);
                fpr(stream, "%d", imm);
                break;
              case  FT32_FLD_R_D:
                fpr(stream, "$r%d", (iword >> FT32_FLD_R_D_BIT) & 0x1f);
                break;
              case  FT32_FLD_CR:
                imm = (iword >> FT32_FLD_CR_BIT) & ((1 << FT32_FLD_CR_SIZ) - 1);
                fpr(stream, "$r%d", 28 + imm);
                break;
              case  FT32_FLD_CV:
                imm = (iword >> FT32_FLD_CV_BIT) & ((1 << FT32_FLD_CV_SIZ) - 1);
                fpr(stream, "%d", imm);
                break;
              case  FT32_FLD_R_1:
                fpr(stream, "$r%d", (iword >> FT32_FLD_R_1_BIT) & 0x1f);
                break;
              case  FT32_FLD_RIMM:
                imm = (iword >> FT32_FLD_RIMM_BIT) & ((1 << FT32_FLD_RIMM_SIZ) - 1);
                if (imm & 0x400)
                  fpr(stream, "%d", sign_extend(9, imm));
                else
                  fpr(stream, "$r%d", imm & 0x1f);
                break;
              case  FT32_FLD_R_2:
                fpr(stream, "$r%d", (iword >> FT32_FLD_R_2_BIT) & 0x1f);
                break;
              case  FT32_FLD_K20:
                imm = iword & ((1 << FT32_FLD_K20_SIZ) - 1);
                fpr(stream, "%d", sign_extend(19, imm));
                break;
              case  FT32_FLD_PA:
                imm = (iword & ((1 << FT32_FLD_PA_SIZ) - 1)) << 2;
                info->print_address_func ((bfd_vma) imm, info);
                break;
              case  FT32_FLD_AA:
                imm = iword & ((1 << FT32_FLD_AA_SIZ) - 1);
                info->print_address_func ((1 << 23) | (bfd_vma) imm, info);
                break;
              case  FT32_FLD_K16:
                imm = iword & ((1 << FT32_FLD_K16_SIZ) - 1);
                fpr(stream, "%d", imm);
                break;
              case  FT32_FLD_K15:
                imm = iword & ((1 << FT32_FLD_K15_SIZ) - 1);
                fpr(stream, "%d", sign_extend(14, imm));
                break;
              case  FT32_FLD_R_D_POST:
                fpr(stream, "$r%d", (iword >> FT32_FLD_R_D_BIT) & 0x1f);
                break;
              case  FT32_FLD_R_1_POST:
                fpr(stream, "$r%d", (iword >> FT32_FLD_R_1_BIT) & 0x1f);
                break;
              default:
                break;
              }
              f &= ~lobit;
              if (f)
                {
                  fpr(stream, ",");
                }
            }
        }
    }
    else
    {
      fpr (stream, "!");
    }
}

int
print_insn_ft32 (bfd_vma addr, struct disassemble_info *info)
{
  int status;
  stream = info->stream;
  bfd_byte buffer[4];
  unsigned int iword;

  fpr = info->fprintf_func;

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

  iword = bfd_getl32 (buffer);

  fpr (stream, "%08x ", iword);

  ft32_opcode(addr, iword, info);

  return 4;

 fail:
  info->memory_error_func (status, addr, info);
  return -1;
}
Commit	Line	Data
3f8107ab	1	/* Disassemble ft32 instructions.
82704155	2	Copyright (C) 2013-2019 Free Software Foundation, Inc.
3f8107ab AM	3	Contributed by FTDI (support@ftdichip.com)
	4
	5	This file is part of the GNU opcodes library.
	6
	7	This library 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, or (at your option)
	10	any later version.
	11
	12	It is distributed in the hope that it will be useful, but WITHOUT
	13	ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
	14	or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
	15	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 <stdio.h>
	24	#define STATIC_TABLE
	25	#define DEFINE_TABLE
	26
	27	#include "opcode/ft32.h"
88c1242d	28	#include "disassemble.h"
3f8107ab AM	29
	30	extern const ft32_opc_info_t ft32_opc_info[128];
	31
	32	static fprintf_ftype fpr;
	33	static void *stream;
	34
59e8523b JB	35	static int
	36	sign_extend(int bit, int value)
	37	{
	38	int onebit = (1 << bit);
	39	return (value & (onebit - 1)) - (value & onebit);
	40	}
	41
3b4b0a62 JB	42	static void
	43	ft32_opcode(bfd_vma addr ATTRIBUTE_UNUSED,
	44	unsigned int iword,
	45	struct disassemble_info *info)
3f8107ab	46	{
3f8107ab AM	47	const ft32_opc_info_t *oo;
3f8107ab AM	48
3f8107ab AM	49	for (oo = ft32_opc_info; oo->name; oo++)
	50	if ((iword & oo->mask) == oo->bits)
	51	break;
	52
3b4b0a62 JB	53	unsigned int sc[2];
	54	if (ft32_decode_shortcode((unsigned int)addr, iword, sc))
	55	{
	56	ft32_opcode(addr, sc[0], info);
	57	fpr (stream, " ; ");
	58	ft32_opcode(addr, sc[1], info);
	59	}
	60
3f8107ab AM	61	if (oo->name)
	62	{
	63	int f = oo->fields;
	64	int imm;
	65
3b4b0a62	66	fpr (stream, "%s", oo->name);
3f8107ab AM	67	if (oo->dw)
	68	{
	69	fpr (stream, ".%c ", "bsl"[(iword >> FT32_FLD_DW_BIT) & 3]);
	70	}
	71	else
	72	{
	73	fpr (stream, " ");
	74	}
	75
	76	while (f)
	77	{
	78	int lobit = f & -f;
	79	if (f & lobit)
	80	{
	81	switch (lobit)
	82	{
	83	case FT32_FLD_CBCRCV:
	84	// imm is {CB, CV}
	85	imm = ((iword >> FT32_FLD_CB_BIT) & ((1 << FT32_FLD_CB_SIZ) - 1)) << 4;
	86	imm \|= ((iword >> FT32_FLD_CV_BIT) & ((1 << FT32_FLD_CV_SIZ) - 1));
	87	switch (imm)
	88	{
	89	case 0x00: fpr(stream, "nz"); break;
	90	case 0x01: fpr(stream, "z"); break;
	91	case 0x10: fpr(stream, "ae"); break;
	92	case 0x11: fpr(stream, "b"); break;
	93	case 0x20: fpr(stream, "no"); break;
	94	case 0x21: fpr(stream, "o"); break;
	95	case 0x30: fpr(stream, "ns"); break;
	96	case 0x31: fpr(stream, "s"); break;
	97	case 0x40: fpr(stream, "lt"); break;
	98	case 0x41: fpr(stream, "gte"); break;
	99	case 0x50: fpr(stream, "lte"); break;
	100	case 0x51: fpr(stream, "gt"); break;
	101	case 0x60: fpr(stream, "be"); break;
	102	case 0x61: fpr(stream, "a"); break;
	103	default: fpr(stream, "%d,$r30,%d", (imm >> 4), (imm & 1)); break;
	104	}
	105	break;
	106	case FT32_FLD_CB:
	107	imm = (iword >> FT32_FLD_CB_BIT) & ((1 << FT32_FLD_CB_SIZ) - 1);
	108	fpr(stream, "%d", imm);
	109	break;
	110	case FT32_FLD_R_D:
	111	fpr(stream, "$r%d", (iword >> FT32_FLD_R_D_BIT) & 0x1f);
	112	break;
	113	case FT32_FLD_CR:
	114	imm = (iword >> FT32_FLD_CR_BIT) & ((1 << FT32_FLD_CR_SIZ) - 1);
	115	fpr(stream, "$r%d", 28 + imm);
	116	break;
	117	case FT32_FLD_CV:
	118	imm = (iword >> FT32_FLD_CV_BIT) & ((1 << FT32_FLD_CV_SIZ) - 1);
	119	fpr(stream, "%d", imm);
	120	break;
	121	case FT32_FLD_R_1:
	122	fpr(stream, "$r%d", (iword >> FT32_FLD_R_1_BIT) & 0x1f);
	123	break;
	124	case FT32_FLD_RIMM:
	125	imm = (iword >> FT32_FLD_RIMM_BIT) & ((1 << FT32_FLD_RIMM_SIZ) - 1);
	126	if (imm & 0x400)
59e8523b	127	fpr(stream, "%d", sign_extend(9, imm));
3f8107ab AM	128	else
	129	fpr(stream, "$r%d", imm & 0x1f);
	130	break;
	131	case FT32_FLD_R_2:
	132	fpr(stream, "$r%d", (iword >> FT32_FLD_R_2_BIT) & 0x1f);
	133	break;
	134	case FT32_FLD_K20:
	135	imm = iword & ((1 << FT32_FLD_K20_SIZ) - 1);
59e8523b	136	fpr(stream, "%d", sign_extend(19, imm));
3f8107ab AM	137	break;
	138	case FT32_FLD_PA:
	139	imm = (iword & ((1 << FT32_FLD_PA_SIZ) - 1)) << 2;
	140	info->print_address_func ((bfd_vma) imm, info);
	141	break;
	142	case FT32_FLD_AA:
	143	imm = iword & ((1 << FT32_FLD_AA_SIZ) - 1);
59e8523b	144	info->print_address_func ((1 << 23) \| (bfd_vma) imm, info);
3f8107ab AM	145	break;
	146	case FT32_FLD_K16:
	147	imm = iword & ((1 << FT32_FLD_K16_SIZ) - 1);
59e8523b	148	fpr(stream, "%d", imm);
3f8107ab	149	break;
3b4b0a62 JB	150	case FT32_FLD_K15:
	151	imm = iword & ((1 << FT32_FLD_K15_SIZ) - 1);
	152	fpr(stream, "%d", sign_extend(14, imm));
3f8107ab AM	153	break;
	154	case FT32_FLD_R_D_POST:
	155	fpr(stream, "$r%d", (iword >> FT32_FLD_R_D_BIT) & 0x1f);
	156	break;
	157	case FT32_FLD_R_1_POST:
	158	fpr(stream, "$r%d", (iword >> FT32_FLD_R_1_BIT) & 0x1f);
	159	break;
	160	default:
	161	break;
	162	}
	163	f &= ~lobit;
	164	if (f)
	165	{
	166	fpr(stream, ",");
	167	}
	168	}
	169	}
	170	}
	171	else
	172	{
3b4b0a62	173	fpr (stream, "!");
3f8107ab	174	}
3b4b0a62 JB	175	}
	176
	177	int
	178	print_insn_ft32 (bfd_vma addr, struct disassemble_info *info)
	179	{
	180	int status;
	181	stream = info->stream;
	182	bfd_byte buffer[4];
	183	unsigned int iword;
	184
	185	fpr = info->fprintf_func;
	186
	187	if ((status = info->read_memory_func (addr, buffer, 4, info)))
	188	goto fail;
	189
	190	iword = bfd_getl32 (buffer);
	191
	192	fpr (stream, "%08x ", iword);
	193
	194	ft32_opcode(addr, iword, info);
3f8107ab AM	195
	196	return 4;
	197
	198	fail:
	199	info->memory_error_func (status, addr, info);
	200	return -1;
	201	}