gdb/mi/mi-cmd-break.c

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