From 160d59b1dfac37f4eabe6c7d4d217a6053d6cb33 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 23 Aug 2020 10:22:22 +0000
Subject: [PATCH] * Partial 45708, needed for subsequent fpjson

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

diff --git a/packages/fcl-json/src/fpjson.pp b/packages/fcl-json/src/fpjson.pp
index c9a2879d79..ff2ac38418 100644
--- a/packages/fcl-json/src/fpjson.pp
+++ b/packages/fcl-json/src/fpjson.pp
@@ -1048,7 +1048,7 @@ begin
     TJSONData.DoError(SErrNoParserHandler)
   else
     begin
-    Setlength(S,JSON.Size);
+    Setlength(S{%H-},JSON.Size);
     if Length(S)>0 then
       JSON.ReadBuffer(S[1],Length(S));
     end;