mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-15 04:31:49 +08:00
344 lines
8.3 KiB
C
344 lines
8.3 KiB
C
|
/* This file has been modified by Data General Corporation, November 1989. */
|
|||
|
|
|
|||
|
|
#include <stdio.h>
|
|||
|
|
#include "m88k-opcode.h"
|
|||
|
|
#include "defs.h"
|
|||
|
|
#include "symtab.h"
|
|||
|
|
|
|||
|
|
void sprint_address ();
|
|||
|
|
|
|||
|
|
/* Changed hashtab to hashtable to avoid naming conflict
|
|||
|
|
with libdc.o (used for tdesc) for m88k.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
INSTAB *hashtable[HASHVAL] = {0};
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Disassemble an M88000 Instruction
|
|||
|
|
*
|
|||
|
|
*
|
|||
|
|
* This module decodes the first instruction in inbuf. It uses the pc
|
|||
|
|
* to display pc-relative displacements. It writes the disassembled
|
|||
|
|
* instruction in outbuf.
|
|||
|
|
*
|
|||
|
|
* Revision History
|
|||
|
|
*
|
|||
|
|
* Revision 1.0 11/08/85 Creation date by Motorola
|
|||
|
|
* 05/11/89 R. Trawick adapted to GDB interface.
|
|||
|
|
*/
|
|||
|
|
#define MAXLEN 20
|
|||
|
|
|
|||
|
|
print_insn (memaddr, stream)
|
|||
|
|
CORE_ADDR memaddr;
|
|||
|
|
FILE *stream;
|
|||
|
|
{
|
|||
|
|
unsigned char buffer[MAXLEN];
|
|||
|
|
/* should be expanded if disassembler prints symbol names */
|
|||
|
|
char outbuf[100];
|
|||
|
|
int n;
|
|||
|
|
|
|||
|
|
/* Instruction addresses may have low two bits set. Clear them. */
|
|||
|
|
memaddr&= 0xfffffffc;
|
|||
|
|
read_memory (memaddr, buffer, MAXLEN);
|
|||
|
|
|
|||
|
|
n = m88kdis ((int)memaddr, buffer, outbuf);
|
|||
|
|
|
|||
|
|
fputs (outbuf, stream);
|
|||
|
|
|
|||
|
|
return (n);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* disassemble the first instruction in 'inbuf'.
|
|||
|
|
* 'pc' should be the address of this instruction, it will
|
|||
|
|
* be used to print the target address if this is a relative jump or call
|
|||
|
|
* 'outbuf' gets filled in with the disassembled instruction. It should
|
|||
|
|
* be long enough to hold the longest disassembled instruction.
|
|||
|
|
* 100 bytes is certainly enough, unless symbol printing is added later
|
|||
|
|
* The function returns the length of this instruction in bytes.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
int m88kdis( pc, inbuf, outbuf )
|
|||
|
|
|
|||
|
|
int pc;
|
|||
|
|
int *inbuf;
|
|||
|
|
char *outbuf;
|
|||
|
|
|
|||
|
|
{ static ihashtab_initialized = 0;
|
|||
|
|
int instruction;
|
|||
|
|
unsigned int opcode;
|
|||
|
|
INSTAB *entry_ptr;
|
|||
|
|
int opmask;
|
|||
|
|
int class;
|
|||
|
|
|
|||
|
|
instruction= *inbuf;
|
|||
|
|
|
|||
|
|
if (!ihashtab_initialized) {
|
|||
|
|
init_disasm();
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* create a the appropriate mask to isolate the opcode */
|
|||
|
|
opmask= DEFMASK;
|
|||
|
|
class= instruction & DEFMASK;
|
|||
|
|
if ((class >= SFU0) && (class <= SFU7)) {
|
|||
|
|
if (instruction < SFU1) {
|
|||
|
|
opmask= CTRLMASK;
|
|||
|
|
} else {
|
|||
|
|
opmask= SFUMASK;
|
|||
|
|
}
|
|||
|
|
} else if (class == RRR) {
|
|||
|
|
opmask= RRRMASK;
|
|||
|
|
} else if (class == RRI10) {
|
|||
|
|
opmask= RRI10MASK;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/* isolate the opcode */
|
|||
|
|
opcode= instruction & opmask;
|
|||
|
|
|
|||
|
|
/* search the hash table with the isolated opcode */
|
|||
|
|
for (entry_ptr= hashtable[ opcode % HASHVAL ];
|
|||
|
|
(entry_ptr != NULL) && (entry_ptr->opcode != opcode);
|
|||
|
|
entry_ptr= entry_ptr->next) {
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (entry_ptr == NULL) {
|
|||
|
|
sprintf( outbuf, "word\t%08x", instruction );
|
|||
|
|
} else {
|
|||
|
|
sprintf( outbuf, "%s\t", entry_ptr->mnemonic );
|
|||
|
|
sprintop( &outbuf[strlen(outbuf)], &(entry_ptr->op1), instruction, pc, 1 );
|
|||
|
|
sprintop( &outbuf[strlen(outbuf)], &(entry_ptr->op2), instruction, pc, 0 );
|
|||
|
|
sprintop( &outbuf[strlen(outbuf)], &(entry_ptr->op3), instruction, pc, 0 );
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
return 4;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Decode an Operand of an Instruction
|
|||
|
|
*
|
|||
|
|
* Functional Description
|
|||
|
|
*
|
|||
|
|
* This module formats and writes an operand of an instruction to buf
|
|||
|
|
* based on the operand specification. When the first flag is set this
|
|||
|
|
* is the first operand of an instruction. Undefined operand types
|
|||
|
|
* cause a <dis error> message.
|
|||
|
|
*
|
|||
|
|
* Parameters
|
|||
|
|
* char *buf buffer where the operand may be printed
|
|||
|
|
* OPSPEC *opptr Pointer to an operand specification
|
|||
|
|
* UINT inst Instruction from which operand is extracted
|
|||
|
|
* UINT pc PC of instruction; used for pc-relative disp.
|
|||
|
|
* int first Flag which if nonzero indicates the first
|
|||
|
|
* operand of an instruction
|
|||
|
|
*
|
|||
|
|
* Output
|
|||
|
|
*
|
|||
|
|
* The operand specified is extracted from the instruction and is
|
|||
|
|
* written to buf in the format specified. The operand is preceded
|
|||
|
|
* by a comma if it is not the first operand of an instruction and it
|
|||
|
|
* is not a register indirect form. Registers are preceded by 'r' and
|
|||
|
|
* hex values by '0x'.
|
|||
|
|
*
|
|||
|
|
* Revision History
|
|||
|
|
*
|
|||
|
|
* Revision 1.0 11/08/85 Creation date
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
sprintop( buf, opptr, inst, pc, first )
|
|||
|
|
|
|||
|
|
char *buf;
|
|||
|
|
OPSPEC *opptr;
|
|||
|
|
UINT inst;
|
|||
|
|
int pc;
|
|||
|
|
int first;
|
|||
|
|
|
|||
|
|
{ int extracted_field;
|
|||
|
|
char *cond_mask_sym;
|
|||
|
|
char cond_mask_sym_buf[6];
|
|||
|
|
|
|||
|
|
if (opptr->width == 0)
|
|||
|
|
return;
|
|||
|
|
|
|||
|
|
switch(opptr->type) {
|
|||
|
|
case CRREG:
|
|||
|
|
if (!first)
|
|||
|
|
*buf++= ',';
|
|||
|
|
sprintf( buf, "cr%d", UEXT(inst,opptr->offset,opptr->width));
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case FCRREG:
|
|||
|
|
if (!first)
|
|||
|
|
*buf++= ',';
|
|||
|
|
sprintf( buf, "fcr%d", UEXT(inst,opptr->offset,opptr->width));
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case REGSC:
|
|||
|
|
sprintf( buf, "[r%d]", UEXT(inst,opptr->offset,opptr->width));
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case REG:
|
|||
|
|
if (!first)
|
|||
|
|
*buf++= ',';
|
|||
|
|
sprintf( buf, "r%d", UEXT(inst,opptr->offset,opptr->width));
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case HEX:
|
|||
|
|
if (!first)
|
|||
|
|
*buf++= ',';
|
|||
|
|
extracted_field= UEXT(inst, opptr->offset, opptr->width);
|
|||
|
|
if (extracted_field == 0) {
|
|||
|
|
sprintf( buf, "0" );
|
|||
|
|
} else {
|
|||
|
|
sprintf( buf, "0x%02x", extracted_field );
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case CONDMASK:
|
|||
|
|
if (!first)
|
|||
|
|
*buf++= ',';
|
|||
|
|
extracted_field= UEXT(inst, opptr->offset, opptr->width);
|
|||
|
|
switch (extracted_field & 0x0f) {
|
|||
|
|
case 0x1: cond_mask_sym= "gt0";
|
|||
|
|
break;
|
|||
|
|
case 0x2: cond_mask_sym= "eq0";
|
|||
|
|
break;
|
|||
|
|
case 0x3: cond_mask_sym= "ge0";
|
|||
|
|
break;
|
|||
|
|
case 0xc: cond_mask_sym= "lt0";
|
|||
|
|
break;
|
|||
|
|
case 0xd: cond_mask_sym= "ne0";
|
|||
|
|
break;
|
|||
|
|
case 0xe: cond_mask_sym= "le0";
|
|||
|
|
break;
|
|||
|
|
default: cond_mask_sym= cond_mask_sym_buf;
|
|||
|
|
sprintf( cond_mask_sym_buf,
|
|||
|
|
"%x",
|
|||
|
|
extracted_field );
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
strcpy( buf, cond_mask_sym );
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case PCREL:
|
|||
|
|
if (!first)
|
|||
|
|
*buf++= ',';
|
|||
|
|
sprint_address( pc + 4*(SEXT(inst,opptr->offset,opptr->width)),
|
|||
|
|
buf );
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case CONT:
|
|||
|
|
sprintf( buf,
|
|||
|
|
"%d,r%d",
|
|||
|
|
UEXT(inst,opptr->offset,5),
|
|||
|
|
UEXT(inst,(opptr->offset)+5,5) );
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
case BF:
|
|||
|
|
if (!first)
|
|||
|
|
*buf++= ',';
|
|||
|
|
sprintf( buf,
|
|||
|
|
"%d<%d>",
|
|||
|
|
UEXT(inst,(opptr->offset)+5,5),
|
|||
|
|
UEXT(inst,opptr->offset,5));
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
default:
|
|||
|
|
sprintf( buf, "<dis error: %08x>", inst );
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Initialize the Disassembler Instruction Table
|
|||
|
|
*
|
|||
|
|
* Initialize the hash table and instruction table for the disassembler.
|
|||
|
|
* This should be called once before the first call to disasm().
|
|||
|
|
*
|
|||
|
|
* Parameters
|
|||
|
|
*
|
|||
|
|
* Output
|
|||
|
|
*
|
|||
|
|
* If the debug option is selected, certain statistics about the hashing
|
|||
|
|
* distribution are written to stdout.
|
|||
|
|
*
|
|||
|
|
* Revision History
|
|||
|
|
*
|
|||
|
|
* Revision 1.0 11/08/85 Creation date
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
init_disasm()
|
|||
|
|
{
|
|||
|
|
int i,size;
|
|||
|
|
|
|||
|
|
for (i=0 ; i < HASHVAL ; i++)
|
|||
|
|
hashtable[i] = NULL;
|
|||
|
|
|
|||
|
|
for (i=0, size = sizeof(instructions) / sizeof(INSTAB) ; i < size ;
|
|||
|
|
install(&instructions[i++]));
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Insert an instruction into the disassembler table by hashing the
|
|||
|
|
* opcode and inserting it into the linked list for that hash value.
|
|||
|
|
*
|
|||
|
|
* Parameters
|
|||
|
|
*
|
|||
|
|
* INSTAB *instptr Pointer to the entry in the instruction table
|
|||
|
|
* to be installed
|
|||
|
|
*
|
|||
|
|
* Revision 1.0 11/08/85 Creation date
|
|||
|
|
* 05/11/89 R. TRAWICK ADAPTED FROM MOTOROLA
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
install(instptr)
|
|||
|
|
INSTAB *instptr;
|
|||
|
|
{
|
|||
|
|
UINT i;
|
|||
|
|
|
|||
|
|
i = (instptr->opcode) % HASHVAL;
|
|||
|
|
instptr->next = hashtable[i];
|
|||
|
|
hashtable[i] = instptr;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/* adapted from print_address in printcmd by R. Trawick 5/15/89. The two should
|
|||
|
|
be combined.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
void sprint_address (addr, buffer)
|
|||
|
|
|
|||
|
|
CORE_ADDR addr;
|
|||
|
|
char *buffer;
|
|||
|
|
|
|||
|
|
{
|
|||
|
|
register int i;
|
|||
|
|
struct symbol *fs;
|
|||
|
|
char *name;
|
|||
|
|
int name_location;
|
|||
|
|
|
|||
|
|
sprintf ( buffer, "0x%x", addr);
|
|||
|
|
|
|||
|
|
fs = find_pc_function (addr);
|
|||
|
|
|
|||
|
|
if (!fs) {
|
|||
|
|
i = find_pc_misc_function (addr);
|
|||
|
|
|
|||
|
|
if (i < 0) return; /* If nothing comes through, don't
|
|||
|
|
print anything symbolic */
|
|||
|
|
|
|||
|
|
name = misc_function_vector[i].name;
|
|||
|
|
name_location = misc_function_vector[i].address;
|
|||
|
|
} else {
|
|||
|
|
name = fs->name;
|
|||
|
|
name_location = BLOCK_START (SYMBOL_BLOCK_VALUE (fs));
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (addr - name_location)
|
|||
|
|
sprintf (buffer, " <%s+%d>", name, addr - name_location);
|
|||
|
|
else
|
|||
|
|
sprintf (buffer, " <%s>", name);
|
|||
|
|
}
|