commit f726ae31b9c49b4b3ce9c2f8261760ff9692641a
author Jens Geyer <jensg@apache.org> Fri Jun 04 11:17:26 2021 +0200
committer Jens Geyer <jensg@apache.org> Fri Jun 04 11:46:18 2021 +0200
tree 06fdfcfb7c9d11df9ad989490ff2bd4172797202
parent ea456f665466cf4d9a412bba0a2770ee895bd836

THRIFT-5428 Prevent costly reallocations to improve performance
Client: Delphi
Patch: Jens Geyer

lib/delphi/src/Thrift.Protocol.JSON.pas

diff --git a/lib/delphi/src/Thrift.Protocol.JSON.pas b/lib/delphi/src/Thrift.Protocol.JSON.pas
index 61cad8b..515d85c 100644
--- a/lib/delphi/src/Thrift.Protocol.JSON.pas
+++ b/lib/delphi/src/Thrift.Protocol.JSON.pas
@@ -32,6 +32,7 @@
   Thrift.Configuration,
   Thrift.Transport,
   Thrift.Protocol,
+  Thrift.Stream,
   Thrift.Utils;
 
 type
@@ -832,7 +833,7 @@
 
 
 function TJSONProtocolImpl.ReadJSONString( skipContext : Boolean) : TBytes;
-var buffer : TMemoryStream;
+var buffer : TThriftMemoryStream;
     ch  : Byte;
     wch : Word;
     highSurogate: Char;
@@ -841,7 +842,7 @@
     tmp : TBytes;
 begin
   highSurogate := #0;
-  buffer := TMemoryStream.Create;
+  buffer := TThriftMemoryStream.Create;
   try
     if not skipContext
     then FContext.Read;