/* MI Command Set - breakpoint and watchpoint commands.
|
/* MI Command Set - breakpoint and watchpoint commands.
|
Copyright (C) 2000, 2001, 2002, 2007, 2008, 2009, 2010
|
Copyright (C) 2000, 2001, 2002, 2007, 2008, 2009, 2010
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
Contributed by Cygnus Solutions (a Red Hat company).
|
Contributed by Cygnus Solutions (a Red Hat company).
|
|
|
This file is part of GDB.
|
This file is part of GDB.
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
#include "defs.h"
|
#include "defs.h"
|
#include "arch-utils.h"
|
#include "arch-utils.h"
|
#include "mi-cmds.h"
|
#include "mi-cmds.h"
|
#include "ui-out.h"
|
#include "ui-out.h"
|
#include "mi-out.h"
|
#include "mi-out.h"
|
#include "breakpoint.h"
|
#include "breakpoint.h"
|
#include "gdb_string.h"
|
#include "gdb_string.h"
|
#include "mi-getopt.h"
|
#include "mi-getopt.h"
|
#include "gdb.h"
|
#include "gdb.h"
|
#include "exceptions.h"
|
#include "exceptions.h"
|
#include "observer.h"
|
#include "observer.h"
|
|
|
enum
|
enum
|
{
|
{
|
FROM_TTY = 0
|
FROM_TTY = 0
|
};
|
};
|
|
|
/* True if MI breakpoint observers have been registered. */
|
/* True if MI breakpoint observers have been registered. */
|
|
|
static int mi_breakpoint_observers_installed;
|
static int mi_breakpoint_observers_installed;
|
|
|
/* Control whether breakpoint_notify may act. */
|
/* Control whether breakpoint_notify may act. */
|
|
|
static int mi_can_breakpoint_notify;
|
static int mi_can_breakpoint_notify;
|
|
|
/* Output a single breakpoint, when allowed. */
|
/* Output a single breakpoint, when allowed. */
|
|
|
static void
|
static void
|
breakpoint_notify (int b)
|
breakpoint_notify (int b)
|
{
|
{
|
if (mi_can_breakpoint_notify)
|
if (mi_can_breakpoint_notify)
|
gdb_breakpoint_query (uiout, b, NULL);
|
gdb_breakpoint_query (uiout, b, NULL);
|
}
|
}
|
|
|
enum bp_type
|
enum bp_type
|
{
|
{
|
REG_BP,
|
REG_BP,
|
HW_BP,
|
HW_BP,
|
REGEXP_BP
|
REGEXP_BP
|
};
|
};
|
|
|
/* Implements the -break-insert command.
|
/* Implements the -break-insert command.
|
See the MI manual for the list of possible options. */
|
See the MI manual for the list of possible options. */
|
|
|
void
|
void
|
mi_cmd_break_insert (char *command, char **argv, int argc)
|
mi_cmd_break_insert (char *command, char **argv, int argc)
|
{
|
{
|
char *address = NULL;
|
char *address = NULL;
|
enum bp_type type = REG_BP;
|
enum bp_type type = REG_BP;
|
int temp_p = 0;
|
int temp_p = 0;
|
int thread = -1;
|
int thread = -1;
|
int ignore_count = 0;
|
int ignore_count = 0;
|
char *condition = NULL;
|
char *condition = NULL;
|
int pending = 0;
|
int pending = 0;
|
int enabled = 1;
|
int enabled = 1;
|
|
|
struct gdb_exception e;
|
struct gdb_exception e;
|
struct gdb_events *old_hooks;
|
struct gdb_events *old_hooks;
|
enum opt
|
enum opt
|
{
|
{
|
HARDWARE_OPT, TEMP_OPT /*, REGEXP_OPT */ , CONDITION_OPT,
|
HARDWARE_OPT, TEMP_OPT /*, REGEXP_OPT */ , CONDITION_OPT,
|
IGNORE_COUNT_OPT, THREAD_OPT, PENDING_OPT, DISABLE_OPT
|
IGNORE_COUNT_OPT, THREAD_OPT, PENDING_OPT, DISABLE_OPT
|
};
|
};
|
static struct mi_opt opts[] =
|
static struct mi_opt opts[] =
|
{
|
{
|
{"h", HARDWARE_OPT, 0},
|
{"h", HARDWARE_OPT, 0},
|
{"t", TEMP_OPT, 0},
|
{"t", TEMP_OPT, 0},
|
{"c", CONDITION_OPT, 1},
|
{"c", CONDITION_OPT, 1},
|
{"i", IGNORE_COUNT_OPT, 1},
|
{"i", IGNORE_COUNT_OPT, 1},
|
{"p", THREAD_OPT, 1},
|
{"p", THREAD_OPT, 1},
|
{"f", PENDING_OPT, 0},
|
{"f", PENDING_OPT, 0},
|
{"d", DISABLE_OPT, 0},
|
{"d", DISABLE_OPT, 0},
|
{ 0, 0, 0 }
|
{ 0, 0, 0 }
|
};
|
};
|
|
|
/* Parse arguments. It could be -r or -h or -t, <location> or ``--''
|
/* Parse arguments. It could be -r or -h or -t, <location> or ``--''
|
to denote the end of the option list. */
|
to denote the end of the option list. */
|
int optind = 0;
|
int optind = 0;
|
char *optarg;
|
char *optarg;
|
while (1)
|
while (1)
|
{
|
{
|
int opt = mi_getopt ("mi_cmd_break_insert", argc, argv, opts, &optind, &optarg);
|
int opt = mi_getopt ("mi_cmd_break_insert", argc, argv, opts, &optind, &optarg);
|
if (opt < 0)
|
if (opt < 0)
|
break;
|
break;
|
switch ((enum opt) opt)
|
switch ((enum opt) opt)
|
{
|
{
|
case TEMP_OPT:
|
case TEMP_OPT:
|
temp_p = 1;
|
temp_p = 1;
|
break;
|
break;
|
case HARDWARE_OPT:
|
case HARDWARE_OPT:
|
type = HW_BP;
|
type = HW_BP;
|
break;
|
break;
|
#if 0
|
#if 0
|
case REGEXP_OPT:
|
case REGEXP_OPT:
|
type = REGEXP_BP;
|
type = REGEXP_BP;
|
break;
|
break;
|
#endif
|
#endif
|
case CONDITION_OPT:
|
case CONDITION_OPT:
|
condition = optarg;
|
condition = optarg;
|
break;
|
break;
|
case IGNORE_COUNT_OPT:
|
case IGNORE_COUNT_OPT:
|
ignore_count = atol (optarg);
|
ignore_count = atol (optarg);
|
break;
|
break;
|
case THREAD_OPT:
|
case THREAD_OPT:
|
thread = atol (optarg);
|
thread = atol (optarg);
|
break;
|
break;
|
case PENDING_OPT:
|
case PENDING_OPT:
|
pending = 1;
|
pending = 1;
|
break;
|
break;
|
case DISABLE_OPT:
|
case DISABLE_OPT:
|
enabled = 0;
|
enabled = 0;
|
}
|
}
|
}
|
}
|
|
|
if (optind >= argc)
|
if (optind >= argc)
|
error (_("mi_cmd_break_insert: Missing <location>"));
|
error (_("mi_cmd_break_insert: Missing <location>"));
|
if (optind < argc - 1)
|
if (optind < argc - 1)
|
error (_("mi_cmd_break_insert: Garbage following <location>"));
|
error (_("mi_cmd_break_insert: Garbage following <location>"));
|
address = argv[optind];
|
address = argv[optind];
|
|
|
/* Now we have what we need, let's insert the breakpoint! */
|
/* Now we have what we need, let's insert the breakpoint! */
|
if (! mi_breakpoint_observers_installed)
|
if (! mi_breakpoint_observers_installed)
|
{
|
{
|
observer_attach_breakpoint_created (breakpoint_notify);
|
observer_attach_breakpoint_created (breakpoint_notify);
|
observer_attach_breakpoint_modified (breakpoint_notify);
|
observer_attach_breakpoint_modified (breakpoint_notify);
|
observer_attach_breakpoint_deleted (breakpoint_notify);
|
observer_attach_breakpoint_deleted (breakpoint_notify);
|
mi_breakpoint_observers_installed = 1;
|
mi_breakpoint_observers_installed = 1;
|
}
|
}
|
|
|
mi_can_breakpoint_notify = 1;
|
mi_can_breakpoint_notify = 1;
|
/* Make sure we restore hooks even if exception is thrown. */
|
/* Make sure we restore hooks even if exception is thrown. */
|
TRY_CATCH (e, RETURN_MASK_ALL)
|
TRY_CATCH (e, RETURN_MASK_ALL)
|
{
|
{
|
switch (type)
|
switch (type)
|
{
|
{
|
case REG_BP:
|
case REG_BP:
|
set_breakpoint (get_current_arch (), address, condition,
|
set_breakpoint (get_current_arch (), address, condition,
|
0 /*hardwareflag */ , temp_p,
|
0 /*hardwareflag */ , temp_p,
|
thread, ignore_count,
|
thread, ignore_count,
|
pending, enabled);
|
pending, enabled);
|
break;
|
break;
|
case HW_BP:
|
case HW_BP:
|
set_breakpoint (get_current_arch (), address, condition,
|
set_breakpoint (get_current_arch (), address, condition,
|
1 /*hardwareflag */ , temp_p,
|
1 /*hardwareflag */ , temp_p,
|
thread, ignore_count,
|
thread, ignore_count,
|
pending, enabled);
|
pending, enabled);
|
break;
|
break;
|
#if 0
|
#if 0
|
case REGEXP_BP:
|
case REGEXP_BP:
|
if (temp_p)
|
if (temp_p)
|
error (_("mi_cmd_break_insert: Unsupported tempoary regexp breakpoint"));
|
error (_("mi_cmd_break_insert: Unsupported tempoary regexp breakpoint"));
|
else
|
else
|
rbreak_command_wrapper (address, FROM_TTY);
|
rbreak_command_wrapper (address, FROM_TTY);
|
break;
|
break;
|
#endif
|
#endif
|
default:
|
default:
|
internal_error (__FILE__, __LINE__,
|
internal_error (__FILE__, __LINE__,
|
_("mi_cmd_break_insert: Bad switch."));
|
_("mi_cmd_break_insert: Bad switch."));
|
}
|
}
|
}
|
}
|
mi_can_breakpoint_notify = 0;
|
mi_can_breakpoint_notify = 0;
|
if (e.reason < 0)
|
if (e.reason < 0)
|
throw_exception (e);
|
throw_exception (e);
|
}
|
}
|
|
|
enum wp_type
|
enum wp_type
|
{
|
{
|
REG_WP,
|
REG_WP,
|
READ_WP,
|
READ_WP,
|
ACCESS_WP
|
ACCESS_WP
|
};
|
};
|
|
|
/* Insert a watchpoint. The type of watchpoint is specified by the
|
/* Insert a watchpoint. The type of watchpoint is specified by the
|
first argument:
|
first argument:
|
-break-watch <expr> --> insert a regular wp.
|
-break-watch <expr> --> insert a regular wp.
|
-break-watch -r <expr> --> insert a read watchpoint.
|
-break-watch -r <expr> --> insert a read watchpoint.
|
-break-watch -a <expr> --> insert an access wp. */
|
-break-watch -a <expr> --> insert an access wp. */
|
|
|
void
|
void
|
mi_cmd_break_watch (char *command, char **argv, int argc)
|
mi_cmd_break_watch (char *command, char **argv, int argc)
|
{
|
{
|
char *expr = NULL;
|
char *expr = NULL;
|
enum wp_type type = REG_WP;
|
enum wp_type type = REG_WP;
|
enum opt
|
enum opt
|
{
|
{
|
READ_OPT, ACCESS_OPT
|
READ_OPT, ACCESS_OPT
|
};
|
};
|
static struct mi_opt opts[] =
|
static struct mi_opt opts[] =
|
{
|
{
|
{"r", READ_OPT, 0},
|
{"r", READ_OPT, 0},
|
{"a", ACCESS_OPT, 0},
|
{"a", ACCESS_OPT, 0},
|
{ 0, 0, 0 }
|
{ 0, 0, 0 }
|
};
|
};
|
|
|
/* Parse arguments. */
|
/* Parse arguments. */
|
int optind = 0;
|
int optind = 0;
|
char *optarg;
|
char *optarg;
|
while (1)
|
while (1)
|
{
|
{
|
int opt = mi_getopt ("mi_cmd_break_watch", argc, argv, opts, &optind, &optarg);
|
int opt = mi_getopt ("mi_cmd_break_watch", argc, argv, opts, &optind, &optarg);
|
if (opt < 0)
|
if (opt < 0)
|
break;
|
break;
|
switch ((enum opt) opt)
|
switch ((enum opt) opt)
|
{
|
{
|
case READ_OPT:
|
case READ_OPT:
|
type = READ_WP;
|
type = READ_WP;
|
break;
|
break;
|
case ACCESS_OPT:
|
case ACCESS_OPT:
|
type = ACCESS_WP;
|
type = ACCESS_WP;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
if (optind >= argc)
|
if (optind >= argc)
|
error (_("mi_cmd_break_watch: Missing <expression>"));
|
error (_("mi_cmd_break_watch: Missing <expression>"));
|
if (optind < argc - 1)
|
if (optind < argc - 1)
|
error (_("mi_cmd_break_watch: Garbage following <expression>"));
|
error (_("mi_cmd_break_watch: Garbage following <expression>"));
|
expr = argv[optind];
|
expr = argv[optind];
|
|
|
/* Now we have what we need, let's insert the watchpoint! */
|
/* Now we have what we need, let's insert the watchpoint! */
|
switch (type)
|
switch (type)
|
{
|
{
|
case REG_WP:
|
case REG_WP:
|
watch_command_wrapper (expr, FROM_TTY);
|
watch_command_wrapper (expr, FROM_TTY);
|
break;
|
break;
|
case READ_WP:
|
case READ_WP:
|
rwatch_command_wrapper (expr, FROM_TTY);
|
rwatch_command_wrapper (expr, FROM_TTY);
|
break;
|
break;
|
case ACCESS_WP:
|
case ACCESS_WP:
|
awatch_command_wrapper (expr, FROM_TTY);
|
awatch_command_wrapper (expr, FROM_TTY);
|
break;
|
break;
|
default:
|
default:
|
error (_("mi_cmd_break_watch: Unknown watchpoint type."));
|
error (_("mi_cmd_break_watch: Unknown watchpoint type."));
|
}
|
}
|
}
|
}
|
|
|
/* The mi_read_next_line consults these variable to return successive
|
/* The mi_read_next_line consults these variable to return successive
|
command lines. While it would be clearer to use a closure pointer,
|
command lines. While it would be clearer to use a closure pointer,
|
it is not expected that any future code will use read_command_lines_1,
|
it is not expected that any future code will use read_command_lines_1,
|
therefore no point of overengineering. */
|
therefore no point of overengineering. */
|
|
|
static char **mi_command_line_array;
|
static char **mi_command_line_array;
|
static int mi_command_line_array_cnt;
|
static int mi_command_line_array_cnt;
|
static int mi_command_line_array_ptr;
|
static int mi_command_line_array_ptr;
|
|
|
static char *
|
static char *
|
mi_read_next_line ()
|
mi_read_next_line ()
|
{
|
{
|
if (mi_command_line_array_ptr == mi_command_line_array_cnt)
|
if (mi_command_line_array_ptr == mi_command_line_array_cnt)
|
return NULL;
|
return NULL;
|
else
|
else
|
return mi_command_line_array[mi_command_line_array_ptr++];
|
return mi_command_line_array[mi_command_line_array_ptr++];
|
}
|
}
|
|
|
void
|
void
|
mi_cmd_break_commands (char *command, char **argv, int argc)
|
mi_cmd_break_commands (char *command, char **argv, int argc)
|
{
|
{
|
struct command_line *break_command;
|
struct command_line *break_command;
|
char *endptr;
|
char *endptr;
|
int bnum;
|
int bnum;
|
struct breakpoint *b;
|
struct breakpoint *b;
|
|
|
if (argc < 1)
|
if (argc < 1)
|
error ("USAGE: %s <BKPT> [<COMMAND> [<COMMAND>...]]", command);
|
error ("USAGE: %s <BKPT> [<COMMAND> [<COMMAND>...]]", command);
|
|
|
bnum = strtol (argv[0], &endptr, 0);
|
bnum = strtol (argv[0], &endptr, 0);
|
if (endptr == argv[0])
|
if (endptr == argv[0])
|
error ("breakpoint number argument \"%s\" is not a number.",
|
error ("breakpoint number argument \"%s\" is not a number.",
|
argv[0]);
|
argv[0]);
|
else if (*endptr != '\0')
|
else if (*endptr != '\0')
|
error ("junk at the end of breakpoint number argument \"%s\".",
|
error ("junk at the end of breakpoint number argument \"%s\".",
|
argv[0]);
|
argv[0]);
|
|
|
b = get_breakpoint (bnum);
|
b = get_breakpoint (bnum);
|
if (b == NULL)
|
if (b == NULL)
|
error ("breakpoint %d not found.", bnum);
|
error ("breakpoint %d not found.", bnum);
|
|
|
mi_command_line_array = argv;
|
mi_command_line_array = argv;
|
mi_command_line_array_ptr = 1;
|
mi_command_line_array_ptr = 1;
|
mi_command_line_array_cnt = argc;
|
mi_command_line_array_cnt = argc;
|
|
|
break_command = read_command_lines_1 (mi_read_next_line, 1);
|
break_command = read_command_lines_1 (mi_read_next_line, 1);
|
breakpoint_set_commands (b, break_command);
|
breakpoint_set_commands (b, break_command);
|
}
|
}
|
|
|
|
|
