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/namet.adb | |
| 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/namet.adb')
| -rw-r--r-- | gcc/ada/namet.adb | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index b16035b..3a4755d 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -1133,11 +1133,12 @@ package body Namet is Name_Len => Short (Buf.Length), Byte_Info => 0, Int_Info => 0, + Hash_Link => No_Name, + Name_Has_No_Encodings => False, Boolean1_Info => False, Boolean2_Info => False, Boolean3_Info => False, - Name_Has_No_Encodings => False, - Hash_Link => No_Name)); + Spare => False)); -- Set corresponding string entry in the Name_Chars table @@ -1239,12 +1240,13 @@ package body Namet is ((Name_Chars_Index => Name_Chars.Last, Name_Len => Short (Buf.Length), Hash_Link => No_Name, - Name_Has_No_Encodings => False, Int_Info => 0, Byte_Info => 0, + Name_Has_No_Encodings => False, Boolean1_Info => False, Boolean2_Info => False, - Boolean3_Info => False)); + Boolean3_Info => False, + Spare => False)); -- Set corresponding string entry in the Name_Chars table @@ -1324,11 +1326,12 @@ package body Namet is Name_Len => 1, Byte_Info => 0, Int_Info => 0, + Hash_Link => No_Name, + Name_Has_No_Encodings => True, Boolean1_Info => False, Boolean2_Info => False, Boolean3_Info => False, - Name_Has_No_Encodings => True, - Hash_Link => No_Name)); + Spare => False)); Name_Chars.Append (C); Name_Chars.Append (ASCII.NUL); |