opcodes/tic4x-dis.c

   1 /* Print instructions for the Texas TMS320C[34]X, for GDB and GNU Binutils.
   2
   3    Copyright 2002, 2003, 2005 Free Software Foundation, Inc.
   4
   5    Contributed by Michael P. Hayes (m.hayes@elec.canterbury.ac.nz)
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #include <math.h>
  23 #include "libiberty.h"
  24 #include "dis-asm.h"
  25 #include "opcode/tic4x.h"
  26
  27 #define TIC4X_DEBUG 0
  28
  29 #define TIC4X_HASH_SIZE   11   /* 11 (bits) and above should give unique entries.  */
  30 #define TIC4X_SPESOP_SIZE 8    /* Max 8. ops for special instructions.  */
  31
  32 typedef enum
  33 {
  34   IMMED_SINT,
  35   IMMED_SUINT,
  36   IMMED_SFLOAT,
  37   IMMED_INT,
  38   IMMED_UINT,
  39   IMMED_FLOAT
  40 }
  41 immed_t;
  42
  43 typedef enum
  44 {
  45   INDIRECT_SHORT,
  46   INDIRECT_LONG,
  47   INDIRECT_TIC4X
  48 }
  49 indirect_t;
  50
  51 static int tic4x_version = 0;
  52 static int tic4x_dp = 0;
  53
  54 static int
  55 tic4x_pc_offset (unsigned int op)
  56 {
  57   /* Determine the PC offset for a C[34]x instruction.
  58      This could be simplified using some boolean algebra
  59      but at the expense of readability.  */
  60   switch (op >> 24)
  61     {
  62     case 0x60:  /* br */
  63     case 0x62:  /* call  (C4x) */
  64     case 0x64:  /* rptb  (C4x) */
  65       return 1;
  66     case 0x61:  /* brd */
  67     case 0x63:  /* laj */
  68     case 0x65:  /* rptbd (C4x) */
  69       return 3;
  70     case 0x66:  /* swi */
  71     case 0x67:
  72       return 0;
  73     default:
  74       break;
  75     }
  76
  77   switch ((op & 0xffe00000) >> 20)
  78     {
  79     case 0x6a0: /* bB */
  80     case 0x720: /* callB */
  81     case 0x740: /* trapB */
  82       return 1;
  83
  84     case 0x6a2: /* bBd */
  85     case 0x6a6: /* bBat */
  86     case 0x6aa: /* bBaf */
  87     case 0x722: /* lajB */
  88     case 0x748: /* latB */
  89     case 0x798: /* rptbd */
  90       return 3;
  91
  92     default:
  93       break;
  94     }
  95
  96   switch ((op & 0xfe200000) >> 20)
  97     {
  98     case 0x6e0: /* dbB */
  99       return 1;
 100
 101     case 0x6e2: /* dbBd */
 102       return 3;
 103
 104     default:
 105       break;
 106     }
 107
 108   return 0;
 109 }
 110
 111 static int
 112 tic4x_print_char (struct disassemble_info * info, char ch)
 113 {
 114   if (info != NULL)
 115     (*info->fprintf_func) (info->stream, "%c", ch);
 116   return 1;
 117 }
 118
 119 static int
 120 tic4x_print_str (struct disassemble_info *info, char *str)
 121 {
 122   if (info != NULL)
 123     (*info->fprintf_func) (info->stream, "%s", str);
 124   return 1;
 125 }
 126
 127 static int
 128 tic4x_print_register (struct disassemble_info *info, unsigned long regno)
 129 {
 130   static tic4x_register_t ** registertable = NULL;
 131   unsigned int i;
 132
 133   if (registertable == NULL)
 134     {
 135       registertable = xmalloc (sizeof (tic4x_register_t *) * REG_TABLE_SIZE);
 136       for (i = 0; i < tic3x_num_registers; i++)
 137         registertable[tic3x_registers[i].regno] = (tic4x_register_t *) (tic3x_registers + i);
 138       if (IS_CPU_TIC4X (tic4x_version))
 139         {
 140           /* Add C4x additional registers, overwriting
 141              any C3x registers if necessary.  */
 142           for (i = 0; i < tic4x_num_registers; i++)
 143             registertable[tic4x_registers[i].regno] =
 144               (tic4x_register_t *)(tic4x_registers + i);
 145         }
 146     }
 147   if ((int) regno > (IS_CPU_TIC4X (tic4x_version) ? TIC4X_REG_MAX : TIC3X_REG_MAX))
 148     return 0;
 149   if (info != NULL)
 150     (*info->fprintf_func) (info->stream, "%s", registertable[regno]->name);
 151   return 1;
 152 }
 153
 154 static int
 155 tic4x_print_addr (struct disassemble_info *info, unsigned long addr)
 156 {
 157   if (info != NULL)
 158     (*info->print_address_func)(addr, info);
 159   return 1;
 160 }
 161
 162 static int
 163 tic4x_print_relative (struct disassemble_info *info,
 164                       unsigned long pc,
 165                       long offset,
 166                       unsigned long opcode)
 167 {
 168   return tic4x_print_addr (info, pc + offset + tic4x_pc_offset (opcode));
 169 }
 170
 171 static int
 172 tic4x_print_direct (struct disassemble_info *info, unsigned long arg)
 173 {
 174   if (info != NULL)
 175     {
 176       (*info->fprintf_func) (info->stream, "@");
 177       tic4x_print_addr (info, arg + (tic4x_dp << 16));
 178     }
 179   return 1;
 180 }
 181 #if 0
 182 /* FIXME: make the floating point stuff not rely on host
 183    floating point arithmetic.  */
 184
 185 static void
 186 tic4x_print_ftoa (unsigned int val, FILE *stream, fprintf_ftype pfunc)
 187 {
 188   int e;
 189   int s;
 190   int f;
 191   double num = 0.0;
 192
 193   e = EXTRS (val, 31, 24);      /* Exponent.  */
 194   if (e != -128)
 195     {
 196       s = EXTRU (val, 23, 23);  /* Sign bit.  */
 197       f = EXTRU (val, 22, 0);   /* Mantissa.  */
 198       if (s)
 199         f += -2 * (1 << 23);
 200       else
 201         f += (1 << 23);
 202       num = f / (double)(1 << 23);
 203       num = ldexp (num, e);
 204     }
 205   (*pfunc)(stream, "%.9g", num);
 206 }
 207 #endif
 208
 209 static int
 210 tic4x_print_immed (struct disassemble_info *info,
 211                    immed_t type,
 212                    unsigned long arg)
 213 {
 214   int s;
 215   int f;
 216   int e;
 217   double num = 0.0;
 218
 219   if (info == NULL)
 220     return 1;
 221   switch (type)
 222     {
 223     case IMMED_SINT:
 224     case IMMED_INT:
 225       (*info->fprintf_func) (info->stream, "%ld", (long) arg);
 226       break;
 227
 228     case IMMED_SUINT:
 229     case IMMED_UINT:
 230       (*info->fprintf_func) (info->stream, "%lu", arg);
 231       break;
 232
 233     case IMMED_SFLOAT:
 234       e = EXTRS (arg, 15, 12);
 235       if (e != -8)
 236         {
 237           s = EXTRU (arg, 11, 11);
 238           f = EXTRU (arg, 10, 0);
 239           if (s)
 240             f += -2 * (1 << 11);
 241           else
 242             f += (1 << 11);
 243           num = f / (double)(1 << 11);
 244           num = ldexp (num, e);
 245         }
 246       (*info->fprintf_func) (info->stream, "%f", num);
 247       break;
 248     case IMMED_FLOAT:
 249       e = EXTRS (arg, 31, 24);
 250       if (e != -128)
 251         {
 252           s = EXTRU (arg, 23, 23);
 253           f = EXTRU (arg, 22, 0);
 254           if (s)
 255             f += -2 * (1 << 23);
 256           else
 257             f += (1 << 23);
 258           num = f / (double)(1 << 23);
 259           num = ldexp (num, e);
 260         }
 261       (*info->fprintf_func) (info->stream, "%f", num);
 262       break;
 263     }
 264   return 1;
 265 }
 266
 267 static int
 268 tic4x_print_cond (struct disassemble_info *info, unsigned int cond)
 269 {
 270   static tic4x_cond_t **condtable = NULL;
 271   unsigned int i;
 272
 273   if (condtable == NULL)
 274     {
 275       condtable = xmalloc (sizeof (tic4x_cond_t *) * 32);
 276       for (i = 0; i < tic4x_num_conds; i++)
 277         condtable[tic4x_conds[i].cond] = (tic4x_cond_t *)(tic4x_conds + i);
 278     }
 279   if (cond > 31 || condtable[cond] == NULL)
 280     return 0;
 281   if (info != NULL)
 282     (*info->fprintf_func) (info->stream, "%s", condtable[cond]->name);
 283   return 1;
 284 }
 285
 286 static int
 287 tic4x_print_indirect (struct disassemble_info *info,
 288                       indirect_t type,
 289                       unsigned long arg)
 290 {
 291   unsigned int aregno;
 292   unsigned int modn;
 293   unsigned int disp;
 294   char *a;
 295
 296   aregno = 0;
 297   modn = 0;
 298   disp = 1;
 299   switch(type)
 300     {
 301     case INDIRECT_TIC4X:                /* *+ARn(disp) */
 302       disp = EXTRU (arg, 7, 3);
 303       aregno = EXTRU (arg, 2, 0) + REG_AR0;
 304       modn = 0;
 305       break;
 306     case INDIRECT_SHORT:
 307       disp = 1;
 308       aregno = EXTRU (arg, 2, 0) + REG_AR0;
 309       modn = EXTRU (arg, 7, 3);
 310       break;
 311     case INDIRECT_LONG:
 312       disp = EXTRU (arg, 7, 0);
 313       aregno = EXTRU (arg, 10, 8) + REG_AR0;
 314       modn = EXTRU (arg, 15, 11);
 315       if (modn > 7 && disp != 0)
 316         return 0;
 317       break;
 318     default:
 319         (*info->fprintf_func)(info->stream, "# internal error: Unknown indirect type %d", type);
 320         return 0;
 321     }
 322   if (modn > TIC3X_MODN_MAX)
 323     return 0;
 324   a = tic4x_indirects[modn].name;
 325   while (*a)
 326     {
 327       switch (*a)
 328         {
 329         case 'a':
 330           tic4x_print_register (info, aregno);
 331           break;
 332         case 'd':
 333           tic4x_print_immed (info, IMMED_UINT, disp);
 334           break;
 335         case 'y':
 336           tic4x_print_str (info, "ir0");
 337           break;
 338         case 'z':
 339           tic4x_print_str (info, "ir1");
 340           break;
 341         default:
 342           tic4x_print_char (info, *a);
 343           break;
 344         }
 345       a++;
 346     }
 347   return 1;
 348 }
 349
 350 static int
 351 tic4x_print_op (struct disassemble_info *info,
 352                 unsigned long instruction,
 353                 tic4x_inst_t *p,
 354                 unsigned long pc)
 355 {
 356   int val;
 357   char *s;
 358   char *parallel = NULL;
 359
 360   /* Print instruction name.  */
 361   s = p->name;
 362   while (*s && parallel == NULL)
 363     {
 364       switch (*s)
 365         {
 366         case 'B':
 367           if (! tic4x_print_cond (info, EXTRU (instruction, 20, 16)))
 368             return 0;
 369           break;
 370         case 'C':
 371           if (! tic4x_print_cond (info, EXTRU (instruction, 27, 23)))
 372             return 0;
 373           break;
 374         case '_':
 375           parallel = s + 1;     /* Skip past `_' in name.  */
 376           break;
 377         default:
 378           tic4x_print_char (info, *s);
 379           break;
 380         }
 381       s++;
 382     }
 383
 384   /* Print arguments.  */
 385   s = p->args;
 386   if (*s)
 387     tic4x_print_char (info, ' ');
 388
 389   while (*s)
 390     {
 391       switch (*s)
 392         {
 393         case '*': /* Indirect 0--15.  */
 394           if (! tic4x_print_indirect (info, INDIRECT_LONG,
 395                                       EXTRU (instruction, 15, 0)))
 396             return 0;
 397           break;
 398
 399         case '#': /* Only used for ldp, ldpk.  */
 400           tic4x_print_immed (info, IMMED_UINT, EXTRU (instruction, 15, 0));
 401           break;
 402
 403         case '@': /* Direct 0--15.  */
 404           tic4x_print_direct (info, EXTRU (instruction, 15, 0));
 405           break;
 406
 407         case 'A': /* Address register 24--22.  */
 408           if (! tic4x_print_register (info, EXTRU (instruction, 24, 22) +
 409                                       REG_AR0))
 410             return 0;
 411           break;
 412
 413         case 'B': /* 24-bit unsigned int immediate br(d)/call/rptb
 414                      address 0--23.  */
 415           if (IS_CPU_TIC4X (tic4x_version))
 416             tic4x_print_relative (info, pc, EXTRS (instruction, 23, 0),
 417                                   p->opcode);
 418           else
 419             tic4x_print_addr (info, EXTRU (instruction, 23, 0));
 420           break;
 421
 422         case 'C': /* Indirect (short C4x) 0--7.  */
 423           if (! IS_CPU_TIC4X (tic4x_version))
 424             return 0;
 425           if (! tic4x_print_indirect (info, INDIRECT_TIC4X,
 426                                       EXTRU (instruction, 7, 0)))
 427             return 0;
 428           break;
 429
 430         case 'D':
 431           /* Cockup if get here...  */
 432           break;
 433
 434         case 'E': /* Register 0--7.  */
 435         case 'e':
 436           if (! tic4x_print_register (info, EXTRU (instruction, 7, 0)))
 437             return 0;
 438           break;
 439
 440         case 'F': /* 16-bit float immediate 0--15.  */
 441           tic4x_print_immed (info, IMMED_SFLOAT,
 442                              EXTRU (instruction, 15, 0));
 443           break;
 444
 445         case 'i': /* Extended indirect 0--7.  */
 446           if (EXTRU (instruction, 7, 5) == 7)
 447             {
 448               if (!tic4x_print_register (info, EXTRU (instruction, 4, 0)))
 449                 return 0;
 450               break;
 451             }
 452           /* Fallthrough */
 453
 454         case 'I': /* Indirect (short) 0--7.  */
 455           if (! tic4x_print_indirect (info, INDIRECT_SHORT,
 456                                       EXTRU (instruction, 7, 0)))
 457             return 0;
 458           break;
 459
 460         case 'j': /* Extended indirect 8--15 */
 461           if (EXTRU (instruction, 15, 13) == 7)
 462             {
 463               if (! tic4x_print_register (info, EXTRU (instruction, 12, 8)))
 464                 return 0;
 465               break;
 466             }
 467
 468         case 'J': /* Indirect (short) 8--15.  */
 469           if (! tic4x_print_indirect (info, INDIRECT_SHORT,
 470                                       EXTRU (instruction, 15, 8)))
 471             return 0;
 472           break;
 473
 474         case 'G': /* Register 8--15.  */
 475         case 'g':
 476           if (! tic4x_print_register (info, EXTRU (instruction, 15, 8)))
 477             return 0;
 478           break;
 479
 480         case 'H': /* Register 16--18.  */
 481           if (! tic4x_print_register (info, EXTRU (instruction, 18, 16)))
 482             return 0;
 483           break;
 484
 485         case 'K': /* Register 19--21.  */
 486           if (! tic4x_print_register (info, EXTRU (instruction, 21, 19)))
 487             return 0;
 488           break;
 489
 490         case 'L': /* Register 22--24.  */
 491           if (! tic4x_print_register (info, EXTRU (instruction, 24, 22)))
 492             return 0;
 493           break;
 494
 495         case 'M': /* Register 22--22.  */
 496           tic4x_print_register (info, EXTRU (instruction, 22, 22) + REG_R2);
 497           break;
 498
 499         case 'N': /* Register 23--23.  */
 500           tic4x_print_register (info, EXTRU (instruction, 23, 23) + REG_R0);
 501           break;
 502
 503         case 'O': /* Indirect (short C4x) 8--15.  */
 504           if (! IS_CPU_TIC4X (tic4x_version))
 505             return 0;
 506           if (! tic4x_print_indirect (info, INDIRECT_TIC4X,
 507                                       EXTRU (instruction, 15, 8)))
 508             return 0;
 509           break;
 510
 511         case 'P': /* Displacement 0--15 (used by Bcond and BcondD).  */
 512           tic4x_print_relative (info, pc, EXTRS (instruction, 15, 0),
 513                                 p->opcode);
 514           break;
 515
 516         case 'Q': /* Register 0--15.  */
 517         case 'q':
 518           if (! tic4x_print_register (info, EXTRU (instruction, 15, 0)))
 519             return 0;
 520           break;
 521
 522         case 'R': /* Register 16--20.  */
 523         case 'r':
 524           if (! tic4x_print_register (info, EXTRU (instruction, 20, 16)))
 525             return 0;
 526           break;
 527
 528         case 'S': /* 16-bit signed immediate 0--15.  */
 529           tic4x_print_immed (info, IMMED_SINT,
 530                              EXTRS (instruction, 15, 0));
 531           break;
 532
 533         case 'T': /* 5-bit signed immediate 16--20  (C4x stik).  */
 534           if (! IS_CPU_TIC4X (tic4x_version))
 535             return 0;
 536           if (! tic4x_print_immed (info, IMMED_SUINT,
 537                                    EXTRU (instruction, 20, 16)))
 538             return 0;
 539           break;
 540
 541         case 'U': /* 16-bit unsigned int immediate 0--15.  */
 542           tic4x_print_immed (info, IMMED_SUINT, EXTRU (instruction, 15, 0));
 543           break;
 544
 545         case 'V': /* 5/9-bit unsigned vector 0--4/8.  */
 546           tic4x_print_immed (info, IMMED_SUINT,
 547                              IS_CPU_TIC4X (tic4x_version) ?
 548                              EXTRU (instruction, 8, 0) :
 549                              EXTRU (instruction, 4, 0) & ~0x20);
 550           break;
 551
 552         case 'W': /* 8-bit signed immediate 0--7.  */
 553           if (! IS_CPU_TIC4X (tic4x_version))
 554             return 0;
 555           tic4x_print_immed (info, IMMED_SINT, EXTRS (instruction, 7, 0));
 556           break;
 557
 558         case 'X': /* Expansion register 4--0.  */
 559           val = EXTRU (instruction, 4, 0) + REG_IVTP;
 560           if (val < REG_IVTP || val > REG_TVTP)
 561             return 0;
 562           if (! tic4x_print_register (info, val))
 563             return 0;
 564           break;
 565
 566         case 'Y': /* Address register 16--20.  */
 567           val = EXTRU (instruction, 20, 16);
 568           if (val < REG_AR0 || val > REG_SP)
 569             return 0;
 570           if (! tic4x_print_register (info, val))
 571             return 0;
 572           break;
 573
 574         case 'Z': /* Expansion register 16--20.  */
 575           val = EXTRU (instruction, 20, 16) + REG_IVTP;
 576           if (val < REG_IVTP || val > REG_TVTP)
 577             return 0;
 578           if (! tic4x_print_register (info, val))
 579             return 0;
 580           break;
 581
 582         case '|':       /* Parallel instruction.  */
 583           tic4x_print_str (info, " || ");
 584           tic4x_print_str (info, parallel);
 585           tic4x_print_char (info, ' ');
 586           break;
 587
 588         case ';':
 589           tic4x_print_char (info, ',');
 590           break;
 591
 592         default:
 593           tic4x_print_char (info, *s);
 594           break;
 595         }
 596       s++;
 597     }
 598   return 1;
 599 }
 600
 601 static void
 602 tic4x_hash_opcode_special (tic4x_inst_t **optable_special,
 603                            const tic4x_inst_t *inst)
 604 {
 605   int i;
 606
 607   for (i = 0;i < TIC4X_SPESOP_SIZE; i++)
 608     if (optable_special[i] != NULL
 609         && optable_special[i]->opcode == inst->opcode)
 610       {
 611         /* Collision (we have it already) - overwrite.  */
 612         optable_special[i] = (tic4x_inst_t *) inst;
 613         return;
 614       }
 615
 616   for (i = 0; i < TIC4X_SPESOP_SIZE; i++)
 617     if (optable_special[i] == NULL)
 618       {
 619         /* Add the new opcode.  */
 620         optable_special[i] = (tic4x_inst_t *) inst;
 621         return;
 622       }
 623
 624   /* This should never occur. This happens if the number of special
 625      instructions exceeds TIC4X_SPESOP_SIZE. Please increase the variable
 626      of this variable */
 627 #if TIC4X_DEBUG
 628   printf ("optable_special[] is full, please increase TIC4X_SPESOP_SIZE!\n");
 629 #endif
 630 }
 631
 632 static void
 633 tic4x_hash_opcode (tic4x_inst_t **optable,
 634                    tic4x_inst_t **optable_special,
 635                    const tic4x_inst_t *inst,
 636                    const unsigned long tic4x_oplevel)
 637 {
 638   int j;
 639   int opcode = inst->opcode >> (32 - TIC4X_HASH_SIZE);
 640   int opmask = inst->opmask >> (32 - TIC4X_HASH_SIZE);
 641
 642   /* Use a TIC4X_HASH_SIZE bit index as a hash index.  We should
 643      have unique entries so there's no point having a linked list
 644      for each entry?  */
 645   for (j = opcode; j < opmask; j++)
 646     if ((j & opmask) == opcode
 647          && inst->oplevel & tic4x_oplevel)
 648       {
 649 #if TIC4X_DEBUG
 650         /* We should only have collisions for synonyms like
 651            ldp for ldi.  */
 652         if (optable[j] != NULL)
 653           printf ("Collision at index %d, %s and %s\n",
 654                   j, optable[j]->name, inst->name);
 655 #endif
 656         /* Catch those ops that collide with others already inside the
 657            hash, and have a opmask greater than the one we use in the
 658            hash. Store them in a special-list, that will handle full
 659            32-bit INSN, not only the first 11-bit (or so). */
 660         if (optable[j] != NULL
 661             && inst->opmask & ~(opmask << (32 - TIC4X_HASH_SIZE)))
 662           {
 663             /* Add the instruction already on the list.  */
 664             tic4x_hash_opcode_special (optable_special, optable[j]);
 665
 666             /* Add the new instruction.  */
 667             tic4x_hash_opcode_special (optable_special, inst);
 668           }
 669
 670         optable[j] = (tic4x_inst_t *) inst;
 671       }
 672 }
 673
 674 /* Disassemble the instruction in 'instruction'.
 675    'pc' should be the address of this instruction, it will
 676    be used to print the target address if this is a relative jump or call
 677    the disassembled instruction is written to 'info'.
 678    The function returns the length of this instruction in words.  */
 679
 680 static int
 681 tic4x_disassemble (unsigned long pc,
 682                    unsigned long instruction,
 683                    struct disassemble_info *info)
 684 {
 685   static tic4x_inst_t **optable = NULL;
 686   static tic4x_inst_t **optable_special = NULL;
 687   tic4x_inst_t *p;
 688   int i;
 689   unsigned long tic4x_oplevel;
 690
 691   tic4x_version = info->mach;
 692
 693   tic4x_oplevel  = (IS_CPU_TIC4X (tic4x_version)) ? OP_C4X : 0;
 694   tic4x_oplevel |= OP_C3X | OP_LPWR | OP_IDLE2 | OP_ENH;
 695
 696   if (optable == NULL)
 697     {
 698       optable = xcalloc (sizeof (tic4x_inst_t *), (1 << TIC4X_HASH_SIZE));
 699
 700       optable_special = xcalloc (sizeof (tic4x_inst_t *), TIC4X_SPESOP_SIZE);
 701
 702       /* Install opcodes in reverse order so that preferred
 703          forms overwrite synonyms.  */
 704       for (i = tic4x_num_insts - 1; i >= 0; i--)
 705         tic4x_hash_opcode (optable, optable_special, &tic4x_insts[i],
 706                            tic4x_oplevel);
 707
 708       /* We now need to remove the insn that are special from the
 709          "normal" optable, to make the disasm search this extra list
 710          for them.  */
 711       for (i = 0; i < TIC4X_SPESOP_SIZE; i++)
 712         if (optable_special[i] != NULL)
 713           optable[optable_special[i]->opcode >> (32 - TIC4X_HASH_SIZE)] = NULL;
 714     }
 715
 716   /* See if we can pick up any loading of the DP register...  */
 717   if ((instruction >> 16) == 0x5070 || (instruction >> 16) == 0x1f70)
 718     tic4x_dp = EXTRU (instruction, 15, 0);
 719
 720   p = optable[instruction >> (32 - TIC4X_HASH_SIZE)];
 721   if (p != NULL)
 722     {
 723       if (((instruction & p->opmask) == p->opcode)
 724            && tic4x_print_op (NULL, instruction, p, pc))
 725         tic4x_print_op (info, instruction, p, pc);
 726       else
 727         (*info->fprintf_func) (info->stream, "%08lx", instruction);
 728     }
 729   else
 730     {
 731       for (i = 0; i<TIC4X_SPESOP_SIZE; i++)
 732         if (optable_special[i] != NULL
 733             && optable_special[i]->opcode == instruction)
 734           {
 735             (*info->fprintf_func)(info->stream, "%s", optable_special[i]->name);
 736             break;
 737           }
 738       if (i == TIC4X_SPESOP_SIZE)
 739         (*info->fprintf_func) (info->stream, "%08lx", instruction);
 740     }
 741
 742   /* Return size of insn in words.  */
 743   return 1;
 744 }
 745
 746 /* The entry point from objdump and gdb.  */
 747 int
 748 print_insn_tic4x (bfd_vma memaddr, struct disassemble_info *info)
 749 {
 750   int status;
 751   unsigned long pc;
 752   unsigned long op;
 753   bfd_byte buffer[4];
 754
 755   status = (*info->read_memory_func) (memaddr, buffer, 4, info);
 756   if (status != 0)
 757     {
 758       (*info->memory_error_func) (status, memaddr, info);
 759       return -1;
 760     }
 761
 762   pc = memaddr;
 763   op = bfd_getl32 (buffer);
 764   info->bytes_per_line = 4;
 765   info->bytes_per_chunk = 4;
 766   info->octets_per_byte = 4;
 767   info->display_endian = BFD_ENDIAN_LITTLE;
 768   return tic4x_disassemble (pc, op, info) * 4;
 769 }