diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-31 07:02:17 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-31 07:02:17 +0000 |
| commit | 06610c448ee882564ffecfc114bcf08f70ded268 (patch) | |
| tree | 0f743583a1010dab6e76211f2f5249c9a9a80865 /gcc | |
| parent | f6e2a96e8312f318b68a2918da00cbce4488419e (diff) | |
| download | gcc-06610c448ee882564ffecfc114bcf08f70ded268.tar.gz | |
* dwarf2out.c (gen_decl_die) <CONST_DECL>: Do not skip in Ada.
(dwarf2out_decl) <CONST_DECL>: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163666 138bc75d-0d04-0410-961f-82ee72b054a4
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 f1b9bcdaa76..cf51f9c1998 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 d63aec578fb..4a43d47147f 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)); |