diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-08-31 07:02:17 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-08-31 07:02:17 +0000 |
| commit | 658af27df681d69b3c05a62103e338071df2bdf3 (patch) | |
| tree | 0f743583a1010dab6e76211f2f5249c9a9a80865 /gcc | |
| parent | 299137e385dd8da310c583e3b24b70406cb2e5ec (diff) | |
| download | gcc-658af27df681d69b3c05a62103e338071df2bdf3.zip gcc-658af27df681d69b3c05a62103e338071df2bdf3.tar.gz gcc-658af27df681d69b3c05a62103e338071df2bdf3.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/dwarf2out.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index f1b9bcd..cf51f9c 100644 --- 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 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)); |