[thirdparty/binutils-gdb.git] / opcodes / iq2000-dis.c

/* Disassembler interface for targets using CGEN. -*- C -*-
   CGEN: Cpu tools GENerator

   THIS FILE IS MACHINE GENERATED WITH CGEN.
   - the resultant file is machine generated, cgen-dis.in isn't

   Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2005
   Free Software Foundation, Inc.

   This file is part of the GNU Binutils and GDB, the GNU debugger.

   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 2, 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.  */

/* ??? Eventually more and more of this stuff can go to cpu-independent files.
   Keep that in mind.  */

#include "sysdep.h"
#include <stdio.h>
#include "ansidecl.h"
#include "dis-asm.h"
#include "bfd.h"
#include "symcat.h"
#include "libiberty.h"
#include "iq2000-desc.h"
#include "iq2000-opc.h"
#include "opintl.h"

/* Default text to print if an instruction isn't recognized.  */
#define UNKNOWN_INSN_MSG _("*unknown*")

static void print_normal
  (CGEN_CPU_DESC, void *, long, unsigned int, bfd_vma, int);
static void print_address
  (CGEN_CPU_DESC, void *, bfd_vma, unsigned int, bfd_vma, int) ATTRIBUTE_UNUSED;
static void print_keyword
  (CGEN_CPU_DESC, void *, CGEN_KEYWORD *, long, unsigned int) ATTRIBUTE_UNUSED;
static void print_insn_normal
  (CGEN_CPU_DESC, void *, const CGEN_INSN *, CGEN_FIELDS *, bfd_vma, int);
static int print_insn
  (CGEN_CPU_DESC, bfd_vma,  disassemble_info *, bfd_byte *, unsigned);
static int default_print_insn
  (CGEN_CPU_DESC, bfd_vma, disassemble_info *) ATTRIBUTE_UNUSED;
static int read_insn
  (CGEN_CPU_DESC, bfd_vma, disassemble_info *, bfd_byte *, int, CGEN_EXTRACT_INFO *,
   unsigned long *);
\f
/* -- disassembler routines inserted here.  */


void iq2000_cgen_print_operand
  (CGEN_CPU_DESC, int, PTR, CGEN_FIELDS *, void const *, bfd_vma, int);

/* Main entry point for printing operands.
   XINFO is a `void *' and not a `disassemble_info *' to not put a requirement
   of dis-asm.h on cgen.h.

   This function is basically just a big switch statement.  Earlier versions
   used tables to look up the function to use, but
   - if the table contains both assembler and disassembler functions then
     the disassembler contains much of the assembler and vice-versa,
   - there's a lot of inlining possibilities as things grow,
   - using a switch statement avoids the function call overhead.

   This function could be moved into `print_insn_normal', but keeping it
   separate makes clear the interface between `print_insn_normal' and each of
   the handlers.  */

void
iq2000_cgen_print_operand (CGEN_CPU_DESC cd,
			   int opindex,
			   void * xinfo,
			   CGEN_FIELDS *fields,
			   void const *attrs ATTRIBUTE_UNUSED,
			   bfd_vma pc,
			   int length)
{
  disassemble_info *info = (disassemble_info *) xinfo;

  switch (opindex)
    {
    case IQ2000_OPERAND__INDEX :
      print_normal (cd, info, fields->f_index, 0, pc, length);
      break;
    case IQ2000_OPERAND_BASE :
      print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rs, 0);
      break;
    case IQ2000_OPERAND_BASEOFF :
      print_address (cd, info, fields->f_imm, 0, pc, length);
      break;
    case IQ2000_OPERAND_BITNUM :
      print_normal (cd, info, fields->f_rt, 0, pc, length);
      break;
    case IQ2000_OPERAND_BYTECOUNT :
      print_normal (cd, info, fields->f_bytecount, 0, pc, length);
      break;
    case IQ2000_OPERAND_CAM_Y :
      print_normal (cd, info, fields->f_cam_y, 0, pc, length);
      break;
    case IQ2000_OPERAND_CAM_Z :
      print_normal (cd, info, fields->f_cam_z, 0, pc, length);
      break;
    case IQ2000_OPERAND_CM_3FUNC :
      print_normal (cd, info, fields->f_cm_3func, 0, pc, length);
      break;
    case IQ2000_OPERAND_CM_3Z :
      print_normal (cd, info, fields->f_cm_3z, 0, pc, length);
      break;
    case IQ2000_OPERAND_CM_4FUNC :
      print_normal (cd, info, fields->f_cm_4func, 0, pc, length);
      break;
    case IQ2000_OPERAND_CM_4Z :
      print_normal (cd, info, fields->f_cm_4z, 0, pc, length);
      break;
    case IQ2000_OPERAND_COUNT :
      print_normal (cd, info, fields->f_count, 0, pc, length);
      break;
    case IQ2000_OPERAND_EXECODE :
      print_normal (cd, info, fields->f_excode, 0, pc, length);
      break;
    case IQ2000_OPERAND_HI16 :
      print_normal (cd, info, fields->f_imm, 0, pc, length);
      break;
    case IQ2000_OPERAND_IMM :
      print_normal (cd, info, fields->f_imm, 0, pc, length);
      break;
    case IQ2000_OPERAND_JMPTARG :
      print_address (cd, info, fields->f_jtarg, 0|(1<<CGEN_OPERAND_ABS_ADDR), pc, length);
      break;
    case IQ2000_OPERAND_JMPTARGQ10 :
      print_address (cd, info, fields->f_jtargq10, 0|(1<<CGEN_OPERAND_ABS_ADDR), pc, length);
      break;
    case IQ2000_OPERAND_LO16 :
      print_normal (cd, info, fields->f_imm, 0, pc, length);
      break;
    case IQ2000_OPERAND_MASK :
      print_normal (cd, info, fields->f_mask, 0, pc, length);
      break;
    case IQ2000_OPERAND_MASKL :
      print_normal (cd, info, fields->f_maskl, 0, pc, length);
      break;
    case IQ2000_OPERAND_MASKQ10 :
      print_normal (cd, info, fields->f_maskq10, 0, pc, length);
      break;
    case IQ2000_OPERAND_MASKR :
      print_normal (cd, info, fields->f_rs, 0, pc, length);
      break;
    case IQ2000_OPERAND_MLO16 :
      print_normal (cd, info, fields->f_imm, 0, pc, length);
      break;
    case IQ2000_OPERAND_OFFSET :
      print_address (cd, info, fields->f_offset, 0|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
      break;
    case IQ2000_OPERAND_RD :
      print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rd, 0);
      break;
    case IQ2000_OPERAND_RD_RS :
      print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rd_rs, 0|(1<<CGEN_OPERAND_VIRTUAL));
      break;
    case IQ2000_OPERAND_RD_RT :
      print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rd_rt, 0|(1<<CGEN_OPERAND_VIRTUAL));
      break;
    case IQ2000_OPERAND_RS :
      print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rs, 0);
      break;
    case IQ2000_OPERAND_RT :
      print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rt, 0);
      break;
    case IQ2000_OPERAND_RT_RS :
      print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rt_rs, 0|(1<<CGEN_OPERAND_VIRTUAL));
      break;
    case IQ2000_OPERAND_SHAMT :
      print_normal (cd, info, fields->f_shamt, 0, pc, length);
      break;

    default :
      /* xgettext:c-format */
      fprintf (stderr, _("Unrecognized field %d while printing insn.\n"),
	       opindex);
    abort ();
  }
}

cgen_print_fn * const iq2000_cgen_print_handlers[] = 
{
  print_insn_normal,
};


void
iq2000_cgen_init_dis (CGEN_CPU_DESC cd)
{
  iq2000_cgen_init_opcode_table (cd);
  iq2000_cgen_init_ibld_table (cd);
  cd->print_handlers = & iq2000_cgen_print_handlers[0];
  cd->print_operand = iq2000_cgen_print_operand;
}

\f
/* Default print handler.  */

static void
print_normal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	      void *dis_info,
	      long value,
	      unsigned int attrs,
	      bfd_vma pc ATTRIBUTE_UNUSED,
	      int length ATTRIBUTE_UNUSED)
{
  disassemble_info *info = (disassemble_info *) dis_info;

#ifdef CGEN_PRINT_NORMAL
  CGEN_PRINT_NORMAL (cd, info, value, attrs, pc, length);
#endif

  /* Print the operand as directed by the attributes.  */
  if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
    ; /* nothing to do */
  else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
    (*info->fprintf_func) (info->stream, "%ld", value);
  else
    (*info->fprintf_func) (info->stream, "0x%lx", value);
}

/* Default address handler.  */

static void
print_address (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	       void *dis_info,
	       bfd_vma value,
	       unsigned int attrs,
	       bfd_vma pc ATTRIBUTE_UNUSED,
	       int length ATTRIBUTE_UNUSED)
{
  disassemble_info *info = (disassemble_info *) dis_info;

#ifdef CGEN_PRINT_ADDRESS
  CGEN_PRINT_ADDRESS (cd, info, value, attrs, pc, length);
#endif

  /* Print the operand as directed by the attributes.  */
  if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
    ; /* Nothing to do.  */
  else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_PCREL_ADDR))
    (*info->print_address_func) (value, info);
  else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_ABS_ADDR))
    (*info->print_address_func) (value, info);
  else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
    (*info->fprintf_func) (info->stream, "%ld", (long) value);
  else
    (*info->fprintf_func) (info->stream, "0x%lx", (long) value);
}

/* Keyword print handler.  */

static void
print_keyword (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	       void *dis_info,
	       CGEN_KEYWORD *keyword_table,
	       long value,
	       unsigned int attrs ATTRIBUTE_UNUSED)
{
  disassemble_info *info = (disassemble_info *) dis_info;
  const CGEN_KEYWORD_ENTRY *ke;

  ke = cgen_keyword_lookup_value (keyword_table, value);
  if (ke != NULL)
    (*info->fprintf_func) (info->stream, "%s", ke->name);
  else
    (*info->fprintf_func) (info->stream, "???");
}
\f
/* Default insn printer.

   DIS_INFO is defined as `void *' so the disassembler needn't know anything
   about disassemble_info.  */

static void
print_insn_normal (CGEN_CPU_DESC cd,
		   void *dis_info,
		   const CGEN_INSN *insn,
		   CGEN_FIELDS *fields,
		   bfd_vma pc,
		   int length)
{
  const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
  disassemble_info *info = (disassemble_info *) dis_info;
  const CGEN_SYNTAX_CHAR_TYPE *syn;

  CGEN_INIT_PRINT (cd);

  for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn)
    {
      if (CGEN_SYNTAX_MNEMONIC_P (*syn))
	{
	  (*info->fprintf_func) (info->stream, "%s", CGEN_INSN_MNEMONIC (insn));
	  continue;
	}
      if (CGEN_SYNTAX_CHAR_P (*syn))
	{
	  (*info->fprintf_func) (info->stream, "%c", CGEN_SYNTAX_CHAR (*syn));
	  continue;
	}

      /* We have an operand.  */
      iq2000_cgen_print_operand (cd, CGEN_SYNTAX_FIELD (*syn), info,
				 fields, CGEN_INSN_ATTRS (insn), pc, length);
    }
}
\f
/* Subroutine of print_insn. Reads an insn into the given buffers and updates
   the extract info.
   Returns 0 if all is well, non-zero otherwise.  */

static int
read_insn (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	   bfd_vma pc,
	   disassemble_info *info,
	   bfd_byte *buf,
	   int buflen,
	   CGEN_EXTRACT_INFO *ex_info,
	   unsigned long *insn_value)
{
  int status = (*info->read_memory_func) (pc, buf, buflen, info);

  if (status != 0)
    {
      (*info->memory_error_func) (status, pc, info);
      return -1;
    }

  ex_info->dis_info = info;
  ex_info->valid = (1 << buflen) - 1;
  ex_info->insn_bytes = buf;

  *insn_value = bfd_get_bits (buf, buflen * 8, info->endian == BFD_ENDIAN_BIG);
  return 0;
}

/* Utility to print an insn.
   BUF is the base part of the insn, target byte order, BUFLEN bytes long.
   The result is the size of the insn in bytes or zero for an unknown insn
   or -1 if an error occurs fetching data (memory_error_func will have
   been called).  */

static int
print_insn (CGEN_CPU_DESC cd,
	    bfd_vma pc,
	    disassemble_info *info,
	    bfd_byte *buf,
	    unsigned int buflen)
{
  CGEN_INSN_INT insn_value;
  const CGEN_INSN_LIST *insn_list;
  CGEN_EXTRACT_INFO ex_info;
  int basesize;

  /* Extract base part of instruction, just in case CGEN_DIS_* uses it. */
  basesize = cd->base_insn_bitsize < buflen * 8 ?
                                     cd->base_insn_bitsize : buflen * 8;
  insn_value = cgen_get_insn_value (cd, buf, basesize);


  /* Fill in ex_info fields like read_insn would.  Don't actually call
     read_insn, since the incoming buffer is already read (and possibly
     modified a la m32r).  */
  ex_info.valid = (1 << buflen) - 1;
  ex_info.dis_info = info;
  ex_info.insn_bytes = buf;

  /* The instructions are stored in hash lists.
     Pick the first one and keep trying until we find the right one.  */

  insn_list = CGEN_DIS_LOOKUP_INSN (cd, (char *) buf, insn_value);
  while (insn_list != NULL)
    {
      const CGEN_INSN *insn = insn_list->insn;
      CGEN_FIELDS fields;
      int length;
      unsigned long insn_value_cropped;

#ifdef CGEN_VALIDATE_INSN_SUPPORTED 
      /* Not needed as insn shouldn't be in hash lists if not supported.  */
      /* Supported by this cpu?  */
      if (! iq2000_cgen_insn_supported (cd, insn))
        {
          insn_list = CGEN_DIS_NEXT_INSN (insn_list);
	  continue;
        }
#endif

      /* Basic bit mask must be correct.  */
      /* ??? May wish to allow target to defer this check until the extract
	 handler.  */

      /* Base size may exceed this instruction's size.  Extract the
         relevant part from the buffer. */
      if ((unsigned) (CGEN_INSN_BITSIZE (insn) / 8) < buflen &&
	  (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
	insn_value_cropped = bfd_get_bits (buf, CGEN_INSN_BITSIZE (insn), 
					   info->endian == BFD_ENDIAN_BIG);
      else
	insn_value_cropped = insn_value;

      if ((insn_value_cropped & CGEN_INSN_BASE_MASK (insn))
	  == CGEN_INSN_BASE_VALUE (insn))
	{
	  /* Printing is handled in two passes.  The first pass parses the
	     machine insn and extracts the fields.  The second pass prints
	     them.  */

	  /* Make sure the entire insn is loaded into insn_value, if it
	     can fit.  */
	  if (((unsigned) CGEN_INSN_BITSIZE (insn) > cd->base_insn_bitsize) &&
	      (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
	    {
	      unsigned long full_insn_value;
	      int rc = read_insn (cd, pc, info, buf,
				  CGEN_INSN_BITSIZE (insn) / 8,
				  & ex_info, & full_insn_value);
	      if (rc != 0)
		return rc;
	      length = CGEN_EXTRACT_FN (cd, insn)
		(cd, insn, &ex_info, full_insn_value, &fields, pc);
	    }
	  else
	    length = CGEN_EXTRACT_FN (cd, insn)
	      (cd, insn, &ex_info, insn_value_cropped, &fields, pc);

	  /* Length < 0 -> error.  */
	  if (length < 0)
	    return length;
	  if (length > 0)
	    {
	      CGEN_PRINT_FN (cd, insn) (cd, info, insn, &fields, pc, length);
	      /* Length is in bits, result is in bytes.  */
	      return length / 8;
	    }
	}

      insn_list = CGEN_DIS_NEXT_INSN (insn_list);
    }

  return 0;
}

/* Default value for CGEN_PRINT_INSN.
   The result is the size of the insn in bytes or zero for an unknown insn
   or -1 if an error occured fetching bytes.  */

#ifndef CGEN_PRINT_INSN
#define CGEN_PRINT_INSN default_print_insn
#endif

static int
default_print_insn (CGEN_CPU_DESC cd, bfd_vma pc, disassemble_info *info)
{
  bfd_byte buf[CGEN_MAX_INSN_SIZE];
  int buflen;
  int status;

  /* Attempt to read the base part of the insn.  */
  buflen = cd->base_insn_bitsize / 8;
  status = (*info->read_memory_func) (pc, buf, buflen, info);

  /* Try again with the minimum part, if min < base.  */
  if (status != 0 && (cd->min_insn_bitsize < cd->base_insn_bitsize))
    {
      buflen = cd->min_insn_bitsize / 8;
      status = (*info->read_memory_func) (pc, buf, buflen, info);
    }

  if (status != 0)
    {
      (*info->memory_error_func) (status, pc, info);
      return -1;
    }

  return print_insn (cd, pc, info, buf, buflen);
}

/* Main entry point.
   Print one instruction from PC on INFO->STREAM.
   Return the size of the instruction (in bytes).  */

typedef struct cpu_desc_list
{
  struct cpu_desc_list *next;
  int isa;
  int mach;
  int endian;
  CGEN_CPU_DESC cd;
} cpu_desc_list;

int
print_insn_iq2000 (bfd_vma pc, disassemble_info *info)
{
  static cpu_desc_list *cd_list = 0;
  cpu_desc_list *cl = 0;
  static CGEN_CPU_DESC cd = 0;
  static int prev_isa;
  static int prev_mach;
  static int prev_endian;
  int length;
  int isa,mach;
  int endian = (info->endian == BFD_ENDIAN_BIG
		? CGEN_ENDIAN_BIG
		: CGEN_ENDIAN_LITTLE);
  enum bfd_architecture arch;

  /* ??? gdb will set mach but leave the architecture as "unknown" */
#ifndef CGEN_BFD_ARCH
#define CGEN_BFD_ARCH bfd_arch_iq2000
#endif
  arch = info->arch;
  if (arch == bfd_arch_unknown)
    arch = CGEN_BFD_ARCH;
   
  /* There's no standard way to compute the machine or isa number
     so we leave it to the target.  */
#ifdef CGEN_COMPUTE_MACH
  mach = CGEN_COMPUTE_MACH (info);
#else
  mach = info->mach;
#endif

#ifdef CGEN_COMPUTE_ISA
  isa = CGEN_COMPUTE_ISA (info);
#else
  isa = info->insn_sets;
#endif

  /* If we've switched cpu's, try to find a handle we've used before */
  if (cd
      && (isa != prev_isa
	  || mach != prev_mach
	  || endian != prev_endian))
    {
      cd = 0;
      for (cl = cd_list; cl; cl = cl->next)
	{
	  if (cl->isa == isa &&
	      cl->mach == mach &&
	      cl->endian == endian)
	    {
	      cd = cl->cd;
	      break;
	    }
	}
    } 

  /* If we haven't initialized yet, initialize the opcode table.  */
  if (! cd)
    {
      const bfd_arch_info_type *arch_type = bfd_lookup_arch (arch, mach);
      const char *mach_name;

      if (!arch_type)
	abort ();
      mach_name = arch_type->printable_name;

      prev_isa = isa;
      prev_mach = mach;
      prev_endian = endian;
      cd = iq2000_cgen_cpu_open (CGEN_CPU_OPEN_ISAS, prev_isa,
				 CGEN_CPU_OPEN_BFDMACH, mach_name,
				 CGEN_CPU_OPEN_ENDIAN, prev_endian,
				 CGEN_CPU_OPEN_END);
      if (!cd)
	abort ();

      /* Save this away for future reference.  */
      cl = xmalloc (sizeof (struct cpu_desc_list));
      cl->cd = cd;
      cl->isa = isa;
      cl->mach = mach;
      cl->endian = endian;
      cl->next = cd_list;
      cd_list = cl;

      iq2000_cgen_init_dis (cd);
    }

  /* We try to have as much common code as possible.
     But at this point some targets need to take over.  */
  /* ??? Some targets may need a hook elsewhere.  Try to avoid this,
     but if not possible try to move this hook elsewhere rather than
     have two hooks.  */
  length = CGEN_PRINT_INSN (cd, pc, info);
  if (length > 0)
    return length;
  if (length < 0)
    return -1;

  (*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG);
  return cd->default_insn_bitsize / 8;
}
Commit	Line	Data
47b1a55a SC	1	/* Disassembler interface for targets using CGEN. -- C --
	2	CGEN: Cpu tools GENerator
	3
47b0e7ad NC	4	THIS FILE IS MACHINE GENERATED WITH CGEN.
47b0e7ad NC	5	- the resultant file is machine generated, cgen-dis.in isn't
47b1a55a	6
47b0e7ad NC	7	Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2005
47b0e7ad NC	8	Free Software Foundation, Inc.
47b1a55a	9
47b0e7ad	10	This file is part of the GNU Binutils and GDB, the GNU debugger.
47b1a55a	11
47b0e7ad NC	12	This program is free software; you can redistribute it and/or modify
	13	it under the terms of the GNU General Public License as published by
	14	the Free Software Foundation; either version 2, or (at your option)
	15	any later version.
47b1a55a	16
47b0e7ad NC	17	This program is distributed in the hope that it will be useful,
	18	but WITHOUT ANY WARRANTY; without even the implied warranty of
	19	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	20	GNU General Public License for more details.
47b1a55a	21
47b0e7ad NC	22	You should have received a copy of the GNU General Public License
	23	along with this program; if not, write to the Free Software Foundation, Inc.,
	24	51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
47b1a55a SC	25
	26	/* ??? Eventually more and more of this stuff can go to cpu-independent files.
	27	Keep that in mind. */
	28
	29	#include "sysdep.h"
	30	#include <stdio.h>
	31	#include "ansidecl.h"
	32	#include "dis-asm.h"
	33	#include "bfd.h"
	34	#include "symcat.h"
75798298	35	#include "libiberty.h"
47b1a55a SC	36	#include "iq2000-desc.h"
	37	#include "iq2000-opc.h"
	38	#include "opintl.h"
	39
	40	/* Default text to print if an instruction isn't recognized. */
	41	#define UNKNOWN_INSN_MSG _("unknown")
	42
	43	static void print_normal
ffead7ae	44	(CGEN_CPU_DESC, void *, long, unsigned int, bfd_vma, int);
47b1a55a	45	static void print_address
bf143b25	46	(CGEN_CPU_DESC, void *, bfd_vma, unsigned int, bfd_vma, int) ATTRIBUTE_UNUSED;
47b1a55a	47	static void print_keyword
bf143b25	48	(CGEN_CPU_DESC, void , CGEN_KEYWORD , long, unsigned int) ATTRIBUTE_UNUSED;
47b1a55a	49	static void print_insn_normal
ffead7ae	50	(CGEN_CPU_DESC, void , const CGEN_INSN , CGEN_FIELDS *, bfd_vma, int);
47b1a55a	51	static int print_insn
33b71eeb	52	(CGEN_CPU_DESC, bfd_vma, disassemble_info , bfd_byte , unsigned);
47b1a55a	53	static int default_print_insn
bf143b25	54	(CGEN_CPU_DESC, bfd_vma, disassemble_info *) ATTRIBUTE_UNUSED;
47b1a55a	55	static int read_insn
33b71eeb	56	(CGEN_CPU_DESC, bfd_vma, disassemble_info , bfd_byte , int, CGEN_EXTRACT_INFO *,
ffead7ae	57	unsigned long *);
47b1a55a	58	\f
47b0e7ad	59	/* -- disassembler routines inserted here. */
47b1a55a SC	60
	61
	62	void iq2000_cgen_print_operand
47b0e7ad	63	(CGEN_CPU_DESC, int, PTR, CGEN_FIELDS , void const , bfd_vma, int);
47b1a55a SC	64
	65	/* Main entry point for printing operands.
	66	XINFO is a `void ' and not a `disassemble_info ' to not put a requirement
	67	of dis-asm.h on cgen.h.
	68
	69	This function is basically just a big switch statement. Earlier versions
	70	used tables to look up the function to use, but
	71	- if the table contains both assembler and disassembler functions then
	72	the disassembler contains much of the assembler and vice-versa,
	73	- there's a lot of inlining possibilities as things grow,
	74	- using a switch statement avoids the function call overhead.
	75
	76	This function could be moved into `print_insn_normal', but keeping it
	77	separate makes clear the interface between `print_insn_normal' and each of
	78	the handlers. */
	79
	80	void
47b0e7ad NC	81	iq2000_cgen_print_operand (CGEN_CPU_DESC cd,
	82	int opindex,
	83	void * xinfo,
	84	CGEN_FIELDS *fields,
	85	void const *attrs ATTRIBUTE_UNUSED,
	86	bfd_vma pc,
	87	int length)
47b1a55a	88	{
47b0e7ad	89	disassemble_info info = (disassemble_info ) xinfo;
47b1a55a SC	90
	91	switch (opindex)
	92	{
4030fa5a NC	93	case IQ2000_OPERAND__INDEX :
	94	print_normal (cd, info, fields->f_index, 0, pc, length);
	95	break;
47b1a55a SC	96	case IQ2000_OPERAND_BASE :
	97	print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rs, 0);
	98	break;
	99	case IQ2000_OPERAND_BASEOFF :
	100	print_address (cd, info, fields->f_imm, 0, pc, length);
	101	break;
	102	case IQ2000_OPERAND_BITNUM :
	103	print_normal (cd, info, fields->f_rt, 0, pc, length);
	104	break;
	105	case IQ2000_OPERAND_BYTECOUNT :
	106	print_normal (cd, info, fields->f_bytecount, 0, pc, length);
	107	break;
	108	case IQ2000_OPERAND_CAM_Y :
	109	print_normal (cd, info, fields->f_cam_y, 0, pc, length);
	110	break;
	111	case IQ2000_OPERAND_CAM_Z :
	112	print_normal (cd, info, fields->f_cam_z, 0, pc, length);
	113	break;
	114	case IQ2000_OPERAND_CM_3FUNC :
	115	print_normal (cd, info, fields->f_cm_3func, 0, pc, length);
	116	break;
	117	case IQ2000_OPERAND_CM_3Z :
	118	print_normal (cd, info, fields->f_cm_3z, 0, pc, length);
	119	break;
	120	case IQ2000_OPERAND_CM_4FUNC :
	121	print_normal (cd, info, fields->f_cm_4func, 0, pc, length);
	122	break;
	123	case IQ2000_OPERAND_CM_4Z :
	124	print_normal (cd, info, fields->f_cm_4z, 0, pc, length);
	125	break;
	126	case IQ2000_OPERAND_COUNT :
	127	print_normal (cd, info, fields->f_count, 0, pc, length);
	128	break;
	129	case IQ2000_OPERAND_EXECODE :
	130	print_normal (cd, info, fields->f_excode, 0, pc, length);
	131	break;
	132	case IQ2000_OPERAND_HI16 :
	133	print_normal (cd, info, fields->f_imm, 0, pc, length);
	134	break;
	135	case IQ2000_OPERAND_IMM :
	136	print_normal (cd, info, fields->f_imm, 0, pc, length);
	137	break;
47b1a55a SC	138	case IQ2000_OPERAND_JMPTARG :
	139	print_address (cd, info, fields->f_jtarg, 0\|(1<<CGEN_OPERAND_ABS_ADDR), pc, length);
	140	break;
	141	case IQ2000_OPERAND_JMPTARGQ10 :
	142	print_address (cd, info, fields->f_jtargq10, 0\|(1<<CGEN_OPERAND_ABS_ADDR), pc, length);
	143	break;
	144	case IQ2000_OPERAND_LO16 :
	145	print_normal (cd, info, fields->f_imm, 0, pc, length);
	146	break;
	147	case IQ2000_OPERAND_MASK :
	148	print_normal (cd, info, fields->f_mask, 0, pc, length);
	149	break;
	150	case IQ2000_OPERAND_MASKL :
	151	print_normal (cd, info, fields->f_maskl, 0, pc, length);
	152	break;
	153	case IQ2000_OPERAND_MASKQ10 :
	154	print_normal (cd, info, fields->f_maskq10, 0, pc, length);
	155	break;
	156	case IQ2000_OPERAND_MASKR :
	157	print_normal (cd, info, fields->f_rs, 0, pc, length);
	158	break;
	159	case IQ2000_OPERAND_MLO16 :
	160	print_normal (cd, info, fields->f_imm, 0, pc, length);
	161	break;
	162	case IQ2000_OPERAND_OFFSET :
	163	print_address (cd, info, fields->f_offset, 0\|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
	164	break;
	165	case IQ2000_OPERAND_RD :
	166	print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rd, 0);
	167	break;
	168	case IQ2000_OPERAND_RD_RS :
	169	print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rd_rs, 0\|(1<<CGEN_OPERAND_VIRTUAL));
	170	break;
	171	case IQ2000_OPERAND_RD_RT :
	172	print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rd_rt, 0\|(1<<CGEN_OPERAND_VIRTUAL));
	173	break;
	174	case IQ2000_OPERAND_RS :
	175	print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rs, 0);
	176	break;
	177	case IQ2000_OPERAND_RT :
	178	print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rt, 0);
	179	break;
	180	case IQ2000_OPERAND_RT_RS :
	181	print_keyword (cd, info, & iq2000_cgen_opval_gr_names, fields->f_rt_rs, 0\|(1<<CGEN_OPERAND_VIRTUAL));
	182	break;
	183	case IQ2000_OPERAND_SHAMT :
	184	print_normal (cd, info, fields->f_shamt, 0, pc, length);
	185	break;
	186
	187	default :
	188	/* xgettext:c-format */
	189	fprintf (stderr, _("Unrecognized field %d while printing insn.\n"),
	190	opindex);
	191	abort ();
	192	}
	193	}
	194
	195	cgen_print_fn * const iq2000_cgen_print_handlers[] =
	196	{
	197	print_insn_normal,
	198	};
	199
	200
	201	void
47b0e7ad	202	iq2000_cgen_init_dis (CGEN_CPU_DESC cd)
47b1a55a SC	203	{
	204	iq2000_cgen_init_opcode_table (cd);
	205	iq2000_cgen_init_ibld_table (cd);
	206	cd->print_handlers = & iq2000_cgen_print_handlers[0];
	207	cd->print_operand = iq2000_cgen_print_operand;
	208	}
	209
	210	\f
	211	/* Default print handler. */
	212
	213	static void
ffead7ae MM	214	print_normal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	215	void *dis_info,
	216	long value,
	217	unsigned int attrs,
	218	bfd_vma pc ATTRIBUTE_UNUSED,
	219	int length ATTRIBUTE_UNUSED)
47b1a55a SC	220	{
	221	disassemble_info info = (disassemble_info ) dis_info;
	222
	223	#ifdef CGEN_PRINT_NORMAL
	224	CGEN_PRINT_NORMAL (cd, info, value, attrs, pc, length);
	225	#endif
	226
	227	/* Print the operand as directed by the attributes. */
	228	if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
	229	; /* nothing to do */
	230	else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
	231	(*info->fprintf_func) (info->stream, "%ld", value);
	232	else
	233	(*info->fprintf_func) (info->stream, "0x%lx", value);
	234	}
	235
	236	/* Default address handler. */
	237
	238	static void
ffead7ae MM	239	print_address (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	240	void *dis_info,
	241	bfd_vma value,
	242	unsigned int attrs,
	243	bfd_vma pc ATTRIBUTE_UNUSED,
	244	int length ATTRIBUTE_UNUSED)
47b1a55a SC	245	{
	246	disassemble_info info = (disassemble_info ) dis_info;
	247
	248	#ifdef CGEN_PRINT_ADDRESS
	249	CGEN_PRINT_ADDRESS (cd, info, value, attrs, pc, length);
	250	#endif
	251
	252	/* Print the operand as directed by the attributes. */
	253	if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
47b0e7ad	254	; /* Nothing to do. */
47b1a55a SC	255	else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_PCREL_ADDR))
	256	(*info->print_address_func) (value, info);
	257	else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_ABS_ADDR))
	258	(*info->print_address_func) (value, info);
	259	else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
	260	(*info->fprintf_func) (info->stream, "%ld", (long) value);
	261	else
	262	(*info->fprintf_func) (info->stream, "0x%lx", (long) value);
	263	}
	264
	265	/* Keyword print handler. */
	266
	267	static void
ffead7ae MM	268	print_keyword (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	269	void *dis_info,
	270	CGEN_KEYWORD *keyword_table,
	271	long value,
	272	unsigned int attrs ATTRIBUTE_UNUSED)
47b1a55a SC	273	{
	274	disassemble_info info = (disassemble_info ) dis_info;
	275	const CGEN_KEYWORD_ENTRY *ke;
	276
	277	ke = cgen_keyword_lookup_value (keyword_table, value);
	278	if (ke != NULL)
	279	(*info->fprintf_func) (info->stream, "%s", ke->name);
	280	else
	281	(*info->fprintf_func) (info->stream, "???");
	282	}
	283	\f
	284	/* Default insn printer.
	285
ffead7ae	286	DIS_INFO is defined as `void *' so the disassembler needn't know anything
47b1a55a SC	287	about disassemble_info. */
	288
	289	static void
ffead7ae MM	290	print_insn_normal (CGEN_CPU_DESC cd,
	291	void *dis_info,
	292	const CGEN_INSN *insn,
	293	CGEN_FIELDS *fields,
	294	bfd_vma pc,
	295	int length)
47b1a55a SC	296	{
	297	const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
	298	disassemble_info info = (disassemble_info ) dis_info;
	299	const CGEN_SYNTAX_CHAR_TYPE *syn;
	300
	301	CGEN_INIT_PRINT (cd);
	302
	303	for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn)
	304	{
	305	if (CGEN_SYNTAX_MNEMONIC_P (*syn))
	306	{
	307	(*info->fprintf_func) (info->stream, "%s", CGEN_INSN_MNEMONIC (insn));
	308	continue;
	309	}
	310	if (CGEN_SYNTAX_CHAR_P (*syn))
	311	{
	312	(info->fprintf_func) (info->stream, "%c", CGEN_SYNTAX_CHAR (syn));
	313	continue;
	314	}
	315
	316	/* We have an operand. */
	317	iq2000_cgen_print_operand (cd, CGEN_SYNTAX_FIELD (*syn), info,
	318	fields, CGEN_INSN_ATTRS (insn), pc, length);
	319	}
	320	}
	321	\f
	322	/* Subroutine of print_insn. Reads an insn into the given buffers and updates
	323	the extract info.
	324	Returns 0 if all is well, non-zero otherwise. */
	325
	326	static int
ffead7ae MM	327	read_insn (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	328	bfd_vma pc,
	329	disassemble_info *info,
33b71eeb	330	bfd_byte *buf,
ffead7ae MM	331	int buflen,
	332	CGEN_EXTRACT_INFO *ex_info,
	333	unsigned long *insn_value)
47b1a55a SC	334	{
47b1a55a SC	335	int status = (*info->read_memory_func) (pc, buf, buflen, info);
47b0e7ad	336
47b1a55a SC	337	if (status != 0)
	338	{
	339	(*info->memory_error_func) (status, pc, info);
	340	return -1;
	341	}
	342
	343	ex_info->dis_info = info;
	344	ex_info->valid = (1 << buflen) - 1;
	345	ex_info->insn_bytes = buf;
	346
	347	insn_value = bfd_get_bits (buf, buflen 8, info->endian == BFD_ENDIAN_BIG);
	348	return 0;
	349	}
	350
	351	/* Utility to print an insn.
	352	BUF is the base part of the insn, target byte order, BUFLEN bytes long.
	353	The result is the size of the insn in bytes or zero for an unknown insn
	354	or -1 if an error occurs fetching data (memory_error_func will have
	355	been called). */
	356
	357	static int
ffead7ae MM	358	print_insn (CGEN_CPU_DESC cd,
	359	bfd_vma pc,
	360	disassemble_info *info,
33b71eeb	361	bfd_byte *buf,
ffead7ae	362	unsigned int buflen)
47b1a55a SC	363	{
	364	CGEN_INSN_INT insn_value;
	365	const CGEN_INSN_LIST *insn_list;
	366	CGEN_EXTRACT_INFO ex_info;
	367	int basesize;
	368
	369	/* Extract base part of instruction, just in case CGEN_DIS_* uses it. */
	370	basesize = cd->base_insn_bitsize < buflen * 8 ?
	371	cd->base_insn_bitsize : buflen * 8;
	372	insn_value = cgen_get_insn_value (cd, buf, basesize);
	373
	374
	375	/* Fill in ex_info fields like read_insn would. Don't actually call
	376	read_insn, since the incoming buffer is already read (and possibly
	377	modified a la m32r). */
	378	ex_info.valid = (1 << buflen) - 1;
	379	ex_info.dis_info = info;
	380	ex_info.insn_bytes = buf;
	381
	382	/* The instructions are stored in hash lists.
	383	Pick the first one and keep trying until we find the right one. */
	384
33b71eeb	385	insn_list = CGEN_DIS_LOOKUP_INSN (cd, (char *) buf, insn_value);
47b1a55a SC	386	while (insn_list != NULL)
	387	{
	388	const CGEN_INSN *insn = insn_list->insn;
	389	CGEN_FIELDS fields;
	390	int length;
	391	unsigned long insn_value_cropped;
	392
	393	#ifdef CGEN_VALIDATE_INSN_SUPPORTED
	394	/* Not needed as insn shouldn't be in hash lists if not supported. */
	395	/* Supported by this cpu? */
	396	if (! iq2000_cgen_insn_supported (cd, insn))
	397	{
	398	insn_list = CGEN_DIS_NEXT_INSN (insn_list);
	399	continue;
	400	}
	401	#endif
	402
	403	/* Basic bit mask must be correct. */
	404	/* ??? May wish to allow target to defer this check until the extract
	405	handler. */
	406
	407	/* Base size may exceed this instruction's size. Extract the
	408	relevant part from the buffer. */
	409	if ((unsigned) (CGEN_INSN_BITSIZE (insn) / 8) < buflen &&
	410	(unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
	411	insn_value_cropped = bfd_get_bits (buf, CGEN_INSN_BITSIZE (insn),
	412	info->endian == BFD_ENDIAN_BIG);
	413	else
	414	insn_value_cropped = insn_value;
	415
	416	if ((insn_value_cropped & CGEN_INSN_BASE_MASK (insn))
	417	== CGEN_INSN_BASE_VALUE (insn))
	418	{
	419	/* Printing is handled in two passes. The first pass parses the
	420	machine insn and extracts the fields. The second pass prints
	421	them. */
	422
	423	/* Make sure the entire insn is loaded into insn_value, if it
	424	can fit. */
	425	if (((unsigned) CGEN_INSN_BITSIZE (insn) > cd->base_insn_bitsize) &&
	426	(unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
	427	{
	428	unsigned long full_insn_value;
	429	int rc = read_insn (cd, pc, info, buf,
	430	CGEN_INSN_BITSIZE (insn) / 8,
	431	& ex_info, & full_insn_value);
	432	if (rc != 0)
	433	return rc;
	434	length = CGEN_EXTRACT_FN (cd, insn)
	435	(cd, insn, &ex_info, full_insn_value, &fields, pc);
	436	}
	437	else
	438	length = CGEN_EXTRACT_FN (cd, insn)
	439	(cd, insn, &ex_info, insn_value_cropped, &fields, pc);
	440
47b0e7ad	441	/* Length < 0 -> error. */
47b1a55a SC	442	if (length < 0)
	443	return length;
	444	if (length > 0)
	445	{
	446	CGEN_PRINT_FN (cd, insn) (cd, info, insn, &fields, pc, length);
47b0e7ad	447	/* Length is in bits, result is in bytes. */
47b1a55a SC	448	return length / 8;
	449	}
	450	}
	451
	452	insn_list = CGEN_DIS_NEXT_INSN (insn_list);
	453	}
	454
	455	return 0;
	456	}
	457
	458	/* Default value for CGEN_PRINT_INSN.
	459	The result is the size of the insn in bytes or zero for an unknown insn
	460	or -1 if an error occured fetching bytes. */
	461
	462	#ifndef CGEN_PRINT_INSN
	463	#define CGEN_PRINT_INSN default_print_insn
	464	#endif
	465
	466	static int
ffead7ae	467	default_print_insn (CGEN_CPU_DESC cd, bfd_vma pc, disassemble_info *info)
47b1a55a	468	{
33b71eeb	469	bfd_byte buf[CGEN_MAX_INSN_SIZE];
47b1a55a SC	470	int buflen;
	471	int status;
	472
	473	/* Attempt to read the base part of the insn. */
	474	buflen = cd->base_insn_bitsize / 8;
	475	status = (*info->read_memory_func) (pc, buf, buflen, info);
	476
	477	/* Try again with the minimum part, if min < base. */
	478	if (status != 0 && (cd->min_insn_bitsize < cd->base_insn_bitsize))
	479	{
	480	buflen = cd->min_insn_bitsize / 8;
	481	status = (*info->read_memory_func) (pc, buf, buflen, info);
	482	}
	483
	484	if (status != 0)
	485	{
	486	(*info->memory_error_func) (status, pc, info);
	487	return -1;
	488	}
	489
	490	return print_insn (cd, pc, info, buf, buflen);
	491	}
	492
	493	/* Main entry point.
	494	Print one instruction from PC on INFO->STREAM.
	495	Return the size of the instruction (in bytes). */
	496
47b0e7ad NC	497	typedef struct cpu_desc_list
47b0e7ad NC	498	{
47b1a55a SC	499	struct cpu_desc_list *next;
	500	int isa;
	501	int mach;
	502	int endian;
	503	CGEN_CPU_DESC cd;
	504	} cpu_desc_list;
	505
	506	int
ffead7ae	507	print_insn_iq2000 (bfd_vma pc, disassemble_info *info)
47b1a55a SC	508	{
	509	static cpu_desc_list *cd_list = 0;
	510	cpu_desc_list *cl = 0;
	511	static CGEN_CPU_DESC cd = 0;
	512	static int prev_isa;
	513	static int prev_mach;
	514	static int prev_endian;
	515	int length;
	516	int isa,mach;
	517	int endian = (info->endian == BFD_ENDIAN_BIG
	518	? CGEN_ENDIAN_BIG
	519	: CGEN_ENDIAN_LITTLE);
	520	enum bfd_architecture arch;
	521
	522	/* ??? gdb will set mach but leave the architecture as "unknown" */
	523	#ifndef CGEN_BFD_ARCH
	524	#define CGEN_BFD_ARCH bfd_arch_iq2000
	525	#endif
	526	arch = info->arch;
	527	if (arch == bfd_arch_unknown)
	528	arch = CGEN_BFD_ARCH;
	529
	530	/* There's no standard way to compute the machine or isa number
	531	so we leave it to the target. */
	532	#ifdef CGEN_COMPUTE_MACH
	533	mach = CGEN_COMPUTE_MACH (info);
	534	#else
	535	mach = info->mach;
	536	#endif
	537
	538	#ifdef CGEN_COMPUTE_ISA
	539	isa = CGEN_COMPUTE_ISA (info);
	540	#else
	541	isa = info->insn_sets;
	542	#endif
	543
	544	/* If we've switched cpu's, try to find a handle we've used before */
	545	if (cd
	546	&& (isa != prev_isa
	547	\|\| mach != prev_mach
	548	\|\| endian != prev_endian))
	549	{
	550	cd = 0;
	551	for (cl = cd_list; cl; cl = cl->next)
	552	{
	553	if (cl->isa == isa &&
	554	cl->mach == mach &&
	555	cl->endian == endian)
	556	{
	557	cd = cl->cd;
	558	break;
	559	}
	560	}
	561	}
	562
	563	/* If we haven't initialized yet, initialize the opcode table. */
	564	if (! cd)
	565	{
	566	const bfd_arch_info_type *arch_type = bfd_lookup_arch (arch, mach);
	567	const char *mach_name;
	568
	569	if (!arch_type)
	570	abort ();
	571	mach_name = arch_type->printable_name;
572
573	prev_isa = isa;
574	prev_mach = mach;
575	prev_endian = endian;
576	cd = iq2000_cgen_cpu_open (CGEN_CPU_OPEN_ISAS, prev_isa,
577	CGEN_CPU_OPEN_BFDMACH, mach_name,
578	CGEN_CPU_OPEN_ENDIAN, prev_endian,
579	CGEN_CPU_OPEN_END);
580	if (!cd)
581	abort ();
582
47b0e7ad	583	/* Save this away for future reference. */
47b1a55a SC	584	cl = xmalloc (sizeof (struct cpu_desc_list));
	585	cl->cd = cd;
	586	cl->isa = isa;
	587	cl->mach = mach;
	588	cl->endian = endian;
	589	cl->next = cd_list;
	590	cd_list = cl;
	591
	592	iq2000_cgen_init_dis (cd);
	593	}
	594
	595	/* We try to have as much common code as possible.
	596	But at this point some targets need to take over. */
	597	/* ??? Some targets may need a hook elsewhere. Try to avoid this,
	598	but if not possible try to move this hook elsewhere rather than
	599	have two hooks. */
	600	length = CGEN_PRINT_INSN (cd, pc, info);
	601	if (length > 0)
	602	return length;
	603	if (length < 0)
	604	return -1;
	605
	606	(*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG);
	607	return cd->default_insn_bitsize / 8;
	608	}