* mips-opc.c (c.lt.s): Remove r5900 specific variant.
[deliverable/binutils-gdb.git] / opcodes / mips-dis.c
index 1e7acc2c8372a315f2d072a7814113bc72edd2a6..1541cfd40830c90d0f75b0dd9f997037df94691b 100644 (file)
@@ -1,5 +1,5 @@
 /* Print mips instructions for GDB, the GNU debugger, or for objdump.
-   Copyright 1989, 91, 92, 93, 94, 95, 96, 1997 Free Software Foundation, Inc.
+   Copyright (c) 1989, 91-97, 1998 Free Software Foundation, Inc.
    Contributed by Nobuyuki Hikichi(hikichi@sra.co.jp).
 
 This file is part of GDB, GAS, and the GNU binutils.
@@ -22,6 +22,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "sysdep.h"
 #include "dis-asm.h"
 #include "opcode/mips.h"
+#include "opintl.h"
 
 /* FIXME: These are needed to figure out if this is a mips16 symbol or
    not.  It would be better to think of a cleaner way to do this.  */
@@ -84,6 +85,10 @@ print_insn_arg (d, l, pc, info)
     case '[':
     case ']':
       /* end-sanitize-vr5400 */
+      /* start-sanitize-r5900 */
+    case '+':
+    case '-':
+      /* end-sanitize-r5900 */
       (*info->fprintf_func) (info->stream, "%c", *d);
       break;
 
@@ -163,6 +168,12 @@ print_insn_arg (d, l, pc, info)
                             (l >> OP_SH_CODE) & OP_MASK_CODE);
       break;
 
+
+    case 'q':
+      (*info->fprintf_func) (info->stream, "0x%x",
+                            (l >> OP_SH_CODE2) & OP_MASK_CODE2);
+      break;
+
     case 'C':
       (*info->fprintf_func) (info->stream, "0x%x",
                             (l >> OP_SH_COPZ) & OP_MASK_COPZ);
@@ -179,6 +190,124 @@ print_insn_arg (d, l, pc, info)
                             (l >> OP_SH_FS) & OP_MASK_FS);
       break;
 
+    /* start-sanitize-r5900 */
+    case '0':
+      (*info->fprintf_func) (info->stream, "0x%x",
+                             (l >> 6) & 0x1f);
+      break;
+
+    case '9':
+      (*info->fprintf_func) (info->stream, "vi27");
+      break;
+
+    case '1':
+      (*info->fprintf_func) (info->stream, "vf%d",
+                            (l >> OP_SH_FT) & OP_MASK_FT);
+      break;
+    case '2':
+      (*info->fprintf_func) (info->stream, "vf%d",
+                            (l >> OP_SH_FS) & OP_MASK_FS);
+      break;
+    case '3':
+      (*info->fprintf_func) (info->stream, "vf%d",
+                            (l >> OP_SH_FD) & OP_MASK_FD);
+      break;
+
+    case '4':
+      (*info->fprintf_func) (info->stream, "vi%d",
+                            (l >> OP_SH_FT) & OP_MASK_FT);
+      break;
+    case '5':
+      (*info->fprintf_func) (info->stream, "vi%d",
+                            (l >> OP_SH_FS) & OP_MASK_FS);
+      break;
+    case '6':
+      (*info->fprintf_func) (info->stream, "vi%d",
+                            (l >> OP_SH_FD) & OP_MASK_FD);
+      break;
+
+    case '7':
+      (*info->fprintf_func) (info->stream, "vf%d",
+                            (l >> OP_SH_FT) & OP_MASK_FT);
+      switch ((l >> 23) & 0x3)
+       {
+         case 0:
+           (*info->fprintf_func) (info->stream, "x");
+           break;
+         case 1:
+           (*info->fprintf_func) (info->stream, "y");
+           break;
+         case 2:
+           (*info->fprintf_func) (info->stream, "z");
+           break;
+         case 3:
+           (*info->fprintf_func) (info->stream, "w");
+           break;
+       }
+      break;
+    case 'K':
+      break;
+
+    case ';':
+      (*info->fprintf_func) (info->stream, ".xyz\t");
+      break;
+       
+    case '&':
+      (*info->fprintf_func) (info->stream, ".");
+      if (l & (1 << 21))
+       (*info->fprintf_func) (info->stream, "w");
+      if (l & (1 << 24))
+       (*info->fprintf_func) (info->stream, "x");
+      if (l & (1 << 23))
+       (*info->fprintf_func) (info->stream, "y");
+      if (l & (1 << 22))
+       (*info->fprintf_func) (info->stream, "z");
+      (*info->fprintf_func) (info->stream, "\t");
+      break;
+       
+    case '8':
+      (*info->fprintf_func) (info->stream, "vf%d",
+                            (l >> OP_SH_FS) & OP_MASK_FS);
+      switch ((l >> 21) & 0x3)
+       {
+         case 0:
+           (*info->fprintf_func) (info->stream, "x");
+           break;
+         case 1:
+           (*info->fprintf_func) (info->stream, "y");
+           break;
+         case 2:
+           (*info->fprintf_func) (info->stream, "z");
+           break;
+         case 3:
+           (*info->fprintf_func) (info->stream, "w");
+           break;
+       }
+      break;
+    case 'J':
+      (*info->fprintf_func) (info->stream, "I");
+      break;
+
+    case 'Q':
+      (*info->fprintf_func) (info->stream, "Q");
+      break;
+
+    case 'X':
+      (*info->fprintf_func) (info->stream, "R");
+      break;
+
+    case 'U':
+      (*info->fprintf_func) (info->stream, "ACC");
+      break;
+
+    case 'O':
+      delta = (l >> 6) & 0x7fff;
+      delta <<= 3;
+      (*info->print_address_func) (delta, info);
+      break;
+
+    /* end-sanitize-r5900 */
+
     case 'T':
     case 'W':
       (*info->fprintf_func) (info->stream, "$f%d",
@@ -216,7 +345,7 @@ print_insn_arg (d, l, pc, info)
       break;
 
     case 'P':
-      (*info->fprintf_func) (info->stream, "$%d",
+      (*info->fprintf_func) (info->stream, "%d",
                             (l >> OP_SH_PERFREG) & OP_MASK_PERFREG);
       break;
 
@@ -233,8 +362,10 @@ print_insn_arg (d, l, pc, info)
       /* end-sanitize-vr5400 */
 
     default:
+      /* xgettext:c-format */
       (*info->fprintf_func) (info->stream,
-                            "# internal error, undefined modifier(%c)", *d);
+                            _("# internal error, undefined modifier(%c)"),
+                            *d);
       break;
     }
 }
@@ -309,6 +440,12 @@ _print_insn_mips (memaddr, word, info)
        target_processor = 4300;
        mips_isa = 3;
        break;
+       /* start-sanitize-vr4320 */
+      case bfd_mach_mips4320:
+       target_processor = 4320;
+       mips_isa = 3;
+       break;
+       /* end-sanitize-vr4320 */
       case bfd_mach_mips4400:
        target_processor = 4400;
        mips_isa = 3;
@@ -397,10 +534,14 @@ _print_insn_mips (memaddr, word, info)
                      && op->membership & INSN_4010) == 0
                  && (target_processor == 4100
                      && op->membership & INSN_4100) == 0
+                 /* start-sanitize-vr4320 */
+                 && (target_processor == 4320
+                     && op->membership & INSN_4320) == 0
+                 /* end-sanitize-vr4320 */
                  /* start-sanitize-vr5400 */
                  && (target_processor == 5400
                      && op->membership & INSN_5400) == 0
-                 /* end-santiize-vr5400 */
+                 /* end-sanitize-vr5400 */
                  /* start-sanitize-r5900 */
                  && (target_processor == 5900
                      && op->membership & INSN_5900) == 0
@@ -418,9 +559,24 @@ _print_insn_mips (memaddr, word, info)
              d = op->args;
              if (d != NULL && *d != '\0')
                {
-                 (*info->fprintf_func) (info->stream, "\t");
+                 /* start-sanitize-r5900 */
+                 /* If this is an opcode completer, then do not emit
+                    a tab after the opcode.  */
+                 if (*d != '&' && *d != ';')
+                 /* end-sanitize-r5900 */
+                   (*info->fprintf_func) (info->stream, "\t");
                  for (; *d != '\0'; d++)
-                   print_insn_arg (d, word, memaddr, info);
+                   /* start-sanitize-r5900 */
+                   /* If this is an escape character, go ahead and print the
+                      next character in the arg string verbatim.  */
+                   if (*d == '#')
+                     {
+                       d++;
+                       (*info->fprintf_func) (info->stream, "%c", *d);
+                     }
+                   else
+                   /* end-sanitize-r5900 */
+                     print_insn_arg (d, word, memaddr, info);
                }
 
              return 4;
@@ -443,8 +599,8 @@ print_insn_big_mips (memaddr, info)
 
   if (info->mach == 16
       || (info->flavour == bfd_target_elf_flavour
-         && info->symbol != NULL
-         && (((elf_symbol_type *) info->symbol)->internal_elf_sym.st_other
+         && info->symbols != NULL
+         && ((*(elf_symbol_type **) info->symbols)->internal_elf_sym.st_other
              == STO_MIPS16)))
     return print_insn_mips16 (memaddr, info);
 
@@ -469,18 +625,23 @@ print_insn_little_mips (memaddr, info)
 
   /* start-sanitize-sky */
 #ifdef ARCH_dvp
-  if (bfd_mach_dvp_p (info->mach)
-      || (info->flavour == bfd_target_elf_flavour
-         && info->symbol != NULL
-         && MIPS_STO_DVP_P (((elf_symbol_type *) info->symbol)->internal_elf_sym.st_other)))
-    return print_insn_dvp (memaddr, info);
+  {
+    /* bfd_mach_dvp_p is a macro which may evaluate its arguments more than
+       once.  Since dvp_mach_type is a function, ensure it's only called
+       once.  */
+    int mach = dvp_info_mach_type (info);
+
+    if (bfd_mach_dvp_p (info->mach)
+       || bfd_mach_dvp_p (mach))
+      return print_insn_dvp (memaddr, info);
+  }
 #endif
   /* end-sanitize-sky */
 
   if (info->mach == 16
       || (info->flavour == bfd_target_elf_flavour
-         && info->symbol != NULL
-         && (((elf_symbol_type *) info->symbol)->internal_elf_sym.st_other
+         && info->symbols != NULL
+         && ((*(elf_symbol_type **) info->symbols)->internal_elf_sym.st_other
              == STO_MIPS16)))
     return print_insn_mips16 (memaddr, info);
 
@@ -507,7 +668,7 @@ print_insn_mips16 (memaddr, info)
   int length;
   int insn;
   boolean use_extend;
-  int extend;
+  int extend = 0;
   const struct mips_opcode *op, *opend;
 
   info->bytes_per_chunk = 2;
This page took 0.026724 seconds and 4 git commands to generate.