commit 30ed90e0650e30734c9d728c2935d461671a0dc9
author Jens Geyer <jensg@apache.org> Thu Mar 10 20:12:49 2016 +0100
committer Jens Geyer <jensg@apache.org> Thu Mar 10 20:12:49 2016 +0100
tree 3771bc0184d66d2ee431af812bbc0f90735053bd
parent 6f6aa8a4060e3e8a0c1250fc571da97da3e4f330

THRIFT-3733 Socket timeout improvements
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 88de6f4..c0d6712 100644
--- a/lib/delphi/src/Thrift.Transport.pas
+++ b/lib/delphi/src/Thrift.Transport.pas
@@ -1069,9 +1069,9 @@
   end;
 
   data_len := len - FHeaderSize;
-  if (data_len < 0) then
-  begin
-    raise Exception.Create( 'TFramedTransport.Flush: data_len < 0' );
+  if (data_len < 0) then begin
+    raise TTransportException.Create( TTransportException.TExceptionType.Unknown,
+                                      'TFramedTransport.Flush: data_len < 0' );
   end;
 
   InitWriteBuffer;