Back to index

cell-binutils  2.17cvs20070401
Defines | Functions | Variables
mcore-dis.c File Reference
#include "sysdep.h"
#include <stdio.h>
#include "mcore-opc.h"
#include "dis-asm.h"

Go to the source code of this file.

Defines

#define STATIC_TABLE
#define DEFINE_TABLE

Functions

int print_insn_mcore (bfd_vma memaddr, struct disassemble_info *info)

Variables

static const unsigned short imsk []
static const char * grname []
static const char X [] = "??"
static const char * crname []
static const unsigned isiz [] = { 2, 0, 1, 0 }

Define Documentation

#define DEFINE_TABLE

Definition at line 21 of file mcore-dis.c.

#define STATIC_TABLE

Definition at line 20 of file mcore-dis.c.


Function Documentation

int print_insn_mcore ( bfd_vma  memaddr,
struct disassemble_info info 
)

Definition at line 88 of file mcore-dis.c.

{
  unsigned char ibytes[4];
  fprintf_ftype fprintf = info->fprintf_func;
  void *stream = info->stream;
  unsigned short inst;
  const mcore_opcode_info *op;
  int status;

  info->bytes_per_chunk = 2;

  status = info->read_memory_func (memaddr, ibytes, 2, info);

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

  if (info->endian == BFD_ENDIAN_BIG)
    inst = (ibytes[0] << 8) | ibytes[1];
  else if (info->endian == BFD_ENDIAN_LITTLE)
    inst = (ibytes[1] << 8) | ibytes[0];
  else
    abort ();

  /* Just a linear search of the table.  */
  for (op = mcore_table; op->name != 0; op++)
    if (op->inst == (inst & imsk[op->opclass]))
      break;

  if (op->name == 0)
    fprintf (stream, ".short 0x%04x", inst);
  else
    {
      const char *name = grname[inst & 0x0F];

      fprintf (stream, "%s", op->name);

      switch (op->opclass)
       {
       case O0:
         break;

       case OT:
         fprintf (stream, "\t%d", inst & 0x3);
         break;

       case O1:
       case JMP:
       case JSR:
         fprintf (stream, "\t%s", name);
         break;

       case OC:
         fprintf (stream, "\t%s, %s", name, crname[(inst >> 4) & 0x1F]);
         break;

       case O1R1:
         fprintf (stream, "\t%s, r1", name);
         break;

       case MULSH:
       case O2:
         fprintf (stream, "\t%s, %s", name, grname[(inst >> 4) & 0xF]);
         break;

       case X1:
         fprintf (stream, "\tr1, %s", name);
         break;

       case OI:
         fprintf (stream, "\t%s, %d", name, ((inst >> 4) & 0x1F) + 1);
         break;

       case RM:
         fprintf (stream, "\t%s-r15, (r0)", name);
         break;

       case RQ:
         fprintf (stream, "\tr4-r7, (%s)", name);
         break;

       case OB:
       case OBRa:
       case OBRb:
       case OBRc:
       case SI:
       case SIa:
       case OMa:
       case OMb:
       case OMc:
         fprintf (stream, "\t%s, %d", name, (inst >> 4) & 0x1F);
         break;

       case I7:
         fprintf (stream, "\t%s, %d", name, (inst >> 4) & 0x7F);
         break;

       case LS:
         fprintf (stream, "\t%s, (%s, %d)", grname[(inst >> 8) & 0xF],
                 name, ((inst >> 4) & 0xF) << isiz[(inst >> 13) & 3]);
         break;

       case BR:
         {
           long val = inst & 0x3FF;

           if (inst & 0x400)
             val |= 0xFFFFFC00;

           fprintf (stream, "\t0x%lx", (long)(memaddr + 2 + (val << 1)));

           if (strcmp (op->name, "bsr") == 0)
             {
              /* For bsr, we'll try to get a symbol for the target.  */
              val = memaddr + 2 + (val << 1);

              if (info->print_address_func && val != 0)
                {
                  fprintf (stream, "\t// ");
                  info->print_address_func (val, info);
                }
             }
         }
         break;

       case BL:
         {
           long val;
           val = (inst & 0x000F);
           fprintf (stream, "\t%s, 0x%lx",
                   grname[(inst >> 4) & 0xF], (long)(memaddr - (val << 1)));
         }
         break;

       case LR:
         {
           unsigned long val;

           val = (memaddr + 2 + ((inst & 0xFF) << 2)) & 0xFFFFFFFC;

           status = info->read_memory_func (val, ibytes, 4, info);
           if (status != 0)
             {
              info->memory_error_func (status, memaddr, info);
              break;
             }

           if (info->endian == BFD_ENDIAN_LITTLE)
             val = (ibytes[3] << 24) | (ibytes[2] << 16)
              | (ibytes[1] << 8) | (ibytes[0]);
           else
             val = (ibytes[0] << 24) | (ibytes[1] << 16)
              | (ibytes[2] << 8) | (ibytes[3]);

           /* Removed [] around literal value to match ABI syntax 12/95.  */
           fprintf (stream, "\t%s, 0x%lX", grname[(inst >> 8) & 0xF], val);

           if (val == 0)
             fprintf (stream, "\t// from address pool at 0x%lx",
                     (long)(memaddr + 2 + ((inst & 0xFF) << 2)) & 0xFFFFFFFC);
         }
         break;

       case LJ:
         {
           unsigned long val;

           val = (memaddr + 2 + ((inst & 0xFF) << 2)) & 0xFFFFFFFC;

           status = info->read_memory_func (val, ibytes, 4, info);
           if (status != 0)
             {
              info->memory_error_func (status, memaddr, info);
              break;
             }

           if (info->endian == BFD_ENDIAN_LITTLE)
             val = (ibytes[3] << 24) | (ibytes[2] << 16)
              | (ibytes[1] << 8) | (ibytes[0]);
           else
             val = (ibytes[0] << 24) | (ibytes[1] << 16)
              | (ibytes[2] << 8) | (ibytes[3]);

           /* Removed [] around literal value to match ABI syntax 12/95.  */
           fprintf (stream, "\t0x%lX", val);
           /* For jmpi/jsri, we'll try to get a symbol for the target.  */
           if (info->print_address_func && val != 0)
             {
              fprintf (stream, "\t// ");
              info->print_address_func (val, info);
             }
           else
             {
              fprintf (stream, "\t// from address pool at 0x%lx",
                      (long)(memaddr + 2 + ((inst & 0xFF) << 2)) & 0xFFFFFFFC);
             }
         }
         break;

       case OPSR:
         {
           static char *fields[] = {
             "af", "ie",    "fe",    "fe,ie",
             "ee", "ee,ie", "ee,fe", "ee,fe,ie"
           };

           fprintf (stream, "\t%s", fields[inst & 0x7]);
         }
         break;

       default:
         /* If the disassembler lags the instruction set.  */
         fprintf (stream, "\tundecoded operands, inst is 0x%04x", inst);
         break;
       }
    }

  /* Say how many bytes we consumed.  */
  return 2;
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

const char* crname[] [static]
Initial value:
 {
  "psr",  "vbr", "epsr", "fpsr", "epc",  "fpc",  "ss0",  "ss1",
  "ss2",  "ss3", "ss4",  "gcr",  "gsr",     X,      X,      X,
     X,      X,      X,      X,      X,     X,      X,      X,
     X,      X,      X,      X,      X,     X,      X,      X
}

Definition at line 78 of file mcore-dis.c.

const char* grname[] [static]
Initial value:
 {
 "r0",  "r1",  "r2",  "r3",  "r4",  "r5",  "r6",  "r7",
 "r8",  "r9", "r10", "r11", "r12", "r13", "r14", "r15"
}

Definition at line 71 of file mcore-dis.c.

const unsigned short imsk[] [static]

Definition at line 27 of file mcore-dis.c.

const unsigned isiz[] = { 2, 0, 1, 0 } [static]

Definition at line 85 of file mcore-dis.c.

const char X[] = "??" [static]

Definition at line 76 of file mcore-dis.c.