1 /* Everything about catch/throw catchpoints, for GDB.
3 Copyright (C) 1986-2013 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
21 #include "arch-utils.h"
23 #include "breakpoint.h"
28 #include "cli/cli-utils.h"
29 #include "completer.h"
30 #include "gdb_obstack.h"
31 #include "mi/mi-common.h"
32 #include "exceptions.h"
35 /* Enums for exception-handling support. */
36 enum exception_event_kind
43 /* Names of the ordinary functions on which to break. This is indexed
44 by exception_event_kind. */
45 static const char * const exception_functions
[] =
52 static struct breakpoint_ops gnu_v3_exception_catchpoint_ops
;
54 /* The type of an exception catchpoint. */
56 struct exception_catchpoint
60 struct breakpoint base
;
62 /* The kind of exception catchpoint. */
64 enum exception_event_kind kind
;
67 /* A helper function that returns a value indicating the kind of the
68 exception catchpoint B. */
70 static enum exception_event_kind
71 classify_exception_breakpoint (struct breakpoint
*b
)
73 struct exception_catchpoint
*cp
= (struct exception_catchpoint
*) b
;
78 /* Implement the 're_set' method. */
81 re_set_exception_catchpoint (struct breakpoint
*self
)
83 struct symtabs_and_lines sals
= {0};
84 struct symtabs_and_lines sals_end
= {0};
85 volatile struct gdb_exception e
;
86 struct cleanup
*cleanup
;
87 enum exception_event_kind kind
= classify_exception_breakpoint (self
);
89 TRY_CATCH (e
, RETURN_MASK_ERROR
)
91 char *spec
= ASTRDUP (exception_functions
[kind
]);
93 self
->ops
->decode_linespec (self
, &spec
, &sals
);
95 /* NOT_FOUND_ERROR just means the breakpoint will be pending, so let
97 if (e
.reason
< 0 && e
.error
!= NOT_FOUND_ERROR
)
100 cleanup
= make_cleanup (xfree
, sals
.sals
);
101 update_breakpoint_locations (self
, sals
, sals_end
);
102 do_cleanups (cleanup
);
105 static enum print_stop_action
106 print_it_exception_catchpoint (bpstat bs
)
108 struct ui_out
*uiout
= current_uiout
;
109 struct breakpoint
*b
= bs
->breakpoint_at
;
111 enum exception_event_kind kind
= classify_exception_breakpoint (b
);
113 annotate_catchpoint (b
->number
);
115 bp_temp
= b
->disposition
== disp_del
;
117 bp_temp
? "Temporary catchpoint "
119 if (!ui_out_is_mi_like_p (uiout
))
120 ui_out_field_int (uiout
, "bkptno", b
->number
);
122 (kind
== EX_EVENT_THROW
? " (exception thrown), "
123 : (kind
== EX_EVENT_CATCH
? " (exception caught), "
124 : " (exception rethrown), ")));
125 if (ui_out_is_mi_like_p (uiout
))
127 ui_out_field_string (uiout
, "reason",
128 async_reason_lookup (EXEC_ASYNC_BREAKPOINT_HIT
));
129 ui_out_field_string (uiout
, "disp", bpdisp_text (b
->disposition
));
130 ui_out_field_int (uiout
, "bkptno", b
->number
);
132 return PRINT_SRC_AND_LOC
;
136 print_one_exception_catchpoint (struct breakpoint
*b
,
137 struct bp_location
**last_loc
)
139 struct value_print_options opts
;
140 struct ui_out
*uiout
= current_uiout
;
141 enum exception_event_kind kind
= classify_exception_breakpoint (b
);
143 get_user_print_options (&opts
);
144 if (opts
.addressprint
)
147 if (b
->loc
== NULL
|| b
->loc
->shlib_disabled
)
148 ui_out_field_string (uiout
, "addr", "<PENDING>");
150 ui_out_field_core_addr (uiout
, "addr",
151 b
->loc
->gdbarch
, b
->loc
->address
);
160 ui_out_field_string (uiout
, "what", "exception throw");
161 if (ui_out_is_mi_like_p (uiout
))
162 ui_out_field_string (uiout
, "catch-type", "throw");
165 case EX_EVENT_RETHROW
:
166 ui_out_field_string (uiout
, "what", "exception rethrow");
167 if (ui_out_is_mi_like_p (uiout
))
168 ui_out_field_string (uiout
, "catch-type", "rethrow");
172 ui_out_field_string (uiout
, "what", "exception catch");
173 if (ui_out_is_mi_like_p (uiout
))
174 ui_out_field_string (uiout
, "catch-type", "catch");
180 print_mention_exception_catchpoint (struct breakpoint
*b
)
182 struct ui_out
*uiout
= current_uiout
;
184 enum exception_event_kind kind
= classify_exception_breakpoint (b
);
186 bp_temp
= b
->disposition
== disp_del
;
187 ui_out_text (uiout
, bp_temp
? _("Temporary catchpoint ")
189 ui_out_field_int (uiout
, "bkptno", b
->number
);
190 ui_out_text (uiout
, (kind
== EX_EVENT_THROW
? _(" (throw)")
191 : (kind
== EX_EVENT_CATCH
? _(" (catch)")
192 : _(" (rethrow)"))));
195 /* Implement the "print_recreate" breakpoint_ops method for throw and
196 catch catchpoints. */
199 print_recreate_exception_catchpoint (struct breakpoint
*b
,
203 enum exception_event_kind kind
= classify_exception_breakpoint (b
);
205 bp_temp
= b
->disposition
== disp_del
;
206 fprintf_unfiltered (fp
, bp_temp
? "tcatch " : "catch ");
210 fprintf_unfiltered (fp
, "throw");
213 fprintf_unfiltered (fp
, "catch");
215 case EX_EVENT_RETHROW
:
216 fprintf_unfiltered (fp
, "rethrow");
219 print_recreate_thread (b
, fp
);
223 handle_gnu_v3_exceptions (int tempflag
, char *cond_string
,
224 enum exception_event_kind ex_event
, int from_tty
)
226 struct exception_catchpoint
*cp
;
228 cp
= XCNEW (struct exception_catchpoint
);
229 init_catchpoint (&cp
->base
, get_current_arch (), tempflag
, cond_string
,
230 &gnu_v3_exception_catchpoint_ops
);
231 /* We need to reset 'type' in order for code in breakpoint.c to do
233 cp
->base
.type
= bp_breakpoint
;
236 re_set_exception_catchpoint (&cp
->base
);
238 install_breakpoint (0, &cp
->base
, 1);
241 /* Deal with "catch catch", "catch throw", and "catch rethrow"
245 catch_exception_command_1 (enum exception_event_kind ex_event
, char *arg
,
246 int tempflag
, int from_tty
)
248 char *cond_string
= NULL
;
252 arg
= skip_spaces (arg
);
254 cond_string
= ep_parse_optional_if_clause (&arg
);
256 if ((*arg
!= '\0') && !isspace (*arg
))
257 error (_("Junk at end of arguments."));
259 if (ex_event
!= EX_EVENT_THROW
260 && ex_event
!= EX_EVENT_CATCH
261 && ex_event
!= EX_EVENT_RETHROW
)
262 error (_("Unsupported or unknown exception event; cannot catch it"));
264 handle_gnu_v3_exceptions (tempflag
, cond_string
, ex_event
, from_tty
);
267 /* Implementation of "catch catch" command. */
270 catch_catch_command (char *arg
, int from_tty
, struct cmd_list_element
*command
)
272 int tempflag
= get_cmd_context (command
) == CATCH_TEMPORARY
;
274 catch_exception_command_1 (EX_EVENT_CATCH
, arg
, tempflag
, from_tty
);
277 /* Implementation of "catch throw" command. */
280 catch_throw_command (char *arg
, int from_tty
, struct cmd_list_element
*command
)
282 int tempflag
= get_cmd_context (command
) == CATCH_TEMPORARY
;
284 catch_exception_command_1 (EX_EVENT_THROW
, arg
, tempflag
, from_tty
);
287 /* Implementation of "catch rethrow" command. */
290 catch_rethrow_command (char *arg
, int from_tty
,
291 struct cmd_list_element
*command
)
293 int tempflag
= get_cmd_context (command
) == CATCH_TEMPORARY
;
295 catch_exception_command_1 (EX_EVENT_RETHROW
, arg
, tempflag
, from_tty
);
301 initialize_throw_catchpoint_ops (void)
303 struct breakpoint_ops
*ops
;
305 initialize_breakpoint_ops ();
307 /* GNU v3 exception catchpoints. */
308 ops
= &gnu_v3_exception_catchpoint_ops
;
309 *ops
= bkpt_breakpoint_ops
;
310 ops
->re_set
= re_set_exception_catchpoint
;
311 ops
->print_it
= print_it_exception_catchpoint
;
312 ops
->print_one
= print_one_exception_catchpoint
;
313 ops
->print_mention
= print_mention_exception_catchpoint
;
314 ops
->print_recreate
= print_recreate_exception_catchpoint
;
317 initialize_file_ftype _initialize_break_catch_throw
;
320 _initialize_break_catch_throw (void)
322 initialize_throw_catchpoint_ops ();
324 /* Add catch and tcatch sub-commands. */
325 add_catch_command ("catch", _("\
326 Catch an exception, when caught."),
331 add_catch_command ("throw", _("\
332 Catch an exception, when thrown."),
337 add_catch_command ("rethrow", _("\
338 Catch an exception, when rethrown."),
339 catch_rethrow_command
,