* gdb.texinfo (Continuing and Stepping): When talking about "step"
[deliverable/binutils-gdb.git] / gdb / source.c
index 369788fbef0297b9969f4e7aee7abd522e7dab9f..5a4733ff2127cb3893d15351ad5fb5c199d51dbd 100644 (file)
@@ -17,10 +17,9 @@ 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
-#include <stdio.h>
 #include "defs.h"
 #include "symtab.h"
-#include "param.h"
+#include "expression.h"
 #include "language.h"
 #include "command.h"
 #include "gdbcmd.h"
@@ -36,14 +35,46 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include <fcntl.h>
 #include "gdbcore.h"
 #include "regex.h"
+#include "symfile.h"
+#include "objfiles.h"
+
+/* Prototypes for local functions. */
+
+static int
+open_source_file PARAMS ((struct symtab *));
+
+static int
+get_filename_and_charpos PARAMS ((struct symtab *, char **));
+
+static void
+reverse_search_command PARAMS ((char *, int));
+
+static void
+forward_search_command PARAMS ((char *, int));
+
+static void
+line_info PARAMS ((char *, int));
+
+static void
+list_command PARAMS ((char *, int));
+
+static void
+ambiguous_line_spec PARAMS ((struct symtabs_and_lines *));
+
+static void
+source_info PARAMS ((char *, int));
+
+static void
+show_directories PARAMS ((char *, int));
+
+static void
+find_source_lines PARAMS ((struct symtab *, int));
 
 /* If we use this declaration, it breaks because of fucking ANSI "const" stuff
    on some systems.  We just have to not declare it at all, have it default
    to int, and possibly botch on a few systems.  Thanks, ANSIholes... */
 /* extern char *strstr(); */
 
-extern void set_next_address ();
-
 /* Path of directories to search for source files.
    Same format as the PATH environment variable's value.  */
 
@@ -63,7 +94,7 @@ int current_source_line;
    and friends should be rewritten to count characters and see where
    things are wrapping, but that would be a fair amount of work.  */
 
-unsigned lines_to_list = 10;
+int lines_to_list = 10;
 
 /* Line number of last line printed.  Default for various commands.
    current_source_line is usually, but not always, the same as this.  */
@@ -75,13 +106,13 @@ static int last_line_listed;
 static int first_line_listed;
 
 \f
-/* Set the source file default for the "list" command, specifying a
-   symtab.  Sigh.  Behavior specification: If it is called with a
-   non-zero argument, that is the symtab to select.  If it is not,
-   first lookup "main"; if it exists, use the symtab and line it
-   defines.  If not, take the last symtab in the symtab_list (if it
-   exists) or the last symtab in the psymtab_list (if *it* exists).  If
-   none of this works, report an error.   */
+/* Set the source file default for the "list" command to be S.
+
+   If S is NULL, and we don't have a default, find one.  This
+   should only be called when the user actually tries to use the
+   default, since we produce an error if we can't find a reasonable
+   default.  Also, since this can cause symbols to be read, doing it
+   before we need to would make things slower than necessary.  */
 
 void
 select_source_symtab (s)
@@ -91,6 +122,7 @@ select_source_symtab (s)
   struct symtab_and_line sal;
   struct partial_symtab *ps;
   struct partial_symtab *cs_pst = 0;
+  struct objfile *ofp;
   
   if (s)
     {
@@ -99,6 +131,9 @@ select_source_symtab (s)
       return;
     }
 
+  if (current_source_symtab)
+    return;
+
   /* Make the default place to list be the function `main'
      if one exists.  */
   if (lookup_symbol ("main", 0, VAR_NAMESPACE, 0, NULL))
@@ -116,45 +151,58 @@ select_source_symtab (s)
 
   current_source_line = 1;
 
-  for (s = symtab_list; s; s = s->next)
+  for (ofp = object_files; ofp != NULL; ofp = ofp -> next)
     {
-      char *name = s->filename;
-      int len = strlen (name);
-      if (! (len > 2 && !strcmp (&name[len - 2], ".h")))
-       current_source_symtab = s;
+      for (s = ofp -> symtabs; s; s = s->next)
+       {
+         char *name = s -> filename;
+         int len = strlen (name);
+         if (! (len > 2 && (STREQ (&name[len - 2], ".h"))))
+           {
+             current_source_symtab = s;
+           }
+       }
     }
   if (current_source_symtab)
     return;
 
-  /* Howabout the partial symtab list?  */
+  /* Howabout the partial symbol tables? */
 
-  if (partial_symtab_list)
+  for (ofp = object_files; ofp != NULL; ofp = ofp -> next)
     {
-      ps = partial_symtab_list;
-      while (ps)
+      for (ps = ofp -> psymtabs; ps != NULL; ps = ps -> next)
        {
-         char *name = ps->filename;
+         char *name = ps -> filename;
          int len = strlen (name);
-         if (! (len > 2 && !strcmp (&name[len - 2], ".h")))
-           cs_pst = ps;
-         ps = ps->next;
+         if (! (len > 2 && (STREQ (&name[len - 2], ".h"))))
+           {
+             cs_pst = ps;
+           }
        }
-      if (cs_pst)
-       if (cs_pst->readin)
+    }
+  if (cs_pst)
+    {
+      if (cs_pst -> readin)
+       {
          fatal ("Internal: select_source_symtab: readin pst found and no symtabs.");
-       else
+       }
+      else
+       {
          current_source_symtab = PSYMTAB_TO_SYMTAB (cs_pst);
+       }
     }
-  if (current_source_symtab)
-    return;
 
   error ("Can't find a default source file");
 }
 \f
 static void
-show_directories ()
+show_directories (ignore, from_tty)
+     char *ignore;
+     int from_tty;
 {
-  printf ("Source directories searched: %s\n", source_path);
+  puts_filtered ("Source directories searched: ");
+  puts_filtered (source_path);
+  puts_filtered ("\n");
 }
 
 /* Forget what we learned about line positions in source files,
@@ -166,18 +214,22 @@ void
 forget_cached_source_info ()
 {
   register struct symtab *s;
+  register struct objfile *objfile;
 
-  for (s = symtab_list; s; s = s->next)
+  for (objfile = object_files; objfile != NULL; objfile = objfile -> next)
     {
-      if (s->line_charpos != 0)
-       {
-         free (s->line_charpos);
-         s->line_charpos = 0;
-       }
-      if (s->fullname != 0)
+      for (s = objfile -> symtabs; s != NULL; s = s -> next)
        {
-         free (s->fullname);
-         s->fullname = 0;
+         if (s -> line_charpos != NULL)
+           {
+             mfree (objfile -> md, s -> line_charpos);
+             s -> line_charpos = NULL;
+           }
+         if (s -> fullname != NULL)
+           {
+             mfree (objfile -> md, s -> fullname);
+             s -> fullname = NULL;
+           }
        }
     }
 }
@@ -209,7 +261,7 @@ directory_command (dirname, from_tty)
   else
     mod_path (dirname, &source_path);
   if (from_tty)
-    show_directories ();
+    show_directories ((char *)0, from_tty);
   forget_cached_source_info ();
 }
 
@@ -231,15 +283,14 @@ mod_path (dirname, which_path)
 
   do
     {
-      extern char *index ();
       char *name = dirname;
       register char *p;
       struct stat st;
 
       {
-       char *colon = index (name, ':');
-       char *space = index (name, ' ');
-       char *tab = index (name, '\t');
+       char *colon = strchr (name, ':');
+       char *space = strchr (name, ' ');
+       char *tab = strchr (name, '\t');
        if (colon == 0 && space == 0 && tab ==  0)
          p = dirname = name + strlen (name);
        else
@@ -293,17 +344,30 @@ mod_path (dirname, which_path)
       if (name[0] == '~')
        name = tilde_expand (name);
       else if (name[0] != '/' && name[0] != '$')
-       name = concat (current_directory, "/", name);
+       name = concat (current_directory, "/", name, NULL);
       else
        name = savestring (name, p - name);
       make_cleanup (free, name);
 
       /* Unless it's a variable, check existence.  */
       if (name[0] != '$') {
+       /* These are warnings, not errors, since we don't want a
+          non-existent directory in a .gdbinit file to stop processing
+          of the .gdbinit file.
+
+          Whether they get added to the path is more debatable.  Current
+          answer is yes, in case the user wants to go make the directory
+          or whatever.  If the directory continues to not exist/not be
+          a directory/etc, then having them in the path should be
+          harmless.  */
        if (stat (name, &st) < 0)
-         perror_with_name (name);
-       if ((st.st_mode & S_IFMT) != S_IFDIR)
-         error ("%s is not a directory.", name);
+         {
+           int save_errno = errno;
+           fprintf_unfiltered (gdb_stderr, "Warning: ");
+           print_sys_errmsg (name, save_errno);
+         }
+       else if ((st.st_mode & S_IFMT) != S_IFDIR)
+         warning ("%s is not a directory.", name);
       }
 
     append:
@@ -323,7 +387,7 @@ mod_path (dirname, which_path)
                  goto skip_dup;        /* Same dir twice in one cmd */
                strcpy (p, &p[len+1]);  /* Copy from next \0 or  : */
              }
-           p = index (p, ':');
+           p = strchr (p, ':');
            if (p != 0)
              ++p;
            else
@@ -338,15 +402,15 @@ mod_path (dirname, which_path)
 
                c = old[prefix];
                old[prefix] = '\0';
-               temp = concat (old, ":", name);
+               temp = concat (old, ":", name, NULL);
                old[prefix] = c;
-               *which_path = concat (temp, "", &old[prefix]);
+               *which_path = concat (temp, "", &old[prefix], NULL);
                prefix = strlen (temp);
                free (temp);
              }
            else
              {
-               *which_path = concat (name, (old[0]? ":" : old), old);
+               *which_path = concat (name, (old[0]? ":" : old), old, NULL);
                prefix = strlen (name);
              }
            free (old);
@@ -359,32 +423,40 @@ mod_path (dirname, which_path)
 
 
 static void
-source_info ()
+source_info (ignore, from_tty)
+     char *ignore;
+     int from_tty;
 {
   register struct symtab *s = current_source_symtab;
 
   if (!s)
     {
-      printf("No current source file.\n");
+      printf_filtered("No current source file.\n");
       return;
     }
-  printf ("Current source file is %s\n", s->filename);
+  printf_filtered ("Current source file is %s\n", s->filename);
   if (s->dirname)
-    printf ("Compilation directory is %s\n", s->dirname);
+    printf_filtered ("Compilation directory is %s\n", s->dirname);
   if (s->fullname)
-    printf ("Located in %s\n", s->fullname);
+    printf_filtered ("Located in %s\n", s->fullname);
   if (s->nlines)
-    printf ("Contains %d lines\n", s->nlines);
+    printf_filtered ("Contains %d line%s.\n", s->nlines,
+                    s->nlines == 1 ? "" : "s");
 
-  printf("Source language %s.\n", language_str (s->language));
+  printf_filtered("Source language is %s.\n", language_str (s->language));
 }
 
 
 \f
 /* Open a file named STRING, searching path PATH (dir names sep by colons)
    using mode MODE and protection bits PROT in the calls to open.
+
    If TRY_CWD_FIRST, try to open ./STRING before searching PATH.
-   (ie pretend the first element of PATH is ".")
+   (ie pretend the first element of PATH is ".").  This also indicates
+   that a slash in STRING disables searching of the path (this is
+   so that "exec-file ./foo" or "symbol-file ./foo" insures that you
+   get that particular version of foo or an error message).
+
    If FILENAMED_OPENED is non-null, set it to a newly allocated string naming
    the actual file opened (this string will always start with a "/".  We
    have to take special pains to avoid doubling the "/" between the directory
@@ -414,24 +486,24 @@ openp (path, try_cwd_first, string, mode, prot, filename_opened)
   if (!path)
     path = ".";
 
-  /* ./foo => foo */
-  while (string[0] == '.' && string[1] == '/')
-    string += 2;
-
   if (try_cwd_first || string[0] == '/')
     {
       filename = string;
       fd = open (filename, mode, prot);
-      if (fd >= 0 || string[0] == '/')
+      if (fd >= 0 || string[0] == '/' || strchr (string, '/'))
        goto done;
     }
 
+  /* ./foo => foo */
+  while (string[0] == '.' && string[1] == '/')
+    string += 2;
+
   alloclen = strlen (path) + strlen (string) + 2;
   filename = (char *) alloca (alloclen);
   fd = -1;
   for (p = path; p; p = p1 ? p1 + 1 : 0)
     {
-      p1 = (char *) index (p, ':');
+      p1 = (char *) strchr (p, ':');
       if (p1)
        len = p1 - p;
       else
@@ -456,9 +528,10 @@ openp (path, try_cwd_first, string, mode, prot, filename_opened)
        filename[len] = 0;
       }
 
-      /* Beware the // my son, the Emacs barfs, the botch that catch... */
-      while (len > 1 && filename[len-1] == '/')
-       filename[--len] = 0;
+      /* Remove trailing slashes */
+      while (len > 0 && filename[len-1] == '/')
+       filename[--len] = 0;
+
       strcat (filename+len, "/");
       strcat (filename, string);
 
@@ -478,7 +551,7 @@ openp (path, try_cwd_first, string, mode, prot, filename_opened)
           
        *filename_opened = concat (current_directory, 
           '/' == current_directory[strlen(current_directory)-1]? "": "/",
-                                  filename);
+                                  filename, NULL);
       }
 
   return fd;
@@ -486,13 +559,15 @@ openp (path, try_cwd_first, string, mode, prot, filename_opened)
 
 /* Open a source file given a symtab S.  Returns a file descriptor
    or negative number for error.  */
-int
+
+static int
 open_source_file (s)
      struct symtab *s;
 {
   char *path = source_path;
   char *p;
   int result;
+  char *fullname;
 
   /* Quick way out if we already know its full name */
   if (s->fullname) 
@@ -501,7 +576,7 @@ open_source_file (s)
       if (result >= 0)
         return result;
       /* Didn't work -- free old one, try again. */
-      free (s->fullname);
+      mfree (s->objfile->md, s->fullname);
       s->fullname = NULL;
     }
 
@@ -525,7 +600,21 @@ open_source_file (s)
       }
     }
 
-  return openp (path, 0, s->filename, O_RDONLY, 0, &s->fullname);
+  result = openp (path, 0, s->filename, O_RDONLY, 0, &s->fullname);
+  if (result < 0)
+    {
+      /* Didn't work.  Try using just the basename. */
+      p = basename (s->filename);
+      if (p != s->filename)
+       result = openp(path, 0, p, O_RDONLY,0, &s->fullname);
+    }
+  if (result >= 0)
+    {
+      fullname = s -> fullname;
+      s -> fullname = mstrsave (s -> objfile -> md, s -> fullname);
+      free (fullname);
+    }
+  return result;
 }
 
 \f
@@ -543,47 +632,90 @@ find_source_lines (s, desc)
   register char *data, *p, *end;
   int nlines = 0;
   int lines_allocated = 1000;
-  int *line_charpos = (int *) xmalloc (lines_allocated * sizeof (int));
+  int *line_charpos;
+  long exec_mtime;
+  int size;
+#ifdef LSEEK_NOT_LINEAR
+  char c;
+#endif
 
+  line_charpos = (int *) xmmalloc (s -> objfile -> md,
+                                  lines_allocated * sizeof (int));
   if (fstat (desc, &st) < 0)
-    perror_with_name (s->filename);
-  if (exec_bfd && bfd_get_mtime(exec_bfd) < st.st_mtime)
-    printf ("Source file is more recent than executable.\n");
+   perror_with_name (s->filename);
+
+  if (exec_bfd) {
+    exec_mtime = bfd_get_mtime(exec_bfd);
+    if (exec_mtime && exec_mtime < st.st_mtime)
+     printf_filtered ("Source file is more recent than executable.\n");
+  }
+
+#ifdef LSEEK_NOT_LINEAR
+  /* Have to read it byte by byte to find out where the chars live */
+
+   line_charpos[0] = tell(desc);
+   nlines = 1;
+   while (myread(desc, &c, 1)>0) 
+   {
+     if (c == '\n') 
+     {
+       if (nlines == lines_allocated) 
+       {
+        lines_allocated *= 2;
+        line_charpos =
+         (int *) xmrealloc (s -> objfile -> md, (char *) line_charpos,
+                            sizeof (int) * lines_allocated);
+       }
+       line_charpos[nlines++] = tell(desc);
+     }
+   }
+
+#else
+  /* st_size might be a large type, but we only support source files whose 
+     size fits in an int.  FIXME. */
+  size = (int) st.st_size;
 
 #ifdef BROKEN_LARGE_ALLOCA
-  data = (char *) xmalloc (st.st_size);
+  data = (char *) xmalloc (size);
   make_cleanup (free, data);
 #else
-  data = (char *) alloca (st.st_size);
+  data = (char *) alloca (size);
 #endif
-  if (myread (desc, data, st.st_size) < 0)
-    perror_with_name (s->filename);
-  end = data + st.st_size;
+  if (myread (desc, data, size) < 0)
+   perror_with_name (s->filename);
+  end = data + size;
   p = data;
   line_charpos[0] = 0;
   nlines = 1;
   while (p != end)
+  {
+    if (*p++ == '\n'
+       /* A newline at the end does not start a new line.  */
+       && p != end)
     {
-      if (*p++ == '\n'
-         /* A newline at the end does not start a new line.  */
-         && p != end)
-       {
-         if (nlines == lines_allocated)
-           {
-             lines_allocated *= 2;
-             line_charpos = (int *) xrealloc (line_charpos,
-                                              sizeof (int) * lines_allocated);
-           }
-         line_charpos[nlines++] = p - data;
-       }
+      if (nlines == lines_allocated)
+      {
+       lines_allocated *= 2;
+       line_charpos =
+        (int *) xmrealloc (s -> objfile -> md, (char *) line_charpos,
+                           sizeof (int) * lines_allocated);
+      }
+      line_charpos[nlines++] = p - data;
     }
+  }
+#endif
   s->nlines = nlines;
-  s->line_charpos = (int *) xrealloc (line_charpos, nlines * sizeof (int));
+  s->line_charpos =
+   (int *) xmrealloc (s -> objfile -> md, (char *) line_charpos,
+                     nlines * sizeof (int));
+
 }
 
 /* Return the character position of a line LINE in symtab S.
    Return 0 if anything is invalid.  */
 
+#if 0  /* Currently unused */
+
 int
 source_line_charpos (s, line)
      struct symtab *s;
@@ -618,13 +750,16 @@ source_charpos_line (s, chr)
     line = s->nlines;
   return line;
 }
+
+#endif /* 0 */
+
 \f
 /* Get full pathname and line number positions for a symtab.
    Return nonzero if line numbers may have changed.
    Set *FULLNAME to actual name of the file as found by `openp',
    or to 0 if the file is not found.  */
 
-int
+static int
 get_filename_and_charpos (s, fullname)
      struct symtab *s;
      char **fullname;
@@ -656,19 +791,23 @@ get_filename_and_charpos (s, fullname)
    Return 1 if successful, 0 if could not find the file.  */
 
 int
-identify_source_line (s, line, mid_statement)
+identify_source_line (s, line, mid_statement, pc)
      struct symtab *s;
      int line;
      int mid_statement;
+     CORE_ADDR pc;
 {
   if (s->line_charpos == 0)
     get_filename_and_charpos (s, (char **)NULL);
   if (s->fullname == 0)
     return 0;
-  printf ("\032\032%s:%d:%d:%s:0x%x\n", s->fullname,
+  if (line > s->nlines)
+    /* Don't index off the end of the line_charpos array.  */
+    return 0;
+  printf_unfiltered ("\032\032%s:%d:%d:%s:0x%lx\n", s->fullname,
          line, s->line_charpos[line - 1],
          mid_statement ? "middle" : "beg",
-         get_frame_pc (get_current_frame()));
+         (unsigned long) pc);
   current_source_line = line;
   first_line_listed = line;
   last_line_listed = line;
@@ -722,7 +861,7 @@ print_source_lines (s, line, stopline, noerror)
       perror_with_name (s->filename);
     }
 
-  stream = fdopen (desc, "r");
+  stream = fdopen (desc, FOPEN_RT);
   clearerr (stream);
 
   while (nlines-- > 0)
@@ -733,7 +872,7 @@ print_source_lines (s, line, stopline, noerror)
       printf_filtered ("%d\t", current_source_line++);
       do
        {
-         if (c < 040 && c != '\t' && c != '\n')
+         if (c < 040 && c != '\t' && c != '\n' && c != '\r')
              printf_filtered ("^%c", c + 0100);
          else if (c == 0177)
            printf_filtered ("^?");
@@ -761,8 +900,8 @@ ambiguous_line_spec (sals)
   int i;
 
   for (i = 0; i < sals->nelts; ++i)
-    printf("file: \"%s\", line number: %d\n",
-          sals->sals[i].symtab->filename, sals->sals[i].line);
+    printf_filtered("file: \"%s\", line number: %d\n",
+                   sals->sals[i].symtab->filename, sals->sals[i].line);
 }
 
 
@@ -781,7 +920,7 @@ list_command (arg, from_tty)
   int linenum_beg = 0;
   char *p;
 
-  if (symtab_list == 0 && partial_symtab_list == 0)
+  if (!have_full_symbols () && !have_partial_symbols())
     error ("No symbol table is loaded.  Use the \"file\" command.");
 
   /* Pull in a current source symtab if necessary */
@@ -791,7 +930,7 @@ list_command (arg, from_tty)
 
   /* "l" or "l +" lists next ten lines.  */
 
-  if (arg == 0 || !strcmp (arg, "+"))
+  if (arg == 0 || STREQ (arg, "+"))
     {
       if (current_source_symtab == 0)
        error ("No default source file yet.  Do \"help list\".");
@@ -801,7 +940,7 @@ list_command (arg, from_tty)
     }
 
   /* "l -" lists previous ten lines, the ones before the ten just listed.  */
-  if (!strcmp (arg, "-"))
+  if (STREQ (arg, "-"))
     {
       if (current_source_symtab == 0)
        error ("No default source file yet.  Do \"help list\".");
@@ -822,7 +961,7 @@ list_command (arg, from_tty)
     dummy_beg = 1;
   else
     {
-      sals = decode_line_1 (&arg1, 0, 0, 0);
+      sals = decode_line_1 (&arg1, 0, 0, 0, 0);
 
       if (! sals.nelts) return;  /*  C++  */
       if (sals.nelts > 1)
@@ -854,9 +993,9 @@ list_command (arg, from_tty)
       else
        {
          if (dummy_beg)
-           sals_end = decode_line_1 (&arg1, 0, 0, 0);
+           sals_end = decode_line_1 (&arg1, 0, 0, 0, 0);
          else
-           sals_end = decode_line_1 (&arg1, 0, sal.symtab, sal.line);
+           sals_end = decode_line_1 (&arg1, 0, sal.symtab, sal.line, 0);
          if (sals_end.nelts == 0) 
            return;
          if (sals_end.nelts > 1)
@@ -886,16 +1025,20 @@ list_command (arg, from_tty)
   if (*arg == '*')
     {
       if (sal.symtab == 0)
-       error ("No source file for address %s.", local_hex_string(sal.pc));
+       error ("No source file for address %s.",
+               local_hex_string((unsigned long) sal.pc));
       sym = find_pc_function (sal.pc);
       if (sym)
-       printf ("%s is in %s (%s, line %d).\n",
-               local_hex_string(sal.pc), 
-               SYMBOL_NAME (sym), sal.symtab->filename, sal.line);
+       {
+         printf_filtered ("%s is in ",
+                          local_hex_string((unsigned long) sal.pc));
+         fputs_filtered (SYMBOL_SOURCE_NAME (sym), gdb_stdout);
+         printf_filtered (" (%s:%d).\n", sal.symtab->filename, sal.line);
+       }
       else
-       printf ("%s is in %s, line %d.\n",
-               local_hex_string(sal.pc), 
-               sal.symtab->filename, sal.line);
+       printf_filtered ("%s is at %s:%d.\n",
+                        local_hex_string((unsigned long) sal.pc), 
+                        sal.symtab->filename, sal.line);
     }
 
   /* If line was not specified by just a line number,
@@ -956,10 +1099,7 @@ line_info (arg, from_tty)
     {
       sals = decode_line_spec_1 (arg, 0);
       
-      /* If this command is repeated with RET,
-        turn it into the no-arg variant.  */
-      if (from_tty)
-       *arg = 0;
+      dont_repeat ();
     }
 
   /* C++  More than one line may have been specified, as when the user
@@ -969,29 +1109,66 @@ line_info (arg, from_tty)
       sal = sals.sals[i];
       
       if (sal.symtab == 0)
-       error ("No source file specified.");
-
-      if (sal.line > 0
+       {
+         printf_filtered ("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.  */
+             printf_filtered (" for address ");
+             wrap_here ("  ");
+             print_address (sal.pc, gdb_stdout);
+           }
+         else
+           printf_filtered (".");
+         printf_filtered ("\n");
+       }
+      else if (sal.line > 0
          && find_line_pc_range (sal.symtab, sal.line, &start_pc, &end_pc))
        {
          if (start_pc == end_pc)
-           printf ("Line %d of \"%s\" is at pc %s but contains no code.\n",
-                   sal.line, sal.symtab->filename, local_hex_string(start_pc));
+           {
+             printf_filtered ("Line %d of \"%s\"",
+                              sal.line, sal.symtab->filename);
+             wrap_here ("  ");
+             printf_filtered (" is at address ");
+             print_address (start_pc, gdb_stdout);
+             wrap_here ("  ");
+             printf_filtered (" but contains no code.\n");
+           }
          else
-           printf ("Line %d of \"%s\" starts at pc %s",
-                   sal.line, sal.symtab->filename, 
-                   local_hex_string(start_pc));
-           printf (" and ends at %s.\n",
-                   local_hex_string(end_pc));
+           {
+             printf_filtered ("Line %d of \"%s\"",
+                              sal.line, sal.symtab->filename);
+             wrap_here ("  ");
+             printf_filtered (" starts at address ");
+             print_address (start_pc, gdb_stdout);
+             wrap_here ("  ");
+             printf_filtered (" and ends at ");
+             print_address (end_pc, gdb_stdout);
+             printf_filtered (".\n");
+           }
+
          /* x/i should display this line's code.  */
          set_next_address (start_pc);
+
          /* Repeating "info line" should do the following line.  */
          last_line_listed = sal.line + 1;
+
+         /* If this is the only line, show the source code.  If it could
+            not find the file, don't do anything special.  */
+         if (frame_file_full_name && sals.nelts == 1)
+           identify_source_line (sal.symtab, sal.line, 0, start_pc);
        }
       else
-       printf ("Line number %d is out of range for \"%s\".\n",
-               sal.line, sal.symtab->filename);
+       /* 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, sal.symtab->filename);
     }
+  free (sals.sals);
 }
 \f
 /* Commands to search the source file for a regexp.  */
@@ -1036,7 +1213,7 @@ forward_search_command (regex, from_tty)
       perror_with_name (current_source_symtab->filename);
     }
 
-  stream = fdopen (desc, "r");
+  stream = fdopen (desc, FOPEN_RT);
   clearerr (stream);
   while (1) {
 /* FIXME!!!  We walk right off the end of buf if we get a long line!!! */
@@ -1064,7 +1241,7 @@ forward_search_command (regex, from_tty)
     line++;
   }
 
-  printf ("Expression not found\n");
+  printf_filtered ("Expression not found\n");
   fclose (stream);
 }
 
@@ -1108,7 +1285,7 @@ reverse_search_command (regex, from_tty)
       perror_with_name (current_source_symtab->filename);
     }
 
-  stream = fdopen (desc, "r");
+  stream = fdopen (desc, FOPEN_RT);
   clearerr (stream);
   while (line > 1)
     {
@@ -1142,7 +1319,7 @@ reverse_search_command (regex, from_tty)
        }
     }
 
-  printf ("Expression not found\n");
+  printf_filtered ("Expression not found\n");
   fclose (stream);
   return;
 }
@@ -1150,15 +1327,24 @@ reverse_search_command (regex, from_tty)
 void
 _initialize_source ()
 {
+  struct cmd_list_element *c;
   current_source_symtab = 0;
   init_source_path ();
 
-  add_com ("directory", class_files, directory_command,
+  /* The intention is to use POSIX Basic Regular Expressions.
+     Always use the GNU regex routine for consistency across all hosts.
+     Our current GNU regex.c does not have all the POSIX features, so this is
+     just an approximation.  */
+  re_set_syntax (RE_SYNTAX_GREP);
+
+  c = add_cmd ("directory", class_files, directory_command,
           "Add directory DIR to beginning of search path for source files.\n\
 Forget cached info on source file locations and line positions.\n\
 DIR can also be $cwd for the current working directory, or $cdir for the\n\
 directory in which the source file was compiled into object code.\n\
-With no argument, reset the search path to $cdir:$cwd, the default.");
+With no argument, reset the search path to $cdir:$cwd, the default.",
+              &cmdlist);
+  c->completer = filename_completer;
 
   add_cmd ("directories", no_class, show_directories,
           "Current search path for finding source files.\n\
@@ -1201,7 +1387,7 @@ Lines can be specified in these ways:\n\
   FILE:FUNCTION, to distinguish among like-named static functions.\n\
   *ADDRESS, to list around the line containing that address.\n\
 With two args if one is empty it stands for ten lines away from the other arg.");
-  add_com_alias ("l", "list", class_files, 0);
+  add_com_alias ("l", "list", class_files, 1);
 
   add_show_from_set
     (add_set_cmd ("listsize", class_support, var_uinteger,
This page took 0.035698 seconds and 4 git commands to generate.