* s390-tdep.c (s390_collect_regset): New function.

	(s390_gregset, s390x_gregset, s390_fpregset): Add it.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 9897b5de53f1ed12b841eff9b09c9379ec55f4f3..9655109a36d2679488b0a0c637dcd6e8eb88012b 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-06  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * s390-tdep.c (s390_collect_regset): New function.
+       (s390_gregset, s390x_gregset, s390_fpregset): Add it.
+
 2006-05-06  Nick Roberts  <nickrob@snap.net.nz>
 
        * dwarf2read.c: Make LOC_OPTIMIZED_OUT the default value for a

diff --git a/gdb/s390-tdep.c b/gdb/s390-tdep.c
index 4018ad18de5bb83d755b010f497dcb4fde56ad26..b7b372d4c2eed821bb4182192b994f5feb1c85c6 100644 (file)
--- a/gdb/s390-tdep.c
+++ b/gdb/s390-tdep.c
@@ -444,19 +444,41 @@ s390_supply_regset (const struct regset *regset, struct regcache *regcache,
     }
 }
 
+/* Collect register REGNUM from the register cache REGCACHE and store
+   it in the buffer specified by REGS and LEN as described by the
+   general-purpose register set REGSET.  If REGNUM is -1, do this for
+   all registers in REGSET.  */
+static void
+s390_collect_regset (const struct regset *regset,
+                    const struct regcache *regcache,
+                    int regnum, void *regs, size_t len)
+{
+  const int *offset = regset->descr;
+  int i;
+
+  for (i = 0; i < S390_NUM_REGS; i++)
+    {
+      if ((regnum == i || regnum == -1) && offset[i] != -1)
+       regcache_raw_collect (regcache, i, (char *)regs + offset[i]);
+    }
+}
+
 static const struct regset s390_gregset = {
   s390_regmap_gregset, 
-  s390_supply_regset
+  s390_supply_regset,
+  s390_collect_regset
 };
 
 static const struct regset s390x_gregset = {
   s390x_regmap_gregset, 
-  s390_supply_regset
+  s390_supply_regset,
+  s390_collect_regset
 };
 
 static const struct regset s390_fpregset = {
   s390_regmap_fpregset, 
-  s390_supply_regset
+  s390_supply_regset,
+  s390_collect_regset
 };
 
 /* Return the appropriate register set for the core section identified