diff options
Diffstat (limited to 'gdb/remote.c')
-rw-r--r-- | gdb/remote.c | 3342 |
1 files changed, 0 insertions, 3342 deletions
diff --git a/gdb/remote.c b/gdb/remote.c deleted file mode 100644 index bcdc48f..0000000 --- a/gdb/remote.c +++ /dev/null @@ -1,3342 +0,0 @@ -/* Remote target communications for serial-line targets in custom GDB protocol - Copyright 1988, 91, 92, 93, 94, 95, 96, 97, 1998 - Free Software Foundation, Inc. - -This file is part of GDB. - -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ - -/* Remote communication protocol. - - A debug packet whose contents are <data> - is encapsulated for transmission in the form: - - $ <data> # CSUM1 CSUM2 - - <data> must be ASCII alphanumeric and cannot include characters - '$' or '#'. If <data> starts with two characters followed by - ':', then the existing stubs interpret this as a sequence number. - - CSUM1 and CSUM2 are ascii hex representation of an 8-bit - checksum of <data>, the most significant nibble is sent first. - the hex digits 0-9,a-f are used. - - Receiver responds with: - - + - if CSUM is correct and ready for next packet - - - if CSUM is incorrect - - <data> is as follows: - Most values are encoded in ascii hex digits. Signal numbers are according - to the numbering in target.h. - - Request Packet - - set thread Hct... Set thread for subsequent operations. - c = 'c' for thread used in step and - continue; t... can be -1 for all - threads. - c = 'g' for thread used in other - operations. If zero, pick a thread, - any thread. - reply OK for success - ENN for an error. - - read registers g - reply XX....X Each byte of register data - is described by two hex digits. - Registers are in the internal order - for GDB, and the bytes in a register - are in the same order the machine uses. - or ENN for an error. - - write regs GXX..XX Each byte of register data - is described by two hex digits. - reply OK for success - ENN for an error - - write reg Pn...=r... Write register n... with value r..., - which contains two hex digits for each - byte in the register (target byte - order). - reply OK for success - ENN for an error - (not supported by all stubs). - - read mem mAA..AA,LLLL AA..AA is address, LLLL is length. - reply XX..XX XX..XX is mem contents - Can be fewer bytes than requested - if able to read only part of the data. - or ENN NN is errno - - write mem MAA..AA,LLLL:XX..XX - AA..AA is address, - LLLL is number of bytes, - XX..XX is data - reply OK for success - ENN for an error (this includes the case - where only part of the data was - written). - - continue cAA..AA AA..AA is address to resume - If AA..AA is omitted, - resume at same address. - - step sAA..AA AA..AA is address to resume - If AA..AA is omitted, - resume at same address. - - continue with Csig;AA..AA Continue with signal sig (hex signal - signal number). If ;AA..AA is omitted, - resume at same address. - - step with Ssig;AA..AA Like 'C' but step not continue. - signal - - last signal ? Reply the current reason for stopping. - This is the same reply as is generated - for step or cont : SAA where AA is the - signal number. - - detach D Reply OK. - - There is no immediate reply to step or cont. - The reply comes when the machine stops. - It is SAA AA is the signal number. - - or... TAAn...:r...;n...:r...;n...:r...; - AA = signal number - n... = register number (hex) - r... = register contents - n... = `thread' - r... = thread process ID. This is - a hex integer. - n... = other string not starting - with valid hex digit. - gdb should ignore this n,r pair - and go on to the next. This way - we can extend the protocol. - or... WAA The process exited, and AA is - the exit status. This is only - applicable for certains sorts of - targets. - or... XAA The process terminated with signal - AA. - or... OXX..XX XX..XX is hex encoding of ASCII data. This - can happen at any time while the - program is running and the debugger - should continue to wait for - 'W', 'T', etc. - - thread alive TXX Find out if the thread XX is alive. - reply OK thread is still alive - ENN thread is dead - - remote restart RXX Restart the remote server - - extended ops ! Use the extended remote protocol. - Sticky -- only needs to be set once. - - kill request k - - toggle debug d toggle debug flag (see 386 & 68k stubs) - reset r reset -- see sparc stub. - reserved <other> On other requests, the stub should - ignore the request and send an empty - response ($#<checksum>). This way - we can extend the protocol and GDB - can tell whether the stub it is - talking to uses the old or the new. - search tAA:PP,MM Search backwards starting at address - AA for a match with pattern PP and - mask MM. PP and MM are 4 bytes. - Not supported by all stubs. - - general query qXXXX Request info about XXXX. - general set QXXXX=yyyy Set value of XXXX to yyyy. - query sect offs qOffsets Get section offsets. Reply is - Text=xxx;Data=yyy;Bss=zzz - - Responses can be run-length encoded to save space. A '*' means that - the next character is an ASCII encoding giving a repeat count which - stands for that many repititions of the character preceding the '*'. - The encoding is n+29, yielding a printable character where n >=3 - (which is where rle starts to win). Don't use an n > 126. - - So - "0* " means the same as "0000". */ - -#include "defs.h" -#include "gdb_string.h" -#include <fcntl.h> -#include "frame.h" -#include "inferior.h" -#include "bfd.h" -#include "symfile.h" -#include "target.h" -#include "wait.h" -/*#include "terminal.h"*/ -#include "gdbcmd.h" -#include "objfiles.h" -#include "gdb-stabs.h" -#include "gdbthread.h" - -#include "dcache.h" - -#ifdef USG -#include <sys/types.h> -#endif - -#include <signal.h> -#include "serial.h" - -/* Prototypes for local functions */ - -static int remote_write_bytes PARAMS ((CORE_ADDR memaddr, - char *myaddr, int len)); - -static int remote_read_bytes PARAMS ((CORE_ADDR memaddr, - char *myaddr, int len)); - -static void remote_files_info PARAMS ((struct target_ops *ignore)); - -static int remote_xfer_memory PARAMS ((CORE_ADDR memaddr, char * myaddr, - int len, int should_write, - struct target_ops * target)); - -static void remote_prepare_to_store PARAMS ((void)); - -static void remote_fetch_registers PARAMS ((int regno)); - -static void remote_resume PARAMS ((int pid, int step, - enum target_signal siggnal)); - -static int remote_start_remote PARAMS ((PTR)); - -static void remote_open PARAMS ((char *name, int from_tty)); - -static void extended_remote_open PARAMS ((char *name, int from_tty)); - -static void remote_open_1 PARAMS ((char *, int, struct target_ops *, - int extended_p)); - -static void remote_close PARAMS ((int quitting)); - -static void remote_store_registers PARAMS ((int regno)); - -static void remote_mourn PARAMS ((void)); - -static void extended_remote_restart PARAMS ((void)); - -static void extended_remote_mourn PARAMS ((void)); - -static void extended_remote_create_inferior PARAMS ((char *, char *, char **)); - -static void remote_mourn_1 PARAMS ((struct target_ops *)); - -static void remote_send PARAMS ((char *buf)); - -static int readchar PARAMS ((int timeout)); - -static int remote_wait PARAMS ((int pid, struct target_waitstatus * status)); - -static void remote_kill PARAMS ((void)); - -static int tohex PARAMS ((int nib)); - -static void remote_detach PARAMS ((char *args, int from_tty)); - -static void remote_interrupt PARAMS ((int signo)); - -static void interrupt_query PARAMS ((void)); - -static void set_thread PARAMS ((int, int)); - -static int remote_thread_alive PARAMS ((int)); - -static void get_offsets PARAMS ((void)); - -static int read_frame PARAMS ((char *)); - -static int remote_insert_breakpoint PARAMS ((CORE_ADDR, char *)); - -static int remote_remove_breakpoint PARAMS ((CORE_ADDR, char *)); - -static int hexnumlen PARAMS ((ULONGEST num)); - -static void init_remote_ops PARAMS ((void)); - -static void init_extended_remote_ops PARAMS ((void)); - -static void remote_stop PARAMS ((void)); - -static int ishex PARAMS ((int ch, int *val)); - -static int stubhex PARAMS ((int ch)); - -static int remote_query PARAMS ((char, char *, char *, int *)); - -static int hexnumstr PARAMS ((char *, ULONGEST)); - -static CORE_ADDR remote_address_masked PARAMS ((CORE_ADDR)); - -static void print_packet PARAMS ((char *)); - -static unsigned long crc32 PARAMS ((unsigned char *, int, unsigned int)); - -static void compare_sections_command PARAMS ((char *, int)); - -static void packet_command PARAMS ((char *, int)); - -static int stub_unpack_int PARAMS ((char *buff, int fieldlength)); - -char *unpack_varlen_hex PARAMS ((char *buff, int *result)); - -static char *unpack_nibble PARAMS ((char *buf, int *val)); - -static char *pack_nibble PARAMS ((char *buf, int nibble)); - -static char *pack_hex_byte PARAMS ((char *pkt, unsigned char byte)); - -static char *unpack_byte PARAMS ((char *buf, int *value)); - -static char *pack_int PARAMS ((char *buf, int value)); - -static char *unpack_int PARAMS ((char *buf, int *value)); - -static char *unpack_string PARAMS ((char *src, char *dest, int length)); - -static char *pack_threadid PARAMS ((char *pkt, threadref *id)); - -static char *unpack_threadid PARAMS ((char *inbuf, threadref *id)); - -void int_to_threadref PARAMS ((threadref *id, int value)); - -static int threadref_to_int PARAMS ((threadref *ref)); - -static void copy_threadref PARAMS ((threadref *dest, threadref *src)); - -static int threadmatch PARAMS ((threadref *dest, threadref *src)); - -static char *pack_threadinfo_request PARAMS ((char *pkt, int mode, - threadref *id)); - -static int remote_unpack_thread_info_response PARAMS ((char *pkt, - threadref *expectedref, - struct gdb_ext_thread_info *info)); - - -static int remote_get_threadinfo PARAMS ((threadref *threadid, - int fieldset, /*TAG mask */ - struct gdb_ext_thread_info *info)); - -static int adapt_remote_get_threadinfo PARAMS ((gdb_threadref *ref, - int selection, - struct gdb_ext_thread_info *info)); - -static char *pack_threadlist_request PARAMS ((char *pkt, int startflag, - int threadcount, - threadref *nextthread)); - -static int parse_threadlist_response PARAMS ((char *pkt, - int result_limit, - threadref *original_echo, - threadref *resultlist, - int *doneflag)); - -static int remote_get_threadlist PARAMS ((int startflag, - threadref *nextthread, - int result_limit, - int *done, - int *result_count, - threadref *threadlist)); - -typedef int (*rmt_thread_action) (threadref *ref, void *context); - -static int remote_threadlist_iterator PARAMS ((rmt_thread_action stepfunction, - void *context, int looplimit)); - -static int remote_newthread_step PARAMS ((threadref *ref, void *context)); - -static int remote_current_thread PARAMS ((int oldpid)); - -int remote_find_new_threads PARAMS ((void)); - -static void record_currthread PARAMS ((int currthread)); - -static void init_remote_threads PARAMS ((void)); - -/* exported functions */ - -extern int fromhex PARAMS ((int a)); - -extern void getpkt PARAMS ((char *buf, int forever)); - -extern int putpkt PARAMS ((char *buf)); - -void remote_console_output PARAMS ((char *)); - -/* Define the target subroutine names */ - -void open_remote_target PARAMS ((char *, int, struct target_ops *, int)); - -void _initialize_remote PARAMS ((void)); - -/* */ - -static struct target_ops remote_ops; - -static struct target_ops extended_remote_ops; - -static struct target_thread_vector remote_thread_vec; - -/* This was 5 seconds, which is a long time to sit and wait. - Unless this is going though some terminal server or multiplexer or - other form of hairy serial connection, I would think 2 seconds would - be plenty. */ - -/* Changed to allow option to set timeout value. - was static int remote_timeout = 2; */ -extern int remote_timeout; - -/* This variable chooses whether to send a ^C or a break when the user - requests program interruption. Although ^C is usually what remote - systems expect, and that is the default here, sometimes a break is - preferable instead. */ - -static int remote_break; - -/* Has the user attempted to interrupt the target? If so, then offer - the user the opportunity to bail out completely if he interrupts - again. */ -static int interrupted_already = 0; - -/* Descriptor for I/O to remote machine. Initialize it to NULL so that - remote_open knows that we don't have a file open when the program - starts. */ -static serial_t remote_desc = NULL; - -/* Having this larger than 400 causes us to be incompatible with m68k-stub.c - and i386-stub.c. Normally, no one would notice because it only matters - for writing large chunks of memory (e.g. in downloads). Also, this needs - to be more than 400 if required to hold the registers (see below, where - we round it up based on REGISTER_BYTES). */ -#define PBUFSIZ 400 - -/* Maximum number of bytes to read/write at once. The value here - is chosen to fill up a packet (the headers account for the 32). */ -#define MAXBUFBYTES ((PBUFSIZ-32)/2) - -/* Round up PBUFSIZ to hold all the registers, at least. */ -/* The blank line after the #if seems to be required to work around a - bug in HP's PA compiler. */ -#if REGISTER_BYTES > MAXBUFBYTES - -#undef PBUFSIZ -#define PBUFSIZ (REGISTER_BYTES * 2 + 32) -#endif - - -/* This variable sets the number of bytes to be written to the target - in a single packet. Normally PBUFSIZ is satisfactory, but some - targets need smaller values (perhaps because the receiving end - is slow). */ - -static int remote_write_size = PBUFSIZ; - -/* This variable sets the number of bits in an address that are to be - sent in a memory ("M" or "m") packet. Normally, after stripping - leading zeros, the entire address would be sent. This variable - restricts the address to REMOTE_ADDRESS_SIZE bits. HISTORY: The - initial implementation of remote.c restricted the address sent in - memory packets to ``host::sizeof long'' bytes - (typically 32 - bits). Consequently, for 64 bit targets, the upper 32 bits of an - address was never sent. Since fixing this bug may cause a break in - some remote targets this variable is principly provided to - facilitate backward compatibility. */ - -static int remote_address_size; - -/* This is the size (in chars) of the first response to the `g' command. This - is used to limit the size of the memory read and write commands to prevent - stub buffers from overflowing. The size does not include headers and - trailers, it is only the payload size. */ - -static int remote_register_buf_size = 0; - -/* Should we try the 'P' request? If this is set to one when the stub - doesn't support 'P', the only consequence is some unnecessary traffic. */ -static int stub_supports_P = 1; - -/* These are pointers to hook functions that may be set in order to - modify resume/wait behavior for a particular architecture. */ - -void (*target_resume_hook) PARAMS ((void)); -void (*target_wait_loop_hook) PARAMS ((void)); - - - -/* These are the threads which we last sent to the remote system. - -1 for all or -2 for not sent yet. */ -static int general_thread; -static int cont_thread; - -/* Call this function as a result of - 1) A halt indication (T packet) containing a thread id - 2) A direct query of currthread - 3) Successful execution of set thread - */ - -static void -record_currthread (currthread) - int currthread; -{ -#if 0 /* target_wait must not modify inferior_pid! */ - inferior_pid = currthread; -#endif - general_thread = currthread; -#if 0 /* setting cont_thread has a different meaning - from having the target report its thread id. */ - cont_thread = currthread; -#endif - /* If this is a new thread, add it to GDB's thread list. - If we leave it up to WFI to do this, bad things will happen. */ - if (!in_thread_list (currthread)) - add_thread (currthread); -} - -#define MAGIC_NULL_PID 42000 - -static void -set_thread (th, gen) - int th; - int gen; -{ - char buf[PBUFSIZ]; - int state = gen ? general_thread : cont_thread; - - if (state == th) - return; - - buf[0] = 'H'; - buf[1] = gen ? 'g' : 'c'; - if (th == MAGIC_NULL_PID) - { - buf[2] = '0'; - buf[3] = '\0'; - } - else if (th < 0) - sprintf (&buf[2], "-%x", -th); - else - sprintf (&buf[2], "%x", th); - putpkt (buf); - getpkt (buf, 0); - if (gen) - general_thread = th; - else - cont_thread = th; -} - -/* Return nonzero if the thread TH is still alive on the remote system. */ - -static int -remote_thread_alive (th) - int th; -{ - char buf[PBUFSIZ]; - - buf[0] = 'T'; - if (th < 0) - sprintf (&buf[1], "-%08x", -th); - else - sprintf (&buf[1], "%08x", th); - putpkt (buf); - getpkt (buf, 0); - return (buf[0] == 'O' && buf[1] == 'K'); -} - -/* About these extended threadlist and threadinfo packets. They are - variable length packets but, the fields within them are often fixed - length. They are redundent enough to send over UDP as is the - remote protocol in general. There is a matching unit test module - in libstub. */ - -#define BUF_THREAD_ID_SIZE (OPAQUETHREADBYTES*2) - -/* encode 64 bits in 16 chars of hex */ - -static const char hexchars[] = "0123456789abcdef"; - -static int -ishex (ch, val) - int ch; - int *val; -{ - if ((ch >= 'a') && (ch <= 'f')) - { - *val = ch - 'a' + 10; - return 1; - } - if ((ch >= 'A') && (ch <= 'F')) - { - *val = ch - 'A' + 10; - return 1; - } - if ((ch >= '0') && (ch <= '9')) - { - *val = ch - '0'; - return 1; - } - return 0; -} - -static int -stubhex (ch) - int ch; -{ - if (ch >= 'a' && ch <= 'f') - return ch - 'a' + 10; - if (ch >= '0' && ch <= '9') - return ch - '0'; - if (ch >= 'A' && ch <= 'F') - return ch - 'A' + 10; - return -1; -} - -static int -stub_unpack_int (buff, fieldlength) - char *buff; - int fieldlength; -{ - int nibble; - int retval = 0; - - while (fieldlength) - { - nibble = stubhex (*buff++); - retval |= nibble; - fieldlength--; - if (fieldlength) - retval = retval << 4; - } - return retval; -} - -char * -unpack_varlen_hex (buff, result) - char *buff; /* packet to parse */ - int *result; -{ - int nibble; - int retval = 0; - - while (ishex (*buff, &nibble)) - { - buff++; - retval = retval << 4; - retval |= nibble & 0x0f; - } - *result = retval; - return buff; -} - -static char * -unpack_nibble (buf, val) - char *buf; - int *val; -{ - ishex (*buf++, val); - return buf; -} - -static char * -pack_nibble (buf, nibble) - char *buf; - int nibble; -{ - *buf++ = hexchars[(nibble & 0x0f)]; - return buf; -} - -static char * -pack_hex_byte (pkt, byte) - char *pkt; - unsigned char byte; -{ - *pkt++ = hexchars[(byte >> 4) & 0xf]; - *pkt++ = hexchars[(byte & 0xf)]; - return pkt; -} - -static char * -unpack_byte (buf, value) - char *buf; - int *value; -{ - *value = stub_unpack_int (buf, 2); - return buf + 2; -} - -static char * -pack_int (buf, value) - char *buf; - int value; -{ - buf = pack_hex_byte (buf, (value >> 24) & 0xff); - buf = pack_hex_byte (buf, (value >> 16) & 0xff); - buf = pack_hex_byte (buf, (value >> 8) & 0x0ff); - buf = pack_hex_byte (buf, (value & 0xff)); - return buf; -} - -static char * -unpack_int (buf, value) - char *buf; - int *value; -{ - *value = stub_unpack_int (buf, 8); - return buf + 8; -} - -#if 0 /* currently unused, uncomment when needed */ -static char *pack_string PARAMS ((char *pkt, char *string)); - -static char * -pack_string (pkt, string) - char *pkt; - char *string; -{ - char ch; - int len; - - len = strlen (string); - if (len > 200) - len = 200; /* Bigger than most GDB packets, junk??? */ - pkt = pack_hex_byte (pkt, len); - while (len-- > 0) - { - ch = *string++; - if ((ch == '\0') || (ch == '#')) - ch = '*'; /* Protect encapsulation */ - *pkt++ = ch; - } - return pkt; -} -#endif /* 0 (unused) */ - -static char * -unpack_string (src, dest, length) - char *src; - char *dest; - int length; -{ - while (length--) - *dest++ = *src++; - *dest = '\0'; - return src; -} - -static char * -pack_threadid (pkt, id) - char *pkt; - threadref *id; -{ - char *limit; - unsigned char *altid; - - altid = (unsigned char *) id; - limit = pkt + BUF_THREAD_ID_SIZE; - while (pkt < limit) - pkt = pack_hex_byte (pkt, *altid++); - return pkt; -} - - -static char * -unpack_threadid (inbuf, id) - char *inbuf; - threadref *id; -{ - char *altref; - char *limit = inbuf + BUF_THREAD_ID_SIZE; - int x, y; - - altref = (char *) id; - - while (inbuf < limit) - { - x = stubhex (*inbuf++); - y = stubhex (*inbuf++); - *altref++ = (x << 4) | y; - } - return inbuf; -} - -/* Externally, threadrefs are 64 bits but internally, they are still - ints. This is due to a mismatch of specifications. We would like - to use 64bit thread references internally. This is an adapter - function. */ - -void -int_to_threadref (id, value) - threadref *id; - int value; -{ - unsigned char *scan; - - scan = (unsigned char *) id; - { - int i = 4; - while (i--) - *scan++ = 0; - } - *scan++ = (value >> 24) & 0xff; - *scan++ = (value >> 16) & 0xff; - *scan++ = (value >> 8) & 0xff; - *scan++ = (value & 0xff); -} - -static int -threadref_to_int (ref) - threadref *ref; -{ - int i, value = 0; - unsigned char *scan; - - scan = (char *) ref; - scan += 4; - i = 4; - while (i-- > 0) - value = (value << 8) | ((*scan++) & 0xff); - return value; -} - -static void -copy_threadref (dest, src) - threadref *dest; - threadref *src; -{ - int i; - unsigned char *csrc, *cdest; - - csrc = (unsigned char *) src; - cdest = (unsigned char *) dest; - i = 8; - while (i--) - *cdest++ = *csrc++; -} - -static int -threadmatch (dest, src) - threadref *dest; - threadref *src; -{ - /* things are broken right now, so just assume we got a match */ -#if 0 - unsigned char *srcp, *destp; - int i, result; - srcp = (char *) src; - destp = (char *) dest; - - result = 1; - while (i-- > 0) - result &= (*srcp++ == *destp++) ? 1 : 0; - return result; -#endif - return 1; -} - -/* - threadid:1, # always request threadid - context_exists:2, - display:4, - unique_name:8, - more_display:16 -*/ - -/* Encoding: 'Q':8,'P':8,mask:32,threadid:64 */ - -static char * -pack_threadinfo_request (pkt, mode, id) - char *pkt; - int mode; - threadref *id; -{ - *pkt++ = 'q'; /* Info Query */ - *pkt++ = 'P'; /* process or thread info */ - pkt = pack_int (pkt, mode); /* mode */ - pkt = pack_threadid (pkt, id); /* threadid */ - *pkt = '\0'; /* terminate */ - return pkt; -} - -/* These values tag the fields in a thread info response packet */ -/* Tagging the fields allows us to request specific fields and to - add more fields as time goes by */ - -#define TAG_THREADID 1 /* Echo the thread identifier */ -#define TAG_EXISTS 2 /* Is this process defined enough to - fetch registers and its stack */ -#define TAG_DISPLAY 4 /* A short thing maybe to put on a window */ -#define TAG_THREADNAME 8 /* string, maps 1-to-1 with a thread is */ -#define TAG_MOREDISPLAY 16 /* Whatever the kernel wants to say about - the process*/ - -static int -remote_unpack_thread_info_response (pkt, expectedref, info) - char *pkt; - threadref *expectedref; - struct gdb_ext_thread_info *info; -{ - int mask, length; - unsigned int tag; - threadref ref; - char *limit = pkt + PBUFSIZ; /* plausable parsing limit */ - int retval = 1; - - /* info->threadid = 0; FIXME: implement zero_threadref */ - info->active = 0; - info->display[0] = '\0'; - info->shortname[0] = '\0'; - info->more_display[0] = '\0'; - - /* Assume the characters indicating the packet type have been stripped */ - pkt = unpack_int (pkt, &mask); /* arg mask */ - pkt = unpack_threadid (pkt, &ref); - - if (mask == 0) - warning ("Incomplete response to threadinfo request\n"); - if (!threadmatch (&ref, expectedref)) - { /* This is an answer to a different request */ - warning ("ERROR RMT Thread info mismatch\n"); - return 0; - } - copy_threadref (&info->threadid, &ref); - - /* Loop on tagged fields , try to bail if somthing goes wrong */ - - while ((pkt < limit) && mask && *pkt) /* packets are terminated with nulls */ - { - pkt = unpack_int (pkt, &tag); /* tag */ - pkt = unpack_byte (pkt, &length); /* length */ - if (!(tag & mask)) /* tags out of synch with mask */ - { - warning ("ERROR RMT: threadinfo tag mismatch\n"); - retval = 0; - break; - } - if (tag == TAG_THREADID) - { - if (length != 16) - { - warning ("ERROR RMT: length of threadid is not 16\n"); - retval = 0; - break; - } - pkt = unpack_threadid (pkt, &ref); - mask = mask & ~TAG_THREADID; - continue; - } - if (tag == TAG_EXISTS) - { - info->active = stub_unpack_int (pkt, length); - pkt += length; - mask = mask & ~(TAG_EXISTS); - if (length > 8) - { - warning ("ERROR RMT: 'exists' length too long\n"); - retval = 0; - break; - } - continue; - } - if (tag == TAG_THREADNAME) - { - pkt = unpack_string (pkt, &info->shortname[0], length); - mask = mask & ~TAG_THREADNAME; - continue; - } - if (tag == TAG_DISPLAY) - { - pkt = unpack_string (pkt, &info->display[0], length); - mask = mask & ~TAG_DISPLAY; - continue; - } - if (tag == TAG_MOREDISPLAY) - { - pkt = unpack_string (pkt, &info->more_display[0], length); - mask = mask & ~TAG_MOREDISPLAY; - continue; - } - warning ("ERROR RMT: unknown thread info tag\n"); - break; /* Not a tag we know about */ - } - return retval; -} - -static int -remote_get_threadinfo (threadid, fieldset, info) - threadref *threadid; - int fieldset; /* TAG mask */ - struct gdb_ext_thread_info *info; -{ - int result; - char threadinfo_pkt[PBUFSIZ]; - - pack_threadinfo_request (threadinfo_pkt, fieldset, threadid); - putpkt (threadinfo_pkt); - getpkt (threadinfo_pkt, 0); - result = remote_unpack_thread_info_response (threadinfo_pkt + 2, threadid, - info); - return result; -} - -/* Unfortunately, 61 bit thread-ids are bigger than the internal - representation of a threadid. */ - -static int -adapt_remote_get_threadinfo (ref, selection, info) - gdb_threadref *ref; - int selection; - struct gdb_ext_thread_info *info; -{ - threadref lclref; - - int_to_threadref (&lclref, *ref); - return remote_get_threadinfo (&lclref, selection, info); -} - -/* Format: i'Q':8,i"L":8,initflag:8,batchsize:16,lastthreadid:32 */ - -static char * -pack_threadlist_request (pkt, startflag, threadcount, nextthread) - char *pkt; - int startflag; - int threadcount; - threadref *nextthread; -{ - *pkt++ = 'q'; /* info query packet */ - *pkt++ = 'L'; /* Process LIST or threadLIST request */ - pkt = pack_nibble (pkt, startflag); /* initflag 1 bytes */ - pkt = pack_hex_byte (pkt, threadcount); /* threadcount 2 bytes */ - pkt = pack_threadid (pkt, nextthread); /* 64 bit thread identifier */ - *pkt = '\0'; - return pkt; -} - -/* Encoding: 'q':8,'M':8,count:16,done:8,argthreadid:64,(threadid:64)* */ - -static int -parse_threadlist_response (pkt, result_limit, original_echo, resultlist, - doneflag) - char *pkt; - int result_limit; - threadref *original_echo; - threadref *resultlist; - int *doneflag; -{ - char *limit; - int count, resultcount, done; - - resultcount = 0; - /* Assume the 'q' and 'M chars have been stripped. */ - limit = pkt + (PBUFSIZ - BUF_THREAD_ID_SIZE); /* done parse past here */ - pkt = unpack_byte (pkt, &count); /* count field */ - pkt = unpack_nibble (pkt, &done); - /* The first threadid is the argument threadid. */ - pkt = unpack_threadid (pkt, original_echo); /* should match query packet */ - while ((count-- > 0) && (pkt < limit)) - { - pkt = unpack_threadid (pkt, resultlist++); - if (resultcount++ >= result_limit) - break; - } - if (doneflag) - *doneflag = done; - return resultcount; -} - -static int -remote_get_threadlist (startflag, nextthread, result_limit, - done, result_count, threadlist) - int startflag; - threadref *nextthread; - int result_limit; - int *done; - int *result_count; - threadref *threadlist; - -{ - static threadref echo_nextthread; - char threadlist_packet[PBUFSIZ]; - char t_response[PBUFSIZ]; - int result = 1; - - /* Trancate result limit to be smaller than the packet size */ - if ((((result_limit + 1) * BUF_THREAD_ID_SIZE) + 10) >= PBUFSIZ) - result_limit = (PBUFSIZ / BUF_THREAD_ID_SIZE) - 2; - - pack_threadlist_request (threadlist_packet, - startflag, result_limit, nextthread); - putpkt (threadlist_packet); - getpkt (t_response, 0); - - *result_count = - parse_threadlist_response (t_response + 2, result_limit, &echo_nextthread, - threadlist, done); - - if (!threadmatch (&echo_nextthread, nextthread)) - { - /* FIXME: This is a good reason to drop the packet */ - /* Possably, there is a duplicate response */ - /* Possabilities : - retransmit immediatly - race conditions - retransmit after timeout - yes - exit - wait for packet, then exit - */ - warning ("HMM: threadlist did not echo arg thread, dropping it\n"); - return 0; /* I choose simply exiting */ - } - if (*result_count <= 0) - { - if (*done != 1) - { - warning ("RMT ERROR : failed to get remote thread list\n"); - result = 0; - } - return result; /* break; */ - } - if (*result_count > result_limit) - { - *result_count = 0; - warning ("RMT ERROR: threadlist response longer than requested\n"); - return 0; - } - return result; -} - -/* This is the interface between remote and threads, remotes upper interface */ - -/* remote_find_new_threads retrieves the thread list and for each - thread in the list, looks up the thread in GDB's internal list, - ading the thread if it does not already exist. This involves - getting partial thread lists from the remote target so, polling the - quit_flag is required. */ - - -/* About this many threadisds fit in a packet. */ - -#define MAXTHREADLISTRESULTS 32 - -static int -remote_threadlist_iterator (stepfunction, context, looplimit) - rmt_thread_action stepfunction; - void *context; - int looplimit; -{ - int done, i, result_count; - int startflag = 1; - int result = 1; - int loopcount = 0; - static threadref nextthread; - static threadref resultthreadlist[MAXTHREADLISTRESULTS]; - - done = 0; - while (!done) - { - if (loopcount++ > looplimit) - { - result = 0; - warning ("Remote fetch threadlist -infinite loop-\n"); - break; - } - if (!remote_get_threadlist (startflag, &nextthread, MAXTHREADLISTRESULTS, - &done, &result_count, resultthreadlist)) - { - result = 0; - break; - } - /* clear for later iterations */ - startflag = 0; - /* Setup to resume next batch of thread references, set nextthread. */ - if (result_count >= 1) - copy_threadref (&nextthread, &resultthreadlist[result_count - 1]); - i = 0; - while (result_count--) - if (!(result = (*stepfunction) (&resultthreadlist[i++], context))) - break; - } - return result; -} - -static int -remote_newthread_step (ref, context) - threadref *ref; - void *context; -{ - int pid; - - pid = threadref_to_int (ref); - if (!in_thread_list (pid)) - add_thread (pid); - return 1; /* continue iterator */ -} - -#define CRAZY_MAX_THREADS 1000 - -static int -remote_current_thread (oldpid) - int oldpid; -{ - char buf[PBUFSIZ]; - - putpkt ("qC"); - getpkt (buf, 0); - if (buf[0] == 'Q' && buf[1] == 'C') - return strtol (&buf[2], NULL, 16); - else - return oldpid; -} - -int -remote_find_new_threads () -{ - int ret; - - ret = remote_threadlist_iterator (remote_newthread_step, 0, - CRAZY_MAX_THREADS); - if (inferior_pid == MAGIC_NULL_PID) /* ack ack ack */ - inferior_pid = remote_current_thread (inferior_pid); - return ret; -} - -/* Initialize the thread vector which is used by threads.c */ -/* The thread stub is a package, it has an initializer */ - -static void -init_remote_threads () -{ - remote_thread_vec.find_new_threads = remote_find_new_threads; - remote_thread_vec.get_thread_info = adapt_remote_get_threadinfo; -} - - -/* Restart the remote side; this is an extended protocol operation. */ - -static void -extended_remote_restart () -{ - char buf[PBUFSIZ]; - - /* Send the restart command; for reasons I don't understand the - remote side really expects a number after the "R". */ - buf[0] = 'R'; - sprintf (&buf[1], "%x", 0); - putpkt (buf); - - /* Now query for status so this looks just like we restarted - gdbserver from scratch. */ - putpkt ("?"); - getpkt (buf, 0); -} - -/* Clean up connection to a remote debugger. */ - -/* ARGSUSED */ -static void -remote_close (quitting) - int quitting; -{ - if (remote_desc) - SERIAL_CLOSE (remote_desc); - remote_desc = NULL; -} - -/* Query the remote side for the text, data and bss offsets. */ - -static void -get_offsets () -{ - char buf[PBUFSIZ], *ptr; - int lose; - CORE_ADDR text_addr, data_addr, bss_addr; - struct section_offsets *offs; - - putpkt ("qOffsets"); - - getpkt (buf, 0); - - if (buf[0] == '\000') - return; /* Return silently. Stub doesn't support - this command. */ - if (buf[0] == 'E') - { - warning ("Remote failure reply: %s", buf); - return; - } - - /* Pick up each field in turn. This used to be done with scanf, but - scanf will make trouble if CORE_ADDR size doesn't match - conversion directives correctly. The following code will work - with any size of CORE_ADDR. */ - text_addr = data_addr = bss_addr = 0; - ptr = buf; - lose = 0; - - if (strncmp (ptr, "Text=", 5) == 0) - { - ptr += 5; - /* Don't use strtol, could lose on big values. */ - while (*ptr && *ptr != ';') - text_addr = (text_addr << 4) + fromhex (*ptr++); - } - else - lose = 1; - - if (!lose && strncmp (ptr, ";Data=", 6) == 0) - { - ptr += 6; - while (*ptr && *ptr != ';') - data_addr = (data_addr << 4) + fromhex (*ptr++); - } - else - lose = 1; - - if (!lose && strncmp (ptr, ";Bss=", 5) == 0) - { - ptr += 5; - while (*ptr && *ptr != ';') - bss_addr = (bss_addr << 4) + fromhex (*ptr++); - } - else - lose = 1; - - if (lose) - error ("Malformed response to offset query, %s", buf); - - if (symfile_objfile == NULL) - return; - - offs = (struct section_offsets *) alloca (sizeof (struct section_offsets) - + symfile_objfile->num_sections - * sizeof (offs->offsets)); - memcpy (offs, symfile_objfile->section_offsets, - sizeof (struct section_offsets) - + symfile_objfile->num_sections - * sizeof (offs->offsets)); - - ANOFFSET (offs, SECT_OFF_TEXT) = text_addr; - - /* This is a temporary kludge to force data and bss to use the same offsets - because that's what nlmconv does now. The real solution requires changes - to the stub and remote.c that I don't have time to do right now. */ - - ANOFFSET (offs, SECT_OFF_DATA) = data_addr; - ANOFFSET (offs, SECT_OFF_BSS) = data_addr; - - objfile_relocate (symfile_objfile, offs); -} - -/* Stub for catch_errors. */ - -static int -remote_start_remote (dummy) - PTR dummy; -{ - immediate_quit = 1; /* Allow user to interrupt it */ - - /* Ack any packet which the remote side has already sent. */ - SERIAL_WRITE (remote_desc, "+", 1); - - /* Let the stub know that we want it to return the thread. */ - set_thread (-1, 0); - - inferior_pid = remote_current_thread (inferior_pid); - - get_offsets (); /* Get text, data & bss offsets */ - - putpkt ("?"); /* initiate a query from remote machine */ - immediate_quit = 0; - - start_remote (); /* Initialize gdb process mechanisms */ - return 1; -} - -/* Open a connection to a remote debugger. - NAME is the filename used for communication. */ - -static void -remote_open (name, from_tty) - char *name; - int from_tty; -{ - remote_open_1 (name, from_tty, &remote_ops, 0); -} - -/* Open a connection to a remote debugger using the extended - remote gdb protocol. NAME is the filename used for communication. */ - -static void -extended_remote_open (name, from_tty) - char *name; - int from_tty; -{ - remote_open_1 (name, from_tty, &extended_remote_ops, 1/*extended_p*/); -} - -/* Generic code for opening a connection to a remote target. */ - -static DCACHE *remote_dcache; - -static void -remote_open_1 (name, from_tty, target, extended_p) - char *name; - int from_tty; - struct target_ops *target; - int extended_p; -{ - if (name == 0) - error ("To open a remote debug connection, you need to specify what\n\ -serial device is attached to the remote system (e.g. /dev/ttya)."); - - target_preopen (from_tty); - - unpush_target (target); - - remote_dcache = dcache_init (remote_read_bytes, remote_write_bytes); - - remote_desc = SERIAL_OPEN (name); - if (!remote_desc) - perror_with_name (name); - - if (baud_rate != -1) - { - if (SERIAL_SETBAUDRATE (remote_desc, baud_rate)) - { - SERIAL_CLOSE (remote_desc); - perror_with_name (name); - } - } - - - SERIAL_RAW (remote_desc); - - /* If there is something sitting in the buffer we might take it as a - response to a command, which would be bad. */ - SERIAL_FLUSH_INPUT (remote_desc); - - if (from_tty) - { - puts_filtered ("Remote debugging using "); - puts_filtered (name); - puts_filtered ("\n"); - } - push_target (target); /* Switch to using remote target now */ - - /* The target vector does not have the thread functions in it yet, - so we use this function to call back into the thread module and - register the thread vector and its contained functions. */ - bind_target_thread_vector (&remote_thread_vec); - - /* Start out by trying the 'P' request to set registers. We set - this each time that we open a new target so that if the user - switches from one stub to another, we can (if the target is - closed and reopened) cope. */ - stub_supports_P = 1; - - general_thread = -2; - cont_thread = -2; - - /* Without this, some commands which require an active target (such - as kill) won't work. This variable serves (at least) double duty - as both the pid of the target process (if it has such), and as a - flag indicating that a target is active. These functions should - be split out into seperate variables, especially since GDB will - someday have a notion of debugging several processes. */ - - inferior_pid = MAGIC_NULL_PID; - /* Start the remote connection; if error (0), discard this target. - In particular, if the user quits, be sure to discard it - (we'd be in an inconsistent state otherwise). */ - if (!catch_errors (remote_start_remote, NULL, - "Couldn't establish connection to remote target\n", - RETURN_MASK_ALL)) - { - pop_target (); - return; - } - - if (extended_p) - { - /* tell the remote that we're using the extended protocol. */ - char buf[PBUFSIZ]; - putpkt ("!"); - getpkt (buf, 0); - } -} - -/* This takes a program previously attached to and detaches it. After - this is done, GDB can be used to debug some other program. We - better not have left any breakpoints in the target program or it'll - die when it hits one. */ - -static void -remote_detach (args, from_tty) - char *args; - int from_tty; -{ - char buf[PBUFSIZ]; - - if (args) - error ("Argument given to \"detach\" when remotely debugging."); - - /* Tell the remote target to detach. */ - strcpy (buf, "D"); - remote_send (buf); - - pop_target (); - if (from_tty) - puts_filtered ("Ending remote debugging.\n"); -} - -/* Convert hex digit A to a number. */ - -int -fromhex (a) - int a; -{ - if (a >= '0' && a <= '9') - return a - '0'; - else if (a >= 'a' && a <= 'f') - return a - 'a' + 10; - else if (a >= 'A' && a <= 'F') - return a - 'A' + 10; - else - error ("Reply contains invalid hex digit %d", a); -} - -/* Convert number NIB to a hex digit. */ - -static int -tohex (nib) - int nib; -{ - if (nib < 10) - return '0'+nib; - else - return 'a'+nib-10; -} - -/* Tell the remote machine to resume. */ - -static enum target_signal last_sent_signal = TARGET_SIGNAL_0; - -static int last_sent_step; - -static void -remote_resume (pid, step, siggnal) - int pid, step; - enum target_signal siggnal; -{ - char buf[PBUFSIZ]; - - if (pid == -1) - set_thread (0, 0); /* run any thread */ - else - set_thread (pid, 0); /* run this thread */ - - dcache_flush (remote_dcache); - - last_sent_signal = siggnal; - last_sent_step = step; - - /* A hook for when we need to do something at the last moment before - resumption. */ - if (target_resume_hook) - (*target_resume_hook) (); - - if (siggnal != TARGET_SIGNAL_0) - { - buf[0] = step ? 'S' : 'C'; - buf[1] = tohex (((int)siggnal >> 4) & 0xf); - buf[2] = tohex ((int)siggnal & 0xf); - buf[3] = '\0'; - } - else - strcpy (buf, step ? "s": "c"); - - putpkt (buf); -} - -/* Send ^C to target to halt it. Target will respond, and send us a - packet. */ - -static void (*ofunc) PARAMS ((int)); - -static void -remote_interrupt (signo) - int signo; -{ - remote_stop (); - signal (signo, remote_interrupt); -} - -static void -remote_stop () -{ - if (!interrupted_already) - { - /* Send a break or a ^C, depending on user preference. */ - interrupted_already = 1; - - if (remote_debug) - printf_unfiltered ("remote_stop called\n"); - - if (remote_break) - SERIAL_SEND_BREAK (remote_desc); - else - SERIAL_WRITE (remote_desc, "\003", 1); - } - else - { - signal (SIGINT, ofunc); - interrupt_query (); - signal (SIGINT, remote_interrupt); - interrupted_already = 0; - } -} - -/* Ask the user what to do when an interrupt is received. */ - -static void -interrupt_query () -{ - target_terminal_ours (); - - if (query ("Interrupted while waiting for the program.\n\ -Give up (and stop debugging it)? ")) - { - target_mourn_inferior (); - return_to_top_level (RETURN_QUIT); - } - - target_terminal_inferior (); -} - -/* If nonzero, ignore the next kill. */ - -int kill_kludge; - -void -remote_console_output (msg) - char *msg; -{ - char *p; - - for (p = msg; *p; p +=2) - { - char tb[2]; - char c = fromhex (p[0]) * 16 + fromhex (p[1]); - tb[0] = c; - tb[1] = 0; - if (target_output_hook) - target_output_hook (tb); - else - fputs_filtered (tb, gdb_stdout); - } -} - -/* Wait until the remote machine stops, then return, storing status in - STATUS just as `wait' would. Returns "pid" (though it's not clear - what, if anything, that means in the case of this target). */ - -static int -remote_wait (pid, status) - int pid; - struct target_waitstatus *status; -{ - unsigned char buf[PBUFSIZ]; - int thread_num = -1; - - status->kind = TARGET_WAITKIND_EXITED; - status->value.integer = 0; - - while (1) - { - unsigned char *p; - - interrupted_already = 0; - ofunc = signal (SIGINT, remote_interrupt); - getpkt ((char *) buf, 1); - signal (SIGINT, ofunc); - - /* This is a hook for when we need to do something (perhaps the - collection of trace data) every time the target stops. */ - if (target_wait_loop_hook) - (*target_wait_loop_hook) (); - - switch (buf[0]) - { - case 'E': /* Error of some sort */ - warning ("Remote failure reply: %s", buf); - continue; - case 'T': /* Status with PC, SP, FP, ... */ - { - int i; - long regno; - char regs[MAX_REGISTER_RAW_SIZE]; - - /* Expedited reply, containing Signal, {regno, reg} repeat */ - /* format is: 'Tssn...:r...;n...:r...;n...:r...;#cc', where - ss = signal number - n... = register number - r... = register contents - */ - p = &buf[3]; /* after Txx */ - - while (*p) - { - unsigned char *p1; - char *p_temp; - - /* Read the register number */ - regno = strtol ((const char *) p, &p_temp, 16); - p1 = (unsigned char *)p_temp; - - if (p1 == p) /* No register number present here */ - { - p1 = (unsigned char *) strchr ((const char *) p, ':'); - if (p1 == NULL) - warning ("Malformed packet(a) (missing colon): %s\n\ -Packet: '%s'\n", - p, buf); - if (strncmp ((const char *) p, "thread", p1 - p) == 0) - { - p_temp = unpack_varlen_hex (++p1, &thread_num); - record_currthread (thread_num); - p = (unsigned char *) p_temp; - } - } - else - { - p = p1; - - if (*p++ != ':') - warning ("Malformed packet(b) (missing colon): %s\n\ -Packet: '%s'\n", - p, buf); - - if (regno >= NUM_REGS) - warning ("Remote sent bad register number %ld: %s\n\ -Packet: '%s'\n", - regno, p, buf); - - for (i = 0; i < REGISTER_RAW_SIZE (regno); i++) - { - if (p[0] == 0 || p[1] == 0) - warning ("Remote reply is too short: %s", buf); - regs[i] = fromhex (p[0]) * 16 + fromhex (p[1]); - p += 2; - } - supply_register (regno, regs); - } - - if (*p++ != ';') - { - warning ("Remote register badly formatted: %s", buf); - warning (" here: %s",p); - } - } - } - /* fall through */ - case 'S': /* Old style status, just signal only */ - status->kind = TARGET_WAITKIND_STOPPED; - status->value.sig = (enum target_signal) - (((fromhex (buf[1])) << 4) + (fromhex (buf[2]))); - - goto got_status; - case 'W': /* Target exited */ - { - /* The remote process exited. */ - status->kind = TARGET_WAITKIND_EXITED; - status->value.integer = (fromhex (buf[1]) << 4) + fromhex (buf[2]); - goto got_status; - } - case 'X': - status->kind = TARGET_WAITKIND_SIGNALLED; - status->value.sig = (enum target_signal) - (((fromhex (buf[1])) << 4) + (fromhex (buf[2]))); - kill_kludge = 1; - - goto got_status; - case 'O': /* Console output */ - remote_console_output (buf + 1); - continue; - case '\0': - if (last_sent_signal != TARGET_SIGNAL_0) - { - /* Zero length reply means that we tried 'S' or 'C' and - the remote system doesn't support it. */ - target_terminal_ours_for_output (); - printf_filtered - ("Can't send signals to this remote system. %s not sent.\n", - target_signal_to_name (last_sent_signal)); - last_sent_signal = TARGET_SIGNAL_0; - target_terminal_inferior (); - - strcpy ((char *) buf, last_sent_step ? "s" : "c"); - putpkt ((char *) buf); - continue; - } - /* else fallthrough */ - default: - warning ("Invalid remote reply: %s", buf); - continue; - } - } - got_status: - if (thread_num != -1) - { - /* Initial thread value can only be acquired via wait, so deal with - this marker which is used before the first thread value is - acquired. */ - if (inferior_pid == MAGIC_NULL_PID) - { - inferior_pid = thread_num; - if (!in_thread_list (inferior_pid)) - add_thread (inferior_pid); - } - return thread_num; - } - return inferior_pid; -} - -/* Number of bytes of registers this stub implements. */ - -static int register_bytes_found; - -/* Read the remote registers into the block REGS. */ -/* Currently we just read all the registers, so we don't use regno. */ - -/* ARGSUSED */ -static void -remote_fetch_registers (regno) - int regno; -{ - char buf[PBUFSIZ]; - int i; - char *p; - char regs[REGISTER_BYTES]; - - set_thread (inferior_pid, 1); - - sprintf (buf, "g"); - remote_send (buf); - - if (remote_register_buf_size == 0) - remote_register_buf_size = strlen (buf); - - /* Unimplemented registers read as all bits zero. */ - memset (regs, 0, REGISTER_BYTES); - - /* We can get out of synch in various cases. If the first character - in the buffer is not a hex character, assume that has happened - and try to fetch another packet to read. */ - while ((buf[0] < '0' || buf[0] > '9') - && (buf[0] < 'a' || buf[0] > 'f') - && buf[0] != 'x') /* New: unavailable register value */ - { - if (remote_debug) - printf_unfiltered ("Bad register packet; fetching a new packet\n"); - getpkt (buf, 0); - } - - /* Reply describes registers byte by byte, each byte encoded as two - hex characters. Suck them all up, then supply them to the - register cacheing/storage mechanism. */ - - p = buf; - for (i = 0; i < REGISTER_BYTES; i++) - { - if (p[0] == 0) - break; - if (p[1] == 0) - { - warning ("Remote reply is of odd length: %s", buf); - /* Don't change register_bytes_found in this case, and don't - print a second warning. */ - goto supply_them; - } - if (p[0] == 'x' && p[1] == 'x') - regs[i] = 0; /* 'x' */ - else - regs[i] = fromhex (p[0]) * 16 + fromhex (p[1]); - p += 2; - } - - if (i != register_bytes_found) - { - register_bytes_found = i; -#ifdef REGISTER_BYTES_OK - if (!REGISTER_BYTES_OK (i)) - warning ("Remote reply is too short: %s", buf); -#endif - } - - supply_them: - for (i = 0; i < NUM_REGS; i++) - { - supply_register (i, ®s[REGISTER_BYTE(i)]); - if (buf[REGISTER_BYTE(i) * 2] == 'x') - register_valid[i] = -1; /* register value not available */ - } -} - -/* Prepare to store registers. Since we may send them all (using a - 'G' request), we have to read out the ones we don't want to change - first. */ - -static void -remote_prepare_to_store () -{ - /* Make sure the entire registers array is valid. */ - read_register_bytes (0, (char *)NULL, REGISTER_BYTES); -} - -/* Store register REGNO, or all registers if REGNO == -1, from the contents - of REGISTERS. FIXME: ignores errors. */ - -static void -remote_store_registers (regno) - int regno; -{ - char buf[PBUFSIZ]; - int i; - char *p; - - set_thread (inferior_pid, 1); - - if (regno >= 0 && stub_supports_P) - { - /* Try storing a single register. */ - char *regp; - - sprintf (buf, "P%x=", regno); - p = buf + strlen (buf); - regp = ®isters[REGISTER_BYTE (regno)]; - for (i = 0; i < REGISTER_RAW_SIZE (regno); ++i) - { - *p++ = tohex ((regp[i] >> 4) & 0xf); - *p++ = tohex (regp[i] & 0xf); - } - *p = '\0'; - remote_send (buf); - if (buf[0] != '\0') - { - /* The stub understands the 'P' request. We are done. */ - return; - } - - /* The stub does not support the 'P' request. Use 'G' instead, - and don't try using 'P' in the future (it will just waste our - time). */ - stub_supports_P = 0; - } - - buf[0] = 'G'; - - /* Command describes registers byte by byte, - each byte encoded as two hex characters. */ - - p = buf + 1; - /* remote_prepare_to_store insures that register_bytes_found gets set. */ - for (i = 0; i < register_bytes_found; i++) - { - *p++ = tohex ((registers[i] >> 4) & 0xf); - *p++ = tohex (registers[i] & 0xf); - } - *p = '\0'; - - remote_send (buf); -} - -/* Use of the data cache *used* to be disabled because it loses for looking - at and changing hardware I/O ports and the like. Accepting `volatile' - would perhaps be one way to fix it. Another idea would be to use the - executable file for the text segment (for all SEC_CODE sections? - For all SEC_READONLY sections?). This has problems if you want to - actually see what the memory contains (e.g. self-modifying code, - clobbered memory, user downloaded the wrong thing). - - Because it speeds so much up, it's now enabled, if you're playing - with registers you turn it of (set remotecache 0). */ - -/* Read a word from remote address ADDR and return it. - This goes through the data cache. */ - -#if 0 /* unused? */ -static int -remote_fetch_word (addr) - CORE_ADDR addr; -{ - return dcache_fetch (remote_dcache, addr); -} - -/* Write a word WORD into remote address ADDR. - This goes through the data cache. */ - -static void -remote_store_word (addr, word) - CORE_ADDR addr; - int word; -{ - dcache_poke (remote_dcache, addr, word); -} -#endif /* 0 (unused?) */ - - - -/* Return the number of hex digits in num. */ - -static int -hexnumlen (num) - ULONGEST num; -{ - int i; - - for (i = 0; num != 0; i++) - num >>= 4; - - return max (i, 1); -} - -/* Set BUF to the hex digits representing NUM. */ - -static int -hexnumstr (buf, num) - char *buf; - ULONGEST num; -{ - int i; - int len = hexnumlen (num); - - buf[len] = '\0'; - - for (i = len - 1; i >= 0; i--) - { - buf[i] = "0123456789abcdef" [(num & 0xf)]; - num >>= 4; - } - - return len; -} - -/* Mask all but the least significant REMOTE_ADDRESS_SIZE bits. */ - -static CORE_ADDR -remote_address_masked (addr) - CORE_ADDR addr; -{ - if (remote_address_size > 0 - && remote_address_size < (sizeof (ULONGEST) * 8)) - { - /* Only create a mask when that mask can safely be constructed - in a ULONGEST variable. */ - ULONGEST mask = 1; - mask = (mask << remote_address_size) - 1; - addr &= mask; - } - return addr; -} - -/* Write memory data directly to the remote machine. - This does not inform the data cache; the data cache uses this. - MEMADDR is the address in the remote memory space. - MYADDR is the address of the buffer in our space. - LEN is the number of bytes. - - Returns number of bytes transferred, or 0 for error. */ - -static int -remote_write_bytes (memaddr, myaddr, len) - CORE_ADDR memaddr; - char *myaddr; - int len; -{ - int max_buf_size; /* Max size of packet output buffer */ - int origlen; - - /* Chop the transfer down if necessary */ - - max_buf_size = min (remote_write_size, PBUFSIZ); - if (remote_register_buf_size != 0) - max_buf_size = min (max_buf_size, remote_register_buf_size); - - /* Subtract header overhead from max payload size - $M<memaddr>,<len>:#nn */ - max_buf_size -= 2 + hexnumlen (memaddr + len - 1) + 1 + hexnumlen (len) + 4; - - origlen = len; - while (len > 0) - { - char buf[PBUFSIZ]; - char *p; - int todo; - int i; - - todo = min (len, max_buf_size / 2); /* num bytes that will fit */ - - /* construct "M"<memaddr>","<len>":" */ - /* sprintf (buf, "M%lx,%x:", (unsigned long) memaddr, todo); */ - memaddr = remote_address_masked (memaddr); - p = buf; - *p++ = 'M'; - p += hexnumstr (p, (ULONGEST) memaddr); - *p++ = ','; - p += hexnumstr (p, (ULONGEST) todo); - *p++ = ':'; - *p = '\0'; - - /* We send target system values byte by byte, in increasing byte - addresses, each byte encoded as two hex characters. */ - - for (i = 0; i < todo; i++) - { - *p++ = tohex ((myaddr[i] >> 4) & 0xf); - *p++ = tohex (myaddr[i] & 0xf); - } - *p = '\0'; - - putpkt (buf); - getpkt (buf, 0); - - if (buf[0] == 'E') - { - /* There is no correspondance between what the remote protocol uses - for errors and errno codes. We would like a cleaner way of - representing errors (big enough to include errno codes, bfd_error - codes, and others). But for now just return EIO. */ - errno = EIO; - return 0; - } - myaddr += todo; - memaddr += todo; - len -= todo; - } - return origlen; -} - -/* Read memory data directly from the remote machine. - This does not use the data cache; the data cache uses this. - MEMADDR is the address in the remote memory space. - MYADDR is the address of the buffer in our space. - LEN is the number of bytes. - - Returns number of bytes transferred, or 0 for error. */ - -static int -remote_read_bytes (memaddr, myaddr, len) - CORE_ADDR memaddr; - char *myaddr; - int len; -{ - int max_buf_size; /* Max size of packet output buffer */ - int origlen; - - /* Chop the transfer down if necessary */ - - max_buf_size = min (remote_write_size, PBUFSIZ); - if (remote_register_buf_size != 0) - max_buf_size = min (max_buf_size, remote_register_buf_size); - - origlen = len; - while (len > 0) - { - char buf[PBUFSIZ]; - char *p; - int todo; - int i; - - todo = min (len, max_buf_size / 2); /* num bytes that will fit */ - - /* construct "m"<memaddr>","<len>" */ - /* sprintf (buf, "m%lx,%x", (unsigned long) memaddr, todo); */ - memaddr = remote_address_masked (memaddr); - p = buf; - *p++ = 'm'; - p += hexnumstr (p, (ULONGEST) memaddr); - *p++ = ','; - p += hexnumstr (p, (ULONGEST) todo); - *p = '\0'; - - putpkt (buf); - getpkt (buf, 0); - - if (buf[0] == 'E') - { - /* There is no correspondance between what the remote protocol uses - for errors and errno codes. We would like a cleaner way of - representing errors (big enough to include errno codes, bfd_error - codes, and others). But for now just return EIO. */ - errno = EIO; - return 0; - } - - /* Reply describes memory byte by byte, - each byte encoded as two hex characters. */ - - p = buf; - for (i = 0; i < todo; i++) - { - if (p[0] == 0 || p[1] == 0) - /* Reply is short. This means that we were able to read - only part of what we wanted to. */ - return i + (origlen - len); - myaddr[i] = fromhex (p[0]) * 16 + fromhex (p[1]); - p += 2; - } - myaddr += todo; - memaddr += todo; - len -= todo; - } - return origlen; -} - -/* Read or write LEN bytes from inferior memory at MEMADDR, - transferring to or from debugger address MYADDR. Write to inferior - if SHOULD_WRITE is nonzero. Returns length of data written or - read; 0 for error. */ - -/* ARGSUSED */ -static int -remote_xfer_memory (memaddr, myaddr, len, should_write, target) - CORE_ADDR memaddr; - char *myaddr; - int len; - int should_write; - struct target_ops *target; /* ignored */ -{ -#ifdef REMOTE_TRANSLATE_XFER_ADDRESS - CORE_ADDR targaddr; - int targlen; - REMOTE_TRANSLATE_XFER_ADDRESS (memaddr, len, targaddr, targlen); - if (targlen == 0) - return 0; - memaddr = targaddr; - len = targlen; -#endif - - return dcache_xfer_memory (remote_dcache, memaddr, myaddr, - len, should_write); -} - - -#if 0 -/* Enable after 4.12. */ - -void -remote_search (len, data, mask, startaddr, increment, lorange, hirange - addr_found, data_found) - int len; - char *data; - char *mask; - CORE_ADDR startaddr; - int increment; - CORE_ADDR lorange; - CORE_ADDR hirange; - CORE_ADDR *addr_found; - char *data_found; -{ - if (increment == -4 && len == 4) - { - long mask_long, data_long; - long data_found_long; - CORE_ADDR addr_we_found; - char buf[PBUFSIZ]; - long returned_long[2]; - char *p; - - mask_long = extract_unsigned_integer (mask, len); - data_long = extract_unsigned_integer (data, len); - sprintf (buf, "t%x:%x,%x", startaddr, data_long, mask_long); - putpkt (buf); - getpkt (buf, 0); - if (buf[0] == '\0') - { - /* The stub doesn't support the 't' request. We might want to - remember this fact, but on the other hand the stub could be - switched on us. Maybe we should remember it only until - the next "target remote". */ - generic_search (len, data, mask, startaddr, increment, lorange, - hirange, addr_found, data_found); - return; - } - - if (buf[0] == 'E') - /* There is no correspondance between what the remote protocol uses - for errors and errno codes. We would like a cleaner way of - representing errors (big enough to include errno codes, bfd_error - codes, and others). But for now just use EIO. */ - memory_error (EIO, startaddr); - p = buf; - addr_we_found = 0; - while (*p != '\0' && *p != ',') - addr_we_found = (addr_we_found << 4) + fromhex (*p++); - if (*p == '\0') - error ("Protocol error: short return for search"); - - data_found_long = 0; - while (*p != '\0' && *p != ',') - data_found_long = (data_found_long << 4) + fromhex (*p++); - /* Ignore anything after this comma, for future extensions. */ - - if (addr_we_found < lorange || addr_we_found >= hirange) - { - *addr_found = 0; - return; - } - - *addr_found = addr_we_found; - *data_found = store_unsigned_integer (data_we_found, len); - return; - } - generic_search (len, data, mask, startaddr, increment, lorange, - hirange, addr_found, data_found); -} -#endif /* 0 */ - -static void -remote_files_info (ignore) - struct target_ops *ignore; -{ - puts_filtered ("Debugging a target over a serial line.\n"); -} - -/* Stuff for dealing with the packets which are part of this protocol. - See comment at top of file for details. */ - -/* Read a single character from the remote end, masking it down to 7 bits. */ - -static int -readchar (timeout) - int timeout; -{ - int ch; - - ch = SERIAL_READCHAR (remote_desc, timeout); - - switch (ch) - { - case SERIAL_EOF: - error ("Remote connection closed"); - case SERIAL_ERROR: - perror_with_name ("Remote communication error"); - case SERIAL_TIMEOUT: - return ch; - default: - return ch & 0x7f; - } -} - -/* Send the command in BUF to the remote machine, and read the reply - into BUF. Report an error if we get an error reply. */ - -static void -remote_send (buf) - char *buf; -{ - putpkt (buf); - getpkt (buf, 0); - - if (buf[0] == 'E') - error ("Remote failure reply: %s", buf); -} - -/* Display a null-terminated packet on stdout, for debugging, using C - string notation. */ - -static void -print_packet (buf) - char *buf; -{ - puts_filtered ("\""); - while (*buf) - gdb_printchar (*buf++, gdb_stdout, '"'); - puts_filtered ("\""); -} - - -/* Send a packet to the remote machine, with error checking. The data - of the packet is in BUF. The string in BUF can be at most PBUFSIZ - 5 - to account for the $, # and checksum, and for a possible /0 if we are - debugging (remote_debug) and want to print the sent packet as a string */ - -int -putpkt (buf) - char *buf; -{ - int i; - unsigned char csum = 0; - char buf2[PBUFSIZ]; - int cnt = strlen (buf); - int ch; - int tcount = 0; - char *p; - - /* Copy the packet into buffer BUF2, encapsulating it - and giving it a checksum. */ - - if (cnt > (int) sizeof (buf2) - 5) /* Prosanity check */ - abort (); - - p = buf2; - *p++ = '$'; - - for (i = 0; i < cnt; i++) - { - csum += buf[i]; - *p++ = buf[i]; - } - *p++ = '#'; - *p++ = tohex ((csum >> 4) & 0xf); - *p++ = tohex (csum & 0xf); - - /* Send it over and over until we get a positive ack. */ - - while (1) - { - int started_error_output = 0; - - if (remote_debug) - { - *p = '\0'; - printf_unfiltered ("Sending packet: %s...", buf2); - gdb_flush (gdb_stdout); - } - if (SERIAL_WRITE (remote_desc, buf2, p - buf2)) - perror_with_name ("putpkt: write failed"); - - /* read until either a timeout occurs (-2) or '+' is read */ - while (1) - { - ch = readchar (remote_timeout); - - if (remote_debug) - { - switch (ch) - { - case '+': - case SERIAL_TIMEOUT: - case '$': - if (started_error_output) - { - putchar_unfiltered ('\n'); - started_error_output = 0; - } - } - } - - switch (ch) - { - case '+': - if (remote_debug) - printf_unfiltered ("Ack\n"); - return 1; - case SERIAL_TIMEOUT: - tcount ++; - if (tcount > 3) - return 0; - break; /* Retransmit buffer */ - case '$': - { - char junkbuf[PBUFSIZ]; - - /* It's probably an old response, and we're out of sync. - Just gobble up the packet and ignore it. */ - getpkt (junkbuf, 0); - continue; /* Now, go look for + */ - } - default: - if (remote_debug) - { - if (!started_error_output) - { - started_error_output = 1; - printf_unfiltered ("putpkt: Junk: "); - } - putchar_unfiltered (ch & 0177); - } - continue; - } - break; /* Here to retransmit */ - } - -#if 0 - /* This is wrong. If doing a long backtrace, the user should be - able to get out next time we call QUIT, without anything as - violent as interrupt_query. If we want to provide a way out of - here without getting to the next QUIT, it should be based on - hitting ^C twice as in remote_wait. */ - if (quit_flag) - { - quit_flag = 0; - interrupt_query (); - } -#endif - } -} - -/* Come here after finding the start of the frame. Collect the rest - into BUF, verifying the checksum, length, and handling run-length - compression. Returns 0 on any error, 1 on success. */ - -static int -read_frame (buf) - char *buf; -{ - unsigned char csum; - char *bp; - int c; - - csum = 0; - bp = buf; - - while (1) - { - c = readchar (remote_timeout); - - switch (c) - { - case SERIAL_TIMEOUT: - if (remote_debug) - puts_filtered ("Timeout in mid-packet, retrying\n"); - return 0; - case '$': - if (remote_debug) - puts_filtered ("Saw new packet start in middle of old one\n"); - return 0; /* Start a new packet, count retries */ - case '#': - { - unsigned char pktcsum; - - *bp = '\000'; - - pktcsum = fromhex (readchar (remote_timeout)) << 4; - pktcsum |= fromhex (readchar (remote_timeout)); - - if (csum == pktcsum) - return 1; - - if (remote_debug) - { - printf_filtered ("Bad checksum, sentsum=0x%x, csum=0x%x, buf=", - pktcsum, csum); - puts_filtered (buf); - puts_filtered ("\n"); - } - return 0; - } - case '*': /* Run length encoding */ - csum += c; - c = readchar (remote_timeout); - csum += c; - c = c - ' ' + 3; /* Compute repeat count */ - - - if (c > 0 && c < 255 && bp + c - 1 < buf + PBUFSIZ - 1) - { - memset (bp, *(bp - 1), c); - bp += c; - continue; - } - - *bp = '\0'; - printf_filtered ("Repeat count %d too large for buffer: ", c); - puts_filtered (buf); - puts_filtered ("\n"); - return 0; - - default: - if (bp < buf + PBUFSIZ - 1) - { - *bp++ = c; - csum += c; - continue; - } - - *bp = '\0'; - puts_filtered ("Remote packet too long: "); - puts_filtered (buf); - puts_filtered ("\n"); - - return 0; - } - } -} - -/* Read a packet from the remote machine, with error checking, and - store it in BUF. BUF is expected to be of size PBUFSIZ. If - FOREVER, wait forever rather than timing out; this is used while - the target is executing user code. */ - -void -getpkt (buf, forever) - char *buf; - int forever; -{ - int c; - int tries; - int timeout; - int val; - - strcpy (buf,"timeout"); - - if (forever) - { -#ifdef MAINTENANCE_CMDS - timeout = watchdog > 0 ? watchdog : -1; -#else - timeout = -1; -#endif - } - - else - timeout = remote_timeout; - -#define MAX_TRIES 3 - - for (tries = 1; tries <= MAX_TRIES; tries++) - { - /* This can loop forever if the remote side sends us characters - continuously, but if it pauses, we'll get a zero from readchar - because of timeout. Then we'll count that as a retry. */ - - /* Note that we will only wait forever prior to the start of a packet. - After that, we expect characters to arrive at a brisk pace. They - should show up within remote_timeout intervals. */ - - do - { - c = readchar (timeout); - - if (c == SERIAL_TIMEOUT) - { -#ifdef MAINTENANCE_CMDS - if (forever) /* Watchdog went off. Kill the target. */ - { - target_mourn_inferior (); - error ("Watchdog has expired. Target detached.\n"); - } -#endif - if (remote_debug) - puts_filtered ("Timed out.\n"); - goto retry; - } - } - while (c != '$'); - - /* We've found the start of a packet, now collect the data. */ - - val = read_frame (buf); - - if (val == 1) - { - if (remote_debug) - fprintf_unfiltered (gdb_stdout, "Packet received: %s\n", buf); - SERIAL_WRITE (remote_desc, "+", 1); - return; - } - - /* Try the whole thing again. */ - retry: - SERIAL_WRITE (remote_desc, "-", 1); - } - - /* We have tried hard enough, and just can't receive the packet. Give up. */ - - printf_unfiltered ("Ignoring packet error, continuing...\n"); - SERIAL_WRITE (remote_desc, "+", 1); -} - -static void -remote_kill () -{ - /* For some mysterious reason, wait_for_inferior calls kill instead of - mourn after it gets TARGET_WAITKIND_SIGNALLED. Work around it. */ - if (kill_kludge) - { - kill_kludge = 0; - target_mourn_inferior (); - return; - } - - /* Use catch_errors so the user can quit from gdb even when we aren't on - speaking terms with the remote system. */ - catch_errors ((catch_errors_ftype*) putpkt, "k", "", RETURN_MASK_ERROR); - - /* Don't wait for it to die. I'm not really sure it matters whether - we do or not. For the existing stubs, kill is a noop. */ - target_mourn_inferior (); -} - -static void -remote_mourn () -{ - remote_mourn_1 (&remote_ops); -} - -static void -extended_remote_mourn () -{ - /* We do _not_ want to mourn the target like this; this will - remove the extended remote target from the target stack, - and the next time the user says "run" it'll fail. - - FIXME: What is the right thing to do here? */ -#if 0 - remote_mourn_1 (&extended_remote_ops); -#endif -} - -/* Worker function for remote_mourn. */ -static void -remote_mourn_1 (target) - struct target_ops *target; -{ - unpush_target (target); - generic_mourn_inferior (); -} - -/* In the extended protocol we want to be able to do things like - "run" and have them basically work as expected. So we need - a special create_inferior function. - - FIXME: One day add support for changing the exec file - we're debugging, arguments and an environment. */ - -static void -extended_remote_create_inferior (exec_file, args, env) - char *exec_file; - char *args; - char **env; -{ - /* Rip out the breakpoints; we'll reinsert them after restarting - the remote server. */ - remove_breakpoints (); - - /* Now restart the remote server. */ - extended_remote_restart (); - - /* Now put the breakpoints back in. This way we're safe if the - restart function works via a unix fork on the remote side. */ - insert_breakpoints (); - - /* Clean up from the last time we were running. */ - clear_proceed_status (); - - /* Let the remote process run. */ - proceed (-1, TARGET_SIGNAL_0, 0); -} - - -/* On some machines, e.g. 68k, we may use a different breakpoint instruction - than other targets; in those use REMOTE_BREAKPOINT instead of just - BREAKPOINT. Also, bi-endian targets may define LITTLE_REMOTE_BREAKPOINT - and BIG_REMOTE_BREAKPOINT. If none of these are defined, we just call - the standard routines that are in mem-break.c. */ - -/* FIXME, these ought to be done in a more dynamic fashion. For instance, - the choice of breakpoint instruction affects target program design and - vice versa, and by making it user-tweakable, the special code here - goes away and we need fewer special GDB configurations. */ - -#if defined (LITTLE_REMOTE_BREAKPOINT) && defined (BIG_REMOTE_BREAKPOINT) && !defined(REMOTE_BREAKPOINT) -#define REMOTE_BREAKPOINT -#endif - -#ifdef REMOTE_BREAKPOINT - -/* If the target isn't bi-endian, just pretend it is. */ -#if !defined (LITTLE_REMOTE_BREAKPOINT) && !defined (BIG_REMOTE_BREAKPOINT) -#define LITTLE_REMOTE_BREAKPOINT REMOTE_BREAKPOINT -#define BIG_REMOTE_BREAKPOINT REMOTE_BREAKPOINT -#endif - -static unsigned char big_break_insn[] = BIG_REMOTE_BREAKPOINT; -static unsigned char little_break_insn[] = LITTLE_REMOTE_BREAKPOINT; - -#endif /* REMOTE_BREAKPOINT */ - -/* Insert a breakpoint on targets that don't have any better breakpoint - support. We read the contents of the target location and stash it, - then overwrite it with a breakpoint instruction. ADDR is the target - location in the target machine. CONTENTS_CACHE is a pointer to - memory allocated for saving the target contents. It is guaranteed - by the caller to be long enough to save sizeof BREAKPOINT bytes (this - is accomplished via BREAKPOINT_MAX). */ - -static int -remote_insert_breakpoint (addr, contents_cache) - CORE_ADDR addr; - char *contents_cache; -{ -#ifdef REMOTE_BREAKPOINT - int val; - - val = target_read_memory (addr, contents_cache, sizeof big_break_insn); - - if (val == 0) - { - if (TARGET_BYTE_ORDER == BIG_ENDIAN) - val = target_write_memory (addr, (char *) big_break_insn, - sizeof big_break_insn); - else - val = target_write_memory (addr, (char *) little_break_insn, - sizeof little_break_insn); - } - - return val; -#else - return memory_insert_breakpoint (addr, contents_cache); -#endif /* REMOTE_BREAKPOINT */ -} - -static int -remote_remove_breakpoint (addr, contents_cache) - CORE_ADDR addr; - char *contents_cache; -{ -#ifdef REMOTE_BREAKPOINT - return target_write_memory (addr, contents_cache, sizeof big_break_insn); -#else - return memory_remove_breakpoint (addr, contents_cache); -#endif /* REMOTE_BREAKPOINT */ -} - -/* Some targets are only capable of doing downloads, and afterwards - they switch to the remote serial protocol. This function provides - a clean way to get from the download target to the remote target. - It's basically just a wrapper so that we don't have to expose any - of the internal workings of remote.c. - - Prior to calling this routine, you should shutdown the current - target code, else you will get the "A program is being debugged - already..." message. Usually a call to pop_target() suffices. */ - -void -push_remote_target (name, from_tty) - char *name; - int from_tty; -{ - printf_filtered ("Switching to remote protocol\n"); - remote_open (name, from_tty); -} - -/* Other targets want to use the entire remote serial module but with - certain remote_ops overridden. */ - -void -open_remote_target (name, from_tty, target, extended_p) - char *name; - int from_tty; - struct target_ops *target; - int extended_p; -{ - printf_filtered ("Selecting the %sremote protocol\n", - (extended_p ? "extended-" : "")); - remote_open_1 (name, from_tty, target, extended_p); -} - -/* Table used by the crc32 function to calcuate the checksum. */ - -static unsigned long crc32_table[256] = {0, 0}; - -static unsigned long -crc32 (buf, len, crc) - unsigned char *buf; - int len; - unsigned int crc; -{ - if (! crc32_table[1]) - { - /* Initialize the CRC table and the decoding table. */ - int i, j; - unsigned int c; - - for (i = 0; i < 256; i++) - { - for (c = i << 24, j = 8; j > 0; --j) - c = c & 0x80000000 ? (c << 1) ^ 0x04c11db7 : (c << 1); - crc32_table[i] = c; - } - } - - while (len--) - { - crc = (crc << 8) ^ crc32_table[((crc >> 24) ^ *buf) & 255]; - buf++; - } - return crc; -} - -/* compare-sections command - - With no arguments, compares each loadable section in the exec bfd - with the same memory range on the target, and reports mismatches. - Useful for verifying the image on the target against the exec file. - Depends on the target understanding the new "qCRC:" request. */ - -static void -compare_sections_command (args, from_tty) - char *args; - int from_tty; -{ - asection *s; - unsigned long host_crc, target_crc; - extern bfd *exec_bfd; - struct cleanup *old_chain; - char *tmp, *sectdata, *sectname, buf[PBUFSIZ]; - bfd_size_type size; - bfd_vma lma; - int matched = 0; - int mismatched = 0; - - if (!exec_bfd) - error ("command cannot be used without an exec file"); - if (!current_target.to_shortname || - strcmp (current_target.to_shortname, "remote") != 0) - error ("command can only be used with remote target"); - - for (s = exec_bfd->sections; s; s = s->next) - { - if (!(s->flags & SEC_LOAD)) - continue; /* skip non-loadable section */ - - size = bfd_get_section_size_before_reloc (s); - if (size == 0) - continue; /* skip zero-length section */ - - sectname = (char *) bfd_get_section_name (exec_bfd, s); - if (args && strcmp (args, sectname) != 0) - continue; /* not the section selected by user */ - - matched = 1; /* do this section */ - lma = s->lma; - /* FIXME: assumes lma can fit into long */ - sprintf (buf, "qCRC:%lx,%lx", (long) lma, (long) size); - putpkt (buf); - - /* be clever; compute the host_crc before waiting for target reply */ - sectdata = xmalloc (size); - old_chain = make_cleanup (free, sectdata); - bfd_get_section_contents (exec_bfd, s, sectdata, 0, size); - host_crc = crc32 ((unsigned char *) sectdata, size, 0xffffffff); - - getpkt (buf, 0); - if (buf[0] == 'E') - error ("target memory fault, section %s, range 0x%08x -- 0x%08x", - sectname, lma, lma + size); - if (buf[0] != 'C') - error ("remote target does not support this operation"); - - for (target_crc = 0, tmp = &buf[1]; *tmp; tmp++) - target_crc = target_crc * 16 + fromhex (*tmp); - - printf_filtered ("Section %s, range 0x%08x -- 0x%08x: ", - sectname, lma, lma + size); - if (host_crc == target_crc) - printf_filtered ("matched.\n"); - else - { - printf_filtered ("MIS-MATCHED!\n"); - mismatched++; - } - - do_cleanups (old_chain); - } - if (mismatched > 0) - warning ("One or more sections of the remote executable does not match\n\ -the loaded file\n"); - if (args && !matched) - printf_filtered ("No loaded section named '%s'.\n", args); -} - -static int -remote_query (query_type, buf, outbuf, bufsiz) - char query_type; - char *buf; - char *outbuf; - int *bufsiz; -{ - int i; - char buf2[PBUFSIZ]; - char *p2 = &buf2[0]; - char *p = buf; - - if (! bufsiz) - error ("null pointer to remote bufer size specified"); - - /* minimum outbuf size is PBUFSIZE - if bufsiz is not large enough let - the caller know and return what the minimum size is */ - /* Note: a zero bufsiz can be used to query the minimum buffer size */ - if ( *bufsiz < PBUFSIZ ) - { - *bufsiz = PBUFSIZ; - return -1; - } - - /* except for querying the minimum buffer size, target must be open */ - if (! remote_desc) - error ("remote query is only available after target open"); - - /* we only take uppercase letters as query types, at least for now */ - if ( (query_type < 'A') || (query_type > 'Z') ) - error ("invalid remote query type"); - - if (! buf) - error ("null remote query specified"); - - if (! outbuf) - error ("remote query requires a buffer to receive data"); - - outbuf[0] = '\0'; - - *p2++ = 'q'; - *p2++ = query_type; - - /* we used one buffer char for the remote protocol q command and another - for the query type. As the remote protocol encapsulation uses 4 chars - plus one extra in case we are debugging (remote_debug), - we have PBUFZIZ - 7 left to pack the query string */ - i = 0; - while ( buf[i] && (i < (PBUFSIZ - 8)) ) - { - /* bad caller may have sent forbidden characters */ - if ( (!isprint(buf[i])) || (buf[i] == '$') || (buf[i] == '#') ) - error ("illegal characters in query string"); - - *p2++ = buf[i]; - i++; - } - *p2 = buf[i]; - - if ( buf[i] ) - error ("query larger than available buffer"); - - i = putpkt (buf2); - if ( i < 0 ) return i; - - getpkt (outbuf, 0); - - return 0; -} - -static void -packet_command (args, from_tty) - char *args; - int from_tty; -{ - char buf[PBUFSIZ]; - - if (! remote_desc) - error ("command can only be used with remote target"); - - if (! args) - error ("remote-packet command requires packet text as argument"); - - puts_filtered ("sending: "); - print_packet (args); - puts_filtered ("\n"); - putpkt (args); - - getpkt (buf, 0); - puts_filtered ("received: "); - print_packet (buf); - puts_filtered ("\n"); -} - -#if 0 -/* --------- UNIT_TEST for THREAD oriented PACKETS ------------------------- */ - -static void display_thread_info PARAMS ((struct gdb_ext_thread_info *info)); - -static void threadset_test_cmd PARAMS ((char *cmd, int tty)); - -static void threadalive_test PARAMS ((char *cmd, int tty)); - -static void threadlist_test_cmd PARAMS ((char *cmd, int tty)); - -int get_and_display_threadinfo PARAMS ((threadref *ref)); - -static void threadinfo_test_cmd PARAMS ((char *cmd, int tty)); - -static int thread_display_step PARAMS ((threadref *ref, void *context)); - -static void threadlist_update_test_cmd PARAMS ((char *cmd, int tty)); - -static void init_remote_threadtests PARAMS ((void)); - -#define SAMPLE_THREAD 0x05060708 /* Truncated 64 bit threadid */ - -static void -threadset_test_cmd (cmd, tty) - char *cmd; - int tty; -{ - int sample_thread = SAMPLE_THREAD; - - printf_filtered ("Remote threadset test\n"); - set_thread (sample_thread, 1); -} - - -static void -threadalive_test (cmd, tty) - char *cmd; - int tty; -{ - int sample_thread = SAMPLE_THREAD; - - if (remote_thread_alive (sample_thread)) - printf_filtered ("PASS: Thread alive test\n"); - else - printf_filtered ("FAIL: Thread alive test\n"); -} - -void output_threadid PARAMS ((char *title, threadref * ref)); - -void -output_threadid (title, ref) - char *title; - threadref *ref; -{ - char hexid[20]; - - pack_threadid (&hexid[0], ref); /* Convert threead id into hex */ - hexid[16] = 0; - printf_filtered ("%s %s\n", title, (&hexid[0])); -} - -static void -threadlist_test_cmd (cmd, tty) - char *cmd; - int tty; -{ - int startflag = 1; - threadref nextthread; - int done, result_count; - threadref threadlist[3]; - - printf_filtered ("Remote Threadlist test\n"); - if (!remote_get_threadlist (startflag, &nextthread, 3, &done, - &result_count, &threadlist[0])) - printf_filtered ("FAIL: threadlist test\n"); - else - { - threadref *scan = threadlist; - threadref *limit = scan + result_count; - - while (scan < limit) - output_threadid (" thread ", scan++); - } -} - -void -display_thread_info (info) - struct gdb_ext_thread_info *info; -{ - output_threadid ("Threadid: ", &info->threadid); - printf_filtered ("Name: %s\n ", info->shortname); - printf_filtered ("State: %s\n", info->display); - printf_filtered ("other: %s\n\n", info->more_display); -} - -int -get_and_display_threadinfo (ref) - threadref *ref; -{ - int result; - int set; - struct gdb_ext_thread_info threadinfo; - - set = TAG_THREADID | TAG_EXISTS | TAG_THREADNAME - | TAG_MOREDISPLAY | TAG_DISPLAY; - if (0 != (result = remote_get_threadinfo (ref, set, &threadinfo))) - display_thread_info (&threadinfo); - return result; -} - -static void -threadinfo_test_cmd (cmd, tty) - char *cmd; - int tty; -{ - int athread = SAMPLE_THREAD; - threadref thread; - int set; - - int_to_threadref (&thread, athread); - printf_filtered ("Remote Threadinfo test\n"); - if (!get_and_display_threadinfo (&thread)) - printf_filtered ("FAIL cannot get thread info\n"); -} - -static int -thread_display_step (ref, context) - threadref *ref; - void *context; -{ - /* output_threadid(" threadstep ",ref); *//* simple test */ - return get_and_display_threadinfo (ref); -} - -static void -threadlist_update_test_cmd (cmd, tty) - char *cmd; - int tty; -{ - printf_filtered ("Remote Threadlist update test\n"); - remote_threadlist_iterator (thread_display_step, 0, CRAZY_MAX_THREADS); -} - -static void -init_remote_threadtests (void) -{ - add_com ("tlist", class_obscure, threadlist_test_cmd, - "Fetch and print the remote list of thread identifiers, one pkt only"); - add_com ("tinfo", class_obscure, threadinfo_test_cmd, - "Fetch and display info about one thread"); - add_com ("tset", class_obscure, threadset_test_cmd, - "Test setting to a different thread"); - add_com ("tupd", class_obscure, threadlist_update_test_cmd, - "Iterate through updating all remote thread info"); - add_com ("talive", class_obscure, threadalive_test, - " Remote thread alive test "); -} - -#endif /* 0 */ - -static void -init_remote_ops () -{ - remote_ops.to_shortname = "remote"; - remote_ops.to_longname = "Remote serial target in gdb-specific protocol"; - remote_ops.to_doc = - "Use a remote computer via a serial line, using a gdb-specific protocol.\n\ -Specify the serial device it is connected to (e.g. /dev/ttya)."; - remote_ops.to_open = remote_open; - remote_ops.to_close = remote_close; - remote_ops.to_detach = remote_detach; - remote_ops.to_resume = remote_resume; - remote_ops.to_wait = remote_wait; - remote_ops.to_fetch_registers = remote_fetch_registers; - remote_ops.to_store_registers = remote_store_registers; - remote_ops.to_prepare_to_store = remote_prepare_to_store; - remote_ops.to_xfer_memory = remote_xfer_memory; - remote_ops.to_files_info = remote_files_info; - remote_ops.to_insert_breakpoint = remote_insert_breakpoint; - remote_ops.to_remove_breakpoint = remote_remove_breakpoint; - remote_ops.to_kill = remote_kill; - remote_ops.to_load = generic_load; - remote_ops.to_mourn_inferior = remote_mourn; - remote_ops.to_thread_alive = remote_thread_alive; - remote_ops.to_stop = remote_stop; - remote_ops.to_query = remote_query; - remote_ops.to_stratum = process_stratum; - remote_ops.to_has_all_memory = 1; - remote_ops.to_has_memory = 1; - remote_ops.to_has_stack = 1; - remote_ops.to_has_registers = 1; - remote_ops.to_has_execution = 1; - remote_ops.to_has_thread_control = tc_schedlock; /* can lock scheduler */ - remote_ops.to_magic = OPS_MAGIC; -} - -/* Set up the extended remote vector by making a copy of the standard - remote vector and adding to it. */ - -static void -init_extended_remote_ops () -{ - extended_remote_ops = remote_ops; - - extended_remote_ops.to_shortname = "extended-remote"; - extended_remote_ops.to_longname = - "Extended remote serial target in gdb-specific protocol"; - extended_remote_ops.to_doc = - "Use a remote computer via a serial line, using a gdb-specific protocol.\n\ -Specify the serial device it is connected to (e.g. /dev/ttya).", - extended_remote_ops.to_open = extended_remote_open; - extended_remote_ops.to_create_inferior = extended_remote_create_inferior; - extended_remote_ops.to_mourn_inferior = extended_remote_mourn; -} - -void -_initialize_remote () -{ - init_remote_ops (); - add_target (&remote_ops); - - init_extended_remote_ops (); - add_target (&extended_remote_ops); - init_remote_threads (); -#if 0 - init_remote_threadtests (); -#endif - - add_cmd ("compare-sections", class_obscure, compare_sections_command, - "Compare section data on target to the exec file.\n\ -Argument is a single section name (default: all loaded sections).", - &cmdlist); - - add_cmd ("packet", class_maintenance, packet_command, - "Send an arbitrary packet to a remote target.\n\ - maintenance packet TEXT\n\ -If GDB is talking to an inferior via the GDB serial protocol, then\n\ -this command sends the string TEXT to the inferior, and displays the\n\ -response packet. GDB supplies the initial `$' character, and the\n\ -terminating `#' character and checksum.", - &maintenancelist); - - add_show_from_set - (add_set_cmd ("remotetimeout", no_class, - var_integer, (char *)&remote_timeout, - "Set timeout value for remote read.\n", - &setlist), - &showlist); - - add_show_from_set - (add_set_cmd ("remotebreak", no_class, - var_integer, (char *)&remote_break, - "Set whether to send break if interrupted.\n", - &setlist), - &showlist); - - add_show_from_set - (add_set_cmd ("remotewritesize", no_class, - var_integer, (char *)&remote_write_size, - "Set the maximum number of bytes per memory write packet.\n", - &setlist), - &showlist); - - remote_address_size = TARGET_PTR_BIT; - add_show_from_set - (add_set_cmd ("remoteaddresssize", class_obscure, - var_integer, (char *)&remote_address_size, - "Set the maximum size of the address (in bits) \ -in a memory packet.\n", - &setlist), - &showlist); -} |