Commit | Line | Data |
---|---|---|
2acceee2 | 1 | /* Handling of inferior events for the event loop for GDB, the GNU debugger. |
7b6bb8da JB |
2 | Copyright (C) 1999, 2007, 2008, 2009, 2010, 2011 |
3 | Free Software Foundation, Inc. | |
2acceee2 JM |
4 | Written by Elena Zannoni <ezannoni@cygnus.com> of Cygnus Solutions. |
5 | ||
6 | This file is part of GDB. | |
7 | ||
8 | This program is free software; you can redistribute it and/or modify | |
9 | it under the terms of the GNU General Public License as published by | |
a9762ec7 | 10 | the Free Software Foundation; either version 3 of the License, or |
2acceee2 JM |
11 | (at your option) any later version. |
12 | ||
13 | This program is distributed in the hope that it will be useful, | |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
1777feb0 | 19 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
2acceee2 JM |
20 | |
21 | #include "defs.h" | |
1777feb0 MS |
22 | #include "inferior.h" /* For fetch_inferior_event. */ |
23 | #include "target.h" /* For enum inferior_event_type. */ | |
2acceee2 JM |
24 | #include "event-loop.h" |
25 | #include "event-top.h" | |
26 | #include "inf-loop.h" | |
b18392ef | 27 | #include "remote.h" |
60250e8b | 28 | #include "exceptions.h" |
32c1e744 | 29 | #include "language.h" |
8ea051c5 | 30 | #include "gdbthread.h" |
be34f849 | 31 | #include "continuations.h" |
2acceee2 JM |
32 | |
33 | static int fetch_inferior_event_wrapper (gdb_client_data client_data); | |
2acceee2 | 34 | |
2df3850c JM |
35 | void |
36 | inferior_event_handler_wrapper (gdb_client_data client_data) | |
37 | { | |
38 | inferior_event_handler (INF_QUIT_REQ, client_data); | |
39 | } | |
40 | ||
1777feb0 | 41 | /* General function to handle events in the inferior. So far it just |
2acceee2 JM |
42 | takes care of detecting errors reported by select() or poll(), |
43 | otherwise it assumes that all is OK, and goes on reading data from | |
1777feb0 | 44 | the fd. This however may not always be what we want to do. */ |
2acceee2 JM |
45 | void |
46 | inferior_event_handler (enum inferior_event_type event_type, | |
47 | gdb_client_data client_data) | |
48 | { | |
fcfb8b02 | 49 | struct gdb_exception e; |
32c1e744 | 50 | int was_sync = 0; |
abbb1732 | 51 | |
2acceee2 JM |
52 | switch (event_type) |
53 | { | |
54 | case INF_ERROR: | |
a3f17187 | 55 | printf_unfiltered (_("error detected from target.\n")); |
d3fd5342 | 56 | pop_all_targets_above (file_stratum, 0); |
604ead4a PA |
57 | discard_all_intermediate_continuations (); |
58 | discard_all_continuations (); | |
712af3be | 59 | async_enable_stdin (); |
2acceee2 JM |
60 | break; |
61 | ||
62 | case INF_REG_EVENT: | |
63 | /* Use catch errors for now, until the inner layers of | |
64 | fetch_inferior_event (i.e. readchar) can return meaningful | |
65 | error status. If an error occurs while getting an event from | |
1777feb0 | 66 | the target, just get rid of the target. */ |
2acceee2 JM |
67 | if (!catch_errors (fetch_inferior_event_wrapper, |
68 | client_data, "", RETURN_MASK_ALL)) | |
69 | { | |
d3fd5342 | 70 | pop_all_targets_above (file_stratum, 0); |
604ead4a PA |
71 | discard_all_intermediate_continuations (); |
72 | discard_all_continuations (); | |
712af3be | 73 | async_enable_stdin (); |
2acceee2 JM |
74 | display_gdb_prompt (0); |
75 | } | |
76 | break; | |
77 | ||
78 | case INF_EXEC_COMPLETE: | |
94cc34af PA |
79 | |
80 | if (!non_stop) | |
81 | { | |
1777feb0 | 82 | /* Unregister the inferior from the event loop. This is done |
94cc34af PA |
83 | so that when the inferior is not running we don't get |
84 | distracted by spurious inferior output. */ | |
85 | if (target_has_execution) | |
86 | target_async (NULL, 0); | |
87 | } | |
32c1e744 | 88 | |
712af3be VP |
89 | /* The call to async_enable_stdin below resets 'sync_execution'. |
90 | However, if sync_execution is 1 now, we also need to show the | |
91 | prompt below, so save the current value. */ | |
32c1e744 | 92 | was_sync = sync_execution; |
712af3be | 93 | async_enable_stdin (); |
32c1e744 | 94 | |
e0ba6746 PA |
95 | /* Do all continuations associated with the whole inferior (not |
96 | a particular thread). */ | |
97 | if (!ptid_equal (inferior_ptid, null_ptid)) | |
98 | do_all_inferior_continuations (); | |
99 | ||
0a320680 PA |
100 | /* If we were doing a multi-step (eg: step n, next n), but it |
101 | got interrupted by a breakpoint, still do the pending | |
102 | continuations. The continuation itself is responsible for | |
02b19d84 PA |
103 | distinguishing the cases. The continuations are allowed to |
104 | touch the inferior memory, e.g. to remove breakpoints, so run | |
105 | them before running breakpoint commands, which may resume the | |
106 | target. */ | |
95e54da7 PA |
107 | if (non_stop |
108 | && target_has_execution | |
109 | && !ptid_equal (inferior_ptid, null_ptid)) | |
110 | do_all_intermediate_continuations_thread (inferior_thread ()); | |
111 | else | |
112 | do_all_intermediate_continuations (); | |
0a320680 | 113 | |
02b19d84 PA |
114 | /* Always finish the previous command before running any |
115 | breakpoint commands. Any stop cancels the previous command. | |
116 | E.g. a "finish" or "step-n" command interrupted by an | |
117 | unrelated breakpoint is canceled. */ | |
95e54da7 PA |
118 | if (non_stop |
119 | && target_has_execution | |
120 | && !ptid_equal (inferior_ptid, null_ptid)) | |
121 | do_all_continuations_thread (inferior_thread ()); | |
122 | else | |
123 | do_all_continuations (); | |
32c1e744 | 124 | |
46cf51e6 PA |
125 | if (info_verbose |
126 | && current_language != expected_language | |
02b19d84 PA |
127 | && language_mode == language_mode_auto) |
128 | language_info (1); /* Print what changed. */ | |
129 | ||
130 | /* Don't propagate breakpoint commands errors. Either we're | |
131 | stopping or some command resumes the inferior. The user will | |
132 | be informed. */ | |
133 | TRY_CATCH (e, RETURN_MASK_ALL) | |
32c1e744 | 134 | { |
347bddb7 | 135 | bpstat_do_actions (); |
32c1e744 VP |
136 | } |
137 | ||
7b0e8051 PA |
138 | if (!was_sync |
139 | && exec_done_display_p | |
140 | && (ptid_equal (inferior_ptid, null_ptid) | |
141 | || !is_running (inferior_ptid))) | |
4f8d22e3 | 142 | printf_unfiltered (_("completed.\n")); |
2acceee2 JM |
143 | break; |
144 | ||
c2d11a7d JM |
145 | case INF_EXEC_CONTINUE: |
146 | /* Is there anything left to do for the command issued to | |
1777feb0 | 147 | complete? */ |
95e54da7 PA |
148 | |
149 | if (non_stop) | |
150 | do_all_intermediate_continuations_thread (inferior_thread ()); | |
151 | else | |
152 | do_all_intermediate_continuations (); | |
c2d11a7d JM |
153 | break; |
154 | ||
b18392ef | 155 | case INF_QUIT_REQ: |
1777feb0 | 156 | /* FIXME: ezannoni 1999-10-04. This call should really be a |
b18392ef | 157 | target vector entry, so that it can be used for any kind of |
1777feb0 | 158 | targets. */ |
b18392ef | 159 | async_remote_interrupt_twice (NULL); |
2df3850c JM |
160 | break; |
161 | ||
2acceee2 JM |
162 | case INF_TIMER: |
163 | default: | |
a3f17187 | 164 | printf_unfiltered (_("Event type not recognized.\n")); |
2acceee2 JM |
165 | break; |
166 | } | |
167 | } | |
168 | ||
169 | static int | |
170 | fetch_inferior_event_wrapper (gdb_client_data client_data) | |
171 | { | |
172 | fetch_inferior_event (client_data); | |
173 | return 1; | |
174 | } |