1992-02-28 03:26:45 +00:00
|
|
|
|
/* Remote target communications for serial-line targets in custom GDB protocol
|
|
|
|
|
Copyright 1988, 1991, 1992 Free Software Foundation, Inc.
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
1991-03-28 16:26:26 +00:00
|
|
|
|
it under the terms of the GNU General Public License as published by
|
1992-02-28 03:26:45 +00:00
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
This program is distributed in the hope that it will be useful,
|
1991-03-28 16:26:26 +00:00
|
|
|
|
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
|
1992-02-28 03:26:45 +00:00
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
/* Remote communication protocol.
|
|
|
|
|
All values are encoded in ascii hex digits.
|
|
|
|
|
|
|
|
|
|
Request Packet
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
read mem mAA..AA,LLLL AA..AA is address, LLLL is length.
|
|
|
|
|
reply XX..XX XX..XX is mem contents
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
cont 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.
|
|
|
|
|
|
|
|
|
|
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.
|
|
|
|
|
|
|
|
|
|
There is no immediate reply to step or cont.
|
|
|
|
|
The reply comes when the machine stops.
|
|
|
|
|
It is SAA AA is the "signal number"
|
|
|
|
|
|
1992-06-19 21:09:54 +00:00
|
|
|
|
or... TAAPPPPPPPPFFFFFFFF
|
|
|
|
|
where AA is the signal number,
|
|
|
|
|
PPPPPPPP is the PC (PC_REGNUM), and
|
|
|
|
|
FFFFFFFF is the frame ptr (FP_REGNUM).
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
kill req k
|
|
|
|
|
*/
|
|
|
|
|
|
1992-03-03 23:26:26 +00:00
|
|
|
|
#include "defs.h"
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#include <string.h>
|
|
|
|
|
#include <fcntl.h>
|
|
|
|
|
#include "frame.h"
|
|
|
|
|
#include "inferior.h"
|
|
|
|
|
#include "target.h"
|
|
|
|
|
#include "wait.h"
|
|
|
|
|
#include "terminal.h"
|
1992-06-19 21:09:54 +00:00
|
|
|
|
#include "gdbcmd.h"
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1992-06-19 21:09:54 +00:00
|
|
|
|
#if !defined(DONT_USE_REMOTE)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#ifdef USG
|
|
|
|
|
#include <sys/types.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#include <signal.h>
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* Prototypes for local functions */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_write_bytes PARAMS ((CORE_ADDR, char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_read_bytes PARAMS ((CORE_ADDR, char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_files_info PARAMS ((struct target_ops *));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
remote_xfer_memory PARAMS ((CORE_ADDR, char *, int, int, struct target_ops *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_prepare_to_store PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_fetch_registers PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_resume PARAMS ((int, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_open PARAMS ((char *, int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_close PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_store_registers PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
getpkt PARAMS ((char *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
putpkt PARAMS ((char *));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_send PARAMS ((char *));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
readchar PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
remote_wait PARAMS ((WAITTYPE *));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
tohex PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
fromhex PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_detach PARAMS ((char *, int));
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
extern struct target_ops remote_ops; /* Forward decl */
|
|
|
|
|
|
1992-06-19 21:09:54 +00:00
|
|
|
|
static int kiodebug = 0;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static int timeout = 5;
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
int icache;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Descriptor for I/O to remote machine. Initialize it to -1 so that
|
|
|
|
|
remote_open knows that we don't have a file open when the program
|
|
|
|
|
starts. */
|
|
|
|
|
int remote_desc = -1;
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
#define PBUFSIZ 1024
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
/* 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)
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* Round up PBUFSIZ to hold all the registers, at least. */
|
|
|
|
|
#if REGISTER_BYTES > MAXBUFBYTES
|
|
|
|
|
#undef PBUFSIZ
|
|
|
|
|
#define PBUFSIZ (REGISTER_BYTES * 2 + 32)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Called when SIGALRM signal sent due to alarm() timeout. */
|
|
|
|
|
#ifndef HAVE_TERMIO
|
|
|
|
|
void
|
* Makefile.in (VERSION): Bump to 4.5.6.
* coffread.c (coff_end_symtab): Cast 2nd arg of complain() to
correct type.
* defs.h (NORETURN): Define away for Lucid compiler.
* remote.c (remote_timer, remote_interrupt): Signal handlers
take one int arg.
* ser-termios.c (serial_write, serial_close): Return whatever
value the write/close call returns, rather than falling off end.
* inferior.h (PTRACE_ARG3_TYPE): Third arg to ptrace is int on
more systems than it is "char *". Define PTRACE_ARG3_TYPE to
default to int.
* infptrace.c, hppabsd-xdep.c, hppahpux-xdep.c, i386-xdep.c,
inferior.h (call_ptrace): Use PTRACE_ARG3_TYPE to declare type
of third arg.
* a68v-xdep.c, arm-xdep.c, convex-xdep.c, hp300ux-xdep.c, infrun.c,
m88k-xdep.c, mach386-xdep.c, mips-xdep.c, os68k-xdep.c, pyr-tdep.c,
pyr-xdep.c, rs6000-xdep.c, sparc-xdep.c, sun3-xdep.c, sun386-xdep.c,
symm-xdep.c, ultra3-xdep.c: Use PTRACE_ARG3_TYPE to cast ptrace
argument 3.
* sparc-xdep.c, a68v-xdep.c (fetch_inferior_registers,
store_inferior_registers): Supply missing fourth argument to
ptrace().
1992-06-24 04:49:48 +00:00
|
|
|
|
remote_timer (signo)
|
|
|
|
|
int signo;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
if (kiodebug)
|
|
|
|
|
printf ("remote_timer called\n");
|
|
|
|
|
|
|
|
|
|
alarm (timeout);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Clean up connection to a remote debugger. */
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_close (quitting)
|
|
|
|
|
int quitting;
|
|
|
|
|
{
|
|
|
|
|
if (remote_desc >= 0)
|
|
|
|
|
close (remote_desc);
|
|
|
|
|
remote_desc = -1;
|
|
|
|
|
}
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* Translate baud rates from integers to damn B_codes. Unix should
|
|
|
|
|
have outgrown this crap years ago, but even POSIX wouldn't buck it. */
|
|
|
|
|
|
|
|
|
|
#ifndef B19200
|
|
|
|
|
#define B19200 EXTA
|
|
|
|
|
#endif
|
|
|
|
|
#ifndef B38400
|
|
|
|
|
#define B38400 EXTB
|
|
|
|
|
#endif
|
|
|
|
|
|
1992-06-19 21:09:54 +00:00
|
|
|
|
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static struct {int rate, damn_b;} baudtab[] = {
|
|
|
|
|
{0, B0},
|
|
|
|
|
{50, B50},
|
|
|
|
|
{75, B75},
|
|
|
|
|
{110, B110},
|
|
|
|
|
{134, B134},
|
|
|
|
|
{150, B150},
|
|
|
|
|
{200, B200},
|
|
|
|
|
{300, B300},
|
|
|
|
|
{600, B600},
|
|
|
|
|
{1200, B1200},
|
|
|
|
|
{1800, B1800},
|
|
|
|
|
{2400, B2400},
|
|
|
|
|
{4800, B4800},
|
|
|
|
|
{9600, B9600},
|
|
|
|
|
{19200, B19200},
|
|
|
|
|
{38400, B38400},
|
|
|
|
|
{-1, -1},
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
damn_b (rate)
|
|
|
|
|
int rate;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
for (i = 0; baudtab[i].rate != -1; i++)
|
|
|
|
|
if (rate == baudtab[i].rate) return baudtab[i].damn_b;
|
|
|
|
|
return B38400; /* Random */
|
|
|
|
|
}
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* Open a connection to a remote debugger.
|
|
|
|
|
NAME is the filename used for communication. */
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_open (name, from_tty)
|
|
|
|
|
char *name;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
TERMINAL sg;
|
1992-06-19 21:09:54 +00:00
|
|
|
|
int a_rate, b_rate = 0;
|
1992-02-28 03:26:45 +00:00
|
|
|
|
int baudrate_set = 0;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
if (name == 0)
|
|
|
|
|
error (
|
|
|
|
|
"To open a remote debug connection, you need to specify what serial\n\
|
|
|
|
|
device is attached to the remote system (e.g. /dev/ttya).");
|
|
|
|
|
|
1991-04-19 01:36:57 +00:00
|
|
|
|
target_preopen (from_tty);
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_close (0);
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
dcache_init ();
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
remote_desc = open (name, O_RDWR);
|
|
|
|
|
if (remote_desc < 0)
|
|
|
|
|
perror_with_name (name);
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
if (baud_rate)
|
|
|
|
|
{
|
1992-09-18 09:56:28 +00:00
|
|
|
|
if (sscanf (baud_rate, "%d", &a_rate) == 1)
|
1992-02-28 03:26:45 +00:00
|
|
|
|
{
|
|
|
|
|
b_rate = damn_b (a_rate);
|
|
|
|
|
baudrate_set = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
ioctl (remote_desc, TIOCGETP, &sg);
|
|
|
|
|
#ifdef HAVE_TERMIO
|
|
|
|
|
sg.c_cc[VMIN] = 0; /* read with timeout. */
|
|
|
|
|
sg.c_cc[VTIME] = timeout * 10;
|
|
|
|
|
sg.c_lflag &= ~(ICANON | ECHO);
|
1992-02-28 03:26:45 +00:00
|
|
|
|
sg.c_cflag &= ~PARENB; /* No parity */
|
|
|
|
|
sg.c_cflag |= CS8; /* 8-bit path */
|
|
|
|
|
if (baudrate_set)
|
1992-03-03 23:26:26 +00:00
|
|
|
|
sg.c_cflag = (sg.c_cflag & ~CBAUD) | b_rate;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#else
|
1992-02-28 03:26:45 +00:00
|
|
|
|
sg.sg_flags |= RAW | ANYP;
|
|
|
|
|
sg.sg_flags &= ~ECHO;
|
|
|
|
|
if (baudrate_set)
|
|
|
|
|
{
|
|
|
|
|
sg.sg_ispeed = b_rate;
|
|
|
|
|
sg.sg_ospeed = b_rate;
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#endif
|
|
|
|
|
ioctl (remote_desc, TIOCSETP, &sg);
|
|
|
|
|
|
|
|
|
|
if (from_tty)
|
|
|
|
|
printf ("Remote debugging using %s\n", name);
|
|
|
|
|
push_target (&remote_ops); /* Switch to using remote target now */
|
|
|
|
|
|
|
|
|
|
#ifndef HAVE_TERMIO
|
|
|
|
|
#ifndef NO_SIGINTERRUPT
|
|
|
|
|
/* Cause SIGALRM's to make reads fail. */
|
|
|
|
|
if (siginterrupt (SIGALRM, 1) != 0)
|
|
|
|
|
perror ("remote_open: error in siginterrupt");
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Set up read timeout timer. */
|
1991-05-02 04:28:42 +00:00
|
|
|
|
if ((void (*)()) signal (SIGALRM, remote_timer) == (void (*)()) -1)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
perror ("remote_open: error in signal");
|
|
|
|
|
#endif
|
|
|
|
|
|
1991-04-20 03:57:50 +00:00
|
|
|
|
/* Ack any packet which the remote side has already sent. */
|
1992-06-19 21:09:54 +00:00
|
|
|
|
write (remote_desc, "+\r", 2);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
putpkt ("?"); /* initiate a query from remote machine */
|
1991-04-20 03:57:50 +00:00
|
|
|
|
|
|
|
|
|
start_remote (); /* Initialize gdb process mechanisms */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* remote_detach()
|
|
|
|
|
takes a program previously attached to and detaches it.
|
|
|
|
|
We better not have left any breakpoints
|
|
|
|
|
in the program or it'll die when it hits one.
|
|
|
|
|
Close the open connection to the remote debugger.
|
|
|
|
|
Use this when you want to detach and do something else
|
|
|
|
|
with your gdb. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
remote_detach (args, from_tty)
|
|
|
|
|
char *args;
|
|
|
|
|
int from_tty;
|
|
|
|
|
{
|
|
|
|
|
if (args)
|
|
|
|
|
error ("Argument given to \"detach\" when remotely debugging.");
|
|
|
|
|
|
|
|
|
|
pop_target ();
|
|
|
|
|
if (from_tty)
|
|
|
|
|
printf ("Ending remote debugging.\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Convert hex digit A to a number. */
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
fromhex (a)
|
|
|
|
|
int a;
|
|
|
|
|
{
|
|
|
|
|
if (a >= '0' && a <= '9')
|
|
|
|
|
return a - '0';
|
|
|
|
|
else if (a >= 'a' && a <= 'f')
|
|
|
|
|
return a - 'a' + 10;
|
|
|
|
|
else
|
|
|
|
|
error ("Reply contains invalid hex digit");
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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. */
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_resume (step, siggnal)
|
|
|
|
|
int step, siggnal;
|
|
|
|
|
{
|
|
|
|
|
char buf[PBUFSIZ];
|
|
|
|
|
|
|
|
|
|
if (siggnal)
|
1992-06-19 21:09:54 +00:00
|
|
|
|
error ("Can't send signals to a remote system. Try `handle %d ignore'.",
|
|
|
|
|
siggnal);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
dcache_flush ();
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
strcpy (buf, step ? "s": "c");
|
|
|
|
|
|
|
|
|
|
putpkt (buf);
|
|
|
|
|
}
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* Send ^C to target to halt it. Target will respond, and send us a
|
|
|
|
|
packet. */
|
|
|
|
|
|
* Makefile.in (VERSION): Bump to 4.5.6.
* coffread.c (coff_end_symtab): Cast 2nd arg of complain() to
correct type.
* defs.h (NORETURN): Define away for Lucid compiler.
* remote.c (remote_timer, remote_interrupt): Signal handlers
take one int arg.
* ser-termios.c (serial_write, serial_close): Return whatever
value the write/close call returns, rather than falling off end.
* inferior.h (PTRACE_ARG3_TYPE): Third arg to ptrace is int on
more systems than it is "char *". Define PTRACE_ARG3_TYPE to
default to int.
* infptrace.c, hppabsd-xdep.c, hppahpux-xdep.c, i386-xdep.c,
inferior.h (call_ptrace): Use PTRACE_ARG3_TYPE to declare type
of third arg.
* a68v-xdep.c, arm-xdep.c, convex-xdep.c, hp300ux-xdep.c, infrun.c,
m88k-xdep.c, mach386-xdep.c, mips-xdep.c, os68k-xdep.c, pyr-tdep.c,
pyr-xdep.c, rs6000-xdep.c, sparc-xdep.c, sun3-xdep.c, sun386-xdep.c,
symm-xdep.c, ultra3-xdep.c: Use PTRACE_ARG3_TYPE to cast ptrace
argument 3.
* sparc-xdep.c, a68v-xdep.c (fetch_inferior_registers,
store_inferior_registers): Supply missing fourth argument to
ptrace().
1992-06-24 04:49:48 +00:00
|
|
|
|
void remote_interrupt(signo)
|
|
|
|
|
int signo;
|
1992-02-28 03:26:45 +00:00
|
|
|
|
{
|
1992-06-19 21:09:54 +00:00
|
|
|
|
|
|
|
|
|
if (kiodebug)
|
|
|
|
|
printf ("remote_interrupt called\n");
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
write (remote_desc, "\003", 1); /* Send a ^C */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* Wait until the remote machine stops, then return,
|
1991-05-02 04:28:42 +00:00
|
|
|
|
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). */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static int
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_wait (status)
|
|
|
|
|
WAITTYPE *status;
|
|
|
|
|
{
|
|
|
|
|
unsigned char buf[PBUFSIZ];
|
1992-02-28 03:26:45 +00:00
|
|
|
|
void (*ofunc)();
|
1992-06-19 21:09:54 +00:00
|
|
|
|
unsigned char *p;
|
|
|
|
|
int i;
|
1992-09-18 09:56:28 +00:00
|
|
|
|
long regno;
|
|
|
|
|
unsigned char regs[MAX_REGISTER_RAW_SIZE];
|
1992-06-19 21:09:54 +00:00
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
WSETEXIT ((*status), 0);
|
1992-02-28 03:26:45 +00:00
|
|
|
|
|
1992-08-05 08:46:44 +00:00
|
|
|
|
ofunc = (void (*)()) signal (SIGINT, remote_interrupt);
|
1992-02-28 03:26:45 +00:00
|
|
|
|
getpkt ((char *) buf);
|
|
|
|
|
signal (SIGINT, ofunc);
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
if (buf[0] == 'E')
|
|
|
|
|
error ("Remote failure reply: %s", buf);
|
1992-06-19 21:09:54 +00:00
|
|
|
|
if (buf[0] == 'T')
|
|
|
|
|
{
|
1992-08-15 09:34:25 +00:00
|
|
|
|
/* Expedited reply, containing Signal, {regno, reg} repeat */
|
1992-09-18 09:56:28 +00:00
|
|
|
|
/* format is: 'Tssn...:r...;n...:r...;n...:r...;#cc', where
|
|
|
|
|
ss = signal number
|
|
|
|
|
n... = register number
|
|
|
|
|
r... = register contents
|
|
|
|
|
*/
|
|
|
|
|
|
1992-06-19 21:09:54 +00:00
|
|
|
|
p = &buf[3]; /* after Txx */
|
1992-08-15 09:34:25 +00:00
|
|
|
|
|
|
|
|
|
while (*p)
|
1992-06-19 21:09:54 +00:00
|
|
|
|
{
|
1992-09-18 09:56:28 +00:00
|
|
|
|
regno = strtol (p, &p, 16); /* Read the register number */
|
|
|
|
|
|
|
|
|
|
if (*p++ != ':'
|
|
|
|
|
|| regno >= NUM_REGS)
|
|
|
|
|
error ("Remote sent bad register number %s", buf);
|
1992-08-15 09:34:25 +00:00
|
|
|
|
|
|
|
|
|
for (i = 0; i < REGISTER_RAW_SIZE (regno); i++)
|
|
|
|
|
{
|
|
|
|
|
if (p[0] == 0 || p[1] == 0)
|
|
|
|
|
error ("Remote reply is too short: %s", buf);
|
|
|
|
|
regs[i] = fromhex (p[0]) * 16 + fromhex (p[1]);
|
|
|
|
|
p += 2;
|
|
|
|
|
}
|
|
|
|
|
|
1992-09-18 09:56:28 +00:00
|
|
|
|
if (*p++ != ';')
|
|
|
|
|
error("Remote register badly formatted: %s", buf);
|
|
|
|
|
|
1992-08-15 09:34:25 +00:00
|
|
|
|
supply_register (regno, regs);
|
1992-06-19 21:09:54 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (buf[0] != 'S')
|
1991-03-28 16:26:26 +00:00
|
|
|
|
error ("Invalid remote reply: %s", buf);
|
1992-06-19 21:09:54 +00:00
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
WSETSTOP ((*status), (((fromhex (buf[1])) << 4) + (fromhex (buf[2]))));
|
1992-06-19 21:09:54 +00:00
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
return 0;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read the remote registers into the block REGS. */
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* Currently we just read all the registers, so we don't use regno. */
|
|
|
|
|
/* ARGSUSED */
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_fetch_registers (regno)
|
|
|
|
|
int regno;
|
|
|
|
|
{
|
|
|
|
|
char buf[PBUFSIZ];
|
|
|
|
|
int i;
|
|
|
|
|
char *p;
|
|
|
|
|
char regs[REGISTER_BYTES];
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "g");
|
|
|
|
|
remote_send (buf);
|
|
|
|
|
|
|
|
|
|
/* 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 || p[1] == 0)
|
|
|
|
|
error ("Remote reply is too short: %s", buf);
|
|
|
|
|
regs[i] = fromhex (p[0]) * 16 + fromhex (p[1]);
|
|
|
|
|
p += 2;
|
|
|
|
|
}
|
|
|
|
|
for (i = 0; i < NUM_REGS; i++)
|
|
|
|
|
supply_register (i, ®s[REGISTER_BYTE(i)]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Prepare to store registers. Since we send them all, we have to
|
|
|
|
|
read out the ones we don't want to change first. */
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_prepare_to_store ()
|
|
|
|
|
{
|
|
|
|
|
remote_fetch_registers (-1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Store the remote registers from the contents of the block REGISTERS.
|
|
|
|
|
FIXME, eventually just store one register if that's all that is needed. */
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
/* ARGSUSED */
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_store_registers (regno)
|
|
|
|
|
int regno;
|
|
|
|
|
{
|
|
|
|
|
char buf[PBUFSIZ];
|
|
|
|
|
int i;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
buf[0] = 'G';
|
|
|
|
|
|
|
|
|
|
/* Command describes registers byte by byte,
|
|
|
|
|
each byte encoded as two hex characters. */
|
|
|
|
|
|
|
|
|
|
p = buf + 1;
|
|
|
|
|
for (i = 0; i < REGISTER_BYTES; i++)
|
|
|
|
|
{
|
|
|
|
|
*p++ = tohex ((registers[i] >> 4) & 0xf);
|
|
|
|
|
*p++ = tohex (registers[i] & 0xf);
|
|
|
|
|
}
|
|
|
|
|
*p = '\0';
|
|
|
|
|
|
|
|
|
|
remote_send (buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
/* Read a word from remote address ADDR and return it.
|
|
|
|
|
This goes through the data cache. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
remote_fetch_word (addr)
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
{
|
|
|
|
|
if (icache)
|
|
|
|
|
{
|
|
|
|
|
extern CORE_ADDR text_start, text_end;
|
|
|
|
|
|
|
|
|
|
if (addr >= text_start && addr < text_end)
|
|
|
|
|
{
|
|
|
|
|
int buffer;
|
|
|
|
|
xfer_core_file (addr, &buffer, sizeof (int));
|
|
|
|
|
return buffer;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return dcache_fetch (addr);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write a word WORD into remote address ADDR.
|
|
|
|
|
This goes through the data cache. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
remote_store_word (addr, word)
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
int word;
|
|
|
|
|
{
|
|
|
|
|
dcache_poke (addr, word);
|
|
|
|
|
}
|
|
|
|
|
#endif /* 0 */
|
|
|
|
|
|
|
|
|
|
/* 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. */
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_write_bytes (memaddr, myaddr, len)
|
|
|
|
|
CORE_ADDR memaddr;
|
|
|
|
|
char *myaddr;
|
|
|
|
|
int len;
|
|
|
|
|
{
|
|
|
|
|
char buf[PBUFSIZ];
|
|
|
|
|
int i;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
if (len > PBUFSIZ / 2 - 20)
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "M%x,%x:", memaddr, len);
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* We send target system values byte by byte, in increasing byte addresses,
|
1991-03-28 16:26:26 +00:00
|
|
|
|
each byte encoded as two hex characters. */
|
|
|
|
|
|
|
|
|
|
p = buf + strlen (buf);
|
|
|
|
|
for (i = 0; i < len; i++)
|
|
|
|
|
{
|
|
|
|
|
*p++ = tohex ((myaddr[i] >> 4) & 0xf);
|
|
|
|
|
*p++ = tohex (myaddr[i] & 0xf);
|
|
|
|
|
}
|
|
|
|
|
*p = '\0';
|
|
|
|
|
|
|
|
|
|
remote_send (buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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. */
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_read_bytes (memaddr, myaddr, len)
|
|
|
|
|
CORE_ADDR memaddr;
|
|
|
|
|
char *myaddr;
|
|
|
|
|
int len;
|
|
|
|
|
{
|
|
|
|
|
char buf[PBUFSIZ];
|
|
|
|
|
int i;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
if (len > PBUFSIZ / 2 - 1)
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
sprintf (buf, "m%x,%x", memaddr, len);
|
|
|
|
|
remote_send (buf);
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* Reply describes memory byte by byte,
|
1991-03-28 16:26:26 +00:00
|
|
|
|
each byte encoded as two hex characters. */
|
|
|
|
|
|
|
|
|
|
p = buf;
|
|
|
|
|
for (i = 0; i < len; i++)
|
|
|
|
|
{
|
|
|
|
|
if (p[0] == 0 || p[1] == 0)
|
|
|
|
|
error ("Remote reply is too short: %s", buf);
|
|
|
|
|
myaddr[i] = fromhex (p[0]) * 16 + fromhex (p[1]);
|
|
|
|
|
p += 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read or write LEN bytes from inferior memory at MEMADDR, transferring
|
1991-05-02 04:28:42 +00:00
|
|
|
|
to or from debugger address MYADDR. Write to inferior if SHOULD_WRITE is
|
1991-03-28 16:26:26 +00:00
|
|
|
|
nonzero. Returns length of data written or read; 0 for error. */
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* ARGSUSED */
|
|
|
|
|
static int
|
|
|
|
|
remote_xfer_memory(memaddr, myaddr, len, should_write, target)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
CORE_ADDR memaddr;
|
|
|
|
|
char *myaddr;
|
|
|
|
|
int len;
|
1991-05-02 04:28:42 +00:00
|
|
|
|
int should_write;
|
1992-02-28 03:26:45 +00:00
|
|
|
|
struct target_ops *target; /* ignored */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
|
|
|
|
int origlen = len;
|
|
|
|
|
int xfersize;
|
|
|
|
|
while (len > 0)
|
|
|
|
|
{
|
|
|
|
|
if (len > MAXBUFBYTES)
|
|
|
|
|
xfersize = MAXBUFBYTES;
|
|
|
|
|
else
|
|
|
|
|
xfersize = len;
|
|
|
|
|
|
1991-05-02 04:28:42 +00:00
|
|
|
|
if (should_write)
|
1991-03-28 16:26:26 +00:00
|
|
|
|
remote_write_bytes(memaddr, myaddr, xfersize);
|
|
|
|
|
else
|
|
|
|
|
remote_read_bytes (memaddr, myaddr, xfersize);
|
|
|
|
|
memaddr += xfersize;
|
|
|
|
|
myaddr += xfersize;
|
|
|
|
|
len -= xfersize;
|
|
|
|
|
}
|
|
|
|
|
return origlen; /* no error possible */
|
|
|
|
|
}
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static void
|
1992-06-19 21:09:54 +00:00
|
|
|
|
remote_files_info (ignore)
|
|
|
|
|
struct target_ops *ignore;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
{
|
1992-06-19 21:09:54 +00:00
|
|
|
|
printf ("Debugging a target over a serial line.\n");
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
|
|
|
|
|
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 '#'
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* Read a single character from the remote end.
|
|
|
|
|
(If supported, we actually read many characters and buffer them up.) */
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
static int
|
|
|
|
|
readchar ()
|
|
|
|
|
{
|
1992-02-28 03:26:45 +00:00
|
|
|
|
static int inbuf_index, inbuf_count;
|
|
|
|
|
#define INBUFSIZE PBUFSIZ
|
|
|
|
|
static char inbuf[INBUFSIZE];
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
if (inbuf_index >= inbuf_count)
|
|
|
|
|
{
|
|
|
|
|
/* Time to do another read... */
|
|
|
|
|
inbuf_index = 0;
|
|
|
|
|
inbuf_count = 0;
|
|
|
|
|
inbuf[0] = 0; /* Just in case */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#ifdef HAVE_TERMIO
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* termio does the timeout for us. */
|
|
|
|
|
inbuf_count = read (remote_desc, inbuf, INBUFSIZE);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#else
|
1992-02-28 03:26:45 +00:00
|
|
|
|
alarm (timeout);
|
|
|
|
|
inbuf_count = read (remote_desc, inbuf, INBUFSIZE);
|
|
|
|
|
alarm (0);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
#endif
|
1992-02-28 03:26:45 +00:00
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
/* Just return the next character from the buffer. */
|
|
|
|
|
return inbuf[inbuf_index++] & 0x7f;
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* 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);
|
|
|
|
|
|
|
|
|
|
if (buf[0] == 'E')
|
|
|
|
|
error ("Remote failure reply: %s", buf);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Send a packet to the remote machine, with error checking.
|
|
|
|
|
The data of the packet is in BUF. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
putpkt (buf)
|
|
|
|
|
char *buf;
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
unsigned char csum = 0;
|
1992-02-28 03:26:45 +00:00
|
|
|
|
char buf2[PBUFSIZ];
|
1991-03-28 16:26:26 +00:00
|
|
|
|
int cnt = strlen (buf);
|
|
|
|
|
char ch;
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
/* Copy the packet into buffer BUF2, encapsulating it
|
|
|
|
|
and giving it a checksum. */
|
|
|
|
|
|
1992-02-28 03:26:45 +00:00
|
|
|
|
if (cnt > sizeof(buf2) - 5) /* Prosanity check */
|
|
|
|
|
abort();
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
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. */
|
|
|
|
|
|
|
|
|
|
do {
|
|
|
|
|
if (kiodebug)
|
|
|
|
|
{
|
|
|
|
|
*p = '\0';
|
1992-06-19 21:09:54 +00:00
|
|
|
|
printf ("Sending packet: %s...", buf2); fflush(stdout);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
write (remote_desc, buf2, p - buf2);
|
|
|
|
|
|
|
|
|
|
/* read until either a timeout occurs (\0) or '+' is read */
|
|
|
|
|
do {
|
|
|
|
|
ch = readchar ();
|
1992-06-19 21:09:54 +00:00
|
|
|
|
if (kiodebug) {
|
|
|
|
|
if (ch == '+')
|
|
|
|
|
printf("Ack\n");
|
|
|
|
|
else
|
|
|
|
|
printf ("%02X%c ", ch&0xFF, ch);
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
} while ((ch != '+') && (ch != '\0'));
|
|
|
|
|
} while (ch != '+');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read a packet from the remote machine, with error checking,
|
1992-06-19 21:09:54 +00:00
|
|
|
|
and store it in BUF. BUF is expected to be of size PBUFSIZ. */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
getpkt (buf)
|
|
|
|
|
char *buf;
|
|
|
|
|
{
|
|
|
|
|
char *bp;
|
|
|
|
|
unsigned char csum;
|
|
|
|
|
int c;
|
|
|
|
|
unsigned char c1, c2;
|
1992-08-05 08:46:44 +00:00
|
|
|
|
int retries = 0;
|
|
|
|
|
#define MAX_RETRIES 10
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
1991-04-24 17:14:10 +00:00
|
|
|
|
#if 0
|
|
|
|
|
/* Sorry, this will cause all hell to break loose, i.e. we'll end
|
|
|
|
|
up in the command loop with an inferior, but (at least if this
|
|
|
|
|
happens in remote_wait or some such place) without a current_frame,
|
|
|
|
|
having set up prev_* in wait_for_inferior, etc.
|
|
|
|
|
|
|
|
|
|
If it is necessary to have such an "emergency exit", seems like
|
|
|
|
|
the only plausible thing to do is to say the inferior died, and
|
|
|
|
|
make the user reattach if they want to. Perhaps with a prompt
|
|
|
|
|
asking for confirmation. */
|
|
|
|
|
|
1991-03-28 16:26:26 +00:00
|
|
|
|
/* allow immediate quit while reading from device, it could be hung */
|
|
|
|
|
immediate_quit++;
|
1991-04-24 17:14:10 +00:00
|
|
|
|
#endif /* 0 */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
/* Force csum to be zero here because of possible error retry. */
|
|
|
|
|
csum = 0;
|
|
|
|
|
|
|
|
|
|
while ((c = readchar()) != '$');
|
|
|
|
|
|
|
|
|
|
bp = buf;
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
c = readchar ();
|
|
|
|
|
if (c == '#')
|
|
|
|
|
break;
|
1992-06-19 21:09:54 +00:00
|
|
|
|
if (bp >= buf+PBUFSIZ-1)
|
|
|
|
|
{
|
|
|
|
|
*bp = '\0';
|
|
|
|
|
printf_filtered ("Remote packet too long: %s\n", buf);
|
|
|
|
|
goto whole;
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
*bp++ = c;
|
|
|
|
|
csum += c;
|
|
|
|
|
}
|
|
|
|
|
*bp = 0;
|
|
|
|
|
|
|
|
|
|
c1 = fromhex (readchar ());
|
|
|
|
|
c2 = fromhex (readchar ());
|
|
|
|
|
if ((csum & 0xff) == (c1 << 4) + c2)
|
|
|
|
|
break;
|
1992-06-19 21:09:54 +00:00
|
|
|
|
printf_filtered ("Bad checksum, sentsum=0x%x, csum=0x%x, buf=%s\n",
|
1991-03-28 16:26:26 +00:00
|
|
|
|
(c1 << 4) + c2, csum & 0xff, buf);
|
1992-08-05 08:46:44 +00:00
|
|
|
|
|
1992-06-19 21:09:54 +00:00
|
|
|
|
/* Try the whole thing again. */
|
|
|
|
|
whole:
|
1992-08-05 08:46:44 +00:00
|
|
|
|
if (++retries < MAX_RETRIES)
|
|
|
|
|
{
|
|
|
|
|
write (remote_desc, "-", 1);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
printf ("Ignoring packet error, continuing...\n");
|
|
|
|
|
break;
|
|
|
|
|
}
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
1991-04-24 17:14:10 +00:00
|
|
|
|
#if 0
|
1991-03-28 16:26:26 +00:00
|
|
|
|
immediate_quit--;
|
1991-04-24 17:14:10 +00:00
|
|
|
|
#endif
|
1991-03-28 16:26:26 +00:00
|
|
|
|
|
|
|
|
|
write (remote_desc, "+", 1);
|
|
|
|
|
|
|
|
|
|
if (kiodebug)
|
1992-06-19 21:09:54 +00:00
|
|
|
|
fprintf (stderr,"Packet received: %s\n", buf);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The data cache leads to incorrect results because it doesn't know about
|
|
|
|
|
volatile variables, thus making it impossible to debug functions which
|
|
|
|
|
use hardware registers. Therefore it is #if 0'd out. Effect on
|
|
|
|
|
performance is some, for backtraces of functions with a few
|
|
|
|
|
arguments each. For functions with many arguments, the stack
|
|
|
|
|
frames don't fit in the cache blocks, which makes the cache less
|
|
|
|
|
helpful. Disabling the cache is a big performance win for fetching
|
|
|
|
|
large structures, because the cache code fetched data in 16-byte
|
|
|
|
|
chunks. */
|
|
|
|
|
#if 0
|
|
|
|
|
/* The data cache records all the data read from the remote machine
|
|
|
|
|
since the last time it stopped.
|
|
|
|
|
|
|
|
|
|
Each cache block holds 16 bytes of data
|
|
|
|
|
starting at a multiple-of-16 address. */
|
|
|
|
|
|
|
|
|
|
#define DCACHE_SIZE 64 /* Number of cache blocks */
|
|
|
|
|
|
|
|
|
|
struct dcache_block {
|
|
|
|
|
struct dcache_block *next, *last;
|
|
|
|
|
unsigned int addr; /* Address for which data is recorded. */
|
|
|
|
|
int data[4];
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
struct dcache_block dcache_free, dcache_valid;
|
|
|
|
|
|
|
|
|
|
/* Free all the data cache blocks, thus discarding all cached data. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
dcache_flush ()
|
|
|
|
|
{
|
|
|
|
|
register struct dcache_block *db;
|
|
|
|
|
|
|
|
|
|
while ((db = dcache_valid.next) != &dcache_valid)
|
|
|
|
|
{
|
|
|
|
|
remque (db);
|
|
|
|
|
insque (db, &dcache_free);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* If addr is present in the dcache, return the address of the block
|
|
|
|
|
* containing it.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
struct dcache_block *
|
|
|
|
|
dcache_hit (addr)
|
|
|
|
|
{
|
|
|
|
|
register struct dcache_block *db;
|
|
|
|
|
|
|
|
|
|
if (addr & 3)
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
/* Search all cache blocks for one that is at this address. */
|
|
|
|
|
db = dcache_valid.next;
|
|
|
|
|
while (db != &dcache_valid)
|
|
|
|
|
{
|
|
|
|
|
if ((addr & 0xfffffff0) == db->addr)
|
|
|
|
|
return db;
|
|
|
|
|
db = db->next;
|
|
|
|
|
}
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the int data at address ADDR in dcache block DC. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
dcache_value (db, addr)
|
|
|
|
|
struct dcache_block *db;
|
|
|
|
|
unsigned int addr;
|
|
|
|
|
{
|
|
|
|
|
if (addr & 3)
|
|
|
|
|
abort ();
|
|
|
|
|
return (db->data[(addr>>2)&3]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Get a free cache block, put it on the valid list,
|
|
|
|
|
and return its address. The caller should store into the block
|
|
|
|
|
the address and data that it describes. */
|
|
|
|
|
|
|
|
|
|
struct dcache_block *
|
|
|
|
|
dcache_alloc ()
|
|
|
|
|
{
|
|
|
|
|
register struct dcache_block *db;
|
|
|
|
|
|
|
|
|
|
if ((db = dcache_free.next) == &dcache_free)
|
|
|
|
|
/* If we can't get one from the free list, take last valid */
|
|
|
|
|
db = dcache_valid.last;
|
|
|
|
|
|
|
|
|
|
remque (db);
|
|
|
|
|
insque (db, &dcache_valid);
|
|
|
|
|
return (db);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the contents of the word at address ADDR in the remote machine,
|
|
|
|
|
using the data cache. */
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
dcache_fetch (addr)
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
{
|
|
|
|
|
register struct dcache_block *db;
|
|
|
|
|
|
|
|
|
|
db = dcache_hit (addr);
|
|
|
|
|
if (db == 0)
|
|
|
|
|
{
|
|
|
|
|
db = dcache_alloc ();
|
|
|
|
|
remote_read_bytes (addr & ~0xf, db->data, 16);
|
|
|
|
|
db->addr = addr & ~0xf;
|
|
|
|
|
}
|
|
|
|
|
return (dcache_value (db, addr));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write the word at ADDR both in the data cache and in the remote machine. */
|
|
|
|
|
|
|
|
|
|
dcache_poke (addr, data)
|
|
|
|
|
CORE_ADDR addr;
|
|
|
|
|
int data;
|
|
|
|
|
{
|
|
|
|
|
register struct dcache_block *db;
|
|
|
|
|
|
|
|
|
|
/* First make sure the word is IN the cache. DB is its cache block. */
|
|
|
|
|
db = dcache_hit (addr);
|
|
|
|
|
if (db == 0)
|
|
|
|
|
{
|
|
|
|
|
db = dcache_alloc ();
|
|
|
|
|
remote_read_bytes (addr & ~0xf, db->data, 16);
|
|
|
|
|
db->addr = addr & ~0xf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Modify the word in the cache. */
|
|
|
|
|
db->data[(addr>>2)&3] = data;
|
|
|
|
|
|
|
|
|
|
/* Send the changed word. */
|
|
|
|
|
remote_write_bytes (addr, &data, 4);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Initialize the data cache. */
|
|
|
|
|
|
|
|
|
|
dcache_init ()
|
|
|
|
|
{
|
|
|
|
|
register i;
|
|
|
|
|
register struct dcache_block *db;
|
|
|
|
|
|
|
|
|
|
db = (struct dcache_block *) xmalloc (sizeof (struct dcache_block) *
|
|
|
|
|
DCACHE_SIZE);
|
|
|
|
|
dcache_free.next = dcache_free.last = &dcache_free;
|
|
|
|
|
dcache_valid.next = dcache_valid.last = &dcache_valid;
|
|
|
|
|
for (i=0;i<DCACHE_SIZE;i++,db++)
|
|
|
|
|
insque (db, &dcache_free);
|
|
|
|
|
}
|
|
|
|
|
#endif /* 0 */
|
|
|
|
|
|
|
|
|
|
/* Define the target subroutine names */
|
|
|
|
|
|
|
|
|
|
struct target_ops remote_ops = {
|
1992-02-28 03:26:45 +00:00
|
|
|
|
"remote", /* to_shortname */
|
|
|
|
|
"Remote serial target in gdb-specific protocol", /* to_longname */
|
|
|
|
|
"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).", /* to_doc */
|
|
|
|
|
remote_open, /* to_open */
|
|
|
|
|
remote_close, /* to_close */
|
|
|
|
|
NULL, /* to_attach */
|
|
|
|
|
remote_detach, /* to_detach */
|
|
|
|
|
remote_resume, /* to_resume */
|
|
|
|
|
remote_wait, /* to_wait */
|
|
|
|
|
remote_fetch_registers, /* to_fetch_registers */
|
|
|
|
|
remote_store_registers, /* to_store_registers */
|
|
|
|
|
remote_prepare_to_store, /* to_prepare_to_store */
|
|
|
|
|
remote_xfer_memory, /* to_xfer_memory */
|
|
|
|
|
remote_files_info, /* to_files_info */
|
|
|
|
|
NULL, /* to_insert_breakpoint */
|
|
|
|
|
NULL, /* to_remove_breakpoint */
|
|
|
|
|
NULL, /* to_terminal_init */
|
|
|
|
|
NULL, /* to_terminal_inferior */
|
|
|
|
|
NULL, /* to_terminal_ours_for_output */
|
|
|
|
|
NULL, /* to_terminal_ours */
|
|
|
|
|
NULL, /* to_terminal_info */
|
|
|
|
|
NULL, /* to_kill */
|
|
|
|
|
NULL, /* to_load */
|
|
|
|
|
NULL, /* to_lookup_symbol */
|
|
|
|
|
NULL, /* to_create_inferior */
|
|
|
|
|
NULL, /* to_mourn_inferior */
|
|
|
|
|
process_stratum, /* to_stratum */
|
|
|
|
|
NULL, /* to_next */
|
|
|
|
|
1, /* to_has_all_memory */
|
|
|
|
|
1, /* to_has_memory */
|
|
|
|
|
1, /* to_has_stack */
|
|
|
|
|
1, /* to_has_registers */
|
|
|
|
|
1, /* to_has_execution */
|
|
|
|
|
NULL, /* sections */
|
|
|
|
|
NULL, /* sections_end */
|
|
|
|
|
OPS_MAGIC /* to_magic */
|
1991-03-28 16:26:26 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
_initialize_remote ()
|
|
|
|
|
{
|
|
|
|
|
add_target (&remote_ops);
|
1992-06-19 21:09:54 +00:00
|
|
|
|
|
|
|
|
|
add_show_from_set (
|
|
|
|
|
add_set_cmd ("remotedebug", no_class, var_boolean, (char *)&kiodebug,
|
|
|
|
|
"Set debugging of remote serial I/O.\n\
|
|
|
|
|
When enabled, each packet sent or received with the remote target\n\
|
|
|
|
|
is displayed.", &setlist),
|
|
|
|
|
&showlist);
|
1991-03-28 16:26:26 +00:00
|
|
|
|
}
|
1992-06-19 21:09:54 +00:00
|
|
|
|
|
|
|
|
|
#endif
|