opcodes/pj-dis.c

   1 /* pj-dis.c -- Disassemble picoJava instructions.
   2    Copyright (C) 1999 Free Software Foundation, Inc.
   3    Contributed by Steve Chamberlain, of Transmeta (sac@pobox.com).
   4
   5 This program is free software; you can redistribute it and/or modify
   6 it under the terms of the GNU General Public License as published by
   7 the Free Software Foundation; either version 2 of the License, or
   8 (at your option) any later version.
   9
  10 This program is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with this program; if not, write to the Free Software
  17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  18
  19
  20 #include <stdio.h>
  21 #include "sysdep.h"
  22 #include "opcode/pj.h"
  23 #include "dis-asm.h"
  24
  25 extern const pj_opc_info_t pj_opc_info[512];
  26
  27 static int get_int (memaddr, iptr, info)
  28      bfd_vma memaddr;
  29      int *iptr;
  30      struct disassemble_info *info;
  31 {
  32   unsigned char ival[4];
  33
  34   int status = info->read_memory_func (memaddr, ival, 4, info);
  35
  36   *iptr = (ival[0] << 24)
  37     | (ival[1] << 16)
  38     | (ival[2] << 8)
  39     | (ival[3] << 0) ;
  40
  41   return status;
  42 }
  43
  44 int
  45 print_insn_pj (addr, info)
  46      bfd_vma addr;
  47      struct disassemble_info *info;
  48 {
  49   fprintf_ftype fprintf_fn = info->fprintf_func;
  50   void *stream = info->stream;
  51   unsigned char opcode;
  52   int status;
  53
  54   if ((status = info->read_memory_func (addr, &opcode, 1, info)))
  55     goto fail;
  56
  57   if (opcode == 0xff)
  58     {
  59       unsigned char byte_2;
  60       if ((status = info->read_memory_func (addr + 1, &byte_2, 1, info)))
  61         goto fail;
  62       fprintf_fn (stream, "%s\t", pj_opc_info[opcode + byte_2].name);
  63       return 2;
  64     }
  65   else
  66     {
  67       char *sep = "\t";
  68       int insn_start = addr;
  69       const pj_opc_info_t *op = &pj_opc_info[opcode];
  70       int a;
  71       addr++;
  72       fprintf_fn (stream, "%s", op->name);
  73
  74       /* The tableswitch instruction is followed by the default
  75          address, low value, high value and the destinations. */
  76
  77       if (strcmp (op->name, "tableswitch") == 0)
  78         {
  79           int lowval;
  80           int highval;
  81           int val;
  82
  83           addr = (addr + 3) & ~3;
  84           if ((status = get_int (addr, &val, info)))
  85             goto fail;
  86
  87           fprintf_fn (stream," default: ");
  88           (*info->print_address_func) (val + insn_start, info);
  89           addr += 4;
  90
  91           if ((status = get_int (addr, &lowval, info)))
  92             goto fail;
  93           addr += 4;
  94
  95           if ((status = get_int (addr, &highval, info)))
  96             goto fail;
  97           addr += 4;
  98
  99           while (lowval <= highval) {
 100             if ((status = get_int (addr, &val, info)))
 101               goto fail;
 102             fprintf_fn (stream," %d:[", lowval);
 103             (*info->print_address_func) (val + insn_start, info);
 104             fprintf_fn (stream," ]");
 105             addr += 4;
 106             lowval++;
 107           }
 108           return addr - insn_start;
 109         }
 110
 111       /* The lookupswitch instruction is followed by the default
 112          address, element count and pairs of values and
 113          addresses. */
 114
 115       if (strcmp (op->name, "lookupswitch") == 0)
 116         {
 117           int count;
 118           int val;
 119
 120           addr = (addr + 3) & ~3;
 121           if ((status = get_int (addr, &val, info)))
 122             goto fail;
 123           addr += 4;
 124
 125           fprintf_fn (stream," default: ");
 126           (*info->print_address_func) (val + insn_start, info);
 127
 128           if ((status = get_int (addr, &count, info)))
 129             goto fail;
 130           addr += 4;
 131
 132           while (count--) {
 133             if ((status = get_int (addr, &val, info)))
 134               goto fail;
 135             addr += 4;
 136             fprintf_fn (stream," %d:[", val);
 137
 138             if ((status = get_int (addr, &val, info)))
 139               goto fail;
 140             addr += 4;
 141
 142             (*info->print_address_func) (val + insn_start, info);
 143             fprintf_fn (stream," ]");
 144           }
 145           return addr - insn_start;
 146         }
 147       for (a = 0; op->arg[a]; a++)
 148         {
 149           unsigned char data[4];
 150           int val = 0;
 151           int i;
 152           int size = ASIZE (op->arg[a]);
 153
 154           if ((status = info->read_memory_func (addr, data, size, info)))
 155             goto fail;
 156
 157           val = (UNS (op->arg[0]) || ((data[0] & 0x80) == 0)) ? 0 : -1;
 158
 159           for (i = 0; i < size; i++)
 160             val = (val << 8) | (data[i] & 0xff);
 161
 162           if (PCREL (op->arg[a]))
 163             (*info->print_address_func) (val + insn_start, info);
 164           else
 165             fprintf_fn (stream, "%s%d", sep, val);
 166
 167           sep = ",";
 168           addr += size;
 169         }
 170       return op->len;
 171     }
 172
 173  fail:
 174   info->memory_error_func (status, addr, info);
 175   return -1;
 176 }