OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [opcodes/] [pj-dis.c] - Diff between revs 578 and 1765

Only display areas with differences | Details | Blame | View Log

Rev 578 Rev 1765
/* pj-dis.c -- Disassemble picoJava instructions.
/* pj-dis.c -- Disassemble picoJava instructions.
   Copyright 1999, 2000 Free Software Foundation, Inc.
   Copyright 1999, 2000 Free Software Foundation, Inc.
   Contributed by Steve Chamberlain, of Transmeta (sac@pobox.com).
   Contributed by Steve Chamberlain, of Transmeta (sac@pobox.com).
 
 
This program is free software; you can redistribute it and/or modify
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
(at your option) any later version.
 
 
This program is distributed in the hope that it will be useful,
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
GNU General Public License for more details.
 
 
You should have received a copy of the GNU General Public License
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 
 
 
#include <stdio.h>
#include <stdio.h>
#include "sysdep.h"
#include "sysdep.h"
#include "opcode/pj.h"
#include "opcode/pj.h"
#include "dis-asm.h"
#include "dis-asm.h"
 
 
extern const pj_opc_info_t pj_opc_info[512];
extern const pj_opc_info_t pj_opc_info[512];
 
 
static int get_int (memaddr, iptr, info)
static int get_int (memaddr, iptr, info)
     bfd_vma memaddr;
     bfd_vma memaddr;
     int *iptr;
     int *iptr;
     struct disassemble_info *info;
     struct disassemble_info *info;
{
{
  unsigned char ival[4];
  unsigned char ival[4];
 
 
  int status = info->read_memory_func (memaddr, ival, 4, info);
  int status = info->read_memory_func (memaddr, ival, 4, info);
 
 
  *iptr = (ival[0] << 24)
  *iptr = (ival[0] << 24)
    | (ival[1] << 16)
    | (ival[1] << 16)
    | (ival[2] << 8)
    | (ival[2] << 8)
    | (ival[3] << 0) ;
    | (ival[3] << 0) ;
 
 
  return status;
  return status;
}
}
 
 
int
int
print_insn_pj (addr, info)
print_insn_pj (addr, info)
     bfd_vma addr;
     bfd_vma addr;
     struct disassemble_info *info;
     struct disassemble_info *info;
{
{
  fprintf_ftype fprintf_fn = info->fprintf_func;
  fprintf_ftype fprintf_fn = info->fprintf_func;
  void *stream = info->stream;
  void *stream = info->stream;
  unsigned char opcode;
  unsigned char opcode;
  int status;
  int status;
 
 
  if ((status = info->read_memory_func (addr, &opcode, 1, info)))
  if ((status = info->read_memory_func (addr, &opcode, 1, info)))
    goto fail;
    goto fail;
 
 
  if (opcode == 0xff)
  if (opcode == 0xff)
    {
    {
      unsigned char byte_2;
      unsigned char byte_2;
      if ((status = info->read_memory_func (addr + 1, &byte_2, 1, info)))
      if ((status = info->read_memory_func (addr + 1, &byte_2, 1, info)))
        goto fail;
        goto fail;
      fprintf_fn (stream, "%s\t", pj_opc_info[opcode + byte_2].name);
      fprintf_fn (stream, "%s\t", pj_opc_info[opcode + byte_2].name);
      return 2;
      return 2;
    }
    }
  else
  else
    {
    {
      char *sep = "\t";
      char *sep = "\t";
      int insn_start = addr;
      int insn_start = addr;
      const pj_opc_info_t *op = &pj_opc_info[opcode];
      const pj_opc_info_t *op = &pj_opc_info[opcode];
      int a;
      int a;
      addr++;
      addr++;
      fprintf_fn (stream, "%s", op->name);
      fprintf_fn (stream, "%s", op->name);
 
 
      /* The tableswitch instruction is followed by the default
      /* The tableswitch instruction is followed by the default
         address, low value, high value and the destinations. */
         address, low value, high value and the destinations. */
 
 
      if (strcmp (op->name, "tableswitch") == 0)
      if (strcmp (op->name, "tableswitch") == 0)
        {
        {
          int lowval;
          int lowval;
          int highval;
          int highval;
          int val;
          int val;
 
 
          addr = (addr + 3) & ~3;
          addr = (addr + 3) & ~3;
          if ((status = get_int (addr, &val, info)))
          if ((status = get_int (addr, &val, info)))
            goto fail;
            goto fail;
 
 
          fprintf_fn (stream," default: ");
          fprintf_fn (stream," default: ");
          (*info->print_address_func) (val + insn_start, info);
          (*info->print_address_func) (val + insn_start, info);
          addr += 4;
          addr += 4;
 
 
          if ((status = get_int (addr, &lowval, info)))
          if ((status = get_int (addr, &lowval, info)))
            goto fail;
            goto fail;
          addr += 4;
          addr += 4;
 
 
          if ((status = get_int (addr, &highval, info)))
          if ((status = get_int (addr, &highval, info)))
            goto fail;
            goto fail;
          addr += 4;
          addr += 4;
 
 
          while (lowval <= highval) {
          while (lowval <= highval) {
            if ((status = get_int (addr, &val, info)))
            if ((status = get_int (addr, &val, info)))
              goto fail;
              goto fail;
            fprintf_fn (stream," %d:[", lowval);
            fprintf_fn (stream," %d:[", lowval);
            (*info->print_address_func) (val + insn_start, info);
            (*info->print_address_func) (val + insn_start, info);
            fprintf_fn (stream," ]");
            fprintf_fn (stream," ]");
            addr += 4;
            addr += 4;
            lowval++;
            lowval++;
          }
          }
          return addr - insn_start;
          return addr - insn_start;
        }
        }
 
 
      /* The lookupswitch instruction is followed by the default
      /* The lookupswitch instruction is followed by the default
         address, element count and pairs of values and
         address, element count and pairs of values and
         addresses. */
         addresses. */
 
 
      if (strcmp (op->name, "lookupswitch") == 0)
      if (strcmp (op->name, "lookupswitch") == 0)
        {
        {
          int count;
          int count;
          int val;
          int val;
 
 
          addr = (addr + 3) & ~3;
          addr = (addr + 3) & ~3;
          if ((status = get_int (addr, &val, info)))
          if ((status = get_int (addr, &val, info)))
            goto fail;
            goto fail;
          addr += 4;
          addr += 4;
 
 
          fprintf_fn (stream," default: ");
          fprintf_fn (stream," default: ");
          (*info->print_address_func) (val + insn_start, info);
          (*info->print_address_func) (val + insn_start, info);
 
 
          if ((status = get_int (addr, &count, info)))
          if ((status = get_int (addr, &count, info)))
            goto fail;
            goto fail;
          addr += 4;
          addr += 4;
 
 
          while (count--) {
          while (count--) {
            if ((status = get_int (addr, &val, info)))
            if ((status = get_int (addr, &val, info)))
              goto fail;
              goto fail;
            addr += 4;
            addr += 4;
            fprintf_fn (stream," %d:[", val);
            fprintf_fn (stream," %d:[", val);
 
 
            if ((status = get_int (addr, &val, info)))
            if ((status = get_int (addr, &val, info)))
              goto fail;
              goto fail;
            addr += 4;
            addr += 4;
 
 
            (*info->print_address_func) (val + insn_start, info);
            (*info->print_address_func) (val + insn_start, info);
            fprintf_fn (stream," ]");
            fprintf_fn (stream," ]");
          }
          }
          return addr - insn_start;
          return addr - insn_start;
        }
        }
      for (a = 0; op->arg[a]; a++)
      for (a = 0; op->arg[a]; a++)
        {
        {
          unsigned char data[4];
          unsigned char data[4];
          int val = 0;
          int val = 0;
          int i;
          int i;
          int size = ASIZE (op->arg[a]);
          int size = ASIZE (op->arg[a]);
 
 
          if ((status = info->read_memory_func (addr, data, size, info)))
          if ((status = info->read_memory_func (addr, data, size, info)))
            goto fail;
            goto fail;
 
 
          val = (UNS (op->arg[0]) || ((data[0] & 0x80) == 0)) ? 0 : -1;
          val = (UNS (op->arg[0]) || ((data[0] & 0x80) == 0)) ? 0 : -1;
 
 
          for (i = 0; i < size; i++)
          for (i = 0; i < size; i++)
            val = (val << 8) | (data[i] & 0xff);
            val = (val << 8) | (data[i] & 0xff);
 
 
          if (PCREL (op->arg[a]))
          if (PCREL (op->arg[a]))
            (*info->print_address_func) (val + insn_start, info);
            (*info->print_address_func) (val + insn_start, info);
          else
          else
            fprintf_fn (stream, "%s%d", sep, val);
            fprintf_fn (stream, "%s%d", sep, val);
 
 
          sep = ",";
          sep = ",";
          addr += size;
          addr += size;
        }
        }
      return op->len;
      return op->len;
    }
    }
 
 
 fail:
 fail:
  info->memory_error_func (status, addr, info);
  info->memory_error_func (status, addr, info);
  return -1;
  return -1;
}
}
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.