From 658af27df681d69b3c05a62103e338071df2bdf3 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 31 Aug 2010 07:02:17 +0000 Subject: [PATCH] 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/ChangeLog | 5 +++++ gcc/dwarf2out.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index f1b9bcdaa76f..cf51f9c1998d 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2010-08-31 Eric Botcazou + + * dwarf2out.c (gen_decl_die) : Do not skip in Ada. + (dwarf2out_decl) : Likewise. + 2010-08-30 Eric Botcazou Stack usage support diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index d63aec578fb1..4a43d47147f2 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)); -- 2.47.2