* gdbtk-hooks.c (gdbtk_exec_file_changed): New function which handles

        exec_file changes.
        (gdbtk_add_hooks): Define exec_file_display_hook (to gdbtk_exec_file_changed)

        * gdbtk-cmds.c (gdb_stop): target_stop is ALWAYS defined, so
        compare against something a little more meaningful (target_ignore).

3 files changed, 27 insertions, 9 deletions

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index f629f37acc..022911d733 100644
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,12 @@
+1998-10-02  Keith Seitz  <keiths@cygnus.com>
+
+	* gdbtk-hooks.c (gdbtk_exec_file_changed): New function which handles
+	exec_file changes.
+	(gdbtk_add_hooks): Define exec_file_display_hook (to gdbtk_exec_file_changed)
+
+	* gdbtk-cmds.c (gdb_stop): target_stop is ALWAYS defined, so
+	compare against something a little more meaningful (target_ignore).
+
 1998-09-24  Keith Seitz  <keiths@cygnus.com>
 
 	* gdbtk.c (gdbtk_wait): Don't run the timer for ice targets.
diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c
index 9a22d3e4a1..35890be0b1 100644
--- a/gdb/gdbtk-cmds.c
+++ b/gdb/gdbtk-cmds.c
@@ -565,10 +565,8 @@ gdb_stop (clientData, interp, objc, objv)
      int objc;
      Tcl_Obj *CONST objv[];
 {
-  if (target_stop)
-    {
+  if (target_stop != target_ignore)
       target_stop ();
-    }
   else
     quit_flag = 1; /* hope something sees this */
 
diff --git a/gdb/gdbtk-hooks.c b/gdb/gdbtk-hooks.c
index ff2e7f51d9..3908ddec5c 100644
--- a/gdb/gdbtk-hooks.c
+++ b/gdb/gdbtk-hooks.c
@@ -77,7 +77,6 @@ extern int  (*ui_load_progress_hook) PARAMS ((char *, unsigned long));
 extern void (*pre_add_symbol_hook) PARAMS ((char *));
 extern void (*post_add_symbol_hook) PARAMS ((void));
 extern void (*selected_frame_level_changed_hook) PARAMS ((int));
-
 #ifdef __CYGWIN32__
 extern void (*ui_loop_hook) PARAMS ((int));
 #endif
@@ -88,6 +87,7 @@ static void   gdbtk_modify_tracepoint PARAMS ((struct tracepoint *));
 static void   gdbtk_create_breakpoint PARAMS ((struct breakpoint *));
 static void   gdbtk_delete_breakpoint PARAMS ((struct breakpoint *));
 static void   gdbtk_modify_breakpoint PARAMS ((struct breakpoint *));
+static void   gdbtk_exec_file_changed PARAMS ((char *));
 static void   tk_command_loop PARAMS ((void));
 static void   gdbtk_call_command PARAMS ((struct cmd_list_element *, char *, int));
 static int    gdbtk_wait PARAMS ((int, struct target_waitstatus *));
@@ -144,18 +144,21 @@ gdbtk_add_hooks(void)
   delete_breakpoint_hook = gdbtk_delete_breakpoint;
   modify_breakpoint_hook = gdbtk_modify_breakpoint;
 
-  interactive_hook = gdbtk_interactive;
-  target_wait_hook = gdbtk_wait;
-  ui_load_progress_hook = gdbtk_load_hash;
+  interactive_hook       = gdbtk_interactive;
+  target_wait_hook       = gdbtk_wait;
+  ui_load_progress_hook  = gdbtk_load_hash;
+
 #ifdef __CYGWIN32__
   ui_loop_hook = x_event;
 #endif
-  pre_add_symbol_hook   = gdbtk_pre_add_symbol;
-  post_add_symbol_hook  = gdbtk_post_add_symbol;
+  pre_add_symbol_hook    = gdbtk_pre_add_symbol;
+  post_add_symbol_hook   = gdbtk_post_add_symbol;
+  exec_file_display_hook = gdbtk_exec_file_changed;
 
   create_tracepoint_hook = gdbtk_create_tracepoint;
   delete_tracepoint_hook = gdbtk_delete_tracepoint;
   modify_tracepoint_hook = gdbtk_modify_tracepoint;
+
   pc_changed_hook = pc_changed;
   selected_frame_level_changed_hook = gdbtk_selected_frame_changed;
   context_hook = gdbtk_context_change;
@@ -702,3 +705,11 @@ gdbtk_context_change (num)
 {
   gdb_context = num;
 }
+
+/* Called from exec_file_command */
+static void
+gdbtk_exec_file_changed (filename)
+     char *filename;
+{
+  gdbtk_two_elem_cmd ("gdbtk_tcl_exec_file_changed", filename);
+}