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

* Partial 45708, needed for subsequent fpjson

Browse Source 
git-svn-id: branches/fixes_3_2@46634 -
This commit is contained in:
michael 2020-08-23 10:22:22 +00:00
parent befb0ada55
commit 160d59b1df
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/fpjson.pp
View File

@ -1048,7 +1048,7 @@ begin
TJSONData.DoError(SErrNoParserHandler) TJSONData.DoError(SErrNoParserHandler)
else else
begin begin
Setlength(S,JSON.Size); Setlength(S{%H-},JSON.Size);
if Length(S)>0 then if Length(S)>0 then
JSON.ReadBuffer(S[1],Length(S)); JSON.ReadBuffer(S[1],Length(S));
end; end;