Thu Jan 7 13:15:17 1993 Ian Lance Taylor (ian@tweedledumb.cygnus.com)

	* mips-dis.c: New file, from gdb/mips-pinsn.c.
	* Makefile.in (DIS_LIBS): Added mips-dis.o.
	(CFILES): Added mips-dis.c.

1 files changed, 181 insertions, 0 deletions

diff --git a/opcodes/mips-dis.c b/opcodes/mips-dis.c
new file mode 100644
index 0000000..1be0fbd
--- /dev/null
+++ b/opcodes/mips-dis.c
@@ -0,0 +1,181 @@
+/* Print mips instructions for GDB, the GNU debugger, or for objdump.
+   Copyright 1989, 1991, 1992 Free Software Foundation, Inc.
+   Contributed by Nobuyuki Hikichi(hikichi@sra.co.jp).
+
+This file is part of GDB.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+
+#include "sysdep.h"
+#include <stdio.h>
+#include "bfd.h"
+#include "opcode/mips.h"
+
+/* FIXME: we need direct access to the swapping functions.  */
+#include "libbfd.h"
+
+/* We use bfd_vma in a couple of places where gdb expects CORE_ADDR.  */
+#ifdef HOST_64_BIT
+ #error FIXME: bfd_vma will not match gdb expectations
+#endif
+
+/* This file is used both by gdb and by objdump.  A program which
+   wants to use this code must provide an external function
+   print_address.  */
+extern int print_address PARAMS ((bfd_vma, FILE *));
+
+/* Mips instructions are never longer than this many bytes.  */
+#define MAXLEN 4
+
+/* Number of elements in the opcode table.  */
+#define NOPCODES (sizeof mips_opcodes / sizeof mips_opcodes[0])
+
+/* FIXME: This should be shared with gdb somehow.  */
+#define REGISTER_NAMES 	\
+    {	"zero",	"at",	"v0",	"v1",	"a0",	"a1",	"a2",	"a3", \
+	"t0",	"t1",	"t2",	"t3",	"t4",	"t5",	"t6",	"t7", \
+	"s0",	"s1",	"s2",	"s3",	"s4",	"s5",	"s6",	"s7", \
+	"t8",	"t9",	"k0",	"k1",	"gp",	"sp",	"s8",	"ra", \
+	"sr",	"lo",	"hi",	"bad",	"cause","pc",    \
+	"f0",   "f1",   "f2",   "f3",   "f4",   "f5",   "f6",   "f7", \
+	"f8",   "f9",   "f10",  "f11",  "f12",  "f13",  "f14",  "f15", \
+	"f16",  "f17",  "f18",  "f19",  "f20",  "f21",  "f22",  "f23",\
+	"f24",  "f25",  "f26",  "f27",  "f28",  "f29",  "f30",  "f31",\
+	"fsr",  "fir",  "fp",   "inx",  "rand", "tlblo","ctxt", "tlbhi",\
+	"epc",  "prid"\
+    }
+
+static CONST char * CONST reg_names[] = REGISTER_NAMES;
+
+/* subroutine */
+static unsigned char *
+print_insn_arg (d, l, stream, pc)
+     char *d;
+     register unsigned long int *l;
+     FILE *stream;
+     bfd_vma pc;
+{
+  switch (*d)
+    {
+    case ',':
+    case '(':
+    case ')':
+      fputc (*d, stream);
+      break;
+
+    case 's':
+      fprintf (stream, "$%s", reg_names[((struct op_i_fmt *) l)->rs]);
+      break;
+
+    case 't':
+      fprintf (stream, "$%s", reg_names[((struct op_i_fmt *) l)->rt]);
+      break;
+
+    case 'i':
+      fprintf (stream, "%d", ((struct op_i_fmt *) l)->immediate);
+      break;
+
+    case 'j': /* same as i, but sign-extended */
+      fprintf (stream, "%d", ((struct op_b_fmt *) l)->delta);
+      break;
+
+    case 'a':
+      print_address ((pc & 0xF0000000) | (((struct op_j_fmt *)l)->target << 2),
+		     stream);
+      break;
+
+    case 'b':
+      print_address ((((struct op_b_fmt *) l)->delta << 2) + pc + 4, stream);
+      break;
+
+    case 'd':
+      fprintf (stream, "$%s", reg_names[((struct op_r_fmt *) l)->rd]);
+      break;
+
+    case 'h':
+      fprintf (stream, "0x%x", ((struct op_r_fmt *) l)->shamt);
+      break;
+
+    case 'B':
+      fprintf (stream, "0x%x", ((struct op_brk_fmt *) l)->code);
+      break;
+
+    case 'S':
+      fprintf (stream, "$f%d", ((struct fop_r_fmt *) l)->fs);
+      break;
+
+    case 'T':
+      fprintf (stream, "$f%d", ((struct fop_r_fmt *) l)->ft);
+      break;
+
+    case 'D':
+      fprintf (stream, "$f%d", ((struct fop_r_fmt *) l)->fd);
+      break;
+
+    default:
+      fprintf (stream, "# internal error, undefined modifier(%c)", *d);
+      break;
+    }
+}
+
+/* Print the mips instruction at address MEMADDR in debugged memory,
+   on STREAM.  Returns length of the instruction, in bytes, which is
+   always 4.  BIGENDIAN must be 1 if this is big-endian code, 0 if
+   this is little-endian code.  */
+
+int
+print_insn_mips (memaddr, buffer, stream, bigendian)
+     bfd_vma memaddr;
+     bfd_byte *buffer;
+     FILE *stream;
+     int bigendian;
+{
+  register int i;
+  register char *d;
+  unsigned long int l;
+
+  /* FIXME: can't we export these functions from bfd?  */
+  if (bigendian)
+    l = _do_getb32 (buffer);
+  else
+    l = _do_getl32 (buffer);
+
+  for (i = 0; i < NOPCODES; i++)
+    {
+      register unsigned int opcode = mips_opcodes[i].opcode;
+      register unsigned int match = mips_opcodes[i].match;
+      if ((l & match) == opcode)
+	break;
+    }
+
+  /* Handle undefined instructions.  */
+  if (i == NOPCODES)
+    {
+      fprintf (stream, "0x%x",l);
+      return 4;
+    }
+
+  fprintf (stream, "%s", mips_opcodes[i].name);
+
+  if (!(d = mips_opcodes[i].args))
+    return 4;
+
+  fputc (' ', stream);
+
+  while (*d)
+    print_insn_arg (d++, &l, stream, memaddr);
+
+  return 4;
+}