diff options
author | Arnaud Charlet <charlet@adacore.com> | 2020-01-23 14:03:35 -0500 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-04 05:11:07 -0400 |
commit | 1e01dddb44e051224239d44f6042a379cbf583ab (patch) | |
tree | 713aaece5f85f67afdd6c4412b06e43cbbffa78e | |
parent | 0b27ccce0849ef93b95aebae12c8a0e77929810e (diff) | |
download | gcc-1e01dddb44e051224239d44f6042a379cbf583ab.zip gcc-1e01dddb44e051224239d44f6042a379cbf583ab.tar.gz gcc-1e01dddb44e051224239d44f6042a379cbf583ab.tar.bz2 |
[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.
-rw-r--r-- | gcc/ada/bindgen.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |