From: kseitz <kseitz>
Date: Wed, 6 Nov 2002 14:22:27 +0000 (+0000)
Subject:         * generic/gdbtk-hooks.c (gdbtk_call_command): Make a null
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=fcccf84e85531f9ceb8f8fb51382fa0a2be3cccb;p=pf3gnuchains%2Fpf3gnuchains3x.git

    * generic/gdbtk-hooks.c (gdbtk_call_command): Make a null
        cleanup and run it after every issued gdb command. Apparently
        some commands depend on this. [This should really be part of
        main gdb...]
---

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index a988c73d92..0a20dc076b 100644
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,10 @@
+2002-11-06  Keith Seitz  <keiths@redhat.com>
+
+	* generic/gdbtk-hooks.c (gdbtk_call_command): Make a null
+	cleanup and run it after every issued gdb command. Apparently
+	some commands depend on this. [This should really be part of
+	main gdb...]
+
 2002-10-15  Martin M. Hunt  <hunt@redhat.com>
 
 	* library/tclIndex: Rebuilt.
diff --git a/gdb/gdbtk/generic/gdbtk-hooks.c b/gdb/gdbtk/generic/gdbtk-hooks.c
index 8f41b28513..d947c82bab 100644
--- a/gdb/gdbtk/generic/gdbtk-hooks.c
+++ b/gdb/gdbtk/generic/gdbtk-hooks.c
@@ -519,6 +519,9 @@ static void
 gdbtk_call_command (struct cmd_list_element *cmdblk,
 		    char *arg, int from_tty)
 {
+  struct cleanup *old_chain;
+
+  old_chain = make_cleanup (null_cleanup, 0);
   running_now = 0;
   if (cmdblk->class == class_run || cmdblk->class == class_trace)
     {
@@ -533,6 +536,8 @@ gdbtk_call_command (struct cmd_list_element *cmdblk,
     }
   else
     cmd_func (cmdblk, arg, from_tty);
+
+  do_cleanups (old_chain);
 }
 
 /* Called after a `set' command succeeds.  Runs the Tcl hook