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