1 /* Remote target communications for serial-line targets in custom GDB protocol
2 Copyright 1988, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* Remote communication protocol.
22 A debug packet whose contents are <data>
23 is encapsulated for transmission in the form:
25 $ <data> # CSUM1 CSUM2
27 <data> must be ASCII alphanumeric and cannot include characters
28 '$' or '#'. If <data> starts with two characters followed by
29 ':', then the existing stubs interpret this as a sequence number.
31 CSUM1 and CSUM2 are ascii hex representation of an 8-bit
32 checksum of <data>, the most significant nibble is sent first.
33 the hex digits 0-9,a-f are used.
35 Receiver responds with:
37 + - if CSUM is correct and ready for next packet
38 - - if CSUM is incorrect
41 All values are encoded in ascii hex digits.
46 reply XX....X Each byte of register data
47 is described by two hex digits.
48 Registers are in the internal order
49 for GDB, and the bytes in a register
50 are in the same order the machine uses.
53 write regs GXX..XX Each byte of register data
54 is described by two hex digits.
58 write reg Pn...=r... Write register n... with value r...,
59 which contains two hex digits for each
60 byte in the register (target byte
64 (not supported by all stubs).
66 read mem mAA..AA,LLLL AA..AA is address, LLLL is length.
67 reply XX..XX XX..XX is mem contents
68 Can be fewer bytes than requested
69 if able to read only part of the data.
72 write mem MAA..AA,LLLL:XX..XX
74 LLLL is number of bytes,
77 ENN for an error (this includes the case
78 where only part of the data was
81 cont cAA..AA AA..AA is address to resume
83 resume at same address.
85 step sAA..AA AA..AA is address to resume
87 resume at same address.
89 last signal ? Reply the current reason for stopping.
90 This is the same reply as is generated
91 for step or cont : SAA where AA is the
94 There is no immediate reply to step or cont.
95 The reply comes when the machine stops.
96 It is SAA AA is the "signal number"
98 or... TAAn...:r...;n:r...;n...:r...;
100 n... = register number
101 r... = register contents
102 or... WAA The process exited, and AA is
103 the exit status. This is only
104 applicable for certains sorts of
108 toggle debug d toggle debug flag (see 386 & 68k stubs)
109 reset r reset -- see sparc stub.
110 reserved <other> On other requests, the stub should
111 ignore the request and send an empty
112 response ($#<checksum>). This way
113 we can extend the protocol and GDB
114 can tell whether the stub it is
115 talking to uses the old or the new.
116 search tAA:PP,MM Search backwards starting at address
117 AA for a match with pattern PP and
118 mask MM. PP and MM are 4 bytes.
119 Not supported by all stubs.
121 general query qXXXX Request info about XXXX.
122 general set QXXXX=yyyy Set value of XXXX to yyyy.
123 query sect offs qOffsets Get section offsets. Reply is
124 Text=xxx;Data=yyy;Bss=zzz
125 console output Otext Send text to stdout. Only comes from
128 Responses can be run-length encoded to save space. A '*' means that
129 the next character is an ASCII encoding giving a repeat count which
130 stands for that many repititions of the character preceding the '*'.
131 The encoding is n+29, yielding a printable character where n >=3
132 (which is where rle starts to win). Don't use an n > 126.
135 "0* " means the same as "0000". */
141 #include "inferior.h"
146 #include "terminal.h"
148 #include "objfiles.h"
149 #include "gdb-stabs.h"
150 #include "remote-utils.h"
154 #include <sys/types.h>
160 /* Prototypes for local functions */
163 remote_write_bytes
PARAMS ((CORE_ADDR memaddr
, unsigned char *myaddr
, int len
));
166 remote_read_bytes
PARAMS ((CORE_ADDR memaddr
, unsigned char *myaddr
, int len
));
169 remote_files_info
PARAMS ((struct target_ops
*ignore
));
172 remote_xfer_memory
PARAMS ((CORE_ADDR memaddr
, char *myaddr
, int len
,
173 int should_write
, struct target_ops
*target
));
176 remote_prepare_to_store
PARAMS ((void));
179 remote_fetch_registers
PARAMS ((int regno
));
182 remote_resume
PARAMS ((int pid
, int step
, enum target_signal siggnal
));
185 remote_start_remote
PARAMS ((char *dummy
));
188 remote_open
PARAMS ((char *name
, int from_tty
));
191 remote_close
PARAMS ((int quitting
));
194 remote_store_registers
PARAMS ((int regno
));
197 getpkt
PARAMS ((char *buf
, int forever
));
200 putpkt
PARAMS ((char *buf
));
203 remote_send
PARAMS ((char *buf
));
206 readchar
PARAMS ((int timeout
));
209 remote_wait
PARAMS ((int pid
, struct target_waitstatus
*status
));
212 tohex
PARAMS ((int nib
));
215 fromhex
PARAMS ((int a
));
218 remote_detach
PARAMS ((char *args
, int from_tty
));
221 remote_interrupt
PARAMS ((int signo
));
224 remote_interrupt_twice
PARAMS ((int signo
));
227 interrupt_query
PARAMS ((void));
230 hppro_load
PARAMS ((char *name
, int from_tty
));
232 extern struct target_ops remote_ops
; /* Forward decl */
234 /* This was 5 seconds, which is a long time to sit and wait.
235 Unless this is going though some terminal server or multiplexer or
236 other form of hairy serial connection, I would think 2 seconds would
238 static int remote_timeout
= 2;
244 /* Descriptor for I/O to remote machine. Initialize it to NULL so that
245 remote_open knows that we don't have a file open when the program
247 extern serial_t remote_desc
;
249 /* Having this larger than 400 causes us to be incompatible with m68k-stub.c
250 and i386-stub.c. Normally, no one would notice because it only matters
251 for writing large chunks of memory (e.g. in downloads). Also, this needs
252 to be more than 400 if required to hold the registers (see below, where
253 we round it up based on REGISTER_BYTES). */
256 /* Maximum number of bytes to read/write at once. The value here
257 is chosen to fill up a packet (the headers account for the 32). */
258 #define MAXBUFBYTES ((PBUFSIZ-32)/2)
260 /* Round up PBUFSIZ to hold all the registers, at least. */
261 /* The blank line after the #if seems to be required to work around a
262 bug in HP's PA compiler. */
263 #if REGISTER_BYTES > MAXBUFBYTES
266 #define PBUFSIZ (REGISTER_BYTES * 2 + 32)
269 /* Should we try the 'P' request? If this is set to one when the stub
270 doesn't support 'P', the only consequence is some unnecessary traffic. */
271 static int stub_supports_P
= 1;
273 /* sets the download protocol, choices are srec, generic, boot */
275 static char *loadtype_str
;
276 static void set_loadtype_command
277 PARAMS ((char *, int, struct cmd_list_element
*));
280 hppro_load (file
, from_tty
)
284 puts ("Loading... HA!");
288 /* Clean up connection to a remote debugger. */
292 remote_close (quitting
)
296 SERIAL_CLOSE (remote_desc
);
300 /* Query the remote side for the text, data and bss offsets. */
305 unsigned char buf
[PBUFSIZ
];
307 CORE_ADDR text_addr
, data_addr
, bss_addr
;
308 struct section_offsets
*offs
;
314 if (buf
[0] == '\000')
315 return; /* Return silently. Stub doesn't support this
319 warning ("Remote failure reply: %s", buf
);
323 nvals
= sscanf (buf
, "Text=%lx;Data=%lx;Bss=%lx", &text_addr
, &data_addr
,
326 error ("Malformed response to offset query, %s", buf
);
328 if (symfile_objfile
== NULL
)
331 offs
= (struct section_offsets
*) alloca (sizeof (struct section_offsets
)
332 + symfile_objfile
->num_sections
333 * sizeof (offs
->offsets
));
334 memcpy (offs
, symfile_objfile
->section_offsets
,
335 sizeof (struct section_offsets
)
336 + symfile_objfile
->num_sections
337 * sizeof (offs
->offsets
));
339 /* FIXME: This code assumes gdb-stabs.h is being used; it's broken
340 for xcoff, dwarf, sdb-coff, etc. But there is no simple
341 canonical representation for this stuff. (Just what does "text"
342 as seen by the stub mean, anyway? I think it means all sections
343 with SEC_CODE set, but we currently have no way to deal with that). */
345 ANOFFSET (offs
, SECT_OFF_TEXT
) = text_addr
;
347 /* This is a temporary kludge to force data and bss to use the same offsets
348 because that's what nlmconv does now. The real solution requires changes
349 to the stub and remote.c that I don't have time to do right now. */
351 ANOFFSET (offs
, SECT_OFF_DATA
) = data_addr
;
352 ANOFFSET (offs
, SECT_OFF_BSS
) = data_addr
;
354 objfile_relocate (symfile_objfile
, offs
);
366 /* See if we can connect to the boot ROM command line */
369 SERIAL_WRITE (remote_desc
, "\r\n", 2);
371 if ((sr_get_debug() > 2) && (isascii(c
)))
373 if (c
== SERIAL_TIMEOUT
) {
375 puts_filtered ("Timed out.\n");
379 if (sr_get_debug() > 2)
380 puts ("Got ACK from stub");
384 if (sr_get_debug() > 2)
385 puts ("Got prompt from ROM monitor");
392 /* Stub for catch_errors. */
394 remote_start_remote (dummy
)
399 immediate_quit
= 1; /* Allow user to interrupt it */
401 /* Ack any packet which the remote side has already sent. */
404 puts ("Trying a '+' to ACK the target.");
406 SERIAL_WRITE (remote_desc
, "+", 1);
411 get_offsets (); /* Get text, data & bss offsets */
414 putpkt ("?"); /* initiate a query from remote machine */
417 start_remote (); /* Initialize gdb process mechanisms */
422 /* Open a connection to a remote debugger.
423 NAME is the filename used for communication. */
425 static DCACHE
*remote_dcache
;
428 remote_open (name
, from_tty
)
434 "To open a remote debug connection, you need to specify what serial\n\
435 device is attached to the remote system (e.g. /dev/ttya).");
437 target_preopen (from_tty
);
439 unpush_target (&remote_ops
);
441 remote_dcache
= dcache_init (remote_read_bytes
, remote_write_bytes
);
443 remote_desc
= SERIAL_OPEN (name
);
445 perror_with_name (name
);
449 if (SERIAL_SETBAUDRATE (remote_desc
, baud_rate
))
451 SERIAL_CLOSE (remote_desc
);
452 perror_with_name (name
);
456 SERIAL_RAW (remote_desc
);
458 /* If there is something sitting in the buffer we might take it as a
459 response to a command, which would be bad. */
460 SERIAL_FLUSH_INPUT (remote_desc
);
464 puts_filtered ("Remote debugging using ");
465 puts_filtered (name
);
466 puts_filtered ("\n");
468 push_target (&remote_ops
); /* Switch to using remote target now */
470 /* Start out by trying the 'P' request to set registers. We set this each
471 time that we open a new target so that if the user switches from one
472 stub to another, we can (if the target is closed and reopened) cope. */
475 /* Without this, some commands which require an active target (such as kill)
476 won't work. This variable serves (at least) double duty as both the pid
477 of the target process (if it has such), and as a flag indicating that a
478 target is active. These functions should be split out into seperate
479 variables, especially since GDB will someday have a notion of debugging
480 several processes. */
482 inferior_pid
= 42000;
484 /* Start the remote connection; if error (0), discard this target.
485 In particular, if the user quits, be sure to discard it
486 (we'd be in an inconsistent state otherwise). */
487 if (!catch_errors (remote_start_remote
, (char *)0,
488 "Couldn't establish connection to remote target\n", RETURN_MASK_ALL
))
493 takes a program previously attached to and detaches it.
494 We better not have left any breakpoints
495 in the program or it'll die when it hits one.
496 Close the open connection to the remote debugger.
497 Use this when you want to detach and do something else
501 remote_detach (args
, from_tty
)
506 error ("Argument given to \"detach\" when remotely debugging.");
510 puts_filtered ("Ending remote debugging.\n");
513 /* Convert hex digit A to a number. */
519 if (a
>= '0' && a
<= '9')
521 else if (a
>= 'a' && a
<= 'f')
524 error ("Reply contains invalid hex digit");
527 /* Convert number NIB to a hex digit. */
539 /* Tell the remote machine to resume. */
542 remote_resume (pid
, step
, siggnal
)
544 enum target_signal siggnal
;
550 target_terminal_ours_for_output ();
552 ("Can't send signals to a remote system. %s not sent.\n",
553 target_signal_to_name (siggnal
)); target_terminal_inferior ();
556 dcache_flush (remote_dcache
);
558 strcpy (buf
, step
? "s": "c");
563 /* Send ^C to target to halt it. Target will respond, and send us a
567 remote_interrupt (signo
)
570 /* If this doesn't work, try more severe steps. */
571 signal (signo
, remote_interrupt_twice
);
574 printf_unfiltered ("remote_interrupt called\n");
576 SERIAL_WRITE (remote_desc
, "\003", 1); /* Send a ^C */
579 static void (*ofunc
)();
581 /* The user typed ^C twice. */
583 remote_interrupt_twice (signo
)
586 signal (signo
, ofunc
);
590 signal (signo
, remote_interrupt
);
593 /* Ask the user what to do when an interrupt is received. */
598 target_terminal_ours ();
600 if (query ("Interrupted while waiting for the program.\n\
601 Give up (and stop debugging it)? "))
603 target_mourn_inferior ();
604 return_to_top_level (RETURN_QUIT
);
607 target_terminal_inferior ();
610 /* Wait until the remote machine stops, then return,
611 storing status in STATUS just as `wait' would.
612 Returns "pid" (though it's not clear what, if anything, that
613 means in the case of this target). */
616 remote_wait (pid
, status
)
618 struct target_waitstatus
*status
;
620 unsigned char buf
[PBUFSIZ
];
622 status
->kind
= TARGET_WAITKIND_EXITED
;
623 status
->value
.integer
= 0;
629 ofunc
= (void (*)()) signal (SIGINT
, remote_interrupt
);
630 getpkt ((char *) buf
, 1);
631 signal (SIGINT
, ofunc
);
635 case 'E': /* Error of some sort */
636 warning ("Remote failure reply: %s", buf
);
638 case 'T': /* Status with PC, SP, FP, ... */
642 char regs
[MAX_REGISTER_RAW_SIZE
];
644 /* Expedited reply, containing Signal, {regno, reg} repeat */
645 /* format is: 'Tssn...:r...;n...:r...;n...:r...;#cc', where
647 n... = register number
648 r... = register contents
651 p
= &buf
[3]; /* after Txx */
657 regno
= strtol (p
, &p1
, 16); /* Read the register number */
660 warning ("Remote sent badly formed register number: %s\nPacket: '%s'\n",
666 warning ("Malformed packet (missing colon): %s\nPacket: '%s'\n",
669 if (regno
>= NUM_REGS
)
670 warning ("Remote sent bad register number %d: %s\nPacket: '%s'\n",
673 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
++)
675 if (p
[0] == 0 || p
[1] == 0)
676 warning ("Remote reply is too short: %s", buf
);
677 regs
[i
] = fromhex (p
[0]) * 16 + fromhex (p
[1]);
682 warning ("Remote register badly formatted: %s", buf
);
684 supply_register (regno
, regs
);
688 case 'S': /* Old style status, just signal only */
689 status
->kind
= TARGET_WAITKIND_STOPPED
;
690 status
->value
.sig
= (enum target_signal
)
691 (((fromhex (buf
[1])) << 4) + (fromhex (buf
[2])));
694 case 'W': /* Target exited */
696 /* The remote process exited. */
697 status
->kind
= TARGET_WAITKIND_EXITED
;
698 status
->value
.integer
= (fromhex (buf
[1]) << 4) + fromhex (buf
[2]);
701 case 'O': /* Console output */
702 fputs_filtered (buf
+ 1, gdb_stdout
);
705 warning ("Invalid remote reply: %s", buf
);
712 /* Number of bytes of registers this stub implements. */
713 static int register_bytes_found
;
715 /* Read the remote registers into the block REGS. */
716 /* Currently we just read all the registers, so we don't use regno. */
719 remote_fetch_registers (regno
)
725 char regs
[REGISTER_BYTES
];
730 /* Unimplemented registers read as all bits zero. */
731 memset (regs
, 0, REGISTER_BYTES
);
733 /* We can get out of synch in various cases. If the first character
734 in the buffer is not a hex character, assume that has happened
735 and try to fetch another packet to read. */
736 while ((buf
[0] < '0' || buf
[0] > '9')
737 && (buf
[0] < 'a' || buf
[0] > 'f'))
740 printf_unfiltered ("Bad register packet; fetching a new packet\n");
744 /* Reply describes registers byte by byte, each byte encoded as two
745 hex characters. Suck them all up, then supply them to the
746 register cacheing/storage mechanism. */
749 for (i
= 0; i
< REGISTER_BYTES
; i
++)
755 warning ("Remote reply is of odd length: %s", buf
);
756 /* Don't change register_bytes_found in this case, and don't
757 print a second warning. */
760 regs
[i
] = fromhex (p
[0]) * 16 + fromhex (p
[1]);
764 if (i
!= register_bytes_found
)
766 register_bytes_found
= i
;
767 #ifdef REGISTER_BYTES_OK
768 if (!REGISTER_BYTES_OK (i
))
769 warning ("Remote reply is too short: %s", buf
);
774 for (i
= 0; i
< NUM_REGS
; i
++)
775 supply_register (i
, ®s
[REGISTER_BYTE(i
)]);
778 /* Prepare to store registers. Since we may send them all (using a
779 'G' request), we have to read out the ones we don't want to change
783 remote_prepare_to_store ()
785 /* Make sure the entire registers array is valid. */
786 read_register_bytes (0, (char *)NULL
, REGISTER_BYTES
);
789 /* Store register REGNO, or all registers if REGNO == -1, from the contents
790 of REGISTERS. FIXME: ignores errors. */
793 remote_store_registers (regno
)
800 if (regno
>= 0 && stub_supports_P
)
802 /* Try storing a single register. */
805 sprintf (buf
, "P%x=", regno
);
806 p
= buf
+ strlen (buf
);
807 regp
= ®isters
[REGISTER_BYTE (regno
)];
808 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); ++i
)
810 *p
++ = tohex ((regp
[i
] >> 4) & 0xf);
811 *p
++ = tohex (regp
[i
] & 0xf);
817 /* The stub understands the 'P' request. We are done. */
821 /* The stub does not support the 'P' request. Use 'G' instead,
822 and don't try using 'P' in the future (it will just waste our
829 /* Command describes registers byte by byte,
830 each byte encoded as two hex characters. */
833 /* remote_prepare_to_store insures that register_bytes_found gets set. */
834 for (i
= 0; i
< register_bytes_found
; i
++)
836 *p
++ = tohex ((registers
[i
] >> 4) & 0xf);
837 *p
++ = tohex (registers
[i
] & 0xf);
846 /* Use of the data cache is disabled because it loses for looking at
847 and changing hardware I/O ports and the like. Accepting `volatile'
848 would perhaps be one way to fix it, but a better way which would
849 win for more cases would be to use the executable file for the text
850 segment, like the `icache' code below but done cleanly (in some
851 target-independent place, perhaps in target_xfer_memory, perhaps
852 based on assigning each target a speed or perhaps by some simpler
855 /* Read a word from remote address ADDR and return it.
856 This goes through the data cache. */
859 remote_fetch_word (addr
)
865 extern CORE_ADDR text_start
, text_end
;
867 if (addr
>= text_start
&& addr
< text_end
)
870 xfer_core_file (addr
, &buffer
, sizeof (int));
875 return dcache_fetch (remote_dcache
, addr
);
878 /* Write a word WORD into remote address ADDR.
879 This goes through the data cache. */
882 remote_store_word (addr
, word
)
886 dcache_poke (remote_dcache
, addr
, word
);
890 /* Write memory data directly to the remote machine.
891 This does not inform the data cache; the data cache uses this.
892 MEMADDR is the address in the remote memory space.
893 MYADDR is the address of the buffer in our space.
894 LEN is the number of bytes.
896 Returns number of bytes transferred, or 0 for error. */
899 remote_write_bytes (memaddr
, myaddr
, len
)
901 unsigned char *myaddr
;
908 /* FIXME-32x64: Need a version of print_address_numeric which puts the
909 result in a buffer like sprintf. */
910 sprintf (buf
, "M%lx,%x:", (unsigned long) memaddr
, len
);
912 /* We send target system values byte by byte, in increasing byte addresses,
913 each byte encoded as two hex characters. */
915 p
= buf
+ strlen (buf
);
916 for (i
= 0; i
< len
; i
++)
918 *p
++ = tohex ((myaddr
[i
] >> 4) & 0xf);
919 *p
++ = tohex (myaddr
[i
] & 0xf);
928 /* There is no correspondance between what the remote protocol uses
929 for errors and errno codes. We would like a cleaner way of
930 representing errors (big enough to include errno codes, bfd_error
931 codes, and others). But for now just return EIO. */
938 /* Read memory data directly from the remote machine.
939 This does not use the data cache; the data cache uses this.
940 MEMADDR is the address in the remote memory space.
941 MYADDR is the address of the buffer in our space.
942 LEN is the number of bytes.
944 Returns number of bytes transferred, or 0 for error. */
947 remote_read_bytes (memaddr
, myaddr
, len
)
949 unsigned char *myaddr
;
956 if (len
> PBUFSIZ
/ 2 - 1)
959 /* FIXME-32x64: Need a version of print_address_numeric which puts the
960 result in a buffer like sprintf. */
961 sprintf (buf
, "m%lx,%x", (unsigned long) memaddr
, len
);
967 /* There is no correspondance between what the remote protocol uses
968 for errors and errno codes. We would like a cleaner way of
969 representing errors (big enough to include errno codes, bfd_error
970 codes, and others). But for now just return EIO. */
975 /* Reply describes memory byte by byte,
976 each byte encoded as two hex characters. */
979 for (i
= 0; i
< len
; i
++)
981 if (p
[0] == 0 || p
[1] == 0)
982 /* Reply is short. This means that we were able to read only part
983 of what we wanted to. */
985 myaddr
[i
] = fromhex (p
[0]) * 16 + fromhex (p
[1]);
991 /* Read or write LEN bytes from inferior memory at MEMADDR, transferring
992 to or from debugger address MYADDR. Write to inferior if SHOULD_WRITE is
993 nonzero. Returns length of data written or read; 0 for error. */
997 remote_xfer_memory(memaddr
, myaddr
, len
, should_write
, target
)
1002 struct target_ops
*target
; /* ignored */
1006 int total_xferred
= 0;
1010 if (len
> MAXBUFBYTES
)
1011 xfersize
= MAXBUFBYTES
;
1016 bytes_xferred
= remote_write_bytes (memaddr
,
1017 (unsigned char *)myaddr
, xfersize
);
1019 bytes_xferred
= remote_read_bytes (memaddr
,
1020 (unsigned char *)myaddr
, xfersize
);
1022 /* If we get an error, we are done xferring. */
1023 if (bytes_xferred
== 0)
1026 memaddr
+= bytes_xferred
;
1027 myaddr
+= bytes_xferred
;
1028 len
-= bytes_xferred
;
1029 total_xferred
+= bytes_xferred
;
1031 return total_xferred
;
1035 /* Enable after 4.12. */
1038 remote_search (len
, data
, mask
, startaddr
, increment
, lorange
, hirange
1039 addr_found
, data_found
)
1043 CORE_ADDR startaddr
;
1047 CORE_ADDR
*addr_found
;
1050 if (increment
== -4 && len
== 4)
1052 long mask_long
, data_long
;
1053 long data_found_long
;
1054 CORE_ADDR addr_we_found
;
1056 long returned_long
[2];
1059 mask_long
= extract_unsigned_integer (mask
, len
);
1060 data_long
= extract_unsigned_integer (data
, len
);
1061 sprintf (buf
, "t%x:%x,%x", startaddr
, data_long
, mask_long
);
1066 /* The stub doesn't support the 't' request. We might want to
1067 remember this fact, but on the other hand the stub could be
1068 switched on us. Maybe we should remember it only until
1069 the next "target remote". */
1070 generic_search (len
, data
, mask
, startaddr
, increment
, lorange
,
1071 hirange
, addr_found
, data_found
);
1076 /* There is no correspondance between what the remote protocol uses
1077 for errors and errno codes. We would like a cleaner way of
1078 representing errors (big enough to include errno codes, bfd_error
1079 codes, and others). But for now just use EIO. */
1080 memory_error (EIO
, startaddr
);
1083 while (*p
!= '\0' && *p
!= ',')
1084 addr_we_found
= (addr_we_found
<< 4) + fromhex (*p
++);
1086 error ("Protocol error: short return for search");
1088 data_found_long
= 0;
1089 while (*p
!= '\0' && *p
!= ',')
1090 data_found_long
= (data_found_long
<< 4) + fromhex (*p
++);
1091 /* Ignore anything after this comma, for future extensions. */
1093 if (addr_we_found
< lorange
|| addr_we_found
>= hirange
)
1099 *addr_found
= addr_we_found
;
1100 *data_found
= store_unsigned_integer (data_we_found
, len
);
1103 generic_search (len
, data
, mask
, startaddr
, increment
, lorange
,
1104 hirange
, addr_found
, data_found
);
1109 remote_files_info (ignore
)
1110 struct target_ops
*ignore
;
1112 puts_filtered ("Debugging a target over a serial line.\n");
1115 /* Stuff for dealing with the packets which are part of this protocol.
1116 See comment at top of file for details. */
1118 /* Read a single character from the remote end, masking it down to 7 bits. */
1126 ch
= SERIAL_READCHAR (remote_desc
, timeout
);
1131 error ("Remote connection closed");
1133 perror_with_name ("Remote communication error");
1134 case SERIAL_TIMEOUT
:
1141 /* Send the command in BUF to the remote machine,
1142 and read the reply into BUF.
1143 Report an error if we get an error reply. */
1154 error ("Remote failure reply: %s", buf
);
1157 /* Send a packet to the remote machine, with error checking.
1158 The data of the packet is in BUF. */
1164 unsigned char csum
= 0;
1166 int cnt
= strlen (buf
);
1170 /* Copy the packet into buffer BUF2, encapsulating it
1171 and giving it a checksum. */
1173 if (cnt
> sizeof(buf2
) - 5) /* Prosanity check */
1179 for (i
= 0; i
< cnt
; i
++)
1185 *p
++ = tohex ((csum
>> 4) & 0xf);
1186 *p
++ = tohex (csum
& 0xf);
1188 /* Send it over and over until we get a positive ack. */
1192 int started_error_output
= 0;
1197 printf_unfiltered ("Sending packet: %s...", buf2
);
1198 gdb_flush(gdb_stdout
);
1200 if (SERIAL_WRITE (remote_desc
, buf2
, p
- buf2
))
1201 perror_with_name ("putpkt: write failed");
1203 /* read until either a timeout occurs (-2) or '+' is read */
1206 ch
= readchar (remote_timeout
);
1213 case SERIAL_TIMEOUT
:
1215 if (started_error_output
)
1217 putc_unfiltered ('\n');
1218 started_error_output
= 0;
1227 printf_unfiltered("Got Ack\n");
1229 case SERIAL_TIMEOUT
:
1230 break; /* Retransmit buffer */
1233 unsigned char junkbuf
[PBUFSIZ
];
1235 /* It's probably an old response, and we're out of sync. Just
1236 gobble up the packet and ignore it. */
1237 getpkt (junkbuf
, 0);
1238 continue; /* Now, go look for + */
1243 if (!started_error_output
)
1245 started_error_output
= 1;
1246 printf_unfiltered ("putpkt: Junk: ");
1248 putc_unfiltered (ch
& 0177);
1252 break; /* Here to retransmit */
1256 /* This is wrong. If doing a long backtrace, the user should be
1257 able to get out next time we call QUIT, without anything as violent
1258 as interrupt_query. If we want to provide a way out of here
1259 without getting to the next QUIT, it should be based on hitting
1260 ^C twice as in remote_wait. */
1270 /* Come here after finding the start of the frame. Collect the rest into BUF,
1271 verifying the checksum, length, and handling run-length compression.
1272 Returns 0 on any error, 1 on success. */
1287 c
= readchar (remote_timeout
);
1291 case SERIAL_TIMEOUT
:
1293 puts_filtered ("Timeout in mid-packet, retrying\n");
1297 puts_filtered ("Saw new packet start in middle of old one\n");
1298 return 0; /* Start a new packet, count retries */
1301 unsigned char pktcsum
;
1305 pktcsum
= fromhex (readchar (remote_timeout
)) << 4;
1306 pktcsum
|= fromhex (readchar (remote_timeout
));
1308 if (csum
== pktcsum
)
1311 printf_filtered ("Bad checksum, sentsum=0x%x, csum=0x%x, buf=",
1313 puts_filtered (buf
);
1314 puts_filtered ("\n");
1318 case '*': /* Run length encoding */
1320 c
= readchar (remote_timeout
);
1322 c
= c
- ' ' + 3; /* Compute repeat count */
1324 if (bp
+ c
- 1 < buf
+ PBUFSIZ
- 1)
1326 memset (bp
, *(bp
- 1), c
);
1332 printf_filtered ("Repeat count %d too large for buffer: ", c
);
1333 puts_filtered (buf
);
1334 puts_filtered ("\n");
1338 if (bp
< buf
+ PBUFSIZ
- 1)
1346 puts_filtered ("Remote packet too long: ");
1347 puts_filtered (buf
);
1348 puts_filtered ("\n");
1355 /* Read a packet from the remote machine, with error checking,
1356 and store it in BUF. BUF is expected to be of size PBUFSIZ.
1357 If FOREVER, wait forever rather than timing out; this is used
1358 while the target is executing user code. */
1361 getpkt (buf
, forever
)
1374 timeout
= remote_timeout
;
1376 #define MAX_TRIES 10
1378 for (tries
= 1; tries
<= MAX_TRIES
; tries
++)
1380 /* This can loop forever if the remote side sends us characters
1381 continuously, but if it pauses, we'll get a zero from readchar
1382 because of timeout. Then we'll count that as a retry. */
1384 /* Note that we will only wait forever prior to the start of a packet.
1385 After that, we expect characters to arrive at a brisk pace. They
1386 should show up within remote_timeout intervals. */
1390 c
= readchar (timeout
);
1392 if (c
== SERIAL_TIMEOUT
)
1395 puts_filtered ("Timed out.\n");
1401 /* We've found the start of a packet, now collect the data. */
1403 val
= read_frame (buf
);
1408 fprintf_unfiltered (gdb_stderr
, "Packet received: %s\n", buf
);
1409 SERIAL_WRITE (remote_desc
, "+", 1);
1413 /* Try the whole thing again. */
1415 SERIAL_WRITE (remote_desc
, "-", 1);
1418 /* We have tried hard enough, and just can't receive the packet. Give up. */
1420 printf_unfiltered ("Ignoring packet error, continuing...\n");
1421 SERIAL_WRITE (remote_desc
, "+", 1);
1428 /* Don't wait for it to die. I'm not really sure it matters whether
1429 we do or not. For the existing stubs, kill is a noop. */
1430 target_mourn_inferior ();
1436 unpush_target (&remote_ops
);
1437 generic_mourn_inferior ();
1440 #ifdef REMOTE_BREAKPOINT
1442 /* On some machines, e.g. 68k, we may use a different breakpoint instruction
1443 than other targets. */
1444 static unsigned char break_insn
[] = REMOTE_BREAKPOINT
;
1446 /* Check that it fits in BREAKPOINT_MAX bytes. */
1447 static unsigned char check_break_insn_size
[BREAKPOINT_MAX
] = REMOTE_BREAKPOINT
;
1449 #else /* No REMOTE_BREAKPOINT. */
1451 /* Same old breakpoint instruction. This code does nothing different
1452 than mem-break.c. */
1453 static unsigned char break_insn
[] = BREAKPOINT
;
1455 #endif /* No REMOTE_BREAKPOINT. */
1457 /* Insert a breakpoint on targets that don't have any better breakpoint
1458 support. We read the contents of the target location and stash it,
1459 then overwrite it with a breakpoint instruction. ADDR is the target
1460 location in the target machine. CONTENTS_CACHE is a pointer to
1461 memory allocated for saving the target contents. It is guaranteed
1462 by the caller to be long enough to save sizeof BREAKPOINT bytes (this
1463 is accomplished via BREAKPOINT_MAX). */
1466 remote_insert_breakpoint (addr
, contents_cache
)
1468 char *contents_cache
;
1472 val
= target_read_memory (addr
, contents_cache
, sizeof break_insn
);
1475 val
= target_write_memory (addr
, (char *)break_insn
, sizeof break_insn
);
1481 remote_remove_breakpoint (addr
, contents_cache
)
1483 char *contents_cache
;
1485 return target_write_memory (addr
, contents_cache
, sizeof break_insn
);
1488 /* Define the target subroutine names */
1490 struct target_ops remote_hppro_ops
= {
1491 "hppro", /* to_shortname */
1492 "Remote serial target for HP-PRO targets", /* to_longname */
1493 "Use a remote computer via a serial line, using a gdb-specific protocol.\n\
1494 This is for targets that supports the HP-PRO standard.\n\
1495 Specify the serial device it is connected to (e.g. /dev/ttya) or telnet port.", /* to_doc */
1496 remote_open
, /* to_open */
1497 remote_close
, /* to_close */
1498 NULL
, /* to_attach */
1499 remote_detach
, /* to_detach */
1500 remote_resume
, /* to_resume */
1501 remote_wait
, /* to_wait */
1502 remote_fetch_registers
, /* to_fetch_registers */
1503 remote_store_registers
, /* to_store_registers */
1504 remote_prepare_to_store
, /* to_prepare_to_store */
1505 remote_xfer_memory
, /* to_xfer_memory */
1506 remote_files_info
, /* to_files_info */
1508 remote_insert_breakpoint
, /* to_insert_breakpoint */
1509 remote_remove_breakpoint
, /* to_remove_breakpoint */
1511 NULL
, /* to_terminal_init */
1512 NULL
, /* to_terminal_inferior */
1513 NULL
, /* to_terminal_ours_for_output */
1514 NULL
, /* to_terminal_ours */
1515 NULL
, /* to_terminal_info */
1516 remote_kill
, /* to_kill */
1517 hppro_load
, /* to_load */
1518 NULL
, /* to_lookup_symbol */
1519 NULL
, /* to_create_inferior */
1520 remote_mourn
, /* to_mourn_inferior */
1522 0, /* to_notice_signals */
1524 process_stratum
, /* to_stratum */
1526 1, /* to_has_all_memory */
1527 1, /* to_has_memory */
1528 1, /* to_has_stack */
1529 1, /* to_has_registers */
1530 1, /* to_has_execution */
1531 NULL
, /* sections */
1532 NULL
, /* sections_end */
1533 OPS_MAGIC
/* to_magic */
1537 _initialize_remote_hppro ()
1539 struct cmd_list_element
*c
;
1540 add_target (&remote_hppro_ops
);
1542 /* this sets the type of download protocol */
1543 c
= add_set_cmd ("loadtype", no_class
, var_string
, (char *)&loadtype_str
,
1544 "Set the type of the remote load protocol.\n", &setlist
);
1545 c
->function
.sfunc
= set_loadtype_command
;
1546 add_show_from_set (c
, &showlist
);
1547 loadtype_str
= savestring ("generic", 8);
1549 /* this adds a command to boot the board */
1550 add_com ("boot", class_support
, boot_board
,
1551 "Boot the damn target board.\n");
1555 set_loadtype_command (ignore
, from_tty
, c
)
1558 struct cmd_list_element
*c
;
1560 loadtype_str
= savestring (*(char **) c
->var
, strlen (*(char **) c
->var
));