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 "sysdep.h" 21 #include <stdio.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 } 177