THRIFT-2331 Missing call to ReadStructBegin() in TApplicationException.Read()

Patch: Jens Geyer

diff --git a/lib/delphi/src/Thrift.pas b/lib/delphi/src/Thrift.pas
index f4b47ed..65f23ab 100644 (file)
--- a/lib/delphi/src/Thrift.pas
+++ b/lib/delphi/src/Thrift.pas
@@ -107,9 +107,11 @@ var
   field : IField;
   msg : string;
   typ : TExceptionType;
+  struc : IStruct;
 begin
   msg := '';
   typ := TExceptionType.Unknown;
+  struc := iprot.ReadStructBegin;
   while ( True ) do
   begin
     field := iprot.ReadFieldBegin;