From 1e01dddb44e051224239d44f6042a379cbf583ab Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 23 Jan 2020 14:03:35 -0500 Subject: [Ada] Import Adafinal as convention Ada 2020-06-04 Arnaud Charlet gcc/ada/ * bindgen.adb (Gen_Adafinal): Adafinal is convention Ada, not C. --- gcc/ada/bindgen.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 8c40c21..99ad300 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; -- cgit v1.1