old-cross-binutils/gdb/v850ice.c

930 lines
22 KiB
C
Raw Normal View History

1999-06-08 02:18:01 +00:00
/* ICE interface for the NEC V850 for GDB, the GNU debugger.
2001-03-06 08:22:02 +00:00
Copyright 1996, 1997, 1998, 1999, 2000, 2001
Free Software Foundation, Inc.
1999-06-08 02:18:01 +00:00
1999-07-07 20:19:36 +00:00
This file is part of GDB.
1999-06-08 02:18:01 +00:00
1999-07-07 20:19:36 +00:00
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.
1999-06-08 02:18:01 +00:00
1999-07-07 20:19:36 +00:00
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.
1999-06-08 02:18:01 +00:00
1999-07-07 20:19:36 +00:00
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. */
1999-06-08 02:18:01 +00:00
#include "defs.h"
#include "gdb_string.h"
#include "frame.h"
#include "symtab.h"
#include "inferior.h"
#include "breakpoint.h"
#include "symfile.h"
#include "target.h"
#include "objfiles.h"
#include "gdbcore.h"
#include "value.h"
#include "command.h"
#include "regcache.h"
1999-06-08 02:18:01 +00:00
#include <tcl.h>
1999-06-08 02:18:01 +00:00
#include <windows.h>
1999-07-07 20:19:36 +00:00
#include <winuser.h> /* for WM_USER */
extern unsigned long int strtoul (const char *nptr, char **endptr,
int base);
1999-06-08 02:18:01 +00:00
/* Local data definitions */
struct MessageIO
1999-07-07 20:19:36 +00:00
{
int size; /* length of input or output in bytes */
char *buf; /* buffer having the input/output information */
};
1999-06-08 02:18:01 +00:00
/* Prototypes for functions located in other files */
2000-05-28 01:12:42 +00:00
extern void break_command (char *, int);
1999-06-08 02:18:01 +00:00
extern int (*ui_loop_hook) (int);
1999-06-08 02:18:01 +00:00
/* Prototypes for local functions */
2000-05-28 01:12:42 +00:00
static int init_hidden_window (void);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static LRESULT CALLBACK v850ice_wndproc (HWND, UINT, WPARAM, LPARAM);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_files_info (struct target_ops *ignore);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int v850ice_xfer_memory (CORE_ADDR memaddr, char *myaddr,
int len, int should_write,
struct target_ops *target);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_prepare_to_store (void);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_fetch_registers (int regno);
1999-06-08 02:18:01 +00:00
2001-05-04 04:15:33 +00:00
static void v850ice_resume (ptid_t ptid, int step,
enum target_signal siggnal);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_open (char *name, int from_tty);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_close (int quitting);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_stop (void);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_store_registers (int regno);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_mourn (void);
1999-06-08 02:18:01 +00:00
2001-05-04 04:15:33 +00:00
static ptid_t v850ice_wait (ptid_t ptid,
struct target_waitstatus *status);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_kill (void);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_detach (char *args, int from_tty);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int v850ice_insert_breakpoint (CORE_ADDR, char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int v850ice_remove_breakpoint (CORE_ADDR, char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void v850ice_command (char *, int);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int ice_disassemble (unsigned long, int, char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int ice_lookup_addr (unsigned long *, char *, char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int ice_lookup_symbol (unsigned long, char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void ice_SimulateDisassemble (char *, int);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void ice_SimulateAddrLookup (char *, int);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void ice_Simulate_SymLookup (char *, int);
1999-06-08 02:18:01 +00:00
2000-02-02 00:21:19 +00:00
static void ice_fputs (const char *, struct ui_file *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int ice_file (char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int ice_cont (char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int ice_stepi (char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static int ice_nexti (char *);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void togdb_force_update (void);
1999-06-08 02:18:01 +00:00
2000-05-28 01:12:42 +00:00
static void view_source (CORE_ADDR);
2000-06-16 02:11:36 +00:00
static void do_gdb (char *, char *, void (*func) (char *, int), int);
1999-06-08 02:18:01 +00:00
/* Globals */
1999-07-07 20:19:36 +00:00
static HWND hidden_hwnd; /* HWND for messages */
1999-06-08 02:18:01 +00:00
2000-06-16 02:11:36 +00:00
long (__stdcall * ExeAppReq) (char *, long, char *, struct MessageIO *);
1999-06-08 02:18:01 +00:00
2000-06-16 02:11:36 +00:00
long (__stdcall * RegisterClient) (HWND);
1999-06-08 02:18:01 +00:00
2000-06-16 02:11:36 +00:00
long (__stdcall * UnregisterClient) (void);
1999-06-08 02:18:01 +00:00
extern Tcl_Interp *gdbtk_interp;
1999-06-08 02:18:01 +00:00
/* Globals local to this file only */
1999-07-07 20:19:36 +00:00
static int ice_open = 0; /* Is ICE open? */
1999-06-08 02:18:01 +00:00
1999-07-07 20:19:36 +00:00
static char *v850_CB_Result; /* special char array for saving 'callback' results */
1999-06-08 02:18:01 +00:00
1999-07-07 20:19:36 +00:00
static int SimulateCallback; /* simulate a callback event */
1999-06-08 02:18:01 +00:00
1999-07-07 20:19:36 +00:00
#define MAX_BLOCK_SIZE 64*1024 /* Cannot transfer memory in blocks bigger
than this */
1999-06-08 02:18:01 +00:00
/* MDI/ICE Message IDs */
1999-07-07 20:19:36 +00:00
#define GSINGLESTEP 0x200 /* single-step target */
#define GRESUME 0x201 /* resume target */
#define GREADREG 0x202 /* read a register */
#define GWRITEREG 0x203 /* write a register */
#define GWRITEBLOCK 0x204 /* write a block of memory */
#define GREADBLOCK 0x205 /* read a block of memory */
#define GSETBREAK 0x206 /* set a breakpoint */
#define GREMOVEBREAK 0x207 /* remove a breakpoint */
#define GHALT 0x208 /* ??? */
#define GCHECKSTATUS 0x209 /* check status of ICE */
#define GMDIREPLY 0x210 /* Reply for previous query - NOT USED */
#define GDOWNLOAD 0x211 /* something for MDI */
#define GCOMMAND 0x212 /* execute command in ice */
#define GLOADFILENAME 0x213 /* retrieve load filename */
#define GWRITEMEM 0x214 /* write word, half-word, or byte */
1999-06-08 02:18:01 +00:00
/* GCHECKSTATUS return codes: */
#define ICE_Idle 0x00
1999-07-07 20:19:36 +00:00
#define ICE_Breakpoint 0x01 /* hit a breakpoint */
#define ICE_Stepped 0x02 /* have stepped */
#define ICE_Exception 0x03 /* have exception */
#define ICE_Halted 0x04 /* hit a user halt */
#define ICE_Exited 0x05 /* called exit */
#define ICE_Terminated 0x06 /* user terminated */
1999-06-08 02:18:01 +00:00
#define ICE_Running 0x07
#define ICE_Unknown 0x99
/* Windows messages */
#define WM_STATE_CHANGE WM_USER+101
#define WM_SYM_TO_ADDR WM_USER+102
#define WM_ADDR_TO_SYM WM_USER+103
#define WM_DISASSEMBLY WM_USER+104
#define WM_SOURCE WM_USER+105
/* STATE_CHANGE codes */
1999-07-07 20:19:36 +00:00
#define STATE_CHANGE_REGS 1 /* Register(s) changed */
#define STATE_CHANGE_LOAD 2 /* HW reset */
#define STATE_CHANGE_RESET 3 /* Load new file */
#define STATE_CHANGE_CONT 4 /* Run target */
#define STATE_CHANGE_STOP 5 /* Stop target */
#define STATE_CHANGE_STEPI 6 /* Stepi target */
#define STATE_CHANGE_NEXTI 7 /* Nexti target */
1999-06-08 02:18:01 +00:00
static struct target_ops v850ice_ops; /* Forward decl */
/* This function creates a hidden window */
static int
2000-07-30 01:48:28 +00:00
init_hidden_window (void)
1999-06-08 02:18:01 +00:00
{
WNDCLASS class;
if (hidden_hwnd != NULL)
return 1;
class.style = 0;
class.cbClsExtra = 0;
class.cbWndExtra = 0;
class.hInstance = GetModuleHandle (0);
class.hbrBackground = NULL;
class.lpszMenuName = NULL;
class.lpszClassName = "gdb_v850ice";
class.lpfnWndProc = v850ice_wndproc;
class.hIcon = NULL;
class.hCursor = NULL;
1999-07-07 20:19:36 +00:00
if (!RegisterClass (&class))
1999-06-08 02:18:01 +00:00
return 0;
hidden_hwnd = CreateWindow ("gdb_v850ice", "gdb_v850ice", WS_TILED,
1999-07-07 20:19:36 +00:00
0, 0, 0, 0, NULL, NULL, class.hInstance,
NULL);
1999-06-08 02:18:01 +00:00
if (hidden_hwnd == NULL)
{
char buf[200];
DWORD err;
err = GetLastError ();
FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, err,
1999-07-07 20:19:36 +00:00
0, buf, 200, NULL);
1999-06-08 02:18:01 +00:00
printf_unfiltered ("Could not create window: %s", buf);
return 0;
}
return 1;
}
/*
This function is installed as the message handler for the hidden window
which QBox will use to communicate with gdb. It recognize and acts
on the following messages:
WM_SYM_TO_ADDR \
WM_ADDR_TO_SYM | Not implemented at NEC's request
WM_DISASSEMBLY /
WM_STATE_CHANGE - tells us that a state change has occured in the ICE
1999-07-07 20:19:36 +00:00
*/
1999-06-08 02:18:01 +00:00
static LRESULT CALLBACK
2000-07-30 01:48:28 +00:00
v850ice_wndproc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
1999-06-08 02:18:01 +00:00
{
LRESULT result = FALSE;
switch (message)
{
case WM_SYM_TO_ADDR:
MessageBox (0, "Symbol resolution\nNot implemented", "GDB", MB_OK);
break;
case WM_ADDR_TO_SYM:
MessageBox (0, "Address resolution\nNot implemented", "GDB", MB_OK);
break;
case WM_SOURCE:
view_source ((CORE_ADDR) lParam);
1999-06-08 02:18:01 +00:00
break;
case WM_STATE_CHANGE:
switch (wParam)
1999-07-07 20:19:36 +00:00
{
case STATE_CHANGE_LOAD:
{
struct MessageIO iob;
char buf[128];
iob.buf = buf;
iob.size = 128;
/* Load in a new file... Need filename */
ExeAppReq ("GDB", GLOADFILENAME, NULL, &iob);
if (!catch_errors ((catch_errors_ftype *) ice_file, iob.buf, "", RETURN_MASK_ALL))
printf_unfiltered ("load errored\n");
}
break;
case STATE_CHANGE_RESET:
registers_changed ();
flush_cached_frames ();
togdb_force_update ();
result = TRUE;
break;
case STATE_CHANGE_REGS:
registers_changed ();
togdb_force_update ();
result = TRUE;
break;
case STATE_CHANGE_CONT:
if (!catch_errors ((catch_errors_ftype *) ice_cont, NULL, "", RETURN_MASK_ALL))
printf_unfiltered ("continue errored\n");
result = TRUE;
break;
case STATE_CHANGE_STEPI:
if (!catch_errors ((catch_errors_ftype *) ice_stepi, (int) lParam, "",
1999-07-07 20:19:36 +00:00
RETURN_MASK_ALL))
printf_unfiltered ("stepi errored\n");
result = TRUE;
break;
case STATE_CHANGE_NEXTI:
if (!catch_errors ((catch_errors_ftype *) ice_nexti, (int) lParam, "",
1999-07-07 20:19:36 +00:00
RETURN_MASK_ALL))
printf_unfiltered ("nexti errored\n");
result = TRUE;
break;
}
1999-06-08 02:18:01 +00:00
}
if (result == FALSE)
return DefWindowProc (hwnd, message, wParam, lParam);
return FALSE;
}
/* Code for opening a connection to the ICE. */
static void
2000-07-30 01:48:28 +00:00
v850ice_open (char *name, int from_tty)
1999-06-08 02:18:01 +00:00
{
HINSTANCE handle;
if (name)
error ("Too many arguments.");
target_preopen (from_tty);
unpush_target (&v850ice_ops);
if (from_tty)
puts_filtered ("V850ice debugging\n");
push_target (&v850ice_ops); /* Switch to using v850ice target now */
target_terminal_init ();
/* Initialize everything necessary to facilitate communication
between QBox, gdb, and the DLLs which control the ICE */
if (ExeAppReq == NULL)
{
handle = LoadLibrary ("necmsg.dll");
if (handle == NULL)
1999-07-07 20:19:36 +00:00
error ("Cannot load necmsg.dll");
1999-06-08 02:18:01 +00:00
2000-06-16 02:11:36 +00:00
ExeAppReq = (long (*) (char *, long, char *, struct MessageIO *))
1999-07-07 20:19:36 +00:00
GetProcAddress (handle, "ExeAppReq");
2000-06-16 02:11:36 +00:00
RegisterClient = (long (*) (HWND))
1999-07-07 20:19:36 +00:00
GetProcAddress (handle, "RegisterClient");
2000-06-16 02:11:36 +00:00
UnregisterClient = (long (*) (void))
1999-07-07 20:19:36 +00:00
GetProcAddress (handle, "UnregisterClient");
1999-06-08 02:18:01 +00:00
if (ExeAppReq == NULL || RegisterClient == NULL || UnregisterClient == NULL)
1999-07-07 20:19:36 +00:00
error ("Could not find requisite functions in necmsg.dll.");
1999-06-08 02:18:01 +00:00
if (!init_hidden_window ())
1999-07-07 20:19:36 +00:00
error ("could not initialize message handling");
1999-06-08 02:18:01 +00:00
}
/* Tell the DLL we are here */
RegisterClient (hidden_hwnd);
ice_open = 1;
/* Without this, some commands which require an active target (such as kill)
won't work. This variable serves (at least) double duty as both the pid
of the target process (if it has such), and as a flag indicating that a
target is active. These functions should be split out into seperate
variables, especially since GDB will someday have a notion of debugging
several processes. */
2001-05-04 04:15:33 +00:00
inferior_ptid = pid_to_ptid (42000);
1999-06-08 02:18:01 +00:00
start_remote ();
return;
}
/* Clean up connection to a remote debugger. */
static void
2000-07-30 01:48:28 +00:00
v850ice_close (int quitting)
1999-06-08 02:18:01 +00:00
{
if (ice_open)
{
UnregisterClient ();
ice_open = 0;
2001-05-04 04:15:33 +00:00
inferior_ptid = null_ptid;
1999-06-08 02:18:01 +00:00
}
}
/* Stop the process on the ice. */
static void
2000-07-30 01:48:28 +00:00
v850ice_stop (void)
1999-06-08 02:18:01 +00:00
{
/* This is silly, but it works... */
v850ice_command ("stop", 0);
}
static void
2000-07-30 01:48:28 +00:00
v850ice_detach (char *args, int from_tty)
1999-06-08 02:18:01 +00:00
{
if (args)
error ("Argument given to \"detach\" when remotely debugging.");
pop_target ();
if (from_tty)
puts_filtered ("Ending v850ice debugging.\n");
}
/* Tell the remote machine to resume. */
static void
2001-05-04 04:15:33 +00:00
v850ice_resume (ptid_t ptid, int step, enum target_signal siggnal)
1999-06-08 02:18:01 +00:00
{
1999-07-07 20:19:36 +00:00
long retval;
char buf[256];
struct MessageIO iob;
1999-06-08 02:18:01 +00:00
iob.size = 0;
1999-07-07 20:19:36 +00:00
iob.buf = buf;
1999-06-08 02:18:01 +00:00
if (step)
retval = ExeAppReq ("GDB", GSINGLESTEP, "step", &iob);
else
retval = ExeAppReq ("GDB", GRESUME, "run", &iob);
if (retval)
error ("ExeAppReq (step = %d) returned %d", step, retval);
}
/* Wait until the remote machine stops, then return,
storing status in STATUS just as `wait' would.
Returns "pid" (though it's not clear what, if anything, that
means in the case of this target). */
2001-05-04 04:15:33 +00:00
static ptid_t
v850ice_wait (ptid_t ptid, struct target_waitstatus *status)
1999-06-08 02:18:01 +00:00
{
long v850_status;
char buf[256];
1999-07-07 20:19:36 +00:00
struct MessageIO iob;
1999-06-08 02:18:01 +00:00
int done = 0;
int count = 0;
iob.size = 0;
1999-07-07 20:19:36 +00:00
iob.buf = buf;
1999-06-08 02:18:01 +00:00
do
{
if (count++ % 100000)
1999-07-07 20:19:36 +00:00
{
ui_loop_hook (0);
1999-06-08 02:18:01 +00:00
count = 0;
1999-07-07 20:19:36 +00:00
}
1999-06-08 02:18:01 +00:00
v850_status = ExeAppReq ("GDB", GCHECKSTATUS, NULL, &iob);
switch (v850_status)
1999-07-07 20:19:36 +00:00
{
case ICE_Idle:
case ICE_Breakpoint:
case ICE_Stepped:
case ICE_Halted:
status->kind = TARGET_WAITKIND_STOPPED;
status->value.sig = TARGET_SIGNAL_TRAP;
done = 1;
break;
case ICE_Exception:
status->kind = TARGET_WAITKIND_SIGNALLED;
status->value.sig = TARGET_SIGNAL_SEGV;
done = 1;
break;
case ICE_Exited:
status->kind = TARGET_WAITKIND_EXITED;
status->value.integer = 0;
done = 1;
break;
case ICE_Terminated:
status->kind = TARGET_WAITKIND_SIGNALLED;
status->value.sig = TARGET_SIGNAL_KILL;
done = 1;
break;
default:
break;
}
1999-06-08 02:18:01 +00:00
}
while (!done);
1999-07-07 20:19:36 +00:00
2001-05-04 04:15:33 +00:00
return inferior_ptid;
1999-06-08 02:18:01 +00:00
}
static int
2000-07-30 01:48:28 +00:00
convert_register (int regno, char *buf)
1999-06-08 02:18:01 +00:00
{
if (regno <= 31)
sprintf (buf, "r%d", regno);
else if (REGISTER_NAME (regno)[0] == 's'
&& REGISTER_NAME (regno)[1] == 'r')
return 0;
else
sprintf (buf, "%s", REGISTER_NAME (regno));
return 1;
}
/* Read the remote registers into the block REGS. */
/* Note that the ICE returns register contents as ascii hex strings. We have
to convert that to an unsigned long, and then call store_unsigned_integer to
convert it to target byte-order if necessary. */
static void
2000-07-30 01:48:28 +00:00
v850ice_fetch_registers (int regno)
1999-06-08 02:18:01 +00:00
{
long retval;
char cmd[100];
char val[100];
struct MessageIO iob;
unsigned long regval;
char *p;
if (regno == -1)
{
for (regno = 0; regno < NUM_REGS; regno++)
1999-07-07 20:19:36 +00:00
v850ice_fetch_registers (regno);
1999-06-08 02:18:01 +00:00
return;
}
strcpy (cmd, "reg ");
if (!convert_register (regno, &cmd[4]))
return;
iob.size = sizeof val;
iob.buf = val;
retval = ExeAppReq ("GDB", GREADREG, cmd, &iob);
if (retval)
error ("1: ExeAppReq returned %d: cmd = %s", retval, cmd);
regval = strtoul (val, NULL, 16);
if (regval == 0 && p == val)
error ("v850ice_fetch_registers (%d): bad value from ICE: %s.",
1999-07-07 20:19:36 +00:00
regno, val);
1999-06-08 02:18:01 +00:00
2003-10-02 Andrew Cagney <cagney@redhat.com> * gdbarch.sh (DEPRECATED_REGISTER_RAW_SIZE): Rename REGISTER_RAW_SIZE. * gdbarch.h, gdbarch.c: Re-generate. * aix-thread.c, alpha-tdep.h, arm-tdep.c, core-sol2.c: Update. * cris-tdep.c, dve3900-rom.c, findvar.c, frame.c: Update. * hppa-tdep.c, hppab-nat.c, hppah-nat.c, hppam3-nat.c: Update. * hpux-thread.c, i386gnu-nat.c, ia64-aix-nat.c: Update. * ia64-linux-nat.c, ia64-tdep.c, infcmd.c, infptrace.c: Update. * infrun.c, irix5-nat.c, lynx-nat.c, mips-linux-tdep.c: Update. * mips-nat.c, mips-tdep.c, mipsv4-nat.c, mn10300-tdep.c: Update. * monitor.c, ns32k-tdep.c, ppc-linux-nat.c, regcache.c: Update. * remote-e7000.c, remote-mips.c, remote-sim.c: Update. * remote-vxmips.c, remote-vxsparc.c, remote.c: Update. * rom68k-rom.c, rs6000-nat.c, rs6000-tdep.c, s390-tdep.c: Update. * sh64-tdep.c, sparc-nat.c, sparc-tdep.c, stack.c: Update. * target.c, tracepoint.c, v850-tdep.c, v850ice.c, valops.c: Update. * vax-tdep.c, vax-tdep.h, x86-64-tdep.c, xstormy16-tdep.c: Update. * config/m68k/tm-delta68.h, config/m68k/tm-vx68.h: Update. * config/sparc/tm-sparc.h, config/sparc/tm-sparclynx.h: Update. 2003-10-02 Andrew Cagney <cagney@redhat.com> * gdbint.texinfo (Target Architecture Definition): Rename REGISTER_RAW_SIZE to DEPRECATED_REGISTER_RAW_SIZE. * gdb.texinfo (Packets, Stop Reply Packets): Ditto. * gdbint.texinfo (Target Architecture Definition): Rename 2003-10-02 Andrew Cagney <cagney@redhat.com> * mi-main.c: Rename REGISTER_RAW_SIZE to DEPRECATED_REGISTER_RAW_SIZE.
2003-10-02 20:28:31 +00:00
store_unsigned_integer (val, DEPRECATED_REGISTER_RAW_SIZE (regno), regval);
1999-06-08 02:18:01 +00:00
supply_register (regno, val);
}
/* Store register REGNO, or all registers if REGNO == -1, from the contents
of REGISTERS. */
static void
2000-07-30 01:48:28 +00:00
v850ice_store_registers (int regno)
1999-06-08 02:18:01 +00:00
{
long retval;
char cmd[100];
unsigned long regval;
char buf[256];
struct MessageIO iob;
iob.size = 0;
iob.buf = buf;
if (regno == -1)
{
for (regno = 0; regno < NUM_REGS; regno++)
v850ice_store_registers (regno);
return;
}
regval = extract_unsigned_integer (&deprecated_registers[DEPRECATED_REGISTER_BYTE (regno)],
2003-10-02 Andrew Cagney <cagney@redhat.com> * gdbarch.sh (DEPRECATED_REGISTER_RAW_SIZE): Rename REGISTER_RAW_SIZE. * gdbarch.h, gdbarch.c: Re-generate. * aix-thread.c, alpha-tdep.h, arm-tdep.c, core-sol2.c: Update. * cris-tdep.c, dve3900-rom.c, findvar.c, frame.c: Update. * hppa-tdep.c, hppab-nat.c, hppah-nat.c, hppam3-nat.c: Update. * hpux-thread.c, i386gnu-nat.c, ia64-aix-nat.c: Update. * ia64-linux-nat.c, ia64-tdep.c, infcmd.c, infptrace.c: Update. * infrun.c, irix5-nat.c, lynx-nat.c, mips-linux-tdep.c: Update. * mips-nat.c, mips-tdep.c, mipsv4-nat.c, mn10300-tdep.c: Update. * monitor.c, ns32k-tdep.c, ppc-linux-nat.c, regcache.c: Update. * remote-e7000.c, remote-mips.c, remote-sim.c: Update. * remote-vxmips.c, remote-vxsparc.c, remote.c: Update. * rom68k-rom.c, rs6000-nat.c, rs6000-tdep.c, s390-tdep.c: Update. * sh64-tdep.c, sparc-nat.c, sparc-tdep.c, stack.c: Update. * target.c, tracepoint.c, v850-tdep.c, v850ice.c, valops.c: Update. * vax-tdep.c, vax-tdep.h, x86-64-tdep.c, xstormy16-tdep.c: Update. * config/m68k/tm-delta68.h, config/m68k/tm-vx68.h: Update. * config/sparc/tm-sparc.h, config/sparc/tm-sparclynx.h: Update. 2003-10-02 Andrew Cagney <cagney@redhat.com> * gdbint.texinfo (Target Architecture Definition): Rename REGISTER_RAW_SIZE to DEPRECATED_REGISTER_RAW_SIZE. * gdb.texinfo (Packets, Stop Reply Packets): Ditto. * gdbint.texinfo (Target Architecture Definition): Rename 2003-10-02 Andrew Cagney <cagney@redhat.com> * mi-main.c: Rename REGISTER_RAW_SIZE to DEPRECATED_REGISTER_RAW_SIZE.
2003-10-02 20:28:31 +00:00
DEPRECATED_REGISTER_RAW_SIZE (regno));
1999-06-08 02:18:01 +00:00
strcpy (cmd, "reg ");
if (!convert_register (regno, &cmd[4]))
return;
sprintf (cmd + strlen (cmd), "=0x%x", regval);
retval = ExeAppReq ("GDB", GWRITEREG, cmd, &iob);
if (retval)
error ("2: ExeAppReq returned %d: cmd = %s", retval, cmd);
}
/* Prepare to store registers. Nothing to do here, since the ICE can write one
register at a time. */
1999-07-07 20:19:36 +00:00
static void
2000-07-30 01:48:28 +00:00
v850ice_prepare_to_store (void)
1999-06-08 02:18:01 +00:00
{
}
/* Read or write LEN bytes from inferior memory at MEMADDR, transferring
to or from debugger address MYADDR. Write to inferior if SHOULD_WRITE is
2000-11-06 04:53:14 +00:00
nonzero. TARGET is unused. Returns length of data written or read;
0 for error.
1999-06-08 02:18:01 +00:00
We can only read/write MAX_BLOCK_SIZE bytes at a time, though, or the DLL
2000-11-06 04:53:14 +00:00
dies. */
1999-06-08 02:18:01 +00:00
static int
2000-11-06 04:53:14 +00:00
v850ice_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len,
int should_write, struct target_ops *target)
1999-06-08 02:18:01 +00:00
{
long retval;
char cmd[100];
struct MessageIO iob;
int sent;
if (should_write)
{
if (len == 4 || len == 2 || len == 1)
1999-07-07 20:19:36 +00:00
{
long value = 0;
char buf[256];
char c;
iob.size = 0;
iob.buf = buf;
sent = 0;
switch (len)
{
case 4:
c = 'w';
value |= (long) ((myaddr[3] << 24) & 0xff000000);
value |= (long) ((myaddr[2] << 16) & 0x00ff0000);
value |= (long) ((myaddr[1] << 8) & 0x0000ff00);
value |= (long) (myaddr[0] & 0x000000ff);
break;
case 2:
c = 'h';
value |= (long) ((myaddr[1] << 8) & 0xff00);
value |= (long) (myaddr[0] & 0x00ff);
1999-06-08 02:18:01 +00:00
break;
1999-07-07 20:19:36 +00:00
case 1:
c = 'b';
value |= (long) (myaddr[0] & 0xff);
break;
}
sprintf (cmd, "memory %c c 0x%x=0x%x", c, (int) memaddr, value);
retval = ExeAppReq ("GDB", GWRITEMEM, cmd, &iob);
if (retval == 0)
sent = len;
}
else
{
sent = 0;
do
{
iob.size = len > MAX_BLOCK_SIZE ? MAX_BLOCK_SIZE : len;
iob.buf = myaddr;
sprintf (cmd, "memory b c 0x%x=0x00 l=%d", (int) memaddr, iob.size);
retval = ExeAppReq ("GDB", GWRITEBLOCK, cmd, &iob);
if (retval != 0)
break;
len -= iob.size;
memaddr += iob.size;
myaddr += iob.size;
sent += iob.size;
}
while (len > 0);
}
1999-06-08 02:18:01 +00:00
}
else
{
unsigned char *tmp;
unsigned char *t;
int i;
1999-07-07 20:19:36 +00:00
1999-06-08 02:18:01 +00:00
tmp = alloca (len + 100);
t = tmp;
memset (tmp + len, 0xff, 100);
sent = 0;
do
1999-07-07 20:19:36 +00:00
{
iob.size = len > MAX_BLOCK_SIZE ? MAX_BLOCK_SIZE : len;
iob.buf = tmp;
sprintf (cmd, "memory b 0x%x l=%d", (int) memaddr, iob.size);
retval = ExeAppReq ("GDB", GREADBLOCK, cmd, &iob);
if (retval != 0)
break;
len -= iob.size;
memaddr += iob.size;
sent += iob.size;
tmp += iob.size;
}
1999-06-08 02:18:01 +00:00
while (len > 0);
if (retval == 0)
1999-07-07 20:19:36 +00:00
{
for (i = 0; i < 100; i++)
{
if (t[sent + i] != 0xff)
{
warning ("GREADBLOCK trashed bytes after transfer area.");
break;
}
}
memcpy (myaddr, t, sent);
}
1999-06-08 02:18:01 +00:00
}
1999-07-07 20:19:36 +00:00
1999-06-08 02:18:01 +00:00
if (retval != 0)
error ("3: ExeAppReq returned %d: cmd = %s", retval, cmd);
1999-07-07 20:19:36 +00:00
1999-06-08 02:18:01 +00:00
return sent;
}
static void
2000-07-30 01:48:28 +00:00
v850ice_files_info (struct target_ops *ignore)
1999-06-08 02:18:01 +00:00
{
puts_filtered ("Debugging a target via the NEC V850 ICE.\n");
}
static int
2000-07-30 01:48:28 +00:00
v850ice_insert_breakpoint (CORE_ADDR addr, char *contents_cache)
1999-06-08 02:18:01 +00:00
{
long retval;
char cmd[100];
char buf[256];
struct MessageIO iob;
iob.size = 0;
1999-07-07 20:19:36 +00:00
iob.buf = buf;
1999-06-08 02:18:01 +00:00
sprintf (cmd, "%d, ", addr);
retval = ExeAppReq ("GDB", GSETBREAK, cmd, &iob);
if (retval)
error ("ExeAppReq (GSETBREAK) returned %d: cmd = %s", retval, cmd);
return 0;
}
static int
2000-07-30 01:48:28 +00:00
v850ice_remove_breakpoint (CORE_ADDR addr, char *contents_cache)
1999-06-08 02:18:01 +00:00
{
long retval;
char cmd[100];
char buf[256];
struct MessageIO iob;
iob.size = 0;
1999-07-07 20:19:36 +00:00
iob.buf = buf;
1999-06-08 02:18:01 +00:00
sprintf (cmd, "%d, ", addr);
retval = ExeAppReq ("GDB", GREMOVEBREAK, cmd, &iob);
if (retval)
error ("ExeAppReq (GREMOVEBREAK) returned %d: cmd = %s", retval, cmd);
return 0;
}
static void
2000-07-30 01:48:28 +00:00
v850ice_kill (void)
1999-06-08 02:18:01 +00:00
{
target_mourn_inferior ();
2001-05-04 04:15:33 +00:00
inferior_ptid = null_ptid;
1999-06-08 02:18:01 +00:00
}
static void
2000-07-30 01:48:28 +00:00
v850ice_mourn (void)
1999-06-08 02:18:01 +00:00
{
}
static void
2000-07-30 01:48:28 +00:00
v850ice_load (char *filename, int from_tty)
1999-06-08 02:18:01 +00:00
{
struct MessageIO iob;
char buf[256];
iob.size = 0;
1999-07-07 20:19:36 +00:00
iob.buf = buf;
generic_load (filename, from_tty);
1999-06-08 02:18:01 +00:00
ExeAppReq ("GDB", GDOWNLOAD, filename, &iob);
}
static int
2000-07-30 01:48:28 +00:00
ice_file (char *arg)
1999-06-08 02:18:01 +00:00
{
char *s;
1999-07-07 20:19:36 +00:00
1999-06-08 02:18:01 +00:00
target_detach (NULL, 0);
pop_target ();
printf_unfiltered ("\n");
s = arg;
while (*s != '\0')
{
if (*s == '\\')
1999-07-07 20:19:36 +00:00
*s = '/';
1999-06-08 02:18:01 +00:00
s++;
}
/* Safegaurd against confusing the breakpoint routines... */
1999-07-07 20:19:36 +00:00
delete_command (NULL, 0);
1999-06-08 02:18:01 +00:00
/* Must supress from_tty, otherwise we could start asking if the
user really wants to load a new symbol table, etc... */
printf_unfiltered ("Reading symbols from %s...", arg);
2001-01-26 Fernando Nasser <fnasser@redhat.com> Fix double parsing of filenames passed as command line arguments to GDB (causes weird handling of escape characters). Also, remove dependencies on the CLI from libgdb. * call-cmds.h: Remove declaration of exec_file_command(). * gdbcore.h: Remove declaration of exec_file_command(). Add declarations for exec_open() and exec_file_clear(). * symfile.h: Add declarations for symbol_file_add_main() and symbol_file_clear(). * exec.c (exec_open): New function. Implements to_open for exec targets. (exec_file_clear): New function. Makes GDB forget about a previously specified executable file. (exec_file_attach): Move parsing of arguments from here ... (exec_file_command): ... to here. (init_exec_ops): Use exec_open(), not exec_file_command() to implement to_open for exec targets. * symfile.c (symbol_file_add_main): New function. Call symbol_file_add() with default values. Used when the file name has already been parsed. (symbol_file_clear): New function. Makes GDB forget about previously read symbols. (symbol_file_command): Call the above function instead of inline code. * main.c: Include "symfile.h" and "gdbcore.h" instead of the deprecated "call-cmds.h". (captured_main): Call exec_file_attach() and symbol_file_add_main() instead of exec_file_command() and symbol_file_command(). (captured_main): Add comment. * corefile.c: Include "symfile.h". (core_file_command): Call symbol_file_add_main() instead of symbol_file_command(). (reopen_exec_file): Call exec_open() instead of exec_file_command(). * infcmd.c: Include "symfile.h". (attach_command): Call symbol_file_add_main() instead of symbol_file_command(). * infrun.c: Remove comment about the inclusion of "symfile.h", not any longer appropriate. (follow_exec): Call symbol_file_add_main() instead of symbol_file_command(). * remote-es.c: Include "symfile.h". (es1800_load): Call symbol_file_add_main() instead of symbol_file_command(). * remote-vx.c: Remove comment about the inclusion of "symfile.h", not any longer appropriate. (vx-wait): Call symbol_file_add_main() instead of symbol_file_command(). * solib-svr4.c (open_symbol_file_object): Call symbol_file_add_main() instead of symbol_file_command(). * v850ice.c (ice_file): Call exec_open(), exec_file_attach() and symbol_file_add_main() instead of exec_file_command() and symbol_file_command(). * Makefile.in: Update dependencies.
2001-01-27 00:43:26 +00:00
exec_open (arg, 0);
symbol_file_add_main (arg, 0);
1999-06-08 02:18:01 +00:00
printf_unfiltered ("done\n");
2001-01-26 Fernando Nasser <fnasser@redhat.com> Fix double parsing of filenames passed as command line arguments to GDB (causes weird handling of escape characters). Also, remove dependencies on the CLI from libgdb. * call-cmds.h: Remove declaration of exec_file_command(). * gdbcore.h: Remove declaration of exec_file_command(). Add declarations for exec_open() and exec_file_clear(). * symfile.h: Add declarations for symbol_file_add_main() and symbol_file_clear(). * exec.c (exec_open): New function. Implements to_open for exec targets. (exec_file_clear): New function. Makes GDB forget about a previously specified executable file. (exec_file_attach): Move parsing of arguments from here ... (exec_file_command): ... to here. (init_exec_ops): Use exec_open(), not exec_file_command() to implement to_open for exec targets. * symfile.c (symbol_file_add_main): New function. Call symbol_file_add() with default values. Used when the file name has already been parsed. (symbol_file_clear): New function. Makes GDB forget about previously read symbols. (symbol_file_command): Call the above function instead of inline code. * main.c: Include "symfile.h" and "gdbcore.h" instead of the deprecated "call-cmds.h". (captured_main): Call exec_file_attach() and symbol_file_add_main() instead of exec_file_command() and symbol_file_command(). (captured_main): Add comment. * corefile.c: Include "symfile.h". (core_file_command): Call symbol_file_add_main() instead of symbol_file_command(). (reopen_exec_file): Call exec_open() instead of exec_file_command(). * infcmd.c: Include "symfile.h". (attach_command): Call symbol_file_add_main() instead of symbol_file_command(). * infrun.c: Remove comment about the inclusion of "symfile.h", not any longer appropriate. (follow_exec): Call symbol_file_add_main() instead of symbol_file_command(). * remote-es.c: Include "symfile.h". (es1800_load): Call symbol_file_add_main() instead of symbol_file_command(). * remote-vx.c: Remove comment about the inclusion of "symfile.h", not any longer appropriate. (vx-wait): Call symbol_file_add_main() instead of symbol_file_command(). * solib-svr4.c (open_symbol_file_object): Call symbol_file_add_main() instead of symbol_file_command(). * v850ice.c (ice_file): Call exec_open(), exec_file_attach() and symbol_file_add_main() instead of exec_file_command() and symbol_file_command(). * Makefile.in: Update dependencies.
2001-01-27 00:43:26 +00:00
/* exec_open will kill our target, so reinstall the ICE as
1999-06-08 02:18:01 +00:00
the target. */
v850ice_open (NULL, 0);
togdb_force_update ();
return 1;
}
static int
2000-07-30 01:48:28 +00:00
ice_cont (char *c)
1999-06-08 02:18:01 +00:00
{
printf_filtered ("continue (ice)\n");
ReplyMessage ((LRESULT) 1);
if (gdbtk_interp == NULL)
{
1999-06-08 02:18:01 +00:00
continue_command (NULL, 1);
}
else
Tcl_Eval (gdbtk_interp, "gdb_immediate continue");
1999-06-08 02:18:01 +00:00
return 1;
}
static void
2000-11-06 04:53:14 +00:00
do_gdb (char *cmd, char *str, void (*func) (char *, int), int count)
1999-06-08 02:18:01 +00:00
{
ReplyMessage ((LRESULT) 1);
while (count--)
{
printf_unfiltered (str);
if (gdbtk_interp == NULL)
{
1999-06-08 02:18:01 +00:00
func (NULL, 0);
}
else
Tcl_Eval (gdbtk_interp, cmd);
1999-06-08 02:18:01 +00:00
}
}
static int
2000-07-30 01:48:28 +00:00
ice_stepi (char *c)
1999-06-08 02:18:01 +00:00
{
int count = (int) c;
do_gdb ("gdb_immediate stepi", "stepi (ice)\n", stepi_command, count);
return 1;
}
static int
2000-07-30 01:48:28 +00:00
ice_nexti (char *c)
1999-06-08 02:18:01 +00:00
{
int count = (int) c;
do_gdb ("gdb_immediate nexti", "nexti (ice)\n", nexti_command, count);
return 1;
}
static void
2000-07-30 01:48:28 +00:00
v850ice_command (char *arg, int from_tty)
1999-06-08 02:18:01 +00:00
{
struct MessageIO iob;
char buf[256];
iob.buf = buf;
iob.size = 0;
ExeAppReq ("GDB", GCOMMAND, arg, &iob);
}
static void
togdb_force_update (void)
{
if (gdbtk_interp != NULL)
Tcl_Eval (gdbtk_interp, "gdbtk_update");
1999-06-08 02:18:01 +00:00
}
static void
2000-07-30 01:48:28 +00:00
view_source (CORE_ADDR addr)
{
char c[256];
if (gdbtk_interp != NULL)
{
sprintf (c, "catch {set src [lindex [ManagedWin::find SrcWin] 0]\n$src location BROWSE [gdb_loc *0x%x]}", addr);
Tcl_Eval (gdbtk_interp, c);
}
}
1999-06-08 02:18:01 +00:00
/* Define the target subroutine names */
1999-07-07 20:19:36 +00:00
static void
init_850ice_ops (void)
1999-06-08 02:18:01 +00:00
{
1999-07-07 20:19:36 +00:00
v850ice_ops.to_shortname = "ice";
v850ice_ops.to_longname = "NEC V850 ICE interface";
v850ice_ops.to_doc = "Debug a system controlled by a NEC 850 ICE.";
v850ice_ops.to_open = v850ice_open;
v850ice_ops.to_close = v850ice_close;
v850ice_ops.to_detach = v850ice_detach;
v850ice_ops.to_resume = v850ice_resume;
v850ice_ops.to_wait = v850ice_wait;
v850ice_ops.to_fetch_registers = v850ice_fetch_registers;
v850ice_ops.to_store_registers = v850ice_store_registers;
v850ice_ops.to_prepare_to_store = v850ice_prepare_to_store;
v850ice_ops.to_xfer_memory = v850ice_xfer_memory;
v850ice_ops.to_files_info = v850ice_files_info;
v850ice_ops.to_insert_breakpoint = v850ice_insert_breakpoint;
v850ice_ops.to_remove_breakpoint = v850ice_remove_breakpoint;
v850ice_ops.to_kill = v850ice_kill;
v850ice_ops.to_load = v850ice_load;
v850ice_ops.to_mourn_inferior = v850ice_mourn;
v850ice_ops.to_stop = v850ice_stop;
v850ice_ops.to_stratum = process_stratum;
v850ice_ops.to_has_all_memory = 1;
v850ice_ops.to_has_memory = 1;
v850ice_ops.to_has_stack = 1;
v850ice_ops.to_has_registers = 1;
v850ice_ops.to_has_execution = 1;
v850ice_ops.to_magic = OPS_MAGIC;
1999-06-08 02:18:01 +00:00
}
void
2000-07-30 01:48:28 +00:00
_initialize_v850ice (void)
1999-06-08 02:18:01 +00:00
{
init_850ice_ops ();
add_target (&v850ice_ops);
add_com ("ice", class_obscure, v850ice_command,
1999-07-07 20:19:36 +00:00
"Send command to ICE");
1999-06-08 02:18:01 +00:00
}