From beb937740a19340431ffd99ecb14f8a5c05624c2 Mon Sep 17 00:00:00 2001
From: Jens Geyer <jensg@apache.org>
Date: Thu, 23 Jan 2014 19:16:52 +0100
Subject: [PATCH] THRIFT-2331 Missing call to ReadStructBegin() in
 TApplicationException.Read()

Patch: Jens Geyer
---
 lib/delphi/src/Thrift.pas | 2 ++
 1 file changed, 2 insertions(+)

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;
-- 
2.17.1