gdb/
Fix the `stopped language detection' testcase for gcc-4.5. * dwarf2read.c (read_partial_die): Set also LANGUAGE_OF_MAIN. * symfile.c (set_initial_language): Move variable filename to a more inner block. Prefer LANGUAGE_OF_MAIN. * symtab.c (language_of_main): New variable. (set_main_name): Always reset LANGUAGE_OF_MAIN. * symtab.h (language_of_main): New declaration.
This commit is contained in:
parent
8aeb23f364
commit
01f8c46dda
|
@ -1,3 +1,13 @@
|
|||
2010-10-17 Jan Kratochvil <jan.kratochvil@redhat.com>
|
||||
|
||||
Fix the `stopped language detection' testcase for gcc-4.5.
|
||||
* dwarf2read.c (read_partial_die): Set also LANGUAGE_OF_MAIN.
|
||||
* symfile.c (set_initial_language): Move variable filename to a more
|
||||
inner block. Prefer LANGUAGE_OF_MAIN.
|
||||
* symtab.c (language_of_main): New variable.
|
||||
(set_main_name): Always reset LANGUAGE_OF_MAIN.
|
||||
* symtab.h (language_of_main): New declaration.
|
||||
|
||||
2010-10-17 Jan Kratochvil <jan.kratochvil@redhat.com>
|
||||
Pedro Alves <pedro@codesourcery.com>
|
||||
|
||||
|
|
|
@ -8880,7 +8880,13 @@ read_partial_die (struct partial_die_info *part_die,
|
|||
practice. */
|
||||
if (DW_UNSND (&attr) == DW_CC_program
|
||||
&& cu->language == language_fortran)
|
||||
set_main_name (part_die->name);
|
||||
{
|
||||
set_main_name (part_die->name);
|
||||
|
||||
/* As this DIE has a static linkage the name would be difficult
|
||||
to look up later. */
|
||||
language_of_main = language_fortran;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
|
|
|
@ -1568,12 +1568,18 @@ symbol_file_command (char *args, int from_tty)
|
|||
void
|
||||
set_initial_language (void)
|
||||
{
|
||||
const char *filename;
|
||||
enum language lang = language_unknown;
|
||||
|
||||
filename = find_main_filename ();
|
||||
if (filename != NULL)
|
||||
lang = deduce_language_from_filename (filename);
|
||||
if (language_of_main != language_unknown)
|
||||
lang = language_of_main;
|
||||
else
|
||||
{
|
||||
const char *filename;
|
||||
|
||||
filename = find_main_filename ();
|
||||
if (filename != NULL)
|
||||
lang = deduce_language_from_filename (filename);
|
||||
}
|
||||
|
||||
if (lang == language_unknown)
|
||||
{
|
||||
|
|
|
@ -4389,6 +4389,7 @@ decode_line_spec (char *string, int funfirstline)
|
|||
|
||||
/* Track MAIN */
|
||||
static char *name_of_main;
|
||||
enum language language_of_main = language_unknown;
|
||||
|
||||
void
|
||||
set_main_name (const char *name)
|
||||
|
@ -4397,10 +4398,12 @@ set_main_name (const char *name)
|
|||
{
|
||||
xfree (name_of_main);
|
||||
name_of_main = NULL;
|
||||
language_of_main = language_unknown;
|
||||
}
|
||||
if (name != NULL)
|
||||
{
|
||||
name_of_main = xstrdup (name);
|
||||
language_of_main = language_unknown;
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
@ -1238,6 +1238,7 @@ extern struct cleanup *make_cleanup_free_search_symbols (struct symbol_search
|
|||
const. */
|
||||
extern void set_main_name (const char *name);
|
||||
extern /*const */ char *main_name (void);
|
||||
extern enum language language_of_main;
|
||||
|
||||
/* Check global symbols in objfile. */
|
||||
struct symbol *lookup_global_symbol_from_objfile (const struct objfile *objfile,
|
||||
|
|
Loading…
Reference in New Issue