* archive.cc (Archive::include_member): Unlock an external member
[binutils.git] / opcodes / crx-dis.c
blobf909897444dddc027580ce168f24fb2afb4a5ab4
1 /* Disassembler code for CRX.
2 Copyright 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
3 Contributed by Tomer Levi, NSC, Israel.
4 Written by Tomer Levi.
6 This file is part of the GNU opcodes library.
8 This library is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
11 any later version.
13 It is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
16 License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
23 #include "dis-asm.h"
24 #include "sysdep.h"
25 #include "opcode/crx.h"
27 /* String to print when opcode was not matched. */
28 #define ILLEGAL "illegal"
29 /* Escape to 16-bit immediate. */
30 #define ESCAPE_16_BIT 0xE
32 /* Extract 'n_bits' from 'a' starting from offset 'offs'. */
33 #define EXTRACT(a, offs, n_bits) \
34 (n_bits == 32 ? (((a) >> (offs)) & 0xffffffffL) \
35 : (((a) >> (offs)) & ((1 << (n_bits)) -1)))
37 /* Set Bit Mask - a mask to set all bits starting from offset 'offs'. */
38 #define SBM(offs) ((((1 << (32 - offs)) -1) << (offs)))
40 typedef unsigned long dwordU;
41 typedef unsigned short wordU;
43 typedef struct
45 dwordU val;
46 int nbits;
47 } parameter;
49 /* Structure to hold valid 'cinv' instruction options. */
51 typedef struct
53 /* Cinv printed string. */
54 char *str;
55 /* Value corresponding to the string. */
56 unsigned int value;
58 cinv_entry;
60 /* CRX 'cinv' options. */
61 const cinv_entry crx_cinvs[] =
63 {"[i]", 2}, {"[i,u]", 3}, {"[d]", 4}, {"[d,u]", 5},
64 {"[d,i]", 6}, {"[d,i,u]", 7}, {"[b]", 8},
65 {"[b,i]", 10}, {"[b,i,u]", 11}, {"[b,d]", 12},
66 {"[b,d,u]", 13}, {"[b,d,i]", 14}, {"[b,d,i,u]", 15}
69 /* Enum to distinguish different registers argument types. */
70 typedef enum REG_ARG_TYPE
72 /* General purpose register (r<N>). */
73 REG_ARG = 0,
74 /* User register (u<N>). */
75 USER_REG_ARG,
76 /* CO-Processor register (c<N>). */
77 COP_ARG,
78 /* CO-Processor special register (cs<N>). */
79 COPS_ARG
81 REG_ARG_TYPE;
83 /* Number of valid 'cinv' instruction options. */
84 int NUMCINVS = ((sizeof crx_cinvs)/(sizeof crx_cinvs[0]));
85 /* Current opcode table entry we're disassembling. */
86 const inst *instruction;
87 /* Current instruction we're disassembling. */
88 ins currInsn;
89 /* The current instruction is read into 3 consecutive words. */
90 wordU words[3];
91 /* Contains all words in appropriate order. */
92 ULONGLONG allWords;
93 /* Holds the current processed argument number. */
94 int processing_argument_number;
95 /* Nonzero means a CST4 instruction. */
96 int cst4flag;
97 /* Nonzero means the instruction's original size is
98 incremented (escape sequence is used). */
99 int size_changed;
101 static int get_number_of_operands (void);
102 static argtype getargtype (operand_type);
103 static int getbits (operand_type);
104 static char *getregname (reg);
105 static char *getcopregname (copreg, reg_type);
106 static char * getprocregname (int);
107 static char *gettrapstring (unsigned);
108 static char *getcinvstring (unsigned);
109 static void getregliststring (int, char *, enum REG_ARG_TYPE);
110 static wordU get_word_at_PC (bfd_vma, struct disassemble_info *);
111 static void get_words_at_PC (bfd_vma, struct disassemble_info *);
112 static unsigned long build_mask (void);
113 static int powerof2 (int);
114 static int match_opcode (void);
115 static void make_instruction (void);
116 static void print_arguments (ins *, bfd_vma, struct disassemble_info *);
117 static void print_arg (argument *, bfd_vma, struct disassemble_info *);
119 /* Retrieve the number of operands for the current assembled instruction. */
121 static int
122 get_number_of_operands (void)
124 int i;
126 for (i = 0; instruction->operands[i].op_type && i < MAX_OPERANDS; i++)
129 return i;
132 /* Return the bit size for a given operand. */
134 static int
135 getbits (operand_type op)
137 if (op < MAX_OPRD)
138 return crx_optab[op].bit_size;
139 else
140 return 0;
143 /* Return the argument type of a given operand. */
145 static argtype
146 getargtype (operand_type op)
148 if (op < MAX_OPRD)
149 return crx_optab[op].arg_type;
150 else
151 return nullargs;
154 /* Given the trap index in dispatch table, return its name.
155 This routine is used when disassembling the 'excp' instruction. */
157 static char *
158 gettrapstring (unsigned int trap_index)
160 const trap_entry *trap;
162 for (trap = crx_traps; trap < crx_traps + NUMTRAPS; trap++)
163 if (trap->entry == trap_index)
164 return trap->name;
166 return ILLEGAL;
169 /* Given a 'cinv' instruction constant operand, return its corresponding string.
170 This routine is used when disassembling the 'cinv' instruction. */
172 static char *
173 getcinvstring (unsigned int num)
175 const cinv_entry *cinv;
177 for (cinv = crx_cinvs; cinv < (crx_cinvs + NUMCINVS); cinv++)
178 if (cinv->value == num)
179 return cinv->str;
181 return ILLEGAL;
184 /* Given a register enum value, retrieve its name. */
186 char *
187 getregname (reg r)
189 const reg_entry * regentry = &crx_regtab[r];
191 if (regentry->type != CRX_R_REGTYPE)
192 return ILLEGAL;
193 else
194 return regentry->name;
197 /* Given a coprocessor register enum value, retrieve its name. */
199 char *
200 getcopregname (copreg r, reg_type type)
202 const reg_entry * regentry;
204 if (type == CRX_C_REGTYPE)
205 regentry = &crx_copregtab[r];
206 else if (type == CRX_CS_REGTYPE)
207 regentry = &crx_copregtab[r+(cs0-c0)];
208 else
209 return ILLEGAL;
211 return regentry->name;
215 /* Getting a processor register name. */
217 static char *
218 getprocregname (int reg_index)
220 const reg_entry *r;
222 for (r = crx_regtab; r < crx_regtab + NUMREGS; r++)
223 if (r->image == reg_index)
224 return r->name;
226 return "ILLEGAL REGISTER";
229 /* Get the power of two for a given integer. */
231 static int
232 powerof2 (int x)
234 int product, i;
236 for (i = 0, product = 1; i < x; i++)
237 product *= 2;
239 return product;
242 /* Transform a register bit mask to a register list. */
244 void
245 getregliststring (int mask, char *string, enum REG_ARG_TYPE core_cop)
247 char temp_string[5];
248 int i;
250 string[0] = '{';
251 string[1] = '\0';
254 /* A zero mask means HI/LO registers. */
255 if (mask == 0)
257 if (core_cop == USER_REG_ARG)
258 strcat (string, "ulo,uhi");
259 else
260 strcat (string, "lo,hi");
262 else
264 for (i = 0; i < 16; i++)
266 if (mask & 0x1)
268 switch (core_cop)
270 case REG_ARG:
271 sprintf (temp_string, "r%d", i);
272 break;
273 case USER_REG_ARG:
274 sprintf (temp_string, "u%d", i);
275 break;
276 case COP_ARG:
277 sprintf (temp_string, "c%d", i);
278 break;
279 case COPS_ARG:
280 sprintf (temp_string, "cs%d", i);
281 break;
282 default:
283 break;
285 strcat (string, temp_string);
286 if (mask & 0xfffe)
287 strcat (string, ",");
289 mask >>= 1;
293 strcat (string, "}");
296 /* START and END are relating 'allWords' struct, which is 48 bits size.
298 START|--------|END
299 +---------+---------+---------+---------+
300 | | V | A | L |
301 +---------+---------+---------+---------+
302 0 16 32 48
303 words [0] [1] [2] */
305 static parameter
306 makelongparameter (ULONGLONG val, int start, int end)
308 parameter p;
310 p.val = (dwordU) EXTRACT(val, 48 - end, end - start);
311 p.nbits = end - start;
312 return p;
315 /* Build a mask of the instruction's 'constant' opcode,
316 based on the instruction's printing flags. */
318 static unsigned long
319 build_mask (void)
321 unsigned int print_flags;
322 unsigned long mask;
324 print_flags = instruction->flags & FMT_CRX;
325 switch (print_flags)
327 case FMT_1:
328 mask = 0xF0F00000;
329 break;
330 case FMT_2:
331 mask = 0xFFF0FF00;
332 break;
333 case FMT_3:
334 mask = 0xFFF00F00;
335 break;
336 case FMT_4:
337 mask = 0xFFF0F000;
338 break;
339 case FMT_5:
340 mask = 0xFFF0FFF0;
341 break;
342 default:
343 mask = SBM(instruction->match_bits);
344 break;
347 return mask;
350 /* Search for a matching opcode. Return 1 for success, 0 for failure. */
352 static int
353 match_opcode (void)
355 unsigned long mask;
357 /* The instruction 'constant' opcode doewsn't exceed 32 bits. */
358 unsigned long doubleWord = (words[1] + (words[0] << 16)) & 0xffffffff;
360 /* Start searching from end of instruction table. */
361 instruction = &crx_instruction[NUMOPCODES - 2];
363 /* Loop over instruction table until a full match is found. */
364 while (instruction >= crx_instruction)
366 mask = build_mask ();
367 if ((doubleWord & mask) == BIN(instruction->match, instruction->match_bits))
368 return 1;
369 else
370 instruction--;
372 return 0;
375 /* Set the proper parameter value for different type of arguments. */
377 static void
378 make_argument (argument * a, int start_bits)
380 int inst_bit_size, total_size;
381 parameter p;
383 if ((instruction->size == 3) && a->size >= 16)
384 inst_bit_size = 48;
385 else
386 inst_bit_size = 32;
388 switch (a->type)
390 case arg_copr:
391 case arg_copsr:
392 p = makelongparameter (allWords, inst_bit_size - (start_bits + a->size),
393 inst_bit_size - start_bits);
394 a->cr = p.val;
395 break;
397 case arg_r:
398 p = makelongparameter (allWords, inst_bit_size - (start_bits + a->size),
399 inst_bit_size - start_bits);
400 a->r = p.val;
401 break;
403 case arg_ic:
404 p = makelongparameter (allWords, inst_bit_size - (start_bits + a->size),
405 inst_bit_size - start_bits);
407 if ((p.nbits == 4) && cst4flag)
409 if (IS_INSN_TYPE (CMPBR_INS) && (p.val == ESCAPE_16_BIT))
411 /* A special case, where the value is actually stored
412 in the last 4 bits. */
413 p = makelongparameter (allWords, 44, 48);
414 /* The size of the instruction should be incremented. */
415 size_changed = 1;
418 if (p.val == 6)
419 p.val = -1;
420 else if (p.val == 13)
421 p.val = 48;
422 else if (p.val == 5)
423 p.val = -4;
424 else if (p.val == 10)
425 p.val = 32;
426 else if (p.val == 11)
427 p.val = 20;
428 else if (p.val == 9)
429 p.val = 16;
432 a->constant = p.val;
433 break;
435 case arg_idxr:
436 a->scale = 0;
437 total_size = a->size + 10; /* sizeof(rbase + ridx + scl2) = 10. */
438 p = makelongparameter (allWords, inst_bit_size - total_size,
439 inst_bit_size - (total_size - 4));
440 a->r = p.val;
441 p = makelongparameter (allWords, inst_bit_size - (total_size - 4),
442 inst_bit_size - (total_size - 8));
443 a->i_r = p.val;
444 p = makelongparameter (allWords, inst_bit_size - (total_size - 8),
445 inst_bit_size - (total_size - 10));
446 a->scale = p.val;
447 p = makelongparameter (allWords, inst_bit_size - (total_size - 10),
448 inst_bit_size);
449 a->constant = p.val;
450 break;
452 case arg_rbase:
453 p = makelongparameter (allWords, inst_bit_size - (start_bits + 4),
454 inst_bit_size - start_bits);
455 a->r = p.val;
456 break;
458 case arg_cr:
459 if (a->size <= 8)
461 p = makelongparameter (allWords, inst_bit_size - (start_bits + 4),
462 inst_bit_size - start_bits);
463 a->r = p.val;
464 /* Case for opc4 r dispu rbase. */
465 p = makelongparameter (allWords, inst_bit_size - (start_bits + 8),
466 inst_bit_size - (start_bits + 4));
468 else
470 /* The 'rbase' start_bits is always relative to a 32-bit data type. */
471 p = makelongparameter (allWords, 32 - (start_bits + 4),
472 32 - start_bits);
473 a->r = p.val;
474 p = makelongparameter (allWords, 32 - start_bits,
475 inst_bit_size);
477 if ((p.nbits == 4) && cst4flag)
479 if (instruction->flags & DISPUW4)
480 p.val *= 2;
481 else if (instruction->flags & DISPUD4)
482 p.val *= 4;
484 a->constant = p.val;
485 break;
487 case arg_c:
488 p = makelongparameter (allWords, inst_bit_size - (start_bits + a->size),
489 inst_bit_size - start_bits);
490 a->constant = p.val;
491 break;
492 default:
493 break;
497 /* Print a single argument. */
499 static void
500 print_arg (argument *a, bfd_vma memaddr, struct disassemble_info *info)
502 LONGLONG longdisp, mask;
503 int sign_flag = 0;
504 int relative = 0;
505 bfd_vma number;
506 int op_index = 0;
507 char string[200];
508 PTR stream = info->stream;
509 fprintf_ftype func = info->fprintf_func;
511 switch (a->type)
513 case arg_copr:
514 func (stream, "%s", getcopregname (a->cr, CRX_C_REGTYPE));
515 break;
517 case arg_copsr:
518 func (stream, "%s", getcopregname (a->cr, CRX_CS_REGTYPE));
519 break;
521 case arg_r:
522 if (IS_INSN_MNEMONIC ("mtpr") || IS_INSN_MNEMONIC ("mfpr"))
523 func (stream, "%s", getprocregname (a->r));
524 else
525 func (stream, "%s", getregname (a->r));
526 break;
528 case arg_ic:
529 if (IS_INSN_MNEMONIC ("excp"))
530 func (stream, "%s", gettrapstring (a->constant));
532 else if (IS_INSN_MNEMONIC ("cinv"))
533 func (stream, "%s", getcinvstring (a->constant));
535 else if (INST_HAS_REG_LIST)
537 REG_ARG_TYPE reg_arg_type = IS_INSN_TYPE (COP_REG_INS) ?
538 COP_ARG : IS_INSN_TYPE (COPS_REG_INS) ?
539 COPS_ARG : (instruction->flags & USER_REG) ?
540 USER_REG_ARG : REG_ARG;
542 if ((reg_arg_type == COP_ARG) || (reg_arg_type == COPS_ARG))
544 /* Check for proper argument number. */
545 if (processing_argument_number == 2)
547 getregliststring (a->constant, string, reg_arg_type);
548 func (stream, "%s", string);
550 else
551 func (stream, "$0x%lx", a->constant);
553 else
555 getregliststring (a->constant, string, reg_arg_type);
556 func (stream, "%s", string);
559 else
560 func (stream, "$0x%lx", a->constant);
561 break;
563 case arg_idxr:
564 func (stream, "0x%lx(%s,%s,%d)", a->constant, getregname (a->r),
565 getregname (a->i_r), powerof2 (a->scale));
566 break;
568 case arg_rbase:
569 func (stream, "(%s)", getregname (a->r));
570 break;
572 case arg_cr:
573 func (stream, "0x%lx(%s)", a->constant, getregname (a->r));
575 if (IS_INSN_TYPE (LD_STOR_INS_INC))
576 func (stream, "+");
577 break;
579 case arg_c:
580 /* Removed the *2 part as because implicit zeros are no more required.
581 Have to fix this as this needs a bit of extension in terms of branchins.
582 Have to add support for cmp and branch instructions. */
583 if (IS_INSN_TYPE (BRANCH_INS) || IS_INSN_MNEMONIC ("bal")
584 || IS_INSN_TYPE (CMPBR_INS) || IS_INSN_TYPE (DCR_BRANCH_INS)
585 || IS_INSN_TYPE (COP_BRANCH_INS))
587 relative = 1;
588 longdisp = a->constant;
589 longdisp <<= 1;
591 switch (a->size)
593 case 8:
594 case 16:
595 case 24:
596 case 32:
597 mask = ((LONGLONG)1 << a->size) - 1;
598 if (longdisp & ((LONGLONG)1 << a->size))
600 sign_flag = 1;
601 longdisp = ~(longdisp) + 1;
603 a->constant = (unsigned long int) (longdisp & mask);
604 break;
605 default:
606 func (stream,
607 "Wrong offset used in branch/bal instruction");
608 break;
612 /* For branch Neq instruction it is 2*offset + 2. */
613 else if (IS_INSN_TYPE (BRANCH_NEQ_INS))
614 a->constant = 2 * a->constant + 2;
615 else if (IS_INSN_TYPE (LD_STOR_INS_INC)
616 || IS_INSN_TYPE (LD_STOR_INS)
617 || IS_INSN_TYPE (STOR_IMM_INS)
618 || IS_INSN_TYPE (CSTBIT_INS))
620 op_index = instruction->flags & REVERSE_MATCH ? 0 : 1;
621 if (instruction->operands[op_index].op_type == abs16)
622 a->constant |= 0xFFFF0000;
624 func (stream, "%s", "0x");
625 number = (relative ? memaddr : 0)
626 + (sign_flag ? -a->constant : a->constant);
627 (*info->print_address_func) (number, info);
628 break;
629 default:
630 break;
634 /* Print all the arguments of CURRINSN instruction. */
636 static void
637 print_arguments (ins *currentInsn, bfd_vma memaddr, struct disassemble_info *info)
639 int i;
641 for (i = 0; i < currentInsn->nargs; i++)
643 processing_argument_number = i;
645 print_arg (&currentInsn->arg[i], memaddr, info);
647 if (i != currentInsn->nargs - 1)
648 info->fprintf_func (info->stream, ", ");
652 /* Build the instruction's arguments. */
654 static void
655 make_instruction (void)
657 int i;
658 unsigned int shift;
660 for (i = 0; i < currInsn.nargs; i++)
662 argument a;
664 memset (&a, 0, sizeof (a));
665 a.type = getargtype (instruction->operands[i].op_type);
666 if (instruction->operands[i].op_type == cst4
667 || instruction->operands[i].op_type == rbase_dispu4)
668 cst4flag = 1;
669 a.size = getbits (instruction->operands[i].op_type);
670 shift = instruction->operands[i].shift;
672 make_argument (&a, shift);
673 currInsn.arg[i] = a;
676 /* Calculate instruction size (in bytes). */
677 currInsn.size = instruction->size + (size_changed ? 1 : 0);
678 /* Now in bits. */
679 currInsn.size *= 2;
682 /* Retrieve a single word from a given memory address. */
684 static wordU
685 get_word_at_PC (bfd_vma memaddr, struct disassemble_info *info)
687 bfd_byte buffer[4];
688 int status;
689 wordU insn = 0;
691 status = info->read_memory_func (memaddr, buffer, 2, info);
693 if (status == 0)
694 insn = (wordU) bfd_getl16 (buffer);
696 return insn;
699 /* Retrieve multiple words (3) from a given memory address. */
701 static void
702 get_words_at_PC (bfd_vma memaddr, struct disassemble_info *info)
704 int i;
705 bfd_vma mem;
707 for (i = 0, mem = memaddr; i < 3; i++, mem += 2)
708 words[i] = get_word_at_PC (mem, info);
710 allWords =
711 ((ULONGLONG) words[0] << 32) + ((unsigned long) words[1] << 16) + words[2];
714 /* Prints the instruction by calling print_arguments after proper matching. */
717 print_insn_crx (memaddr, info)
718 bfd_vma memaddr;
719 struct disassemble_info *info;
721 int is_decoded; /* Nonzero means instruction has a match. */
723 /* Initialize global variables. */
724 cst4flag = 0;
725 size_changed = 0;
727 /* Retrieve the encoding from current memory location. */
728 get_words_at_PC (memaddr, info);
729 /* Find a matching opcode in table. */
730 is_decoded = match_opcode ();
731 /* If found, print the instruction's mnemonic and arguments. */
732 if (is_decoded > 0 && (words[0] << 16 || words[1]) != 0)
734 info->fprintf_func (info->stream, "%s", instruction->mnemonic);
735 if ((currInsn.nargs = get_number_of_operands ()) != 0)
736 info->fprintf_func (info->stream, "\t");
737 make_instruction ();
738 print_arguments (&currInsn, memaddr, info);
739 return currInsn.size;
742 /* No match found. */
743 info->fprintf_func (info->stream,"%s ",ILLEGAL);
744 return 2;