/* Handling of inferior events for the event loop for GDB, the GNU debugger.
- Copyright (C) 1999, 2007, 2008 Free Software Foundation, Inc.
+ Copyright (C) 1999-2019 Free Software Foundation, Inc.
Written by Elena Zannoni <ezannoni@cygnus.com> of Cygnus Solutions.
This file is part of GDB.
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/>. */
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "defs.h"
-#include "inferior.h" /* For fetch_inferior_event. */
-#include "target.h" /* For enum inferior_event_type. */
+#include "inferior.h"
+#include "infrun.h"
#include "event-loop.h"
#include "event-top.h"
#include "inf-loop.h"
-#include "exceptions.h"
+#include "remote.h"
+#include "language.h"
+#include "gdbthread.h"
+#include "continuations.h"
+#include "interps.h"
+#include "top.h"
+#include "observable.h"
-static int fetch_inferior_event_wrapper (gdb_client_data client_data);
-static void complete_execution (void);
+/* General function to handle events in the inferior. */
-void
-inferior_event_handler_wrapper (gdb_client_data client_data)
-{
- inferior_event_handler (INF_QUIT_REQ, 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
- the fd. This however may not always be what we want to do. */
void
inferior_event_handler (enum inferior_event_type event_type,
gdb_client_data client_data)
{
switch (event_type)
{
- case INF_ERROR:
- printf_unfiltered (_("error detected from target.\n"));
- target_async (NULL, 0);
- pop_target ();
- discard_all_continuations ();
- do_exec_error_cleanups (ALL_CLEANUPS);
- break;
-
case INF_REG_EVENT:
- /* Use 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 get rid of the target. */
- if (!catch_errors (fetch_inferior_event_wrapper,
- client_data, "", RETURN_MASK_ALL))
- {
- target_async (NULL, 0);
- pop_target ();
- discard_all_continuations ();
- do_exec_error_cleanups (ALL_CLEANUPS);
- display_gdb_prompt (0);
- }
+ fetch_inferior_event (client_data);
break;
case INF_EXEC_COMPLETE:
- /* Is there anything left to do for the command issued to
- complete? */
- do_all_continuations ();
- /* Reset things after target has stopped for the async commands. */
- complete_execution ();
- break;
+ if (!non_stop)
+ {
+ /* Unregister the inferior from the event loop. This is done
+ so that when the inferior is not running we don't get
+ distracted by spurious inferior output. */
+ if (target_has_execution && target_can_async_p ())
+ target_async (0);
+ }
- case INF_EXEC_CONTINUE:
- /* Is there anything left to do for the command issued to
- complete? */
- do_all_intermediate_continuations ();
- break;
+ /* Do all continuations associated with the whole inferior (not
+ a particular thread). */
+ if (inferior_ptid != null_ptid)
+ do_all_inferior_continuations (0);
- case INF_QUIT_REQ:
- target_stop ();
+ /* When running a command list (from a user command, say), these
+ are only run when the command list is all done. */
+ if (current_ui->async)
+ {
+ check_frame_language_change ();
+
+ /* Don't propagate breakpoint commands errors. Either we're
+ stopping or some command resumes the inferior. The user will
+ be informed. */
+ try
+ {
+ bpstat_do_actions ();
+ }
+ catch (const gdb_exception &e)
+ {
+ /* If the user was running a foreground execution
+ command, then propagate the error so that the prompt
+ can be reenabled. Otherwise, the user already has
+ the prompt and is typing some unrelated command, so
+ just inform the user and swallow the exception. */
+ if (current_ui->prompt_state == PROMPT_BLOCKED)
+ throw;
+ else
+ exception_print (gdb_stderr, e);
+ }
+ }
break;
- case INF_TIMER:
default:
printf_unfiltered (_("Event type not recognized.\n"));
break;
}
}
-
-static int
-fetch_inferior_event_wrapper (gdb_client_data client_data)
-{
- fetch_inferior_event (client_data);
- return 1;
-}
-
-/* Reset proper settings after an asynchronous command has finished.
- If the execution command was in synchronous mode, register stdin
- with the event loop, and reset the prompt. */
-
-static void
-complete_execution (void)
-{
- target_executing = 0;
-
- /* Unregister the inferior from the event loop. This is done so that
- when the inferior is not running we don't get distracted by
- spurious inferior output. */
- target_async (NULL, 0);
-
- if (sync_execution)
- {
- do_exec_error_cleanups (ALL_CLEANUPS);
- display_gdb_prompt (0);
- }
- else
- {
- if (exec_done_display_p)
- printf_unfiltered (_("completed.\n"));
- }
-}