gdb/record.c

   1 /* Process record and replay target for GDB, the GNU debugger.
   2
   3    Copyright (C) 2008-2024 Free Software Foundation, Inc.
   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 "gdbcmd.h"
  21 #include "completer.h"
  22 #include "record.h"
  23 #include "observable.h"
  24 #include "inferior.h"
  25 #include "gdbsupport/common-utils.h"
  26 #include "cli/cli-utils.h"
  27 #include "disasm.h"
  28 #include "interps.h"
  29
  30 #include <ctype.h>
  31
  32 /* This is the debug switch for process record.  */
  33 unsigned int record_debug = 0;
  34
  35 /* The number of instructions to print in "record instruction-history".  */
  36 static unsigned int record_insn_history_size = 10;
  37
  38 /* The variable registered as control variable in the "record
  39    instruction-history" command.  Necessary for extra input
  40    validation.  */
  41 static unsigned int record_insn_history_size_setshow_var;
  42
  43 /* The number of functions to print in "record function-call-history".  */
  44 static unsigned int record_call_history_size = 10;
  45
  46 /* The variable registered as control variable in the "record
  47    call-history" command.  Necessary for extra input validation.  */
  48 static unsigned int record_call_history_size_setshow_var;
  49
  50 struct cmd_list_element *record_cmdlist = NULL;
  51 static struct cmd_list_element *record_goto_cmdlist = NULL;
  52 struct cmd_list_element *set_record_cmdlist = NULL;
  53 struct cmd_list_element *show_record_cmdlist = NULL;
  54 struct cmd_list_element *info_record_cmdlist = NULL;
  55
  56 #define DEBUG(msg, args...)                                             \
  57   if (record_debug)                                                     \
  58     gdb_printf (gdb_stdlog, "record: " msg "\n", ##args)
  59
  60 /* See record.h.  */
  61
  62 struct target_ops *
  63 find_record_target (void)
  64 {
  65   return find_target_at (record_stratum);
  66 }
  67
  68 /* Check that recording is active.  Throw an error, if it isn't.  */
  69
  70 static struct target_ops *
  71 require_record_target (void)
  72 {
  73   struct target_ops *t;
  74
  75   t = find_record_target ();
  76   if (t == NULL)
  77     error (_("No recording is currently active.\n"
  78              "Use the \"record full\" or \"record btrace\" command first."));
  79
  80   return t;
  81 }
  82
  83 /* See record.h.  */
  84
  85 void
  86 record_preopen (void)
  87 {
  88   /* Check if a record target is already running.  */
  89   if (find_record_target () != NULL)
  90     error (_("The process is already being recorded.  Use \"record stop\" to "
  91              "stop recording first."));
  92 }
  93
  94 /* See record.h.  */
  95
  96 void
  97 record_start (const char *method, const char *format, int from_tty)
  98 {
  99   if (method == NULL)
 100     {
 101       if (format == NULL)
 102         execute_command_to_string ("record", from_tty, false);
 103       else
 104         error (_("Invalid format."));
 105     }
 106   else if (strcmp (method, "full") == 0)
 107     {
 108       if (format == NULL)
 109         execute_command_to_string ("record full", from_tty, false);
 110       else
 111         error (_("Invalid format."));
 112     }
 113   else if (strcmp (method, "btrace") == 0)
 114     {
 115       if (format == NULL)
 116         execute_command_to_string ("record btrace", from_tty, false);
 117       else if (strcmp (format, "bts") == 0)
 118         execute_command_to_string ("record btrace bts", from_tty, false);
 119       else if (strcmp (format, "pt") == 0)
 120         execute_command_to_string ("record btrace pt", from_tty, false);
 121       else
 122         error (_("Invalid format."));
 123     }
 124   else
 125     error (_("Invalid method."));
 126 }
 127
 128 /* See record.h.  */
 129
 130 void
 131 record_stop (int from_tty)
 132 {
 133   execute_command_to_string ("record stop", from_tty, false);
 134 }
 135
 136 /* See record.h.  */
 137
 138 int
 139 record_read_memory (struct gdbarch *gdbarch,
 140                     CORE_ADDR memaddr, gdb_byte *myaddr,
 141                     ssize_t len)
 142 {
 143   int ret = target_read_memory (memaddr, myaddr, len);
 144
 145   if (ret != 0)
 146     DEBUG ("error reading memory at addr %s len = %ld.\n",
 147            paddress (gdbarch, memaddr), (long) len);
 148
 149   return ret;
 150 }
 151
 152 /* Stop recording.  */
 153
 154 static void
 155 record_stop (struct target_ops *t)
 156 {
 157   DEBUG ("stop %s", t->shortname ());
 158
 159   t->stop_recording ();
 160 }
 161
 162 /* Unpush the record target.  */
 163
 164 static void
 165 record_unpush (struct target_ops *t)
 166 {
 167   DEBUG ("unpush %s", t->shortname ());
 168
 169   current_inferior ()->unpush_target (t);
 170 }
 171
 172 /* See record.h.  */
 173
 174 void
 175 record_disconnect (struct target_ops *t, const char *args, int from_tty)
 176 {
 177   gdb_assert (t->stratum () == record_stratum);
 178
 179   DEBUG ("disconnect %s", t->shortname ());
 180
 181   record_stop (t);
 182   record_unpush (t);
 183
 184   target_disconnect (args, from_tty);
 185 }
 186
 187 /* See record.h.  */
 188
 189 void
 190 record_detach (struct target_ops *t, inferior *inf, int from_tty)
 191 {
 192   gdb_assert (t->stratum () == record_stratum);
 193
 194   DEBUG ("detach %s", t->shortname ());
 195
 196   record_stop (t);
 197   record_unpush (t);
 198
 199   target_detach (inf, from_tty);
 200 }
 201
 202 /* See record.h.  */
 203
 204 void
 205 record_mourn_inferior (struct target_ops *t)
 206 {
 207   gdb_assert (t->stratum () == record_stratum);
 208
 209   DEBUG ("mourn inferior %s", t->shortname ());
 210
 211   /* It is safer to not stop recording.  Resources will be freed when
 212      threads are discarded.  */
 213   record_unpush (t);
 214
 215   target_mourn_inferior (inferior_ptid);
 216 }
 217
 218 /* See record.h.  */
 219
 220 void
 221 record_kill (struct target_ops *t)
 222 {
 223   gdb_assert (t->stratum () == record_stratum);
 224
 225   DEBUG ("kill %s", t->shortname ());
 226
 227   /* It is safer to not stop recording.  Resources will be freed when
 228      threads are discarded.  */
 229   record_unpush (t);
 230
 231   target_kill ();
 232 }
 233
 234 /* See record.h.  */
 235
 236 int
 237 record_check_stopped_by_breakpoint (const address_space *aspace,
 238                                     CORE_ADDR pc,
 239                                     enum target_stop_reason *reason)
 240 {
 241   if (breakpoint_inserted_here_p (aspace, pc))
 242     {
 243       if (hardware_breakpoint_inserted_here_p (aspace, pc))
 244         *reason = TARGET_STOPPED_BY_HW_BREAKPOINT;
 245       else
 246         *reason = TARGET_STOPPED_BY_SW_BREAKPOINT;
 247       return 1;
 248     }
 249
 250   return 0;
 251 }
 252
 253 /* Implement "show record debug" command.  */
 254
 255 static void
 256 show_record_debug (struct ui_file *file, int from_tty,
 257                    struct cmd_list_element *c, const char *value)
 258 {
 259   gdb_printf (file, _("Debugging of process record target is %s.\n"),
 260               value);
 261 }
 262
 263 /* Alias for "target record-full".  */
 264
 265 static void
 266 cmd_record_start (const char *args, int from_tty)
 267 {
 268   /* As 'record' is a prefix command then if the user types 'record blah'
 269      GDB will search for the 'blah' sub-command and either run that instead
 270      of calling this function, or throw an error if 'blah' doesn't exist.
 271      As a result, we only get here if no args are given.  */
 272   gdb_assert (args == nullptr);
 273   execute_command ("target record-full", from_tty);
 274 }
 275
 276 /* Truncate the record log from the present point
 277    of replay until the end.  */
 278
 279 static void
 280 cmd_record_delete (const char *args, int from_tty)
 281 {
 282   require_record_target ();
 283
 284   if (!target_record_is_replaying (inferior_ptid))
 285     {
 286       gdb_printf (_("Already at end of record list.\n"));
 287       return;
 288     }
 289
 290   if (!target_supports_delete_record ())
 291     {
 292       gdb_printf (_("The current record target does not support "
 293                     "this operation.\n"));
 294       return;
 295     }
 296
 297   if (!from_tty || query (_("Delete the log from this point forward "
 298                             "and begin to record the running message "
 299                             "at current PC?")))
 300     target_delete_record ();
 301 }
 302
 303 /* Implement the "stoprecord" or "record stop" command.  */
 304
 305 static void
 306 cmd_record_stop (const char *args, int from_tty)
 307 {
 308   struct target_ops *t;
 309
 310   t = require_record_target ();
 311
 312   record_stop (t);
 313   record_unpush (t);
 314
 315   gdb_printf (_("Process record is stopped and all execution "
 316                 "logs are deleted.\n"));
 317
 318   interps_notify_record_changed (current_inferior (), 0, NULL, NULL);
 319 }
 320
 321
 322 /* The "info record" command.  */
 323
 324 static void
 325 info_record_command (const char *args, int from_tty)
 326 {
 327   struct target_ops *t;
 328
 329   t = find_record_target ();
 330   if (t == NULL)
 331     {
 332       gdb_printf (_("No recording is currently active.\n"));
 333       return;
 334     }
 335
 336   gdb_printf (_("Active record target: %s\n"), t->shortname ());
 337   t->info_record ();
 338 }
 339
 340 /* The "record save" command.  */
 341
 342 static void
 343 cmd_record_save (const char *args, int from_tty)
 344 {
 345   const char *recfilename;
 346   char recfilename_buffer[40];
 347
 348   require_record_target ();
 349
 350   if (args != NULL && *args != 0)
 351     recfilename = args;
 352   else
 353     {
 354       /* Default recfile name is "gdb_record.PID".  */
 355       xsnprintf (recfilename_buffer, sizeof (recfilename_buffer),
 356                 "gdb_record.%d", inferior_ptid.pid ());
 357       recfilename = recfilename_buffer;
 358     }
 359
 360   target_save_record (recfilename);
 361 }
 362
 363 /* See record.h.  */
 364
 365 void
 366 record_goto (const char *arg)
 367 {
 368   ULONGEST insn;
 369
 370   if (arg == NULL || *arg == '\0')
 371     error (_("Command requires an argument (insn number to go to)."));
 372
 373   insn = parse_and_eval_long (arg);
 374
 375   require_record_target ();
 376   target_goto_record (insn);
 377 }
 378
 379 /* "record goto" command.  Argument is an instruction number,
 380    as given by "info record".
 381
 382    Rewinds the recording (forward or backward) to the given instruction.  */
 383
 384 static void
 385 cmd_record_goto (const char *arg, int from_tty)
 386 {
 387   record_goto (arg);
 388 }
 389
 390 /* The "record goto begin" command.  */
 391
 392 static void
 393 cmd_record_goto_begin (const char *arg, int from_tty)
 394 {
 395   if (arg != NULL && *arg != '\0')
 396     error (_("Junk after argument: %s."), arg);
 397
 398   require_record_target ();
 399   target_goto_record_begin ();
 400 }
 401
 402 /* The "record goto end" command.  */
 403
 404 static void
 405 cmd_record_goto_end (const char *arg, int from_tty)
 406 {
 407   if (arg != NULL && *arg != '\0')
 408     error (_("Junk after argument: %s."), arg);
 409
 410   require_record_target ();
 411   target_goto_record_end ();
 412 }
 413
 414 /* Read an instruction number from an argument string.  */
 415
 416 static ULONGEST
 417 get_insn_number (const char **arg)
 418 {
 419   ULONGEST number;
 420   const char *begin, *end, *pos;
 421
 422   begin = *arg;
 423   pos = skip_spaces (begin);
 424
 425   if (!isdigit (*pos))
 426     error (_("Expected positive number, got: %s."), pos);
 427
 428   number = strtoulst (pos, &end, 10);
 429
 430   *arg += (end - begin);
 431
 432   return number;
 433 }
 434
 435 /* Read a context size from an argument string.  */
 436
 437 static int
 438 get_context_size (const char **arg)
 439 {
 440   const char *pos;
 441   char *end;
 442
 443   pos = skip_spaces (*arg);
 444
 445   if (!isdigit (*pos))
 446     error (_("Expected positive number, got: %s."), pos);
 447
 448   long result = strtol (pos, &end, 10);
 449   *arg = end;
 450   return result;
 451 }
 452
 453 /* Complain about junk at the end of an argument string.  */
 454
 455 static void
 456 no_chunk (const char *arg)
 457 {
 458   if (*arg != 0)
 459     error (_("Junk after argument: %s."), arg);
 460 }
 461
 462 /* Read instruction-history modifiers from an argument string.  */
 463
 464 static gdb_disassembly_flags
 465 get_insn_history_modifiers (const char **arg)
 466 {
 467   gdb_disassembly_flags modifiers;
 468   const char *args;
 469
 470   modifiers = 0;
 471   args = *arg;
 472
 473   if (args == NULL)
 474     return modifiers;
 475
 476   while (*args == '/')
 477     {
 478       ++args;
 479
 480       if (*args == '\0')
 481         error (_("Missing modifier."));
 482
 483       for (; *args; ++args)
 484         {
 485           if (isspace (*args))
 486             break;
 487
 488           if (*args == '/')
 489             continue;
 490
 491           switch (*args)
 492             {
 493             case 'm':
 494             case 's':
 495               modifiers |= DISASSEMBLY_SOURCE;
 496               modifiers |= DISASSEMBLY_FILENAME;
 497               break;
 498             case 'r':
 499               modifiers |= DISASSEMBLY_RAW_INSN;
 500               break;
 501             case 'b':
 502               modifiers |= DISASSEMBLY_RAW_BYTES;
 503               break;
 504             case 'f':
 505               modifiers |= DISASSEMBLY_OMIT_FNAME;
 506               break;
 507             case 'p':
 508               modifiers |= DISASSEMBLY_OMIT_PC;
 509               break;
 510             default:
 511               error (_("Invalid modifier: %c."), *args);
 512             }
 513         }
 514
 515       args = skip_spaces (args);
 516     }
 517
 518   /* Update the argument string.  */
 519   *arg = args;
 520
 521   return modifiers;
 522 }
 523
 524 /* The "set record instruction-history-size / set record
 525    function-call-history-size" commands are unsigned, with UINT_MAX
 526    meaning unlimited.  The target interfaces works with signed int
 527    though, to indicate direction, so map "unlimited" to INT_MAX, which
 528    is about the same as unlimited in practice.  If the user does have
 529    a log that huge, she can fetch it in chunks across several requests,
 530    but she'll likely have other problems first...  */
 531
 532 static int
 533 command_size_to_target_size (unsigned int size)
 534 {
 535   gdb_assert (size <= INT_MAX || size == UINT_MAX);
 536
 537   if (size == UINT_MAX)
 538     return INT_MAX;
 539   else
 540     return size;
 541 }
 542
 543 /* The "record instruction-history" command.  */
 544
 545 static void
 546 cmd_record_insn_history (const char *arg, int from_tty)
 547 {
 548   require_record_target ();
 549
 550   gdb_disassembly_flags flags = get_insn_history_modifiers (&arg);
 551
 552   int size = command_size_to_target_size (record_insn_history_size);
 553
 554   if (arg == NULL || *arg == 0 || strcmp (arg, "+") == 0)
 555     target_insn_history (size, flags);
 556   else if (strcmp (arg, "-") == 0)
 557     target_insn_history (-size, flags);
 558   else
 559     {
 560       ULONGEST begin, end;
 561
 562       begin = get_insn_number (&arg);
 563
 564       if (*arg == ',')
 565         {
 566           arg = skip_spaces (++arg);
 567
 568           if (*arg == '+')
 569             {
 570               arg += 1;
 571               size = get_context_size (&arg);
 572
 573               no_chunk (arg);
 574
 575               target_insn_history_from (begin, size, flags);
 576             }
 577           else if (*arg == '-')
 578             {
 579               arg += 1;
 580               size = get_context_size (&arg);
 581
 582               no_chunk (arg);
 583
 584               target_insn_history_from (begin, -size, flags);
 585             }
 586           else
 587             {
 588               end = get_insn_number (&arg);
 589
 590               no_chunk (arg);
 591
 592               target_insn_history_range (begin, end, flags);
 593             }
 594         }
 595       else
 596         {
 597           no_chunk (arg);
 598
 599           target_insn_history_from (begin, size, flags);
 600         }
 601
 602       dont_repeat ();
 603     }
 604 }
 605
 606 /* Read function-call-history modifiers from an argument string.  */
 607
 608 static record_print_flags
 609 get_call_history_modifiers (const char **arg)
 610 {
 611   record_print_flags modifiers = 0;
 612   const char *args = *arg;
 613
 614   if (args == NULL)
 615     return modifiers;
 616
 617   while (*args == '/')
 618     {
 619       ++args;
 620
 621       if (*args == '\0')
 622         error (_("Missing modifier."));
 623
 624       for (; *args; ++args)
 625         {
 626           if (isspace (*args))
 627             break;
 628
 629           if (*args == '/')
 630             continue;
 631
 632           switch (*args)
 633             {
 634             case 'l':
 635               modifiers |= RECORD_PRINT_SRC_LINE;
 636               break;
 637             case 'i':
 638               modifiers |= RECORD_PRINT_INSN_RANGE;
 639               break;
 640             case 'c':
 641               modifiers |= RECORD_PRINT_INDENT_CALLS;
 642               break;
 643             default:
 644               error (_("Invalid modifier: %c."), *args);
 645             }
 646         }
 647
 648       args = skip_spaces (args);
 649     }
 650
 651   /* Update the argument string.  */
 652   *arg = args;
 653
 654   return modifiers;
 655 }
 656
 657 /* The "record function-call-history" command.  */
 658
 659 static void
 660 cmd_record_call_history (const char *arg, int from_tty)
 661 {
 662   require_record_target ();
 663
 664   record_print_flags flags = get_call_history_modifiers (&arg);
 665
 666   int size = command_size_to_target_size (record_call_history_size);
 667
 668   if (arg == NULL || *arg == 0 || strcmp (arg, "+") == 0)
 669     target_call_history (size, flags);
 670   else if (strcmp (arg, "-") == 0)
 671     target_call_history (-size, flags);
 672   else
 673     {
 674       ULONGEST begin, end;
 675
 676       begin = get_insn_number (&arg);
 677
 678       if (*arg == ',')
 679         {
 680           arg = skip_spaces (++arg);
 681
 682           if (*arg == '+')
 683             {
 684               arg += 1;
 685               size = get_context_size (&arg);
 686
 687               no_chunk (arg);
 688
 689               target_call_history_from (begin, size, flags);
 690             }
 691           else if (*arg == '-')
 692             {
 693               arg += 1;
 694               size = get_context_size (&arg);
 695
 696               no_chunk (arg);
 697
 698               target_call_history_from (begin, -size, flags);
 699             }
 700           else
 701             {
 702               end = get_insn_number (&arg);
 703
 704               no_chunk (arg);
 705
 706               target_call_history_range (begin, end, flags);
 707             }
 708         }
 709       else
 710         {
 711           no_chunk (arg);
 712
 713           target_call_history_from (begin, size, flags);
 714         }
 715
 716       dont_repeat ();
 717     }
 718 }
 719
 720 /* Helper for "set record instruction-history-size" and "set record
 721    function-call-history-size" input validation.  COMMAND_VAR is the
 722    variable registered in the command as control variable.  *SETTING
 723    is the real setting the command allows changing.  */
 724
 725 static void
 726 validate_history_size (unsigned int *command_var, unsigned int *setting)
 727 {
 728   if (*command_var != UINT_MAX && *command_var > INT_MAX)
 729     {
 730       unsigned int new_value = *command_var;
 731
 732       /* Restore previous value.  */
 733       *command_var = *setting;
 734       error (_("integer %u out of range"), new_value);
 735     }
 736
 737   /* Commit new value.  */
 738   *setting = *command_var;
 739 }
 740
 741 /* Called by do_setshow_command.  We only want values in the
 742    [0..INT_MAX] range, while the command's machinery accepts
 743    [0..UINT_MAX].  See command_size_to_target_size.  */
 744
 745 static void
 746 set_record_insn_history_size (const char *args, int from_tty,
 747                               struct cmd_list_element *c)
 748 {
 749   validate_history_size (&record_insn_history_size_setshow_var,
 750                          &record_insn_history_size);
 751 }
 752
 753 /* Called by do_setshow_command.  We only want values in the
 754    [0..INT_MAX] range, while the command's machinery accepts
 755    [0..UINT_MAX].  See command_size_to_target_size.  */
 756
 757 static void
 758 set_record_call_history_size (const char *args, int from_tty,
 759                               struct cmd_list_element *c)
 760 {
 761   validate_history_size (&record_call_history_size_setshow_var,
 762                          &record_call_history_size);
 763 }
 764
 765 void _initialize_record ();
 766 void
 767 _initialize_record ()
 768 {
 769   struct cmd_list_element *c;
 770
 771   add_setshow_zuinteger_cmd ("record", no_class, &record_debug,
 772                              _("Set debugging of record/replay feature."),
 773                              _("Show debugging of record/replay feature."),
 774                              _("When enabled, debugging output for "
 775                                "record/replay feature is displayed."),
 776                              NULL, show_record_debug, &setdebuglist,
 777                              &showdebuglist);
 778
 779   add_setshow_uinteger_cmd ("instruction-history-size", no_class,
 780                             &record_insn_history_size_setshow_var, _("\
 781 Set number of instructions to print in \"record instruction-history\"."), _("\
 782 Show number of instructions to print in \"record instruction-history\"."), _("\
 783 A size of \"unlimited\" means unlimited instructions.  The default is 10."),
 784                             set_record_insn_history_size, NULL,
 785                             &set_record_cmdlist, &show_record_cmdlist);
 786
 787   add_setshow_uinteger_cmd ("function-call-history-size", no_class,
 788                             &record_call_history_size_setshow_var, _("\
 789 Set number of function to print in \"record function-call-history\"."), _("\
 790 Show number of functions to print in \"record function-call-history\"."), _("\
 791 A size of \"unlimited\" means unlimited lines.  The default is 10."),
 792                             set_record_call_history_size, NULL,
 793                             &set_record_cmdlist, &show_record_cmdlist);
 794
 795   cmd_list_element *record_cmd
 796     = add_prefix_cmd ("record", class_obscure, cmd_record_start,
 797                       _("Start recording."),
 798                       &record_cmdlist, 0, &cmdlist);
 799   add_com_alias ("rec", record_cmd, class_obscure, 1);
 800
 801   set_show_commands setshow_record_cmds
 802     = add_setshow_prefix_cmd ("record", class_support,
 803                               _("Set record options."),
 804                               _("Show record options."),
 805                               &set_record_cmdlist, &show_record_cmdlist,
 806                               &setlist, &showlist);
 807
 808
 809   add_alias_cmd ("rec", setshow_record_cmds.set, class_obscure, 1, &setlist);
 810   add_alias_cmd ("rec", setshow_record_cmds.show, class_obscure, 1, &showlist);
 811
 812   cmd_list_element *info_record_cmd
 813     = add_prefix_cmd ("record", class_support, info_record_command,
 814                       _("Info record options."), &info_record_cmdlist,
 815                       0, &infolist);
 816   add_alias_cmd ("rec", info_record_cmd, class_obscure, 1, &infolist);
 817
 818   c = add_cmd ("save", class_obscure, cmd_record_save,
 819                _("Save the execution log to a file.\n\
 820 Usage: record save [FILENAME]\n\
 821 Default filename is 'gdb_record.PROCESS_ID'."),
 822                &record_cmdlist);
 823   set_cmd_completer (c, filename_completer);
 824
 825   cmd_list_element *record_delete_cmd
 826     =  add_cmd ("delete", class_obscure, cmd_record_delete,
 827                 _("Delete the rest of execution log and start recording it \
 828 anew."),
 829             &record_cmdlist);
 830   add_alias_cmd ("d", record_delete_cmd, class_obscure, 1, &record_cmdlist);
 831   add_alias_cmd ("del", record_delete_cmd, class_obscure, 1, &record_cmdlist);
 832
 833   cmd_list_element *record_stop_cmd
 834     = add_cmd ("stop", class_obscure, cmd_record_stop,
 835                _("Stop the record/replay target."),
 836                &record_cmdlist);
 837   add_alias_cmd ("s", record_stop_cmd, class_obscure, 1, &record_cmdlist);
 838
 839   add_prefix_cmd ("goto", class_obscure, cmd_record_goto, _("\
 840 Restore the program to its state at instruction number N.\n\
 841 Argument is instruction number, as shown by 'info record'."),
 842                   &record_goto_cmdlist, 1, &record_cmdlist);
 843
 844   cmd_list_element *record_goto_begin_cmd
 845     = add_cmd ("begin", class_obscure, cmd_record_goto_begin,
 846                _("Go to the beginning of the execution log."),
 847                &record_goto_cmdlist);
 848   add_alias_cmd ("start", record_goto_begin_cmd, class_obscure, 1,
 849                  &record_goto_cmdlist);
 850
 851   add_cmd ("end", class_obscure, cmd_record_goto_end,
 852            _("Go to the end of the execution log."),
 853            &record_goto_cmdlist);
 854
 855   add_cmd ("instruction-history", class_obscure, cmd_record_insn_history, _("\
 856 Print disassembled instructions stored in the execution log.\n\
 857 With a /m or /s modifier, source lines are included (if available).\n\
 858 With a /r modifier, raw instructions in hex are included.\n\
 859 With a /f modifier, function names are omitted.\n\
 860 With a /p modifier, current position markers are omitted.\n\
 861 With no argument, disassembles ten more instructions after the previous \
 862 disassembly.\n\
 863 \"record instruction-history -\" disassembles ten instructions before a \
 864 previous disassembly.\n\
 865 One argument specifies an instruction number as shown by 'info record', and \
 866 ten instructions are disassembled after that instruction.\n\
 867 Two arguments with comma between them specify starting and ending instruction \
 868 numbers to disassemble.\n\
 869 If the second argument is preceded by '+' or '-', it specifies the distance \
 870 from the first argument.\n\
 871 The number of instructions to disassemble can be defined with \"set record \
 872 instruction-history-size\"."),
 873            &record_cmdlist);
 874
 875   add_cmd ("function-call-history", class_obscure, cmd_record_call_history, _("\
 876 Prints the execution history at function granularity.\n\
 877 It prints one line for each sequence of instructions that belong to the same \
 878 function.\n\
 879 Without modifiers, it prints the function name.\n\
 880 With a /l modifier, the source file and line number range is included.\n\
 881 With a /i modifier, the instruction number range is included.\n\
 882 With a /c modifier, the output is indented based on the call stack depth.\n\
 883 With no argument, prints ten more lines after the previous ten-line print.\n\
 884 \"record function-call-history -\" prints ten lines before a previous ten-line \
 885 print.\n\
 886 One argument specifies a function number as shown by 'info record', and \
 887 ten lines are printed after that function.\n\
 888 Two arguments with comma between them specify a range of functions to print.\n\
 889 If the second argument is preceded by '+' or '-', it specifies the distance \
 890 from the first argument.\n\
 891 The number of functions to print can be defined with \"set record \
 892 function-call-history-size\"."),
 893            &record_cmdlist);
 894
 895   /* Sync command control variables.  */
 896   record_insn_history_size_setshow_var = record_insn_history_size;
 897   record_call_history_size_setshow_var = record_call_history_size;
 898 }