diff options
author | Thomas Huth <thuth@redhat.com> | 2016-10-11 08:56:52 +0200 |
---|---|---|
committer | Thomas Huth <thuth@redhat.com> | 2016-12-20 21:52:12 +0100 |
commit | fcf5ef2ab52c621a4617ebbef36bf43b4003f4c0 (patch) | |
tree | 2b450d96b01455df8ed908bf8f26ddc388a03380 /target-s390x/gdbstub.c | |
parent | 82ecffa8c050bf5bbc13329e9b65eac1caa5b55c (diff) |
Move target-* CPU file into a target/ folder
We've currently got 18 architectures in QEMU, and thus 18 target-xxx
folders in the root folder of the QEMU source tree. More architectures
(e.g. RISC-V, AVR) are likely to be included soon, too, so the main
folder of the QEMU sources slowly gets quite overcrowded with the
target-xxx folders.
To disburden the main folder a little bit, let's move the target-xxx
folders into a dedicated target/ folder, so that target-xxx/ simply
becomes target/xxx/ instead.
Acked-by: Laurent Vivier <laurent@vivier.eu> [m68k part]
Acked-by: Bastian Koppelmann <kbastian@mail.uni-paderborn.de> [tricore part]
Acked-by: Michael Walle <michael@walle.cc> [lm32 part]
Acked-by: Cornelia Huck <cornelia.huck@de.ibm.com> [s390x part]
Reviewed-by: Christian Borntraeger <borntraeger@de.ibm.com> [s390x part]
Acked-by: Eduardo Habkost <ehabkost@redhat.com> [i386 part]
Acked-by: Artyom Tarasenko <atar4qemu@gmail.com> [sparc part]
Acked-by: Richard Henderson <rth@twiddle.net> [alpha part]
Acked-by: Max Filippov <jcmvbkbc@gmail.com> [xtensa part]
Reviewed-by: David Gibson <david@gibson.dropbear.id.au> [ppc part]
Acked-by: Edgar E. Iglesias <edgar.iglesias@xilinx.com> [crisµblaze part]
Acked-by: Guan Xuetao <gxt@mprc.pku.edu.cn> [unicore32 part]
Signed-off-by: Thomas Huth <thuth@redhat.com>
Diffstat (limited to 'target-s390x/gdbstub.c')
-rw-r--r-- | target-s390x/gdbstub.c | 313 |
1 files changed, 0 insertions, 313 deletions
diff --git a/target-s390x/gdbstub.c b/target-s390x/gdbstub.c deleted file mode 100644 index 3d223dec97..0000000000 --- a/target-s390x/gdbstub.c +++ /dev/null @@ -1,313 +0,0 @@ -/* - * 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 "qemu/osdep.h" -#include "qemu-common.h" -#include "cpu.h" -#include "exec/exec-all.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); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - 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; - } -} - -/* the values represent the positions in s390-cr.xml */ -#define S390_C0_REGNUM 0 -#define S390_C15_REGNUM 15 -/* total number of registers in s390-cr.xml */ -#define S390_NUM_C_REGS 16 - -#ifndef CONFIG_USER_ONLY -static int cpu_read_c_reg(CPUS390XState *env, uint8_t *mem_buf, int n) -{ - switch (n) { - case S390_C0_REGNUM ... S390_C15_REGNUM: - return gdb_get_regl(mem_buf, env->cregs[n]); - default: - return 0; - } -} - -static int cpu_write_c_reg(CPUS390XState *env, uint8_t *mem_buf, int n) -{ - switch (n) { - case S390_C0_REGNUM ... S390_C15_REGNUM: - env->cregs[n] = ldtul_p(mem_buf); - if (tcg_enabled()) { - tlb_flush(ENV_GET_CPU(env), 1); - } - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - default: - return 0; - } -} - -/* the values represent the positions in s390-virt.xml */ -#define S390_VIRT_CKC_REGNUM 0 -#define S390_VIRT_CPUTM_REGNUM 1 -#define S390_VIRT_BEA_REGNUM 2 -#define S390_VIRT_PREFIX_REGNUM 3 -#define S390_VIRT_PP_REGNUM 4 -#define S390_VIRT_PFT_REGNUM 5 -#define S390_VIRT_PFS_REGNUM 6 -#define S390_VIRT_PFC_REGNUM 7 -/* total number of registers in s390-virt.xml */ -#define S390_NUM_VIRT_REGS 8 - -static int cpu_read_virt_reg(CPUS390XState *env, uint8_t *mem_buf, int n) -{ - switch (n) { - case S390_VIRT_CKC_REGNUM: - return gdb_get_regl(mem_buf, env->ckc); - case S390_VIRT_CPUTM_REGNUM: - return gdb_get_regl(mem_buf, env->cputm); - case S390_VIRT_BEA_REGNUM: - return gdb_get_regl(mem_buf, env->gbea); - case S390_VIRT_PREFIX_REGNUM: - return gdb_get_regl(mem_buf, env->psa); - case S390_VIRT_PP_REGNUM: - return gdb_get_regl(mem_buf, env->pp); - case S390_VIRT_PFT_REGNUM: - return gdb_get_regl(mem_buf, env->pfault_token); - case S390_VIRT_PFS_REGNUM: - return gdb_get_regl(mem_buf, env->pfault_select); - case S390_VIRT_PFC_REGNUM: - return gdb_get_regl(mem_buf, env->pfault_compare); - default: - return 0; - } -} - -static int cpu_write_virt_reg(CPUS390XState *env, uint8_t *mem_buf, int n) -{ - switch (n) { - case S390_VIRT_CKC_REGNUM: - env->ckc = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - case S390_VIRT_CPUTM_REGNUM: - env->cputm = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - case S390_VIRT_BEA_REGNUM: - env->gbea = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - case S390_VIRT_PREFIX_REGNUM: - env->psa = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - case S390_VIRT_PP_REGNUM: - env->pp = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - case S390_VIRT_PFT_REGNUM: - env->pfault_token = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - case S390_VIRT_PFS_REGNUM: - env->pfault_select = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - case S390_VIRT_PFC_REGNUM: - env->pfault_compare = ldtul_p(mem_buf); - cpu_synchronize_post_init(ENV_GET_CPU(env)); - return 8; - default: - return 0; - } -} -#endif - -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); - -#ifndef CONFIG_USER_ONLY - gdb_register_coprocessor(cs, cpu_read_c_reg, - cpu_write_c_reg, - S390_NUM_C_REGS, "s390-cr.xml", 0); - - if (kvm_enabled()) { - gdb_register_coprocessor(cs, cpu_read_virt_reg, - cpu_write_virt_reg, - S390_NUM_VIRT_REGS, "s390-virt.xml", 0); - } -#endif -} |