diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-03-05 13:55:43 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-03-05 13:55:43 +0000 |
commit | 6011ccaa9d006e8a06627a5e710f3adabaa1ef99 (patch) | |
tree | 5ef493317739960e832250d560ab0b4a16a1e2c6 | |
parent | 48c998ae70814b4c8221093ebb021e930fdedb0f (diff) | |
download | gcc-6011ccaa9d006e8a06627a5e710f3adabaa1ef99.tar.gz |
PR ada/65319
* c-ada-spec.c (print_destructor): Remove obsolete code.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_9-branch@221214 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/c-family/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/c-family/c-ada-spec.c | 13 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/testsuite/g++.dg/other/dump-ada-spec-3.C | 27 |
4 files changed, 38 insertions, 11 deletions
diff --git a/gcc/c-family/ChangeLog b/gcc/c-family/ChangeLog index 76cf06a2ab2..003eeeb6e8f 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-02-11 Jakub Jelinek <jakub@redhat.com> Backported from mainline diff --git a/gcc/c-family/c-ada-spec.c b/gcc/c-family/c-ada-spec.c index fc21b629aaa..22027797c65 100644 --- a/gcc/c-family/c-ada-spec.c +++ b/gcc/c-family/c-ada-spec.c @@ -2538,18 +2538,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. */ diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8ad53a3f440..8169c0cda46 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-03-05 Eric Botcazou <ebotcazou@adacore.com> + + * g++.dg/other/dump-ada-spec-3.C: New test. + 2015-03-04 Thomas Preud'homme <thomas.preudhomme@arm.com> Backport from mainline diff --git a/gcc/testsuite/g++.dg/other/dump-ada-spec-3.C b/gcc/testsuite/g++.dg/other/dump-ada-spec-3.C new file mode 100644 index 00000000000..3d5e3f10dfc --- /dev/null +++ b/gcc/testsuite/g++.dg/other/dump-ada-spec-3.C @@ -0,0 +1,27 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-ada-spec" } */ + +#include <iostream> + +using namespace std; + +class Base { + public: + int My_V; + virtual void Primitive (); + + Base (); +}; + +void Base::Primitive () { + cout << "C++ Primitive " << this->My_V << "\n"; +} + +Base::Base () { +} + +void Dispatch (Base * B) { + B->Primitive (); +} + +/* { dg-final { cleanup-ada-spec } } */ |