@@ 140,6 140,8 @@ package body JSON.Parser is
when STRING_TOKEN =>
Continuation := False;
declare
+ -- Take a copy of String_Value since
+ -- Parse_Pair will overwrite value of T
Name : constant String := To_String (T.String_Value);
begin
Parse_Pair (Source, T, Item);