]>
Commit | Line | Data |
---|---|---|
0980bfab AF |
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 | */ | |
5b50e790 AF |
20 | #include "config.h" |
21 | #include "qemu-common.h" | |
22 | #include "exec/gdbstub.h" | |
0980bfab AF |
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 | ||
5b50e790 | 31 | int ppc_cpu_gdb_read_register(CPUState *cs, uint8_t *mem_buf, int n) |
0980bfab | 32 | { |
5b50e790 AF |
33 | PowerPCCPU *cpu = POWERPC_CPU(cs); |
34 | CPUPPCState *env = &cpu->env; | |
35 | ||
0980bfab AF |
36 | if (n < 32) { |
37 | /* gprs */ | |
986a2998 | 38 | return gdb_get_regl(mem_buf, env->gpr[n]); |
0980bfab AF |
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: | |
986a2998 | 49 | return gdb_get_regl(mem_buf, env->nip); |
0980bfab | 50 | case 65: |
986a2998 | 51 | return gdb_get_regl(mem_buf, env->msr); |
0980bfab AF |
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 | } | |
986a2998 | 59 | return gdb_get_reg32(mem_buf, cr); |
0980bfab AF |
60 | } |
61 | case 67: | |
986a2998 | 62 | return gdb_get_regl(mem_buf, env->lr); |
0980bfab | 63 | case 68: |
986a2998 | 64 | return gdb_get_regl(mem_buf, env->ctr); |
0980bfab | 65 | case 69: |
986a2998 | 66 | return gdb_get_regl(mem_buf, env->xer); |
0980bfab AF |
67 | case 70: |
68 | { | |
69 | if (gdb_has_xml) { | |
70 | return 0; | |
71 | } | |
986a2998 | 72 | return gdb_get_reg32(mem_buf, env->fpscr); |
0980bfab AF |
73 | } |
74 | } | |
75 | } | |
76 | return 0; | |
77 | } | |
78 | ||
5b50e790 | 79 | int ppc_cpu_gdb_write_register(CPUState *cs, uint8_t *mem_buf, int n) |
0980bfab | 80 | { |
5b50e790 AF |
81 | PowerPCCPU *cpu = POWERPC_CPU(cs); |
82 | CPUPPCState *env = &cpu->env; | |
83 | ||
0980bfab AF |
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 | } |