diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2019-10-10 15:25:32 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-10-10 15:25:32 +0000 |
| commit | ebeabe0454975d7600af111a9461a85e75863641 (patch) | |
| tree | fa87229496c269c611019700d3d12019018c373b | |
| parent | 96dd5bb6b75ca662fc038f2358059bfbbd609895 (diff) | |
| download | gcc-ebeabe0454975d7600af111a9461a85e75863641.zip gcc-ebeabe0454975d7600af111a9461a85e75863641.tar.gz gcc-ebeabe0454975d7600af111a9461a85e75863641.tar.bz2 | |
[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.
From-SVN: r276835
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/freeze.adb | 1 |
2 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a0084fa..b17b608 100644 --- 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 93e91b2..5e1b775 100644 --- 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 |