extern HINSTANCE Tk_GetHINSTANCE PARAMS ((void));
+extern void (*ui_loop_hook) PARAMS ((int));
+
/* Prototypes for local functions */
static int init_hidden_window PARAMS ((void));
static void v850ice_close PARAMS ((int quitting));
+static void v850ice_stop PARAMS ((void));
+
static void v850ice_store_registers PARAMS ((int regno));
static void v850ice_mourn PARAMS ((void));
static void togdb_force_update PARAMS ((void));
+static void view_source PARAMS ((CORE_ADDR));
+
/* Globals */
static HWND hidden_hwnd; /* HWND for messages */
#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 */
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)
{
}
}
+/* Stop the process on the ice. */
+static void
+v850ice_stop ()
+{
+ /* This is silly, but it works... */
+ v850ice_command ("stop", 0);
+}
+
static void
v850ice_detach (args, from_tty)
char *args;
char buf[256];
struct MessageIO iob;
int done = 0;
+ int count = 0;
+
iob.size = 0;
iob.buf = buf;
do
{
+ if (count++ % 100000)
+ {
+ ui_loop_hook (-2);
+ count = 0;
+ }
+
v850_status = ExeAppReq ("GDB", GCHECKSTATUS, NULL, &iob);
switch (v850_status)
iob.size = 0;
iob.buf = buf;
generic_load(filename, from_tty);
- ExeAppReq ("GDB", GDOWNLOAD, NULL, &iob);
+ ExeAppReq ("GDB", GDOWNLOAD, filename, &iob);
}
static int
ice_cont (c)
char *c;
{
- printf_unfiltered ("continue (ice)\n");
- continue_command (NULL, 1);
- togdb_force_update ();
+ printf_filtered ("continue (ice)");
+ ReplyMessage ((LRESULT) 1);
+ Tcl_Eval (gdbtk_interp, "gdb_immediate continue");
return 1;
}
ice_stepi (c)
char *c;
{
- char count_string[10] = "\0";
+ char string[50] = "\0";
int count = (int) c;
- sprintf (count_string, "%d", count);
-
+ sprintf (string, "gdb_immediate stepi %d", count);
printf_unfiltered ("stepi (ice)\n");
- stepi_command (count_string, 1);
ReplyMessage ((LRESULT) 1);
- togdb_force_update ();
+ Tcl_Eval (gdbtk_interp, string);
return 1;
}
ice_nexti (c)
char *c;
{
- char count_string[10] = "\0";
+ char string[50] = "\0";
int count = (int) c;
- sprintf (count_string, "%d", count);
-
+ sprintf (string, "gdb_immediate nexti %d", count);
printf_unfiltered ("nexti (ice)\n");
- nexti_command (count_string, 1);
- togdb_force_update ();
+ ReplyMessage ((LRESULT) 1);
+ Tcl_Eval (gdbtk_interp, string);
return 1;
}
Tcl_Eval (gdbtk_interp, "gdbtk_update");
}
+static void
+view_source (addr)
+ CORE_ADDR addr;
+{
+ char c[256];
+
+ sprintf (c, "set src [lindex [manage find src] 0]\n$src location [gdb_loc *0x%x]", addr);
+ Tcl_Eval (gdbtk_interp, c);
+}
+
/* Define the target subroutine names */
static void init_850ice_ops(void)
v850ice_ops.to_can_run = 0;
v850ice_ops.to_notice_signals = 0;
v850ice_ops.to_thread_alive = NULL;
- v850ice_ops.to_stop = 0;
+ v850ice_ops.to_stop = v850ice_stop;
v850ice_ops.to_stratum = process_stratum;
v850ice_ops.DONT_USE = NULL;
v850ice_ops.to_has_all_memory = 1;