aboutsummaryrefslogtreecommitdiff
path: root/gdb/v850ice.c
diff options
context:
space:
mode:
authorAndrew Cagney <cagney@redhat.com>2004-11-14 00:10:55 +0000
committerAndrew Cagney <cagney@redhat.com>2004-11-14 00:10:55 +0000
commit9445aa303f19ea3f4bfad8843eca987c8f3eaf03 (patch)
treef59c0349f6b328663b1e3afb50dad3dc6afd9ca9 /gdb/v850ice.c
parente3ab7234772b0f36b259f8efb0a78e1d750a95bc (diff)
downloadgdb-9445aa303f19ea3f4bfad8843eca987c8f3eaf03.zip
gdb-9445aa303f19ea3f4bfad8843eca987c8f3eaf03.tar.gz
gdb-9445aa303f19ea3f4bfad8843eca987c8f3eaf03.tar.bz2
2004-11-13 Andrew Cagney <cagney@gnu.org>
* NEWS: List h8300*-*-*, mcore-*-*, mn10300-*-*, ns32k-*-*, and v850-*-* under removed. * configure.host: Delete ns32k-*-netbsd*. * configure.tgt: Delete h8300-*-*, mcore*-*-*, mn10300-*-*, ns32k-*-netbsd*, and v850*-*-*. * MAINTAINERS: Mark h8300, mcore, mn10300, ns32k, v850 as "Deleted" * config/h8300/tm-h8300.h, config/h8300/h8300.mt: Delete. * h8300-tdep.c, config/mcore/mcore.mt, mcore-rom.c: Delete. * mcore-tdep.c, config/mn10300/mn10300.mt: Delete. * mn10300-tdep.c, config/ns32k/nbsdaout.mh: Delete. * config/ns32k/nbsdaout.mt, config/ns32k/nm-nbsd.h: Delete. * config/ns32k/nm-nbsdaout.h, config/ns32k/tm-ns32k.h: Delete. * ns32knbsd-nat.c, ns32knbsd-tdep.c, ns32k-tdep.c: Delete. * ns32k-tdep.h, config/v850/v850.mt, v850ice.c: Delete. * v850-tdep.c: Delete.
Diffstat (limited to 'gdb/v850ice.c')
-rw-r--r--gdb/v850ice.c927
1 files changed, 0 insertions, 927 deletions
diff --git a/gdb/v850ice.c b/gdb/v850ice.c
deleted file mode 100644
index 93746ff..0000000
--- a/gdb/v850ice.c
+++ /dev/null
@@ -1,927 +0,0 @@
-/* ICE interface for the NEC V850 for GDB, the GNU debugger.
- Copyright 1996, 1997, 1998, 1999, 2000, 2001
- Free Software Foundation, Inc.
-
- This file is part of GDB.
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330,
- Boston, MA 02111-1307, USA. */
-
-#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"
-
-#include <tcl.h>
-#include <windows.h>
-#include <winuser.h> /* for WM_USER */
-
-extern unsigned long int strtoul (const char *nptr, char **endptr,
- int base);
-
-/* Local data definitions */
-struct MessageIO
- {
- int size; /* length of input or output in bytes */
- char *buf; /* buffer having the input/output information */
- };
-
-/* Prototypes for functions located in other files */
-extern void break_command (char *, int);
-
-/* Prototypes for local functions */
-static int init_hidden_window (void);
-
-static LRESULT CALLBACK v850ice_wndproc (HWND, UINT, WPARAM, LPARAM);
-
-static void v850ice_files_info (struct target_ops *ignore);
-
-static int v850ice_xfer_memory (CORE_ADDR memaddr, char *myaddr,
- int len, int should_write,
- struct target_ops *target);
-
-static void v850ice_prepare_to_store (void);
-
-static void v850ice_fetch_registers (int regno);
-
-static void v850ice_resume (ptid_t ptid, int step,
- enum target_signal siggnal);
-
-static void v850ice_open (char *name, int from_tty);
-
-static void v850ice_close (int quitting);
-
-static void v850ice_stop (void);
-
-static void v850ice_store_registers (int regno);
-
-static void v850ice_mourn (void);
-
-static ptid_t v850ice_wait (ptid_t ptid,
- struct target_waitstatus *status);
-
-static void v850ice_kill (void);
-
-static void v850ice_detach (char *args, int from_tty);
-
-static int v850ice_insert_breakpoint (CORE_ADDR, char *);
-
-static int v850ice_remove_breakpoint (CORE_ADDR, char *);
-
-static void v850ice_command (char *, int);
-
-static int ice_disassemble (unsigned long, int, char *);
-
-static int ice_lookup_addr (unsigned long *, char *, char *);
-
-static int ice_lookup_symbol (unsigned long, char *);
-
-static void ice_SimulateDisassemble (char *, int);
-
-static void ice_SimulateAddrLookup (char *, int);
-
-static void ice_Simulate_SymLookup (char *, int);
-
-static void ice_fputs (const char *, struct ui_file *);
-
-static int ice_file (char *);
-
-static int ice_cont (char *);
-
-static int ice_stepi (char *);
-
-static int ice_nexti (char *);
-
-static void togdb_force_update (void);
-
-static void view_source (CORE_ADDR);
-
-static void do_gdb (char *, char *, void (*func) (char *, int), int);
-
-
-/* Globals */
-static HWND hidden_hwnd; /* HWND for messages */
-
-long (__stdcall * ExeAppReq) (char *, long, char *, struct MessageIO *);
-
-long (__stdcall * RegisterClient) (HWND);
-
-long (__stdcall * UnregisterClient) (void);
-
-extern Tcl_Interp *gdbtk_interp;
-
-/* Globals local to this file only */
-static int ice_open = 0; /* Is ICE open? */
-
-static char *v850_CB_Result; /* special char array for saving 'callback' results */
-
-static int SimulateCallback; /* simulate a callback event */
-
-#define MAX_BLOCK_SIZE 64*1024 /* Cannot transfer memory in blocks bigger
- than this */
-/* MDI/ICE Message IDs */
-#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 */
-
-/* GCHECKSTATUS return codes: */
-#define ICE_Idle 0x00
-#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 */
-#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 */
-#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 */
-
-static struct target_ops v850ice_ops; /* Forward decl */
-
-/* This function creates a hidden window */
-static int
-init_hidden_window (void)
-{
- 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;
-
- if (!RegisterClass (&class))
- return 0;
-
- hidden_hwnd = CreateWindow ("gdb_v850ice", "gdb_v850ice", WS_TILED,
- 0, 0, 0, 0, NULL, NULL, class.hInstance,
- NULL);
- if (hidden_hwnd == NULL)
- {
- char buf[200];
- DWORD err;
-
- err = GetLastError ();
- FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, err,
- 0, buf, 200, NULL);
- 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
- */
-static LRESULT CALLBACK
-v850ice_wndproc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
-{
- 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);
- break;
- case WM_STATE_CHANGE:
- switch (wParam)
- {
- 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, "",
- 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, "",
- RETURN_MASK_ALL))
- printf_unfiltered ("nexti errored\n");
- result = TRUE;
- break;
- }
- }
-
- if (result == FALSE)
- return DefWindowProc (hwnd, message, wParam, lParam);
-
- return FALSE;
-}
-
-/* Code for opening a connection to the ICE. */
-
-static void
-v850ice_open (char *name, int from_tty)
-{
- 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)
- error ("Cannot load necmsg.dll");
-
- ExeAppReq = (long (*) (char *, long, char *, struct MessageIO *))
- GetProcAddress (handle, "ExeAppReq");
- RegisterClient = (long (*) (HWND))
- GetProcAddress (handle, "RegisterClient");
- UnregisterClient = (long (*) (void))
- GetProcAddress (handle, "UnregisterClient");
-
- if (ExeAppReq == NULL || RegisterClient == NULL || UnregisterClient == NULL)
- error ("Could not find requisite functions in necmsg.dll.");
-
- if (!init_hidden_window ())
- error ("could not initialize message handling");
- }
-
- /* 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. */
- inferior_ptid = pid_to_ptid (42000);
-
- start_remote ();
- return;
-}
-
-/* Clean up connection to a remote debugger. */
-
-static void
-v850ice_close (int quitting)
-{
- if (ice_open)
- {
- UnregisterClient ();
- ice_open = 0;
- inferior_ptid = null_ptid;
- }
-}
-
-/* Stop the process on the ice. */
-static void
-v850ice_stop (void)
-{
- /* This is silly, but it works... */
- v850ice_command ("stop", 0);
-}
-
-static void
-v850ice_detach (char *args, int from_tty)
-{
- 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
-v850ice_resume (ptid_t ptid, int step, enum target_signal siggnal)
-{
- long retval;
- char buf[256];
- struct MessageIO iob;
-
- iob.size = 0;
- iob.buf = buf;
-
- 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). */
-
-static ptid_t
-v850ice_wait (ptid_t ptid, struct target_waitstatus *status)
-{
- long v850_status;
- char buf[256];
- struct MessageIO iob;
- int done = 0;
- int count = 0;
-
- iob.size = 0;
- iob.buf = buf;
-
- do
- {
- if (count++ % 100000)
- {
- deprecated_ui_loop_hook (0);
- count = 0;
- }
-
- v850_status = ExeAppReq ("GDB", GCHECKSTATUS, NULL, &iob);
-
- switch (v850_status)
- {
- 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;
- }
- }
- while (!done);
-
- return inferior_ptid;
-}
-
-static int
-convert_register (int regno, char *buf)
-{
- 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
-v850ice_fetch_registers (int regno)
-{
- 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++)
- v850ice_fetch_registers (regno);
- 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.",
- regno, val);
-
- store_unsigned_integer (val, register_size (current_gdbarch, regno), regval);
- regcache_raw_supply (current_regcache, regno, val);
-}
-
-/* Store register REGNO, or all registers if REGNO == -1, from the contents
- of REGISTERS. */
-
-static void
-v850ice_store_registers (int regno)
-{
- 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)],
- register_size (current_gdbarch, regno));
- 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. */
-
-static void
-v850ice_prepare_to_store (void)
-{
-}
-
-/* Read or write LEN bytes from inferior memory at MEMADDR, transferring
- to or from debugger address MYADDR. Write to inferior if SHOULD_WRITE is
- nonzero. TARGET is unused. Returns length of data written or read;
- 0 for error.
-
- We can only read/write MAX_BLOCK_SIZE bytes at a time, though, or the DLL
- dies. */
-static int
-v850ice_xfer_memory (CORE_ADDR memaddr, char *myaddr, int len,
- int should_write, struct target_ops *target)
-{
- long retval;
- char cmd[100];
- struct MessageIO iob;
- int sent;
-
- if (should_write)
- {
- if (len == 4 || len == 2 || len == 1)
- {
- 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);
- break;
- 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);
- }
- }
- else
- {
- unsigned char *tmp;
- unsigned char *t;
- int i;
-
- tmp = alloca (len + 100);
- t = tmp;
- memset (tmp + len, 0xff, 100);
-
- sent = 0;
- do
- {
- 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;
- }
- while (len > 0);
-
- if (retval == 0)
- {
- for (i = 0; i < 100; i++)
- {
- if (t[sent + i] != 0xff)
- {
- warning ("GREADBLOCK trashed bytes after transfer area.");
- break;
- }
- }
- memcpy (myaddr, t, sent);
- }
- }
-
- if (retval != 0)
- error ("3: ExeAppReq returned %d: cmd = %s", retval, cmd);
-
- return sent;
-}
-
-static void
-v850ice_files_info (struct target_ops *ignore)
-{
- puts_filtered ("Debugging a target via the NEC V850 ICE.\n");
-}
-
-static int
-v850ice_insert_breakpoint (CORE_ADDR addr, char *contents_cache)
-{
- long retval;
- char cmd[100];
- char buf[256];
- struct MessageIO iob;
-
- iob.size = 0;
- iob.buf = buf;
- 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
-v850ice_remove_breakpoint (CORE_ADDR addr, char *contents_cache)
-{
- long retval;
- char cmd[100];
- char buf[256];
- struct MessageIO iob;
-
- iob.size = 0;
- iob.buf = buf;
-
- 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
-v850ice_kill (void)
-{
- target_mourn_inferior ();
- inferior_ptid = null_ptid;
-}
-
-static void
-v850ice_mourn (void)
-{
-}
-
-static void
-v850ice_load (char *filename, int from_tty)
-{
- struct MessageIO iob;
- char buf[256];
-
- iob.size = 0;
- iob.buf = buf;
- generic_load (filename, from_tty);
- ExeAppReq ("GDB", GDOWNLOAD, filename, &iob);
-}
-
-static int
-ice_file (char *arg)
-{
- char *s;
-
- target_detach (NULL, 0);
- pop_target ();
-
- printf_unfiltered ("\n");
-
- s = arg;
- while (*s != '\0')
- {
- if (*s == '\\')
- *s = '/';
- s++;
- }
-
- /* Safegaurd against confusing the breakpoint routines... */
- delete_command (NULL, 0);
-
- /* 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);
- exec_open (arg, 0);
- symbol_file_add_main (arg, 0);
- printf_unfiltered ("done\n");
-
- /* exec_open will kill our target, so reinstall the ICE as
- the target. */
- v850ice_open (NULL, 0);
-
- togdb_force_update ();
- return 1;
-}
-
-static int
-ice_cont (char *c)
-{
- printf_filtered ("continue (ice)\n");
- ReplyMessage ((LRESULT) 1);
-
- if (gdbtk_interp == NULL)
- {
- continue_command (NULL, 1);
- }
- else
- Tcl_Eval (gdbtk_interp, "gdb_immediate continue");
-
- return 1;
-}
-
-static void
-do_gdb (char *cmd, char *str, void (*func) (char *, int), int count)
-{
- ReplyMessage ((LRESULT) 1);
-
- while (count--)
- {
- printf_unfiltered (str);
-
- if (gdbtk_interp == NULL)
- {
- func (NULL, 0);
- }
- else
- Tcl_Eval (gdbtk_interp, cmd);
- }
-}
-
-
-static int
-ice_stepi (char *c)
-{
- int count = (int) c;
-
- do_gdb ("gdb_immediate stepi", "stepi (ice)\n", stepi_command, count);
- return 1;
-}
-
-static int
-ice_nexti (char *c)
-{
- int count = (int) c;
-
- do_gdb ("gdb_immediate nexti", "nexti (ice)\n", nexti_command, count);
- return 1;
-}
-
-static void
-v850ice_command (char *arg, int from_tty)
-{
- 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");
-}
-
-static void
-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);
- }
-}
-
-/* Define the target subroutine names */
-
-static void
-init_850ice_ops (void)
-{
- 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.deprecated_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;
-}
-
-void
-_initialize_v850ice (void)
-{
- init_850ice_ops ();
- add_target (&v850ice_ops);
-
- add_com ("ice", class_obscure, v850ice_command,
- "Send command to ICE");
-}