1 /* Print instructions for the Motorola 88000, for GDB and GNU Binutils.
2 Copyright (c) 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1998
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
*,
35 unsigned long, bfd_vma
, int));
38 init_disasm
PARAMS ((void));
41 install
PARAMS ((INSTAB
*instptr
));
44 * Disassemble an M88000 Instruction
47 * This module decodes the instruction at memaddr.
51 * Revision 1.0 11/08/85 Creation date by Motorola
52 * 05/11/89 R. Trawick adapted to GDB interface.
53 * 07/12/93 Ian Lance Taylor updated to
58 print_insn_m88k (memaddr
, info
)
60 struct disassemble_info
*info
;
65 /* Instruction addresses may have low two bits set. Clear them. */
66 memaddr
&=~ (bfd_vma
) 3;
68 status
= (*info
->read_memory_func
) (memaddr
, buffer
, 4, info
);
71 (*info
->memory_error_func
) (status
, memaddr
, info
);
75 return m88kdis (memaddr
, bfd_getb32 (buffer
), info
);
79 * disassemble the instruction in 'instruction'.
80 * 'pc' should be the address of this instruction, it will
81 * be used to print the target address if this is a relative jump or call
82 * the disassembled instruction is written to 'info'.
83 * The function returns the length of this instruction in bytes.
87 m88kdis (pc
, instruction
, info
)
89 unsigned long instruction
;
90 struct disassemble_info
*info
;
92 static int ihashtab_initialized
= 0;
98 if (! ihashtab_initialized
)
101 /* create the appropriate mask to isolate the opcode */
103 class = instruction
& DEFMASK
;
104 if ((class >= SFU0
) && (class <= SFU7
))
106 if (instruction
< SFU1
)
111 else if (class == RRR
)
113 else if (class == RRI10
)
116 /* isolate the opcode */
117 opcode
= instruction
& opmask
;
119 /* search the hash table with the isolated opcode */
120 for (entry_ptr
= hashtable
[opcode
% HASHVAL
];
121 (entry_ptr
!= NULL
) && (entry_ptr
->opcode
!= opcode
);
122 entry_ptr
= entry_ptr
->next
)
125 if (entry_ptr
== NULL
)
126 (*info
->fprintf_func
) (info
->stream
, "word\t%08x", instruction
);
129 (*info
->fprintf_func
) (info
->stream
, "%s", entry_ptr
->mnemonic
);
130 printop (info
, &(entry_ptr
->op1
), instruction
, pc
, 1);
131 printop (info
, &(entry_ptr
->op2
), instruction
, pc
, 0);
132 printop (info
, &(entry_ptr
->op3
), instruction
, pc
, 0);
139 * Decode an Operand of an Instruction
141 * Functional Description
143 * This module formats and writes an operand of an instruction to info
144 * based on the operand specification. When the first flag is set this
145 * is the first operand of an instruction. Undefined operand types
146 * cause a <dis error> message.
149 * disassemble_info where the operand may be printed
150 * OPSPEC *opptr Pointer to an operand specification
151 * UINT inst Instruction from which operand is extracted
152 * UINT pc PC of instruction; used for pc-relative disp.
153 * int first Flag which if nonzero indicates the first
154 * operand of an instruction
158 * The operand specified is extracted from the instruction and is
159 * written to buf in the format specified. The operand is preceded
160 * by a comma if it is not the first operand of an instruction and it
161 * is not a register indirect form. Registers are preceded by 'r' and
162 * hex values by '0x'.
166 * Revision 1.0 11/08/85 Creation date
170 printop (info
, opptr
, inst
, pc
, first
)
171 struct disassemble_info
*info
;
180 if (opptr
->width
== 0)
191 (*info
->fprintf_func
) (info
->stream
, ",");
199 (*info
->fprintf_func
) (info
->stream
, "cr%d",
200 UEXT (inst
, opptr
->offset
, opptr
->width
));
204 (*info
->fprintf_func
) (info
->stream
, "fcr%d",
205 UEXT (inst
, opptr
->offset
, opptr
->width
));
209 (*info
->fprintf_func
) (info
->stream
, "[r%d]",
210 UEXT (inst
, opptr
->offset
, opptr
->width
));
214 (*info
->fprintf_func
) (info
->stream
, "r%d",
215 UEXT (inst
, opptr
->offset
, opptr
->width
));
219 (*info
->fprintf_func
) (info
->stream
, "x%d",
220 UEXT (inst
, opptr
->offset
, opptr
->width
));
224 extracted_field
= UEXT (inst
, opptr
->offset
, opptr
->width
);
225 if (extracted_field
== 0)
226 (*info
->fprintf_func
) (info
->stream
, "0");
228 (*info
->fprintf_func
) (info
->stream
, "0x%02x", extracted_field
);
232 extracted_field
= UEXT (inst
, opptr
->offset
, opptr
->width
);
233 (*info
->fprintf_func
) (info
->stream
, "%d", extracted_field
);
237 extracted_field
= UEXT (inst
, opptr
->offset
, opptr
->width
);
238 switch (extracted_field
& 0x0f)
240 case 0x1: cond_mask_sym
= "gt0"; break;
241 case 0x2: cond_mask_sym
= "eq0"; break;
242 case 0x3: cond_mask_sym
= "ge0"; break;
243 case 0xc: cond_mask_sym
= "lt0"; break;
244 case 0xd: cond_mask_sym
= "ne0"; break;
245 case 0xe: cond_mask_sym
= "le0"; break;
246 default: cond_mask_sym
= NULL
; break;
248 if (cond_mask_sym
!= NULL
)
249 (*info
->fprintf_func
) (info
->stream
, "%s", cond_mask_sym
);
251 (*info
->fprintf_func
) (info
->stream
, "%x", extracted_field
);
255 (*info
->print_address_func
)
256 (pc
+ (4 * (SEXT (inst
, opptr
->offset
, opptr
->width
))),
261 (*info
->fprintf_func
) (info
->stream
, "%d,r%d",
262 UEXT (inst
, opptr
->offset
, 5),
263 UEXT (inst
, (opptr
->offset
) + 5, 5));
267 (*info
->fprintf_func
) (info
->stream
, "%d<%d>",
268 UEXT (inst
, (opptr
->offset
) + 5, 5),
269 UEXT (inst
, opptr
->offset
, 5));
273 /* xgettext:c-format */
274 (*info
->fprintf_func
) (info
->stream
, _("# <dis error: %08x>"), inst
);
279 * Initialize the Disassembler Instruction Table
281 * Initialize the hash table and instruction table for the disassembler.
282 * This should be called once before the first call to disasm().
288 * If the debug option is selected, certain statistics about the hashing
289 * distribution are written to stdout.
293 * Revision 1.0 11/08/85 Creation date
301 for (i
= 0; i
< HASHVAL
; i
++)
304 size
= sizeof (instructions
) / sizeof (INSTAB
);
305 for (i
= 0; i
< size
; i
++)
306 install (&instructions
[i
]);
310 * Insert an instruction into the disassembler table by hashing the
311 * opcode and inserting it into the linked list for that hash value.
315 * INSTAB *instptr Pointer to the entry in the instruction table
318 * Revision 1.0 11/08/85 Creation date
319 * 05/11/89 R. TRAWICK ADAPTED FROM MOTOROLA
328 i
= (instptr
->opcode
) % HASHVAL
;
329 instptr
->next
= hashtable
[i
];
330 hashtable
[i
] = instptr
;
This page took 0.036518 seconds and 4 git commands to generate.