1 /* Print instructions for the Motorola 88000, for GDB and GNU Binutils.
2 Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1998, 2000, 2001
3 Free Software Foundation, Inc.
4 Contributed by Data General Corporation, November 1989.
5 Partially derived from an earlier printcmd.c.
7 This file is part of GDB and the GNU Binutils.
9 This program 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 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
25 #include "opcode/m88k.h"
28 INSTAB
*hashtable
[HASHVAL
] = {0};
31 m88kdis
PARAMS ((bfd_vma
, unsigned long, struct disassemble_info
*));
34 printop
PARAMS ((struct disassemble_info
*, OPSPEC
*, unsigned long, bfd_vma
, int));
37 init_disasm
PARAMS ((void));
40 install
PARAMS ((INSTAB
*instptr
));
43 /* Disassemble an M88000 instruction at `memaddr'. */
46 print_insn_m88k (memaddr
, info
)
48 struct disassemble_info
*info
;
53 /* Instruction addresses may have low two bits set. Clear them. */
54 memaddr
&=~ (bfd_vma
) 3;
56 status
= (*info
->read_memory_func
) (memaddr
, buffer
, 4, info
);
59 (*info
->memory_error_func
) (status
, memaddr
, info
);
63 return m88kdis (memaddr
, bfd_getb32 (buffer
), info
);
67 * Disassemble the instruction in `instruction'.
68 * `pc' should be the address of this instruction, it will be used to
69 * print the target address if this is a relative jump or call the
70 * disassembled instruction is written to `info'.
72 * The function returns the length of this instruction in bytes.
76 m88kdis (pc
, instruction
, info
)
78 unsigned long instruction
;
79 struct disassemble_info
*info
;
81 static int ihashtab_initialized
= 0;
87 if (! ihashtab_initialized
)
90 /* Create the appropriate mask to isolate the opcode. */
92 class = instruction
& DEFMASK
;
93 if ((class >= SFU0
) && (class <= SFU7
))
95 if (instruction
< SFU1
)
100 else if (class == RRR
)
102 else if (class == RRI10
)
105 /* Isolate the opcode. */
106 opcode
= instruction
& opmask
;
108 /* Search the hash table with the isolated opcode. */
109 for (entry_ptr
= hashtable
[opcode
% HASHVAL
];
110 (entry_ptr
!= NULL
) && (entry_ptr
->opcode
!= opcode
);
111 entry_ptr
= entry_ptr
->next
)
114 if (entry_ptr
== NULL
)
115 (*info
->fprintf_func
) (info
->stream
, "word\t%08x", instruction
);
118 (*info
->fprintf_func
) (info
->stream
, "%s", entry_ptr
->mnemonic
);
119 printop (info
, &(entry_ptr
->op1
), instruction
, pc
, 1);
120 printop (info
, &(entry_ptr
->op2
), instruction
, pc
, 0);
121 printop (info
, &(entry_ptr
->op3
), instruction
, pc
, 0);
128 * Decode an Operand of an instruction.
130 * This function formats and writes an operand of an instruction to
131 * info based on the operand specification. When the `first' flag is
132 * set this is the first operand of an instruction. Undefined operand
133 * types cause a <dis error> message.
136 * disassemble_info where the operand may be printed
137 * OPSPEC *opptr pointer to an operand specification
138 * UINT inst instruction from which operand is extracted
139 * UINT pc pc of instruction; used for pc-relative disp.
140 * int first flag which if nonzero indicates the first
141 * operand of an instruction
143 * The operand specified is extracted from the instruction and is
144 * written to buf in the format specified. The operand is preceded by
145 * a comma if it is not the first operand of an instruction and it is
146 * not a register indirect form. Registers are preceded by 'r' and
147 * hex values by '0x'.
151 printop (info
, opptr
, inst
, pc
, first
)
152 struct disassemble_info
*info
;
161 if (opptr
->width
== 0)
172 (*info
->fprintf_func
) (info
->stream
, ",");
180 (*info
->fprintf_func
) (info
->stream
, "cr%d",
181 UEXT (inst
, opptr
->offset
, opptr
->width
));
185 (*info
->fprintf_func
) (info
->stream
, "fcr%d",
186 UEXT (inst
, opptr
->offset
, opptr
->width
));
190 (*info
->fprintf_func
) (info
->stream
, "[r%d]",
191 UEXT (inst
, opptr
->offset
, opptr
->width
));
195 (*info
->fprintf_func
) (info
->stream
, "r%d",
196 UEXT (inst
, opptr
->offset
, opptr
->width
));
200 (*info
->fprintf_func
) (info
->stream
, "x%d",
201 UEXT (inst
, opptr
->offset
, opptr
->width
));
205 extracted_field
= UEXT (inst
, opptr
->offset
, opptr
->width
);
206 if (extracted_field
== 0)
207 (*info
->fprintf_func
) (info
->stream
, "0");
209 (*info
->fprintf_func
) (info
->stream
, "0x%02x", extracted_field
);
213 extracted_field
= UEXT (inst
, opptr
->offset
, opptr
->width
);
214 (*info
->fprintf_func
) (info
->stream
, "%d", extracted_field
);
218 extracted_field
= UEXT (inst
, opptr
->offset
, opptr
->width
);
219 switch (extracted_field
& 0x0f)
221 case 0x1: cond_mask_sym
= "gt0"; break;
222 case 0x2: cond_mask_sym
= "eq0"; break;
223 case 0x3: cond_mask_sym
= "ge0"; break;
224 case 0xc: cond_mask_sym
= "lt0"; break;
225 case 0xd: cond_mask_sym
= "ne0"; break;
226 case 0xe: cond_mask_sym
= "le0"; break;
227 default: cond_mask_sym
= NULL
; break;
229 if (cond_mask_sym
!= NULL
)
230 (*info
->fprintf_func
) (info
->stream
, "%s", cond_mask_sym
);
232 (*info
->fprintf_func
) (info
->stream
, "%x", extracted_field
);
236 (*info
->print_address_func
)
237 (pc
+ (4 * (SEXT (inst
, opptr
->offset
, opptr
->width
))),
242 (*info
->fprintf_func
) (info
->stream
, "%d,r%d",
243 UEXT (inst
, opptr
->offset
, 5),
244 UEXT (inst
, (opptr
->offset
) + 5, 5));
248 (*info
->fprintf_func
) (info
->stream
, "%d<%d>",
249 UEXT (inst
, (opptr
->offset
) + 5, 5),
250 UEXT (inst
, opptr
->offset
, 5));
254 /* xgettext:c-format */
255 (*info
->fprintf_func
) (info
->stream
, _("# <dis error: %08x>"), inst
);
260 * Initialize the disassembler instruction table.
262 * Initialize the hash table and instruction table for the
263 * disassembler. This should be called once before the first call to
272 for (i
= 0; i
< HASHVAL
; i
++)
275 size
= sizeof (instructions
) / sizeof (INSTAB
);
276 for (i
= 0; i
< size
; i
++)
277 install (&instructions
[i
]);
281 * Insert an instruction into the disassembler table by hashing the
282 * opcode and inserting it into the linked list for that hash value.
291 i
= (instptr
->opcode
) % HASHVAL
;
292 instptr
->next
= hashtable
[i
];
293 hashtable
[i
] = instptr
;
This page took 0.037089 seconds and 4 git commands to generate.