target-ppc/gdbstub.c

   1 /*
   2  * PowerPC 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
  24 /* Old gdb always expects FP registers.  Newer (xml-aware) gdb only
  25  * expects whatever the target description contains.  Due to a
  26  * historical mishap the FP registers appear in between core integer
  27  * regs and PC, MSR, CR, and so forth.  We hack round this by giving the
  28  * FP regs zero size when talking to a newer gdb.
  29  */
  30
  31 int ppc_cpu_gdb_read_register(CPUState *cs, uint8_t *mem_buf, int n)
  32 {
  33     PowerPCCPU *cpu = POWERPC_CPU(cs);
  34     CPUPPCState *env = &cpu->env;
  35
  36     if (n < 32) {
  37         /* gprs */
  38         return gdb_get_regl(mem_buf, env->gpr[n]);
  39     } else if (n < 64) {
  40         /* fprs */
  41         if (gdb_has_xml) {
  42             return 0;
  43         }
  44         stfq_p(mem_buf, env->fpr[n-32]);
  45         return 8;
  46     } else {
  47         switch (n) {
  48         case 64:
  49             return gdb_get_regl(mem_buf, env->nip);
  50         case 65:
  51             return gdb_get_regl(mem_buf, env->msr);
  52         case 66:
  53             {
  54                 uint32_t cr = 0;
  55                 int i;
  56                 for (i = 0; i < 8; i++) {
  57                     cr |= env->crf[i] << (32 - ((i + 1) * 4));
  58                 }
  59                 return gdb_get_reg32(mem_buf, cr);
  60             }
  61         case 67:
  62             return gdb_get_regl(mem_buf, env->lr);
  63         case 68:
  64             return gdb_get_regl(mem_buf, env->ctr);
  65         case 69:
  66             return gdb_get_regl(mem_buf, env->xer);
  67         case 70:
  68             {
  69                 if (gdb_has_xml) {
  70                     return 0;
  71                 }
  72                 return gdb_get_reg32(mem_buf, env->fpscr);
  73             }
  74         }
  75     }
  76     return 0;
  77 }
  78
  79 int ppc_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n)
  80 {
  81     PowerPCCPU *cpu = POWERPC_CPU(cs);
  82     CPUPPCState *env = &cpu->env;
  83
  84     if (n < 32) {
  85         /* gprs */
  86         env->gpr[n] = ldtul_p(mem_buf);
  87         return sizeof(target_ulong);
  88     } else if (n < 64) {
  89         /* fprs */
  90         if (gdb_has_xml) {
  91             return 0;
  92         }
  93         env->fpr[n-32] = ldfq_p(mem_buf);
  94         return 8;
  95     } else {
  96         switch (n) {
  97         case 64:
  98             env->nip = ldtul_p(mem_buf);
  99             return sizeof(target_ulong);
 100         case 65:
 101             ppc_store_msr(env, ldtul_p(mem_buf));
 102             return sizeof(target_ulong);
 103         case 66:
 104             {
 105                 uint32_t cr = ldl_p(mem_buf);
 106                 int i;
 107                 for (i = 0; i < 8; i++) {
 108                     env->crf[i] = (cr >> (32 - ((i + 1) * 4))) & 0xF;
 109                 }
 110                 return 4;
 111             }
 112         case 67:
 113             env->lr = ldtul_p(mem_buf);
 114             return sizeof(target_ulong);
 115         case 68:
 116             env->ctr = ldtul_p(mem_buf);
 117             return sizeof(target_ulong);
 118         case 69:
 119             env->xer = ldtul_p(mem_buf);
 120             return sizeof(target_ulong);
 121         case 70:
 122             /* fpscr */
 123             if (gdb_has_xml) {
 124                 return 0;
 125             }
 126             store_fpscr(env, ldtul_p(mem_buf), 0xffffffff);
 127             return sizeof(target_ulong);
 128         }
 129     }
 130     return 0;
 131 }