From 658af27df681d69b3c05a62103e338071df2bdf3 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 31 Aug 2010 07:02:17 +0000 Subject: dwarf2out.c (gen_decl_die): Do not skip in Ada. * dwarf2out.c (gen_decl_die) : Do not skip in Ada. (dwarf2out_decl) : Likewise. From-SVN: r163666 --- gcc/dwarf2out.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/dwarf2out.c') diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index d63aec5..4a43d47 100644 --- 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)); -- cgit v1.1