mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-11 12:45:06 +08:00
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:
parent
de77a81b2c
commit
7bad99da3d
@ -808,6 +808,7 @@ package body GNAT.Formatted_String is
|
|||||||
Format.D.Index := Start;
|
Format.D.Index := Start;
|
||||||
return Format;
|
return Format;
|
||||||
end if;
|
end if;
|
||||||
|
Format.D.Stored_Value := 0;
|
||||||
|
|
||||||
case F.Kind is
|
case F.Kind is
|
||||||
when Unsigned_Octal =>
|
when Unsigned_Octal =>
|
||||||
|
Loading…
Reference in New Issue
Block a user