gdb/record.c

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