From ebeabe0454975d7600af111a9461a85e75863641 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 10 Oct 2019 15:25:32 +0000 Subject: [PATCH] [Ada] Ensure constructor is a C++ constructor 2019-10-10 Arnaud Charlet gcc/ada/ * freeze.adb (Freeze_Subprogram): Ensure constructor is a C++ constructor. From-SVN: r276835 --- gcc/ada/ChangeLog | 6 +++--- 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 +2019-10-10 Arnaud Charlet - * 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 -- 2.7.4