From: Bob Duff <duff@adacore.com>
Date: Fri, 5 Nov 2021 12:54:23 +0000 (-0400)
Subject: [Ada] Avoid warnings regarding rep clauses in generics -- follow-on
X-Git-Tag: basepoints/gcc-13~3214
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=76a71469f3ea7a6cb9257cec9a34a8c8687f3d15;p=thirdparty%2Fgcc.git

[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 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