* ada-lang.c: Add include of source.h.

(is_known_support_routine): Improve the check verifying that the file
        associated to this frame exists.
        * Makefile.in (ada-lang.o): Add dependency on source.h.
This commit is contained in:
Joel Brobecker 2007-01-08 03:14:19 +00:00
parent cbeee26d75
commit 9bbc9174c0
3 changed files with 11 additions and 3 deletions

View File

@ -1,3 +1,10 @@
2007-01-06 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c: Add include of source.h.
(is_known_support_routine): Improve the check verifying that the file
associated to this frame exists.
* Makefile.in (ada-lang.o): Add dependency on source.h.
2007-01-07 Jim Blandy <jimb@codesourcery.com>
* ax-general.c (ax_const_l): Select proper opcode for the given

View File

@ -1696,7 +1696,8 @@ ada-lang.o: ada-lang.c $(defs_h) $(gdb_string_h) $(demangle_h) \
$(inferior_h) $(symfile_h) $(objfiles_h) $(breakpoint_h) \
$(gdbcore_h) $(hashtab_h) $(gdb_obstack_h) $(ada_lang_h) \
$(completer_h) $(gdb_stat_h) $(ui_out_h) $(block_h) $(infcall_h) \
$(dictionary_h) $(exceptions_h) $(annotate_h) $(valprint_h)
$(dictionary_h) $(exceptions_h) $(annotate_h) $(valprint_h) \
$(source_h)
ada-typeprint.o: ada-typeprint.c $(defs_h) $(gdb_obstack_h) $(bfd_h) \
$(symtab_h) $(gdbtypes_h) $(expression_h) $(value_h) $(gdbcore_h) \
$(target_h) $(command_h) $(gdbcmd_h) $(language_h) $(demangle_h) \

View File

@ -55,6 +55,7 @@ Boston, MA 02110-1301, USA. */
#include "exceptions.h"
#include "annotate.h"
#include "valprint.h"
#include "source.h"
#ifndef ADA_RETAIN_DOTS
#define ADA_RETAIN_DOTS 0
@ -9056,7 +9057,6 @@ is_known_support_routine (struct frame_info *frame)
= find_pc_line (get_frame_pc (frame), pc_is_after_call);
char *func_name;
int i;
struct stat st;
/* The heuristic:
1. The symtab is null (indicating no debugging symbols)
@ -9072,7 +9072,7 @@ is_known_support_routine (struct frame_info *frame)
symbols; in this case, the filename referenced by these symbols
does not exists. */
if (stat (sal.symtab->filename, &st))
if (symtab_to_fullname (sal.symtab) == NULL)
return 1;
for (i = 0; known_runtime_file_name_patterns[i] != NULL; i += 1)