1 /* 2 * s390x gdb server stub 3 * 4 * Copyright (c) 2003-2005 Fabrice Bellard 5 * Copyright (c) 2013 SUSE LINUX Products GmbH 6 * 7 * This library is free software; you can redistribute it and/or 8 * modify it under the terms of the GNU Lesser General Public 9 * License as published by the Free Software Foundation; either 10 * version 2.1 of the License, or (at your option) any later version. 11 * 12 * This library is distributed in the hope that it will be useful, 13 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 * Lesser General Public License for more details. 16 * 17 * You should have received a copy of the GNU Lesser General Public 18 * License along with this library; if not, see <http://www.gnu.org/licenses/>. 19 */ 20 #include "qemu/osdep.h" 21 #include "qemu-common.h" 22 #include "cpu.h" 23 #include "internal.h" 24 #include "exec/exec-all.h" 25 #include "exec/gdbstub.h" 26 #include "qemu/bitops.h" 27 #include "sysemu/hw_accel.h" 28 29 int s390_cpu_gdb_read_register(CPUState *cs, uint8_t *mem_buf, int n) 30 { 31 S390CPU *cpu = S390_CPU(cs); 32 CPUS390XState *env = &cpu->env; 33 uint64_t val; 34 int cc_op; 35 36 switch (n) { 37 case S390_PSWM_REGNUM: 38 if (tcg_enabled()) { 39 cc_op = calc_cc(env, env->cc_op, env->cc_src, env->cc_dst, 40 env->cc_vr); 41 val = deposit64(env->psw.mask, 44, 2, cc_op); 42 return gdb_get_regl(mem_buf, val); 43 } 44 return gdb_get_regl(mem_buf, env->psw.mask); 45 case S390_PSWA_REGNUM: 46 return gdb_get_regl(mem_buf, env->psw.addr); 47 case S390_R0_REGNUM ... S390_R15_REGNUM: 48 return gdb_get_regl(mem_buf, env->regs[n - S390_R0_REGNUM]); 49 } 50 return 0; 51 } 52 53 int s390_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n) 54 { 55 S390CPU *cpu = S390_CPU(cs); 56 CPUS390XState *env = &cpu->env; 57 target_ulong tmpl = ldtul_p(mem_buf); 58 59 switch (n) { 60 case S390_PSWM_REGNUM: 61 env->psw.mask = tmpl; 62 if (tcg_enabled()) { 63 env->cc_op = extract64(tmpl, 44, 2); 64 } 65 break; 66 case S390_PSWA_REGNUM: 67 env->psw.addr = tmpl; 68 break; 69 case S390_R0_REGNUM ... S390_R15_REGNUM: 70 env->regs[n - S390_R0_REGNUM] = tmpl; 71 break; 72 default: 73 return 0; 74 } 75 return 8; 76 } 77 78 /* the values represent the positions in s390-acr.xml */ 79 #define S390_A0_REGNUM 0 80 #define S390_A15_REGNUM 15 81 /* total number of registers in s390-acr.xml */ 82 #define S390_NUM_AC_REGS 16 83 84 static int cpu_read_ac_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 85 { 86 switch (n) { 87 case S390_A0_REGNUM ... S390_A15_REGNUM: 88 return gdb_get_reg32(mem_buf, env->aregs[n]); 89 default: 90 return 0; 91 } 92 } 93 94 static int cpu_write_ac_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 95 { 96 switch (n) { 97 case S390_A0_REGNUM ... S390_A15_REGNUM: 98 env->aregs[n] = ldl_p(mem_buf); 99 cpu_synchronize_post_init(ENV_GET_CPU(env)); 100 return 4; 101 default: 102 return 0; 103 } 104 } 105 106 /* the values represent the positions in s390-fpr.xml */ 107 #define S390_FPC_REGNUM 0 108 #define S390_F0_REGNUM 1 109 #define S390_F15_REGNUM 16 110 /* total number of registers in s390-fpr.xml */ 111 #define S390_NUM_FP_REGS 17 112 113 static int cpu_read_fp_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 114 { 115 switch (n) { 116 case S390_FPC_REGNUM: 117 return gdb_get_reg32(mem_buf, env->fpc); 118 case S390_F0_REGNUM ... S390_F15_REGNUM: 119 return gdb_get_reg64(mem_buf, get_freg(env, n - S390_F0_REGNUM)->ll); 120 default: 121 return 0; 122 } 123 } 124 125 static int cpu_write_fp_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 126 { 127 switch (n) { 128 case S390_FPC_REGNUM: 129 env->fpc = ldl_p(mem_buf); 130 return 4; 131 case S390_F0_REGNUM ... S390_F15_REGNUM: 132 get_freg(env, n - S390_F0_REGNUM)->ll = ldtul_p(mem_buf); 133 return 8; 134 default: 135 return 0; 136 } 137 } 138 139 /* the values represent the positions in s390-vx.xml */ 140 #define S390_V0L_REGNUM 0 141 #define S390_V15L_REGNUM 15 142 #define S390_V16_REGNUM 16 143 #define S390_V31_REGNUM 31 144 /* total number of registers in s390-vx.xml */ 145 #define S390_NUM_VREGS 32 146 147 static int cpu_read_vreg(CPUS390XState *env, uint8_t *mem_buf, int n) 148 { 149 int ret; 150 151 switch (n) { 152 case S390_V0L_REGNUM ... S390_V15L_REGNUM: 153 ret = gdb_get_reg64(mem_buf, env->vregs[n][1].ll); 154 break; 155 case S390_V16_REGNUM ... S390_V31_REGNUM: 156 ret = gdb_get_reg64(mem_buf, env->vregs[n][0].ll); 157 ret += gdb_get_reg64(mem_buf + 8, env->vregs[n][1].ll); 158 break; 159 default: 160 ret = 0; 161 } 162 163 return ret; 164 } 165 166 static int cpu_write_vreg(CPUS390XState *env, uint8_t *mem_buf, int n) 167 { 168 switch (n) { 169 case S390_V0L_REGNUM ... S390_V15L_REGNUM: 170 env->vregs[n][1].ll = ldtul_p(mem_buf + 8); 171 return 8; 172 case S390_V16_REGNUM ... S390_V31_REGNUM: 173 env->vregs[n][0].ll = ldtul_p(mem_buf); 174 env->vregs[n][1].ll = ldtul_p(mem_buf + 8); 175 return 16; 176 default: 177 return 0; 178 } 179 } 180 181 /* the values represent the positions in s390-cr.xml */ 182 #define S390_C0_REGNUM 0 183 #define S390_C15_REGNUM 15 184 /* total number of registers in s390-cr.xml */ 185 #define S390_NUM_C_REGS 16 186 187 #ifndef CONFIG_USER_ONLY 188 static int cpu_read_c_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 189 { 190 switch (n) { 191 case S390_C0_REGNUM ... S390_C15_REGNUM: 192 return gdb_get_regl(mem_buf, env->cregs[n]); 193 default: 194 return 0; 195 } 196 } 197 198 static int cpu_write_c_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 199 { 200 switch (n) { 201 case S390_C0_REGNUM ... S390_C15_REGNUM: 202 env->cregs[n] = ldtul_p(mem_buf); 203 if (tcg_enabled()) { 204 tlb_flush(ENV_GET_CPU(env)); 205 } 206 cpu_synchronize_post_init(ENV_GET_CPU(env)); 207 return 8; 208 default: 209 return 0; 210 } 211 } 212 213 /* the values represent the positions in s390-virt.xml */ 214 #define S390_VIRT_CKC_REGNUM 0 215 #define S390_VIRT_CPUTM_REGNUM 1 216 #define S390_VIRT_BEA_REGNUM 2 217 #define S390_VIRT_PREFIX_REGNUM 3 218 #define S390_VIRT_PP_REGNUM 4 219 #define S390_VIRT_PFT_REGNUM 5 220 #define S390_VIRT_PFS_REGNUM 6 221 #define S390_VIRT_PFC_REGNUM 7 222 /* total number of registers in s390-virt.xml */ 223 #define S390_NUM_VIRT_REGS 8 224 225 static int cpu_read_virt_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 226 { 227 switch (n) { 228 case S390_VIRT_CKC_REGNUM: 229 return gdb_get_regl(mem_buf, env->ckc); 230 case S390_VIRT_CPUTM_REGNUM: 231 return gdb_get_regl(mem_buf, env->cputm); 232 case S390_VIRT_BEA_REGNUM: 233 return gdb_get_regl(mem_buf, env->gbea); 234 case S390_VIRT_PREFIX_REGNUM: 235 return gdb_get_regl(mem_buf, env->psa); 236 case S390_VIRT_PP_REGNUM: 237 return gdb_get_regl(mem_buf, env->pp); 238 case S390_VIRT_PFT_REGNUM: 239 return gdb_get_regl(mem_buf, env->pfault_token); 240 case S390_VIRT_PFS_REGNUM: 241 return gdb_get_regl(mem_buf, env->pfault_select); 242 case S390_VIRT_PFC_REGNUM: 243 return gdb_get_regl(mem_buf, env->pfault_compare); 244 default: 245 return 0; 246 } 247 } 248 249 static int cpu_write_virt_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 250 { 251 switch (n) { 252 case S390_VIRT_CKC_REGNUM: 253 env->ckc = ldtul_p(mem_buf); 254 cpu_synchronize_post_init(ENV_GET_CPU(env)); 255 return 8; 256 case S390_VIRT_CPUTM_REGNUM: 257 env->cputm = ldtul_p(mem_buf); 258 cpu_synchronize_post_init(ENV_GET_CPU(env)); 259 return 8; 260 case S390_VIRT_BEA_REGNUM: 261 env->gbea = ldtul_p(mem_buf); 262 cpu_synchronize_post_init(ENV_GET_CPU(env)); 263 return 8; 264 case S390_VIRT_PREFIX_REGNUM: 265 env->psa = ldtul_p(mem_buf); 266 cpu_synchronize_post_init(ENV_GET_CPU(env)); 267 return 8; 268 case S390_VIRT_PP_REGNUM: 269 env->pp = ldtul_p(mem_buf); 270 cpu_synchronize_post_init(ENV_GET_CPU(env)); 271 return 8; 272 case S390_VIRT_PFT_REGNUM: 273 env->pfault_token = ldtul_p(mem_buf); 274 cpu_synchronize_post_init(ENV_GET_CPU(env)); 275 return 8; 276 case S390_VIRT_PFS_REGNUM: 277 env->pfault_select = ldtul_p(mem_buf); 278 cpu_synchronize_post_init(ENV_GET_CPU(env)); 279 return 8; 280 case S390_VIRT_PFC_REGNUM: 281 env->pfault_compare = ldtul_p(mem_buf); 282 cpu_synchronize_post_init(ENV_GET_CPU(env)); 283 return 8; 284 default: 285 return 0; 286 } 287 } 288 #endif 289 290 /* the values represent the positions in s390-gs.xml */ 291 #define S390_GS_RESERVED_REGNUM 0 292 #define S390_GS_GSD_REGNUM 1 293 #define S390_GS_GSSM_REGNUM 2 294 #define S390_GS_GSEPLA_REGNUM 3 295 /* total number of registers in s390-gs.xml */ 296 #define S390_NUM_GS_REGS 4 297 298 static int cpu_read_gs_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 299 { 300 return gdb_get_regl(mem_buf, env->gscb[n]); 301 } 302 303 static int cpu_write_gs_reg(CPUS390XState *env, uint8_t *mem_buf, int n) 304 { 305 env->gscb[n] = ldtul_p(mem_buf); 306 cpu_synchronize_post_init(ENV_GET_CPU(env)); 307 return 8; 308 } 309 310 void s390_cpu_gdb_init(CPUState *cs) 311 { 312 gdb_register_coprocessor(cs, cpu_read_ac_reg, 313 cpu_write_ac_reg, 314 S390_NUM_AC_REGS, "s390-acr.xml", 0); 315 316 gdb_register_coprocessor(cs, cpu_read_fp_reg, 317 cpu_write_fp_reg, 318 S390_NUM_FP_REGS, "s390-fpr.xml", 0); 319 320 gdb_register_coprocessor(cs, cpu_read_vreg, 321 cpu_write_vreg, 322 S390_NUM_VREGS, "s390-vx.xml", 0); 323 324 gdb_register_coprocessor(cs, cpu_read_gs_reg, 325 cpu_write_gs_reg, 326 S390_NUM_GS_REGS, "s390-gs.xml", 0); 327 328 #ifndef CONFIG_USER_ONLY 329 gdb_register_coprocessor(cs, cpu_read_c_reg, 330 cpu_write_c_reg, 331 S390_NUM_C_REGS, "s390-cr.xml", 0); 332 333 if (kvm_enabled()) { 334 gdb_register_coprocessor(cs, cpu_read_virt_reg, 335 cpu_write_virt_reg, 336 S390_NUM_VIRT_REGS, "s390-virt.xml", 0); 337 } 338 #endif 339 } 340