contrib/gdb-7/gdb/mi/mi-cmd-break.c

   1 /* MI Command Set - breakpoint and watchpoint commands.
   2    Copyright (C) 2000, 2001, 2002, 2007, 2008, 2009, 2010, 2011
   3    Free Software Foundation, Inc.
   4    Contributed by Cygnus Solutions (a Red Hat company).
   5
   6    This file is part of GDB.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  20
  21 #include "defs.h"
  22 #include "arch-utils.h"
  23 #include "mi-cmds.h"
  24 #include "ui-out.h"
  25 #include "mi-out.h"
  26 #include "breakpoint.h"
  27 #include "gdb_string.h"
  28 #include "mi-getopt.h"
  29 #include "gdb.h"
  30 #include "exceptions.h"
  31 #include "observer.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 (int b)
  50 {
  51   if (mi_can_breakpoint_notify)
  52     gdb_breakpoint_query (uiout, b, 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
  80   enum opt
  81     {
  82       HARDWARE_OPT, TEMP_OPT, CONDITION_OPT,
  83       IGNORE_COUNT_OPT, THREAD_OPT, PENDING_OPT, DISABLE_OPT,
  84       TRACEPOINT_OPT,
  85     };
  86   static struct mi_opt opts[] =
  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},
  95     {"a", TRACEPOINT_OPT, 0},
  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;
 103
 104   while (1)
 105     {
 106       int opt = mi_getopt ("-break-insert", argc, argv,
 107                            opts, &optind, &optarg);
 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:
 116           hardware = 1;
 117           break;
 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;
 132           break;
 133         case TRACEPOINT_OPT:
 134           tracepoint = 1;
 135           break;
 136         }
 137     }
 138
 139   if (optind >= argc)
 140     error (_("-break-insert: Missing <location>"));
 141   if (optind < argc - 1)
 142     error (_("-break-insert: Garbage following <location>"));
 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);
 149       observer_attach_breakpoint_modified (breakpoint_notify);
 150       observer_attach_breakpoint_deleted (breakpoint_notify);
 151       mi_breakpoint_observers_installed = 1;
 152     }
 153
 154   back_to = make_cleanup_restore_integer (&mi_can_breakpoint_notify);
 155   mi_can_breakpoint_notify = 1;
 156
 157   /* Note that to request a fast tracepoint, the client uses the
 158      "hardware" flag, although there's nothing of hardware related to
 159      fast tracepoints -- one can implement slow tracepoints with
 160      hardware breakpoints, but fast tracepoints are always software.
 161      "fast" is a misnomer, actually, "jump" would be more appropriate.
 162      A simulator or an emulator could conceivably implement fast
 163      regular non-jump based tracepoints.  */
 164   type_wanted = (tracepoint
 165                  ? (hardware ? bp_fast_tracepoint : bp_tracepoint)
 166                  : (hardware ? bp_hardware_breakpoint : bp_breakpoint));
 167
 168   create_breakpoint (get_current_arch (), address, condition, thread,
 169                      0 /* condition and thread are valid.  */,
 170                      temp_p, type_wanted,
 171                      ignore_count,
 172                      pending ? AUTO_BOOLEAN_TRUE : AUTO_BOOLEAN_FALSE,
 173                      NULL, 0, enabled, 0);
 174   do_cleanups (back_to);
 175
 176 }
 177
 178 enum wp_type
 179 {
 180   REG_WP,
 181   READ_WP,
 182   ACCESS_WP
 183 };
 184
 185 void
 186 mi_cmd_break_passcount (char *command, char **argv, int argc)
 187 {
 188   int n;
 189   int p;
 190   struct breakpoint *t;
 191
 192   if (argc != 2)
 193     error (_("Usage: tracepoint-number passcount"));
 194
 195   n = atoi (argv[0]);
 196   p = atoi (argv[1]);
 197   t = get_tracepoint (n);
 198
 199   if (t)
 200     {
 201       t->pass_count = p;
 202       observer_notify_tracepoint_modified (n);
 203     }
 204   else
 205     {
 206       error (_("Cound not find tracepoint %d"), n);
 207     }
 208 }
 209
 210 /* Insert a watchpoint. The type of watchpoint is specified by the
 211    first argument:
 212    -break-watch <expr> --> insert a regular wp.
 213    -break-watch -r <expr> --> insert a read watchpoint.
 214    -break-watch -a <expr> --> insert an access wp. */
 215
 216 void
 217 mi_cmd_break_watch (char *command, char **argv, int argc)
 218 {
 219   char *expr = NULL;
 220   enum wp_type type = REG_WP;
 221   enum opt
 222     {
 223       READ_OPT, ACCESS_OPT
 224     };
 225   static struct mi_opt opts[] =
 226   {
 227     {"r", READ_OPT, 0},
 228     {"a", ACCESS_OPT, 0},
 229     { 0, 0, 0 }
 230   };
 231
 232   /* Parse arguments. */
 233   int optind = 0;
 234   char *optarg;
 235
 236   while (1)
 237     {
 238       int opt = mi_getopt ("-break-watch", argc, argv,
 239                            opts, &optind, &optarg);
 240
 241       if (opt < 0)
 242         break;
 243       switch ((enum opt) opt)
 244         {
 245         case READ_OPT:
 246           type = READ_WP;
 247           break;
 248         case ACCESS_OPT:
 249           type = ACCESS_WP;
 250           break;
 251         }
 252     }
 253   if (optind >= argc)
 254     error (_("-break-watch: Missing <expression>"));
 255   if (optind < argc - 1)
 256     error (_("-break-watch: Garbage following <expression>"));
 257   expr = argv[optind];
 258
 259   /* Now we have what we need, let's insert the watchpoint! */
 260   switch (type)
 261     {
 262     case REG_WP:
 263       watch_command_wrapper (expr, FROM_TTY, 0);
 264       break;
 265     case READ_WP:
 266       rwatch_command_wrapper (expr, FROM_TTY, 0);
 267       break;
 268     case ACCESS_WP:
 269       awatch_command_wrapper (expr, FROM_TTY, 0);
 270       break;
 271     default:
 272       error (_("-break-watch: Unknown watchpoint type."));
 273     }
 274 }
 275
 276 /* The mi_read_next_line consults these variable to return successive
 277    command lines.  While it would be clearer to use a closure pointer,
 278    it is not expected that any future code will use read_command_lines_1,
 279    therefore no point of overengineering.  */
 280
 281 static char **mi_command_line_array;
 282 static int mi_command_line_array_cnt;
 283 static int mi_command_line_array_ptr;
 284
 285 static char *
 286 mi_read_next_line (void)
 287 {
 288   if (mi_command_line_array_ptr == mi_command_line_array_cnt)
 289     return NULL;
 290   else
 291     return mi_command_line_array[mi_command_line_array_ptr++];
 292 }
 293
 294 void
 295 mi_cmd_break_commands (char *command, char **argv, int argc)
 296 {
 297   struct command_line *break_command;
 298   char *endptr;
 299   int bnum;
 300   struct breakpoint *b;
 301
 302   if (argc < 1)
 303     error (_("USAGE: %s <BKPT> [<COMMAND> [<COMMAND>...]]"), command);
 304
 305   bnum = strtol (argv[0], &endptr, 0);
 306   if (endptr == argv[0])
 307     error (_("breakpoint number argument \"%s\" is not a number."),
 308            argv[0]);
 309   else if (*endptr != '\0')
 310     error (_("junk at the end of breakpoint number argument \"%s\"."),
 311            argv[0]);
 312
 313   b = get_breakpoint (bnum);
 314   if (b == NULL)
 315     error (_("breakpoint %d not found."), bnum);
 316
 317   mi_command_line_array = argv;
 318   mi_command_line_array_ptr = 1;
 319   mi_command_line_array_cnt = argc;
 320
 321   if (is_tracepoint (b))
 322     break_command = read_command_lines_1 (mi_read_next_line, 1,
 323                                           check_tracepoint_command, b);
 324   else
 325     break_command = read_command_lines_1 (mi_read_next_line, 1, 0, 0);
 326
 327   breakpoint_set_commands (b, break_command);
 328 }
 329