1 /* List lines of source files for GDB, the GNU debugger.
2 Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
3 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
24 #include "expression.h"
32 #include <sys/types.h>
33 #include "gdb_string.h"
37 #include "gdb_regex.h"
43 #include "filenames.h" /* for DOSish file names */
44 #include "completer.h"
49 #ifdef CRLF_SOURCE_FILES
51 /* Define CRLF_SOURCE_FILES in an xm-*.h file if source files on the
52 host use \r\n rather than just \n. Defining CRLF_SOURCE_FILES is
53 much faster than defining LSEEK_NOT_LINEAR. */
59 #define OPEN_MODE (O_RDONLY | O_BINARY)
60 #define FDOPEN_MODE FOPEN_RB
62 #else /* ! defined (CRLF_SOURCE_FILES) */
64 #define OPEN_MODE O_RDONLY
65 #define FDOPEN_MODE FOPEN_RT
67 #endif /* ! defined (CRLF_SOURCE_FILES) */
69 /* Prototypes for exported functions. */
71 void _initialize_source (void);
73 /* Prototypes for local functions. */
75 static int get_filename_and_charpos (struct symtab
*, char **);
77 static void reverse_search_command (char *, int);
79 static void forward_search_command (char *, int);
81 static void line_info (char *, int);
83 static void list_command (char *, int);
85 static void ambiguous_line_spec (struct symtabs_and_lines
*);
87 static void source_info (char *, int);
89 static void show_directories (char *, int);
91 /* Path of directories to search for source files.
92 Same format as the PATH environment variable's value. */
96 /* Symtab of default file for listing lines of. */
98 struct symtab
*current_source_symtab
;
100 /* Default next line to list. */
102 int current_source_line
;
104 /* Default number of lines to print with commands like "list".
105 This is based on guessing how many long (i.e. more than chars_per_line
106 characters) lines there will be. To be completely correct, "list"
107 and friends should be rewritten to count characters and see where
108 things are wrapping, but that would be a fair amount of work. */
110 int lines_to_list
= 10;
112 /* Line number of last line printed. Default for various commands.
113 current_source_line is usually, but not always, the same as this. */
115 static int last_line_listed
;
117 /* First line number listed by last listing command. */
119 static int first_line_listed
;
121 /* Saves the name of the last source file visited and a possible error code.
122 Used to prevent repeating annoying "No such file or directories" msgs */
124 static struct symtab
*last_source_visited
= NULL
;
125 static int last_source_error
= 0;
128 /* Set the source file default for the "list" command to be S.
130 If S is NULL, and we don't have a default, find one. This
131 should only be called when the user actually tries to use the
132 default, since we produce an error if we can't find a reasonable
133 default. Also, since this can cause symbols to be read, doing it
134 before we need to would make things slower than necessary. */
137 select_source_symtab (register struct symtab
*s
)
139 struct symtabs_and_lines sals
;
140 struct symtab_and_line sal
;
141 struct partial_symtab
*ps
;
142 struct partial_symtab
*cs_pst
= 0;
147 current_source_symtab
= s
;
148 current_source_line
= 1;
152 if (current_source_symtab
)
155 /* Make the default place to list be the function `main'
157 if (lookup_symbol (main_name (), 0, VAR_NAMESPACE
, 0, NULL
))
159 sals
= decode_line_spec (main_name (), 1);
162 current_source_symtab
= sal
.symtab
;
163 current_source_line
= max (sal
.line
- (lines_to_list
- 1), 1);
164 if (current_source_symtab
)
168 /* All right; find the last file in the symtab list (ignoring .h's). */
170 current_source_line
= 1;
172 for (ofp
= object_files
; ofp
!= NULL
; ofp
= ofp
->next
)
174 for (s
= ofp
->symtabs
; s
; s
= s
->next
)
176 char *name
= s
->filename
;
177 int len
= strlen (name
);
178 if (!(len
> 2 && (STREQ (&name
[len
- 2], ".h"))))
180 current_source_symtab
= s
;
184 if (current_source_symtab
)
187 /* Howabout the partial symbol tables? */
189 for (ofp
= object_files
; ofp
!= NULL
; ofp
= ofp
->next
)
191 for (ps
= ofp
->psymtabs
; ps
!= NULL
; ps
= ps
->next
)
193 char *name
= ps
->filename
;
194 int len
= strlen (name
);
195 if (!(len
> 2 && (STREQ (&name
[len
- 2], ".h"))))
205 internal_error (__FILE__
, __LINE__
,
206 "select_source_symtab: "
207 "readin pst found and no symtabs.");
211 current_source_symtab
= PSYMTAB_TO_SYMTAB (cs_pst
);
214 if (current_source_symtab
)
217 error ("Can't find a default source file");
221 show_directories (char *ignore
, int from_tty
)
223 puts_filtered ("Source directories searched: ");
224 puts_filtered (source_path
);
225 puts_filtered ("\n");
228 /* Forget what we learned about line positions in source files, and
229 which directories contain them; must check again now since files
230 may be found in a different directory now. */
233 forget_cached_source_info (void)
235 register struct symtab
*s
;
236 register struct objfile
*objfile
;
237 struct partial_symtab
*pst
;
239 for (objfile
= object_files
; objfile
!= NULL
; objfile
= objfile
->next
)
241 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
243 if (s
->line_charpos
!= NULL
)
245 xmfree (objfile
->md
, s
->line_charpos
);
246 s
->line_charpos
= NULL
;
248 if (s
->fullname
!= NULL
)
250 xmfree (objfile
->md
, s
->fullname
);
255 ALL_OBJFILE_PSYMTABS (objfile
, pst
)
257 if (pst
->fullname
!= NULL
)
259 xfree (pst
->fullname
);
260 pst
->fullname
= NULL
;
267 init_source_path (void)
271 sprintf (buf
, "$cdir%c$cwd", DIRNAME_SEPARATOR
);
272 source_path
= xstrdup (buf
);
273 forget_cached_source_info ();
276 /* Add zero or more directories to the front of the source path. */
279 directory_command (char *dirname
, int from_tty
)
282 /* FIXME, this goes to "delete dir"... */
285 if (from_tty
&& query ("Reinitialize source path to empty? "))
293 mod_path (dirname
, &source_path
);
294 last_source_visited
= NULL
;
297 show_directories ((char *) 0, from_tty
);
298 forget_cached_source_info ();
301 /* Add zero or more directories to the front of an arbitrary path. */
304 mod_path (char *dirname
, char **which_path
)
306 char *old
= *which_path
;
312 dirname
= xstrdup (dirname
);
313 make_cleanup (xfree
, dirname
);
317 char *name
= dirname
;
322 char *separator
= strchr (name
, DIRNAME_SEPARATOR
);
323 char *space
= strchr (name
, ' ');
324 char *tab
= strchr (name
, '\t');
326 if (separator
== 0 && space
== 0 && tab
== 0)
327 p
= dirname
= name
+ strlen (name
);
331 if (separator
!= 0 && (p
== 0 || separator
< p
))
333 if (space
!= 0 && (p
== 0 || space
< p
))
335 if (tab
!= 0 && (p
== 0 || tab
< p
))
338 while (*dirname
== DIRNAME_SEPARATOR
345 if (!(IS_DIR_SEPARATOR (*name
) && p
<= name
+ 1) /* "/" */
346 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
347 /* On MS-DOS and MS-Windows, h:\ is different from h: */
348 && !(p
== name
+ 3 && name
[1] == ':') /* "d:/" */
350 && IS_DIR_SEPARATOR (p
[-1]))
351 /* Sigh. "foo/" => "foo" */
355 while (p
> name
&& p
[-1] == '.')
359 /* "." => getwd (). */
360 name
= current_directory
;
363 else if (p
> name
+ 1 && IS_DIR_SEPARATOR (p
[-2]))
373 /* "...foo/." => "...foo". */
384 name
= tilde_expand (name
);
385 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
386 else if (IS_ABSOLUTE_PATH (name
) && p
== name
+ 2) /* "d:" => "d:." */
387 name
= concat (name
, ".", NULL
);
389 else if (!IS_ABSOLUTE_PATH (name
) && name
[0] != '$')
390 name
= concat (current_directory
, SLASH_STRING
, name
, NULL
);
392 name
= savestring (name
, p
- name
);
393 make_cleanup (xfree
, name
);
395 /* Unless it's a variable, check existence. */
398 /* These are warnings, not errors, since we don't want a
399 non-existent directory in a .gdbinit file to stop processing
400 of the .gdbinit file.
402 Whether they get added to the path is more debatable. Current
403 answer is yes, in case the user wants to go make the directory
404 or whatever. If the directory continues to not exist/not be
405 a directory/etc, then having them in the path should be
407 if (stat (name
, &st
) < 0)
409 int save_errno
= errno
;
410 fprintf_unfiltered (gdb_stderr
, "Warning: ");
411 print_sys_errmsg (name
, save_errno
);
413 else if ((st
.st_mode
& S_IFMT
) != S_IFDIR
)
414 warning ("%s is not a directory.", name
);
419 register unsigned int len
= strlen (name
);
424 /* FIXME: strncmp loses in interesting ways on MS-DOS and
425 MS-Windows because of case-insensitivity and two different
426 but functionally identical slash characters. We need a
427 special filesystem-dependent file-name comparison function.
429 Actually, even on Unix I would use realpath() or its work-
430 alike before comparing. Then all the code above which
431 removes excess slashes and dots could simply go away. */
432 if (!strncmp (p
, name
, len
)
433 && (p
[len
] == '\0' || p
[len
] == DIRNAME_SEPARATOR
))
435 /* Found it in the search path, remove old copy */
437 p
--; /* Back over leading separator */
438 if (prefix
> p
- *which_path
)
439 goto skip_dup
; /* Same dir twice in one cmd */
440 strcpy (p
, &p
[len
+ 1]); /* Copy from next \0 or : */
442 p
= strchr (p
, DIRNAME_SEPARATOR
);
452 tinybuf
[0] = DIRNAME_SEPARATOR
;
455 /* If we have already tacked on a name(s) in this command, be sure they stay on the front as we tack on some more. */
462 temp
= concat (old
, tinybuf
, name
, NULL
);
464 *which_path
= concat (temp
, "", &old
[prefix
], NULL
);
465 prefix
= strlen (temp
);
470 *which_path
= concat (name
, (old
[0] ? tinybuf
: old
), old
, NULL
);
471 prefix
= strlen (name
);
479 while (*dirname
!= '\0');
484 source_info (char *ignore
, int from_tty
)
486 register struct symtab
*s
= current_source_symtab
;
490 printf_filtered ("No current source file.\n");
493 printf_filtered ("Current source file is %s\n", s
->filename
);
495 printf_filtered ("Compilation directory is %s\n", s
->dirname
);
497 printf_filtered ("Located in %s\n", s
->fullname
);
499 printf_filtered ("Contains %d line%s.\n", s
->nlines
,
500 s
->nlines
== 1 ? "" : "s");
502 printf_filtered ("Source language is %s.\n", language_str (s
->language
));
503 printf_filtered ("Compiled with %s debugging format.\n", s
->debugformat
);
508 /* Open a file named STRING, searching path PATH (dir names sep by some char)
509 using mode MODE and protection bits PROT in the calls to open.
511 If TRY_CWD_FIRST, try to open ./STRING before searching PATH.
512 (ie pretend the first element of PATH is "."). This also indicates
513 that a slash in STRING disables searching of the path (this is
514 so that "exec-file ./foo" or "symbol-file ./foo" insures that you
515 get that particular version of foo or an error message).
517 If FILENAME_OPENED is non-null, set it to a newly allocated string naming
518 the actual file opened (this string will always start with a "/". We
519 have to take special pains to avoid doubling the "/" between the directory
520 and the file, sigh! Emacs gets confuzzed by this when we print the
523 If a file is found, return the descriptor.
524 Otherwise, return -1, with errno set for the last name we tried to open. */
526 /* >>>> This should only allow files of certain types,
527 >>>> eg executable, non-directory */
529 openp (const char *path
, int try_cwd_first
, const char *string
,
531 char **filename_opened
)
534 register char *filename
;
543 #if defined(_WIN32) || defined(__CYGWIN__)
547 if (try_cwd_first
|| IS_ABSOLUTE_PATH (string
))
550 filename
= alloca (strlen (string
) + 1);
551 strcpy (filename
, string
);
552 fd
= open (filename
, mode
, prot
);
555 for (i
= 0; string
[i
]; i
++)
556 if (IS_DIR_SEPARATOR (string
[i
]))
561 while (string
[0] == '.' && IS_DIR_SEPARATOR (string
[1]))
564 alloclen
= strlen (path
) + strlen (string
) + 2;
565 filename
= alloca (alloclen
);
567 for (p
= path
; p
; p
= p1
? p1
+ 1 : 0)
569 p1
= strchr (p
, DIRNAME_SEPARATOR
);
575 if (len
== 4 && p
[0] == '$' && p
[1] == 'c'
576 && p
[2] == 'w' && p
[3] == 'd')
578 /* Name is $cwd -- insert current directory name instead. */
581 /* First, realloc the filename buffer if too short. */
582 len
= strlen (current_directory
);
583 newlen
= len
+ strlen (string
) + 2;
584 if (newlen
> alloclen
)
587 filename
= alloca (alloclen
);
589 strcpy (filename
, current_directory
);
593 /* Normal file name in path -- just use it. */
594 strncpy (filename
, p
, len
);
598 /* Remove trailing slashes */
599 while (len
> 0 && IS_DIR_SEPARATOR (filename
[len
- 1]))
602 strcat (filename
+ len
, SLASH_STRING
);
603 strcat (filename
, string
);
605 fd
= open (filename
, mode
);
614 *filename_opened
= NULL
;
615 else if (IS_ABSOLUTE_PATH (filename
))
616 *filename_opened
= gdb_realpath (filename
);
619 /* Beware the // my son, the Emacs barfs, the botch that catch... */
621 char *f
= concat (current_directory
,
622 IS_DIR_SEPARATOR (current_directory
[strlen (current_directory
) - 1])
625 *filename_opened
= gdb_realpath (f
);
629 /* OBSOLETE #ifdef MPW */
630 /* OBSOLETE This is a debugging hack that can go away when all combinations */
631 /* OBSOLETE of Mac and Unix names are handled reasonably. */
633 /* OBSOLETE extern int debug_openp; */
635 /* OBSOLETE if (debug_openp) */
637 /* OBSOLETE printf ("openp on %s, path %s mode %d prot %d\n returned %d", */
638 /* OBSOLETE string, path, mode, prot, fd); */
639 /* OBSOLETE if (*filename_opened) */
640 /* OBSOLETE printf (" (filename is %s)", *filename_opened); */
641 /* OBSOLETE printf ("\n"); */
644 /* OBSOLETE #endif *//* MPW */
650 /* This is essentially a convenience, for clients that want the behaviour
651 of openp, using source_path, but that really don't want the file to be
652 opened but want instead just to know what the full pathname is (as
653 qualified against source_path).
655 The current working directory is searched first.
657 If the file was found, this function returns 1, and FULL_PATHNAME is
658 set to the fully-qualified pathname.
660 Else, this functions returns 0, and FULL_PATHNAME is set to NULL.
663 source_full_path_of (char *filename
, char **full_pathname
)
667 fd
= openp (source_path
, 1, filename
, O_RDONLY
, 0, full_pathname
);
670 *full_pathname
= NULL
;
679 /* Open a source file given a symtab S. Returns a file descriptor or
680 negative number for error. */
683 open_source_file (struct symtab
*s
)
685 char *path
= source_path
;
690 /* Quick way out if we already know its full name */
693 result
= open (s
->fullname
, OPEN_MODE
);
696 /* Didn't work -- free old one, try again. */
697 xmfree (s
->objfile
->md
, s
->fullname
);
701 if (s
->dirname
!= NULL
)
703 /* Replace a path entry of $cdir with the compilation directory name */
705 /* We cast strstr's result in case an ANSIhole has made it const,
706 which produces a "required warning" when assigned to a nonconst. */
707 p
= (char *) strstr (source_path
, "$cdir");
708 if (p
&& (p
== path
|| p
[-1] == DIRNAME_SEPARATOR
)
709 && (p
[cdir_len
] == DIRNAME_SEPARATOR
|| p
[cdir_len
] == '\0'))
714 alloca (strlen (source_path
) + 1 + strlen (s
->dirname
) + 1);
715 len
= p
- source_path
;
716 strncpy (path
, source_path
, len
); /* Before $cdir */
717 strcpy (path
+ len
, s
->dirname
); /* new stuff */
718 strcat (path
+ len
, source_path
+ len
+ cdir_len
); /* After $cdir */
722 result
= openp (path
, 0, s
->filename
, OPEN_MODE
, 0, &s
->fullname
);
725 /* Didn't work. Try using just the basename. */
726 p
= lbasename (s
->filename
);
727 if (p
!= s
->filename
)
728 result
= openp (path
, 0, p
, OPEN_MODE
, 0, &s
->fullname
);
730 /* OBSOLETE #ifdef MPW */
731 /* OBSOLETE if (result < 0) */
733 /* OBSOLETE *//* Didn't work. Try using just the MPW basename. */
734 /* OBSOLETE p = (char *) mpw_basename (s->filename); */
735 /* OBSOLETE if (p != s->filename) */
736 /* OBSOLETE result = openp (path, 0, p, OPEN_MODE, 0, &s->fullname); */
738 /* OBSOLETE if (result < 0) */
740 /* OBSOLETE *//* Didn't work. Try using the mixed Unix/MPW basename. */
741 /* OBSOLETE p = (char *) mpw_mixed_basename (s->filename); */
742 /* OBSOLETE if (p != s->filename) */
743 /* OBSOLETE result = openp (path, 0, p, OPEN_MODE, 0, &s->fullname); */
745 /* OBSOLETE #endif MPW */
749 fullname
= s
->fullname
;
750 s
->fullname
= mstrsave (s
->objfile
->md
, s
->fullname
);
756 /* Return the path to the source file associated with symtab. Returns NULL
760 symtab_to_filename (struct symtab
*s
)
767 /* If we've seen the file before, just return fullname. */
772 /* Try opening the file to setup fullname */
774 fd
= open_source_file (s
);
776 return s
->filename
; /* File not found. Just use short name */
778 /* Found the file. Cleanup and return the full name */
785 /* Create and initialize the table S->line_charpos that records
786 the positions of the lines in the source file, which is assumed
787 to be open on descriptor DESC.
788 All set S->nlines to the number of such lines. */
791 find_source_lines (struct symtab
*s
, int desc
)
794 register char *data
, *p
, *end
;
796 int lines_allocated
= 1000;
801 line_charpos
= (int *) xmmalloc (s
->objfile
->md
,
802 lines_allocated
* sizeof (int));
803 if (fstat (desc
, &st
) < 0)
804 perror_with_name (s
->filename
);
806 if (s
&& s
->objfile
&& s
->objfile
->obfd
)
807 mtime
= bfd_get_mtime (s
->objfile
->obfd
);
809 mtime
= bfd_get_mtime (exec_bfd
);
811 if (mtime
&& mtime
< st
.st_mtime
)
813 warning ("Source file is more recent than executable.\n");
816 #ifdef LSEEK_NOT_LINEAR
820 /* Have to read it byte by byte to find out where the chars live */
822 line_charpos
[0] = lseek (desc
, 0, SEEK_CUR
);
824 while (myread (desc
, &c
, 1) > 0)
828 if (nlines
== lines_allocated
)
830 lines_allocated
*= 2;
832 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
833 sizeof (int) * lines_allocated
);
835 line_charpos
[nlines
++] = lseek (desc
, 0, SEEK_CUR
);
839 #else /* lseek linear. */
841 struct cleanup
*old_cleanups
;
843 /* st_size might be a large type, but we only support source files whose
844 size fits in an int. */
845 size
= (int) st
.st_size
;
847 /* Use malloc, not alloca, because this may be pretty large, and we may
848 run into various kinds of limits on stack size. */
849 data
= (char *) xmalloc (size
);
850 old_cleanups
= make_cleanup (xfree
, data
);
852 /* Reassign `size' to result of read for systems where \r\n -> \n. */
853 size
= myread (desc
, data
, size
);
855 perror_with_name (s
->filename
);
863 /* A newline at the end does not start a new line. */
866 if (nlines
== lines_allocated
)
868 lines_allocated
*= 2;
870 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
871 sizeof (int) * lines_allocated
);
873 line_charpos
[nlines
++] = p
- data
;
876 do_cleanups (old_cleanups
);
878 #endif /* lseek linear. */
881 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
882 nlines
* sizeof (int));
886 /* Return the character position of a line LINE in symtab S.
887 Return 0 if anything is invalid. */
889 #if 0 /* Currently unused */
892 source_line_charpos (struct symtab
*s
, int line
)
896 if (!s
->line_charpos
|| line
<= 0)
898 if (line
> s
->nlines
)
900 return s
->line_charpos
[line
- 1];
903 /* Return the line number of character position POS in symtab S. */
906 source_charpos_line (register struct symtab
*s
, register int chr
)
908 register int line
= 0;
911 if (s
== 0 || s
->line_charpos
== 0)
913 lnp
= s
->line_charpos
;
914 /* Files are usually short, so sequential search is Ok */
915 while (line
< s
->nlines
&& *lnp
<= chr
)
920 if (line
>= s
->nlines
)
928 /* Get full pathname and line number positions for a symtab.
929 Return nonzero if line numbers may have changed.
930 Set *FULLNAME to actual name of the file as found by `openp',
931 or to 0 if the file is not found. */
934 get_filename_and_charpos (struct symtab
*s
, char **fullname
)
936 register int desc
, linenums_changed
= 0;
938 desc
= open_source_file (s
);
946 *fullname
= s
->fullname
;
947 if (s
->line_charpos
== 0)
948 linenums_changed
= 1;
949 if (linenums_changed
)
950 find_source_lines (s
, desc
);
952 return linenums_changed
;
955 /* Print text describing the full name of the source file S
956 and the line number LINE and its corresponding character position.
957 The text starts with two Ctrl-z so that the Emacs-GDB interface
960 MID_STATEMENT is nonzero if the PC is not at the beginning of that line.
962 Return 1 if successful, 0 if could not find the file. */
965 identify_source_line (struct symtab
*s
, int line
, int mid_statement
,
968 if (s
->line_charpos
== 0)
969 get_filename_and_charpos (s
, (char **) NULL
);
970 if (s
->fullname
== 0)
972 if (line
> s
->nlines
)
973 /* Don't index off the end of the line_charpos array. */
975 annotate_source (s
->fullname
, line
, s
->line_charpos
[line
- 1],
978 current_source_line
= line
;
979 first_line_listed
= line
;
980 last_line_listed
= line
;
981 current_source_symtab
= s
;
986 /* Print source lines from the file of symtab S,
987 starting with line number LINE and stopping before line number STOPLINE. */
989 static void print_source_lines_base (struct symtab
*s
, int line
, int stopline
,
992 print_source_lines_base (struct symtab
*s
, int line
, int stopline
, int noerror
)
996 register FILE *stream
;
997 int nlines
= stopline
- line
;
999 /* Regardless of whether we can open the file, set current_source_symtab. */
1000 current_source_symtab
= s
;
1001 current_source_line
= line
;
1002 first_line_listed
= line
;
1005 /* If printing of source lines is disabled, just print file and line number */
1006 if (ui_out_test_flags (uiout
, ui_source_list
))
1009 /* Only prints "No such file or directory" once */
1010 if ((s
!= last_source_visited
) || (!last_source_error
))
1012 last_source_visited
= s
;
1013 desc
= open_source_file (s
);
1017 desc
= last_source_error
;
1031 last_source_error
= desc
;
1035 char *name
= alloca (strlen (s
->filename
) + 100);
1036 sprintf (name
, "%d\t%s", line
, s
->filename
);
1037 print_sys_errmsg (name
, errno
);
1041 ui_out_field_int (uiout
, "line", line
);
1042 ui_out_text (uiout
, "\tin ");
1043 ui_out_field_string (uiout
, "file", s
->filename
);
1044 ui_out_text (uiout
, "\n");
1046 printf_filtered ("%d\tin %s\n", line
, s
->filename
);
1052 last_source_error
= 0;
1054 if (s
->line_charpos
== 0)
1055 find_source_lines (s
, desc
);
1057 if (line
< 1 || line
> s
->nlines
)
1060 error ("Line number %d out of range; %s has %d lines.",
1061 line
, s
->filename
, s
->nlines
);
1064 if (lseek (desc
, s
->line_charpos
[line
- 1], 0) < 0)
1067 perror_with_name (s
->filename
);
1070 stream
= fdopen (desc
, FDOPEN_MODE
);
1073 while (nlines
-- > 0)
1081 last_line_listed
= current_source_line
;
1082 sprintf (buf
, "%d\t", current_source_line
++);
1083 ui_out_text (uiout
, buf
);
1086 if (c
< 040 && c
!= '\t' && c
!= '\n' && c
!= '\r')
1088 sprintf (buf
, "^%c", c
+ 0100);
1089 ui_out_text (uiout
, buf
);
1092 ui_out_text (uiout
, "^?");
1093 #ifdef CRLF_SOURCE_FILES
1096 /* Skip a \r character, but only before a \n. */
1097 int c1
= fgetc (stream
);
1100 printf_filtered ("^%c", c
+ 0100);
1102 ungetc (c1
, stream
);
1107 sprintf (buf
, "%c", c
);
1108 ui_out_text (uiout
, buf
);
1111 while (c
!= '\n' && (c
= fgetc (stream
)) >= 0);
1116 last_line_listed
= current_source_line
;
1117 printf_filtered ("%d\t", current_source_line
++);
1120 if (c
< 040 && c
!= '\t' && c
!= '\n' && c
!= '\r')
1121 printf_filtered ("^%c", c
+ 0100);
1123 printf_filtered ("^?");
1124 #ifdef CRLF_SOURCE_FILES
1127 /* Just skip \r characters. */
1131 printf_filtered ("%c", c
);
1133 while (c
!= '\n' && (c
= fgetc (stream
)) >= 0);
1140 /* Show source lines from the file of symtab S, starting with line
1141 number LINE and stopping before line number STOPLINE. If this is the
1142 not the command line version, then the source is shown in the source
1143 window otherwise it is simply printed */
1146 print_source_lines (struct symtab
*s
, int line
, int stopline
, int noerror
)
1148 print_source_lines_base (s
, line
, stopline
, noerror
);
1153 /* Print a list of files and line numbers which a user may choose from
1154 in order to list a function which was specified ambiguously (as with
1155 `list classname::overloadedfuncname', for example). The vector in
1156 SALS provides the filenames and line numbers. */
1159 ambiguous_line_spec (struct symtabs_and_lines
*sals
)
1163 for (i
= 0; i
< sals
->nelts
; ++i
)
1164 printf_filtered ("file: \"%s\", line number: %d\n",
1165 sals
->sals
[i
].symtab
->filename
, sals
->sals
[i
].line
);
1169 list_command (char *arg
, int from_tty
)
1171 struct symtabs_and_lines sals
, sals_end
;
1172 struct symtab_and_line sal
, sal_end
;
1178 int linenum_beg
= 0;
1181 if (!have_full_symbols () && !have_partial_symbols ())
1182 error ("No symbol table is loaded. Use the \"file\" command.");
1184 /* Pull in a current source symtab if necessary */
1185 if (current_source_symtab
== 0 &&
1186 (arg
== 0 || arg
[0] == '+' || arg
[0] == '-'))
1187 select_source_symtab (0);
1189 /* "l" or "l +" lists next ten lines. */
1191 if (arg
== 0 || STREQ (arg
, "+"))
1193 if (current_source_symtab
== 0)
1194 error ("No default source file yet. Do \"help list\".");
1195 print_source_lines (current_source_symtab
, current_source_line
,
1196 current_source_line
+ lines_to_list
, 0);
1200 /* "l -" lists previous ten lines, the ones before the ten just listed. */
1201 if (STREQ (arg
, "-"))
1203 if (current_source_symtab
== 0)
1204 error ("No default source file yet. Do \"help list\".");
1205 print_source_lines (current_source_symtab
,
1206 max (first_line_listed
- lines_to_list
, 1),
1207 first_line_listed
, 0);
1211 /* Now if there is only one argument, decode it in SAL
1213 If there are two arguments, decode them in SAL and SAL_END
1214 and clear NO_END; however, if one of the arguments is blank,
1215 set DUMMY_BEG or DUMMY_END to record that fact. */
1222 sals
= decode_line_1 (&arg1
, 0, 0, 0, 0);
1228 ambiguous_line_spec (&sals
);
1237 /* Record whether the BEG arg is all digits. */
1239 for (p
= arg
; p
!= arg1
&& *p
>= '0' && *p
<= '9'; p
++);
1240 linenum_beg
= (p
== arg1
);
1242 while (*arg1
== ' ' || *arg1
== '\t')
1248 while (*arg1
== ' ' || *arg1
== '\t')
1255 sals_end
= decode_line_1 (&arg1
, 0, 0, 0, 0);
1257 sals_end
= decode_line_1 (&arg1
, 0, sal
.symtab
, sal
.line
, 0);
1258 if (sals_end
.nelts
== 0)
1260 if (sals_end
.nelts
> 1)
1262 ambiguous_line_spec (&sals_end
);
1263 xfree (sals_end
.sals
);
1266 sal_end
= sals_end
.sals
[0];
1267 xfree (sals_end
.sals
);
1272 error ("Junk at end of line specification.");
1274 if (!no_end
&& !dummy_beg
&& !dummy_end
1275 && sal
.symtab
!= sal_end
.symtab
)
1276 error ("Specified start and end are in different files.");
1277 if (dummy_beg
&& dummy_end
)
1278 error ("Two empty args do not say what lines to list.");
1280 /* if line was specified by address,
1281 first print exactly which line, and which file.
1282 In this case, sal.symtab == 0 means address is outside
1283 of all known source files, not that user failed to give a filename. */
1286 if (sal
.symtab
== 0)
1287 /* FIXME-32x64--assumes sal.pc fits in long. */
1288 error ("No source file for address %s.",
1289 local_hex_string ((unsigned long) sal
.pc
));
1290 sym
= find_pc_function (sal
.pc
);
1293 print_address_numeric (sal
.pc
, 1, gdb_stdout
);
1294 printf_filtered (" is in ");
1295 fputs_filtered (SYMBOL_SOURCE_NAME (sym
), gdb_stdout
);
1296 printf_filtered (" (%s:%d).\n", sal
.symtab
->filename
, sal
.line
);
1300 print_address_numeric (sal
.pc
, 1, gdb_stdout
);
1301 printf_filtered (" is at %s:%d.\n",
1302 sal
.symtab
->filename
, sal
.line
);
1306 /* If line was not specified by just a line number,
1307 and it does not imply a symtab, it must be an undebuggable symbol
1308 which means no source code. */
1310 if (!linenum_beg
&& sal
.symtab
== 0)
1311 error ("No line number known for %s.", arg
);
1313 /* If this command is repeated with RET,
1314 turn it into the no-arg variant. */
1319 if (dummy_beg
&& sal_end
.symtab
== 0)
1320 error ("No default source file yet. Do \"help list\".");
1322 print_source_lines (sal_end
.symtab
,
1323 max (sal_end
.line
- (lines_to_list
- 1), 1),
1324 sal_end
.line
+ 1, 0);
1325 else if (sal
.symtab
== 0)
1326 error ("No default source file yet. Do \"help list\".");
1329 int first_line
= sal
.line
- lines_to_list
/ 2;
1331 if (first_line
< 1) first_line
= 1;
1333 print_source_lines (sal
.symtab
, first_line
, first_line
+ lines_to_list
,
1337 print_source_lines (sal
.symtab
, sal
.line
,
1339 ? sal
.line
+ lines_to_list
1340 : sal_end
.line
+ 1),
1344 /* Print info on range of pc's in a specified line. */
1347 line_info (char *arg
, int from_tty
)
1349 struct symtabs_and_lines sals
;
1350 struct symtab_and_line sal
;
1351 CORE_ADDR start_pc
, end_pc
;
1354 INIT_SAL (&sal
); /* initialize to zeroes */
1358 sal
.symtab
= current_source_symtab
;
1359 sal
.line
= last_line_listed
;
1361 sals
.sals
= (struct symtab_and_line
*)
1362 xmalloc (sizeof (struct symtab_and_line
));
1367 sals
= decode_line_spec_1 (arg
, 0);
1372 /* C++ More than one line may have been specified, as when the user
1373 specifies an overloaded function name. Print info on them all. */
1374 for (i
= 0; i
< sals
.nelts
; i
++)
1378 if (sal
.symtab
== 0)
1380 printf_filtered ("No line number information available");
1383 /* This is useful for "info line *0x7f34". If we can't tell the
1384 user about a source line, at least let them have the symbolic
1386 printf_filtered (" for address ");
1388 print_address (sal
.pc
, gdb_stdout
);
1391 printf_filtered (".");
1392 printf_filtered ("\n");
1394 else if (sal
.line
> 0
1395 && find_line_pc_range (sal
, &start_pc
, &end_pc
))
1397 if (start_pc
== end_pc
)
1399 printf_filtered ("Line %d of \"%s\"",
1400 sal
.line
, sal
.symtab
->filename
);
1402 printf_filtered (" is at address ");
1403 print_address (start_pc
, gdb_stdout
);
1405 printf_filtered (" but contains no code.\n");
1409 printf_filtered ("Line %d of \"%s\"",
1410 sal
.line
, sal
.symtab
->filename
);
1412 printf_filtered (" starts at address ");
1413 print_address (start_pc
, gdb_stdout
);
1415 printf_filtered (" and ends at ");
1416 print_address (end_pc
, gdb_stdout
);
1417 printf_filtered (".\n");
1420 /* x/i should display this line's code. */
1421 set_next_address (start_pc
);
1423 /* Repeating "info line" should do the following line. */
1424 last_line_listed
= sal
.line
+ 1;
1426 /* If this is the only line, show the source code. If it could
1427 not find the file, don't do anything special. */
1428 if (annotation_level
&& sals
.nelts
== 1)
1429 identify_source_line (sal
.symtab
, sal
.line
, 0, start_pc
);
1432 /* Is there any case in which we get here, and have an address
1433 which the user would want to see? If we have debugging symbols
1434 and no line numbers? */
1435 printf_filtered ("Line number %d is out of range for \"%s\".\n",
1436 sal
.line
, sal
.symtab
->filename
);
1441 /* Commands to search the source file for a regexp. */
1445 forward_search_command (char *regex
, int from_tty
)
1449 register FILE *stream
;
1453 line
= last_line_listed
+ 1;
1455 msg
= (char *) re_comp (regex
);
1459 if (current_source_symtab
== 0)
1460 select_source_symtab (0);
1462 desc
= open_source_file (current_source_symtab
);
1464 perror_with_name (current_source_symtab
->filename
);
1466 if (current_source_symtab
->line_charpos
== 0)
1467 find_source_lines (current_source_symtab
, desc
);
1469 if (line
< 1 || line
> current_source_symtab
->nlines
)
1472 error ("Expression not found");
1475 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1478 perror_with_name (current_source_symtab
->filename
);
1481 stream
= fdopen (desc
, FDOPEN_MODE
);
1485 static char *buf
= NULL
;
1487 int cursize
, newsize
;
1490 buf
= xmalloc (cursize
);
1499 if (p
- buf
== cursize
)
1501 newsize
= cursize
+ cursize
/ 2;
1502 buf
= xrealloc (buf
, newsize
);
1507 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1509 #ifdef CRLF_SOURCE_FILES
1510 /* Remove the \r, if any, at the end of the line, otherwise
1511 regular expressions that end with $ or \n won't work. */
1512 if (p
- buf
> 1 && p
[-2] == '\r')
1519 /* we now have a source line in buf, null terminate and match */
1521 if (re_exec (buf
) > 0)
1525 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1526 set_internalvar (lookup_internalvar ("_"),
1527 value_from_longest (builtin_type_int
,
1529 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1535 printf_filtered ("Expression not found\n");
1541 reverse_search_command (char *regex
, int from_tty
)
1545 register FILE *stream
;
1549 line
= last_line_listed
- 1;
1551 msg
= (char *) re_comp (regex
);
1555 if (current_source_symtab
== 0)
1556 select_source_symtab (0);
1558 desc
= open_source_file (current_source_symtab
);
1560 perror_with_name (current_source_symtab
->filename
);
1562 if (current_source_symtab
->line_charpos
== 0)
1563 find_source_lines (current_source_symtab
, desc
);
1565 if (line
< 1 || line
> current_source_symtab
->nlines
)
1568 error ("Expression not found");
1571 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1574 perror_with_name (current_source_symtab
->filename
);
1577 stream
= fdopen (desc
, FDOPEN_MODE
);
1581 /* FIXME!!! We walk right off the end of buf if we get a long line!!! */
1582 char buf
[4096]; /* Should be reasonable??? */
1583 register char *p
= buf
;
1592 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1594 #ifdef CRLF_SOURCE_FILES
1595 /* Remove the \r, if any, at the end of the line, otherwise
1596 regular expressions that end with $ or \n won't work. */
1597 if (p
- buf
> 1 && p
[-2] == '\r')
1604 /* We now have a source line in buf; null terminate and match. */
1606 if (re_exec (buf
) > 0)
1610 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1611 set_internalvar (lookup_internalvar ("_"),
1612 value_from_longest (builtin_type_int
,
1614 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1618 if (fseek (stream
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1621 perror_with_name (current_source_symtab
->filename
);
1625 printf_filtered ("Expression not found\n");
1631 _initialize_source (void)
1633 struct cmd_list_element
*c
;
1634 current_source_symtab
= 0;
1635 init_source_path ();
1637 /* The intention is to use POSIX Basic Regular Expressions.
1638 Always use the GNU regex routine for consistency across all hosts.
1639 Our current GNU regex.c does not have all the POSIX features, so this is
1640 just an approximation. */
1641 re_set_syntax (RE_SYNTAX_GREP
);
1643 c
= add_cmd ("directory", class_files
, directory_command
,
1644 "Add directory DIR to beginning of search path for source files.\n\
1645 Forget cached info on source file locations and line positions.\n\
1646 DIR can also be $cwd for the current working directory, or $cdir for the\n\
1647 directory in which the source file was compiled into object code.\n\
1648 With no argument, reset the search path to $cdir:$cwd, the default.",
1652 add_com_alias ("use", "directory", class_files
, 0);
1654 c
->completer
= filename_completer
;
1656 add_cmd ("directories", no_class
, show_directories
,
1657 "Current search path for finding source files.\n\
1658 $cwd in the path means the current working directory.\n\
1659 $cdir in the path means the compilation directory of the source file.",
1664 add_com_alias ("D", "directory", class_files
, 0);
1665 add_cmd ("ld", no_class
, show_directories
,
1666 "Current search path for finding source files.\n\
1667 $cwd in the path means the current working directory.\n\
1668 $cdir in the path means the compilation directory of the source file.",
1672 add_info ("source", source_info
,
1673 "Information about the current source file.");
1675 add_info ("line", line_info
,
1676 concat ("Core addresses of the code for a source line.\n\
1677 Line can be specified as\n\
1678 LINENUM, to list around that line in current file,\n\
1679 FILE:LINENUM, to list around that line in that file,\n\
1680 FUNCTION, to list around beginning of that function,\n\
1681 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1683 Default is to describe the last source line that was listed.\n\n\
1684 This sets the default address for \"x\" to the line's first instruction\n\
1685 so that \"x/i\" suffices to start examining the machine code.\n\
1686 The address is also stored as the value of \"$_\".", NULL
));
1688 add_com ("forward-search", class_files
, forward_search_command
,
1689 "Search for regular expression (see regex(3)) from last line listed.\n\
1690 The matching line number is also stored as the value of \"$_\".");
1691 add_com_alias ("search", "forward-search", class_files
, 0);
1693 add_com ("reverse-search", class_files
, reverse_search_command
,
1694 "Search backward for regular expression (see regex(3)) from last line listed.\n\
1695 The matching line number is also stored as the value of \"$_\".");
1699 add_com_alias ("/", "forward-search", class_files
, 0);
1700 add_com_alias ("?", "reverse-search", class_files
, 0);
1703 add_com ("list", class_files
, list_command
,
1704 concat ("List specified function or line.\n\
1705 With no argument, lists ten more lines after or around previous listing.\n\
1706 \"list -\" lists the ten lines before a previous ten-line listing.\n\
1707 One argument specifies a line, and ten lines are listed around that line.\n\
1708 Two arguments with comma between specify starting and ending lines to list.\n\
1710 Lines can be specified in these ways:\n\
1711 LINENUM, to list around that line in current file,\n\
1712 FILE:LINENUM, to list around that line in that file,\n\
1713 FUNCTION, to list around beginning of that function,\n\
1714 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1715 *ADDRESS, to list around the line containing that address.\n\
1716 With two args if one is empty it stands for ten lines away from the other arg.", NULL
));
1719 add_com_alias ("l", "list", class_files
, 1);
1721 add_com_alias ("v", "list", class_files
, 1);
1724 add_com_alias ("file", "list", class_files
, 1);
1727 (add_set_cmd ("listsize", class_support
, var_uinteger
,
1728 (char *) &lines_to_list
,
1729 "Set number of source lines gdb will list by default.",
This page took 0.065121 seconds and 4 git commands to generate.