(dwarf2out_decl) <CONST_DECL>: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163666
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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. */
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));