* ppc-dis.c (powerpc_dialect): Add missing PPC_OPCODE_CLASSIC.

[deliverable/binutils-gdb.git] / opcodes / hppa-dis.c

diff --git a/opcodes/hppa-dis.c b/opcodes/hppa-dis.c
index 23c926ae771f93e393a9149a8e0291c67cf27aa5..d9ab9dd99d506e5200204c7aa0de38eba6905513 100644 (file)
--- a/opcodes/hppa-dis.c
+++ b/opcodes/hppa-dis.c
@@ -1,5 +1,6 @@
 /* Disassembler for the PA-RISC. Somewhat derived from sparc-pinsn.c.
-   Copyright 1989, 1990, 1992, 1993 Free Software Foundation, Inc.
+   Copyright 1989, 1990, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001
+   Free Software Foundation, Inc.
 
    Contributed by the Center for Software Science at the
    University of Utah (pa-gdb-bugs@cs.utah.edu).
@@ -51,11 +52,14 @@ typedef unsigned int CORE_ADDR;
 #define MASK_16 0xffff
 #define MASK_21 0x1fffff
 
-/* This macro gets bit fields using HP's numbering (MSB = 0) */
+/* These macros get bit fields using HP's numbering (MSB = 0) */
 
 #define GET_FIELD(X, FROM, TO) \
   ((X) >> (31 - (TO)) & ((1 << ((TO) - (FROM) + 1)) - 1))
 
+#define GET_BIT(X, WHICH) \
+  GET_FIELD (X, WHICH, WHICH)
+
 /* Some of these have been converted to 2-d arrays because they
    consume less storage this way.  If the maintenance becomes a
    problem, convert them back to const 1-d pointer arrays.  */
@@ -140,6 +144,26 @@ static const char *const add_compl_names[] = { 0, "", ",l", ",tsv" };
 #define GET_COND(insn) (GET_FIELD ((insn), 16, 18) + \
                        (GET_FIELD ((insn), 19, 19) ? 8 : 0))
 
+static void fput_reg PARAMS ((unsigned int, disassemble_info *));
+static void fput_fp_reg PARAMS ((unsigned int, disassemble_info *));
+static void fput_fp_reg_r PARAMS ((unsigned int, disassemble_info *));
+static void fput_creg PARAMS ((unsigned int, disassemble_info *));
+static void fput_const PARAMS ((unsigned int, disassemble_info *));
+static int extract_3 PARAMS ((unsigned int));
+static int extract_5_load PARAMS ((unsigned int));
+static int extract_5_store PARAMS ((unsigned int));
+static unsigned extract_5r_store PARAMS ((unsigned int));
+static unsigned extract_5R_store PARAMS ((unsigned int));
+static unsigned extract_10U_store PARAMS ((unsigned int));
+static unsigned extract_5Q_store PARAMS ((unsigned int));
+static int extract_11 PARAMS ((unsigned int));
+static int extract_14 PARAMS ((unsigned int));
+static int extract_16 PARAMS ((unsigned int));
+static int extract_21 PARAMS ((unsigned int));
+static int extract_12 PARAMS ((unsigned int));
+static int extract_17 PARAMS ((unsigned int));
+static int extract_22 PARAMS ((unsigned int));
+
 /* Utility function to print registers.  Put these first, so gcc's function
    inlining can do its stuff.  */
 
@@ -530,17 +554,29 @@ print_insn_hppa (memaddr, info)
                  switch (*++s)
                    {
                    case 'x':
+                     (*info->fprintf_func) (info->stream, "%s",
+                                            index_compl_names[GET_COMPL (insn)]);
+                     break;
+                   case 'X':
                      (*info->fprintf_func) (info->stream, "%s ",
                                             index_compl_names[GET_COMPL (insn)]);
                      break;
                    case 'm':
+                     (*info->fprintf_func) (info->stream, "%s",
+                                            short_ldst_compl_names[GET_COMPL (insn)]);
+                     break;
+                   case 'M':
                      (*info->fprintf_func) (info->stream, "%s ",
                                             short_ldst_compl_names[GET_COMPL (insn)]);
                      break;
-                   case 's':
+                   case 'A':
                      (*info->fprintf_func) (info->stream, "%s ",
                                             short_bytes_compl_names[GET_COMPL (insn)]);
                      break;
+                   case 's':
+                     (*info->fprintf_func) (info->stream, "%s",
+                                            short_bytes_compl_names[GET_COMPL (insn)]);
+                     break;
                    case 'c':
                    case 'C':
                      switch (GET_FIELD (insn, 20, 21))
@@ -662,7 +698,7 @@ print_insn_hppa (memaddr, info)
                      break;
                    case 'H':
                      (*info->fprintf_func)
-                         (info->stream, "%s", saturation_names[GET_FIELD
+                         (info->stream, "%s ", saturation_names[GET_FIELD
                                                               (insn, 24, 25)]);
                      break;
                    case '*':
@@ -690,9 +726,9 @@ print_insn_hppa (memaddr, info)
 
                    case 'J':
                      {
-                       int opcode = GET_FIELD (insn, 0, 5);
+                       int opc = GET_FIELD (insn, 0, 5);
 
-                       if (opcode == 0x16 || opcode == 0x1e)
+                       if (opc == 0x16 || opc == 0x1e)
                          {
                            if (GET_FIELD (insn, 29, 29) == 0)
                              fputs_filtered (",ma ", info);
@@ -706,16 +742,16 @@ print_insn_hppa (memaddr, info)
 
                    case 'e':
                      {
-                       int opcode = GET_FIELD (insn, 0, 5);
+                       int opc = GET_FIELD (insn, 0, 5);
 
-                       if (opcode == 0x13 || opcode == 0x1b)
+                       if (opc == 0x13 || opc == 0x1b)
                          {
                            if (GET_FIELD (insn, 18, 18) == 1)
                              fputs_filtered (",mb ", info);
                            else
                              fputs_filtered (",ma ", info);
                          }
-                       else if (opcode == 0x17 || opcode == 0x1f)
+                       else if (opc == 0x17 || opc == 0x1f)
                          {
                            if (GET_FIELD (insn, 31, 31) == 1)
                              fputs_filtered (",ma ", info);
@@ -865,6 +901,7 @@ print_insn_hppa (memaddr, info)
                case 'k':
                  fput_const (extract_21 (insn), info);
                  break;
+               case '<':
                case 'l':
                  /* 16-bit long disp., PA2.0 wide only.  */
                  fput_const (extract_16 (insn), info);
@@ -1075,6 +1112,7 @@ print_insn_hppa (memaddr, info)
                    break;
                  }
 
+               case '>':
                case 'y':
                  {
                    /* 16-bit long disp., PA2.0 wide only.  */