From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N0ggH-0000Qb-5w for qemu-devel@nongnu.org; Wed, 21 Oct 2009 15:17:09 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N0ggC-0000Iy-9F for qemu-devel@nongnu.org; Wed, 21 Oct 2009 15:17:08 -0400 Received: from [199.232.76.173] (port=46899 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N0ggB-0000IR-PG for qemu-devel@nongnu.org; Wed, 21 Oct 2009 15:17:03 -0400 Received: from cantor2.suse.de ([195.135.220.15]:34011 helo=mx2.suse.de) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1N0ggA-0007VP-VD for qemu-devel@nongnu.org; Wed, 21 Oct 2009 15:17:03 -0400 From: Alexander Graf Date: Wed, 21 Oct 2009 21:16:58 +0200 Message-Id: <1256152621-18863-7-git-send-email-agraf@suse.de> In-Reply-To: <1256152621-18863-6-git-send-email-agraf@suse.de> References: <1256152621-18863-1-git-send-email-agraf@suse.de> <1256152621-18863-2-git-send-email-agraf@suse.de> <1256152621-18863-3-git-send-email-agraf@suse.de> <1256152621-18863-4-git-send-email-agraf@suse.de> <1256152621-18863-5-git-send-email-agraf@suse.de> <1256152621-18863-6-git-send-email-agraf@suse.de> Subject: [Qemu-devel] [PATCH 6/9] S390 GDB stub List-Id: qemu-devel.nongnu.org List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , To: qemu-devel Cc: Carsten Otte In order to debug funny kernel breakages it's always good to have a working gdb stub around. While Uli's patches don't include one one, I needed one that's at least good enough for 'bt' and some variable examinations during early bootup. So here it is - the absolute basics to get the qemu gdb stub running with s390x targets. Sgined-off-by: Alexander Graf --- gdbstub.c | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 52 insertions(+), 0 deletions(-) diff --git a/gdbstub.c b/gdbstub.c index 315f606..49f6fe3 100644 --- a/gdbstub.c +++ b/gdbstub.c @@ -1348,6 +1348,55 @@ static int cpu_gdb_write_register(CPUState *env, uint8_t *mem_buf, int n) return 8; } +#elif defined (TARGET_S390X) + +#define NUM_CORE_REGS S390_NUM_TOTAL_REGS + +static int cpu_gdb_read_register(CPUState *env, uint8_t *mem_buf, int n) +{ + switch (n) { + case S390_PSWM_REGNUM: GET_REGL(env->psw.mask); break; + case S390_PSWA_REGNUM: GET_REGL(env->psw.addr); break; + case S390_R0_REGNUM ... S390_R15_REGNUM: + GET_REGL(env->regs[n-S390_R0_REGNUM]); break; + case S390_A0_REGNUM ... S390_A15_REGNUM: + GET_REG32(env->aregs[n-S390_A0_REGNUM]); break; + case S390_FPC_REGNUM: GET_REG32(env->fpc); break; + case S390_F0_REGNUM ... S390_F15_REGNUM: + /* XXX */ + break; + case S390_PC_REGNUM: GET_REGL(env->psw.addr); break; + case S390_CC_REGNUM: GET_REG32(env->cc); break; + } + + return 0; +} + +static int cpu_gdb_write_register(CPUState *env, uint8_t *mem_buf, int n) +{ + target_ulong tmpl; + uint32_t tmp32; + int r = 8; + tmpl = ldtul_p(mem_buf); + tmp32 = ldl_p(mem_buf); + + switch (n) { + case S390_PSWM_REGNUM: env->psw.mask = tmpl; 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; + case S390_A0_REGNUM ... S390_A15_REGNUM: + env->aregs[n-S390_A0_REGNUM] = tmp32; r=4; break; + case S390_FPC_REGNUM: env->fpc = tmp32; r=4; break; + case S390_F0_REGNUM ... S390_F15_REGNUM: + /* XXX */ + break; + case S390_PC_REGNUM: env->psw.addr = tmpl; break; + case S390_CC_REGNUM: env->cc = tmp32; r=4; break; + } + + return r; +} #else #define NUM_CORE_REGS 0 @@ -1616,6 +1665,9 @@ static void gdb_set_cpu_pc(GDBState *s, target_ulong pc) s->c_cpu->pc = pc; #elif defined (TARGET_ALPHA) s->c_cpu->pc = pc; +#elif defined (TARGET_S390X) + cpu_synchronize_state(s->c_cpu); + s->c_cpu->psw.addr = pc; #endif } -- 1.6.0.2