From patchwork Tue Aug 31 07:03:54 2010
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: Generate DW_TAG_constant in Ada
From: Eric Botcazou <ebotcazou@adacore.com>
X-Patchwork-Id: 63201
Message-Id: <201008310903.54844.ebotcazou@adacore.com>
To: gcc-patches@gcc.gnu.org
Date: Tue, 31 Aug 2010 09:03:54 +0200

Ada has true named constants so DW_TAG_constant is needed for them.

Tested on x86-64-suse-linux, applied on the mainline as obvious.


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.


Index: dwarf2out.c
===================================================================
--- dwarf2out.c	(revision 163659)
+++ dwarf2out.c	(working copy)
@@ -20477,7 +20477,7 @@ gen_decl_die (tree decl, tree origin, dw
       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));