OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gdb/ 

* dwarf2read.c (die_needs_namespace) <DW_TAG_variable>: Add also
	DW_TAG_constant.

gdb/testsuite/
	* gdb.fortran/module.exp (fully qualified name of DW_TAG_constant):
	New test.
	* gdb.fortran/module.f90 (mod1) <var_const>: New constant.
This commit is contained in:
Jan Kratochvil 2010-09-22 19:22:44 +00:00
parent 7286ec15a4
commit c2b0a2291a
5 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2010-09-22 Jan Kratochvil <jan.kratochvil@redhat.com>
* dwarf2read.c (die_needs_namespace) <DW_TAG_variable>: Add also
DW_TAG_constant.
2010-09-22 Joel Brobecker <brobecker@adacore.com>
* dwarf2read.c (scan_partial_symbols): Add handling of

1
gdb/dwarf2read.c
View File

@ -4614,6 +4614,7 @@ die_needs_namespace (struct die_info *die, struct dwarf2_cu *cu)
return 1;
case DW_TAG_variable:
case DW_TAG_constant:
/* We only need to prefix "globally" visible variables. These include
any variable marked with DW_AT_external or any variable that
lives in a namespace. [Variables in anonymous namespaces

6
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2010-09-22 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.fortran/module.exp (fully qualified name of DW_TAG_constant):
New test.
* gdb.fortran/module.f90 (mod1) <var_const>: New constant.
2010-09-22 Joel Brobecker <brobecker@adacore.com>
* gdb.dwarf2/dw2-const.S: Use .4byte to reference the target

2
gdb/testsuite/gdb.fortran/module.exp
View File

@ -26,6 +26,8 @@ if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f77}] } {
# The current source language is "auto; currently fortran".
gdb_test "p modmany::var_i" " = 14" "stopped language detection"
gdb_test "print mod1::var_const" " = 20" "fully qualified name of DW_TAG_constant"
if ![runto MAIN__] then {
perror "couldn't run to breakpoint MAIN__"
continue

2
gdb/testsuite/gdb.fortran/module.f90
View File

@ -15,6 +15,8 @@
module mod1
integer :: var_i = 1
integer :: var_const
parameter (var_const = 20)
end module mod1
module mod2