target-s390x/gdbstub.c

   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 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 "config.h"
  21 #include "qemu-common.h"
  22 #include "exec/gdbstub.h"
  23 #include "qemu/bitops.h"
  24
  25 int s390_cpu_gdb_read_register(CPUState *cs, uint8_t *mem_buf, int n)
  26 {
  27     S390CPU *cpu = S390_CPU(cs);
  28     CPUS390XState *env = &cpu->env;
  29     uint64_t val;
  30     int cc_op;
  31
  32     switch (n) {
  33     case S390_PSWM_REGNUM:
  34         cc_op = calc_cc(env, env->cc_op, env->cc_src, env->cc_dst, env->cc_vr);
  35         val = deposit64(env->psw.mask, 44, 2, cc_op);
  36         return gdb_get_regl(mem_buf, val);
  37     case S390_PSWA_REGNUM:
  38         return gdb_get_regl(mem_buf, env->psw.addr);
  39     case S390_R0_REGNUM ... S390_R15_REGNUM:
  40         return gdb_get_regl(mem_buf, env->regs[n-S390_R0_REGNUM]);
  41     case S390_A0_REGNUM ... S390_A15_REGNUM:
  42         return gdb_get_reg32(mem_buf, env->aregs[n-S390_A0_REGNUM]);
  43     case S390_FPC_REGNUM:
  44         return gdb_get_reg32(mem_buf, env->fpc);
  45     case S390_F0_REGNUM ... S390_F15_REGNUM:
  46         return gdb_get_reg64(mem_buf, env->fregs[n-S390_F0_REGNUM].ll);
  47     }
  48
  49     return 0;
  50 }
  51
  52 int s390_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n)
  53 {
  54     S390CPU *cpu = S390_CPU(cs);
  55     CPUS390XState *env = &cpu->env;
  56     target_ulong tmpl;
  57     uint32_t tmp32;
  58     int r = 8;
  59     tmpl = ldtul_p(mem_buf);
  60     tmp32 = ldl_p(mem_buf);
  61
  62     switch (n) {
  63     case S390_PSWM_REGNUM:
  64         env->psw.mask = tmpl;
  65         env->cc_op = extract64(tmpl, 44, 2);
  66         break;
  67     case S390_PSWA_REGNUM:
  68         env->psw.addr = tmpl;
  69         break;
  70     case S390_R0_REGNUM ... S390_R15_REGNUM:
  71         env->regs[n-S390_R0_REGNUM] = tmpl;
  72         break;
  73     case S390_A0_REGNUM ... S390_A15_REGNUM:
  74         env->aregs[n-S390_A0_REGNUM] = tmp32;
  75         r = 4;
  76         break;
  77     case S390_FPC_REGNUM:
  78         env->fpc = tmp32;
  79         r = 4;
  80         break;
  81     case S390_F0_REGNUM ... S390_F15_REGNUM:
  82         env->fregs[n-S390_F0_REGNUM].ll = tmpl;
  83         break;
  84     default:
  85         return 0;
  86     }
  87     return r;
  88 }