Fix double prompt

If an error is thrown while handling a target event (within
fetch_inferior_event), and, the interpreter is not async (but the
target is), then GDB prints the prompt twice.

One way to see that in action is throw a QUIT while in a pagination
prompt issued from within fetch_inferior_event (or one of its
callees).  E.g. from the test:

 ---Type <return> to continue, or q <return> to quit---
 ^CQuit
 (gdb) (gdb) p 1
 ^^^^^^^^^^^
 $1 = 1
 (gdb)

The issue is that inferior_event_handler swallows errors and notifies
the observers (the interpreters) about the command error, even if the
interpreter is forced sync while we're handling a nested event loop
(for execute_command).  The observers print a prompt, and then when we
get back to the top event loop, we print another (in
start_event_loop).

I see no reason the error should be swallowed here.  Just cancel the
execution related bits and let the error propagate to the top level
(start_event_loop), which re-enables stdin and notifies observers.

gdb/
2014-07-14  Pedro Alves  <palves@redhat.com>

	* inf-loop.c (inferior_event_handler): Use TRY_CATCH instead of
	catch_errors.  Don't re-enable stdin or notify observers where,
	and rethrow error.
	(fetch_inferior_event_wrapper): Delete.

gdb/testsuite/
2014-07-14  Pedro Alves  <palves@redhat.com>

	* gdb.base/double-prompt-target-event-error.c: New file.
	* gdb.base/double-prompt-target-event-error.exp: New file.

5 files changed, 165 insertions, 19 deletions

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 96d5071..cc136b3 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,12 @@
 2014-07-14  Pedro Alves  <palves@redhat.com>
 
+	* inf-loop.c (inferior_event_handler): Use TRY_CATCH instead of
+	catch_errors.  Don't re-enable stdin or notify observers where,
+	and rethrow error.
+	(fetch_inferior_event_wrapper): Delete.
+
+2014-07-14  Pedro Alves  <palves@redhat.com>
+
 	PR gdb/17072
 	* top.c: Include "inf-loop.h".
 	(struct gdb_readline_wrapper_cleanup) <target_is_async_orig>: New
diff --git a/gdb/inf-loop.c b/gdb/inf-loop.c
index 247e9d6..d4f9a35 100644
--- a/gdb/inf-loop.c
+++ b/gdb/inf-loop.c
@@ -33,8 +33,6 @@
 #include "top.h"
 #include "observer.h"
 
-static int fetch_inferior_event_wrapper (gdb_client_data client_data);
-
 /* General function to handle events in the inferior.  So far it just
    takes care of detecting errors reported by select() or poll(),
    otherwise it assumes that all is OK, and goes on reading data from
@@ -48,19 +46,26 @@ inferior_event_handler (enum inferior_event_type event_type,
   switch (event_type)
     {
     case INF_REG_EVENT:
-      /* Use catch errors for now, until the inner layers of
+      /* Catch errors for now, until the inner layers of
 	 fetch_inferior_event (i.e. readchar) can return meaningful
 	 error status.  If an error occurs while getting an event from
 	 the target, just cancel the current command.  */
-      if (!catch_errors (fetch_inferior_event_wrapper, 
-			 client_data, "", RETURN_MASK_ALL))
-	{
-	  bpstat_clear_actions ();
-	  do_all_intermediate_continuations (1);
-	  do_all_continuations (1);
-	  async_enable_stdin ();
-	  observer_notify_command_error ();
-	}
+      {
+	volatile struct gdb_exception ex;
+
+	TRY_CATCH (ex, RETURN_MASK_ALL)
+	  {
+	    fetch_inferior_event (client_data);
+	  }
+	if (ex.reason < 0)
+	  {
+	    bpstat_clear_actions ();
+	    do_all_intermediate_continuations (1);
+	    do_all_continuations (1);
+
+	    throw_exception (ex);
+	  }
+      }
       break;
 
     case INF_EXEC_COMPLETE:
@@ -140,10 +145,3 @@ inferior_event_handler (enum inferior_event_type event_type,
 
   discard_cleanups (cleanup_if_error);
 }
-
-static int 
-fetch_inferior_event_wrapper (gdb_client_data client_data)
-{
-  fetch_inferior_event (client_data);
-  return 1;
-}
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 6d3fa56..bd7257f 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2014-07-14  Pedro Alves  <palves@redhat.com>
 
+	* gdb.base/double-prompt-target-event-error.c: New file.
+	* gdb.base/double-prompt-target-event-error.exp: New file.
+
+2014-07-14  Pedro Alves  <palves@redhat.com>
+
 	PR gdb/17072
 	* gdb.base/paginate-inferior-exit.c: New file.
 	* gdb.base/paginate-inferior-exit.exp: New file.
diff --git a/gdb/testsuite/gdb.base/double-prompt-target-event-error.c b/gdb/testsuite/gdb.base/double-prompt-target-event-error.c
new file mode 100644
index 0000000..b383188
--- /dev/null
+++ b/gdb/testsuite/gdb.base/double-prompt-target-event-error.c
@@ -0,0 +1,25 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+   Copyright 2014 Free Software Foundation, Inc.
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+#include <unistd.h>
+
+int
+main (void)
+{
+  sleep (3);
+  return 0; /* after sleep */
+}
diff --git a/gdb/testsuite/gdb.base/double-prompt-target-event-error.exp b/gdb/testsuite/gdb.base/double-prompt-target-event-error.exp
new file mode 100644
index 0000000..5571cdf
--- /dev/null
+++ b/gdb/testsuite/gdb.base/double-prompt-target-event-error.exp
@@ -0,0 +1,111 @@
+# Copyright (C) 2014 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+standard_testfile
+
+if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug] == -1} {
+    return -1
+}
+
+# Test throwing an error while GDB is handling a target event.  We use
+# a ctrl-c/quit in a pagination prompt to emulate an error.  COMMAND
+# is either "continue" or "wrapcont".  The latter is a continue issued
+# from a user-defined command.  That exercises the case of the
+# interpreter forced sync, which was the case that originally had a
+# bug.
+
+proc cancel_pagination_in_target_event { command } {
+    global binfile srcfile
+    global gdb_prompt pagination_prompt
+
+    set testline [gdb_get_line_number "after sleep"]
+
+    with_test_prefix "ctrlc target event: $command" {
+	clean_restart $binfile
+
+	if ![runto_main] then {
+	    fail "Can't run to main"
+	    return 0
+	}
+
+	gdb_test "b $srcfile:$testline" \
+	    "Breakpoint .*$srcfile, line $testline.*" \
+	    "set breakpoint"
+
+	gdb_test_no_output "set height 2"
+
+	if { $command == "wrapcont" } {
+	    gdb_test_multiple "define wrapcont" "define user command: wrapcont" {
+		-re "Type commands for definition of \"wrapcont\".\r\nEnd with a line saying just \"end\".\r\n>$" {
+		    # Note that "Continuing." is ommitted when
+		    # "continue" is issued from a user-defined
+		    # command.  Issue it ourselves.
+		    gdb_test "echo Continuing\.\ncontinue\nend" "" \
+			"define user command: wrapcont"
+		}
+	    }
+	}
+
+	# Wait for pagination prompt after the "Continuing" line,
+	# indicating the program was running and then stopped.
+	set saw_continuing 0
+	set test "continue to pagination"
+	gdb_test_multiple "$command" $test {
+	    -re "$pagination_prompt$" {
+		if {$saw_continuing} {
+		    pass $test
+		} else {
+		    send_gdb "\n"
+		    exp_continue
+		}
+	    }
+	    -re "Continuing" {
+		set saw_continuing 1
+		exp_continue
+	    }
+	    -notransfer -re "<return>" {
+		# Otherwise gdb_test_multiple considers this an error.
+		exp_continue
+	    }
+	}
+
+	# We're now stopped in a pagination query while handling a
+	# target event (printing where the program stopped).  Quitting
+	# the pagination should result in only one prompt being
+	# output.
+	send_gdb "\003p 1\n"
+
+	set test "no double prompt"
+	gdb_test_multiple "" $test {
+	    -re "$gdb_prompt.*$gdb_prompt.*$gdb_prompt $" {
+		fail $test
+	    }
+	    -re "$gdb_prompt .* = 1\r\n$gdb_prompt $" {
+		pass $test
+	    }
+	    -notransfer -re "<return>" {
+		# Otherwise gdb_test_multiple considers this an error.
+		exp_continue
+	    }
+	}
+
+	# In case the board file wants to send further commands.
+	gdb_test_no_output "set height unlimited"
+    }
+}
+
+foreach variant { "continue" "wrapcont" } {
+    cancel_pagination_in_target_event $variant
+}