2000-06-08 Fernando Nasser <fnasser@cygnus.com>

        * values.c (value_primitive_field): Copy VALUE_REGNO as well.
        With typed registers we may have the location information in this field,
        in addition to VALUE_ADDRESS (which was already being copied).

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a4b40468f4c6ac5d47fc6f55cb562485602b9e0d..a62bb5f43ebdb67832efca0dfbe5f18f8dbace19 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2000-06-08  Fernando Nasser  <fnasser@cygnus.com>
+
+       * values.c (value_primitive_field): Copy VALUE_REGNO as well.
+       With typed registers we may have the location information in this field,
+       in addition to VALUE_ADDRESS (which was already being copied).
+
 Thu Jun  8 15:26:44 2000  Andrew Cagney  <cagney@b1.cygnus.com>
 
        * config/mips/tm-mips.h (GDB_MULTI_ARCH): Define as 1.

diff --git a/gdb/values.c b/gdb/values.c
index b77f405c45bdbedee0b45d9342c5f16e119e4aa1..ff4951dba03c9d40558705a7411a74f9449ba4c3 100644 (file)
--- a/gdb/values.c
+++ b/gdb/values.c
@@ -841,6 +841,7 @@ value_primitive_field (arg1, offset, fieldno, arg_type)
   if (VALUE_LVAL (arg1) == lval_internalvar)
     VALUE_LVAL (v) = lval_internalvar_component;
   VALUE_ADDRESS (v) = VALUE_ADDRESS (arg1);
+  VALUE_REGNO (v) = VALUE_REGNO (arg1);
 /*  VALUE_OFFSET (v) = VALUE_OFFSET (arg1) + offset
    + TYPE_FIELD_BITPOS (arg_type, fieldno) / 8; */
   return v;