Changeset 609 for branches/GNU/src/binutils/opcodes/vax-dis.c

Timestamp:

Aug 16, 2003, 6:59:22 PM (22 years ago)

Author:

bird

Message:

binutils v2.14 - offical sources.

File:

• branches/GNU/src/binutils/opcodes/vax-dis.c (modified) (8 diffs, 1 prop)

branches/GNU/src/binutils/opcodes/vax-dis.c

@@ -1 +1 @@
 /* Print VAX instructions.
-   Copyright 1995, 1998, 2000, 2001 Free Software Foundation, Inc.
+   Copyright 1995, 1998, 2000, 2001, 2002 Free Software Foundation, Inc.
    Contributed by Pauline Middelink <middelin@polyware.iaf.nl>
 
@@ -22 +22 @@
 
 /* Local function prototypes */
-static int
-print_insn_arg PARAMS ((const char *, unsigned char *, bfd_vma,
-                        disassemble_info *));
-
-static int
-print_insn_mode PARAMS ((int, unsigned char *, bfd_vma, disassemble_info *));
+static int fetch_data PARAMS ((struct disassemble_info *, bfd_byte *));
+static int print_insn_arg
+  PARAMS ((const char *, unsigned char *, bfd_vma, disassemble_info *));
+static int print_insn_mode
+  PARAMS ((const char *, int, unsigned char *, bfd_vma, disassemble_info *));
+
 
 static char *reg_names[] =
@@ -113 +113 @@
 {
   const struct vot *votp;
-  const char *argp = NULL;
+  const char *argp;
   unsigned char *arg;
   struct private priv;
@@ -121 +121 @@
   priv.max_fetched = priv.the_buffer;
   priv.insn_start = memaddr;
+
   if (setjmp (priv.bailout) != 0)
     {
@@ -127 +128 @@
     }
 
+  argp = NULL;
   /* Check if the info buffer has more than one byte left since
      the last opcode might be a single byte with no argument data.  */
@@ -222 +224 @@
     }
 
-  return print_insn_mode (arg_len, p0, addr, info);
+  return print_insn_mode (d, arg_len, p0, addr, info);
 }
 
 static int
-print_insn_mode (size, p0, addr, info)
+print_insn_mode (d, size, p0, addr, info)
+     const char *d;
      int size;
      unsigned char *p0;
@@ -244 +247 @@
     case 0x20:
     case 0x30: /* literal mode                  $number */
-      (*info->fprintf_func) (info->stream, "$0x%x", mode);
+      if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h')
+        (*info->fprintf_func) (info->stream, "$0x%x [%c-float]", mode, d[1]);
+      else
+        (*info->fprintf_func) (info->stream, "$0x%x", mode);
       break;
     case 0x40: /* index:                        base-addr[Rn] */
-      p += print_insn_mode (size, p0 + 1, addr + 1, info);
+      p += print_insn_mode (d, size, p0 + 1, addr + 1, info);
       (*info->fprintf_func) (info->stream, "[%s]", reg_names[reg]);
       break;
@@ -266 +272 @@
           FETCH_DATA (info, p + size);
           (*info->fprintf_func) (info->stream, "$0x");
-          for (i = 0; i < size; i++)
-            (*info->fprintf_func) (info->stream, "%02x", p[size - i - 1]);
+          if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h')
+            {
+              int float_word;
+
+              float_word = p[0] | (p[1] << 8);
+              if ((d[1] == 'd' || d[1] == 'f')
+                  && (float_word & 0xff80) == 0x8000)
+                {
+                  (*info->fprintf_func) (info->stream, "[invalid %c-float]",
+                                         d[1]);
+                }
+              else
+                {
+                  for (i = 0; i < size; i++)
+                    (*info->fprintf_func) (info->stream, "%02x",
+                                           p[size - i - 1]);
+                  (*info->fprintf_func) (info->stream, " [%c-float]", d[1]);
+                }
+            }
+          else
+            {
+              for (i = 0; i < size; i++)
+                (*info->fprintf_func) (info->stream, "%02x", p[size - i - 1]);
+            }
           p += size;
         }