diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-04 10:51:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-04 10:51:31 +0200 |
| commit | 3b78de5632a6612d5b443345ae728060fed71a13 (patch) | |
| tree | a694463ed7d1b4928ebd657f78a634e247a46cdb /gcc/c-family/c-ada-spec.c | |
| parent | aef3607fef6a00ff80b36cc096f5f29db2c964e1 (diff) | |
| download | gcc-3b78de5632a6612d5b443345ae728060fed71a13.zip gcc-3b78de5632a6612d5b443345ae728060fed71a13.tar.gz gcc-3b78de5632a6612d5b443345ae728060fed71a13.tar.bz2 | |
dumpfile.h, dumpfile.c: Remove TDI_ada.
2012-10-04 Arnaud Charlet <charlet@adacore.com>
* dumpfile.h, dumpfile.c: Remove TDI_ada.
c-family/
* c-ada-spec.c (print_ada_declaration): Remove handling of TDF_RAW.
* c.opt (-fdump-ada-spec, -fdump-ada-spec-slim): Move switch definition
out of dumpfile.h.
c/
* c-decl.c (c_write_global_declarations): Fix handling of
-fdump-ada-spec*.
cp/
* decl2.c (cp_write_global_declarations): Fix handling of
-fdump-ada-spec*.
From-SVN: r192067
Diffstat (limited to 'gcc/c-family/c-ada-spec.c')
| -rw-r--r-- | gcc/c-family/c-ada-spec.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/c-family/c-ada-spec.c b/gcc/c-family/c-ada-spec.c index 1e27e2c..4f38a63 100644 --- a/gcc/c-family/c-ada-spec.c +++ b/gcc/c-family/c-ada-spec.c @@ -2535,7 +2535,6 @@ print_ada_declaration (pretty_printer *buffer, tree t, tree type, int is_class = false; tree name = TYPE_NAME (TREE_TYPE (t)); tree decl_name = DECL_NAME (t); - bool dump_internal = get_dump_file_info (TDI_ada)->pflags & TDF_RAW; tree orig = NULL_TREE; if (cpp_check && cpp_check (t, IS_TEMPLATE)) @@ -2705,8 +2704,7 @@ print_ada_declaration (pretty_printer *buffer, tree t, tree type, } else { - if (!dump_internal - && TREE_CODE (t) == VAR_DECL + if (TREE_CODE (t) == VAR_DECL && decl_name && *IDENTIFIER_POINTER (decl_name) == '_') return 0; @@ -2796,8 +2794,7 @@ print_ada_declaration (pretty_printer *buffer, tree t, tree type, /* If this function has an entry in the dispatch table, we cannot omit it. */ - if (!dump_internal && !DECL_VINDEX (t) - && *IDENTIFIER_POINTER (decl_name) == '_') + if (!DECL_VINDEX (t) && *IDENTIFIER_POINTER (decl_name) == '_') { if (IDENTIFIER_POINTER (decl_name)[1] == '_') return 0; |