1 /* Disassemble D30V instructions. 2 Copyright (C) 1997-2018 Free Software Foundation, Inc. 3 4 This file is part of the GNU opcodes library. 5 6 This library is free software; you can redistribute it and/or modify 7 it under the terms of the GNU General Public License as published by 8 the Free Software Foundation; either version 3, or (at your option) 9 any later version. 10 11 It is distributed in the hope that it will be useful, but WITHOUT 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 13 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public 14 License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with this program; if not, write to the Free Software 18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, 19 MA 02110-1301, USA. */ 20 21 #include "sysdep.h" 22 #include <stdio.h> 23 #include "opcode/d30v.h" 24 #include "disassemble.h" 25 #include "opintl.h" 26 27 #define PC_MASK 0xFFFFFFFF 28 29 /* Return 0 if lookup fails, 30 1 if found and only one form, 31 2 if found and there are short and long forms. */ 32 33 static int 34 lookup_opcode (struct d30v_insn *insn, long num, int is_long) 35 { 36 int i = 0, op_index; 37 struct d30v_format *f; 38 struct d30v_opcode *op = (struct d30v_opcode *) d30v_opcode_table; 39 int op1 = (num >> 25) & 0x7; 40 int op2 = (num >> 20) & 0x1f; 41 int mod = (num >> 18) & 0x3; 42 43 /* Find the opcode. */ 44 do 45 { 46 if ((op->op1 == op1) && (op->op2 == op2)) 47 break; 48 op++; 49 } 50 while (op->name); 51 52 if (!op || !op->name) 53 return 0; 54 55 while (op->op1 == op1 && op->op2 == op2) 56 { 57 /* Scan through all the formats for the opcode. */ 58 op_index = op->format[i++]; 59 do 60 { 61 f = (struct d30v_format *) &d30v_format_table[op_index]; 62 while (f->form == op_index) 63 { 64 if ((!is_long || f->form >= LONG) && (f->modifier == mod)) 65 { 66 insn->form = f; 67 break; 68 } 69 f++; 70 } 71 if (insn->form) 72 break; 73 } 74 while ((op_index = op->format[i++]) != 0); 75 if (insn->form) 76 break; 77 op++; 78 i = 0; 79 } 80 if (insn->form == NULL) 81 return 0; 82 83 insn->op = op; 84 insn->ecc = (num >> 28) & 0x7; 85 if (op->format[1]) 86 return 2; 87 else 88 return 1; 89 } 90 91 static int 92 extract_value (long long num, struct d30v_operand *oper, int is_long) 93 { 94 int val; 95 int shift = 12 - oper->position; 96 int mask = (0xFFFFFFFF >> (32 - oper->bits)); 97 98 if (is_long) 99 { 100 if (oper->bits == 32) 101 /* Piece together 32-bit constant. */ 102 val = ((num & 0x3FFFF) 103 | ((num & 0xFF00000) >> 2) 104 | ((num & 0x3F00000000LL) >> 6)); 105 else 106 val = (num >> (32 + shift)) & mask; 107 } 108 else 109 val = (num >> shift) & mask; 110 111 if (oper->flags & OPERAND_SHIFT) 112 val <<= 3; 113 114 return val; 115 } 116 117 static void 118 print_insn (struct disassemble_info *info, 119 bfd_vma memaddr, 120 long long num, 121 struct d30v_insn *insn, 122 int is_long, 123 int show_ext) 124 { 125 int val, opnum, need_comma = 0; 126 struct d30v_operand *oper; 127 int i, match, opind = 0, need_paren = 0, found_control = 0; 128 129 (*info->fprintf_func) (info->stream, "%s", insn->op->name); 130 131 /* Check for CMP or CMPU. */ 132 if (d30v_operand_table[insn->form->operands[0]].flags & OPERAND_NAME) 133 { 134 opind++; 135 val = 136 extract_value (num, 137 (struct d30v_operand *) &d30v_operand_table[insn->form->operands[0]], 138 is_long); 139 (*info->fprintf_func) (info->stream, "%s", d30v_cc_names[val]); 140 } 141 142 /* Add in ".s" or ".l". */ 143 if (show_ext == 2) 144 { 145 if (is_long) 146 (*info->fprintf_func) (info->stream, ".l"); 147 else 148 (*info->fprintf_func) (info->stream, ".s"); 149 } 150 151 if (insn->ecc) 152 (*info->fprintf_func) (info->stream, "/%s", d30v_ecc_names[insn->ecc]); 153 154 (*info->fprintf_func) (info->stream, "\t"); 155 156 while ((opnum = insn->form->operands[opind++]) != 0) 157 { 158 int bits; 159 160 oper = (struct d30v_operand *) &d30v_operand_table[opnum]; 161 bits = oper->bits; 162 if (oper->flags & OPERAND_SHIFT) 163 bits += 3; 164 165 if (need_comma 166 && oper->flags != OPERAND_PLUS 167 && oper->flags != OPERAND_MINUS) 168 { 169 need_comma = 0; 170 (*info->fprintf_func) (info->stream, ", "); 171 } 172 173 if (oper->flags == OPERAND_ATMINUS) 174 { 175 (*info->fprintf_func) (info->stream, "@-"); 176 continue; 177 } 178 if (oper->flags == OPERAND_MINUS) 179 { 180 (*info->fprintf_func) (info->stream, "-"); 181 continue; 182 } 183 if (oper->flags == OPERAND_PLUS) 184 { 185 (*info->fprintf_func) (info->stream, "+"); 186 continue; 187 } 188 if (oper->flags == OPERAND_ATSIGN) 189 { 190 (*info->fprintf_func) (info->stream, "@"); 191 continue; 192 } 193 if (oper->flags == OPERAND_ATPAR) 194 { 195 (*info->fprintf_func) (info->stream, "@("); 196 need_paren = 1; 197 continue; 198 } 199 200 if (oper->flags == OPERAND_SPECIAL) 201 continue; 202 203 val = extract_value (num, oper, is_long); 204 205 if (oper->flags & OPERAND_REG) 206 { 207 match = 0; 208 if (oper->flags & OPERAND_CONTROL) 209 { 210 struct d30v_operand *oper3 = 211 (struct d30v_operand *) &d30v_operand_table[insn->form->operands[2]]; 212 int id = extract_value (num, oper3, is_long); 213 214 found_control = 1; 215 switch (id) 216 { 217 case 0: 218 val |= OPERAND_CONTROL; 219 break; 220 case 1: 221 case 2: 222 val = OPERAND_CONTROL + MAX_CONTROL_REG + id; 223 break; 224 case 3: 225 val |= OPERAND_FLAG; 226 break; 227 default: 228 /* xgettext: c-format */ 229 opcodes_error_handler (_("illegal id (%d)"), id); 230 abort (); 231 } 232 } 233 else if (oper->flags & OPERAND_ACC) 234 val |= OPERAND_ACC; 235 else if (oper->flags & OPERAND_FLAG) 236 val |= OPERAND_FLAG; 237 for (i = 0; i < reg_name_cnt (); i++) 238 { 239 if (val == pre_defined_registers[i].value) 240 { 241 if (pre_defined_registers[i].pname) 242 (*info->fprintf_func) 243 (info->stream, "%s", pre_defined_registers[i].pname); 244 else 245 (*info->fprintf_func) 246 (info->stream, "%s", pre_defined_registers[i].name); 247 match = 1; 248 break; 249 } 250 } 251 if (match == 0) 252 { 253 /* This would only get executed if a register was not in 254 the register table. */ 255 (*info->fprintf_func) 256 (info->stream, _("<unknown register %d>"), val & 0x3F); 257 } 258 } 259 /* repeati has a relocation, but its first argument is a plain 260 immediate. OTOH instructions like djsri have a pc-relative 261 delay target, but an absolute jump target. Therefore, a test 262 of insn->op->reloc_flag is not specific enough; we must test 263 if the actual operand we are handling now is pc-relative. */ 264 else if (oper->flags & OPERAND_PCREL) 265 { 266 int neg = 0; 267 268 /* IMM6S3 is unsigned. */ 269 if (oper->flags & OPERAND_SIGNED || bits == 32) 270 { 271 long max; 272 max = (1 << (bits - 1)); 273 if (val & max) 274 { 275 if (bits == 32) 276 val = -val; 277 else 278 val = -val & ((1 << bits) - 1); 279 neg = 1; 280 } 281 } 282 if (neg) 283 { 284 (*info->fprintf_func) (info->stream, "-%x\t(", val); 285 (*info->print_address_func) ((memaddr - val) & PC_MASK, info); 286 (*info->fprintf_func) (info->stream, ")"); 287 } 288 else 289 { 290 (*info->fprintf_func) (info->stream, "%x\t(", val); 291 (*info->print_address_func) ((memaddr + val) & PC_MASK, info); 292 (*info->fprintf_func) (info->stream, ")"); 293 } 294 } 295 else if (insn->op->reloc_flag == RELOC_ABS) 296 { 297 (*info->print_address_func) (val, info); 298 } 299 else 300 { 301 if (oper->flags & OPERAND_SIGNED) 302 { 303 int max = (1 << (bits - 1)); 304 305 if (val & max) 306 { 307 val = -val; 308 if (bits < 32) 309 val &= ((1 << bits) - 1); 310 (*info->fprintf_func) (info->stream, "-"); 311 } 312 } 313 (*info->fprintf_func) (info->stream, "0x%x", val); 314 } 315 /* If there is another operand, then write a comma and space. */ 316 if (insn->form->operands[opind] && !(found_control && opind == 2)) 317 need_comma = 1; 318 } 319 if (need_paren) 320 (*info->fprintf_func) (info->stream, ")"); 321 } 322 323 int 324 print_insn_d30v (bfd_vma memaddr, struct disassemble_info *info) 325 { 326 int status, result; 327 bfd_byte buffer[12]; 328 unsigned long in1, in2; 329 struct d30v_insn insn; 330 long long num; 331 332 insn.form = NULL; 333 334 info->bytes_per_line = 8; 335 info->bytes_per_chunk = 4; 336 info->display_endian = BFD_ENDIAN_BIG; 337 338 status = (*info->read_memory_func) (memaddr, buffer, 4, info); 339 if (status != 0) 340 { 341 (*info->memory_error_func) (status, memaddr, info); 342 return -1; 343 } 344 in1 = bfd_getb32 (buffer); 345 346 status = (*info->read_memory_func) (memaddr + 4, buffer, 4, info); 347 if (status != 0) 348 { 349 info->bytes_per_line = 8; 350 if (!(result = lookup_opcode (&insn, in1, 0))) 351 (*info->fprintf_func) (info->stream, ".long\t0x%lx", in1); 352 else 353 print_insn (info, memaddr, (long long) in1, &insn, 0, result); 354 return 4; 355 } 356 in2 = bfd_getb32 (buffer); 357 358 if (in1 & in2 & FM01) 359 { 360 /* LONG instruction. */ 361 if (!(result = lookup_opcode (&insn, in1, 1))) 362 { 363 (*info->fprintf_func) (info->stream, ".long\t0x%lx,0x%lx", in1, in2); 364 return 8; 365 } 366 num = (long long) in1 << 32 | in2; 367 print_insn (info, memaddr, num, &insn, 1, result); 368 } 369 else 370 { 371 num = in1; 372 if (!(result = lookup_opcode (&insn, in1, 0))) 373 (*info->fprintf_func) (info->stream, ".long\t0x%lx", in1); 374 else 375 print_insn (info, memaddr, num, &insn, 0, result); 376 377 switch (((in1 >> 31) << 1) | (in2 >> 31)) 378 { 379 case 0: 380 (*info->fprintf_func) (info->stream, "\t||\t"); 381 break; 382 case 1: 383 (*info->fprintf_func) (info->stream, "\t->\t"); 384 break; 385 case 2: 386 (*info->fprintf_func) (info->stream, "\t<-\t"); 387 default: 388 break; 389 } 390 391 insn.form = NULL; 392 num = in2; 393 if (!(result = lookup_opcode (&insn, in2, 0))) 394 (*info->fprintf_func) (info->stream, ".long\t0x%lx", in2); 395 else 396 print_insn (info, memaddr, num, &insn, 0, result); 397 } 398 return 8; 399 } 400