335 lines
11 KiB
C
335 lines
11 KiB
C
|
/*
|
||
|
|
* ARM 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 "cpu.h"
|
||
|
|
#include "exec/gdbstub.h"
|
||
|
|
|
||
|
|
typedef struct RegisterSysregXmlParam {
|
||
|
|
CPUState *cs;
|
||
|
|
GString *s;
|
||
|
|
int n;
|
||
|
|
} RegisterSysregXmlParam;
|
||
|
|
|
||
|
|
/* Old gdb always expect FPA registers. Newer (xml-aware) gdb only expect
|
||
|
|
whatever the target description contains. Due to a historical mishap
|
||
|
|
the FPA registers appear in between core integer regs and the CPSR.
|
||
|
|
We hack round this by giving the FPA regs zero size when talking to a
|
||
|
|
newer gdb. */
|
||
|
|
|
||
|
|
int arm_cpu_gdb_read_register(CPUState *cs, GByteArray *mem_buf, int n)
|
||
|
|
{
|
||
|
|
ARMCPU *cpu = ARM_CPU(cs);
|
||
|
|
CPUARMState *env = &cpu->env;
|
||
|
|
|
||
|
|
if (n < 16) {
|
||
|
|
/* Core integer register. */
|
||
|
|
return gdb_get_reg32(mem_buf, env->regs[n]);
|
||
|
|
}
|
||
|
|
if (n < 24) {
|
||
|
|
/* FPA registers. */
|
||
|
|
if (gdb_has_xml) {
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
return gdb_get_zeroes(mem_buf, 12);
|
||
|
|
}
|
||
|
|
switch (n) {
|
||
|
|
case 24:
|
||
|
|
/* FPA status register. */
|
||
|
|
if (gdb_has_xml) {
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
return gdb_get_reg32(mem_buf, 0);
|
||
|
|
case 25:
|
||
|
|
/* CPSR, or XPSR for M-profile */
|
||
|
|
if (arm_feature(env, ARM_FEATURE_M)) {
|
||
|
|
return gdb_get_reg32(mem_buf, xpsr_read(env));
|
||
|
|
} else {
|
||
|
|
return gdb_get_reg32(mem_buf, cpsr_read(env));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
/* Unknown register. */
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int arm_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n)
|
||
|
|
{
|
||
|
|
ARMCPU *cpu = ARM_CPU(cs);
|
||
|
|
CPUARMState *env = &cpu->env;
|
||
|
|
uint32_t tmp;
|
||
|
|
|
||
|
|
tmp = ldl_p(mem_buf);
|
||
|
|
|
||
|
|
/* Mask out low bit of PC to workaround gdb bugs. This will probably
|
||
|
|
cause problems if we ever implement the Jazelle DBX extensions. */
|
||
|
|
if (n == 15) {
|
||
|
|
tmp &= ~1;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (n < 16) {
|
||
|
|
/* Core integer register. */
|
||
|
|
env->regs[n] = tmp;
|
||
|
|
return 4;
|
||
|
|
}
|
||
|
|
if (n < 24) { /* 16-23 */
|
||
|
|
/* FPA registers (ignored). */
|
||
|
|
if (gdb_has_xml) {
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
return 12;
|
||
|
|
}
|
||
|
|
switch (n) {
|
||
|
|
case 24:
|
||
|
|
/* FPA status register (ignored). */
|
||
|
|
if (gdb_has_xml) {
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
return 4;
|
||
|
|
case 25:
|
||
|
|
/* CPSR, or XPSR for M-profile */
|
||
|
|
if (arm_feature(env, ARM_FEATURE_M)) {
|
||
|
|
/*
|
||
|
|
* Don't allow writing to XPSR.Exception as it can cause
|
||
|
|
* a transition into or out of handler mode (it's not
|
||
|
|
* writeable via the MSR insn so this is a reasonable
|
||
|
|
* restriction). Other fields are safe to update.
|
||
|
|
*/
|
||
|
|
xpsr_write(env, tmp, ~XPSR_EXCP);
|
||
|
|
} else {
|
||
|
|
cpsr_write(env, tmp, 0xffffffff, CPSRWriteByGDBStub);
|
||
|
|
}
|
||
|
|
return 4;
|
||
|
|
}
|
||
|
|
/* Unknown register. */
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void arm_gen_one_xml_sysreg_tag(GString *s, DynamicGDBXMLInfo *dyn_xml,
|
||
|
|
ARMCPRegInfo *ri, uint32_t ri_key,
|
||
|
|
int bitsize, int regnum)
|
||
|
|
{
|
||
|
|
g_string_append_printf(s, "<reg name=\"%s\"", ri->name);
|
||
|
|
g_string_append_printf(s, " bitsize=\"%d\"", bitsize);
|
||
|
|
g_string_append_printf(s, " regnum=\"%d\"", regnum);
|
||
|
|
g_string_append_printf(s, " group=\"cp_regs\"/>");
|
||
|
|
dyn_xml->data.cpregs.keys[dyn_xml->num] = ri_key;
|
||
|
|
dyn_xml->num++;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void arm_register_sysreg_for_xml(gpointer key, gpointer value,
|
||
|
|
gpointer p)
|
||
|
|
{
|
||
|
|
uint32_t ri_key = *(uint32_t *)key;
|
||
|
|
ARMCPRegInfo *ri = value;
|
||
|
|
RegisterSysregXmlParam *param = (RegisterSysregXmlParam *)p;
|
||
|
|
GString *s = param->s;
|
||
|
|
ARMCPU *cpu = ARM_CPU(param->cs);
|
||
|
|
CPUARMState *env = &cpu->env;
|
||
|
|
DynamicGDBXMLInfo *dyn_xml = &cpu->dyn_sysreg_xml;
|
||
|
|
|
||
|
|
if (!(ri->type & (ARM_CP_NO_RAW | ARM_CP_NO_GDB))) {
|
||
|
|
if (arm_feature(env, ARM_FEATURE_AARCH64)) {
|
||
|
|
if (ri->state == ARM_CP_STATE_AA64) {
|
||
|
|
arm_gen_one_xml_sysreg_tag(s , dyn_xml, ri, ri_key, 64,
|
||
|
|
param->n++);
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (ri->state == ARM_CP_STATE_AA32) {
|
||
|
|
if (!arm_feature(env, ARM_FEATURE_EL3) &&
|
||
|
|
(ri->secure & ARM_CP_SECSTATE_S)) {
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (ri->type & ARM_CP_64BIT) {
|
||
|
|
arm_gen_one_xml_sysreg_tag(s , dyn_xml, ri, ri_key, 64,
|
||
|
|
param->n++);
|
||
|
|
} else {
|
||
|
|
arm_gen_one_xml_sysreg_tag(s , dyn_xml, ri, ri_key, 32,
|
||
|
|
param->n++);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int arm_gen_dynamic_sysreg_xml(CPUState *cs, int base_reg)
|
||
|
|
{
|
||
|
|
ARMCPU *cpu = ARM_CPU(cs);
|
||
|
|
GString *s = g_string_new(NULL);
|
||
|
|
RegisterSysregXmlParam param = {cs, s, base_reg};
|
||
|
|
|
||
|
|
cpu->dyn_sysreg_xml.num = 0;
|
||
|
|
cpu->dyn_sysreg_xml.data.cpregs.keys = g_new(uint32_t, g_hash_table_size(cpu->cp_regs));
|
||
|
|
g_string_printf(s, "<?xml version=\"1.0\"?>");
|
||
|
|
g_string_append_printf(s, "<!DOCTYPE target SYSTEM \"gdb-target.dtd\">");
|
||
|
|
g_string_append_printf(s, "<feature name=\"org.qemu.gdb.arm.sys.regs\">");
|
||
|
|
g_hash_table_foreach(cpu->cp_regs, arm_register_sysreg_for_xml, ¶m);
|
||
|
|
g_string_append_printf(s, "</feature>");
|
||
|
|
cpu->dyn_sysreg_xml.desc = g_string_free(s, false);
|
||
|
|
return cpu->dyn_sysreg_xml.num;
|
||
|
|
}
|
||
|
|
|
||
|
|
struct TypeSize {
|
||
|
|
const char *gdb_type;
|
||
|
|
int size;
|
||
|
|
const char sz, suffix;
|
||
|
|
};
|
||
|
|
|
||
|
|
static const struct TypeSize vec_lanes[] = {
|
||
|
|
/* quads */
|
||
|
|
{ "uint128", 128, 'q', 'u' },
|
||
|
|
{ "int128", 128, 'q', 's' },
|
||
|
|
/* 64 bit */
|
||
|
|
{ "uint64", 64, 'd', 'u' },
|
||
|
|
{ "int64", 64, 'd', 's' },
|
||
|
|
{ "ieee_double", 64, 'd', 'f' },
|
||
|
|
/* 32 bit */
|
||
|
|
{ "uint32", 32, 's', 'u' },
|
||
|
|
{ "int32", 32, 's', 's' },
|
||
|
|
{ "ieee_single", 32, 's', 'f' },
|
||
|
|
/* 16 bit */
|
||
|
|
{ "uint16", 16, 'h', 'u' },
|
||
|
|
{ "int16", 16, 'h', 's' },
|
||
|
|
/*
|
||
|
|
* TODO: currently there is no reliable way of telling
|
||
|
|
* if the remote gdb actually understands ieee_half so
|
||
|
|
* we don't expose it in the target description for now.
|
||
|
|
* { "ieee_half", 16, 'h', 'f' },
|
||
|
|
*/
|
||
|
|
/* bytes */
|
||
|
|
{ "uint8", 8, 'b', 'u' },
|
||
|
|
{ "int8", 8, 'b', 's' },
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
int arm_gen_dynamic_svereg_xml(CPUState *cs, int base_reg)
|
||
|
|
{
|
||
|
|
ARMCPU *cpu = ARM_CPU(cs);
|
||
|
|
GString *s = g_string_new(NULL);
|
||
|
|
DynamicGDBXMLInfo *info = &cpu->dyn_svereg_xml;
|
||
|
|
g_autoptr(GString) ts = g_string_new("");
|
||
|
|
int i, bits, reg_width = (cpu->sve_max_vq * 128);
|
||
|
|
info->num = 0;
|
||
|
|
g_string_printf(s, "<?xml version=\"1.0\"?>");
|
||
|
|
g_string_append_printf(s, "<!DOCTYPE target SYSTEM \"gdb-target.dtd\">");
|
||
|
|
g_string_append_printf(s, "<feature name=\"org.qemu.gdb.aarch64.sve\">");
|
||
|
|
|
||
|
|
/* First define types and totals in a whole VL */
|
||
|
|
for (i = 0; i < ARRAY_SIZE(vec_lanes); i++) {
|
||
|
|
int count = reg_width / vec_lanes[i].size;
|
||
|
|
g_string_printf(ts, "vq%d%c%c", count,
|
||
|
|
vec_lanes[i].sz, vec_lanes[i].suffix);
|
||
|
|
g_string_append_printf(s,
|
||
|
|
"<vector id=\"%s\" type=\"%s\" count=\"%d\"/>",
|
||
|
|
ts->str, vec_lanes[i].gdb_type, count);
|
||
|
|
}
|
||
|
|
/*
|
||
|
|
* Now define a union for each size group containing unsigned and
|
||
|
|
* signed and potentially float versions of each size from 128 to
|
||
|
|
* 8 bits.
|
||
|
|
*/
|
||
|
|
for (bits = 128; bits >= 8; bits /= 2) {
|
||
|
|
int count = reg_width / bits;
|
||
|
|
g_string_append_printf(s, "<union id=\"vq%dn\">", count);
|
||
|
|
for (i = 0; i < ARRAY_SIZE(vec_lanes); i++) {
|
||
|
|
if (vec_lanes[i].size == bits) {
|
||
|
|
g_string_append_printf(s, "<field name=\"%c\" type=\"vq%d%c%c\"/>",
|
||
|
|
vec_lanes[i].suffix,
|
||
|
|
count,
|
||
|
|
vec_lanes[i].sz, vec_lanes[i].suffix);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
g_string_append(s, "</union>");
|
||
|
|
}
|
||
|
|
/* And now the final union of unions */
|
||
|
|
g_string_append(s, "<union id=\"vq\">");
|
||
|
|
for (bits = 128; bits >= 8; bits /= 2) {
|
||
|
|
int count = reg_width / bits;
|
||
|
|
for (i = 0; i < ARRAY_SIZE(vec_lanes); i++) {
|
||
|
|
if (vec_lanes[i].size == bits) {
|
||
|
|
g_string_append_printf(s, "<field name=\"%c\" type=\"vq%dn\"/>",
|
||
|
|
vec_lanes[i].sz, count);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
g_string_append(s, "</union>");
|
||
|
|
|
||
|
|
/* Then define each register in parts for each vq */
|
||
|
|
for (i = 0; i < 32; i++) {
|
||
|
|
g_string_append_printf(s,
|
||
|
|
"<reg name=\"z%d\" bitsize=\"%d\""
|
||
|
|
" regnum=\"%d\" group=\"vector\""
|
||
|
|
" type=\"vq\"/>",
|
||
|
|
i, reg_width, base_reg++);
|
||
|
|
info->num++;
|
||
|
|
}
|
||
|
|
/* fpscr & status registers */
|
||
|
|
g_string_append_printf(s, "<reg name=\"fpsr\" bitsize=\"32\""
|
||
|
|
" regnum=\"%d\" group=\"float\""
|
||
|
|
" type=\"int\"/>", base_reg++);
|
||
|
|
g_string_append_printf(s, "<reg name=\"fpcr\" bitsize=\"32\""
|
||
|
|
" regnum=\"%d\" group=\"float\""
|
||
|
|
" type=\"int\"/>", base_reg++);
|
||
|
|
info->num += 2;
|
||
|
|
/*
|
||
|
|
* Predicate registers aren't so big they are worth splitting up
|
||
|
|
* but we do need to define a type to hold the array of quad
|
||
|
|
* references.
|
||
|
|
*/
|
||
|
|
g_string_append_printf(s,
|
||
|
|
"<vector id=\"vqp\" type=\"uint16\" count=\"%d\"/>",
|
||
|
|
cpu->sve_max_vq);
|
||
|
|
for (i = 0; i < 16; i++) {
|
||
|
|
g_string_append_printf(s,
|
||
|
|
"<reg name=\"p%d\" bitsize=\"%d\""
|
||
|
|
" regnum=\"%d\" group=\"vector\""
|
||
|
|
" type=\"vqp\"/>",
|
||
|
|
i, cpu->sve_max_vq * 16, base_reg++);
|
||
|
|
info->num++;
|
||
|
|
}
|
||
|
|
g_string_append_printf(s,
|
||
|
|
"<reg name=\"ffr\" bitsize=\"%d\""
|
||
|
|
" regnum=\"%d\" group=\"vector\""
|
||
|
|
" type=\"vqp\"/>",
|
||
|
|
cpu->sve_max_vq * 16, base_reg++);
|
||
|
|
g_string_append_printf(s,
|
||
|
|
"<reg name=\"vg\" bitsize=\"64\""
|
||
|
|
" regnum=\"%d\" group=\"vector\""
|
||
|
|
" type=\"uint32\"/>",
|
||
|
|
base_reg++);
|
||
|
|
info->num += 2;
|
||
|
|
g_string_append_printf(s, "</feature>");
|
||
|
|
cpu->dyn_svereg_xml.desc = g_string_free(s, false);
|
||
|
|
|
||
|
|
return cpu->dyn_svereg_xml.num;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
const char *arm_gdb_get_dynamic_xml(CPUState *cs, const char *xmlname)
|
||
|
|
{
|
||
|
|
ARMCPU *cpu = ARM_CPU(cs);
|
||
|
|
|
||
|
|
if (strcmp(xmlname, "system-registers.xml") == 0) {
|
||
|
|
return cpu->dyn_sysreg_xml.desc;
|
||
|
|
} else if (strcmp(xmlname, "sve-registers.xml") == 0) {
|
||
|
|
return cpu->dyn_svereg_xml.desc;
|
||
|
|
}
|
||
|
|
return NULL;
|
||
|
|
}
|