Automatic date update in version.in

[binutils.git] / gdb / source.c

diff --git a/gdb/source.c b/gdb/source.c
index 7d1934bd6c9bb8d1f48bcde3c76e0730c4584dcf..d0f2d1c763523da801eb77736b7c141267ba25ad 100644 (file)
--- a/gdb/source.c
+++ b/gdb/source.c
@@ -1,5 +1,5 @@
 /* List lines of source files for GDB, the GNU debugger.
 /* List lines of source files for GDB, the GNU debugger.

-   Copyright (C) 1986-2021 Free Software Foundation, Inc.
+   Copyright (C) 1986-2022 Free Software Foundation, Inc.

 
    This file is part of GDB.
 
 
    This file is part of GDB.
 


@@ -31,7 +31,7 @@
 #include <sys/types.h>
 #include <fcntl.h>
 #include "gdbcore.h"
 #include <sys/types.h>
 #include <fcntl.h>
 #include "gdbcore.h"

-#include "gdb_regex.h"
+#include "gdbsupport/gdb_regex.h"

 #include "symfile.h"
 #include "objfiles.h"
 #include "annotate.h"
 #include "symfile.h"
 #include "objfiles.h"
 #include "annotate.h"


@@ -50,6 +50,7 @@
 #include "observable.h"
 #include "build-id.h"
 #include "debuginfod-support.h"
 #include "observable.h"
 #include "build-id.h"
 #include "debuginfod-support.h"

+#include "gdbsupport/buildargv.h"

 
 #define OPEN_MODE (O_RDONLY | O_BINARY)
 #define FDOPEN_MODE FOPEN_RB
 
 #define OPEN_MODE (O_RDONLY | O_BINARY)
 #define FDOPEN_MODE FOPEN_RB


@@ -57,18 +58,23 @@
 /* Path of directories to search for source files.
    Same format as the PATH environment variable's value.  */
 
 /* Path of directories to search for source files.
    Same format as the PATH environment variable's value.  */
 

-char *source_path;
+std::string source_path;

 
 /* Support for source path substitution commands.  */
 
 struct substitute_path_rule
 {
 
 /* Support for source path substitution commands.  */
 
 struct substitute_path_rule
 {

-  char *from;
-  char *to;
-  struct substitute_path_rule *next;
+  substitute_path_rule (const char *from_, const char *to_)
+    : from (from_),
+      to (to_)
+  {
+  }
+
+  std::string from;
+  std::string to;

 };
 
 };
 

-static struct substitute_path_rule *substitute_path_rules = NULL;
+static std::list<substitute_path_rule> substitute_path_rules;

 
 /* An instance of this is attached to each program space.  */
 
 
 /* An instance of this is attached to each program space.  */
 


@@ -109,7 +115,8 @@ private:
   int m_line = 0;
 };
 
   int m_line = 0;
 };
 

-static program_space_key<current_source_location> current_source_key;
+static const registry<program_space>::key<current_source_location>
+     current_source_key;

 
 /* Default number of lines to print with commands like "list".
    This is based on guessing how many long (i.e. more than chars_per_line
 
 /* Default number of lines to print with commands like "list".
    This is based on guessing how many long (i.e. more than chars_per_line


@@ -122,10 +129,10 @@ static void
 show_lines_to_list (struct ui_file *file, int from_tty,
                    struct cmd_list_element *c, const char *value)
 {
 show_lines_to_list (struct ui_file *file, int from_tty,
                    struct cmd_list_element *c, const char *value)
 {

-  fprintf_filtered (file,
-                   _("Number of source lines gdb "
-                     "will list by default is %s.\n"),
-                   value);
+  gdb_printf (file,
+             _("Number of source lines gdb "
+               "will list by default is %s.\n"),
+             value);

 }
 
 /* Possible values of 'set filename-display'.  */
 }
 
 /* Possible values of 'set filename-display'.  */


@@ -146,9 +153,23 @@ static void
 show_filename_display_string (struct ui_file *file, int from_tty,
                              struct cmd_list_element *c, const char *value)
 {
 show_filename_display_string (struct ui_file *file, int from_tty,
                              struct cmd_list_element *c, const char *value)
 {

-  fprintf_filtered (file, _("Filenames are displayed as \"%s\".\n"), value);
+  gdb_printf (file, _("Filenames are displayed as \"%s\".\n"), value);

 }
 }

- 
+
+/* When true GDB will stat and open source files as required, but when
+   false, GDB will avoid accessing source files as much as possible.  */
+
+static bool source_open = true;
+
+/* Implement 'show source open'.  */
+
+static void
+show_source_open (struct ui_file *file, int from_tty,
+                 struct cmd_list_element *c, const char *value)
+{
+  gdb_printf (file, _("Source opening is \"%s\".\n"), value);
+}
+

 /* Line number of last line printed.  Default for various commands.
    current_source_line is usually, but not always, the same as this.  */
 
 /* Line number of last line printed.  Default for various commands.
    current_source_line is usually, but not always, the same as this.  */
 


@@ -291,7 +312,7 @@ select_source_symtab (struct symtab *s)
   if (s)
     {
       current_source_location *loc
   if (s)
     {
       current_source_location *loc

-       = get_source_location (SYMTAB_PSPACE (s));
+       = get_source_location (s->compunit ()->objfile ()->pspace);

       loc->set (s, 1);
       return;
     }
       loc->set (s, 1);
       return;
     }


@@ -303,13 +324,13 @@ select_source_symtab (struct symtab *s)
   /* Make the default place to list be the function `main'
      if one exists.  */
   block_symbol bsym = lookup_symbol (main_name (), 0, VAR_DOMAIN, 0);
   /* Make the default place to list be the function `main'
      if one exists.  */
   block_symbol bsym = lookup_symbol (main_name (), 0, VAR_DOMAIN, 0);

-  if (bsym.symbol != nullptr && SYMBOL_CLASS (bsym.symbol) == LOC_BLOCK)
+  if (bsym.symbol != nullptr && bsym.symbol->aclass () == LOC_BLOCK)

     {
       symtab_and_line sal = find_function_start_sal (bsym.symbol, true);
       if (sal.symtab == NULL)
        /* We couldn't find the location of `main', possibly due to missing
           line number info, fall back to line 1 in the corresponding file.  */
     {
       symtab_and_line sal = find_function_start_sal (bsym.symbol, true);
       if (sal.symtab == NULL)
        /* We couldn't find the location of `main', possibly due to missing
           line number info, fall back to line 1 in the corresponding file.  */

-       loc->set (symbol_symtab (bsym.symbol), 1);
+       loc->set (bsym.symbol->symtab (), 1);

       else
        loc->set (sal.symtab, std::max (sal.line - (lines_to_list - 1), 1));
       return;
       else
        loc->set (sal.symtab, std::max (sal.line - (lines_to_list - 1), 1));
       return;


@@ -324,7 +345,7 @@ select_source_symtab (struct symtab *s)
     {
       for (compunit_symtab *cu : ofp->compunits ())
        {
     {
       for (compunit_symtab *cu : ofp->compunits ())
        {

-         for (symtab *symtab : compunit_filetabs (cu))
+         for (symtab *symtab : cu->filetabs ())

            {
              const char *name = symtab->filename;
              int len = strlen (name);
            {
              const char *name = symtab->filename;
              int len = strlen (name);


@@ -365,17 +386,15 @@ set_directories_command (const char *args,
 {
   /* This is the value that was set.
      It needs to be processed to maintain $cdir:$cwd and remove dups.  */
 {
   /* This is the value that was set.
      It needs to be processed to maintain $cdir:$cwd and remove dups.  */

-  char *set_path = source_path;
+  std::string set_path = source_path;

 
   /* We preserve the invariant that $cdir:$cwd begins life at the end of
      the list by calling init_source_path.  If they appear earlier in
      SET_PATH then mod_path will move them appropriately.
      mod_path will also remove duplicates.  */
   init_source_path ();
 
   /* We preserve the invariant that $cdir:$cwd begins life at the end of
      the list by calling init_source_path.  If they appear earlier in
      SET_PATH then mod_path will move them appropriately.
      mod_path will also remove duplicates.  */
   init_source_path ();

-  if (*set_path != '\0')
-    mod_path (set_path, &source_path);
-
-  xfree (set_path);
+  if (!set_path.empty ())
+    mod_path (set_path.c_str (), source_path);

 }
 
 /* Print the list of source directories.
 }
 
 /* Print the list of source directories.


@@ -383,11 +402,11 @@ set_directories_command (const char *args,
    function.  */
 
 static void
    function.  */
 
 static void

-show_directories_1 (char *ignore, int from_tty)
+show_directories_1 (ui_file *file, char *ignore, int from_tty)

 {
 {

-  puts_filtered ("Source directories searched: ");
-  puts_filtered (source_path);
-  puts_filtered ("\n");
+  gdb_puts ("Source directories searched: ", file);
+  gdb_puts (source_path.c_str (), file);
+  gdb_puts ("\n", file);

 }
 
 /* Handler for "show directories" command.  */
 }
 
 /* Handler for "show directories" command.  */


@@ -396,7 +415,7 @@ static void
 show_directories_command (struct ui_file *file, int from_tty,
                          struct cmd_list_element *c, const char *value)
 {
 show_directories_command (struct ui_file *file, int from_tty,
                          struct cmd_list_element *c, const char *value)
 {

-  show_directories_1 (NULL, from_tty);
+  show_directories_1 (file, NULL, from_tty);

 }
 
 /* See source.h.  */
 }
 
 /* See source.h.  */


@@ -406,7 +425,7 @@ forget_cached_source_info_for_objfile (struct objfile *objfile)
 {
   for (compunit_symtab *cu : objfile->compunits ())
     {
 {
   for (compunit_symtab *cu : objfile->compunits ())
     {

-      for (symtab *s : compunit_filetabs (cu))
+      for (symtab *s : cu->filetabs ())

        {
          if (s->fullname != NULL)
            {
        {
          if (s->fullname != NULL)
            {


@@ -437,10 +456,7 @@ forget_cached_source_info (void)
 void
 init_source_path (void)
 {
 void
 init_source_path (void)
 {

-  char buf[20];
-
-  xsnprintf (buf, sizeof (buf), "$cdir%c$cwd", DIRNAME_SEPARATOR);
-  source_path = xstrdup (buf);
+  source_path = string_printf ("$cdir%c$cwd", DIRNAME_SEPARATOR);

   forget_cached_source_info ();
 }
 
   forget_cached_source_info ();
 }
 


@@ -456,22 +472,22 @@ directory_command (const char *dirname, int from_tty)
     {
       if (!from_tty || query (_("Reinitialize source path to empty? ")))
        {
     {
       if (!from_tty || query (_("Reinitialize source path to empty? ")))
        {

-         xfree (source_path);

          init_source_path ();
          value_changed = true;
        }
     }
   else
     {
          init_source_path ();
          value_changed = true;
        }
     }
   else
     {

-      mod_path (dirname, &source_path);
+      mod_path (dirname, source_path);

       forget_cached_source_info ();
       value_changed = true;
     }
   if (value_changed)
     {
       forget_cached_source_info ();
       value_changed = true;
     }
   if (value_changed)
     {

-      gdb::observers::command_param_changed.notify ("directories", source_path);
+      gdb::observers::command_param_changed.notify ("directories",
+                                                   source_path.c_str ());

       if (from_tty)
       if (from_tty)

-       show_directories_1 ((char *) 0, from_tty);
+       show_directories_1 (gdb_stdout, (char *) 0, from_tty);

     }
 }
 
     }
 }
 


@@ -481,13 +497,13 @@ directory_command (const char *dirname, int from_tty)
 void
 directory_switch (const char *dirname, int from_tty)
 {
 void
 directory_switch (const char *dirname, int from_tty)
 {

-  add_path (dirname, &source_path, 0);
+  add_path (dirname, source_path, 0);

 }
 
 /* Add zero or more directories to the front of an arbitrary path.  */
 
 void
 }
 
 /* Add zero or more directories to the front of an arbitrary path.  */
 
 void

-mod_path (const char *dirname, char **which_path)
+mod_path (const char *dirname, std::string &which_path)

 {
   add_path (dirname, which_path, 1);
 }
 {
   add_path (dirname, which_path, 1);
 }


@@ -522,15 +538,15 @@ add_path (const char *dirname, char **which_path, int parse_separators)
 
   for (const gdb::unique_xmalloc_ptr<char> &name_up : dir_vec)
     {
 
   for (const gdb::unique_xmalloc_ptr<char> &name_up : dir_vec)
     {

-      char *name = name_up.get ();
+      const char *name = name_up.get ();

       char *p;
       struct stat st;
       char *p;
       struct stat st;

-      gdb::unique_xmalloc_ptr<char> new_name_holder;
+      std::string new_name_holder;

 
       /* Spaces and tabs will have been removed by buildargv().
         NAME is the start of the directory.
         P is the '\0' following the end.  */
 
       /* Spaces and tabs will have been removed by buildargv().
         NAME is the start of the directory.
         P is the '\0' following the end.  */

-      p = name + strlen (name);
+      p = name_up.get () + strlen (name);

 
       while (!(IS_DIR_SEPARATOR (*name) && p <= name + 1)      /* "/" */
 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
 
       while (!(IS_DIR_SEPARATOR (*name) && p <= name + 1)      /* "/" */
 #ifdef HAVE_DOS_BASED_FILE_SYSTEM


@@ -574,16 +590,18 @@ add_path (const char *dirname, char **which_path, int parse_separators)
       if (name[0] == '\0')
         goto skip_dup;
       if (name[0] == '~')
       if (name[0] == '\0')
         goto skip_dup;
       if (name[0] == '~')

-       new_name_holder.reset (tilde_expand (name));
+       new_name_holder
+         = gdb::unique_xmalloc_ptr<char[]> (tilde_expand (name)).get ();

 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
       else if (IS_ABSOLUTE_PATH (name) && p == name + 2) /* "d:" => "d:." */
 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
       else if (IS_ABSOLUTE_PATH (name) && p == name + 2) /* "d:" => "d:." */

-       new_name_holder.reset (concat (name, ".", (char *) NULL));
+       new_name_holder = std::string (name) + ".";

 #endif
       else if (!IS_ABSOLUTE_PATH (name) && name[0] != '$')
        new_name_holder = gdb_abspath (name);
       else
 #endif
       else if (!IS_ABSOLUTE_PATH (name) && name[0] != '$')
        new_name_holder = gdb_abspath (name);
       else

-       new_name_holder.reset (savestring (name, p - name));
-      name = new_name_holder.get ();
+       new_name_holder = std::string (name, p - name);
+
+      name = new_name_holder.c_str ();

 
       /* Unless it's a variable, check existence.  */
       if (name[0] != '$')
 
       /* Unless it's a variable, check existence.  */
       if (name[0] != '$')


@@ -601,7 +619,7 @@ add_path (const char *dirname, char **which_path, int parse_separators)
            {
              int save_errno = errno;
 
            {
              int save_errno = errno;
 

-             fprintf_unfiltered (gdb_stderr, "Warning: ");
+             gdb_printf (gdb_stderr, "Warning: ");

              print_sys_errmsg (name, save_errno);
            }
          else if ((st.st_mode & S_IFMT) != S_IFDIR)
              print_sys_errmsg (name, save_errno);
            }
          else if ((st.st_mode & S_IFMT) != S_IFDIR)


@@ -651,15 +669,10 @@ add_path (const char *dirname, char **which_path, int parse_separators)
           more.  */
        if (prefix)
          {
           more.  */
        if (prefix)
          {

-           char *temp, c;
-
-           c = old[prefix];
-           old[prefix] = '\0';
-           temp = concat (old, tinybuf, name, (char *)NULL);
-           old[prefix] = c;
-           *which_path = concat (temp, "", &old[prefix], (char *) NULL);
-           prefix = strlen (temp);
-           xfree (temp);
+           std::string temp = std::string (old, prefix) + tinybuf + name;
+           *which_path = concat (temp.c_str (), &old[prefix],
+                                 (char *) nullptr);
+           prefix = temp.length ();

          }
        else
          {
          }
        else
          {


@@ -675,6 +688,17 @@ add_path (const char *dirname, char **which_path, int parse_separators)
     }
 }
 
     }
 }
 

+/* add_path would need to be re-written to work on an std::string, but this is
+   not trivial.  Hence this overload which copies to a `char *` and back.  */
+
+void
+add_path (const char *dirname, std::string &which_path, int parse_separators)
+{
+  char *which_path_copy = xstrdup (which_path.data ());
+  add_path (dirname, &which_path_copy, parse_separators);
+  which_path = which_path_copy;
+  xfree (which_path_copy);
+}

 
 static void
 info_source_command (const char *ignore, int from_tty)
 
 static void
 info_source_command (const char *ignore, int from_tty)


@@ -686,30 +710,31 @@ info_source_command (const char *ignore, int from_tty)
 
   if (!s)
     {
 
   if (!s)
     {

-      printf_filtered (_("No current source file.\n"));
+      gdb_printf (_("No current source file.\n"));

       return;
     }
 
       return;
     }
 

-  cust = SYMTAB_COMPUNIT (s);
-  printf_filtered (_("Current source file is %s\n"), s->filename);
-  if (SYMTAB_DIRNAME (s) != NULL)
-    printf_filtered (_("Compilation directory is %s\n"), SYMTAB_DIRNAME (s));
+  cust = s->compunit ();
+  gdb_printf (_("Current source file is %s\n"), s->filename);
+  if (s->compunit ()->dirname () != NULL)
+    gdb_printf (_("Compilation directory is %s\n"), s->compunit ()->dirname ());

   if (s->fullname)
   if (s->fullname)

-    printf_filtered (_("Located in %s\n"), s->fullname);
+    gdb_printf (_("Located in %s\n"), s->fullname);

   const std::vector<off_t> *offsets;
   if (g_source_cache.get_line_charpos (s, &offsets))
   const std::vector<off_t> *offsets;
   if (g_source_cache.get_line_charpos (s, &offsets))

-    printf_filtered (_("Contains %d line%s.\n"), (int) offsets->size (),
-                    offsets->size () == 1 ? "" : "s");
-
-  printf_filtered (_("Source language is %s.\n"), language_str (s->language));
-  printf_filtered (_("Producer is %s.\n"),
-                  COMPUNIT_PRODUCER (cust) != NULL
-                  ? COMPUNIT_PRODUCER (cust) : _("unknown"));
-  printf_filtered (_("Compiled with %s debugging format.\n"),
-                  COMPUNIT_DEBUGFORMAT (cust));
-  printf_filtered (_("%s preprocessor macro info.\n"),
-                  COMPUNIT_MACRO_TABLE (cust) != NULL
-                  ? "Includes" : "Does not include");
+    gdb_printf (_("Contains %d line%s.\n"), (int) offsets->size (),
+               offsets->size () == 1 ? "" : "s");
+
+  gdb_printf (_("Source language is %s.\n"),
+             language_str (s->language ()));
+  gdb_printf (_("Producer is %s.\n"),
+             (cust->producer ()) != nullptr
+             ? cust->producer () : _("unknown"));
+  gdb_printf (_("Compiled with %s debugging format.\n"),
+             cust->debugformat ());
+  gdb_printf (_("%s preprocessor macro info.\n"),
+             (cust->macro_table () != nullptr
+              ? "Includes" : "Does not include"));

 }
 \f
 
 }
 \f
 


@@ -818,7 +843,7 @@ openp (const char *path, openp_flags opts, const char *string,
        {
          filename = (char *) alloca (strlen (string) + 1);
          strcpy (filename, string);
        {
          filename = (char *) alloca (strlen (string) + 1);
          strcpy (filename, string);

-         fd = gdb_open_cloexec (filename, mode, 0);
+         fd = gdb_open_cloexec (filename, mode, 0).release ();

          if (fd >= 0)
            goto done;
          last_errno = errno;
          if (fd >= 0)
            goto done;
          last_errno = errno;


@@ -910,7 +935,7 @@ openp (const char *path, openp_flags opts, const char *string,
 
       if (is_regular_file (filename, &reg_file_errno))
        {
 
       if (is_regular_file (filename, &reg_file_errno))
        {

-         fd = gdb_open_cloexec (filename, mode, 0);
+         fd = gdb_open_cloexec (filename, mode, 0).release ();

          if (fd >= 0)
            break;
          last_errno = errno;
          if (fd >= 0)
            break;
          last_errno = errno;


@@ -928,7 +953,8 @@ done:
       else if ((opts & OPF_RETURN_REALPATH) != 0)
        *filename_opened = gdb_realpath (filename);
       else
       else if ((opts & OPF_RETURN_REALPATH) != 0)
        *filename_opened = gdb_realpath (filename);
       else

-       *filename_opened = gdb_abspath (filename);
+       *filename_opened
+         = make_unique_xstrdup (gdb_abspath (filename).c_str ());

     }
 
   errno = last_errno;
     }
 
   errno = last_errno;


@@ -953,7 +979,7 @@ source_full_path_of (const char *filename,
 {
   int fd;
 
 {
   int fd;
 

-  fd = openp (source_path,
+  fd = openp (source_path.c_str (),

              OPF_TRY_CWD_FIRST | OPF_SEARCH_IN_PATH | OPF_RETURN_REALPATH,
              filename, O_RDONLY, full_pathname);
   if (fd < 0)
              OPF_TRY_CWD_FIRST | OPF_SEARCH_IN_PATH | OPF_RETURN_REALPATH,
              filename, O_RDONLY, full_pathname);
   if (fd < 0)


@@ -973,7 +999,7 @@ static int
 substitute_path_rule_matches (const struct substitute_path_rule *rule,
                              const char *path)
 {
 substitute_path_rule_matches (const struct substitute_path_rule *rule,
                              const char *path)
 {

-  const int from_len = strlen (rule->from);
+  const int from_len = rule->from.length ();

   const int path_len = strlen (path);
 
   if (path_len < from_len)
   const int path_len = strlen (path);
 
   if (path_len < from_len)


@@ -982,7 +1008,7 @@ substitute_path_rule_matches (const struct substitute_path_rule *rule,
   /* The substitution rules are anchored at the start of the path,
      so the path should start with rule->from.  */
 
   /* The substitution rules are anchored at the start of the path,
      so the path should start with rule->from.  */
 

-  if (filename_ncmp (path, rule->from, from_len) != 0)
+  if (filename_ncmp (path, rule->from.c_str (), from_len) != 0)

     return 0;
 
   /* Make sure that the region in the path that matches the substitution
     return 0;
 
   /* Make sure that the region in the path that matches the substitution


@@ -1001,12 +1027,11 @@ substitute_path_rule_matches (const struct substitute_path_rule *rule,
 static struct substitute_path_rule *
 get_substitute_path_rule (const char *path)
 {
 static struct substitute_path_rule *
 get_substitute_path_rule (const char *path)
 {

-  struct substitute_path_rule *rule = substitute_path_rules;
-
-  while (rule != NULL && !substitute_path_rule_matches (rule, path))
-    rule = rule->next;
+  for (substitute_path_rule &rule : substitute_path_rules)
+    if (substitute_path_rule_matches (&rule, path))
+      return &rule;

 
 

-  return rule;
+  return nullptr;

 }
 
 /* If the user specified a source path substitution rule that applies
 }
 
 /* If the user specified a source path substitution rule that applies


@@ -1019,22 +1044,14 @@ gdb::unique_xmalloc_ptr<char>
 rewrite_source_path (const char *path)
 {
   const struct substitute_path_rule *rule = get_substitute_path_rule (path);
 rewrite_source_path (const char *path)
 {
   const struct substitute_path_rule *rule = get_substitute_path_rule (path);

-  char *new_path;
-  int from_len;
-  
-  if (rule == NULL)
-    return NULL;

 
 

-  from_len = strlen (rule->from);
+  if (rule == nullptr)
+    return nullptr;

 
   /* Compute the rewritten path and return it.  */
 
 
   /* Compute the rewritten path and return it.  */
 

-  new_path =
-    (char *) xmalloc (strlen (path) + 1 + strlen (rule->to) - from_len);
-  strcpy (new_path, rule->to);
-  strcat (new_path, path + from_len);
-
-  return gdb::unique_xmalloc_ptr<char> (new_path);
+  return (gdb::unique_xmalloc_ptr<char>
+         (concat (rule->to.c_str (), path + rule->from.length (), nullptr)));

 }
 
 /* See source.h.  */
 }
 
 /* See source.h.  */


@@ -1044,12 +1061,17 @@ find_and_open_source (const char *filename,
                      const char *dirname,
                      gdb::unique_xmalloc_ptr<char> *fullname)
 {
                      const char *dirname,
                      gdb::unique_xmalloc_ptr<char> *fullname)
 {

-  char *path = source_path;
+  const char *path = source_path.c_str ();
+  std::string expanded_path_holder;

   const char *p;
   const char *p;

-  int result;

 
 

-  /* Quick way out if we already know its full name.  */
+  /* If reading of source files is disabled then return a result indicating
+     the attempt to read this source file failed.  GDB will then display
+     the filename and line number instead.  */
+  if (!source_open)
+    return scoped_fd (-1);

 
 

+  /* Quick way out if we already know its full name.  */

   if (*fullname)
     {
       /* The user may have requested that source paths be rewritten
   if (*fullname)
     {
       /* The user may have requested that source paths be rewritten


@@ -1061,11 +1083,11 @@ find_and_open_source (const char *filename,
       if (rewritten_fullname != NULL)
        *fullname = std::move (rewritten_fullname);
 
       if (rewritten_fullname != NULL)
        *fullname = std::move (rewritten_fullname);
 

-      result = gdb_open_cloexec (fullname->get (), OPEN_MODE, 0);
-      if (result >= 0)
+      scoped_fd result = gdb_open_cloexec (fullname->get (), OPEN_MODE, 0);
+      if (result.get () >= 0)

        {
          *fullname = gdb_realpath (fullname->get ());
        {
          *fullname = gdb_realpath (fullname->get ());

-         return scoped_fd (result);
+         return result;

        }
 
       /* Didn't work -- free old one, try again.  */
        }
 
       /* Didn't work -- free old one, try again.  */


@@ -1086,19 +1108,22 @@ find_and_open_source (const char *filename,
       /* Replace a path entry of $cdir with the compilation directory
         name.  */
 #define        cdir_len        5
       /* Replace a path entry of $cdir with the compilation directory
         name.  */
 #define        cdir_len        5

-      p = strstr (source_path, "$cdir");
+      p = strstr (source_path.c_str (), "$cdir");

       if (p && (p == path || p[-1] == DIRNAME_SEPARATOR)
          && (p[cdir_len] == DIRNAME_SEPARATOR || p[cdir_len] == '\0'))
        {
       if (p && (p == path || p[-1] == DIRNAME_SEPARATOR)
          && (p[cdir_len] == DIRNAME_SEPARATOR || p[cdir_len] == '\0'))
        {

-         int len;
-
-         path = (char *)
-           alloca (strlen (source_path) + 1 + strlen (dirname) + 1);
-         len = p - source_path;
-         strncpy (path, source_path, len);     /* Before $cdir */
-         strcpy (path + len, dirname);         /* new stuff */
-         strcat (path + len, source_path + len + cdir_len);    /* After
-                                                                  $cdir */
+         int len = p - source_path.c_str ();
+
+         /* Before $cdir */
+         expanded_path_holder = source_path.substr (0, len);
+
+         /* new stuff */
+         expanded_path_holder += dirname;
+
+         /* After $cdir */
+         expanded_path_holder += source_path.c_str () + len + cdir_len;
+
+         path = expanded_path_holder.c_str ();

        }
     }
 
        }
     }
 


@@ -1109,8 +1134,8 @@ find_and_open_source (const char *filename,
     filename = rewritten_filename.get ();
 
   /* Try to locate file using filename.  */
     filename = rewritten_filename.get ();
 
   /* Try to locate file using filename.  */

-  result = openp (path, OPF_SEARCH_IN_PATH | OPF_RETURN_REALPATH, filename,
-                 OPEN_MODE, fullname);
+  int result = openp (path, OPF_SEARCH_IN_PATH | OPF_RETURN_REALPATH, filename,
+                     OPEN_MODE, fullname);

   if (result < 0 && dirname != NULL)
     {
       /* Remove characters from the start of PATH that we don't need when
   if (result < 0 && dirname != NULL)
     {
       /* Remove characters from the start of PATH that we don't need when


@@ -1121,15 +1146,7 @@ find_and_open_source (const char *filename,
         helpful if part of the compilation directory was removed,
         e.g. using gcc's -fdebug-prefix-map, and we have added the missing
         prefix to source_path.  */
         helpful if part of the compilation directory was removed,
         e.g. using gcc's -fdebug-prefix-map, and we have added the missing
         prefix to source_path.  */

-      std::string cdir_filename (dirname);
-
-      /* Remove any trailing directory separators.  */
-      while (IS_DIR_SEPARATOR (cdir_filename.back ()))
-       cdir_filename.pop_back ();
-
-      /* Add our own directory separator.  */
-      cdir_filename.append (SLASH_STRING);
-      cdir_filename.append (filename_start);
+      std::string cdir_filename = path_join (dirname, filename_start);

 
       result = openp (path, OPF_SEARCH_IN_PATH | OPF_RETURN_REALPATH,
                      cdir_filename.c_str (), OPEN_MODE, fullname);
 
       result = openp (path, OPF_SEARCH_IN_PATH | OPF_RETURN_REALPATH,
                      cdir_filename.c_str (), OPEN_MODE, fullname);


@@ -1159,26 +1176,27 @@ open_source_file (struct symtab *s)
 
   gdb::unique_xmalloc_ptr<char> fullname (s->fullname);
   s->fullname = NULL;
 
   gdb::unique_xmalloc_ptr<char> fullname (s->fullname);
   s->fullname = NULL;

-  scoped_fd fd = find_and_open_source (s->filename, SYMTAB_DIRNAME (s),
+  scoped_fd fd = find_and_open_source (s->filename, s->compunit ()->dirname (),

                                       &fullname);
 
   if (fd.get () < 0)
     {
                                       &fullname);
 
   if (fd.get () < 0)
     {

-      if (SYMTAB_COMPUNIT (s) != nullptr)
+      if (s->compunit () != nullptr)

        {
        {

-         const objfile *ofp = COMPUNIT_OBJFILE (SYMTAB_COMPUNIT (s));
+         const objfile *ofp = s->compunit ()->objfile ();

 
          std::string srcpath;
          if (IS_ABSOLUTE_PATH (s->filename))
            srcpath = s->filename;
 
          std::string srcpath;
          if (IS_ABSOLUTE_PATH (s->filename))
            srcpath = s->filename;

-         else if (SYMTAB_DIRNAME (s) != nullptr)
+         else if (s->compunit ()->dirname () != nullptr)

            {
            {

-             srcpath = SYMTAB_DIRNAME (s);
+             srcpath = s->compunit ()->dirname ();

              srcpath += SLASH_STRING;
              srcpath += s->filename;
            }
 
              srcpath += SLASH_STRING;
              srcpath += s->filename;
            }
 

-         const struct bfd_build_id *build_id = build_id_bfd_get (ofp->obfd);
+         const struct bfd_build_id *build_id
+           = build_id_bfd_get (ofp->obfd.get ());

 
          /* Query debuginfod for the source file.  */
          if (build_id != nullptr && !srcpath.empty ())
 
          /* Query debuginfod for the source file.  */
          if (build_id != nullptr && !srcpath.empty ())


@@ -1247,10 +1265,11 @@ symtab_to_fullname (struct symtab *s)
          /* rewrite_source_path would be applied by find_and_open_source, we
             should report the pathname where GDB tried to find the file.  */
 
          /* rewrite_source_path would be applied by find_and_open_source, we
             should report the pathname where GDB tried to find the file.  */
 

-         if (SYMTAB_DIRNAME (s) == NULL || IS_ABSOLUTE_PATH (s->filename))
+         if (s->compunit ()->dirname () == nullptr
+             || IS_ABSOLUTE_PATH (s->filename))

            fullname.reset (xstrdup (s->filename));
          else
            fullname.reset (xstrdup (s->filename));
          else

-           fullname.reset (concat (SYMTAB_DIRNAME (s), SLASH_STRING,
+           fullname.reset (concat (s->compunit ()->dirname (), SLASH_STRING,

                                    s->filename, (char *) NULL));
 
          s->fullname = rewrite_source_path (fullname.get ()).release ();
                                    s->filename, (char *) NULL));
 
          s->fullname = rewrite_source_path (fullname.get ()).release ();


@@ -1274,7 +1293,7 @@ symtab_to_filename_for_display (struct symtab *symtab)
   else if (filename_display_string == filename_display_relative)
     return symtab->filename;
   else
   else if (filename_display_string == filename_display_relative)
     return symtab->filename;
   else

-    internal_error (__FILE__, __LINE__, _("invalid filename_display_string"));
+    internal_error (_("invalid filename_display_string"));

 }
 
 \f
 }
 
 \f


@@ -1300,7 +1319,7 @@ print_source_lines_base (struct symtab *s, int line, int stopline,
 
   /* If printing of source lines is disabled, just print file and line
      number.  */
 
   /* If printing of source lines is disabled, just print file and line
      number.  */

-  if (uiout->test_flags (ui_source_list))
+  if (uiout->test_flags (ui_source_list) && source_open)

     {
       /* Only prints "No such file or directory" once.  */
       if (s == last_source_visited)
     {
       /* Only prints "No such file or directory" once.  */
       if (s == last_source_visited)


@@ -1521,48 +1540,48 @@ info_line_command (const char *arg, int from_tty)
        {
          struct gdbarch *gdbarch = get_current_arch ();
 
        {
          struct gdbarch *gdbarch = get_current_arch ();
 

-         printf_filtered (_("No line number information available"));
+         gdb_printf (_("No line number information available"));

          if (sal.pc != 0)
            {
              /* This is useful for "info line *0x7f34".  If we can't tell the
                 user about a source line, at least let them have the symbolic
                 address.  */
          if (sal.pc != 0)
            {
              /* This is useful for "info line *0x7f34".  If we can't tell the
                 user about a source line, at least let them have the symbolic
                 address.  */

-             printf_filtered (" for address ");
-             wrap_here ("  ");
+             gdb_printf (" for address ");
+             gdb_stdout->wrap_here (2);

              print_address (gdbarch, sal.pc, gdb_stdout);
            }
          else
              print_address (gdbarch, sal.pc, gdb_stdout);
            }
          else

-           printf_filtered (".");
-         printf_filtered ("\n");
+           gdb_printf (".");
+         gdb_printf ("\n");

        }
       else if (sal.line > 0
               && find_line_pc_range (sal, &start_pc, &end_pc))
        {
        }
       else if (sal.line > 0
               && find_line_pc_range (sal, &start_pc, &end_pc))
        {

-         struct gdbarch *gdbarch = SYMTAB_OBJFILE (sal.symtab)->arch ();
+         gdbarch *gdbarch = sal.symtab->compunit ()->objfile ()->arch ();

 
          if (start_pc == end_pc)
            {
 
          if (start_pc == end_pc)
            {

-             printf_filtered ("Line %d of \"%s\"",
-                              sal.line,
-                              symtab_to_filename_for_display (sal.symtab));
-             wrap_here ("  ");
-             printf_filtered (" is at address ");
+             gdb_printf ("Line %d of \"%s\"",
+                         sal.line,
+                         symtab_to_filename_for_display (sal.symtab));
+             gdb_stdout->wrap_here (2);
+             gdb_printf (" is at address ");

              print_address (gdbarch, start_pc, gdb_stdout);
              print_address (gdbarch, start_pc, gdb_stdout);

-             wrap_here ("  ");
-             printf_filtered (" but contains no code.\n");
+             gdb_stdout->wrap_here (2);
+             gdb_printf (" but contains no code.\n");

            }
          else
            {
            }
          else
            {

-             printf_filtered ("Line %d of \"%s\"",
-                              sal.line,
-                              symtab_to_filename_for_display (sal.symtab));
-             wrap_here ("  ");
-             printf_filtered (" starts at address ");
+             gdb_printf ("Line %d of \"%s\"",
+                         sal.line,
+                         symtab_to_filename_for_display (sal.symtab));
+             gdb_stdout->wrap_here (2);
+             gdb_printf (" starts at address ");

              print_address (gdbarch, start_pc, gdb_stdout);
              print_address (gdbarch, start_pc, gdb_stdout);

-             wrap_here ("  ");
-             printf_filtered (" and ends at ");
+             gdb_stdout->wrap_here (2);
+             gdb_printf (" and ends at ");

              print_address (gdbarch, end_pc, gdb_stdout);
              print_address (gdbarch, end_pc, gdb_stdout);

-             printf_filtered (".\n");
+             gdb_printf (".\n");

            }
 
          /* x/i should display this line's code.  */
            }
 
          /* x/i should display this line's code.  */


@@ -1580,8 +1599,8 @@ info_line_command (const char *arg, int from_tty)
        /* Is there any case in which we get here, and have an address
           which the user would want to see?  If we have debugging symbols
           and no line numbers?  */
        /* Is there any case in which we get here, and have an address
           which the user would want to see?  If we have debugging symbols
           and no line numbers?  */

-       printf_filtered (_("Line number %d is out of range for \"%s\".\n"),
-                        sal.line, symtab_to_filename_for_display (sal.symtab));
+       gdb_printf (_("Line number %d is out of range for \"%s\".\n"),
+                   sal.line, symtab_to_filename_for_display (sal.symtab));

     }
 }
 \f
     }
 }
 \f


@@ -1603,6 +1622,9 @@ search_command_helper (const char *regex, int from_tty, bool forward)
   if (loc->symtab () == nullptr)
     select_source_symtab (0);
 
   if (loc->symtab () == nullptr)
     select_source_symtab (0);
 

+  if (!source_open)
+    error (_("source code access disabled"));
+

   scoped_fd desc (open_source_file (loc->symtab ()));
   if (desc.get () < 0)
     perror_with_name (symtab_to_filename_for_display (loc->symtab ()));
   scoped_fd desc (open_source_file (loc->symtab ()));
   if (desc.get () < 0)
     perror_with_name (symtab_to_filename_for_display (loc->symtab ()));


@@ -1675,7 +1697,7 @@ search_command_helper (const char *regex, int from_tty, bool forward)
        }
     }
 
        }
     }
 

-  printf_filtered (_("Expression not found\n"));
+  gdb_printf (_("Expression not found\n"));

 }
 
 static void
 }
 
 static void


@@ -1704,79 +1726,13 @@ strip_trailing_directory_separator (char *path)
     path[last] = '\0';
 }
 
     path[last] = '\0';
 }
 

-/* Return the path substitution rule that matches FROM.
-   Return NULL if no rule matches.  */
-
-static struct substitute_path_rule *
-find_substitute_path_rule (const char *from)
-{
-  struct substitute_path_rule *rule = substitute_path_rules;
-
-  while (rule != NULL)
-    {
-      if (FILENAME_CMP (rule->from, from) == 0)
-       return rule;
-      rule = rule->next;
-    }
-
-  return NULL;
-}
-

 /* Add a new substitute-path rule at the end of the current list of rules.
    The new rule will replace FROM into TO.  */
 
 void
 /* Add a new substitute-path rule at the end of the current list of rules.
    The new rule will replace FROM into TO.  */
 
 void

-add_substitute_path_rule (char *from, char *to)
+add_substitute_path_rule (const char *from, const char *to)

 {
 {

-  struct substitute_path_rule *rule;
-  struct substitute_path_rule *new_rule = XNEW (struct substitute_path_rule);
-
-  new_rule->from = xstrdup (from);
-  new_rule->to = xstrdup (to);
-  new_rule->next = NULL;
-
-  /* If the list of rules are empty, then insert the new rule
-     at the head of the list.  */
-
-  if (substitute_path_rules == NULL)
-    {
-      substitute_path_rules = new_rule;
-      return;
-    }
-
-  /* Otherwise, skip to the last rule in our list and then append
-     the new rule.  */
-
-  rule = substitute_path_rules;
-  while (rule->next != NULL)
-    rule = rule->next;
-
-  rule->next = new_rule;
-}
-
-/* Remove the given source path substitution rule from the current list
-   of rules.  The memory allocated for that rule is also deallocated.  */
-
-static void
-delete_substitute_path_rule (struct substitute_path_rule *rule)
-{
-  if (rule == substitute_path_rules)
-    substitute_path_rules = rule->next;
-  else
-    {
-      struct substitute_path_rule *prev = substitute_path_rules;
-
-      while (prev != NULL && prev->next != rule)
-       prev = prev->next;
-
-      gdb_assert (prev != NULL);
-
-      prev->next = rule->next;
-    }
-
-  xfree (rule->from);
-  xfree (rule->to);
-  xfree (rule);
+  substitute_path_rules.emplace_back (from, to);

 }
 
 /* Implement the "show substitute-path" command.  */
 }
 
 /* Implement the "show substitute-path" command.  */


@@ -1784,7 +1740,6 @@ delete_substitute_path_rule (struct substitute_path_rule *rule)
 static void
 show_substitute_path_command (const char *args, int from_tty)
 {
 static void
 show_substitute_path_command (const char *args, int from_tty)
 {

-  struct substitute_path_rule *rule = substitute_path_rules;

   char *from = NULL;
   
   gdb_argv argv (args);
   char *from = NULL;
   
   gdb_argv argv (args);


@@ -1800,16 +1755,16 @@ show_substitute_path_command (const char *args, int from_tty)
   /* Print the substitution rules.  */
 
   if (from != NULL)
   /* Print the substitution rules.  */
 
   if (from != NULL)

-    printf_filtered
+    gdb_printf

       (_("Source path substitution rule matching `%s':\n"), from);
   else
       (_("Source path substitution rule matching `%s':\n"), from);
   else

-    printf_filtered (_("List of all source path substitution rules:\n"));
+    gdb_printf (_("List of all source path substitution rules:\n"));

 
 

-  while (rule != NULL)
+  for (substitute_path_rule &rule : substitute_path_rules)

     {
     {

-      if (from == NULL || substitute_path_rule_matches (rule, from) != 0)
-       printf_filtered ("  `%s' -> `%s'.\n", rule->from, rule->to);
-      rule = rule->next;
+      if (from == NULL || substitute_path_rule_matches (&rule, from) != 0)
+       gdb_printf ("  `%s' -> `%s'.\n", rule.from.c_str (),
+                   rule.to.c_str ());

     }
 }
 
     }
 }
 


@@ -1818,10 +1773,8 @@ show_substitute_path_command (const char *args, int from_tty)
 static void
 unset_substitute_path_command (const char *args, int from_tty)
 {
 static void
 unset_substitute_path_command (const char *args, int from_tty)
 {

-  struct substitute_path_rule *rule = substitute_path_rules;

   gdb_argv argv (args);
   char *from = NULL;
   gdb_argv argv (args);
   char *from = NULL;

-  int rule_found = 0;

 
   /* This function takes either 0 or 1 argument.  */
 
 
   /* This function takes either 0 or 1 argument.  */
 


@@ -1842,24 +1795,27 @@ unset_substitute_path_command (const char *args, int from_tty)
   /* Delete the rule matching the argument.  No argument means that
      all rules should be deleted.  */
 
   /* Delete the rule matching the argument.  No argument means that
      all rules should be deleted.  */
 

-  while (rule != NULL)
+  if (from == nullptr)
+    substitute_path_rules.clear ();
+  else

     {
     {

-      struct substitute_path_rule *next = rule->next;
-
-      if (from == NULL || FILENAME_CMP (from, rule->from) == 0)
-       {
-         delete_substitute_path_rule (rule);
-         rule_found = 1;
-       }
-
-      rule = next;
+      auto iter
+       = std::remove_if (substitute_path_rules.begin (),
+                         substitute_path_rules.end (),
+                         [&] (const substitute_path_rule &rule)
+                         {
+                           return FILENAME_CMP (from,
+                                                rule.from.c_str ()) == 0;
+                         });
+      bool rule_found = iter != substitute_path_rules.end ();
+      substitute_path_rules.erase (iter, substitute_path_rules.end ());
+
+      /* If the user asked for a specific rule to be deleted but
+        we could not find it, then report an error.  */
+
+      if (!rule_found)
+       error (_("No substitution rule defined for `%s'"), from);

     }
     }

-  
-  /* If the user asked for a specific rule to be deleted but
-     we could not find it, then report an error.  */
-
-  if (from != NULL && !rule_found)
-    error (_("No substitution rule defined for `%s'"), from);

 
   forget_cached_source_info ();
 }
 
   forget_cached_source_info ();
 }


@@ -1869,8 +1825,6 @@ unset_substitute_path_command (const char *args, int from_tty)
 static void
 set_substitute_path_command (const char *args, int from_tty)
 {
 static void
 set_substitute_path_command (const char *args, int from_tty)
 {

-  struct substitute_path_rule *rule;
-  

   gdb_argv argv (args);
 
   if (argv == NULL || argv[0] == NULL || argv [1] == NULL)
   gdb_argv argv (args);
 
   if (argv == NULL || argv[0] == NULL || argv [1] == NULL)


@@ -1890,10 +1844,15 @@ set_substitute_path_command (const char *args, int from_tty)
   /* If a rule with the same "from" was previously defined, then
      delete it.  This new rule replaces it.  */
 
   /* If a rule with the same "from" was previously defined, then
      delete it.  This new rule replaces it.  */
 

-  rule = find_substitute_path_rule (argv[0]);
-  if (rule != NULL)
-    delete_substitute_path_rule (rule);
-      
+  auto iter
+    = std::remove_if (substitute_path_rules.begin (),
+                     substitute_path_rules.end (),
+                     [&] (const substitute_path_rule &rule)
+                     {
+                       return FILENAME_CMP (argv[0], rule.from.c_str ()) == 0;
+                     });
+  substitute_path_rules.erase (iter, substitute_path_rules.end ());
+

   /* Insert the new substitution rule.  */
 
   add_substitute_path_rule (argv[0], argv[1]);
   /* Insert the new substitution rule.  */
 
   add_substitute_path_rule (argv[0], argv[1]);


@@ -1927,6 +1886,22 @@ source_lines_range::source_lines_range (int startline,
     }
 }
 
     }
 }
 

+/* Handle the "set source" base command.  */
+
+static void
+set_source (const char *arg, int from_tty)
+{
+  help_list (setsourcelist, "set source ", all_commands, gdb_stdout);
+}
+
+/* Handle the "show source" base command.  */
+
+static void
+show_source (const char *args, int from_tty)
+{
+  help_list (showsourcelist, "show source ", all_commands, gdb_stdout);
+}
+

 \f
 void _initialize_source ();
 void
 \f
 void _initialize_source ();
 void


@@ -1949,9 +1924,6 @@ directory in which the source file was compiled into object code.\n\
 With no argument, reset the search path to $cdir:$cwd, the default."),
               &cmdlist);
 
 With no argument, reset the search path to $cdir:$cwd, the default."),
               &cmdlist);
 

-  if (dbx_commands)
-    add_com_alias ("use", directory_cmd, class_files, 0);
-

   set_cmd_completer (directory_cmd, filename_completer);
 
   add_setshow_optional_filename_cmd ("directories",
   set_cmd_completer (directory_cmd, filename_completer);
 
   add_setshow_optional_filename_cmd ("directories",


@@ -2050,4 +2022,25 @@ By default, relative filenames are displayed."),
                        show_filename_display_string,
                        &setlist, &showlist);
 
                        show_filename_display_string,
                        &setlist, &showlist);
 

+  add_prefix_cmd ("source", no_class, set_source,
+                  _("Generic command for setting how sources are handled."),
+                  &setsourcelist, 0, &setlist);
+
+  add_prefix_cmd ("source", no_class, show_source,
+                  _("Generic command for showing source settings."),
+                  &showsourcelist, 0, &showlist);
+
+  add_setshow_boolean_cmd ("open", class_files, &source_open, _("\
+Set whether GDB should open source files."), _("\
+Show whether GDB should open source files."), _("\
+When this option is on GDB will open source files and display the\n\
+contents when appropriate, for example, when GDB stops, or the list\n\
+command is used.\n\
+When this option is off GDB will not try to open source files, instead\n\
+GDB will print the file and line number that would have been displayed.\n\
+This can be useful if access to source code files is slow, for example\n\
+due to the source being located over a slow network connection."),
+                           NULL,
+                           show_source_open,
+                           &setsourcelist, &showsourcelist);

 }
 }