]>
git.proxmox.com Git - mirror_qemu.git/blob - gdbstub.c
4 * Copyright (c) 2003 Fabrice Bellard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 #include <sys/socket.h>
26 #include <netinet/in.h>
27 #include <netinet/tcp.h>
45 static int gdbstub_open(int port
)
47 struct sockaddr_in sockaddr
;
51 fd
= socket(PF_INET
, SOCK_STREAM
, 0);
57 /* allow fast reuse */
59 setsockopt(fd
, SOL_SOCKET
, SO_REUSEADDR
, &val
, sizeof(val
));
61 sockaddr
.sin_family
= AF_INET
;
62 sockaddr
.sin_port
= htons(port
);
63 sockaddr
.sin_addr
.s_addr
= 0;
64 ret
= bind(fd
, (struct sockaddr
*)&sockaddr
, sizeof(sockaddr
));
75 /* now wait for one connection */
77 len
= sizeof(sockaddr
);
78 gdbstub_fd
= accept(fd
, (struct sockaddr
*)&sockaddr
, &len
);
79 if (gdbstub_fd
< 0 && errno
!= EINTR
) {
82 } else if (gdbstub_fd
>= 0) {
87 /* set short latency */
89 setsockopt(gdbstub_fd
, SOL_TCP
, TCP_NODELAY
, &val
, sizeof(val
));
93 static int get_char(void)
99 ret
= read(gdbstub_fd
, &ch
, 1);
101 if (errno
!= EINTR
&& errno
!= EAGAIN
)
103 } else if (ret
== 0) {
112 static void put_buffer(const uint8_t *buf
, int len
)
117 ret
= write(gdbstub_fd
, buf
, len
);
119 if (errno
!= EINTR
&& errno
!= EAGAIN
)
128 static inline int fromhex(int v
)
130 if (v
>= '0' && v
<= '9')
132 else if (v
>= 'A' && v
<= 'F')
134 else if (v
>= 'a' && v
<= 'f')
140 static inline int tohex(int v
)
148 static void memtohex(char *buf
, const uint8_t *mem
, int len
)
153 for(i
= 0; i
< len
; i
++) {
155 *q
++ = tohex(c
>> 4);
156 *q
++ = tohex(c
& 0xf);
161 static void hextomem(uint8_t *mem
, const char *buf
, int len
)
165 for(i
= 0; i
< len
; i
++) {
166 mem
[i
] = (fromhex(buf
[0]) << 4) | fromhex(buf
[1]);
171 /* return -1 if error or EOF */
172 static int get_packet(char *buf
, int buf_size
)
174 int ch
, len
, csum
, csum1
;
193 if (len
> buf_size
- 1)
202 csum1
= fromhex(ch
) << 4;
206 csum1
|= fromhex(ch
);
207 if ((csum
& 0xff) != csum1
) {
209 put_buffer(reply
, 1);
212 put_buffer(reply
, 1);
217 printf("command='%s'\n", buf
);
222 /* return -1 if error, 0 if OK */
223 static int put_packet(char *buf
)
226 int len
, csum
, ch
, i
;
229 printf("reply='%s'\n", buf
);
236 put_buffer(buf
, len
);
238 for(i
= 0; i
< len
; i
++) {
242 buf1
[1] = tohex((csum
>> 4) & 0xf);
243 buf1
[2] = tohex((csum
) & 0xf);
256 static int memory_rw(uint8_t *buf
, uint32_t addr
, int len
, int is_write
)
262 page
= addr
& TARGET_PAGE_MASK
;
263 l
= (page
+ TARGET_PAGE_SIZE
) - addr
;
266 flags
= page_get_flags(page
);
267 if (!(flags
& PAGE_VALID
))
270 if (!(flags
& PAGE_WRITE
))
272 memcpy((uint8_t *)addr
, buf
, l
);
274 if (!(flags
& PAGE_READ
))
276 memcpy(buf
, (uint8_t *)addr
, l
);
285 /* port = 0 means default port */
286 int cpu_gdbstub(void *opaque
, int (*main_loop
)(void *opaque
), int port
)
290 int ret
, ch
, nb_regs
, i
, type
;
292 uint8_t mem_buf
[2000];
296 printf("Waiting gdb connection on port %d\n", port
);
297 if (gdbstub_open(port
) < 0)
299 printf("Connected\n");
301 ret
= get_packet(buf
, sizeof(buf
));
308 snprintf(buf
, sizeof(buf
), "S%02x", SIGTRAP
);
313 addr
= strtoul(p
, (char **)&p
, 16);
314 env
= cpu_gdbstub_get_env(opaque
);
315 #if defined(TARGET_I386)
319 ret
= main_loop(opaque
);
320 if (ret
== EXCP_DEBUG
)
324 snprintf(buf
, sizeof(buf
), "S%02x", ret
);
328 env
= cpu_gdbstub_get_env(opaque
);
330 addr
= strtoul(p
, (char **)&p
, 16);
331 #if defined(TARGET_I386)
335 cpu_single_step(env
, 1);
336 ret
= main_loop(opaque
);
337 cpu_single_step(env
, 0);
338 if (ret
== EXCP_DEBUG
)
342 snprintf(buf
, sizeof(buf
), "S%02x", ret
);
346 env
= cpu_gdbstub_get_env(opaque
);
347 registers
= (void *)mem_buf
;
348 #if defined(TARGET_I386)
349 for(i
= 0; i
< 8; i
++) {
350 registers
[i
] = tswapl(env
->regs
[i
]);
352 registers
[8] = env
->eip
;
353 registers
[9] = env
->eflags
;
354 registers
[10] = env
->segs
[R_CS
].selector
;
355 registers
[11] = env
->segs
[R_SS
].selector
;
356 registers
[12] = env
->segs
[R_DS
].selector
;
357 registers
[13] = env
->segs
[R_ES
].selector
;
358 registers
[14] = env
->segs
[R_FS
].selector
;
359 registers
[15] = env
->segs
[R_GS
].selector
;
362 memtohex(buf
, (const uint8_t *)registers
,
363 sizeof(registers
[0]) * nb_regs
);
367 env
= cpu_gdbstub_get_env(opaque
);
368 registers
= (void *)mem_buf
;
369 #if defined(TARGET_I386)
370 hextomem((uint8_t *)registers
, p
, 16 * 4);
371 for(i
= 0; i
< 8; i
++) {
372 env
->regs
[i
] = tswapl(registers
[i
]);
374 env
->eip
= registers
[8];
375 env
->eflags
= registers
[9];
376 #define LOAD_SEG(index, sreg)\
377 if (tswapl(registers[index]) != env->segs[sreg].selector)\
378 cpu_x86_load_seg(env, sreg, tswapl(registers[index]));
389 addr
= strtoul(p
, (char **)&p
, 16);
392 len
= strtoul(p
, NULL
, 16);
393 if (memory_rw(mem_buf
, addr
, len
, 0) != 0)
394 memset(mem_buf
, 0, len
);
395 memtohex(buf
, mem_buf
, len
);
399 addr
= strtoul(p
, (char **)&p
, 16);
402 len
= strtoul(p
, (char **)&p
, 16);
405 hextomem(mem_buf
, p
, len
);
406 if (memory_rw(mem_buf
, addr
, len
, 1) != 0)
412 type
= strtoul(p
, (char **)&p
, 16);
415 addr
= strtoul(p
, (char **)&p
, 16);
418 len
= strtoul(p
, (char **)&p
, 16);
419 if (type
== 0 || type
== 1) {
420 env
= cpu_gdbstub_get_env(opaque
);
421 if (cpu_breakpoint_insert(env
, addr
) < 0)
422 goto breakpoint_error
;
430 type
= strtoul(p
, (char **)&p
, 16);
433 addr
= strtoul(p
, (char **)&p
, 16);
436 len
= strtoul(p
, (char **)&p
, 16);
437 if (type
== 0 || type
== 1) {
438 env
= cpu_gdbstub_get_env(opaque
);
439 cpu_breakpoint_remove(env
, addr
);
442 goto breakpoint_error
;
446 /* put empty packet */