mirror of
https://gitlab.com/qemu-project/qemu
synced 2024-09-06 18:05:37 +00:00
![Eric Farman](/assets/img/avatar_default.png)
gdb allows registers to be displayed/modified, and is being updated to account for the new vector registers. Mirror these changes in the gdb stub in qemu so that this can be performed when gdb is attached to the qemu gdbserver. Signed-off-by: Eric Farman <farman@linux.vnet.ibm.com> Reviewed-by: David Hildenbrand <dahi@linux.vnet.ibm.com> Signed-off-by: Cornelia Huck <cornelia.huck@de.ibm.com>
190 lines
5.3 KiB
C
190 lines
5.3 KiB
C
/*
|
|
* s390x gdb server stub
|
|
*
|
|
* Copyright (c) 2003-2005 Fabrice Bellard
|
|
* Copyright (c) 2013 SUSE LINUX Products GmbH
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
#include "config.h"
|
|
#include "qemu-common.h"
|
|
#include "exec/gdbstub.h"
|
|
#include "qemu/bitops.h"
|
|
|
|
int s390_cpu_gdb_read_register(CPUState *cs, uint8_t *mem_buf, int n)
|
|
{
|
|
S390CPU *cpu = S390_CPU(cs);
|
|
CPUS390XState *env = &cpu->env;
|
|
uint64_t val;
|
|
int cc_op;
|
|
|
|
switch (n) {
|
|
case S390_PSWM_REGNUM:
|
|
if (tcg_enabled()) {
|
|
cc_op = calc_cc(env, env->cc_op, env->cc_src, env->cc_dst,
|
|
env->cc_vr);
|
|
val = deposit64(env->psw.mask, 44, 2, cc_op);
|
|
return gdb_get_regl(mem_buf, val);
|
|
}
|
|
return gdb_get_regl(mem_buf, env->psw.mask);
|
|
case S390_PSWA_REGNUM:
|
|
return gdb_get_regl(mem_buf, env->psw.addr);
|
|
case S390_R0_REGNUM ... S390_R15_REGNUM:
|
|
return gdb_get_regl(mem_buf, env->regs[n - S390_R0_REGNUM]);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int s390_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n)
|
|
{
|
|
S390CPU *cpu = S390_CPU(cs);
|
|
CPUS390XState *env = &cpu->env;
|
|
target_ulong tmpl = ldtul_p(mem_buf);
|
|
|
|
switch (n) {
|
|
case S390_PSWM_REGNUM:
|
|
env->psw.mask = tmpl;
|
|
if (tcg_enabled()) {
|
|
env->cc_op = extract64(tmpl, 44, 2);
|
|
}
|
|
break;
|
|
case S390_PSWA_REGNUM:
|
|
env->psw.addr = tmpl;
|
|
break;
|
|
case S390_R0_REGNUM ... S390_R15_REGNUM:
|
|
env->regs[n - S390_R0_REGNUM] = tmpl;
|
|
break;
|
|
default:
|
|
return 0;
|
|
}
|
|
return 8;
|
|
}
|
|
|
|
/* the values represent the positions in s390-acr.xml */
|
|
#define S390_A0_REGNUM 0
|
|
#define S390_A15_REGNUM 15
|
|
/* total number of registers in s390-acr.xml */
|
|
#define S390_NUM_AC_REGS 16
|
|
|
|
static int cpu_read_ac_reg(CPUS390XState *env, uint8_t *mem_buf, int n)
|
|
{
|
|
switch (n) {
|
|
case S390_A0_REGNUM ... S390_A15_REGNUM:
|
|
return gdb_get_reg32(mem_buf, env->aregs[n]);
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
static int cpu_write_ac_reg(CPUS390XState *env, uint8_t *mem_buf, int n)
|
|
{
|
|
switch (n) {
|
|
case S390_A0_REGNUM ... S390_A15_REGNUM:
|
|
env->aregs[n] = ldl_p(mem_buf);
|
|
return 4;
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/* the values represent the positions in s390-fpr.xml */
|
|
#define S390_FPC_REGNUM 0
|
|
#define S390_F0_REGNUM 1
|
|
#define S390_F15_REGNUM 16
|
|
/* total number of registers in s390-fpr.xml */
|
|
#define S390_NUM_FP_REGS 17
|
|
|
|
static int cpu_read_fp_reg(CPUS390XState *env, uint8_t *mem_buf, int n)
|
|
{
|
|
switch (n) {
|
|
case S390_FPC_REGNUM:
|
|
return gdb_get_reg32(mem_buf, env->fpc);
|
|
case S390_F0_REGNUM ... S390_F15_REGNUM:
|
|
return gdb_get_reg64(mem_buf, get_freg(env, n - S390_F0_REGNUM)->ll);
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
static int cpu_write_fp_reg(CPUS390XState *env, uint8_t *mem_buf, int n)
|
|
{
|
|
switch (n) {
|
|
case S390_FPC_REGNUM:
|
|
env->fpc = ldl_p(mem_buf);
|
|
return 4;
|
|
case S390_F0_REGNUM ... S390_F15_REGNUM:
|
|
get_freg(env, n - S390_F0_REGNUM)->ll = ldtul_p(mem_buf);
|
|
return 8;
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/* the values represent the positions in s390-vx.xml */
|
|
#define S390_V0L_REGNUM 0
|
|
#define S390_V15L_REGNUM 15
|
|
#define S390_V16_REGNUM 16
|
|
#define S390_V31_REGNUM 31
|
|
/* total number of registers in s390-vx.xml */
|
|
#define S390_NUM_VREGS 32
|
|
|
|
static int cpu_read_vreg(CPUS390XState *env, uint8_t *mem_buf, int n)
|
|
{
|
|
int ret;
|
|
|
|
switch (n) {
|
|
case S390_V0L_REGNUM ... S390_V15L_REGNUM:
|
|
ret = gdb_get_reg64(mem_buf, env->vregs[n][1].ll);
|
|
break;
|
|
case S390_V16_REGNUM ... S390_V31_REGNUM:
|
|
ret = gdb_get_reg64(mem_buf, env->vregs[n][0].ll);
|
|
ret += gdb_get_reg64(mem_buf + 8, env->vregs[n][1].ll);
|
|
break;
|
|
default:
|
|
ret = 0;
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
static int cpu_write_vreg(CPUS390XState *env, uint8_t *mem_buf, int n)
|
|
{
|
|
switch (n) {
|
|
case S390_V0L_REGNUM ... S390_V15L_REGNUM:
|
|
env->vregs[n][1].ll = ldtul_p(mem_buf + 8);
|
|
return 8;
|
|
case S390_V16_REGNUM ... S390_V31_REGNUM:
|
|
env->vregs[n][0].ll = ldtul_p(mem_buf);
|
|
env->vregs[n][1].ll = ldtul_p(mem_buf + 8);
|
|
return 16;
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
void s390_cpu_gdb_init(CPUState *cs)
|
|
{
|
|
gdb_register_coprocessor(cs, cpu_read_ac_reg,
|
|
cpu_write_ac_reg,
|
|
S390_NUM_AC_REGS, "s390-acr.xml", 0);
|
|
|
|
gdb_register_coprocessor(cs, cpu_read_fp_reg,
|
|
cpu_write_fp_reg,
|
|
S390_NUM_FP_REGS, "s390-fpr.xml", 0);
|
|
|
|
gdb_register_coprocessor(cs, cpu_read_vreg,
|
|
cpu_write_vreg,
|
|
S390_NUM_VREGS, "s390-vx.xml", 0);
|
|
}
|