Merge branch 'upstream' into upstream-jgarzik
[linux-2.6] / arch / powerpc / xmon / ppc-dis.c
1 /* ppc-dis.c -- Disassemble PowerPC instructions
2    Copyright 1994, 1995, 2000, 2001, 2002, 2003, 2004, 2005, 2006
3    Free Software Foundation, Inc.
4    Written by Ian Lance Taylor, Cygnus Support
5
6 This file is part of GDB, GAS, and the GNU binutils.
7
8 GDB, GAS, and the GNU binutils are free software; you can redistribute
9 them and/or modify them under the terms of the GNU General Public
10 License as published by the Free Software Foundation; either version
11 2, or (at your option) any later version.
12
13 GDB, GAS, and the GNU binutils are distributed in the hope that they
14 will be useful, but WITHOUT ANY WARRANTY; without even the implied
15 warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
16 the GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with this file; see the file COPYING.  If not, write to the Free
20 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
21
22 #include <asm/cputable.h>
23 #include "nonstdio.h"
24 #include "ansidecl.h"
25 #include "ppc.h"
26 #include "dis-asm.h"
27
28 /* Print a PowerPC or POWER instruction.  */
29
30 int
31 print_insn_powerpc (unsigned long insn, unsigned long memaddr)
32 {
33   const struct powerpc_opcode *opcode;
34   const struct powerpc_opcode *opcode_end;
35   unsigned long op;
36   int dialect;
37
38   dialect = PPC_OPCODE_PPC | PPC_OPCODE_CLASSIC | PPC_OPCODE_COMMON
39               | PPC_OPCODE_64 | PPC_OPCODE_POWER4 | PPC_OPCODE_ALTIVEC;
40
41   if (cpu_has_feature(CPU_FTRS_POWER5))
42     dialect |= PPC_OPCODE_POWER5;
43
44   if (cpu_has_feature(CPU_FTRS_CELL))
45     dialect |= PPC_OPCODE_CELL | PPC_OPCODE_ALTIVEC;
46
47   if (cpu_has_feature(CPU_FTRS_POWER6))
48     dialect |= PPC_OPCODE_POWER5 | PPC_OPCODE_POWER6 | PPC_OPCODE_ALTIVEC;
49
50   /* Get the major opcode of the instruction.  */
51   op = PPC_OP (insn);
52
53   /* Find the first match in the opcode table.  We could speed this up
54      a bit by doing a binary search on the major opcode.  */
55   opcode_end = powerpc_opcodes + powerpc_num_opcodes;
56  again:
57   for (opcode = powerpc_opcodes; opcode < opcode_end; opcode++)
58     {
59       unsigned long table_op;
60       const unsigned char *opindex;
61       const struct powerpc_operand *operand;
62       int invalid;
63       int need_comma;
64       int need_paren;
65
66       table_op = PPC_OP (opcode->opcode);
67       if (op < table_op)
68         break;
69       if (op > table_op)
70         continue;
71
72       if ((insn & opcode->mask) != opcode->opcode
73           || (opcode->flags & dialect) == 0)
74         continue;
75
76       /* Make two passes over the operands.  First see if any of them
77          have extraction functions, and, if they do, make sure the
78          instruction is valid.  */
79       invalid = 0;
80       for (opindex = opcode->operands; *opindex != 0; opindex++)
81         {
82           operand = powerpc_operands + *opindex;
83           if (operand->extract)
84             (*operand->extract) (insn, dialect, &invalid);
85         }
86       if (invalid)
87         continue;
88
89       /* The instruction is valid.  */
90       printf("%s", opcode->name);
91       if (opcode->operands[0] != 0)
92         printf("\t");
93
94       /* Now extract and print the operands.  */
95       need_comma = 0;
96       need_paren = 0;
97       for (opindex = opcode->operands; *opindex != 0; opindex++)
98         {
99           long value;
100
101           operand = powerpc_operands + *opindex;
102
103           /* Operands that are marked FAKE are simply ignored.  We
104              already made sure that the extract function considered
105              the instruction to be valid.  */
106           if ((operand->flags & PPC_OPERAND_FAKE) != 0)
107             continue;
108
109           /* Extract the value from the instruction.  */
110           if (operand->extract)
111             value = (*operand->extract) (insn, dialect, &invalid);
112           else
113             {
114               value = (insn >> operand->shift) & ((1 << operand->bits) - 1);
115               if ((operand->flags & PPC_OPERAND_SIGNED) != 0
116                   && (value & (1 << (operand->bits - 1))) != 0)
117                 value -= 1 << operand->bits;
118             }
119
120           /* If the operand is optional, and the value is zero, don't
121              print anything.  */
122           if ((operand->flags & PPC_OPERAND_OPTIONAL) != 0
123               && (operand->flags & PPC_OPERAND_NEXT) == 0
124               && value == 0)
125             continue;
126
127           if (need_comma)
128             {
129               printf(",");
130               need_comma = 0;
131             }
132
133           /* Print the operand as directed by the flags.  */
134           if ((operand->flags & PPC_OPERAND_GPR) != 0
135               || ((operand->flags & PPC_OPERAND_GPR_0) != 0 && value != 0))
136             printf("r%ld", value);
137           else if ((operand->flags & PPC_OPERAND_FPR) != 0)
138             printf("f%ld", value);
139           else if ((operand->flags & PPC_OPERAND_VR) != 0)
140             printf("v%ld", value);
141           else if ((operand->flags & PPC_OPERAND_RELATIVE) != 0)
142             print_address (memaddr + value);
143           else if ((operand->flags & PPC_OPERAND_ABSOLUTE) != 0)
144             print_address (value & 0xffffffff);
145           else if ((operand->flags & PPC_OPERAND_CR) == 0
146                    || (dialect & PPC_OPCODE_PPC) == 0)
147             printf("%ld", value);
148           else
149             {
150               if (operand->bits == 3)
151                 printf("cr%ld", value);
152               else
153                 {
154                   static const char *cbnames[4] = { "lt", "gt", "eq", "so" };
155                   int cr;
156                   int cc;
157
158                   cr = value >> 2;
159                   if (cr != 0)
160                     printf("4*cr%d+", cr);
161                   cc = value & 3;
162                   printf("%s", cbnames[cc]);
163                 }
164             }
165
166           if (need_paren)
167             {
168               printf(")");
169               need_paren = 0;
170             }
171
172           if ((operand->flags & PPC_OPERAND_PARENS) == 0)
173             need_comma = 1;
174           else
175             {
176               printf("(");
177               need_paren = 1;
178             }
179         }
180
181       /* We have found and printed an instruction; return.  */
182       return 4;
183     }
184
185   if ((dialect & PPC_OPCODE_ANY) != 0)
186     {
187       dialect = ~PPC_OPCODE_ANY;
188       goto again;
189     }
190
191   /* We could not find a match.  */
192   printf(".long 0x%lx", insn);
193
194   return 4;
195 }