2010-10-08 Bernd Schmidt <bernds@codesourcery.com>
[deliverable/binutils-gdb.git] / gdb / i386-tdep.c
index bcda17ca38f1d1fb9619ef3e5d55c712ab0c4db0..4016a7059dafea654e81aaa40cb4e4b49f79308b 100644 (file)
 #include "value.h"
 #include "dis-asm.h"
 #include "disasm.h"
+#include "remote.h"
 
 #include "gdb_assert.h"
 #include "gdb_string.h"
 
 #include "i386-tdep.h"
 #include "i387-tdep.h"
+#include "i386-xstate.h"
 
 #include "record.h"
 #include <stdint.h>
 
 #include "features/i386/i386.c"
+#include "features/i386/i386-avx.c"
+#include "features/i386/i386-mmx.c"
 
 /* Register names.  */
 
@@ -73,6 +77,18 @@ static const char *i386_register_names[] =
   "mxcsr"
 };
 
+static const char *i386_ymm_names[] =
+{
+  "ymm0",  "ymm1",   "ymm2",  "ymm3",
+  "ymm4",  "ymm5",   "ymm6",  "ymm7",
+};
+
+static const char *i386_ymmh_names[] =
+{
+  "ymm0h",  "ymm1h",   "ymm2h",  "ymm3h",
+  "ymm4h",  "ymm5h",   "ymm6h",  "ymm7h",
+};
+
 /* Register names for MMX pseudo-registers.  */
 
 static const char *i386_mmx_names[] =
@@ -94,7 +110,7 @@ static const char *i386_byte_names[] =
 static const char *i386_word_names[] =
 {
   "ax", "cx", "dx", "bx",
-  "sp", "bp", "si", "di"
+  "", "bp", "si", "di"
 };
 
 /* MMX register?  */
@@ -149,18 +165,47 @@ i386_dword_regnum_p (struct gdbarch *gdbarch, int regnum)
   return regnum >= 0 && regnum < tdep->num_dword_regs;
 }
 
+static int
+i386_ymmh_regnum_p (struct gdbarch *gdbarch, int regnum)
+{
+  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+  int ymm0h_regnum = tdep->ymm0h_regnum;
+
+  if (ymm0h_regnum < 0)
+    return 0;
+
+  regnum -= ymm0h_regnum;
+  return regnum >= 0 && regnum < tdep->num_ymm_regs;
+}
+
+/* AVX register?  */
+
+int
+i386_ymm_regnum_p (struct gdbarch *gdbarch, int regnum)
+{
+  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+  int ymm0_regnum = tdep->ymm0_regnum;
+
+  if (ymm0_regnum < 0)
+    return 0;
+
+  regnum -= ymm0_regnum;
+  return regnum >= 0 && regnum < tdep->num_ymm_regs;
+}
+
 /* SSE register?  */
 
-static int
-i386_sse_regnum_p (struct gdbarch *gdbarch, int regnum)
+int
+i386_xmm_regnum_p (struct gdbarch *gdbarch, int regnum)
 {
   struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+  int num_xmm_regs = I387_NUM_XMM_REGS (tdep);
 
-  if (I387_NUM_XMM_REGS (tdep) == 0)
+  if (num_xmm_regs == 0)
     return 0;
 
-  return (I387_XMM0_REGNUM (tdep) <= regnum
-         && regnum < I387_MXCSR_REGNUM (tdep));
+  regnum -= I387_XMM0_REGNUM (tdep);
+  return regnum >= 0 && regnum < num_xmm_regs;
 }
 
 static int
@@ -200,6 +245,19 @@ i386_fpc_regnum_p (struct gdbarch *gdbarch, int regnum)
          && regnum < I387_XMM0_REGNUM (tdep));
 }
 
+/* Return the name of register REGNUM, or the empty string if it is
+   an anonymous register.  */
+
+static const char *
+i386_register_name (struct gdbarch *gdbarch, int regnum)
+{
+  /* Hide the upper YMM registers.  */
+  if (i386_ymmh_regnum_p (gdbarch, regnum))
+    return "";
+
+  return tdesc_register_name (gdbarch, regnum);
+}
+
 /* Return the name of register REGNUM.  */
 
 const char *
@@ -208,6 +266,8 @@ i386_pseudo_register_name (struct gdbarch *gdbarch, int regnum)
   struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
   if (i386_mmx_regnum_p (gdbarch, regnum))
     return i386_mmx_names[regnum - I387_MM0_REGNUM (tdep)];
+  else if (i386_ymm_regnum_p (gdbarch, regnum))
+    return i386_ymm_names[regnum - tdep->ymm0_regnum];
   else if (i386_byte_regnum_p (gdbarch, regnum))
     return i386_byte_names[regnum - tdep->al_regnum];
   else if (i386_word_regnum_p (gdbarch, regnum))
@@ -245,7 +305,13 @@ i386_dbx_reg_to_regnum (struct gdbarch *gdbarch, int reg)
   else if (reg >= 21 && reg <= 28)
     {
       /* SSE registers.  */
-      return reg - 21 + I387_XMM0_REGNUM (tdep);
+      int ymm0_regnum = tdep->ymm0_regnum;
+
+      if (ymm0_regnum >= 0
+         && i386_xmm_regnum_p (gdbarch, reg))
+       return reg - 21 + ymm0_regnum;
+      else
+       return reg - 21 + I387_XMM0_REGNUM (tdep);
     }
   else if (reg >= 29 && reg <= 36)
     {
@@ -452,7 +518,7 @@ i386_call_p (const gdb_byte *insn)
    length in bytes.  Otherwise, return zero.  */
 
 static int
-i386_syscall_p (const gdb_byte *insn, ULONGEST *lengthp)
+i386_syscall_p (const gdb_byte *insn, int *lengthp)
 {
   if (insn[0] == 0xcd)
     {
@@ -463,6 +529,43 @@ i386_syscall_p (const gdb_byte *insn, ULONGEST *lengthp)
   return 0;
 }
 
+/* Some kernels may run one past a syscall insn, so we have to cope.
+   Otherwise this is just simple_displaced_step_copy_insn.  */
+
+struct displaced_step_closure *
+i386_displaced_step_copy_insn (struct gdbarch *gdbarch,
+                              CORE_ADDR from, CORE_ADDR to,
+                              struct regcache *regs)
+{
+  size_t len = gdbarch_max_insn_length (gdbarch);
+  gdb_byte *buf = xmalloc (len);
+
+  read_memory (from, buf, len);
+
+  /* GDB may get control back after the insn after the syscall.
+     Presumably this is a kernel bug.
+     If this is a syscall, make sure there's a nop afterwards.  */
+  {
+    int syscall_length;
+    gdb_byte *insn;
+
+    insn = i386_skip_prefixes (buf, len);
+    if (insn != NULL && i386_syscall_p (insn, &syscall_length))
+      insn[syscall_length] = NOP_OPCODE;
+  }
+
+  write_memory (to, buf, len);
+
+  if (debug_displaced)
+    {
+      fprintf_unfiltered (gdb_stdlog, "displaced: copy %s->%s: ",
+                          paddress (gdbarch, from), paddress (gdbarch, to));
+      displaced_step_dump_bytes (gdb_stdlog, buf, len);
+    }
+
+  return (struct displaced_step_closure *) buf;
+}
+
 /* Fix up the state of registers and memory after having single-stepped
    a displaced instruction.  */
 
@@ -521,7 +624,7 @@ i386_displaced_step_fixup (struct gdbarch *gdbarch,
       && ! i386_ret_p (insn))
     {
       ULONGEST orig_eip;
-      ULONGEST insn_len;
+      int insn_len;
 
       regcache_cooked_read_unsigned (regs, I386_EIP_REGNUM, &orig_eip);
 
@@ -540,7 +643,12 @@ i386_displaced_step_fixup (struct gdbarch *gdbarch,
          it unrelocated.  Goodness help us if there are PC-relative
          system calls.  */
       if (i386_syscall_p (insn, &insn_len)
-          && orig_eip != to + (insn - insn_start) + insn_len)
+          && orig_eip != to + (insn - insn_start) + insn_len
+         /* GDB can get control back after the insn after the syscall.
+            Presumably this is a kernel bug.
+            i386_displaced_step_copy_insn ensures its a nop,
+            we add one to the length for it.  */
+          && orig_eip != to + (insn - insn_start) + insn_len + 1)
         {
           if (debug_displaced)
             fprintf_unfiltered (gdb_stdlog,
@@ -592,6 +700,86 @@ i386_displaced_step_fixup (struct gdbarch *gdbarch,
                             paddress (gdbarch, retaddr));
     }
 }
+
+static void
+append_insns (CORE_ADDR *to, ULONGEST len, const gdb_byte *buf)
+{
+  target_write_memory (*to, buf, len);
+  *to += len;
+}
+
+static void
+i386_relocate_instruction (struct gdbarch *gdbarch,
+                          CORE_ADDR *to, CORE_ADDR oldloc)
+{
+  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
+  gdb_byte buf[I386_MAX_INSN_LEN];
+  int offset = 0, rel32, newrel;
+  int insn_length;
+  gdb_byte *insn = buf;
+
+  read_memory (oldloc, buf, I386_MAX_INSN_LEN);
+
+  insn_length = gdb_buffered_insn_length (gdbarch, insn,
+                                         I386_MAX_INSN_LEN, oldloc);
+
+  /* Get past the prefixes.  */
+  insn = i386_skip_prefixes (insn, I386_MAX_INSN_LEN);
+
+  /* Adjust calls with 32-bit relative addresses as push/jump, with
+     the address pushed being the location where the original call in
+     the user program would return to.  */
+  if (insn[0] == 0xe8)
+    {
+      gdb_byte push_buf[16];
+      unsigned int ret_addr;
+
+      /* Where "ret" in the original code will return to.  */
+      ret_addr = oldloc + insn_length;
+      push_buf[0] = 0x68; /* pushq $... */
+      memcpy (&push_buf[1], &ret_addr, 4);
+      /* Push the push.  */
+      append_insns (to, 5, push_buf);
+
+      /* Convert the relative call to a relative jump.  */
+      insn[0] = 0xe9;
+
+      /* Adjust the destination offset.  */
+      rel32 = extract_signed_integer (insn + 1, 4, byte_order);
+      newrel = (oldloc - *to) + rel32;
+      store_signed_integer (insn + 1, 4, newrel, byte_order);
+
+      /* Write the adjusted jump into its displaced location.  */
+      append_insns (to, 5, insn);
+      return;
+    }
+
+  /* Adjust jumps with 32-bit relative addresses.  Calls are already
+     handled above.  */
+  if (insn[0] == 0xe9)
+    offset = 1;
+  /* Adjust conditional jumps.  */
+  else if (insn[0] == 0x0f && (insn[1] & 0xf0) == 0x80)
+    offset = 2;
+
+  if (offset)
+    {
+      rel32 = extract_signed_integer (insn + offset, 4, byte_order);
+      newrel = (oldloc - *to) + rel32;
+      store_signed_integer (insn + offset, 4, newrel, byte_order);
+      if (debug_displaced)
+       fprintf_unfiltered (gdb_stdlog,
+                           "Adjusted insn rel32=0x%s at 0x%s to"
+                           " rel32=0x%s at 0x%s\n",
+                           hex_string (rel32), paddress (gdbarch, oldloc),
+                           hex_string (newrel), paddress (gdbarch, *to));
+    }
+
+  /* Write the adjusted instructions into their displaced
+     location.  */
+  append_insns (to, insn_length, buf);
+}
+
 \f
 #ifdef I386_REGNO_TO_SYMMETRY
 #error "The Sequent Symmetry is no longer supported."
@@ -2183,6 +2371,59 @@ i387_ext_type (struct gdbarch *gdbarch)
   return tdep->i387_ext_type;
 }
 
+/* Construct vector type for pseudo YMM registers.  We can't use
+   tdesc_find_type since YMM isn't described in target description.  */
+
+static struct type *
+i386_ymm_type (struct gdbarch *gdbarch)
+{
+  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+
+  if (!tdep->i386_ymm_type)
+    {
+      const struct builtin_type *bt = builtin_type (gdbarch);
+
+      /* The type we're building is this: */
+#if 0
+      union __gdb_builtin_type_vec256i
+      {
+        int128_t uint128[2];
+        int64_t v2_int64[4];
+        int32_t v4_int32[8];
+        int16_t v8_int16[16];
+        int8_t v16_int8[32];
+        double v2_double[4];
+        float v4_float[8];
+      };
+#endif
+
+      struct type *t;
+
+      t = arch_composite_type (gdbarch,
+                              "__gdb_builtin_type_vec256i", TYPE_CODE_UNION);
+      append_composite_type_field (t, "v8_float",
+                                  init_vector_type (bt->builtin_float, 8));
+      append_composite_type_field (t, "v4_double",
+                                  init_vector_type (bt->builtin_double, 4));
+      append_composite_type_field (t, "v32_int8",
+                                  init_vector_type (bt->builtin_int8, 32));
+      append_composite_type_field (t, "v16_int16",
+                                  init_vector_type (bt->builtin_int16, 16));
+      append_composite_type_field (t, "v8_int32",
+                                  init_vector_type (bt->builtin_int32, 8));
+      append_composite_type_field (t, "v4_int64",
+                                  init_vector_type (bt->builtin_int64, 4));
+      append_composite_type_field (t, "v2_int128",
+                                  init_vector_type (bt->builtin_int128, 2));
+
+      TYPE_VECTOR (t) = 1;
+      TYPE_NAME (t) = "builtin_type_vec256i";
+      tdep->i386_ymm_type = t;
+    }
+
+  return tdep->i386_ymm_type;
+}
+
 /* Construct vector type for MMX registers.  */
 static struct type *
 i386_mmx_type (struct gdbarch *gdbarch)
@@ -2233,6 +2474,8 @@ i386_pseudo_register_type (struct gdbarch *gdbarch, int regnum)
 {
   if (i386_mmx_regnum_p (gdbarch, regnum))
     return i386_mmx_type (gdbarch);
+  else if (i386_ymm_regnum_p (gdbarch, regnum))
+    return i386_ymm_type (gdbarch);
   else
     {
       const struct builtin_type *bt = builtin_type (gdbarch);
@@ -2284,7 +2527,22 @@ i386_pseudo_register_read (struct gdbarch *gdbarch, struct regcache *regcache,
     {
       struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
 
-      if (i386_word_regnum_p (gdbarch, regnum))
+      if (i386_ymm_regnum_p (gdbarch, regnum))
+       {
+         regnum -= tdep->ymm0_regnum;
+
+         /* Extract (always little endian).  Read lower 128bits. */
+         regcache_raw_read (regcache,
+                            I387_XMM0_REGNUM (tdep) + regnum,
+                            raw_buf);
+         memcpy (buf, raw_buf, 16);
+         /* Read upper 128bits.  */
+         regcache_raw_read (regcache,
+                            tdep->ymm0h_regnum + regnum,
+                            raw_buf);
+         memcpy (buf + 16, raw_buf, 16);
+       }
+      else if (i386_word_regnum_p (gdbarch, regnum))
        {
          int gpnum = regnum - tdep->ax_regnum;
 
@@ -2333,7 +2591,20 @@ i386_pseudo_register_write (struct gdbarch *gdbarch, struct regcache *regcache,
     {
       struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
 
-      if (i386_word_regnum_p (gdbarch, regnum))
+      if (i386_ymm_regnum_p (gdbarch, regnum))
+       {
+         regnum -= tdep->ymm0_regnum;
+
+         /* ... Write lower 128bits.  */
+         regcache_raw_write (regcache,
+                            I387_XMM0_REGNUM (tdep) + regnum,
+                            buf);
+         /* ... Write upper 128bits.  */
+         regcache_raw_write (regcache,
+                            tdep->ymm0h_regnum + regnum,
+                            buf + 16);
+       }
+      else if (i386_word_regnum_p (gdbarch, regnum))
        {
          int gpnum = regnum - tdep->ax_regnum;
 
@@ -2580,6 +2851,26 @@ i386_collect_fpregset (const struct regset *regset,
   i387_collect_fsave (regcache, regnum, fpregs);
 }
 
+/* Similar to i386_supply_fpregset, but use XSAVE extended state.  */
+
+static void
+i386_supply_xstateregset (const struct regset *regset,
+                         struct regcache *regcache, int regnum,
+                         const void *xstateregs, size_t len)
+{
+  i387_supply_xsave (regcache, regnum, xstateregs);
+}
+
+/* Similar to i386_collect_fpregset , but use XSAVE extended state.  */
+
+static void
+i386_collect_xstateregset (const struct regset *regset,
+                          const struct regcache *regcache,
+                          int regnum, void *xstateregs, size_t len)
+{
+  i387_collect_xsave (regcache, regnum, xstateregs, 1);
+}
+
 /* Return the appropriate register set for the core section identified
    by SECT_NAME and SECT_SIZE.  */
 
@@ -2607,6 +2898,16 @@ i386_regset_from_core_section (struct gdbarch *gdbarch,
       return tdep->fpregset;
     }
 
+  if (strcmp (sect_name, ".reg-xstate") == 0)
+    {
+      if (tdep->xstateregset == NULL)
+       tdep->xstateregset = regset_alloc (gdbarch,
+                                          i386_supply_xstateregset,
+                                          i386_collect_xstateregset);
+
+      return tdep->xstateregset;
+    }
+
   return NULL;
 }
 \f
@@ -2757,8 +3058,8 @@ i386_go32_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
   tdep->jb_pc_offset = 36;
 
   /* DJGPP does not support the SSE registers.  */
-  tdep->num_xmm_regs = 0;
-  set_gdbarch_num_regs (gdbarch, I386_NUM_GREGS + I387_NUM_REGS);
+  if (! tdesc_has_registers (info.target_desc))
+    tdep->tdesc = tdesc_i386_mmx;
 
   /* Native compiler is GCC, which uses the SVR4 register numbering
      even in COFF and STABS.  See the comment in i386_gdbarch_init,
@@ -2766,6 +3067,8 @@ i386_go32_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
      set_gdbarch_sdb_reg_to_regnum.  */
   set_gdbarch_stab_reg_to_regnum (gdbarch, i386_svr4_reg_to_regnum);
   set_gdbarch_sdb_reg_to_regnum (gdbarch, i386_svr4_reg_to_regnum);
+
+  set_gdbarch_has_dos_based_file_system (gdbarch, 1);
 }
 \f
 
@@ -2800,46 +3103,60 @@ int
 i386_register_reggroup_p (struct gdbarch *gdbarch, int regnum,
                          struct reggroup *group)
 {
-  int sse_regnum_p, fp_regnum_p, mmx_regnum_p, byte_regnum_p,
-      word_regnum_p, dword_regnum_p;
+  const struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
+  int fp_regnum_p, mmx_regnum_p, xmm_regnum_p, mxcsr_regnum_p,
+      ymm_regnum_p, ymmh_regnum_p;
 
   /* Don't include pseudo registers, except for MMX, in any register
      groups.  */
-  byte_regnum_p = i386_byte_regnum_p (gdbarch, regnum);
-  if (byte_regnum_p)
+  if (i386_byte_regnum_p (gdbarch, regnum))
     return 0;
 
-  word_regnum_p = i386_word_regnum_p (gdbarch, regnum);
-  if (word_regnum_p)
+  if (i386_word_regnum_p (gdbarch, regnum))
     return 0;
 
-  dword_regnum_p = i386_dword_regnum_p (gdbarch, regnum);
-  if (dword_regnum_p)
+  if (i386_dword_regnum_p (gdbarch, regnum))
     return 0;
 
   mmx_regnum_p = i386_mmx_regnum_p (gdbarch, regnum);
   if (group == i386_mmx_reggroup)
     return mmx_regnum_p;
 
-  sse_regnum_p = (i386_sse_regnum_p (gdbarch, regnum)
-                 || i386_mxcsr_regnum_p (gdbarch, regnum));
+  xmm_regnum_p = i386_xmm_regnum_p (gdbarch, regnum);
+  mxcsr_regnum_p = i386_mxcsr_regnum_p (gdbarch, regnum);
   if (group == i386_sse_reggroup)
-    return sse_regnum_p;
+    return xmm_regnum_p || mxcsr_regnum_p;
+
+  ymm_regnum_p = i386_ymm_regnum_p (gdbarch, regnum);
   if (group == vector_reggroup)
-    return mmx_regnum_p || sse_regnum_p;
+    return (mmx_regnum_p
+           || ymm_regnum_p
+           || mxcsr_regnum_p
+           || (xmm_regnum_p
+               && ((tdep->xcr0 & I386_XSTATE_AVX_MASK)
+                   == I386_XSTATE_SSE_MASK)));
 
   fp_regnum_p = (i386_fp_regnum_p (gdbarch, regnum)
                 || i386_fpc_regnum_p (gdbarch, regnum));
   if (group == float_reggroup)
     return fp_regnum_p;
 
+  /* For "info reg all", don't include upper YMM registers nor XMM
+     registers when AVX is supported.  */
+  ymmh_regnum_p = i386_ymmh_regnum_p (gdbarch, regnum);
+  if (group == all_reggroup
+      && ((xmm_regnum_p
+          && (tdep->xcr0 & I386_XSTATE_AVX))
+         || ymmh_regnum_p))
+    return 0;
+
   if (group == general_reggroup)
     return (!fp_regnum_p
            && !mmx_regnum_p
-           && !sse_regnum_p
-           && !byte_regnum_p
-           && !word_regnum_p
-           && !dword_regnum_p);
+           && !mxcsr_regnum_p
+           && !xmm_regnum_p
+           && !ymm_regnum_p
+           && !ymmh_regnum_p);
 
   return default_register_reggroup_p (gdbarch, regnum, group);
 }
@@ -2882,6 +3199,7 @@ enum
   OT_WORD,
   OT_LONG,
   OT_QUAD,
+  OT_DQUAD,
 };
 
 /* i386 arith/logic operations */
@@ -2948,10 +3266,9 @@ static int
 i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
 {
   struct gdbarch *gdbarch = irp->gdbarch;
-  int8_t  addr8;
-  int16_t addr16;
-  int32_t addr32;
-  ULONGEST addr64;
+  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
+  gdb_byte buf[4];
+  ULONGEST offset64;
 
   *addr = 0;
   if (irp->aflag)
@@ -2987,7 +3304,7 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
          if ((base & 7) == 5)
            {
              base = 0xff;
-             if (target_read_memory (irp->addr, (gdb_byte *) &addr32, 4))
+             if (target_read_memory (irp->addr, buf, 4))
                {
                  if (record_debug)
                    printf_unfiltered (_("Process record: error reading "
@@ -2996,17 +3313,13 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
                  return -1;
                }
              irp->addr += 4;
-             *addr = addr32;
+             *addr = extract_signed_integer (buf, 4, byte_order);
              if (irp->regmap[X86_RECORD_R8_REGNUM] && !havesib)
                *addr += irp->addr + irp->rip_offset;
            }
-         else
-           {
-             *addr = 0;
-           }
          break;
        case 1:
-         if (target_read_memory (irp->addr, &addr8, 1))
+         if (target_read_memory (irp->addr, buf, 1))
            {
              if (record_debug)
                printf_unfiltered (_("Process record: error reading memory "
@@ -3015,10 +3328,10 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
              return -1;
            }
          irp->addr++;
-         *addr = addr8;
+         *addr = (int8_t) buf[0];
          break;
        case 2:
-         if (target_read_memory (irp->addr, (gdb_byte *) &addr32, 4))
+         if (target_read_memory (irp->addr, buf, 4))
            {
              if (record_debug)
                printf_unfiltered (_("Process record: error reading memory "
@@ -3026,34 +3339,34 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
                                   paddress (gdbarch, irp->addr));
              return -1;
            }
-         *addr = addr32;
+         *addr = extract_signed_integer (buf, 4, byte_order);
          irp->addr += 4;
          break;
        }
 
-      addr64 = 0;
+      offset64 = 0;
       if (base != 0xff)
         {
          if (base == 4 && irp->popl_esp_hack)
            *addr += irp->popl_esp_hack;
          regcache_raw_read_unsigned (irp->regcache, irp->regmap[base],
-                                      &addr64);
+                                      &offset64);
        }
       if (irp->aflag == 2)
         {
-         *addr += addr64;
+         *addr += offset64;
         }
       else
-        *addr = (uint32_t) (addr64 + *addr);
+        *addr = (uint32_t) (offset64 + *addr);
 
       if (havesib && (index != 4 || scale != 0))
        {
          regcache_raw_read_unsigned (irp->regcache, irp->regmap[index],
-                                      &addr64);
+                                      &offset64);
          if (irp->aflag == 2)
-           *addr += addr64 << scale;
+           *addr += offset64 << scale;
          else
-           *addr = (uint32_t) (*addr + (addr64 << scale));
+           *addr = (uint32_t) (*addr + (offset64 << scale));
        }
     }
   else
@@ -3064,7 +3377,7 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
        case 0:
          if (irp->rm == 6)
            {
-             if (target_read_memory (irp->addr, (gdb_byte *) &addr16, 2))
+             if (target_read_memory (irp->addr, buf, 2))
                {
                  if (record_debug)
                    printf_unfiltered (_("Process record: error reading "
@@ -3073,17 +3386,13 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
                  return -1;
                }
              irp->addr += 2;
-             *addr = addr16;
+             *addr = extract_signed_integer (buf, 2, byte_order);
              irp->rm = 0;
              goto no_rm;
            }
-         else
-           {
-             *addr = 0;
-           }
          break;
        case 1:
-         if (target_read_memory (irp->addr, &addr8, 1))
+         if (target_read_memory (irp->addr, buf, 1))
            {
              if (record_debug)
                printf_unfiltered (_("Process record: error reading memory "
@@ -3092,10 +3401,10 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
              return -1;
            }
          irp->addr++;
-         *addr = addr8;
+         *addr = (int8_t) buf[0];
          break;
        case 2:
-         if (target_read_memory (irp->addr, (gdb_byte *) &addr16, 2))
+         if (target_read_memory (irp->addr, buf, 2))
            {
              if (record_debug)
                printf_unfiltered (_("Process record: error reading memory "
@@ -3104,7 +3413,7 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
              return -1;
            }
          irp->addr += 2;
-         *addr = addr16;
+         *addr = extract_signed_integer (buf, 2, byte_order);
          break;
        }
 
@@ -3113,66 +3422,66 @@ i386_record_lea_modrm_addr (struct i386_record_s *irp, uint64_t *addr)
        case 0:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REBX_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_RESI_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        case 1:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REBX_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REDI_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        case 2:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REBP_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_RESI_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        case 3:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REBP_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REDI_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        case 4:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_RESI_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        case 5:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REDI_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        case 6:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REBP_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        case 7:
          regcache_raw_read_unsigned (irp->regcache,
                                      irp->regmap[X86_RECORD_REBX_REGNUM],
-                                      &addr64);
-         *addr = (uint32_t) (*addr + addr64);
+                                      &offset64);
+         *addr = (uint32_t) (*addr + offset64);
          break;
        }
       *addr &= 0xffff;
@@ -3194,10 +3503,21 @@ i386_record_lea_modrm (struct i386_record_s *irp)
 
   if (irp->override >= 0)
     {
-      warning (_("Process record ignores the memory change "
-                 "of instruction at address %s because it "
-                 "can't get the value of the segment register."),
-               paddress (gdbarch, irp->orig_addr));
+      if (record_memory_query)
+        {
+         int q;
+
+          target_terminal_ours ();
+          q = yquery (_("\
+Process record ignores the memory change of instruction at address %s\n\
+because it can't get the value of the segment register.\n\
+Do you want to stop the program?"),
+                      paddress (gdbarch, irp->orig_addr));
+            target_terminal_inferior ();
+            if (q)
+              return -1;
+        }
+
       return 0;
     }
 
@@ -3309,11 +3629,13 @@ int
 i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
                     CORE_ADDR input_addr)
 {
+  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
   int prefixes = 0;
-  int regnum;
+  int regnum = 0;
   uint32_t opcode;
   uint8_t  opcode8;
   ULONGEST addr;
+  gdb_byte buf[MAX_REGISTER_SIZE];
   struct i386_record_s ir;
   struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
   int rex = 0;
@@ -3328,7 +3650,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
   ir.dflag = 1;
   ir.override = -1;
   ir.popl_esp_hack = 0;
-  ir.regmap = gdbarch_tdep (gdbarch)->record_regmap;
+  ir.regmap = tdep->record_regmap;
   ir.gdbarch = gdbarch;
 
   if (record_debug > 1)
@@ -3446,7 +3768,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
          return -1;
        }
       ir.addr++;
-      opcode = (uint16_t) opcode8 | 0x0f00;
+      opcode = (uint32_t) opcode8 | 0x0f00;
       goto reswitch;
       break;
 
@@ -4086,11 +4408,20 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
     case 0xa3:
       if (ir.override >= 0)
         {
-         warning (_("Process record ignores the memory change "
-                     "of instruction at address %s because "
-                     "it can't get the value of the segment "
-                     "register."),
-                   paddress (gdbarch, ir.orig_addr));
+          if (record_memory_query)
+            {
+             int q;
+
+              target_terminal_ours ();
+              q = yquery (_("\
+Process record ignores the memory change of instruction at address %s\n\
+because it can't get the value of the segment register.\n\
+Do you want to stop the program?"),
+                          paddress (gdbarch, ir.orig_addr));
+              target_terminal_inferior ();
+              if (q)
+                return -1;
+            }
        }
       else
        {
@@ -4100,9 +4431,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
            ir.ot = ir.dflag + OT_WORD;
          if (ir.aflag == 2)
            {
-             uint64_t addr64;
-
-              if (target_read_memory (ir.addr, (gdb_byte *) &addr64, 8))
+              if (target_read_memory (ir.addr, buf, 8))
                {
                  if (record_debug)
                    printf_unfiltered (_("Process record: error reading "
@@ -4111,13 +4440,11 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
                  return -1;
                }
              ir.addr += 8;
-             addr = addr64;
+             addr = extract_unsigned_integer (buf, 8, byte_order);
            }
           else if (ir.aflag)
            {
-             uint32_t addr32;
-
-              if (target_read_memory (ir.addr, (gdb_byte *) &addr32, 4))
+              if (target_read_memory (ir.addr, buf, 4))
                {
                  if (record_debug)
                    printf_unfiltered (_("Process record: error reading "
@@ -4126,13 +4453,11 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
                  return -1;
                }
              ir.addr += 4;
-              addr = addr32;
+              addr = extract_unsigned_integer (buf, 4, byte_order);
            }
           else
            {
-             uint16_t addr16;
-
-              if (target_read_memory (ir.addr, (gdb_byte *) &addr16, 2))
+              if (target_read_memory (ir.addr, buf, 2))
                {
                  if (record_debug)
                    printf_unfiltered (_("Process record: error reading "
@@ -4141,7 +4466,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
                  return -1;
                }
              ir.addr += 2;
-              addr = addr16;
+              addr = extract_unsigned_integer (buf, 2, byte_order);
            }
          if (record_arch_list_add_mem (addr, 1 << ir.ot))
            return -1;
@@ -4773,11 +5098,20 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
           if (ir.aflag && (es != ds))
             {
               /* addr += ((uint32_t) read_register (I386_ES_REGNUM)) << 4; */
-              warning (_("Process record ignores the memory "
-                         "change of instruction at address %s "
-                         "because it can't get the value of the "
-                         "ES segment register."),
-                       paddress (gdbarch, ir.orig_addr));
+              if (record_memory_query)
+                {
+                 int q;
+
+                  target_terminal_ours ();
+                  q = yquery (_("\
+Process record ignores the memory change of instruction at address %s\n\
+because it can't get the value of the segment register.\n\
+Do you want to stop the program?"),
+                              paddress (gdbarch, ir.orig_addr));
+                  target_terminal_inferior ();
+                  if (q)
+                    return -1;
+                }
             }
           else
             {
@@ -5115,7 +5449,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
 
       /* XXX */
     case 0xcc:    /* int3 */
-      printf_unfiltered (_("Process record doesn't support instruction "
+      printf_unfiltered (_("Process record does not support instruction "
                           "int3.\n"));
       ir.addr -= 1;
       goto no_support;
@@ -5136,15 +5470,15 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
          }
        ir.addr++;
        if (interrupt != 0x80
-           || gdbarch_tdep (gdbarch)->i386_intx80_record == NULL)
+           || tdep->i386_intx80_record == NULL)
          {
-           printf_unfiltered (_("Process record doesn't support "
+           printf_unfiltered (_("Process record does not support "
                                 "instruction int 0x%02x.\n"),
                               interrupt);
            ir.addr -= 2;
            goto no_support;
          }
-       ret = gdbarch_tdep (gdbarch)->i386_intx80_record (ir.regcache);
+       ret = tdep->i386_intx80_record (ir.regcache);
        if (ret)
          return ret;
       }
@@ -5152,7 +5486,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
 
       /* XXX */
     case 0xce:    /* into */
-      printf_unfiltered (_("Process record doesn't support "
+      printf_unfiltered (_("Process record does not support "
                           "instruction into.\n"));
       ir.addr -= 1;
       goto no_support;
@@ -5163,7 +5497,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
       break;
 
     case 0x62:    /* bound */
-      printf_unfiltered (_("Process record doesn't support "
+      printf_unfiltered (_("Process record does not support "
                           "instruction bound.\n"));
       ir.addr -= 1;
       goto no_support;
@@ -5199,24 +5533,22 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
       break;
 
     case 0x0f30:    /* wrmsr */
-      printf_unfiltered (_("Process record doesn't support "
+      printf_unfiltered (_("Process record does not support "
                           "instruction wrmsr.\n"));
       ir.addr -= 2;
       goto no_support;
       break;
 
     case 0x0f32:    /* rdmsr */
-      printf_unfiltered (_("Process record doesn't support "
+      printf_unfiltered (_("Process record does not support "
                           "instruction rdmsr.\n"));
       ir.addr -= 2;
       goto no_support;
       break;
 
     case 0x0f31:    /* rdtsc */
-      printf_unfiltered (_("Process record doesn't support "
-                          "instruction rdtsc.\n"));
-      ir.addr -= 2;
-      goto no_support;
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_REAX_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_REDX_REGNUM);
       break;
 
     case 0x0f34:    /* sysenter */
@@ -5227,21 +5559,21 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
             ir.addr -= 2;
             goto no_support;
           }
-       if (gdbarch_tdep (gdbarch)->i386_sysenter_record == NULL)
+       if (tdep->i386_sysenter_record == NULL)
          {
-           printf_unfiltered (_("Process record doesn't support "
+           printf_unfiltered (_("Process record does not support "
                                 "instruction sysenter.\n"));
            ir.addr -= 2;
            goto no_support;
          }
-       ret = gdbarch_tdep (gdbarch)->i386_sysenter_record (ir.regcache);
+       ret = tdep->i386_sysenter_record (ir.regcache);
        if (ret)
          return ret;
       }
       break;
 
     case 0x0f35:    /* sysexit */
-      printf_unfiltered (_("Process record doesn't support "
+      printf_unfiltered (_("Process record does not support "
                           "instruction sysexit.\n"));
       ir.addr -= 2;
       goto no_support;
@@ -5250,21 +5582,21 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
     case 0x0f05:    /* syscall */
       {
        int ret;
-       if (gdbarch_tdep (gdbarch)->i386_syscall_record == NULL)
+       if (tdep->i386_syscall_record == NULL)
          {
-           printf_unfiltered (_("Process record doesn't support "
+           printf_unfiltered (_("Process record does not support "
                                 "instruction syscall.\n"));
            ir.addr -= 2;
            goto no_support;
          }
-       ret = gdbarch_tdep (gdbarch)->i386_syscall_record (ir.regcache);
+       ret = tdep->i386_syscall_record (ir.regcache);
        if (ret)
          return ret;
       }
       break;
 
     case 0x0f07:    /* sysret */
-      printf_unfiltered (_("Process record doesn't support "
+      printf_unfiltered (_("Process record does not support "
                            "instruction sysret.\n"));
       ir.addr -= 2;
       goto no_support;
@@ -5278,7 +5610,7 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
       break;
 
     case 0xf4:    /* hlt */
-      printf_unfiltered (_("Process record doesn't support "
+      printf_unfiltered (_("Process record does not support "
                           "instruction hlt.\n"));
       ir.addr -= 1;
       goto no_support;
@@ -5332,12 +5664,20 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
              }
            if (ir.override >= 0)
              {
-               warning (_("Process record ignores the memory "
-                           "change of instruction at "
-                           "address %s because it can't get "
-                           "the value of the segment "
-                           "register."),
-                         paddress (gdbarch, ir.orig_addr));
+                if (record_memory_query)
+                  {
+                   int q;
+
+                    target_terminal_ours ();
+                    q = yquery (_("\
+Process record ignores the memory change of instruction at address %s\n\
+because it can't get the value of the segment register.\n\
+Do you want to stop the program?"),
+                                paddress (gdbarch, ir.orig_addr));
+                    target_terminal_inferior ();
+                    if (q)
+                      return -1;
+                  }
              }
            else
              {
@@ -5381,12 +5721,20 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
              /* sidt */
              if (ir.override >= 0)
                {
-                 warning (_("Process record ignores the memory "
-                             "change of instruction at "
-                             "address %s because it can't get "
-                             "the value of the segment "
-                             "register."),
-                           paddress (gdbarch, ir.orig_addr));
+                  if (record_memory_query)
+                    {
+                     int q;
+
+                      target_terminal_ours ();
+                      q = yquery (_("\
+Process record ignores the memory change of instruction at address %s\n\
+because it can't get the value of the segment register.\n\
+Do you want to stop the program?"),
+                                  paddress (gdbarch, ir.orig_addr));
+                      target_terminal_inferior ();
+                      if (q)
+                        return -1;
+                    }
                }
              else
                {
@@ -5574,14 +5922,816 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
       I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_EFLAGS_REGNUM);
       break;
 
-      /* MMX/SSE/SSE2/PNI support */
-      /* XXX */
+    /* MMX 3DNow! SSE SSE2 SSE3 SSSE3 SSE4 */
+
+    case 0x0f0d:    /* 3DNow! prefetch */
+      break;
+
+    case 0x0f0e:    /* 3DNow! femms */
+    case 0x0f77:    /* emms */
+      if (i386_fpc_regnum_p (gdbarch, I387_FTAG_REGNUM(tdep)))
+        goto no_support;
+      record_arch_list_add_reg (ir.regcache, I387_FTAG_REGNUM(tdep));
+      break;
+
+    case 0x0f0f:    /* 3DNow! data */
+      if (i386_record_modrm (&ir))
+       return -1;
+      if (target_read_memory (ir.addr, &opcode8, 1))
+        {
+         printf_unfiltered (_("Process record: error reading memory at "
+                              "addr %s len = 1.\n"),
+                            paddress (gdbarch, ir.addr));
+          return -1;
+        }
+      ir.addr++;
+      switch (opcode8)
+        {
+        case 0x0c:    /* 3DNow! pi2fw */
+        case 0x0d:    /* 3DNow! pi2fd */
+        case 0x1c:    /* 3DNow! pf2iw */
+        case 0x1d:    /* 3DNow! pf2id */
+        case 0x8a:    /* 3DNow! pfnacc */
+        case 0x8e:    /* 3DNow! pfpnacc */
+        case 0x90:    /* 3DNow! pfcmpge */
+        case 0x94:    /* 3DNow! pfmin */
+        case 0x96:    /* 3DNow! pfrcp */
+        case 0x97:    /* 3DNow! pfrsqrt */
+        case 0x9a:    /* 3DNow! pfsub */
+        case 0x9e:    /* 3DNow! pfadd */
+        case 0xa0:    /* 3DNow! pfcmpgt */
+        case 0xa4:    /* 3DNow! pfmax */
+        case 0xa6:    /* 3DNow! pfrcpit1 */
+        case 0xa7:    /* 3DNow! pfrsqit1 */
+        case 0xaa:    /* 3DNow! pfsubr */
+        case 0xae:    /* 3DNow! pfacc */
+        case 0xb0:    /* 3DNow! pfcmpeq */
+        case 0xb4:    /* 3DNow! pfmul */
+        case 0xb6:    /* 3DNow! pfrcpit2 */
+        case 0xb7:    /* 3DNow! pmulhrw */
+        case 0xbb:    /* 3DNow! pswapd */
+        case 0xbf:    /* 3DNow! pavgusb */
+          if (!i386_mmx_regnum_p (gdbarch, I387_MM0_REGNUM (tdep) + ir.reg))
+            goto no_support_3dnow_data;
+          record_arch_list_add_reg (ir.regcache, ir.reg);
+          break;
+
+        default:
+no_support_3dnow_data:
+          opcode = (opcode << 8) | opcode8;
+          goto no_support;
+          break;
+        }
+      break;
+
+    case 0x0faa:    /* rsm */
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_EFLAGS_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_REAX_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_RECX_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_REDX_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_REBX_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_RESP_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_REBP_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_RESI_REGNUM);
+      I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_REDI_REGNUM);
+      break;
+
+    case 0x0fae:
+      if (i386_record_modrm (&ir))
+       return -1;
+      switch(ir.reg)
+        {
+        case 0:    /* fxsave */
+          {
+            uint64_t tmpu64;
+
+            I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_EFLAGS_REGNUM);
+           if (i386_record_lea_modrm_addr (&ir, &tmpu64))
+             return -1;
+            if (record_arch_list_add_mem (tmpu64, 512))
+              return -1;
+          }
+          break;
+
+        case 1:    /* fxrstor */
+          {
+            int i;
+
+            I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_EFLAGS_REGNUM);
+
+            for (i = I387_MM0_REGNUM (tdep);
+                 i386_mmx_regnum_p (gdbarch, i); i++)
+              record_arch_list_add_reg (ir.regcache, i);
+
+            for (i = I387_XMM0_REGNUM (tdep);
+                 i386_xmm_regnum_p (gdbarch, i); i++)
+              record_arch_list_add_reg (ir.regcache, i);
+
+            if (i386_mxcsr_regnum_p (gdbarch, I387_MXCSR_REGNUM(tdep)))
+              record_arch_list_add_reg (ir.regcache, I387_MXCSR_REGNUM(tdep));
+
+            for (i = I387_ST0_REGNUM (tdep);
+                 i386_fp_regnum_p (gdbarch, i); i++)
+              record_arch_list_add_reg (ir.regcache, i);
+
+            for (i = I387_FCTRL_REGNUM (tdep);
+                 i386_fpc_regnum_p (gdbarch, i); i++)
+              record_arch_list_add_reg (ir.regcache, i);
+          }
+          break;
+
+        case 2:    /* ldmxcsr */
+          if (!i386_mxcsr_regnum_p (gdbarch, I387_MXCSR_REGNUM(tdep)))
+            goto no_support;
+          record_arch_list_add_reg (ir.regcache, I387_MXCSR_REGNUM(tdep));
+          break;
+
+        case 3:    /* stmxcsr */
+          ir.ot = OT_LONG;
+          if (i386_record_lea_modrm (&ir))
+            return -1;
+          break;
+
+        case 5:    /* lfence */
+        case 6:    /* mfence */
+        case 7:    /* sfence clflush */
+          break;
+
+        default:
+          opcode = (opcode << 8) | ir.modrm;
+          goto no_support;
+          break;
+        }
+      break;
+
+    case 0x0fc3:    /* movnti */
+      ir.ot = (ir.dflag == 2) ? OT_QUAD : OT_LONG;
+      if (i386_record_modrm (&ir))
+       return -1;
+      if (ir.mod == 3)
+        goto no_support;
+      ir.reg |= rex_r;
+      if (i386_record_lea_modrm (&ir))
+        return -1;
+      break;
+
+    /* Add prefix to opcode.  */
+    case 0x0f10:
+    case 0x0f11:
+    case 0x0f12:
+    case 0x0f13:
+    case 0x0f14:
+    case 0x0f15:
+    case 0x0f16:
+    case 0x0f17:
+    case 0x0f28:
+    case 0x0f29:
+    case 0x0f2a:
+    case 0x0f2b:
+    case 0x0f2c:
+    case 0x0f2d:
+    case 0x0f2e:
+    case 0x0f2f:
+    case 0x0f38:
+    case 0x0f39:
+    case 0x0f3a:
+    case 0x0f50:
+    case 0x0f51:
+    case 0x0f52:
+    case 0x0f53:
+    case 0x0f54:
+    case 0x0f55:
+    case 0x0f56:
+    case 0x0f57:
+    case 0x0f58:
+    case 0x0f59:
+    case 0x0f5a:
+    case 0x0f5b:
+    case 0x0f5c:
+    case 0x0f5d:
+    case 0x0f5e:
+    case 0x0f5f:
+    case 0x0f60:
+    case 0x0f61:
+    case 0x0f62:
+    case 0x0f63:
+    case 0x0f64:
+    case 0x0f65:
+    case 0x0f66:
+    case 0x0f67:
+    case 0x0f68:
+    case 0x0f69:
+    case 0x0f6a:
+    case 0x0f6b:
+    case 0x0f6c:
+    case 0x0f6d:
+    case 0x0f6e:
+    case 0x0f6f:
+    case 0x0f70:
+    case 0x0f71:
+    case 0x0f72:
+    case 0x0f73:
+    case 0x0f74:
+    case 0x0f75:
+    case 0x0f76:
+    case 0x0f7c:
+    case 0x0f7d:
+    case 0x0f7e:
+    case 0x0f7f:
+    case 0x0fb8:
+    case 0x0fc2:
+    case 0x0fc4:
+    case 0x0fc5:
+    case 0x0fc6:
+    case 0x0fd0:
+    case 0x0fd1:
+    case 0x0fd2:
+    case 0x0fd3:
+    case 0x0fd4:
+    case 0x0fd5:
+    case 0x0fd6:
+    case 0x0fd7:
+    case 0x0fd8:
+    case 0x0fd9:
+    case 0x0fda:
+    case 0x0fdb:
+    case 0x0fdc:
+    case 0x0fdd:
+    case 0x0fde:
+    case 0x0fdf:
+    case 0x0fe0:
+    case 0x0fe1:
+    case 0x0fe2:
+    case 0x0fe3:
+    case 0x0fe4:
+    case 0x0fe5:
+    case 0x0fe6:
+    case 0x0fe7:
+    case 0x0fe8:
+    case 0x0fe9:
+    case 0x0fea:
+    case 0x0feb:
+    case 0x0fec:
+    case 0x0fed:
+    case 0x0fee:
+    case 0x0fef:
+    case 0x0ff0:
+    case 0x0ff1:
+    case 0x0ff2:
+    case 0x0ff3:
+    case 0x0ff4:
+    case 0x0ff5:
+    case 0x0ff6:
+    case 0x0ff7:
+    case 0x0ff8:
+    case 0x0ff9:
+    case 0x0ffa:
+    case 0x0ffb:
+    case 0x0ffc:
+    case 0x0ffd:
+    case 0x0ffe:
+      switch (prefixes)
+        {
+        case PREFIX_REPNZ:
+          opcode |= 0xf20000;
+          break;
+        case PREFIX_DATA:
+          opcode |= 0x660000;
+          break;
+        case PREFIX_REPZ:
+          opcode |= 0xf30000;
+          break;
+        }
+reswitch_prefix_add:
+      switch (opcode)
+        {
+        case 0x0f38:
+        case 0x660f38:
+        case 0xf20f38:
+        case 0x0f3a:
+        case 0x660f3a:
+          if (target_read_memory (ir.addr, &opcode8, 1))
+            {
+             printf_unfiltered (_("Process record: error reading memory at "
+                                  "addr %s len = 1.\n"),
+                                paddress (gdbarch, ir.addr));
+              return -1;
+            }
+          ir.addr++;
+          opcode = (uint32_t) opcode8 | opcode << 8;
+          goto reswitch_prefix_add;
+          break;
+
+        case 0x0f10:        /* movups */
+        case 0x660f10:      /* movupd */
+        case 0xf30f10:      /* movss */
+        case 0xf20f10:      /* movsd */
+        case 0x0f12:        /* movlps */
+        case 0x660f12:      /* movlpd */
+        case 0xf30f12:      /* movsldup */
+        case 0xf20f12:      /* movddup */
+        case 0x0f14:        /* unpcklps */
+        case 0x660f14:      /* unpcklpd */
+        case 0x0f15:        /* unpckhps */
+        case 0x660f15:      /* unpckhpd */
+        case 0x0f16:        /* movhps */
+        case 0x660f16:      /* movhpd */
+        case 0xf30f16:      /* movshdup */
+        case 0x0f28:        /* movaps */
+        case 0x660f28:      /* movapd */
+        case 0x0f2a:        /* cvtpi2ps */
+        case 0x660f2a:      /* cvtpi2pd */
+        case 0xf30f2a:      /* cvtsi2ss */
+        case 0xf20f2a:      /* cvtsi2sd */
+        case 0x0f2c:        /* cvttps2pi */
+        case 0x660f2c:      /* cvttpd2pi */
+        case 0x0f2d:        /* cvtps2pi */
+        case 0x660f2d:      /* cvtpd2pi */
+        case 0x660f3800:    /* pshufb */
+        case 0x660f3801:    /* phaddw */
+        case 0x660f3802:    /* phaddd */
+        case 0x660f3803:    /* phaddsw */
+        case 0x660f3804:    /* pmaddubsw */
+        case 0x660f3805:    /* phsubw */
+        case 0x660f3806:    /* phsubd */
+        case 0x660f3807:    /* phaddsw */
+        case 0x660f3808:    /* psignb */
+        case 0x660f3809:    /* psignw */
+        case 0x660f380a:    /* psignd */
+        case 0x660f380b:    /* pmulhrsw */
+        case 0x660f3810:    /* pblendvb */
+        case 0x660f3814:    /* blendvps */
+        case 0x660f3815:    /* blendvpd */
+        case 0x660f381c:    /* pabsb */
+        case 0x660f381d:    /* pabsw */
+        case 0x660f381e:    /* pabsd */
+        case 0x660f3820:    /* pmovsxbw */
+        case 0x660f3821:    /* pmovsxbd */
+        case 0x660f3822:    /* pmovsxbq */
+        case 0x660f3823:    /* pmovsxwd */
+        case 0x660f3824:    /* pmovsxwq */
+        case 0x660f3825:    /* pmovsxdq */
+        case 0x660f3828:    /* pmuldq */
+        case 0x660f3829:    /* pcmpeqq */
+        case 0x660f382a:    /* movntdqa */
+        case 0x660f3a08:    /* roundps */
+        case 0x660f3a09:    /* roundpd */
+        case 0x660f3a0a:    /* roundss */
+        case 0x660f3a0b:    /* roundsd */
+        case 0x660f3a0c:    /* blendps */
+        case 0x660f3a0d:    /* blendpd */
+        case 0x660f3a0e:    /* pblendw */
+        case 0x660f3a0f:    /* palignr */
+        case 0x660f3a20:    /* pinsrb */
+        case 0x660f3a21:    /* insertps */
+        case 0x660f3a22:    /* pinsrd pinsrq */
+        case 0x660f3a40:    /* dpps */
+        case 0x660f3a41:    /* dppd */
+        case 0x660f3a42:    /* mpsadbw */
+        case 0x660f3a60:    /* pcmpestrm */
+        case 0x660f3a61:    /* pcmpestri */
+        case 0x660f3a62:    /* pcmpistrm */
+        case 0x660f3a63:    /* pcmpistri */
+        case 0x0f51:        /* sqrtps */
+        case 0x660f51:      /* sqrtpd */
+        case 0xf20f51:      /* sqrtsd */
+        case 0xf30f51:      /* sqrtss */
+        case 0x0f52:        /* rsqrtps */
+        case 0xf30f52:      /* rsqrtss */
+        case 0x0f53:        /* rcpps */
+        case 0xf30f53:      /* rcpss */
+        case 0x0f54:        /* andps */
+        case 0x660f54:      /* andpd */
+        case 0x0f55:        /* andnps */
+        case 0x660f55:      /* andnpd */
+        case 0x0f56:        /* orps */
+        case 0x660f56:      /* orpd */
+        case 0x0f57:        /* xorps */
+        case 0x660f57:      /* xorpd */
+        case 0x0f58:        /* addps */
+        case 0x660f58:      /* addpd */
+        case 0xf20f58:      /* addsd */
+        case 0xf30f58:      /* addss */
+        case 0x0f59:        /* mulps */
+        case 0x660f59:      /* mulpd */
+        case 0xf20f59:      /* mulsd */
+        case 0xf30f59:      /* mulss */
+        case 0x0f5a:        /* cvtps2pd */
+        case 0x660f5a:      /* cvtpd2ps */
+        case 0xf20f5a:      /* cvtsd2ss */
+        case 0xf30f5a:      /* cvtss2sd */
+        case 0x0f5b:        /* cvtdq2ps */
+        case 0x660f5b:      /* cvtps2dq */
+        case 0xf30f5b:      /* cvttps2dq */
+        case 0x0f5c:        /* subps */
+        case 0x660f5c:      /* subpd */
+        case 0xf20f5c:      /* subsd */
+        case 0xf30f5c:      /* subss */
+        case 0x0f5d:        /* minps */
+        case 0x660f5d:      /* minpd */
+        case 0xf20f5d:      /* minsd */
+        case 0xf30f5d:      /* minss */
+        case 0x0f5e:        /* divps */
+        case 0x660f5e:      /* divpd */
+        case 0xf20f5e:      /* divsd */
+        case 0xf30f5e:      /* divss */
+        case 0x0f5f:        /* maxps */
+        case 0x660f5f:      /* maxpd */
+        case 0xf20f5f:      /* maxsd */
+        case 0xf30f5f:      /* maxss */
+        case 0x660f60:      /* punpcklbw */
+        case 0x660f61:      /* punpcklwd */
+        case 0x660f62:      /* punpckldq */
+        case 0x660f63:      /* packsswb */
+        case 0x660f64:      /* pcmpgtb */
+        case 0x660f65:      /* pcmpgtw */
+        case 0x660f66:      /* pcmpgtl */
+        case 0x660f67:      /* packuswb */
+        case 0x660f68:      /* punpckhbw */
+        case 0x660f69:      /* punpckhwd */
+        case 0x660f6a:      /* punpckhdq */
+        case 0x660f6b:      /* packssdw */
+        case 0x660f6c:      /* punpcklqdq */
+        case 0x660f6d:      /* punpckhqdq */
+        case 0x660f6e:      /* movd */
+        case 0x660f6f:      /* movdqa */
+        case 0xf30f6f:      /* movdqu */
+        case 0x660f70:      /* pshufd */
+        case 0xf20f70:      /* pshuflw */
+        case 0xf30f70:      /* pshufhw */
+        case 0x660f74:      /* pcmpeqb */
+        case 0x660f75:      /* pcmpeqw */
+        case 0x660f76:      /* pcmpeql */
+        case 0x660f7c:      /* haddpd */
+        case 0xf20f7c:      /* haddps */
+        case 0x660f7d:      /* hsubpd */
+        case 0xf20f7d:      /* hsubps */
+        case 0xf30f7e:      /* movq */
+        case 0x0fc2:        /* cmpps */
+        case 0x660fc2:      /* cmppd */
+        case 0xf20fc2:      /* cmpsd */
+        case 0xf30fc2:      /* cmpss */
+        case 0x660fc4:      /* pinsrw */
+        case 0x0fc6:        /* shufps */
+        case 0x660fc6:      /* shufpd */
+        case 0x660fd0:      /* addsubpd */
+        case 0xf20fd0:      /* addsubps */
+        case 0x660fd1:      /* psrlw */
+        case 0x660fd2:      /* psrld */
+        case 0x660fd3:      /* psrlq */
+        case 0x660fd4:      /* paddq */
+        case 0x660fd5:      /* pmullw */
+        case 0xf30fd6:      /* movq2dq */
+        case 0x660fd8:      /* psubusb */
+        case 0x660fd9:      /* psubusw */
+        case 0x660fda:      /* pminub */
+        case 0x660fdb:      /* pand */
+        case 0x660fdc:      /* paddusb */
+        case 0x660fdd:      /* paddusw */
+        case 0x660fde:      /* pmaxub */
+        case 0x660fdf:      /* pandn */
+        case 0x660fe0:      /* pavgb */
+        case 0x660fe1:      /* psraw */
+        case 0x660fe2:      /* psrad */
+        case 0x660fe3:      /* pavgw */
+        case 0x660fe4:      /* pmulhuw */
+        case 0x660fe5:      /* pmulhw */
+        case 0x660fe6:      /* cvttpd2dq */
+        case 0xf20fe6:      /* cvtpd2dq */
+        case 0xf30fe6:      /* cvtdq2pd */
+        case 0x660fe8:      /* psubsb */
+        case 0x660fe9:      /* psubsw */
+        case 0x660fea:      /* pminsw */
+        case 0x660feb:      /* por */
+        case 0x660fec:      /* paddsb */
+        case 0x660fed:      /* paddsw */
+        case 0x660fee:      /* pmaxsw */
+        case 0x660fef:      /* pxor */
+        case 0x660ff0:      /* lddqu */
+        case 0x660ff1:      /* psllw */
+        case 0x660ff2:      /* pslld */
+        case 0x660ff3:      /* psllq */
+        case 0x660ff4:      /* pmuludq */
+        case 0x660ff5:      /* pmaddwd */
+        case 0x660ff6:      /* psadbw */
+        case 0x660ff8:      /* psubb */
+        case 0x660ff9:      /* psubw */
+        case 0x660ffa:      /* psubl */
+        case 0x660ffb:      /* psubq */
+        case 0x660ffc:      /* paddb */
+        case 0x660ffd:      /* paddw */
+        case 0x660ffe:      /* paddl */
+          if (i386_record_modrm (&ir))
+           return -1;
+          ir.reg |= rex_r;
+          if (!i386_xmm_regnum_p (gdbarch, I387_XMM0_REGNUM (tdep) + ir.reg))
+            goto no_support;
+          record_arch_list_add_reg (ir.regcache,
+                                    I387_XMM0_REGNUM (tdep) + ir.reg);
+          if ((opcode & 0xfffffffc) == 0x660f3a60)
+            I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_EFLAGS_REGNUM);
+          break;
+
+        case 0x0f11:        /* movups */
+        case 0x660f11:      /* movupd */
+        case 0xf30f11:      /* movss */
+        case 0xf20f11:      /* movsd */
+        case 0x0f13:        /* movlps */
+        case 0x660f13:      /* movlpd */
+        case 0x0f17:        /* movhps */
+        case 0x660f17:      /* movhpd */
+        case 0x0f29:        /* movaps */
+        case 0x660f29:      /* movapd */
+        case 0x660f3a14:    /* pextrb */
+        case 0x660f3a15:    /* pextrw */
+        case 0x660f3a16:    /* pextrd pextrq */
+        case 0x660f3a17:    /* extractps */
+        case 0x660f7f:      /* movdqa */
+        case 0xf30f7f:      /* movdqu */
+          if (i386_record_modrm (&ir))
+           return -1;
+          if (ir.mod == 3)
+            {
+              if (opcode == 0x0f13 || opcode == 0x660f13
+                  || opcode == 0x0f17 || opcode == 0x660f17)
+                goto no_support;
+              ir.rm |= ir.rex_b;
+              if (!i386_xmm_regnum_p (gdbarch, I387_XMM0_REGNUM (tdep) + ir.rm))
+                goto no_support;
+              record_arch_list_add_reg (ir.regcache,
+                                        I387_XMM0_REGNUM (tdep) + ir.rm);
+            }
+          else
+            {
+              switch (opcode)
+                {
+                  case 0x660f3a14:
+                    ir.ot = OT_BYTE;
+                    break;
+                  case 0x660f3a15:
+                    ir.ot = OT_WORD;
+                    break;
+                  case 0x660f3a16:
+                    ir.ot = OT_LONG;
+                    break;
+                  case 0x660f3a17:
+                    ir.ot = OT_QUAD;
+                    break;
+                  default:
+                    ir.ot = OT_DQUAD;
+                    break;
+                }
+              if (i386_record_lea_modrm (&ir))
+                return -1;
+            }
+          break;
+
+        case 0x0f2b:      /* movntps */
+        case 0x660f2b:    /* movntpd */
+        case 0x0fe7:      /* movntq */
+        case 0x660fe7:    /* movntdq */
+          if (ir.mod == 3)
+            goto no_support;
+          if (opcode == 0x0fe7)
+            ir.ot = OT_QUAD;
+          else
+            ir.ot = OT_DQUAD;
+          if (i386_record_lea_modrm (&ir))
+            return -1;
+          break;
+
+        case 0xf30f2c:      /* cvttss2si */
+        case 0xf20f2c:      /* cvttsd2si */
+        case 0xf30f2d:      /* cvtss2si */
+        case 0xf20f2d:      /* cvtsd2si */
+        case 0xf20f38f0:    /* crc32 */
+        case 0xf20f38f1:    /* crc32 */
+        case 0x0f50:        /* movmskps */
+        case 0x660f50:      /* movmskpd */
+        case 0x0fc5:        /* pextrw */
+        case 0x660fc5:      /* pextrw */
+        case 0x0fd7:        /* pmovmskb */
+        case 0x660fd7:      /* pmovmskb */
+          I386_RECORD_ARCH_LIST_ADD_REG (ir.reg | rex_r);
+          break;
+
+        case 0x0f3800:    /* pshufb */
+        case 0x0f3801:    /* phaddw */
+        case 0x0f3802:    /* phaddd */
+        case 0x0f3803:    /* phaddsw */
+        case 0x0f3804:    /* pmaddubsw */
+        case 0x0f3805:    /* phsubw */
+        case 0x0f3806:    /* phsubd */
+        case 0x0f3807:    /* phaddsw */
+        case 0x0f3808:    /* psignb */
+        case 0x0f3809:    /* psignw */
+        case 0x0f380a:    /* psignd */
+        case 0x0f380b:    /* pmulhrsw */
+        case 0x0f381c:    /* pabsb */
+        case 0x0f381d:    /* pabsw */
+        case 0x0f381e:    /* pabsd */
+        case 0x0f382b:    /* packusdw */
+        case 0x0f3830:    /* pmovzxbw */
+        case 0x0f3831:    /* pmovzxbd */
+        case 0x0f3832:    /* pmovzxbq */
+        case 0x0f3833:    /* pmovzxwd */
+        case 0x0f3834:    /* pmovzxwq */
+        case 0x0f3835:    /* pmovzxdq */
+        case 0x0f3837:    /* pcmpgtq */
+        case 0x0f3838:    /* pminsb */
+        case 0x0f3839:    /* pminsd */
+        case 0x0f383a:    /* pminuw */
+        case 0x0f383b:    /* pminud */
+        case 0x0f383c:    /* pmaxsb */
+        case 0x0f383d:    /* pmaxsd */
+        case 0x0f383e:    /* pmaxuw */
+        case 0x0f383f:    /* pmaxud */
+        case 0x0f3840:    /* pmulld */
+        case 0x0f3841:    /* phminposuw */
+        case 0x0f3a0f:    /* palignr */
+        case 0x0f60:      /* punpcklbw */
+        case 0x0f61:      /* punpcklwd */
+        case 0x0f62:      /* punpckldq */
+        case 0x0f63:      /* packsswb */
+        case 0x0f64:      /* pcmpgtb */
+        case 0x0f65:      /* pcmpgtw */
+        case 0x0f66:      /* pcmpgtl */
+        case 0x0f67:      /* packuswb */
+        case 0x0f68:      /* punpckhbw */
+        case 0x0f69:      /* punpckhwd */
+        case 0x0f6a:      /* punpckhdq */
+        case 0x0f6b:      /* packssdw */
+        case 0x0f6e:      /* movd */
+        case 0x0f6f:      /* movq */
+        case 0x0f70:      /* pshufw */
+        case 0x0f74:      /* pcmpeqb */
+        case 0x0f75:      /* pcmpeqw */
+        case 0x0f76:      /* pcmpeql */
+        case 0x0fc4:      /* pinsrw */
+        case 0x0fd1:      /* psrlw */
+        case 0x0fd2:      /* psrld */
+        case 0x0fd3:      /* psrlq */
+        case 0x0fd4:      /* paddq */
+        case 0x0fd5:      /* pmullw */
+        case 0xf20fd6:    /* movdq2q */
+        case 0x0fd8:      /* psubusb */
+        case 0x0fd9:      /* psubusw */
+        case 0x0fda:      /* pminub */
+        case 0x0fdb:      /* pand */
+        case 0x0fdc:      /* paddusb */
+        case 0x0fdd:      /* paddusw */
+        case 0x0fde:      /* pmaxub */
+        case 0x0fdf:      /* pandn */
+        case 0x0fe0:      /* pavgb */
+        case 0x0fe1:      /* psraw */
+        case 0x0fe2:      /* psrad */
+        case 0x0fe3:      /* pavgw */
+        case 0x0fe4:      /* pmulhuw */
+        case 0x0fe5:      /* pmulhw */
+        case 0x0fe8:      /* psubsb */
+        case 0x0fe9:      /* psubsw */
+        case 0x0fea:      /* pminsw */
+        case 0x0feb:      /* por */
+        case 0x0fec:      /* paddsb */
+        case 0x0fed:      /* paddsw */
+        case 0x0fee:      /* pmaxsw */
+        case 0x0fef:      /* pxor */
+        case 0x0ff1:      /* psllw */
+        case 0x0ff2:      /* pslld */
+        case 0x0ff3:      /* psllq */
+        case 0x0ff4:      /* pmuludq */
+        case 0x0ff5:      /* pmaddwd */
+        case 0x0ff6:      /* psadbw */
+        case 0x0ff8:      /* psubb */
+        case 0x0ff9:      /* psubw */
+        case 0x0ffa:      /* psubl */
+        case 0x0ffb:      /* psubq */
+        case 0x0ffc:      /* paddb */
+        case 0x0ffd:      /* paddw */
+        case 0x0ffe:      /* paddl */
+          if (i386_record_modrm (&ir))
+           return -1;
+          if (!i386_mmx_regnum_p (gdbarch, I387_MM0_REGNUM (tdep) + ir.reg))
+            goto no_support;
+          record_arch_list_add_reg (ir.regcache,
+                                    I387_MM0_REGNUM (tdep) + ir.reg);
+          break;
+
+        case 0x0f71:    /* psllw */
+        case 0x0f72:    /* pslld */
+        case 0x0f73:    /* psllq */
+          if (i386_record_modrm (&ir))
+           return -1;
+          if (!i386_mmx_regnum_p (gdbarch, I387_MM0_REGNUM (tdep) + ir.rm))
+            goto no_support;
+          record_arch_list_add_reg (ir.regcache,
+                                    I387_MM0_REGNUM (tdep) + ir.rm);
+          break;
+
+        case 0x660f71:    /* psllw */
+        case 0x660f72:    /* pslld */
+        case 0x660f73:    /* psllq */
+          if (i386_record_modrm (&ir))
+           return -1;
+          ir.rm |= ir.rex_b;
+          if (!i386_xmm_regnum_p (gdbarch, I387_XMM0_REGNUM (tdep) + ir.rm))
+            goto no_support;
+          record_arch_list_add_reg (ir.regcache,
+                                    I387_XMM0_REGNUM (tdep) + ir.rm);
+          break;
+
+        case 0x0f7e:      /* movd */
+        case 0x660f7e:    /* movd */
+          if (i386_record_modrm (&ir))
+           return -1;
+          if (ir.mod == 3)
+            I386_RECORD_ARCH_LIST_ADD_REG (ir.rm | ir.rex_b);
+          else
+            {
+              if (ir.dflag == 2)
+                ir.ot = OT_QUAD;
+              else
+                ir.ot = OT_LONG;
+              if (i386_record_lea_modrm (&ir))
+                return -1;
+            }
+          break;
+
+        case 0x0f7f:    /* movq */
+          if (i386_record_modrm (&ir))
+           return -1;
+          if (ir.mod == 3)
+            {
+              if (!i386_mmx_regnum_p (gdbarch, I387_MM0_REGNUM (tdep) + ir.rm))
+                goto no_support;
+              record_arch_list_add_reg (ir.regcache,
+                                        I387_MM0_REGNUM (tdep) + ir.rm);
+            }
+          else
+            {
+              ir.ot = OT_QUAD;
+              if (i386_record_lea_modrm (&ir))
+                return -1;
+            }
+          break;
+
+        case 0xf30fb8:    /* popcnt */
+          if (i386_record_modrm (&ir))
+           return -1;
+          I386_RECORD_ARCH_LIST_ADD_REG (ir.reg);
+          I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_EFLAGS_REGNUM);
+          break;
+
+        case 0x660fd6:    /* movq */
+          if (i386_record_modrm (&ir))
+           return -1;
+          if (ir.mod == 3)
+            {
+              ir.rm |= ir.rex_b;
+              if (!i386_xmm_regnum_p (gdbarch, I387_XMM0_REGNUM (tdep) + ir.rm))
+                goto no_support;
+              record_arch_list_add_reg (ir.regcache,
+                                        I387_XMM0_REGNUM (tdep) + ir.rm);
+            }
+          else
+            {
+              ir.ot = OT_QUAD;
+              if (i386_record_lea_modrm (&ir))
+                return -1;
+            }
+          break;
+
+        case 0x660f3817:    /* ptest */
+        case 0x0f2e:        /* ucomiss */
+        case 0x660f2e:      /* ucomisd */
+        case 0x0f2f:        /* comiss */
+        case 0x660f2f:      /* comisd */
+          I386_RECORD_ARCH_LIST_ADD_REG (X86_RECORD_EFLAGS_REGNUM);
+          break;
+
+        case 0x0ff7:    /* maskmovq */
+          regcache_raw_read_unsigned (ir.regcache,
+                                      ir.regmap[X86_RECORD_REDI_REGNUM],
+                                      &addr);
+          if (record_arch_list_add_mem (addr, 64))
+            return -1;
+          break;
+
+        case 0x660ff7:    /* maskmovdqu */
+          regcache_raw_read_unsigned (ir.regcache,
+                                      ir.regmap[X86_RECORD_REDI_REGNUM],
+                                      &addr);
+          if (record_arch_list_add_mem (addr, 128))
+            return -1;
+          break;
+
+        default:
+          goto no_support;
+          break;
+        }
+      break;
 
     default:
-      if (opcode > 0xff)
-       ir.addr -= 2;
-      else
-       ir.addr -= 1;
       goto no_support;
       break;
     }
@@ -5594,9 +6744,10 @@ i386_process_record (struct gdbarch *gdbarch, struct regcache *regcache,
   return 0;
 
  no_support:
-  printf_unfiltered (_("Process record doesn't support instruction 0x%02x "
-                      "at address %s.\n"),
-                    (unsigned int) (opcode), paddress (gdbarch, ir.addr));
+  printf_unfiltered (_("Process record does not support instruction 0x%02x "
+                       "at address %s.\n"),
+                     (unsigned int) (opcode),
+                     paddress (gdbarch, ir.orig_addr));
   return -1;
 }
 
@@ -5657,7 +6808,8 @@ i386_validate_tdesc_p (struct gdbarch_tdep *tdep,
                       struct tdesc_arch_data *tdesc_data)
 {
   const struct target_desc *tdesc = tdep->tdesc;
-  const struct tdesc_feature *feature_core, *feature_vector;
+  const struct tdesc_feature *feature_core;
+  const struct tdesc_feature *feature_sse, *feature_avx;
   int i, num_regs, valid_p;
 
   if (! tdesc_has_registers (tdesc))
@@ -5665,25 +6817,60 @@ i386_validate_tdesc_p (struct gdbarch_tdep *tdep,
 
   /* Get core registers.  */
   feature_core = tdesc_find_feature (tdesc, "org.gnu.gdb.i386.core");
+  if (feature_core == NULL)
+    return 0;
 
   /* Get SSE registers.  */
-  feature_vector = tdesc_find_feature (tdesc, "org.gnu.gdb.i386.sse");
+  feature_sse = tdesc_find_feature (tdesc, "org.gnu.gdb.i386.sse");
 
-  if (feature_core == NULL || feature_vector == NULL)
-    return 0;
+  /* Try AVX registers.  */
+  feature_avx = tdesc_find_feature (tdesc, "org.gnu.gdb.i386.avx");
 
   valid_p = 1;
 
+  /* The XCR0 bits.  */
+  if (feature_avx)
+    {
+      /* AVX register description requires SSE register description.  */
+      if (!feature_sse)
+       return 0;
+
+      tdep->xcr0 = I386_XSTATE_AVX_MASK;
+
+      /* It may have been set by OSABI initialization function.  */
+      if (tdep->num_ymm_regs == 0)
+       {
+         tdep->ymmh_register_names = i386_ymmh_names;
+         tdep->num_ymm_regs = 8;
+         tdep->ymm0h_regnum = I386_YMM0H_REGNUM;
+       }
+
+      for (i = 0; i < tdep->num_ymm_regs; i++)
+       valid_p &= tdesc_numbered_register (feature_avx, tdesc_data,
+                                           tdep->ymm0h_regnum + i,
+                                           tdep->ymmh_register_names[i]);
+    }
+  else if (feature_sse)
+    tdep->xcr0 = I386_XSTATE_SSE_MASK;
+  else
+    {
+      tdep->xcr0 = I386_XSTATE_X87_MASK;
+      tdep->num_xmm_regs = 0;
+    }
+
   num_regs = tdep->num_core_regs;
   for (i = 0; i < num_regs; i++)
     valid_p &= tdesc_numbered_register (feature_core, tdesc_data, i,
                                        tdep->register_names[i]);
 
-  /* Need to include %mxcsr, so add one.  */
-  num_regs += tdep->num_xmm_regs + 1;
-  for (; i < num_regs; i++)
-    valid_p &= tdesc_numbered_register (feature_vector, tdesc_data, i,
-                                       tdep->register_names[i]);
+  if (feature_sse)
+    {
+      /* Need to include %mxcsr, so add one.  */
+      num_regs += tdep->num_xmm_regs + 1;
+      for (; i < num_regs; i++)
+       valid_p &= tdesc_numbered_register (feature_sse, tdesc_data, i,
+                                           tdep->register_names[i]);
+    }
 
   return valid_p;
 }
@@ -5697,6 +6884,7 @@ i386_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
   struct tdesc_arch_data *tdesc_data;
   const struct target_desc *tdesc;
   int mm0_regnum;
+  int ymm0_regnum;
 
   /* If there is already a candidate, use it.  */
   arches = gdbarch_list_lookup_by_info (arches, &info);
@@ -5717,19 +6905,13 @@ i386_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
   tdep->fpregset = NULL;
   tdep->sizeof_fpregset = I387_SIZEOF_FSAVE;
 
+  tdep->xstateregset = NULL;
+
   /* The default settings include the FPU registers, the MMX registers
      and the SSE registers.  This can be overridden for a specific ABI
      by adjusting the members `st0_regnum', `mm0_regnum' and
      `num_xmm_regs' of `struct gdbarch_tdep', otherwise the registers
-     will show up in the output of "info all-registers".  Ideally we
-     should try to autodetect whether they are available, such that we
-     can prevent "info all-registers" from displaying registers that
-     aren't available.
-
-     NOTE: kevinb/2003-07-13: ... if it's a choice between printing
-     [the SSE registers] always (even when they don't exist) or never
-     showing them to the user (even when they do exist), I prefer the
-     former over the latter.  */
+     will show up in the output of "info all-registers".  */
 
   tdep->st0_regnum = I386_ST0_REGNUM;
 
@@ -5746,6 +6928,8 @@ i386_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
   tdep->sc_pc_offset = -1;
   tdep->sc_sp_offset = -1;
 
+  tdep->xsave_xcr0_offset = -1;
+
   tdep->record_regmap = i386_record_regmap;
 
   /* The format used for `long double' on almost all i386 targets is
@@ -5862,9 +7046,14 @@ i386_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
   set_tdesc_pseudo_register_type (gdbarch, i386_pseudo_register_type);
   set_tdesc_pseudo_register_name (gdbarch, i386_pseudo_register_name);
 
-  /* The default ABI includes general-purpose registers, 
-     floating-point registers, and the SSE registers.  */
-  set_gdbarch_num_regs (gdbarch, I386_SSE_NUM_REGS);
+  /* Override the normal target description method to make the AVX
+     upper halves anonymous.  */
+  set_gdbarch_register_name (gdbarch, i386_register_name);
+
+  /* Even though the default ABI only includes general-purpose registers,
+     floating-point registers and the SSE registers, we have to leave a
+     gap for the upper AVX registers.  */
+  set_gdbarch_num_regs (gdbarch, I386_AVX_NUM_REGS);
 
   /* Get the x86 target description from INFO.  */
   tdesc = info.target_desc;
@@ -5875,35 +7064,43 @@ i386_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
   tdep->num_core_regs = I386_NUM_GREGS + I387_NUM_REGS;
   tdep->register_names = i386_register_names;
 
+  /* No upper YMM registers.  */
+  tdep->ymmh_register_names = NULL;
+  tdep->ymm0h_regnum = -1;
+
   tdep->num_byte_regs = 8;
   tdep->num_word_regs = 8;
   tdep->num_dword_regs = 0;
   tdep->num_mmx_regs = 8;
+  tdep->num_ymm_regs = 0;
 
   tdesc_data = tdesc_data_alloc ();
 
+  set_gdbarch_relocate_instruction (gdbarch, i386_relocate_instruction);
+
   /* Hook in ABI-specific overrides, if they have been registered.  */
   info.tdep_info = (void *) tdesc_data;
   gdbarch_init_osabi (info, gdbarch);
 
+  if (!i386_validate_tdesc_p (tdep, tdesc_data))
+    {
+      tdesc_data_cleanup (tdesc_data);
+      xfree (tdep);
+      gdbarch_free (gdbarch);
+      return NULL;
+    }
+
   /* Wire in pseudo registers.  Number of pseudo registers may be
      changed.  */
   set_gdbarch_num_pseudo_regs (gdbarch, (tdep->num_byte_regs
                                         + tdep->num_word_regs
                                         + tdep->num_dword_regs
-                                        + tdep->num_mmx_regs));
+                                        + tdep->num_mmx_regs
+                                        + tdep->num_ymm_regs));
 
   /* Target description may be changed.  */
   tdesc = tdep->tdesc;
 
-  if (!i386_validate_tdesc_p (tdep, tdesc_data))
-    {
-      tdesc_data_cleanup (tdesc_data);
-      xfree (tdep);
-      gdbarch_free (gdbarch);
-      return NULL;
-    }
-
   tdesc_use_registers (gdbarch, tdesc, tdesc_data);
 
   /* Override gdbarch_register_reggroup_p set in tdesc_use_registers.  */
@@ -5913,19 +7110,29 @@ i386_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
   tdep->al_regnum = gdbarch_num_regs (gdbarch);
   tdep->ax_regnum = tdep->al_regnum + tdep->num_byte_regs;
 
-  mm0_regnum = tdep->ax_regnum + tdep->num_word_regs;
+  ymm0_regnum = tdep->ax_regnum + tdep->num_word_regs;
   if (tdep->num_dword_regs)
     {
-      /* Support dword pseudo-registesr if it hasn't been disabled,  */
-      tdep->eax_regnum = mm0_regnum;
-      mm0_regnum = tdep->eax_regnum + tdep->num_dword_regs;
+      /* Support dword pseudo-register if it hasn't been disabled.  */
+      tdep->eax_regnum = ymm0_regnum;
+      ymm0_regnum += tdep->num_dword_regs;
     }
   else
     tdep->eax_regnum = -1;
 
+  mm0_regnum = ymm0_regnum;
+  if (tdep->num_ymm_regs)
+    {
+      /* Support YMM pseudo-register if it is available.  */
+      tdep->ymm0_regnum = ymm0_regnum;
+      mm0_regnum += tdep->num_ymm_regs;
+    }
+  else
+    tdep->ymm0_regnum = -1;
+
   if (tdep->num_mmx_regs != 0)
     {
-      /* Support MMX pseudo-registesr if MMX hasn't been disabled,  */
+      /* Support MMX pseudo-register if MMX hasn't been disabled.  */
       tdep->mm0_regnum = mm0_regnum;
     }
   else
@@ -6005,4 +7212,9 @@ is \"default\"."),
 
   /* Initialize the standard target descriptions.  */
   initialize_tdesc_i386 ();
+  initialize_tdesc_i386_mmx ();
+  initialize_tdesc_i386_avx ();
+
+  /* Tell remote stub that we support XML target description.  */
+  register_remote_support_xml ("i386");
 }
This page took 0.051428 seconds and 4 git commands to generate.