From: Jens Geyer <jensg@apache.org>
Date: Thu, 23 Jan 2014 18:16:52 +0000 (+0100)
Subject: THRIFT-2331 Missing call to ReadStructBegin() in TApplicationException.Read()
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=beb937740a19340431ffd99ecb14f8a5c05624c2;p=common%2Fthrift.git

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 f4b47edc..65f23abf 100644
--- 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;