paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 02:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r45264 from trunk:

Browse Source 
------------------------------------------------------------------------
    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 -
This commit is contained in:
michael 2020-08-23 09:49:00 +00:00
parent 57313b637a
commit ed3f8f66f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-json/src/fpjsontopas.pp
View File

@ -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]);')