espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-09 17:33:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

2000-08-30 Kazu Hirata <kazu@hxi.com>

Browse Source 
* tic80-dis.c: Fix formatting.
This commit is contained in:
Kazu Hirata
2000-08-30 18:51:25 +00:00
parent 7ee3806531
commit c6d805e091
2 changed files with 71 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
opcodes/ChangeLog
View File

@ -1,3 +1,7 @@
2000-08-30 Kazu Hirata <kazu@hxi.com>
* tic80-dis.c: Fix formatting.
2000-08-29 Kazu Hirata <kazu@hxi.com> 2000-08-29 Kazu Hirata <kazu@hxi.com>
* w65-dis.c: Fix formatting. * w65-dis.c: Fix formatting.

124
opcodes/tic80-dis.c
View File

@ -1,5 +1,5 @@
/* Print TI TMS320C80 (MVP) instructions /* Print TI TMS320C80 (MVP) instructions
Copyright 1996, 1997, 1998, 1999 Free Software Foundation, Inc. Copyright 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
This file is free software; you can redistribute it and/or modify This file is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by it under the terms of the GNU General Public License as published by
@ -36,7 +36,6 @@ static int print_instruction PARAMS ((struct disassemble_info *, bfd_vma, unsign
const struct tic80_opcode *)); const struct tic80_opcode *));
static int fill_instruction PARAMS ((struct disassemble_info *, bfd_vma, static int fill_instruction PARAMS ((struct disassemble_info *, bfd_vma,
unsigned long *)); unsigned long *));
/* Print an integer operand. Try to be somewhat smart about the /* Print an integer operand. Try to be somewhat smart about the
format by assuming that small positive or negative integers are format by assuming that small positive or negative integers are
@ -51,14 +50,13 @@ print_operand_integer (info, value)
{ {
if ((value > 9999 || value < -9999)) if ((value > 9999 || value < -9999))
{ {
(*info -> fprintf_func) (info -> stream, "%#lx", value); (*info->fprintf_func) (info->stream, "%#lx", value);
} }
else else
{ {
(*info -> fprintf_func) (info -> stream, "%ld", value); (*info->fprintf_func) (info->stream, "%ld", value);
} }
} }
/* FIXME: depends upon sizeof (long) == sizeof (float) and /* FIXME: depends upon sizeof (long) == sizeof (float) and
also upon host floating point format matching target also upon host floating point format matching target
@ -72,9 +70,8 @@ print_operand_float (info, value)
union { float f; long l; } fval; union { float f; long l; } fval;
fval.l = value; fval.l = value;
(*info -> fprintf_func) (info -> stream, "%g", fval.f); (*info->fprintf_func) (info->stream, "%g", fval.f);
} }
static void static void
print_operand_control_register (info, value) print_operand_control_register (info, value)
@ -86,14 +83,13 @@ print_operand_control_register (info, value)
tmp = tic80_value_to_symbol (value, TIC80_OPERAND_CR); tmp = tic80_value_to_symbol (value, TIC80_OPERAND_CR);
if (tmp != NULL) if (tmp != NULL)
{ {
(*info -> fprintf_func) (info -> stream, "%s", tmp); (*info->fprintf_func) (info->stream, "%s", tmp);
} }
else else
{ {
(*info -> fprintf_func) (info -> stream, "%#lx", value); (*info->fprintf_func) (info->stream, "%#lx", value);
} }
} }
static void static void
print_operand_condition_code (info, value) print_operand_condition_code (info, value)
@ -105,14 +101,13 @@ print_operand_condition_code (info, value)
tmp = tic80_value_to_symbol (value, TIC80_OPERAND_CC); tmp = tic80_value_to_symbol (value, TIC80_OPERAND_CC);
if (tmp != NULL) if (tmp != NULL)
{ {
(*info -> fprintf_func) (info -> stream, "%s", tmp); (*info->fprintf_func) (info->stream, "%s", tmp);
} }
else else
{ {
(*info -> fprintf_func) (info -> stream, "%ld", value); (*info->fprintf_func) (info->stream, "%ld", value);
} }
} }
static void static void
print_operand_bitnum (info, value) print_operand_bitnum (info, value)
@ -126,20 +121,19 @@ print_operand_bitnum (info, value)
tmp = tic80_value_to_symbol (bitnum, TIC80_OPERAND_BITNUM); tmp = tic80_value_to_symbol (bitnum, TIC80_OPERAND_BITNUM);
if (tmp != NULL) if (tmp != NULL)
{ {
(*info -> fprintf_func) (info -> stream, "%s", tmp); (*info->fprintf_func) (info->stream, "%s", tmp);
} }
else else
{ {
(*info -> fprintf_func) (info -> stream, "%ld", bitnum); (*info->fprintf_func) (info->stream, "%ld", bitnum);
} }
} }
/* Print the operand as directed by the flags. */ /* Print the operand as directed by the flags. */
#define M_SI(insn,op) ((((op) -> flags & TIC80_OPERAND_M_SI) != 0) && ((insn) & (1 << 17))) #define M_SI(insn,op) ((((op)->flags & TIC80_OPERAND_M_SI) != 0) && ((insn) & (1 << 17)))
#define M_LI(insn,op) ((((op) -> flags & TIC80_OPERAND_M_LI) != 0) && ((insn) & (1 << 15))) #define M_LI(insn,op) ((((op)->flags & TIC80_OPERAND_M_LI) != 0) && ((insn) & (1 << 15)))
#define R_SCALED(insn,op) ((((op) -> flags & TIC80_OPERAND_SCALED) != 0) && ((insn) & (1 << 11))) #define R_SCALED(insn,op) ((((op)->flags & TIC80_OPERAND_SCALED) != 0) && ((insn) & (1 << 11)))
static void static void
print_operand (info, value, insn, operand, memaddr) print_operand (info, value, insn, operand, memaddr)
@ -149,61 +143,60 @@ print_operand (info, value, insn, operand, memaddr)
const struct tic80_operand *operand; const struct tic80_operand *operand;
bfd_vma memaddr; bfd_vma memaddr;
{ {
if ((operand -> flags & TIC80_OPERAND_GPR) != 0) if ((operand->flags & TIC80_OPERAND_GPR) != 0)
{ {
(*info -> fprintf_func) (info -> stream, "r%ld", value); (*info->fprintf_func) (info->stream, "r%ld", value);
if (M_SI (insn, operand) || M_LI (insn, operand)) if (M_SI (insn, operand) || M_LI (insn, operand))
{ {
(*info -> fprintf_func) (info -> stream, ":m"); (*info->fprintf_func) (info->stream, ":m");
} }
} }
else if ((operand -> flags & TIC80_OPERAND_FPA) != 0) else if ((operand->flags & TIC80_OPERAND_FPA) != 0)
{ {
(*info -> fprintf_func) (info -> stream, "a%ld", value); (*info->fprintf_func) (info->stream, "a%ld", value);
} }
else if ((operand -> flags & TIC80_OPERAND_PCREL) != 0) else if ((operand->flags & TIC80_OPERAND_PCREL) != 0)
{ {
(*info -> print_address_func) (memaddr + 4 * value, info); (*info->print_address_func) (memaddr + 4 * value, info);
} }
else if ((operand -> flags & TIC80_OPERAND_BASEREL) != 0) else if ((operand->flags & TIC80_OPERAND_BASEREL) != 0)
{ {
(*info -> print_address_func) (value, info); (*info->print_address_func) (value, info);
} }
else if ((operand -> flags & TIC80_OPERAND_BITNUM) != 0) else if ((operand->flags & TIC80_OPERAND_BITNUM) != 0)
{ {
print_operand_bitnum (info, value); print_operand_bitnum (info, value);
} }
else if ((operand -> flags & TIC80_OPERAND_CC) != 0) else if ((operand->flags & TIC80_OPERAND_CC) != 0)
{ {
print_operand_condition_code (info, value); print_operand_condition_code (info, value);
} }
else if ((operand -> flags & TIC80_OPERAND_CR) != 0) else if ((operand->flags & TIC80_OPERAND_CR) != 0)
{ {
print_operand_control_register (info, value); print_operand_control_register (info, value);
} }
else if ((operand -> flags & TIC80_OPERAND_FLOAT) != 0) else if ((operand->flags & TIC80_OPERAND_FLOAT) != 0)
{ {
print_operand_float (info, value); print_operand_float (info, value);
} }
else if ((operand -> flags & TIC80_OPERAND_BITFIELD)) else if ((operand->flags & TIC80_OPERAND_BITFIELD))
{ {
(*info -> fprintf_func) (info -> stream, "%#lx", value); (*info->fprintf_func) (info->stream, "%#lx", value);
} }
else else
{ {
print_operand_integer (info, value); print_operand_integer (info, value);
} }
/* If this is a scaled operand, then print the modifier */ /* If this is a scaled operand, then print the modifier. */
if (R_SCALED (insn, operand)) if (R_SCALED (insn, operand))
{ {
(*info -> fprintf_func) (info -> stream, ":s"); (*info->fprintf_func) (info->stream, ":s");
} }
} }
/* We have chosen an opcode table entry */ /* We have chosen an opcode table entry. */
static int static int
print_one_instruction (info, memaddr, insn, opcode) print_one_instruction (info, memaddr, insn, opcode)
@ -218,18 +211,18 @@ print_one_instruction (info, memaddr, insn, opcode)
const unsigned char *opindex; const unsigned char *opindex;
int close_paren; int close_paren;
(*info -> fprintf_func) (info -> stream, "%-10s", opcode -> name); (*info->fprintf_func) (info->stream, "%-10s", opcode->name);
for (opindex = opcode -> operands; *opindex != 0; opindex++) for (opindex = opcode->operands; *opindex != 0; opindex++)
{ {
operand = tic80_operands + *opindex; operand = tic80_operands + *opindex;
/* Extract the value from the instruction. */ /* Extract the value from the instruction. */
if (operand -> extract) if (operand->extract)
{ {
value = (*operand -> extract) (insn, (int *) NULL); value = (*operand->extract) (insn, (int *) NULL);
} }
else if (operand -> bits == 32) else if (operand->bits == 32)
{ {
status = fill_instruction (info, memaddr, (unsigned long *) &value); status = fill_instruction (info, memaddr, (unsigned long *) &value);
if (status == -1) if (status == -1)
@ -239,11 +232,11 @@ print_one_instruction (info, memaddr, insn, opcode)
} }
else else
{ {
value = (insn >> operand -> shift) & ((1 << operand -> bits) - 1); value = (insn >> operand->shift) & ((1 << operand->bits) - 1);
if ((operand -> flags & TIC80_OPERAND_SIGNED) != 0 if ((operand->flags & TIC80_OPERAND_SIGNED) != 0
&& (value & (1 << (operand -> bits - 1))) != 0) && (value & (1 << (operand->bits - 1))) != 0)
{ {
value -= 1 << operand -> bits; value -= 1 << operand->bits;
} }
} }
@ -251,18 +244,18 @@ print_one_instruction (info, memaddr, insn, opcode)
the open paren, otherwise just print the regular comma the open paren, otherwise just print the regular comma
separator, except for the first operand. */ separator, except for the first operand. */
if ((operand -> flags & TIC80_OPERAND_PARENS) == 0) if ((operand->flags & TIC80_OPERAND_PARENS) == 0)
{ {
close_paren = 0; close_paren = 0;
if (opindex != opcode -> operands) if (opindex != opcode->operands)
{ {
(*info -> fprintf_func) (info -> stream, ","); (*info->fprintf_func) (info->stream, ",");
} }
} }
else else
{ {
close_paren = 1; close_paren = 1;
(*info -> fprintf_func) (info -> stream, "("); (*info->fprintf_func) (info->stream, "(");
} }
print_operand (info, value, insn, operand, memaddr); print_operand (info, value, insn, operand, memaddr);
@ -272,19 +265,17 @@ print_one_instruction (info, memaddr, insn, opcode)
if (close_paren) if (close_paren)
{ {
(*info -> fprintf_func) (info -> stream, ")"); (*info->fprintf_func) (info->stream, ")");
} }
} }
return (length); return (length);
} }
/* There are no specific bits that tell us for certain whether a vector /* There are no specific bits that tell us for certain whether a vector
instruction opcode contains one or two instructions. However since instruction opcode contains one or two instructions. However since
a destination register of r0 is illegal, we can check for nonzero a destination register of r0 is illegal, we can check for nonzero
values in both destination register fields. Only opcodes that have values in both destination register fields. Only opcodes that have
two valid instructions will have non-zero in both */ two valid instructions will have non-zero in both. */
#define TWO_INSN(insn) ((((insn) & (0x1F << 27)) != 0) && (((insn) & (0x1F << 22)) != 0)) #define TWO_INSN(insn) ((((insn) & (0x1F << 27)) != 0) && (((insn) & (0x1F << 22)) != 0))
@ -307,7 +298,7 @@ print_instruction (info, memaddr, insn, vec_opcode)
opcode_end = tic80_opcodes + tic80_num_opcodes; opcode_end = tic80_opcodes + tic80_num_opcodes;
for (opcode = tic80_opcodes; opcode < opcode_end; opcode++) for (opcode = tic80_opcodes; opcode < opcode_end; opcode++)
{ {
if ((insn & opcode -> mask) == opcode -> opcode && if ((insn & opcode->mask) == opcode->opcode &&
opcode != vec_opcode) opcode != vec_opcode)
{ {
break; break;
@ -316,19 +307,19 @@ print_instruction (info, memaddr, insn, vec_opcode)
if (opcode == opcode_end) if (opcode == opcode_end)
{ {
/* No match found, just print the bits as a .word directive */ /* No match found, just print the bits as a .word directive. */
(*info -> fprintf_func) (info -> stream, ".word %#08lx", insn); (*info->fprintf_func) (info->stream, ".word %#08lx", insn);
} }
else else
{ {
/* Match found, decode the instruction. */ /* Match found, decode the instruction. */
length = print_one_instruction (info, memaddr, insn, opcode); length = print_one_instruction (info, memaddr, insn, opcode);
if (opcode -> flags & TIC80_VECTOR && vec_opcode == NULL && TWO_INSN (insn)) if (opcode->flags & TIC80_VECTOR && vec_opcode == NULL && TWO_INSN (insn))
{ {
/* There is another instruction to print from the same opcode. /* There is another instruction to print from the same opcode.
Print the separator and then find and print the other Print the separator and then find and print the other
instruction. */ instruction. */
(*info -> fprintf_func) (info -> stream, " || "); (*info->fprintf_func) (info->stream, " || ");
length = print_instruction (info, memaddr, insn, opcode); length = print_instruction (info, memaddr, insn, opcode);
} }
} }
@ -348,12 +339,12 @@ fill_instruction (info, memaddr, insnp)
bfd_byte buffer[4]; bfd_byte buffer[4];
int status; int status;
/* Get the bits for the next 32 bit word and put in buffer */ /* Get the bits for the next 32 bit word and put in buffer. */
status = (*info -> read_memory_func) (memaddr + length, buffer, 4, info); status = (*info->read_memory_func) (memaddr + length, buffer, 4, info);
if (status != 0) if (status != 0)
{ {
(*info -> memory_error_func) (status, memaddr, info); (*info->memory_error_func) (status, memaddr, info);
return (-1); return (-1);
} }
@ -361,22 +352,21 @@ fill_instruction (info, memaddr, insnp)
the bits into internal format. */ the bits into internal format. */
length += 4; length += 4;
if (info -> endian == BFD_ENDIAN_LITTLE) if (info->endian == BFD_ENDIAN_LITTLE)
{ {
*insnp = bfd_getl32 (buffer); *insnp = bfd_getl32 (buffer);
} }
else if (info -> endian == BFD_ENDIAN_BIG) else if (info->endian == BFD_ENDIAN_BIG)
{ {
*insnp = bfd_getb32 (buffer); *insnp = bfd_getb32 (buffer);
} }
else else
{ {
/* FIXME: Should probably just default to one or the other */ /* FIXME: Should probably just default to one or the other. */
abort (); abort ();
} }
return (0); return (0);
} }
int int
print_insn_tic80 (memaddr, info) print_insn_tic80 (memaddr, info)