This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[PATCH] Run gdb_idle_hooks until all gone
- To: Insight Maling List <insight at sources dot redhat dot com>
- Subject: [PATCH] Run gdb_idle_hooks until all gone
- From: Keith Seitz <keiths at cygnus dot com>
- Date: Thu, 31 May 2001 15:30:39 -0700 (PDT)
Hi,
I was a bit overzealous removing this hook: the stop button still uses it.
So we need to still run the hook(s) until this is fixed.
Keith
ChangeLog:
2001-05-31 Keith Seitz <keiths@redhat.com>
* library/interface.tcl (gdbtk_idle): Run hooks, too,
until they're all gone.
Patch:
Index: library/interface.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -p -w -r1.24 -r1.25
--- interface.tcl 2001/05/31 20:32:57 1.24
+++ interface.tcl 2001/05/31 22:11:27 1.25
@@ -194,6 +194,11 @@ proc gdbtk_idle {} {
# could replace it.
gdb_restore_fputs
+ set err [catch {run_hooks gdb_idle_hook}]
+ if {$err} {
+ dbug E "Error running gdb_idle_hook: $::errorInfo"
+ }
+
set e [IdleEvent \#auto]
GDBEventHandler::dispatch $e
delete object $e
@@ -204,6 +209,7 @@ proc gdbtk_idle {} {
dbug E "no_inferior_hook error: $txt"
}
}
+
# Force the screen to update
update
}