1 /* Remote target communications for serial-line targets in custom GDB protocol
2 Copyright 1988, 91, 92, 93, 94, 95, 96, 97, 1998
3 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program 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
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21 /* Remote communication protocol.
23 A debug packet whose contents are <data>
24 is encapsulated for transmission in the form:
26 $ <data> # CSUM1 CSUM2
28 <data> must be ASCII alphanumeric and cannot include characters
29 '$' or '#'. If <data> starts with two characters followed by
30 ':', then the existing stubs interpret this as a sequence number.
32 CSUM1 and CSUM2 are ascii hex representation of an 8-bit
33 checksum of <data>, the most significant nibble is sent first.
34 the hex digits 0-9,a-f are used.
36 Receiver responds with:
38 + - if CSUM is correct and ready for next packet
39 - - if CSUM is incorrect
42 Most values are encoded in ascii hex digits. Signal numbers are according
43 to the numbering in target.h.
47 set thread Hct... Set thread for subsequent operations.
48 c = 'c' for thread used in step and
49 continue; t... can be -1 for all
51 c = 'g' for thread used in other
52 operations. If zero, pick a thread,
58 reply XX....X Each byte of register data
59 is described by two hex digits.
60 Registers are in the internal order
61 for GDB, and the bytes in a register
62 are in the same order the machine uses.
65 write regs GXX..XX Each byte of register data
66 is described by two hex digits.
70 write reg Pn...=r... Write register n... with value r...,
71 which contains two hex digits for each
72 byte in the register (target byte
76 (not supported by all stubs).
78 read mem mAA..AA,LLLL AA..AA is address, LLLL is length.
79 reply XX..XX XX..XX is mem contents
80 Can be fewer bytes than requested
81 if able to read only part of the data.
84 write mem MAA..AA,LLLL:XX..XX
86 LLLL is number of bytes,
89 ENN for an error (this includes the case
90 where only part of the data was
93 write mem XAA..AA,LLLL:XX..XX
94 (binary) AA..AA is address,
95 LLLL is number of bytes,
100 continue cAA..AA AA..AA is address to resume
101 If AA..AA is omitted,
102 resume at same address.
104 step sAA..AA AA..AA is address to resume
105 If AA..AA is omitted,
106 resume at same address.
108 continue with Csig;AA..AA Continue with signal sig (hex signal
109 signal number). If ;AA..AA is omitted,
110 resume at same address.
112 step with Ssig;AA..AA Like 'C' but step not continue.
115 last signal ? Reply the current reason for stopping.
116 This is the same reply as is generated
117 for step or cont : SAA where AA is the
122 There is no immediate reply to step or cont.
123 The reply comes when the machine stops.
124 It is SAA AA is the signal number.
126 or... TAAn...:r...;n...:r...;n...:r...;
128 n... = register number (hex)
129 r... = register contents
131 r... = thread process ID. This is
133 n... = other string not starting
134 with valid hex digit.
135 gdb should ignore this n,r pair
136 and go on to the next. This way
137 we can extend the protocol.
138 or... WAA The process exited, and AA is
139 the exit status. This is only
140 applicable for certains sorts of
142 or... XAA The process terminated with signal
144 or... OXX..XX XX..XX is hex encoding of ASCII data. This
145 can happen at any time while the
146 program is running and the debugger
147 should continue to wait for
150 thread alive TXX Find out if the thread XX is alive.
151 reply OK thread is still alive
154 remote restart RXX Restart the remote server
156 extended ops ! Use the extended remote protocol.
157 Sticky -- only needs to be set once.
161 toggle debug d toggle debug flag (see 386 & 68k stubs)
162 reset r reset -- see sparc stub.
163 reserved <other> On other requests, the stub should
164 ignore the request and send an empty
165 response ($#<checksum>). This way
166 we can extend the protocol and GDB
167 can tell whether the stub it is
168 talking to uses the old or the new.
169 search tAA:PP,MM Search backwards starting at address
170 AA for a match with pattern PP and
171 mask MM. PP and MM are 4 bytes.
172 Not supported by all stubs.
174 general query qXXXX Request info about XXXX.
175 general set QXXXX=yyyy Set value of XXXX to yyyy.
176 query sect offs qOffsets Get section offsets. Reply is
177 Text=xxx;Data=yyy;Bss=zzz
179 Responses can be run-length encoded to save space. A '*' means that
180 the next character is an ASCII encoding giving a repeat count which
181 stands for that many repititions of the character preceding the '*'.
182 The encoding is n+29, yielding a printable character where n >=3
183 (which is where rle starts to win). Don't use an n > 126.
186 "0* " means the same as "0000". */
189 #include "gdb_string.h"
193 #include "inferior.h"
198 /*#include "terminal.h"*/
200 #include "objfiles.h"
201 #include "gdb-stabs.h"
202 #include "gdbthread.h"
207 #include <sys/types.h>
213 /* Prototypes for local functions */
215 static int remote_write_bytes
PARAMS ((CORE_ADDR memaddr
,
216 char *myaddr
, int len
));
218 static int remote_read_bytes
PARAMS ((CORE_ADDR memaddr
,
219 char *myaddr
, int len
));
221 static void remote_files_info
PARAMS ((struct target_ops
*ignore
));
223 static int remote_xfer_memory
PARAMS ((CORE_ADDR memaddr
, char * myaddr
,
224 int len
, int should_write
,
225 struct target_ops
* target
));
227 static void remote_prepare_to_store
PARAMS ((void));
229 static void remote_fetch_registers
PARAMS ((int regno
));
231 static void remote_resume
PARAMS ((int pid
, int step
,
232 enum target_signal siggnal
));
234 static int remote_start_remote
PARAMS ((PTR
));
236 static void remote_open
PARAMS ((char *name
, int from_tty
));
238 static void extended_remote_open
PARAMS ((char *name
, int from_tty
));
240 static void remote_open_1
PARAMS ((char *, int, struct target_ops
*,
243 static void remote_close
PARAMS ((int quitting
));
245 static void remote_store_registers
PARAMS ((int regno
));
247 static void remote_mourn
PARAMS ((void));
249 static void extended_remote_restart
PARAMS ((void));
251 static void extended_remote_mourn
PARAMS ((void));
253 static void extended_remote_create_inferior
PARAMS ((char *, char *, char **));
255 static void remote_mourn_1
PARAMS ((struct target_ops
*));
257 static void remote_send
PARAMS ((char *buf
));
259 static int readchar
PARAMS ((int timeout
));
261 static int remote_wait
PARAMS ((int pid
, struct target_waitstatus
* status
));
263 static void remote_kill
PARAMS ((void));
265 static int tohex
PARAMS ((int nib
));
267 static void remote_detach
PARAMS ((char *args
, int from_tty
));
269 static void remote_interrupt
PARAMS ((int signo
));
271 static void interrupt_query
PARAMS ((void));
273 static void set_thread
PARAMS ((int, int));
275 static int remote_thread_alive
PARAMS ((int));
277 static void get_offsets
PARAMS ((void));
279 static int read_frame
PARAMS ((char *));
281 static int remote_insert_breakpoint
PARAMS ((CORE_ADDR
, char *));
283 static int remote_remove_breakpoint
PARAMS ((CORE_ADDR
, char *));
285 static int hexnumlen
PARAMS ((ULONGEST num
));
287 static void init_remote_ops
PARAMS ((void));
289 static void init_extended_remote_ops
PARAMS ((void));
291 static void remote_stop
PARAMS ((void));
293 static int ishex
PARAMS ((int ch
, int *val
));
295 static int stubhex
PARAMS ((int ch
));
297 static int remote_query
PARAMS ((int/*char*/, char *, char *, int *));
299 static int hexnumstr
PARAMS ((char *, ULONGEST
));
301 static CORE_ADDR remote_address_masked
PARAMS ((CORE_ADDR
));
303 static void print_packet
PARAMS ((char *));
305 static unsigned long crc32
PARAMS ((unsigned char *, int, unsigned int));
307 static void compare_sections_command
PARAMS ((char *, int));
309 static void packet_command
PARAMS ((char *, int));
311 static int stub_unpack_int
PARAMS ((char *buff
, int fieldlength
));
313 char *unpack_varlen_hex
PARAMS ((char *buff
, int *result
));
315 static char *unpack_nibble
PARAMS ((char *buf
, int *val
));
317 static char *pack_nibble
PARAMS ((char *buf
, int nibble
));
319 static char *pack_hex_byte
PARAMS ((char *pkt
, int/*unsigned char*/ byte
));
321 static char *unpack_byte
PARAMS ((char *buf
, int *value
));
323 static char *pack_int
PARAMS ((char *buf
, int value
));
325 static char *unpack_int
PARAMS ((char *buf
, int *value
));
327 static char *unpack_string
PARAMS ((char *src
, char *dest
, int length
));
329 static char *pack_threadid
PARAMS ((char *pkt
, threadref
*id
));
331 static char *unpack_threadid
PARAMS ((char *inbuf
, threadref
*id
));
333 void int_to_threadref
PARAMS ((threadref
*id
, int value
));
335 static int threadref_to_int
PARAMS ((threadref
*ref
));
337 static void copy_threadref
PARAMS ((threadref
*dest
, threadref
*src
));
339 static int threadmatch
PARAMS ((threadref
*dest
, threadref
*src
));
341 static char *pack_threadinfo_request
PARAMS ((char *pkt
, int mode
,
344 static int remote_unpack_thread_info_response
PARAMS ((char *pkt
,
345 threadref
*expectedref
,
346 struct gdb_ext_thread_info
*info
));
349 static int remote_get_threadinfo
PARAMS ((threadref
*threadid
,
350 int fieldset
, /*TAG mask */
351 struct gdb_ext_thread_info
*info
));
353 static int adapt_remote_get_threadinfo
PARAMS ((gdb_threadref
*ref
,
355 struct gdb_ext_thread_info
*info
));
357 static char *pack_threadlist_request
PARAMS ((char *pkt
, int startflag
,
359 threadref
*nextthread
));
361 static int parse_threadlist_response
PARAMS ((char *pkt
,
363 threadref
*original_echo
,
364 threadref
*resultlist
,
367 static int remote_get_threadlist
PARAMS ((int startflag
,
368 threadref
*nextthread
,
372 threadref
*threadlist
));
374 typedef int (*rmt_thread_action
) (threadref
*ref
, void *context
);
376 static int remote_threadlist_iterator
PARAMS ((rmt_thread_action stepfunction
,
377 void *context
, int looplimit
));
379 static int remote_newthread_step
PARAMS ((threadref
*ref
, void *context
));
381 static int remote_current_thread
PARAMS ((int oldpid
));
383 int remote_find_new_threads
PARAMS ((void));
385 static void record_currthread
PARAMS ((int currthread
));
387 static void init_remote_threads
PARAMS ((void));
389 /* exported functions */
391 extern int fromhex
PARAMS ((int a
));
393 extern void getpkt
PARAMS ((char *buf
, int forever
));
395 extern int putpkt
PARAMS ((char *buf
));
397 static int putpkt_binary
PARAMS ((char *buf
, int cnt
));
399 void remote_console_output
PARAMS ((char *));
401 static void check_binary_download
PARAMS ((CORE_ADDR addr
));
403 /* Define the target subroutine names */
405 void open_remote_target
PARAMS ((char *, int, struct target_ops
*, int));
407 void _initialize_remote
PARAMS ((void));
411 static struct target_ops remote_ops
;
413 static struct target_ops extended_remote_ops
;
415 static struct target_thread_vector remote_thread_vec
;
417 /* This was 5 seconds, which is a long time to sit and wait.
418 Unless this is going though some terminal server or multiplexer or
419 other form of hairy serial connection, I would think 2 seconds would
422 /* Changed to allow option to set timeout value.
423 was static int remote_timeout = 2; */
424 extern int remote_timeout
;
426 /* This variable chooses whether to send a ^C or a break when the user
427 requests program interruption. Although ^C is usually what remote
428 systems expect, and that is the default here, sometimes a break is
429 preferable instead. */
431 static int remote_break
;
433 /* Has the user attempted to interrupt the target? If so, then offer
434 the user the opportunity to bail out completely if he interrupts
436 static int interrupted_already
= 0;
438 /* Descriptor for I/O to remote machine. Initialize it to NULL so that
439 remote_open knows that we don't have a file open when the program
441 static serial_t remote_desc
= NULL
;
443 /* This variable (available to the user via "set remotebinarydownload")
444 dictates whether downloads are sent in binary (via the 'X' packet).
445 We assume that the stub can, and attempt to do it. This will be cleared if
446 the stub does not understand it. This switch is still needed, though
447 in cases when the packet is supported in the stub, but the connection
448 does not allow it (i.e., 7-bit serial connection only). */
449 static int remote_binary_download
= 1;
451 /* Have we already checked whether binary downloads work? */
452 static int remote_binary_checked
;
454 /* Having this larger than 400 causes us to be incompatible with m68k-stub.c
455 and i386-stub.c. Normally, no one would notice because it only matters
456 for writing large chunks of memory (e.g. in downloads). Also, this needs
457 to be more than 400 if required to hold the registers (see below, where
458 we round it up based on REGISTER_BYTES). */
461 /* Maximum number of bytes to read/write at once. The value here
462 is chosen to fill up a packet (the headers account for the 32). */
463 #define MAXBUFBYTES ((PBUFSIZ-32)/2)
465 /* Round up PBUFSIZ to hold all the registers, at least. */
466 /* The blank line after the #if seems to be required to work around a
467 bug in HP's PA compiler. */
468 #if REGISTER_BYTES > MAXBUFBYTES
471 #define PBUFSIZ (REGISTER_BYTES * 2 + 32)
475 /* This variable sets the number of bytes to be written to the target
476 in a single packet. Normally PBUFSIZ is satisfactory, but some
477 targets need smaller values (perhaps because the receiving end
480 static int remote_write_size
= PBUFSIZ
;
482 /* This variable sets the number of bits in an address that are to be
483 sent in a memory ("M" or "m") packet. Normally, after stripping
484 leading zeros, the entire address would be sent. This variable
485 restricts the address to REMOTE_ADDRESS_SIZE bits. HISTORY: The
486 initial implementation of remote.c restricted the address sent in
487 memory packets to ``host::sizeof long'' bytes - (typically 32
488 bits). Consequently, for 64 bit targets, the upper 32 bits of an
489 address was never sent. Since fixing this bug may cause a break in
490 some remote targets this variable is principly provided to
491 facilitate backward compatibility. */
493 static int remote_address_size
;
495 /* This is the size (in chars) of the first response to the `g' command. This
496 is used to limit the size of the memory read and write commands to prevent
497 stub buffers from overflowing. The size does not include headers and
498 trailers, it is only the payload size. */
500 static int remote_register_buf_size
= 0;
502 /* Should we try the 'P' request? If this is set to one when the stub
503 doesn't support 'P', the only consequence is some unnecessary traffic. */
504 static int stub_supports_P
= 1;
506 /* These are pointers to hook functions that may be set in order to
507 modify resume/wait behavior for a particular architecture. */
509 void (*target_resume_hook
) PARAMS ((void));
510 void (*target_wait_loop_hook
) PARAMS ((void));
514 /* These are the threads which we last sent to the remote system.
515 -1 for all or -2 for not sent yet. */
516 static int general_thread
;
517 static int cont_thread
;
519 /* Call this function as a result of
520 1) A halt indication (T packet) containing a thread id
521 2) A direct query of currthread
522 3) Successful execution of set thread
526 record_currthread (currthread
)
529 #if 0 /* target_wait must not modify inferior_pid! */
530 inferior_pid
= currthread
;
532 general_thread
= currthread
;
533 #if 0 /* setting cont_thread has a different meaning
534 from having the target report its thread id. */
535 cont_thread
= currthread
;
537 /* If this is a new thread, add it to GDB's thread list.
538 If we leave it up to WFI to do this, bad things will happen. */
539 if (!in_thread_list (currthread
))
540 add_thread (currthread
);
543 #define MAGIC_NULL_PID 42000
551 int state
= gen
? general_thread
: cont_thread
;
557 buf
[1] = gen
? 'g' : 'c';
558 if (th
== MAGIC_NULL_PID
)
564 sprintf (&buf
[2], "-%x", -th
);
566 sprintf (&buf
[2], "%x", th
);
575 /* Return nonzero if the thread TH is still alive on the remote system. */
578 remote_thread_alive (th
)
585 sprintf (&buf
[1], "-%08x", -th
);
587 sprintf (&buf
[1], "%08x", th
);
590 return (buf
[0] == 'O' && buf
[1] == 'K');
593 /* About these extended threadlist and threadinfo packets. They are
594 variable length packets but, the fields within them are often fixed
595 length. They are redundent enough to send over UDP as is the
596 remote protocol in general. There is a matching unit test module
599 #define BUF_THREAD_ID_SIZE (OPAQUETHREADBYTES*2)
601 /* encode 64 bits in 16 chars of hex */
603 static const char hexchars
[] = "0123456789abcdef";
610 if ((ch
>= 'a') && (ch
<= 'f'))
612 *val
= ch
- 'a' + 10;
615 if ((ch
>= 'A') && (ch
<= 'F'))
617 *val
= ch
- 'A' + 10;
620 if ((ch
>= '0') && (ch
<= '9'))
632 if (ch
>= 'a' && ch
<= 'f')
633 return ch
- 'a' + 10;
634 if (ch
>= '0' && ch
<= '9')
636 if (ch
>= 'A' && ch
<= 'F')
637 return ch
- 'A' + 10;
642 stub_unpack_int (buff
, fieldlength
)
651 nibble
= stubhex (*buff
++);
655 retval
= retval
<< 4;
661 unpack_varlen_hex (buff
, result
)
662 char *buff
; /* packet to parse */
668 while (ishex (*buff
, &nibble
))
671 retval
= retval
<< 4;
672 retval
|= nibble
& 0x0f;
679 unpack_nibble (buf
, val
)
688 pack_nibble (buf
, nibble
)
692 *buf
++ = hexchars
[(nibble
& 0x0f)];
697 pack_hex_byte (pkt
, byte
)
701 *pkt
++ = hexchars
[(byte
>> 4) & 0xf];
702 *pkt
++ = hexchars
[(byte
& 0xf)];
707 unpack_byte (buf
, value
)
711 *value
= stub_unpack_int (buf
, 2);
716 pack_int (buf
, value
)
720 buf
= pack_hex_byte (buf
, (value
>> 24) & 0xff);
721 buf
= pack_hex_byte (buf
, (value
>> 16) & 0xff);
722 buf
= pack_hex_byte (buf
, (value
>> 8) & 0x0ff);
723 buf
= pack_hex_byte (buf
, (value
& 0xff));
728 unpack_int (buf
, value
)
732 *value
= stub_unpack_int (buf
, 8);
736 #if 0 /* currently unused, uncomment when needed */
737 static char *pack_string
PARAMS ((char *pkt
, char *string
));
740 pack_string (pkt
, string
)
747 len
= strlen (string
);
749 len
= 200; /* Bigger than most GDB packets, junk??? */
750 pkt
= pack_hex_byte (pkt
, len
);
754 if ((ch
== '\0') || (ch
== '#'))
755 ch
= '*'; /* Protect encapsulation */
760 #endif /* 0 (unused) */
763 unpack_string (src
, dest
, length
)
775 pack_threadid (pkt
, id
)
780 unsigned char *altid
;
782 altid
= (unsigned char *) id
;
783 limit
= pkt
+ BUF_THREAD_ID_SIZE
;
785 pkt
= pack_hex_byte (pkt
, *altid
++);
791 unpack_threadid (inbuf
, id
)
796 char *limit
= inbuf
+ BUF_THREAD_ID_SIZE
;
799 altref
= (char *) id
;
801 while (inbuf
< limit
)
803 x
= stubhex (*inbuf
++);
804 y
= stubhex (*inbuf
++);
805 *altref
++ = (x
<< 4) | y
;
810 /* Externally, threadrefs are 64 bits but internally, they are still
811 ints. This is due to a mismatch of specifications. We would like
812 to use 64bit thread references internally. This is an adapter
816 int_to_threadref (id
, value
)
822 scan
= (unsigned char *) id
;
828 *scan
++ = (value
>> 24) & 0xff;
829 *scan
++ = (value
>> 16) & 0xff;
830 *scan
++ = (value
>> 8) & 0xff;
831 *scan
++ = (value
& 0xff);
835 threadref_to_int (ref
)
845 value
= (value
<< 8) | ((*scan
++) & 0xff);
850 copy_threadref (dest
, src
)
855 unsigned char *csrc
, *cdest
;
857 csrc
= (unsigned char *) src
;
858 cdest
= (unsigned char *) dest
;
865 threadmatch (dest
, src
)
869 /* things are broken right now, so just assume we got a match */
871 unsigned char *srcp
, *destp
;
874 destp
= (char *) dest
;
878 result
&= (*srcp
++ == *destp
++) ? 1 : 0;
885 threadid:1, # always request threadid
892 /* Encoding: 'Q':8,'P':8,mask:32,threadid:64 */
895 pack_threadinfo_request (pkt
, mode
, id
)
900 *pkt
++ = 'q'; /* Info Query */
901 *pkt
++ = 'P'; /* process or thread info */
902 pkt
= pack_int (pkt
, mode
); /* mode */
903 pkt
= pack_threadid (pkt
, id
); /* threadid */
904 *pkt
= '\0'; /* terminate */
908 /* These values tag the fields in a thread info response packet */
909 /* Tagging the fields allows us to request specific fields and to
910 add more fields as time goes by */
912 #define TAG_THREADID 1 /* Echo the thread identifier */
913 #define TAG_EXISTS 2 /* Is this process defined enough to
914 fetch registers and its stack */
915 #define TAG_DISPLAY 4 /* A short thing maybe to put on a window */
916 #define TAG_THREADNAME 8 /* string, maps 1-to-1 with a thread is */
917 #define TAG_MOREDISPLAY 16 /* Whatever the kernel wants to say about
921 remote_unpack_thread_info_response (pkt
, expectedref
, info
)
923 threadref
*expectedref
;
924 struct gdb_ext_thread_info
*info
;
929 char *limit
= pkt
+ PBUFSIZ
; /* plausable parsing limit */
932 /* info->threadid = 0; FIXME: implement zero_threadref */
934 info
->display
[0] = '\0';
935 info
->shortname
[0] = '\0';
936 info
->more_display
[0] = '\0';
938 /* Assume the characters indicating the packet type have been stripped */
939 pkt
= unpack_int (pkt
, &mask
); /* arg mask */
940 pkt
= unpack_threadid (pkt
, &ref
);
943 warning ("Incomplete response to threadinfo request\n");
944 if (!threadmatch (&ref
, expectedref
))
945 { /* This is an answer to a different request */
946 warning ("ERROR RMT Thread info mismatch\n");
949 copy_threadref (&info
->threadid
, &ref
);
951 /* Loop on tagged fields , try to bail if somthing goes wrong */
953 while ((pkt
< limit
) && mask
&& *pkt
) /* packets are terminated with nulls */
955 pkt
= unpack_int (pkt
, &tag
); /* tag */
956 pkt
= unpack_byte (pkt
, &length
); /* length */
957 if (!(tag
& mask
)) /* tags out of synch with mask */
959 warning ("ERROR RMT: threadinfo tag mismatch\n");
963 if (tag
== TAG_THREADID
)
967 warning ("ERROR RMT: length of threadid is not 16\n");
971 pkt
= unpack_threadid (pkt
, &ref
);
972 mask
= mask
& ~TAG_THREADID
;
975 if (tag
== TAG_EXISTS
)
977 info
->active
= stub_unpack_int (pkt
, length
);
979 mask
= mask
& ~(TAG_EXISTS
);
982 warning ("ERROR RMT: 'exists' length too long\n");
988 if (tag
== TAG_THREADNAME
)
990 pkt
= unpack_string (pkt
, &info
->shortname
[0], length
);
991 mask
= mask
& ~TAG_THREADNAME
;
994 if (tag
== TAG_DISPLAY
)
996 pkt
= unpack_string (pkt
, &info
->display
[0], length
);
997 mask
= mask
& ~TAG_DISPLAY
;
1000 if (tag
== TAG_MOREDISPLAY
)
1002 pkt
= unpack_string (pkt
, &info
->more_display
[0], length
);
1003 mask
= mask
& ~TAG_MOREDISPLAY
;
1006 warning ("ERROR RMT: unknown thread info tag\n");
1007 break; /* Not a tag we know about */
1013 remote_get_threadinfo (threadid
, fieldset
, info
)
1014 threadref
*threadid
;
1015 int fieldset
; /* TAG mask */
1016 struct gdb_ext_thread_info
*info
;
1019 char threadinfo_pkt
[PBUFSIZ
];
1021 pack_threadinfo_request (threadinfo_pkt
, fieldset
, threadid
);
1022 putpkt (threadinfo_pkt
);
1023 getpkt (threadinfo_pkt
, 0);
1024 result
= remote_unpack_thread_info_response (threadinfo_pkt
+ 2, threadid
,
1029 /* Unfortunately, 61 bit thread-ids are bigger than the internal
1030 representation of a threadid. */
1033 adapt_remote_get_threadinfo (ref
, selection
, info
)
1036 struct gdb_ext_thread_info
*info
;
1040 int_to_threadref (&lclref
, *ref
);
1041 return remote_get_threadinfo (&lclref
, selection
, info
);
1044 /* Format: i'Q':8,i"L":8,initflag:8,batchsize:16,lastthreadid:32 */
1047 pack_threadlist_request (pkt
, startflag
, threadcount
, nextthread
)
1051 threadref
*nextthread
;
1053 *pkt
++ = 'q'; /* info query packet */
1054 *pkt
++ = 'L'; /* Process LIST or threadLIST request */
1055 pkt
= pack_nibble (pkt
, startflag
); /* initflag 1 bytes */
1056 pkt
= pack_hex_byte (pkt
, threadcount
); /* threadcount 2 bytes */
1057 pkt
= pack_threadid (pkt
, nextthread
); /* 64 bit thread identifier */
1062 /* Encoding: 'q':8,'M':8,count:16,done:8,argthreadid:64,(threadid:64)* */
1065 parse_threadlist_response (pkt
, result_limit
, original_echo
, resultlist
,
1069 threadref
*original_echo
;
1070 threadref
*resultlist
;
1074 int count
, resultcount
, done
;
1077 /* Assume the 'q' and 'M chars have been stripped. */
1078 limit
= pkt
+ (PBUFSIZ
- BUF_THREAD_ID_SIZE
); /* done parse past here */
1079 pkt
= unpack_byte (pkt
, &count
); /* count field */
1080 pkt
= unpack_nibble (pkt
, &done
);
1081 /* The first threadid is the argument threadid. */
1082 pkt
= unpack_threadid (pkt
, original_echo
); /* should match query packet */
1083 while ((count
-- > 0) && (pkt
< limit
))
1085 pkt
= unpack_threadid (pkt
, resultlist
++);
1086 if (resultcount
++ >= result_limit
)
1095 remote_get_threadlist (startflag
, nextthread
, result_limit
,
1096 done
, result_count
, threadlist
)
1098 threadref
*nextthread
;
1102 threadref
*threadlist
;
1105 static threadref echo_nextthread
;
1106 char threadlist_packet
[PBUFSIZ
];
1107 char t_response
[PBUFSIZ
];
1110 /* Trancate result limit to be smaller than the packet size */
1111 if ((((result_limit
+ 1) * BUF_THREAD_ID_SIZE
) + 10) >= PBUFSIZ
)
1112 result_limit
= (PBUFSIZ
/ BUF_THREAD_ID_SIZE
) - 2;
1114 pack_threadlist_request (threadlist_packet
,
1115 startflag
, result_limit
, nextthread
);
1116 putpkt (threadlist_packet
);
1117 getpkt (t_response
, 0);
1120 parse_threadlist_response (t_response
+ 2, result_limit
, &echo_nextthread
,
1123 if (!threadmatch (&echo_nextthread
, nextthread
))
1125 /* FIXME: This is a good reason to drop the packet */
1126 /* Possably, there is a duplicate response */
1128 retransmit immediatly - race conditions
1129 retransmit after timeout - yes
1131 wait for packet, then exit
1133 warning ("HMM: threadlist did not echo arg thread, dropping it\n");
1134 return 0; /* I choose simply exiting */
1136 if (*result_count
<= 0)
1140 warning ("RMT ERROR : failed to get remote thread list\n");
1143 return result
; /* break; */
1145 if (*result_count
> result_limit
)
1148 warning ("RMT ERROR: threadlist response longer than requested\n");
1154 /* This is the interface between remote and threads, remotes upper interface */
1156 /* remote_find_new_threads retrieves the thread list and for each
1157 thread in the list, looks up the thread in GDB's internal list,
1158 ading the thread if it does not already exist. This involves
1159 getting partial thread lists from the remote target so, polling the
1160 quit_flag is required. */
1163 /* About this many threadisds fit in a packet. */
1165 #define MAXTHREADLISTRESULTS 32
1168 remote_threadlist_iterator (stepfunction
, context
, looplimit
)
1169 rmt_thread_action stepfunction
;
1173 int done
, i
, result_count
;
1177 static threadref nextthread
;
1178 static threadref resultthreadlist
[MAXTHREADLISTRESULTS
];
1183 if (loopcount
++ > looplimit
)
1186 warning ("Remote fetch threadlist -infinite loop-\n");
1189 if (!remote_get_threadlist (startflag
, &nextthread
, MAXTHREADLISTRESULTS
,
1190 &done
, &result_count
, resultthreadlist
))
1195 /* clear for later iterations */
1197 /* Setup to resume next batch of thread references, set nextthread. */
1198 if (result_count
>= 1)
1199 copy_threadref (&nextthread
, &resultthreadlist
[result_count
- 1]);
1201 while (result_count
--)
1202 if (!(result
= (*stepfunction
) (&resultthreadlist
[i
++], context
)))
1209 remote_newthread_step (ref
, context
)
1215 pid
= threadref_to_int (ref
);
1216 if (!in_thread_list (pid
))
1218 return 1; /* continue iterator */
1221 #define CRAZY_MAX_THREADS 1000
1224 remote_current_thread (oldpid
)
1231 if (buf
[0] == 'Q' && buf
[1] == 'C')
1232 return strtol (&buf
[2], NULL
, 16);
1238 remote_find_new_threads ()
1242 ret
= remote_threadlist_iterator (remote_newthread_step
, 0,
1244 if (inferior_pid
== MAGIC_NULL_PID
) /* ack ack ack */
1245 inferior_pid
= remote_current_thread (inferior_pid
);
1249 /* Initialize the thread vector which is used by threads.c */
1250 /* The thread stub is a package, it has an initializer */
1253 init_remote_threads ()
1255 remote_thread_vec
.find_new_threads
= remote_find_new_threads
;
1256 remote_thread_vec
.get_thread_info
= adapt_remote_get_threadinfo
;
1260 /* Restart the remote side; this is an extended protocol operation. */
1263 extended_remote_restart ()
1267 /* Send the restart command; for reasons I don't understand the
1268 remote side really expects a number after the "R". */
1270 sprintf (&buf
[1], "%x", 0);
1273 /* Now query for status so this looks just like we restarted
1274 gdbserver from scratch. */
1279 /* Clean up connection to a remote debugger. */
1283 remote_close (quitting
)
1287 SERIAL_CLOSE (remote_desc
);
1291 /* Query the remote side for the text, data and bss offsets. */
1296 char buf
[PBUFSIZ
], *ptr
;
1298 CORE_ADDR text_addr
, data_addr
, bss_addr
;
1299 struct section_offsets
*offs
;
1301 putpkt ("qOffsets");
1305 if (buf
[0] == '\000')
1306 return; /* Return silently. Stub doesn't support
1310 warning ("Remote failure reply: %s", buf
);
1314 /* Pick up each field in turn. This used to be done with scanf, but
1315 scanf will make trouble if CORE_ADDR size doesn't match
1316 conversion directives correctly. The following code will work
1317 with any size of CORE_ADDR. */
1318 text_addr
= data_addr
= bss_addr
= 0;
1322 if (strncmp (ptr
, "Text=", 5) == 0)
1325 /* Don't use strtol, could lose on big values. */
1326 while (*ptr
&& *ptr
!= ';')
1327 text_addr
= (text_addr
<< 4) + fromhex (*ptr
++);
1332 if (!lose
&& strncmp (ptr
, ";Data=", 6) == 0)
1335 while (*ptr
&& *ptr
!= ';')
1336 data_addr
= (data_addr
<< 4) + fromhex (*ptr
++);
1341 if (!lose
&& strncmp (ptr
, ";Bss=", 5) == 0)
1344 while (*ptr
&& *ptr
!= ';')
1345 bss_addr
= (bss_addr
<< 4) + fromhex (*ptr
++);
1351 error ("Malformed response to offset query, %s", buf
);
1353 if (symfile_objfile
== NULL
)
1356 offs
= (struct section_offsets
*) alloca (sizeof (struct section_offsets
)
1357 + symfile_objfile
->num_sections
1358 * sizeof (offs
->offsets
));
1359 memcpy (offs
, symfile_objfile
->section_offsets
,
1360 sizeof (struct section_offsets
)
1361 + symfile_objfile
->num_sections
1362 * sizeof (offs
->offsets
));
1364 ANOFFSET (offs
, SECT_OFF_TEXT
) = text_addr
;
1366 /* This is a temporary kludge to force data and bss to use the same offsets
1367 because that's what nlmconv does now. The real solution requires changes
1368 to the stub and remote.c that I don't have time to do right now. */
1370 ANOFFSET (offs
, SECT_OFF_DATA
) = data_addr
;
1371 ANOFFSET (offs
, SECT_OFF_BSS
) = data_addr
;
1373 objfile_relocate (symfile_objfile
, offs
);
1376 /* Stub for catch_errors. */
1379 remote_start_remote (dummy
)
1382 immediate_quit
= 1; /* Allow user to interrupt it */
1384 /* Ack any packet which the remote side has already sent. */
1385 SERIAL_WRITE (remote_desc
, "+", 1);
1387 /* Let the stub know that we want it to return the thread. */
1390 inferior_pid
= remote_current_thread (inferior_pid
);
1392 get_offsets (); /* Get text, data & bss offsets */
1394 putpkt ("?"); /* initiate a query from remote machine */
1397 start_remote (); /* Initialize gdb process mechanisms */
1401 /* Open a connection to a remote debugger.
1402 NAME is the filename used for communication. */
1405 remote_open (name
, from_tty
)
1409 remote_open_1 (name
, from_tty
, &remote_ops
, 0);
1412 /* Open a connection to a remote debugger using the extended
1413 remote gdb protocol. NAME is the filename used for communication. */
1416 extended_remote_open (name
, from_tty
)
1420 remote_open_1 (name
, from_tty
, &extended_remote_ops
, 1/*extended_p*/);
1423 /* Generic code for opening a connection to a remote target. */
1425 static DCACHE
*remote_dcache
;
1428 remote_open_1 (name
, from_tty
, target
, extended_p
)
1431 struct target_ops
*target
;
1435 error ("To open a remote debug connection, you need to specify what\n\
1436 serial device is attached to the remote system (e.g. /dev/ttya).");
1438 target_preopen (from_tty
);
1440 unpush_target (target
);
1442 remote_dcache
= dcache_init (remote_read_bytes
, remote_write_bytes
);
1444 remote_desc
= SERIAL_OPEN (name
);
1446 perror_with_name (name
);
1448 if (baud_rate
!= -1)
1450 if (SERIAL_SETBAUDRATE (remote_desc
, baud_rate
))
1452 SERIAL_CLOSE (remote_desc
);
1453 perror_with_name (name
);
1458 SERIAL_RAW (remote_desc
);
1460 /* If there is something sitting in the buffer we might take it as a
1461 response to a command, which would be bad. */
1462 SERIAL_FLUSH_INPUT (remote_desc
);
1466 puts_filtered ("Remote debugging using ");
1467 puts_filtered (name
);
1468 puts_filtered ("\n");
1470 push_target (target
); /* Switch to using remote target now */
1472 /* The target vector does not have the thread functions in it yet,
1473 so we use this function to call back into the thread module and
1474 register the thread vector and its contained functions. */
1475 bind_target_thread_vector (&remote_thread_vec
);
1477 /* Start out by trying the 'P' request to set registers. We set
1478 this each time that we open a new target so that if the user
1479 switches from one stub to another, we can (if the target is
1480 closed and reopened) cope. */
1481 stub_supports_P
= 1;
1483 general_thread
= -2;
1486 /* Force remote_write_bytes to check whether target supports
1487 binary downloading. */
1488 remote_binary_checked
= 0;
1490 /* Without this, some commands which require an active target (such
1491 as kill) won't work. This variable serves (at least) double duty
1492 as both the pid of the target process (if it has such), and as a
1493 flag indicating that a target is active. These functions should
1494 be split out into seperate variables, especially since GDB will
1495 someday have a notion of debugging several processes. */
1497 inferior_pid
= MAGIC_NULL_PID
;
1498 /* Start the remote connection; if error (0), discard this target.
1499 In particular, if the user quits, be sure to discard it
1500 (we'd be in an inconsistent state otherwise). */
1501 if (!catch_errors (remote_start_remote
, NULL
,
1502 "Couldn't establish connection to remote target\n",
1511 /* tell the remote that we're using the extended protocol. */
1518 /* This takes a program previously attached to and detaches it. After
1519 this is done, GDB can be used to debug some other program. We
1520 better not have left any breakpoints in the target program or it'll
1521 die when it hits one. */
1524 remote_detach (args
, from_tty
)
1531 error ("Argument given to \"detach\" when remotely debugging.");
1533 /* Tell the remote target to detach. */
1539 puts_filtered ("Ending remote debugging.\n");
1542 /* Convert hex digit A to a number. */
1548 if (a
>= '0' && a
<= '9')
1550 else if (a
>= 'a' && a
<= 'f')
1551 return a
- 'a' + 10;
1552 else if (a
>= 'A' && a
<= 'F')
1553 return a
- 'A' + 10;
1555 error ("Reply contains invalid hex digit %d", a
);
1558 /* Convert number NIB to a hex digit. */
1570 /* Tell the remote machine to resume. */
1572 static enum target_signal last_sent_signal
= TARGET_SIGNAL_0
;
1574 static int last_sent_step
;
1577 remote_resume (pid
, step
, siggnal
)
1579 enum target_signal siggnal
;
1584 set_thread (0, 0); /* run any thread */
1586 set_thread (pid
, 0); /* run this thread */
1588 dcache_flush (remote_dcache
);
1590 last_sent_signal
= siggnal
;
1591 last_sent_step
= step
;
1593 /* A hook for when we need to do something at the last moment before
1595 if (target_resume_hook
)
1596 (*target_resume_hook
) ();
1598 if (siggnal
!= TARGET_SIGNAL_0
)
1600 buf
[0] = step
? 'S' : 'C';
1601 buf
[1] = tohex (((int)siggnal
>> 4) & 0xf);
1602 buf
[2] = tohex ((int)siggnal
& 0xf);
1606 strcpy (buf
, step
? "s": "c");
1611 /* Send ^C to target to halt it. Target will respond, and send us a
1614 static void (*ofunc
) PARAMS ((int));
1617 remote_interrupt (signo
)
1621 signal (signo
, remote_interrupt
);
1627 if (!interrupted_already
)
1629 /* Send a break or a ^C, depending on user preference. */
1630 interrupted_already
= 1;
1633 printf_unfiltered ("remote_stop called\n");
1636 SERIAL_SEND_BREAK (remote_desc
);
1638 SERIAL_WRITE (remote_desc
, "\003", 1);
1642 signal (SIGINT
, ofunc
);
1644 signal (SIGINT
, remote_interrupt
);
1645 interrupted_already
= 0;
1649 /* Ask the user what to do when an interrupt is received. */
1654 target_terminal_ours ();
1656 if (query ("Interrupted while waiting for the program.\n\
1657 Give up (and stop debugging it)? "))
1659 target_mourn_inferior ();
1660 return_to_top_level (RETURN_QUIT
);
1663 target_terminal_inferior ();
1666 /* If nonzero, ignore the next kill. */
1671 remote_console_output (msg
)
1676 for (p
= msg
; *p
; p
+=2)
1679 char c
= fromhex (p
[0]) * 16 + fromhex (p
[1]);
1682 if (target_output_hook
)
1683 target_output_hook (tb
);
1685 fputs_filtered (tb
, gdb_stdout
);
1689 /* Wait until the remote machine stops, then return, storing status in
1690 STATUS just as `wait' would. Returns "pid" (though it's not clear
1691 what, if anything, that means in the case of this target). */
1694 remote_wait (pid
, status
)
1696 struct target_waitstatus
*status
;
1698 unsigned char buf
[PBUFSIZ
];
1699 int thread_num
= -1;
1701 status
->kind
= TARGET_WAITKIND_EXITED
;
1702 status
->value
.integer
= 0;
1708 interrupted_already
= 0;
1709 ofunc
= signal (SIGINT
, remote_interrupt
);
1710 getpkt ((char *) buf
, 1);
1711 signal (SIGINT
, ofunc
);
1713 /* This is a hook for when we need to do something (perhaps the
1714 collection of trace data) every time the target stops. */
1715 if (target_wait_loop_hook
)
1716 (*target_wait_loop_hook
) ();
1720 case 'E': /* Error of some sort */
1721 warning ("Remote failure reply: %s", buf
);
1723 case 'T': /* Status with PC, SP, FP, ... */
1727 char regs
[MAX_REGISTER_RAW_SIZE
];
1729 /* Expedited reply, containing Signal, {regno, reg} repeat */
1730 /* format is: 'Tssn...:r...;n...:r...;n...:r...;#cc', where
1732 n... = register number
1733 r... = register contents
1735 p
= &buf
[3]; /* after Txx */
1742 /* Read the register number */
1743 regno
= strtol ((const char *) p
, &p_temp
, 16);
1744 p1
= (unsigned char *)p_temp
;
1746 if (p1
== p
) /* No register number present here */
1748 p1
= (unsigned char *) strchr ((const char *) p
, ':');
1750 warning ("Malformed packet(a) (missing colon): %s\n\
1753 if (strncmp ((const char *) p
, "thread", p1
- p
) == 0)
1755 p_temp
= unpack_varlen_hex (++p1
, &thread_num
);
1756 record_currthread (thread_num
);
1757 p
= (unsigned char *) p_temp
;
1765 warning ("Malformed packet(b) (missing colon): %s\n\
1769 if (regno
>= NUM_REGS
)
1770 warning ("Remote sent bad register number %ld: %s\n\
1774 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
++)
1776 if (p
[0] == 0 || p
[1] == 0)
1777 warning ("Remote reply is too short: %s", buf
);
1778 regs
[i
] = fromhex (p
[0]) * 16 + fromhex (p
[1]);
1781 supply_register (regno
, regs
);
1786 warning ("Remote register badly formatted: %s", buf
);
1787 warning (" here: %s",p
);
1792 case 'S': /* Old style status, just signal only */
1793 status
->kind
= TARGET_WAITKIND_STOPPED
;
1794 status
->value
.sig
= (enum target_signal
)
1795 (((fromhex (buf
[1])) << 4) + (fromhex (buf
[2])));
1798 case 'W': /* Target exited */
1800 /* The remote process exited. */
1801 status
->kind
= TARGET_WAITKIND_EXITED
;
1802 status
->value
.integer
= (fromhex (buf
[1]) << 4) + fromhex (buf
[2]);
1806 status
->kind
= TARGET_WAITKIND_SIGNALLED
;
1807 status
->value
.sig
= (enum target_signal
)
1808 (((fromhex (buf
[1])) << 4) + (fromhex (buf
[2])));
1812 case 'O': /* Console output */
1813 remote_console_output (buf
+ 1);
1816 if (last_sent_signal
!= TARGET_SIGNAL_0
)
1818 /* Zero length reply means that we tried 'S' or 'C' and
1819 the remote system doesn't support it. */
1820 target_terminal_ours_for_output ();
1822 ("Can't send signals to this remote system. %s not sent.\n",
1823 target_signal_to_name (last_sent_signal
));
1824 last_sent_signal
= TARGET_SIGNAL_0
;
1825 target_terminal_inferior ();
1827 strcpy ((char *) buf
, last_sent_step
? "s" : "c");
1828 putpkt ((char *) buf
);
1831 /* else fallthrough */
1833 warning ("Invalid remote reply: %s", buf
);
1838 if (thread_num
!= -1)
1840 /* Initial thread value can only be acquired via wait, so deal with
1841 this marker which is used before the first thread value is
1843 if (inferior_pid
== MAGIC_NULL_PID
)
1845 inferior_pid
= thread_num
;
1846 if (!in_thread_list (inferior_pid
))
1847 add_thread (inferior_pid
);
1851 return inferior_pid
;
1854 /* Number of bytes of registers this stub implements. */
1856 static int register_bytes_found
;
1858 /* Read the remote registers into the block REGS. */
1859 /* Currently we just read all the registers, so we don't use regno. */
1863 remote_fetch_registers (regno
)
1869 char regs
[REGISTER_BYTES
];
1871 set_thread (inferior_pid
, 1);
1876 if (remote_register_buf_size
== 0)
1877 remote_register_buf_size
= strlen (buf
);
1879 /* Unimplemented registers read as all bits zero. */
1880 memset (regs
, 0, REGISTER_BYTES
);
1882 /* We can get out of synch in various cases. If the first character
1883 in the buffer is not a hex character, assume that has happened
1884 and try to fetch another packet to read. */
1885 while ((buf
[0] < '0' || buf
[0] > '9')
1886 && (buf
[0] < 'a' || buf
[0] > 'f')
1887 && buf
[0] != 'x') /* New: unavailable register value */
1890 printf_unfiltered ("Bad register packet; fetching a new packet\n");
1894 /* Reply describes registers byte by byte, each byte encoded as two
1895 hex characters. Suck them all up, then supply them to the
1896 register cacheing/storage mechanism. */
1899 for (i
= 0; i
< REGISTER_BYTES
; i
++)
1905 warning ("Remote reply is of odd length: %s", buf
);
1906 /* Don't change register_bytes_found in this case, and don't
1907 print a second warning. */
1910 if (p
[0] == 'x' && p
[1] == 'x')
1911 regs
[i
] = 0; /* 'x' */
1913 regs
[i
] = fromhex (p
[0]) * 16 + fromhex (p
[1]);
1917 if (i
!= register_bytes_found
)
1919 register_bytes_found
= i
;
1920 #ifdef REGISTER_BYTES_OK
1921 if (!REGISTER_BYTES_OK (i
))
1922 warning ("Remote reply is too short: %s", buf
);
1927 for (i
= 0; i
< NUM_REGS
; i
++)
1929 supply_register (i
, ®s
[REGISTER_BYTE(i
)]);
1930 if (buf
[REGISTER_BYTE(i
) * 2] == 'x')
1931 register_valid
[i
] = -1; /* register value not available */
1935 /* Prepare to store registers. Since we may send them all (using a
1936 'G' request), we have to read out the ones we don't want to change
1940 remote_prepare_to_store ()
1942 /* Make sure the entire registers array is valid. */
1943 read_register_bytes (0, (char *)NULL
, REGISTER_BYTES
);
1946 /* Store register REGNO, or all registers if REGNO == -1, from the contents
1947 of REGISTERS. FIXME: ignores errors. */
1950 remote_store_registers (regno
)
1957 set_thread (inferior_pid
, 1);
1959 if (regno
>= 0 && stub_supports_P
)
1961 /* Try storing a single register. */
1964 sprintf (buf
, "P%x=", regno
);
1965 p
= buf
+ strlen (buf
);
1966 regp
= ®isters
[REGISTER_BYTE (regno
)];
1967 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); ++i
)
1969 *p
++ = tohex ((regp
[i
] >> 4) & 0xf);
1970 *p
++ = tohex (regp
[i
] & 0xf);
1976 /* The stub understands the 'P' request. We are done. */
1980 /* The stub does not support the 'P' request. Use 'G' instead,
1981 and don't try using 'P' in the future (it will just waste our
1983 stub_supports_P
= 0;
1988 /* Command describes registers byte by byte,
1989 each byte encoded as two hex characters. */
1992 /* remote_prepare_to_store insures that register_bytes_found gets set. */
1993 for (i
= 0; i
< register_bytes_found
; i
++)
1995 *p
++ = tohex ((registers
[i
] >> 4) & 0xf);
1996 *p
++ = tohex (registers
[i
] & 0xf);
2003 /* Use of the data cache *used* to be disabled because it loses for looking
2004 at and changing hardware I/O ports and the like. Accepting `volatile'
2005 would perhaps be one way to fix it. Another idea would be to use the
2006 executable file for the text segment (for all SEC_CODE sections?
2007 For all SEC_READONLY sections?). This has problems if you want to
2008 actually see what the memory contains (e.g. self-modifying code,
2009 clobbered memory, user downloaded the wrong thing).
2011 Because it speeds so much up, it's now enabled, if you're playing
2012 with registers you turn it of (set remotecache 0). */
2014 /* Read a word from remote address ADDR and return it.
2015 This goes through the data cache. */
2019 remote_fetch_word (addr
)
2022 return dcache_fetch (remote_dcache
, addr
);
2025 /* Write a word WORD into remote address ADDR.
2026 This goes through the data cache. */
2029 remote_store_word (addr
, word
)
2033 dcache_poke (remote_dcache
, addr
, word
);
2035 #endif /* 0 (unused?) */
2039 /* Return the number of hex digits in num. */
2047 for (i
= 0; num
!= 0; i
++)
2053 /* Set BUF to the hex digits representing NUM. */
2056 hexnumstr (buf
, num
)
2061 int len
= hexnumlen (num
);
2065 for (i
= len
- 1; i
>= 0; i
--)
2067 buf
[i
] = "0123456789abcdef" [(num
& 0xf)];
2074 /* Mask all but the least significant REMOTE_ADDRESS_SIZE bits. */
2077 remote_address_masked (addr
)
2080 if (remote_address_size
> 0
2081 && remote_address_size
< (sizeof (ULONGEST
) * 8))
2083 /* Only create a mask when that mask can safely be constructed
2084 in a ULONGEST variable. */
2086 mask
= (mask
<< remote_address_size
) - 1;
2092 /* Determine whether the remote target supports binary downloading.
2093 This is accomplished by sending a no-op memory write of zero length
2094 to the target at the specified address. It does not suffice to send
2095 the whole packet, since many stubs strip the eighth bit and subsequently
2096 compute a wrong checksum, which causes real havoc with remote_write_bytes. */
2098 check_binary_download (addr
)
2101 if (remote_binary_download
&& !remote_binary_checked
)
2103 char buf
[PBUFSIZ
], *p
;
2104 remote_binary_checked
= 1;
2108 p
+= hexnumstr (p
, (ULONGEST
) addr
);
2110 p
+= hexnumstr (p
, (ULONGEST
) 0);
2114 putpkt_binary (buf
, (int) (p
- buf
));
2118 remote_binary_download
= 0;
2123 if (remote_binary_download
)
2124 printf_unfiltered ("binary downloading suppported by target\n");
2126 printf_unfiltered ("binary downloading NOT suppported by target\n");
2130 /* Write memory data directly to the remote machine.
2131 This does not inform the data cache; the data cache uses this.
2132 MEMADDR is the address in the remote memory space.
2133 MYADDR is the address of the buffer in our space.
2134 LEN is the number of bytes.
2136 Returns number of bytes transferred, or 0 for error. */
2139 remote_write_bytes (memaddr
, myaddr
, len
)
2144 int max_buf_size
; /* Max size of packet output buffer */
2147 /* Verify that the target can support a binary download */
2148 check_binary_download (memaddr
);
2150 /* Chop the transfer down if necessary */
2152 max_buf_size
= min (remote_write_size
, PBUFSIZ
);
2153 if (remote_register_buf_size
!= 0)
2154 max_buf_size
= min (max_buf_size
, remote_register_buf_size
);
2156 /* Subtract header overhead from max payload size - $M<memaddr>,<len>:#nn */
2157 max_buf_size
-= 2 + hexnumlen (memaddr
+ len
- 1) + 1 + hexnumlen (len
) + 4;
2162 unsigned char buf
[PBUFSIZ
];
2163 unsigned char *p
, *plen
;
2167 /* construct "M"<memaddr>","<len>":" */
2168 /* sprintf (buf, "M%lx,%x:", (unsigned long) memaddr, todo); */
2169 memaddr
= remote_address_masked (memaddr
);
2171 if (remote_binary_download
)
2174 todo
= min (len
, max_buf_size
);
2179 todo
= min (len
, max_buf_size
/ 2); /* num bytes that will fit */
2182 p
+= hexnumstr (p
, (ULONGEST
) memaddr
);
2185 plen
= p
; /* remember where len field goes */
2186 p
+= hexnumstr (p
, (ULONGEST
) todo
);
2190 /* We send target system values byte by byte, in increasing byte
2191 addresses, each byte encoded as two hex characters (or one
2192 binary character). */
2193 if (remote_binary_download
)
2197 (i
< todo
) && (i
+ escaped
) < (max_buf_size
- 2);
2200 switch (myaddr
[i
] & 0xff)
2205 /* These must be escaped */
2208 *p
++ = (myaddr
[i
] & 0xff) ^ 0x20;
2211 *p
++ = myaddr
[i
] & 0xff;
2218 /* Escape chars have filled up the buffer prematurely,
2219 and we have actually sent fewer bytes than planned.
2220 Fix-up the length field of the packet. */
2222 /* FIXME: will fail if new len is a shorter string than
2225 plen
+= hexnumstr (plen
, (ULONGEST
) i
);
2231 for (i
= 0; i
< todo
; i
++)
2233 *p
++ = tohex ((myaddr
[i
] >> 4) & 0xf);
2234 *p
++ = tohex (myaddr
[i
] & 0xf);
2239 putpkt_binary (buf
, (int) (p
- buf
));
2244 /* There is no correspondance between what the remote protocol uses
2245 for errors and errno codes. We would like a cleaner way of
2246 representing errors (big enough to include errno codes, bfd_error
2247 codes, and others). But for now just return EIO. */
2252 /* Increment by i, not by todo, in case escape chars
2253 caused us to send fewer bytes than we'd planned. */
2261 /* Read memory data directly from the remote machine.
2262 This does not use the data cache; the data cache uses this.
2263 MEMADDR is the address in the remote memory space.
2264 MYADDR is the address of the buffer in our space.
2265 LEN is the number of bytes.
2267 Returns number of bytes transferred, or 0 for error. */
2270 remote_read_bytes (memaddr
, myaddr
, len
)
2275 int max_buf_size
; /* Max size of packet output buffer */
2278 /* Chop the transfer down if necessary */
2280 max_buf_size
= min (remote_write_size
, PBUFSIZ
);
2281 if (remote_register_buf_size
!= 0)
2282 max_buf_size
= min (max_buf_size
, remote_register_buf_size
);
2292 todo
= min (len
, max_buf_size
/ 2); /* num bytes that will fit */
2294 /* construct "m"<memaddr>","<len>" */
2295 /* sprintf (buf, "m%lx,%x", (unsigned long) memaddr, todo); */
2296 memaddr
= remote_address_masked (memaddr
);
2299 p
+= hexnumstr (p
, (ULONGEST
) memaddr
);
2301 p
+= hexnumstr (p
, (ULONGEST
) todo
);
2309 /* There is no correspondance between what the remote protocol uses
2310 for errors and errno codes. We would like a cleaner way of
2311 representing errors (big enough to include errno codes, bfd_error
2312 codes, and others). But for now just return EIO. */
2317 /* Reply describes memory byte by byte,
2318 each byte encoded as two hex characters. */
2321 for (i
= 0; i
< todo
; i
++)
2323 if (p
[0] == 0 || p
[1] == 0)
2324 /* Reply is short. This means that we were able to read
2325 only part of what we wanted to. */
2326 return i
+ (origlen
- len
);
2327 myaddr
[i
] = fromhex (p
[0]) * 16 + fromhex (p
[1]);
2337 /* Read or write LEN bytes from inferior memory at MEMADDR,
2338 transferring to or from debugger address MYADDR. Write to inferior
2339 if SHOULD_WRITE is nonzero. Returns length of data written or
2340 read; 0 for error. */
2344 remote_xfer_memory (memaddr
, myaddr
, len
, should_write
, target
)
2349 struct target_ops
*target
; /* ignored */
2351 #ifdef REMOTE_TRANSLATE_XFER_ADDRESS
2354 REMOTE_TRANSLATE_XFER_ADDRESS (memaddr
, len
, targaddr
, targlen
);
2361 return dcache_xfer_memory (remote_dcache
, memaddr
, myaddr
,
2367 /* Enable after 4.12. */
2370 remote_search (len
, data
, mask
, startaddr
, increment
, lorange
, hirange
2371 addr_found
, data_found
)
2375 CORE_ADDR startaddr
;
2379 CORE_ADDR
*addr_found
;
2382 if (increment
== -4 && len
== 4)
2384 long mask_long
, data_long
;
2385 long data_found_long
;
2386 CORE_ADDR addr_we_found
;
2388 long returned_long
[2];
2391 mask_long
= extract_unsigned_integer (mask
, len
);
2392 data_long
= extract_unsigned_integer (data
, len
);
2393 sprintf (buf
, "t%x:%x,%x", startaddr
, data_long
, mask_long
);
2398 /* The stub doesn't support the 't' request. We might want to
2399 remember this fact, but on the other hand the stub could be
2400 switched on us. Maybe we should remember it only until
2401 the next "target remote". */
2402 generic_search (len
, data
, mask
, startaddr
, increment
, lorange
,
2403 hirange
, addr_found
, data_found
);
2408 /* There is no correspondance between what the remote protocol uses
2409 for errors and errno codes. We would like a cleaner way of
2410 representing errors (big enough to include errno codes, bfd_error
2411 codes, and others). But for now just use EIO. */
2412 memory_error (EIO
, startaddr
);
2415 while (*p
!= '\0' && *p
!= ',')
2416 addr_we_found
= (addr_we_found
<< 4) + fromhex (*p
++);
2418 error ("Protocol error: short return for search");
2420 data_found_long
= 0;
2421 while (*p
!= '\0' && *p
!= ',')
2422 data_found_long
= (data_found_long
<< 4) + fromhex (*p
++);
2423 /* Ignore anything after this comma, for future extensions. */
2425 if (addr_we_found
< lorange
|| addr_we_found
>= hirange
)
2431 *addr_found
= addr_we_found
;
2432 *data_found
= store_unsigned_integer (data_we_found
, len
);
2435 generic_search (len
, data
, mask
, startaddr
, increment
, lorange
,
2436 hirange
, addr_found
, data_found
);
2441 remote_files_info (ignore
)
2442 struct target_ops
*ignore
;
2444 puts_filtered ("Debugging a target over a serial line.\n");
2447 /* Stuff for dealing with the packets which are part of this protocol.
2448 See comment at top of file for details. */
2450 /* Read a single character from the remote end, masking it down to 7 bits. */
2458 ch
= SERIAL_READCHAR (remote_desc
, timeout
);
2463 error ("Remote connection closed");
2465 perror_with_name ("Remote communication error");
2466 case SERIAL_TIMEOUT
:
2473 /* Send the command in BUF to the remote machine, and read the reply
2474 into BUF. Report an error if we get an error reply. */
2484 error ("Remote failure reply: %s", buf
);
2487 /* Display a null-terminated packet on stdout, for debugging, using C
2494 puts_filtered ("\"");
2496 gdb_printchar (*buf
++, gdb_stdout
, '"');
2497 puts_filtered ("\"");
2504 return putpkt_binary (buf
, strlen (buf
));
2507 /* Send a packet to the remote machine, with error checking. The data
2508 of the packet is in BUF. The string in BUF can be at most PBUFSIZ - 5
2509 to account for the $, # and checksum, and for a possible /0 if we are
2510 debugging (remote_debug) and want to print the sent packet as a string */
2513 putpkt_binary (buf
, cnt
)
2518 unsigned char csum
= 0;
2524 /* Copy the packet into buffer BUF2, encapsulating it
2525 and giving it a checksum. */
2527 if (cnt
> (int) sizeof (buf2
) - 5) /* Prosanity check */
2533 for (i
= 0; i
< cnt
; i
++)
2539 *p
++ = tohex ((csum
>> 4) & 0xf);
2540 *p
++ = tohex (csum
& 0xf);
2542 /* Send it over and over until we get a positive ack. */
2546 int started_error_output
= 0;
2551 printf_unfiltered ("Sending packet: %s...", buf2
);
2552 gdb_flush (gdb_stdout
);
2554 if (SERIAL_WRITE (remote_desc
, buf2
, p
- buf2
))
2555 perror_with_name ("putpkt: write failed");
2557 /* read until either a timeout occurs (-2) or '+' is read */
2560 ch
= readchar (remote_timeout
);
2567 case SERIAL_TIMEOUT
:
2569 if (started_error_output
)
2571 putchar_unfiltered ('\n');
2572 started_error_output
= 0;
2581 printf_unfiltered ("Ack\n");
2583 case SERIAL_TIMEOUT
:
2587 break; /* Retransmit buffer */
2590 char junkbuf
[PBUFSIZ
];
2592 /* It's probably an old response, and we're out of sync.
2593 Just gobble up the packet and ignore it. */
2594 getpkt (junkbuf
, 0);
2595 continue; /* Now, go look for + */
2600 if (!started_error_output
)
2602 started_error_output
= 1;
2603 printf_unfiltered ("putpkt: Junk: ");
2605 putchar_unfiltered (ch
& 0177);
2609 break; /* Here to retransmit */
2613 /* This is wrong. If doing a long backtrace, the user should be
2614 able to get out next time we call QUIT, without anything as
2615 violent as interrupt_query. If we want to provide a way out of
2616 here without getting to the next QUIT, it should be based on
2617 hitting ^C twice as in remote_wait. */
2627 /* Come here after finding the start of the frame. Collect the rest
2628 into BUF, verifying the checksum, length, and handling run-length
2629 compression. Returns 0 on any error, 1 on success. */
2644 c
= readchar (remote_timeout
);
2648 case SERIAL_TIMEOUT
:
2650 puts_filtered ("Timeout in mid-packet, retrying\n");
2654 puts_filtered ("Saw new packet start in middle of old one\n");
2655 return 0; /* Start a new packet, count retries */
2658 unsigned char pktcsum
;
2662 pktcsum
= fromhex (readchar (remote_timeout
)) << 4;
2663 pktcsum
|= fromhex (readchar (remote_timeout
));
2665 if (csum
== pktcsum
)
2670 printf_filtered ("Bad checksum, sentsum=0x%x, csum=0x%x, buf=",
2672 puts_filtered (buf
);
2673 puts_filtered ("\n");
2677 case '*': /* Run length encoding */
2679 c
= readchar (remote_timeout
);
2681 c
= c
- ' ' + 3; /* Compute repeat count */
2684 if (c
> 0 && c
< 255 && bp
+ c
- 1 < buf
+ PBUFSIZ
- 1)
2686 memset (bp
, *(bp
- 1), c
);
2692 printf_filtered ("Repeat count %d too large for buffer: ", c
);
2693 puts_filtered (buf
);
2694 puts_filtered ("\n");
2698 if (bp
< buf
+ PBUFSIZ
- 1)
2706 puts_filtered ("Remote packet too long: ");
2707 puts_filtered (buf
);
2708 puts_filtered ("\n");
2715 /* Read a packet from the remote machine, with error checking, and
2716 store it in BUF. BUF is expected to be of size PBUFSIZ. If
2717 FOREVER, wait forever rather than timing out; this is used while
2718 the target is executing user code. */
2721 getpkt (buf
, forever
)
2730 strcpy (buf
,"timeout");
2734 #ifdef MAINTENANCE_CMDS
2735 timeout
= watchdog
> 0 ? watchdog
: -1;
2742 timeout
= remote_timeout
;
2746 for (tries
= 1; tries
<= MAX_TRIES
; tries
++)
2748 /* This can loop forever if the remote side sends us characters
2749 continuously, but if it pauses, we'll get a zero from readchar
2750 because of timeout. Then we'll count that as a retry. */
2752 /* Note that we will only wait forever prior to the start of a packet.
2753 After that, we expect characters to arrive at a brisk pace. They
2754 should show up within remote_timeout intervals. */
2758 c
= readchar (timeout
);
2760 if (c
== SERIAL_TIMEOUT
)
2762 #ifdef MAINTENANCE_CMDS
2763 if (forever
) /* Watchdog went off. Kill the target. */
2765 target_mourn_inferior ();
2766 error ("Watchdog has expired. Target detached.\n");
2770 puts_filtered ("Timed out.\n");
2776 /* We've found the start of a packet, now collect the data. */
2778 val
= read_frame (buf
);
2783 fprintf_unfiltered (gdb_stdout
, "Packet received: %s\n", buf
);
2784 SERIAL_WRITE (remote_desc
, "+", 1);
2788 /* Try the whole thing again. */
2790 SERIAL_WRITE (remote_desc
, "-", 1);
2793 /* We have tried hard enough, and just can't receive the packet. Give up. */
2795 printf_unfiltered ("Ignoring packet error, continuing...\n");
2796 SERIAL_WRITE (remote_desc
, "+", 1);
2802 /* For some mysterious reason, wait_for_inferior calls kill instead of
2803 mourn after it gets TARGET_WAITKIND_SIGNALLED. Work around it. */
2807 target_mourn_inferior ();
2811 /* Use catch_errors so the user can quit from gdb even when we aren't on
2812 speaking terms with the remote system. */
2813 catch_errors ((catch_errors_ftype
*) putpkt
, "k", "", RETURN_MASK_ERROR
);
2815 /* Don't wait for it to die. I'm not really sure it matters whether
2816 we do or not. For the existing stubs, kill is a noop. */
2817 target_mourn_inferior ();
2823 remote_mourn_1 (&remote_ops
);
2827 extended_remote_mourn ()
2829 /* We do _not_ want to mourn the target like this; this will
2830 remove the extended remote target from the target stack,
2831 and the next time the user says "run" it'll fail.
2833 FIXME: What is the right thing to do here? */
2835 remote_mourn_1 (&extended_remote_ops
);
2839 /* Worker function for remote_mourn. */
2841 remote_mourn_1 (target
)
2842 struct target_ops
*target
;
2844 unpush_target (target
);
2845 generic_mourn_inferior ();
2848 /* In the extended protocol we want to be able to do things like
2849 "run" and have them basically work as expected. So we need
2850 a special create_inferior function.
2852 FIXME: One day add support for changing the exec file
2853 we're debugging, arguments and an environment. */
2856 extended_remote_create_inferior (exec_file
, args
, env
)
2861 /* Rip out the breakpoints; we'll reinsert them after restarting
2862 the remote server. */
2863 remove_breakpoints ();
2865 /* Now restart the remote server. */
2866 extended_remote_restart ();
2868 /* Now put the breakpoints back in. This way we're safe if the
2869 restart function works via a unix fork on the remote side. */
2870 insert_breakpoints ();
2872 /* Clean up from the last time we were running. */
2873 clear_proceed_status ();
2875 /* Let the remote process run. */
2876 proceed (-1, TARGET_SIGNAL_0
, 0);
2880 /* On some machines, e.g. 68k, we may use a different breakpoint instruction
2881 than other targets; in those use REMOTE_BREAKPOINT instead of just
2882 BREAKPOINT. Also, bi-endian targets may define LITTLE_REMOTE_BREAKPOINT
2883 and BIG_REMOTE_BREAKPOINT. If none of these are defined, we just call
2884 the standard routines that are in mem-break.c. */
2886 /* FIXME, these ought to be done in a more dynamic fashion. For instance,
2887 the choice of breakpoint instruction affects target program design and
2888 vice versa, and by making it user-tweakable, the special code here
2889 goes away and we need fewer special GDB configurations. */
2891 #if defined (LITTLE_REMOTE_BREAKPOINT) && defined (BIG_REMOTE_BREAKPOINT) && !defined(REMOTE_BREAKPOINT)
2892 #define REMOTE_BREAKPOINT
2895 #ifdef REMOTE_BREAKPOINT
2897 /* If the target isn't bi-endian, just pretend it is. */
2898 #if !defined (LITTLE_REMOTE_BREAKPOINT) && !defined (BIG_REMOTE_BREAKPOINT)
2899 #define LITTLE_REMOTE_BREAKPOINT REMOTE_BREAKPOINT
2900 #define BIG_REMOTE_BREAKPOINT REMOTE_BREAKPOINT
2903 static unsigned char big_break_insn
[] = BIG_REMOTE_BREAKPOINT
;
2904 static unsigned char little_break_insn
[] = LITTLE_REMOTE_BREAKPOINT
;
2906 #endif /* REMOTE_BREAKPOINT */
2908 /* Insert a breakpoint on targets that don't have any better breakpoint
2909 support. We read the contents of the target location and stash it,
2910 then overwrite it with a breakpoint instruction. ADDR is the target
2911 location in the target machine. CONTENTS_CACHE is a pointer to
2912 memory allocated for saving the target contents. It is guaranteed
2913 by the caller to be long enough to save sizeof BREAKPOINT bytes (this
2914 is accomplished via BREAKPOINT_MAX). */
2917 remote_insert_breakpoint (addr
, contents_cache
)
2919 char *contents_cache
;
2921 #ifdef REMOTE_BREAKPOINT
2924 val
= target_read_memory (addr
, contents_cache
, sizeof big_break_insn
);
2928 if (TARGET_BYTE_ORDER
== BIG_ENDIAN
)
2929 val
= target_write_memory (addr
, (char *) big_break_insn
,
2930 sizeof big_break_insn
);
2932 val
= target_write_memory (addr
, (char *) little_break_insn
,
2933 sizeof little_break_insn
);
2938 return memory_insert_breakpoint (addr
, contents_cache
);
2939 #endif /* REMOTE_BREAKPOINT */
2943 remote_remove_breakpoint (addr
, contents_cache
)
2945 char *contents_cache
;
2947 #ifdef REMOTE_BREAKPOINT
2948 return target_write_memory (addr
, contents_cache
, sizeof big_break_insn
);
2950 return memory_remove_breakpoint (addr
, contents_cache
);
2951 #endif /* REMOTE_BREAKPOINT */
2954 /* Some targets are only capable of doing downloads, and afterwards
2955 they switch to the remote serial protocol. This function provides
2956 a clean way to get from the download target to the remote target.
2957 It's basically just a wrapper so that we don't have to expose any
2958 of the internal workings of remote.c.
2960 Prior to calling this routine, you should shutdown the current
2961 target code, else you will get the "A program is being debugged
2962 already..." message. Usually a call to pop_target() suffices. */
2965 push_remote_target (name
, from_tty
)
2969 printf_filtered ("Switching to remote protocol\n");
2970 remote_open (name
, from_tty
);
2973 /* Other targets want to use the entire remote serial module but with
2974 certain remote_ops overridden. */
2977 open_remote_target (name
, from_tty
, target
, extended_p
)
2980 struct target_ops
*target
;
2983 printf_filtered ("Selecting the %sremote protocol\n",
2984 (extended_p
? "extended-" : ""));
2985 remote_open_1 (name
, from_tty
, target
, extended_p
);
2988 /* Table used by the crc32 function to calcuate the checksum. */
2990 static unsigned long crc32_table
[256] = {0, 0};
2992 static unsigned long
2993 crc32 (buf
, len
, crc
)
2998 if (! crc32_table
[1])
3000 /* Initialize the CRC table and the decoding table. */
3004 for (i
= 0; i
< 256; i
++)
3006 for (c
= i
<< 24, j
= 8; j
> 0; --j
)
3007 c
= c
& 0x80000000 ? (c
<< 1) ^ 0x04c11db7 : (c
<< 1);
3014 crc
= (crc
<< 8) ^ crc32_table
[((crc
>> 24) ^ *buf
) & 255];
3020 /* compare-sections command
3022 With no arguments, compares each loadable section in the exec bfd
3023 with the same memory range on the target, and reports mismatches.
3024 Useful for verifying the image on the target against the exec file.
3025 Depends on the target understanding the new "qCRC:" request. */
3028 compare_sections_command (args
, from_tty
)
3033 unsigned long host_crc
, target_crc
;
3034 extern bfd
*exec_bfd
;
3035 struct cleanup
*old_chain
;
3036 char *tmp
, *sectdata
, *sectname
, buf
[PBUFSIZ
];
3043 error ("command cannot be used without an exec file");
3044 if (!current_target
.to_shortname
||
3045 strcmp (current_target
.to_shortname
, "remote") != 0)
3046 error ("command can only be used with remote target");
3048 for (s
= exec_bfd
->sections
; s
; s
= s
->next
)
3050 if (!(s
->flags
& SEC_LOAD
))
3051 continue; /* skip non-loadable section */
3053 size
= bfd_get_section_size_before_reloc (s
);
3055 continue; /* skip zero-length section */
3057 sectname
= (char *) bfd_get_section_name (exec_bfd
, s
);
3058 if (args
&& strcmp (args
, sectname
) != 0)
3059 continue; /* not the section selected by user */
3061 matched
= 1; /* do this section */
3063 /* FIXME: assumes lma can fit into long */
3064 sprintf (buf
, "qCRC:%lx,%lx", (long) lma
, (long) size
);
3067 /* be clever; compute the host_crc before waiting for target reply */
3068 sectdata
= xmalloc (size
);
3069 old_chain
= make_cleanup (free
, sectdata
);
3070 bfd_get_section_contents (exec_bfd
, s
, sectdata
, 0, size
);
3071 host_crc
= crc32 ((unsigned char *) sectdata
, size
, 0xffffffff);
3075 error ("target memory fault, section %s, range 0x%08x -- 0x%08x",
3076 sectname
, lma
, lma
+ size
);
3078 error ("remote target does not support this operation");
3080 for (target_crc
= 0, tmp
= &buf
[1]; *tmp
; tmp
++)
3081 target_crc
= target_crc
* 16 + fromhex (*tmp
);
3083 printf_filtered ("Section %s, range 0x%08x -- 0x%08x: ",
3084 sectname
, lma
, lma
+ size
);
3085 if (host_crc
== target_crc
)
3086 printf_filtered ("matched.\n");
3089 printf_filtered ("MIS-MATCHED!\n");
3093 do_cleanups (old_chain
);
3096 warning ("One or more sections of the remote executable does not match\n\
3097 the loaded file\n");
3098 if (args
&& !matched
)
3099 printf_filtered ("No loaded section named '%s'.\n", args
);
3103 remote_query (query_type
, buf
, outbuf
, bufsiz
)
3111 char *p2
= &buf2
[0];
3115 error ("null pointer to remote bufer size specified");
3117 /* minimum outbuf size is PBUFSIZE - if bufsiz is not large enough let
3118 the caller know and return what the minimum size is */
3119 /* Note: a zero bufsiz can be used to query the minimum buffer size */
3120 if ( *bufsiz
< PBUFSIZ
)
3126 /* except for querying the minimum buffer size, target must be open */
3128 error ("remote query is only available after target open");
3130 /* we only take uppercase letters as query types, at least for now */
3131 if ( (query_type
< 'A') || (query_type
> 'Z') )
3132 error ("invalid remote query type");
3135 error ("null remote query specified");
3138 error ("remote query requires a buffer to receive data");
3145 /* we used one buffer char for the remote protocol q command and another
3146 for the query type. As the remote protocol encapsulation uses 4 chars
3147 plus one extra in case we are debugging (remote_debug),
3148 we have PBUFZIZ - 7 left to pack the query string */
3150 while ( buf
[i
] && (i
< (PBUFSIZ
- 8)) )
3152 /* bad caller may have sent forbidden characters */
3153 if ( (!isprint(buf
[i
])) || (buf
[i
] == '$') || (buf
[i
] == '#') )
3154 error ("illegal characters in query string");
3162 error ("query larger than available buffer");
3165 if ( i
< 0 ) return i
;
3173 packet_command (args
, from_tty
)
3180 error ("command can only be used with remote target");
3183 error ("remote-packet command requires packet text as argument");
3185 puts_filtered ("sending: ");
3186 print_packet (args
);
3187 puts_filtered ("\n");
3191 puts_filtered ("received: ");
3193 puts_filtered ("\n");
3197 /* --------- UNIT_TEST for THREAD oriented PACKETS ------------------------- */
3199 static void display_thread_info
PARAMS ((struct gdb_ext_thread_info
*info
));
3201 static void threadset_test_cmd
PARAMS ((char *cmd
, int tty
));
3203 static void threadalive_test
PARAMS ((char *cmd
, int tty
));
3205 static void threadlist_test_cmd
PARAMS ((char *cmd
, int tty
));
3207 int get_and_display_threadinfo
PARAMS ((threadref
*ref
));
3209 static void threadinfo_test_cmd
PARAMS ((char *cmd
, int tty
));
3211 static int thread_display_step
PARAMS ((threadref
*ref
, void *context
));
3213 static void threadlist_update_test_cmd
PARAMS ((char *cmd
, int tty
));
3215 static void init_remote_threadtests
PARAMS ((void));
3217 #define SAMPLE_THREAD 0x05060708 /* Truncated 64 bit threadid */
3220 threadset_test_cmd (cmd
, tty
)
3224 int sample_thread
= SAMPLE_THREAD
;
3226 printf_filtered ("Remote threadset test\n");
3227 set_thread (sample_thread
, 1);
3232 threadalive_test (cmd
, tty
)
3236 int sample_thread
= SAMPLE_THREAD
;
3238 if (remote_thread_alive (sample_thread
))
3239 printf_filtered ("PASS: Thread alive test\n");
3241 printf_filtered ("FAIL: Thread alive test\n");
3244 void output_threadid
PARAMS ((char *title
, threadref
* ref
));
3247 output_threadid (title
, ref
)
3253 pack_threadid (&hexid
[0], ref
); /* Convert threead id into hex */
3255 printf_filtered ("%s %s\n", title
, (&hexid
[0]));
3259 threadlist_test_cmd (cmd
, tty
)
3264 threadref nextthread
;
3265 int done
, result_count
;
3266 threadref threadlist
[3];
3268 printf_filtered ("Remote Threadlist test\n");
3269 if (!remote_get_threadlist (startflag
, &nextthread
, 3, &done
,
3270 &result_count
, &threadlist
[0]))
3271 printf_filtered ("FAIL: threadlist test\n");
3274 threadref
*scan
= threadlist
;
3275 threadref
*limit
= scan
+ result_count
;
3277 while (scan
< limit
)
3278 output_threadid (" thread ", scan
++);
3283 display_thread_info (info
)
3284 struct gdb_ext_thread_info
*info
;
3286 output_threadid ("Threadid: ", &info
->threadid
);
3287 printf_filtered ("Name: %s\n ", info
->shortname
);
3288 printf_filtered ("State: %s\n", info
->display
);
3289 printf_filtered ("other: %s\n\n", info
->more_display
);
3293 get_and_display_threadinfo (ref
)
3298 struct gdb_ext_thread_info threadinfo
;
3300 set
= TAG_THREADID
| TAG_EXISTS
| TAG_THREADNAME
3301 | TAG_MOREDISPLAY
| TAG_DISPLAY
;
3302 if (0 != (result
= remote_get_threadinfo (ref
, set
, &threadinfo
)))
3303 display_thread_info (&threadinfo
);
3308 threadinfo_test_cmd (cmd
, tty
)
3312 int athread
= SAMPLE_THREAD
;
3316 int_to_threadref (&thread
, athread
);
3317 printf_filtered ("Remote Threadinfo test\n");
3318 if (!get_and_display_threadinfo (&thread
))
3319 printf_filtered ("FAIL cannot get thread info\n");
3323 thread_display_step (ref
, context
)
3327 /* output_threadid(" threadstep ",ref); *//* simple test */
3328 return get_and_display_threadinfo (ref
);
3332 threadlist_update_test_cmd (cmd
, tty
)
3336 printf_filtered ("Remote Threadlist update test\n");
3337 remote_threadlist_iterator (thread_display_step
, 0, CRAZY_MAX_THREADS
);
3341 init_remote_threadtests (void)
3343 add_com ("tlist", class_obscure
, threadlist_test_cmd
,
3344 "Fetch and print the remote list of thread identifiers, one pkt only");
3345 add_com ("tinfo", class_obscure
, threadinfo_test_cmd
,
3346 "Fetch and display info about one thread");
3347 add_com ("tset", class_obscure
, threadset_test_cmd
,
3348 "Test setting to a different thread");
3349 add_com ("tupd", class_obscure
, threadlist_update_test_cmd
,
3350 "Iterate through updating all remote thread info");
3351 add_com ("talive", class_obscure
, threadalive_test
,
3352 " Remote thread alive test ");
3360 remote_ops
.to_shortname
= "remote";
3361 remote_ops
.to_longname
= "Remote serial target in gdb-specific protocol";
3363 "Use a remote computer via a serial line, using a gdb-specific protocol.\n\
3364 Specify the serial device it is connected to (e.g. /dev/ttya).";
3365 remote_ops
.to_open
= remote_open
;
3366 remote_ops
.to_close
= remote_close
;
3367 remote_ops
.to_detach
= remote_detach
;
3368 remote_ops
.to_resume
= remote_resume
;
3369 remote_ops
.to_wait
= remote_wait
;
3370 remote_ops
.to_fetch_registers
= remote_fetch_registers
;
3371 remote_ops
.to_store_registers
= remote_store_registers
;
3372 remote_ops
.to_prepare_to_store
= remote_prepare_to_store
;
3373 remote_ops
.to_xfer_memory
= remote_xfer_memory
;
3374 remote_ops
.to_files_info
= remote_files_info
;
3375 remote_ops
.to_insert_breakpoint
= remote_insert_breakpoint
;
3376 remote_ops
.to_remove_breakpoint
= remote_remove_breakpoint
;
3377 remote_ops
.to_kill
= remote_kill
;
3378 remote_ops
.to_load
= generic_load
;
3379 remote_ops
.to_mourn_inferior
= remote_mourn
;
3380 remote_ops
.to_thread_alive
= remote_thread_alive
;
3381 remote_ops
.to_stop
= remote_stop
;
3382 remote_ops
.to_query
= remote_query
;
3383 remote_ops
.to_stratum
= process_stratum
;
3384 remote_ops
.to_has_all_memory
= 1;
3385 remote_ops
.to_has_memory
= 1;
3386 remote_ops
.to_has_stack
= 1;
3387 remote_ops
.to_has_registers
= 1;
3388 remote_ops
.to_has_execution
= 1;
3389 remote_ops
.to_has_thread_control
= tc_schedlock
; /* can lock scheduler */
3390 remote_ops
.to_magic
= OPS_MAGIC
;
3393 /* Set up the extended remote vector by making a copy of the standard
3394 remote vector and adding to it. */
3397 init_extended_remote_ops ()
3399 extended_remote_ops
= remote_ops
;
3401 extended_remote_ops
.to_shortname
= "extended-remote";
3402 extended_remote_ops
.to_longname
=
3403 "Extended remote serial target in gdb-specific protocol";
3404 extended_remote_ops
.to_doc
=
3405 "Use a remote computer via a serial line, using a gdb-specific protocol.\n\
3406 Specify the serial device it is connected to (e.g. /dev/ttya).",
3407 extended_remote_ops
.to_open
= extended_remote_open
;
3408 extended_remote_ops
.to_create_inferior
= extended_remote_create_inferior
;
3409 extended_remote_ops
.to_mourn_inferior
= extended_remote_mourn
;
3413 _initialize_remote ()
3416 add_target (&remote_ops
);
3418 init_extended_remote_ops ();
3419 add_target (&extended_remote_ops
);
3420 init_remote_threads ();
3422 init_remote_threadtests ();
3425 add_cmd ("compare-sections", class_obscure
, compare_sections_command
,
3426 "Compare section data on target to the exec file.\n\
3427 Argument is a single section name (default: all loaded sections).",
3430 add_cmd ("packet", class_maintenance
, packet_command
,
3431 "Send an arbitrary packet to a remote target.\n\
3432 maintenance packet TEXT\n\
3433 If GDB is talking to an inferior via the GDB serial protocol, then\n\
3434 this command sends the string TEXT to the inferior, and displays the\n\
3435 response packet. GDB supplies the initial `$' character, and the\n\
3436 terminating `#' character and checksum.",
3440 (add_set_cmd ("remotetimeout", no_class
,
3441 var_integer
, (char *)&remote_timeout
,
3442 "Set timeout value for remote read.\n",
3447 (add_set_cmd ("remotebreak", no_class
,
3448 var_integer
, (char *)&remote_break
,
3449 "Set whether to send break if interrupted.\n",
3454 (add_set_cmd ("remotewritesize", no_class
,
3455 var_integer
, (char *)&remote_write_size
,
3456 "Set the maximum number of bytes per memory write packet.\n",
3460 remote_address_size
= TARGET_PTR_BIT
;
3462 (add_set_cmd ("remoteaddresssize", class_obscure
,
3463 var_integer
, (char *)&remote_address_size
,
3464 "Set the maximum size of the address (in bits) \
3465 in a memory packet.\n",
3469 add_show_from_set (add_set_cmd ("remotebinarydownload", no_class
,
3470 var_boolean
, (char *) &remote_binary_download
,
3471 "Set binary downloads.\n", &setlist
),