[Ada] Ensure constructor is a C++ constructor

2019-10-10  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* freeze.adb (Freeze_Subprogram): Ensure constructor is a C++
	constructor.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@276835 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a0084fa9431922ea2a0d3e80fca8f2230e9bf0ff..b17b60829d740cb4a534e34236b547ec30e57c16 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,4 +1,4 @@
-2019-10-10  Gary Dismukes  <dismukes@adacore.com>
+2019-10-10  Arnaud Charlet  <charlet@adacore.com>
 
-       * libgnat/a-ststio.ads (File_Type): Apply pragma
-       Preelaborable_Initialization to the type.
\ No newline at end of file
+       * freeze.adb (Freeze_Subprogram): Ensure constructor is a C++
+       constructor.
\ No newline at end of file

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index 93e91b2a9ba098517644dd21b7426aefe768153a..5e1b77511c6bb528f11ee25a847adbebf68fff1f 100644 (file)
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -8780,6 +8780,7 @@ package body Freeze is
       --  (either in pragma CPP_Constructor or in a pragma import).
 
       if Is_Constructor (E)
+        and then Convention (E) = Convention_CPP
         and then
            (No (Interface_Name (E))
               or else String_Equal