2000-03-22 Elena Zannoni <ezannoni@kwikemart.cygnus.com>

[deliverable/binutils-gdb.git] / gdb / values.c

diff --git a/gdb/values.c b/gdb/values.c
index 6f2642e1258f574ee322c78df21add69a86725a8..760d2f894cd585dd2aa17c275540b0b625f0050c 100644 (file)
--- a/gdb/values.c
+++ b/gdb/values.c
@@ -802,6 +802,8 @@ value_primitive_field (arg1, offset, fieldno, arg_type)
                                                    fieldno));
       VALUE_BITPOS (v) = TYPE_FIELD_BITPOS (arg_type, fieldno) % 8;
       VALUE_BITSIZE (v) = TYPE_FIELD_BITSIZE (arg_type, fieldno);
+      VALUE_OFFSET (v) = VALUE_OFFSET (arg1) + offset
+       + TYPE_FIELD_BITPOS (arg_type, fieldno) / 8;
     }
   else if (fieldno < TYPE_N_BASECLASSES (arg_type))
     {