* hppa-dis.c (print_insn_hppa): Do not emit a space after 'F'

        or 'I' operands if the next format specifier is 'M' (fcmp
        condition completer).

diff --git a/opcodes/ChangeLog b/opcodes/ChangeLog
index 8a1cc0a20c877da8014a87e6f021b9584afaec73..ca0bc2bb944cf4d45cde1de63eec79a26526d537 100644 (file)
--- a/opcodes/ChangeLog
+++ b/opcodes/ChangeLog
@@ -1,4 +1,10 @@
-Fri Feb  4 23:38:03 1994  Ian Lance Taylor  (ian@tweedledumb.cygnus.com)
+Sat Feb  5 00:04:02 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+       * hppa-dis.c (print_insn_hppa): Do not emit a space after 'F'
+       or 'I' operands if the next format specifier is 'M' (fcmp
+       condition completer).
+
+Feb  4 23:38:03 1994  Ian Lance Taylor  (ian@tweedledumb.cygnus.com)
 
        * ppc-opc.c (powerpc_operands): New operand type MBE to handle a
        single number giving a bitmask for the MB and ME fields of an M

diff --git a/opcodes/hppa-dis.c b/opcodes/hppa-dis.c
index c159e689193df26821af0102567595368d91cd97..57273a3c3b489ec143fb58785c7c0a9eee2f4fb4 100644 (file)
--- a/opcodes/hppa-dis.c
+++ b/opcodes/hppa-dis.c
@@ -29,7 +29,7 @@ static const char *const reg_names[] =
  {"flags", "r1", "rp", "r3", "r4", "r5", "r6", "r7", "r8", "r9",
   "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19",
   "r20", "r21", "r22", "arg3", "arg2", "arg1", "arg0", "dp", "ret0", "ret1",
-  "sp", "r31"}
+  "sp", "r31"};
 
 /* Floating point register names, indexed by the numbers which appear in the
    opcodes.  */
@@ -356,7 +356,6 @@ print_insn_hppa (memaddr, info)
      disassemble_info *info;
 {
   unsigned int insn, i, op;
-  FILE *stream = info->stream;
 
   {
     int status =
@@ -378,7 +377,7 @@ print_insn_hppa (memaddr, info)
          
          (*info->fprintf_func) (info->stream, "%s", opcode->name);
 
-         if (!strchr ("cCY<?!@-+&U>~nZFIMad", opcode->args[0]))
+         if (!strchr ("cfCY<?!@-+&U>~nNZFIMadu|", opcode->args[0]))
            (*info->fprintf_func) (info->stream, " ");
          for (s = opcode->args; *s != '\0'; ++s)
            {
@@ -436,7 +435,8 @@ print_insn_hppa (memaddr, info)
                  fput_const (extract_5_load (insn), info);
                  break;
                case 's':
-                 fprintf_filtered (stream, "sr%d", GET_FIELD (insn, 16, 17));
+                 (*info->fprintf_func) (info->stream,
+                                        "sr%d", GET_FIELD (insn, 16, 17));
                  break;
                case 'S':
                  (*info->fprintf_func) (info->stream, "sr%d", extract_3 (insn));
@@ -489,6 +489,7 @@ print_insn_hppa (memaddr, info)
                  (*info->fprintf_func) (info->stream, "%s ",
                                    unit_cond_names[GET_COND (insn)]);
                  break;
+               case '|':
                case '>':
                case '~':
                  (*info->fprintf_func)
@@ -527,20 +528,29 @@ print_insn_hppa (memaddr, info)
                  else
                    (*info->fprintf_func) (info->stream, " ");
                  break;
+               case 'N':
+                 if ((insn & 0x20) && s[1])
+                   (*info->fprintf_func) (info->stream, ",n ");
+                 else if (insn & 0x20)
+                   (*info->fprintf_func) (info->stream, ",n");
+                 else if (s[1])
+                   (*info->fprintf_func) (info->stream, " ");
+                 break;
                case 'w':
                  (*info->print_address_func) (memaddr + 8 + extract_12 (insn),
                                               info);
                  break;
                case 'W':
-                 /* don't interpret an address if it's an external branch
-                    instruction. */
-                 op = GET_FIELD (insn, 0, 5);
-                 if (op != 0x38 /* be */ && op != 0x39 /* ble */)
-                   (*info->print_address_func) ((memaddr + 8
-                                                 + extract_17 (insn)),
-                                                info);
-                 else
-                   fput_const (extract_17 (insn), info);
+                 /* 17 bit PC-relative branch.  */
+                 (*info->print_address_func) ((memaddr + 8 
+                                               + extract_17 (insn)),
+                                              info);
+                 break;
+               case 'z':
+                 /* 17 bit displacement.  This is an offset from a register
+                    so it gets disasssembled as just a number, not any sort
+                    of address.  */
+                 fput_const (extract_17 (insn), info);
                  break;
                case 'p':
                  (*info->fprintf_func) (info->stream, "%d",
@@ -589,17 +599,18 @@ print_insn_hppa (memaddr, info)
                               GET_FIELD (insn, 27, 31)), info);
                  break;
                case 'u':
-                 (*info->fprintf_func) (info->stream, "%d", GET_FIELD (insn, 23, 25));
+                 (*info->fprintf_func) (info->stream, ",%d", GET_FIELD (insn, 23, 25));
                  break;
                case 'F':
-                 /* if no destination completer, need a space here */
-                 if (GET_FIELD (insn, 21, 22) == 1)
+                 /* if no destination completer and not before a completer
+                    for fcmp, need a space here */
+                 if (GET_FIELD (insn, 21, 22) == 1 || s[1] == 'M')
                    fputs_filtered (float_format_names[GET_FIELD (insn, 19, 20)],
                                    info);
                  else
                    (*info->fprintf_func) (info->stream, "%s ",
-                                     float_format_names[GET_FIELD
-                                                        (insn, 19, 20)]);
+                                          float_format_names[GET_FIELD
+                                                             (insn, 19, 20)]);
                  break;
                case 'G':
                  (*info->fprintf_func) (info->stream, "%s ",
@@ -611,14 +622,15 @@ print_insn_hppa (memaddr, info)
                                                       (insn, 26, 26)], info);
                  break;
                case 'I':
-                 /* if no destination completer, need a space here */
-                 if (GET_FIELD (insn, 21, 22) == 1)
+                 /* if no destination completer and not before a completer
+                    for fcmp, need a space here */
+                 if (GET_FIELD (insn, 21, 22) == 1 || s[1] == 'M')
                    fputs_filtered (float_format_names[GET_FIELD (insn, 20, 20)],
                                    info);
                  else
-                   fprintf_filtered (stream, "%s ",
-                                     float_format_names[GET_FIELD
-                                                        (insn, 20, 20)]);
+                   (*info->fprintf_func) (info->stream, "%s ",
+                                          float_format_names[GET_FIELD
+                                                             (insn, 20, 20)]);
                  break;
                case 'J':
                   if (GET_FIELD (insn, 24, 24))
@@ -634,8 +646,9 @@ print_insn_hppa (memaddr, info)
                      fput_fp_reg (GET_FIELD (insn, 11, 15), info);
                  break;
                case 'M':
-                 fputs_filtered (float_comp_names[GET_FIELD (insn, 27, 31)],
-                                 info);
+                   (*info->fprintf_func) (info->stream, "%s ",
+                                          float_comp_names[GET_FIELD
+                                                             (insn, 27, 31)]);
                  break;
                default:
                  (*info->fprintf_func) (info->stream, "%c", *s);