commit 718f6eefb6791128a5290b3c7cf47f025ed60c66
author Jens Geyer <jensg@apache.org> 周五 9月 06 21:02:34 2013 +0200
committer Jens Geyer <jensg@apache.org> 周五 9月 06 21:02:57 2013 +0200
tree 6fe7a02497e1d77c3add568137371936581e8a3a
parent a6a32a56fb565d155fd9ae3826b6bbdede6688be

THRIFT-2162 Missing calls to inherited CTOR at misc. places

Patch: Jens Geyer

lib/delphi/src/Thrift.Protocol.pas

diff --git a/lib/delphi/src/Thrift.Protocol.pas b/lib/delphi/src/Thrift.Protocol.pas
index 1f27203..e88f1cf 100644
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -516,6 +516,7 @@
 constructor TFieldImpl.Create(const AName: string; const AType: TType;

   AId: SmallInt);

 begin

+  inherited Create;

   FName := AName;

   FType := AType;

   FId := AId;

@@ -523,6 +524,7 @@
 

 constructor TFieldImpl.Create;

 begin

+  inherited Create;

   FName := '';

   FType := Low(TType);

   FId   := 0;

@@ -702,7 +704,7 @@
 

 constructor TMapImpl.Create;

 begin

-

+  inherited Create;

 end;

 

 function TMapImpl.GetCount: Integer;

@@ -792,7 +794,7 @@
 

 constructor TSetImpl.Create;

 begin

-

+  inherited Create;

 end;

 

 function TSetImpl.GetCount: Integer;

@@ -826,7 +828,7 @@
 

 constructor TListImpl.Create;

 begin

-

+  inherited Create;

 end;

 

 function TListImpl.GetCount: Integer;

@@ -853,6 +855,7 @@
 

 constructor TBinaryProtocolImpl.Create( const trans: ITransport);

 begin

+  //no inherited

   Create( trans, False, True);

 end;

 

@@ -1253,12 +1256,14 @@
 

 constructor TBinaryProtocolImpl.TFactory.Create(AStrictRead, AStrictWrite: Boolean);

 begin

+  inherited Create;

   FStrictRead := AStrictRead;

   FStrictWrite := AStrictWrite;

 end;

 

 constructor TBinaryProtocolImpl.TFactory.Create;

 begin

+  //no inherited;  

   Create( False, True )

 end;