Merge branch 'mr/fix-latent-initialization-bug' into 'master'

Fix latent bug uncovered by GNAT-LLVM See merge request eng/toolchain/gnatcoll-core!108
AdaCore · Jul 1, 2024 · 5ca7cca · 5ca7cca
2 parents 80552b5 + 98f2c49
commit 5ca7cca
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/gnatcoll-strings_impl.ads b/src/gnatcoll-strings_impl.ads
@@ -1046,7 +1046,10 @@ package GNATCOLL.Strings_Impl is
       with Unchecked_Union;
 
       type XString is new Ada.Finalization.Controlled with record
-         Data   : String_Data := (Is_Big => False, Small => <>);
+         Data   : String_Data := (Is_Big => False,
+                                  Small => (Is_Big => False,
+                                            Size => 0,
+                                            others => <>));
       end record;
       overriding procedure Adjust (Self : in out XString);
       overriding procedure Finalize (Self : in out XString);