diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-01-28 12:40:18 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-07 05:29:14 -0400 |
| commit | a6d3b4990f9db77e2f6f7fa15d17b22ecea46e74 (patch) | |
| tree | 8568dee243a782cf09bb3a84035cbf06ca83b4e2 /gcc/ada/types.ads | |
| parent | d6de75d526bf5958fe9e66195dc0bf1c458e9b06 (diff) | |
| download | gcc-a6d3b4990f9db77e2f6f7fa15d17b22ecea46e74.zip gcc-a6d3b4990f9db77e2f6f7fa15d17b22ecea46e74.tar.gz gcc-a6d3b4990f9db77e2f6f7fa15d17b22ecea46e74.tar.bz2 | |
[Ada] Fix type mismatch warnings during LTO bootstrap #3
gcc/ada/
* atree.h (Slots_Ptr): Change pointed-to type to any_slot.
* fe.h (Get_RT_Exception_Name): Change type of parameter.
* namet.ads (Name_Entry): Mark non-boolean components as aliased,
reorder the boolean components and add an explicit Spare component.
* namet.adb (Name_Enter): Adjust aggregate accordingly.
(Name_Find): Likewise.
(Reinitialize): Likewise.
* namet.h (struct Name_Entry): Adjust accordingly.
(Names_Ptr): Use correct type.
(Name_Chars_Ptr): Likewise.
(Get_Name_String): Fix declaration and adjust to above changes.
* types.ads (RT_Exception_Code): Add pragma Convention C.
* types.h (Column_Number_Type): Fix original type.
(slot): Rename union type to...
(any_slot): ...this and adjust assertion accordingly.
(RT_Exception_Code): New enumeration type.
* uintp.ads (Uint_Entry): Mark components as aliased.
* uintp.h (Uints_Ptr): Use correct type.
(Udigits_Ptr): Likewise.
* gcc-interface/gigi.h (gigi): Adjust name and type of parameter.
* gcc-interface/cuintp.c (UI_To_gnu): Adjust references to Uints_Ptr
and Udigits_Ptr.
* gcc-interface/trans.c (Slots_Ptr): Adjust pointed-to type.
(gigi): Adjust type of parameter.
(build_raise_check): Add cast in call to Get_RT_Exception_Name.
Diffstat (limited to 'gcc/ada/types.ads')
| -rw-r--r-- | gcc/ada/types.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index f6c420a..bcf2f14 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -930,6 +930,7 @@ package Types is SE_Object_Too_Large, -- 35 PE_Stream_Operation_Not_Allowed, -- 36 PE_Build_In_Place_Mismatch); -- 37 + pragma Convention (C, RT_Exception_Code); Last_Reason_Code : constant := RT_Exception_Code'Pos (RT_Exception_Code'Last); |