This commit was generated by cvs2svn to track changes on a CVS vendor
[external/binutils.git] / opcodes / ppc-dis.c
1 /* ppc-dis.c -- Disassemble PowerPC instructions
2    Copyright 1994 Free Software Foundation, Inc.
3    Written by Ian Lance Taylor, Cygnus Support
4
5 This file is part of GDB, GAS, and the GNU binutils.
6
7 GDB, GAS, and the GNU binutils are free software; you can redistribute
8 them and/or modify them under the terms of the GNU General Public
9 License as published by the Free Software Foundation; either version
10 2, or (at your option) any later version.
11
12 GDB, GAS, and the GNU binutils are distributed in the hope that they
13 will be useful, but WITHOUT ANY WARRANTY; without even the implied
14 warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
15 the 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 file; see the file COPYING.  If not, write to the Free
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
20
21 #include <stdio.h>
22 #include "ansidecl.h"
23 #include "sysdep.h"
24 #include "dis-asm.h"
25 #include "opcode/ppc.h"
26
27 /* This file provides several disassembler functions, all of which use
28    the disassembler interface defined in dis-asm.h.  Several functions
29    are provided because this file handles disassembly for the PowerPC
30    in both big and little endian mode and also for the POWER (RS/6000)
31    chip.  */
32
33 static int print_insn_powerpc PARAMS ((bfd_vma, struct disassemble_info *,
34                                        int bigendian, int dialect));
35
36 /* Print a big endian PowerPC instruction.  For convenience, also
37    disassemble instructions supported by the Motorola PowerPC 601.  */
38
39 int
40 print_insn_big_powerpc (memaddr, info)
41      bfd_vma memaddr;
42      struct disassemble_info *info;
43 {
44   return print_insn_powerpc (memaddr, info, 1,
45                              PPC_OPCODE_PPC | PPC_OPCODE_601);
46 }
47
48 /* Print a little endian PowerPC instruction.  For convenience, also
49    disassemble instructions supported by the Motorola PowerPC 601.  */
50
51 int
52 print_insn_little_powerpc (memaddr, info)
53      bfd_vma memaddr;
54      struct disassemble_info *info;
55 {
56   return print_insn_powerpc (memaddr, info, 0,
57                              PPC_OPCODE_PPC | PPC_OPCODE_601);
58 }
59
60 /* Print a POWER (RS/6000) instruction.  */
61
62 int
63 print_insn_rs6000 (memaddr, info)
64      bfd_vma memaddr;
65      struct disassemble_info *info;
66 {
67   return print_insn_powerpc (memaddr, info, 1, PPC_OPCODE_POWER);
68 }
69
70 /* Print a PowerPC or POWER instruction.  */
71
72 static int
73 print_insn_powerpc (memaddr, info, bigendian, dialect)
74      bfd_vma memaddr;
75      struct disassemble_info *info;
76      int bigendian;
77      int dialect;
78 {
79   bfd_byte buffer[4];
80   int status;
81   unsigned long insn;
82   const struct powerpc_opcode *opcode;
83   const struct powerpc_opcode *opcode_end;
84   unsigned long op;
85
86   status = (*info->read_memory_func) (memaddr, buffer, 4, info);
87   if (status != 0)
88     {
89       (*info->memory_error_func) (status, memaddr, info);
90       return -1;
91     }
92
93   if (bigendian)
94     insn = bfd_getb32 (buffer);
95   else
96     insn = bfd_getl32 (buffer);
97
98   /* Get the major opcode of the instruction.  */
99   op = PPC_OP (insn);
100
101   /* Find the first match in the opcode table.  We could speed this up
102      a bit by doing a binary search on the major opcode.  */
103   opcode_end = powerpc_opcodes + powerpc_num_opcodes;
104   for (opcode = powerpc_opcodes; opcode < opcode_end; opcode++)
105     {
106       unsigned long table_op;
107       const unsigned char *opindex;
108       const struct powerpc_operand *operand;
109       int invalid;
110       int need_comma;
111       int need_paren;
112
113       table_op = PPC_OP (opcode->opcode);
114       if (op < table_op)
115         break;
116       if (op > table_op)
117         continue;
118
119       if ((insn & opcode->mask) != opcode->opcode
120           || (opcode->flags & dialect) == 0)
121         continue;
122
123       /* Make two passes over the operands.  First see if any of them
124          have extraction functions, and, if they do, make sure the
125          instruction is valid.  */
126       invalid = 0;
127       for (opindex = opcode->operands; *opindex != 0; opindex++)
128         {
129           operand = powerpc_operands + *opindex;
130           if (operand->extract)
131             (*operand->extract) (insn, &invalid);
132         }
133       if (invalid)
134         continue;
135
136       /* The instruction is valid.  */
137       (*info->fprintf_func) (info->stream, "%s", opcode->name);
138       if (opcode->operands[0] != 0)
139         (*info->fprintf_func) (info->stream, "\t");
140
141       /* Now extract and print the operands.  */
142       need_comma = 0;
143       need_paren = 0;
144       for (opindex = opcode->operands; *opindex != 0; opindex++)
145         {
146           long value;
147
148           operand = powerpc_operands + *opindex;
149
150           /* Operands that are marked FAKE are simply ignored.  We
151              already made sure that the extract function considered
152              the instruction to be valid.  */
153           if ((operand->flags & PPC_OPERAND_FAKE) != 0)
154             continue;
155
156           /* Extract the value from the instruction.  */
157           if (operand->extract)
158             value = (*operand->extract) (insn, (int *) NULL);
159           else
160             {
161               value = (insn >> operand->shift) & ((1 << operand->bits) - 1);
162               if ((operand->flags & PPC_OPERAND_SIGNED) != 0
163                   && (value & (1 << (operand->bits - 1))) != 0)
164                 value -= 1 << operand->bits;
165             }
166
167           /* If the operand is optional, and the value is zero, don't
168              print anything.  */
169           if ((operand->flags & PPC_OPERAND_OPTIONAL) != 0
170               && (operand->flags & PPC_OPERAND_NEXT) == 0
171               && value == 0)
172             continue;
173
174           if (need_comma)
175             {
176               (*info->fprintf_func) (info->stream, ",");
177               need_comma = 0;
178             }
179
180           /* Print the operand as directed by the flags.  */
181           if ((operand->flags & PPC_OPERAND_GPR) != 0)
182             (*info->fprintf_func) (info->stream, "r%ld", value);
183           else if ((operand->flags & PPC_OPERAND_FPR) != 0)
184             (*info->fprintf_func) (info->stream, "f%ld", value);
185           else if ((operand->flags & PPC_OPERAND_RELATIVE) != 0)
186             (*info->print_address_func) (memaddr + value, info);
187           else if ((operand->flags & PPC_OPERAND_ABSOLUTE) != 0)
188             (*info->print_address_func) ((bfd_vma) value & 0xffffffff, info);
189           else if ((operand->flags & PPC_OPERAND_CR) == 0
190                    || (dialect & PPC_OPCODE_PPC) == 0)
191             (*info->fprintf_func) (info->stream, "%ld", value);
192           else
193             {
194               if (operand->bits == 3)
195                 (*info->fprintf_func) (info->stream, "cr%d", value);
196               else
197                 {
198                   static const char *cbnames[4] = { "lt", "gt", "eq", "so" };
199                   int cr;
200                   int cc;
201
202                   cr = value >> 2;
203                   if (cr != 0)
204                     (*info->fprintf_func) (info->stream, "4*cr%d", cr);
205                   cc = value & 3;
206                   if (cc != 0)
207                     {
208                       if (cr != 0)
209                         (*info->fprintf_func) (info->stream, "+");
210                       (*info->fprintf_func) (info->stream, "%s", cbnames[cc]);
211                     }
212                 }
213             }
214
215           if (need_paren)
216             {
217               (*info->fprintf_func) (info->stream, ")");
218               need_paren = 0;
219             }
220
221           if ((operand->flags & PPC_OPERAND_PARENS) == 0)
222             need_comma = 1;
223           else
224             {
225               (*info->fprintf_func) (info->stream, "(");
226               need_paren = 1;
227             }
228         }
229
230       /* We have found and printed an instruction; return.  */
231       return 4;
232     }
233
234   /* We could not find a match.  */
235   (*info->fprintf_func) (info->stream, ".long 0x%lx", insn);
236
237   return 4;
238 }