Explain use of variable.
1 files changed, 2 insertions(+), 0 deletions(-)

M src/json-parser.adb
M src/json-parser.adb +2 -0
@@ 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);