1 /* MI Command Set - catch commands.
2 Copyright (C) 2012-2013 Free Software Foundation, Inc.
4 Contributed by Intel Corporation.
6 This file is part of GDB.
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
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
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.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
22 #include "arch-utils.h"
23 #include "breakpoint.h"
25 #include "libiberty.h"
28 #include "mi-getopt.h"
29 #include "mi-cmd-break.h"
31 /* Handler for the -catch-assert command. */
34 mi_cmd_catch_assert (char *cmd
, char *argv
[], int argc
)
36 struct gdbarch
*gdbarch
= get_current_arch();
37 char *condition
= NULL
;
46 OPT_CONDITION
, OPT_DISABLED
, OPT_TEMP
,
48 static const struct mi_opt opts
[] =
50 { "c", OPT_CONDITION
, 1},
51 { "d", OPT_DISABLED
, 0 },
58 int opt
= mi_getopt ("-catch-assert", argc
, argv
, opts
,
64 switch ((enum opt
) opt
)
78 /* This command does not accept any argument. Make sure the user
79 did not provide any. */
81 error (_("Invalid argument: %s"), argv
[oind
]);
83 setup_breakpoint_reporting ();
84 /* create_ada_exception_catchpoint needs CONDITION to be xstrdup'ed,
85 and will assume control of its lifetime. */
86 if (condition
!= NULL
)
87 condition
= xstrdup (condition
);
88 create_ada_exception_catchpoint (gdbarch
, ada_catch_assert
,
89 NULL
, condition
, temp
, enabled
, 0);
92 /* Handler for the -catch-exception command. */
95 mi_cmd_catch_exception (char *cmd
, char *argv
[], int argc
)
97 struct gdbarch
*gdbarch
= get_current_arch();
98 char *condition
= NULL
;
100 char *exception_name
= NULL
;
102 enum ada_exception_catchpoint_kind ex_kind
= ada_catch_exception
;
109 OPT_CONDITION
, OPT_DISABLED
, OPT_EXCEPTION_NAME
, OPT_TEMP
,
112 static const struct mi_opt opts
[] =
114 { "c", OPT_CONDITION
, 1},
115 { "d", OPT_DISABLED
, 0 },
116 { "e", OPT_EXCEPTION_NAME
, 1 },
117 { "t", OPT_TEMP
, 0 },
118 { "u", OPT_UNHANDLED
, 0},
124 int opt
= mi_getopt ("-catch-exception", argc
, argv
, opts
,
130 switch ((enum opt
) opt
)
138 case OPT_EXCEPTION_NAME
:
139 exception_name
= oarg
;
145 ex_kind
= ada_catch_exception_unhandled
;
150 /* This command does not accept any argument. Make sure the user
151 did not provide any. */
153 error (_("Invalid argument: %s"), argv
[oind
]);
155 /* Specifying an exception name does not make sense when requesting
156 an unhandled exception breakpoint. */
157 if (ex_kind
== ada_catch_exception_unhandled
&& exception_name
!= NULL
)
158 error (_("\"-e\" and \"-u\" are mutually exclusive"));
160 setup_breakpoint_reporting ();
161 /* create_ada_exception_catchpoint needs EXCEPTION_NAME and CONDITION
162 to be xstrdup'ed, and will assume control of their lifetime. */
163 if (exception_name
!= NULL
)
164 exception_name
= xstrdup (exception_name
);
165 if (condition
!= NULL
)
166 condition
= xstrdup (condition
);
167 create_ada_exception_catchpoint (gdbarch
, ex_kind
,
168 exception_name
, condition
,
172 /* Common path for the -catch-load and -catch-unload. */
175 mi_catch_load_unload (int load
, char *argv
[], int argc
)
177 struct cleanup
*back_to
;
178 const char *actual_cmd
= load
? "-catch-load" : "-catch-unload";
188 static const struct mi_opt opts
[] =
190 { "t", OPT_TEMP
, 0 },
191 { "d", OPT_DISABLED
, 0 },
197 int opt
= mi_getopt (actual_cmd
, argc
, argv
, opts
,
203 switch ((enum opt
) opt
)
215 error (_("-catch-load/unload: Missing <library name>"));
217 error (_("-catch-load/unload: Garbage following the <library name>"));
219 back_to
= setup_breakpoint_reporting ();
221 add_solib_catchpoint (argv
[oind
], load
, temp
, enabled
);
223 do_cleanups (back_to
);
226 /* Handler for the -catch-load. */
229 mi_cmd_catch_load (char *cmd
, char *argv
[], int argc
)
231 mi_catch_load_unload (1, argv
, argc
);
235 /* Handler for the -catch-unload. */
238 mi_cmd_catch_unload (char *cmd
, char *argv
[], int argc
)
240 mi_catch_load_unload (0, argv
, argc
);