diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-01-27 07:58:17 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-07 05:29:12 -0400 |
| commit | b0ba442b047dcffd54055c9d0ab591d020a284d8 (patch) | |
| tree | 73ee9b31d437834c86704d92aa6db0b77faf2811 /gcc/ada/errout.ads | |
| parent | 730c196aab01296486d21c90ffac2d9f6a338422 (diff) | |
| download | gcc-b0ba442b047dcffd54055c9d0ab591d020a284d8.zip gcc-b0ba442b047dcffd54055c9d0ab591d020a284d8.tar.gz gcc-b0ba442b047dcffd54055c9d0ab591d020a284d8.tar.bz2 | |
[Ada] Fix type mismatch warnings during LTO bootstrap #1
gcc/ada/
* errout.ads (Set_Identifier_Casing): Add pragma Convention C.
* eval_fat.ads (Rounding_Mode): Likewise.
(Machine): Add WARNING comment line.
* exp_code.ads (Clobber_Get_Next): Add pragma Convention C.
* fe.h (Compiler_Abort): Fix return type.
(Set_Identifier_Casing): Change type of parameters.
(Clobber_Get_Next): Change return type.
* gcc-interface/trans.c (gnat_to_gnu) <N_Code_Statement>: Add cast.
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index baec3a7..e91c0c5 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -987,6 +987,7 @@ package Errout is procedure Set_Identifier_Casing (Identifier_Name : System.Address; File_Name : System.Address); + pragma Convention (C, Set_Identifier_Casing); -- This subprogram can be used by the back end for the purposes of -- concocting error messages that are not output via Errout, e.g. -- the messages generated by the gcc back end. |