gdb vendor branch: Bring in additional source files
[dragonfly.git] / contrib / gdb-7 / gdb / mi / mi-cmd-break.c
CommitLineData
5796c8dc 1/* MI Command Set - breakpoint and watchpoint commands.
a45ae5f8 2 Copyright (C) 2000-2002, 2007-2012 Free Software Foundation, Inc.
5796c8dc
SS
3 Contributed by Cygnus Solutions (a Red Hat company).
4
5 This file is part of GDB.
6
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.
11
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.
16
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/>. */
19
20#include "defs.h"
21#include "arch-utils.h"
22#include "mi-cmds.h"
23#include "ui-out.h"
24#include "mi-out.h"
25#include "breakpoint.h"
26#include "gdb_string.h"
27#include "mi-getopt.h"
28#include "gdb.h"
29#include "exceptions.h"
30#include "observer.h"
a45ae5f8 31#include "mi-main.h"
5796c8dc
SS
32
33enum
34 {
35 FROM_TTY = 0
36 };
37
38/* True if MI breakpoint observers have been registered. */
39
40static int mi_breakpoint_observers_installed;
41
42/* Control whether breakpoint_notify may act. */
43
44static int mi_can_breakpoint_notify;
45
46/* Output a single breakpoint, when allowed. */
47
48static void
a45ae5f8 49breakpoint_notify (struct breakpoint *b)
5796c8dc
SS
50{
51 if (mi_can_breakpoint_notify)
a45ae5f8 52 gdb_breakpoint_query (current_uiout, b->number, NULL);
5796c8dc
SS
53}
54
55enum bp_type
56 {
57 REG_BP,
58 HW_BP,
59 REGEXP_BP
60 };
61
62/* Implements the -break-insert command.
63 See the MI manual for the list of possible options. */
64
65void
66mi_cmd_break_insert (char *command, char **argv, int argc)
67{
68 char *address = NULL;
cf7f2e2d 69 int hardware = 0;
5796c8dc
SS
70 int temp_p = 0;
71 int thread = -1;
72 int ignore_count = 0;
73 char *condition = NULL;
74 int pending = 0;
75 int enabled = 1;
cf7f2e2d
JM
76 int tracepoint = 0;
77 struct cleanup *back_to;
78 enum bptype type_wanted;
5796c8dc 79
5796c8dc
SS
80 enum opt
81 {
cf7f2e2d
JM
82 HARDWARE_OPT, TEMP_OPT, CONDITION_OPT,
83 IGNORE_COUNT_OPT, THREAD_OPT, PENDING_OPT, DISABLE_OPT,
84 TRACEPOINT_OPT,
5796c8dc 85 };
a45ae5f8 86 static const struct mi_opt opts[] =
5796c8dc
SS
87 {
88 {"h", HARDWARE_OPT, 0},
89 {"t", TEMP_OPT, 0},
90 {"c", CONDITION_OPT, 1},
91 {"i", IGNORE_COUNT_OPT, 1},
92 {"p", THREAD_OPT, 1},
93 {"f", PENDING_OPT, 0},
94 {"d", DISABLE_OPT, 0},
cf7f2e2d 95 {"a", TRACEPOINT_OPT, 0},
5796c8dc
SS
96 { 0, 0, 0 }
97 };
98
99 /* Parse arguments. It could be -r or -h or -t, <location> or ``--''
100 to denote the end of the option list. */
101 int optind = 0;
102 char *optarg;
cf7f2e2d 103
5796c8dc
SS
104 while (1)
105 {
c50c785c
JM
106 int opt = mi_getopt ("-break-insert", argc, argv,
107 opts, &optind, &optarg);
5796c8dc
SS
108 if (opt < 0)
109 break;
110 switch ((enum opt) opt)
111 {
112 case TEMP_OPT:
113 temp_p = 1;
114 break;
115 case HARDWARE_OPT:
cf7f2e2d 116 hardware = 1;
5796c8dc 117 break;
5796c8dc
SS
118 case CONDITION_OPT:
119 condition = optarg;
120 break;
121 case IGNORE_COUNT_OPT:
122 ignore_count = atol (optarg);
123 break;
124 case THREAD_OPT:
125 thread = atol (optarg);
126 break;
127 case PENDING_OPT:
128 pending = 1;
129 break;
130 case DISABLE_OPT:
131 enabled = 0;
cf7f2e2d
JM
132 break;
133 case TRACEPOINT_OPT:
134 tracepoint = 1;
135 break;
5796c8dc
SS
136 }
137 }
138
139 if (optind >= argc)
c50c785c 140 error (_("-break-insert: Missing <location>"));
5796c8dc 141 if (optind < argc - 1)
c50c785c 142 error (_("-break-insert: Garbage following <location>"));
5796c8dc
SS
143 address = argv[optind];
144
145 /* Now we have what we need, let's insert the breakpoint! */
146 if (! mi_breakpoint_observers_installed)
147 {
148 observer_attach_breakpoint_created (breakpoint_notify);
5796c8dc
SS
149 mi_breakpoint_observers_installed = 1;
150 }
151
cf7f2e2d 152 back_to = make_cleanup_restore_integer (&mi_can_breakpoint_notify);
5796c8dc 153 mi_can_breakpoint_notify = 1;
cf7f2e2d
JM
154
155 /* Note that to request a fast tracepoint, the client uses the
156 "hardware" flag, although there's nothing of hardware related to
157 fast tracepoints -- one can implement slow tracepoints with
158 hardware breakpoints, but fast tracepoints are always software.
159 "fast" is a misnomer, actually, "jump" would be more appropriate.
160 A simulator or an emulator could conceivably implement fast
161 regular non-jump based tracepoints. */
162 type_wanted = (tracepoint
163 ? (hardware ? bp_fast_tracepoint : bp_tracepoint)
164 : (hardware ? bp_hardware_breakpoint : bp_breakpoint));
165
166 create_breakpoint (get_current_arch (), address, condition, thread,
167 0 /* condition and thread are valid. */,
168 temp_p, type_wanted,
169 ignore_count,
170 pending ? AUTO_BOOLEAN_TRUE : AUTO_BOOLEAN_FALSE,
a45ae5f8 171 &bkpt_breakpoint_ops, 0, enabled, 0, 0);
cf7f2e2d
JM
172 do_cleanups (back_to);
173
5796c8dc
SS
174}
175
176enum wp_type
177{
178 REG_WP,
179 READ_WP,
180 ACCESS_WP
181};
182
cf7f2e2d
JM
183void
184mi_cmd_break_passcount (char *command, char **argv, int argc)
185{
186 int n;
187 int p;
a45ae5f8 188 struct tracepoint *t;
cf7f2e2d
JM
189
190 if (argc != 2)
191 error (_("Usage: tracepoint-number passcount"));
192
193 n = atoi (argv[0]);
194 p = atoi (argv[1]);
195 t = get_tracepoint (n);
196
197 if (t)
198 {
199 t->pass_count = p;
200 observer_notify_tracepoint_modified (n);
201 }
202 else
203 {
a45ae5f8 204 error (_("Could not find tracepoint %d"), n);
cf7f2e2d
JM
205 }
206}
207
5796c8dc
SS
208/* Insert a watchpoint. The type of watchpoint is specified by the
209 first argument:
210 -break-watch <expr> --> insert a regular wp.
211 -break-watch -r <expr> --> insert a read watchpoint.
212 -break-watch -a <expr> --> insert an access wp. */
213
214void
215mi_cmd_break_watch (char *command, char **argv, int argc)
216{
217 char *expr = NULL;
218 enum wp_type type = REG_WP;
219 enum opt
220 {
221 READ_OPT, ACCESS_OPT
222 };
a45ae5f8 223 static const struct mi_opt opts[] =
5796c8dc
SS
224 {
225 {"r", READ_OPT, 0},
226 {"a", ACCESS_OPT, 0},
227 { 0, 0, 0 }
228 };
229
230 /* Parse arguments. */
231 int optind = 0;
232 char *optarg;
cf7f2e2d 233
5796c8dc
SS
234 while (1)
235 {
c50c785c 236 int opt = mi_getopt ("-break-watch", argc, argv,
cf7f2e2d
JM
237 opts, &optind, &optarg);
238
5796c8dc
SS
239 if (opt < 0)
240 break;
241 switch ((enum opt) opt)
242 {
243 case READ_OPT:
244 type = READ_WP;
245 break;
246 case ACCESS_OPT:
247 type = ACCESS_WP;
248 break;
249 }
250 }
251 if (optind >= argc)
c50c785c 252 error (_("-break-watch: Missing <expression>"));
5796c8dc 253 if (optind < argc - 1)
c50c785c 254 error (_("-break-watch: Garbage following <expression>"));
5796c8dc
SS
255 expr = argv[optind];
256
257 /* Now we have what we need, let's insert the watchpoint! */
258 switch (type)
259 {
260 case REG_WP:
c50c785c 261 watch_command_wrapper (expr, FROM_TTY, 0);
5796c8dc
SS
262 break;
263 case READ_WP:
c50c785c 264 rwatch_command_wrapper (expr, FROM_TTY, 0);
5796c8dc
SS
265 break;
266 case ACCESS_WP:
c50c785c 267 awatch_command_wrapper (expr, FROM_TTY, 0);
5796c8dc
SS
268 break;
269 default:
c50c785c 270 error (_("-break-watch: Unknown watchpoint type."));
5796c8dc
SS
271 }
272}
273
274/* The mi_read_next_line consults these variable to return successive
275 command lines. While it would be clearer to use a closure pointer,
276 it is not expected that any future code will use read_command_lines_1,
277 therefore no point of overengineering. */
278
279static char **mi_command_line_array;
280static int mi_command_line_array_cnt;
281static int mi_command_line_array_ptr;
282
283static char *
cf7f2e2d 284mi_read_next_line (void)
5796c8dc
SS
285{
286 if (mi_command_line_array_ptr == mi_command_line_array_cnt)
287 return NULL;
288 else
289 return mi_command_line_array[mi_command_line_array_ptr++];
290}
291
292void
293mi_cmd_break_commands (char *command, char **argv, int argc)
294{
295 struct command_line *break_command;
296 char *endptr;
297 int bnum;
298 struct breakpoint *b;
299
300 if (argc < 1)
c50c785c 301 error (_("USAGE: %s <BKPT> [<COMMAND> [<COMMAND>...]]"), command);
5796c8dc
SS
302
303 bnum = strtol (argv[0], &endptr, 0);
304 if (endptr == argv[0])
c50c785c 305 error (_("breakpoint number argument \"%s\" is not a number."),
5796c8dc
SS
306 argv[0]);
307 else if (*endptr != '\0')
c50c785c 308 error (_("junk at the end of breakpoint number argument \"%s\"."),
5796c8dc
SS
309 argv[0]);
310
311 b = get_breakpoint (bnum);
312 if (b == NULL)
c50c785c 313 error (_("breakpoint %d not found."), bnum);
5796c8dc
SS
314
315 mi_command_line_array = argv;
316 mi_command_line_array_ptr = 1;
317 mi_command_line_array_cnt = argc;
318
cf7f2e2d
JM
319 if (is_tracepoint (b))
320 break_command = read_command_lines_1 (mi_read_next_line, 1,
321 check_tracepoint_command, b);
322 else
323 break_command = read_command_lines_1 (mi_read_next_line, 1, 0, 0);
324
5796c8dc
SS
325 breakpoint_set_commands (b, break_command);
326}
327