From: Jeff Law <law@redhat.com>
Date: Mon, 13 May 1996 23:53:54 +0000 (+0000)
Subject:         * top.c (execute_control_command, case while_control): Allow
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=24ecc17a04e024af7a9a2385f255e59e28b91536;p=binutils-gdb.git

    * top.c (execute_control_command, case while_control): Allow
        a while command to be interrupted.
Fixes net bug.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 4c1880319b4..cba7fb36261 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Mon May 13 17:40:58 1996  Jeffrey A Law  (law@cygnus.com)
+
+	* top.c (execute_control_command, case while_control): Allow
+	a while command to be interrupted.
+
 Mon May 13 16:17:36 1996  Stu Grossman  (grossman@critters.cygnus.com)
 
 	* sol-thread.c:  More cleanup, add comments.
diff --git a/gdb/top.c b/gdb/top.c
index 088bcd9d16d..40a4b342bce 100644
--- a/gdb/top.c
+++ b/gdb/top.c
@@ -823,6 +823,8 @@ execute_control_command (cmd)
 	/* Keep iterating so long as the expression is true.  */
 	while (loop == 1)
 	  {
+	    QUIT;
+
 	    /* Evaluate the expression.  */
 	    val = evaluate_expression (expr);