diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-03-05 13:54:19 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-03-05 13:54:19 +0000 |
| commit | 0d2489f4c1e66601ce5b5373b2e7239a77728940 (patch) | |
| tree | 61923ae30fcd9128f9a551600fc9484d591b475b /gcc/c-family | |
| parent | 9933260f2f921ab10415b5042fc5f04fe1afce95 (diff) | |
| download | gcc-0d2489f4c1e66601ce5b5373b2e7239a77728940.zip gcc-0d2489f4c1e66601ce5b5373b2e7239a77728940.tar.gz gcc-0d2489f4c1e66601ce5b5373b2e7239a77728940.tar.bz2 | |
re PR ada/65319 (FAIL: g++.dg/other/dump-ada-spec-3.C -std=gnu++98 (internal compiler error))
PR ada/65319
* c-ada-spec.c (print_destructor): Remove obsolete code.
From-SVN: r221213
Diffstat (limited to 'gcc/c-family')
| -rw-r--r-- | gcc/c-family/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/c-family/c-ada-spec.c | 13 |
2 files changed, 7 insertions, 11 deletions
diff --git a/gcc/c-family/ChangeLog b/gcc/c-family/ChangeLog index e1d4eff..07fe10b 100644 --- a/gcc/c-family/ChangeLog +++ b/gcc/c-family/ChangeLog @@ -1,3 +1,8 @@ +2015-03-05 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/65319 + * c-ada-spec.c (print_destructor): Remove obsolete code. + 2015-03-01 Eric Botcazou <ebotcazou@adacore.com> * c-ada-spec.c (is_tagged_type): Add guard for DECL_VINDEX. diff --git a/gcc/c-family/c-ada-spec.c b/gcc/c-family/c-ada-spec.c index fcfefb0..2dce3cf 100644 --- a/gcc/c-family/c-ada-spec.c +++ b/gcc/c-family/c-ada-spec.c @@ -2541,18 +2541,9 @@ static void print_destructor (pretty_printer *buffer, tree t) { tree decl_name = DECL_NAME (DECL_ORIGIN (t)); - const char *s = IDENTIFIER_POINTER (decl_name); - if (*s == '_') - { - for (s += 2; *s != ' '; s++) - pp_character (buffer, *s); - } - else - { - pp_string (buffer, "Delete_"); - pp_ada_tree_identifier (buffer, decl_name, t, false); - } + pp_string (buffer, "Delete_"); + pp_ada_tree_identifier (buffer, decl_name, t, false); } /* Return the name of type T. */ |