mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-11-24 12:39:59 +00:00
60250e8b18
* exceptions.h (enum return_reason, RETURN_MASK) (RETURN_MASK_QUIT, RETURN_MASK_ERROR, RETURN_MASK_ALL) (return_mask, throw_exception, catch_exceptions_ftype) (catch_exceptions_with_msg, catch_errors_ftype, catch_errors) (catch_command_errors_ftype, catch_command_errors): Move to exceptions.h. * exceptions.c, exceptions.h: New files. * top.c: Do not include <setjmp.h>. (SIGJMP_BUF, SIGSETJMP, SIGLONGJMP, catch_return) (throw_exception, catcher, catch_exceptions) (catch_exceptions_with_msg, struct catch_errors_args) (do_catch_errors, catch_errors, struct captured_command_args) (do_captured_command, catch_command_errors): Move to exceptions.c. * wrapper.c, wince.c, win32-nat.c, utils.c: Include "exceptions.h". * tui/tui-interp.c, top.c, thread.c, symmisc.c: Ditto. * symfile-mem.c, stack.c, solib.c, rs6000-nat.c: Ditto. * remote-sds.c, remote-mips.c, remote-fileio.c: Ditto. * remote-e7000.c, objc-lang.c, ocd.c: Ditto. * remote.c, nto-procfs.c, monitor.c, mi/mi-main.c: Ditto. * main.c, m32r-rom.c, infrun.c, inf-loop.c: Ditto. * hppa-hpux-tdep.c, frame.c, event-top.c, event-loop.c: Ditto. * corelow.c, corefile.c, cli/cli-interp.c, breakpoint.c: Ditto. * ada-valprint.c, ada-lang.c: Ditto. * Makefile.in (HFILES_NO_SRCDIR, COMMON_OBS): Add exceptions.h and exceptions.o. Update all dependencies.
2198 lines
46 KiB
C
2198 lines
46 KiB
C
/* Remote debugging interface for Renesas E7000 ICE, for GDB
|
|
|
|
Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
|
|
2002, 2003, 2004 Free Software Foundation, Inc.
|
|
|
|
Contributed by Cygnus Support.
|
|
|
|
Written by Steve Chamberlain for Cygnus Support.
|
|
|
|
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. */
|
|
|
|
/* The E7000 is an in-circuit emulator for the Renesas H8/300-H and
|
|
Renesas-SH processor. It has serial port and a lan port.
|
|
|
|
The monitor command set makes it difficult to load large ammounts of
|
|
data over the lan without using ftp - so try not to issue load
|
|
commands when communicating over ethernet; use the ftpload command.
|
|
|
|
The monitor pauses for a second when dumping srecords to the serial
|
|
line too, so we use a slower per byte mechanism but without the
|
|
startup overhead. Even so, it's pretty slow... */
|
|
|
|
#include "defs.h"
|
|
#include "gdbcore.h"
|
|
#include "gdbarch.h"
|
|
#include "inferior.h"
|
|
#include "target.h"
|
|
#include "value.h"
|
|
#include "command.h"
|
|
#include "gdb_string.h"
|
|
#include "exceptions.h"
|
|
#include "gdbcmd.h"
|
|
#include <sys/types.h>
|
|
#include "serial.h"
|
|
#include "remote-utils.h"
|
|
#include "symfile.h"
|
|
#include "regcache.h"
|
|
#include <time.h>
|
|
#include <ctype.h>
|
|
|
|
|
|
#if 1
|
|
#define HARD_BREAKPOINTS /* Now handled by set option. */
|
|
#define BC_BREAKPOINTS use_hard_breakpoints
|
|
#endif
|
|
|
|
#define CTRLC 0x03
|
|
#define ENQ 0x05
|
|
#define ACK 0x06
|
|
#define CTRLZ 0x1a
|
|
|
|
/* This file is used by 2 different targets, sh-elf and h8300. The
|
|
h8300 is not multiarched and doesn't use the registers defined in
|
|
tm-sh.h. To avoid using a macro GDB_TARGET_IS_SH, we do runtime check
|
|
of the target, which requires that these namse below are always
|
|
defined also in the h8300 case. */
|
|
|
|
#if !defined (PR_REGNUM)
|
|
#define PR_REGNUM -1
|
|
#endif
|
|
#if !defined (GBR_REGNUM)
|
|
#define GBR_REGNUM -1
|
|
#endif
|
|
#if !defined (VBR_REGNUM)
|
|
#define VBR_REGNUM -1
|
|
#endif
|
|
#if !defined (MACH_REGNUM)
|
|
#define MACH_REGNUM -1
|
|
#endif
|
|
#if !defined (MACL_REGNUM)
|
|
#define MACL_REGNUM -1
|
|
#endif
|
|
#if !defined (SR_REGNUM)
|
|
#define SR_REGNUM -1
|
|
#endif
|
|
|
|
extern void report_transfer_performance (unsigned long, time_t, time_t);
|
|
|
|
extern char *sh_processor_type;
|
|
|
|
/* Local function declarations. */
|
|
|
|
static void e7000_close (int);
|
|
|
|
static void e7000_fetch_register (int);
|
|
|
|
static void e7000_store_register (int);
|
|
|
|
static void e7000_command (char *, int);
|
|
|
|
static void e7000_login_command (char *, int);
|
|
|
|
static void e7000_ftp_command (char *, int);
|
|
|
|
static void e7000_drain_command (char *, int);
|
|
|
|
static void expect (char *);
|
|
|
|
static void expect_full_prompt (void);
|
|
|
|
static void expect_prompt (void);
|
|
|
|
static int e7000_parse_device (char *args, char *dev_name, int baudrate);
|
|
/* Variables. */
|
|
|
|
static struct serial *e7000_desc;
|
|
|
|
/* Allow user to chose between using hardware breakpoints or memory. */
|
|
static int use_hard_breakpoints = 0; /* use sw breakpoints by default */
|
|
|
|
/* Nonzero if using the tcp serial driver. */
|
|
|
|
static int using_tcp; /* direct tcp connection to target */
|
|
static int using_tcp_remote; /* indirect connection to target
|
|
via tcp to controller */
|
|
|
|
/* Nonzero if using the pc isa card. */
|
|
|
|
static int using_pc;
|
|
|
|
extern struct target_ops e7000_ops; /* Forward declaration */
|
|
|
|
char *ENQSTRING = "\005";
|
|
|
|
/* Nonzero if some routine (as opposed to the user) wants echoing.
|
|
FIXME: Do this reentrantly with an extra parameter. */
|
|
|
|
static int echo;
|
|
|
|
static int ctrl_c;
|
|
|
|
static int timeout = 20;
|
|
|
|
/* Send data to e7000debug. */
|
|
|
|
static void
|
|
puts_e7000debug (char *buf)
|
|
{
|
|
if (!e7000_desc)
|
|
error ("Use \"target e7000 ...\" first.");
|
|
|
|
if (remote_debug)
|
|
printf_unfiltered ("Sending %s\n", buf);
|
|
|
|
if (serial_write (e7000_desc, buf, strlen (buf)))
|
|
fprintf_unfiltered (gdb_stderr, "serial_write failed: %s\n", safe_strerror (errno));
|
|
|
|
/* And expect to see it echoed, unless using the pc interface */
|
|
#if 0
|
|
if (!using_pc)
|
|
#endif
|
|
expect (buf);
|
|
}
|
|
|
|
static void
|
|
putchar_e7000 (int x)
|
|
{
|
|
char b[1];
|
|
|
|
b[0] = x;
|
|
serial_write (e7000_desc, b, 1);
|
|
}
|
|
|
|
static void
|
|
write_e7000 (char *s)
|
|
{
|
|
serial_write (e7000_desc, s, strlen (s));
|
|
}
|
|
|
|
static int
|
|
normal (int x)
|
|
{
|
|
if (x == '\n')
|
|
return '\r';
|
|
return x;
|
|
}
|
|
|
|
/* Read a character from the remote system, doing all the fancy timeout
|
|
stuff. Handles serial errors and EOF. If TIMEOUT == 0, and no chars,
|
|
returns -1, else returns next char. Discards chars > 127. */
|
|
|
|
static int
|
|
readchar (int timeout)
|
|
{
|
|
int c;
|
|
|
|
do
|
|
{
|
|
c = serial_readchar (e7000_desc, timeout);
|
|
}
|
|
while (c > 127);
|
|
|
|
if (c == SERIAL_TIMEOUT)
|
|
{
|
|
if (timeout == 0)
|
|
return -1;
|
|
echo = 0;
|
|
error ("Timeout reading from remote system.");
|
|
}
|
|
else if (c < 0)
|
|
error ("Serial communication error");
|
|
|
|
if (remote_debug)
|
|
{
|
|
putchar_unfiltered (c);
|
|
gdb_flush (gdb_stdout);
|
|
}
|
|
|
|
return normal (c);
|
|
}
|
|
|
|
#if 0
|
|
char *
|
|
tl (int x)
|
|
{
|
|
static char b[8][10];
|
|
static int p;
|
|
|
|
p++;
|
|
p &= 7;
|
|
if (x >= ' ')
|
|
{
|
|
b[p][0] = x;
|
|
b[p][1] = 0;
|
|
}
|
|
else
|
|
{
|
|
sprintf (b[p], "<%d>", x);
|
|
}
|
|
|
|
return b[p];
|
|
}
|
|
#endif
|
|
|
|
/* Scan input from the remote system, until STRING is found. If
|
|
DISCARD is non-zero, then discard non-matching input, else print it
|
|
out. Let the user break out immediately. */
|
|
|
|
static void
|
|
expect (char *string)
|
|
{
|
|
char *p = string;
|
|
int c;
|
|
int nl = 0;
|
|
|
|
while (1)
|
|
{
|
|
c = readchar (timeout);
|
|
|
|
if (echo)
|
|
{
|
|
if (c == '\r' || c == '\n')
|
|
{
|
|
if (!nl)
|
|
putchar_unfiltered ('\n');
|
|
nl = 1;
|
|
}
|
|
else
|
|
{
|
|
nl = 0;
|
|
putchar_unfiltered (c);
|
|
}
|
|
gdb_flush (gdb_stdout);
|
|
}
|
|
if (normal (c) == normal (*p++))
|
|
{
|
|
if (*p == '\0')
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
p = string;
|
|
|
|
if (normal (c) == normal (string[0]))
|
|
p++;
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Keep discarding input until we see the e7000 prompt.
|
|
|
|
The convention for dealing with the prompt is that you
|
|
o give your command
|
|
o *then* wait for the prompt.
|
|
|
|
Thus the last thing that a procedure does with the serial line will
|
|
be an expect_prompt(). Exception: e7000_resume does not wait for
|
|
the prompt, because the terminal is being handed over to the
|
|
inferior. However, the next thing which happens after that is a
|
|
e7000_wait which does wait for the prompt. Note that this includes
|
|
abnormal exit, e.g. error(). This is necessary to prevent getting
|
|
into states from which we can't recover. */
|
|
|
|
static void
|
|
expect_prompt (void)
|
|
{
|
|
expect (":");
|
|
}
|
|
|
|
static void
|
|
expect_full_prompt (void)
|
|
{
|
|
expect ("\r:");
|
|
}
|
|
|
|
static int
|
|
convert_hex_digit (int ch)
|
|
{
|
|
if (ch >= '0' && ch <= '9')
|
|
return ch - '0';
|
|
else if (ch >= 'A' && ch <= 'F')
|
|
return ch - 'A' + 10;
|
|
else if (ch >= 'a' && ch <= 'f')
|
|
return ch - 'a' + 10;
|
|
return -1;
|
|
}
|
|
|
|
static int
|
|
get_hex (int *start)
|
|
{
|
|
int value = convert_hex_digit (*start);
|
|
int try;
|
|
|
|
*start = readchar (timeout);
|
|
while ((try = convert_hex_digit (*start)) >= 0)
|
|
{
|
|
value <<= 4;
|
|
value += try;
|
|
*start = readchar (timeout);
|
|
}
|
|
return value;
|
|
}
|
|
|
|
#if 0
|
|
/* Get N 32-bit words from remote, each preceded by a space, and put
|
|
them in registers starting at REGNO. */
|
|
|
|
static void
|
|
get_hex_regs (int n, int regno)
|
|
{
|
|
long val;
|
|
int i;
|
|
|
|
for (i = 0; i < n; i++)
|
|
{
|
|
int j;
|
|
|
|
val = 0;
|
|
for (j = 0; j < 8; j++)
|
|
val = (val << 4) + get_hex_digit (j == 0);
|
|
regcache_raw_supply (current_regcache, regno++, (char *) &val);
|
|
}
|
|
}
|
|
#endif
|
|
|
|
/* This is called not only when we first attach, but also when the
|
|
user types "run" after having attached. */
|
|
|
|
static void
|
|
e7000_create_inferior (char *execfile, char *args, char **env,
|
|
int from_tty)
|
|
{
|
|
int entry_pt;
|
|
|
|
if (args && *args)
|
|
error ("Can't pass arguments to remote E7000DEBUG process");
|
|
|
|
if (execfile == 0 || exec_bfd == 0)
|
|
error ("No executable file specified");
|
|
|
|
entry_pt = (int) bfd_get_start_address (exec_bfd);
|
|
|
|
#ifdef CREATE_INFERIOR_HOOK
|
|
CREATE_INFERIOR_HOOK (0); /* No process-ID */
|
|
#endif
|
|
|
|
/* The "process" (board) is already stopped awaiting our commands, and
|
|
the program is already downloaded. We just set its PC and go. */
|
|
|
|
clear_proceed_status ();
|
|
|
|
/* Tell wait_for_inferior that we've started a new process. */
|
|
init_wait_for_inferior ();
|
|
|
|
/* Set up the "saved terminal modes" of the inferior
|
|
based on what modes we are starting it with. */
|
|
target_terminal_init ();
|
|
|
|
/* Install inferior's terminal modes. */
|
|
target_terminal_inferior ();
|
|
|
|
/* insert_step_breakpoint (); FIXME, do we need this? */
|
|
proceed ((CORE_ADDR) entry_pt, -1, 0); /* Let 'er rip... */
|
|
}
|
|
|
|
/* Open a connection to a remote debugger. NAME is the filename used
|
|
for communication. */
|
|
|
|
static int baudrate = 9600;
|
|
static char dev_name[100];
|
|
|
|
static char *machine = "";
|
|
static char *user = "";
|
|
static char *passwd = "";
|
|
static char *dir = "";
|
|
|
|
/* Grab the next token and buy some space for it */
|
|
|
|
static char *
|
|
next (char **ptr)
|
|
{
|
|
char *p = *ptr;
|
|
char *s;
|
|
char *r;
|
|
int l = 0;
|
|
|
|
while (*p && *p == ' ')
|
|
p++;
|
|
s = p;
|
|
while (*p && (*p != ' ' && *p != '\t'))
|
|
{
|
|
l++;
|
|
p++;
|
|
}
|
|
r = xmalloc (l + 1);
|
|
memcpy (r, s, l);
|
|
r[l] = 0;
|
|
*ptr = p;
|
|
return r;
|
|
}
|
|
|
|
static void
|
|
e7000_login_command (char *args, int from_tty)
|
|
{
|
|
if (args)
|
|
{
|
|
machine = next (&args);
|
|
user = next (&args);
|
|
passwd = next (&args);
|
|
dir = next (&args);
|
|
if (from_tty)
|
|
{
|
|
printf_unfiltered ("Set info to %s %s %s %s\n", machine, user, passwd, dir);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
error ("Syntax is ftplogin <machine> <user> <passwd> <directory>");
|
|
}
|
|
}
|
|
|
|
/* Start an ftp transfer from the E7000 to a host */
|
|
|
|
static void
|
|
e7000_ftp_command (char *args, int from_tty)
|
|
{
|
|
/* FIXME: arbitrary limit on machine names and such. */
|
|
char buf[200];
|
|
|
|
int oldtimeout = timeout;
|
|
timeout = remote_timeout;
|
|
|
|
sprintf (buf, "ftp %s\r", machine);
|
|
puts_e7000debug (buf);
|
|
expect (" Username : ");
|
|
sprintf (buf, "%s\r", user);
|
|
puts_e7000debug (buf);
|
|
expect (" Password : ");
|
|
write_e7000 (passwd);
|
|
write_e7000 ("\r");
|
|
expect ("success\r");
|
|
expect ("FTP>");
|
|
sprintf (buf, "cd %s\r", dir);
|
|
puts_e7000debug (buf);
|
|
expect ("FTP>");
|
|
sprintf (buf, "ll 0;s:%s\r", args);
|
|
puts_e7000debug (buf);
|
|
expect ("FTP>");
|
|
puts_e7000debug ("bye\r");
|
|
expect (":");
|
|
timeout = oldtimeout;
|
|
}
|
|
|
|
static int
|
|
e7000_parse_device (char *args, char *dev_name, int baudrate)
|
|
{
|
|
char junk[128];
|
|
int n = 0;
|
|
if (args && strcasecmp (args, "pc") == 0)
|
|
{
|
|
strcpy (dev_name, args);
|
|
using_pc = 1;
|
|
}
|
|
else
|
|
{
|
|
/* FIXME! temp hack to allow use with port master -
|
|
target tcp_remote <device> */
|
|
if (args && strncmp (args, "tcp", 10) == 0)
|
|
{
|
|
char com_type[128];
|
|
n = sscanf (args, " %s %s %d %s", com_type, dev_name, &baudrate, junk);
|
|
using_tcp_remote = 1;
|
|
n--;
|
|
}
|
|
else if (args)
|
|
{
|
|
n = sscanf (args, " %s %d %s", dev_name, &baudrate, junk);
|
|
}
|
|
|
|
if (n != 1 && n != 2)
|
|
{
|
|
error ("Bad arguments. Usage:\ttarget e7000 <device> <speed>\n\
|
|
or \t\ttarget e7000 <host>[:<port>]\n\
|
|
or \t\ttarget e7000 tcp_remote <host>[:<port>]\n\
|
|
or \t\ttarget e7000 pc\n");
|
|
}
|
|
|
|
#if !defined(__GO32__) && !defined(_WIN32) && !defined(__CYGWIN__)
|
|
/* FIXME! test for ':' is ambiguous */
|
|
if (n == 1 && strchr (dev_name, ':') == 0)
|
|
{
|
|
/* Default to normal telnet port */
|
|
/* serial_open will use this to determine tcp communication */
|
|
strcat (dev_name, ":23");
|
|
}
|
|
#endif
|
|
if (!using_tcp_remote && strchr (dev_name, ':'))
|
|
using_tcp = 1;
|
|
}
|
|
|
|
return n;
|
|
}
|
|
|
|
/* Stub for catch_errors. */
|
|
|
|
static int
|
|
e7000_start_remote (void *dummy)
|
|
{
|
|
int loop;
|
|
int sync;
|
|
int try;
|
|
int quit_trying;
|
|
|
|
immediate_quit++; /* Allow user to interrupt it */
|
|
|
|
/* Hello? Are you there? */
|
|
sync = 0;
|
|
loop = 0;
|
|
try = 0;
|
|
quit_trying = 20;
|
|
putchar_e7000 (CTRLC);
|
|
while (!sync && ++try <= quit_trying)
|
|
{
|
|
int c;
|
|
|
|
printf_unfiltered ("[waiting for e7000...]\n");
|
|
|
|
write_e7000 ("\r");
|
|
c = readchar (1);
|
|
|
|
/* FIXME! this didn't seem right-> while (c != SERIAL_TIMEOUT)
|
|
* we get stuck in this loop ...
|
|
* We may never timeout, and never sync up :-(
|
|
*/
|
|
while (!sync && c != -1)
|
|
{
|
|
/* Dont echo cr's */
|
|
if (c != '\r')
|
|
{
|
|
putchar_unfiltered (c);
|
|
gdb_flush (gdb_stdout);
|
|
}
|
|
/* Shouldn't we either break here, or check for sync in inner loop? */
|
|
if (c == ':')
|
|
sync = 1;
|
|
|
|
if (loop++ == 20)
|
|
{
|
|
putchar_e7000 (CTRLC);
|
|
loop = 0;
|
|
}
|
|
|
|
QUIT;
|
|
|
|
if (quit_flag)
|
|
{
|
|
putchar_e7000 (CTRLC);
|
|
/* Was-> quit_flag = 0; */
|
|
c = -1;
|
|
quit_trying = try + 1; /* we don't want to try anymore */
|
|
}
|
|
else
|
|
{
|
|
c = readchar (1);
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!sync)
|
|
{
|
|
fprintf_unfiltered (gdb_stderr, "Giving up after %d tries...\n", try);
|
|
error ("Unable to synchronize with target.\n");
|
|
}
|
|
|
|
puts_e7000debug ("\r");
|
|
expect_prompt ();
|
|
puts_e7000debug ("b -\r"); /* Clear breakpoints */
|
|
expect_prompt ();
|
|
|
|
immediate_quit--;
|
|
|
|
/* This is really the job of start_remote however, that makes an assumption
|
|
that the target is about to print out a status message of some sort. That
|
|
doesn't happen here. */
|
|
|
|
flush_cached_frames ();
|
|
registers_changed ();
|
|
stop_pc = read_pc ();
|
|
print_stack_frame (get_selected_frame (NULL), 0, SRC_AND_LOC);
|
|
|
|
return 1;
|
|
}
|
|
|
|
static void
|
|
e7000_open (char *args, int from_tty)
|
|
{
|
|
int n;
|
|
|
|
target_preopen (from_tty);
|
|
|
|
n = e7000_parse_device (args, dev_name, baudrate);
|
|
|
|
push_target (&e7000_ops);
|
|
|
|
e7000_desc = serial_open (dev_name);
|
|
|
|
if (!e7000_desc)
|
|
perror_with_name (dev_name);
|
|
|
|
if (serial_setbaudrate (e7000_desc, baudrate))
|
|
{
|
|
serial_close (e7000_desc);
|
|
perror_with_name (dev_name);
|
|
}
|
|
serial_raw (e7000_desc);
|
|
|
|
/* 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 (e7000_start_remote, (char *) 0,
|
|
"Couldn't establish connection to remote target\n", RETURN_MASK_ALL))
|
|
if (from_tty)
|
|
printf_filtered ("Remote target %s connected to %s\n", target_shortname,
|
|
dev_name);
|
|
}
|
|
|
|
/* Close out all files and local state before this target loses control. */
|
|
|
|
static void
|
|
e7000_close (int quitting)
|
|
{
|
|
if (e7000_desc)
|
|
{
|
|
serial_close (e7000_desc);
|
|
e7000_desc = 0;
|
|
}
|
|
}
|
|
|
|
/* Terminate the open connection to the remote debugger. Use this
|
|
when you want to detach and do something else with your gdb. */
|
|
|
|
static void
|
|
e7000_detach (char *arg, int from_tty)
|
|
{
|
|
pop_target (); /* calls e7000_close to do the real work */
|
|
if (from_tty)
|
|
printf_unfiltered ("Ending remote %s debugging\n", target_shortname);
|
|
}
|
|
|
|
/* Tell the remote machine to resume. */
|
|
|
|
static void
|
|
e7000_resume (ptid_t ptid, int step, enum target_signal sigal)
|
|
{
|
|
if (step)
|
|
puts_e7000debug ("S\r");
|
|
else
|
|
puts_e7000debug ("G\r");
|
|
}
|
|
|
|
/* Read the remote registers into the block REGS.
|
|
|
|
For the H8/300 a register dump looks like:
|
|
|
|
PC=00021A CCR=80:I*******
|
|
ER0 - ER3 0000000A 0000002E 0000002E 00000000
|
|
ER4 - ER7 00000000 00000000 00000000 00FFEFF6
|
|
000218 MOV.B R1L,R2L
|
|
STEP NORMAL END or
|
|
BREAK POINT
|
|
*/
|
|
|
|
char *want_h8300h = "PC=%p CCR=%c\n\
|
|
ER0 - ER3 %0 %1 %2 %3\n\
|
|
ER4 - ER7 %4 %5 %6 %7\n";
|
|
|
|
char *want_nopc_h8300h = "%p CCR=%c\n\
|
|
ER0 - ER3 %0 %1 %2 %3\n\
|
|
ER4 - ER7 %4 %5 %6 %7";
|
|
|
|
char *want_h8300s = "PC=%p CCR=%c\n\
|
|
MACH=\n\
|
|
ER0 - ER3 %0 %1 %2 %3\n\
|
|
ER4 - ER7 %4 %5 %6 %7\n";
|
|
|
|
char *want_nopc_h8300s = "%p CCR=%c EXR=%9\n\
|
|
ER0 - ER3 %0 %1 %2 %3\n\
|
|
ER4 - ER7 %4 %5 %6 %7";
|
|
|
|
char *want_sh = "PC=%16 SR=%22\n\
|
|
PR=%17 GBR=%18 VBR=%19\n\
|
|
MACH=%20 MACL=%21\n\
|
|
R0-7 %0 %1 %2 %3 %4 %5 %6 %7\n\
|
|
R8-15 %8 %9 %10 %11 %12 %13 %14 %15\n";
|
|
|
|
char *want_nopc_sh = "%16 SR=%22\n\
|
|
PR=%17 GBR=%18 VBR=%19\n\
|
|
MACH=%20 MACL=%21\n\
|
|
R0-7 %0 %1 %2 %3 %4 %5 %6 %7\n\
|
|
R8-15 %8 %9 %10 %11 %12 %13 %14 %15";
|
|
|
|
char *want_sh3 = "PC=%16 SR=%22\n\
|
|
PR=%17 GBR=%18 VBR=%19\n\
|
|
MACH=%20 MACL=%21 SSR=%23 SPC=%24\n\
|
|
R0-7 %0 %1 %2 %3 %4 %5 %6 %7\n\
|
|
R8-15 %8 %9 %10 %11 %12 %13 %14 %15\n\
|
|
R0_BANK0-R3_BANK0 %25 %26 %27 %28\n\
|
|
R4_BANK0-R7_BANK0 %29 %30 %31 %32\n\
|
|
R0_BANK1-R3_BANK1 %33 %34 %35 %36\n\
|
|
R4_BANK1-R7_BANK1 %37 %38 %39 %40";
|
|
|
|
char *want_nopc_sh3 = "%16 SR=%22\n\
|
|
PR=%17 GBR=%18 VBR=%19\n\
|
|
MACH=%20 MACL=%21 SSR=%22 SPC=%23\n\
|
|
R0-7 %0 %1 %2 %3 %4 %5 %6 %7\n\
|
|
R8-15 %8 %9 %10 %11 %12 %13 %14 %15\n\
|
|
R0_BANK0-R3_BANK0 %25 %26 %27 %28\n\
|
|
R4_BANK0-R7_BANK0 %29 %30 %31 %32\n\
|
|
R0_BANK1-R3_BANK1 %33 %34 %35 %36\n\
|
|
R4_BANK1-R7_BANK1 %37 %38 %39 %40";
|
|
|
|
static int
|
|
gch (void)
|
|
{
|
|
return readchar (timeout);
|
|
}
|
|
|
|
static unsigned int
|
|
gbyte (void)
|
|
{
|
|
int high = convert_hex_digit (gch ());
|
|
int low = convert_hex_digit (gch ());
|
|
|
|
return (high << 4) + low;
|
|
}
|
|
|
|
static void
|
|
fetch_regs_from_dump (int (*nextchar) (), char *want)
|
|
{
|
|
int regno;
|
|
char buf[MAX_REGISTER_SIZE];
|
|
|
|
int thischar = nextchar ();
|
|
|
|
if (want == NULL)
|
|
internal_error (__FILE__, __LINE__, "Register set not selected.");
|
|
|
|
while (*want)
|
|
{
|
|
switch (*want)
|
|
{
|
|
case '\n':
|
|
/* Skip to end of line and then eat all new line type stuff */
|
|
while (thischar != '\n' && thischar != '\r')
|
|
thischar = nextchar ();
|
|
while (thischar == '\n' || thischar == '\r')
|
|
thischar = nextchar ();
|
|
want++;
|
|
break;
|
|
|
|
case ' ':
|
|
while (thischar == ' '
|
|
|| thischar == '\t'
|
|
|| thischar == '\r'
|
|
|| thischar == '\n')
|
|
thischar = nextchar ();
|
|
want++;
|
|
break;
|
|
|
|
default:
|
|
if (*want == thischar)
|
|
{
|
|
want++;
|
|
if (*want)
|
|
thischar = nextchar ();
|
|
|
|
}
|
|
else if (thischar == ' ' || thischar == '\n' || thischar == '\r')
|
|
{
|
|
thischar = nextchar ();
|
|
}
|
|
else
|
|
{
|
|
error ("out of sync in fetch registers wanted <%s>, got <%c 0x%x>",
|
|
want, thischar, thischar);
|
|
}
|
|
|
|
break;
|
|
case '%':
|
|
/* Got a register command */
|
|
want++;
|
|
switch (*want)
|
|
{
|
|
#ifdef PC_REGNUM
|
|
case 'p':
|
|
regno = PC_REGNUM;
|
|
want++;
|
|
break;
|
|
#endif
|
|
#ifdef CCR_REGNUM
|
|
case 'c':
|
|
regno = CCR_REGNUM;
|
|
want++;
|
|
break;
|
|
#endif
|
|
#ifdef SP_REGNUM
|
|
case 's':
|
|
regno = SP_REGNUM;
|
|
want++;
|
|
break;
|
|
#endif
|
|
#ifdef DEPRECATED_FP_REGNUM
|
|
case 'f':
|
|
regno = DEPRECATED_FP_REGNUM;
|
|
want++;
|
|
break;
|
|
#endif
|
|
|
|
default:
|
|
if (isdigit (want[0]))
|
|
{
|
|
if (isdigit (want[1]))
|
|
{
|
|
regno = (want[0] - '0') * 10 + want[1] - '0';
|
|
want += 2;
|
|
}
|
|
else
|
|
{
|
|
regno = want[0] - '0';
|
|
want++;
|
|
}
|
|
}
|
|
|
|
else
|
|
internal_error (__FILE__, __LINE__, "failed internal consistency check");
|
|
}
|
|
store_signed_integer (buf,
|
|
register_size (current_gdbarch, regno),
|
|
(LONGEST) get_hex (&thischar));
|
|
regcache_raw_supply (current_regcache, regno, buf);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void
|
|
e7000_fetch_registers (void)
|
|
{
|
|
int regno;
|
|
char *wanted = NULL;
|
|
|
|
puts_e7000debug ("R\r");
|
|
|
|
if (TARGET_ARCHITECTURE->arch == bfd_arch_sh)
|
|
{
|
|
wanted = want_sh;
|
|
switch (TARGET_ARCHITECTURE->mach)
|
|
{
|
|
case bfd_mach_sh3:
|
|
case bfd_mach_sh3e:
|
|
case bfd_mach_sh4:
|
|
wanted = want_sh3;
|
|
}
|
|
}
|
|
if (TARGET_ARCHITECTURE->arch == bfd_arch_h8300)
|
|
{
|
|
wanted = want_h8300h;
|
|
switch (TARGET_ARCHITECTURE->mach)
|
|
{
|
|
case bfd_mach_h8300s:
|
|
case bfd_mach_h8300sn:
|
|
case bfd_mach_h8300sx:
|
|
case bfd_mach_h8300sxn:
|
|
wanted = want_h8300s;
|
|
}
|
|
}
|
|
|
|
fetch_regs_from_dump (gch, wanted);
|
|
|
|
/* And supply the extra ones the simulator uses */
|
|
for (regno = NUM_REALREGS; regno < NUM_REGS; regno++)
|
|
{
|
|
int buf = 0;
|
|
|
|
regcache_raw_supply (current_regcache, regno, (char *) (&buf));
|
|
}
|
|
}
|
|
|
|
/* Fetch register REGNO, or all registers if REGNO is -1. Returns
|
|
errno value. */
|
|
|
|
static void
|
|
e7000_fetch_register (int regno)
|
|
{
|
|
e7000_fetch_registers ();
|
|
}
|
|
|
|
/* Store the remote registers from the contents of the block REGS. */
|
|
|
|
static void
|
|
e7000_store_registers (void)
|
|
{
|
|
int regno;
|
|
|
|
for (regno = 0; regno < NUM_REALREGS; regno++)
|
|
e7000_store_register (regno);
|
|
|
|
registers_changed ();
|
|
}
|
|
|
|
/* Store register REGNO, or all if REGNO == 0. Return errno value. */
|
|
|
|
static void
|
|
e7000_store_register (int regno)
|
|
{
|
|
char buf[200];
|
|
|
|
if (regno == -1)
|
|
{
|
|
e7000_store_registers ();
|
|
return;
|
|
}
|
|
|
|
if (TARGET_ARCHITECTURE->arch == bfd_arch_h8300)
|
|
{
|
|
if (regno <= 7)
|
|
{
|
|
sprintf (buf, ".ER%d %s\r", regno, phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
else if (regno == PC_REGNUM)
|
|
{
|
|
sprintf (buf, ".PC %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
#ifdef CCR_REGNUM
|
|
else if (regno == CCR_REGNUM)
|
|
{
|
|
sprintf (buf, ".CCR %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
#endif
|
|
}
|
|
|
|
else if (TARGET_ARCHITECTURE->arch == bfd_arch_sh)
|
|
{
|
|
if (regno == PC_REGNUM)
|
|
{
|
|
sprintf (buf, ".PC %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
|
|
else if (regno == SR_REGNUM)
|
|
{
|
|
sprintf (buf, ".SR %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
|
|
else if (regno == PR_REGNUM)
|
|
{
|
|
sprintf (buf, ".PR %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
|
|
else if (regno == GBR_REGNUM)
|
|
{
|
|
sprintf (buf, ".GBR %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
|
|
else if (regno == VBR_REGNUM)
|
|
{
|
|
sprintf (buf, ".VBR %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
|
|
else if (regno == MACH_REGNUM)
|
|
{
|
|
sprintf (buf, ".MACH %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
|
|
else if (regno == MACL_REGNUM)
|
|
{
|
|
sprintf (buf, ".MACL %s\r", phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
else
|
|
{
|
|
sprintf (buf, ".R%d %s\r", regno, phex_nz (read_register (regno), 0));
|
|
puts_e7000debug (buf);
|
|
}
|
|
}
|
|
|
|
expect_prompt ();
|
|
}
|
|
|
|
/* Get ready to modify the registers array. On machines which store
|
|
individual registers, this doesn't need to do anything. On machines
|
|
which store all the registers in one fell swoop, this makes sure
|
|
that registers contains all the registers from the program being
|
|
debugged. */
|
|
|
|
static void
|
|
e7000_prepare_to_store (void)
|
|
{
|
|
/* Do nothing, since we can store individual regs */
|
|
}
|
|
|
|
static void
|
|
e7000_files_info (struct target_ops *ops)
|
|
{
|
|
printf_unfiltered ("\tAttached to %s at %d baud.\n", dev_name, baudrate);
|
|
}
|
|
|
|
static int
|
|
stickbyte (char *where, unsigned int what)
|
|
{
|
|
static CONST char digs[] = "0123456789ABCDEF";
|
|
|
|
where[0] = digs[(what >> 4) & 0xf];
|
|
where[1] = digs[(what & 0xf) & 0xf];
|
|
|
|
return what;
|
|
}
|
|
|
|
/* Write a small ammount of memory. */
|
|
|
|
static int
|
|
write_small (CORE_ADDR memaddr, unsigned char *myaddr, int len)
|
|
{
|
|
int i;
|
|
char buf[200];
|
|
|
|
for (i = 0; i < len; i++)
|
|
{
|
|
if (((memaddr + i) & 3) == 0 && (i + 3 < len))
|
|
{
|
|
/* Can be done with a long word */
|
|
sprintf (buf, "m %s %x%02x%02x%02x;l\r",
|
|
paddr_nz (memaddr + i),
|
|
myaddr[i], myaddr[i + 1], myaddr[i + 2], myaddr[i + 3]);
|
|
puts_e7000debug (buf);
|
|
i += 3;
|
|
}
|
|
else
|
|
{
|
|
sprintf (buf, "m %s %x\r", paddr_nz (memaddr + i), myaddr[i]);
|
|
puts_e7000debug (buf);
|
|
}
|
|
}
|
|
|
|
expect_prompt ();
|
|
|
|
return len;
|
|
}
|
|
|
|
/* Write a large ammount of memory, this only works with the serial
|
|
mode enabled. Command is sent as
|
|
|
|
il ;s:s\r ->
|
|
<- il ;s:s\r
|
|
<- ENQ
|
|
ACK ->
|
|
<- LO s\r
|
|
Srecords...
|
|
^Z ->
|
|
<- ENQ
|
|
ACK ->
|
|
<- :
|
|
*/
|
|
|
|
static int
|
|
write_large (CORE_ADDR memaddr, unsigned char *myaddr, int len)
|
|
{
|
|
int i;
|
|
#define maxstride 128
|
|
int stride;
|
|
|
|
puts_e7000debug ("IL ;S:FK\r");
|
|
expect (ENQSTRING);
|
|
putchar_e7000 (ACK);
|
|
expect ("LO FK\r");
|
|
|
|
for (i = 0; i < len; i += stride)
|
|
{
|
|
char compose[maxstride * 2 + 50];
|
|
int address = i + memaddr;
|
|
int j;
|
|
int check_sum;
|
|
int where = 0;
|
|
int alen;
|
|
|
|
stride = len - i;
|
|
if (stride > maxstride)
|
|
stride = maxstride;
|
|
|
|
compose[where++] = 'S';
|
|
check_sum = 0;
|
|
if (address >= 0xffffff)
|
|
alen = 4;
|
|
else if (address >= 0xffff)
|
|
alen = 3;
|
|
else
|
|
alen = 2;
|
|
/* Insert type. */
|
|
compose[where++] = alen - 1 + '0';
|
|
/* Insert length. */
|
|
check_sum += stickbyte (compose + where, alen + stride + 1);
|
|
where += 2;
|
|
while (alen > 0)
|
|
{
|
|
alen--;
|
|
check_sum += stickbyte (compose + where, address >> (8 * (alen)));
|
|
where += 2;
|
|
}
|
|
|
|
for (j = 0; j < stride; j++)
|
|
{
|
|
check_sum += stickbyte (compose + where, myaddr[i + j]);
|
|
where += 2;
|
|
}
|
|
stickbyte (compose + where, ~check_sum);
|
|
where += 2;
|
|
compose[where++] = '\r';
|
|
compose[where++] = '\n';
|
|
compose[where++] = 0;
|
|
|
|
serial_write (e7000_desc, compose, where);
|
|
j = readchar (0);
|
|
if (j == -1)
|
|
{
|
|
/* This is ok - nothing there */
|
|
}
|
|
else if (j == ENQ)
|
|
{
|
|
/* Hmm, it's trying to tell us something */
|
|
expect (":");
|
|
error ("Error writing memory");
|
|
}
|
|
else
|
|
{
|
|
printf_unfiltered ("@%d}@", j);
|
|
while ((j = readchar (0)) > 0)
|
|
{
|
|
printf_unfiltered ("@{%d}@", j);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Send the trailer record */
|
|
write_e7000 ("S70500000000FA\r");
|
|
putchar_e7000 (CTRLZ);
|
|
expect (ENQSTRING);
|
|
putchar_e7000 (ACK);
|
|
expect (":");
|
|
|
|
return len;
|
|
}
|
|
|
|
/* Copy LEN bytes of data from debugger memory at MYADDR to inferior's
|
|
memory at MEMADDR. Returns length moved.
|
|
|
|
Can't use the Srecord load over ethernet, so don't use fast method
|
|
then. */
|
|
|
|
static int
|
|
e7000_write_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
|
|
{
|
|
if (len < 16 || using_tcp || using_pc)
|
|
return write_small (memaddr, myaddr, len);
|
|
else
|
|
return write_large (memaddr, myaddr, len);
|
|
}
|
|
|
|
/* Read LEN bytes from inferior memory at MEMADDR. Put the result
|
|
at debugger address MYADDR. Returns length moved.
|
|
|
|
Small transactions we send
|
|
m <addr>;l
|
|
and receive
|
|
00000000 12345678 ?
|
|
*/
|
|
|
|
static int
|
|
e7000_read_inferior_memory (CORE_ADDR memaddr, unsigned char *myaddr, int len)
|
|
{
|
|
int count;
|
|
int c;
|
|
int i;
|
|
char buf[200];
|
|
/* Starting address of this pass. */
|
|
|
|
/* printf("READ INF %x %x %d\n", memaddr, myaddr, len); */
|
|
if (((memaddr - 1) + len) < memaddr)
|
|
{
|
|
errno = EIO;
|
|
return 0;
|
|
}
|
|
|
|
sprintf (buf, "m %s;l\r", paddr_nz (memaddr));
|
|
puts_e7000debug (buf);
|
|
|
|
for (count = 0; count < len; count += 4)
|
|
{
|
|
/* Suck away the address */
|
|
c = gch ();
|
|
while (c != ' ')
|
|
c = gch ();
|
|
c = gch ();
|
|
if (c == '*')
|
|
{ /* Some kind of error */
|
|
puts_e7000debug (".\r"); /* Some errors leave us in memory input mode */
|
|
expect_full_prompt ();
|
|
return -1;
|
|
}
|
|
while (c != ' ')
|
|
c = gch ();
|
|
|
|
/* Now read in the data */
|
|
for (i = 0; i < 4; i++)
|
|
{
|
|
int b = gbyte ();
|
|
if (count + i < len)
|
|
{
|
|
myaddr[count + i] = b;
|
|
}
|
|
}
|
|
|
|
/* Skip the trailing ? and send a . to end and a cr for more */
|
|
gch ();
|
|
gch ();
|
|
if (count + 4 >= len)
|
|
puts_e7000debug (".\r");
|
|
else
|
|
puts_e7000debug ("\r");
|
|
|
|
}
|
|
expect_prompt ();
|
|
return len;
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
For large transfers we used to send
|
|
|
|
|
|
d <addr> <endaddr>\r
|
|
|
|
and receive
|
|
<ADDRESS> < D A T A > < ASCII CODE >
|
|
00000000 5F FD FD FF DF 7F DF FF 01 00 01 00 02 00 08 04 "_..............."
|
|
00000010 FF D7 FF 7F D7 F1 7F FF 00 05 00 00 08 00 40 00 "..............@."
|
|
00000020 7F FD FF F7 7F FF FF F7 00 00 00 00 00 00 00 00 "................"
|
|
|
|
A cost in chars for each transaction of 80 + 5*n-bytes.
|
|
|
|
Large transactions could be done with the srecord load code, but
|
|
there is a pause for a second before dumping starts, which slows the
|
|
average rate down!
|
|
*/
|
|
|
|
static int
|
|
e7000_read_inferior_memory_large (CORE_ADDR memaddr, unsigned char *myaddr,
|
|
int len)
|
|
{
|
|
int count;
|
|
int c;
|
|
char buf[200];
|
|
|
|
/* Starting address of this pass. */
|
|
|
|
if (((memaddr - 1) + len) < memaddr)
|
|
{
|
|
errno = EIO;
|
|
return 0;
|
|
}
|
|
|
|
sprintf (buf, "d %s %s\r", paddr_nz (memaddr), paddr_nz (memaddr + len - 1));
|
|
puts_e7000debug (buf);
|
|
|
|
count = 0;
|
|
c = gch ();
|
|
|
|
/* skip down to the first ">" */
|
|
while (c != '>')
|
|
c = gch ();
|
|
/* now skip to the end of that line */
|
|
while (c != '\r')
|
|
c = gch ();
|
|
c = gch ();
|
|
|
|
while (count < len)
|
|
{
|
|
/* get rid of any white space before the address */
|
|
while (c <= ' ')
|
|
c = gch ();
|
|
|
|
/* Skip the address */
|
|
get_hex (&c);
|
|
|
|
/* read in the bytes on the line */
|
|
while (c != '"' && count < len)
|
|
{
|
|
if (c == ' ')
|
|
c = gch ();
|
|
else
|
|
{
|
|
myaddr[count++] = get_hex (&c);
|
|
}
|
|
}
|
|
/* throw out the rest of the line */
|
|
while (c != '\r')
|
|
c = gch ();
|
|
}
|
|
|
|
/* wait for the ":" prompt */
|
|
while (c != ':')
|
|
c = gch ();
|
|
|
|
return len;
|
|
}
|
|
|
|
#if 0
|
|
|
|
static int
|
|
fast_but_for_the_pause_e7000_read_inferior_memory (CORE_ADDR memaddr,
|
|
char *myaddr, int len)
|
|
{
|
|
int loop;
|
|
int c;
|
|
char buf[200];
|
|
|
|
if (((memaddr - 1) + len) < memaddr)
|
|
{
|
|
errno = EIO;
|
|
return 0;
|
|
}
|
|
|
|
sprintf (buf, "is %x@%x:s\r", memaddr, len);
|
|
puts_e7000debug (buf);
|
|
gch ();
|
|
c = gch ();
|
|
if (c != ENQ)
|
|
{
|
|
/* Got an error */
|
|
error ("Memory read error");
|
|
}
|
|
putchar_e7000 (ACK);
|
|
expect ("SV s");
|
|
loop = 1;
|
|
while (loop)
|
|
{
|
|
int type;
|
|
int length;
|
|
int addr;
|
|
int i;
|
|
|
|
c = gch ();
|
|
switch (c)
|
|
{
|
|
case ENQ: /* ENQ, at the end */
|
|
loop = 0;
|
|
break;
|
|
case 'S':
|
|
/* Start of an Srecord */
|
|
type = gch ();
|
|
length = gbyte ();
|
|
switch (type)
|
|
{
|
|
case '7': /* Termination record, ignore */
|
|
case '0':
|
|
case '8':
|
|
case '9':
|
|
/* Header record - ignore it */
|
|
while (length--)
|
|
{
|
|
gbyte ();
|
|
}
|
|
break;
|
|
case '1':
|
|
case '2':
|
|
case '3':
|
|
{
|
|
int alen;
|
|
|
|
alen = type - '0' + 1;
|
|
addr = 0;
|
|
while (alen--)
|
|
{
|
|
addr = (addr << 8) + gbyte ();
|
|
length--;
|
|
}
|
|
|
|
for (i = 0; i < length - 1; i++)
|
|
myaddr[i + addr - memaddr] = gbyte ();
|
|
|
|
gbyte (); /* Ignore checksum */
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
putchar_e7000 (ACK);
|
|
expect ("TOP ADDRESS =");
|
|
expect ("END ADDRESS =");
|
|
expect (":");
|
|
|
|
return len;
|
|
}
|
|
|
|
#endif
|
|
|
|
/* Transfer LEN bytes between GDB address MYADDR and target address
|
|
MEMADDR. If WRITE is non-zero, transfer them to the target,
|
|
otherwise transfer them from the target. TARGET is unused.
|
|
|
|
Returns the number of bytes transferred. */
|
|
|
|
static int
|
|
e7000_xfer_inferior_memory (CORE_ADDR memaddr, char *myaddr, int len,
|
|
int write, struct mem_attrib *attrib,
|
|
struct target_ops *target)
|
|
{
|
|
if (write)
|
|
return e7000_write_inferior_memory (memaddr, myaddr, len);
|
|
else if (len < 16)
|
|
return e7000_read_inferior_memory (memaddr, myaddr, len);
|
|
else
|
|
return e7000_read_inferior_memory_large (memaddr, myaddr, len);
|
|
}
|
|
|
|
static void
|
|
e7000_kill (void)
|
|
{
|
|
}
|
|
|
|
static void
|
|
e7000_load (char *args, int from_tty)
|
|
{
|
|
struct cleanup *old_chain;
|
|
asection *section;
|
|
bfd *pbfd;
|
|
bfd_vma entry;
|
|
#define WRITESIZE 0x1000
|
|
char buf[2 + 4 + 4 + WRITESIZE]; /* `DT' + <addr> + <len> + <data> */
|
|
char *filename;
|
|
int quiet;
|
|
int nostart;
|
|
time_t start_time, end_time; /* Start and end times of download */
|
|
unsigned long data_count; /* Number of bytes transferred to memory */
|
|
int oldtimeout = timeout;
|
|
|
|
timeout = remote_timeout;
|
|
|
|
|
|
/* FIXME! change test to test for type of download */
|
|
if (!using_tcp)
|
|
{
|
|
generic_load (args, from_tty);
|
|
return;
|
|
}
|
|
|
|
/* for direct tcp connections, we can do a fast binary download */
|
|
buf[0] = 'D';
|
|
buf[1] = 'T';
|
|
quiet = 0;
|
|
nostart = 0;
|
|
filename = NULL;
|
|
|
|
while (*args != '\000')
|
|
{
|
|
char *arg;
|
|
|
|
while (isspace (*args))
|
|
args++;
|
|
|
|
arg = args;
|
|
|
|
while ((*args != '\000') && !isspace (*args))
|
|
args++;
|
|
|
|
if (*args != '\000')
|
|
*args++ = '\000';
|
|
|
|
if (*arg != '-')
|
|
filename = arg;
|
|
else if (strncmp (arg, "-quiet", strlen (arg)) == 0)
|
|
quiet = 1;
|
|
else if (strncmp (arg, "-nostart", strlen (arg)) == 0)
|
|
nostart = 1;
|
|
else
|
|
error ("unknown option `%s'", arg);
|
|
}
|
|
|
|
if (!filename)
|
|
filename = get_exec_file (1);
|
|
|
|
pbfd = bfd_openr (filename, gnutarget);
|
|
if (pbfd == NULL)
|
|
{
|
|
perror_with_name (filename);
|
|
return;
|
|
}
|
|
old_chain = make_cleanup_bfd_close (pbfd);
|
|
|
|
if (!bfd_check_format (pbfd, bfd_object))
|
|
error ("\"%s\" is not an object file: %s", filename,
|
|
bfd_errmsg (bfd_get_error ()));
|
|
|
|
start_time = time (NULL);
|
|
data_count = 0;
|
|
|
|
puts_e7000debug ("mw\r");
|
|
|
|
expect ("\nOK");
|
|
|
|
for (section = pbfd->sections; section; section = section->next)
|
|
{
|
|
if (bfd_get_section_flags (pbfd, section) & SEC_LOAD)
|
|
{
|
|
bfd_vma section_address;
|
|
bfd_size_type section_size;
|
|
file_ptr fptr;
|
|
|
|
section_address = bfd_get_section_vma (pbfd, section);
|
|
section_size = bfd_get_section_size (section);
|
|
|
|
if (!quiet)
|
|
printf_filtered ("[Loading section %s at 0x%s (%s bytes)]\n",
|
|
bfd_get_section_name (pbfd, section),
|
|
paddr_nz (section_address),
|
|
paddr_u (section_size));
|
|
|
|
fptr = 0;
|
|
|
|
data_count += section_size;
|
|
|
|
while (section_size > 0)
|
|
{
|
|
int count;
|
|
static char inds[] = "|/-\\";
|
|
static int k = 0;
|
|
|
|
QUIT;
|
|
|
|
count = min (section_size, WRITESIZE);
|
|
|
|
buf[2] = section_address >> 24;
|
|
buf[3] = section_address >> 16;
|
|
buf[4] = section_address >> 8;
|
|
buf[5] = section_address;
|
|
|
|
buf[6] = count >> 24;
|
|
buf[7] = count >> 16;
|
|
buf[8] = count >> 8;
|
|
buf[9] = count;
|
|
|
|
bfd_get_section_contents (pbfd, section, buf + 10, fptr, count);
|
|
|
|
if (serial_write (e7000_desc, buf, count + 10))
|
|
fprintf_unfiltered (gdb_stderr,
|
|
"e7000_load: serial_write failed: %s\n",
|
|
safe_strerror (errno));
|
|
|
|
expect ("OK");
|
|
|
|
if (!quiet)
|
|
{
|
|
printf_unfiltered ("\r%c", inds[k++ % 4]);
|
|
gdb_flush (gdb_stdout);
|
|
}
|
|
|
|
section_address += count;
|
|
fptr += count;
|
|
section_size -= count;
|
|
}
|
|
}
|
|
}
|
|
|
|
write_e7000 ("ED");
|
|
|
|
expect_prompt ();
|
|
|
|
end_time = time (NULL);
|
|
|
|
/* Finally, make the PC point at the start address */
|
|
|
|
if (exec_bfd)
|
|
write_pc (bfd_get_start_address (exec_bfd));
|
|
|
|
inferior_ptid = null_ptid; /* No process now */
|
|
|
|
/* This is necessary because many things were based on the PC at the time that
|
|
we attached to the monitor, which is no longer valid now that we have loaded
|
|
new code (and just changed the PC). Another way to do this might be to call
|
|
normal_stop, except that the stack may not be valid, and things would get
|
|
horribly confused... */
|
|
|
|
clear_symtab_users ();
|
|
|
|
if (!nostart)
|
|
{
|
|
entry = bfd_get_start_address (pbfd);
|
|
|
|
if (!quiet)
|
|
printf_unfiltered ("[Starting %s at 0x%s]\n", filename, paddr_nz (entry));
|
|
|
|
/* start_routine (entry); */
|
|
}
|
|
|
|
report_transfer_performance (data_count, start_time, end_time);
|
|
|
|
do_cleanups (old_chain);
|
|
timeout = oldtimeout;
|
|
}
|
|
|
|
/* Clean up when a program exits.
|
|
|
|
The program actually lives on in the remote processor's RAM, and may be
|
|
run again without a download. Don't leave it full of breakpoint
|
|
instructions. */
|
|
|
|
static void
|
|
e7000_mourn_inferior (void)
|
|
{
|
|
remove_breakpoints ();
|
|
unpush_target (&e7000_ops);
|
|
generic_mourn_inferior (); /* Do all the proper things now */
|
|
}
|
|
|
|
#define MAX_BREAKPOINTS 200
|
|
#ifdef HARD_BREAKPOINTS
|
|
#define MAX_E7000DEBUG_BREAKPOINTS (BC_BREAKPOINTS ? 5 : MAX_BREAKPOINTS)
|
|
#else
|
|
#define MAX_E7000DEBUG_BREAKPOINTS MAX_BREAKPOINTS
|
|
#endif
|
|
|
|
/* Since we can change to soft breakpoints dynamically, we must define
|
|
more than enough. Was breakaddr[MAX_E7000DEBUG_BREAKPOINTS]. */
|
|
static CORE_ADDR breakaddr[MAX_BREAKPOINTS] =
|
|
{0};
|
|
|
|
static int
|
|
e7000_insert_breakpoint (CORE_ADDR addr, char *shadow)
|
|
{
|
|
int i;
|
|
char buf[200];
|
|
#if 0
|
|
static char nop[2] = NOP;
|
|
#endif
|
|
|
|
for (i = 0; i <= MAX_E7000DEBUG_BREAKPOINTS; i++)
|
|
if (breakaddr[i] == 0)
|
|
{
|
|
breakaddr[i] = addr;
|
|
/* Save old contents, and insert a nop in the space */
|
|
#ifdef HARD_BREAKPOINTS
|
|
if (BC_BREAKPOINTS)
|
|
{
|
|
sprintf (buf, "BC%d A=%s\r", i + 1, paddr_nz (addr));
|
|
puts_e7000debug (buf);
|
|
}
|
|
else
|
|
{
|
|
sprintf (buf, "B %s\r", paddr_nz (addr));
|
|
puts_e7000debug (buf);
|
|
}
|
|
#else
|
|
#if 0
|
|
e7000_read_inferior_memory (addr, shadow, 2);
|
|
e7000_write_inferior_memory (addr, nop, 2);
|
|
#endif
|
|
|
|
sprintf (buf, "B %x\r", addr);
|
|
puts_e7000debug (buf);
|
|
#endif
|
|
expect_prompt ();
|
|
return 0;
|
|
}
|
|
|
|
error ("Too many breakpoints ( > %d) for the E7000\n",
|
|
MAX_E7000DEBUG_BREAKPOINTS);
|
|
return 1;
|
|
}
|
|
|
|
static int
|
|
e7000_remove_breakpoint (CORE_ADDR addr, char *shadow)
|
|
{
|
|
int i;
|
|
char buf[200];
|
|
|
|
for (i = 0; i < MAX_E7000DEBUG_BREAKPOINTS; i++)
|
|
if (breakaddr[i] == addr)
|
|
{
|
|
breakaddr[i] = 0;
|
|
#ifdef HARD_BREAKPOINTS
|
|
if (BC_BREAKPOINTS)
|
|
{
|
|
sprintf (buf, "BC%d - \r", i + 1);
|
|
puts_e7000debug (buf);
|
|
}
|
|
else
|
|
{
|
|
sprintf (buf, "B - %s\r", paddr_nz (addr));
|
|
puts_e7000debug (buf);
|
|
}
|
|
expect_prompt ();
|
|
#else
|
|
sprintf (buf, "B - %s\r", paddr_nz (addr));
|
|
puts_e7000debug (buf);
|
|
expect_prompt ();
|
|
|
|
#if 0
|
|
/* Replace the insn under the break */
|
|
e7000_write_inferior_memory (addr, shadow, 2);
|
|
#endif
|
|
#endif
|
|
|
|
return 0;
|
|
}
|
|
|
|
warning ("Can't find breakpoint associated with 0x%s\n", paddr_nz (addr));
|
|
return 1;
|
|
}
|
|
|
|
/* Put a command string, in args, out to STDBUG. Output from STDBUG
|
|
is placed on the users terminal until the prompt is seen. */
|
|
|
|
static void
|
|
e7000_command (char *args, int fromtty)
|
|
{
|
|
/* FIXME: arbitrary limit on length of args. */
|
|
char buf[200];
|
|
|
|
echo = 0;
|
|
|
|
if (!e7000_desc)
|
|
error ("e7000 target not open.");
|
|
if (!args)
|
|
{
|
|
puts_e7000debug ("\r");
|
|
}
|
|
else
|
|
{
|
|
sprintf (buf, "%s\r", args);
|
|
puts_e7000debug (buf);
|
|
}
|
|
|
|
echo++;
|
|
ctrl_c = 2;
|
|
expect_full_prompt ();
|
|
echo--;
|
|
ctrl_c = 0;
|
|
printf_unfiltered ("\n");
|
|
|
|
/* Who knows what the command did... */
|
|
registers_changed ();
|
|
}
|
|
|
|
|
|
static void
|
|
e7000_drain_command (char *args, int fromtty)
|
|
{
|
|
int c;
|
|
|
|
puts_e7000debug ("end\r");
|
|
putchar_e7000 (CTRLC);
|
|
|
|
while ((c = readchar (1)) != -1)
|
|
{
|
|
if (quit_flag)
|
|
{
|
|
putchar_e7000 (CTRLC);
|
|
quit_flag = 0;
|
|
}
|
|
if (c > ' ' && c < 127)
|
|
printf_unfiltered ("%c", c & 0xff);
|
|
else
|
|
printf_unfiltered ("<%x>", c & 0xff);
|
|
}
|
|
}
|
|
|
|
#define NITEMS 7
|
|
|
|
static int
|
|
why_stop (void)
|
|
{
|
|
static char *strings[NITEMS] =
|
|
{
|
|
"STEP NORMAL",
|
|
"BREAK POINT",
|
|
"BREAK KEY",
|
|
"BREAK CONDI",
|
|
"CYCLE ACCESS",
|
|
"ILLEGAL INSTRUCTION",
|
|
"WRITE PROTECT",
|
|
};
|
|
char *p[NITEMS];
|
|
int c;
|
|
int i;
|
|
|
|
for (i = 0; i < NITEMS; ++i)
|
|
p[i] = strings[i];
|
|
|
|
c = gch ();
|
|
while (1)
|
|
{
|
|
for (i = 0; i < NITEMS; i++)
|
|
{
|
|
if (c == *(p[i]))
|
|
{
|
|
p[i]++;
|
|
if (*(p[i]) == 0)
|
|
{
|
|
/* found one of the choices */
|
|
return i;
|
|
}
|
|
}
|
|
else
|
|
p[i] = strings[i];
|
|
}
|
|
|
|
c = gch ();
|
|
}
|
|
}
|
|
|
|
/* Suck characters, if a string match, then return the strings index
|
|
otherwise echo them. */
|
|
|
|
static int
|
|
expect_n (char **strings)
|
|
{
|
|
char *(ptr[10]);
|
|
int n;
|
|
int c;
|
|
char saveaway[100];
|
|
char *buffer = saveaway;
|
|
/* Count number of expect strings */
|
|
|
|
for (n = 0; strings[n]; n++)
|
|
{
|
|
ptr[n] = strings[n];
|
|
}
|
|
|
|
while (1)
|
|
{
|
|
int i;
|
|
int gotone = 0;
|
|
|
|
c = readchar (1);
|
|
if (c == -1)
|
|
{
|
|
printf_unfiltered ("[waiting for e7000...]\n");
|
|
}
|
|
#ifdef __GO32__
|
|
if (kbhit ())
|
|
{
|
|
int k = getkey ();
|
|
|
|
if (k == 1)
|
|
quit_flag = 1;
|
|
}
|
|
#endif
|
|
if (quit_flag)
|
|
{
|
|
putchar_e7000 (CTRLC); /* interrupt the running program */
|
|
quit_flag = 0;
|
|
}
|
|
|
|
for (i = 0; i < n; i++)
|
|
{
|
|
if (c == ptr[i][0])
|
|
{
|
|
ptr[i]++;
|
|
if (ptr[i][0] == 0)
|
|
{
|
|
/* Gone all the way */
|
|
return i;
|
|
}
|
|
gotone = 1;
|
|
}
|
|
else
|
|
{
|
|
ptr[i] = strings[i];
|
|
}
|
|
}
|
|
|
|
if (gotone)
|
|
{
|
|
/* Save it up incase we find that there was no match */
|
|
*buffer++ = c;
|
|
}
|
|
else
|
|
{
|
|
if (buffer != saveaway)
|
|
{
|
|
*buffer++ = 0;
|
|
printf_unfiltered ("%s", buffer);
|
|
buffer = saveaway;
|
|
}
|
|
if (c != -1)
|
|
{
|
|
putchar_unfiltered (c);
|
|
gdb_flush (gdb_stdout);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* We subtract two from the pc here rather than use
|
|
DECR_PC_AFTER_BREAK since the e7000 doesn't always add two to the
|
|
pc, and the simulators never do. */
|
|
|
|
static void
|
|
sub2_from_pc (void)
|
|
{
|
|
char buf[4];
|
|
char buf2[200];
|
|
|
|
store_signed_integer (buf,
|
|
register_size (current_gdbarch, PC_REGNUM),
|
|
read_register (PC_REGNUM) - 2);
|
|
regcache_raw_supply (current_regcache, PC_REGNUM, buf);
|
|
sprintf (buf2, ".PC %s\r", phex_nz (read_register (PC_REGNUM), 0));
|
|
puts_e7000debug (buf2);
|
|
}
|
|
|
|
#define WAS_SLEEP 0
|
|
#define WAS_INT 1
|
|
#define WAS_RUNNING 2
|
|
#define WAS_OTHER 3
|
|
|
|
static char *estrings[] =
|
|
{
|
|
"** SLEEP",
|
|
"BREAK !",
|
|
"** PC",
|
|
"PC",
|
|
NULL
|
|
};
|
|
|
|
/* Wait until the remote machine stops, then return, storing status in
|
|
STATUS just as `wait' would. */
|
|
|
|
static ptid_t
|
|
e7000_wait (ptid_t ptid, struct target_waitstatus *status)
|
|
{
|
|
int stop_reason;
|
|
int regno;
|
|
int running_count = 0;
|
|
int had_sleep = 0;
|
|
int loop = 1;
|
|
char *wanted_nopc = NULL;
|
|
|
|
/* Then echo chars until PC= string seen */
|
|
gch (); /* Drop cr */
|
|
gch (); /* and space */
|
|
|
|
while (loop)
|
|
{
|
|
switch (expect_n (estrings))
|
|
{
|
|
case WAS_OTHER:
|
|
/* how did this happen ? */
|
|
loop = 0;
|
|
break;
|
|
case WAS_SLEEP:
|
|
had_sleep = 1;
|
|
putchar_e7000 (CTRLC);
|
|
loop = 0;
|
|
break;
|
|
case WAS_INT:
|
|
loop = 0;
|
|
break;
|
|
case WAS_RUNNING:
|
|
running_count++;
|
|
if (running_count == 20)
|
|
{
|
|
printf_unfiltered ("[running...]\n");
|
|
running_count = 0;
|
|
}
|
|
break;
|
|
default:
|
|
/* error? */
|
|
break;
|
|
}
|
|
}
|
|
|
|
/* Skip till the PC= */
|
|
expect ("=");
|
|
|
|
if (TARGET_ARCHITECTURE->arch == bfd_arch_sh)
|
|
{
|
|
wanted_nopc = want_nopc_sh;
|
|
switch (TARGET_ARCHITECTURE->mach)
|
|
{
|
|
case bfd_mach_sh3:
|
|
case bfd_mach_sh3e:
|
|
case bfd_mach_sh4:
|
|
wanted_nopc = want_nopc_sh3;
|
|
}
|
|
}
|
|
if (TARGET_ARCHITECTURE->arch == bfd_arch_h8300)
|
|
{
|
|
wanted_nopc = want_nopc_h8300h;
|
|
switch (TARGET_ARCHITECTURE->mach)
|
|
{
|
|
case bfd_mach_h8300s:
|
|
case bfd_mach_h8300sn:
|
|
case bfd_mach_h8300sx:
|
|
case bfd_mach_h8300sxn:
|
|
wanted_nopc = want_nopc_h8300s;
|
|
}
|
|
}
|
|
fetch_regs_from_dump (gch, wanted_nopc);
|
|
|
|
/* And supply the extra ones the simulator uses */
|
|
for (regno = NUM_REALREGS; regno < NUM_REGS; regno++)
|
|
{
|
|
int buf = 0;
|
|
regcache_raw_supply (current_regcache, regno, (char *) &buf);
|
|
}
|
|
|
|
stop_reason = why_stop ();
|
|
expect_full_prompt ();
|
|
|
|
status->kind = TARGET_WAITKIND_STOPPED;
|
|
status->value.sig = TARGET_SIGNAL_TRAP;
|
|
|
|
switch (stop_reason)
|
|
{
|
|
case 1: /* Breakpoint */
|
|
write_pc (read_pc ()); /* PC is always off by 2 for breakpoints */
|
|
status->value.sig = TARGET_SIGNAL_TRAP;
|
|
break;
|
|
case 0: /* Single step */
|
|
status->value.sig = TARGET_SIGNAL_TRAP;
|
|
break;
|
|
case 2: /* Interrupt */
|
|
if (had_sleep)
|
|
{
|
|
status->value.sig = TARGET_SIGNAL_TRAP;
|
|
sub2_from_pc ();
|
|
}
|
|
else
|
|
{
|
|
status->value.sig = TARGET_SIGNAL_INT;
|
|
}
|
|
break;
|
|
case 3:
|
|
break;
|
|
case 4:
|
|
printf_unfiltered ("a cycle address error?\n");
|
|
status->value.sig = TARGET_SIGNAL_UNKNOWN;
|
|
break;
|
|
case 5:
|
|
status->value.sig = TARGET_SIGNAL_ILL;
|
|
break;
|
|
case 6:
|
|
status->value.sig = TARGET_SIGNAL_SEGV;
|
|
break;
|
|
case 7: /* Anything else (NITEMS + 1) */
|
|
printf_unfiltered ("a write protect error?\n");
|
|
status->value.sig = TARGET_SIGNAL_UNKNOWN;
|
|
break;
|
|
default:
|
|
/* Get the user's attention - this should never happen. */
|
|
internal_error (__FILE__, __LINE__, "failed internal consistency check");
|
|
}
|
|
|
|
return inferior_ptid;
|
|
}
|
|
|
|
/* Stop the running program. */
|
|
|
|
static void
|
|
e7000_stop (void)
|
|
{
|
|
/* Sending a ^C is supposed to stop the running program. */
|
|
putchar_e7000 (CTRLC);
|
|
}
|
|
|
|
/* Define the target subroutine names. */
|
|
|
|
struct target_ops e7000_ops;
|
|
|
|
static void
|
|
init_e7000_ops (void)
|
|
{
|
|
e7000_ops.to_shortname = "e7000";
|
|
e7000_ops.to_longname = "Remote Renesas e7000 target";
|
|
e7000_ops.to_doc = "Use a remote Renesas e7000 ICE connected by a serial line;\n\
|
|
or a network connection.\n\
|
|
Arguments are the name of the device for the serial line,\n\
|
|
the speed to connect at in bits per second.\n\
|
|
eg\n\
|
|
target e7000 /dev/ttya 9600\n\
|
|
target e7000 foobar";
|
|
e7000_ops.to_open = e7000_open;
|
|
e7000_ops.to_close = e7000_close;
|
|
e7000_ops.to_detach = e7000_detach;
|
|
e7000_ops.to_resume = e7000_resume;
|
|
e7000_ops.to_wait = e7000_wait;
|
|
e7000_ops.to_fetch_registers = e7000_fetch_register;
|
|
e7000_ops.to_store_registers = e7000_store_register;
|
|
e7000_ops.to_prepare_to_store = e7000_prepare_to_store;
|
|
e7000_ops.deprecated_xfer_memory = e7000_xfer_inferior_memory;
|
|
e7000_ops.to_files_info = e7000_files_info;
|
|
e7000_ops.to_insert_breakpoint = e7000_insert_breakpoint;
|
|
e7000_ops.to_remove_breakpoint = e7000_remove_breakpoint;
|
|
e7000_ops.to_kill = e7000_kill;
|
|
e7000_ops.to_load = e7000_load;
|
|
e7000_ops.to_create_inferior = e7000_create_inferior;
|
|
e7000_ops.to_mourn_inferior = e7000_mourn_inferior;
|
|
e7000_ops.to_stop = e7000_stop;
|
|
e7000_ops.to_stratum = process_stratum;
|
|
e7000_ops.to_has_all_memory = 1;
|
|
e7000_ops.to_has_memory = 1;
|
|
e7000_ops.to_has_stack = 1;
|
|
e7000_ops.to_has_registers = 1;
|
|
e7000_ops.to_has_execution = 1;
|
|
e7000_ops.to_magic = OPS_MAGIC;
|
|
};
|
|
|
|
extern initialize_file_ftype _initialize_remote_e7000; /* -Wmissing-prototypes */
|
|
|
|
void
|
|
_initialize_remote_e7000 (void)
|
|
{
|
|
init_e7000_ops ();
|
|
add_target (&e7000_ops);
|
|
|
|
add_com ("e7000", class_obscure, e7000_command,
|
|
"Send a command to the e7000 monitor.");
|
|
|
|
add_com ("ftplogin", class_obscure, e7000_login_command,
|
|
"Login to machine and change to directory.");
|
|
|
|
add_com ("ftpload", class_obscure, e7000_ftp_command,
|
|
"Fetch and load a file from previously described place.");
|
|
|
|
add_com ("drain", class_obscure, e7000_drain_command,
|
|
"Drain pending e7000 text buffers.");
|
|
|
|
deprecated_add_show_from_set
|
|
(add_set_cmd ("usehardbreakpoints", no_class,
|
|
var_integer, (char *) &use_hard_breakpoints, "\
|
|
Set use of hardware breakpoints for all breakpoints.\n", &setlist),
|
|
&showlist);
|
|
}
|