/usr/src/gnu/usr.bin/binutils/gdb/cli/cli-cmds.c

Bug Summary

File:	src/gnu/usr.bin/binutils/gdb/cli/cli-cmds.c
Warning:	line 518, column 34 This function call is prohibited after a successful vfork
Annotated Source Code

Press '?' to see keyboard shortcuts
Show analyzer invocation
clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name cli-cmds.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/gnu/usr.bin/binutils/obj/gdb -resource-dir /usr/local/lib/clang/13.0.0 -D PIE_DEFAULT=1 -I . -I /usr/src/gnu/usr.bin/binutils/gdb -I /usr/src/gnu/usr.bin/binutils/gdb/config -D LOCALEDIR="/usr/share/locale" -D HAVE_CONFIG_H -I /usr/src/gnu/usr.bin/binutils/gdb/../include/opcode -I ../bfd -I /usr/src/gnu/usr.bin/binutils/gdb/../bfd -I /usr/src/gnu/usr.bin/binutils/gdb/../include -I ../intl -I /usr/src/gnu/usr.bin/binutils/gdb/../intl -D MI_OUT=1 -D TUI=1 -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/gnu/usr.bin/binutils/obj/gdb -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -fcommon -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/gnu/usr.bin/binutils/gdb/cli/cli-cmds.c
1/* GDB CLI commands.

 Copyright 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.

 This file is part of GDB.

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */

22#include "defs.h"
23#include "readline/readline.h"
24#include "readline/tilde.h"
25#include "completer.h"
26#include "target.h"	 /* For baud_rate, remote_debug and remote_timeout */
27#include "gdb_wait.h"		/* For shell escape implementation */
28#include "gdb_regex.h"		/* Used by apropos_command */
29#include "gdb_string.h"
30#include "gdb_vfork.h"
31#include "linespec.h"
32#include "expression.h"
33#include "frame.h"
34#include "value.h"
35#include "language.h"
36#include "filenames.h"		/* for DOSish file names */
37#include "objfiles.h"
38#include "source.h"
39#include "disasm.h"

41#include "ui-out.h"

43#include "top.h"
44#include "cli/cli-decode.h"
45#include "cli/cli-script.h"
46#include "cli/cli-setshow.h"
47#include "cli/cli-cmds.h"

49#ifdef TUI1
50#include "tui/tui.h"		/* For tui_active et.al.   */
51#endif

53#ifndef GDBINIT_FILENAME".gdbinit"
54#define GDBINIT_FILENAME".gdbinit"        ".gdbinit"
55#endif

57/* Prototypes for local command functions */

59static void complete_command (char *, int);

61static void echo_command (char *, int);

63static void pwd_command (char *, int);

65static void show_version (char *, int);

67static void help_command (char *, int);

69static void show_command (char *, int);

71static void info_command (char *, int);

73static void show_debug (char *, int);

75static void set_debug (char *, int);

77static void show_user (char *, int);

79static void make_command (char *, int);

81static void shell_escape (char *, int);

83static void edit_command (char *, int);

85static void list_command (char *, int);

87void apropos_command (char *, int);

89/* Prototypes for local utility functions */

91static void ambiguous_line_spec (struct symtabs_and_lines *);
92
93/* Limit the call depth of user-defined commands */
94int max_user_call_depth;

96/* Define all cmd_list_elements.  */

98/* Chain containing all defined commands.  */

100struct cmd_list_element *cmdlist;

102/* Chain containing all defined info subcommands.  */

104struct cmd_list_element *infolist;

106/* Chain containing all defined enable subcommands. */

108struct cmd_list_element *enablelist;

110/* Chain containing all defined disable subcommands. */

112struct cmd_list_element *disablelist;

114/* Chain containing all defined toggle subcommands. */

116struct cmd_list_element *togglelist;

118/* Chain containing all defined stop subcommands. */

120struct cmd_list_element *stoplist;

122/* Chain containing all defined delete subcommands. */

124struct cmd_list_element *deletelist;

126/* Chain containing all defined "enable breakpoint" subcommands. */

128struct cmd_list_element *enablebreaklist;

130/* Chain containing all defined set subcommands */

132struct cmd_list_element *setlist;

134/* Chain containing all defined unset subcommands */

136struct cmd_list_element *unsetlist;

138/* Chain containing all defined show subcommands.  */

140struct cmd_list_element *showlist;

142/* Chain containing all defined \"set history\".  */

144struct cmd_list_element *sethistlist;

146/* Chain containing all defined \"show history\".  */

148struct cmd_list_element *showhistlist;

150/* Chain containing all defined \"unset history\".  */

152struct cmd_list_element *unsethistlist;

154/* Chain containing all defined maintenance subcommands. */

156struct cmd_list_element *maintenancelist;

158/* Chain containing all defined "maintenance info" subcommands. */

160struct cmd_list_element *maintenanceinfolist;

162/* Chain containing all defined "maintenance print" subcommands. */

164struct cmd_list_element *maintenanceprintlist;

166struct cmd_list_element *setprintlist;

168struct cmd_list_element *showprintlist;

170struct cmd_list_element *setdebuglist;

172struct cmd_list_element *showdebuglist;

174struct cmd_list_element *setchecklist;

176struct cmd_list_element *showchecklist;
177
178/* Utility used everywhere when at least one argument is needed and
 none is supplied. */

181void
182error_no_arg (char *why)
183{
error ("Argument required (%s).", why);
185}

187/* The "info" command is defined as a prefix, with allow_unknown = 0.
 Therefore, its own definition is called only for "info" with no args.  */

190static void
191info_command (char *arg, int from_tty)
192{
printf_unfiltered ("\"info\" must be followed by the name of an info command.\n");
help_list (infolist, "info ", -1, gdb_stdout);
195}

197/* The "show" command with no arguments shows all the settings.  */

199static void
200show_command (char *arg, int from_tty)
201{
cmd_show_list (showlist, from_tty, "");
203}
204
205/* Provide documentation on command or list given by COMMAND.  FROM_TTY
 is ignored.  */

208static void
209help_command (char *command, int from_tty)
210{
help_cmd (command, gdb_stdout);
212}
213
214/* String compare function for qsort.  */
215static int
216compare_strings (const void *arg1, const void *arg2)
217{
const char **s1 = (const char **) arg1;
const char **s2 = (const char **) arg2;
return strcmp (*s1, *s2);
221}

223/* The "complete" command is used by Emacs to implement completion.  */

225static void
226complete_command (char *arg, int from_tty)
227{
int i;
int argpoint;
char **completions, *point, *arg_prefix;

dont_repeat ();

if (arg == NULL((void*)0))
  arg = "";
argpoint = strlen (arg);

/* complete_line assumes that its first argument is somewhere within,
   and except for filenames at the beginning of, the word to be completed.
   The following crude imitation of readline's word-breaking tries to
   accomodate this.  */
point = arg + argpoint;
while (point > arg)
  {
    if (strchr (rl_completer_word_break_characters, point[-1]) != 0)
      break;
    point--;
  }

arg_prefix = alloca (point - arg + 1)__builtin_alloca(point - arg + 1);
memcpy (arg_prefix, arg, point - arg);
arg_prefix[point - arg] = 0;

completions = complete_line (point, arg, argpoint);

if (completions)
  {
    int item, size;

    for (size = 0; completions[size]; ++size)
;
    qsort (completions, size, sizeof (char *), compare_strings);

    /* We do extra processing here since we only want to print each
unique item once.  */
    item = 0;
    while (item < size)
{
 int next_item;
 printf_unfiltered ("%s%s\n", arg_prefix, completions[item]);
 next_item = item + 1;
 while (next_item < size
 && ! strcmp (completions[item], completions[next_item]))
   {
     xfree (completions[next_item]);
     ++next_item;
   }

 xfree (completions[item]);
 item = next_item;
}

    xfree (completions);
  }
285}

287int
288is_complete_command (struct cmd_list_element *c)
289{
return cmd_cfunc_eq (c, complete_command);
291}

293static void
294show_version (char *args, int from_tty)
295{
immediate_quit++;
print_gdb_version (gdb_stdout);
printf_filtered ("\n");
immediate_quit--;
300}

302/* Handle the quit command.  */

304void
305quit_command (char *args, int from_tty)
306{
if (!quit_confirm ())
  error ("Not confirmed.");
quit_force (args, from_tty);
310}

312static void
313pwd_command (char *args, int from_tty)
314{
if (args)
  error ("The \"pwd\" command does not take an argument: %s", args);
getcwd (gdb_dirbuf, sizeof (gdb_dirbuf));

if (strcmp (gdb_dirbuf, current_directory) != 0)
  printf_unfiltered ("Working directory %s\n (canonically %s).\n",
       current_directory, gdb_dirbuf);
else
  printf_unfiltered ("Working directory %s.\n", current_directory);
324}

326void
327cd_command (char *dir, int from_tty)
328{
int len;
/* Found something other than leading repetitions of "/..".  */
int found_real_path;
char *p;

/* If the new directory is absolute, repeat is a no-op; if relative,
   repeat might be useful but is more likely to be a mistake.  */
dont_repeat ();

if (dir == 0)
  error_no_arg ("new working directory");

dir = tilde_expand (dir);
make_cleanup (xfree, dir);

if (chdir (dir) < 0)
  perror_with_name (dir);

347#ifdef HAVE_DOS_BASED_FILE_SYSTEM
/* There's too much mess with DOSish names like "d:", "d:.",
   "d:./foo" etc.  Instead of having lots of special #ifdef'ed code,
   simply get the canonicalized name of the current directory.  */
dir = getcwd (gdb_dirbuf, sizeof (gdb_dirbuf));
352#endif

len = strlen (dir);
if (IS_DIR_SEPARATOR (dir[len - 1])((dir[len - 1]) == '/'))
  {
    /* Remove the trailing slash unless this is a root directory
       (including a drive letter on non-Unix systems).  */
    if (!(len == 1)		/* "/" */
360#ifdef HAVE_DOS_BASED_FILE_SYSTEM
 && !(len == 3 && dir[1] == ':') /* "d:/" */
362#endif
 )
len--;
  }

dir = savestring (dir, len);
if (IS_ABSOLUTE_PATH (dir)((((dir)[0]) == '/')))
  current_directory = dir;
else
  {
    if (IS_DIR_SEPARATOR (current_directory[strlen (current_directory) - 1])((current_directory[strlen (current_directory) - 1]) == '/'))
current_directory = concat (current_directory, dir, NULL((void*)0));
    else
current_directory = concat (current_directory, SLASH_STRING"/", dir, NULL((void*)0));
    xfree (dir);
  }

/* Now simplify any occurrences of `.' and `..' in the pathname.  */

found_real_path = 0;
for (p = current_directory; *p;)
  {
    if (IS_DIR_SEPARATOR (p[0])((p[0]) == '/') && p[1] == '.'
 && (p[2] == 0 || IS_DIR_SEPARATOR (p[2])((p[2]) == '/')))
strcpy (p, p + 2);
    else if (IS_DIR_SEPARATOR (p[0])((p[0]) == '/') && p[1] == '.' && p[2] == '.'
      && (p[3] == 0 || IS_DIR_SEPARATOR (p[3])((p[3]) == '/')))
{
 if (found_real_path)
   {
     /* Search backwards for the directory just before the "/.."
        and obliterate it and the "/..".  */
     char *q = p;
     while (q != current_directory && !IS_DIR_SEPARATOR (q[-1])((q[-1]) == '/'))
--q;

     if (q == current_directory)
/* current_directory is
   a relative pathname ("can't happen"--leave it alone).  */
++p;
     else
{
  strcpy (q - 1, p + 3);
  p = q - 1;
}
   }
 else
   /* We are dealing with leading repetitions of "/..", for example
      "/../..", which is the Mach super-root.  */
   p += 3;
}
    else
{
 found_real_path = 1;
 ++p;
}
  }

forget_cached_source_info ();

if (from_tty)
  pwd_command ((char *) 0, 1);
424}
425
426void
427source_command (char *args, int from_tty)
428{
FILE *stream;
struct cleanup *old_cleanups;
char *file = args;

if (file == NULL((void*)0))
  {
    error ("source command requires pathname of file to source.");
  }

file = tilde_expand (file);
old_cleanups = make_cleanup (xfree, file);

stream = fopen (file, FOPEN_RT"r");
if (!stream)
  {
    if (from_tty)
perror_with_name (file);
    else
return;
  }

script_from_file (stream, file);

do_cleanups (old_cleanups);
453}

455static void
456echo_command (char *text, int from_tty)
457{
char *p = text;
int c;

if (text)
  while ((c = *p++) != '\0')
    {
if (c == '\\')
 {
   /* \ at end of argument is used after spaces
      so they won't be lost.  */
   if (*p == 0)
     return;

   c = parse_escape (&p);
   if (c >= 0)
     printf_filtered ("%c", c);
 }
else
 printf_filtered ("%c", c);
    }

/* Force this output to appear now.  */
wrap_here ("");
gdb_flush (gdb_stdout);
482}

484static void
485shell_escape (char *arg, int from_tty)
486{
487#ifdef CANT_FORK
/* If ARG is NULL, they want an inferior shell, but `system' just
   reports if the shell is available when passed a NULL arg.  */
int rc = system (arg ? arg : "");

if (!arg)
  arg = "inferior shell";

if (rc == -1)
  {
    fprintf_unfiltered (gdb_stderr, "Cannot execute %s: %s\n", arg,
	  safe_strerror (errno(*__errno())));
    gdb_flush (gdb_stderr);
  }
else if (rc)
  {
    fprintf_unfiltered (gdb_stderr, "%s exited with status %d\n", arg, rc);
    gdb_flush (gdb_stderr);
  }
506#ifdef GLOBAL_CURDIR
/* Make sure to return to the directory GDB thinks it is, in case the
   shell command we just ran changed it.  */
chdir (current_directory);
510#endif
511#else /* Can fork.  */
int rc, status, pid;

if ((pid = vfork ()) == 0)
4
←
Taking true branch→
  {
    char *p, *user_shell;

    if ((user_shell = (char *) getenv ("SHELL")) == NULL((void*)0))
5
←
This function call is prohibited after a successful vfork
user_shell = "/bin/sh";

    /* Get the name of the shell for arg0 */
    if ((p = strrchr (user_shell, '/')) == NULL((void*)0))
p = user_shell;
    else
p++;			/* Get past '/' */

    if (!arg)
execl (user_shell, p, (char *) 0);
    else
execl (user_shell, p, "-c", arg, (char *) 0);

    fprintf_unfiltered (gdb_stderr, "Cannot execute %s: %s\n", user_shell,
	  safe_strerror (errno(*__errno())));
    gdb_flush (gdb_stderr);
    _exit (0177);
  }

if (pid != -1)
  while ((rc = wait (&status)) != pid && rc != -1)
    ;
else
  error ("Fork failed");
543#endif /* Can fork.  */
544}

546static void
547edit_command (char *arg, int from_tty)
548{
struct symtabs_and_lines sals;
struct symtab_and_line sal;
struct symbol *sym;
char *arg1;
int cmdlen, log10;
unsigned m;
char *editor;
char *p;

/* Pull in the current default source line if necessary */
if (arg == 0)
  {
    set_default_source_symtab_and_line ();
    sal = get_current_source_symtab_and_line ();
  }

/* bare "edit" edits file with present line.  */

if (arg == 0)
  {
    if (sal.symtab == 0)
error ("No default source file yet.");
    sal.line += get_lines_to_list () / 2;
  }
else
  {

    /* Now should only be one argument -- decode it in SAL */

    arg1 = arg;
    sals = decode_line_1 (&arg1, 0, 0, 0, 0, 0);

    if (! sals.nelts) return;  /*  C++  */
    if (sals.nelts > 1) {
      ambiguous_line_spec (&sals);
      xfree (sals.sals);
      return;
    }

    sal = sals.sals[0];
    xfree (sals.sals);

    if (*arg1)
      error ("Junk at end of line specification.");

    /* if line was specified by address,
       first print exactly which line, and which file.
       In this case, sal.symtab == 0 means address is outside
       of all known source files, not that user failed to give a filename.  */
    if (*arg == '*')
      {
        if (sal.symtab == 0)
   /* FIXME-32x64--assumes sal.pc fits in long.  */
   error ("No source file for address %s.",
   hex_string ((unsigned long) sal.pc));
        sym = find_pc_function (sal.pc);
        if (sym)
   {
     print_address_numeric (sal.pc, 1, gdb_stdout);
     printf_filtered (" is in ");
     fputs_filtered (SYMBOL_PRINT_NAME (sym)(demangle ? (symbol_natural_name (&(sym)->ginfo)) : (sym
)->ginfo.name), gdb_stdout);
     printf_filtered (" (%s:%d).\n", sal.symtab->filename, sal.line);
   }
        else
   {
     print_address_numeric (sal.pc, 1, gdb_stdout);
     printf_filtered (" is at %s:%d.\n",
	       sal.symtab->filename, sal.line);
   }
      }

    /* If what was given does not imply a symtab, it must be an undebuggable
       symbol which means no source code.  */

    if (sal.symtab == 0)
      error ("No line number known for %s.", arg);
  }

if ((editor = (char *) getenv ("EDITOR")) == NULL((void*)0))
    editor = "/bin/ex";

/* Approximate base-10 log of line to 1 unit for digit count */
for(log10=32, m=0x80000000; !(sal.line & m) && log10>0; log10--, m=m>>1);
log10 = 1 + (int)((log10 + (0 == ((m-1) & sal.line)))/3.32192809);

cmdlen = strlen(editor) + 1
       + (NULL((void*)0) == sal.symtab->dirname ? 0 : strlen(sal.symtab->dirname) + 1)
+ (NULL((void*)0) == sal.symtab->filename? 0 : strlen(sal.symtab->filename)+ 1)
+ log10 + 2;

p = xmalloc(cmdlen);
sprintf(p,"%s +%d %s%s",editor,sal.line,
   (NULL((void*)0) == sal.symtab->dirname ? "./" :
      (NULL((void*)0) != sal.symtab->filename && *(sal.symtab->filename) != '/') ?
  sal.symtab->dirname : ""),
   (NULL((void*)0) == sal.symtab->filename ? "unknown" : sal.symtab->filename)
);
shell_escape(p, from_tty);

xfree(p);
649}

651static void
652list_command (char *arg, int from_tty)
653{
struct symtabs_and_lines sals, sals_end;
struct symtab_and_line sal, sal_end, cursal;
struct symbol *sym;
char *arg1;
int no_end = 1;
int dummy_end = 0;
int dummy_beg = 0;
int linenum_beg = 0;
char *p;

/* Pull in the current default source line if necessary */
if (arg == 0 || arg[0] == '+' || arg[0] == '-')
  {
    set_default_source_symtab_and_line ();
    cursal = get_current_source_symtab_and_line ();
  }

/* "l" or "l +" lists next ten lines.  */

if (arg == 0 || strcmp (arg, "+") == 0)
  {
    print_source_lines (cursal.symtab, cursal.line,
	  cursal.line + get_lines_to_list (), 0);
    return;
  }

/* "l -" lists previous ten lines, the ones before the ten just listed.  */
if (strcmp (arg, "-") == 0)
  {
    print_source_lines (cursal.symtab,
	  max (get_first_line_listed () - get_lines_to_list (), 1)((get_first_line_listed () - get_lines_to_list ()) > (1) ?
 (get_first_line_listed () - get_lines_to_list ()) : (1)),
	  get_first_line_listed (), 0);
    return;
  }

/* Now if there is only one argument, decode it in SAL
   and set NO_END.
   If there are two arguments, decode them in SAL and SAL_END
   and clear NO_END; however, if one of the arguments is blank,
   set DUMMY_BEG or DUMMY_END to record that fact.  */

if (!have_full_symbols () && !have_partial_symbols ())
  error ("No symbol table is loaded.  Use the \"file\" command.");

arg1 = arg;
if (*arg1 == ',')
  dummy_beg = 1;
else
  {
    sals = decode_line_1 (&arg1, 0, 0, 0, 0, 0);

    if (!sals.nelts)
return;			/*  C++  */
    if (sals.nelts > 1)
{
 ambiguous_line_spec (&sals);
 xfree (sals.sals);
 return;
}

    sal = sals.sals[0];
    xfree (sals.sals);
  }

/* Record whether the BEG arg is all digits.  */

for (p = arg; p != arg1 && *p >= '0' && *p <= '9'; p++);
linenum_beg = (p == arg1);

while (*arg1 == ' ' || *arg1 == '\t')
  arg1++;
if (*arg1 == ',')
  {
    no_end = 0;
    arg1++;
    while (*arg1 == ' ' || *arg1 == '\t')
arg1++;
    if (*arg1 == 0)
dummy_end = 1;
    else
{
 if (dummy_beg)
   sals_end = decode_line_1 (&arg1, 0, 0, 0, 0, 0);
 else
   sals_end = decode_line_1 (&arg1, 0, sal.symtab, sal.line, 0, 0);
 if (sals_end.nelts == 0)
   return;
 if (sals_end.nelts > 1)
   {
     ambiguous_line_spec (&sals_end);
     xfree (sals_end.sals);
     return;
   }
 sal_end = sals_end.sals[0];
 xfree (sals_end.sals);
}
  }

if (*arg1)
  error ("Junk at end of line specification.");

if (!no_end && !dummy_beg && !dummy_end
    && sal.symtab != sal_end.symtab)
  error ("Specified start and end are in different files.");
if (dummy_beg && dummy_end)
  error ("Two empty args do not say what lines to list.");

/* if line was specified by address,
   first print exactly which line, and which file.
   In this case, sal.symtab == 0 means address is outside
   of all known source files, not that user failed to give a filename.  */
if (*arg == '*')
  {
    if (sal.symtab == 0)
/* FIXME-32x64--assumes sal.pc fits in long.  */
error ("No source file for address %s.",
      hex_string ((unsigned long) sal.pc));
    sym = find_pc_function (sal.pc);
    if (sym)
{
 print_address_numeric (sal.pc, 1, gdb_stdout);
 printf_filtered (" is in ");
 fputs_filtered (SYMBOL_PRINT_NAME (sym)(demangle ? (symbol_natural_name (&(sym)->ginfo)) : (sym
)->ginfo.name), gdb_stdout);
 printf_filtered (" (%s:%d).\n", sal.symtab->filename, sal.line);
}
    else
{
 print_address_numeric (sal.pc, 1, gdb_stdout);
 printf_filtered (" is at %s:%d.\n",
	   sal.symtab->filename, sal.line);
}
  }

/* If line was not specified by just a line number,
   and it does not imply a symtab, it must be an undebuggable symbol
   which means no source code.  */

if (!linenum_beg && sal.symtab == 0)
  error ("No line number known for %s.", arg);

/* If this command is repeated with RET,
   turn it into the no-arg variant.  */

if (from_tty)
  *arg = 0;

if (dummy_beg && sal_end.symtab == 0)
  error ("No default source file yet.  Do \"help list\".");
if (dummy_beg)
  print_source_lines (sal_end.symtab,
	max (sal_end.line - (get_lines_to_list () - 1), 1)((sal_end.line - (get_lines_to_list () - 1)) > (1) ? (sal_end
.line - (get_lines_to_list () - 1)) : (1)),
	sal_end.line + 1, 0);
else if (sal.symtab == 0)
  error ("No default source file yet.  Do \"help list\".");
else if (no_end)
  {
    int first_line = sal.line - get_lines_to_list () / 2;

    if (first_line < 1) first_line = 1;

    print_source_lines (sal.symtab,
          first_line,
	  first_line + get_lines_to_list (),
	  0);
  }
else
  print_source_lines (sal.symtab, sal.line,
	(dummy_end
	 ? sal.line + get_lines_to_list ()
	 : sal_end.line + 1),
	0);
825}

827/* Dump a specified section of assembly code.  With no command line
 arguments, this command will dump the assembly code for the
 function surrounding the pc value in the selected frame.  With one
 argument, it will dump the assembly code surrounding that pc value.
 Two arguments are interpeted as bounds within which to dump
 assembly.  */

834static void
835disassemble_command (char *arg, int from_tty)
836{
CORE_ADDR low, high;
char *name;
CORE_ADDR pc, pc_masked;
char *space_index;
841#if 0
asection *section;
843#endif

name = NULL((void*)0);
if (!arg)
  {
    if (!deprecated_selected_frame)
error ("No frame selected.\n");

    pc = get_frame_pc (deprecated_selected_frame);
    if (find_pc_partial_function (pc, &name, &low, &high) == 0)
error ("No function contains program counter for selected frame.\n");
854#if defined(TUI1)
    /* NOTE: cagney/2003-02-13 The `tui_active' was previously
`tui_version'.  */
    if (tui_active)
/* FIXME: cagney/2004-02-07: This should be an observer.  */
low = tui_get_low_disassembly_address (low, pc);
860#endif
    low += DEPRECATED_FUNCTION_START_OFFSET(gdbarch_deprecated_function_start_offset (current_gdbarch));
  }
else if (!(space_index = (char *) strchr (arg, ' ')))
  {
    /* One argument.  */
    pc = parse_and_eval_address (arg);
    if (find_pc_partial_function (pc, &name, &low, &high) == 0)
error ("No function contains specified address.\n");
869#if defined(TUI1)
    /* NOTE: cagney/2003-02-13 The `tui_active' was previously
`tui_version'.  */
    if (tui_active)
/* FIXME: cagney/2004-02-07: This should be an observer.  */
low = tui_get_low_disassembly_address (low, pc);
875#endif
    low += DEPRECATED_FUNCTION_START_OFFSET(gdbarch_deprecated_function_start_offset (current_gdbarch));
  }
else
  {
    /* Two arguments.  */
    *space_index = '\0';
    low = parse_and_eval_address (arg);
    high = parse_and_eval_address (space_index + 1);
  }

886#if defined(TUI1)
if (!tui_is_window_visible (DISASSEM_WIN))
888#endif
  {
    printf_filtered ("Dump of assembler code ");
    if (name != NULL((void*)0))
{
 printf_filtered ("for function %s:\n", name);
}
    else
{
 printf_filtered ("from ");
 print_address_numeric (low, 1, gdb_stdout);
 printf_filtered (" to ");
 print_address_numeric (high, 1, gdb_stdout);
 printf_filtered (":\n");
}

    /* Dump the specified range.  */
    gdb_disassembly (uiout, 0, 0, 0, -1, low, high);

    printf_filtered ("End of assembler dump.\n");
    gdb_flush (gdb_stdout);
  }
910#if defined(TUI1)
else
  {
    tui_show_assembly (low);
  }
915#endif
916}

918static void
919make_command (char *arg, int from_tty)
920{
char *p;

if (arg == 0)
1
Assuming 'arg' is equal to null→
2
←
Taking true branch→
  p = "make";
else
  {
    p = xmalloc (sizeof ("make ") + strlen (arg));
    strcpy (p, "make ");
    strcpy (p + sizeof ("make ") - 1, arg);
  }

shell_escape (p, from_tty);
3
←
Calling 'shell_escape'→
933}

935static void
936show_user (char *args, int from_tty)
937{
struct cmd_list_element *c;
extern struct cmd_list_element *cmdlist;

if (args)
  {
    c = lookup_cmd (&args, cmdlist, "", 0, 1);
    if (c->class != class_user)
error ("Not a user command.");
    show_user_1 (c, gdb_stdout);
  }
else
  {
    for (c = cmdlist; c; c = c->next)
{
 if (c->class == class_user)
   show_user_1 (c, gdb_stdout);
}
  }
956}

958/* Search through names of commands and documentations for a certain
 regular expression.
960*/
961void 
962apropos_command (char *searchstr, int from_tty)
963{
extern struct cmd_list_element *cmdlist; /*This is the main command list*/
regex_t pattern;
char *pattern_fastmap;
char errorbuffer[512];
pattern_fastmap = xcalloc (256, sizeof (char));
if (searchstr == NULL((void*)0))
    error("REGEXP string is empty");

if (regcompxregcomp(&pattern,searchstr,REG_ICASE(1 << 1)) == 0)
  {
    pattern.fastmap=pattern_fastmap;
    re_compile_fastmapxre_compile_fastmap(&pattern);
    apropos_cmd (gdb_stdout,cmdlist,&pattern,"");
  }
else
  {
    regerrorxregerror(regcompxregcomp(&pattern,searchstr,REG_ICASE(1 << 1)),NULL((void*)0),errorbuffer,512);
    error("Error in regular expression:%s",errorbuffer);
  }
xfree (pattern_fastmap);
984}
985
986/* Print a list of files and line numbers which a user may choose from
 in order to list a function which was specified ambiguously (as with
 `list classname::overloadedfuncname', for example).  The vector in
 SALS provides the filenames and line numbers.  */

991static void
992ambiguous_line_spec (struct symtabs_and_lines *sals)
993{
int i;

for (i = 0; i < sals->nelts; ++i)
  printf_filtered ("file: \"%s\", line number: %d\n",
     sals->sals[i].symtab->filename, sals->sals[i].line);
999}

1001static void
1002set_debug (char *arg, int from_tty)
1003{
printf_unfiltered ("\"set debug\" must be followed by the name of a print subcommand.\n");
help_list (setdebuglist, "set debug ", -1, gdb_stdout);
1006}

1008static void
1009show_debug (char *args, int from_tty)
1010{
cmd_show_list (showdebuglist, from_tty, "");
1012}

1014void
1015init_cmd_lists (void)
1016{
max_user_call_depth = 1024;

cmdlist = NULL((void*)0);
infolist = NULL((void*)0);
enablelist = NULL((void*)0);
disablelist = NULL((void*)0);
togglelist = NULL((void*)0);
stoplist = NULL((void*)0);
deletelist = NULL((void*)0);
enablebreaklist = NULL((void*)0);
setlist = NULL((void*)0);
unsetlist = NULL((void*)0);
showlist = NULL((void*)0);
sethistlist = NULL((void*)0);
showhistlist = NULL((void*)0);
unsethistlist = NULL((void*)0);
maintenancelist = NULL((void*)0);
maintenanceinfolist = NULL((void*)0);
maintenanceprintlist = NULL((void*)0);
setprintlist = NULL((void*)0);
showprintlist = NULL((void*)0);
setchecklist = NULL((void*)0);
showchecklist = NULL((void*)0);
1040}

1042
1043void
1044init_cli_cmds (void)
1045{
struct cmd_list_element *c;

/* Define the classes of commands.
   They will appear in the help list in the reverse of this order.  */

add_cmd ("internals", class_maintenance, NULL((void*)0),
  "Maintenance commands.\n\
1053Some gdb commands are provided just for use by gdb maintainers.\n\
1054These commands are subject to frequent change, and may not be as\n\
1055well documented as user commands.",
  &cmdlist);
add_cmd ("obscure", class_obscure, NULL((void*)0), "Obscure features.", &cmdlist);
add_cmd ("aliases", class_alias, NULL((void*)0), "Aliases of other commands.", &cmdlist);
add_cmd ("user-defined", class_user, NULL((void*)0), "User-defined commands.\n\
1060The commands in this class are those defined by the user.\n\
1061Use the \"define\" command to define a command.", &cmdlist);
add_cmd ("support", class_support, NULL((void*)0), "Support facilities.", &cmdlist);
if (!dbx_commands)
  add_cmd ("status", class_info, NULL((void*)0), "Status inquiries.", &cmdlist);
add_cmd ("files", class_files, NULL((void*)0), "Specifying and examining files.", &cmdlist);
add_cmd ("breakpoints", class_breakpoint, NULL((void*)0), "Making program stop at certain points.", &cmdlist);
add_cmd ("data", class_vars, NULL((void*)0), "Examining data.", &cmdlist);
add_cmd ("stack", class_stack, NULL((void*)0), "Examining the stack.\n\
1069The stack is made up of stack frames.  Gdb assigns numbers to stack frames\n\
1070counting from zero for the innermost (currently executing) frame.\n\n\
1071At any time gdb identifies one frame as the \"selected\" frame.\n\
1072Variable lookups are done with respect to the selected frame.\n\
1073When the program being debugged stops, gdb selects the innermost frame.\n\
1074The commands below can be used to select other frames by number or address.",
  &cmdlist);
add_cmd ("running", class_run, NULL((void*)0), "Running the program.", &cmdlist);

/* Define general commands. */

add_com ("pwd", class_files, pwd_command,
"Print working directory.  This is used for your program as well.");
c = add_cmd ("cd", class_files, cd_command,
      "Set working directory to DIR for debugger and program being debugged.\n\
1084The change does not take effect for the program being debugged\n\
1085until the next time it is started.", &cmdlist);
set_cmd_completer (c, filename_completer);

add_com ("echo", class_support, echo_command,
  "Print a constant string.  Give string as argument.\n\
1090C escape sequences may be used in the argument.\n\
1091No newline is added at the end of the argument;\n\
1092use \"\\n\" if you want a newline to be printed.\n\
1093Since leading and trailing whitespace are ignored in command arguments,\n\
1094if you want to print some you must use \"\\\" before leading whitespace\n\
1095to be printed or after trailing whitespace.");
add_com ("document", class_support, document_command,
  "Document a user-defined command.\n\
1098Give command name as argument.  Give documentation on following lines.\n\
1099End with a line of just \"end\".");
add_com ("define", class_support, define_command,
  "Define a new command name.  Command name is argument.\n\
1102Definition appears on following lines, one command per line.\n\
1103End with a line of just \"end\".\n\
1104Use the \"document\" command to give documentation for the new command.\n\
1105Commands defined in this way may have up to ten arguments.");

c = add_cmd ("source", class_support, source_command,
      "Read commands from a file named FILE.\n\
1109Note that the file \"" GDBINIT_FILENAME".gdbinit" "\" is read automatically in this way\n\
1110when gdb is started.", &cmdlist);
set_cmd_completer (c, filename_completer);

add_com ("quit", class_support, quit_command, "Exit gdb.");
c = add_com ("help", class_support, help_command, "Print list of commands.");
set_cmd_completer (c, command_completer);
add_com_alias ("q", "quit", class_support, 1);
add_com_alias ("h", "help", class_support, 1);

c = add_set_cmd ("verbose", class_support, var_boolean, (char *) &info_verbose,
   "Set ",
   &setlist),
  deprecated_add_show_from_set (c, &showlist);
set_cmd_sfunc (c, set_verbose);
set_verbose (NULL((void*)0), 0, c);

add_prefix_cmd ("history", class_support, set_history,
  "Generic command for setting command history parameters.",
  &sethistlist, "set history ", 0, &setlist);
add_prefix_cmd ("history", class_support, show_history,
  "Generic command for showing command history parameters.",
  &showhistlist, "show history ", 0, &showlist);

deprecated_add_show_from_set
  (add_set_cmd ("expansion", no_class, var_boolean, (char *) &history_expansion_p,
  "Set history expansion on command input.\n\
1136Without an argument, history expansion is enabled.", &sethistlist),
   &showhistlist);

add_prefix_cmd ("info", class_info, info_command,
   "Generic command for showing things about the program being debugged.",
  &infolist, "info ", 0, &cmdlist);
add_com_alias ("i", "info", class_info, 1);

add_com ("complete", class_obscure, complete_command,
  "List the completions for the rest of the line as a command.");

add_prefix_cmd ("show", class_info, show_command,
  "Generic command for showing things about the debugger.",
  &showlist, "show ", 0, &cmdlist);
/* Another way to get at the same thing.  */
add_info ("set", show_command, "Show all GDB settings.");

add_cmd ("commands", no_class, show_commands,
  "Show the history of commands you typed.\n\
1155You can supply a command number to start with, or a `+' to start after\n\
1156the previous command number shown.",
  &showlist);

add_cmd ("version", no_class, show_version,
  "Show what version of GDB this is.", &showlist);

add_com ("while", class_support, while_command,
  "Execute nested commands WHILE the conditional expression is non zero.\n\
1164The conditional expression must follow the word `while' and must in turn be\n\
1165followed by a new line.  The nested commands must be entered one per line,\n\
1166and should be terminated by the word `end'.");

add_com ("if", class_support, if_command,
  "Execute nested commands once IF the conditional expression is non zero.\n\
1170The conditional expression must follow the word `if' and must in turn be\n\
1171followed by a new line.  The nested commands must be entered one per line,\n\
1172and should be terminated by the word 'else' or `end'.  If an else clause\n\
1173is used, the same rules apply to its nested commands as to the first ones.");

/* If target is open when baud changes, it doesn't take effect until the
   next open (I think, not sure).  */
deprecated_add_show_from_set
  (add_set_cmd ("remotebaud", no_class,
  var_zinteger, (char *) &baud_rate,
  "Set baud rate for remote serial I/O.\n\
1181This value is used to set the speed of the serial port when debugging\n\
1182using remote targets.", &setlist),
     &showlist);

c = add_set_cmd ("remotedebug", no_class, var_zinteger,
   (char *) &remote_debug,
   "Set debugging of remote protocol.\n\
1188When enabled, each packet sent or received with the remote target\n\
1189is displayed.", &setlist);
deprecate_cmd (c, "set debug remote");
deprecate_cmd (deprecated_add_show_from_set (c, &showlist),
 "show debug remote");

deprecated_add_show_from_set
  (add_set_cmd ("remote", no_class, var_zinteger,
  (char *) &remote_debug,
  "Set debugging of remote protocol.\n\
1198When enabled, each packet sent or received with the remote target\n\
1199is displayed.", &setdebuglist),
     &showdebuglist);

deprecated_add_show_from_set
  (add_set_cmd ("remotetimeout", no_class, var_integer, (char *) &remote_timeout,
  "Set timeout limit to wait for target to respond.\n\
1205This value is used to set the time limit for gdb to wait for a response\n\
1206from the target.", &setlist),
   &showlist);

add_prefix_cmd ("debug", no_class, set_debug,
  "Generic command for setting gdb debugging flags",
  &setdebuglist, "set debug ", 0, &setlist);

add_prefix_cmd ("debug", no_class, show_debug,
  "Generic command for showing gdb debugging flags",
  &showdebuglist, "show debug ", 0, &showlist);

c = add_com ("shell", class_support, shell_escape,
      "Execute the rest of the line as a shell command.\n\
1219With no arguments, run an inferior shell.");
set_cmd_completer (c, filename_completer);

c = add_com ("edit", class_files, edit_command,
         concat ("Edit specified file or function.\n\
1224With no argument, edits file containing most recent line listed.\n\
1225", "\
1226Editing targets can be specified in these ways:\n\
FILE:LINENUM, to edit at that line in that file,\n\
FUNCTION, to edit at the beginning of that function,\n\
FILE:FUNCTION, to distinguish among like-named static functions.\n\
*ADDRESS, to edit at the line containing that address.\n\
1231Uses EDITOR environment variable contents as editor (or ex as default).",NULL((void*)0)));

c->completer = location_completer;

add_com ("list", class_files, list_command,
  concat ("List specified function or line.\n\
1237With no argument, lists ten more lines after or around previous listing.\n\
1238\"list -\" lists the ten lines before a previous ten-line listing.\n\
1239One argument specifies a line, and ten lines are listed around that line.\n\
1240Two arguments with comma between specify starting and ending lines to list.\n\
1241", "\
1242Lines can be specified in these ways:\n\
LINENUM, to list around that line in current file,\n\
FILE:LINENUM, to list around that line in that file,\n\
FUNCTION, to list around beginning of that function,\n\
FILE:FUNCTION, to distinguish among like-named static functions.\n\
*ADDRESS, to list around the line containing that address.\n\
1248With two args if one is empty it stands for ten lines away from the other arg.", NULL((void*)0)));

if (!xdb_commands)
  add_com_alias ("l", "list", class_files, 1);
else
  add_com_alias ("v", "list", class_files, 1);

if (dbx_commands)
  add_com_alias ("file", "list", class_files, 1);

c = add_com ("disassemble", class_vars, disassemble_command,
      "Disassemble a specified section of memory.\n\
1260Default is the function surrounding the pc of the selected frame.\n\
1261With a single argument, the function surrounding that address is dumped.\n\
1262Two arguments are taken as a range of memory to dump.");
set_cmd_completer (c, location_completer);
if (xdb_commands)
  add_com_alias ("va", "disassemble", class_xdb, 0);

/* NOTE: cagney/2000-03-20: Being able to enter ``(gdb) !ls'' would
   be a really useful feature.  Unfortunately, the below wont do
   this.  Instead it adds support for the form ``(gdb) ! ls''
   (i.e. the space is required).  If the ``!'' command below is
   added the complains about no ``!'' command would be replaced by
   complains about how the ``!'' command is broken :-) */
if (xdb_commands)
  add_com_alias ("!", "shell", class_support, 0);

c = add_com ("make", class_support, make_command,
        "Run the ``make'' program using the rest of the line as arguments.");
set_cmd_completer (c, filename_completer);
add_cmd ("user", no_class, show_user,
  "Show definitions of user defined commands.\n\
1281Argument is the name of the user defined command.\n\
1282With no argument, show definitions of all user defined commands.", &showlist);
add_com ("apropos", class_support, apropos_command, "Search for commands matching a REGEXP");

deprecated_add_show_from_set
  (add_set_cmd ("max-user-call-depth", no_class, var_integer, 
  (char *) &max_user_call_depth,
  "Set the max call depth for user-defined commands.\n", 
  &setlist),
   &showlist);
1291}