[Ada] Avoid warnings regarding rep clauses in generics -- follow-on

gcc/ada/

	* repinfo.adb (List_Component_Layout): Initialize Sbit.

diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index a11057a1a4921ebdf8654e2d56acc3802baff287..75af649e166e86e1b334caf45f4ba61fba7af65f 100644 (file)
--- 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