From 86ceee8522f4877bd76cd1848e7b39a9b1ce98ce Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 8 Feb 2015 09:49:10 +0000 Subject: [PATCH] decl.c (is_cplusplus_method): Use Is_Primitive flag to detect primitive operations of tagged and untagged types. * gcc-interface/decl.c (is_cplusplus_method): Use Is_Primitive flag to detect primitive operations of tagged and untagged types. From-SVN: r220512 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/decl.c | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e14b1c1c34d..59c6c3886eb 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2015-02-08 Eric Botcazou + + * gcc-interface/decl.c (is_cplusplus_method): Use Is_Primitive flag to + detect primitive operations of tagged and untagged types. + 2015-02-08 Eric Botcazou * gcc-interface/decl.c (gnat_to_gnu_entity): Do not bother about alias diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 12e5fd0b6bb..c7d64aab449 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -5448,16 +5448,17 @@ is_cplusplus_method (Entity_Id gnat_entity) if (Convention (gnat_entity) != Convention_CPP) return false; - /* This is the main case: C++ method imported as a primitive operation. */ - if (Is_Dispatching_Operation (gnat_entity)) + /* This is the main case: C++ method imported as a primitive operation. + Note that a C++ class with no virtual functions can be imported as a + limited record type so the operation is not necessarily dispatching. */ + if (Is_Primitive (gnat_entity)) return true; /* A thunk needs to be handled like its associated primitive operation. */ if (Is_Subprogram (gnat_entity) && Is_Thunk (gnat_entity)) return true; - /* C++ classes with no virtual functions can be imported as limited - record types, but we need to return true for the constructors. */ + /* A constructor is a method on the C++ side. */ if (Is_Constructor (gnat_entity)) return true; -- 2.30.2