commit 3b686533f7cf8c949c389bdaadc2d67f43cac3bd
author Jens Geyer <jensg@apache.org> Thu Jul 01 23:04:08 2021 +0200
committer Jens Geyer <jensg@apache.org> Thu Jul 01 23:32:12 2021 +0200
tree 7d9928bbb57f0e97c1bc994c22197044f86326be
parent 7391a3103224a02519d0f976874163bf90531456

THRIFT-5437 Make TProtocolImpl CTOR virtual
Client: Delphi
Patch: Jens Geyer

lib/delphi/test/TestServer.pas

diff --git a/lib/delphi/test/TestServer.pas b/lib/delphi/test/TestServer.pas
index adbbccf..8aaf9f3 100644
--- a/lib/delphi/test/TestServer.pas
+++ b/lib/delphi/test/TestServer.pas
@@ -567,7 +567,7 @@
 
     // create protocol factory, default to BinaryProtocol
     case protType of
-      prot_Binary  :  ProtocolFactory := TBinaryProtocolImpl.TFactory.Create( BINARY_STRICT_READ, BINARY_STRICT_WRITE);
+      prot_Binary  :  ProtocolFactory := TBinaryProtocolImpl.TFactory.Create;
       prot_JSON    :  ProtocolFactory := TJSONProtocolImpl.TFactory.Create;
       prot_Compact :  ProtocolFactory := TCompactProtocolImpl.TFactory.Create;
     else