* gdbtk.c (call_wrapper): Clear running_now if an error occurs.

	This fixes PR 11323, where gdbtk stops responding if an error occurs.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 61bba5ad98080223f71061b7c4a85259673beedb..471c8ce822701c4a8d326c26ed801cde7eb1bef2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Mon Feb 10 13:50:53 1997  Stu Grossman  (grossman@critters.cygnus.com)
+
+       * gdbtk.c (call_wrapper):  Clear running_now if an error occurs.
+       This fixes PR 11323, where gdbtk stops responding if an error occurs.
+
 Mon Feb 10 07:54:26 1997  Fred Fish  <fnf@cygnus.com>
 
        * xcoffread.c (RECORD_MINIMAL_SYMBOL): Add NULL asection* parameter

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index bb781f0011596b3561b78d44ea8b8656f56af987..c27534d18175d49ca992b42c4fa04ce7eec07bfe 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -813,6 +813,7 @@ call_wrapper (clientData, interp, argc, argv)
         mode because gdbtk_call_command may have bombed out while in
         the command routine.  */
 
+      running_now = 0;
       Tcl_Eval (interp, "gdbtk_tcl_idle");
     }