From: Joel Brobecker Date: Fri, 1 Feb 2008 22:45:13 +0000 (+0000) Subject: * dwarf2read.c (add_partial_symbol): Always store all Ada subprograms X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2cfa0c8ddfd7564ce1695b9251408c7cde6004aa;p=binutils-gdb.git * dwarf2read.c (add_partial_symbol): Always store all Ada subprograms in the global scope. (new_symbol): Likewise. --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index cc2bfecadfa..c5380b0aeda 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2007-02-01 Joel Brobecker + + * dwarf2read.c (add_partial_symbol): Always store all Ada subprograms + in the global scope. + (new_symbol): Likewise. + 2008-02-01 Vladimir Prus * breakpoint.c (break_command_1): Return void. diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 15e168ff9b4..ecba9edfe76 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -1898,8 +1898,12 @@ add_partial_symbol (struct partial_die_info *pdi, struct dwarf2_cu *cu) switch (pdi->tag) { case DW_TAG_subprogram: - if (pdi->is_external) + if (pdi->is_external || cu->language == language_ada) { + /* brobecker/2007-12-26: Normally, only "external" DIEs are part + of the global scope. But in Ada, we want to be able to access + nested procedures globally. So all Ada subprograms are stored + in the global scope. */ /*prim_record_minimal_symbol (actual_name, pdi->lowpc + baseaddr, mst_text, objfile); */ psym = add_psymbol_to_list (actual_name, strlen (actual_name), @@ -7296,8 +7300,15 @@ new_symbol (struct die_info *die, struct type *type, struct dwarf2_cu *cu) finish_block. */ SYMBOL_CLASS (sym) = LOC_BLOCK; attr2 = dwarf2_attr (die, DW_AT_external, cu); - if (attr2 && (DW_UNSND (attr2) != 0)) + if ((attr2 && (DW_UNSND (attr2) != 0)) + || cu->language == language_ada) { + /* Subprograms marked external are stored as a global symbol. + Ada subprograms, whether marked external or not, are always + stored as a global symbol, because we want to be able to + access them globally. For instance, we want to be able + to break on a nested subprogram without having to + specify the context. */ add_symbol_to_list (sym, &global_symbols); } else