|
 |
01917d |
From 2ccd146855365598ad2644ef8139f2f2a6747b90 Mon Sep 17 00:00:00 2001
|
|
|
01917d |
From: Ulrich Weigand <uweigand@de.ibm.com>
|
|
|
01917d |
Date: Fri, 13 Sep 2013 14:11:15 +0000
|
|
|
01917d |
Subject: [PATCH 2/3] 2013-09-13 Andreas Arnez <arnez@linux.vnet.ibm.com>
|
|
|
01917d |
|
|
|
01917d |
* s390-tdep.h (S390_IS_GREGSET_REGNUM): New macro.
|
|
|
01917d |
(S390_IS_FPREGSET_REGNUM): New macro.
|
|
|
01917d |
* s390-tdep.c (s390_dwarf_regmap): Make const.
|
|
|
01917d |
(regnum_is_gpr_full): New function for replacing repeated code.
|
|
|
01917d |
(s390_pseudo_register_name): Use it.
|
|
|
01917d |
(s390_pseudo_register_type): Likewise.
|
|
|
01917d |
(s390_pseudo_register_read): Likewise.
|
|
|
01917d |
(s390_pseudo_register_write): Likewise.
|
|
|
01917d |
(s390_unwind_pseudo_register): Likewise.
|
|
|
01917d |
(s390_regmap_gregset): New format for regmap.
|
|
|
01917d |
(s390x_regmap_gregset): Likewise.
|
|
|
01917d |
(s390_regmap_fpregset): Likewise.
|
|
|
01917d |
(s390_regmap_upper): Likewise.
|
|
|
01917d |
(s390_regmap_last_break): Likewise.
|
|
|
01917d |
(s390_regmap_system_call): Likewise.
|
|
|
01917d |
(s390_supply_regset): Adjust to new regmap format.
|
|
|
01917d |
(s390_collect_regset): Likewise.
|
|
|
01917d |
* s390-nat.c (s390_native_supply): Adjust to new regmap format.
|
|
|
01917d |
(s390_native_collect): Likewise.
|
|
|
01917d |
(supply_gregset): Likewise.
|
|
|
01917d |
(fill_gregset): Likewise.
|
|
|
01917d |
(supply_fpregset): Likewise.
|
|
|
01917d |
(fill_fpregset): Likewise.
|
|
|
01917d |
(fetch_regset): Likewise.
|
|
|
01917d |
(store_regset): Likewise.
|
|
|
01917d |
(s390_linux_fetch_inferior_registers): Likewise.
|
|
|
01917d |
(s390_linux_fetch_inferior_registers): Likewise.
|
|
|
01917d |
---
|
|
|
01917d |
gdb/ChangeLog | 30 +++++
|
|
|
01917d |
gdb/s390-nat.c | 233 +++++++++++++++++------------------
|
|
|
01917d |
gdb/s390-tdep.c | 369 +++++++++++++++++++++++++++-----------------------------
|
|
|
01917d |
gdb/s390-tdep.h | 20 ++-
|
|
|
01917d |
4 files changed, 328 insertions(+), 324 deletions(-)
|
|
|
01917d |
|
|
|
01917d |
Index: gdb-7.6.1/gdb/s390-nat.c
|
|
|
01917d |
===================================================================
|
|
|
01917d |
--- gdb-7.6.1.orig/gdb/s390-nat.c
|
|
|
01917d |
+++ gdb-7.6.1/gdb/s390-nat.c
|
|
|
01917d |
@@ -63,139 +63,139 @@ static int have_regset_system_call = 0;
|
|
|
01917d |
|
|
|
01917d |
#define regmap_fpregset s390_regmap_fpregset
|
|
|
01917d |
|
|
|
01917d |
-/* When debugging a 32-bit executable running under a 64-bit kernel,
|
|
|
01917d |
- we have to fix up the 64-bit registers we get from the kernel
|
|
|
01917d |
- to make them look like 32-bit registers. */
|
|
|
01917d |
+/* Fill the regset described by MAP into REGCACHE, using the values
|
|
|
01917d |
+ from REGP. The MAP array represents each register as a pair
|
|
|
01917d |
+ (offset, regno) of short integers and is terminated with -1. */
|
|
|
01917d |
|
|
|
01917d |
static void
|
|
|
01917d |
-s390_native_supply (struct regcache *regcache, int regno,
|
|
|
01917d |
- const gdb_byte *regp, int *regmap)
|
|
|
01917d |
+s390_native_supply (struct regcache *regcache, const short *map,
|
|
|
01917d |
+ const gdb_byte *regp)
|
|
|
01917d |
{
|
|
|
01917d |
- int offset = regmap[regno];
|
|
|
01917d |
+ for (; map[0] >= 0; map += 2)
|
|
|
01917d |
+ regcache_raw_supply (regcache, map[1], regp + map[0]);
|
|
|
01917d |
+}
|
|
|
01917d |
+
|
|
|
01917d |
+/* Collect the register REGNO out of the regset described by MAP from
|
|
|
01917d |
+ REGCACHE into REGP. If REGNO == -1, do this for all registers in
|
|
|
01917d |
+ this regset. */
|
|
|
01917d |
|
|
|
01917d |
+static void
|
|
|
01917d |
+s390_native_collect (const struct regcache *regcache, const short *map,
|
|
|
01917d |
+ int regno, gdb_byte *regp)
|
|
|
01917d |
+{
|
|
|
01917d |
+ for (; map[0] >= 0; map += 2)
|
|
|
01917d |
+ if (regno == -1 || regno == map[1])
|
|
|
01917d |
+ regcache_raw_collect (regcache, map[1], regp + map[0]);
|
|
|
01917d |
+}
|
|
|
01917d |
+
|
|
|
01917d |
+/* Fill GDB's register array with the general-purpose register values
|
|
|
01917d |
+ in *REGP.
|
|
|
01917d |
+
|
|
|
01917d |
+ When debugging a 32-bit executable running under a 64-bit kernel,
|
|
|
01917d |
+ we have to fix up the 64-bit registers we get from the kernel to
|
|
|
01917d |
+ make them look like 32-bit registers. */
|
|
|
01917d |
+
|
|
|
01917d |
+void
|
|
|
01917d |
+supply_gregset (struct regcache *regcache, const gregset_t *regp)
|
|
|
01917d |
+{
|
|
|
01917d |
#ifdef __s390x__
|
|
|
01917d |
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
|
|
01917d |
- if (offset != -1 && gdbarch_ptr_bit (gdbarch) == 32)
|
|
|
01917d |
+ if (gdbarch_ptr_bit (gdbarch) == 32)
|
|
|
01917d |
{
|
|
|
01917d |
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
|
|
01917d |
+ ULONGEST pswm = 0, pswa = 0;
|
|
|
01917d |
+ gdb_byte buf[4];
|
|
|
01917d |
+ const short *map;
|
|
|
01917d |
|
|
|
01917d |
- if (regno == S390_PSWM_REGNUM)
|
|
|
01917d |
- {
|
|
|
01917d |
- ULONGEST pswm;
|
|
|
01917d |
- gdb_byte buf[4];
|
|
|
01917d |
-
|
|
|
01917d |
- pswm = extract_unsigned_integer (regp + regmap[S390_PSWM_REGNUM],
|
|
|
01917d |
- 8, byte_order);
|
|
|
01917d |
-
|
|
|
01917d |
- store_unsigned_integer (buf, 4, byte_order, (pswm >> 32) | 0x80000);
|
|
|
01917d |
- regcache_raw_supply (regcache, regno, buf);
|
|
|
01917d |
- return;
|
|
|
01917d |
- }
|
|
|
01917d |
-
|
|
|
01917d |
- if (regno == S390_PSWA_REGNUM)
|
|
|
01917d |
+ for (map = regmap_gregset; map[0] >= 0; map += 2)
|
|
|
01917d |
{
|
|
|
01917d |
- ULONGEST pswm, pswa;
|
|
|
01917d |
- gdb_byte buf[4];
|
|
|
01917d |
+ const gdb_byte *p = (const gdb_byte *) regp + map[0];
|
|
|
01917d |
+ int regno = map[1];
|
|
|
01917d |
|
|
|
01917d |
- pswa = extract_unsigned_integer (regp + regmap[S390_PSWA_REGNUM],
|
|
|
01917d |
- 8, byte_order);
|
|
|
01917d |
- pswm = extract_unsigned_integer (regp + regmap[S390_PSWM_REGNUM],
|
|
|
01917d |
- 8, byte_order);
|
|
|
01917d |
-
|
|
|
01917d |
- store_unsigned_integer (buf, 4, byte_order,
|
|
|
01917d |
- (pswa & 0x7fffffff) | (pswm & 0x80000000));
|
|
|
01917d |
- regcache_raw_supply (regcache, regno, buf);
|
|
|
01917d |
- return;
|
|
|
01917d |
+ if (regno == S390_PSWM_REGNUM)
|
|
|
01917d |
+ pswm = extract_unsigned_integer (p, 8, byte_order);
|
|
|
01917d |
+ else if (regno == S390_PSWA_REGNUM)
|
|
|
01917d |
+ pswa = extract_unsigned_integer (p, 8, byte_order);
|
|
|
01917d |
+ else
|
|
|
01917d |
+ {
|
|
|
01917d |
+ if ((regno >= S390_R0_REGNUM && regno <= S390_R15_REGNUM)
|
|
|
01917d |
+ || regno == S390_ORIG_R2_REGNUM)
|
|
|
01917d |
+ p += 4;
|
|
|
01917d |
+ regcache_raw_supply (regcache, regno, p);
|
|
|
01917d |
+ }
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
- if ((regno >= S390_R0_REGNUM && regno <= S390_R15_REGNUM)
|
|
|
01917d |
- || regno == S390_ORIG_R2_REGNUM)
|
|
|
01917d |
- offset += 4;
|
|
|
01917d |
+ store_unsigned_integer (buf, 4, byte_order, (pswm >> 32) | 0x80000);
|
|
|
01917d |
+ regcache_raw_supply (regcache, S390_PSWM_REGNUM, buf);
|
|
|
01917d |
+ store_unsigned_integer (buf, 4, byte_order,
|
|
|
01917d |
+ (pswa & 0x7fffffff) | (pswm & 0x80000000));
|
|
|
01917d |
+ regcache_raw_supply (regcache, S390_PSWA_REGNUM, buf);
|
|
|
01917d |
+ return;
|
|
|
01917d |
}
|
|
|
01917d |
#endif
|
|
|
01917d |
|
|
|
01917d |
- if (offset != -1)
|
|
|
01917d |
- regcache_raw_supply (regcache, regno, regp + offset);
|
|
|
01917d |
+ s390_native_supply (regcache, regmap_gregset, (const gdb_byte *) regp);
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
-static void
|
|
|
01917d |
-s390_native_collect (const struct regcache *regcache, int regno,
|
|
|
01917d |
- gdb_byte *regp, int *regmap)
|
|
|
01917d |
-{
|
|
|
01917d |
- int offset = regmap[regno];
|
|
|
01917d |
+/* Fill register REGNO (if it is a general-purpose register) in
|
|
|
01917d |
+ *REGP with the value in GDB's register array. If REGNO is -1,
|
|
|
01917d |
+ do this for all registers. */
|
|
|
01917d |
|
|
|
01917d |
+void
|
|
|
01917d |
+fill_gregset (const struct regcache *regcache, gregset_t *regp, int regno)
|
|
|
01917d |
+{
|
|
|
01917d |
#ifdef __s390x__
|
|
|
01917d |
struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
|
|
01917d |
- if (offset != -1 && gdbarch_ptr_bit (gdbarch) == 32)
|
|
|
01917d |
+ if (gdbarch_ptr_bit (gdbarch) == 32)
|
|
|
01917d |
{
|
|
|
01917d |
- enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
|
|
01917d |
+ gdb_byte *psw_p[2];
|
|
|
01917d |
+ const short *map;
|
|
|
01917d |
|
|
|
01917d |
- if (regno == S390_PSWM_REGNUM)
|
|
|
01917d |
+ for (map = regmap_gregset; map[0] >= 0; map += 2)
|
|
|
01917d |
{
|
|
|
01917d |
- ULONGEST pswm;
|
|
|
01917d |
- gdb_byte buf[4];
|
|
|
01917d |
+ gdb_byte *p = (gdb_byte *) regp + map[0];
|
|
|
01917d |
+ int reg = map[1];
|
|
|
01917d |
|
|
|
01917d |
- regcache_raw_collect (regcache, regno, buf);
|
|
|
01917d |
- pswm = extract_unsigned_integer (buf, 4, byte_order);
|
|
|
01917d |
+ if (reg >= S390_PSWM_REGNUM && reg <= S390_PSWA_REGNUM)
|
|
|
01917d |
+ psw_p[reg - S390_PSWM_REGNUM] = p;
|
|
|
01917d |
|
|
|
01917d |
- /* We don't know the final addressing mode until the PSW address
|
|
|
01917d |
- is known, so leave it as-is. When the PSW address is collected
|
|
|
01917d |
- (below), the addressing mode will be updated. */
|
|
|
01917d |
- store_unsigned_integer (regp + regmap[S390_PSWM_REGNUM],
|
|
|
01917d |
- 4, byte_order, pswm & 0xfff7ffff);
|
|
|
01917d |
- return;
|
|
|
01917d |
+ else if (regno == -1 || regno == reg)
|
|
|
01917d |
+ {
|
|
|
01917d |
+ if ((reg >= S390_R0_REGNUM && reg <= S390_R15_REGNUM)
|
|
|
01917d |
+ || reg == S390_ORIG_R2_REGNUM)
|
|
|
01917d |
+ {
|
|
|
01917d |
+ memset (p, 0, 4);
|
|
|
01917d |
+ p += 4;
|
|
|
01917d |
+ }
|
|
|
01917d |
+ regcache_raw_collect (regcache, reg, p + 4);
|
|
|
01917d |
+ }
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
- if (regno == S390_PSWA_REGNUM)
|
|
|
01917d |
+ if (regno == -1
|
|
|
01917d |
+ || regno == S390_PSWM_REGNUM || regno == S390_PSWA_REGNUM)
|
|
|
01917d |
{
|
|
|
01917d |
- ULONGEST pswa;
|
|
|
01917d |
+ enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
|
|
|
01917d |
+ ULONGEST pswa, pswm;
|
|
|
01917d |
gdb_byte buf[4];
|
|
|
01917d |
|
|
|
01917d |
- regcache_raw_collect (regcache, regno, buf);
|
|
|
01917d |
+ regcache_raw_collect (regcache, S390_PSWM_REGNUM, buf);
|
|
|
01917d |
+ pswm = extract_unsigned_integer (buf, 4, byte_order);
|
|
|
01917d |
+ regcache_raw_collect (regcache, S390_PSWA_REGNUM, buf);
|
|
|
01917d |
pswa = extract_unsigned_integer (buf, 4, byte_order);
|
|
|
01917d |
|
|
|
01917d |
- store_unsigned_integer (regp + regmap[S390_PSWA_REGNUM],
|
|
|
01917d |
- 8, byte_order, pswa & 0x7fffffff);
|
|
|
01917d |
-
|
|
|
01917d |
- /* Update basic addressing mode bit in PSW mask, see above. */
|
|
|
01917d |
- store_unsigned_integer (regp + regmap[S390_PSWM_REGNUM] + 4,
|
|
|
01917d |
- 4, byte_order, pswa & 0x80000000);
|
|
|
01917d |
- return;
|
|
|
01917d |
- }
|
|
|
01917d |
-
|
|
|
01917d |
- if ((regno >= S390_R0_REGNUM && regno <= S390_R15_REGNUM)
|
|
|
01917d |
- || regno == S390_ORIG_R2_REGNUM)
|
|
|
01917d |
- {
|
|
|
01917d |
- memset (regp + offset, 0, 4);
|
|
|
01917d |
- offset += 4;
|
|
|
01917d |
+ if (regno == -1 || regno == S390_PSWM_REGNUM)
|
|
|
01917d |
+ store_unsigned_integer (psw_p[0], 8, byte_order,
|
|
|
01917d |
+ ((pswm & 0xfff7ffff) << 32) |
|
|
|
01917d |
+ (pswa & 0x80000000));
|
|
|
01917d |
+ if (regno == -1 || regno == S390_PSWA_REGNUM)
|
|
|
01917d |
+ store_unsigned_integer (psw_p[1], 8, byte_order,
|
|
|
01917d |
+ pswa & 0x7fffffff);
|
|
|
01917d |
}
|
|
|
01917d |
+ return;
|
|
|
01917d |
}
|
|
|
01917d |
#endif
|
|
|
01917d |
|
|
|
01917d |
- if (offset != -1)
|
|
|
01917d |
- regcache_raw_collect (regcache, regno, regp + offset);
|
|
|
01917d |
-}
|
|
|
01917d |
-
|
|
|
01917d |
-/* Fill GDB's register array with the general-purpose register values
|
|
|
01917d |
- in *REGP. */
|
|
|
01917d |
-void
|
|
|
01917d |
-supply_gregset (struct regcache *regcache, const gregset_t *regp)
|
|
|
01917d |
-{
|
|
|
01917d |
- int i;
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- s390_native_supply (regcache, i, (const gdb_byte *) regp, regmap_gregset);
|
|
|
01917d |
-}
|
|
|
01917d |
-
|
|
|
01917d |
-/* Fill register REGNO (if it is a general-purpose register) in
|
|
|
01917d |
- *REGP with the value in GDB's register array. If REGNO is -1,
|
|
|
01917d |
- do this for all registers. */
|
|
|
01917d |
-void
|
|
|
01917d |
-fill_gregset (const struct regcache *regcache, gregset_t *regp, int regno)
|
|
|
01917d |
-{
|
|
|
01917d |
- int i;
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- if (regno == -1 || regno == i)
|
|
|
01917d |
- s390_native_collect (regcache, i, (gdb_byte *) regp, regmap_gregset);
|
|
|
01917d |
+ s390_native_collect (regcache, regmap_gregset, regno, (gdb_byte *) regp);
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
/* Fill GDB's register array with the floating-point register values
|
|
|
01917d |
@@ -203,9 +203,7 @@ fill_gregset (const struct regcache *reg
|
|
|
01917d |
void
|
|
|
01917d |
supply_fpregset (struct regcache *regcache, const fpregset_t *regp)
|
|
|
01917d |
{
|
|
|
01917d |
- int i;
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- s390_native_supply (regcache, i, (const gdb_byte *) regp, regmap_fpregset);
|
|
|
01917d |
+ s390_native_supply (regcache, regmap_fpregset, (const gdb_byte *) regp);
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
/* Fill register REGNO (if it is a general-purpose register) in
|
|
|
01917d |
@@ -214,10 +212,7 @@ supply_fpregset (struct regcache *regcac
|
|
|
01917d |
void
|
|
|
01917d |
fill_fpregset (const struct regcache *regcache, fpregset_t *regp, int regno)
|
|
|
01917d |
{
|
|
|
01917d |
- int i;
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- if (regno == -1 || regno == i)
|
|
|
01917d |
- s390_native_collect (regcache, i, (gdb_byte *) regp, regmap_fpregset);
|
|
|
01917d |
+ s390_native_collect (regcache, regmap_fpregset, regno, (gdb_byte *) regp);
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
/* Find the TID for the current inferior thread to use with ptrace. */
|
|
|
01917d |
@@ -311,12 +306,10 @@ store_fpregs (const struct regcache *reg
|
|
|
01917d |
process/thread TID and store their values in GDB's register cache. */
|
|
|
01917d |
static void
|
|
|
01917d |
fetch_regset (struct regcache *regcache, int tid,
|
|
|
01917d |
- int regset, int regsize, int *regmap)
|
|
|
01917d |
+ int regset, int regsize, const short *regmap)
|
|
|
01917d |
{
|
|
|
01917d |
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
|
|
01917d |
gdb_byte *buf = alloca (regsize);
|
|
|
01917d |
struct iovec iov;
|
|
|
01917d |
- int i;
|
|
|
01917d |
|
|
|
01917d |
iov.iov_base = buf;
|
|
|
01917d |
iov.iov_len = regsize;
|
|
|
01917d |
@@ -324,8 +317,7 @@ fetch_regset (struct regcache *regcache,
|
|
|
01917d |
if (ptrace (PTRACE_GETREGSET, tid, (long) regset, (long) &iov) < 0)
|
|
|
01917d |
perror_with_name (_("Couldn't get register set"));
|
|
|
01917d |
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- s390_native_supply (regcache, i, buf, regmap);
|
|
|
01917d |
+ s390_native_supply (regcache, regmap, buf);
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
/* Store all registers in the kernel's register set whose number is REGSET,
|
|
|
01917d |
@@ -333,12 +325,10 @@ fetch_regset (struct regcache *regcache,
|
|
|
01917d |
GDB's register cache back to process/thread TID. */
|
|
|
01917d |
static void
|
|
|
01917d |
store_regset (struct regcache *regcache, int tid,
|
|
|
01917d |
- int regset, int regsize, int *regmap)
|
|
|
01917d |
+ int regset, int regsize, const short *regmap)
|
|
|
01917d |
{
|
|
|
01917d |
- struct gdbarch *gdbarch = get_regcache_arch (regcache);
|
|
|
01917d |
gdb_byte *buf = alloca (regsize);
|
|
|
01917d |
struct iovec iov;
|
|
|
01917d |
- int i;
|
|
|
01917d |
|
|
|
01917d |
iov.iov_base = buf;
|
|
|
01917d |
iov.iov_len = regsize;
|
|
|
01917d |
@@ -346,8 +336,7 @@ store_regset (struct regcache *regcache,
|
|
|
01917d |
if (ptrace (PTRACE_GETREGSET, tid, (long) regset, (long) &iov) < 0)
|
|
|
01917d |
perror_with_name (_("Couldn't get register set"));
|
|
|
01917d |
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- s390_native_collect (regcache, i, buf, regmap);
|
|
|
01917d |
+ s390_native_collect (regcache, regmap, -1, buf);
|
|
|
01917d |
|
|
|
01917d |
if (ptrace (PTRACE_SETREGSET, tid, (long) regset, (long) &iov) < 0)
|
|
|
01917d |
perror_with_name (_("Couldn't set register set"));
|
|
|
01917d |
@@ -378,12 +367,10 @@ s390_linux_fetch_inferior_registers (str
|
|
|
01917d |
{
|
|
|
01917d |
int tid = s390_inferior_tid ();
|
|
|
01917d |
|
|
|
01917d |
- if (regnum == -1
|
|
|
01917d |
- || (regnum < S390_NUM_REGS && regmap_gregset[regnum] != -1))
|
|
|
01917d |
+ if (regnum == -1 || S390_IS_GREGSET_REGNUM (regnum))
|
|
|
01917d |
fetch_regs (regcache, tid);
|
|
|
01917d |
|
|
|
01917d |
- if (regnum == -1
|
|
|
01917d |
- || (regnum < S390_NUM_REGS && regmap_fpregset[regnum] != -1))
|
|
|
01917d |
+ if (regnum == -1 || S390_IS_FPREGSET_REGNUM (regnum))
|
|
|
01917d |
fetch_fpregs (regcache, tid);
|
|
|
01917d |
|
|
|
01917d |
if (have_regset_last_break)
|
|
|
01917d |
@@ -406,12 +393,10 @@ s390_linux_store_inferior_registers (str
|
|
|
01917d |
{
|
|
|
01917d |
int tid = s390_inferior_tid ();
|
|
|
01917d |
|
|
|
01917d |
- if (regnum == -1
|
|
|
01917d |
- || (regnum < S390_NUM_REGS && regmap_gregset[regnum] != -1))
|
|
|
01917d |
+ if (regnum == -1 || S390_IS_GREGSET_REGNUM (regnum))
|
|
|
01917d |
store_regs (regcache, tid, regnum);
|
|
|
01917d |
|
|
|
01917d |
- if (regnum == -1
|
|
|
01917d |
- || (regnum < S390_NUM_REGS && regmap_fpregset[regnum] != -1))
|
|
|
01917d |
+ if (regnum == -1 || S390_IS_FPREGSET_REGNUM (regnum))
|
|
|
01917d |
store_fpregs (regcache, tid, regnum);
|
|
|
01917d |
|
|
|
01917d |
/* S390_LAST_BREAK_REGNUM is read-only. */
|
|
|
01917d |
Index: gdb-7.6.1/gdb/s390-tdep.c
|
|
|
01917d |
===================================================================
|
|
|
01917d |
--- gdb-7.6.1.orig/gdb/s390-tdep.c
|
|
|
01917d |
+++ gdb-7.6.1/gdb/s390-tdep.c
|
|
|
01917d |
@@ -141,7 +141,7 @@ s390_write_pc (struct regcache *regcache
|
|
|
01917d |
|
|
|
01917d |
/* DWARF Register Mapping. */
|
|
|
01917d |
|
|
|
01917d |
-static int s390_dwarf_regmap[] =
|
|
|
01917d |
+static const short s390_dwarf_regmap[] =
|
|
|
01917d |
{
|
|
|
01917d |
/* General Purpose Registers. */
|
|
|
01917d |
S390_R0_REGNUM, S390_R1_REGNUM, S390_R2_REGNUM, S390_R3_REGNUM,
|
|
|
01917d |
@@ -212,6 +212,14 @@ s390_adjust_frame_regnum (struct gdbarch
|
|
|
01917d |
|
|
|
01917d |
/* Pseudo registers. */
|
|
|
01917d |
|
|
|
01917d |
+static int
|
|
|
01917d |
+regnum_is_gpr_full (struct gdbarch_tdep *tdep, int regnum)
|
|
|
01917d |
+{
|
|
|
01917d |
+ return (tdep->gpr_full_regnum != -1
|
|
|
01917d |
+ && regnum >= tdep->gpr_full_regnum
|
|
|
01917d |
+ && regnum <= tdep->gpr_full_regnum + 15);
|
|
|
01917d |
+}
|
|
|
01917d |
+
|
|
|
01917d |
static const char *
|
|
|
01917d |
s390_pseudo_register_name (struct gdbarch *gdbarch, int regnum)
|
|
|
01917d |
{
|
|
|
01917d |
@@ -223,9 +231,7 @@ s390_pseudo_register_name (struct gdbarc
|
|
|
01917d |
if (regnum == tdep->cc_regnum)
|
|
|
01917d |
return "cc";
|
|
|
01917d |
|
|
|
01917d |
- if (tdep->gpr_full_regnum != -1
|
|
|
01917d |
- && regnum >= tdep->gpr_full_regnum
|
|
|
01917d |
- && regnum < tdep->gpr_full_regnum + 16)
|
|
|
01917d |
+ if (regnum_is_gpr_full (tdep, regnum))
|
|
|
01917d |
{
|
|
|
01917d |
static const char *full_name[] = {
|
|
|
01917d |
"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
|
|
|
01917d |
@@ -248,9 +254,7 @@ s390_pseudo_register_type (struct gdbarc
|
|
|
01917d |
if (regnum == tdep->cc_regnum)
|
|
|
01917d |
return builtin_type (gdbarch)->builtin_int;
|
|
|
01917d |
|
|
|
01917d |
- if (tdep->gpr_full_regnum != -1
|
|
|
01917d |
- && regnum >= tdep->gpr_full_regnum
|
|
|
01917d |
- && regnum < tdep->gpr_full_regnum + 16)
|
|
|
01917d |
+ if (regnum_is_gpr_full (tdep, regnum))
|
|
|
01917d |
return builtin_type (gdbarch)->builtin_uint64;
|
|
|
01917d |
|
|
|
01917d |
internal_error (__FILE__, __LINE__, _("invalid regnum"));
|
|
|
01917d |
@@ -295,9 +299,7 @@ s390_pseudo_register_read (struct gdbarc
|
|
|
01917d |
return status;
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
- if (tdep->gpr_full_regnum != -1
|
|
|
01917d |
- && regnum >= tdep->gpr_full_regnum
|
|
|
01917d |
- && regnum < tdep->gpr_full_regnum + 16)
|
|
|
01917d |
+ if (regnum_is_gpr_full (tdep, regnum))
|
|
|
01917d |
{
|
|
|
01917d |
enum register_status status;
|
|
|
01917d |
ULONGEST val_upper;
|
|
|
01917d |
@@ -352,9 +354,7 @@ s390_pseudo_register_write (struct gdbar
|
|
|
01917d |
return;
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
- if (tdep->gpr_full_regnum != -1
|
|
|
01917d |
- && regnum >= tdep->gpr_full_regnum
|
|
|
01917d |
- && regnum < tdep->gpr_full_regnum + 16)
|
|
|
01917d |
+ if (regnum_is_gpr_full (tdep, regnum))
|
|
|
01917d |
{
|
|
|
01917d |
regnum -= tdep->gpr_full_regnum;
|
|
|
01917d |
val = extract_unsigned_integer (buf, regsize, byte_order);
|
|
|
01917d |
@@ -409,175 +409,166 @@ s390_pseudo_register_reggroup_p (struct
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
|
|
|
01917d |
-/* Core file register sets. */
|
|
|
01917d |
+/* Maps for register sets. */
|
|
|
01917d |
|
|
|
01917d |
-int s390_regmap_gregset[S390_NUM_REGS] =
|
|
|
01917d |
-{
|
|
|
01917d |
- /* Program Status Word. */
|
|
|
01917d |
- 0x00, 0x04,
|
|
|
01917d |
- /* General Purpose Registers. */
|
|
|
01917d |
- 0x08, 0x0c, 0x10, 0x14,
|
|
|
01917d |
- 0x18, 0x1c, 0x20, 0x24,
|
|
|
01917d |
- 0x28, 0x2c, 0x30, 0x34,
|
|
|
01917d |
- 0x38, 0x3c, 0x40, 0x44,
|
|
|
01917d |
- /* Access Registers. */
|
|
|
01917d |
- 0x48, 0x4c, 0x50, 0x54,
|
|
|
01917d |
- 0x58, 0x5c, 0x60, 0x64,
|
|
|
01917d |
- 0x68, 0x6c, 0x70, 0x74,
|
|
|
01917d |
- 0x78, 0x7c, 0x80, 0x84,
|
|
|
01917d |
- /* Floating Point Control Word. */
|
|
|
01917d |
- -1,
|
|
|
01917d |
- /* Floating Point Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GPR Uppper Halves. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GNU/Linux-specific optional "registers". */
|
|
|
01917d |
- 0x88, -1, -1,
|
|
|
01917d |
-};
|
|
|
01917d |
+const short s390_regmap_gregset[] =
|
|
|
01917d |
+ {
|
|
|
01917d |
+ 0x00, S390_PSWM_REGNUM,
|
|
|
01917d |
+ 0x04, S390_PSWA_REGNUM,
|
|
|
01917d |
+ 0x08, S390_R0_REGNUM,
|
|
|
01917d |
+ 0x0c, S390_R1_REGNUM,
|
|
|
01917d |
+ 0x10, S390_R2_REGNUM,
|
|
|
01917d |
+ 0x14, S390_R3_REGNUM,
|
|
|
01917d |
+ 0x18, S390_R4_REGNUM,
|
|
|
01917d |
+ 0x1c, S390_R5_REGNUM,
|
|
|
01917d |
+ 0x20, S390_R6_REGNUM,
|
|
|
01917d |
+ 0x24, S390_R7_REGNUM,
|
|
|
01917d |
+ 0x28, S390_R8_REGNUM,
|
|
|
01917d |
+ 0x2c, S390_R9_REGNUM,
|
|
|
01917d |
+ 0x30, S390_R10_REGNUM,
|
|
|
01917d |
+ 0x34, S390_R11_REGNUM,
|
|
|
01917d |
+ 0x38, S390_R12_REGNUM,
|
|
|
01917d |
+ 0x3c, S390_R13_REGNUM,
|
|
|
01917d |
+ 0x40, S390_R14_REGNUM,
|
|
|
01917d |
+ 0x44, S390_R15_REGNUM,
|
|
|
01917d |
+ 0x48, S390_A0_REGNUM,
|
|
|
01917d |
+ 0x4c, S390_A1_REGNUM,
|
|
|
01917d |
+ 0x50, S390_A2_REGNUM,
|
|
|
01917d |
+ 0x54, S390_A3_REGNUM,
|
|
|
01917d |
+ 0x58, S390_A4_REGNUM,
|
|
|
01917d |
+ 0x5c, S390_A5_REGNUM,
|
|
|
01917d |
+ 0x60, S390_A6_REGNUM,
|
|
|
01917d |
+ 0x64, S390_A7_REGNUM,
|
|
|
01917d |
+ 0x68, S390_A8_REGNUM,
|
|
|
01917d |
+ 0x6c, S390_A9_REGNUM,
|
|
|
01917d |
+ 0x70, S390_A10_REGNUM,
|
|
|
01917d |
+ 0x74, S390_A11_REGNUM,
|
|
|
01917d |
+ 0x78, S390_A12_REGNUM,
|
|
|
01917d |
+ 0x7c, S390_A13_REGNUM,
|
|
|
01917d |
+ 0x80, S390_A14_REGNUM,
|
|
|
01917d |
+ 0x84, S390_A15_REGNUM,
|
|
|
01917d |
+ 0x88, S390_ORIG_R2_REGNUM,
|
|
|
01917d |
+ -1, -1
|
|
|
01917d |
+ };
|
|
|
01917d |
|
|
|
01917d |
-int s390x_regmap_gregset[S390_NUM_REGS] =
|
|
|
01917d |
-{
|
|
|
01917d |
- /* Program Status Word. */
|
|
|
01917d |
- 0x00, 0x08,
|
|
|
01917d |
- /* General Purpose Registers. */
|
|
|
01917d |
- 0x10, 0x18, 0x20, 0x28,
|
|
|
01917d |
- 0x30, 0x38, 0x40, 0x48,
|
|
|
01917d |
- 0x50, 0x58, 0x60, 0x68,
|
|
|
01917d |
- 0x70, 0x78, 0x80, 0x88,
|
|
|
01917d |
- /* Access Registers. */
|
|
|
01917d |
- 0x90, 0x94, 0x98, 0x9c,
|
|
|
01917d |
- 0xa0, 0xa4, 0xa8, 0xac,
|
|
|
01917d |
- 0xb0, 0xb4, 0xb8, 0xbc,
|
|
|
01917d |
- 0xc0, 0xc4, 0xc8, 0xcc,
|
|
|
01917d |
- /* Floating Point Control Word. */
|
|
|
01917d |
- -1,
|
|
|
01917d |
- /* Floating Point Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GPR Uppper Halves. */
|
|
|
01917d |
- 0x10, 0x18, 0x20, 0x28,
|
|
|
01917d |
- 0x30, 0x38, 0x40, 0x48,
|
|
|
01917d |
- 0x50, 0x58, 0x60, 0x68,
|
|
|
01917d |
- 0x70, 0x78, 0x80, 0x88,
|
|
|
01917d |
- /* GNU/Linux-specific optional "registers". */
|
|
|
01917d |
- 0xd0, -1, -1,
|
|
|
01917d |
-};
|
|
|
01917d |
+const short s390x_regmap_gregset[] =
|
|
|
01917d |
+ {
|
|
|
01917d |
+ 0x00, S390_PSWM_REGNUM,
|
|
|
01917d |
+ 0x08, S390_PSWA_REGNUM,
|
|
|
01917d |
+ 0x10, S390_R0_REGNUM,
|
|
|
01917d |
+ 0x18, S390_R1_REGNUM,
|
|
|
01917d |
+ 0x20, S390_R2_REGNUM,
|
|
|
01917d |
+ 0x28, S390_R3_REGNUM,
|
|
|
01917d |
+ 0x30, S390_R4_REGNUM,
|
|
|
01917d |
+ 0x38, S390_R5_REGNUM,
|
|
|
01917d |
+ 0x40, S390_R6_REGNUM,
|
|
|
01917d |
+ 0x48, S390_R7_REGNUM,
|
|
|
01917d |
+ 0x50, S390_R8_REGNUM,
|
|
|
01917d |
+ 0x58, S390_R9_REGNUM,
|
|
|
01917d |
+ 0x60, S390_R10_REGNUM,
|
|
|
01917d |
+ 0x68, S390_R11_REGNUM,
|
|
|
01917d |
+ 0x70, S390_R12_REGNUM,
|
|
|
01917d |
+ 0x78, S390_R13_REGNUM,
|
|
|
01917d |
+ 0x80, S390_R14_REGNUM,
|
|
|
01917d |
+ 0x88, S390_R15_REGNUM,
|
|
|
01917d |
+ 0x90, S390_A0_REGNUM,
|
|
|
01917d |
+ 0x94, S390_A1_REGNUM,
|
|
|
01917d |
+ 0x98, S390_A2_REGNUM,
|
|
|
01917d |
+ 0x9c, S390_A3_REGNUM,
|
|
|
01917d |
+ 0xa0, S390_A4_REGNUM,
|
|
|
01917d |
+ 0xa4, S390_A5_REGNUM,
|
|
|
01917d |
+ 0xa8, S390_A6_REGNUM,
|
|
|
01917d |
+ 0xac, S390_A7_REGNUM,
|
|
|
01917d |
+ 0xb0, S390_A8_REGNUM,
|
|
|
01917d |
+ 0xb4, S390_A9_REGNUM,
|
|
|
01917d |
+ 0xb8, S390_A10_REGNUM,
|
|
|
01917d |
+ 0xbc, S390_A11_REGNUM,
|
|
|
01917d |
+ 0xc0, S390_A12_REGNUM,
|
|
|
01917d |
+ 0xc4, S390_A13_REGNUM,
|
|
|
01917d |
+ 0xc8, S390_A14_REGNUM,
|
|
|
01917d |
+ 0xcc, S390_A15_REGNUM,
|
|
|
01917d |
+ 0x10, S390_R0_UPPER_REGNUM,
|
|
|
01917d |
+ 0x18, S390_R1_UPPER_REGNUM,
|
|
|
01917d |
+ 0x20, S390_R2_UPPER_REGNUM,
|
|
|
01917d |
+ 0x28, S390_R3_UPPER_REGNUM,
|
|
|
01917d |
+ 0x30, S390_R4_UPPER_REGNUM,
|
|
|
01917d |
+ 0x38, S390_R5_UPPER_REGNUM,
|
|
|
01917d |
+ 0x40, S390_R6_UPPER_REGNUM,
|
|
|
01917d |
+ 0x48, S390_R7_UPPER_REGNUM,
|
|
|
01917d |
+ 0x50, S390_R8_UPPER_REGNUM,
|
|
|
01917d |
+ 0x58, S390_R9_UPPER_REGNUM,
|
|
|
01917d |
+ 0x60, S390_R10_UPPER_REGNUM,
|
|
|
01917d |
+ 0x68, S390_R11_UPPER_REGNUM,
|
|
|
01917d |
+ 0x70, S390_R12_UPPER_REGNUM,
|
|
|
01917d |
+ 0x78, S390_R13_UPPER_REGNUM,
|
|
|
01917d |
+ 0x80, S390_R14_UPPER_REGNUM,
|
|
|
01917d |
+ 0x88, S390_R15_UPPER_REGNUM,
|
|
|
01917d |
+ 0xd0, S390_ORIG_R2_REGNUM,
|
|
|
01917d |
+ -1, -1
|
|
|
01917d |
+ };
|
|
|
01917d |
|
|
|
01917d |
-int s390_regmap_fpregset[S390_NUM_REGS] =
|
|
|
01917d |
-{
|
|
|
01917d |
- /* Program Status Word. */
|
|
|
01917d |
- -1, -1,
|
|
|
01917d |
- /* General Purpose Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Access Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Floating Point Control Word. */
|
|
|
01917d |
- 0x00,
|
|
|
01917d |
- /* Floating Point Registers. */
|
|
|
01917d |
- 0x08, 0x10, 0x18, 0x20,
|
|
|
01917d |
- 0x28, 0x30, 0x38, 0x40,
|
|
|
01917d |
- 0x48, 0x50, 0x58, 0x60,
|
|
|
01917d |
- 0x68, 0x70, 0x78, 0x80,
|
|
|
01917d |
- /* GPR Uppper Halves. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GNU/Linux-specific optional "registers". */
|
|
|
01917d |
- -1, -1, -1,
|
|
|
01917d |
-};
|
|
|
01917d |
+const short s390_regmap_fpregset[] =
|
|
|
01917d |
+ {
|
|
|
01917d |
+ 0x00, S390_FPC_REGNUM,
|
|
|
01917d |
+ 0x08, S390_F0_REGNUM,
|
|
|
01917d |
+ 0x10, S390_F1_REGNUM,
|
|
|
01917d |
+ 0x18, S390_F2_REGNUM,
|
|
|
01917d |
+ 0x20, S390_F3_REGNUM,
|
|
|
01917d |
+ 0x28, S390_F4_REGNUM,
|
|
|
01917d |
+ 0x30, S390_F5_REGNUM,
|
|
|
01917d |
+ 0x38, S390_F6_REGNUM,
|
|
|
01917d |
+ 0x40, S390_F7_REGNUM,
|
|
|
01917d |
+ 0x48, S390_F8_REGNUM,
|
|
|
01917d |
+ 0x50, S390_F9_REGNUM,
|
|
|
01917d |
+ 0x58, S390_F10_REGNUM,
|
|
|
01917d |
+ 0x60, S390_F11_REGNUM,
|
|
|
01917d |
+ 0x68, S390_F12_REGNUM,
|
|
|
01917d |
+ 0x70, S390_F13_REGNUM,
|
|
|
01917d |
+ 0x78, S390_F14_REGNUM,
|
|
|
01917d |
+ 0x80, S390_F15_REGNUM,
|
|
|
01917d |
+ -1, -1
|
|
|
01917d |
+ };
|
|
|
01917d |
|
|
|
01917d |
-int s390_regmap_upper[S390_NUM_REGS] =
|
|
|
01917d |
-{
|
|
|
01917d |
- /* Program Status Word. */
|
|
|
01917d |
- -1, -1,
|
|
|
01917d |
- /* General Purpose Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Access Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Floating Point Control Word. */
|
|
|
01917d |
- -1,
|
|
|
01917d |
- /* Floating Point Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GPR Uppper Halves. */
|
|
|
01917d |
- 0x00, 0x04, 0x08, 0x0c,
|
|
|
01917d |
- 0x10, 0x14, 0x18, 0x1c,
|
|
|
01917d |
- 0x20, 0x24, 0x28, 0x2c,
|
|
|
01917d |
- 0x30, 0x34, 0x38, 0x3c,
|
|
|
01917d |
- /* GNU/Linux-specific optional "registers". */
|
|
|
01917d |
- -1, -1, -1,
|
|
|
01917d |
-};
|
|
|
01917d |
+const short s390_regmap_upper[] =
|
|
|
01917d |
+ {
|
|
|
01917d |
+ 0x00, S390_R0_UPPER_REGNUM,
|
|
|
01917d |
+ 0x04, S390_R1_UPPER_REGNUM,
|
|
|
01917d |
+ 0x08, S390_R2_UPPER_REGNUM,
|
|
|
01917d |
+ 0x0c, S390_R3_UPPER_REGNUM,
|
|
|
01917d |
+ 0x10, S390_R4_UPPER_REGNUM,
|
|
|
01917d |
+ 0x14, S390_R5_UPPER_REGNUM,
|
|
|
01917d |
+ 0x18, S390_R6_UPPER_REGNUM,
|
|
|
01917d |
+ 0x1c, S390_R7_UPPER_REGNUM,
|
|
|
01917d |
+ 0x20, S390_R8_UPPER_REGNUM,
|
|
|
01917d |
+ 0x24, S390_R9_UPPER_REGNUM,
|
|
|
01917d |
+ 0x28, S390_R10_UPPER_REGNUM,
|
|
|
01917d |
+ 0x2c, S390_R11_UPPER_REGNUM,
|
|
|
01917d |
+ 0x30, S390_R12_UPPER_REGNUM,
|
|
|
01917d |
+ 0x34, S390_R13_UPPER_REGNUM,
|
|
|
01917d |
+ 0x38, S390_R14_UPPER_REGNUM,
|
|
|
01917d |
+ 0x3c, S390_R15_UPPER_REGNUM,
|
|
|
01917d |
+ -1, -1
|
|
|
01917d |
+ };
|
|
|
01917d |
|
|
|
01917d |
-int s390_regmap_last_break[S390_NUM_REGS] =
|
|
|
01917d |
-{
|
|
|
01917d |
- /* Program Status Word. */
|
|
|
01917d |
- -1, -1,
|
|
|
01917d |
- /* General Purpose Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Access Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Floating Point Control Word. */
|
|
|
01917d |
- -1,
|
|
|
01917d |
- /* Floating Point Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GPR Uppper Halves. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GNU/Linux-specific optional "registers". */
|
|
|
01917d |
- -1, 4, -1,
|
|
|
01917d |
-};
|
|
|
01917d |
+const short s390_regmap_last_break[] =
|
|
|
01917d |
+ {
|
|
|
01917d |
+ 0x04, S390_LAST_BREAK_REGNUM,
|
|
|
01917d |
+ -1, -1
|
|
|
01917d |
+ };
|
|
|
01917d |
+
|
|
|
01917d |
+const short s390x_regmap_last_break[] =
|
|
|
01917d |
+ {
|
|
|
01917d |
+ 0x00, S390_LAST_BREAK_REGNUM,
|
|
|
01917d |
+ -1, -1
|
|
|
01917d |
+ };
|
|
|
01917d |
+
|
|
|
01917d |
+const short s390_regmap_system_call[] =
|
|
|
01917d |
+ {
|
|
|
01917d |
+ 0x00, S390_SYSTEM_CALL_REGNUM,
|
|
|
01917d |
+ -1, -1
|
|
|
01917d |
+ };
|
|
|
01917d |
|
|
|
01917d |
-int s390x_regmap_last_break[S390_NUM_REGS] =
|
|
|
01917d |
-{
|
|
|
01917d |
- /* Program Status Word. */
|
|
|
01917d |
- -1, -1,
|
|
|
01917d |
- /* General Purpose Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Access Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Floating Point Control Word. */
|
|
|
01917d |
- -1,
|
|
|
01917d |
- /* Floating Point Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GPR Uppper Halves. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GNU/Linux-specific optional "registers". */
|
|
|
01917d |
- -1, 0, -1,
|
|
|
01917d |
-};
|
|
|
01917d |
|
|
|
01917d |
-int s390_regmap_system_call[S390_NUM_REGS] =
|
|
|
01917d |
-{
|
|
|
01917d |
- /* Program Status Word. */
|
|
|
01917d |
- -1, -1,
|
|
|
01917d |
- /* General Purpose Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Access Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* Floating Point Control Word. */
|
|
|
01917d |
- -1,
|
|
|
01917d |
- /* Floating Point Registers. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GPR Uppper Halves. */
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- -1, -1, -1, -1, -1, -1, -1, -1,
|
|
|
01917d |
- /* GNU/Linux-specific optional "registers". */
|
|
|
01917d |
- -1, -1, 0,
|
|
|
01917d |
-};
|
|
|
01917d |
|
|
|
01917d |
/* Supply register REGNUM from the register set REGSET to register cache
|
|
|
01917d |
REGCACHE. If REGNUM is -1, do this for all registers in REGSET. */
|
|
|
01917d |
@@ -585,14 +576,10 @@ static void
|
|
|
01917d |
s390_supply_regset (const struct regset *regset, struct regcache *regcache,
|
|
|
01917d |
int regnum, const void *regs, size_t len)
|
|
|
01917d |
{
|
|
|
01917d |
- const int *offset = regset->descr;
|
|
|
01917d |
- int i;
|
|
|
01917d |
-
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- {
|
|
|
01917d |
- if ((regnum == i || regnum == -1) && offset[i] != -1)
|
|
|
01917d |
- regcache_raw_supply (regcache, i, (const char *)regs + offset[i]);
|
|
|
01917d |
- }
|
|
|
01917d |
+ const short *map;
|
|
|
01917d |
+ for (map = regset->descr; map[0] >= 0; map += 2)
|
|
|
01917d |
+ if (regnum == -1 || regnum == map[1])
|
|
|
01917d |
+ regcache_raw_supply (regcache, map[1], (const char *)regs + map[0]);
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
/* Collect register REGNUM from the register cache REGCACHE and store
|
|
|
01917d |
@@ -604,14 +591,10 @@ s390_collect_regset (const struct regset
|
|
|
01917d |
const struct regcache *regcache,
|
|
|
01917d |
int regnum, void *regs, size_t len)
|
|
|
01917d |
{
|
|
|
01917d |
- const int *offset = regset->descr;
|
|
|
01917d |
- int i;
|
|
|
01917d |
-
|
|
|
01917d |
- for (i = 0; i < S390_NUM_REGS; i++)
|
|
|
01917d |
- {
|
|
|
01917d |
- if ((regnum == i || regnum == -1) && offset[i] != -1)
|
|
|
01917d |
- regcache_raw_collect (regcache, i, (char *)regs + offset[i]);
|
|
|
01917d |
- }
|
|
|
01917d |
+ const short *map;
|
|
|
01917d |
+ for (map = regset->descr; map[0] >= 0; map += 2)
|
|
|
01917d |
+ if (regnum == -1 || regnum == map[1])
|
|
|
01917d |
+ regcache_raw_collect (regcache, map[1], (char *)regs + map[0]);
|
|
|
01917d |
}
|
|
|
01917d |
|
|
|
01917d |
static const struct regset s390_gregset = {
|
|
|
01917d |
@@ -1718,9 +1701,7 @@ s390_unwind_pseudo_register (struct fram
|
|
|
01917d |
|
|
|
01917d |
/* Unwind full GPRs to show at least the lower halves (as the
|
|
|
01917d |
upper halves are undefined). */
|
|
|
01917d |
- if (tdep->gpr_full_regnum != -1
|
|
|
01917d |
- && regnum >= tdep->gpr_full_regnum
|
|
|
01917d |
- && regnum < tdep->gpr_full_regnum + 16)
|
|
|
01917d |
+ if (regnum_is_gpr_full (tdep, regnum))
|
|
|
01917d |
{
|
|
|
01917d |
int reg = regnum - tdep->gpr_full_regnum;
|
|
|
01917d |
struct value *val;
|
|
|
01917d |
Index: gdb-7.6.1/gdb/s390-tdep.h
|
|
|
01917d |
===================================================================
|
|
|
01917d |
--- gdb-7.6.1.orig/gdb/s390-tdep.h
|
|
|
01917d |
+++ gdb-7.6.1/gdb/s390-tdep.h
|
|
|
01917d |
@@ -106,16 +106,24 @@
|
|
|
01917d |
#define S390_RETADDR_REGNUM S390_R14_REGNUM
|
|
|
01917d |
#define S390_FRAME_REGNUM S390_R11_REGNUM
|
|
|
01917d |
|
|
|
01917d |
+#define S390_IS_GREGSET_REGNUM(i) \
|
|
|
01917d |
+ (((i) >= S390_PSWM_REGNUM && (i) <= S390_A15_REGNUM) \
|
|
|
01917d |
+ || ((i) >= S390_R0_UPPER_REGNUM && (i) <= S390_R15_UPPER_REGNUM) \
|
|
|
01917d |
+ || (i) == S390_ORIG_R2_REGNUM)
|
|
|
01917d |
+
|
|
|
01917d |
+#define S390_IS_FPREGSET_REGNUM(i) \
|
|
|
01917d |
+ ((i) >= S390_FPC_REGNUM && (i) <= S390_F15_REGNUM)
|
|
|
01917d |
+
|
|
|
01917d |
/* Core file register sets, defined in s390-tdep.c. */
|
|
|
01917d |
#define s390_sizeof_gregset 0x90
|
|
|
01917d |
-extern int s390_regmap_gregset[S390_NUM_REGS];
|
|
|
01917d |
+extern const short s390_regmap_gregset[];
|
|
|
01917d |
#define s390x_sizeof_gregset 0xd8
|
|
|
01917d |
-extern int s390x_regmap_gregset[S390_NUM_REGS];
|
|
|
01917d |
+extern const short s390x_regmap_gregset[];
|
|
|
01917d |
#define s390_sizeof_fpregset 0x88
|
|
|
01917d |
-extern int s390_regmap_fpregset[S390_NUM_REGS];
|
|
|
01917d |
-extern int s390_regmap_last_break[S390_NUM_REGS];
|
|
|
01917d |
-extern int s390x_regmap_last_break[S390_NUM_REGS];
|
|
|
01917d |
-extern int s390_regmap_system_call[S390_NUM_REGS];
|
|
|
01917d |
+extern const short s390_regmap_fpregset[];
|
|
|
01917d |
+extern const short s390_regmap_last_break[];
|
|
|
01917d |
+extern const short s390x_regmap_last_break[];
|
|
|
01917d |
+extern const short s390_regmap_system_call[];
|
|
|
01917d |
|
|
|
01917d |
/* GNU/Linux target descriptions. */
|
|
|
01917d |
extern struct target_desc *tdesc_s390_linux32;
|