URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [opcodes/] [tic4x-dis.c] - Blame information for rev 227

Details | Compare with Previous | View Log


/* Print instructions for the Texas TMS320C[34]X, for GDB and GNU Binutils.
 
   Copyright 2002, 2003, 2005, 2007 Free Software Foundation, Inc.
 
   Contributed by Michael P. Hayes (m.hayes@elec.canterbury.ac.nz)
 
   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 <math.h>
#include "libiberty.h"
#include "dis-asm.h"
#include "opcode/tic4x.h"
 
#define TIC4X_DEBUG 0
 
#define TIC4X_HASH_SIZE   11   /* 11 (bits) and above should give unique entries.  */
#define TIC4X_SPESOP_SIZE 8    /* Max 8. ops for special instructions.  */
 
typedef enum
{
  IMMED_SINT,
  IMMED_SUINT,
  IMMED_SFLOAT,
  IMMED_INT,
  IMMED_UINT,
  IMMED_FLOAT
}
immed_t;
 
typedef enum
{
  INDIRECT_SHORT,
  INDIRECT_LONG,
  INDIRECT_TIC4X
}
indirect_t;
 
static int tic4x_version = 0;
static int tic4x_dp = 0;
 
static int
tic4x_pc_offset (unsigned int op)
{
  /* Determine the PC offset for a C[34]x instruction.
     This could be simplified using some boolean algebra
     but at the expense of readability.  */
  switch (op >> 24)
    {
    case 0x60:  /* br */
    case 0x62:  /* call  (C4x) */
    case 0x64:  /* rptb  (C4x) */
      return 1;
    case 0x61:  /* brd */
    case 0x63:  /* laj */
    case 0x65:  /* rptbd (C4x) */
      return 3;
    case 0x66:  /* swi */
    case 0x67:
      return 0;
    default:
      break;
    }
 
  switch ((op & 0xffe00000) >> 20)
    {
    case 0x6a0: /* bB */
    case 0x720: /* callB */
    case 0x740: /* trapB */
      return 1;
 
    case 0x6a2: /* bBd */
    case 0x6a6: /* bBat */
    case 0x6aa: /* bBaf */
    case 0x722: /* lajB */
    case 0x748: /* latB */
    case 0x798: /* rptbd */
      return 3;
 
    default:
      break;
    }
 
  switch ((op & 0xfe200000) >> 20)
    {
    case 0x6e0: /* dbB */
      return 1;
 
    case 0x6e2: /* dbBd */
      return 3;
 
    default:
      break;
    }
 
  return 0;
}
 
static int
tic4x_print_char (struct disassemble_info * info, char ch)
{
  if (info != NULL)
    (*info->fprintf_func) (info->stream, "%c", ch);
  return 1;
}
 
static int
tic4x_print_str (struct disassemble_info *info, char *str)
{
  if (info != NULL)
    (*info->fprintf_func) (info->stream, "%s", str);
  return 1;
}
 
static int
tic4x_print_register (struct disassemble_info *info, unsigned long regno)
{
  static tic4x_register_t ** registertable = NULL;
  unsigned int i;
 
  if (registertable == NULL)
    {
      registertable = xmalloc (sizeof (tic4x_register_t *) * REG_TABLE_SIZE);
      for (i = 0; i < tic3x_num_registers; i++)
        registertable[tic3x_registers[i].regno] = (tic4x_register_t *) (tic3x_registers + i);
      if (IS_CPU_TIC4X (tic4x_version))
        {
          /* Add C4x additional registers, overwriting
             any C3x registers if necessary.  */
          for (i = 0; i < tic4x_num_registers; i++)
            registertable[tic4x_registers[i].regno] =
              (tic4x_register_t *)(tic4x_registers + i);
        }
    }
  if ((int) regno > (IS_CPU_TIC4X (tic4x_version) ? TIC4X_REG_MAX : TIC3X_REG_MAX))
    return 0;
  if (info != NULL)
    (*info->fprintf_func) (info->stream, "%s", registertable[regno]->name);
  return 1;
}
 
static int
tic4x_print_addr (struct disassemble_info *info, unsigned long addr)
{
  if (info != NULL)
    (*info->print_address_func)(addr, info);
  return 1;
}
 
static int
tic4x_print_relative (struct disassemble_info *info,
                      unsigned long pc,
                      long offset,
                      unsigned long opcode)
{
  return tic4x_print_addr (info, pc + offset + tic4x_pc_offset (opcode));
}
 
static int
tic4x_print_direct (struct disassemble_info *info, unsigned long arg)
{
  if (info != NULL)
    {
      (*info->fprintf_func) (info->stream, "@");
      tic4x_print_addr (info, arg + (tic4x_dp << 16));
    }
  return 1;
}
#if 0
/* FIXME: make the floating point stuff not rely on host
   floating point arithmetic.  */
 
static void
tic4x_print_ftoa (unsigned int val, FILE *stream, fprintf_ftype pfunc)
{
  int e;
  int s;
  int f;
  double num = 0.0;
 
  e = EXTRS (val, 31, 24);      /* Exponent.  */
  if (e != -128)
    {
      s = EXTRU (val, 23, 23);  /* Sign bit.  */
      f = EXTRU (val, 22, 0);    /* Mantissa.  */
      if (s)
        f += -2 * (1 << 23);
      else
        f += (1 << 23);
      num = f / (double)(1 << 23);
      num = ldexp (num, e);
    }
  (*pfunc)(stream, "%.9g", num);
}
#endif
 
static int
tic4x_print_immed (struct disassemble_info *info,
                   immed_t type,
                   unsigned long arg)
{
  int s;
  int f;
  int e;
  double num = 0.0;
 
  if (info == NULL)
    return 1;
  switch (type)
    {
    case IMMED_SINT:
    case IMMED_INT:
      (*info->fprintf_func) (info->stream, "%ld", (long) arg);
      break;
 
    case IMMED_SUINT:
    case IMMED_UINT:
      (*info->fprintf_func) (info->stream, "%lu", arg);
      break;
 
    case IMMED_SFLOAT:
      e = EXTRS (arg, 15, 12);
      if (e != -8)
        {
          s = EXTRU (arg, 11, 11);
          f = EXTRU (arg, 10, 0);
          if (s)
            f += -2 * (1 << 11);
          else
            f += (1 << 11);
          num = f / (double)(1 << 11);
          num = ldexp (num, e);
        }
      (*info->fprintf_func) (info->stream, "%f", num);
      break;
    case IMMED_FLOAT:
      e = EXTRS (arg, 31, 24);
      if (e != -128)
        {
          s = EXTRU (arg, 23, 23);
          f = EXTRU (arg, 22, 0);
          if (s)
            f += -2 * (1 << 23);
          else
            f += (1 << 23);
          num = f / (double)(1 << 23);
          num = ldexp (num, e);
        }
      (*info->fprintf_func) (info->stream, "%f", num);
      break;
    }
  return 1;
}
 
static int
tic4x_print_cond (struct disassemble_info *info, unsigned int cond)
{
  static tic4x_cond_t **condtable = NULL;
  unsigned int i;
 
  if (condtable == NULL)
    {
      condtable = xmalloc (sizeof (tic4x_cond_t *) * 32);
      for (i = 0; i < tic4x_num_conds; i++)
        condtable[tic4x_conds[i].cond] = (tic4x_cond_t *)(tic4x_conds + i);
    }
  if (cond > 31 || condtable[cond] == NULL)
    return 0;
  if (info != NULL)
    (*info->fprintf_func) (info->stream, "%s", condtable[cond]->name);
  return 1;
}
 
static int
tic4x_print_indirect (struct disassemble_info *info,
                      indirect_t type,
                      unsigned long arg)
{
  unsigned int aregno;
  unsigned int modn;
  unsigned int disp;
  char *a;
 
  aregno = 0;
  modn = 0;
  disp = 1;
  switch(type)
    {
    case INDIRECT_TIC4X:                /* *+ARn(disp) */
      disp = EXTRU (arg, 7, 3);
      aregno = EXTRU (arg, 2, 0) + REG_AR0;
      modn = 0;
      break;
    case INDIRECT_SHORT:
      disp = 1;
      aregno = EXTRU (arg, 2, 0) + REG_AR0;
      modn = EXTRU (arg, 7, 3);
      break;
    case INDIRECT_LONG:
      disp = EXTRU (arg, 7, 0);
      aregno = EXTRU (arg, 10, 8) + REG_AR0;
      modn = EXTRU (arg, 15, 11);
      if (modn > 7 && disp != 0)
        return 0;
      break;
    default:
        (*info->fprintf_func)(info->stream, "# internal error: Unknown indirect type %d", type);
        return 0;
    }
  if (modn > TIC3X_MODN_MAX)
    return 0;
  a = tic4x_indirects[modn].name;
  while (*a)
    {
      switch (*a)
        {
        case 'a':
          tic4x_print_register (info, aregno);
          break;
        case 'd':
          tic4x_print_immed (info, IMMED_UINT, disp);
          break;
        case 'y':
          tic4x_print_str (info, "ir0");
          break;
        case 'z':
          tic4x_print_str (info, "ir1");
          break;
        default:
          tic4x_print_char (info, *a);
          break;
        }
      a++;
    }
  return 1;
}
 
static int
tic4x_print_op (struct disassemble_info *info,
                unsigned long instruction,
                tic4x_inst_t *p,
                unsigned long pc)
{
  int val;
  char *s;
  char *parallel = NULL;
 
  /* Print instruction name.  */
  s = p->name;
  while (*s && parallel == NULL)
    {
      switch (*s)
        {
        case 'B':
          if (! tic4x_print_cond (info, EXTRU (instruction, 20, 16)))
            return 0;
          break;
        case 'C':
          if (! tic4x_print_cond (info, EXTRU (instruction, 27, 23)))
            return 0;
          break;
        case '_':
          parallel = s + 1;     /* Skip past `_' in name.  */
          break;
        default:
          tic4x_print_char (info, *s);
          break;
        }
      s++;
    }
 
  /* Print arguments.  */
  s = p->args;
  if (*s)
    tic4x_print_char (info, ' ');
 
  while (*s)
    {
      switch (*s)
        {
        case '*': /* Indirect 0--15.  */
          if (! tic4x_print_indirect (info, INDIRECT_LONG,
                                      EXTRU (instruction, 15, 0)))
            return 0;
          break;
 
        case '#': /* Only used for ldp, ldpk.  */
          tic4x_print_immed (info, IMMED_UINT, EXTRU (instruction, 15, 0));
          break;
 
        case '@': /* Direct 0--15.  */
          tic4x_print_direct (info, EXTRU (instruction, 15, 0));
          break;
 
        case 'A': /* Address register 24--22.  */
          if (! tic4x_print_register (info, EXTRU (instruction, 24, 22) +
                                      REG_AR0))
            return 0;
          break;
 
        case 'B': /* 24-bit unsigned int immediate br(d)/call/rptb
                     address 0--23.  */
          if (IS_CPU_TIC4X (tic4x_version))
            tic4x_print_relative (info, pc, EXTRS (instruction, 23, 0),
                                  p->opcode);
          else
            tic4x_print_addr (info, EXTRU (instruction, 23, 0));
          break;
 
        case 'C': /* Indirect (short C4x) 0--7.  */
          if (! IS_CPU_TIC4X (tic4x_version))
            return 0;
          if (! tic4x_print_indirect (info, INDIRECT_TIC4X,
                                      EXTRU (instruction, 7, 0)))
            return 0;
          break;
 
        case 'D':
          /* Cockup if get here...  */
          break;
 
        case 'E': /* Register 0--7.  */
        case 'e':
          if (! tic4x_print_register (info, EXTRU (instruction, 7, 0)))
            return 0;
          break;
 
        case 'F': /* 16-bit float immediate 0--15.  */
          tic4x_print_immed (info, IMMED_SFLOAT,
                             EXTRU (instruction, 15, 0));
          break;
 
        case 'i': /* Extended indirect 0--7.  */
          if (EXTRU (instruction, 7, 5) == 7)
            {
              if (!tic4x_print_register (info, EXTRU (instruction, 4, 0)))
                return 0;
              break;
            }
          /* Fallthrough */
 
        case 'I': /* Indirect (short) 0--7.  */
          if (! tic4x_print_indirect (info, INDIRECT_SHORT,
                                      EXTRU (instruction, 7, 0)))
            return 0;
          break;
 
        case 'j': /* Extended indirect 8--15 */
          if (EXTRU (instruction, 15, 13) == 7)
            {
              if (! tic4x_print_register (info, EXTRU (instruction, 12, 8)))
                return 0;
              break;
            }
 
        case 'J': /* Indirect (short) 8--15.  */
          if (! tic4x_print_indirect (info, INDIRECT_SHORT,
                                      EXTRU (instruction, 15, 8)))
            return 0;
          break;
 
        case 'G': /* Register 8--15.  */
        case 'g':
          if (! tic4x_print_register (info, EXTRU (instruction, 15, 8)))
            return 0;
          break;
 
        case 'H': /* Register 16--18.  */
          if (! tic4x_print_register (info, EXTRU (instruction, 18, 16)))
            return 0;
          break;
 
        case 'K': /* Register 19--21.  */
          if (! tic4x_print_register (info, EXTRU (instruction, 21, 19)))
            return 0;
          break;
 
        case 'L': /* Register 22--24.  */
          if (! tic4x_print_register (info, EXTRU (instruction, 24, 22)))
            return 0;
          break;
 
        case 'M': /* Register 22--22.  */
          tic4x_print_register (info, EXTRU (instruction, 22, 22) + REG_R2);
          break;
 
        case 'N': /* Register 23--23.  */
          tic4x_print_register (info, EXTRU (instruction, 23, 23) + REG_R0);
          break;
 
        case 'O': /* Indirect (short C4x) 8--15.  */
          if (! IS_CPU_TIC4X (tic4x_version))
            return 0;
          if (! tic4x_print_indirect (info, INDIRECT_TIC4X,
                                      EXTRU (instruction, 15, 8)))
            return 0;
          break;
 
        case 'P': /* Displacement 0--15 (used by Bcond and BcondD).  */
          tic4x_print_relative (info, pc, EXTRS (instruction, 15, 0),
                                p->opcode);
          break;
 
        case 'Q': /* Register 0--15.  */
        case 'q':
          if (! tic4x_print_register (info, EXTRU (instruction, 15, 0)))
            return 0;
          break;
 
        case 'R': /* Register 16--20.  */
        case 'r':
          if (! tic4x_print_register (info, EXTRU (instruction, 20, 16)))
            return 0;
          break;
 
        case 'S': /* 16-bit signed immediate 0--15.  */
          tic4x_print_immed (info, IMMED_SINT,
                             EXTRS (instruction, 15, 0));
          break;
 
        case 'T': /* 5-bit signed immediate 16--20  (C4x stik).  */
          if (! IS_CPU_TIC4X (tic4x_version))
            return 0;
          if (! tic4x_print_immed (info, IMMED_SUINT,
                                   EXTRU (instruction, 20, 16)))
            return 0;
          break;
 
        case 'U': /* 16-bit unsigned int immediate 0--15.  */
          tic4x_print_immed (info, IMMED_SUINT, EXTRU (instruction, 15, 0));
          break;
 
        case 'V': /* 5/9-bit unsigned vector 0--4/8.  */
          tic4x_print_immed (info, IMMED_SUINT,
                             IS_CPU_TIC4X (tic4x_version) ?
                             EXTRU (instruction, 8, 0) :
                             EXTRU (instruction, 4, 0) & ~0x20);
          break;
 
        case 'W': /* 8-bit signed immediate 0--7.  */
          if (! IS_CPU_TIC4X (tic4x_version))
            return 0;
          tic4x_print_immed (info, IMMED_SINT, EXTRS (instruction, 7, 0));
          break;
 
        case 'X': /* Expansion register 4--0.  */
          val = EXTRU (instruction, 4, 0) + REG_IVTP;
          if (val < REG_IVTP || val > REG_TVTP)
            return 0;
          if (! tic4x_print_register (info, val))
            return 0;
          break;
 
        case 'Y': /* Address register 16--20.  */
          val = EXTRU (instruction, 20, 16);
          if (val < REG_AR0 || val > REG_SP)
            return 0;
          if (! tic4x_print_register (info, val))
            return 0;
          break;
 
        case 'Z': /* Expansion register 16--20.  */
          val = EXTRU (instruction, 20, 16) + REG_IVTP;
          if (val < REG_IVTP || val > REG_TVTP)
            return 0;
          if (! tic4x_print_register (info, val))
            return 0;
          break;
 
        case '|':       /* Parallel instruction.  */
          tic4x_print_str (info, " || ");
          tic4x_print_str (info, parallel);
          tic4x_print_char (info, ' ');
          break;
 
        case ';':
          tic4x_print_char (info, ',');
          break;
 
        default:
          tic4x_print_char (info, *s);
          break;
        }
      s++;
    }
  return 1;
}
 
static void
tic4x_hash_opcode_special (tic4x_inst_t **optable_special,
                           const tic4x_inst_t *inst)
{
  int i;
 
  for (i = 0;i < TIC4X_SPESOP_SIZE; i++)
    if (optable_special[i] != NULL
        && optable_special[i]->opcode == inst->opcode)
      {
        /* Collision (we have it already) - overwrite.  */
        optable_special[i] = (tic4x_inst_t *) inst;
        return;
      }
 
  for (i = 0; i < TIC4X_SPESOP_SIZE; i++)
    if (optable_special[i] == NULL)
      {
        /* Add the new opcode.  */
        optable_special[i] = (tic4x_inst_t *) inst;
        return;
      }
 
  /* This should never occur. This happens if the number of special
     instructions exceeds TIC4X_SPESOP_SIZE. Please increase the variable
     of this variable */
#if TIC4X_DEBUG
  printf ("optable_special[] is full, please increase TIC4X_SPESOP_SIZE!\n");
#endif
}
 
static void
tic4x_hash_opcode (tic4x_inst_t **optable,
                   tic4x_inst_t **optable_special,
                   const tic4x_inst_t *inst,
                   const unsigned long tic4x_oplevel)
{
  int j;
  int opcode = inst->opcode >> (32 - TIC4X_HASH_SIZE);
  int opmask = inst->opmask >> (32 - TIC4X_HASH_SIZE);
 
  /* Use a TIC4X_HASH_SIZE bit index as a hash index.  We should
     have unique entries so there's no point having a linked list
     for each entry?  */
  for (j = opcode; j < opmask; j++)
    if ((j & opmask) == opcode
         && inst->oplevel & tic4x_oplevel)
      {
#if TIC4X_DEBUG
        /* We should only have collisions for synonyms like
           ldp for ldi.  */
        if (optable[j] != NULL)
          printf ("Collision at index %d, %s and %s\n",
                  j, optable[j]->name, inst->name);
#endif
        /* Catch those ops that collide with others already inside the
           hash, and have a opmask greater than the one we use in the
           hash. Store them in a special-list, that will handle full
           32-bit INSN, not only the first 11-bit (or so). */
        if (optable[j] != NULL
            && inst->opmask & ~(opmask << (32 - TIC4X_HASH_SIZE)))
          {
            /* Add the instruction already on the list.  */
            tic4x_hash_opcode_special (optable_special, optable[j]);
 
            /* Add the new instruction.  */
            tic4x_hash_opcode_special (optable_special, inst);
          }
 
        optable[j] = (tic4x_inst_t *) inst;
      }
}
 
/* Disassemble the instruction in 'instruction'.
   'pc' should be the address of this instruction, it will
   be used to print the target address if this is a relative jump or call
   the disassembled instruction is written to 'info'.
   The function returns the length of this instruction in words.  */
 
static int
tic4x_disassemble (unsigned long pc,
                   unsigned long instruction,
                   struct disassemble_info *info)
{
  static tic4x_inst_t **optable = NULL;
  static tic4x_inst_t **optable_special = NULL;
  tic4x_inst_t *p;
  int i;
  unsigned long tic4x_oplevel;
 
  tic4x_version = info->mach;
 
  tic4x_oplevel  = (IS_CPU_TIC4X (tic4x_version)) ? OP_C4X : 0;
  tic4x_oplevel |= OP_C3X | OP_LPWR | OP_IDLE2 | OP_ENH;
 
  if (optable == NULL)
    {
      optable = xcalloc (sizeof (tic4x_inst_t *), (1 << TIC4X_HASH_SIZE));
 
      optable_special = xcalloc (sizeof (tic4x_inst_t *), TIC4X_SPESOP_SIZE);
 
      /* Install opcodes in reverse order so that preferred
         forms overwrite synonyms.  */
      for (i = tic4x_num_insts - 1; i >= 0; i--)
        tic4x_hash_opcode (optable, optable_special, &tic4x_insts[i],
                           tic4x_oplevel);
 
      /* We now need to remove the insn that are special from the
         "normal" optable, to make the disasm search this extra list
         for them.  */
      for (i = 0; i < TIC4X_SPESOP_SIZE; i++)
        if (optable_special[i] != NULL)
          optable[optable_special[i]->opcode >> (32 - TIC4X_HASH_SIZE)] = NULL;
    }
 
  /* See if we can pick up any loading of the DP register...  */
  if ((instruction >> 16) == 0x5070 || (instruction >> 16) == 0x1f70)
    tic4x_dp = EXTRU (instruction, 15, 0);
 
  p = optable[instruction >> (32 - TIC4X_HASH_SIZE)];
  if (p != NULL)
    {
      if (((instruction & p->opmask) == p->opcode)
           && tic4x_print_op (NULL, instruction, p, pc))
        tic4x_print_op (info, instruction, p, pc);
      else
        (*info->fprintf_func) (info->stream, "%08lx", instruction);
    }
  else
    {
      for (i = 0; i<TIC4X_SPESOP_SIZE; i++)
        if (optable_special[i] != NULL
            && optable_special[i]->opcode == instruction)
          {
            (*info->fprintf_func)(info->stream, "%s", optable_special[i]->name);
            break;
          }
      if (i == TIC4X_SPESOP_SIZE)
        (*info->fprintf_func) (info->stream, "%08lx", instruction);
    }
 
  /* Return size of insn in words.  */
  return 1;
}
 
/* The entry point from objdump and gdb.  */
int
print_insn_tic4x (bfd_vma memaddr, struct disassemble_info *info)
{
  int status;
  unsigned long pc;
  unsigned long op;
  bfd_byte buffer[4];
 
  status = (*info->read_memory_func) (memaddr, buffer, 4, info);
  if (status != 0)
    {
      (*info->memory_error_func) (status, memaddr, info);
      return -1;
    }
 
  pc = memaddr;
  op = bfd_getl32 (buffer);
  info->bytes_per_line = 4;
  info->bytes_per_chunk = 4;
  info->octets_per_byte = 4;
  info->display_endian = BFD_ENDIAN_LITTLE;
  return tic4x_disassemble (pc, op, info) * 4;
}

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [opcodes/] [tic4x-dis.c] - Blame information for rev 227

Line No.	Rev	Author	Line
1	227	jeremybenn	`/* Print instructions for the Texas TMS320C[34]X, for GDB and GNU Binutils.`
2
3			`Copyright 2002, 2003, 2005, 2007 Free Software Foundation, Inc.`
4
5			`Contributed by Michael P. Hayes (m.hayes@elec.canterbury.ac.nz)`
6
7			`This file is part of the GNU opcodes library.`
8
9			`This library is free software; you can redistribute it and/or modify`
10			`it under the terms of the GNU General Public License as published by`
11			`the Free Software Foundation; either version 3, or (at your option)`
12			`any later version.`
13
14			`It is distributed in the hope that it will be useful, but WITHOUT`
15			`ANY WARRANTY; without even the implied warranty of MERCHANTABILITY`
16			`or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public`
17			`License for more details.`
18
19			`You should have received a copy of the GNU General Public License`
20			`along with this program; if not, write to the Free Software`
21			`Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,`
22			`MA 02110-1301, USA. */`
23
24			`#include <math.h>`
25			`#include "libiberty.h"`
26			`#include "dis-asm.h"`
27			`#include "opcode/tic4x.h"`
28
29			`#define TIC4X_DEBUG 0`
30
31			`#define TIC4X_HASH_SIZE 11 /* 11 (bits) and above should give unique entries. */`
32			`#define TIC4X_SPESOP_SIZE 8 /* Max 8. ops for special instructions. */`
33
34			`typedef enum`
35			`{`
36			`IMMED_SINT,`
37			`IMMED_SUINT,`
38			`IMMED_SFLOAT,`
39			`IMMED_INT,`
40			`IMMED_UINT,`
41			`IMMED_FLOAT`
42			`}`
43			`immed_t;`
44
45			`typedef enum`
46			`{`
47			`INDIRECT_SHORT,`
48			`INDIRECT_LONG,`
49			`INDIRECT_TIC4X`
50			`}`
51			`indirect_t;`
52
53			`static int tic4x_version = 0;`
54			`static int tic4x_dp = 0;`
55
56			`static int`
57			`tic4x_pc_offset (unsigned int op)`
58			`{`
59			`/* Determine the PC offset for a C[34]x instruction.`
60			`This could be simplified using some boolean algebra`
61			`but at the expense of readability. */`
62			`switch (op >> 24)`
63			`{`
64			`case 0x60: /* br */`
65			`case 0x62: /* call (C4x) */`
66			`case 0x64: /* rptb (C4x) */`
67			`return 1;`
68			`case 0x61: /* brd */`
69			`case 0x63: /* laj */`
70			`case 0x65: /* rptbd (C4x) */`
71			`return 3;`
72			`case 0x66: /* swi */`
73			`case 0x67:`
74			`return 0;`
75			`default:`
76			`break;`
77			`}`
78
79			`switch ((op & 0xffe00000) >> 20)`
80			`{`
81			`case 0x6a0: /* bB */`
82			`case 0x720: /* callB */`
83			`case 0x740: /* trapB */`
84			`return 1;`
85
86			`case 0x6a2: /* bBd */`
87			`case 0x6a6: /* bBat */`
88			`case 0x6aa: /* bBaf */`
89			`case 0x722: /* lajB */`
90			`case 0x748: /* latB */`
91			`case 0x798: /* rptbd */`
92			`return 3;`
93
94			`default:`
95			`break;`
96			`}`
97
98			`switch ((op & 0xfe200000) >> 20)`
99			`{`
100			`case 0x6e0: /* dbB */`
101			`return 1;`
102
103			`case 0x6e2: /* dbBd */`
104			`return 3;`
105
106			`default:`
107			`break;`
108			`}`
109
110			`return 0;`
111			`}`
112
113			`static int`
114			`tic4x_print_char (struct disassemble_info * info, char ch)`
115			`{`
116			`if (info != NULL)`
117			`(*info->fprintf_func) (info->stream, "%c", ch);`
118			`return 1;`
119			`}`
120
121			`static int`
122			`tic4x_print_str (struct disassemble_info info, char str)`
123			`{`
124			`if (info != NULL)`
125			`(*info->fprintf_func) (info->stream, "%s", str);`
126			`return 1;`
127			`}`
128
129			`static int`
130			`tic4x_print_register (struct disassemble_info *info, unsigned long regno)`
131			`{`
132			`static tic4x_register_t ** registertable = NULL;`
133			`unsigned int i;`
134
135			`if (registertable == NULL)`
136			`{`
137			`registertable = xmalloc (sizeof (tic4x_register_t ) REG_TABLE_SIZE);`
138			`for (i = 0; i < tic3x_num_registers; i++)`
139			`registertable[tic3x_registers[i].regno] = (tic4x_register_t *) (tic3x_registers + i);`
140			`if (IS_CPU_TIC4X (tic4x_version))`
141			`{`
142			`/* Add C4x additional registers, overwriting`
143			`any C3x registers if necessary. */`
144			`for (i = 0; i < tic4x_num_registers; i++)`
145			`registertable[tic4x_registers[i].regno] =`
146			`(tic4x_register_t *)(tic4x_registers + i);`
147			`}`
148			`}`
149			`if ((int) regno > (IS_CPU_TIC4X (tic4x_version) ? TIC4X_REG_MAX : TIC3X_REG_MAX))`
150			`return 0;`
151			`if (info != NULL)`
152			`(*info->fprintf_func) (info->stream, "%s", registertable[regno]->name);`
153			`return 1;`
154			`}`
155
156			`static int`
157			`tic4x_print_addr (struct disassemble_info *info, unsigned long addr)`
158			`{`
159			`if (info != NULL)`
160			`(*info->print_address_func)(addr, info);`
161			`return 1;`
162			`}`
163
164			`static int`
165			`tic4x_print_relative (struct disassemble_info *info,`
166			`unsigned long pc,`
167			`long offset,`
168			`unsigned long opcode)`
169			`{`
170			`return tic4x_print_addr (info, pc + offset + tic4x_pc_offset (opcode));`
171			`}`
172
173			`static int`
174			`tic4x_print_direct (struct disassemble_info *info, unsigned long arg)`
175			`{`
176			`if (info != NULL)`
177			`{`
178			`(*info->fprintf_func) (info->stream, "@");`
179			`tic4x_print_addr (info, arg + (tic4x_dp << 16));`
180			`}`
181			`return 1;`
182			`}`
183			`#if 0`
184			`/* FIXME: make the floating point stuff not rely on host`
185			`floating point arithmetic. */`
186
187			`static void`
188			`tic4x_print_ftoa (unsigned int val, FILE *stream, fprintf_ftype pfunc)`
189			`{`
190			`int e;`
191			`int s;`
192			`int f;`
193			`double num = 0.0;`
194
195			`e = EXTRS (val, 31, 24); /* Exponent. */`
196			`if (e != -128)`
197			`{`
198			`s = EXTRU (val, 23, 23); /* Sign bit. */`
199			`f = EXTRU (val, 22, 0); /* Mantissa. */`
200			`if (s)`
201			`f += -2 * (1 << 23);`
202			`else`
203			`f += (1 << 23);`
204			`num = f / (double)(1 << 23);`
205			`num = ldexp (num, e);`
206			`}`
207			`(*pfunc)(stream, "%.9g", num);`
208			`}`
209			`#endif`
210
211			`static int`
212			`tic4x_print_immed (struct disassemble_info *info,`
213			`immed_t type,`
214			`unsigned long arg)`
215			`{`
216			`int s;`
217			`int f;`
218			`int e;`
219			`double num = 0.0;`
220
221			`if (info == NULL)`
222			`return 1;`
223			`switch (type)`
224			`{`
225			`case IMMED_SINT:`
226			`case IMMED_INT:`
227			`(*info->fprintf_func) (info->stream, "%ld", (long) arg);`
228			`break;`
229
230			`case IMMED_SUINT:`
231			`case IMMED_UINT:`
232			`(*info->fprintf_func) (info->stream, "%lu", arg);`
233			`break;`
234
235			`case IMMED_SFLOAT:`
236			`e = EXTRS (arg, 15, 12);`
237			`if (e != -8)`
238			`{`
239			`s = EXTRU (arg, 11, 11);`
240			`f = EXTRU (arg, 10, 0);`
241			`if (s)`
242			`f += -2 * (1 << 11);`
243			`else`
244			`f += (1 << 11);`
245			`num = f / (double)(1 << 11);`
246			`num = ldexp (num, e);`
247			`}`
248			`(*info->fprintf_func) (info->stream, "%f", num);`
249			`break;`
250			`case IMMED_FLOAT:`
251			`e = EXTRS (arg, 31, 24);`
252			`if (e != -128)`
253			`{`
254			`s = EXTRU (arg, 23, 23);`
255			`f = EXTRU (arg, 22, 0);`
256			`if (s)`
257			`f += -2 * (1 << 23);`
258			`else`
259			`f += (1 << 23);`
260			`num = f / (double)(1 << 23);`
261			`num = ldexp (num, e);`
262			`}`
263			`(*info->fprintf_func) (info->stream, "%f", num);`
264			`break;`
265			`}`
266			`return 1;`
267			`}`
268
269			`static int`
270			`tic4x_print_cond (struct disassemble_info *info, unsigned int cond)`
271			`{`
272			`static tic4x_cond_t **condtable = NULL;`
273			`unsigned int i;`
274
275			`if (condtable == NULL)`
276			`{`
277			`condtable = xmalloc (sizeof (tic4x_cond_t ) 32);`
278			`for (i = 0; i < tic4x_num_conds; i++)`
279			`condtable[tic4x_conds[i].cond] = (tic4x_cond_t *)(tic4x_conds + i);`
280			`}`
281			`if (cond > 31 \|\| condtable[cond] == NULL)`
282			`return 0;`
283			`if (info != NULL)`
284			`(*info->fprintf_func) (info->stream, "%s", condtable[cond]->name);`
285			`return 1;`
286			`}`
287
288			`static int`
289			`tic4x_print_indirect (struct disassemble_info *info,`
290			`indirect_t type,`
291			`unsigned long arg)`
292			`{`
293			`unsigned int aregno;`
294			`unsigned int modn;`
295			`unsigned int disp;`
296			`char *a;`
297
298			`aregno = 0;`
299			`modn = 0;`
300			`disp = 1;`
301			`switch(type)`
302			`{`
303			`case INDIRECT_TIC4X: /* +ARn(disp) /`
304			`disp = EXTRU (arg, 7, 3);`
305			`aregno = EXTRU (arg, 2, 0) + REG_AR0;`
306			`modn = 0;`
307			`break;`
308			`case INDIRECT_SHORT:`
309			`disp = 1;`
310			`aregno = EXTRU (arg, 2, 0) + REG_AR0;`
311			`modn = EXTRU (arg, 7, 3);`
312			`break;`
313			`case INDIRECT_LONG:`
314			`disp = EXTRU (arg, 7, 0);`
315			`aregno = EXTRU (arg, 10, 8) + REG_AR0;`
316			`modn = EXTRU (arg, 15, 11);`
317			`if (modn > 7 && disp != 0)`
318			`return 0;`
319			`break;`
320			`default:`
321			`(*info->fprintf_func)(info->stream, "# internal error: Unknown indirect type %d", type);`
322			`return 0;`
323			`}`
324			`if (modn > TIC3X_MODN_MAX)`
325			`return 0;`
326			`a = tic4x_indirects[modn].name;`
327			`while (*a)`
328			`{`
329			`switch (*a)`
330			`{`
331			`case 'a':`
332			`tic4x_print_register (info, aregno);`
333			`break;`
334			`case 'd':`
335			`tic4x_print_immed (info, IMMED_UINT, disp);`
336			`break;`
337			`case 'y':`
338			`tic4x_print_str (info, "ir0");`
339			`break;`
340			`case 'z':`
341			`tic4x_print_str (info, "ir1");`
342			`break;`
343			`default:`
344			`tic4x_print_char (info, *a);`
345			`break;`
346			`}`
347			`a++;`
348			`}`
349			`return 1;`
350			`}`
351
352			`static int`
353			`tic4x_print_op (struct disassemble_info *info,`
354			`unsigned long instruction,`
355			`tic4x_inst_t *p,`
356			`unsigned long pc)`
357			`{`
358			`int val;`
359			`char *s;`
360			`char *parallel = NULL;`
361
362			`/* Print instruction name. */`
363			`s = p->name;`
364			`while (*s && parallel == NULL)`
365			`{`
366			`switch (*s)`
367			`{`
368			`case 'B':`
369			`if (! tic4x_print_cond (info, EXTRU (instruction, 20, 16)))`
370			`return 0;`
371			`break;`
372			`case 'C':`
373			`if (! tic4x_print_cond (info, EXTRU (instruction, 27, 23)))`
374			`return 0;`
375			`break;`
376			`case '_':`
377			parallel = s + 1; /* Skip past `_' in name. */
378			`break;`
379			`default:`
380			`tic4x_print_char (info, *s);`
381			`break;`
382			`}`
383			`s++;`
384			`}`
385
386			`/* Print arguments. */`
387			`s = p->args;`
388			`if (*s)`
389			`tic4x_print_char (info, ' ');`
390
391			`while (*s)`
392			`{`
393			`switch (*s)`
394			`{`
395			`case '': / Indirect 0--15. */`
396			`if (! tic4x_print_indirect (info, INDIRECT_LONG,`
397			`EXTRU (instruction, 15, 0)))`
398			`return 0;`
399			`break;`
400
401			`case '#': /* Only used for ldp, ldpk. */`
402			`tic4x_print_immed (info, IMMED_UINT, EXTRU (instruction, 15, 0));`
403			`break;`
404
405			`case '@': /* Direct 0--15. */`
406			`tic4x_print_direct (info, EXTRU (instruction, 15, 0));`
407			`break;`
408
409			`case 'A': /* Address register 24--22. */`
410			`if (! tic4x_print_register (info, EXTRU (instruction, 24, 22) +`
411			`REG_AR0))`
412			`return 0;`
413			`break;`
414
415			`case 'B': /* 24-bit unsigned int immediate br(d)/call/rptb`
416			`address 0--23. */`
417			`if (IS_CPU_TIC4X (tic4x_version))`
418			`tic4x_print_relative (info, pc, EXTRS (instruction, 23, 0),`
419			`p->opcode);`
420			`else`
421			`tic4x_print_addr (info, EXTRU (instruction, 23, 0));`
422			`break;`
423
424			`case 'C': /* Indirect (short C4x) 0--7. */`
425			`if (! IS_CPU_TIC4X (tic4x_version))`
426			`return 0;`
427			`if (! tic4x_print_indirect (info, INDIRECT_TIC4X,`
428			`EXTRU (instruction, 7, 0)))`
429			`return 0;`
430			`break;`
431
432			`case 'D':`
433			`/* Cockup if get here... */`
434			`break;`
435
436			`case 'E': /* Register 0--7. */`
437			`case 'e':`
438			`if (! tic4x_print_register (info, EXTRU (instruction, 7, 0)))`
439			`return 0;`
440			`break;`
441
442			`case 'F': /* 16-bit float immediate 0--15. */`
443			`tic4x_print_immed (info, IMMED_SFLOAT,`
444			`EXTRU (instruction, 15, 0));`
445			`break;`
446
447			`case 'i': /* Extended indirect 0--7. */`
448			`if (EXTRU (instruction, 7, 5) == 7)`
449			`{`
450			`if (!tic4x_print_register (info, EXTRU (instruction, 4, 0)))`
451			`return 0;`
452			`break;`
453			`}`
454			`/* Fallthrough */`
455
456			`case 'I': /* Indirect (short) 0--7. */`
457			`if (! tic4x_print_indirect (info, INDIRECT_SHORT,`
458			`EXTRU (instruction, 7, 0)))`
459			`return 0;`
460			`break;`
461
462			`case 'j': /* Extended indirect 8--15 */`
463			`if (EXTRU (instruction, 15, 13) == 7)`
464			`{`
465			`if (! tic4x_print_register (info, EXTRU (instruction, 12, 8)))`
466			`return 0;`
467			`break;`
468			`}`
469
470			`case 'J': /* Indirect (short) 8--15. */`
471			`if (! tic4x_print_indirect (info, INDIRECT_SHORT,`
472			`EXTRU (instruction, 15, 8)))`
473			`return 0;`
474			`break;`
475
476			`case 'G': /* Register 8--15. */`
477			`case 'g':`
478			`if (! tic4x_print_register (info, EXTRU (instruction, 15, 8)))`
479			`return 0;`
480			`break;`
481
482			`case 'H': /* Register 16--18. */`
483			`if (! tic4x_print_register (info, EXTRU (instruction, 18, 16)))`
484			`return 0;`
485			`break;`
486
487			`case 'K': /* Register 19--21. */`
488			`if (! tic4x_print_register (info, EXTRU (instruction, 21, 19)))`
489			`return 0;`
490			`break;`
491
492			`case 'L': /* Register 22--24. */`
493			`if (! tic4x_print_register (info, EXTRU (instruction, 24, 22)))`
494			`return 0;`
495			`break;`
496
497			`case 'M': /* Register 22--22. */`
498			`tic4x_print_register (info, EXTRU (instruction, 22, 22) + REG_R2);`
499			`break;`
500
501			`case 'N': /* Register 23--23. */`
502			`tic4x_print_register (info, EXTRU (instruction, 23, 23) + REG_R0);`
503			`break;`
504
505			`case 'O': /* Indirect (short C4x) 8--15. */`
506			`if (! IS_CPU_TIC4X (tic4x_version))`
507			`return 0;`
508			`if (! tic4x_print_indirect (info, INDIRECT_TIC4X,`
509			`EXTRU (instruction, 15, 8)))`
510			`return 0;`
511			`break;`
512
513			`case 'P': /* Displacement 0--15 (used by Bcond and BcondD). */`
514			`tic4x_print_relative (info, pc, EXTRS (instruction, 15, 0),`
515			`p->opcode);`
516			`break;`
517
518			`case 'Q': /* Register 0--15. */`
519			`case 'q':`
520			`if (! tic4x_print_register (info, EXTRU (instruction, 15, 0)))`
521			`return 0;`
522			`break;`
523
524			`case 'R': /* Register 16--20. */`
525			`case 'r':`
526			`if (! tic4x_print_register (info, EXTRU (instruction, 20, 16)))`
527			`return 0;`
528			`break;`
529
530			`case 'S': /* 16-bit signed immediate 0--15. */`
531			`tic4x_print_immed (info, IMMED_SINT,`
532			`EXTRS (instruction, 15, 0));`
533			`break;`
534
535			`case 'T': /* 5-bit signed immediate 16--20 (C4x stik). */`
536			`if (! IS_CPU_TIC4X (tic4x_version))`
537			`return 0;`
538			`if (! tic4x_print_immed (info, IMMED_SUINT,`
539			`EXTRU (instruction, 20, 16)))`
540			`return 0;`
541			`break;`
542
543			`case 'U': /* 16-bit unsigned int immediate 0--15. */`
544			`tic4x_print_immed (info, IMMED_SUINT, EXTRU (instruction, 15, 0));`
545			`break;`
546
547			`case 'V': /* 5/9-bit unsigned vector 0--4/8. */`
548			`tic4x_print_immed (info, IMMED_SUINT,`
549			`IS_CPU_TIC4X (tic4x_version) ?`
550			`EXTRU (instruction, 8, 0) :`
551			`EXTRU (instruction, 4, 0) & ~0x20);`
552			`break;`
553
554			`case 'W': /* 8-bit signed immediate 0--7. */`
555			`if (! IS_CPU_TIC4X (tic4x_version))`
556			`return 0;`
557			`tic4x_print_immed (info, IMMED_SINT, EXTRS (instruction, 7, 0));`
558			`break;`
559
560			`case 'X': /* Expansion register 4--0. */`
561			`val = EXTRU (instruction, 4, 0) + REG_IVTP;`
562			`if (val < REG_IVTP \|\| val > REG_TVTP)`
563			`return 0;`
564			`if (! tic4x_print_register (info, val))`
565			`return 0;`
566			`break;`
567
568			`case 'Y': /* Address register 16--20. */`
569			`val = EXTRU (instruction, 20, 16);`
570			`if (val < REG_AR0 \|\| val > REG_SP)`
571			`return 0;`
572			`if (! tic4x_print_register (info, val))`
573			`return 0;`
574			`break;`
575
576			`case 'Z': /* Expansion register 16--20. */`
577			`val = EXTRU (instruction, 20, 16) + REG_IVTP;`
578			`if (val < REG_IVTP \|\| val > REG_TVTP)`
579			`return 0;`
580			`if (! tic4x_print_register (info, val))`
581			`return 0;`
582			`break;`
583
584			`case '\|': /* Parallel instruction. */`
585			`tic4x_print_str (info, " \|\| ");`
586			`tic4x_print_str (info, parallel);`
587			`tic4x_print_char (info, ' ');`
588			`break;`
589
590			`case ';':`
591			`tic4x_print_char (info, ',');`
592			`break;`
593
594			`default:`
595			`tic4x_print_char (info, *s);`
596			`break;`
597			`}`
598			`s++;`
599			`}`
600			`return 1;`
601			`}`
602
603			`static void`
604			`tic4x_hash_opcode_special (tic4x_inst_t **optable_special,`
605			`const tic4x_inst_t *inst)`
606			`{`
607			`int i;`
608
609			`for (i = 0;i < TIC4X_SPESOP_SIZE; i++)`
610			`if (optable_special[i] != NULL`
611			`&& optable_special[i]->opcode == inst->opcode)`
612			`{`
613			`/* Collision (we have it already) - overwrite. */`
614			`optable_special[i] = (tic4x_inst_t *) inst;`
615			`return;`
616			`}`
617
618			`for (i = 0; i < TIC4X_SPESOP_SIZE; i++)`
619			`if (optable_special[i] == NULL)`
620			`{`
621			`/* Add the new opcode. */`
622			`optable_special[i] = (tic4x_inst_t *) inst;`
623			`return;`
624			`}`
625
626			`/* This should never occur. This happens if the number of special`
627			`instructions exceeds TIC4X_SPESOP_SIZE. Please increase the variable`
628			`of this variable */`
629			`#if TIC4X_DEBUG`
630			`printf ("optable_special[] is full, please increase TIC4X_SPESOP_SIZE!\n");`
631			`#endif`
632			`}`
633
634			`static void`
635			`tic4x_hash_opcode (tic4x_inst_t **optable,`
636			`tic4x_inst_t **optable_special,`
637			`const tic4x_inst_t *inst,`
638			`const unsigned long tic4x_oplevel)`
639			`{`
640			`int j;`
641			`int opcode = inst->opcode >> (32 - TIC4X_HASH_SIZE);`
642			`int opmask = inst->opmask >> (32 - TIC4X_HASH_SIZE);`
643
644			`/* Use a TIC4X_HASH_SIZE bit index as a hash index. We should`
645			`have unique entries so there's no point having a linked list`
646			`for each entry? */`
647			`for (j = opcode; j < opmask; j++)`
648			`if ((j & opmask) == opcode`
649			`&& inst->oplevel & tic4x_oplevel)`
650			`{`
651			`#if TIC4X_DEBUG`
652			`/* We should only have collisions for synonyms like`
653			`ldp for ldi. */`
654			`if (optable[j] != NULL)`
655			`printf ("Collision at index %d, %s and %s\n",`
656			`j, optable[j]->name, inst->name);`
657			`#endif`
658			`/* Catch those ops that collide with others already inside the`
659			`hash, and have a opmask greater than the one we use in the`
660			`hash. Store them in a special-list, that will handle full`
661			`32-bit INSN, not only the first 11-bit (or so). */`
662			`if (optable[j] != NULL`
663			`&& inst->opmask & ~(opmask << (32 - TIC4X_HASH_SIZE)))`
664			`{`
665			`/* Add the instruction already on the list. */`
666			`tic4x_hash_opcode_special (optable_special, optable[j]);`
667
668			`/* Add the new instruction. */`
669			`tic4x_hash_opcode_special (optable_special, inst);`
670			`}`
671
672			`optable[j] = (tic4x_inst_t *) inst;`
673			`}`
674			`}`
675
676			`/* Disassemble the instruction in 'instruction'.`
677			`'pc' should be the address of this instruction, it will`
678			`be used to print the target address if this is a relative jump or call`
679			`the disassembled instruction is written to 'info'.`
680			`The function returns the length of this instruction in words. */`
681
682			`static int`
683			`tic4x_disassemble (unsigned long pc,`
684			`unsigned long instruction,`
685			`struct disassemble_info *info)`
686			`{`
687			`static tic4x_inst_t **optable = NULL;`
688			`static tic4x_inst_t **optable_special = NULL;`
689			`tic4x_inst_t *p;`
690			`int i;`
691			`unsigned long tic4x_oplevel;`
692
693			`tic4x_version = info->mach;`
694
695			`tic4x_oplevel = (IS_CPU_TIC4X (tic4x_version)) ? OP_C4X : 0;`
696			`tic4x_oplevel \|= OP_C3X \| OP_LPWR \| OP_IDLE2 \| OP_ENH;`
697
698			`if (optable == NULL)`
699			`{`
700			`optable = xcalloc (sizeof (tic4x_inst_t *), (1 << TIC4X_HASH_SIZE));`
701
702			`optable_special = xcalloc (sizeof (tic4x_inst_t *), TIC4X_SPESOP_SIZE);`
703
704			`/* Install opcodes in reverse order so that preferred`
705			`forms overwrite synonyms. */`
706			`for (i = tic4x_num_insts - 1; i >= 0; i--)`
707			`tic4x_hash_opcode (optable, optable_special, &tic4x_insts[i],`
708			`tic4x_oplevel);`
709
710			`/* We now need to remove the insn that are special from the`
711			`"normal" optable, to make the disasm search this extra list`
712			`for them. */`
713			`for (i = 0; i < TIC4X_SPESOP_SIZE; i++)`
714			`if (optable_special[i] != NULL)`
715			`optable[optable_special[i]->opcode >> (32 - TIC4X_HASH_SIZE)] = NULL;`
716			`}`
717
718			`/* See if we can pick up any loading of the DP register... */`
719			`if ((instruction >> 16) == 0x5070 \|\| (instruction >> 16) == 0x1f70)`
720			`tic4x_dp = EXTRU (instruction, 15, 0);`
721
722			`p = optable[instruction >> (32 - TIC4X_HASH_SIZE)];`
723			`if (p != NULL)`
724			`{`
725			`if (((instruction & p->opmask) == p->opcode)`
726			`&& tic4x_print_op (NULL, instruction, p, pc))`
727			`tic4x_print_op (info, instruction, p, pc);`
728			`else`
729			`(*info->fprintf_func) (info->stream, "%08lx", instruction);`
730			`}`
731			`else`
732			`{`
733			`for (i = 0; i<TIC4X_SPESOP_SIZE; i++)`
734			`if (optable_special[i] != NULL`
735			`&& optable_special[i]->opcode == instruction)`
736			`{`
737			`(*info->fprintf_func)(info->stream, "%s", optable_special[i]->name);`
738			`break;`
739			`}`
740			`if (i == TIC4X_SPESOP_SIZE)`
741			`(*info->fprintf_func) (info->stream, "%08lx", instruction);`
742			`}`
743
744			`/* Return size of insn in words. */`
745			`return 1;`
746			`}`
747
748			`/* The entry point from objdump and gdb. */`
749			`int`
750			`print_insn_tic4x (bfd_vma memaddr, struct disassemble_info *info)`
751			`{`
752			`int status;`
753			`unsigned long pc;`
754			`unsigned long op;`
755			`bfd_byte buffer[4];`
756
757			`status = (*info->read_memory_func) (memaddr, buffer, 4, info);`
758			`if (status != 0)`
759			`{`
760			`(*info->memory_error_func) (status, memaddr, info);`
761			`return -1;`
762			`}`
763
764			`pc = memaddr;`
765			`op = bfd_getl32 (buffer);`
766			`info->bytes_per_line = 4;`
767			`info->bytes_per_chunk = 4;`
768			`info->octets_per_byte = 4;`
769			`info->display_endian = BFD_ENDIAN_LITTLE;`
770			`return tic4x_disassemble (pc, op, info) * 4;`
771			`}`