commit 65b17466d5d7d6c7b762626e809918de904032e0
author Jens Geyer <jensg@apache.org> Wed Mar 09 00:07:46 2016 +0100
committer Jens Geyer <jensg@apache.org> Wed Mar 09 00:09:54 2016 +0100
tree 1b45c47b5fceedff13c5beeab62b2f73da675fe8
parent 8c8ae96eb8083c8cc93698094db1421369b414e1

THRIFT-3720 TTcpSocketStreamImpl.Read() returns 0 if not all requested bytes could be read
Client: Delphi
Patch: Jens Geyer

lib/delphi/src/Thrift.Transport.pas

diff --git a/lib/delphi/src/Thrift.Transport.pas b/lib/delphi/src/Thrift.Transport.pas
index 74afb52..9fd52a8 100644
--- a/lib/delphi/src/Thrift.Transport.pas
+++ b/lib/delphi/src/Thrift.Transport.pas
@@ -1340,7 +1340,7 @@
       else wfd := WaitForData( SLEEP_TIME, pDest, count, wsaError, nBytes);
 
       case wfd of
-        TWaitForData.wfd_Error    :  Exit(0);
+        TWaitForData.wfd_Error    :  Exit;
         TWaitForData.wfd_HaveData :  Break;
         TWaitForData.wfd_Timeout  :  begin
           if (FTimeout > 0)