OpenE2K/qemu-e2k
13
4
Fork 0
Code Issues 4 Pull Requests Projects 2 Releases Activity

target-alpha: gdb-stub support

Browse Source 
(Vince Weaver)

git-svn-id: svn://svn.savannah.nongnu.org/qemu/trunk@5945 c046a42c-6fe2-441c-8c8c-71466251a162
This commit is contained in:
aurel32 2008-12-07 23:26:32 +00:00
parent cd5158ea69
commit 19bf517b7f
2 changed files with 60 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
gdbstub.c
View File

@ -990,6 +990,56 @@ static int cpu_gdb_write_register(CPUState *env, uint8_t *mem_buf, int n)
return 4;
}
#elif defined (TARGET_ALPHA)
#define NUM_CORE_REGS 65
static int cpu_gdb_read_register(CPUState *env, uint8_t *mem_buf, int n)
{
if (n < 31) {
GET_REGL(env->ir[n]);
}
else if (n == 31) {
GET_REGL(0);
}
else if (n<63) {
uint64_t val;
val=*((uint64_t *)&env->fir[n-32]);
GET_REGL(val);
}
else if (n==63) {
GET_REGL(env->fpcr);
}
else if (n==64) {
GET_REGL(env->pc);
}
else {
GET_REGL(0);
}
return 0;
}
static int cpu_gdb_write_register(CPUState *env, uint8_t *mem_buf, int n)
{
target_ulong tmp;
tmp = ldtul_p(mem_buf);
if (n < 31) {
env->ir[n] = tmp;
}
if (n > 31 && n < 63) {
env->fir[n - 32] = ldfl_p(mem_buf);
}
if (n == 64 ) {
env->pc=tmp;
}
return 8;
}
#else
#define NUM_CORE_REGS 0
@ -1277,6 +1327,8 @@ static int gdb_handle_packet(GDBState *s, const char *line_buf)
s->c_cpu->active_tc.PC = addr;
#elif defined (TARGET_CRIS)
s->c_cpu->pc = addr;
#elif defined (TARGET_ALPHA)
s->c_cpu->pc = addr;
#endif
}
gdb_continue(s);
@ -1313,6 +1365,8 @@ static int gdb_handle_packet(GDBState *s, const char *line_buf)
s->c_cpu->active_tc.PC = addr;
#elif defined (TARGET_CRIS)
s->c_cpu->pc = addr;
#elif defined (TARGET_ALPHA)
s->c_cpu->pc = addr;
#endif
}
cpu_single_step(s->c_cpu, sstep_flags);

7
target-alpha/translate.c
View File

@ -2407,10 +2407,15 @@ static always_inline void gen_intermediate_code_internal (CPUState *env,
* generation
*/
if (((ctx.pc & (TARGET_PAGE_SIZE - 1)) == 0) ||
(env->singlestep_enabled) ||
num_insns >= max_insns) {
break;
}
if (env->singlestep_enabled) {
gen_excp(&ctx, EXCP_DEBUG, 0);
break;
}
#if defined (DO_SINGLE_STEP)
break;
#endif