From 2fe6040fa68433d663118df372d5ee1aff6d83ab Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Wed, 6 Nov 2002 14:22:28 +0000 Subject: [PATCH] * 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...] --- gdb/gdbtk/ChangeLog | 7 +++++++ gdb/gdbtk/generic/gdbtk-hooks.c | 5 +++++ 2 files changed, 12 insertions(+) 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 + + * 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 * 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 -- 2.11.0