From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Wed, 22 Sep 2010 19:22:44 +0000 (+0000)
Subject: gdb/
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c2b0a2291a7d54a96c2f7a7b17b917902f5b64e0;p=binutils-gdb.git

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.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 0565ad462d5..d19c709916c 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 082400e19db..8a87b7b0290 100644
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -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
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 5d04cd95dc9..40a89ffa7aa 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -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
diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp
index fabf6604f13..f81d2dc057d 100644
--- a/gdb/testsuite/gdb.fortran/module.exp
+++ b/gdb/testsuite/gdb.fortran/module.exp
@@ -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
diff --git a/gdb/testsuite/gdb.fortran/module.f90 b/gdb/testsuite/gdb.fortran/module.f90
index a8428cbc9fd..4e014c9bd45 100644
--- a/gdb/testsuite/gdb.fortran/module.f90
+++ b/gdb/testsuite/gdb.fortran/module.f90
@@ -15,6 +15,8 @@
 
 module mod1
         integer :: var_i = 1
+        integer :: var_const
+        parameter (var_const = 20)
 end module mod1
 
 module mod2