1 /* Low level interface to valgrind, for the remote server for GDB integrated
4 Free Software Foundation, Inc.
6 This file is part of VALGRIND.
7 It has been inspired from a file from gdbserver in gdb 6.6.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, USA. */
29 #include "pub_core_aspacemgr.h"
30 #include "pub_tool_machine.h"
31 #include "pub_core_threadstate.h"
32 #include "pub_core_transtab.h"
33 #include "pub_core_gdbserver.h"
35 #include "valgrind_low.h"
37 #include "libvex_guest_amd64.h"
38 /* GDBTD: ??? have a cleaner way to get the f80 <> f64 conversion functions */
39 /* below include needed for conversion f80 <> f64 */
40 #include "../../VEX/priv/guest_generic_x87.h"
42 /* below loosely inspired from file generated with gdb regdat.sh */
62 { "eflags", 1088, 32 },
77 { "fctrl", 1952, 32 },
78 { "fstat", 1984, 32 },
80 { "fiseg", 2048, 32 },
81 { "fioff", 2080, 32 },
82 { "foseg", 2112, 32 },
83 { "fooff", 2144, 32 },
85 { "xmm0", 2208, 128 },
86 { "xmm1", 2336, 128 },
87 { "xmm2", 2464, 128 },
88 { "xmm3", 2592, 128 },
89 { "xmm4", 2720, 128 },
90 { "xmm5", 2848, 128 },
91 { "xmm6", 2976, 128 },
92 { "xmm7", 3104, 128 },
93 { "xmm8", 3232, 128 },
94 { "xmm9", 3360, 128 },
95 { "xmm10", 3488, 128 },
96 { "xmm11", 3616, 128 },
97 { "xmm12", 3744, 128 },
98 { "xmm13", 3872, 128 },
99 { "xmm14", 4000, 128 },
100 { "xmm15", 4128, 128 },
101 { "mxcsr", 4256, 32 },
102 #if defined(VGO_linux)
103 { "orig_rax", 4288, 64 }
106 static const char *expedite_regs[] = { "rbp", "rsp", "rip", 0 };
107 #define num_regs (sizeof (regs) / sizeof (regs[0]))
110 CORE_ADDR get_pc (void)
114 collect_register_by_name ("rip", &pc);
116 dlog(1, "stop pc is %p\n", (void *) pc);
121 void set_pc (CORE_ADDR newpc)
124 supply_register_by_name ("rip", &newpc, &mod);
126 dlog(1, "set pc to %p\n", C2v (newpc));
128 dlog(1, "set pc not changed %p\n", C2v (newpc));
131 /* store registers in the guest state (gdbserver_to_valgrind)
132 or fetch register from the guest state (valgrind_to_gdbserver). */
134 void transfer_register (ThreadId tid, int abs_regno, void * buf,
135 transfer_direction dir, int size, Bool *mod)
137 ThreadState* tst = VG_(get_ThreadState)(tid);
138 int set = abs_regno / num_regs;
139 int regno = abs_regno % num_regs;
142 VexGuestAMD64State* amd64 = (VexGuestAMD64State*) get_arch (set, tst);
145 // numbers here have to match the order of regs above.
146 // Attention: gdb order does not match valgrind order.
147 case 0: VG_(transfer) (&amd64->guest_RAX, buf, dir, size, mod); break;
148 case 1: VG_(transfer) (&amd64->guest_RBX, buf, dir, size, mod); break;
149 case 2: VG_(transfer) (&amd64->guest_RCX, buf, dir, size, mod); break;
150 case 3: VG_(transfer) (&amd64->guest_RDX, buf, dir, size, mod); break;
151 case 4: VG_(transfer) (&amd64->guest_RSI, buf, dir, size, mod); break;
152 case 5: VG_(transfer) (&amd64->guest_RDI, buf, dir, size, mod); break;
153 case 6: VG_(transfer) (&amd64->guest_RBP, buf, dir, size, mod); break;
154 case 7: VG_(transfer) (&amd64->guest_RSP, buf, dir, size, mod); break;
155 case 8: VG_(transfer) (&amd64->guest_R8, buf, dir, size, mod); break;
156 case 9: VG_(transfer) (&amd64->guest_R9, buf, dir, size, mod); break;
157 case 10: VG_(transfer) (&amd64->guest_R10, buf, dir, size, mod); break;
158 case 11: VG_(transfer) (&amd64->guest_R11, buf, dir, size, mod); break;
159 case 12: VG_(transfer) (&amd64->guest_R12, buf, dir, size, mod); break;
160 case 13: VG_(transfer) (&amd64->guest_R13, buf, dir, size, mod); break;
161 case 14: VG_(transfer) (&amd64->guest_R14, buf, dir, size, mod); break;
162 case 15: VG_(transfer) (&amd64->guest_R15, buf, dir, size, mod); break;
164 VG_(transfer) (&amd64->guest_RIP, buf, dir, size, mod);
165 if (*mod && VG_(debugLog_getLevel)() > 2) {
166 char bufimage [2*sizeof(amd64->guest_IP_AT_SYSCALL) + 1];
168 (char *) &amd64->guest_IP_AT_SYSCALL,
169 sizeof(amd64->guest_IP_AT_SYSCALL));
170 dlog(3, "guest_IP_AT_SYSCALL %s\n", bufimage);
174 if (dir == valgrind_to_gdbserver) {
176 /* we can only retrieve the real flags (set 0)
177 retrieving shadow flags is not ok */
179 rflags = LibVEX_GuestAMD64_get_rflags (amd64);
182 VG_(transfer) (&rflags, buf, dir, size, mod);
184 *mod = False; //GDBTD? how do we store rflags in libvex_guest_amd64.h ???
187 case 18: *mod = False; break; //GDBTD VG_(transfer) (&amd64->guest_CS, buf, dir, size, mod);
188 case 19: *mod = False; break; //GDBTD VG_(transfer) (&amd64->guest_SS, buf, dir, size, mod);
189 case 20: *mod = False; break; //GDBTD VG_(transfer) (&amd64->guest_DS, buf, dir, size, mod);
190 case 21: *mod = False; break; //GDBTD VG_(transfer) (&amd64->guest_ES, buf, dir, size, mod);
191 case 22: *mod = False; break; //GDBTD VG_(transfer) (&amd64->guest_FS, buf, dir, size, mod);
192 case 23: VG_(transfer) (&amd64->guest_GS_0x60, buf, dir, size, mod); break;
196 case 27: /* register 24 to 31 are float registers 80 bits but 64 bits in valgrind */
201 if (dir == valgrind_to_gdbserver) {
203 convert_f64le_to_f80le ((UChar *)&amd64->guest_FPREG[regno-16],
205 VG_(transfer) (&fpreg80, buf, dir, sizeof(fpreg80), mod);
208 convert_f80le_to_f64le (buf, (UChar *)&fpreg64);
209 VG_(transfer) (&amd64->guest_FPREG[regno-16], &fpreg64,
210 dir, sizeof(fpreg64), mod);
214 if (dir == valgrind_to_gdbserver) {
215 // vex only models the rounding bits (see libvex_guest_amd64.h)
216 UWord value = 0x037f;
217 value |= amd64->guest_FPROUND << 10;
218 VG_(transfer)(&value, buf, dir, size, mod);
220 *mod = False; // GDBTD???? VEX equivalent fcrtl
224 if (dir == valgrind_to_gdbserver) {
225 UWord value = amd64->guest_FC3210;
226 value |= (amd64->guest_FTOP & 7) << 11;
227 VG_(transfer)(&value, buf, dir, size, mod);
229 *mod = False; // GDBTD???? VEX equivalent fstat
233 if (dir == valgrind_to_gdbserver) {
234 // vex doesn't model these precisely
236 ((amd64->guest_FPTAG[0] ? 0 : 3) << 0) |
237 ((amd64->guest_FPTAG[1] ? 0 : 3) << 2) |
238 ((amd64->guest_FPTAG[2] ? 0 : 3) << 4) |
239 ((amd64->guest_FPTAG[3] ? 0 : 3) << 6) |
240 ((amd64->guest_FPTAG[4] ? 0 : 3) << 8) |
241 ((amd64->guest_FPTAG[5] ? 0 : 3) << 10) |
242 ((amd64->guest_FPTAG[6] ? 0 : 3) << 12) |
243 ((amd64->guest_FPTAG[7] ? 0 : 3) << 14);
244 VG_(transfer)(&value, buf, dir, size, mod);
246 *mod = False; // GDBTD???? VEX equivalent ftag
249 case 35: *mod = False; break; // GDBTD ??? equivalent of fiseg
250 case 36: *mod = False; break; // GDBTD ??? equivalent of fioff
251 case 37: *mod = False; break; // GDBTD ??? equivalent of foseg
252 case 38: *mod = False; break; // GDBTD ??? equivalent of fooff
253 case 39: *mod = False; break; // GDBTD ??? equivalent of fop
254 case 40: VG_(transfer) (&amd64->guest_XMM0, buf, dir, size, mod); break;
255 case 41: VG_(transfer) (&amd64->guest_XMM1, buf, dir, size, mod); break;
256 case 42: VG_(transfer) (&amd64->guest_XMM2, buf, dir, size, mod); break;
257 case 43: VG_(transfer) (&amd64->guest_XMM3, buf, dir, size, mod); break;
258 case 44: VG_(transfer) (&amd64->guest_XMM4, buf, dir, size, mod); break;
259 case 45: VG_(transfer) (&amd64->guest_XMM5, buf, dir, size, mod); break;
260 case 46: VG_(transfer) (&amd64->guest_XMM6, buf, dir, size, mod); break;
261 case 47: VG_(transfer) (&amd64->guest_XMM7, buf, dir, size, mod); break;
262 case 48: VG_(transfer) (&amd64->guest_XMM8, buf, dir, size, mod); break;
263 case 49: VG_(transfer) (&amd64->guest_XMM9, buf, dir, size, mod); break;
264 case 50: VG_(transfer) (&amd64->guest_XMM10, buf, dir, size, mod); break;
265 case 51: VG_(transfer) (&amd64->guest_XMM11, buf, dir, size, mod); break;
266 case 52: VG_(transfer) (&amd64->guest_XMM12, buf, dir, size, mod); break;
267 case 53: VG_(transfer) (&amd64->guest_XMM13, buf, dir, size, mod); break;
268 case 54: VG_(transfer) (&amd64->guest_XMM14, buf, dir, size, mod); break;
269 case 55: VG_(transfer) (&amd64->guest_XMM15, buf, dir, size, mod); break;
271 if (dir == valgrind_to_gdbserver) {
272 // vex only models the rounding bits (see libvex_guest_x86.h)
273 UWord value = 0x1f80;
274 value |= amd64->guest_SSEROUND << 13;
275 VG_(transfer)(&value, buf, dir, size, mod);
277 *mod = False; // GDBTD???? VEX equivalent mxcsr
280 case 57: *mod = False; break; // GDBTD???? VEX equivalent { "orig_rax"},
281 default: vg_assert(0);
285 static struct valgrind_target_ops low_target = {
293 NULL, // target_xml not needed.
294 #if defined(VGO_linux)
295 "amd64-linux-valgrind.xml"
297 "amd64-coresse-valgrind.xml"
301 void amd64_init_architecture (struct valgrind_target_ops *target)
303 *target = low_target;
304 set_register_cache (regs, num_regs);
305 gdbserver_expedite_regs = expedite_regs;