#include "defs.h"
#include "mi-cmds.h"
#include "ui-out.h"
#include "mi-out.h"
#include "breakpoint.h"
#include "gdb_string.h"
#include "mi-getopt.h"
#include "gdb-events.h"
#include "interpreter.h"
#include "gdb.h"
extern struct gdb_interpreter *mi_interp;
enum
{
FROM_TTY = 0
};
static void
breakpoint_notify (int b)
{
gdb_breakpoint_query (uiout, b);
}
struct gdb_events breakpoint_hooks =
{
breakpoint_notify,
breakpoint_notify,
breakpoint_notify,
};
enum bp_type
{
REG_BP,
HW_BP,
FUT_BP,
REGEXP_BP
};
enum mi_cmd_result
mi_cmd_break_insert (char *command, char **argv, int argc)
{
char *address = NULL;
enum bp_type type = REG_BP;
int temp_p = 0;
int thread = -1;
int ignore_count = 0;
char *condition = NULL;
enum gdb_rc rc;
struct gdb_events *old_hooks;
enum opt
{
HARDWARE_OPT, TEMP_OPT, FUTURE_OPT , CONDITION_OPT,
IGNORE_COUNT_OPT, THREAD_OPT
};
static struct mi_opt opts[] =
{
{"h", HARDWARE_OPT, 0},
{"t", TEMP_OPT, 0},
{"f", FUTURE_OPT, 0},
{"c", CONDITION_OPT, 1},
{"i", IGNORE_COUNT_OPT, 1},
{"p", THREAD_OPT, 1},
0
};
int optind = 0;
char *optarg;
while (1)
{
int opt = mi_getopt ("mi_cmd_break_insert", argc, argv, opts, &optind, &optarg);
if (opt < 0)
break;
switch ((enum opt) opt)
{
case TEMP_OPT:
temp_p = 1;
break;
case HARDWARE_OPT:
type = HW_BP;
break;
case FUTURE_OPT:
type = FUT_BP;
break;
#if 0
case REGEXP_OPT:
type = REGEXP_BP;
break;
#endif
case CONDITION_OPT:
condition = optarg;
break;
case IGNORE_COUNT_OPT:
ignore_count = atol (optarg);
break;
case THREAD_OPT:
thread = atol (optarg);
break;
}
}
if (optind >= argc)
error ("mi_cmd_break_insert: Missing <location>");
if (optind < argc - 1)
error ("mi_cmd_break_insert: Garbage following <location>");
address = argv[optind];
old_hooks = set_gdb_event_hooks (&breakpoint_hooks);
switch (type)
{
case REG_BP:
rc = gdb_breakpoint (address, condition,
0 , temp_p,
0 , thread, ignore_count);
break;
case HW_BP:
rc = gdb_breakpoint (address, condition,
1 , temp_p,
0 , thread, ignore_count);
break;
case FUT_BP:
rc = gdb_breakpoint (address, condition,
0, temp_p,
1 , thread, ignore_count);
break;
#if 0
case REGEXP_BP:
if (temp_p)
error ("mi_cmd_break_insert: Unsupported tempoary regexp breakpoint");
else
rbreak_command_wrapper (address, FROM_TTY);
return MI_CMD_DONE;
break;
#endif
default:
internal_error (__FILE__, __LINE__,
"mi_cmd_break_insert: Bad switch.");
}
set_gdb_event_hooks (old_hooks);
if (rc == GDB_RC_FAIL)
return MI_CMD_CAUGHT_ERROR;
else
return MI_CMD_DONE;
}
enum wp_type
{
REG_WP,
READ_WP,
ACCESS_WP
};
enum mi_cmd_result
mi_cmd_break_watch (char *command, char **argv, int argc)
{
char *expr = NULL;
enum wp_type type = REG_WP;
enum opt
{
READ_OPT, ACCESS_OPT
};
static struct mi_opt opts[] =
{
{"r", READ_OPT, 0},
{"a", ACCESS_OPT, 0},
0
};
int optind = 0;
char *optarg;
while (1)
{
int opt = mi_getopt ("mi_cmd_break_watch", argc, argv, opts, &optind, &optarg);
if (opt < 0)
break;
switch ((enum opt) opt)
{
case READ_OPT:
type = READ_WP;
break;
case ACCESS_OPT:
type = ACCESS_WP;
break;
}
}
if (optind >= argc)
error ("mi_cmd_break_watch: Missing <expression>");
if (optind < argc - 1)
error ("mi_cmd_break_watch: Garbage following <expression>");
expr = argv[optind];
switch (type)
{
case REG_WP:
watch_command_wrapper (expr, FROM_TTY);
break;
case READ_WP:
rwatch_command_wrapper (expr, FROM_TTY);
break;
case ACCESS_WP:
awatch_command_wrapper (expr, FROM_TTY);
break;
default:
error ("mi_cmd_break_watch: Unknown watchpoint type.");
}
return MI_CMD_DONE;
}
void
mi_interp_create_breakpoint_hook (struct breakpoint *bpt)
{
CORE_ADDR unusued_addr;
struct ui_out *saved_ui_out = uiout;
struct mi_out *tmp_mi_out;
uiout = mi_interp->interpreter_out;
ui_out_list_begin (uiout, "MI_HOOK_RESULT");
ui_out_field_string (uiout, "HOOK_TYPE", "breakpoint_create");
gdb_breakpoint_query (uiout, bpt->number);
ui_out_list_end (uiout);
uiout = saved_ui_out;
}
void
mi_interp_modify_breakpoint_hook (struct breakpoint *bpt)
{
CORE_ADDR unusued_addr;
struct ui_out *saved_ui_out = uiout;
struct mi_out *tmp_mi_out;
uiout = mi_interp->interpreter_out;
ui_out_list_begin (uiout, "MI_HOOK_RESULT");
ui_out_field_string (uiout, "HOOK_TYPE", "breakpoint_modify");
gdb_breakpoint_query (uiout, bpt->number);
ui_out_list_end (uiout);
uiout = saved_ui_out;
}
void
mi_interp_delete_breakpoint_hook (struct breakpoint *bpt)
{
CORE_ADDR unusued_addr;
struct ui_out *saved_ui_out = uiout;
struct mi_out *tmp_mi_out;
uiout = mi_interp->interpreter_out;
ui_out_list_begin (uiout, "MI_HOOK_RESULT");
ui_out_field_string (uiout, "HOOK_TYPE", "breakpoint_delete");
ui_out_field_int (uiout, "bkptno", bpt->number);
ui_out_list_end (uiout);
uiout = saved_ui_out;
}