ada: Fix parsing bug in GNAT.Formatted_String

Before this patch, GNAT.Formatted_String.Formatted_String failed to
handle format strings with two or more specifiers whose widths were
specified with the "*" syntax. This patch makes the parser
correctly reset its bits of state related to width and precision
parsing when needed.

gcc/ada/

	* libgnat/g-forstr.adb (P_Int_Format): Fix parsing bug.
This commit is contained in:
Ronan Desplanques 2022-12-09 11:29:02 +01:00 committed by Marc Poulhiès
parent de77a81b2c
commit 7bad99da3d

View File

@ -808,6 +808,7 @@ package body GNAT.Formatted_String is
Format.D.Index := Start;
return Format;
end if;
Format.D.Stored_Value := 0;
case F.Kind is
when Unsigned_Octal =>