From ed3f8f66f1a1c4fd1df4c7f1ad11e54cb66d7fe0 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 23 Aug 2020 09:49:00 +0000
Subject: [PATCH] * Merging revisions r45264 from trunk:    
 ------------------------------------------------------------------------    
 r45264 | michael | 2020-05-05 11:52:02 +0200 (Tue, 05 May 2020) | 1 line

    * CeateArray uses 0-based loop
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46628 -
---
 packages/fcl-json/src/fpjsontopas.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-json/src/fpjsontopas.pp b/packages/fcl-json/src/fpjsontopas.pp
index c646c8ba0a..7b523bdc24 100644
--- a/packages/fcl-json/src/fpjsontopas.pp
+++ b/packages/fcl-json/src/fpjsontopas.pp
@@ -743,7 +743,7 @@ begin
   AddLn('');
   AddLn('begin');
   Indent;
-  AddLn('For I:=0 to Length(anArray) do');
+  AddLn('For I:=0 to Length(anArray)-1 do');
   Indent;
   if IM.JSONType=jtObject then
     AddLn('FreeAndNil(anArray[I]);')