gdb/mi/mi-cmd-catch.c - gdb
Functions defined
Source code
- #include "defs.h"
- #include "arch-utils.h"
- #include "breakpoint.h"
- #include "gdb.h"
- #include "ada-lang.h"
- #include "mi-cmds.h"
- #include "mi-getopt.h"
- #include "mi-cmd-break.h"
- void
- mi_cmd_catch_assert (char *cmd, char *argv[], int argc)
- {
- struct gdbarch *gdbarch = get_current_arch();
- char *condition = NULL;
- int enabled = 1;
- int temp = 0;
- int oind = 0;
- char *oarg;
- enum opt
- {
- OPT_CONDITION, OPT_DISABLED, OPT_TEMP,
- };
- static const struct mi_opt opts[] =
- {
- { "c", OPT_CONDITION, 1},
- { "d", OPT_DISABLED, 0 },
- { "t", OPT_TEMP, 0 },
- { 0, 0, 0 }
- };
- for (;;)
- {
- int opt = mi_getopt ("-catch-assert", argc, argv, opts,
- &oind, &oarg);
- if (opt < 0)
- break;
- switch ((enum opt) opt)
- {
- case OPT_CONDITION:
- condition = oarg;
- break;
- case OPT_DISABLED:
- enabled = 0;
- break;
- case OPT_TEMP:
- temp = 1;
- break;
- }
- }
-
- if (oind != argc)
- error (_("Invalid argument: %s"), argv[oind]);
- setup_breakpoint_reporting ();
-
- if (condition != NULL)
- condition = xstrdup (condition);
- create_ada_exception_catchpoint (gdbarch, ada_catch_assert,
- NULL, condition, temp, enabled, 0);
- }
- void
- mi_cmd_catch_exception (char *cmd, char *argv[], int argc)
- {
- struct gdbarch *gdbarch = get_current_arch();
- char *condition = NULL;
- int enabled = 1;
- char *exception_name = NULL;
- int temp = 0;
- enum ada_exception_catchpoint_kind ex_kind = ada_catch_exception;
- int oind = 0;
- char *oarg;
- enum opt
- {
- OPT_CONDITION, OPT_DISABLED, OPT_EXCEPTION_NAME, OPT_TEMP,
- OPT_UNHANDLED,
- };
- static const struct mi_opt opts[] =
- {
- { "c", OPT_CONDITION, 1},
- { "d", OPT_DISABLED, 0 },
- { "e", OPT_EXCEPTION_NAME, 1 },
- { "t", OPT_TEMP, 0 },
- { "u", OPT_UNHANDLED, 0},
- { 0, 0, 0 }
- };
- for (;;)
- {
- int opt = mi_getopt ("-catch-exception", argc, argv, opts,
- &oind, &oarg);
- if (opt < 0)
- break;
- switch ((enum opt) opt)
- {
- case OPT_CONDITION:
- condition = oarg;
- break;
- case OPT_DISABLED:
- enabled = 0;
- break;
- case OPT_EXCEPTION_NAME:
- exception_name = oarg;
- break;
- case OPT_TEMP:
- temp = 1;
- break;
- case OPT_UNHANDLED:
- ex_kind = ada_catch_exception_unhandled;
- break;
- }
- }
-
- if (oind != argc)
- error (_("Invalid argument: %s"), argv[oind]);
-
- if (ex_kind == ada_catch_exception_unhandled && exception_name != NULL)
- error (_("\"-e\" and \"-u\" are mutually exclusive"));
- setup_breakpoint_reporting ();
-
- if (exception_name != NULL)
- exception_name = xstrdup (exception_name);
- if (condition != NULL)
- condition = xstrdup (condition);
- create_ada_exception_catchpoint (gdbarch, ex_kind,
- exception_name, condition,
- temp, enabled, 0);
- }
- static void
- mi_catch_load_unload (int load, char *argv[], int argc)
- {
- struct cleanup *back_to;
- const char *actual_cmd = load ? "-catch-load" : "-catch-unload";
- int temp = 0;
- int enabled = 1;
- int oind = 0;
- char *oarg;
- enum opt
- {
- OPT_TEMP,
- OPT_DISABLED,
- };
- static const struct mi_opt opts[] =
- {
- { "t", OPT_TEMP, 0 },
- { "d", OPT_DISABLED, 0 },
- { 0, 0, 0 }
- };
- for (;;)
- {
- int opt = mi_getopt (actual_cmd, argc, argv, opts,
- &oind, &oarg);
- if (opt < 0)
- break;
- switch ((enum opt) opt)
- {
- case OPT_TEMP:
- temp = 1;
- break;
- case OPT_DISABLED:
- enabled = 0;
- break;
- }
- }
- if (oind >= argc)
- error (_("-catch-load/unload: Missing <library name>"));
- if (oind < argc -1)
- error (_("-catch-load/unload: Garbage following the <library name>"));
- back_to = setup_breakpoint_reporting ();
- add_solib_catchpoint (argv[oind], load, temp, enabled);
- do_cleanups (back_to);
- }
- void
- mi_cmd_catch_load (char *cmd, char *argv[], int argc)
- {
- mi_catch_load_unload (1, argv, argc);
- }
- void
- mi_cmd_catch_unload (char *cmd, char *argv[], int argc)
- {
- mi_catch_load_unload (0, argv, argc);
- }