target-mips/gdbstub.c

   1 /*
   2  * MIPS 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 "qemu/osdep.h"
  21 #include "qemu-common.h"
  22 #include "cpu.h"
  23 #include "exec/gdbstub.h"
  24
  25 int mips_cpu_gdb_read_register(CPUState *cs, uint8_t *mem_buf, int n)
  26 {
  27     MIPSCPU *cpu = MIPS_CPU(cs);
  28     CPUMIPSState *env = &cpu->env;
  29
  30     if (n < 32) {
  31         return gdb_get_regl(mem_buf, env->active_tc.gpr[n]);
  32     }
  33     if (env->CP0_Config1 & (1 << CP0C1_FP) && n >= 38 && n < 72) {
  34         switch (n) {
  35         case 70:
  36             return gdb_get_regl(mem_buf, (int32_t)env->active_fpu.fcr31);
  37         case 71:
  38             return gdb_get_regl(mem_buf, (int32_t)env->active_fpu.fcr0);
  39         default:
  40             if (env->CP0_Status & (1 << CP0St_FR)) {
  41                 return gdb_get_regl(mem_buf,
  42                     env->active_fpu.fpr[n - 38].d);
  43             } else {
  44                 return gdb_get_regl(mem_buf,
  45                     env->active_fpu.fpr[n - 38].w[FP_ENDIAN_IDX]);
  46             }
  47         }
  48     }
  49     switch (n) {
  50     case 32:
  51         return gdb_get_regl(mem_buf, (int32_t)env->CP0_Status);
  52     case 33:
  53         return gdb_get_regl(mem_buf, env->active_tc.LO[0]);
  54     case 34:
  55         return gdb_get_regl(mem_buf, env->active_tc.HI[0]);
  56     case 35:
  57         return gdb_get_regl(mem_buf, env->CP0_BadVAddr);
  58     case 36:
  59         return gdb_get_regl(mem_buf, (int32_t)env->CP0_Cause);
  60     case 37:
  61         return gdb_get_regl(mem_buf, env->active_tc.PC |
  62                                      !!(env->hflags & MIPS_HFLAG_M16));
  63     case 72:
  64         return gdb_get_regl(mem_buf, 0); /* fp */
  65     case 89:
  66         return gdb_get_regl(mem_buf, (int32_t)env->CP0_PRid);
  67     default:
  68         if (n > 89) {
  69             return 0;
  70         }
  71         /* 16 embedded regs.  */
  72         return gdb_get_regl(mem_buf, 0);
  73     }
  74
  75     return 0;
  76 }
  77
  78 int mips_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n)
  79 {
  80     MIPSCPU *cpu = MIPS_CPU(cs);
  81     CPUMIPSState *env = &cpu->env;
  82     target_ulong tmp;
  83
  84     tmp = ldtul_p(mem_buf);
  85
  86     if (n < 32) {
  87         env->active_tc.gpr[n] = tmp;
  88         return sizeof(target_ulong);
  89     }
  90     if (env->CP0_Config1 & (1 << CP0C1_FP) && n >= 38 && n < 72) {
  91         switch (n) {
  92         case 70:
  93             env->active_fpu.fcr31 = (tmp & env->active_fpu.fcr31_rw_bitmask) |
  94                   (env->active_fpu.fcr31 & ~(env->active_fpu.fcr31_rw_bitmask));
  95             restore_fp_status(env);
  96             break;
  97         case 71:
  98             /* FIR is read-only.  Ignore writes.  */
  99             break;
 100         default:
 101             if (env->CP0_Status & (1 << CP0St_FR)) {
 102                 env->active_fpu.fpr[n - 38].d = tmp;
 103             } else {
 104                 env->active_fpu.fpr[n - 38].w[FP_ENDIAN_IDX] = tmp;
 105             }
 106             break;
 107         }
 108         return sizeof(target_ulong);
 109     }
 110     switch (n) {
 111     case 32:
 112 #ifndef CONFIG_USER_ONLY
 113         cpu_mips_store_status(env, tmp);
 114 #endif
 115         break;
 116     case 33:
 117         env->active_tc.LO[0] = tmp;
 118         break;
 119     case 34:
 120         env->active_tc.HI[0] = tmp;
 121         break;
 122     case 35:
 123         env->CP0_BadVAddr = tmp;
 124         break;
 125     case 36:
 126 #ifndef CONFIG_USER_ONLY
 127         cpu_mips_store_cause(env, tmp);
 128 #endif
 129         break;
 130     case 37:
 131         env->active_tc.PC = tmp & ~(target_ulong)1;
 132         if (tmp & 1) {
 133             env->hflags |= MIPS_HFLAG_M16;
 134         } else {
 135             env->hflags &= ~(MIPS_HFLAG_M16);
 136         }
 137         break;
 138     case 72: /* fp, ignored */
 139         break;
 140     default:
 141         if (n > 89) {
 142             return 0;
 143         }
 144         /* Other registers are readonly.  Ignore writes.  */
 145         break;
 146     }
 147
 148     return sizeof(target_ulong);
 149 }