1 /* Disassembler interface for targets using CGEN. -*- C -*- 2 CGEN: Cpu tools GENerator 3 4 THIS FILE IS MACHINE GENERATED WITH CGEN. 5 - the resultant file is machine generated, cgen-dis.in isn't 6 7 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002 8 Free Software Foundation, Inc. 9 10 This file is part of the GNU Binutils and GDB, the GNU debugger. 11 12 This program is free software; you can redistribute it and/or modify 13 it under the terms of the GNU General Public License as published by 14 the Free Software Foundation; either version 2, or (at your option) 15 any later version. 16 17 This program is distributed in the hope that it will be useful, 18 but WITHOUT ANY WARRANTY; without even the implied warranty of 19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20 GNU General Public License for more details. 21 22 You should have received a copy of the GNU General Public License 23 along with this program; if not, write to the Free Software Foundation, Inc., 24 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ 25 26 /* ??? Eventually more and more of this stuff can go to cpu-independent files. 27 Keep that in mind. */ 28 29 #include "sysdep.h" 30 #include <stdio.h> 31 #include "ansidecl.h" 32 #include "dis-asm.h" 33 #include "bfd.h" 34 #include "symcat.h" 35 #include "libiberty.h" 36 #include "ip2k-desc.h" 37 #include "ip2k-opc.h" 38 #include "opintl.h" 39 40 /* Default text to print if an instruction isn't recognized. */ 41 #define UNKNOWN_INSN_MSG _("*unknown*") 42 43 static void print_normal 44 (CGEN_CPU_DESC, void *, long, unsigned int, bfd_vma, int); 45 static void print_address 46 (CGEN_CPU_DESC, void *, bfd_vma, unsigned int, bfd_vma, int); 47 static void print_keyword 48 (CGEN_CPU_DESC, void *, CGEN_KEYWORD *, long, unsigned int); 49 static void print_insn_normal 50 (CGEN_CPU_DESC, void *, const CGEN_INSN *, CGEN_FIELDS *, bfd_vma, int); 51 static int print_insn 52 (CGEN_CPU_DESC, bfd_vma, disassemble_info *, char *, unsigned); 53 static int default_print_insn 54 (CGEN_CPU_DESC, bfd_vma, disassemble_info *); 55 static int read_insn 56 (CGEN_CPU_DESC, bfd_vma, disassemble_info *, char *, int, CGEN_EXTRACT_INFO *, 57 unsigned long *); 58 59 /* -- disassembler routines inserted here */ 60 61 /* -- dis.c */ 62 63 #define PRINT_FUNC_DECL(name) \ 64 static void name PARAMS ((CGEN_CPU_DESC, PTR, long, unsigned int, bfd_vma, int)) 65 66 PRINT_FUNC_DECL (print_fr); 67 PRINT_FUNC_DECL (print_dollarhex); 68 PRINT_FUNC_DECL (print_dollarhex8); 69 PRINT_FUNC_DECL (print_dollarhex16); 70 PRINT_FUNC_DECL (print_dollarhex_addr16h); 71 PRINT_FUNC_DECL (print_dollarhex_addr16l); 72 PRINT_FUNC_DECL (print_dollarhex_p); 73 PRINT_FUNC_DECL (print_dollarhex_cj); 74 PRINT_FUNC_DECL (print_decimal); 75 76 static void 77 print_fr (cd, dis_info, value, attrs, pc, length) 78 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 79 PTR dis_info; 80 long value; 81 unsigned int attrs ATTRIBUTE_UNUSED; 82 bfd_vma pc ATTRIBUTE_UNUSED; 83 int length ATTRIBUTE_UNUSED; 84 { 85 disassemble_info *info = (disassemble_info *) dis_info; 86 const CGEN_KEYWORD_ENTRY *ke; 87 extern CGEN_KEYWORD ip2k_cgen_opval_register_names; 88 long offsettest; 89 long offsetvalue; 90 91 if ( value == 0 ) /* This is (IP) */ 92 { 93 (*info->fprintf_func) (info->stream, "%s", "(IP)"); 94 return; 95 } 96 97 offsettest = value >> 7; 98 offsetvalue = value & 0x7F; 99 100 /* Check to see if first two bits are 10 -> (DP) */ 101 if ( offsettest == 2 ) 102 { 103 if ( offsetvalue == 0 ) 104 (*info->fprintf_func) (info->stream, "%s","(DP)"); 105 else 106 (*info->fprintf_func) (info->stream, "$%x%s",offsetvalue, "(DP)"); 107 return; 108 } 109 110 /* Check to see if first two bits are 11 -> (SP) */ 111 if ( offsettest == 3 ) 112 { 113 if ( offsetvalue == 0 ) 114 (*info->fprintf_func) (info->stream, "%s", "(SP)"); 115 else 116 (*info->fprintf_func) (info->stream, "$%x%s", offsetvalue,"(SP)"); 117 return; 118 } 119 120 /* Attempt to print as a register keyword. */ 121 ke = cgen_keyword_lookup_value (& ip2k_cgen_opval_register_names, value); 122 if (ke != NULL) 123 { 124 (*info->fprintf_func) (info->stream, "%s", ke->name); 125 return; 126 } 127 128 /* Print as an address literal. */ 129 (*info->fprintf_func) (info->stream, "$%02x", value); 130 } 131 132 static void 133 print_dollarhex (cd, dis_info, value, attrs, pc, length) 134 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 135 PTR dis_info; 136 long value; 137 unsigned int attrs ATTRIBUTE_UNUSED; 138 bfd_vma pc ATTRIBUTE_UNUSED; 139 int length ATTRIBUTE_UNUSED; 140 { 141 disassemble_info *info = (disassemble_info *) dis_info; 142 143 (*info->fprintf_func) (info->stream, "$%x", value); 144 } 145 146 static void 147 print_dollarhex8 (cd, dis_info, value, attrs, pc, length) 148 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 149 PTR dis_info; 150 long value; 151 unsigned int attrs ATTRIBUTE_UNUSED; 152 bfd_vma pc ATTRIBUTE_UNUSED; 153 int length ATTRIBUTE_UNUSED; 154 { 155 disassemble_info *info = (disassemble_info *) dis_info; 156 157 (*info->fprintf_func) (info->stream, "$%02x", value); 158 } 159 160 static void 161 print_dollarhex16 (cd, dis_info, value, attrs, pc, length) 162 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 163 PTR dis_info; 164 long value; 165 unsigned int attrs ATTRIBUTE_UNUSED; 166 bfd_vma pc ATTRIBUTE_UNUSED; 167 int length ATTRIBUTE_UNUSED; 168 { 169 disassemble_info *info = (disassemble_info *) dis_info; 170 171 (*info->fprintf_func) (info->stream, "$%04x", value); 172 } 173 174 static void 175 print_dollarhex_addr16h (cd, dis_info, value, attrs, pc, length) 176 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 177 PTR dis_info; 178 long value; 179 unsigned int attrs ATTRIBUTE_UNUSED; 180 bfd_vma pc ATTRIBUTE_UNUSED; 181 int length ATTRIBUTE_UNUSED; 182 { 183 disassemble_info *info = (disassemble_info *) dis_info; 184 185 /* This is a loadh instruction. Shift the value to the left */ 186 /* by 8 bits so that disassembled code will reassemble properly. */ 187 value = ((value << 8) & 0xFF00); 188 189 (*info->fprintf_func) (info->stream, "$%04x", value); 190 } 191 192 static void 193 print_dollarhex_addr16l (cd, dis_info, value, attrs, pc, length) 194 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 195 PTR dis_info; 196 long value; 197 unsigned int attrs ATTRIBUTE_UNUSED; 198 bfd_vma pc ATTRIBUTE_UNUSED; 199 int length ATTRIBUTE_UNUSED; 200 { 201 disassemble_info *info = (disassemble_info *) dis_info; 202 203 (*info->fprintf_func) (info->stream, "$%04x", value); 204 } 205 206 static void 207 print_dollarhex_p (cd, dis_info, value, attrs, pc, length) 208 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 209 PTR dis_info; 210 long value; 211 unsigned int attrs ATTRIBUTE_UNUSED; 212 bfd_vma pc ATTRIBUTE_UNUSED; 213 int length ATTRIBUTE_UNUSED; 214 { 215 disassemble_info *info = (disassemble_info *) dis_info; 216 217 value = ((value << 14) & 0x1C000); 218 ;value = (value & 0x1FFFF); 219 (*info->fprintf_func) (info->stream, "$%05x", value); 220 } 221 222 static void 223 print_dollarhex_cj (cd, dis_info, value, attrs, pc, length) 224 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 225 PTR dis_info; 226 long value; 227 unsigned int attrs ATTRIBUTE_UNUSED; 228 bfd_vma pc ATTRIBUTE_UNUSED; 229 int length ATTRIBUTE_UNUSED; 230 { 231 disassemble_info *info = (disassemble_info *) dis_info; 232 233 value = ((value << 1) & 0x1FFFF); 234 (*info->fprintf_func) (info->stream, "$%05x", value); 235 } 236 237 238 static void 239 print_decimal (cd, dis_info, value, attrs, pc, length) 240 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED; 241 PTR dis_info; 242 long value; 243 unsigned int attrs ATTRIBUTE_UNUSED; 244 bfd_vma pc ATTRIBUTE_UNUSED; 245 int length ATTRIBUTE_UNUSED; 246 { 247 disassemble_info *info = (disassemble_info *) dis_info; 248 249 (*info->fprintf_func) (info->stream, "%d", value); 250 } 251 252 253 254 /* -- */ 255 256 void ip2k_cgen_print_operand 257 PARAMS ((CGEN_CPU_DESC, int, PTR, CGEN_FIELDS *, 258 void const *, bfd_vma, int)); 259 260 /* Main entry point for printing operands. 261 XINFO is a `void *' and not a `disassemble_info *' to not put a requirement 262 of dis-asm.h on cgen.h. 263 264 This function is basically just a big switch statement. Earlier versions 265 used tables to look up the function to use, but 266 - if the table contains both assembler and disassembler functions then 267 the disassembler contains much of the assembler and vice-versa, 268 - there's a lot of inlining possibilities as things grow, 269 - using a switch statement avoids the function call overhead. 270 271 This function could be moved into `print_insn_normal', but keeping it 272 separate makes clear the interface between `print_insn_normal' and each of 273 the handlers. */ 274 275 void 276 ip2k_cgen_print_operand (cd, opindex, xinfo, fields, attrs, pc, length) 277 CGEN_CPU_DESC cd; 278 int opindex; 279 PTR xinfo; 280 CGEN_FIELDS *fields; 281 void const *attrs ATTRIBUTE_UNUSED; 282 bfd_vma pc; 283 int length; 284 { 285 disassemble_info *info = (disassemble_info *) xinfo; 286 287 switch (opindex) 288 { 289 case IP2K_OPERAND_ADDR16CJP : 290 print_dollarhex_cj (cd, info, fields->f_addr16cjp, 0|(1<<CGEN_OPERAND_ABS_ADDR), pc, length); 291 break; 292 case IP2K_OPERAND_ADDR16H : 293 print_dollarhex_addr16h (cd, info, fields->f_imm8, 0, pc, length); 294 break; 295 case IP2K_OPERAND_ADDR16L : 296 print_dollarhex_addr16l (cd, info, fields->f_imm8, 0, pc, length); 297 break; 298 case IP2K_OPERAND_ADDR16P : 299 print_dollarhex_p (cd, info, fields->f_page3, 0, pc, length); 300 break; 301 case IP2K_OPERAND_BITNO : 302 print_decimal (cd, info, fields->f_bitno, 0, pc, length); 303 break; 304 case IP2K_OPERAND_CBIT : 305 print_normal (cd, info, 0, 0, pc, length); 306 break; 307 case IP2K_OPERAND_DCBIT : 308 print_normal (cd, info, 0, 0, pc, length); 309 break; 310 case IP2K_OPERAND_FR : 311 print_fr (cd, info, fields->f_reg, 0|(1<<CGEN_OPERAND_ABS_ADDR), pc, length); 312 break; 313 case IP2K_OPERAND_LIT8 : 314 print_dollarhex8 (cd, info, fields->f_imm8, 0|(1<<CGEN_OPERAND_SIGNED), pc, length); 315 break; 316 case IP2K_OPERAND_PABITS : 317 print_normal (cd, info, 0, 0, pc, length); 318 break; 319 case IP2K_OPERAND_RETI3 : 320 print_dollarhex (cd, info, fields->f_reti3, 0, pc, length); 321 break; 322 case IP2K_OPERAND_ZBIT : 323 print_normal (cd, info, 0, 0, pc, length); 324 break; 325 326 default : 327 /* xgettext:c-format */ 328 fprintf (stderr, _("Unrecognized field %d while printing insn.\n"), 329 opindex); 330 abort (); 331 } 332 } 333 334 cgen_print_fn * const ip2k_cgen_print_handlers[] = 335 { 336 print_insn_normal, 337 }; 338 339 340 void 341 ip2k_cgen_init_dis (cd) 342 CGEN_CPU_DESC cd; 343 { 344 ip2k_cgen_init_opcode_table (cd); 345 ip2k_cgen_init_ibld_table (cd); 346 cd->print_handlers = & ip2k_cgen_print_handlers[0]; 347 cd->print_operand = ip2k_cgen_print_operand; 348 } 349 350 351 /* Default print handler. */ 352 353 static void 354 print_normal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, 355 void *dis_info, 356 long value, 357 unsigned int attrs, 358 bfd_vma pc ATTRIBUTE_UNUSED, 359 int length ATTRIBUTE_UNUSED) 360 { 361 disassemble_info *info = (disassemble_info *) dis_info; 362 363 #ifdef CGEN_PRINT_NORMAL 364 CGEN_PRINT_NORMAL (cd, info, value, attrs, pc, length); 365 #endif 366 367 /* Print the operand as directed by the attributes. */ 368 if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY)) 369 ; /* nothing to do */ 370 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED)) 371 (*info->fprintf_func) (info->stream, "%ld", value); 372 else 373 (*info->fprintf_func) (info->stream, "0x%lx", value); 374 } 375 376 /* Default address handler. */ 377 378 static void 379 print_address (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, 380 void *dis_info, 381 bfd_vma value, 382 unsigned int attrs, 383 bfd_vma pc ATTRIBUTE_UNUSED, 384 int length ATTRIBUTE_UNUSED) 385 { 386 disassemble_info *info = (disassemble_info *) dis_info; 387 388 #ifdef CGEN_PRINT_ADDRESS 389 CGEN_PRINT_ADDRESS (cd, info, value, attrs, pc, length); 390 #endif 391 392 /* Print the operand as directed by the attributes. */ 393 if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY)) 394 ; /* nothing to do */ 395 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_PCREL_ADDR)) 396 (*info->print_address_func) (value, info); 397 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_ABS_ADDR)) 398 (*info->print_address_func) (value, info); 399 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED)) 400 (*info->fprintf_func) (info->stream, "%ld", (long) value); 401 else 402 (*info->fprintf_func) (info->stream, "0x%lx", (long) value); 403 } 404 405 /* Keyword print handler. */ 406 407 static void 408 print_keyword (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, 409 void *dis_info, 410 CGEN_KEYWORD *keyword_table, 411 long value, 412 unsigned int attrs ATTRIBUTE_UNUSED) 413 { 414 disassemble_info *info = (disassemble_info *) dis_info; 415 const CGEN_KEYWORD_ENTRY *ke; 416 417 ke = cgen_keyword_lookup_value (keyword_table, value); 418 if (ke != NULL) 419 (*info->fprintf_func) (info->stream, "%s", ke->name); 420 else 421 (*info->fprintf_func) (info->stream, "???"); 422 } 423 424 /* Default insn printer. 425 426 DIS_INFO is defined as `void *' so the disassembler needn't know anything 427 about disassemble_info. */ 428 429 static void 430 print_insn_normal (CGEN_CPU_DESC cd, 431 void *dis_info, 432 const CGEN_INSN *insn, 433 CGEN_FIELDS *fields, 434 bfd_vma pc, 435 int length) 436 { 437 const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn); 438 disassemble_info *info = (disassemble_info *) dis_info; 439 const CGEN_SYNTAX_CHAR_TYPE *syn; 440 441 CGEN_INIT_PRINT (cd); 442 443 for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn) 444 { 445 if (CGEN_SYNTAX_MNEMONIC_P (*syn)) 446 { 447 (*info->fprintf_func) (info->stream, "%s", CGEN_INSN_MNEMONIC (insn)); 448 continue; 449 } 450 if (CGEN_SYNTAX_CHAR_P (*syn)) 451 { 452 (*info->fprintf_func) (info->stream, "%c", CGEN_SYNTAX_CHAR (*syn)); 453 continue; 454 } 455 456 /* We have an operand. */ 457 ip2k_cgen_print_operand (cd, CGEN_SYNTAX_FIELD (*syn), info, 458 fields, CGEN_INSN_ATTRS (insn), pc, length); 459 } 460 } 461 462 /* Subroutine of print_insn. Reads an insn into the given buffers and updates 463 the extract info. 464 Returns 0 if all is well, non-zero otherwise. */ 465 466 static int 467 read_insn (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, 468 bfd_vma pc, 469 disassemble_info *info, 470 char *buf, 471 int buflen, 472 CGEN_EXTRACT_INFO *ex_info, 473 unsigned long *insn_value) 474 { 475 int status = (*info->read_memory_func) (pc, buf, buflen, info); 476 if (status != 0) 477 { 478 (*info->memory_error_func) (status, pc, info); 479 return -1; 480 } 481 482 ex_info->dis_info = info; 483 ex_info->valid = (1 << buflen) - 1; 484 ex_info->insn_bytes = buf; 485 486 *insn_value = bfd_get_bits (buf, buflen * 8, info->endian == BFD_ENDIAN_BIG); 487 return 0; 488 } 489 490 /* Utility to print an insn. 491 BUF is the base part of the insn, target byte order, BUFLEN bytes long. 492 The result is the size of the insn in bytes or zero for an unknown insn 493 or -1 if an error occurs fetching data (memory_error_func will have 494 been called). */ 495 496 static int 497 print_insn (CGEN_CPU_DESC cd, 498 bfd_vma pc, 499 disassemble_info *info, 500 char *buf, 501 unsigned int buflen) 502 { 503 CGEN_INSN_INT insn_value; 504 const CGEN_INSN_LIST *insn_list; 505 CGEN_EXTRACT_INFO ex_info; 506 int basesize; 507 508 /* Extract base part of instruction, just in case CGEN_DIS_* uses it. */ 509 basesize = cd->base_insn_bitsize < buflen * 8 ? 510 cd->base_insn_bitsize : buflen * 8; 511 insn_value = cgen_get_insn_value (cd, buf, basesize); 512 513 514 /* Fill in ex_info fields like read_insn would. Don't actually call 515 read_insn, since the incoming buffer is already read (and possibly 516 modified a la m32r). */ 517 ex_info.valid = (1 << buflen) - 1; 518 ex_info.dis_info = info; 519 ex_info.insn_bytes = buf; 520 521 /* The instructions are stored in hash lists. 522 Pick the first one and keep trying until we find the right one. */ 523 524 insn_list = CGEN_DIS_LOOKUP_INSN (cd, buf, insn_value); 525 while (insn_list != NULL) 526 { 527 const CGEN_INSN *insn = insn_list->insn; 528 CGEN_FIELDS fields; 529 int length; 530 unsigned long insn_value_cropped; 531 532 #ifdef CGEN_VALIDATE_INSN_SUPPORTED 533 /* Not needed as insn shouldn't be in hash lists if not supported. */ 534 /* Supported by this cpu? */ 535 if (! ip2k_cgen_insn_supported (cd, insn)) 536 { 537 insn_list = CGEN_DIS_NEXT_INSN (insn_list); 538 continue; 539 } 540 #endif 541 542 /* Basic bit mask must be correct. */ 543 /* ??? May wish to allow target to defer this check until the extract 544 handler. */ 545 546 /* Base size may exceed this instruction's size. Extract the 547 relevant part from the buffer. */ 548 if ((unsigned) (CGEN_INSN_BITSIZE (insn) / 8) < buflen && 549 (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long)) 550 insn_value_cropped = bfd_get_bits (buf, CGEN_INSN_BITSIZE (insn), 551 info->endian == BFD_ENDIAN_BIG); 552 else 553 insn_value_cropped = insn_value; 554 555 if ((insn_value_cropped & CGEN_INSN_BASE_MASK (insn)) 556 == CGEN_INSN_BASE_VALUE (insn)) 557 { 558 /* Printing is handled in two passes. The first pass parses the 559 machine insn and extracts the fields. The second pass prints 560 them. */ 561 562 /* Make sure the entire insn is loaded into insn_value, if it 563 can fit. */ 564 if (((unsigned) CGEN_INSN_BITSIZE (insn) > cd->base_insn_bitsize) && 565 (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long)) 566 { 567 unsigned long full_insn_value; 568 int rc = read_insn (cd, pc, info, buf, 569 CGEN_INSN_BITSIZE (insn) / 8, 570 & ex_info, & full_insn_value); 571 if (rc != 0) 572 return rc; 573 length = CGEN_EXTRACT_FN (cd, insn) 574 (cd, insn, &ex_info, full_insn_value, &fields, pc); 575 } 576 else 577 length = CGEN_EXTRACT_FN (cd, insn) 578 (cd, insn, &ex_info, insn_value_cropped, &fields, pc); 579 580 /* length < 0 -> error */ 581 if (length < 0) 582 return length; 583 if (length > 0) 584 { 585 CGEN_PRINT_FN (cd, insn) (cd, info, insn, &fields, pc, length); 586 /* length is in bits, result is in bytes */ 587 return length / 8; 588 } 589 } 590 591 insn_list = CGEN_DIS_NEXT_INSN (insn_list); 592 } 593 594 return 0; 595 } 596 597 /* Default value for CGEN_PRINT_INSN. 598 The result is the size of the insn in bytes or zero for an unknown insn 599 or -1 if an error occured fetching bytes. */ 600 601 #ifndef CGEN_PRINT_INSN 602 #define CGEN_PRINT_INSN default_print_insn 603 #endif 604 605 static int 606 default_print_insn (CGEN_CPU_DESC cd, bfd_vma pc, disassemble_info *info) 607 { 608 char buf[CGEN_MAX_INSN_SIZE]; 609 int buflen; 610 int status; 611 612 /* Attempt to read the base part of the insn. */ 613 buflen = cd->base_insn_bitsize / 8; 614 status = (*info->read_memory_func) (pc, buf, buflen, info); 615 616 /* Try again with the minimum part, if min < base. */ 617 if (status != 0 && (cd->min_insn_bitsize < cd->base_insn_bitsize)) 618 { 619 buflen = cd->min_insn_bitsize / 8; 620 status = (*info->read_memory_func) (pc, buf, buflen, info); 621 } 622 623 if (status != 0) 624 { 625 (*info->memory_error_func) (status, pc, info); 626 return -1; 627 } 628 629 return print_insn (cd, pc, info, buf, buflen); 630 } 631 632 /* Main entry point. 633 Print one instruction from PC on INFO->STREAM. 634 Return the size of the instruction (in bytes). */ 635 636 typedef struct cpu_desc_list { 637 struct cpu_desc_list *next; 638 int isa; 639 int mach; 640 int endian; 641 CGEN_CPU_DESC cd; 642 } cpu_desc_list; 643 644 int 645 print_insn_ip2k (bfd_vma pc, disassemble_info *info) 646 { 647 static cpu_desc_list *cd_list = 0; 648 cpu_desc_list *cl = 0; 649 static CGEN_CPU_DESC cd = 0; 650 static int prev_isa; 651 static int prev_mach; 652 static int prev_endian; 653 int length; 654 int isa,mach; 655 int endian = (info->endian == BFD_ENDIAN_BIG 656 ? CGEN_ENDIAN_BIG 657 : CGEN_ENDIAN_LITTLE); 658 enum bfd_architecture arch; 659 660 /* ??? gdb will set mach but leave the architecture as "unknown" */ 661 #ifndef CGEN_BFD_ARCH 662 #define CGEN_BFD_ARCH bfd_arch_ip2k 663 #endif 664 arch = info->arch; 665 if (arch == bfd_arch_unknown) 666 arch = CGEN_BFD_ARCH; 667 668 /* There's no standard way to compute the machine or isa number 669 so we leave it to the target. */ 670 #ifdef CGEN_COMPUTE_MACH 671 mach = CGEN_COMPUTE_MACH (info); 672 #else 673 mach = info->mach; 674 #endif 675 676 #ifdef CGEN_COMPUTE_ISA 677 isa = CGEN_COMPUTE_ISA (info); 678 #else 679 isa = info->insn_sets; 680 #endif 681 682 /* If we've switched cpu's, try to find a handle we've used before */ 683 if (cd 684 && (isa != prev_isa 685 || mach != prev_mach 686 || endian != prev_endian)) 687 { 688 cd = 0; 689 for (cl = cd_list; cl; cl = cl->next) 690 { 691 if (cl->isa == isa && 692 cl->mach == mach && 693 cl->endian == endian) 694 { 695 cd = cl->cd; 696 break; 697 } 698 } 699 } 700 701 /* If we haven't initialized yet, initialize the opcode table. */ 702 if (! cd) 703 { 704 const bfd_arch_info_type *arch_type = bfd_lookup_arch (arch, mach); 705 const char *mach_name; 706 707 if (!arch_type) 708 abort (); 709 mach_name = arch_type->printable_name; 710 711 prev_isa = isa; 712 prev_mach = mach; 713 prev_endian = endian; 714 cd = ip2k_cgen_cpu_open (CGEN_CPU_OPEN_ISAS, prev_isa, 715 CGEN_CPU_OPEN_BFDMACH, mach_name, 716 CGEN_CPU_OPEN_ENDIAN, prev_endian, 717 CGEN_CPU_OPEN_END); 718 if (!cd) 719 abort (); 720 721 /* save this away for future reference */ 722 cl = xmalloc (sizeof (struct cpu_desc_list)); 723 cl->cd = cd; 724 cl->isa = isa; 725 cl->mach = mach; 726 cl->endian = endian; 727 cl->next = cd_list; 728 cd_list = cl; 729 730 ip2k_cgen_init_dis (cd); 731 } 732 733 /* We try to have as much common code as possible. 734 But at this point some targets need to take over. */ 735 /* ??? Some targets may need a hook elsewhere. Try to avoid this, 736 but if not possible try to move this hook elsewhere rather than 737 have two hooks. */ 738 length = CGEN_PRINT_INSN (cd, pc, info); 739 if (length > 0) 740 return length; 741 if (length < 0) 742 return -1; 743 744 (*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG); 745 return cd->default_insn_bitsize / 8; 746 } 747