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