From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 23 Jan 2020 19:03:35 +0000 (-0500)
Subject: [Ada] Import Adafinal as convention Ada
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1e01dddb44e051224239d44f6042a379cbf583ab;p=gcc.git

[Ada] Import Adafinal as convention Ada

2020-06-04  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* bindgen.adb (Gen_Adafinal): Adafinal is convention Ada, not C.
---

diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index 8c40c21d3c2..99ad3009d13 100644
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -457,7 +457,7 @@ package body Bindgen is
 
       if not Bind_For_Library and not CodePeer_Mode then
          WBI ("      procedure s_stalib_adafinal;");
-         Set_String ("      pragma Import (C, s_stalib_adafinal, ");
+         Set_String ("      pragma Import (Ada, s_stalib_adafinal, ");
          Set_String ("""system__standard_library__adafinal"");");
          Write_Statement_Buffer;
       end if;