dwarf2out.c (gen_decl_die): Do not skip in Ada.

	* dwarf2out.c (gen_decl_die) <CONST_DECL>: Do not skip in Ada.
	(dwarf2out_decl) <CONST_DECL>: Likewise.

From-SVN: r163666

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f1b9bcdaa76f15efbacd34375eb4df9941dc0adb..cf51f9c1998d6c4806ab8cca7ce768218cb580b2 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-31  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * dwarf2out.c (gen_decl_die) <CONST_DECL>: Do not skip in Ada.
+       (dwarf2out_decl) <CONST_DECL>: Likewise.
+
 2010-08-30  Eric Botcazou  <ebotcazou@adacore.com>
 
        Stack usage support

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index d63aec578fb1dc8962d99cccf7fd04af2793afbe..4a43d47147f21f030eb676fba7404187ff9270ff 100644 (file)
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -20477,7 +20477,7 @@ gen_decl_die (tree decl, tree origin, dw_die_ref context_die)
       break;
 
     case CONST_DECL:
-      if (!is_fortran ())
+      if (!is_fortran () && !is_ada ())
        {
          /* The individual enumerators of an enum type get output when we output
             the Dwarf representation of the relevant enum type itself.  */
@@ -20888,7 +20888,7 @@ dwarf2out_decl (tree decl)
     case CONST_DECL:
       if (debug_info_level <= DINFO_LEVEL_TERSE)
        return;
-      if (!is_fortran ())
+      if (!is_fortran () && !is_ada ())
        return;
       if (TREE_STATIC (decl) && decl_function_context (decl))
        context_die = lookup_decl_die (DECL_CONTEXT (decl));