Message ID | 20211110085849.GA2811241@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Avoid warnings regarding rep clauses in generics -- follow-on | expand |
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -1123,7 +1123,7 @@ package body Repinfo is Npos : constant Uint := Normalized_Position (Ent); Fbit : constant Uint := Normalized_First_Bit (Ent); Spos : Uint; - Sbit : Uint; + Sbit : Uint := No_Uint; Lbit : Uint; begin