# HG changeset patch
# User Tero Koskinen <tero.koskinen@iki.fi>
# Date 1380652669 -10800
#      Tue Oct 01 21:37:49 2013 +0300
# Node ID b3d298ec1c6a683f80114a4552a7f50c756d178d
# Parent  d717b22132386ec1fde3d56281d2a69f7b74836b
Explain use of variable.

diff --git a/src/json-parser.adb b/src/json-parser.adb
--- a/src/json-parser.adb
+++ b/src/json-parser.adb
@@ -140,6 +140,8 @@
             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);