From 76a71469f3ea7a6cb9257cec9a34a8c8687f3d15 Mon Sep 17 00:00:00 2001
From: Bob Duff <duff@adacore.com>
Date: Fri, 5 Nov 2021 08:54:23 -0400
Subject: [PATCH] [Ada] Avoid warnings regarding rep clauses in generics --
 follow-on

gcc/ada/

	* repinfo.adb (List_Component_Layout): Initialize Sbit.
---
 gcc/ada/repinfo.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index a11057a1a492..75af649e166e 100644
--- 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
-- 
2.47.2